From e5005d4a2ccd0f67f0b91326945d69544f9b7457 Mon Sep 17 00:00:00 2001 From: Andrzej Rybczak Date: Tue, 28 Jul 2026 06:01:29 +0200 Subject: [PATCH 1/7] Remove libpqtypes, use plain libpq and postgresql-binary The vendored libpqtypes C library is gone. Queries are executed with the asynchronous API of plain libpq and the binary transport format is handled on the Haskell side: per-type format strings are replaced by type Oids, fromSQL becomes a monadic RowDecoder consuming consecutive fields of a result, and encoding of composite types along with the Composite machinery is dropped in favour of decoding combinators. See CHANGELOG.md for the full list of user visible changes. --- .github/workflows/haskell-ci.yml | 18 +- .hlint.yaml | 1 + CHANGELOG.md | 110 +- README.md | 22 +- bench-db/Main.hs | 80 +- bench/Main.hs | 300 + cbits/null_string.c | 4 + examples/Catalog.hs | 60 +- examples/OuterJoins.hs | 70 +- ghc-tags.yaml | 8 +- hpqtypes.cabal | 307 +- libpqtypes/AUTHORS | 32 - libpqtypes/ChangeLog | 335 - libpqtypes/INSTALL | 119 - libpqtypes/LICENSE | 22 - libpqtypes/Makefile.am | 68 - libpqtypes/Makefile.in | 767 - libpqtypes/Makefile.win32 | 49 - libpqtypes/README | 54 - libpqtypes/acinclude.m4 | 139 - libpqtypes/aclocal.m4 | 7262 ----- libpqtypes/config.guess | 1411 - libpqtypes/config.sub | 1500 - libpqtypes/configure | 22956 ---------------- libpqtypes/configure.ac | 157 - libpqtypes/docs/man3/PQclearSpecs.3 | 1 - libpqtypes/docs/man3/PQclearTypes.3 | 1 - libpqtypes/docs/man3/PQexecf.3 | 104 - libpqtypes/docs/man3/PQexecvf.3 | 1 - libpqtypes/docs/man3/PQgetErrorField.3 | 1 - libpqtypes/docs/man3/PQgeterror.3 | 56 - libpqtypes/docs/man3/PQgetf.3 | 104 - libpqtypes/docs/man3/PQgetvf.3 | 1 - libpqtypes/docs/man3/PQinitTypes.3 | 56 - libpqtypes/docs/man3/PQlocalTZInfo.3 | 66 - libpqtypes/docs/man3/PQparamClear.3 | 1 - libpqtypes/docs/man3/PQparamCount.3 | 1 - libpqtypes/docs/man3/PQparamCreate.3 | 76 - libpqtypes/docs/man3/PQparamExec.3 | 106 - libpqtypes/docs/man3/PQparamExecPrepared.3 | 1 - libpqtypes/docs/man3/PQparamReset.3 | 1 - libpqtypes/docs/man3/PQparamSendQuery.3 | 89 - .../docs/man3/PQparamSendQueryPrepared.3 | 1 - libpqtypes/docs/man3/PQputf.3 | 117 - libpqtypes/docs/man3/PQputvf.3 | 1 - libpqtypes/docs/man3/PQregisterComposites.3 | 80 - libpqtypes/docs/man3/PQregisterResult.3 | 122 - libpqtypes/docs/man3/PQregisterSubClasses.3 | 62 - libpqtypes/docs/man3/PQregisterTypes.3 | 90 - .../docs/man3/PQregisterUserDefinedTypes.3 | 82 - libpqtypes/docs/man3/PQsendf.3 | 1 - libpqtypes/docs/man3/PQsendvf.3 | 1 - libpqtypes/docs/man3/PQseterror.3 | 1 - libpqtypes/docs/man3/PQspecPrepare.3 | 123 - libpqtypes/docs/man3/PQtypesRegister.3 | 53 - libpqtypes/docs/man3/pqt-composites.3 | 263 - libpqtypes/docs/man3/pqt-handlers.3 | 598 - libpqtypes/docs/man3/pqt-specs.3 | 1213 - libpqtypes/groff2html | 109 - libpqtypes/install-sh | 323 - libpqtypes/ltmain.sh | 6911 ----- libpqtypes/missing | 360 - libpqtypes/src/array.c | 278 - libpqtypes/src/datetime.c | 1707 -- libpqtypes/src/error.c | 114 - libpqtypes/src/events.c | 175 - libpqtypes/src/exec.c | 577 - libpqtypes/src/ffi.c | 5 - libpqtypes/src/geo.c | 391 - libpqtypes/src/getaddrinfo.h | 146 - libpqtypes/src/handler.c | 1090 - libpqtypes/src/libpqtypes-int.h | 538 - libpqtypes/src/libpqtypes.h | 506 - libpqtypes/src/misc.c | 152 - libpqtypes/src/network.c | 257 - libpqtypes/src/numerics.c | 224 - libpqtypes/src/param.c | 488 - libpqtypes/src/port.c | 586 - libpqtypes/src/pqt_config.h | 151 - libpqtypes/src/pqt_config.h.in | 150 - libpqtypes/src/record.c | 164 - libpqtypes/src/regression-test.c | 1397 - libpqtypes/src/spec.c | 657 - libpqtypes/src/utils.c | 265 - libpqtypes/src/varlena.c | 151 - libpqtypes/win32.mak | 66 - src/Data/Monoid/Utils.hs | 4 +- src/Database/PostgreSQL/PQTypes.hs | 17 +- src/Database/PostgreSQL/PQTypes/Array.hs | 315 - src/Database/PostgreSQL/PQTypes/Class.hs | 3 +- src/Database/PostgreSQL/PQTypes/Composite.hs | 64 - src/Database/PostgreSQL/PQTypes/Cursor.hs | 15 +- src/Database/PostgreSQL/PQTypes/Enum.hs | 179 + src/Database/PostgreSQL/PQTypes/Fold.hs | 73 +- src/Database/PostgreSQL/PQTypes/Format.hs | 1047 +- src/Database/PostgreSQL/PQTypes/FromRow.hs | 1535 -- src/Database/PostgreSQL/PQTypes/FromSQL.hs | 330 +- .../PostgreSQL/PQTypes/Internal/C/Get.hs | 2962 -- .../PQTypes/Internal/C/Interface.hs | 219 - .../PQTypes/Internal/C/Interface.hsc | 266 + .../PostgreSQL/PQTypes/Internal/C/Put.hs | 1637 -- .../PostgreSQL/PQTypes/Internal/C/Types.hsc | 334 +- .../PostgreSQL/PQTypes/Internal/Composite.hs | 32 - .../PostgreSQL/PQTypes/Internal/Connection.hs | 490 +- .../PostgreSQL/PQTypes/Internal/Error.hs | 91 +- .../PostgreSQL/PQTypes/Internal/Error/Code.hs | 2 +- .../PostgreSQL/PQTypes/Internal/Exception.hs | 28 +- .../PostgreSQL/PQTypes/Internal/Monad.hs | 2 +- .../PQTypes/Internal/Notification.hsc | 27 +- .../PostgreSQL/PQTypes/Internal/Oid.hs | 281 + .../PQTypes/Internal/QueryResult.hs | 146 +- .../PostgreSQL/PQTypes/Internal/RowDecoder.hs | 458 + .../PostgreSQL/PQTypes/Internal/State.hs | 48 +- .../PostgreSQL/PQTypes/Internal/Utils.hs | 155 +- src/Database/PostgreSQL/PQTypes/Interval.hs | 144 + src/Database/PostgreSQL/PQTypes/Interval.hsc | 136 - src/Database/PostgreSQL/PQTypes/JSON.hs | 94 +- src/Database/PostgreSQL/PQTypes/SQL.hs | 32 +- src/Database/PostgreSQL/PQTypes/SQL/Class.hs | 15 +- src/Database/PostgreSQL/PQTypes/SQL/Raw.hs | 18 +- src/Database/PostgreSQL/PQTypes/ToRow.hs | 1212 +- src/Database/PostgreSQL/PQTypes/ToSQL.hs | 409 +- .../PostgreSQL/PQTypes/Transaction.hs | 5 + .../PQTypes/Transaction/Settings.hs | 8 +- src/Database/PostgreSQL/PQTypes/XML.hs | 16 +- test/Main.hs | 919 +- test/Prelude/Instances.hs | 507 - test/Test/Aeson/Compat.hs | 59 - test/Test/Array.hs | 273 + test/Test/Connection.hs | 277 + test/Test/Cursor.hs | 101 + test/Test/Enum.hs | 98 + test/Test/Env.hs | 117 + test/Test/QuickCheck/Arbitrary/Instances.hs | 937 +- test/Test/RowDecoder.hs | 229 + test/Test/Transaction.hs | 155 + test/Test/Tuples.hs | 59 + test/Test/Types.hs | 291 + 138 files changed, 5192 insertions(+), 68942 deletions(-) create mode 100644 bench/Main.hs create mode 100644 cbits/null_string.c delete mode 100644 libpqtypes/AUTHORS delete mode 100644 libpqtypes/ChangeLog delete mode 100644 libpqtypes/INSTALL delete mode 100644 libpqtypes/LICENSE delete mode 100644 libpqtypes/Makefile.am delete mode 100644 libpqtypes/Makefile.in delete mode 100644 libpqtypes/Makefile.win32 delete mode 100644 libpqtypes/README delete mode 100644 libpqtypes/acinclude.m4 delete mode 100644 libpqtypes/aclocal.m4 delete mode 100755 libpqtypes/config.guess delete mode 100755 libpqtypes/config.sub delete mode 100755 libpqtypes/configure delete mode 100644 libpqtypes/configure.ac delete mode 100644 libpqtypes/docs/man3/PQclearSpecs.3 delete mode 100644 libpqtypes/docs/man3/PQclearTypes.3 delete mode 100644 libpqtypes/docs/man3/PQexecf.3 delete mode 100644 libpqtypes/docs/man3/PQexecvf.3 delete mode 100644 libpqtypes/docs/man3/PQgetErrorField.3 delete mode 100644 libpqtypes/docs/man3/PQgeterror.3 delete mode 100644 libpqtypes/docs/man3/PQgetf.3 delete mode 100644 libpqtypes/docs/man3/PQgetvf.3 delete mode 100644 libpqtypes/docs/man3/PQinitTypes.3 delete mode 100644 libpqtypes/docs/man3/PQlocalTZInfo.3 delete mode 100644 libpqtypes/docs/man3/PQparamClear.3 delete mode 100644 libpqtypes/docs/man3/PQparamCount.3 delete mode 100644 libpqtypes/docs/man3/PQparamCreate.3 delete mode 100644 libpqtypes/docs/man3/PQparamExec.3 delete mode 100644 libpqtypes/docs/man3/PQparamExecPrepared.3 delete mode 100644 libpqtypes/docs/man3/PQparamReset.3 delete mode 100644 libpqtypes/docs/man3/PQparamSendQuery.3 delete mode 100644 libpqtypes/docs/man3/PQparamSendQueryPrepared.3 delete mode 100644 libpqtypes/docs/man3/PQputf.3 delete mode 100644 libpqtypes/docs/man3/PQputvf.3 delete mode 100644 libpqtypes/docs/man3/PQregisterComposites.3 delete mode 100644 libpqtypes/docs/man3/PQregisterResult.3 delete mode 100644 libpqtypes/docs/man3/PQregisterSubClasses.3 delete mode 100644 libpqtypes/docs/man3/PQregisterTypes.3 delete mode 100644 libpqtypes/docs/man3/PQregisterUserDefinedTypes.3 delete mode 100644 libpqtypes/docs/man3/PQsendf.3 delete mode 100644 libpqtypes/docs/man3/PQsendvf.3 delete mode 100644 libpqtypes/docs/man3/PQseterror.3 delete mode 100644 libpqtypes/docs/man3/PQspecPrepare.3 delete mode 100644 libpqtypes/docs/man3/PQtypesRegister.3 delete mode 100644 libpqtypes/docs/man3/pqt-composites.3 delete mode 100644 libpqtypes/docs/man3/pqt-handlers.3 delete mode 100644 libpqtypes/docs/man3/pqt-specs.3 delete mode 100755 libpqtypes/groff2html delete mode 100755 libpqtypes/install-sh delete mode 100755 libpqtypes/ltmain.sh delete mode 100755 libpqtypes/missing delete mode 100644 libpqtypes/src/array.c delete mode 100644 libpqtypes/src/datetime.c delete mode 100644 libpqtypes/src/error.c delete mode 100644 libpqtypes/src/events.c delete mode 100644 libpqtypes/src/exec.c delete mode 100644 libpqtypes/src/ffi.c delete mode 100644 libpqtypes/src/geo.c delete mode 100644 libpqtypes/src/getaddrinfo.h delete mode 100644 libpqtypes/src/handler.c delete mode 100644 libpqtypes/src/libpqtypes-int.h delete mode 100644 libpqtypes/src/libpqtypes.h delete mode 100644 libpqtypes/src/misc.c delete mode 100644 libpqtypes/src/network.c delete mode 100644 libpqtypes/src/numerics.c delete mode 100644 libpqtypes/src/param.c delete mode 100644 libpqtypes/src/port.c delete mode 100644 libpqtypes/src/pqt_config.h delete mode 100644 libpqtypes/src/pqt_config.h.in delete mode 100644 libpqtypes/src/record.c delete mode 100644 libpqtypes/src/regression-test.c delete mode 100644 libpqtypes/src/spec.c delete mode 100644 libpqtypes/src/utils.c delete mode 100644 libpqtypes/src/varlena.c delete mode 100644 libpqtypes/win32.mak delete mode 100644 src/Database/PostgreSQL/PQTypes/Array.hs delete mode 100644 src/Database/PostgreSQL/PQTypes/Composite.hs create mode 100644 src/Database/PostgreSQL/PQTypes/Enum.hs delete mode 100644 src/Database/PostgreSQL/PQTypes/FromRow.hs delete mode 100644 src/Database/PostgreSQL/PQTypes/Internal/C/Get.hs delete mode 100644 src/Database/PostgreSQL/PQTypes/Internal/C/Interface.hs create mode 100644 src/Database/PostgreSQL/PQTypes/Internal/C/Interface.hsc delete mode 100644 src/Database/PostgreSQL/PQTypes/Internal/C/Put.hs delete mode 100644 src/Database/PostgreSQL/PQTypes/Internal/Composite.hs create mode 100644 src/Database/PostgreSQL/PQTypes/Internal/Oid.hs create mode 100644 src/Database/PostgreSQL/PQTypes/Internal/RowDecoder.hs create mode 100644 src/Database/PostgreSQL/PQTypes/Interval.hs delete mode 100644 src/Database/PostgreSQL/PQTypes/Interval.hsc delete mode 100644 test/Prelude/Instances.hs delete mode 100644 test/Test/Aeson/Compat.hs create mode 100644 test/Test/Array.hs create mode 100644 test/Test/Connection.hs create mode 100644 test/Test/Cursor.hs create mode 100644 test/Test/Enum.hs create mode 100644 test/Test/Env.hs create mode 100644 test/Test/RowDecoder.hs create mode 100644 test/Test/Transaction.hs create mode 100644 test/Test/Tuples.hs create mode 100644 test/Test/Types.hs diff --git a/.github/workflows/haskell-ci.yml b/.github/workflows/haskell-ci.yml index 3c09b4b..cba5f17 100644 --- a/.github/workflows/haskell-ci.yml +++ b/.github/workflows/haskell-ci.yml @@ -35,7 +35,7 @@ jobs: timeout-minutes: 60 container: - image: buildpack-deps:jammy + image: buildpack-deps:resolute services: postgres: image: postgres:18 @@ -71,22 +71,12 @@ jobs: compilerVersion: 9.6.7 setup-method: ghcup allow-failure: false - - compiler: ghc-9.4.8 - compilerKind: ghc - compilerVersion: 9.4.8 - setup-method: ghcup - allow-failure: false - - compiler: ghc-9.2.8 - compilerKind: ghc - compilerVersion: 9.2.8 - setup-method: ghcup - allow-failure: false fail-fast: false steps: - name: apt-get install run: | apt-get update - apt-get install -y --no-install-recommends gnupg ca-certificates dirmngr curl git software-properties-common libtinfo5 + apt-get install -y --no-install-recommends gnupg ca-certificates dirmngr curl git software-properties-common - name: Install GHCup run: | mkdir -p "$HOME/.ghcup/bin" @@ -197,8 +187,8 @@ jobs: echo "packages: ${PKGDIR_hpqtypes}" >> cabal.project echo "package hpqtypes" >> cabal.project echo " ghc-options: -Werror=missing-methods -Werror=missing-fields" >> cabal.project - if [ $((HCNUMVER >= 90400)) -ne 0 ] ; then echo "package hpqtypes" >> cabal.project ; fi - if [ $((HCNUMVER >= 90400)) -ne 0 ] ; then echo " ghc-options: -Werror=unused-packages" >> cabal.project ; fi + echo "package hpqtypes" >> cabal.project + echo " ghc-options: -Werror=unused-packages" >> cabal.project echo "package hpqtypes" >> cabal.project echo " ghc-options: -Werror=incomplete-patterns -Werror=incomplete-uni-patterns" >> cabal.project cat >> cabal.project < Maybe Encoding`, where `Encoding` comes + from `postgresql-binary` and `Nothing` represents NULL. The `PQDest` type + family and `ParamAllocator` are gone. +* Change the type of `fromSQL` to `RowDecoder t`, a monadic parser that consumes + consecutive fields of a query result. Decoders of compound results are built + by composing decoders of their fields; the `PQBase` type family is gone. +* Remove the `PQFormat` superclass of `FromSQL`. +* Remove the `FromRow` class. Row fetching functions (`foldrDB`, `foldlDB`, + `mapDB_`, `fetchMany`, `fetchMaybe`, `fetchOne`) now take an explicit + `RowDecoder` of a row, e.g. `fetchMany ((,) <$> fromSQL <*> fromSQL)`. +* Row fetching functions no longer validate the width of the query result up + front, as the number of fields a `RowDecoder` consumes is not known + statically. A decoder that doesn't match the shape of the result throws + `RowLengthMismatch` when a row is decoded, which in particular means that + fetching from a result with no rows always succeeds. +* Row fetching functions no longer decode all rows of the result up front, + retaining them until the fold completes: each row is now decoded right + before the fold function consumes it, so e.g. `mapDB_` over a large result + runs in constant additional memory. +* Reduce the maximum arity of tuples with a `ToRow` instance from 50 to 10. + Larger sets of query parameters can be passed by combining rows with the + `:++:` type (previously known as `:*:`, renamed to avoid conflicting with + `GHC.Generics`). +* Remove the parameter of `QueryResult` along with its `Functor` and `Foldable` + instances (superseded by row fetching functions taking a `RowDecoder`). +* Remove support for encoding of composite types along with the `Composite`, + `CompositeRow`, `CompositeFromSQL`, `CompositeToSQL`, `CompositeArray1` and + `CompositeArray2` machinery. Composite types are decoded with the + `decodeComposite` combinator and no longer need to be registered (the + `csComposites` field of `ConnectionSettings` is gone). Also, decoding of + anonymous composite types is now supported. +* Add `genericDecoder`, which decodes consecutive fields of a row into a + product type with a `Generic` instance (e.g. a whole row into a tuple). + Combined with `decodeComposite`, it gives generic `FromSQL` instances for + product types corresponding to composite types. +* Add `PQFormat`, `ToSQL` and `FromSQL` instances for lists and `Vector`s + that encode and decode PostgreSQL arrays, so arrays of any type with the + relevant instances can be passed as query parameters and fetched with + plain `fromSQL`. Multi-dimensional arrays are represented by nesting + (mixed nesting of lists and `Vector`s works too). `String` keeps + corresponding to `text` and `[String]` to an array of `text`. The + `Database.PostgreSQL.PQTypes.Array` module is gone. +* Remove `ArrayItemError`; errors of array element decoders report the + position of the offending element as the column of their `ConversionError` + instead. +* Remove `QueryError`, which was thrown when query execution produced no + `PGresult` (e.g. because the connection died while the query was being + sent). Such failures now throw `LibPQError`. +* The `Show` instances of `HPQTypesError` and `LibPQError` are now derived, + like those of the other error types: they print e.g. + `HPQTypesError "reason"` instead of `HPQTypesError (PostgreSQL): reason`. +* Add the `Database.PostgreSQL.PQTypes.Enum` module with `SQLEnum` and + `SQLEnumAsText` deriving-via helpers for mapping Haskell enumeration types + to values of PostgreSQL enum (or other) types. Scalar parameters work + against both text and enum columns without casts; arrays are sent as + `text[]` and need a cast against enum columns (e.g. + `... = ANY($1::my_enum_type[])`). +* Add `FromSQL` and `ToSQL` instances for `Integer` and `Scientific` (mapped + to `numeric`), `Word16`, `Word32` and `Word64`, plus a `ToSQL` instance + for `Word` (for symmetry with `Int`). +* Add `FromSQL` and `ToSQL` instances for `IPRange` (from the `iproute` + package), mapped to the `inet` type. +* Add support for range types: `FromSQL` and `ToSQL` instances for `Range` + of `Int32`, `Int64`, `Scientific`, `Day`, `LocalTime` and `UTCTime`, mapped + to `int4range`, `int8range`, `numrange`, `daterange`, `tsrange` and + `tstzrange` respectively. The `Range` and `Bound` types from + `postgresql-binary` are re-exported from `Database.PostgreSQL.PQTypes`. +* Change the representation of `Interval` to mirror the wire format: three + components (microseconds, days, months) of mutually independent duration. + The type is now opaque; values are constructed with the `iyears`, + `imonths`, `idays`, `ihours`, `iminutes`, `iseconds` and `imicroseconds` + functions combined via the `Monoid` instance (the sub-day functions now + take `Int64`). The `Eq` and `Ord` instances compare the same way the + comparison operators of the server do, i.e. by the estimate with months + converted at 30 days and days at 24 hours. The `Show` instance shows the + components of the wire format instead of pretty-printing. +* Executing a `COPY` statement now throws an error saying it's not supported. + Previously it silently reported success while leaving the connection in a + copy mode, breaking its subsequent uses. +* Cancellation of a query whose execution was interrupted by an exception now + uses the new cancellation API when built against `libpq` >= 17, so the + cancellation request is sent over an encrypted connection if the main + connection is encrypted. +* Fix a bug in `connect` where interrupting it with an asynchronous exception + could lead to a use-after-free of the buffer holding the connection string. * Fix a bug in `changeAcquisitionModeTo` that led to holding on to an invalid connection object when committing a transaction during transition from the `AcquireAndHold` to `AcquireOnDemand` mode failed. @@ -12,10 +104,14 @@ failure of the issued `COMMIT` (e.g. due to a deferred constraint violation) left the session in the autocommit mode instead of starting a new transaction. -* Fix a bug in `finalizeConnectionData` where connection finalization - interrupted with an asynchronous exception while another thread was using - the connection put a value into the connection state MVar it didn't hold, - permanently deadlocking the other thread. +* Fix a bug where connection finalization interrupted with an asynchronous + exception while another thread was using the connection permanently + deadlocked the other thread. +* Fix transaction restart handling: a restarted transaction no longer runs + with asynchronous exceptions masked, asynchronous exceptions (e.g. timeouts) + no longer trigger a restart even if the restart predicate matches them, and + if a transaction fails, a subsequent failure of its cleanup no longer masks + the original exception (in particular hiding it from the restart predicate). # hpqtypes-1.14.0.0 (2025-12-10) * Make `begin`, `commit` and `rollback` do nothing instead of throwing an error diff --git a/README.md b/README.md index 550055a..7cf87b9 100644 --- a/README.md +++ b/README.md @@ -5,10 +5,24 @@ [![Stackage LTS](https://www.stackage.org/package/hpqtypes/badge/lts)](https://www.stackage.org/lts/package/hpqtypes) [![Stackage Nightly](https://www.stackage.org/package/hpqtypes/badge/nightly)](https://www.stackage.org/nightly/package/hpqtypes) -Efficient and easy-to-use bindings to (slightly modified) libpqtypes, -libpq extension that adds support for binary transport format and -composite types. +Efficient and easy-to-use bindings to `libpq` that use the binary +transport format for queries and their results. -Source code of libpqtypes is bundled along with the bindings. +Main features: + +* Queries and their parameters are specified separately, so SQL + injection is not possible by construction. +* Queries are executed using the asynchronous API of `libpq`, so + threads blocked on database access can be interrupted with + asynchronous exceptions (in such case the query is cancelled + server-side as well). +* Conversion between Haskell types and their SQL counterparts is + handled by the `ToSQL` and `FromSQL` type classes on top of the + [postgresql-binary](https://hackage.haskell.org/package/postgresql-binary) + library, with types of query results checked against the expected + ones. Rows are decoded with composable, monadic `RowDecoder`s. +* Support for arrays (represented as plain lists or `Vector`s, with + nesting for multi-dimensional ones), anonymous and user-defined + composite types, PostgreSQL enums and NOTIFY/LISTEN. Examples can be found in the [examples](https://github.com/scrive/hpqtypes/tree/master/examples) directory. diff --git a/bench-db/Main.hs b/bench-db/Main.hs index 7e605a4..998b3c8 100644 --- a/bench-db/Main.hs +++ b/bench-db/Main.hs @@ -7,10 +7,12 @@ import Data.Int import Data.Pool (defaultPoolConfig) import Data.Text qualified as T import Data.Time -import Database.PostgreSQL.PQTypes +import GHC.Generics import System.Environment import Test.Tasty.Bench +import Database.PostgreSQL.PQTypes + -- | Number of records inserted into each of the two tables. numRecords :: Int numRecords = 50000 @@ -31,23 +33,25 @@ bigArraySize = 100000 ---------------------------------------- data Child = Child Int32 T.Text Double UTCTime Integer -data Parent = Parent Int32 T.Text Double UTCTime Integer [Child] - -instance NFData Child where - rnf (Child a b c d e) = - rnf a `seq` rnf b `seq` rnf c `seq` rnf d `seq` rnf e - -instance NFData Parent where - rnf (Parent a b c d e f) = - rnf a `seq` rnf b `seq` rnf c `seq` rnf d `seq` rnf e `seq` rnf f + deriving stock (Generic) + deriving anyclass (NFData) -type instance CompositeRow Child = (Int32, T.Text, Double, UTCTime, Integer) +instance FromSQL Child where + fromSQL = decodeComposite genericDecoder -instance PQFormat Child where - pqFormat = "%bench_child_" - -instance CompositeFromSQL Child where - toComposite (cid, t, d, ts, n) = Child cid t d ts n +data Parent = Parent Int32 T.Text Double UTCTime Integer [Child] + deriving stock (Generic) + deriving anyclass (NFData) + +parentDecoder :: RowDecoder [Child] -> RowDecoder Parent +parentDecoder children = + Parent + <$> fromSQL + <*> fromSQL + <*> fromSQL + <*> fromSQL + <*> fromSQL + <*> children -- | Deterministic record with the given id. recordData :: UTCTime -> Int -> (Int32, T.Text, Double, UTCTime, Integer) @@ -88,20 +92,9 @@ createTables = do , ")" ] runSQL_ "CREATE INDEX bench_children_parent_id_idx_ ON bench_children_ (parent_id)" - runSQL_ $ - mconcat - [ "CREATE TYPE bench_child_ AS (" - , " id INTEGER" - , ", t TEXT" - , ", d DOUBLE PRECISION" - , ", ts TIMESTAMPTZ" - , ", n NUMERIC" - , ")" - ] dropTables :: DBT IO () dropTables = do - runSQL_ "DROP TYPE IF EXISTS bench_child_" runSQL_ "DROP TABLE IF EXISTS bench_children_" runSQL_ "DROP TABLE IF EXISTS bench_parents_" @@ -127,32 +120,31 @@ insertData base = do selectParents :: DBT IO [Parent] selectParents = do runSQL_ "SELECT p.id, p.t, p.d, p.ts, p.n FROM bench_parents_ p ORDER BY p.id" - fetchMany $ \(pid, t, d, ts, n) -> Parent pid t d ts n [] + fetchMany . parentDecoder $ pure [] selectData :: DBT IO [Parent] selectData = do runSQL_ $ mconcat [ "SELECT p.id, p.t, p.d, p.ts, p.n" - , ", ARRAY(SELECT (c.id, c.t, c.d, c.ts, c.n)::bench_child_" + , ", ARRAY(SELECT (c.id, c.t, c.d, c.ts, c.n)" , " FROM bench_children_ c WHERE c.parent_id = p.id ORDER BY c.id)" , " FROM bench_parents_ p ORDER BY p.id" ] - fetchMany $ \(pid, t, d, ts, n, CompositeArray1 children) -> - Parent pid t d ts n children + fetchMany $ parentDecoder fromSQL selectBigArray :: DBT IO [Int32] selectBigArray = do runQuery_ $ rawSQL "SELECT ARRAY(SELECT generate_series(1, $1))::int4[]" (Identity bigArraySize) - fetchOne $ \(Identity (Array1 elems)) -> elems + fetchOne $ fromSQL @[Int32] -- | The counterpart of 'selectBigArray': the same scalars, delivered as one -- column of that many rows instead of as one array. selectManyRows :: DBT IO [Int32] selectManyRows = do runQuery_ $ rawSQL "SELECT generate_series(1, $1)" (Identity bigArraySize) - fetchMany runIdentity + fetchMany $ fromSQL @Int32 ---------------------------------------- @@ -162,10 +154,13 @@ selectManyRows = do main :: IO () main = do connInfo <- maybe T.empty T.pack <$> lookupEnv "CONNINFO" - let settings = defaultConnectionSettings {csConnInfo = connInfo} - ConnectionSource cs <- pooled settings + let cs = defaultConnectionSettings {csConnInfo = connInfo} + -- A pool holding a single connection is used rather than 'simpleSource' so + -- that establishing one isn't measured by every iteration of a benchmark. + ConnectionSource pool <- poolSource cs $ \connect disconnect -> + defaultPoolConfig connect disconnect 60 1 let runDB :: DBT IO a -> IO a - runDB = runDBT cs defaultTransactionSettings + runDB = runDBT pool defaultTransactionSettings base <- getCurrentTime runDB $ do -- Keep the NOTICEs of the DROPs below out of the benchmark report. @@ -173,23 +168,12 @@ main = do dropTables createTables insertData base - -- Registration of composites happens at connection time, so bench_child_ - -- needs to exist before this source is used. - ConnectionSource csComposite <- pooled settings {csComposites = ["bench_child_"]} - let runDBComposite :: DBT IO a -> IO a - runDBComposite = runDBT csComposite defaultTransactionSettings (`finally` runDB dropTables) . defaultMain $ [ -- Insertion refills the tables it empties, so the selection benchmarks -- below see the same data regardless of whether this one ran. bench "insert" . nfIO . runDB $ truncateTables >> insertData base , bench "select parents" . nfIO $ runDB selectParents - , bench "select parents with children" . nfIO $ runDBComposite selectData + , bench "select parents with children" . nfIO $ runDB selectData , bench "select big array" . nfIO $ runDB selectBigArray , bench "select many rows" . nfIO $ runDB selectManyRows ] - where - -- A pool holding a single connection is used rather than 'simpleSource' - -- so that establishing one isn't measured by every iteration of a - -- benchmark. - pooled settings = poolSource settings $ \connect disconnect -> - defaultPoolConfig connect disconnect 60 1 diff --git a/bench/Main.hs b/bench/Main.hs new file mode 100644 index 0000000..44e6c7b --- /dev/null +++ b/bench/Main.hs @@ -0,0 +1,300 @@ +module Main (main) where + +import Control.DeepSeq +import Data.ByteString qualified as BS +import Data.Int +import Data.Map.Strict qualified as Map +import Data.Text (Text) +import Data.Text qualified as T +import Data.Time +import Data.Vector qualified as V +import Test.Tasty.Bench + +import Database.PostgreSQL.PQTypes + +main :: IO () +main = + defaultMain + [ bgroup + "encode" + [ bench "Int64" $ nf paramBytes (maxBound :: Int64) + , bench "Double" $ nf paramBytes (pi :: Double) + , bench "Text" $ nf paramBytes ("a rather short text" :: Text) + , bench "UTCTime" $ nf paramBytes (UTCTime (fromGregorian 2026 7 17) 0) + , bench "[Int32]" $ nf paramBytes ints1 + , bench "[Maybe Int32]" $ nf paramBytes (map Just ints1) + , bench "[[Int32]]" $ nf paramBytes ints2 + , bench "[[[Int32]]]" $ nf paramBytes ints3 + , bench "[Text]" $ nf paramBytes texts + , bench "Vector Int32" $ nf paramBytes (V.fromList ints1) + , bench "Vector (Vector Int32)" $ + nf paramBytes (V.fromList $ map V.fromList ints2) + , bench "Vector [Int32]" $ nf paramBytes (V.fromList ints2) + ] + , bgroup + "enum" + [ bench "encode" $ nf (encodeEnumAs @Int16 @T) T42 + , bench "decode" $ nf (\b -> Map.lookup b (enumEncodingMap @Int16 @T)) 42 + ] + , bgroup + "enum-text" + [ bench "encode" $ nf (encodeEnumAs @Text @S) S42 + , bench "decode" $ nf (\t -> Map.lookup t (enumEncodingMap @Text @S)) "text_42" + ] + ] + where + -- Extract the encoded payload of a query parameter, so that the + -- benchmark covers the whole encoding pipeline, including serialization + -- of the 'Encoding' builder into bytes. + paramBytes :: ToSQL a => a -> Maybe BS.ByteString + paramBytes v = case toPQParam v of + PQParam _ payload -> payload + + -- Arrays of every dimensionality have 10000 elements, so that their + -- encoding times are comparable. + ints1 :: [Int32] + ints1 = [1 .. 10000] + + ints2 :: [[Int32]] + ints2 = groupsOf 100 ints1 + + ints3 :: [[[Int32]]] + ints3 = groupsOf 10 ints2 + + texts :: [Text] + texts = map (T.pack . show) [1 .. 1000 :: Int] + + groupsOf :: Int -> [a] -> [[a]] + groupsOf n = \case + [] -> [] + xs -> let (group, rest) = splitAt n xs in group : groupsOf n rest + +---------------------------------------- + +data T + = T01 + | T02 + | T03 + | T04 + | T05 + | T06 + | T07 + | T08 + | T09 + | T10 + | T11 + | T12 + | T13 + | T14 + | T15 + | T16 + | T17 + | T18 + | T19 + | T20 + | T21 + | T22 + | T23 + | T24 + | T25 + | T26 + | T27 + | T28 + | T29 + | T30 + | T31 + | T32 + | T33 + | T34 + | T35 + | T36 + | T37 + | T38 + | T39 + | T40 + | T41 + | T42 + | T43 + | T44 + | T45 + | T46 + | T47 + | T48 + | T49 + | T50 + deriving stock (Eq, Show, Enum, Bounded) + +instance NFData T where + rnf = (`seq` ()) + +-- | Enum encoding for 'T'. +-- +-- >>> isInjective (encodeEnumAs @Int16 @T) +-- True +instance EnumEncodingAs Int16 T where + encodeEnumAs = \case + T01 -> 1 + T02 -> 2 + T03 -> 3 + T04 -> 4 + T05 -> 5 + T06 -> 6 + T07 -> 7 + T08 -> 8 + T09 -> 9 + T10 -> 10 + T11 -> 11 + T12 -> 12 + T13 -> 13 + T14 -> 14 + T15 -> 15 + T16 -> 16 + T17 -> 17 + T18 -> 18 + T19 -> 19 + T20 -> 20 + T21 -> 21 + T22 -> 22 + T23 -> 23 + T24 -> 24 + T25 -> 25 + T26 -> 26 + T27 -> 27 + T28 -> 28 + T29 -> 29 + T30 -> 30 + T31 -> 31 + T32 -> 32 + T33 -> 33 + T34 -> 34 + T35 -> 35 + T36 -> 36 + T37 -> 37 + T38 -> 38 + T39 -> 39 + T40 -> 40 + T41 -> 41 + T42 -> 42 + T43 -> 43 + T44 -> 44 + T45 -> 45 + T46 -> 46 + T47 -> 47 + T48 -> 48 + T49 -> 49 + T50 -> 50 + +---------------------------------------- + +data S + = S01 + | S02 + | S03 + | S04 + | S05 + | S06 + | S07 + | S08 + | S09 + | S10 + | S11 + | S12 + | S13 + | S14 + | S15 + | S16 + | S17 + | S18 + | S19 + | S20 + | S21 + | S22 + | S23 + | S24 + | S25 + | S26 + | S27 + | S28 + | S29 + | S30 + | S31 + | S32 + | S33 + | S34 + | S35 + | S36 + | S37 + | S38 + | S39 + | S40 + | S41 + | S42 + | S43 + | S44 + | S45 + | S46 + | S47 + | S48 + | S49 + | S50 + deriving stock (Eq, Show, Enum, Bounded) + +instance NFData S where + rnf = (`seq` ()) + +-- | Enum encoding for 'S'. +-- +-- >>> isInjective (encodeEnumAs @Text @S) +-- True +instance EnumEncodingAs Text S where + encodeEnumAs = \case + S01 -> "text_01" + S02 -> "text_02" + S03 -> "text_03" + S04 -> "text_04" + S05 -> "text_05" + S06 -> "text_06" + S07 -> "text_07" + S08 -> "text_08" + S09 -> "text_09" + S10 -> "text_10" + S11 -> "text_11" + S12 -> "text_12" + S13 -> "text_13" + S14 -> "text_14" + S15 -> "text_15" + S16 -> "text_16" + S17 -> "text_17" + S18 -> "text_18" + S19 -> "text_19" + S20 -> "text_20" + S21 -> "text_21" + S22 -> "text_22" + S23 -> "text_23" + S24 -> "text_24" + S25 -> "text_25" + S26 -> "text_26" + S27 -> "text_27" + S28 -> "text_28" + S29 -> "text_29" + S30 -> "text_30" + S31 -> "text_31" + S32 -> "text_32" + S33 -> "text_33" + S34 -> "text_34" + S35 -> "text_35" + S36 -> "text_36" + S37 -> "text_37" + S38 -> "text_38" + S39 -> "text_39" + S40 -> "text_40" + S41 -> "text_41" + S42 -> "text_42" + S43 -> "text_43" + S44 -> "text_44" + S45 -> "text_45" + S46 -> "text_46" + S47 -> "text_47" + S48 -> "text_48" + S49 -> "text_49" + S50 -> "text_50" diff --git a/cbits/null_string.c b/cbits/null_string.c new file mode 100644 index 0000000..f9536a3 --- /dev/null +++ b/cbits/null_string.c @@ -0,0 +1,4 @@ +// A non-null pointer to an empty C string. Needed for passing an empty value +// to libpq in case the input ByteString is backed by a null pointer, which +// libpq would interpret as SQL NULL. +const char hpqtypes_null_string_ptr[1]; diff --git a/examples/Catalog.hs b/examples/Catalog.hs index f17aa46..1c84fb3 100644 --- a/examples/Catalog.hs +++ b/examples/Catalog.hs @@ -11,23 +11,13 @@ import Data.Pool import Data.Text qualified as T import Database.PostgreSQL.PQTypes import Database.PostgreSQL.PQTypes.Internal.Utils (mread) +import GHC.Generics import System.Console.Haskeline -import System.Environment -- | Generic 'putStrLn'. printLn :: MonadIO m => String -> m () printLn = liftIO . putStrLn --- | Get connection string from command line argument. -getConnSettings :: IO ConnectionSettings -getConnSettings = do - args <- getArgs - case args of - [conninfo] -> pure defaultConnectionSettings {csConnInfo = T.pack conninfo} - _ -> do - prog <- getProgName - error $ "Usage:" <+> prog <+> "" - ---------------------------------------- -- | Representation of a book. @@ -36,21 +26,10 @@ data Book = Book , bookName :: String , bookYear :: Int32 } - deriving (Read, Show) - --- | Intermediate representation of 'Book'. -type instance CompositeRow Book = (Int64, String, Int32) + deriving stock (Generic, Read, Show) -instance PQFormat Book where - pqFormat = "%book_" - -instance CompositeFromSQL Book where - toComposite (bid, name, year) = - Book - { bookID = bid - , bookName = name - , bookYear = year - } +instance FromSQL Book where + fromSQL = decodeComposite genericDecoder withCatalog :: ConnectionSettings -> IO () -> IO () withCatalog settings = bracket_ createStructure dropStructure @@ -79,18 +58,9 @@ withCatalog settings = bracket_ createStructure dropStructure , ", FOREIGN KEY (author_id) REFERENCES authors_ (id)" , ")" ] - runSQL_ $ - mconcat - [ "CREATE TYPE book_ AS (" - , " id BIGINT" - , ", name TEXT" - , ", year INTEGER" - , ")" - ] -- Drop previously created database structures. dropStructure = runDBT cs defaultTransactionSettings $ do printLn "Dropping tables..." - runSQL_ "DROP TYPE book_" runSQL_ "DROP TABLE books_" runSQL_ "DROP TABLE authors_" @@ -101,11 +71,12 @@ processCommand cs cmd = case parse cmd of -- Display authors. ("authors", "") -> runDBT cs defaultTransactionSettings $ do runSQL_ "SELECT * FROM authors_ ORDER BY name" - mapDB_ $ \(aid :: Int64, name) -> printLn $ show aid <> ":" <+> name + mapDB_ ((,) <$> fromSQL @Int64 <*> fromSQL @String) $ \(aid, name) -> do + printLn $ show aid <> ":" <+> name -- Display books. ("books", "") -> runDBT cs defaultTransactionSettings $ do - runSQL_ "SELECT a.name, ARRAY(SELECT (b.id, b.name, b.year)::book_ FROM books_ b WHERE b.author_id = a.id) FROM authors_ a ORDER BY a.name" - mapDB_ $ \(author, CompositeArray1 (books :: [Book])) -> do + runSQL_ "SELECT a.name, ARRAY(SELECT (b.id, b.name, b.year) FROM books_ b WHERE b.author_id = a.id) FROM authors_ a ORDER BY a.name" + mapDB_ ((,) <$> fromSQL @String <*> fromSQL @[Book]) $ \(author, books) -> do printLn $ author <> ":" forM_ books $ \book -> printLn $ "*" <+> show book -- Insert an author. @@ -115,12 +86,10 @@ processCommand cs cmd = case parse cmd of "INSERT INTO authors_ (name) VALUES (" name <+> ")" Nothing -> printLn "Invalid name" -- Insert a book. - ("insert_book", mbook) -> case mread mbook of + ("insert_book", mbook) -> case mread @(String, Int32, Int64) mbook of Just record -> runDBT cs defaultTransactionSettings . runQuery_ $ - rawSQL - "INSERT INTO books_ (name, year, author_id) VALUES ($1, $2, $3)" - (record :: (String, Int32, Int64)) + rawSQL "INSERT INTO books_ (name, year, author_id) VALUES ($1, $2, $3)" record Nothing -> printLn "Invalid book record" -- Handle unknown commands. _ -> printLn $ "Unknown command:" <+> cmd @@ -139,11 +108,12 @@ processCommand cs cmd = case parse cmd of -- -- If you want to check out exceptions in action, -- try inserting a book with invalid author id. -catalog :: IO () -catalog = do - cs <- getConnSettings +catalog :: T.Text -> IO () +catalog connInfo = do + let cs = defaultConnectionSettings {csConnInfo = connInfo} withCatalog cs $ do - ConnectionSource pool <- poolSource (cs {csComposites = ["book_"]}) (\connect disconnect -> defaultPoolConfig connect disconnect 1 10) + ConnectionSource pool <- poolSource cs $ \connect disconnect -> + defaultPoolConfig connect disconnect 1 10 runInputT defaultSettings . fix $ \next -> getInputLine "> " >>= maybe diff --git a/examples/OuterJoins.hs b/examples/OuterJoins.hs index 903859d..9e260a0 100644 --- a/examples/OuterJoins.hs +++ b/examples/OuterJoins.hs @@ -4,26 +4,15 @@ import Control.Monad import Control.Monad.Base import Control.Monad.Catch import Data.Int -import Data.Monoid.Utils import Data.Pool import Data.Text qualified as T import Database.PostgreSQL.PQTypes -import System.Environment +import GHC.Generics -- | Generic 'putStrLn'. printLn :: MonadBase IO m => String -> m () printLn = liftBase . putStrLn --- | Get connection string from command line argument. -getConnSettings :: IO ConnectionSettings -getConnSettings = do - args <- getArgs - case args of - [conninfo] -> pure defaultConnectionSettings {csConnInfo = T.pack conninfo} - _ -> do - prog <- getProgName - error $ "Usage:" <+> prog <+> "" - ---------------------------------------- tmpID :: Int64 @@ -31,30 +20,20 @@ tmpID = 0 data Attribute = Attribute { attrID :: !Int64 - , attrKey :: !String - , attrValues :: ![String] + , attrKey :: !T.Text + , attrValues :: ![T.Text] } - deriving (Show) + deriving stock (Generic, Show) data Thing = Thing { thingID :: !Int64 - , thingName :: !String + , thingName :: !T.Text , thingAttributes :: ![Attribute] } - deriving (Show) - -type instance CompositeRow Attribute = (Int64, String, Array1 String) + deriving stock (Show) -instance PQFormat Attribute where - pqFormat = "%attribute_" - -instance CompositeFromSQL Attribute where - toComposite (aid, key, Array1 values) = - Attribute - { attrID = aid - , attrKey = key - , attrValues = values - } +instance FromSQL Attribute where + fromSQL = decodeComposite genericDecoder withDB :: ConnectionSettings -> IO () -> IO () withDB settings = bracket_ createStructure dropStructure @@ -89,18 +68,9 @@ withDB settings = bracket_ createStructure dropStructure , ", FOREIGN KEY (attribute_id) REFERENCES attributes_ (id)" , ")" ] - runSQL_ $ - mconcat - [ "CREATE TYPE attribute_ AS (" - , " id BIGINT" - , ", key TEXT" - , ", value TEXT[]" - , ")" - ] -- Drop previously created database structures. dropStructure = runDBT cs defaultTransactionSettings $ do printLn "Dropping tables..." - runSQL_ "DROP TYPE attribute_" runSQL_ "DROP TABLE values_" runSQL_ "DROP TABLE attributes_" runSQL_ "DROP TABLE things_" @@ -111,13 +81,13 @@ insertThings = mapM_ $ \Thing {..} -> do rawSQL "INSERT INTO things_ (name) VALUES ($1) RETURNING id" (Identity thingName) - tid :: Int64 <- fetchOne runIdentity + tid <- fetchOne $ fromSQL @Int64 forM_ thingAttributes $ \Attribute {..} -> do runQuery_ $ rawSQL "INSERT INTO attributes_ (key, thing_id) VALUES ($1, $2) RETURNING id" (attrKey, tid) - aid :: Int64 <- fetchOne runIdentity + aid <- fetchOne $ fromSQL @Int64 forM_ attrValues $ \value -> runQuery_ $ rawSQL @@ -127,21 +97,21 @@ insertThings = mapM_ $ \Thing {..} -> do selectThings :: DBT IO [Thing] selectThings = do runSQL_ $ "SELECT t.id, t.name, ARRAY(" <> attributes <> ") FROM things_ t ORDER BY t.id" - fetchMany $ \(tid, name, CompositeArray1 attrs) -> + fetchMany $ Thing - { thingID = tid - , thingName = name - , thingAttributes = attrs - } + <$> fromSQL + <*> fromSQL + <*> fromSQL where - attributes = "SELECT (a.id, a.key, ARRAY(" <> values <> "))::attribute_ FROM attributes_ a WHERE a.thing_id = t.id ORDER BY a.id" + attributes = "SELECT (a.id, a.key, ARRAY(" <> values <> ")) FROM attributes_ a WHERE a.thing_id = t.id ORDER BY a.id" values = "SELECT v.value FROM values_ v WHERE v.attribute_id = a.id ORDER BY v.value" -outerJoins :: IO () -outerJoins = do - cs <- getConnSettings +outerJoins :: T.Text -> IO () +outerJoins connInfo = do + let cs = defaultConnectionSettings {csConnInfo = connInfo} withDB cs $ do - ConnectionSource pool <- poolSource (cs {csComposites = ["attribute_"]}) (\connect disconnect -> defaultPoolConfig connect disconnect 1 10) + ConnectionSource pool <- poolSource cs $ \connect disconnect -> + defaultPoolConfig connect disconnect 1 10 runDBT pool defaultTransactionSettings $ do insertThings [ Thing diff --git a/ghc-tags.yaml b/ghc-tags.yaml index aec4222..d75fd5c 100644 --- a/ghc-tags.yaml +++ b/ghc-tags.yaml @@ -1,8 +1,6 @@ source_paths: +- bench +- bench-db +- examples - src - test -cpp_includes: -- libpqtypes/src -cpp_options: -- -DMIN_VERSION_QuickCheck(x,y,z)=1 -- -DMIN_VERSION_aeson(x,y,z)=1 diff --git a/hpqtypes.cabal b/hpqtypes.cabal index 2e64faa..d4a512d 100644 --- a/hpqtypes.cabal +++ b/hpqtypes.cabal @@ -1,14 +1,12 @@ cabal-version: 3.0 build-type: Simple name: hpqtypes -version: 1.14.1.0 -synopsis: Haskell bindings to libpqtypes +version: 2.0.0.0 +synopsis: Haskell bindings to libpq -description: Efficient and easy-to-use bindings to (slightly modified) - @libpqtypes@, a @libpq@ extension that adds support - for a binary transport format and composite types. - . - Source code of libpqtypes is bundled along with the bindings. +description: Efficient and easy-to-use bindings to @libpq@ that use + the binary transport format for queries and their + results. . Examples can be found in the @@ -21,188 +19,172 @@ author: Scrive AB maintainer: Andrzej Rybczak copyright: Scrive AB category: Database -tested-with: GHC == { 9.2.8, 9.4.8, 9.6.7, 9.8.4, 9.10.3, 9.12.4, 9.14.1 } +tested-with: GHC == { 9.6.7, 9.8.4, 9.10.3, 9.12.4, 9.14.1 } extra-source-files: README.md , CHANGELOG.md , examples/Catalog.hs - , libpqtypes/AUTHORS - , libpqtypes/Makefile.in - , libpqtypes/config.guess - , libpqtypes/groff2html - , libpqtypes/win32.mak - , libpqtypes/ChangeLog - , libpqtypes/Makefile.win32 - , libpqtypes/config.sub - , libpqtypes/install-sh - , libpqtypes/INSTALL - , libpqtypes/README - , libpqtypes/configure - , libpqtypes/ltmain.sh - , libpqtypes/LICENSE - , libpqtypes/acinclude.m4 - , libpqtypes/configure.ac - , libpqtypes/missing - , libpqtypes/Makefile.am - , libpqtypes/aclocal.m4 - , libpqtypes/src/pqt_config.h - , libpqtypes/src/pqt_config.h.in - , libpqtypes/src/libpqtypes-int.h - , libpqtypes/src/libpqtypes.h source-repository head type: git location: https://github.com/scrive/hpqtypes.git +common language + ghc-options: -Wall + -Wcompat + -Werror=missing-deriving-strategies + -Werror=prepositive-qualified-module + + default-language: Haskell2010 + + default-extensions: BangPatterns + ConstraintKinds + DataKinds + DeriveAnyClass + DeriveFunctor + DeriveGeneric + DerivingStrategies + DerivingVia + FlexibleContexts + FlexibleInstances + FunctionalDependencies + GADTs + GeneralizedNewtypeDeriving + ImportQualifiedPost + LambdaCase + NoStarIsType + OverloadedRecordDot + OverloadedStrings + RankNTypes + RecordWildCards + RoleAnnotations + ScopedTypeVariables + StandaloneDeriving + TupleSections + TypeApplications + TypeFamilies + TypeOperators + UndecidableInstances + library + import: language + exposed-modules: Data.Monoid.Utils , Database.PostgreSQL.PQTypes - , Database.PostgreSQL.PQTypes.Composite - , Database.PostgreSQL.PQTypes.ToRow - , Database.PostgreSQL.PQTypes.Utils - , Database.PostgreSQL.PQTypes.FromSQL - , Database.PostgreSQL.PQTypes.Array - , Database.PostgreSQL.PQTypes.Fold - , Database.PostgreSQL.PQTypes.FromRow - , Database.PostgreSQL.PQTypes.JSON - , Database.PostgreSQL.PQTypes.ToSQL - , Database.PostgreSQL.PQTypes.Transaction , Database.PostgreSQL.PQTypes.Class , Database.PostgreSQL.PQTypes.Cursor + , Database.PostgreSQL.PQTypes.Enum + , Database.PostgreSQL.PQTypes.Fold , Database.PostgreSQL.PQTypes.Format - , Database.PostgreSQL.PQTypes.Interval - , Database.PostgreSQL.PQTypes.Notification - , Database.PostgreSQL.PQTypes.SQL - , Database.PostgreSQL.PQTypes.SQL.Raw - , Database.PostgreSQL.PQTypes.SQL.Class - , Database.PostgreSQL.PQTypes.Transaction.Settings - , Database.PostgreSQL.PQTypes.XML + , Database.PostgreSQL.PQTypes.FromSQL , Database.PostgreSQL.PQTypes.Internal.BackendPid + , Database.PostgreSQL.PQTypes.Internal.C.Interface + , Database.PostgreSQL.PQTypes.Internal.C.Types + , Database.PostgreSQL.PQTypes.Internal.Connection , Database.PostgreSQL.PQTypes.Internal.Error , Database.PostgreSQL.PQTypes.Internal.Error.Code - , Database.PostgreSQL.PQTypes.Internal.Composite - , Database.PostgreSQL.PQTypes.Internal.Utils - , Database.PostgreSQL.PQTypes.Internal.Connection , Database.PostgreSQL.PQTypes.Internal.Exception , Database.PostgreSQL.PQTypes.Internal.Monad , Database.PostgreSQL.PQTypes.Internal.Notification + , Database.PostgreSQL.PQTypes.Internal.Oid , Database.PostgreSQL.PQTypes.Internal.QueryResult + , Database.PostgreSQL.PQTypes.Internal.RowDecoder , Database.PostgreSQL.PQTypes.Internal.State - , Database.PostgreSQL.PQTypes.Internal.C.Put - , Database.PostgreSQL.PQTypes.Internal.C.Types - , Database.PostgreSQL.PQTypes.Internal.C.Interface - , Database.PostgreSQL.PQTypes.Internal.C.Get + , Database.PostgreSQL.PQTypes.Internal.Utils + , Database.PostgreSQL.PQTypes.Interval + , Database.PostgreSQL.PQTypes.JSON + , Database.PostgreSQL.PQTypes.Notification + , Database.PostgreSQL.PQTypes.SQL + , Database.PostgreSQL.PQTypes.SQL.Class + , Database.PostgreSQL.PQTypes.SQL.Raw + , Database.PostgreSQL.PQTypes.ToRow + , Database.PostgreSQL.PQTypes.ToSQL + , Database.PostgreSQL.PQTypes.Transaction + , Database.PostgreSQL.PQTypes.Transaction.Settings + , Database.PostgreSQL.PQTypes.Utils + , Database.PostgreSQL.PQTypes.XML - build-depends: base >= 4.16 && < 5 - , text >= 0.11 - , aeson >= 1.0 - , async >= 2.1.1.1 + build-depends: base >= 4.18 && < 5 + , aeson >= 2.0 + , binary-parser >= 0.5 , bytestring >= 0.9 - , time >= 1.4 - , vector >= 0.10 - , transformers-base >= 0.4 - , monad-control >= 1.0.3 - , lifted-base >= 0.2 - , resource-pool >= 0.4 - , mtl >= 2.1 - , transformers >= 0.2.2 , containers >= 0.5.0.0 , exceptions >= 0.9 + , iproute >= 1.7 + , lifted-base >= 0.2 + , monad-control >= 1.0.3 + , mtl >= 2.1 + , postgresql-binary >= 0.15 + , resource-pool >= 0.4 + , scientific >= 0.3.8.0 , stm >= 2.5.0.0 + , text >= 0.11 , text-show >= 2 + , time >= 1.4 + , transformers >= 0.2.2 + , transformers-base >= 0.4 , uuid-types >= 1.0.3 + , vector >= 0.10 pkgconfig-depends: libpq hs-source-dirs: src - ghc-options: -Wall -Werror=prepositive-qualified-module + c-sources: cbits/null_string.c - include-dirs: libpqtypes/src +benchmark bench + import: language - cc-options: -DHAVE_CONFIG_H -D_GNU_SOURCE -D_REENTRANT -std=gnu99 -fsigned-char -fno-strict-aliasing -Wall -Wextra + type: exitcode-stdio-1.0 - c-sources: libpqtypes/src/array.c - , libpqtypes/src/datetime.c - , libpqtypes/src/error.c - , libpqtypes/src/events.c - , libpqtypes/src/exec.c - , libpqtypes/src/ffi.c - , libpqtypes/src/geo.c - , libpqtypes/src/handler.c - , libpqtypes/src/misc.c - , libpqtypes/src/network.c - , libpqtypes/src/numerics.c - , libpqtypes/src/param.c - , libpqtypes/src/port.c - , libpqtypes/src/record.c - , libpqtypes/src/spec.c - , libpqtypes/src/utils.c - , libpqtypes/src/varlena.c + hs-source-dirs: bench + main-is: Main.hs - default-language: Haskell2010 - default-extensions: BangPatterns - , CApiFFI - , ConstraintKinds - , DataKinds - , DeriveFunctor - , DerivingStrategies - , ExistentialQuantification - , FlexibleContexts - , FlexibleInstances - , ForeignFunctionInterface - , GADTs - , GeneralizedNewtypeDeriving - , ImportQualifiedPost - , LambdaCase - , MultiParamTypeClasses - , MultiWayIf - , OverloadedStrings - , RankNTypes - , RecordWildCards - , ScopedTypeVariables - , StandaloneDeriving - , TypeApplications - , TupleSections - , TypeFamilies - , TypeOperators - , UndecidableInstances - other-extensions: AllowAmbiguousTypes - , CPP + build-depends: hpqtypes + , base + , bytestring + , containers + , deepseq >= 1.4 + , tasty-bench >= 0.3 + , text + , time + , vector benchmark bench-db + import: language + type: exitcode-stdio-1.0 - ghc-options: -Wall -Werror=prepositive-qualified-module -threaded + ghc-options: -threaded hs-source-dirs: bench-db main-is: Main.hs build-depends: hpqtypes - , base >= 4.14 && < 5 + , base , deepseq >= 1.4 - , resource-pool >= 0.4 + , resource-pool , tasty-bench >= 0.3 - , text >= 0.11 - , time >= 1.4 - - default-language: Haskell2010 - default-extensions: ConstraintKinds - , GADTs - , ImportQualifiedPost - , LambdaCase - , OverloadedStrings - , RankNTypes - , TypeFamilies + , text + , time test-suite test + import: language + type: exitcode-stdio-1.0 - ghc-options: -Wall -Werror=prepositive-qualified-module -threaded + ghc-options: -threaded "-with-rtsopts=-N4" hs-source-dirs: test main-is: Main.hs - other-modules: Prelude.Instances - Test.Aeson.Compat + other-modules: Test.Array + Test.Connection + Test.Cursor + Test.Enum + Test.Env Test.QuickCheck.Arbitrary.Instances + Test.RowDecoder + Test.Transaction + Test.Tuples + Test.Types -- make sure examples compile hs-source-dirs: examples @@ -210,51 +192,24 @@ test-suite test OuterJoins build-depends: hpqtypes - , base >= 4.14 && < 5 - , HUnit >= 1.2 , QuickCheck >= 2.7 - , aeson >= 0.6.2.0 - , bytestring >= 0.9 - , exceptions >= 0.6 - , lifted-base >= 0.2 - , monad-control >= 1.0.3 - , mtl >= 2.1 - , random >= 1.0 + , aeson + , base + , bytestring + , exceptions , haskeline >= 0.8.0.0 - , resource-pool >= 0.4 + , iproute + , lifted-base + , monad-control + , mtl + , random >= 1.3 + , resource-pool , scientific - , test-framework >= 0.8 - , test-framework-hunit >= 0.3 - , text >= 0.11 + , tasty >= 1.4 && < 1.5.4 + , tasty-hunit >= 0.10 + , text , text-show - , time >= 1.4 - , transformers-base >= 0.4 - , vector + , time + , transformers-base , uuid-types - - default-language: Haskell2010 - default-extensions: BangPatterns - , ConstraintKinds - , DataKinds - , DeriveFunctor - , DerivingStrategies - , ExistentialQuantification - , FlexibleContexts - , FlexibleInstances - , ForeignFunctionInterface - , GADTs - , GeneralizedNewtypeDeriving - , ImportQualifiedPost - , LambdaCase - , MultiParamTypeClasses - , MultiWayIf - , OverloadedStrings - , RankNTypes - , RecordWildCards - , ScopedTypeVariables - , StandaloneDeriving - , TupleSections - , TypeApplications - , TypeFamilies - , TypeOperators - , UndecidableInstances + , vector diff --git a/libpqtypes/AUTHORS b/libpqtypes/AUTHORS deleted file mode 100644 index b052367..0000000 --- a/libpqtypes/AUTHORS +++ /dev/null @@ -1,32 +0,0 @@ - -LIBPQTYPES LIBRARY ------------------- - -Distributed by: - - eSilo, LLC. (see LICENSE file) - -Maintainers: -People who currently fix bugs and perform most of the forward development. - - Andrew Chernow ac (at) esilo (dot) com - -Written by: -Original people behind the libpqtypes project core functionality and -architecture (June 2007 - Apr 2008). The wounded warriors who battled the -PostgreSQL team trying to get libpqtypes into the main source tree. That -battle continues to be waged as we believe libpqtypes is a far more -advanced and powerful client interface for PostgreSQL than the vanilla libpq. - - Andrew Chernow ac (at) esilo (dot) com - Merlin Moncure mmoncure (at) gmail (dot) com - -Contributors: -People who have proven to be helpful over the years with their critical -thinking, design ideas and bug detection. - - Jeremy Smith jeremy (at) esilo (dot) com - - -> Last updated 2011-04-10 - diff --git a/libpqtypes/ChangeLog b/libpqtypes/ChangeLog deleted file mode 100644 index a2cc303..0000000 --- a/libpqtypes/ChangeLog +++ /dev/null @@ -1,335 +0,0 @@ - -LIBPQTYPES CHANGE LOG ---------------------- - -Initially, libpqtypes was a libpq patch named (PQparam/PGparam) and can -be found on the -hackers and -patches mailing lists. This change log -begins at the point libpqtypes was put on pgfoundry as its own project. - -To gain access to the "(NOT RELEASED)" code, do a cvs checkout. - -Jun 27, 2013 v1.5.1 -- fixed issue in spec.c where the type name was not being lower cased - when it was required. -- Moved AUTHORS, ChangeLog, INSTALL, LICENSE and README to EXTRA_DIST - - Jozef Mlich -- Modified configure.ac and Makefile.am to properly do SO versioning. - - Jozef Mlich -- error.c uses the GCC contructor attribute so it can create the the - TLS key for each thread's error structure. For whatever reason, - calling the constructor function 'my_init' was causing it to never - get called?!? Renamed it and all is well. This becomes apparent - when libpqtypes is linked with apps using pthread_key_create. -- Removed -no-undefined from LDFLAGS in Makefile.am. This proved to be - annoying. -- Updated groff2html so it no longer includes an inline style for - pre tag width. -- Updated pqt-handlers.3, the PGtypeHandler structure was out of date. -- pqt-composites.3 man page had a bug when registering the simple and complex - composite. It was only indicating 1 type instead of 2. - -Apr 11, 2011 v1.5.0 -- Bumped version to 1.5.0 due to many API removals and additions. -- Added -avoid-version and -no-undefined to Makefile.am. -- Added PQinitTypes to replace PQtypesRegister. The new function - adds no new behavior, just a name change. -- Deprecated PQtypesRegister, use PQinitTypes in its place. -- PQclearTypes was added to allow one to clear all registered type handlers. -- Added an internal API pqt_cleartypes since clearing the type data - is now called from PQclearTypes and pqt_eventproc. -- Added a PQclearSpecs function that allows clearing all prepared specifiers - in a single call. Currently, specs can be cleared one at a time by - setting PQspecPrepare's 3rd 'format' argument to NULL. This is useful - but makes clearing all specs difficult because it is not always known - what specs have been prepared by all modules of an application. -- Removed "automatic" re-registering of types during PQresetXXX. This - fails miserably during asynchronous resets. Replaced with the - folowing call sequence: PQresetXXX, PQclearTypes, PQregisterTypes. - NOTE: It is not required to re-register type handlers after a PQresetXXX. - It is only useful if there is concern that registered types may have - gone stale. - WARNING: If an application is reliant upon automatic re-registration of - type handlers during a PQresetXXX, you will have to update your - code to manually do a PQclearTypes followed by PQregisterTypes just - after the reset call. -- Removed the orig_xxx members and regtype from PGtypeHandler structure. - These members were used by the reset event which was yanked. -- Finally 86'd PQregisterTypeHandler, which has been deprecated since - v1.4.0, around 18 months as of Apr 2011. -- Updated copyright date from 2009 to 2011, affected source code and - man pages. -- Updated AUTHORS file to include a list of maintainers and some verbage. -- Deprecated PQregisterSubClasses, PQregisterComposites and - PQregisterUserDefinedTypes in favor of PQregisterTypes. This new - function takes a 'which' argument that indicates if PQT_SUBCLASS, - PQT_COMPOSITE or PQT_USERDEFINED types are being registered. This - function provides full support for asynchronous type registration via - a simple 'async' boolean argument. The typical PQconsumeInput, PQisBusy - and PQgetResult should be used to obtain a result. After a result is - obtained, the new PQregisterResult function needs to be called - to complete the registration. -- Added PQregisterResult which registers the types found within - the result set. Added to support asynchronous type registration and - to avoid type lookups for every new connection by caching the PGresult - type data for use with this function. -- Add PQregisterTypes.3 man page and added it to the make system install. -- Add PQregisterResult.3 man page and added it to the make system install. -- Removed referneces in documentation and code examples to PQregisterSubClasses, - PQregisterComposites and PQregisterUserDefinedTypes. Replaced with - new PQregisterTypes call. -- Regression test now uses PQregisterTypes. NOTE: no regression test - for PQregisterResult or asynchronous type registration yet. -- Marked PQregisterSubClasses.3, PQregisterComposites.3 and - PQregisterUserDefinedTypes.3 man pages as deprecated. They are still - installed with a `make install` and will be until removed. -- Added PQparamDup, which given a PGparam will make an exact duplicate. - This is useful in cases where you want to queue qeuries to execute - at a later time, like a connection pooler. The problem is PGparamCreate - requires a connection object, which may not be available when attempting - to enqueue a query with its PGparam object. Instead, a PGparam object - can used for the sole purpose of creating duplicates while there are - no available PGconn objects. -- Updated PGparamCreate man page to include documentation about PGparamDup. - -Feb 26, 2010 v1.4.3 -- Fixed bug in handler.c. The type lookup query was matching typename - its array based on the array name being '_' plus the typename. This - was slower and unsafe. - -Oct 03, 2010 v1.4.2 -- Fixed bug in events.c. When clearing a type handler list the 'max' count - (amount allocated) was not set to zero. This caused a crash during - a PQreset call. -- Updated PQgetf documentation, clarified how to handle errors when - getting data types that require memory management: PGresult and PGarray. -- Moved libpq-events.h out of libpqtypes.h and into libpqtypes-int.h. - Added libpq-fe to libpqtypes.h. - -Apr 06, 2010 v1.4.1 -- Fix memory leak in events.c during PGEVT_CONNRESET. Not a big deal as the - leak occurs within an out-of-memory error case, so the process is most - likely toast. Either way, leak has been plugged. -- pqt_allowsptr was returning FALSE if the type's schema was not provided. - It now returns TRUE as it should. -- Fixed how missing types are handled during register functions. They were - not properly indicating errors in all cases. - -Nov 10, 2009 v1.4.0 -- Added PQgetvf to compliment PQgetf. PQgetf is now a light wrapper - PQgetvf. This did not change the behavior of PQgetf in any way. -- Fixed bug in IPv6 regression_test. When AF_INET6 is available, the - 'hints' parameter to getaddrinfo should be supplied with the ai_family - set to AF_INET6. -- 63% Performance improvement to the type handling duplication which occurs - whenever a result is copied or a PGparam is created. Previously, the - type handlers contained allocated strings for the identifier names: - like type and schema name. When duplicating the handlers, the strdup - cost added up to a noticeable amount of time (mostly seen during - PQgetf(a_composite_or_array) which duplicates the handlers when generating - a new PGresult). These strings were changed to fixed length buffers - 65 bytes wide; 64 max char identifier plus terminating NUL. The names - no longer need to be deep copied, they are instead copied as part of a - larger memcpy. Additionally, the attDescs array now uses a fixed length - buffer when the number of compsoite attrs is <= 16 (common case). When - larger, allocation is used. 'freeAttDescs' flag was added to the - PGtypeHandler structure to indicate if the attDescs requires freeing. - In total, these changes made type handling duplication 63% faster. - NOTE: - This increased the size of PGtypeHandler by around 434 bytes. The - size of PGrecordAttDesc increased by 65 bytes. This change modified - 2 public structures so please ensure your libpqtypes.h is current. -- Split PQregisterTypeHandler into three different functions: - PQregisterComposites, PQregisterUserDefinedTypes and PQregisterSubClasses. - This was done for two reasons: needed the ability to register multiple - types at the same time, avoid round trip issues, and simplify the interface. -- PQregisterTypeHandler is now deprecated and should no longer be used. It - exists only for compatibility reasons. It is a wrapper to - PQregisterComposites, PQregisterUserDefinedTypes and PQregisterSubClasses. -- The PGEVT_REGISTER event was not be handled properly by libpqtypes. It - neglected to initialize the internal type formatting information. -- Error case in pqt_parse() was accessing a NULL pointer. -- Bug in network.c when getting text inet/cidr types. Apparently, windows - requires a few hints about the address family when using getaddrinfo: - both IPv4 and IPv6. This must be a recent Microsoft winsock update as - this code used to work. - -Sep 15, 2009 v1.3.4 -- In v1.2b, a caching system for type spec format strings was introduced. - PQputf and PQgetf would cache the last spec format seen, like "%int4". - This avoided constant type handling lookups when using arrays, since - one must put/get every element. This version expands on this concept - by adding an additional API call: PQspecPrepare. The application can - now prepare an unlimited number of spec format strings. - NOTE: - This change does not effect the behavior of putf or getf in older versions. - Although, some libpqtypes code may run slower since type spec format - strings are no longer automatically cached. If you have loops calling - putf or getf with the same spec format string, typically arrays, you - would probably benefit from PQspecPrepare. -- Added a PQsendf() and PQsendvf(), same as PQexecf and PQexecvf except they - are asynchronous versions. Created manual pages for these functions as well. -- Fixed a bug in PQexecf and PQexevf documentation, the prototypes were - documented as returning an int rather than a PGresult*. -- Fixed spelling error in PQspecPrepare.3 man page and added PQsendf and - PQsendvf to the list of supported functions. -- Fixed memory leak in the error handling code. Multi-threaded windows - builds were not cleaning up the internal error structure in error.c. - This is because windows has no automatic cleanup for TLS storage. The - only solution was to use fixed length buffers and truncate unusually - long error messages; including error fields. - -May 29, 2009 v1.3.3 -- Added PQexecf and PQexecvf which allows one to pack parameters and - execute a command all in one statement. Example: - PQexecf(conn, "SELECT %int4 + %int4", 1, 1); -- Updated the PQputf.3 man page execf documentation which stated that - execf should be implemented by the application ... not libpqtypes. - Apparently, we no longer feel that way :) -- Fixed bug in datetime.c that accessed index 7 of a 7 byte array, ooppps. - Thanks to GCC version 4.3.2 for catching this one: - "src/datetime.c:930: warning: array subscript is above array bounds" - -Apr 27, 2009 v1.3.2 -- Slight change in the behavior of PQputf and PQputvf. These functions - will now silently auto-fill unset composite fields with NULLs. This only - pertains to the last N fields: if there are 10 fields in a compsoite - and only 7 are put, the last 3 fields will be auto-filled with SQL NULLs. - Previously, an error was raised indicating the client and server have - different ideas about the number of fields in the composite. That error - is still raised if the number of params exceeds the number of composite - fields. Auto-filling only occurs when the number of params falls short. -- User-defined CFLAGS were being lost due to a dumb assigment at the - top of the script. It now properly appends flags to the ones supplied - by the user. -- Updated PQgetf man page to include a warning about getting arrays and - composites. If getf fails after an array or composite was retrieved, - the PGresult representing the array/composite must still be cleared. - The solution is to get arrays/composites by themselves or to always - make them the last field in the getf call (the latter only works - if there is only one array or composite in the field list). -- Fixed SEGFAULT when getting a NULL compsoite array item. - -Feb 11, 2009 v1.3.1 -- PQgetf of an empty array was always returning a result with a single - tuple (array item), eventhough the PGarray members were correctly set - for an empty array. This has been fixed. -- Added empty array test to regression-test.c. -- getaddrinfo is missing on Windows 2000 and earlier versions. Wspiapi.h - and ws2tcpip.h must be included to provide a replacement. libpqtypes-int.h - neglected to include Wspiapi.h, which it now does. - Microsoft docs on issue: http://support.microsoft.com/kb/955045 - -Feb 03, 2009 v1.3.0 -- The internal put_int2 and put_int4 type handlers were passing a va_arg - call as an argument to the pqt_buf_putint2 and pqt_buf_putint4 macros. - This corrupted the value being put on UnixWare 7.1.4. The return - of va_arg is now stored in a local variable that is passed to - one of the putintX macros. -- Renamed PGinet sa_len member since it conflicts with some systems. - For instance: SCO UnixWare defines a sa_len macro in sys/socket.h - #define sa_len sa_un.sa_s.sa_saus_len - Renamed it to sa_buf_len and changed all references. -- network.c had an issue with struct sockaddr not being zero'd on AIX. - This caused all inet/cidr tests to fail. Update regresion-test.c - with similar fixes. -- AI_NUMERICHOST defined if not available in network.c. If getaddrinfo - fails with EAI_BADFLAGS, its tried again w/o numeric host. -- AIX defaults to an unsigned char, which broke "char" type handling. - Changed PGchar typedef to signed char and added the GCC option - -fsigned-char to configure.ac. -- Changed the return type of PQgeterror from a const char* to a char*. - Having it be const served no purpose. -- Added PQparamCount which returns the number of parameters in a PGparam. - Added PQparamCount.3 man page and updated Makefile. -- Made errFields implementation more memory efficient by allocating all - fields as a single reusable buffer. -- Reformatted code to match PostgreSQL Project. This changed every - source file so take note when looking at CVS diffs. -- Defined HAVE_VSNPRINTF in port.c when compiling for mingw or cygwin. -- Fixed man page errors in PQputf and pqt-handlers. -- Updated INSTALL file to include the 'install' and uninstall' targets. -- Makefile.am (unix make) now installs PQgetErrorField man page. -- Update copyright notices to reflect 2009: source files, LICENSE - and man pages. -- Removed typeargs state flag PUT_STATE_FREEOUT from param.c since it - is no longer used. - -Dec 03, 2008 v1.2e -- Added support for PQresultErrorField as PQgetErrorField. PQparamExec and - PQparamExecPrepared clear resutls in a failure status, thus removing - the abillity to get error fields. PQgetErrorField can now be used and - it doesn't require a result. - -Dec 02, 2008 v1.2d -- Fixed bug when putting a NULL array item; %null or %pqt.null. array.c - was not adding in the 4 byte length when the length's value was NULL_LEN. - This resulted in "ERROR: insufficient data left in message" errors from - the server during a PQparamExec() call. -- Added a %null test in regression-test.c for composites and arrays. - -Nov 18, 2008 v1.2c -- removed GCC __thread modifier from error.c. Only pthread TLS keys - are now used. The TLS key for the error system is now intialized - with the GCC function attribute "constructor"; which replaced _init(). - This GCC attribute has been around since GCC version 2.7.0, old enough. - The error system used to intialize the TLS key via pthread_once(), - but this function is broken on all version of Solaris prior to 10 - (its actually a stub function the returns 0). This means libpqtypes - versions prior to this one cannot use thread-safe mode on Solaris 9 or - below. Windows continues to use __declspec(thread). -- The PATH geo type was completely broken (SIGBUS) on many RISC processors, - we tested a couple of UltraSparcs, Itanium, PA-RISC and MIPS. This is - due to memory alignment issues (boy, spoiled by x86!). A configure - check was added to detect when strict memory alignment is required - (STRICT_MEMORY_ALIGNMENT) and the source is toggled appropriately. -- Add pqt_buf_xxx functions to abstract reading and writing data - to/from buffers. Another memory alignment change. -- fixed regression-test.c on hpux which was referencing unknown macros: - LLONG_MAX and LLONG_MIN. HPUX uses LONG_LONG_MAX. -- cleaned up a few things in Makefile.am (unix make file) -- win32.mak for MSVC had an issue with include variable. created INC2 - to solve this. - -Nov 11, 2008 v1.2b -- Added a type specifier caching system. Whenever putf or getf are - called, it compares the specifier string with the last one libpqtypes - saw. If it is a match, the parsing and type handler lookup - stage can be bipassed, giving a 25% performance increase for arrays - and large result sets. This also makes libpqtypes noticably faster - than using libpq in text mode ... PQexec. -- preprocessing bug in port.c, #elif HAVE_VSNPRINTF instead of - #elif defined(HAVE_VSNPRINTF). -- windows was completely broken from a change in v1.2a. Apparantley - windows has different memory addresses for DLL exported functions; - the address seen outside the DLL and the address seen from within the DLL. - This broke the PQtypesRegister macro that was referencing PQtypesEventProc, - since the external address was being used to register the event proc - but the internal address was being used by libpqtypes. This problem was - solved by converting PQtypesRegister to a function, which forces the - event proc to always be referenced from within libpqtypes. - PQtypesEventProc was completely removed form the public interface. -- Updated make system to be more configurable, allows setting things - like CC, CFLAGS, etc.. at the prompt (see INSTALL). - -Sept 26, 2008 v1.2a -- libpqtypes uses the libpq event system, an approaved patch for 8.4. - The object hooks patch was redesigned and than renamed to libpq events. -- bug fix in timestamp code -- memory leak fix in error system, didn't clean up thread memory. -- pqytpe's PGEventProc is now a public function named PQtypesEventProc - -May 19, 2008 v1.0c -- Bug fix in datetime.c. When performing a time value conversion, 1-based - and 0-based month values were being used/confused. -- libpqtypes using objecthooks, a proposed patch for libpq allowing - outside apps, like libpqtypes, to hook into libpq. - -May 09, 2008 v1.0b -- Added copyright notice to all source files. -- Updated several man pages. -- Added an include for stdarg.h to libpqtypes.h -- Updated makefile and groff2html - -April 28, 2008 v1.0 -- libpqtypes project was created on pgfoundry -- make system was put into place (mingw, cygwin and msvc support) diff --git a/libpqtypes/INSTALL b/libpqtypes/INSTALL deleted file mode 100644 index 5a80559..0000000 --- a/libpqtypes/INSTALL +++ /dev/null @@ -1,119 +0,0 @@ - -LIBPQTYPES INSTALLTION GUIDE ----------------------------- - -*) UNIX BUILDS - -For quick builds, run the below: - - ]# ./configure - ]# make - ]# make install - - (Also `make uninstall', which removes all installed headers, - libs and mans pages) - -By default, only a shared library is built. To build a static -library, use the `--enable-static' option. - -To build a thread-safe version, use the `--enable-thread-safety' option. -To use libpqtypes in a thread-safe environment, the system must have -pthreads installed. Most systems will have /usr/include/pthread.h -and /usr/lib/libpthread.so or /usr/lib/libthread.so. - -The default prefix is `/usr/local', so if the `--prefix' option is -not specified the header file(s) will be installed at -/usr/local/include and the library file(s) will be installed at -/usr/local/lib. - -If your system doesn't include a `long long' data type, resulting in -a library compile error, you can specify an alternative by setting -PQT_LONG_LONG=data_type during configure. - - ]# CFLAGS="-DPQT_LONG_LONG=my_int8" ./configure - -Files installed: - - - $(prefix)/include/libpqtypes.h - - $(prefix)/lib/libpqtypes.so - -When `--enable-static' is specified: - - - $(prefix)/lib/libpqtypes.a - -To dynamically link with libpqtypes, pass -lpqtypes to the linker. - - - -*) MINGW AND CYGWIN BUILDS - -There is no configure for MinGW or Cygwin. Execute the below from -the root of the source tar ball within the cygwin shell or msys. - - ]# make -f Makefile.win32 [options] [targets] - - - -*) MSVC BUILDS - -MSVC versions 6, 7 and 8 have all been tested. Versions prior to 6 -may work but are not supported. - -The MSVC build uses `nmake' and can be executed from the root of the -source tar ball at a DOS prompt: - - > nmake -f win32.mak [options] [targets] - - - -*) MINGW, CYGWIN & MSVC BUILDS: - -For the below examples, MAKE is defined as: - - # MSVC - MAKE = nmake -f win32.mak - - # CYGWIN & MINGW - MAKE = make -f Makefile.win32 - -Targets: - - all - build the libpqtypes library - test - build the libpqtypes regression test - clean - delete all files generated by compiles - install - Install the binaries, headers and man3 pages - uninstall - Uninstalls libpqtypes, reverse of install target - -Thread-safe: - - $(MAKE) MT=1 - - NOTE: MinGW and/or Cygwin may require installing pthreads. - -Specify alternative 64-bit int data type: - - $(MAKE) PQT_LONG_LONG=my_int8 - -Global make & nmake compiler/linker variables: - - CC = C compiler - INC = includes - CFLAGS = compiler flags - LPATH = library path. MINGW and CYGWIN use -L while MSVC can supply a single path - - # If libpq is not installed and you use MSVC, try this (replace paths): - > $(MAKE) INC="-Ic:\pgsql\src\interfaces\libpq" LPATH="-Ic:\pgsql\src\interfaces\libpq\Release" - -Files generated: - - libpqtypes.dll - Windows DLL - libpqtypesdll.lib - Import lib for DLL - libpqtypes.lib - Static library - -Where to install files: - - - System Include Path: libpqtypes.h - - System Library Path: libpqtypes.dll - - System Library Path: libpqtypesdll.lib - - System Library Path: libpqtypes.lib (static lib) - diff --git a/libpqtypes/LICENSE b/libpqtypes/LICENSE deleted file mode 100644 index a134dcc..0000000 --- a/libpqtypes/LICENSE +++ /dev/null @@ -1,22 +0,0 @@ - -LIBPQTYPES -Software extension to the PostgreSQL libpq interface. - -Copyright (c) 2009 eSilo, LLC. All rights reserved. - -Permission to use, copy, modify, and distribute this software and its -documentation for any purpose, without fee, and without a written agreement -is hereby granted, provided that the above copyright notice and this -paragraph and the following two paragraphs appear in all copies. - -IN NO EVENT SHALL ESILO, LLC. BE LIABLE TO ANY PARTY FOR DIRECT, INDIRECT, -SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES, INCLUDING LOST PROFITS, -ARISING OUT OF THE USE OF THIS SOFTWARE AND ITS DOCUMENTATION, EVEN IF -ESILO, LLC. HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. - -ESILO, LLC. SPECIFICALLY DISCLAIMS ANY WARRANTIES, INCLUDING, BUT NOT -LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A -PARTICULAR PURPOSE. THE SOFTWARE PROVIDED HEREUNDER IS ON AN "AS IS" BASIS, -AND ESILO, LLC. HAS NO OBLIGATIONS TO PROVIDE MAINTENANCE, SUPPORT, UPDATES, -ENHANCEMENTS, OR MODIFICATIONS. - diff --git a/libpqtypes/Makefile.am b/libpqtypes/Makefile.am deleted file mode 100644 index 182e6e1..0000000 --- a/libpqtypes/Makefile.am +++ /dev/null @@ -1,68 +0,0 @@ -AM_LDFLAGS = -AUTOMAKE_OPTIONS = foreign -@SET_MAKE@ - -srcfiles = src/array.c src/datetime.c src/error.c \ - src/events.c src/exec.c src/geo.c src/handler.c \ - src/misc.c src/network.c src/numerics.c src/param.c \ - src/port.c src/record.c src/spec.c src/utils.c src/varlena.c \ - src/libpqtypes.h src/libpqtypes-int.h - -manpages = docs/man3/PQgeterror.3 docs/man3/PQgetf.3 \ - docs/man3/PQlocalTZInfo.3 docs/man3/PQparamClear.3 \ - docs/man3/PQparamCreate.3 docs/man3/PQparamExec.3 \ - docs/man3/PQparamExecPrepared.3 docs/man3/PQparamReset.3 \ - docs/man3/PQparamSendQuery.3 docs/man3/PQparamSendQueryPrepared.3 \ - docs/man3/PQputf.3 docs/man3/PQputvf.3 \ - docs/man3/PQseterror.3 docs/man3/pqt-composites.3 docs/man3/pqt-handlers.3 \ - docs/man3/PQgetErrorField.3 docs/man3/pqt-specs.3 \ - docs/man3/PQtypesRegister.3 docs/man3/PQparamCount.3 \ - docs/man3/PQexecf.3 docs/man3/PQexecvf.3 docs/man3/PQspecPrepare.3 \ - docs/man3/PQsendf.3 docs/man3/PQsendvf.3 docs/man3/PQgetvf.3 \ - docs/man3/PQregisterComposites.3 docs/man3/PQregisterUserDefinedTypes.3 \ - docs/man3/PQregisterSubClasses.3 docs/man3/PQregisterTypes.3 \ - docs/man3/PQregisterResult.3 docs/man3/PQinitTypes.3 \ - docs/man3/PQclearTypes.3 docs/man3/PQclearSpecs.3 - -lib_LTLIBRARIES = libpqtypes.la -libpqtypes_la_SOURCES = $(srcfiles) -libpqtypes_la_LDFLAGS = -version-info $(LIBPQTYPES_SO_VERSION) -include_HEADERS = src/libpqtypes.h -dist_man_MANS = $(manpages) -noinst = src/libpqtypes-int.h src/getaddrinfo.h - -EXTRA_DIST = install-sh src/regression-test.c src/getaddrinfo.h \ - win32.mak groff2html Makefile.win32 \ - AUTHORS ChangeLog INSTALL LICENSE README - -.PHONY: test -test: - $(CC) $(CFLAGS) $(CPPFLAGS) -DHAVE_CONFIG_H \ - -o test src/regression-test.c $(LDFLAGS) $(LIBS) -lpq -lpqtypes - @rm -f regression-test.o - -.PHONY: docs -docs: - @find docs/man3 -name '*.3' -type f | xargs -i ./groff2html \{\} - -uninstall: - rm -f ${prefix}/include/libpqtypes.h - rm -f ${prefix}/lib/libpqtypes.* - @if [ 1 ] ; then \ - _manpath=`man -w PQgetf`; \ - if test ! -z $$_manpath ; then \ - manpath=`dirname $$_manpath`; \ - for man in $(manpages); do \ - man=`basename $$man`; \ - if test -f $${manpath}/$$man ; then \ - echo rm -f $${manpath}/$$man; \ - rm -f $${manpath}/$$man; \ - fi; \ - done \ - fi; \ - fi; - - - - - diff --git a/libpqtypes/Makefile.in b/libpqtypes/Makefile.in deleted file mode 100644 index 2cd90d5..0000000 --- a/libpqtypes/Makefile.in +++ /dev/null @@ -1,767 +0,0 @@ -# Makefile.in generated by automake 1.9.6 from Makefile.am. -# @configure_input@ - -# Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, -# 2003, 2004, 2005 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@ - - -srcdir = @srcdir@ -top_srcdir = @top_srcdir@ -VPATH = @srcdir@ -pkgdatadir = $(datadir)/@PACKAGE@ -pkglibdir = $(libdir)/@PACKAGE@ -pkgincludedir = $(includedir)/@PACKAGE@ -top_builddir = . -am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd -INSTALL = @INSTALL@ -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@ -target_triplet = @target@ -DIST_COMMON = README $(am__configure_deps) $(dist_man_MANS) \ - $(include_HEADERS) $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ - $(top_srcdir)/configure $(top_srcdir)/src/pqt_config.h.in \ - AUTHORS ChangeLog INSTALL config.guess config.sub install-sh \ - ltmain.sh missing -subdir = . -ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 -am__aclocal_m4_deps = $(top_srcdir)/acinclude.m4 \ - $(top_srcdir)/configure.ac -am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ - $(ACLOCAL_M4) -am__CONFIG_DISTCLEAN_FILES = config.status config.cache config.log \ - configure.lineno configure.status.lineno -mkinstalldirs = $(install_sh) -d -CONFIG_HEADER = $(top_builddir)/src/pqt_config.h -CONFIG_CLEAN_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 = `echo $$p | sed -e 's|^.*/||'`; -am__installdirs = "$(DESTDIR)$(libdir)" "$(DESTDIR)$(man3dir)" \ - "$(DESTDIR)$(includedir)" -libLTLIBRARIES_INSTALL = $(INSTALL) -LTLIBRARIES = $(lib_LTLIBRARIES) -libpqtypes_la_LIBADD = -am__objects_1 = array.lo datetime.lo error.lo events.lo exec.lo geo.lo \ - handler.lo misc.lo network.lo numerics.lo param.lo port.lo \ - record.lo spec.lo utils.lo varlena.lo -am_libpqtypes_la_OBJECTS = $(am__objects_1) -libpqtypes_la_OBJECTS = $(am_libpqtypes_la_OBJECTS) -DEFAULT_INCLUDES = -I. -I$(srcdir) -I$(top_builddir)/src -depcomp = -am__depfiles_maybe = -COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \ - $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -LTCOMPILE = $(LIBTOOL) --tag=CC --mode=compile $(CC) $(DEFS) \ - $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) \ - $(AM_CFLAGS) $(CFLAGS) -CCLD = $(CC) -LINK = $(LIBTOOL) --tag=CC --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) \ - $(AM_LDFLAGS) $(LDFLAGS) -o $@ -SOURCES = $(libpqtypes_la_SOURCES) -DIST_SOURCES = $(libpqtypes_la_SOURCES) -man3dir = $(mandir)/man3 -NROFF = nroff -MANS = $(dist_man_MANS) -includeHEADERS_INSTALL = $(INSTALL_HEADER) -HEADERS = $(include_HEADERS) -ETAGS = etags -CTAGS = ctags -DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) -distdir = $(PACKAGE)-$(VERSION) -top_distdir = $(distdir) -am__remove_distdir = \ - { test ! -d $(distdir) \ - || { find $(distdir) -type d ! -perm -200 -exec chmod u+w {} ';' \ - && rm -fr $(distdir); }; } -DIST_ARCHIVES = $(distdir).tar.gz -GZIP_ENV = --best -distuninstallcheck_listfiles = find . -type f -print -distcleancheck_listfiles = find . -type f -print -ACLOCAL = @ACLOCAL@ -AMDEP_FALSE = @AMDEP_FALSE@ -AMDEP_TRUE = @AMDEP_TRUE@ -AMTAR = @AMTAR@ -AR = @AR@ -AUTOCONF = @AUTOCONF@ -AUTOHEADER = @AUTOHEADER@ -AUTOMAKE = @AUTOMAKE@ -AWK = @AWK@ -CC = @CC@ -CCDEPMODE = @CCDEPMODE@ -CFLAGS = @CFLAGS@ -CPP = @CPP@ -CPPFLAGS = @CPPFLAGS@ -CXX = @CXX@ -CXXCPP = @CXXCPP@ -CXXDEPMODE = @CXXDEPMODE@ -CXXFLAGS = @CXXFLAGS@ -CYGPATH_W = @CYGPATH_W@ -DEFS = @DEFS@ -DEPDIR = @DEPDIR@ -ECHO = @ECHO@ -ECHO_C = @ECHO_C@ -ECHO_N = @ECHO_N@ -ECHO_T = @ECHO_T@ -EGREP = @EGREP@ -EXEEXT = @EXEEXT@ -F77 = @F77@ -FFLAGS = @FFLAGS@ -INSTALL_DATA = @INSTALL_DATA@ -INSTALL_PROGRAM = @INSTALL_PROGRAM@ -INSTALL_SCRIPT = @INSTALL_SCRIPT@ -INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ -LDFLAGS = @LDFLAGS@ -LIBOBJS = @LIBOBJS@ -LIBPQTYPES_SO_VERSION = @LIBPQTYPES_SO_VERSION@ -LIBS = @LIBS@ -LIBTOOL = @LIBTOOL@ -LN_S = @LN_S@ -LTLIBOBJS = @LTLIBOBJS@ -MAKEINFO = @MAKEINFO@ -OBJEXT = @OBJEXT@ -PACKAGE = @PACKAGE@ -PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ -PACKAGE_NAME = @PACKAGE_NAME@ -PACKAGE_STRING = @PACKAGE_STRING@ -PACKAGE_TARNAME = @PACKAGE_TARNAME@ -PACKAGE_VERSION = @PACKAGE_VERSION@ -PATH_SEPARATOR = @PATH_SEPARATOR@ -POW_LIB = @POW_LIB@ -RANLIB = @RANLIB@ -SED = @SED@ -SET_MAKE = @SET_MAKE@ -SHELL = @SHELL@ -STRIP = @STRIP@ -VERSION = @VERSION@ -ac_ct_AR = @ac_ct_AR@ -ac_ct_CC = @ac_ct_CC@ -ac_ct_CXX = @ac_ct_CXX@ -ac_ct_F77 = @ac_ct_F77@ -ac_ct_RANLIB = @ac_ct_RANLIB@ -ac_ct_STRIP = @ac_ct_STRIP@ -am__fastdepCC_FALSE = @am__fastdepCC_FALSE@ -am__fastdepCC_TRUE = @am__fastdepCC_TRUE@ -am__fastdepCXX_FALSE = @am__fastdepCXX_FALSE@ -am__fastdepCXX_TRUE = @am__fastdepCXX_TRUE@ -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@ -datadir = @datadir@ -exec_prefix = @exec_prefix@ -host = @host@ -host_alias = @host_alias@ -host_cpu = @host_cpu@ -host_os = @host_os@ -host_vendor = @host_vendor@ -includedir = @includedir@ -infodir = @infodir@ -install_sh = @install_sh@ -libdir = @libdir@ -libexecdir = @libexecdir@ -localstatedir = @localstatedir@ -mandir = @mandir@ -mkdir_p = @mkdir_p@ -oldincludedir = @oldincludedir@ -prefix = @prefix@ -program_transform_name = @program_transform_name@ -sbindir = @sbindir@ -sharedstatedir = @sharedstatedir@ -sysconfdir = @sysconfdir@ -target = @target@ -target_alias = @target_alias@ -target_cpu = @target_cpu@ -target_os = @target_os@ -target_vendor = @target_vendor@ -AM_LDFLAGS = -AUTOMAKE_OPTIONS = foreign -srcfiles = src/array.c src/datetime.c src/error.c \ - src/events.c src/exec.c src/geo.c src/handler.c \ - src/misc.c src/network.c src/numerics.c src/param.c \ - src/port.c src/record.c src/spec.c src/utils.c src/varlena.c \ - src/libpqtypes.h src/libpqtypes-int.h - -manpages = docs/man3/PQgeterror.3 docs/man3/PQgetf.3 \ - docs/man3/PQlocalTZInfo.3 docs/man3/PQparamClear.3 \ - docs/man3/PQparamCreate.3 docs/man3/PQparamExec.3 \ - docs/man3/PQparamExecPrepared.3 docs/man3/PQparamReset.3 \ - docs/man3/PQparamSendQuery.3 docs/man3/PQparamSendQueryPrepared.3 \ - docs/man3/PQputf.3 docs/man3/PQputvf.3 \ - docs/man3/PQseterror.3 docs/man3/pqt-composites.3 docs/man3/pqt-handlers.3 \ - docs/man3/PQgetErrorField.3 docs/man3/pqt-specs.3 \ - docs/man3/PQtypesRegister.3 docs/man3/PQparamCount.3 \ - docs/man3/PQexecf.3 docs/man3/PQexecvf.3 docs/man3/PQspecPrepare.3 \ - docs/man3/PQsendf.3 docs/man3/PQsendvf.3 docs/man3/PQgetvf.3 \ - docs/man3/PQregisterComposites.3 docs/man3/PQregisterUserDefinedTypes.3 \ - docs/man3/PQregisterSubClasses.3 docs/man3/PQregisterTypes.3 \ - docs/man3/PQregisterResult.3 docs/man3/PQinitTypes.3 \ - docs/man3/PQclearTypes.3 docs/man3/PQclearSpecs.3 - -lib_LTLIBRARIES = libpqtypes.la -libpqtypes_la_SOURCES = $(srcfiles) -libpqtypes_la_LDFLAGS = -version-info $(LIBPQTYPES_SO_VERSION) -include_HEADERS = src/libpqtypes.h -dist_man_MANS = $(manpages) -noinst = src/libpqtypes-int.h src/getaddrinfo.h -EXTRA_DIST = install-sh src/regression-test.c src/getaddrinfo.h \ - win32.mak groff2html Makefile.win32 \ - AUTHORS ChangeLog INSTALL LICENSE README - -all: all-am - -.SUFFIXES: -.SUFFIXES: .c .lo .o .obj -am--refresh: - @: -$(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(am__configure_deps) - @for dep in $?; do \ - case '$(am__configure_deps)' in \ - *$$dep*) \ - echo ' cd $(srcdir) && $(AUTOMAKE) --foreign --ignore-deps'; \ - cd $(srcdir) && $(AUTOMAKE) --foreign --ignore-deps \ - && exit 0; \ - exit 1;; \ - esac; \ - done; \ - echo ' cd $(top_srcdir) && $(AUTOMAKE) --foreign --ignore-deps Makefile'; \ - cd $(top_srcdir) && \ - $(AUTOMAKE) --foreign --ignore-deps 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: $(am__configure_deps) - cd $(srcdir) && $(AUTOCONF) -$(ACLOCAL_M4): $(am__aclocal_m4_deps) - cd $(srcdir) && $(ACLOCAL) $(ACLOCAL_AMFLAGS) - -src/pqt_config.h: src/stamp-h1 - @if test ! -f $@; then \ - rm -f src/stamp-h1; \ - $(MAKE) src/stamp-h1; \ - else :; fi - -src/stamp-h1: $(top_srcdir)/src/pqt_config.h.in $(top_builddir)/config.status - @rm -f src/stamp-h1 - cd $(top_builddir) && $(SHELL) ./config.status src/pqt_config.h -$(top_srcdir)/src/pqt_config.h.in: $(am__configure_deps) - cd $(top_srcdir) && $(AUTOHEADER) - rm -f src/stamp-h1 - touch $@ - -distclean-hdr: - -rm -f src/pqt_config.h src/stamp-h1 -install-libLTLIBRARIES: $(lib_LTLIBRARIES) - @$(NORMAL_INSTALL) - test -z "$(libdir)" || $(mkdir_p) "$(DESTDIR)$(libdir)" - @list='$(lib_LTLIBRARIES)'; for p in $$list; do \ - if test -f $$p; then \ - f=$(am__strip_dir) \ - echo " $(LIBTOOL) --mode=install $(libLTLIBRARIES_INSTALL) $(INSTALL_STRIP_FLAG) '$$p' '$(DESTDIR)$(libdir)/$$f'"; \ - $(LIBTOOL) --mode=install $(libLTLIBRARIES_INSTALL) $(INSTALL_STRIP_FLAG) "$$p" "$(DESTDIR)$(libdir)/$$f"; \ - else :; fi; \ - done - -uninstall-libLTLIBRARIES: - @$(NORMAL_UNINSTALL) - @set -x; list='$(lib_LTLIBRARIES)'; for p in $$list; do \ - p=$(am__strip_dir) \ - echo " $(LIBTOOL) --mode=uninstall rm -f '$(DESTDIR)$(libdir)/$$p'"; \ - $(LIBTOOL) --mode=uninstall rm -f "$(DESTDIR)$(libdir)/$$p"; \ - 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 -libpqtypes.la: $(libpqtypes_la_OBJECTS) $(libpqtypes_la_DEPENDENCIES) - $(LINK) -rpath $(libdir) $(libpqtypes_la_LDFLAGS) $(libpqtypes_la_OBJECTS) $(libpqtypes_la_LIBADD) $(LIBS) - -mostlyclean-compile: - -rm -f *.$(OBJEXT) - -distclean-compile: - -rm -f *.tab.c - -.c.o: - $(COMPILE) -c $< - -.c.obj: - $(COMPILE) -c `$(CYGPATH_W) '$<'` - -.c.lo: - $(LTCOMPILE) -c -o $@ $< - -array.lo: src/array.c - $(LIBTOOL) --tag=CC --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o array.lo `test -f 'src/array.c' || echo '$(srcdir)/'`src/array.c - -datetime.lo: src/datetime.c - $(LIBTOOL) --tag=CC --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o datetime.lo `test -f 'src/datetime.c' || echo '$(srcdir)/'`src/datetime.c - -error.lo: src/error.c - $(LIBTOOL) --tag=CC --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o error.lo `test -f 'src/error.c' || echo '$(srcdir)/'`src/error.c - -events.lo: src/events.c - $(LIBTOOL) --tag=CC --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o events.lo `test -f 'src/events.c' || echo '$(srcdir)/'`src/events.c - -exec.lo: src/exec.c - $(LIBTOOL) --tag=CC --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o exec.lo `test -f 'src/exec.c' || echo '$(srcdir)/'`src/exec.c - -geo.lo: src/geo.c - $(LIBTOOL) --tag=CC --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o geo.lo `test -f 'src/geo.c' || echo '$(srcdir)/'`src/geo.c - -handler.lo: src/handler.c - $(LIBTOOL) --tag=CC --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o handler.lo `test -f 'src/handler.c' || echo '$(srcdir)/'`src/handler.c - -misc.lo: src/misc.c - $(LIBTOOL) --tag=CC --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o misc.lo `test -f 'src/misc.c' || echo '$(srcdir)/'`src/misc.c - -network.lo: src/network.c - $(LIBTOOL) --tag=CC --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o network.lo `test -f 'src/network.c' || echo '$(srcdir)/'`src/network.c - -numerics.lo: src/numerics.c - $(LIBTOOL) --tag=CC --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o numerics.lo `test -f 'src/numerics.c' || echo '$(srcdir)/'`src/numerics.c - -param.lo: src/param.c - $(LIBTOOL) --tag=CC --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o param.lo `test -f 'src/param.c' || echo '$(srcdir)/'`src/param.c - -port.lo: src/port.c - $(LIBTOOL) --tag=CC --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o port.lo `test -f 'src/port.c' || echo '$(srcdir)/'`src/port.c - -record.lo: src/record.c - $(LIBTOOL) --tag=CC --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o record.lo `test -f 'src/record.c' || echo '$(srcdir)/'`src/record.c - -spec.lo: src/spec.c - $(LIBTOOL) --tag=CC --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o spec.lo `test -f 'src/spec.c' || echo '$(srcdir)/'`src/spec.c - -utils.lo: src/utils.c - $(LIBTOOL) --tag=CC --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o utils.lo `test -f 'src/utils.c' || echo '$(srcdir)/'`src/utils.c - -varlena.lo: src/varlena.c - $(LIBTOOL) --tag=CC --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o varlena.lo `test -f 'src/varlena.c' || echo '$(srcdir)/'`src/varlena.c - -mostlyclean-libtool: - -rm -f *.lo - -clean-libtool: - -rm -rf .libs _libs - -distclean-libtool: - -rm -f libtool -uninstall-info-am: -install-man3: $(man3_MANS) $(man_MANS) - @$(NORMAL_INSTALL) - test -z "$(man3dir)" || $(mkdir_p) "$(DESTDIR)$(man3dir)" - @list='$(man3_MANS) $(dist_man3_MANS) $(nodist_man3_MANS)'; \ - l2='$(man_MANS) $(dist_man_MANS) $(nodist_man_MANS)'; \ - for i in $$l2; do \ - case "$$i" in \ - *.3*) list="$$list $$i" ;; \ - esac; \ - done; \ - for i in $$list; do \ - if test -f $(srcdir)/$$i; then file=$(srcdir)/$$i; \ - else file=$$i; fi; \ - ext=`echo $$i | sed -e 's/^.*\\.//'`; \ - case "$$ext" in \ - 3*) ;; \ - *) ext='3' ;; \ - esac; \ - inst=`echo $$i | sed -e 's/\\.[0-9a-z]*$$//'`; \ - inst=`echo $$inst | sed -e 's/^.*\///'`; \ - inst=`echo $$inst | sed '$(transform)'`.$$ext; \ - echo " $(INSTALL_DATA) '$$file' '$(DESTDIR)$(man3dir)/$$inst'"; \ - $(INSTALL_DATA) "$$file" "$(DESTDIR)$(man3dir)/$$inst"; \ - done -uninstall-man3: - @$(NORMAL_UNINSTALL) - @list='$(man3_MANS) $(dist_man3_MANS) $(nodist_man3_MANS)'; \ - l2='$(man_MANS) $(dist_man_MANS) $(nodist_man_MANS)'; \ - for i in $$l2; do \ - case "$$i" in \ - *.3*) list="$$list $$i" ;; \ - esac; \ - done; \ - for i in $$list; do \ - ext=`echo $$i | sed -e 's/^.*\\.//'`; \ - case "$$ext" in \ - 3*) ;; \ - *) ext='3' ;; \ - esac; \ - inst=`echo $$i | sed -e 's/\\.[0-9a-z]*$$//'`; \ - inst=`echo $$inst | sed -e 's/^.*\///'`; \ - inst=`echo $$inst | sed '$(transform)'`.$$ext; \ - echo " rm -f '$(DESTDIR)$(man3dir)/$$inst'"; \ - rm -f "$(DESTDIR)$(man3dir)/$$inst"; \ - done -install-includeHEADERS: $(include_HEADERS) - @$(NORMAL_INSTALL) - test -z "$(includedir)" || $(mkdir_p) "$(DESTDIR)$(includedir)" - @list='$(include_HEADERS)'; for p in $$list; do \ - if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ - f=$(am__strip_dir) \ - echo " $(includeHEADERS_INSTALL) '$$d$$p' '$(DESTDIR)$(includedir)/$$f'"; \ - $(includeHEADERS_INSTALL) "$$d$$p" "$(DESTDIR)$(includedir)/$$f"; \ - done - -uninstall-includeHEADERS: - @$(NORMAL_UNINSTALL) - @list='$(include_HEADERS)'; for p in $$list; do \ - f=$(am__strip_dir) \ - echo " rm -f '$(DESTDIR)$(includedir)/$$f'"; \ - rm -f "$(DESTDIR)$(includedir)/$$f"; \ - done - -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; } \ - END { for (i in files) print i; }'`; \ - mkid -fID $$unique -tags: TAGS - -TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ - $(TAGS_FILES) $(LISP) - tags=; \ - here=`pwd`; \ - 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; } \ - END { for (i in files) print i; }'`; \ - if test -z "$(ETAGS_ARGS)$$tags$$unique"; then :; else \ - test -n "$$unique" || unique=$$empty_fix; \ - $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ - $$tags $$unique; \ - fi -ctags: CTAGS -CTAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ - $(TAGS_FILES) $(LISP) - tags=; \ - here=`pwd`; \ - 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; } \ - END { for (i in files) print i; }'`; \ - test -z "$(CTAGS_ARGS)$$tags$$unique" \ - || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ - $$tags $$unique - -GTAGS: - here=`$(am__cd) $(top_builddir) && pwd` \ - && cd $(top_srcdir) \ - && gtags -i $(GTAGS_ARGS) $$here - -distclean-tags: - -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags - -distdir: $(DISTFILES) - $(am__remove_distdir) - mkdir $(distdir) - $(mkdir_p) $(distdir)/docs/man3 $(distdir)/src - @srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; \ - topsrcdirstrip=`echo "$(top_srcdir)" | sed 's|.|.|g'`; \ - list='$(DISTFILES)'; for file in $$list; do \ - case $$file in \ - $(srcdir)/*) file=`echo "$$file" | sed "s|^$$srcdirstrip/||"`;; \ - $(top_srcdir)/*) file=`echo "$$file" | sed "s|^$$topsrcdirstrip/|$(top_builddir)/|"`;; \ - esac; \ - if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ - dir=`echo "$$file" | sed -e 's,/[^/]*$$,,'`; \ - if test "$$dir" != "$$file" && test "$$dir" != "."; then \ - dir="/$$dir"; \ - $(mkdir_p) "$(distdir)$$dir"; \ - else \ - dir=''; \ - fi; \ - if test -d $$d/$$file; then \ - if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ - cp -pR $(srcdir)/$$file $(distdir)$$dir || exit 1; \ - fi; \ - cp -pR $$d/$$file $(distdir)$$dir || exit 1; \ - else \ - test -f $(distdir)/$$file \ - || cp -p $$d/$$file $(distdir)/$$file \ - || exit 1; \ - fi; \ - done - -find $(distdir) -type d ! -perm -755 -exec chmod a+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 $(SHELL) $(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 -9 -c >$(distdir).tar.bz2 - $(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) gunzip -c $(distdir).tar.gz | $(am__untar) ;;\ - *.tar.bz2*) \ - bunzip2 -c $(distdir).tar.bz2 | $(am__untar) ;;\ - *.tar.Z*) \ - uncompress -c $(distdir).tar.Z | $(am__untar) ;;\ - *.shar.gz*) \ - GZIP=$(GZIP_ENV) gunzip -c $(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) - dc_install_base=`$(am__cd) $(distdir)/_inst && pwd | sed -e 's,^[^:\\/]:[\\/],/,'` \ - && dc_destdir="$${TMPDIR-/tmp}/am-dc-$$$$/" \ - && cd $(distdir)/_build \ - && ../configure --srcdir=.. --prefix="$$dc_install_base" \ - $(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 - $(am__remove_distdir) - @(echo "$(distdir) archives ready for distribution: "; \ - list='$(DIST_ARCHIVES)'; for i in $$list; do echo $$i; done) | \ - sed -e '1{h;s/./=/g;p;x;}' -e '$${p;x;}' -distuninstallcheck: - @cd $(distuninstallcheck_dir) \ - && test `$(distuninstallcheck_listfiles) | wc -l` -le 1 \ - || { 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) $(MANS) $(HEADERS) -installdirs: - for dir in "$(DESTDIR)$(libdir)" "$(DESTDIR)$(man3dir)" "$(DESTDIR)$(includedir)"; do \ - test -z "$$dir" || $(mkdir_p) "$$dir"; \ - done -install: install-am -install-exec: install-exec-am -install-data: install-data-am - -install-am: all-am - @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am - -installcheck: installcheck-am -install-strip: - $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ - install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ - `test -z '$(STRIP)' || \ - echo "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'"` install -mostlyclean-generic: - -clean-generic: - -distclean-generic: - -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) - -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-generic clean-libLTLIBRARIES clean-libtool \ - mostlyclean-am - -distclean: distclean-am - -rm -f $(am__CONFIG_DISTCLEAN_FILES) - -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 - -info: info-am - -info-am: - -install-data-am: install-includeHEADERS install-man - -install-exec-am: install-libLTLIBRARIES - -install-info: install-info-am - -install-man: install-man3 - -installcheck-am: - -maintainer-clean: maintainer-clean-am - -rm -f $(am__CONFIG_DISTCLEAN_FILES) - -rm -rf $(top_srcdir)/autom4te.cache - -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-includeHEADERS uninstall-info-am \ - uninstall-libLTLIBRARIES uninstall-man - -uninstall-man: uninstall-man3 - -.PHONY: CTAGS GTAGS all all-am am--refresh check check-am clean \ - clean-generic clean-libLTLIBRARIES clean-libtool ctags dist \ - dist-all dist-bzip2 dist-gzip dist-shar dist-tarZ 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-data install-data-am \ - install-exec install-exec-am install-includeHEADERS \ - install-info install-info-am install-libLTLIBRARIES \ - install-man install-man3 install-strip 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-includeHEADERS \ - uninstall-info-am uninstall-libLTLIBRARIES uninstall-man \ - uninstall-man3 - -@SET_MAKE@ - -.PHONY: test -test: - $(CC) $(CFLAGS) $(CPPFLAGS) -DHAVE_CONFIG_H \ - -o test src/regression-test.c $(LDFLAGS) $(LIBS) -lpq -lpqtypes - @rm -f regression-test.o - -.PHONY: docs -docs: - @find docs/man3 -name '*.3' -type f | xargs -i ./groff2html \{\} - -uninstall: - rm -f ${prefix}/include/libpqtypes.h - rm -f ${prefix}/lib/libpqtypes.* - @if [ 1 ] ; then \ - _manpath=`man -w PQgetf`; \ - if test ! -z $$_manpath ; then \ - manpath=`dirname $$_manpath`; \ - for man in $(manpages); do \ - man=`basename $$man`; \ - if test -f $${manpath}/$$man ; then \ - echo rm -f $${manpath}/$$man; \ - rm -f $${manpath}/$$man; \ - fi; \ - done \ - fi; \ - fi; -# 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: diff --git a/libpqtypes/Makefile.win32 b/libpqtypes/Makefile.win32 deleted file mode 100644 index d9a2077..0000000 --- a/libpqtypes/Makefile.win32 +++ /dev/null @@ -1,49 +0,0 @@ -############################################################## -# Project: libpqtypes -# Makefile for Cygwin or Mingw Environments (GCC) -# -# make -f Makefile.win32 [options] [targets] -# -# For further build instructions, see the package's INSTALL file. -# -# Authors: Andrew Chernow, Merlin Moncure -# Contact: libpqtypes@esilo.com -############################################################## - -PROJNAME = libpqtypes - -DEPS = src/libpqtypes-int.h src/libpqtypes.h -OBJECTS = src/array.o src/datetime.o src/error.o \ - src/events.o src/exec.o src/geo.o src/handler.o \ - src/misc.o src/network.o src/numerics.o \ - src/param.o src/port.o src/record.o src/spec.c \ - src/utils.o src/varlena.o - -INC += -Isrc -LIBS = -lpq -lws2_32 -CFLAGS += -s -Wall -Wpointer-arith -D_GNU_SOURCE -O3 \ - -std=gnu99 -Wlong-long -D_WIN32_WINNT=0x0501 -D_REENTRANT - -ifdef MT - CFLAGS += -DPQT_THREAD_SAFE -D_THREAD_SAFE - LIBS += -lpthread -endif - -ifdef PQT_LONG_LONG - CFLAGS += -DPQT_LONG_LONG=$(PQT_LONG_LONG) -endif - -all: $(OBJECTS) - dllwrap -o $(PROJNAME).dll -dllname $(PROJNAME).dll $(OBJECTS) $(LPATH) $(LIBS) - dlltool --dllname $(PROJNAME).dll --output-lib $(PROJNAME).a - -test: - gcc $(CFLAGS) $(INC) -o regtest src/regression-test.c $(PROJNAME).dll $(LPATH) $(LIBS) - -@rm -f regression-test.o - -%.o: %.c $(DEPS) - gcc $(CFLAGS) $(INC) -o $@ -c $< - -clean: - -@rm -f $(OBJECTS) $(PROJNAME).so $(PROJNAME).a regtest - diff --git a/libpqtypes/README b/libpqtypes/README deleted file mode 100644 index bdd6b97..0000000 --- a/libpqtypes/README +++ /dev/null @@ -1,54 +0,0 @@ - -LIBPQTYPES LIBRARY ------------------- - -This package contains the source code, documentation and management -files for the libpqtypes library, an extension to the PostgreSQL -libpq library. - -libpqtypes is a libpq extension that offers a new way of handling -parameterized queries and getting result field values. Both -putting parameters and getting values use a printf/scanf style -interface, with consistent specifiers for both. - - - Full support for binary and text format (parameter and result) - - - Full support for composites, arrays and composite arrays. - - - printf style interface to libpq's binary parameterized API. - - - scanf style interface for getting values: PQgetvalue extension. - - - Ability to register user-defined types, aliases and data type - sub-classes for use with printf style interfaces: ex. "%mytype". - - - Per-thread global error message: PQgeterror, PQseterror. - - - Online docs as well as man pages. - -INSTALL -libpqtypes cannot be used by itself, it can only be used with libpq. -To build and install libpqtypes, see the INSTALL file included with -this package. - -LICENSE -libpqtypes is released under the BSD license just like all software -components of the PostgreSQL Database Management System. See the -LICENSE file included with this package. - -AUTHORS -libpqtypes is a contribution of eSilo, LLC and was written by -Andrew Chernow and Merlin Moncure. See the AUTHORS file. - -To report bugs, feature requests or general questions goto the -libpqtypes forum at http://pgfoundry.org/forum/?group_id=1000370 -or send an email to . - -Online documentation: - - http://libpqtypes.esilo.com/ - -The latest version: - - http://pgfoundry.org/projects/libpqtypes/ - diff --git a/libpqtypes/acinclude.m4 b/libpqtypes/acinclude.m4 deleted file mode 100644 index ad3001c..0000000 --- a/libpqtypes/acinclude.m4 +++ /dev/null @@ -1,139 +0,0 @@ -AC_DEFUN([AX_CFLAGS_GCC_OPTION_NEW], [dnl -AS_VAR_PUSHDEF([FLAGS],[CFLAGS])dnl -AS_VAR_PUSHDEF([VAR],[ac_cv_cflags_gcc_option_$1])dnl -AC_CACHE_CHECK([m4_ifval($2,$2,FLAGS) for gcc m4_ifval($1,$1,-option)], -VAR,[VAR="no, unknown" - AC_LANG_SAVE - AC_LANG_C - ac_save_[]FLAGS="$[]FLAGS" -for ac_arg dnl -in "-pedantic -Werror % m4_ifval($1,$1,-option)" dnl GCC - "-pedantic % m4_ifval($1,$1,-option) %% no, obsolete" dnl new GCC - # -do FLAGS="$ac_save_[]FLAGS "`echo $ac_arg | sed -e 's,%%.*,,' -e 's,%,,'` - AC_TRY_COMPILE([],[return 0;], - [VAR=`echo $ac_arg | sed -e 's,.*% *,,'` ; break]) -done - FLAGS="$ac_save_[]FLAGS" - AC_LANG_RESTORE -]) -case ".$VAR" in - .ok|.ok,*) m4_ifvaln($3,$3) ;; - .|.no|.no,*) m4_ifvaln($4,$4) ;; - *) m4_ifvaln($3,$3,[ - if echo " $[]m4_ifval($2,$2,FLAGS) " | grep " $VAR " 2>&1 >/dev/null - then AC_RUN_LOG([: m4_ifval($2,$2,FLAGS) does contain $VAR]) - else AC_RUN_LOG([: m4_ifval($2,$2,FLAGS)="$m4_ifval($2,$2,FLAGS) $VAR"]) - m4_ifval($2,$2,FLAGS)="$m4_ifval($2,$2,FLAGS) $VAR" - fi ]) ;; -esac -AS_VAR_POPDEF([VAR])dnl -AS_VAR_POPDEF([FLAGS])dnl -]) - - -dnl the only difference - the LANG selection... and the default FLAGS - -AC_DEFUN([AX_CXXFLAGS_GCC_OPTION_NEW], [dnl -AS_VAR_PUSHDEF([FLAGS],[CXXFLAGS])dnl -AS_VAR_PUSHDEF([VAR],[ac_cv_cxxflags_gcc_option_$1])dnl -AC_CACHE_CHECK([m4_ifval($2,$2,FLAGS) for gcc m4_ifval($1,$1,-option)], -VAR,[VAR="no, unknown" - AC_LANG_SAVE - AC_LANG_CPLUSPLUS - ac_save_[]FLAGS="$[]FLAGS" -for ac_arg dnl -in "-pedantic -Werror % m4_ifval($1,$1,-option)" dnl GCC - "-pedantic % m4_ifval($1,$1,-option) %% no, obsolete" dnl new GCC - # -do FLAGS="$ac_save_[]FLAGS "`echo $ac_arg | sed -e 's,%%.*,,' -e 's,%,,'` - AC_TRY_COMPILE([],[return 0;], - [VAR=`echo $ac_arg | sed -e 's,.*% *,,'` ; break]) -done - FLAGS="$ac_save_[]FLAGS" - AC_LANG_RESTORE -]) -case ".$VAR" in - .ok|.ok,*) m4_ifvaln($3,$3) ;; - .|.no|.no,*) m4_ifvaln($4,$4) ;; - *) m4_ifvaln($3,$3,[ - if echo " $[]m4_ifval($2,$2,FLAGS) " | grep " $VAR " 2>&1 >/dev/null - then AC_RUN_LOG([: m4_ifval($2,$2,FLAGS) does contain $VAR]) - else AC_RUN_LOG([: m4_ifval($2,$2,FLAGS)="$m4_ifval($2,$2,FLAGS) $VAR"]) - m4_ifval($2,$2,FLAGS)="$m4_ifval($2,$2,FLAGS) $VAR" - fi ]) ;; -esac -AS_VAR_POPDEF([VAR])dnl -AS_VAR_POPDEF([FLAGS])dnl -]) - -AC_DEFUN([AX_CFLAGS_GCC_OPTION],[ifelse(m4_bregexp([$2],[-]),-1, -[AX_CFLAGS_GCC_OPTION_NEW($@)],[AX_CFLAGS_GCC_OPTION_OLD($@)])]) - -AC_DEFUN([AX_CXXFLAGS_GCC_OPTION],[ifelse(m4_bregexp([$2],[-]),-1, -[AX_CXXFLAGS_GCC_OPTION_NEW($@)],[AX_CXXFLAGS_GCC_OPTION_OLD($@)])]) - -AC_DEFUN([AC_C_LONG_LONG], -[AC_CACHE_CHECK(for long long int, ac_cv_c_long_long, -[if test "$GCC" = yes; then - ac_cv_c_long_long=yes - else - AC_TRY_COMPILE(,[long long int i;], - ac_cv_c_long_long=yes, - ac_cv_c_long_long=no) - fi]) - if test $ac_cv_c_long_long = yes; then - AC_DEFINE(HAVE_LONG_LONG, 1, [compiler understands long long]) - fi -]) - -dnl AC_CHECK_FUNC_IN(HEADER, FUNCTION, [ACTION-IF-FOUND [, ACTION-IF-NOT-FOUND]]) -AC_DEFUN([AC_CHECK_FUNC_IN], -[AC_MSG_CHECKING([for $2 in $1]) -AC_CACHE_VAL(ac_cv_func_$2, -[AC_TRY_LINK( -dnl Don't include because on OSF/1 3.0 it includes -dnl which includes which contains a prototype for -dnl select. Similarly for bzero. -[/* System header to define __stub macros and hopefully few prototypes, - which can conflict with char $2(); below. */ -#include -#include <$1> -/* Override any gcc2 internal prototype to avoid an error. */ -]ifelse(AC_LANG, CPLUSPLUS, [#ifdef __cplusplus -extern "C" -#endif -])dnl -[/* We use char because int might match the return type of a gcc2 - builtin and then its argument prototype would still apply. */ -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 -#else -$2(); -#endif -], eval "ac_cv_func_$2=yes", eval "ac_cv_func_$2=no")]) -if eval "test \"`echo '$ac_cv_func_'$2`\" = yes"; then - AC_MSG_RESULT(yes) - ifelse([$3], , :, [$3]) -else - AC_MSG_RESULT(no) -ifelse([$4], , , [$4 -])dnl -fi -]) - -dnl AC_CHECK_FUNCS_IN(HEADER, FUNCTION... [, ACTION-IF-FOUND [, ACTION-IF-NOT-FOUND]]) -AC_DEFUN([AC_CHECK_FUNCS_IN], -[for ac_func in $2 -do -AC_CHECK_FUNC_IN($1, $ac_func, - ac_tr_func=HAVE_`echo $ac_func | sed -e 'y:abcdefghijklmnopqrstuvwxyz:ABCDEFGHIJKLMNOPQRSTUVWXYZ:' -e 's:[[^A-Z0-9]]:_:g'` - AC_DEFINE_UNQUOTED($ac_tr_func) $3], $4)dnl -done -]) - diff --git a/libpqtypes/aclocal.m4 b/libpqtypes/aclocal.m4 deleted file mode 100644 index 2797241..0000000 --- a/libpqtypes/aclocal.m4 +++ /dev/null @@ -1,7262 +0,0 @@ -# generated automatically by aclocal 1.9.6 -*- Autoconf -*- - -# Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, -# 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. - -# 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. - -# libtool.m4 - Configure libtool for the host system. -*-Autoconf-*- - -# serial 48 AC_PROG_LIBTOOL - - -# AC_PROVIDE_IFELSE(MACRO-NAME, IF-PROVIDED, IF-NOT-PROVIDED) -# ----------------------------------------------------------- -# If this macro is not defined by Autoconf, define it here. -m4_ifdef([AC_PROVIDE_IFELSE], - [], - [m4_define([AC_PROVIDE_IFELSE], - [m4_ifdef([AC_PROVIDE_$1], - [$2], [$3])])]) - - -# AC_PROG_LIBTOOL -# --------------- -AC_DEFUN([AC_PROG_LIBTOOL], -[AC_REQUIRE([_AC_PROG_LIBTOOL])dnl -dnl If AC_PROG_CXX has already been expanded, run AC_LIBTOOL_CXX -dnl immediately, otherwise, hook it in at the end of AC_PROG_CXX. - AC_PROVIDE_IFELSE([AC_PROG_CXX], - [AC_LIBTOOL_CXX], - [define([AC_PROG_CXX], defn([AC_PROG_CXX])[AC_LIBTOOL_CXX - ])]) -dnl And a similar setup for Fortran 77 support - AC_PROVIDE_IFELSE([AC_PROG_F77], - [AC_LIBTOOL_F77], - [define([AC_PROG_F77], defn([AC_PROG_F77])[AC_LIBTOOL_F77 -])]) - -dnl Quote A][M_PROG_GCJ so that aclocal doesn't bring it in needlessly. -dnl If either AC_PROG_GCJ or A][M_PROG_GCJ have already been expanded, run -dnl AC_LIBTOOL_GCJ immediately, otherwise, hook it in at the end of both. - AC_PROVIDE_IFELSE([AC_PROG_GCJ], - [AC_LIBTOOL_GCJ], - [AC_PROVIDE_IFELSE([A][M_PROG_GCJ], - [AC_LIBTOOL_GCJ], - [AC_PROVIDE_IFELSE([LT_AC_PROG_GCJ], - [AC_LIBTOOL_GCJ], - [ifdef([AC_PROG_GCJ], - [define([AC_PROG_GCJ], defn([AC_PROG_GCJ])[AC_LIBTOOL_GCJ])]) - ifdef([A][M_PROG_GCJ], - [define([A][M_PROG_GCJ], defn([A][M_PROG_GCJ])[AC_LIBTOOL_GCJ])]) - ifdef([LT_AC_PROG_GCJ], - [define([LT_AC_PROG_GCJ], - defn([LT_AC_PROG_GCJ])[AC_LIBTOOL_GCJ])])])]) -])])# AC_PROG_LIBTOOL - - -# _AC_PROG_LIBTOOL -# ---------------- -AC_DEFUN([_AC_PROG_LIBTOOL], -[AC_REQUIRE([AC_LIBTOOL_SETUP])dnl -AC_BEFORE([$0],[AC_LIBTOOL_CXX])dnl -AC_BEFORE([$0],[AC_LIBTOOL_F77])dnl -AC_BEFORE([$0],[AC_LIBTOOL_GCJ])dnl - -# This can be used to rebuild libtool when needed -LIBTOOL_DEPS="$ac_aux_dir/ltmain.sh" - -# Always use our own libtool. -LIBTOOL='$(SHELL) $(top_builddir)/libtool' -AC_SUBST(LIBTOOL)dnl - -# Prevent multiple expansion -define([AC_PROG_LIBTOOL], []) -])# _AC_PROG_LIBTOOL - - -# AC_LIBTOOL_SETUP -# ---------------- -AC_DEFUN([AC_LIBTOOL_SETUP], -[AC_PREREQ(2.50)dnl -AC_REQUIRE([AC_ENABLE_SHARED])dnl -AC_REQUIRE([AC_ENABLE_STATIC])dnl -AC_REQUIRE([AC_ENABLE_FAST_INSTALL])dnl -AC_REQUIRE([AC_CANONICAL_HOST])dnl -AC_REQUIRE([AC_CANONICAL_BUILD])dnl -AC_REQUIRE([AC_PROG_CC])dnl -AC_REQUIRE([AC_PROG_LD])dnl -AC_REQUIRE([AC_PROG_LD_RELOAD_FLAG])dnl -AC_REQUIRE([AC_PROG_NM])dnl - -AC_REQUIRE([AC_PROG_LN_S])dnl -AC_REQUIRE([AC_DEPLIBS_CHECK_METHOD])dnl -# Autoconf 2.13's AC_OBJEXT and AC_EXEEXT macros only works for C compilers! -AC_REQUIRE([AC_OBJEXT])dnl -AC_REQUIRE([AC_EXEEXT])dnl -dnl - -AC_LIBTOOL_SYS_MAX_CMD_LEN -AC_LIBTOOL_SYS_GLOBAL_SYMBOL_PIPE -AC_LIBTOOL_OBJDIR - -AC_REQUIRE([_LT_AC_SYS_COMPILER])dnl -_LT_AC_PROG_ECHO_BACKSLASH - -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 - -# 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 to delay expansion of an escaped shell variable in a -# double_quote_subst'ed string. -delay_variable_subst='s/\\\\\\\\\\\$/\\\\\\$/g' - -# Sed substitution to avoid accidental globbing in evaled expressions -no_glob_subst='s/\*/\\\*/g' - -# Constants: -rm="rm -f" - -# Global variables: -default_ofile=libtool -can_build_shared=yes - -# All known linkers require a `.a' archive for static linking (except MSVC, -# which needs '.lib'). -libext=a -ltmain="$ac_aux_dir/ltmain.sh" -ofile="$default_ofile" -with_gnu_ld="$lt_cv_prog_gnu_ld" - -AC_CHECK_TOOL(AR, ar, false) -AC_CHECK_TOOL(RANLIB, ranlib, :) -AC_CHECK_TOOL(STRIP, strip, :) - -old_CC="$CC" -old_CFLAGS="$CFLAGS" - -# Set sane defaults for various variables -test -z "$AR" && AR=ar -test -z "$AR_FLAGS" && AR_FLAGS=cru -test -z "$AS" && AS=as -test -z "$CC" && CC=cc -test -z "$LTCC" && LTCC=$CC -test -z "$LTCFLAGS" && LTCFLAGS=$CFLAGS -test -z "$DLLTOOL" && DLLTOOL=dlltool -test -z "$LD" && LD=ld -test -z "$LN_S" && LN_S="ln -s" -test -z "$MAGIC_CMD" && MAGIC_CMD=file -test -z "$NM" && NM=nm -test -z "$SED" && SED=sed -test -z "$OBJDUMP" && OBJDUMP=objdump -test -z "$RANLIB" && RANLIB=: -test -z "$STRIP" && STRIP=: -test -z "$ac_objext" && ac_objext=o - -# Determine commands to create old-style static archives. -old_archive_cmds='$AR $AR_FLAGS $oldlib$oldobjs$old_deplibs' -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 \$oldlib" - ;; - *) - old_postinstall_cmds="$old_postinstall_cmds~\$RANLIB \$oldlib" - ;; - esac - old_archive_cmds="$old_archive_cmds~\$RANLIB \$oldlib" -fi - -_LT_CC_BASENAME([$compiler]) - -# Only perform the check for file, if the check method requires it -case $deplibs_check_method in -file_magic*) - if test "$file_magic_cmd" = '$MAGIC_CMD'; then - AC_PATH_MAGIC - fi - ;; -esac - -AC_PROVIDE_IFELSE([AC_LIBTOOL_DLOPEN], enable_dlopen=yes, enable_dlopen=no) -AC_PROVIDE_IFELSE([AC_LIBTOOL_WIN32_DLL], -enable_win32_dll=yes, enable_win32_dll=no) - -AC_ARG_ENABLE([libtool-lock], - [AC_HELP_STRING([--disable-libtool-lock], - [avoid locking (might break parallel builds)])]) -test "x$enable_libtool_lock" != xno && enable_libtool_lock=yes - -AC_ARG_WITH([pic], - [AC_HELP_STRING([--with-pic], - [try to use only PIC/non-PIC objects @<:@default=use both@:>@])], - [pic_mode="$withval"], - [pic_mode=default]) -test -z "$pic_mode" && pic_mode=default - -# Use C for the default configuration in the libtool script -tagname= -AC_LIBTOOL_LANG_C_CONFIG -_LT_AC_TAGCONFIG -])# AC_LIBTOOL_SETUP - - -# _LT_AC_SYS_COMPILER -# ------------------- -AC_DEFUN([_LT_AC_SYS_COMPILER], -[AC_REQUIRE([AC_PROG_CC])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_AC_SYS_COMPILER - - -# _LT_CC_BASENAME(CC) -# ------------------- -# Calculate cc_basename. Skip known compiler wrappers and cross-prefix. -AC_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 "X$cc_temp" | $Xsed -e 's%.*/%%' -e "s%^$host_alias-%%"` -]) - - -# _LT_COMPILER_BOILERPLATE -# ------------------------ -# Check for compiler boilerplate output or warnings with -# the simple compiler test code. -AC_DEFUN([_LT_COMPILER_BOILERPLATE], -[ac_outfile=conftest.$ac_objext -printf "$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. -AC_DEFUN([_LT_LINKER_BOILERPLATE], -[ac_outfile=conftest.$ac_objext -printf "$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 conftest* -])# _LT_LINKER_BOILERPLATE - - -# _LT_AC_SYS_LIBPATH_AIX -# ---------------------- -# 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. -AC_DEFUN([_LT_AC_SYS_LIBPATH_AIX], -[AC_LINK_IFELSE(AC_LANG_PROGRAM,[ -aix_libpath=`dump -H conftest$ac_exeext 2>/dev/null | $SED -n -e '/Import File Strings/,/^$/ { /^0/ { s/^0 *\(.*\)$/\1/; p; } -}'` -# Check for a 64-bit object if we didn't find anything. -if test -z "$aix_libpath"; then aix_libpath=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e '/Import File Strings/,/^$/ { /^0/ { s/^0 *\(.*\)$/\1/; p; } -}'`; fi],[]) -if test -z "$aix_libpath"; then aix_libpath="/usr/lib:/lib"; fi -])# _LT_AC_SYS_LIBPATH_AIX - - -# _LT_AC_SHELL_INIT(ARG) -# ---------------------- -AC_DEFUN([_LT_AC_SHELL_INIT], -[ifdef([AC_DIVERSION_NOTICE], - [AC_DIVERT_PUSH(AC_DIVERSION_NOTICE)], - [AC_DIVERT_PUSH(NOTICE)]) -$1 -AC_DIVERT_POP -])# _LT_AC_SHELL_INIT - - -# _LT_AC_PROG_ECHO_BACKSLASH -# -------------------------- -# Add some code to the start of the generated configure script which -# will find an echo command which doesn't interpret backslashes. -AC_DEFUN([_LT_AC_PROG_ECHO_BACKSLASH], -[_LT_AC_SHELL_INIT([ -# Check that we are running under the correct shell. -SHELL=${CONFIG_SHELL-/bin/sh} - -case X$ECHO in -X*--fallback-echo) - # Remove one level of quotation (which was required for Make). - ECHO=`echo "$ECHO" | sed 's,\\\\\[$]\\[$]0,'[$]0','` - ;; -esac - -echo=${ECHO-echo} -if test "X[$]1" = X--no-reexec; then - # Discard the --no-reexec flag, and continue. - shift -elif test "X[$]1" = X--fallback-echo; then - # Avoid inline document here, it may be left over - : -elif test "X`($echo '\t') 2>/dev/null`" = 'X\t' ; then - # Yippee, $echo works! - : -else - # Restart under the correct shell. - exec $SHELL "[$]0" --no-reexec ${1+"[$]@"} -fi - -if test "X[$]1" = X--fallback-echo; then - # used as fallback echo - shift - cat </dev/null 2>&1 && unset CDPATH - -if test -z "$ECHO"; then -if test "X${echo_test_string+set}" != Xset; then -# find a string as large as possible, as long as the shell can cope with it - for cmd in 'sed 50q "[$]0"' 'sed 20q "[$]0"' 'sed 10q "[$]0"' 'sed 2q "[$]0"' 'echo test'; do - # expected sizes: less than 2Kb, 1Kb, 512 bytes, 16 bytes, ... - if (echo_test_string=`eval $cmd`) 2>/dev/null && - echo_test_string=`eval $cmd` && - (test "X$echo_test_string" = "X$echo_test_string") 2>/dev/null - then - break - fi - done -fi - -if test "X`($echo '\t') 2>/dev/null`" = 'X\t' && - echo_testing_string=`($echo "$echo_test_string") 2>/dev/null` && - test "X$echo_testing_string" = "X$echo_test_string"; then - : -else - # The Solaris, AIX, and Digital Unix default echo programs unquote - # backslashes. This makes it impossible to quote backslashes using - # echo "$something" | sed 's/\\/\\\\/g' - # - # So, first we look for a working echo in the user's PATH. - - lt_save_ifs="$IFS"; IFS=$PATH_SEPARATOR - for dir in $PATH /usr/ucb; do - IFS="$lt_save_ifs" - if (test -f $dir/echo || test -f $dir/echo$ac_exeext) && - test "X`($dir/echo '\t') 2>/dev/null`" = 'X\t' && - echo_testing_string=`($dir/echo "$echo_test_string") 2>/dev/null` && - test "X$echo_testing_string" = "X$echo_test_string"; then - echo="$dir/echo" - break - fi - done - IFS="$lt_save_ifs" - - if test "X$echo" = Xecho; then - # We didn't find a better echo, so look for alternatives. - if test "X`(print -r '\t') 2>/dev/null`" = 'X\t' && - echo_testing_string=`(print -r "$echo_test_string") 2>/dev/null` && - test "X$echo_testing_string" = "X$echo_test_string"; then - # This shell has a builtin print -r that does the trick. - echo='print -r' - elif (test -f /bin/ksh || test -f /bin/ksh$ac_exeext) && - test "X$CONFIG_SHELL" != X/bin/ksh; then - # If we have ksh, try running configure again with it. - ORIGINAL_CONFIG_SHELL=${CONFIG_SHELL-/bin/sh} - export ORIGINAL_CONFIG_SHELL - CONFIG_SHELL=/bin/ksh - export CONFIG_SHELL - exec $CONFIG_SHELL "[$]0" --no-reexec ${1+"[$]@"} - else - # Try using printf. - echo='printf %s\n' - if test "X`($echo '\t') 2>/dev/null`" = 'X\t' && - echo_testing_string=`($echo "$echo_test_string") 2>/dev/null` && - test "X$echo_testing_string" = "X$echo_test_string"; then - # Cool, printf works - : - elif echo_testing_string=`($ORIGINAL_CONFIG_SHELL "[$]0" --fallback-echo '\t') 2>/dev/null` && - test "X$echo_testing_string" = 'X\t' && - echo_testing_string=`($ORIGINAL_CONFIG_SHELL "[$]0" --fallback-echo "$echo_test_string") 2>/dev/null` && - test "X$echo_testing_string" = "X$echo_test_string"; then - CONFIG_SHELL=$ORIGINAL_CONFIG_SHELL - export CONFIG_SHELL - SHELL="$CONFIG_SHELL" - export SHELL - echo="$CONFIG_SHELL [$]0 --fallback-echo" - elif echo_testing_string=`($CONFIG_SHELL "[$]0" --fallback-echo '\t') 2>/dev/null` && - test "X$echo_testing_string" = 'X\t' && - echo_testing_string=`($CONFIG_SHELL "[$]0" --fallback-echo "$echo_test_string") 2>/dev/null` && - test "X$echo_testing_string" = "X$echo_test_string"; then - echo="$CONFIG_SHELL [$]0 --fallback-echo" - else - # maybe with a smaller string... - prev=: - - for cmd in 'echo test' 'sed 2q "[$]0"' 'sed 10q "[$]0"' 'sed 20q "[$]0"' 'sed 50q "[$]0"'; do - if (test "X$echo_test_string" = "X`eval $cmd`") 2>/dev/null - then - break - fi - prev="$cmd" - done - - if test "$prev" != 'sed 50q "[$]0"'; then - echo_test_string=`eval $prev` - export echo_test_string - exec ${ORIGINAL_CONFIG_SHELL-${CONFIG_SHELL-/bin/sh}} "[$]0" ${1+"[$]@"} - else - # Oops. We lost completely, so just stick with echo. - echo=echo - fi - fi - fi - fi -fi -fi - -# Copy echo and quote the copy suitably for passing to libtool from -# the Makefile, instead of quoting the original, which is used later. -ECHO=$echo -if test "X$ECHO" = "X$CONFIG_SHELL [$]0 --fallback-echo"; then - ECHO="$CONFIG_SHELL \\\$\[$]0 --fallback-echo" -fi - -AC_SUBST(ECHO) -])])# _LT_AC_PROG_ECHO_BACKSLASH - - -# _LT_AC_LOCK -# ----------- -AC_DEFUN([_LT_AC_LOCK], -[AC_ARG_ENABLE([libtool-lock], - [AC_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 __oline__ "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-*linux*|ppc*-*linux*|powerpc*-*linux*|s390*-*linux*|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-*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-*linux*) - LD="${LD-ld} -m elf_x86_64" - ;; - ppc*-*linux*|powerpc*-*linux*) - LD="${LD-ld} -m elf64ppc" - ;; - s390*-*linux*) - 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_TRY_LINK([],[],[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 - ;; -sparc*-*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*) LD="${LD-ld} -m elf64_sparc" ;; - *) LD="${LD-ld} -64" ;; - esac - ;; - esac - fi - rm -rf conftest* - ;; - -AC_PROVIDE_IFELSE([AC_LIBTOOL_WIN32_DLL], -[*-*-cygwin* | *-*-mingw* | *-*-pw32*) - AC_CHECK_TOOL(DLLTOOL, dlltool, false) - AC_CHECK_TOOL(AS, as, false) - AC_CHECK_TOOL(OBJDUMP, objdump, false) - ;; - ]) -esac - -need_locks="$enable_libtool_lock" - -])# _LT_AC_LOCK - - -# AC_LIBTOOL_COMPILER_OPTION(MESSAGE, VARIABLE-NAME, FLAGS, -# [OUTPUT-FILE], [ACTION-SUCCESS], [ACTION-FAILURE]) -# ---------------------------------------------------------------- -# Check whether the given compiler option works -AC_DEFUN([AC_LIBTOOL_COMPILER_OPTION], -[AC_REQUIRE([LT_AC_PROG_SED]) -AC_CACHE_CHECK([$1], [$2], - [$2=no - ifelse([$4], , [ac_outfile=conftest.$ac_objext], [ac_outfile=$4]) - printf "$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:__oline__: $lt_compile\"" >&AS_MESSAGE_LOG_FD) - (eval "$lt_compile" 2>conftest.err) - ac_status=$? - cat conftest.err >&AS_MESSAGE_LOG_FD - echo "$as_me:__oline__: \$? = $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 "X$_lt_compiler_boilerplate" | $Xsed -e '/^$/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 - ifelse([$5], , :, [$5]) -else - ifelse([$6], , :, [$6]) -fi -])# AC_LIBTOOL_COMPILER_OPTION - - -# AC_LIBTOOL_LINKER_OPTION(MESSAGE, VARIABLE-NAME, FLAGS, -# [ACTION-SUCCESS], [ACTION-FAILURE]) -# ------------------------------------------------------------ -# Check whether the given compiler option works -AC_DEFUN([AC_LIBTOOL_LINKER_OPTION], -[AC_CACHE_CHECK([$1], [$2], - [$2=no - save_LDFLAGS="$LDFLAGS" - LDFLAGS="$LDFLAGS $3" - printf "$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 "X$_lt_linker_boilerplate" | $Xsed -e '/^$/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 conftest* - LDFLAGS="$save_LDFLAGS" -]) - -if test x"[$]$2" = xyes; then - ifelse([$4], , :, [$4]) -else - ifelse([$5], , :, [$5]) -fi -])# AC_LIBTOOL_LINKER_OPTION - - -# AC_LIBTOOL_SYS_MAX_CMD_LEN -# -------------------------- -AC_DEFUN([AC_LIBTOOL_SYS_MAX_CMD_LEN], -[# 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*) - # 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; - ;; - - 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 - ;; - - 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 - ;; - *) - # 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. - SHELL=${SHELL-${CONFIG_SHELL-/bin/sh}} - while (test "X"`$SHELL [$]0 --fallback-echo "X$teststring" 2>/dev/null` \ - = "XX$teststring") >/dev/null 2>&1 && - new_result=`expr "X$teststring" : ".*" 2>&1` && - lt_cv_sys_max_cmd_len=$new_result && - test $i != 17 # 1/2 MB should be enough - do - i=`expr $i + 1` - teststring=$teststring$teststring - done - 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` - ;; - 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 -])# AC_LIBTOOL_SYS_MAX_CMD_LEN - - -# _LT_AC_CHECK_DLFCN -# ------------------ -AC_DEFUN([_LT_AC_CHECK_DLFCN], -[AC_CHECK_HEADERS(dlfcn.h)dnl -])# _LT_AC_CHECK_DLFCN - - -# _LT_AC_TRY_DLOPEN_SELF (ACTION-IF-TRUE, ACTION-IF-TRUE-W-USCORE, -# ACTION-IF-FALSE, ACTION-IF-CROSS-COMPILING) -# --------------------------------------------------------------------- -AC_DEFUN([_LT_AC_TRY_DLOPEN_SELF], -[AC_REQUIRE([_LT_AC_CHECK_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 < -#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 - -#ifdef __cplusplus -extern "C" void exit (int); -#endif - -void fnord() { int i=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; - /* dlclose (self); */ - } - else - puts (dlerror ()); - - exit (status); -}] -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_AC_TRY_DLOPEN_SELF - - -# AC_LIBTOOL_DLOPEN_SELF -# ---------------------- -AC_DEFUN([AC_LIBTOOL_DLOPEN_SELF], -[AC_REQUIRE([_LT_AC_CHECK_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*) - 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="-dld"], - [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="-dld"]) - ]) - ]) - ]) - ]) - ]) - ;; - 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_AC_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_AC_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 -])# AC_LIBTOOL_DLOPEN_SELF - - -# AC_LIBTOOL_PROG_CC_C_O([TAGNAME]) -# --------------------------------- -# Check to see if options -c and -o are simultaneously supported by compiler -AC_DEFUN([AC_LIBTOOL_PROG_CC_C_O], -[AC_REQUIRE([_LT_AC_SYS_COMPILER])dnl -AC_CACHE_CHECK([if $compiler supports -c -o file.$ac_objext], - [_LT_AC_TAGVAR(lt_cv_prog_compiler_c_o, $1)], - [_LT_AC_TAGVAR(lt_cv_prog_compiler_c_o, $1)=no - $rm -r conftest 2>/dev/null - mkdir conftest - cd conftest - mkdir out - printf "$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:__oline__: $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:__oline__: \$? = $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 "X$_lt_compiler_boilerplate" | $Xsed -e '/^$/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_AC_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 .. - rmdir conftest - $rm conftest* -]) -])# AC_LIBTOOL_PROG_CC_C_O - - -# AC_LIBTOOL_SYS_HARD_LINK_LOCKS([TAGNAME]) -# ----------------------------------------- -# Check to see if we can do hard links to lock some files if needed -AC_DEFUN([AC_LIBTOOL_SYS_HARD_LINK_LOCKS], -[AC_REQUIRE([_LT_AC_LOCK])dnl - -hard_links="nottested" -if test "$_LT_AC_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 -])# AC_LIBTOOL_SYS_HARD_LINK_LOCKS - - -# AC_LIBTOOL_OBJDIR -# ----------------- -AC_DEFUN([AC_LIBTOOL_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 -])# AC_LIBTOOL_OBJDIR - - -# AC_LIBTOOL_PROG_LD_HARDCODE_LIBPATH([TAGNAME]) -# ---------------------------------------------- -# Check hardcoding attributes. -AC_DEFUN([AC_LIBTOOL_PROG_LD_HARDCODE_LIBPATH], -[AC_MSG_CHECKING([how to hardcode library paths into programs]) -_LT_AC_TAGVAR(hardcode_action, $1)= -if test -n "$_LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)" || \ - test -n "$_LT_AC_TAGVAR(runpath_var, $1)" || \ - test "X$_LT_AC_TAGVAR(hardcode_automatic, $1)" = "Xyes" ; then - - # We can hardcode non-existant directories. - if test "$_LT_AC_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_AC_TAGVAR(hardcode_shlibpath_var, $1)" != no && - test "$_LT_AC_TAGVAR(hardcode_minus_L, $1)" != no; then - # Linking always hardcodes the temporary library directory. - _LT_AC_TAGVAR(hardcode_action, $1)=relink - else - # We can link without hardcoding, and we can hardcode nonexisting dirs. - _LT_AC_TAGVAR(hardcode_action, $1)=immediate - fi -else - # We cannot hardcode anything, or else we can only hardcode existing - # directories. - _LT_AC_TAGVAR(hardcode_action, $1)=unsupported -fi -AC_MSG_RESULT([$_LT_AC_TAGVAR(hardcode_action, $1)]) - -if test "$_LT_AC_TAGVAR(hardcode_action, $1)" = relink; 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 -])# AC_LIBTOOL_PROG_LD_HARDCODE_LIBPATH - - -# AC_LIBTOOL_SYS_LIB_STRIP -# ------------------------ -AC_DEFUN([AC_LIBTOOL_SYS_LIB_STRIP], -[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" - AC_MSG_RESULT([yes]) - else - AC_MSG_RESULT([no]) -fi - ;; - *) - AC_MSG_RESULT([no]) - ;; - esac -fi -])# AC_LIBTOOL_SYS_LIB_STRIP - - -# AC_LIBTOOL_SYS_DYNAMIC_LINKER -# ----------------------------- -# PORTME Fill in your ld.so characteristics -AC_DEFUN([AC_LIBTOOL_SYS_DYNAMIC_LINKER], -[AC_MSG_CHECKING([dynamic linker characteristics]) -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" -if test "$GCC" = yes; then - sys_lib_search_path_spec=`$CC -print-search-dirs | grep "^libraries:" | $SED -e "s/^libraries://" -e "s,=/,/,g"` - if echo "$sys_lib_search_path_spec" | grep ';' >/dev/null ; then - # 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. - 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 -else - sys_lib_search_path_spec="/lib /usr/lib /usr/local/lib" -fi -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 - 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' - ;; - -aix4* | aix5*) - version_type=linux - 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*) - 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=`$echo "X$lib" | $Xsed -e '\''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' - ;; - -beos*) - library_names_spec='${libname}${shared_ext}' - dynamic_linker="$host_os ld.so" - shlibpath_var=LIBRARY_PATH - ;; - -bsdi[[45]]*) - version_type=linux - 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*) - version_type=windows - shrext_cmds=".dll" - need_version=no - need_lib_prefix=no - - case $GCC,$host_os in - yes,cygwin* | yes,mingw* | yes,pw32*) - 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' - 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="/usr/lib /lib/w32api /lib /usr/local/lib" - ;; - mingw*) - # MinGW DLLs use traditional 'lib' prefix - soname_spec='${libname}`echo ${release} | $SED -e 's/[[.]]/-/g'`${versuffix}${shared_ext}' - sys_lib_search_path_spec=`$CC -print-search-dirs | grep "^libraries:" | $SED -e "s/^libraries://" -e "s,=/,/,g"` - if echo "$sys_lib_search_path_spec" | [grep ';[c-zC-Z]:/' >/dev/null]; then - # It is most probably a Windows format PATH printed by - # mingw gcc, but we are running on Cygwin. Gcc prints its search - # path with ; separators, and with drive letters. We can handle the - # drive letters (cygwin fileutils understands them), so leave them, - # especially as we might pass files found there to a mingw objdump, - # which wouldn't understand a cygwinified path. Ahh. - 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 - ;; - 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 - ;; - - *) - library_names_spec='${libname}`echo ${release} | $SED -e 's/[[.]]/-/g'`${versuffix}${shared_ext} $libname.lib' - ;; - esac - dynamic_linker='Win32 ld.exe' - # 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}${versuffix}$shared_ext ${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`' - # Apple's gcc prints 'gcc -print-search-dirs' doesn't operate the same. - if test "$GCC" = yes; then - sys_lib_search_path_spec=`$CC -print-search-dirs | tr "\n" "$PATH_SEPARATOR" | sed -e 's/libraries:/@libraries:/' | tr "@" "\n" | grep "^libraries:" | sed -e "s/^libraries://" -e "s,=/,/,g" -e "s,$PATH_SEPARATOR, ,g" -e "s,.*,& /lib /usr/lib /usr/local/lib,g"` - else - sys_lib_search_path_spec='/lib /usr/lib /usr/local/lib' - fi - sys_lib_dlsearch_path_spec='/usr/local/lib /lib /usr/lib' - ;; - -dgux*) - 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 - ;; - -freebsd1*) - dynamic_linker=no - ;; - -kfreebsd*-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='GNU ld.so' - ;; - -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[[123]]*) 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 - ;; - freebsd*) # from 4.6 on - shlibpath_overrides_runpath=yes - hardcode_into_libs=yes - ;; - esac - ;; - -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 - 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' - ;; - -interix3*) - 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' - 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 - 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 Linux ELF. -linux*) - 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' - finish_cmds='PATH="\$PATH:/sbin" ldconfig -n $libdir' - shlibpath_var=LD_LIBRARY_PATH - shlibpath_overrides_runpath=no - # 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 - - # find out which ABI we are using - libsuff= - case "$host_cpu" in - x86_64*|s390x*|powerpc64*) - echo '[#]line __oline__ "configure"' > conftest.$ac_ext - if AC_TRY_EVAL(ac_compile); then - case `/usr/bin/file conftest.$ac_objext` in - *64-bit*) - libsuff=64 - sys_lib_search_path_spec="/lib${libsuff} /usr/lib${libsuff} /usr/local/lib${libsuff}" - ;; - esac - fi - rm -rf conftest* - ;; - esac - - # 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/#.*//;s/[:, ]/ /g;s/=[^=]*$//;s/=[^= ]* / /g;/^$/d' | tr '\n' ' '` - sys_lib_dlsearch_path_spec="/lib${libsuff} /usr/lib${libsuff} $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' - ;; - -knetbsd*-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='GNU ld.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 - 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=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=yes - ;; - -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" - ;; - -solaris*) - 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=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 - 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 - export_dynamic_flag_spec='${wl}-Blargedynsym' - 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 - 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 - 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' - shlibpath_overrides_runpath=no - else - sys_lib_search_path_spec='/usr/ccs/lib /usr/lib' - shlibpath_overrides_runpath=yes - 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' - ;; - -uts4*) - version_type=linux - 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 -])# AC_LIBTOOL_SYS_DYNAMIC_LINKER - - -# _LT_AC_TAGCONFIG -# ---------------- -AC_DEFUN([_LT_AC_TAGCONFIG], -[AC_ARG_WITH([tags], - [AC_HELP_STRING([--with-tags@<:@=TAGS@:>@], - [include additional configurations @<:@automatic@:>@])], - [tagnames="$withval"]) - -if test -f "$ltmain" && test -n "$tagnames"; then - if test ! -f "${ofile}"; then - AC_MSG_WARN([output file `$ofile' does not exist]) - fi - - if test -z "$LTCC"; then - eval "`$SHELL ${ofile} --config | grep '^LTCC='`" - if test -z "$LTCC"; then - AC_MSG_WARN([output file `$ofile' does not look like a libtool script]) - else - AC_MSG_WARN([using `LTCC=$LTCC', extracted from `$ofile']) - fi - fi - if test -z "$LTCFLAGS"; then - eval "`$SHELL ${ofile} --config | grep '^LTCFLAGS='`" - fi - - # Extract list of available tagged configurations in $ofile. - # Note that this assumes the entire list is on one line. - available_tags=`grep "^available_tags=" "${ofile}" | $SED -e 's/available_tags=\(.*$\)/\1/' -e 's/\"//g'` - - lt_save_ifs="$IFS"; IFS="${IFS}$PATH_SEPARATOR," - for tagname in $tagnames; do - IFS="$lt_save_ifs" - # Check whether tagname contains only valid characters - case `$echo "X$tagname" | $Xsed -e 's:[[-_ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890,/]]::g'` in - "") ;; - *) AC_MSG_ERROR([invalid tag name: $tagname]) - ;; - esac - - if grep "^# ### BEGIN LIBTOOL TAG CONFIG: $tagname$" < "${ofile}" > /dev/null - then - AC_MSG_ERROR([tag name \"$tagname\" already exists]) - fi - - # Update the list of available tags. - if test -n "$tagname"; then - echo appending configuration tag \"$tagname\" to $ofile - - case $tagname in - CXX) - if test -n "$CXX" && ( test "X$CXX" != "Xno" && - ( (test "X$CXX" = "Xg++" && `g++ -v >/dev/null 2>&1` ) || - (test "X$CXX" != "Xg++"))) ; then - AC_LIBTOOL_LANG_CXX_CONFIG - else - tagname="" - fi - ;; - - F77) - if test -n "$F77" && test "X$F77" != "Xno"; then - AC_LIBTOOL_LANG_F77_CONFIG - else - tagname="" - fi - ;; - - GCJ) - if test -n "$GCJ" && test "X$GCJ" != "Xno"; then - AC_LIBTOOL_LANG_GCJ_CONFIG - else - tagname="" - fi - ;; - - RC) - AC_LIBTOOL_LANG_RC_CONFIG - ;; - - *) - AC_MSG_ERROR([Unsupported tag name: $tagname]) - ;; - esac - - # Append the new tag name to the list of available tags. - if test -n "$tagname" ; then - available_tags="$available_tags $tagname" - fi - fi - done - IFS="$lt_save_ifs" - - # Now substitute the updated list of available tags. - if eval "sed -e 's/^available_tags=.*\$/available_tags=\"$available_tags\"/' \"$ofile\" > \"${ofile}T\""; then - mv "${ofile}T" "$ofile" - chmod +x "$ofile" - else - rm -f "${ofile}T" - AC_MSG_ERROR([unable to update list of available tagged configurations.]) - fi -fi -])# _LT_AC_TAGCONFIG - - -# AC_LIBTOOL_DLOPEN -# ----------------- -# enable checks for dlopen support -AC_DEFUN([AC_LIBTOOL_DLOPEN], - [AC_BEFORE([$0],[AC_LIBTOOL_SETUP]) -])# AC_LIBTOOL_DLOPEN - - -# AC_LIBTOOL_WIN32_DLL -# -------------------- -# declare package support for building win32 DLLs -AC_DEFUN([AC_LIBTOOL_WIN32_DLL], -[AC_BEFORE([$0], [AC_LIBTOOL_SETUP]) -])# AC_LIBTOOL_WIN32_DLL - - -# AC_ENABLE_SHARED([DEFAULT]) -# --------------------------- -# implement the --enable-shared flag -# DEFAULT is either `yes' or `no'. If omitted, it defaults to `yes'. -AC_DEFUN([AC_ENABLE_SHARED], -[define([AC_ENABLE_SHARED_DEFAULT], ifelse($1, no, no, yes))dnl -AC_ARG_ENABLE([shared], - [AC_HELP_STRING([--enable-shared@<:@=PKGS@:>@], - [build shared libraries @<:@default=]AC_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=]AC_ENABLE_SHARED_DEFAULT) -])# AC_ENABLE_SHARED - - -# AC_DISABLE_SHARED -# ----------------- -# set the default shared flag to --disable-shared -AC_DEFUN([AC_DISABLE_SHARED], -[AC_BEFORE([$0],[AC_LIBTOOL_SETUP])dnl -AC_ENABLE_SHARED(no) -])# AC_DISABLE_SHARED - - -# AC_ENABLE_STATIC([DEFAULT]) -# --------------------------- -# implement the --enable-static flag -# DEFAULT is either `yes' or `no'. If omitted, it defaults to `yes'. -AC_DEFUN([AC_ENABLE_STATIC], -[define([AC_ENABLE_STATIC_DEFAULT], ifelse($1, no, no, yes))dnl -AC_ARG_ENABLE([static], - [AC_HELP_STRING([--enable-static@<:@=PKGS@:>@], - [build static libraries @<:@default=]AC_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=]AC_ENABLE_STATIC_DEFAULT) -])# AC_ENABLE_STATIC - - -# AC_DISABLE_STATIC -# ----------------- -# set the default static flag to --disable-static -AC_DEFUN([AC_DISABLE_STATIC], -[AC_BEFORE([$0],[AC_LIBTOOL_SETUP])dnl -AC_ENABLE_STATIC(no) -])# AC_DISABLE_STATIC - - -# AC_ENABLE_FAST_INSTALL([DEFAULT]) -# --------------------------------- -# implement the --enable-fast-install flag -# DEFAULT is either `yes' or `no'. If omitted, it defaults to `yes'. -AC_DEFUN([AC_ENABLE_FAST_INSTALL], -[define([AC_ENABLE_FAST_INSTALL_DEFAULT], ifelse($1, no, no, yes))dnl -AC_ARG_ENABLE([fast-install], - [AC_HELP_STRING([--enable-fast-install@<:@=PKGS@:>@], - [optimize for fast installation @<:@default=]AC_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=]AC_ENABLE_FAST_INSTALL_DEFAULT) -])# AC_ENABLE_FAST_INSTALL - - -# AC_DISABLE_FAST_INSTALL -# ----------------------- -# set the default to --disable-fast-install -AC_DEFUN([AC_DISABLE_FAST_INSTALL], -[AC_BEFORE([$0],[AC_LIBTOOL_SETUP])dnl -AC_ENABLE_FAST_INSTALL(no) -])# AC_DISABLE_FAST_INSTALL - - -# AC_LIBTOOL_PICMODE([MODE]) -# -------------------------- -# implement the --with-pic flag -# MODE is either `yes' or `no'. If omitted, it defaults to `both'. -AC_DEFUN([AC_LIBTOOL_PICMODE], -[AC_BEFORE([$0],[AC_LIBTOOL_SETUP])dnl -pic_mode=ifelse($#,1,$1,default) -])# AC_LIBTOOL_PICMODE - - -# AC_PROG_EGREP -# ------------- -# This is predefined starting with Autoconf 2.54, so this conditional -# definition can be removed once we require Autoconf 2.54 or later. -m4_ifndef([AC_PROG_EGREP], [AC_DEFUN([AC_PROG_EGREP], -[AC_CACHE_CHECK([for egrep], [ac_cv_prog_egrep], - [if echo a | (grep -E '(a|b)') >/dev/null 2>&1 - then ac_cv_prog_egrep='grep -E' - else ac_cv_prog_egrep='egrep' - fi]) - EGREP=$ac_cv_prog_egrep - AC_SUBST([EGREP]) -])]) - - -# AC_PATH_TOOL_PREFIX -# ------------------- -# find a file program which can recognise shared library -AC_DEFUN([AC_PATH_TOOL_PREFIX], -[AC_REQUIRE([AC_PROG_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="ifelse([$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 <&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 - -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 -])# AC_PATH_TOOL_PREFIX - - -# AC_PATH_MAGIC -# ------------- -# find a file program which can recognise a shared library -AC_DEFUN([AC_PATH_MAGIC], -[AC_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 - AC_PATH_TOOL_PREFIX(file, /usr/bin$PATH_SEPARATOR$PATH) - else - MAGIC_CMD=: - fi -fi -])# AC_PATH_MAGIC - - -# AC_PROG_LD -# ---------- -# find the pathname to the GNU or non-GNU linker -AC_DEFUN([AC_PROG_LD], -[AC_ARG_WITH([gnu-ld], - [AC_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]) -AC_REQUIRE([LT_AC_PROG_SED])dnl -AC_REQUIRE([AC_PROG_CC])dnl -AC_REQUIRE([AC_CANONICAL_HOST])dnl -AC_REQUIRE([AC_CANONICAL_BUILD])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; 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 - ;; - -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]) 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 - ;; - -interix3*) - # 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 Linux ELF. -linux*) - lt_cv_deplibs_check_method=pass_all - ;; - -netbsd*) - 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=unknown - ;; - -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 - ;; - -solaris*) - 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 - ;; - -sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX* | sysv4*uw2*) - lt_cv_deplibs_check_method=pass_all - ;; -esac -]) -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 -])# AC_DEPLIBS_CHECK_METHOD - - -# AC_PROG_NM -# ---------- -# find the pathname to a BSD-compatible name lister -AC_DEFUN([AC_PROG_NM], -[AC_CACHE_CHECK([for BSD-compatible 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 - test -z "$lt_cv_path_NM" && lt_cv_path_NM=nm -fi]) -NM="$lt_cv_path_NM" -])# AC_PROG_NM - - -# AC_CHECK_LIBM -# ------------- -# check for math library -AC_DEFUN([AC_CHECK_LIBM], -[AC_REQUIRE([AC_CANONICAL_HOST])dnl -LIBM= -case $host in -*-*-beos* | *-*-cygwin* | *-*-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_CHECK_LIBM - - -# AC_LIBLTDL_CONVENIENCE([DIRECTORY]) -# ----------------------------------- -# sets LIBLTDL to the link flags for the libltdl convenience library and -# LTDLINCL to the include flags for the libltdl header and adds -# --enable-ltdl-convenience to the configure arguments. Note that -# AC_CONFIG_SUBDIRS is not called here. If DIRECTORY is not provided, -# it is assumed to be `libltdl'. LIBLTDL will be prefixed with -# '${top_builddir}/' and LTDLINCL will be prefixed with '${top_srcdir}/' -# (note the single quotes!). If your package is not flat and you're not -# using automake, define top_builddir and top_srcdir appropriately in -# the Makefiles. -AC_DEFUN([AC_LIBLTDL_CONVENIENCE], -[AC_BEFORE([$0],[AC_LIBTOOL_SETUP])dnl - case $enable_ltdl_convenience in - no) AC_MSG_ERROR([this package needs a convenience libltdl]) ;; - "") enable_ltdl_convenience=yes - ac_configure_args="$ac_configure_args --enable-ltdl-convenience" ;; - esac - LIBLTDL='${top_builddir}/'ifelse($#,1,[$1],['libltdl'])/libltdlc.la - LTDLINCL='-I${top_srcdir}/'ifelse($#,1,[$1],['libltdl']) - # For backwards non-gettext consistent compatibility... - INCLTDL="$LTDLINCL" -])# AC_LIBLTDL_CONVENIENCE - - -# AC_LIBLTDL_INSTALLABLE([DIRECTORY]) -# ----------------------------------- -# sets LIBLTDL to the link flags for the libltdl installable library and -# LTDLINCL to the include flags for the libltdl header and adds -# --enable-ltdl-install to the configure arguments. Note that -# AC_CONFIG_SUBDIRS is not called here. If DIRECTORY is not provided, -# and an installed libltdl is not found, it is assumed to be `libltdl'. -# LIBLTDL will be prefixed with '${top_builddir}/'# and LTDLINCL with -# '${top_srcdir}/' (note the single quotes!). If your package is not -# flat and you're not using automake, define top_builddir and top_srcdir -# appropriately in the Makefiles. -# In the future, this macro may have to be called after AC_PROG_LIBTOOL. -AC_DEFUN([AC_LIBLTDL_INSTALLABLE], -[AC_BEFORE([$0],[AC_LIBTOOL_SETUP])dnl - AC_CHECK_LIB(ltdl, lt_dlinit, - [test x"$enable_ltdl_install" != xyes && enable_ltdl_install=no], - [if test x"$enable_ltdl_install" = xno; then - AC_MSG_WARN([libltdl not installed, but installation disabled]) - else - enable_ltdl_install=yes - fi - ]) - if test x"$enable_ltdl_install" = x"yes"; then - ac_configure_args="$ac_configure_args --enable-ltdl-install" - LIBLTDL='${top_builddir}/'ifelse($#,1,[$1],['libltdl'])/libltdl.la - LTDLINCL='-I${top_srcdir}/'ifelse($#,1,[$1],['libltdl']) - else - ac_configure_args="$ac_configure_args --enable-ltdl-install=no" - LIBLTDL="-lltdl" - LTDLINCL= - fi - # For backwards non-gettext consistent compatibility... - INCLTDL="$LTDLINCL" -])# AC_LIBLTDL_INSTALLABLE - - -# AC_LIBTOOL_CXX -# -------------- -# enable support for C++ libraries -AC_DEFUN([AC_LIBTOOL_CXX], -[AC_REQUIRE([_LT_AC_LANG_CXX]) -])# AC_LIBTOOL_CXX - - -# _LT_AC_LANG_CXX -# --------------- -AC_DEFUN([_LT_AC_LANG_CXX], -[AC_REQUIRE([AC_PROG_CXX]) -AC_REQUIRE([_LT_AC_PROG_CXXCPP]) -_LT_AC_SHELL_INIT([tagnames=${tagnames+${tagnames},}CXX]) -])# _LT_AC_LANG_CXX - -# _LT_AC_PROG_CXXCPP -# ------------------ -AC_DEFUN([_LT_AC_PROG_CXXCPP], -[ -AC_REQUIRE([AC_PROG_CXX]) -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 -fi -])# _LT_AC_PROG_CXXCPP - -# AC_LIBTOOL_F77 -# -------------- -# enable support for Fortran 77 libraries -AC_DEFUN([AC_LIBTOOL_F77], -[AC_REQUIRE([_LT_AC_LANG_F77]) -])# AC_LIBTOOL_F77 - - -# _LT_AC_LANG_F77 -# --------------- -AC_DEFUN([_LT_AC_LANG_F77], -[AC_REQUIRE([AC_PROG_F77]) -_LT_AC_SHELL_INIT([tagnames=${tagnames+${tagnames},}F77]) -])# _LT_AC_LANG_F77 - - -# AC_LIBTOOL_GCJ -# -------------- -# enable support for GCJ libraries -AC_DEFUN([AC_LIBTOOL_GCJ], -[AC_REQUIRE([_LT_AC_LANG_GCJ]) -])# AC_LIBTOOL_GCJ - - -# _LT_AC_LANG_GCJ -# --------------- -AC_DEFUN([_LT_AC_LANG_GCJ], -[AC_PROVIDE_IFELSE([AC_PROG_GCJ],[], - [AC_PROVIDE_IFELSE([A][M_PROG_GCJ],[], - [AC_PROVIDE_IFELSE([LT_AC_PROG_GCJ],[], - [ifdef([AC_PROG_GCJ],[AC_REQUIRE([AC_PROG_GCJ])], - [ifdef([A][M_PROG_GCJ],[AC_REQUIRE([A][M_PROG_GCJ])], - [AC_REQUIRE([A][C_PROG_GCJ_OR_A][M_PROG_GCJ])])])])])]) -_LT_AC_SHELL_INIT([tagnames=${tagnames+${tagnames},}GCJ]) -])# _LT_AC_LANG_GCJ - - -# AC_LIBTOOL_RC -# ------------- -# enable support for Windows resource files -AC_DEFUN([AC_LIBTOOL_RC], -[AC_REQUIRE([LT_AC_PROG_RC]) -_LT_AC_SHELL_INIT([tagnames=${tagnames+${tagnames},}RC]) -])# AC_LIBTOOL_RC - - -# AC_LIBTOOL_LANG_C_CONFIG -# ------------------------ -# Ensure that the configuration vars for the C compiler are -# suitably defined. Those variables are subsequently used by -# AC_LIBTOOL_CONFIG to write the compiler configuration to `libtool'. -AC_DEFUN([AC_LIBTOOL_LANG_C_CONFIG], [_LT_AC_LANG_C_CONFIG]) -AC_DEFUN([_LT_AC_LANG_C_CONFIG], -[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_AC_TAGVAR(objext, $1)=$objext - -# Code to be used in simple compile tests -lt_simple_compile_test_code="int some_variable = 0;\n" - -# Code to be used in simple link tests -lt_simple_link_test_code='int main(){return(0);}\n' - -_LT_AC_SYS_COMPILER - -# save warnings/boilerplate of simple test code -_LT_COMPILER_BOILERPLATE -_LT_LINKER_BOILERPLATE - -AC_LIBTOOL_PROG_COMPILER_NO_RTTI($1) -AC_LIBTOOL_PROG_COMPILER_PIC($1) -AC_LIBTOOL_PROG_CC_C_O($1) -AC_LIBTOOL_SYS_HARD_LINK_LOCKS($1) -AC_LIBTOOL_PROG_LD_SHLIBS($1) -AC_LIBTOOL_SYS_DYNAMIC_LINKER($1) -AC_LIBTOOL_PROG_LD_HARDCODE_LIBPATH($1) -AC_LIBTOOL_SYS_LIB_STRIP -AC_LIBTOOL_DLOPEN_SELF - -# 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 - ;; - -aix4* | aix5*) - 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]) - -AC_LIBTOOL_CONFIG($1) - -AC_LANG_POP -CC="$lt_save_CC" -])# AC_LIBTOOL_LANG_C_CONFIG - - -# AC_LIBTOOL_LANG_CXX_CONFIG -# -------------------------- -# Ensure that the configuration vars for the C compiler are -# suitably defined. Those variables are subsequently used by -# AC_LIBTOOL_CONFIG to write the compiler configuration to `libtool'. -AC_DEFUN([AC_LIBTOOL_LANG_CXX_CONFIG], [_LT_AC_LANG_CXX_CONFIG(CXX)]) -AC_DEFUN([_LT_AC_LANG_CXX_CONFIG], -[AC_LANG_PUSH(C++) -AC_REQUIRE([AC_PROG_CXX]) -AC_REQUIRE([_LT_AC_PROG_CXXCPP]) - -_LT_AC_TAGVAR(archive_cmds_need_lc, $1)=no -_LT_AC_TAGVAR(allow_undefined_flag, $1)= -_LT_AC_TAGVAR(always_export_symbols, $1)=no -_LT_AC_TAGVAR(archive_expsym_cmds, $1)= -_LT_AC_TAGVAR(export_dynamic_flag_spec, $1)= -_LT_AC_TAGVAR(hardcode_direct, $1)=no -_LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)= -_LT_AC_TAGVAR(hardcode_libdir_flag_spec_ld, $1)= -_LT_AC_TAGVAR(hardcode_libdir_separator, $1)= -_LT_AC_TAGVAR(hardcode_minus_L, $1)=no -_LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=unsupported -_LT_AC_TAGVAR(hardcode_automatic, $1)=no -_LT_AC_TAGVAR(module_cmds, $1)= -_LT_AC_TAGVAR(module_expsym_cmds, $1)= -_LT_AC_TAGVAR(link_all_deplibs, $1)=unknown -_LT_AC_TAGVAR(old_archive_cmds, $1)=$old_archive_cmds -_LT_AC_TAGVAR(no_undefined_flag, $1)= -_LT_AC_TAGVAR(whole_archive_flag_spec, $1)= -_LT_AC_TAGVAR(enable_shared_with_static_runtimes, $1)=no - -# Dependencies to place before and after the object being linked: -_LT_AC_TAGVAR(predep_objects, $1)= -_LT_AC_TAGVAR(postdep_objects, $1)= -_LT_AC_TAGVAR(predeps, $1)= -_LT_AC_TAGVAR(postdeps, $1)= -_LT_AC_TAGVAR(compiler_lib_search_path, $1)= - -# Source file extension for C++ test sources. -ac_ext=cpp - -# Object file extension for compiled C++ test sources. -objext=o -_LT_AC_TAGVAR(objext, $1)=$objext - -# Code to be used in simple compile tests -lt_simple_compile_test_code="int some_variable = 0;\n" - -# Code to be used in simple link tests -lt_simple_link_test_code='int main(int, char *[[]]) { return(0); }\n' - -# ltmain only uses $CC for tagged configurations so make sure $CC is set. -_LT_AC_SYS_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_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++"} -compiler=$CC -_LT_AC_TAGVAR(compiler, $1)=$CC -_LT_CC_BASENAME([$compiler]) - -# We don't want -fno-exception wen compiling C++ code, so set the -# no_builtin_flag separately -if test "$GXX" = yes; then - _LT_AC_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)=' -fno-builtin' -else - _LT_AC_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)= -fi - -if test "$GXX" = yes; then - # Set up default GNU C++ configuration - - AC_PROG_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_AC_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname -o $lib' - _LT_AC_TAGVAR(archive_expsym_cmds, $1)='$CC -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' - - _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}--rpath ${wl}$libdir' - _LT_AC_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_AC_TAGVAR(whole_archive_flag_spec, $1)="$wlarc"'--whole-archive$convenience '"$wlarc"'--no-whole-archive' - else - _LT_AC_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_AC_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 "\-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_AC_TAGVAR(ld_shlibs, $1)=yes -case $host_os in - aix3*) - # FIXME: insert proper C++ library support - _LT_AC_TAGVAR(ld_shlibs, $1)=no - ;; - aix4* | aix5*) - 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]].*|aix5*) - 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_AC_TAGVAR(archive_cmds, $1)='' - _LT_AC_TAGVAR(hardcode_direct, $1)=yes - _LT_AC_TAGVAR(hardcode_libdir_separator, $1)=':' - _LT_AC_TAGVAR(link_all_deplibs, $1)=yes - - 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 - _LT_AC_TAGVAR(hardcode_direct, $1)=yes - else - # We have old collect2 - _LT_AC_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_AC_TAGVAR(hardcode_minus_L, $1)=yes - _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' - _LT_AC_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 - - # It seems that -bexpall does not export symbols beginning with - # underscore (_), so it is better to generate a list of symbols to export. - _LT_AC_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_AC_TAGVAR(allow_undefined_flag, $1)='-berok' - # Determine the default libpath from the value encoded in an empty executable. - _LT_AC_SYS_LIBPATH_AIX - _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-blibpath:$libdir:'"$aix_libpath" - - _LT_AC_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 echo "${wl}${allow_undefined_flag}"; else :; fi` '"\${wl}$exp_sym_flag:\$export_symbols $shared_flag" - else - if test "$host_cpu" = ia64; then - _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-R $libdir:/usr/lib:/lib' - _LT_AC_TAGVAR(allow_undefined_flag, $1)="-z nodefs" - _LT_AC_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_AC_SYS_LIBPATH_AIX - _LT_AC_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_AC_TAGVAR(no_undefined_flag, $1)=' ${wl}-bernotok' - _LT_AC_TAGVAR(allow_undefined_flag, $1)=' ${wl}-berok' - # Exported symbols can be pulled into shared objects from archives - _LT_AC_TAGVAR(whole_archive_flag_spec, $1)='$convenience' - _LT_AC_TAGVAR(archive_cmds_need_lc, $1)=yes - # This is similar to how AIX traditionally builds its shared libraries. - _LT_AC_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_AC_TAGVAR(allow_undefined_flag, $1)=unsupported - # Joseph Beckenbach says some releases of gcc - # support --undefined. This deserves some investigation. FIXME - _LT_AC_TAGVAR(archive_cmds, $1)='$CC -nostart $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' - else - _LT_AC_TAGVAR(ld_shlibs, $1)=no - fi - ;; - - chorus*) - case $cc_basename in - *) - # FIXME: insert proper C++ library support - _LT_AC_TAGVAR(ld_shlibs, $1)=no - ;; - esac - ;; - - cygwin* | mingw* | pw32*) - # _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1) is actually meaningless, - # as there is no search path for DLLs. - _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' - _LT_AC_TAGVAR(allow_undefined_flag, $1)=unsupported - _LT_AC_TAGVAR(always_export_symbols, $1)=no - _LT_AC_TAGVAR(enable_shared_with_static_runtimes, $1)=yes - - if $LD --help 2>&1 | grep 'auto-import' > /dev/null; then - _LT_AC_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_AC_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_AC_TAGVAR(ld_shlibs, $1)=no - fi - ;; - darwin* | rhapsody*) - case $host_os in - rhapsody* | darwin1.[[012]]) - _LT_AC_TAGVAR(allow_undefined_flag, $1)='${wl}-undefined ${wl}suppress' - ;; - *) # Darwin 1.3 on - if test -z ${MACOSX_DEPLOYMENT_TARGET} ; then - _LT_AC_TAGVAR(allow_undefined_flag, $1)='${wl}-flat_namespace ${wl}-undefined ${wl}suppress' - else - case ${MACOSX_DEPLOYMENT_TARGET} in - 10.[[012]]) - _LT_AC_TAGVAR(allow_undefined_flag, $1)='${wl}-flat_namespace ${wl}-undefined ${wl}suppress' - ;; - 10.*) - _LT_AC_TAGVAR(allow_undefined_flag, $1)='${wl}-undefined ${wl}dynamic_lookup' - ;; - esac - fi - ;; - esac - _LT_AC_TAGVAR(archive_cmds_need_lc, $1)=no - _LT_AC_TAGVAR(hardcode_direct, $1)=no - _LT_AC_TAGVAR(hardcode_automatic, $1)=yes - _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=unsupported - _LT_AC_TAGVAR(whole_archive_flag_spec, $1)='' - _LT_AC_TAGVAR(link_all_deplibs, $1)=yes - - if test "$GXX" = yes ; then - lt_int_apple_cc_single_mod=no - output_verbose_link_cmd='echo' - if $CC -dumpspecs 2>&1 | $EGREP 'single_module' >/dev/null ; then - lt_int_apple_cc_single_mod=yes - fi - if test "X$lt_int_apple_cc_single_mod" = Xyes ; then - _LT_AC_TAGVAR(archive_cmds, $1)='$CC -dynamiclib -single_module $allow_undefined_flag -o $lib $libobjs $deplibs $compiler_flags -install_name $rpath/$soname $verstring' - else - _LT_AC_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' - fi - _LT_AC_TAGVAR(module_cmds, $1)='$CC $allow_undefined_flag -o $lib -bundle $libobjs $deplibs$compiler_flags' - # Don't fix this by using the ld -exported_symbols_list flag, it doesn't exist in older darwin lds - if test "X$lt_int_apple_cc_single_mod" = Xyes ; then - _LT_AC_TAGVAR(archive_expsym_cmds, $1)='sed -e "s,#.*,," -e "s,^[ ]*,," -e "s,^\(..*\),_&," < $export_symbols > $output_objdir/${libname}-symbols.expsym~$CC -dynamiclib -single_module $allow_undefined_flag -o $lib $libobjs $deplibs $compiler_flags -install_name $rpath/$soname $verstring~nmedit -s $output_objdir/${libname}-symbols.expsym ${lib}' - else - _LT_AC_TAGVAR(archive_expsym_cmds, $1)='sed -e "s,#.*,," -e "s,^[ ]*,," -e "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~nmedit -s $output_objdir/${libname}-symbols.expsym ${lib}' - fi - _LT_AC_TAGVAR(module_expsym_cmds, $1)='sed -e "s,#.*,," -e "s,^[ ]*,," -e "s,^\(..*\),_&," < $export_symbols > $output_objdir/${libname}-symbols.expsym~$CC $allow_undefined_flag -o $lib -bundle $libobjs $deplibs$compiler_flags~nmedit -s $output_objdir/${libname}-symbols.expsym ${lib}' - else - case $cc_basename in - xlc*) - output_verbose_link_cmd='echo' - _LT_AC_TAGVAR(archive_cmds, $1)='$CC -qmkshrobj ${wl}-single_module $allow_undefined_flag -o $lib $libobjs $deplibs $compiler_flags ${wl}-install_name ${wl}`echo $rpath/$soname` $verstring' - _LT_AC_TAGVAR(module_cmds, $1)='$CC $allow_undefined_flag -o $lib -bundle $libobjs $deplibs$compiler_flags' - # Don't fix this by using the ld -exported_symbols_list flag, it doesn't exist in older darwin lds - _LT_AC_TAGVAR(archive_expsym_cmds, $1)='sed -e "s,#.*,," -e "s,^[ ]*,," -e "s,^\(..*\),_&," < $export_symbols > $output_objdir/${libname}-symbols.expsym~$CC -qmkshrobj ${wl}-single_module $allow_undefined_flag -o $lib $libobjs $deplibs $compiler_flags ${wl}-install_name ${wl}$rpath/$soname $verstring~nmedit -s $output_objdir/${libname}-symbols.expsym ${lib}' - _LT_AC_TAGVAR(module_expsym_cmds, $1)='sed -e "s,#.*,," -e "s,^[ ]*,," -e "s,^\(..*\),_&," < $export_symbols > $output_objdir/${libname}-symbols.expsym~$CC $allow_undefined_flag -o $lib -bundle $libobjs $deplibs$compiler_flags~nmedit -s $output_objdir/${libname}-symbols.expsym ${lib}' - ;; - *) - _LT_AC_TAGVAR(ld_shlibs, $1)=no - ;; - esac - fi - ;; - - dgux*) - case $cc_basename in - ec++*) - # FIXME: insert proper C++ library support - _LT_AC_TAGVAR(ld_shlibs, $1)=no - ;; - ghcx*) - # Green Hills C++ Compiler - # FIXME: insert proper C++ library support - _LT_AC_TAGVAR(ld_shlibs, $1)=no - ;; - *) - # FIXME: insert proper C++ library support - _LT_AC_TAGVAR(ld_shlibs, $1)=no - ;; - esac - ;; - freebsd[[12]]*) - # C++ shared libraries reported to be fairly broken before switch to ELF - _LT_AC_TAGVAR(ld_shlibs, $1)=no - ;; - freebsd-elf*) - _LT_AC_TAGVAR(archive_cmds_need_lc, $1)=no - ;; - freebsd* | kfreebsd*-gnu | dragonfly*) - # FreeBSD 3 and later use GNU C++ and GNU ld with standard ELF - # conventions - _LT_AC_TAGVAR(ld_shlibs, $1)=yes - ;; - gnu*) - ;; - hpux9*) - _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}+b ${wl}$libdir' - _LT_AC_TAGVAR(hardcode_libdir_separator, $1)=: - _LT_AC_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-E' - _LT_AC_TAGVAR(hardcode_direct, $1)=yes - _LT_AC_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_AC_TAGVAR(ld_shlibs, $1)=no - ;; - aCC*) - _LT_AC_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) | grep "[[-]]L"`; list=""; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; echo $list' - ;; - *) - if test "$GXX" = yes; then - _LT_AC_TAGVAR(archive_cmds, $1)='$rm $output_objdir/$soname~$CC -shared -nostdlib -fPIC ${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_AC_TAGVAR(ld_shlibs, $1)=no - fi - ;; - esac - ;; - hpux10*|hpux11*) - if test $with_gnu_ld = no; then - _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}+b ${wl}$libdir' - _LT_AC_TAGVAR(hardcode_libdir_separator, $1)=: - - case $host_cpu in - hppa*64*|ia64*) - _LT_AC_TAGVAR(hardcode_libdir_flag_spec_ld, $1)='+b $libdir' - ;; - *) - _LT_AC_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-E' - ;; - esac - fi - case $host_cpu in - hppa*64*|ia64*) - _LT_AC_TAGVAR(hardcode_direct, $1)=no - _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no - ;; - *) - _LT_AC_TAGVAR(hardcode_direct, $1)=yes - _LT_AC_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_AC_TAGVAR(ld_shlibs, $1)=no - ;; - aCC*) - case $host_cpu in - hppa*64*) - _LT_AC_TAGVAR(archive_cmds, $1)='$CC -b ${wl}+h ${wl}$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' - ;; - ia64*) - _LT_AC_TAGVAR(archive_cmds, $1)='$CC -b ${wl}+h ${wl}$soname ${wl}+nodefaultrpath -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' - ;; - *) - _LT_AC_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; echo $list' - ;; - *) - if test "$GXX" = yes; then - if test $with_gnu_ld = no; then - case $host_cpu in - hppa*64*) - _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib -fPIC ${wl}+h ${wl}$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' - ;; - ia64*) - _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib -fPIC ${wl}+h ${wl}$soname ${wl}+nodefaultrpath -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' - ;; - *) - _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib -fPIC ${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_AC_TAGVAR(ld_shlibs, $1)=no - fi - ;; - esac - ;; - interix3*) - _LT_AC_TAGVAR(hardcode_direct, $1)=no - _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no - _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath,$libdir' - _LT_AC_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_AC_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_AC_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_AC_TAGVAR(archive_cmds, $1)='$CC -shared -all -multigot $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -soname $soname `test -n "$verstring" && echo -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_AC_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_AC_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && echo ${wl}-set_version ${wl}$verstring` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' - else - _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && echo ${wl}-set_version ${wl}$verstring` -o $lib' - fi - fi - _LT_AC_TAGVAR(link_all_deplibs, $1)=yes - ;; - esac - _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir' - _LT_AC_TAGVAR(hardcode_libdir_separator, $1)=: - ;; - linux*) - 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_AC_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_AC_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; echo $list' - - _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}--rpath,$libdir' - _LT_AC_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_AC_TAGVAR(old_archive_cmds, $1)='$CC -Bstatic -o $oldlib $oldobjs' - ;; - icpc*) - # 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_AC_TAGVAR(archive_cmds, $1)='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname -o $lib' - _LT_AC_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_AC_TAGVAR(archive_cmds, $1)='$CC -shared'"$tmp_idyn"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' - _LT_AC_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_AC_TAGVAR(archive_cmds_need_lc, $1)=no - _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath,$libdir' - _LT_AC_TAGVAR(export_dynamic_flag_spec, $1)='${wl}--export-dynamic' - _LT_AC_TAGVAR(whole_archive_flag_spec, $1)='${wl}--whole-archive$convenience ${wl}--no-whole-archive' - ;; - pgCC*) - # Portland Group C++ compiler - _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname -o $lib' - _LT_AC_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' - - _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}--rpath ${wl}$libdir' - _LT_AC_TAGVAR(export_dynamic_flag_spec, $1)='${wl}--export-dynamic' - _LT_AC_TAGVAR(whole_archive_flag_spec, $1)='${wl}--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; $echo \"$new_convenience\"` ${wl}--no-whole-archive' - ;; - cxx*) - # Compaq C++ - _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname -o $lib' - _LT_AC_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_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='-rpath $libdir' - _LT_AC_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=`echo $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; echo $list' - ;; - esac - ;; - lynxos*) - # FIXME: insert proper C++ library support - _LT_AC_TAGVAR(ld_shlibs, $1)=no - ;; - m88k*) - # FIXME: insert proper C++ library support - _LT_AC_TAGVAR(ld_shlibs, $1)=no - ;; - mvs*) - case $cc_basename in - cxx*) - # FIXME: insert proper C++ library support - _LT_AC_TAGVAR(ld_shlibs, $1)=no - ;; - *) - # FIXME: insert proper C++ library support - _LT_AC_TAGVAR(ld_shlibs, $1)=no - ;; - esac - ;; - netbsd*) - if echo __ELF__ | $CC -E - | grep __ELF__ >/dev/null; then - _LT_AC_TAGVAR(archive_cmds, $1)='$LD -Bshareable -o $lib $predep_objects $libobjs $deplibs $postdep_objects $linker_flags' - wlarc= - _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir' - _LT_AC_TAGVAR(hardcode_direct, $1)=yes - _LT_AC_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::"' - ;; - openbsd2*) - # C++ shared libraries are fairly broken - _LT_AC_TAGVAR(ld_shlibs, $1)=no - ;; - openbsd*) - _LT_AC_TAGVAR(hardcode_direct, $1)=yes - _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no - _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -o $lib' - _LT_AC_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_AC_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_AC_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-E' - _LT_AC_TAGVAR(whole_archive_flag_spec, $1)="$wlarc"'--whole-archive$convenience '"$wlarc"'--no-whole-archive' - fi - output_verbose_link_cmd='echo' - ;; - osf3*) - 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_AC_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_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath,$libdir' - _LT_AC_TAGVAR(hardcode_libdir_separator, $1)=: - - # Archives containing C++ object files must be created using - # "CC -Bstatic", where "CC" is the KAI C++ compiler. - _LT_AC_TAGVAR(old_archive_cmds, $1)='$CC -Bstatic -o $oldlib $oldobjs' - - ;; - RCC*) - # Rational C++ 2.4.1 - # FIXME: insert proper C++ library support - _LT_AC_TAGVAR(ld_shlibs, $1)=no - ;; - cxx*) - _LT_AC_TAGVAR(allow_undefined_flag, $1)=' ${wl}-expect_unresolved ${wl}\*' - _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared${allow_undefined_flag} $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $soname `test -n "$verstring" && echo ${wl}-set_version $verstring` -update_registry ${output_objdir}/so_locations -o $lib' - - _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir' - _LT_AC_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=`echo $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; echo $list' - ;; - *) - if test "$GXX" = yes && test "$with_gnu_ld" = no; then - _LT_AC_TAGVAR(allow_undefined_flag, $1)=' ${wl}-expect_unresolved ${wl}\*' - _LT_AC_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" && echo ${wl}-set_version ${wl}$verstring` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' - - _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir' - _LT_AC_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 "\-L"' - - else - # FIXME: insert proper C++ library support - _LT_AC_TAGVAR(ld_shlibs, $1)=no - fi - ;; - esac - ;; - 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_AC_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_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath,$libdir' - _LT_AC_TAGVAR(hardcode_libdir_separator, $1)=: - - # Archives containing C++ object files must be created using - # the KAI C++ compiler. - _LT_AC_TAGVAR(old_archive_cmds, $1)='$CC -o $oldlib $oldobjs' - ;; - RCC*) - # Rational C++ 2.4.1 - # FIXME: insert proper C++ library support - _LT_AC_TAGVAR(ld_shlibs, $1)=no - ;; - cxx*) - _LT_AC_TAGVAR(allow_undefined_flag, $1)=' -expect_unresolved \*' - _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared${allow_undefined_flag} $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -msym -soname $soname `test -n "$verstring" && echo -set_version $verstring` -update_registry ${output_objdir}/so_locations -o $lib' - _LT_AC_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_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='-rpath $libdir' - _LT_AC_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=`echo $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; echo $list' - ;; - *) - if test "$GXX" = yes && test "$with_gnu_ld" = no; then - _LT_AC_TAGVAR(allow_undefined_flag, $1)=' ${wl}-expect_unresolved ${wl}\*' - _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib ${allow_undefined_flag} $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-msym ${wl}-soname ${wl}$soname `test -n "$verstring" && echo ${wl}-set_version ${wl}$verstring` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' - - _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir' - _LT_AC_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 "\-L"' - - else - # FIXME: insert proper C++ library support - _LT_AC_TAGVAR(ld_shlibs, $1)=no - fi - ;; - esac - ;; - psos*) - # FIXME: insert proper C++ library support - _LT_AC_TAGVAR(ld_shlibs, $1)=no - ;; - sunos4*) - case $cc_basename in - CC*) - # Sun C++ 4.x - # FIXME: insert proper C++ library support - _LT_AC_TAGVAR(ld_shlibs, $1)=no - ;; - lcc*) - # Lucid - # FIXME: insert proper C++ library support - _LT_AC_TAGVAR(ld_shlibs, $1)=no - ;; - *) - # FIXME: insert proper C++ library support - _LT_AC_TAGVAR(ld_shlibs, $1)=no - ;; - esac - ;; - solaris*) - case $cc_basename in - CC*) - # Sun C++ 4.2, 5.x and Centerline C++ - _LT_AC_TAGVAR(archive_cmds_need_lc,$1)=yes - _LT_AC_TAGVAR(no_undefined_flag, $1)=' -zdefs' - _LT_AC_TAGVAR(archive_cmds, $1)='$CC -G${allow_undefined_flag} -h$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' - _LT_AC_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_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir' - _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no - case $host_os in - solaris2.[[0-5]] | solaris2.[[0-5]].*) ;; - *) - # The C++ compiler is used as linker so we must use $wl - # flag to pass the commands to the underlying system - # linker. We must also pass each convience library through - # to the system linker between allextract/defaultextract. - # The C++ compiler will combine linker options so we - # cannot just pass the convience library names through - # without $wl. - # Supported since Solaris 2.6 (maybe 2.5.1?) - _LT_AC_TAGVAR(whole_archive_flag_spec, $1)='${wl}-z ${wl}allextract`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; $echo \"$new_convenience\"` ${wl}-z ${wl}defaultextract' - ;; - esac - _LT_AC_TAGVAR(link_all_deplibs, $1)=yes - - output_verbose_link_cmd='echo' - - # 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_AC_TAGVAR(old_archive_cmds, $1)='$CC -xar -o $oldlib $oldobjs' - ;; - gcx*) - # Green Hills C++ Compiler - _LT_AC_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_AC_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_AC_TAGVAR(no_undefined_flag, $1)=' ${wl}-z ${wl}defs' - if $CC --version | grep -v '^2\.7' > /dev/null; then - _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib $LDFLAGS $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-h $wl$soname -o $lib' - _LT_AC_TAGVAR(archive_expsym_cmds, $1)='$echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~$echo "local: *; };" >> $lib.exp~ - $CC -shared -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 \"\-L\"" - else - # g++ 2.7 appears to require `-G' NOT `-shared' on this - # platform. - _LT_AC_TAGVAR(archive_cmds, $1)='$CC -G -nostdlib $LDFLAGS $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-h $wl$soname -o $lib' - _LT_AC_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 \"\-L\"" - fi - - _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-R $wl$libdir' - fi - ;; - esac - ;; - sysv4*uw2* | sysv5OpenUNIX* | sysv5UnixWare7.[[01]].[[10]]* | unixware7* | sco3.2v5.0.[[024]]*) - _LT_AC_TAGVAR(no_undefined_flag, $1)='${wl}-z,text' - _LT_AC_TAGVAR(archive_cmds_need_lc, $1)=no - _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no - runpath_var='LD_RUN_PATH' - - case $cc_basename in - CC*) - _LT_AC_TAGVAR(archive_cmds, $1)='$CC -G ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' - _LT_AC_TAGVAR(archive_expsym_cmds, $1)='$CC -G ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' - ;; - *) - _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' - _LT_AC_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. - # 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. - # So that behaviour is only enabled if SCOABSPATH is set to a - # non-empty value in the environment. Most likely only useful for - # creating official distributions of packages. - # This is a hack until libtool officially supports absolute path - # names for shared libraries. - _LT_AC_TAGVAR(no_undefined_flag, $1)='${wl}-z,text' - _LT_AC_TAGVAR(allow_undefined_flag, $1)='${wl}-z,nodefs' - _LT_AC_TAGVAR(archive_cmds_need_lc, $1)=no - _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no - _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='`test -z "$SCOABSPATH" && echo ${wl}-R,$libdir`' - _LT_AC_TAGVAR(hardcode_libdir_separator, $1)=':' - _LT_AC_TAGVAR(link_all_deplibs, $1)=yes - _LT_AC_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-Bexport' - runpath_var='LD_RUN_PATH' - - case $cc_basename in - CC*) - _LT_AC_TAGVAR(archive_cmds, $1)='$CC -G ${wl}-h,\${SCOABSPATH:+${install_libdir}/}$soname -o $lib $libobjs $deplibs $compiler_flags' - _LT_AC_TAGVAR(archive_expsym_cmds, $1)='$CC -G ${wl}-Bexport:$export_symbols ${wl}-h,\${SCOABSPATH:+${install_libdir}/}$soname -o $lib $libobjs $deplibs $compiler_flags' - ;; - *) - _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared ${wl}-h,\${SCOABSPATH:+${install_libdir}/}$soname -o $lib $libobjs $deplibs $compiler_flags' - _LT_AC_TAGVAR(archive_expsym_cmds, $1)='$CC -shared ${wl}-Bexport:$export_symbols ${wl}-h,\${SCOABSPATH:+${install_libdir}/}$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_AC_TAGVAR(ld_shlibs, $1)=no - ;; - *) - # FIXME: insert proper C++ library support - _LT_AC_TAGVAR(ld_shlibs, $1)=no - ;; - esac - ;; - vxworks*) - # FIXME: insert proper C++ library support - _LT_AC_TAGVAR(ld_shlibs, $1)=no - ;; - *) - # FIXME: insert proper C++ library support - _LT_AC_TAGVAR(ld_shlibs, $1)=no - ;; -esac -AC_MSG_RESULT([$_LT_AC_TAGVAR(ld_shlibs, $1)]) -test "$_LT_AC_TAGVAR(ld_shlibs, $1)" = no && can_build_shared=no - -_LT_AC_TAGVAR(GCC, $1)="$GXX" -_LT_AC_TAGVAR(LD, $1)="$LD" - -AC_LIBTOOL_POSTDEP_PREDEP($1) -AC_LIBTOOL_PROG_COMPILER_PIC($1) -AC_LIBTOOL_PROG_CC_C_O($1) -AC_LIBTOOL_SYS_HARD_LINK_LOCKS($1) -AC_LIBTOOL_PROG_LD_SHLIBS($1) -AC_LIBTOOL_SYS_DYNAMIC_LINKER($1) -AC_LIBTOOL_PROG_LD_HARDCODE_LIBPATH($1) - -AC_LIBTOOL_CONFIG($1) - -AC_LANG_POP -CC=$lt_save_CC -LDCXX=$LD -LD=$lt_save_LD -GCC=$lt_save_GCC -with_gnu_ldcxx=$with_gnu_ld -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 -])# AC_LIBTOOL_LANG_CXX_CONFIG - -# AC_LIBTOOL_POSTDEP_PREDEP([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. -AC_DEFUN([AC_LIBTOOL_POSTDEP_PREDEP],[ -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... -ifelse([$1],[],[cat > conftest.$ac_ext < conftest.$ac_ext < conftest.$ac_ext < conftest.$ac_ext <> "$cfgfile" -ifelse([$1], [], -[#! $SHELL - -# `$echo "$cfgfile" | sed 's%^.*/%%'` - Provide generalized library-building support services. -# Generated automatically by $PROGRAM (GNU $PACKAGE $VERSION$TIMESTAMP) -# NOTE: Changes made to this file will be lost: look at ltmain.sh. -# -# Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001 -# Free Software Foundation, Inc. -# -# This file is part of GNU Libtool: -# Originally by Gordon Matzigkeit , 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 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, 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. - -# 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//" - -# 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 - -# The names of the tagged configurations supported by this script. -available_tags= - -# ### BEGIN LIBTOOL CONFIG], -[# ### BEGIN LIBTOOL TAG CONFIG: $tagname]) - -# Libtool was configured on host `(hostname || uname -n) 2>/dev/null | sed 1q`: - -# Shell to use when invoking shell scripts. -SHELL=$lt_SHELL - -# Whether or not to build shared libraries. -build_libtool_libs=$enable_shared - -# Whether or not to build static libraries. -build_old_libs=$enable_static - -# Whether or not to add -lc for building shared libraries. -build_libtool_need_lc=$_LT_AC_TAGVAR(archive_cmds_need_lc, $1) - -# Whether or not to disallow shared libs when runtime libs are static -allow_libtool_libs_with_static_runtimes=$_LT_AC_TAGVAR(enable_shared_with_static_runtimes, $1) - -# Whether or not to optimize for fast installation. -fast_install=$enable_fast_install - -# 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 - -# An echo program that does not interpret backslashes. -echo=$lt_echo - -# The archiver. -AR=$lt_AR -AR_FLAGS=$lt_AR_FLAGS - -# A C compiler. -LTCC=$lt_LTCC - -# LTCC compiler flags. -LTCFLAGS=$lt_LTCFLAGS - -# A language-specific compiler. -CC=$lt_[]_LT_AC_TAGVAR(compiler, $1) - -# Is the compiler the GNU C compiler? -with_gcc=$_LT_AC_TAGVAR(GCC, $1) - -gcc_dir=\`gcc -print-file-name=. | $SED 's,/\.$,,'\` -gcc_ver=\`gcc -dumpversion\` - -# An ERE matcher. -EGREP=$lt_EGREP - -# The linker used to build libraries. -LD=$lt_[]_LT_AC_TAGVAR(LD, $1) - -# Whether we need hard or soft links. -LN_S=$lt_LN_S - -# A BSD-compatible nm program. -NM=$lt_NM - -# A symbol stripping program -STRIP=$lt_STRIP - -# Used to examine libraries when file_magic_cmd begins "file" -MAGIC_CMD=$MAGIC_CMD - -# Used on cygwin: DLL creation program. -DLLTOOL="$DLLTOOL" - -# Used on cygwin: object dumper. -OBJDUMP="$OBJDUMP" - -# Used on cygwin: assembler. -AS="$AS" - -# The name of the directory that contains temporary libtool files. -objdir=$objdir - -# How to create reloadable object files. -reload_flag=$lt_reload_flag -reload_cmds=$lt_reload_cmds - -# How to pass a linker flag through the compiler. -wl=$lt_[]_LT_AC_TAGVAR(lt_prog_compiler_wl, $1) - -# Object file suffix (normally "o"). -objext="$ac_objext" - -# Old archive suffix (normally "a"). -libext="$libext" - -# Shared library suffix (normally ".so"). -shrext_cmds='$shrext_cmds' - -# Executable file suffix (normally ""). -exeext="$exeext" - -# Additional compiler flags for building library objects. -pic_flag=$lt_[]_LT_AC_TAGVAR(lt_prog_compiler_pic, $1) -pic_mode=$pic_mode - -# What is the maximum length of a command? -max_cmd_len=$lt_cv_sys_max_cmd_len - -# Does compiler simultaneously support -c and -o options? -compiler_c_o=$lt_[]_LT_AC_TAGVAR(lt_cv_prog_compiler_c_o, $1) - -# Must we lock files when doing compilation? -need_locks=$lt_need_locks - -# 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 - -# 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 - -# Compiler flag to prevent dynamic linking. -link_static_flag=$lt_[]_LT_AC_TAGVAR(lt_prog_compiler_static, $1) - -# Compiler flag to turn off builtin functions. -no_builtin_flag=$lt_[]_LT_AC_TAGVAR(lt_prog_compiler_no_builtin_flag, $1) - -# Compiler flag to allow reflexive dlopens. -export_dynamic_flag_spec=$lt_[]_LT_AC_TAGVAR(export_dynamic_flag_spec, $1) - -# Compiler flag to generate shared objects directly from archives. -whole_archive_flag_spec=$lt_[]_LT_AC_TAGVAR(whole_archive_flag_spec, $1) - -# Compiler flag to generate thread-safe objects. -thread_safe_flag_spec=$lt_[]_LT_AC_TAGVAR(thread_safe_flag_spec, $1) - -# Library versioning type. -version_type=$version_type - -# 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 - -# Commands used to build and install an old-style archive. -RANLIB=$lt_RANLIB -old_archive_cmds=$lt_[]_LT_AC_TAGVAR(old_archive_cmds, $1) -old_postinstall_cmds=$lt_old_postinstall_cmds -old_postuninstall_cmds=$lt_old_postuninstall_cmds - -# Create an old-style archive from a shared archive. -old_archive_from_new_cmds=$lt_[]_LT_AC_TAGVAR(old_archive_from_new_cmds, $1) - -# Create a temporary old-style archive to link instead of a shared archive. -old_archive_from_expsyms_cmds=$lt_[]_LT_AC_TAGVAR(old_archive_from_expsyms_cmds, $1) - -# Commands used to build and install a shared archive. -archive_cmds=$lt_[]_LT_AC_TAGVAR(archive_cmds, $1) -archive_expsym_cmds=$lt_[]_LT_AC_TAGVAR(archive_expsym_cmds, $1) -postinstall_cmds=$lt_postinstall_cmds -postuninstall_cmds=$lt_postuninstall_cmds - -# Commands used to build a loadable module (assumed same as above if empty) -module_cmds=$lt_[]_LT_AC_TAGVAR(module_cmds, $1) -module_expsym_cmds=$lt_[]_LT_AC_TAGVAR(module_expsym_cmds, $1) - -# Commands to strip libraries. -old_striplib=$lt_old_striplib -striplib=$lt_striplib - -# Dependencies to place before the objects being linked to create a -# shared library. -predep_objects=\`echo $lt_[]_LT_AC_TAGVAR(predep_objects, $1) | \$SED -e "s@\${gcc_dir}@\\\${gcc_dir}@g;s@\${gcc_ver}@\\\${gcc_ver}@g"\` - -# Dependencies to place after the objects being linked to create a -# shared library. -postdep_objects=\`echo $lt_[]_LT_AC_TAGVAR(postdep_objects, $1) | \$SED -e "s@\${gcc_dir}@\\\${gcc_dir}@g;s@\${gcc_ver}@\\\${gcc_ver}@g"\` - -# Dependencies to place before the objects being linked to create a -# shared library. -predeps=$lt_[]_LT_AC_TAGVAR(predeps, $1) - -# Dependencies to place after the objects being linked to create a -# shared library. -postdeps=$lt_[]_LT_AC_TAGVAR(postdeps, $1) - -# The library search path used internally by the compiler when linking -# a shared library. -compiler_lib_search_path=\`echo $lt_[]_LT_AC_TAGVAR(compiler_lib_search_path, $1) | \$SED -e "s@\${gcc_dir}@\\\${gcc_dir}@g;s@\${gcc_ver}@\\\${gcc_ver}@g"\` - -# 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 - -# Flag that allows shared libraries with undefined symbols to be built. -allow_undefined_flag=$lt_[]_LT_AC_TAGVAR(allow_undefined_flag, $1) - -# Flag that forces no undefined symbols. -no_undefined_flag=$lt_[]_LT_AC_TAGVAR(no_undefined_flag, $1) - -# Commands used to finish a libtool library installation in a directory. -finish_cmds=$lt_finish_cmds - -# Same as above, but a single script fragment to be evaled but not shown. -finish_eval=$lt_finish_eval - -# 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 - -# This is the shared library runtime path variable. -runpath_var=$runpath_var - -# This is the shared library path variable. -shlibpath_var=$shlibpath_var - -# Is shlibpath searched before the hard-coded library search path? -shlibpath_overrides_runpath=$shlibpath_overrides_runpath - -# How to hardcode a shared library path into an executable. -hardcode_action=$_LT_AC_TAGVAR(hardcode_action, $1) - -# Whether we should hardcode library paths into libraries. -hardcode_into_libs=$hardcode_into_libs - -# Flag to hardcode \$libdir into a binary during linking. -# This must work even if \$libdir does not exist. -hardcode_libdir_flag_spec=$lt_[]_LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1) - -# If ld is used when linking, flag to hardcode \$libdir into -# a binary during linking. This must work even if \$libdir does -# not exist. -hardcode_libdir_flag_spec_ld=$lt_[]_LT_AC_TAGVAR(hardcode_libdir_flag_spec_ld, $1) - -# Whether we need a single -rpath flag with a separated argument. -hardcode_libdir_separator=$lt_[]_LT_AC_TAGVAR(hardcode_libdir_separator, $1) - -# Set to yes if using DIR/libNAME${shared_ext} during linking hardcodes DIR into the -# resulting binary. -hardcode_direct=$_LT_AC_TAGVAR(hardcode_direct, $1) - -# Set to yes if using the -LDIR flag during linking hardcodes DIR into the -# resulting binary. -hardcode_minus_L=$_LT_AC_TAGVAR(hardcode_minus_L, $1) - -# Set to yes if using SHLIBPATH_VAR=DIR during linking hardcodes DIR into -# the resulting binary. -hardcode_shlibpath_var=$_LT_AC_TAGVAR(hardcode_shlibpath_var, $1) - -# 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=$_LT_AC_TAGVAR(hardcode_automatic, $1) - -# Variables whose values should be saved in libtool wrapper scripts and -# restored at relink time. -variables_saved_for_relink="$variables_saved_for_relink" - -# Whether libtool must link a program against all its dependency libraries. -link_all_deplibs=$_LT_AC_TAGVAR(link_all_deplibs, $1) - -# Compile-time system search path for libraries -sys_lib_search_path_spec=\`echo $lt_sys_lib_search_path_spec | \$SED -e "s@\${gcc_dir}@\\\${gcc_dir}@g;s@\${gcc_ver}@\\\${gcc_ver}@g"\` - -# Run-time system search path for libraries -sys_lib_dlsearch_path_spec=$lt_sys_lib_dlsearch_path_spec - -# Fix the shell variable \$srcfile for the compiler. -fix_srcfile_path="$_LT_AC_TAGVAR(fix_srcfile_path, $1)" - -# Set to yes if exported symbols are required. -always_export_symbols=$_LT_AC_TAGVAR(always_export_symbols, $1) - -# The commands to list exported symbols. -export_symbols_cmds=$lt_[]_LT_AC_TAGVAR(export_symbols_cmds, $1) - -# The commands to extract the exported symbol list from a shared archive. -extract_expsyms_cmds=$lt_extract_expsyms_cmds - -# Symbols that should not be listed in the preloaded symbols. -exclude_expsyms=$lt_[]_LT_AC_TAGVAR(exclude_expsyms, $1) - -# Symbols that must always be exported. -include_expsyms=$lt_[]_LT_AC_TAGVAR(include_expsyms, $1) - -ifelse([$1],[], -[# ### END LIBTOOL CONFIG], -[# ### END LIBTOOL TAG CONFIG: $tagname]) - -__EOF__ - -ifelse([$1],[], [ - case $host_os in - aix3*) - cat <<\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 -EOF - ;; - esac - - # 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) - - mv -f "$cfgfile" "$ofile" || \ - (rm -f "$ofile" && cp "$cfgfile" "$ofile" && rm -f "$cfgfile") - chmod +x "$ofile" -]) -else - # If there is no Makefile yet, we rely on a make rule to execute - # `config.status --recheck' to rerun these tests and create the - # libtool script then. - ltmain_in=`echo $ltmain | sed -e 's/\.sh$/.in/'` - if test -f "$ltmain_in"; then - test -f Makefile && make "$ltmain" - fi -fi -])# AC_LIBTOOL_CONFIG - - -# AC_LIBTOOL_PROG_COMPILER_NO_RTTI([TAGNAME]) -# ------------------------------------------- -AC_DEFUN([AC_LIBTOOL_PROG_COMPILER_NO_RTTI], -[AC_REQUIRE([_LT_AC_SYS_COMPILER])dnl - -_LT_AC_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)= - -if test "$GCC" = yes; then - _LT_AC_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)=' -fno-builtin' - - AC_LIBTOOL_COMPILER_OPTION([if $compiler supports -fno-rtti -fno-exceptions], - lt_cv_prog_compiler_rtti_exceptions, - [-fno-rtti -fno-exceptions], [], - [_LT_AC_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)="$_LT_AC_TAGVAR(lt_prog_compiler_no_builtin_flag, $1) -fno-rtti -fno-exceptions"]) -fi -])# AC_LIBTOOL_PROG_COMPILER_NO_RTTI - - -# AC_LIBTOOL_SYS_GLOBAL_SYMBOL_PIPE -# --------------------------------- -AC_DEFUN([AC_LIBTOOL_SYS_GLOBAL_SYMBOL_PIPE], -[AC_REQUIRE([AC_CANONICAL_HOST]) -AC_REQUIRE([AC_PROG_NM]) -AC_REQUIRE([AC_OBJEXT]) -# 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]]*\)' - -# Transform an extracted symbol line into a proper C declaration -lt_cv_sys_global_symbol_to_cdecl="sed -n -e 's/^. .* \(.*\)$/extern int \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\\\", (lt_ptr) 0},/p' -e 's/^$symcode \([[^ ]]*\) \([[^ ]]*\)$/ {\"\2\", (lt_ptr) \&\2},/p'" - -# Define system-specific variables. -case $host_os in -aix*) - symcode='[[BCDT]]' - ;; -cygwin* | mingw* | pw32*) - symcode='[[ABCDGISTW]]' - ;; -hpux*) # Its linker distinguishes data from code symbols - if test "$host_cpu" = ia64; then - symcode='[[ABCDEGRST]]' - fi - lt_cv_sys_global_symbol_to_cdecl="sed -n -e 's/^T .* \(.*\)$/extern int \1();/p' -e 's/^$symcode* .* \(.*\)$/extern char \1;/p'" - lt_cv_sys_global_symbol_to_c_name_address="sed -n -e 's/^: \([[^ ]]*\) $/ {\\\"\1\\\", (lt_ptr) 0},/p' -e 's/^$symcode* \([[^ ]]*\) \([[^ ]]*\)$/ {\"\2\", (lt_ptr) \&\2},/p'" - ;; -linux*) - if test "$host_cpu" = ia64; then - symcode='[[ABCDGIRSTW]]' - lt_cv_sys_global_symbol_to_cdecl="sed -n -e 's/^T .* \(.*\)$/extern int \1();/p' -e 's/^$symcode* .* \(.*\)$/extern char \1;/p'" - lt_cv_sys_global_symbol_to_c_name_address="sed -n -e 's/^: \([[^ ]]*\) $/ {\\\"\1\\\", (lt_ptr) 0},/p' -e 's/^$symcode* \([[^ ]]*\) \([[^ ]]*\)$/ {\"\2\", (lt_ptr) \&\2},/p'" - 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 - -# 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 - -# If we're using GNU nm, then use its standard symbol codes. -case `$NM -V 2>&1` in -*GNU* | *'with BFD'*) - symcode='[[ABCDGIRSTW]]' ;; -esac - -# Try without a prefix undercore, 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. - lt_cv_sys_global_symbol_pipe="sed -n -e 's/^.*[[ ]]\($symcode$symcode*\)[[ ]][[ ]]*$ac_symprfx$sympat$opt_cr$/$symxfrm/p'" - - # Check to see that the pipe works correctly. - pipe_works=no - - rm -f conftest* - cat > conftest.$ac_ext < $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 < conftest.$ac_ext -#ifdef __cplusplus -extern "C" { -#endif - -EOF - # Now generate the symbol file. - eval "$lt_cv_sys_global_symbol_to_cdecl"' < "$nlist" | grep -v main >> conftest.$ac_ext' - - cat <> conftest.$ac_ext -#if defined (__STDC__) && __STDC__ -# define lt_ptr_t void * -#else -# define lt_ptr_t char * -# define const -#endif - -/* The mapping between symbol names and symbols. */ -const struct { - const char *name; - lt_ptr_t address; -} -lt_preloaded_symbols[[]] = -{ -EOF - $SED "s/^$symcode$symcode* \(.*\) \(.*\)$/ {\"\2\", (lt_ptr_t) \&\2},/" < "$nlist" | grep -v main >> conftest.$ac_ext - cat <<\EOF >> conftest.$ac_ext - {0, (lt_ptr_t) 0} -}; - -#ifdef __cplusplus -} -#endif -EOF - # Now try linking the two files. - mv conftest.$ac_objext conftstm.$ac_objext - lt_save_LIBS="$LIBS" - lt_save_CFLAGS="$CFLAGS" - LIBS="conftstm.$ac_objext" - CFLAGS="$CFLAGS$_LT_AC_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_save_LIBS" - CFLAGS="$lt_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 -f 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 -]) # AC_LIBTOOL_SYS_GLOBAL_SYMBOL_PIPE - - -# AC_LIBTOOL_PROG_COMPILER_PIC([TAGNAME]) -# --------------------------------------- -AC_DEFUN([AC_LIBTOOL_PROG_COMPILER_PIC], -[_LT_AC_TAGVAR(lt_prog_compiler_wl, $1)= -_LT_AC_TAGVAR(lt_prog_compiler_pic, $1)= -_LT_AC_TAGVAR(lt_prog_compiler_static, $1)= - -AC_MSG_CHECKING([for $compiler option to produce PIC]) - ifelse([$1],[CXX],[ - # C++ specific cases for pic, static, wl, etc. - if test "$GXX" = yes; then - _LT_AC_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' - _LT_AC_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_AC_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' - fi - ;; - amigaos*) - # 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_AC_TAGVAR(lt_prog_compiler_pic, $1)='-m68020 -resident32 -malways-restore-a4' - ;; - beos* | cygwin* | irix5* | irix6* | nonstopux* | osf3* | osf4* | osf5*) - # PIC is the default for these OSes. - ;; - mingw* | os2* | pw32*) - # 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_AC_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_AC_TAGVAR(lt_prog_compiler_pic, $1)='-fno-common' - ;; - *djgpp*) - # DJGPP does not support shared libraries at all - _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)= - ;; - interix3*) - # 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_AC_TAGVAR(lt_prog_compiler_pic, $1)=-Kconform_pic - fi - ;; - hpux*) - # 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*) - ;; - *) - _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' - ;; - esac - ;; - *) - _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' - ;; - esac - else - case $host_os in - aix4* | aix5*) - # All AIX code is PIC. - if test "$host_cpu" = ia64; then - # AIX 5 now supports IA64 processor - _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' - else - _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-bnso -bI:/lib/syscalls.exp' - fi - ;; - chorus*) - case $cc_basename in - cxch68*) - # Green Hills C++ Compiler - # _LT_AC_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 - ;; - darwin*) - # PIC is the default on this platform - # Common symbols not allowed in MH_DYLIB files - case $cc_basename in - xlc*) - _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-qnocommon' - _LT_AC_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' - ;; - esac - ;; - dgux*) - case $cc_basename in - ec++*) - _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' - ;; - ghcx*) - # Green Hills C++ Compiler - _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-pic' - ;; - *) - ;; - esac - ;; - freebsd* | kfreebsd*-gnu | dragonfly*) - # FreeBSD uses GNU C++ - ;; - hpux9* | hpux10* | hpux11*) - case $cc_basename in - CC*) - _LT_AC_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' - _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='${wl}-a ${wl}archive' - if test "$host_cpu" != ia64; then - _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='+Z' - fi - ;; - aCC*) - _LT_AC_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' - _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='${wl}-a ${wl}archive' - case $host_cpu in - hppa*64*|ia64*) - # +Z the default - ;; - *) - _LT_AC_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_AC_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' - _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-non_shared' - # CC pic flag -KPIC is the default. - ;; - *) - ;; - esac - ;; - linux*) - case $cc_basename in - KCC*) - # KAI C++ Compiler - _LT_AC_TAGVAR(lt_prog_compiler_wl, $1)='--backend -Wl,' - _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' - ;; - icpc* | ecpc*) - # Intel C++ - _LT_AC_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' - _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' - _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-static' - ;; - pgCC*) - # Portland Group C++ compiler. - _LT_AC_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' - _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-fpic' - _LT_AC_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_AC_TAGVAR(lt_prog_compiler_pic, $1)= - _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-non_shared' - ;; - *) - ;; - esac - ;; - lynxos*) - ;; - m88k*) - ;; - mvs*) - case $cc_basename in - cxx*) - _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-W c,exportall' - ;; - *) - ;; - esac - ;; - netbsd*) - ;; - osf3* | osf4* | osf5*) - case $cc_basename in - KCC*) - _LT_AC_TAGVAR(lt_prog_compiler_wl, $1)='--backend -Wl,' - ;; - RCC*) - # Rational C++ 2.4.1 - _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-pic' - ;; - cxx*) - # Digital/Compaq C++ - _LT_AC_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_AC_TAGVAR(lt_prog_compiler_pic, $1)= - _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-non_shared' - ;; - *) - ;; - esac - ;; - psos*) - ;; - solaris*) - case $cc_basename in - CC*) - # Sun C++ 4.2, 5.x and Centerline C++ - _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' - _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' - _LT_AC_TAGVAR(lt_prog_compiler_wl, $1)='-Qoption ld ' - ;; - gcx*) - # Green Hills C++ Compiler - _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-PIC' - ;; - *) - ;; - esac - ;; - sunos4*) - case $cc_basename in - CC*) - # Sun C++ 4.x - _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-pic' - _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' - ;; - lcc*) - # Lucid - _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-pic' - ;; - *) - ;; - esac - ;; - tandem*) - case $cc_basename in - NCC*) - # NonStop-UX NCC 3.20 - _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' - ;; - *) - ;; - esac - ;; - sysv5* | unixware* | sco3.2v5* | sco5v6* | OpenUNIX*) - case $cc_basename in - CC*) - _LT_AC_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' - _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' - _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' - ;; - esac - ;; - vxworks*) - ;; - *) - _LT_AC_TAGVAR(lt_prog_compiler_can_build_shared, $1)=no - ;; - esac - fi -], -[ - if test "$GCC" = yes; then - _LT_AC_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' - _LT_AC_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_AC_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' - fi - ;; - - amigaos*) - # 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_AC_TAGVAR(lt_prog_compiler_pic, $1)='-m68020 -resident32 -malways-restore-a4' - ;; - - beos* | cygwin* | irix5* | irix6* | nonstopux* | osf3* | osf4* | osf5*) - # PIC is the default for these OSes. - ;; - - mingw* | pw32* | os2*) - # 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_AC_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_AC_TAGVAR(lt_prog_compiler_pic, $1)='-fno-common' - ;; - - interix3*) - # 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_AC_TAGVAR(lt_prog_compiler_can_build_shared, $1)=no - enable_shared=no - ;; - - sysv4*MP*) - if test -d /usr/nec; then - _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)=-Kconform_pic - fi - ;; - - hpux*) - # 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_AC_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' - ;; - esac - ;; - - *) - _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' - ;; - esac - else - # PORTME Check for flag to pass linker flags through the system compiler. - case $host_os in - aix*) - _LT_AC_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' - if test "$host_cpu" = ia64; then - # AIX 5 now supports IA64 processor - _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' - else - _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-bnso -bI:/lib/syscalls.exp' - fi - ;; - darwin*) - # PIC is the default on this platform - # Common symbols not allowed in MH_DYLIB files - case $cc_basename in - xlc*) - _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-qnocommon' - _LT_AC_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' - ;; - esac - ;; - - mingw* | pw32* | os2*) - # 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_AC_TAGVAR(lt_prog_compiler_pic, $1)='-DDLL_EXPORT' - ;; - - hpux9* | hpux10* | hpux11*) - _LT_AC_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_AC_TAGVAR(lt_prog_compiler_pic, $1)='+Z' - ;; - esac - # Is there a better lt_prog_compiler_static that works with the bundled CC? - _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='${wl}-a ${wl}archive' - ;; - - irix5* | irix6* | nonstopux*) - _LT_AC_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' - # PIC (with -KPIC) is the default. - _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-non_shared' - ;; - - newsos6) - _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' - _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' - ;; - - linux*) - case $cc_basename in - icc* | ecc*) - _LT_AC_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' - _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' - _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-static' - ;; - pgcc* | pgf77* | pgf90* | pgf95*) - # Portland Group compilers (*not* the Pentium gcc compiler, - # which looks to be a dead project) - _LT_AC_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' - _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-fpic' - _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' - ;; - ccc*) - _LT_AC_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' - # All Alpha code is PIC. - _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-non_shared' - ;; - esac - ;; - - osf3* | osf4* | osf5*) - _LT_AC_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' - # All OSF/1 code is PIC. - _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-non_shared' - ;; - - solaris*) - _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' - _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' - case $cc_basename in - f77* | f90* | f95*) - _LT_AC_TAGVAR(lt_prog_compiler_wl, $1)='-Qoption ld ';; - *) - _LT_AC_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,';; - esac - ;; - - sunos4*) - _LT_AC_TAGVAR(lt_prog_compiler_wl, $1)='-Qoption ld ' - _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-PIC' - _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' - ;; - - sysv4 | sysv4.2uw2* | sysv4.3*) - _LT_AC_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' - _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' - _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' - ;; - - sysv4*MP*) - if test -d /usr/nec ;then - _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-Kconform_pic' - _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' - fi - ;; - - sysv5* | unixware* | sco3.2v5* | sco5v6* | OpenUNIX*) - _LT_AC_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' - _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' - _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' - ;; - - unicos*) - _LT_AC_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' - _LT_AC_TAGVAR(lt_prog_compiler_can_build_shared, $1)=no - ;; - - uts4*) - _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)='-pic' - _LT_AC_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' - ;; - - *) - _LT_AC_TAGVAR(lt_prog_compiler_can_build_shared, $1)=no - ;; - esac - fi -]) -AC_MSG_RESULT([$_LT_AC_TAGVAR(lt_prog_compiler_pic, $1)]) - -# -# Check to make sure the PIC flag actually works. -# -if test -n "$_LT_AC_TAGVAR(lt_prog_compiler_pic, $1)"; then - AC_LIBTOOL_COMPILER_OPTION([if $compiler PIC flag $_LT_AC_TAGVAR(lt_prog_compiler_pic, $1) works], - _LT_AC_TAGVAR(lt_prog_compiler_pic_works, $1), - [$_LT_AC_TAGVAR(lt_prog_compiler_pic, $1)ifelse([$1],[],[ -DPIC],[ifelse([$1],[CXX],[ -DPIC],[])])], [], - [case $_LT_AC_TAGVAR(lt_prog_compiler_pic, $1) in - "" | " "*) ;; - *) _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)=" $_LT_AC_TAGVAR(lt_prog_compiler_pic, $1)" ;; - esac], - [_LT_AC_TAGVAR(lt_prog_compiler_pic, $1)= - _LT_AC_TAGVAR(lt_prog_compiler_can_build_shared, $1)=no]) -fi -case $host_os in - # For platforms which do not support PIC, -DPIC is meaningless: - *djgpp*) - _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)= - ;; - *) - _LT_AC_TAGVAR(lt_prog_compiler_pic, $1)="$_LT_AC_TAGVAR(lt_prog_compiler_pic, $1)ifelse([$1],[],[ -DPIC],[ifelse([$1],[CXX],[ -DPIC],[])])" - ;; -esac - -# -# Check to make sure the static flag actually works. -# -wl=$_LT_AC_TAGVAR(lt_prog_compiler_wl, $1) eval lt_tmp_static_flag=\"$_LT_AC_TAGVAR(lt_prog_compiler_static, $1)\" -AC_LIBTOOL_LINKER_OPTION([if $compiler static flag $lt_tmp_static_flag works], - _LT_AC_TAGVAR(lt_prog_compiler_static_works, $1), - $lt_tmp_static_flag, - [], - [_LT_AC_TAGVAR(lt_prog_compiler_static, $1)=]) -]) - - -# AC_LIBTOOL_PROG_LD_SHLIBS([TAGNAME]) -# ------------------------------------ -# See if the linker supports building shared libraries. -AC_DEFUN([AC_LIBTOOL_PROG_LD_SHLIBS], -[AC_MSG_CHECKING([whether the $compiler linker ($LD) supports shared libraries]) -ifelse([$1],[CXX],[ - _LT_AC_TAGVAR(export_symbols_cmds, $1)='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' - case $host_os in - aix4* | aix5*) - # 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 - if $NM -V 2>&1 | grep 'GNU' > /dev/null; then - _LT_AC_TAGVAR(export_symbols_cmds, $1)='$NM -Bpg $libobjs $convenience | awk '\''{ if (((\[$]2 == "T") || (\[$]2 == "D") || (\[$]2 == "B")) && ([substr](\[$]3,1,1) != ".")) { print \[$]3 } }'\'' | sort -u > $export_symbols' - else - _LT_AC_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_AC_TAGVAR(export_symbols_cmds, $1)="$ltdll_cmds" - ;; - cygwin* | mingw*) - _LT_AC_TAGVAR(export_symbols_cmds, $1)='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[[BCDGRS]] /s/.* \([[^ ]]*\)/\1 DATA/;/^.* __nm__/s/^.* __nm__\([[^ ]]*\) [[^ ]]*/\1 DATA/;/^I /d;/^[[AITW]] /s/.* //'\'' | sort | uniq > $export_symbols' - ;; - *) - _LT_AC_TAGVAR(export_symbols_cmds, $1)='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' - ;; - esac -],[ - runpath_var= - _LT_AC_TAGVAR(allow_undefined_flag, $1)= - _LT_AC_TAGVAR(enable_shared_with_static_runtimes, $1)=no - _LT_AC_TAGVAR(archive_cmds, $1)= - _LT_AC_TAGVAR(archive_expsym_cmds, $1)= - _LT_AC_TAGVAR(old_archive_From_new_cmds, $1)= - _LT_AC_TAGVAR(old_archive_from_expsyms_cmds, $1)= - _LT_AC_TAGVAR(export_dynamic_flag_spec, $1)= - _LT_AC_TAGVAR(whole_archive_flag_spec, $1)= - _LT_AC_TAGVAR(thread_safe_flag_spec, $1)= - _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)= - _LT_AC_TAGVAR(hardcode_libdir_flag_spec_ld, $1)= - _LT_AC_TAGVAR(hardcode_libdir_separator, $1)= - _LT_AC_TAGVAR(hardcode_direct, $1)=no - _LT_AC_TAGVAR(hardcode_minus_L, $1)=no - _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=unsupported - _LT_AC_TAGVAR(link_all_deplibs, $1)=unknown - _LT_AC_TAGVAR(hardcode_automatic, $1)=no - _LT_AC_TAGVAR(module_cmds, $1)= - _LT_AC_TAGVAR(module_expsym_cmds, $1)= - _LT_AC_TAGVAR(always_export_symbols, $1)=no - _LT_AC_TAGVAR(export_symbols_cmds, $1)='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' - # include_expsyms should be a list of space-separated symbols to be *always* - # included in the symbol list - _LT_AC_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_AC_TAGVAR(exclude_expsyms, $1)="_GLOBAL_OFFSET_TABLE_" - # 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. - extract_expsyms_cmds= - # Just being paranoid about ensuring that cc_basename is set. - _LT_CC_BASENAME([$compiler]) - case $host_os in - cygwin* | mingw* | pw32*) - # 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 - ;; - esac - - _LT_AC_TAGVAR(ld_shlibs, $1)=yes - if test "$with_gnu_ld" = 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_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}--rpath ${wl}$libdir' - _LT_AC_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_AC_TAGVAR(whole_archive_flag_spec, $1)="$wlarc"'--whole-archive$convenience '"$wlarc"'--no-whole-archive' - else - _LT_AC_TAGVAR(whole_archive_flag_spec, $1)= - fi - supports_anon_versioning=no - case `$LD -v 2>/dev/null` in - *\ [[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 - aix3* | aix4* | aix5*) - # On AIX/PPC, the GNU linker is very broken - if test "$host_cpu" != ia64; then - _LT_AC_TAGVAR(ld_shlibs, $1)=no - cat <&2 - -*** Warning: the GNU linker, at least up to release 2.9.1, 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 modify your PATH -*** so that a non-GNU linker is found, and then restart. - -EOF - fi - ;; - - amigaos*) - _LT_AC_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_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' - _LT_AC_TAGVAR(hardcode_minus_L, $1)=yes - - # Samuel A. Falvo II reports - # that the semantics of dynamic libraries on AmigaOS, at least up - # to version 4, is to share data among multiple programs linked - # with the same dynamic library. Since this doesn't match the - # behavior of shared libraries on other platforms, we can't use - # them. - _LT_AC_TAGVAR(ld_shlibs, $1)=no - ;; - - beos*) - if $LD --help 2>&1 | grep ': supported targets:.* elf' > /dev/null; then - _LT_AC_TAGVAR(allow_undefined_flag, $1)=unsupported - # Joseph Beckenbach says some releases of gcc - # support --undefined. This deserves some investigation. FIXME - _LT_AC_TAGVAR(archive_cmds, $1)='$CC -nostart $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' - else - _LT_AC_TAGVAR(ld_shlibs, $1)=no - fi - ;; - - cygwin* | mingw* | pw32*) - # _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1) is actually meaningless, - # as there is no search path for DLLs. - _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' - _LT_AC_TAGVAR(allow_undefined_flag, $1)=unsupported - _LT_AC_TAGVAR(always_export_symbols, $1)=no - _LT_AC_TAGVAR(enable_shared_with_static_runtimes, $1)=yes - _LT_AC_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' - - if $LD --help 2>&1 | grep 'auto-import' > /dev/null; then - _LT_AC_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_AC_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_AC_TAGVAR(ld_shlibs, $1)=no - fi - ;; - - interix3*) - _LT_AC_TAGVAR(hardcode_direct, $1)=no - _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no - _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath,$libdir' - _LT_AC_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_AC_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_AC_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' - ;; - - linux*) - if $LD --help 2>&1 | grep ': supported targets:.* elf' > /dev/null; then - tmp_addflag= - case $cc_basename,$host_cpu in - pgcc*) # Portland Group C compiler - _LT_AC_TAGVAR(whole_archive_flag_spec, $1)='${wl}--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; $echo \"$new_convenience\"` ${wl}--no-whole-archive' - tmp_addflag=' $pic_flag' - ;; - pgf77* | pgf90* | pgf95*) # Portland Group f77 and f90 compilers - _LT_AC_TAGVAR(whole_archive_flag_spec, $1)='${wl}--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; $echo \"$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' ;; - esac - _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared'"$tmp_addflag"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' - - if test $supports_anon_versioning = yes; then - _LT_AC_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 -shared'"$tmp_addflag"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-version-script ${wl}$output_objdir/$libname.ver -o $lib' - fi - else - _LT_AC_TAGVAR(ld_shlibs, $1)=no - fi - ;; - - netbsd*) - if echo __ELF__ | $CC -E - | grep __ELF__ >/dev/null; then - _LT_AC_TAGVAR(archive_cmds, $1)='$LD -Bshareable $libobjs $deplibs $linker_flags -o $lib' - wlarc= - else - _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' - _LT_AC_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $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_AC_TAGVAR(ld_shlibs, $1)=no - cat <&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. - -EOF - elif $LD --help 2>&1 | grep ': supported targets:.* elf' > /dev/null; then - _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' - _LT_AC_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_AC_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_AC_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 - ;; - *) - if $LD --help 2>&1 | grep ': supported targets:.* elf' > /dev/null; then - _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='`test -z "$SCOABSPATH" && echo ${wl}-rpath,$libdir`' - _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname,\${SCOABSPATH:+${install_libdir}/}$soname -o $lib' - _LT_AC_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname,\${SCOABSPATH:+${install_libdir}/}$soname,-retain-symbols-file,$export_symbols -o $lib' - else - _LT_AC_TAGVAR(ld_shlibs, $1)=no - fi - ;; - esac - ;; - - sunos4*) - _LT_AC_TAGVAR(archive_cmds, $1)='$LD -assert pure-text -Bshareable -o $lib $libobjs $deplibs $linker_flags' - wlarc= - _LT_AC_TAGVAR(hardcode_direct, $1)=yes - _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no - ;; - - *) - if $LD --help 2>&1 | grep ': supported targets:.* elf' > /dev/null; then - _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' - _LT_AC_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_AC_TAGVAR(ld_shlibs, $1)=no - fi - ;; - esac - - if test "$_LT_AC_TAGVAR(ld_shlibs, $1)" = no; then - runpath_var= - _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)= - _LT_AC_TAGVAR(export_dynamic_flag_spec, $1)= - _LT_AC_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_AC_TAGVAR(allow_undefined_flag, $1)=unsupported - _LT_AC_TAGVAR(always_export_symbols, $1)=yes - _LT_AC_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_AC_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_AC_TAGVAR(hardcode_direct, $1)=unsupported - fi - ;; - - aix4* | aix5*) - 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 - if $NM -V 2>&1 | grep 'GNU' > /dev/null; then - _LT_AC_TAGVAR(export_symbols_cmds, $1)='$NM -Bpg $libobjs $convenience | awk '\''{ if (((\[$]2 == "T") || (\[$]2 == "D") || (\[$]2 == "B")) && ([substr](\[$]3,1,1) != ".")) { print \[$]3 } }'\'' | sort -u > $export_symbols' - else - _LT_AC_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]].*|aix5*) - 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_AC_TAGVAR(archive_cmds, $1)='' - _LT_AC_TAGVAR(hardcode_direct, $1)=yes - _LT_AC_TAGVAR(hardcode_libdir_separator, $1)=':' - _LT_AC_TAGVAR(link_all_deplibs, $1)=yes - - 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 - _LT_AC_TAGVAR(hardcode_direct, $1)=yes - else - # We have old collect2 - _LT_AC_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_AC_TAGVAR(hardcode_minus_L, $1)=yes - _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' - _LT_AC_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 - - # It seems that -bexpall does not export symbols beginning with - # underscore (_), so it is better to generate a list of symbols to export. - _LT_AC_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_AC_TAGVAR(allow_undefined_flag, $1)='-berok' - # Determine the default libpath from the value encoded in an empty executable. - _LT_AC_SYS_LIBPATH_AIX - _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-blibpath:$libdir:'"$aix_libpath" - _LT_AC_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 echo "${wl}${allow_undefined_flag}"; else :; fi` '"\${wl}$exp_sym_flag:\$export_symbols $shared_flag" - else - if test "$host_cpu" = ia64; then - _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-R $libdir:/usr/lib:/lib' - _LT_AC_TAGVAR(allow_undefined_flag, $1)="-z nodefs" - _LT_AC_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_AC_SYS_LIBPATH_AIX - _LT_AC_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_AC_TAGVAR(no_undefined_flag, $1)=' ${wl}-bernotok' - _LT_AC_TAGVAR(allow_undefined_flag, $1)=' ${wl}-berok' - # Exported symbols can be pulled into shared objects from archives - _LT_AC_TAGVAR(whole_archive_flag_spec, $1)='$convenience' - _LT_AC_TAGVAR(archive_cmds_need_lc, $1)=yes - # This is similar to how AIX traditionally builds its shared libraries. - _LT_AC_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*) - _LT_AC_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_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' - _LT_AC_TAGVAR(hardcode_minus_L, $1)=yes - # see comment about different semantics on the GNU ld section - _LT_AC_TAGVAR(ld_shlibs, $1)=no - ;; - - bsdi[[45]]*) - _LT_AC_TAGVAR(export_dynamic_flag_spec, $1)=-rdynamic - ;; - - cygwin* | mingw* | pw32*) - # 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. - _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)=' ' - _LT_AC_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_AC_TAGVAR(archive_cmds, $1)='$CC -o $lib $libobjs $compiler_flags `echo "$deplibs" | $SED -e '\''s/ -lc$//'\''` -link -dll~linknames=' - # The linker will automatically build a .lib file if we build a DLL. - _LT_AC_TAGVAR(old_archive_From_new_cmds, $1)='true' - # FIXME: Should let the user specify the lib program. - _LT_AC_TAGVAR(old_archive_cmds, $1)='lib /OUT:$oldlib$oldobjs$old_deplibs' - _LT_AC_TAGVAR(fix_srcfile_path, $1)='`cygpath -w "$srcfile"`' - _LT_AC_TAGVAR(enable_shared_with_static_runtimes, $1)=yes - ;; - - darwin* | rhapsody*) - case $host_os in - rhapsody* | darwin1.[[012]]) - _LT_AC_TAGVAR(allow_undefined_flag, $1)='${wl}-undefined ${wl}suppress' - ;; - *) # Darwin 1.3 on - if test -z ${MACOSX_DEPLOYMENT_TARGET} ; then - _LT_AC_TAGVAR(allow_undefined_flag, $1)='${wl}-flat_namespace ${wl}-undefined ${wl}suppress' - else - case ${MACOSX_DEPLOYMENT_TARGET} in - 10.[[012]]) - _LT_AC_TAGVAR(allow_undefined_flag, $1)='${wl}-flat_namespace ${wl}-undefined ${wl}suppress' - ;; - 10.*) - _LT_AC_TAGVAR(allow_undefined_flag, $1)='${wl}-undefined ${wl}dynamic_lookup' - ;; - esac - fi - ;; - esac - _LT_AC_TAGVAR(archive_cmds_need_lc, $1)=no - _LT_AC_TAGVAR(hardcode_direct, $1)=no - _LT_AC_TAGVAR(hardcode_automatic, $1)=yes - _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=unsupported - _LT_AC_TAGVAR(whole_archive_flag_spec, $1)='' - _LT_AC_TAGVAR(link_all_deplibs, $1)=yes - if test "$GCC" = yes ; then - output_verbose_link_cmd='echo' - _LT_AC_TAGVAR(archive_cmds, $1)='$CC -dynamiclib $allow_undefined_flag -o $lib $libobjs $deplibs $compiler_flags -install_name $rpath/$soname $verstring' - _LT_AC_TAGVAR(module_cmds, $1)='$CC $allow_undefined_flag -o $lib -bundle $libobjs $deplibs$compiler_flags' - # Don't fix this by using the ld -exported_symbols_list flag, it doesn't exist in older darwin lds - _LT_AC_TAGVAR(archive_expsym_cmds, $1)='sed -e "s,#.*,," -e "s,^[ ]*,," -e "s,^\(..*\),_&," < $export_symbols > $output_objdir/${libname}-symbols.expsym~$CC -dynamiclib $allow_undefined_flag -o $lib $libobjs $deplibs $compiler_flags -install_name $rpath/$soname $verstring~nmedit -s $output_objdir/${libname}-symbols.expsym ${lib}' - _LT_AC_TAGVAR(module_expsym_cmds, $1)='sed -e "s,#.*,," -e "s,^[ ]*,," -e "s,^\(..*\),_&," < $export_symbols > $output_objdir/${libname}-symbols.expsym~$CC $allow_undefined_flag -o $lib -bundle $libobjs $deplibs$compiler_flags~nmedit -s $output_objdir/${libname}-symbols.expsym ${lib}' - else - case $cc_basename in - xlc*) - output_verbose_link_cmd='echo' - _LT_AC_TAGVAR(archive_cmds, $1)='$CC -qmkshrobj $allow_undefined_flag -o $lib $libobjs $deplibs $compiler_flags ${wl}-install_name ${wl}`echo $rpath/$soname` $verstring' - _LT_AC_TAGVAR(module_cmds, $1)='$CC $allow_undefined_flag -o $lib -bundle $libobjs $deplibs$compiler_flags' - # Don't fix this by using the ld -exported_symbols_list flag, it doesn't exist in older darwin lds - _LT_AC_TAGVAR(archive_expsym_cmds, $1)='sed -e "s,#.*,," -e "s,^[ ]*,," -e "s,^\(..*\),_&," < $export_symbols > $output_objdir/${libname}-symbols.expsym~$CC -qmkshrobj $allow_undefined_flag -o $lib $libobjs $deplibs $compiler_flags ${wl}-install_name ${wl}$rpath/$soname $verstring~nmedit -s $output_objdir/${libname}-symbols.expsym ${lib}' - _LT_AC_TAGVAR(module_expsym_cmds, $1)='sed -e "s,#.*,," -e "s,^[ ]*,," -e "s,^\(..*\),_&," < $export_symbols > $output_objdir/${libname}-symbols.expsym~$CC $allow_undefined_flag -o $lib -bundle $libobjs $deplibs$compiler_flags~nmedit -s $output_objdir/${libname}-symbols.expsym ${lib}' - ;; - *) - _LT_AC_TAGVAR(ld_shlibs, $1)=no - ;; - esac - fi - ;; - - dgux*) - _LT_AC_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' - _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' - _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no - ;; - - freebsd1*) - _LT_AC_TAGVAR(ld_shlibs, $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_AC_TAGVAR(archive_cmds, $1)='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags /usr/lib/c++rt0.o' - _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir' - _LT_AC_TAGVAR(hardcode_direct, $1)=yes - _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no - ;; - - # Unfortunately, older versions of FreeBSD 2 do not have this feature. - freebsd2*) - _LT_AC_TAGVAR(archive_cmds, $1)='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' - _LT_AC_TAGVAR(hardcode_direct, $1)=yes - _LT_AC_TAGVAR(hardcode_minus_L, $1)=yes - _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no - ;; - - # FreeBSD 3 and greater uses gcc -shared to do shared libraries. - freebsd* | kfreebsd*-gnu | dragonfly*) - _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared -o $lib $libobjs $deplibs $compiler_flags' - _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir' - _LT_AC_TAGVAR(hardcode_direct, $1)=yes - _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no - ;; - - hpux9*) - if test "$GCC" = yes; then - _LT_AC_TAGVAR(archive_cmds, $1)='$rm $output_objdir/$soname~$CC -shared -fPIC ${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_AC_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_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}+b ${wl}$libdir' - _LT_AC_TAGVAR(hardcode_libdir_separator, $1)=: - _LT_AC_TAGVAR(hardcode_direct, $1)=yes - - # hardcode_minus_L: Not really in the search PATH, - # but as the default location of the library. - _LT_AC_TAGVAR(hardcode_minus_L, $1)=yes - _LT_AC_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-E' - ;; - - hpux10*) - if test "$GCC" = yes -a "$with_gnu_ld" = no; then - _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared -fPIC ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $libobjs $deplibs $compiler_flags' - else - _LT_AC_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_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}+b ${wl}$libdir' - _LT_AC_TAGVAR(hardcode_libdir_separator, $1)=: - - _LT_AC_TAGVAR(hardcode_direct, $1)=yes - _LT_AC_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_AC_TAGVAR(hardcode_minus_L, $1)=yes - fi - ;; - - hpux11*) - if test "$GCC" = yes -a "$with_gnu_ld" = no; then - case $host_cpu in - hppa*64*) - _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared ${wl}+h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags' - ;; - ia64*) - _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared ${wl}+h ${wl}$soname ${wl}+nodefaultrpath -o $lib $libobjs $deplibs $compiler_flags' - ;; - *) - _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared -fPIC ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $libobjs $deplibs $compiler_flags' - ;; - esac - else - case $host_cpu in - hppa*64*) - _LT_AC_TAGVAR(archive_cmds, $1)='$CC -b ${wl}+h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags' - ;; - ia64*) - _LT_AC_TAGVAR(archive_cmds, $1)='$CC -b ${wl}+h ${wl}$soname ${wl}+nodefaultrpath -o $lib $libobjs $deplibs $compiler_flags' - ;; - *) - _LT_AC_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_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}+b ${wl}$libdir' - _LT_AC_TAGVAR(hardcode_libdir_separator, $1)=: - - case $host_cpu in - hppa*64*|ia64*) - _LT_AC_TAGVAR(hardcode_libdir_flag_spec_ld, $1)='+b $libdir' - _LT_AC_TAGVAR(hardcode_direct, $1)=no - _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no - ;; - *) - _LT_AC_TAGVAR(hardcode_direct, $1)=yes - _LT_AC_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_AC_TAGVAR(hardcode_minus_L, $1)=yes - ;; - esac - fi - ;; - - irix5* | irix6* | nonstopux*) - if test "$GCC" = yes; then - _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && echo ${wl}-set_version ${wl}$verstring` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' - else - _LT_AC_TAGVAR(archive_cmds, $1)='$LD -shared $libobjs $deplibs $linker_flags -soname $soname `test -n "$verstring" && echo -set_version $verstring` -update_registry ${output_objdir}/so_locations -o $lib' - _LT_AC_TAGVAR(hardcode_libdir_flag_spec_ld, $1)='-rpath $libdir' - fi - _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir' - _LT_AC_TAGVAR(hardcode_libdir_separator, $1)=: - _LT_AC_TAGVAR(link_all_deplibs, $1)=yes - ;; - - netbsd*) - if echo __ELF__ | $CC -E - | grep __ELF__ >/dev/null; then - _LT_AC_TAGVAR(archive_cmds, $1)='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' # a.out - else - _LT_AC_TAGVAR(archive_cmds, $1)='$LD -shared -o $lib $libobjs $deplibs $linker_flags' # ELF - fi - _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir' - _LT_AC_TAGVAR(hardcode_direct, $1)=yes - _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no - ;; - - newsos6) - _LT_AC_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' - _LT_AC_TAGVAR(hardcode_direct, $1)=yes - _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir' - _LT_AC_TAGVAR(hardcode_libdir_separator, $1)=: - _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no - ;; - - openbsd*) - _LT_AC_TAGVAR(hardcode_direct, $1)=yes - _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no - if test -z "`echo __ELF__ | $CC -E - | grep __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then - _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags' - _LT_AC_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags ${wl}-retain-symbols-file,$export_symbols' - _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath,$libdir' - _LT_AC_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-E' - else - case $host_os in - openbsd[[01]].* | openbsd2.[[0-7]] | openbsd2.[[0-7]].*) - _LT_AC_TAGVAR(archive_cmds, $1)='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' - _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir' - ;; - *) - _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags' - _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath,$libdir' - ;; - esac - fi - ;; - - os2*) - _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' - _LT_AC_TAGVAR(hardcode_minus_L, $1)=yes - _LT_AC_TAGVAR(allow_undefined_flag, $1)=unsupported - _LT_AC_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_AC_TAGVAR(old_archive_From_new_cmds, $1)='emximp -o $output_objdir/$libname.a $output_objdir/$libname.def' - ;; - - osf3*) - if test "$GCC" = yes; then - _LT_AC_TAGVAR(allow_undefined_flag, $1)=' ${wl}-expect_unresolved ${wl}\*' - _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared${allow_undefined_flag} $libobjs $deplibs $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && echo ${wl}-set_version ${wl}$verstring` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' - else - _LT_AC_TAGVAR(allow_undefined_flag, $1)=' -expect_unresolved \*' - _LT_AC_TAGVAR(archive_cmds, $1)='$LD -shared${allow_undefined_flag} $libobjs $deplibs $linker_flags -soname $soname `test -n "$verstring" && echo -set_version $verstring` -update_registry ${output_objdir}/so_locations -o $lib' - fi - _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir' - _LT_AC_TAGVAR(hardcode_libdir_separator, $1)=: - ;; - - osf4* | osf5*) # as osf3* with the addition of -msym flag - if test "$GCC" = yes; then - _LT_AC_TAGVAR(allow_undefined_flag, $1)=' ${wl}-expect_unresolved ${wl}\*' - _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared${allow_undefined_flag} $libobjs $deplibs $compiler_flags ${wl}-msym ${wl}-soname ${wl}$soname `test -n "$verstring" && echo ${wl}-set_version ${wl}$verstring` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' - _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir' - else - _LT_AC_TAGVAR(allow_undefined_flag, $1)=' -expect_unresolved \*' - _LT_AC_TAGVAR(archive_cmds, $1)='$LD -shared${allow_undefined_flag} $libobjs $deplibs $linker_flags -msym -soname $soname `test -n "$verstring" && echo -set_version $verstring` -update_registry ${output_objdir}/so_locations -o $lib' - _LT_AC_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~ - $LD -shared${allow_undefined_flag} -input $lib.exp $linker_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_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='-rpath $libdir' - fi - _LT_AC_TAGVAR(hardcode_libdir_separator, $1)=: - ;; - - solaris*) - _LT_AC_TAGVAR(no_undefined_flag, $1)=' -z text' - if test "$GCC" = yes; then - wlarc='${wl}' - _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared ${wl}-h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags' - _LT_AC_TAGVAR(archive_expsym_cmds, $1)='$echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~$echo "local: *; };" >> $lib.exp~ - $CC -shared ${wl}-M ${wl}$lib.exp ${wl}-h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags~$rm $lib.exp' - else - wlarc='' - _LT_AC_TAGVAR(archive_cmds, $1)='$LD -G${allow_undefined_flag} -h $soname -o $lib $libobjs $deplibs $linker_flags' - _LT_AC_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' - fi - _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir' - _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no - case $host_os in - solaris2.[[0-5]] | solaris2.[[0-5]].*) ;; - *) - # The compiler driver will combine linker options so we - # cannot just pass the convience library names through - # without $wl, iff we do not link with $LD. - # Luckily, gcc supports the same syntax we need for Sun Studio. - # Supported since Solaris 2.6 (maybe 2.5.1?) - case $wlarc in - '') - _LT_AC_TAGVAR(whole_archive_flag_spec, $1)='-z allextract$convenience -z defaultextract' ;; - *) - _LT_AC_TAGVAR(whole_archive_flag_spec, $1)='${wl}-z ${wl}allextract`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; $echo \"$new_convenience\"` ${wl}-z ${wl}defaultextract' ;; - esac ;; - esac - _LT_AC_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_AC_TAGVAR(archive_cmds, $1)='$CC -G ${wl}-h $soname -o $lib $libobjs $deplibs $compiler_flags' - else - _LT_AC_TAGVAR(archive_cmds, $1)='$LD -assert pure-text -Bstatic -o $lib $libobjs $deplibs $linker_flags' - fi - _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' - _LT_AC_TAGVAR(hardcode_direct, $1)=yes - _LT_AC_TAGVAR(hardcode_minus_L, $1)=yes - _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no - ;; - - sysv4) - case $host_vendor in - sni) - _LT_AC_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' - _LT_AC_TAGVAR(hardcode_direct, $1)=yes # is this really true??? - ;; - siemens) - ## LD is ld it makes a PLAMLIB - ## CC just makes a GrossModule. - _LT_AC_TAGVAR(archive_cmds, $1)='$LD -G -o $lib $libobjs $deplibs $linker_flags' - _LT_AC_TAGVAR(reload_cmds, $1)='$CC -r -o $output$reload_objs' - _LT_AC_TAGVAR(hardcode_direct, $1)=no - ;; - motorola) - _LT_AC_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' - _LT_AC_TAGVAR(hardcode_direct, $1)=no #Motorola manual says yes, but my tests say they lie - ;; - esac - runpath_var='LD_RUN_PATH' - _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no - ;; - - sysv4.3*) - _LT_AC_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' - _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no - _LT_AC_TAGVAR(export_dynamic_flag_spec, $1)='-Bexport' - ;; - - sysv4*MP*) - if test -d /usr/nec; then - _LT_AC_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' - _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no - runpath_var=LD_RUN_PATH - hardcode_runpath_var=yes - _LT_AC_TAGVAR(ld_shlibs, $1)=yes - fi - ;; - - sysv4*uw2* | sysv5OpenUNIX* | sysv5UnixWare7.[[01]].[[10]]* | unixware7*) - _LT_AC_TAGVAR(no_undefined_flag, $1)='${wl}-z,text' - _LT_AC_TAGVAR(archive_cmds_need_lc, $1)=no - _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no - runpath_var='LD_RUN_PATH' - - if test "$GCC" = yes; then - _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' - _LT_AC_TAGVAR(archive_expsym_cmds, $1)='$CC -shared ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' - else - _LT_AC_TAGVAR(archive_cmds, $1)='$CC -G ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' - _LT_AC_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_AC_TAGVAR(no_undefined_flag, $1)='${wl}-z,text' - _LT_AC_TAGVAR(allow_undefined_flag, $1)='${wl}-z,nodefs' - _LT_AC_TAGVAR(archive_cmds_need_lc, $1)=no - _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no - _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='`test -z "$SCOABSPATH" && echo ${wl}-R,$libdir`' - _LT_AC_TAGVAR(hardcode_libdir_separator, $1)=':' - _LT_AC_TAGVAR(link_all_deplibs, $1)=yes - _LT_AC_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-Bexport' - runpath_var='LD_RUN_PATH' - - if test "$GCC" = yes; then - _LT_AC_TAGVAR(archive_cmds, $1)='$CC -shared ${wl}-h,\${SCOABSPATH:+${install_libdir}/}$soname -o $lib $libobjs $deplibs $compiler_flags' - _LT_AC_TAGVAR(archive_expsym_cmds, $1)='$CC -shared ${wl}-Bexport:$export_symbols ${wl}-h,\${SCOABSPATH:+${install_libdir}/}$soname -o $lib $libobjs $deplibs $compiler_flags' - else - _LT_AC_TAGVAR(archive_cmds, $1)='$CC -G ${wl}-h,\${SCOABSPATH:+${install_libdir}/}$soname -o $lib $libobjs $deplibs $compiler_flags' - _LT_AC_TAGVAR(archive_expsym_cmds, $1)='$CC -G ${wl}-Bexport:$export_symbols ${wl}-h,\${SCOABSPATH:+${install_libdir}/}$soname -o $lib $libobjs $deplibs $compiler_flags' - fi - ;; - - uts4*) - _LT_AC_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' - _LT_AC_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' - _LT_AC_TAGVAR(hardcode_shlibpath_var, $1)=no - ;; - - *) - _LT_AC_TAGVAR(ld_shlibs, $1)=no - ;; - esac - fi -]) -AC_MSG_RESULT([$_LT_AC_TAGVAR(ld_shlibs, $1)]) -test "$_LT_AC_TAGVAR(ld_shlibs, $1)" = no && can_build_shared=no - -# -# Do we need to explicitly link libc? -# -case "x$_LT_AC_TAGVAR(archive_cmds_need_lc, $1)" in -x|xyes) - # Assume -lc should be added - _LT_AC_TAGVAR(archive_cmds_need_lc, $1)=yes - - if test "$enable_shared" = yes && test "$GCC" = yes; then - case $_LT_AC_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_MSG_CHECKING([whether -lc should be explicitly linked in]) - $rm conftest* - printf "$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_AC_TAGVAR(lt_prog_compiler_wl, $1) - pic_flag=$_LT_AC_TAGVAR(lt_prog_compiler_pic, $1) - compiler_flags=-v - linker_flags=-v - verstring= - output_objdir=. - libname=conftest - lt_save_allow_undefined_flag=$_LT_AC_TAGVAR(allow_undefined_flag, $1) - _LT_AC_TAGVAR(allow_undefined_flag, $1)= - if AC_TRY_EVAL(_LT_AC_TAGVAR(archive_cmds, $1) 2\>\&1 \| grep \" -lc \" \>/dev/null 2\>\&1) - then - _LT_AC_TAGVAR(archive_cmds_need_lc, $1)=no - else - _LT_AC_TAGVAR(archive_cmds_need_lc, $1)=yes - fi - _LT_AC_TAGVAR(allow_undefined_flag, $1)=$lt_save_allow_undefined_flag - else - cat conftest.err 1>&5 - fi - $rm conftest* - AC_MSG_RESULT([$_LT_AC_TAGVAR(archive_cmds_need_lc, $1)]) - ;; - esac - fi - ;; -esac -])# AC_LIBTOOL_PROG_LD_SHLIBS - - -# _LT_AC_FILE_LTDLL_C -# ------------------- -# Be careful that the start marker always follows a newline. -AC_DEFUN([_LT_AC_FILE_LTDLL_C], [ -# /* ltdll.c starts here */ -# #define WIN32_LEAN_AND_MEAN -# #include -# #undef WIN32_LEAN_AND_MEAN -# #include -# -# #ifndef __CYGWIN__ -# # ifdef __CYGWIN32__ -# # define __CYGWIN__ __CYGWIN32__ -# # endif -# #endif -# -# #ifdef __cplusplus -# extern "C" { -# #endif -# BOOL APIENTRY DllMain (HINSTANCE hInst, DWORD reason, LPVOID reserved); -# #ifdef __cplusplus -# } -# #endif -# -# #ifdef __CYGWIN__ -# #include -# DECLARE_CYGWIN_DLL( DllMain ); -# #endif -# HINSTANCE __hDllInstance_base; -# -# BOOL APIENTRY -# DllMain (HINSTANCE hInst, DWORD reason, LPVOID reserved) -# { -# __hDllInstance_base = hInst; -# return TRUE; -# } -# /* ltdll.c ends here */ -])# _LT_AC_FILE_LTDLL_C - - -# _LT_AC_TAGVAR(VARNAME, [TAGNAME]) -# --------------------------------- -AC_DEFUN([_LT_AC_TAGVAR], [ifelse([$2], [], [$1], [$1_$2])]) - - -# old names -AC_DEFUN([AM_PROG_LIBTOOL], [AC_PROG_LIBTOOL]) -AC_DEFUN([AM_ENABLE_SHARED], [AC_ENABLE_SHARED($@)]) -AC_DEFUN([AM_ENABLE_STATIC], [AC_ENABLE_STATIC($@)]) -AC_DEFUN([AM_DISABLE_SHARED], [AC_DISABLE_SHARED($@)]) -AC_DEFUN([AM_DISABLE_STATIC], [AC_DISABLE_STATIC($@)]) -AC_DEFUN([AM_PROG_LD], [AC_PROG_LD]) -AC_DEFUN([AM_PROG_NM], [AC_PROG_NM]) - -# This is just to silence aclocal about the macro not being used -ifelse([AC_DISABLE_FAST_INSTALL]) - -AC_DEFUN([LT_AC_PROG_GCJ], -[AC_CHECK_TOOL(GCJ, gcj, no) - test "x${GCJFLAGS+set}" = xset || GCJFLAGS="-g -O2" - AC_SUBST(GCJFLAGS) -]) - -AC_DEFUN([LT_AC_PROG_RC], -[AC_CHECK_TOOL(RC, windres, no) -]) - -# 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. # -# LT_AC_PROG_SED -# -------------- -# Check for a fully-functional sed program, that truncates -# as few characters as possible. Prefer GNU sed if found. -AC_DEFUN([LT_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]) -]) - -# Copyright (C) 2002, 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. - -# 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. -AC_DEFUN([AM_AUTOMAKE_VERSION], [am__api_version="1.9"]) - -# AM_SET_CURRENT_AUTOMAKE_VERSION -# ------------------------------- -# Call AM_AUTOMAKE_VERSION so it can be traced. -# This function is AC_REQUIREd by AC_INIT_AUTOMAKE. -AC_DEFUN([AM_SET_CURRENT_AUTOMAKE_VERSION], - [AM_AUTOMAKE_VERSION([1.9.6])]) - -# AM_AUX_DIR_EXPAND -*- Autoconf -*- - -# Copyright (C) 2001, 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. - -# 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 -# 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 7 - -# 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]) -AC_SUBST([$1_FALSE]) -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 -# 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 8 - -# 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], 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'. - 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 - 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 - - case $depmode in - 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 - ;; - none) break ;; - esac - # 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. - if depmode=$depmode \ - source=sub/conftest.c object=sub/conftest.${OBJEXT-o} \ - depfile=sub/conftest.Po tmpdepfile=sub/conftest.TPo \ - $SHELL ./depcomp $depcc -c -o sub/conftest.${OBJEXT-o} sub/conftest.c \ - >/dev/null 2>conftest.err && - grep sub/conftst6.h sub/conftest.Po > /dev/null 2>&1 && - grep sub/conftest.${OBJEXT-o} 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='\' -fi -AM_CONDITIONAL([AMDEP], [test "x$enable_dependency_tracking" != xno]) -AC_SUBST([AMDEPBACKSLASH]) -]) - -# Generate code to set up dependency tracking. -*- Autoconf -*- - -# Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 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 3 - -# _AM_OUTPUT_DEPENDENCY_COMMANDS -# ------------------------------ -AC_DEFUN([_AM_OUTPUT_DEPENDENCY_COMMANDS], -[for mf in $CONFIG_FILES; 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. - # So let's grep whole file. - if grep '^#.*generated by automake' $mf > /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"]) -]) - -# Copyright (C) 1996, 1997, 2000, 2001, 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 8 - -# AM_CONFIG_HEADER is obsolete. It has been replaced by AC_CONFIG_HEADERS. -AU_DEFUN([AM_CONFIG_HEADER], [AC_CONFIG_HEADERS($@)]) - -# Do all the work for Automake. -*- Autoconf -*- - -# Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 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 12 - -# 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.58])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 -# test to see if srcdir already configured -if test "`cd $srcdir && pwd`" != "`pwd`" && - test -f $srcdir/config.status; then - AC_MSG_ERROR([source directory already configured; run "make distclean" there first]) -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 - 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) -AM_PROG_INSTALL_SH -AM_PROG_INSTALL_STRIP -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 -]) -]) - - -# 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_stamp_count=1 -for _am_header in $config_headers :; do - case $_am_header in - $1 | $1:* ) - break ;; - * ) - _am_stamp_count=`expr $_am_stamp_count + 1` ;; - esac -done -echo "timestamp for $1" >`AS_DIRNAME([$1])`/stamp-h[]$_am_stamp_count]) - -# Copyright (C) 2001, 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. - -# AM_PROG_INSTALL_SH -# ------------------ -# Define $install_sh. -AC_DEFUN([AM_PROG_INSTALL_SH], -[AC_REQUIRE([AM_AUX_DIR_EXPAND])dnl -install_sh=${install_sh-"$am_aux_dir/install-sh"} -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])]) - -# Check to see how 'make' treats includes. -*- Autoconf -*- - -# Copyright (C) 2001, 2002, 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 3 - -# 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 done -.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 -# We grep out `Entering directory' and `Leaving directory' -# messages which can occur if `w' ends up in MAKEFLAGS. -# In particular we don't look at `^make:' because GNU make might -# be invoked under some other name (usually "gmake"), in which -# case it prints its new name instead of `make'. -if test "`$am_make -s -f confmf 2> /dev/null | grep -v 'ing directory'`" = "done"; then - am__include=include - am__quote= - _am_result=GNU -fi -# Now try BSD make style include. -if test "$am__include" = "#"; then - echo '.include "confinc"' > confmf - if test "`$am_make -s -f confmf 2> /dev/null`" = "done"; then - am__include=.include - am__quote="\"" - _am_result=BSD - fi -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, 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 4 - -# 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 -test x"${MISSING+set}" = xset || MISSING="\${SHELL} $am_aux_dir/missing" -# 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 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. - -# AM_PROG_MKDIR_P -# --------------- -# Check whether `mkdir -p' is supported, fallback to mkinstalldirs otherwise. -# -# Automake 1.8 used `mkdir -m 0755 -p --' to ensure that directories -# created by `make install' are always world readable, even if the -# installer happens to have an overly restrictive umask (e.g. 077). -# This was a mistake. There are at least two reasons why we must not -# use `-m 0755': -# - it causes special bits like SGID to be ignored, -# - it may be too restrictive (some setups expect 775 directories). -# -# Do not use -m 0755 and let people choose whatever they expect by -# setting umask. -# -# We cannot accept any implementation of `mkdir' that recognizes `-p'. -# Some implementations (such as Solaris 8's) are not thread-safe: if a -# parallel make tries to run `mkdir -p a/b' and `mkdir -p a/c' -# concurrently, both version can detect that a/ is missing, but only -# one can create it and the other will error out. Consequently we -# restrict ourselves to GNU make (using the --version option ensures -# this.) -AC_DEFUN([AM_PROG_MKDIR_P], -[if mkdir -p --version . >/dev/null 2>&1 && test ! -d ./--version; then - # We used to keeping the `.' as first argument, in order to - # allow $(mkdir_p) to be used without argument. As in - # $(mkdir_p) $(somedir) - # where $(somedir) is conditionally defined. However this is wrong - # for two reasons: - # 1. if the package is installed by a user who cannot write `.' - # make install will fail, - # 2. the above comment should most certainly read - # $(mkdir_p) $(DESTDIR)$(somedir) - # so it does not work when $(somedir) is undefined and - # $(DESTDIR) is not. - # To support the latter case, we have to write - # test -z "$(somedir)" || $(mkdir_p) $(DESTDIR)$(somedir), - # so the `.' trick is pointless. - mkdir_p='mkdir -p --' -else - # On NextStep and OpenStep, the `mkdir' command does not - # recognize any option. It will interpret all options as - # directories to create, and then abort because `.' already - # exists. - for d in ./-p ./--version; - do - test -d $d && rmdir $d - done - # $(mkinstalldirs) is defined by Automake if mkinstalldirs exists. - if test -f "$ac_aux_dir/mkinstalldirs"; then - mkdir_p='$(mkinstalldirs)' - else - mkdir_p='$(install_sh) -d' - fi -fi -AC_SUBST([mkdir_p])]) - -# Helper functions for option handling. -*- Autoconf -*- - -# Copyright (C) 2001, 2002, 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 3 - -# _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], -[AC_FOREACH([_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 -# 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_SANITY_CHECK -# --------------- -AC_DEFUN([AM_SANITY_CHECK], -[AC_MSG_CHECKING([whether build environment is sane]) -# Just in case -sleep 1 -echo timestamp > conftest.file -# 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 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. - -# 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="\${SHELL} \$(install_sh) -c -s" -AC_SUBST([INSTALL_STRIP_PROGRAM])]) - -# Check how to create a tarball. -*- Autoconf -*- - -# Copyright (C) 2004, 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 - -# _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. -AM_MISSING_PROG([AMTAR], [tar]) -m4_if([$1], [v7], - [am__tar='${AMTAR} chof - "$$tardir"'; am__untar='${AMTAR} 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([acinclude.m4]) diff --git a/libpqtypes/config.guess b/libpqtypes/config.guess deleted file mode 100755 index 2fc3acc..0000000 --- a/libpqtypes/config.guess +++ /dev/null @@ -1,1411 +0,0 @@ -#! /bin/sh -# Attempt to guess a canonical system name. -# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, -# 2000, 2001, 2002, 2003 Free Software Foundation, Inc. - -timestamp='2003-06-17' - -# 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, 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. - -# Originally written by Per Bothner . -# Please send patches to . Submit a context -# diff and a properly formatted 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. -# -# The plan is that this can be called by configure scripts if you -# don't specify an explicit build system type. - -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 -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 0 ;; - --version | -v ) - echo "$version" ; exit 0 ;; - --help | --h* | -h ) - echo "$usage"; exit 0 ;; - -- ) # 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 -q "$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 ;' - -# 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 - -## for Red Hat Linux -if test -f /etc/redhat-release ; then - VENDOR=redhat ; -else - VENDOR= ; -fi - -# 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 tupples: *-*-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 ;; - *) 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 __ELF__ >/dev/null - 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 0 ;; - amiga:OpenBSD:*:*) - echo m68k-unknown-openbsd${UNAME_RELEASE} - exit 0 ;; - arc:OpenBSD:*:*) - echo mipsel-unknown-openbsd${UNAME_RELEASE} - exit 0 ;; - hp300:OpenBSD:*:*) - echo m68k-unknown-openbsd${UNAME_RELEASE} - exit 0 ;; - mac68k:OpenBSD:*:*) - echo m68k-unknown-openbsd${UNAME_RELEASE} - exit 0 ;; - macppc:OpenBSD:*:*) - echo powerpc-unknown-openbsd${UNAME_RELEASE} - exit 0 ;; - mvme68k:OpenBSD:*:*) - echo m68k-unknown-openbsd${UNAME_RELEASE} - exit 0 ;; - mvme88k:OpenBSD:*:*) - echo m88k-unknown-openbsd${UNAME_RELEASE} - exit 0 ;; - mvmeppc:OpenBSD:*:*) - echo powerpc-unknown-openbsd${UNAME_RELEASE} - exit 0 ;; - pmax:OpenBSD:*:*) - echo mipsel-unknown-openbsd${UNAME_RELEASE} - exit 0 ;; - sgi:OpenBSD:*:*) - echo mipseb-unknown-openbsd${UNAME_RELEASE} - exit 0 ;; - sun3:OpenBSD:*:*) - echo m68k-unknown-openbsd${UNAME_RELEASE} - exit 0 ;; - wgrisc:OpenBSD:*:*) - echo mipsel-unknown-openbsd${UNAME_RELEASE} - exit 0 ;; - *:OpenBSD:*:*) - echo ${UNAME_MACHINE}-unknown-openbsd${UNAME_RELEASE} - exit 0 ;; - alpha:OSF1:*:*) - if test $UNAME_RELEASE = "V4.0"; then - UNAME_RELEASE=`/usr/sbin/sizer -v | awk '{print $3}'` - fi - # 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 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/^[VTX]//' | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz'` - exit 0 ;; - Alpha*:OpenVMS:*:*) - echo alpha-hp-vms - exit 0 ;; - 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 0 ;; - 21064:Windows_NT:50:3) - echo alpha-dec-winnt3.5 - exit 0 ;; - Amiga*:UNIX_System_V:4.0:*) - echo m68k-unknown-sysv4 - exit 0;; - *:[Aa]miga[Oo][Ss]:*:*) - echo ${UNAME_MACHINE}-unknown-amigaos - exit 0 ;; - *:[Mm]orph[Oo][Ss]:*:*) - echo ${UNAME_MACHINE}-unknown-morphos - exit 0 ;; - *:OS/390:*:*) - echo i370-ibm-openedition - exit 0 ;; - arm:RISC*:1.[012]*:*|arm:riscix:1.[012]*:*) - echo arm-acorn-riscix${UNAME_RELEASE} - exit 0;; - SR2?01:HI-UX/MPP:*:* | SR8000:HI-UX/MPP:*:*) - echo hppa1.1-hitachi-hiuxmpp - exit 0;; - 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 0 ;; - NILE*:*:*:dcosx) - echo pyramid-pyramid-svr4 - exit 0 ;; - DRS?6000:unix:4.0:6*) - echo sparc-icl-nx6 - exit 0 ;; - DRS?6000:UNIX_SV:4.2*:7*) - case `/usr/bin/uname -p` in - sparc) echo sparc-icl-nx7 && exit 0 ;; - esac ;; - sun4H:SunOS:5.*:*) - echo sparc-hal-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` - exit 0 ;; - sun4*:SunOS:5.*:* | tadpole*:SunOS:5.*:*) - echo sparc-sun-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` - exit 0 ;; - i86pc:SunOS:5.*:*) - echo i386-pc-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` - exit 0 ;; - 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 0 ;; - 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 0 ;; - sun3*:SunOS:*:*) - echo m68k-sun-sunos${UNAME_RELEASE} - exit 0 ;; - 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 0 ;; - aushp:SunOS:*:*) - echo sparc-auspex-sunos${UNAME_RELEASE} - exit 0 ;; - # 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 0 ;; - atari*:*MiNT:*:* | atari*:*mint:*:* | atarist[e]:*TOS:*:*) - echo m68k-atari-mint${UNAME_RELEASE} - exit 0 ;; - *falcon*:*MiNT:*:* | *falcon*:*mint:*:* | *falcon*:*TOS:*:*) - echo m68k-atari-mint${UNAME_RELEASE} - exit 0 ;; - milan*:*MiNT:*:* | milan*:*mint:*:* | *milan*:*TOS:*:*) - echo m68k-milan-mint${UNAME_RELEASE} - exit 0 ;; - hades*:*MiNT:*:* | hades*:*mint:*:* | *hades*:*TOS:*:*) - echo m68k-hades-mint${UNAME_RELEASE} - exit 0 ;; - *:*MiNT:*:* | *:*mint:*:* | *:*TOS:*:*) - echo m68k-unknown-mint${UNAME_RELEASE} - exit 0 ;; - powerpc:machten:*:*) - echo powerpc-apple-machten${UNAME_RELEASE} - exit 0 ;; - RISC*:Mach:*:*) - echo mips-dec-mach_bsd4.3 - exit 0 ;; - RISC*:ULTRIX:*:*) - echo mips-dec-ultrix${UNAME_RELEASE} - exit 0 ;; - VAX*:ULTRIX*:*:*) - echo vax-dec-ultrix${UNAME_RELEASE} - exit 0 ;; - 2020:CLIX:*:* | 2430:CLIX:*:*) - echo clipper-intergraph-clix${UNAME_RELEASE} - exit 0 ;; - 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 \ - && $dummy `echo "${UNAME_RELEASE}" | sed -n 's/\([0-9]*\).*/\1/p'` \ - && exit 0 - echo mips-mips-riscos${UNAME_RELEASE} - exit 0 ;; - Motorola:PowerMAX_OS:*:*) - echo powerpc-motorola-powermax - exit 0 ;; - Motorola:*:4.3:PL8-*) - echo powerpc-harris-powermax - exit 0 ;; - Night_Hawk:*:*:PowerMAX_OS | Synergy:PowerMAX_OS:*:*) - echo powerpc-harris-powermax - exit 0 ;; - Night_Hawk:Power_UNIX:*:*) - echo powerpc-harris-powerunix - exit 0 ;; - m88k:CX/UX:7*:*) - echo m88k-harris-cxux7 - exit 0 ;; - m88k:*:4*:R4*) - echo m88k-motorola-sysv4 - exit 0 ;; - m88k:*:3*:R3*) - echo m88k-motorola-sysv3 - exit 0 ;; - 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 0 ;; - M88*:DolphinOS:*:*) # DolphinOS (SVR3) - echo m88k-dolphin-sysv3 - exit 0 ;; - M88*:*:R3*:*) - # Delta 88k system running SVR3 - echo m88k-motorola-sysv3 - exit 0 ;; - XD88*:*:*:*) # Tektronix XD88 system running UTekV (SVR3) - echo m88k-tektronix-sysv3 - exit 0 ;; - Tek43[0-9][0-9]:UTek:*:*) # Tektronix 4300 system running UTek (BSD) - echo m68k-tektronix-bsd - exit 0 ;; - *:IRIX*:*:*) - echo mips-sgi-irix`echo ${UNAME_RELEASE}|sed -e 's/-/_/g'` - exit 0 ;; - ????????: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 0 ;; # Note that: echo "'`uname -s`'" gives 'AIX ' - i*86:AIX:*:*) - echo i386-ibm-aix - exit 0 ;; - 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 0 ;; - *: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 - $CC_FOR_BUILD -o $dummy $dummy.c && $dummy && exit 0 - echo rs6000-ibm-aix3.2.5 - 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 0 ;; - *:AIX:*:[45]) - 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 0 ;; - *:AIX:*:*) - echo rs6000-ibm-aix - exit 0 ;; - ibmrt:4.4BSD:*|romp-ibm:BSD:*) - echo romp-ibm-bsd4.4 - exit 0 ;; - ibmrt:*BSD:*|romp-ibm:BSD:*) # covers RT/PC BSD and - echo romp-ibm-bsd${UNAME_RELEASE} # 4.3 with uname added to - exit 0 ;; # report: romp-ibm BSD 4.3 - *:BOSX:*:*) - echo rs6000-bull-bosx - exit 0 ;; - DPX/2?00:B.O.S.:*:*) - echo m68k-bull-sysv3 - exit 0 ;; - 9000/[34]??:4.3bsd:1.*:*) - echo m68k-hp-bsd - exit 0 ;; - hp300:4.4BSD:*:* | 9000/[34]??:4.3bsd:2.*:*) - echo m68k-hp-bsd4.4 - exit 0 ;; - 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 - # avoid double evaluation of $set_cc_for_build - test -n "$CC_FOR_BUILD" || eval $set_cc_for_build - if echo __LP64__ | (CCOPTS= $CC_FOR_BUILD -E -) | grep __LP64__ >/dev/null - then - HP_ARCH="hppa2.0w" - else - HP_ARCH="hppa64" - fi - fi - echo ${HP_ARCH}-hp-hpux${HPUX_REV} - exit 0 ;; - ia64:HP-UX:*:*) - HPUX_REV=`echo ${UNAME_RELEASE}|sed -e 's/[^.]*.[0B]*//'` - echo ia64-hp-hpux${HPUX_REV} - exit 0 ;; - 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 && $dummy && exit 0 - echo unknown-hitachi-hiuxwe2 - exit 0 ;; - 9000/7??:4.3bsd:*:* | 9000/8?[79]:4.3bsd:*:* ) - echo hppa1.1-hp-bsd - exit 0 ;; - 9000/8??:4.3bsd:*:*) - echo hppa1.0-hp-bsd - exit 0 ;; - *9??*:MPE/iX:*:* | *3000*:MPE/iX:*:*) - echo hppa1.0-hp-mpeix - exit 0 ;; - hp7??:OSF1:*:* | hp8?[79]:OSF1:*:* ) - echo hppa1.1-hp-osf - exit 0 ;; - hp8??:OSF1:*:*) - echo hppa1.0-hp-osf - exit 0 ;; - i*86:OSF1:*:*) - if [ -x /usr/sbin/sysversion ] ; then - echo ${UNAME_MACHINE}-unknown-osf1mk - else - echo ${UNAME_MACHINE}-unknown-osf1 - fi - exit 0 ;; - parisc*:Lites*:*:*) - echo hppa1.1-hp-lites - exit 0 ;; - C1*:ConvexOS:*:* | convex:ConvexOS:C1*:*) - echo c1-convex-bsd - exit 0 ;; - C2*:ConvexOS:*:* | convex:ConvexOS:C2*:*) - if getsysinfo -f scalar_acc - then echo c32-convex-bsd - else echo c2-convex-bsd - fi - exit 0 ;; - C34*:ConvexOS:*:* | convex:ConvexOS:C34*:*) - echo c34-convex-bsd - exit 0 ;; - C38*:ConvexOS:*:* | convex:ConvexOS:C38*:*) - echo c38-convex-bsd - exit 0 ;; - C4*:ConvexOS:*:* | convex:ConvexOS:C4*:*) - echo c4-convex-bsd - exit 0 ;; - CRAY*Y-MP:*:*:*) - echo ymp-cray-unicos${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/' - exit 0 ;; - 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 0 ;; - CRAY*TS:*:*:*) - echo t90-cray-unicos${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/' - exit 0 ;; - CRAY*T3E:*:*:*) - echo alphaev5-cray-unicosmk${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/' - exit 0 ;; - CRAY*SV1:*:*:*) - echo sv1-cray-unicos${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/' - exit 0 ;; - *:UNICOS/mp:*:*) - echo nv1-cray-unicosmp${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/' - exit 0 ;; - 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 0 ;; - i*86:BSD/386:*:* | i*86:BSD/OS:*:* | *:Ascend\ Embedded/OS:*:*) - echo ${UNAME_MACHINE}-pc-bsdi${UNAME_RELEASE} - exit 0 ;; - sparc*:BSD/OS:*:*) - echo sparc-unknown-bsdi${UNAME_RELEASE} - exit 0 ;; - *:BSD/OS:*:*) - echo ${UNAME_MACHINE}-unknown-bsdi${UNAME_RELEASE} - exit 0 ;; - *:FreeBSD:*:*|*:GNU/FreeBSD:*:*) - # Determine whether the default compiler uses glibc. - eval $set_cc_for_build - sed 's/^ //' << EOF >$dummy.c - #include - #if __GLIBC__ >= 2 - LIBC=gnu - #else - LIBC= - #endif -EOF - eval `$CC_FOR_BUILD -E $dummy.c 2>/dev/null | grep ^LIBC=` - echo ${UNAME_MACHINE}-unknown-freebsd`echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'`${LIBC:+-$LIBC} - exit 0 ;; - i*:CYGWIN*:*) - echo ${UNAME_MACHINE}-pc-cygwin - exit 0 ;; - i*:MINGW*:*) - echo ${UNAME_MACHINE}-pc-mingw32 - exit 0 ;; - i*:PW*:*) - echo ${UNAME_MACHINE}-pc-pw32 - exit 0 ;; - x86:Interix*:[34]*) - echo i586-pc-interix${UNAME_RELEASE}|sed -e 's/\..*//' - exit 0 ;; - [345]86:Windows_95:* | [345]86:Windows_98:* | [345]86:Windows_NT:*) - echo i${UNAME_MACHINE}-pc-mks - exit 0 ;; - 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 0 ;; - i*:UWIN*:*) - echo ${UNAME_MACHINE}-pc-uwin - exit 0 ;; - p*:CYGWIN*:*) - echo powerpcle-unknown-cygwin - exit 0 ;; - prep*:SunOS:5.*:*) - echo powerpcle-unknown-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` - exit 0 ;; - *:GNU:*:*) - echo `echo ${UNAME_MACHINE}|sed -e 's,[-/].*$,,'`-unknown-gnu`echo ${UNAME_RELEASE}|sed -e 's,/.*$,,'` - exit 0 ;; - i*86:Minix:*:*) - echo ${UNAME_MACHINE}-pc-minix - exit 0 ;; - arm*:Linux:*:*) - echo ${UNAME_MACHINE}-unknown-linux-gnu - exit 0 ;; - cris:Linux:*:*) - echo cris-axis-linux-gnu - exit 0 ;; - ia64:Linux:*:*) - echo ${UNAME_MACHINE}-${VENDOR:-unknown}-linux-gnu - exit 0 ;; - m68*:Linux:*:*) - echo ${UNAME_MACHINE}-unknown-linux-gnu - exit 0 ;; - mips:Linux:*:*) - eval $set_cc_for_build - sed 's/^ //' << EOF >$dummy.c - #undef CPU - #undef mips - #undef mipsel - #if defined(__MIPSEL__) || defined(__MIPSEL) || defined(_MIPSEL) || defined(MIPSEL) - CPU=mipsel - #else - #if defined(__MIPSEB__) || defined(__MIPSEB) || defined(_MIPSEB) || defined(MIPSEB) - CPU=mips - #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 0 - ;; - mips64:Linux:*:*) - eval $set_cc_for_build - sed 's/^ //' << EOF >$dummy.c - #undef CPU - #undef mips64 - #undef mips64el - #if defined(__MIPSEL__) || defined(__MIPSEL) || defined(_MIPSEL) || defined(MIPSEL) - CPU=mips64el - #else - #if defined(__MIPSEB__) || defined(__MIPSEB) || defined(_MIPSEB) || defined(MIPSEB) - CPU=mips64 - #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 0 - ;; - ppc:Linux:*:*) - echo powerpc-${VENDOR:-unknown}-linux-gnu - exit 0 ;; - ppc64:Linux:*:*) - echo powerpc64-${VENDOR:-unknown}-linux-gnu - exit 0 ;; - 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 ld.so.1 >/dev/null - if test "$?" = 0 ; then LIBC="libc1" ; else LIBC="" ; fi - echo ${UNAME_MACHINE}-unknown-linux-gnu${LIBC} - exit 0 ;; - 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 0 ;; - parisc64:Linux:*:* | hppa64:Linux:*:*) - echo hppa64-unknown-linux-gnu - exit 0 ;; - s390:Linux:*:* | s390x:Linux:*:*) - echo ${UNAME_MACHINE}-${VENDOR:-ibm}-linux-gnu - exit 0 ;; - sh64*:Linux:*:*) - echo ${UNAME_MACHINE}-unknown-linux-gnu - exit 0 ;; - sh*:Linux:*:*) - echo ${UNAME_MACHINE}-unknown-linux-gnu - exit 0 ;; - sparc:Linux:*:* | sparc64:Linux:*:*) - echo ${UNAME_MACHINE}-unknown-linux-gnu - exit 0 ;; - x86_64:Linux:*:*) - echo x86_64-${VENDOR:-unknown}-linux-gnu - exit 0 ;; - i*86:Linux:*:*) - # The BFD linker knows what the default object file format is, so - # first see if it will tell us. cd to the root directory to prevent - # problems with other programs or directories called `ld' in the path. - # Set LC_ALL=C to ensure ld outputs messages in English. - ld_supported_targets=`cd /; LC_ALL=C ld --help 2>&1 \ - | sed -ne '/supported targets:/!d - s/[ ][ ]*/ /g - s/.*supported targets: *// - s/ .*// - p'` - case "$ld_supported_targets" in - elf32-i386) - TENTATIVE="${UNAME_MACHINE}-pc-linux-gnu" - ;; - a.out-i386-linux) - echo "${UNAME_MACHINE}-pc-linux-gnuaout" - exit 0 ;; - coff-i386) - echo "${UNAME_MACHINE}-pc-linux-gnucoff" - exit 0 ;; - "") - # Either a pre-BFD a.out linker (linux-gnuoldld) or - # one that does not give us useful --help. - echo "${UNAME_MACHINE}-pc-linux-gnuoldld" - exit 0 ;; - esac - # Determine whether the default compiler is a.out or elf - eval $set_cc_for_build - sed 's/^ //' << EOF >$dummy.c - #include - #ifdef __ELF__ - # ifdef __GLIBC__ - # if __GLIBC__ >= 2 - LIBC=gnu - # else - LIBC=gnulibc1 - # endif - # else - LIBC=gnulibc1 - # endif - #else - #ifdef __INTEL_COMPILER - LIBC=gnu - #else - LIBC=gnuaout - #endif - #endif -EOF - eval `$CC_FOR_BUILD -E $dummy.c 2>/dev/null | grep ^LIBC=` - test x"${LIBC}" != x && echo "${UNAME_MACHINE}-${VENDOR:-pc}-linux-${LIBC}" && exit 0 - test x"${TENTATIVE}" != x && echo "${TENTATIVE}" && exit 0 - ;; - 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 0 ;; - 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 0 ;; - 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 0 ;; - i*86:XTS-300:*:STOP) - echo ${UNAME_MACHINE}-unknown-stop - exit 0 ;; - i*86:atheos:*:*) - echo ${UNAME_MACHINE}-unknown-atheos - exit 0 ;; - i*86:LynxOS:2.*:* | i*86:LynxOS:3.[01]*:* | i*86:LynxOS:4.0*:*) - echo i386-unknown-lynxos${UNAME_RELEASE} - exit 0 ;; - i*86:*DOS:*:*) - echo ${UNAME_MACHINE}-pc-msdosdjgpp - exit 0 ;; - 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 0 ;; - i*86:*:5:[78]*) - 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 0 ;; - 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 0 ;; - 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 i386. - echo i386-pc-msdosdjgpp - exit 0 ;; - Intel:Mach:3*:*) - echo i386-pc-mach3 - exit 0 ;; - paragon:*:*:*) - echo i860-intel-osf1 - exit 0 ;; - 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 0 ;; - mini*:CTIX:SYS*5:*) - # "miniframe" - echo m68010-convergent-sysv - exit 0 ;; - mc68k:UNIX:SYSTEM5:3.51m) - echo m68k-convergent-sysv - exit 0 ;; - M680?0:D-NIX:5.3:*) - echo m68k-diab-dnix - exit 0 ;; - M68*:*:R3V[567]*:*) - test -r /sysV68 && echo 'm68k-motorola-sysv' && exit 0 ;; - 3[34]??:*: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) - 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 0 - /bin/uname -p 2>/dev/null | /bin/grep entium >/dev/null \ - && echo i586-ncr-sysv4.3${OS_REL} && exit 0 ;; - 3[34]??:*:4.0:* | 3[34]??,*:*:4.0:*) - /bin/uname -p 2>/dev/null | grep 86 >/dev/null \ - && echo i486-ncr-sysv4 && exit 0 ;; - m68*:LynxOS:2.*:* | m68*:LynxOS:3.0*:*) - echo m68k-unknown-lynxos${UNAME_RELEASE} - exit 0 ;; - mc68030:UNIX_System_V:4.*:*) - echo m68k-atari-sysv4 - exit 0 ;; - TSUNAMI:LynxOS:2.*:*) - echo sparc-unknown-lynxos${UNAME_RELEASE} - exit 0 ;; - rs6000:LynxOS:2.*:*) - echo rs6000-unknown-lynxos${UNAME_RELEASE} - exit 0 ;; - PowerPC:LynxOS:2.*:* | PowerPC:LynxOS:3.[01]*:* | PowerPC:LynxOS:4.0*:*) - echo powerpc-unknown-lynxos${UNAME_RELEASE} - exit 0 ;; - SM[BE]S:UNIX_SV:*:*) - echo mips-dde-sysv${UNAME_RELEASE} - exit 0 ;; - RM*:ReliantUNIX-*:*:*) - echo mips-sni-sysv4 - exit 0 ;; - RM*:SINIX-*:*:*) - echo mips-sni-sysv4 - exit 0 ;; - *: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 0 ;; - PENTIUM:*:4.0*:*) # Unisys `ClearPath HMP IX 4000' SVR4/MP effort - # says - echo i586-unisys-sysv4 - exit 0 ;; - *:UNIX_System_V:4*:FTX*) - # From Gerald Hewes . - # How about differentiating between stratus architectures? -djm - echo hppa1.1-stratus-sysv4 - exit 0 ;; - *:*:*:FTX*) - # From seanf@swdc.stratus.com. - echo i860-stratus-sysv4 - exit 0 ;; - *:VOS:*:*) - # From Paul.Green@stratus.com. - echo hppa1.1-stratus-vos - exit 0 ;; - mc68*:A/UX:*:*) - echo m68k-apple-aux${UNAME_RELEASE} - exit 0 ;; - news*:NEWS-OS:6*:*) - echo mips-sony-newsos6 - exit 0 ;; - 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 0 ;; - BeBox:BeOS:*:*) # BeOS running on hardware made by Be, PPC only. - echo powerpc-be-beos - exit 0 ;; - BeMac:BeOS:*:*) # BeOS running on Mac or Mac clone, PPC only. - echo powerpc-apple-beos - exit 0 ;; - BePC:BeOS:*:*) # BeOS running on Intel PC compatible. - echo i586-pc-beos - exit 0 ;; - SX-4:SUPER-UX:*:*) - echo sx4-nec-superux${UNAME_RELEASE} - exit 0 ;; - SX-5:SUPER-UX:*:*) - echo sx5-nec-superux${UNAME_RELEASE} - exit 0 ;; - SX-6:SUPER-UX:*:*) - echo sx6-nec-superux${UNAME_RELEASE} - exit 0 ;; - Power*:Rhapsody:*:*) - echo powerpc-apple-rhapsody${UNAME_RELEASE} - exit 0 ;; - *:Rhapsody:*:*) - echo ${UNAME_MACHINE}-apple-rhapsody${UNAME_RELEASE} - exit 0 ;; - *:Darwin:*:*) - case `uname -p` in - *86) UNAME_PROCESSOR=i686 ;; - powerpc) UNAME_PROCESSOR=powerpc ;; - esac - echo ${UNAME_PROCESSOR}-apple-darwin${UNAME_RELEASE} - exit 0 ;; - *: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 0 ;; - *:QNX:*:4*) - echo i386-pc-qnx - exit 0 ;; - NSR-[DGKLNPTVW]:NONSTOP_KERNEL:*:*) - echo nsr-tandem-nsk${UNAME_RELEASE} - exit 0 ;; - *:NonStop-UX:*:*) - echo mips-compaq-nonstopux - exit 0 ;; - BS2000:POSIX*:*:*) - echo bs2000-siemens-sysv - exit 0 ;; - DS/*:UNIX_System_V:*:*) - echo ${UNAME_MACHINE}-${UNAME_SYSTEM}-${UNAME_RELEASE} - exit 0 ;; - *: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 0 ;; - *:TOPS-10:*:*) - echo pdp10-unknown-tops10 - exit 0 ;; - *:TENEX:*:*) - echo pdp10-unknown-tenex - exit 0 ;; - KS10:TOPS-20:*:* | KL10:TOPS-20:*:* | TYPE4:TOPS-20:*:*) - echo pdp10-dec-tops20 - exit 0 ;; - XKL-1:TOPS-20:*:* | TYPE5:TOPS-20:*:*) - echo pdp10-xkl-tops20 - exit 0 ;; - *:TOPS-20:*:*) - echo pdp10-unknown-tops20 - exit 0 ;; - *:ITS:*:*) - echo pdp10-unknown-its - exit 0 ;; - SEI:*:*:SEIUX) - echo mips-sei-seiux${UNAME_RELEASE} - exit 0 ;; -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"); 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 && $dummy && exit 0 - -# Apollos put the system type in the environment. - -test -d /usr/apollo && { echo ${ISP}-apollo-${SYSTYPE}; exit 0; } - -# 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 0 ;; - c2*) - if getsysinfo -f scalar_acc - then echo c32-convex-bsd - else echo c2-convex-bsd - fi - exit 0 ;; - c34*) - echo c34-convex-bsd - exit 0 ;; - c38*) - echo c38-convex-bsd - exit 0 ;; - c4*) - echo c4-convex-bsd - exit 0 ;; - 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: diff --git a/libpqtypes/config.sub b/libpqtypes/config.sub deleted file mode 100755 index 6b2ff9f..0000000 --- a/libpqtypes/config.sub +++ /dev/null @@ -1,1500 +0,0 @@ -#! /bin/sh -# Configuration validation subroutine script. -# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, -# 2000, 2001, 2002, 2003 Free Software Foundation, Inc. - -timestamp='2003-06-18' - -# 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, 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. - -# Please send patches to . Submit a context -# diff and a properly formatted 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. - -# 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 -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 0 ;; - --version | -v ) - echo "$version" ; exit 0 ;; - --help | --h* | -h ) - echo "$usage"; exit 0 ;; - -- ) # 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 0;; - - * ) - 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* | freebsd*-gnu* | netbsd*-gnu* | storm-chaos* | os2-emx* | rtmk-nova*) - os=-$maybe_os - basic_machine=`echo $1 | sed 's/^\(.*\)-\([^-]*-[^-]*\)$/\1/'` - ;; - *) - 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) - os= - basic_machine=$1 - ;; - -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 - ;; - -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/'` - ;; - -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 \ - | alpha | alphaev[4-8] | alphaev56 | alphaev6[78] | alphapca5[67] \ - | alpha64 | alpha64ev[4-8] | alpha64ev56 | alpha64ev6[78] | alpha64pca5[67] \ - | arc | arm | arm[bl]e | arme[lb] | armv[2345] | armv[345][lb] | avr \ - | c4x | clipper \ - | d10v | d30v | dlx | dsp16xx \ - | fr30 | frv \ - | h8300 | h8500 | hppa | hppa1.[01] | hppa2.0 | hppa2.0[nw] | hppa64 \ - | i370 | i860 | i960 | ia64 \ - | ip2k \ - | m32r | m68000 | m68k | m88k | mcore \ - | mips | mipsbe | mipseb | mipsel | mipsle \ - | mips16 \ - | mips64 | mips64el \ - | mips64vr | mips64vrel \ - | mips64orion | mips64orionel \ - | mips64vr4100 | mips64vr4100el \ - | mips64vr4300 | mips64vr4300el \ - | mips64vr5000 | mips64vr5000el \ - | mipsisa32 | mipsisa32el \ - | mipsisa32r2 | mipsisa32r2el \ - | mipsisa64 | mipsisa64el \ - | mipsisa64sb1 | mipsisa64sb1el \ - | mipsisa64sr71k | mipsisa64sr71kel \ - | mipstx39 | mipstx39el \ - | mn10200 | mn10300 \ - | msp430 \ - | ns16k | ns32k \ - | openrisc | or32 \ - | pdp10 | pdp11 | pj | pjl \ - | powerpc | powerpc64 | powerpc64le | powerpcle | ppcbe \ - | pyramid \ - | s390 | s390x \ - | sh | sh[1234] | sh[23]e | sh[34]eb | shbe | shle | sh[1234]le | sh3ele \ - | sh64 | sh64le \ - | sparc | sparc64 | sparc86x | sparclet | sparclite | sparcv8 | sparcv9 | sparcv9b \ - | strongarm \ - | tahoe | thumb | tic4x | tic80 | tron \ - | v850 | v850e \ - | we32k \ - | x86 | xscale | xstormy16 | xtensa \ - | z8k) - basic_machine=$basic_machine-unknown - ;; - m6811 | m68hc11 | m6812 | m68hc12) - # Motorola 68HC11/12. - basic_machine=$basic_machine-unknown - os=-none - ;; - m88110 | m680[12346]0 | m683?2 | m68360 | m5200 | v70 | w65 | z8k) - ;; - - # 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-* \ - | 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-* \ - | bs2000-* \ - | c[123]* | c30-* | [cjt]90-* | c4x-* | c54x-* | c55x-* | c6x-* \ - | clipper-* | cydra-* \ - | d10v-* | d30v-* | dlx-* \ - | elxsi-* \ - | f30[01]-* | f700-* | fr30-* | frv-* | fx80-* \ - | h8300-* | h8500-* \ - | hppa-* | hppa1.[01]-* | hppa2.0-* | hppa2.0[nw]-* | hppa64-* \ - | i*86-* | i860-* | i960-* | ia64-* \ - | ip2k-* \ - | m32r-* \ - | m68000-* | m680[012346]0-* | m68360-* | m683?2-* | m68k-* \ - | m88110-* | m88k-* | mcore-* \ - | mips-* | mipsbe-* | mipseb-* | mipsel-* | mipsle-* \ - | mips16-* \ - | mips64-* | mips64el-* \ - | mips64vr-* | mips64vrel-* \ - | mips64orion-* | mips64orionel-* \ - | mips64vr4100-* | mips64vr4100el-* \ - | mips64vr4300-* | mips64vr4300el-* \ - | mips64vr5000-* | mips64vr5000el-* \ - | mipsisa32-* | mipsisa32el-* \ - | mipsisa32r2-* | mipsisa32r2el-* \ - | mipsisa64-* | mipsisa64el-* \ - | mipsisa64sb1-* | mipsisa64sb1el-* \ - | mipsisa64sr71k-* | mipsisa64sr71kel-* \ - | mipstx39-* | mipstx39el-* \ - | msp430-* \ - | none-* | np1-* | nv1-* | ns16k-* | ns32k-* \ - | orion-* \ - | pdp10-* | pdp11-* | pj-* | pjl-* | pn-* | power-* \ - | powerpc-* | powerpc64-* | powerpc64le-* | powerpcle-* | ppcbe-* \ - | pyramid-* \ - | romp-* | rs6000-* \ - | s390-* | s390x-* \ - | sh-* | sh[1234]-* | sh[23]e-* | sh[34]eb-* | shbe-* \ - | shle-* | sh[1234]le-* | sh3ele-* | sh64-* | sh64le-* \ - | sparc-* | sparc64-* | sparc86x-* | sparclet-* | sparclite-* \ - | sparcv8-* | sparcv9-* | sparcv9b-* | strongarm-* | sv1-* | sx?-* \ - | tahoe-* | thumb-* \ - | tic30-* | tic4x-* | tic54x-* | tic55x-* | tic6x-* | tic80-* \ - | tron-* \ - | v850-* | v850e-* | vax-* \ - | we32k-* \ - | x86-* | x86_64-* | xps100-* | xscale-* | xstormy16-* \ - | xtensa-* \ - | ymp-* \ - | z8k-*) - ;; - # 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 - ;; - 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 - ;; - 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 - ;; - aux) - basic_machine=m68k-apple - os=-aux - ;; - balance) - basic_machine=ns32k-sequent - os=-dynix - ;; - c90) - basic_machine=c90-cray - os=-unicos - ;; - 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 - ;; - crds | unos) - basic_machine=m68k-crds - ;; - cris | cris-* | etrax*) - basic_machine=cris-axis - ;; - 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 - ;; - 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'm not sure what "Sysv32" means. Should this be sysv3.2? - 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 - ;; - m88k-omron*) - basic_machine=m88k-omron - ;; - magnum | m3230) - basic_machine=mips-mips - os=-sysv - ;; - merlin) - basic_machine=ns32k-utek - os=-sysv - ;; - mingw32) - basic_machine=i386-pc - os=-mingw32 - ;; - 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 - ;; - mmix*) - basic_machine=mmix-knuth - os=-mmixware - ;; - monitor) - basic_machine=m68k-rom68k - os=-coff - ;; - morphos) - basic_machine=powerpc-unknown - os=-morphos - ;; - msdos) - basic_machine=i386-pc - os=-msdos - ;; - mvs) - basic_machine=i370-ibm - os=-mvs - ;; - 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 - ;; - nv1) - basic_machine=nv1-cray - os=-unicosmp - ;; - nsr-tandem) - basic_machine=nsr-tandem - ;; - op50n-* | op60c-*) - basic_machine=hppa1.1-oki - os=-proelf - ;; - or32 | or32-*) - basic_machine=or32-unknown - os=-coff - ;; - 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 - ;; - pbd) - basic_machine=sparc-tti - ;; - pbb) - basic_machine=m68k-tti - ;; - pc532 | pc532-*) - basic_machine=ns32k-pc532 - ;; - 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) basic_machine=powerpc-unknown - ;; - ppc-*) 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 - ;; - rom68k) - basic_machine=m68k-rom68k - os=-coff - ;; - rm[46]00) - basic_machine=mips-siemens - ;; - rtpc | rtpc-*) - basic_machine=romp-ibm - ;; - sa29200) - basic_machine=a29k-amd - os=-udi - ;; - sb1) - basic_machine=mipsisa64sb1-unknown - ;; - sb1el) - basic_machine=mipsisa64sb1el-unknown - ;; - sei) - basic_machine=mips-sei - os=-seiux - ;; - sequent) - basic_machine=i386-sequent - ;; - sh) - basic_machine=sh-hitachi - os=-hms - ;; - 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 - ;; - 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 - ;; - tic54x | c54x*) - basic_machine=tic54x-unknown - os=-coff - ;; - tic55x | c55x*) - basic_machine=tic55x-unknown - os=-coff - ;; - tic6x | c6x*) - basic_machine=tic6x-unknown - os=-coff - ;; - tx39) - basic_machine=mipstx39-unknown - ;; - tx39el) - basic_machine=mipstx39el-unknown - ;; - toad1) - basic_machine=pdp10-xkl - os=-tops20 - ;; - tower | tower-32) - basic_machine=m68k-ncr - ;; - 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 - ;; - xps | xps100) - basic_machine=xps100-honeywell - ;; - ymp) - basic_machine=ymp-cray - os=-unicos - ;; - z8k-*-coff) - basic_machine=z8k-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 - ;; - 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 - ;; - sh3 | sh4 | sh[34]eb | sh[1234]le | sh[23]ele) - basic_machine=sh-unknown - ;; - sh64) - basic_machine=sh64-unknown - ;; - sparc | sparcv8 | sparcv9 | sparcv9b) - 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. - -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* | -sunos | -sunos[34]*\ - | -hpux* | -unos* | -osf* | -luna* | -dgux* | -solaris* | -sym* \ - | -amigaos* | -amigados* | -msdos* | -newsos* | -unicos* | -aof* \ - | -aos* \ - | -nindy* | -vxsim* | -vxworks* | -ebmon* | -hms* | -mvs* \ - | -clix* | -riscos* | -uniplus* | -iris* | -rtu* | -xenix* \ - | -hiux* | -386bsd* | -netbsd* | -openbsd* | -freebsd* | -riscix* \ - | -lynxos* | -bosx* | -nextstep* | -cxux* | -aout* | -elf* | -oabi* \ - | -ptx* | -coff* | -ecoff* | -winnt* | -domain* | -vsta* \ - | -udi* | -eabi* | -lites* | -ieee* | -go32* | -aux* \ - | -chorusos* | -chorusrdb* \ - | -cygwin* | -pe* | -psos* | -moss* | -proelf* | -rtems* \ - | -mingw32* | -linux-gnu* | -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*) - # 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* \ - | -macos* | -mpw* | -magic* | -mmixware* | -mon960* | -lnews*) - ;; - -mac*) - os=`echo $os | sed -e 's|mac|macos|'` - ;; - -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 - ;; - -wince*) - os=-wince - ;; - -osfrose*) - os=-osfrose - ;; - -osf*) - os=-osf - ;; - -utek*) - os=-bsd - ;; - -dynix*) - os=-bsd - ;; - -acis*) - os=-aos - ;; - -atheos*) - os=-atheos - ;; - -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 - ;; - -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 - ;; - -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 - *-acorn) - os=-riscix1.2 - ;; - arm*-rebel) - os=-linux - ;; - arm*-semi) - os=-aout - ;; - c4x-* | tic4x-*) - 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 - # This also exists in the configure program, but was not the - # default. - # os=-sunos4 - ;; - m68*-cisco) - os=-aout - ;; - 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 - ;; - *-ibm) - os=-aix - ;; - *-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 - ;; - -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 - ;; - -ptx*) - vendor=sequent - ;; - -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 0 - -# Local variables: -# eval: (add-hook 'write-file-hooks 'time-stamp) -# time-stamp-start: "timestamp='" -# time-stamp-format: "%:y-%02m-%02d" -# time-stamp-end: "'" -# End: diff --git a/libpqtypes/configure b/libpqtypes/configure deleted file mode 100755 index 66bf444..0000000 --- a/libpqtypes/configure +++ /dev/null @@ -1,22956 +0,0 @@ -#! /bin/sh -# Guess values for system-dependent variables and create Makefiles. -# Generated by GNU Autoconf 2.69 for libpqtypes 1.5.1. -# -# Report bugs to . -# -# -# Copyright (C) 1992-1996, 1998-2012 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 - -# Use a proper internal environment variable to ensure we don't fall - # into an infinite loop, continuously re-executing ourselves. - if test x"${_as_can_reexec}" != xno && test "x$CONFIG_SHELL" != x; then - _as_can_reexec=no; export _as_can_reexec; - # 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 -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+"$@"} -# Admittedly, this is quite paranoid, since all the known shells bail -# out after a failed `exec'. -$as_echo "$0: could not re-execute with $CONFIG_SHELL" >&2 -as_fn_exit 255 - fi - # We don't want this to propagate to other subprocesses. - { _as_can_reexec=; unset _as_can_reexec;} -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 -test -x / || exit 1" - as_suggested=" as_lineno_1=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_1a=\$LINENO - as_lineno_2=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_2a=\$LINENO - eval 'test \"x\$as_lineno_1'\$as_run'\" != \"x\$as_lineno_2'\$as_run'\" && - test \"x\`expr \$as_lineno_1'\$as_run' + 1\`\" = \"x\$as_lineno_2'\$as_run'\"' || exit 1 -test \$(( 1 + 1 )) = 2 || exit 1" - if (eval "$as_required") 2>/dev/null; then : - as_have_required=yes -else - as_have_required=no -fi - if test x$as_have_required = xyes && (eval "$as_suggested") 2>/dev/null; then : - -else - as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -as_found=false -for as_dir in /bin$PATH_SEPARATOR/usr/bin$PATH_SEPARATOR$PATH -do - IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. - as_found=: - case $as_dir in #( - /*) - for as_base in sh bash ksh sh5; do - # Try only shells that exist, to save several forks. - as_shell=$as_dir/$as_base - if { test -f "$as_shell" || test -f "$as_shell.exe"; } && - { $as_echo "$as_bourne_compatible""$as_required" | as_run=a "$as_shell"; } 2>/dev/null; then : - CONFIG_SHELL=$as_shell as_have_required=yes - if { $as_echo "$as_bourne_compatible""$as_suggested" | as_run=a "$as_shell"; } 2>/dev/null; then : - break 2 -fi -fi - done;; - esac - as_found=false -done -$as_found || { if { test -f "$SHELL" || test -f "$SHELL.exe"; } && - { $as_echo "$as_bourne_compatible""$as_required" | as_run=a "$SHELL"; } 2>/dev/null; then : - CONFIG_SHELL=$SHELL as_have_required=yes -fi; } -IFS=$as_save_IFS - - - if test "x$CONFIG_SHELL" != x; then : - export CONFIG_SHELL - # 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 -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+"$@"} -# Admittedly, this is quite paranoid, since all the known shells bail -# out after a failed `exec'. -$as_echo "$0: could not re-execute with $CONFIG_SHELL" >&2 -exit 255 -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 and -$0: libpqtypes@esilo.com about your system, including any -$0: error possibly output before this message. Then install -$0: a modern shell, or manually run the script under such a -$0: 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_executable_p FILE -# ----------------------- -# Test if FILE is an executable regular file. -as_fn_executable_p () -{ - test -f "$1" && test -x "$1" -} # as_fn_executable_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; } - - # If we had to re-execute with $CONFIG_SHELL, we're ensured to have - # already done that, so ensure we don't try to do so again and fall - # in an infinite loop. This has already happened in practice. - _as_can_reexec=no; export _as_can_reexec - # 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 -pR'. - ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || - as_ln_s='cp -pR' - elif ln conf$$.file conf$$ 2>/dev/null; then - as_ln_s=ln - else - as_ln_s='cp -pR' - fi -else - as_ln_s='cp -pR' -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 - -as_test_x='test -x' -as_executable_p=as_fn_executable_p - -# 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'" - - - -# Check that we are running under the correct shell. -SHELL=${CONFIG_SHELL-/bin/sh} - -case X$ECHO in -X*--fallback-echo) - # Remove one level of quotation (which was required for Make). - ECHO=`echo "$ECHO" | sed 's,\\\\\$\\$0,'$0','` - ;; -esac - -echo=${ECHO-echo} -if test "X$1" = X--no-reexec; then - # Discard the --no-reexec flag, and continue. - shift -elif test "X$1" = X--fallback-echo; then - # Avoid inline document here, it may be left over - : -elif test "X`($echo '\t') 2>/dev/null`" = 'X\t' ; then - # Yippee, $echo works! - : -else - # Restart under the correct shell. - exec $SHELL "$0" --no-reexec ${1+"$@"} -fi - -if test "X$1" = X--fallback-echo; then - # used as fallback echo - shift - cat </dev/null 2>&1 && unset CDPATH - -if test -z "$ECHO"; then -if test "X${echo_test_string+set}" != Xset; then -# find a string as large as possible, as long as the shell can cope with it - for cmd in 'sed 50q "$0"' 'sed 20q "$0"' 'sed 10q "$0"' 'sed 2q "$0"' 'echo test'; do - # expected sizes: less than 2Kb, 1Kb, 512 bytes, 16 bytes, ... - if (echo_test_string=`eval $cmd`) 2>/dev/null && - echo_test_string=`eval $cmd` && - (test "X$echo_test_string" = "X$echo_test_string") 2>/dev/null - then - break - fi - done -fi - -if test "X`($echo '\t') 2>/dev/null`" = 'X\t' && - echo_testing_string=`($echo "$echo_test_string") 2>/dev/null` && - test "X$echo_testing_string" = "X$echo_test_string"; then - : -else - # The Solaris, AIX, and Digital Unix default echo programs unquote - # backslashes. This makes it impossible to quote backslashes using - # echo "$something" | sed 's/\\/\\\\/g' - # - # So, first we look for a working echo in the user's PATH. - - lt_save_ifs="$IFS"; IFS=$PATH_SEPARATOR - for dir in $PATH /usr/ucb; do - IFS="$lt_save_ifs" - if (test -f $dir/echo || test -f $dir/echo$ac_exeext) && - test "X`($dir/echo '\t') 2>/dev/null`" = 'X\t' && - echo_testing_string=`($dir/echo "$echo_test_string") 2>/dev/null` && - test "X$echo_testing_string" = "X$echo_test_string"; then - echo="$dir/echo" - break - fi - done - IFS="$lt_save_ifs" - - if test "X$echo" = Xecho; then - # We didn't find a better echo, so look for alternatives. - if test "X`(print -r '\t') 2>/dev/null`" = 'X\t' && - echo_testing_string=`(print -r "$echo_test_string") 2>/dev/null` && - test "X$echo_testing_string" = "X$echo_test_string"; then - # This shell has a builtin print -r that does the trick. - echo='print -r' - elif (test -f /bin/ksh || test -f /bin/ksh$ac_exeext) && - test "X$CONFIG_SHELL" != X/bin/ksh; then - # If we have ksh, try running configure again with it. - ORIGINAL_CONFIG_SHELL=${CONFIG_SHELL-/bin/sh} - export ORIGINAL_CONFIG_SHELL - CONFIG_SHELL=/bin/ksh - export CONFIG_SHELL - exec $CONFIG_SHELL "$0" --no-reexec ${1+"$@"} - else - # Try using printf. - echo='printf %s\n' - if test "X`($echo '\t') 2>/dev/null`" = 'X\t' && - echo_testing_string=`($echo "$echo_test_string") 2>/dev/null` && - test "X$echo_testing_string" = "X$echo_test_string"; then - # Cool, printf works - : - elif echo_testing_string=`($ORIGINAL_CONFIG_SHELL "$0" --fallback-echo '\t') 2>/dev/null` && - test "X$echo_testing_string" = 'X\t' && - echo_testing_string=`($ORIGINAL_CONFIG_SHELL "$0" --fallback-echo "$echo_test_string") 2>/dev/null` && - test "X$echo_testing_string" = "X$echo_test_string"; then - CONFIG_SHELL=$ORIGINAL_CONFIG_SHELL - export CONFIG_SHELL - SHELL="$CONFIG_SHELL" - export SHELL - echo="$CONFIG_SHELL $0 --fallback-echo" - elif echo_testing_string=`($CONFIG_SHELL "$0" --fallback-echo '\t') 2>/dev/null` && - test "X$echo_testing_string" = 'X\t' && - echo_testing_string=`($CONFIG_SHELL "$0" --fallback-echo "$echo_test_string") 2>/dev/null` && - test "X$echo_testing_string" = "X$echo_test_string"; then - echo="$CONFIG_SHELL $0 --fallback-echo" - else - # maybe with a smaller string... - prev=: - - for cmd in 'echo test' 'sed 2q "$0"' 'sed 10q "$0"' 'sed 20q "$0"' 'sed 50q "$0"'; do - if (test "X$echo_test_string" = "X`eval $cmd`") 2>/dev/null - then - break - fi - prev="$cmd" - done - - if test "$prev" != 'sed 50q "$0"'; then - echo_test_string=`eval $prev` - export echo_test_string - exec ${ORIGINAL_CONFIG_SHELL-${CONFIG_SHELL-/bin/sh}} "$0" ${1+"$@"} - else - # Oops. We lost completely, so just stick with echo. - echo=echo - fi - fi - fi - fi -fi -fi - -# Copy echo and quote the copy suitably for passing to libtool from -# the Makefile, instead of quoting the original, which is used later. -ECHO=$echo -if test "X$ECHO" = "X$CONFIG_SHELL $0 --fallback-echo"; then - ECHO="$CONFIG_SHELL \\\$\$0 --fallback-echo" -fi - - - - -tagnames=${tagnames+${tagnames},}CXX - -tagnames=${tagnames+${tagnames},}F77 - -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='libpqtypes' -PACKAGE_TARNAME='libpqtypes' -PACKAGE_VERSION='1.5.1' -PACKAGE_STRING='libpqtypes 1.5.1' -PACKAGE_BUGREPORT='libpqtypes@esilo.com' -PACKAGE_URL='' - -# 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_unique_file="src/param.c" -ac_subst_vars='LTLIBOBJS -POW_LIB -LIBOBJS -LIBTOOL -ac_ct_F77 -FFLAGS -F77 -CXXCPP -am__fastdepCXX_FALSE -am__fastdepCXX_TRUE -CXXDEPMODE -ac_ct_CXX -CXXFLAGS -CXX -CPP -RANLIB -AR -ECHO -LN_S -EGREP -GREP -SED -am__fastdepCC_FALSE -am__fastdepCC_TRUE -CCDEPMODE -AMDEPBACKSLASH -AMDEP_FALSE -AMDEP_TRUE -am__quote -am__include -DEPDIR -OBJEXT -EXEEXT -ac_ct_CC -CPPFLAGS -LDFLAGS -CFLAGS -CC -LIBPQTYPES_SO_VERSION -am__untar -am__tar -AMTAR -am__leading_dot -AWK -mkdir_p -INSTALL_STRIP_PROGRAM -STRIP -install_sh -MAKEINFO -AUTOHEADER -AUTOMAKE -AUTOCONF -ACLOCAL -VERSION -PACKAGE -CYGPATH_W -INSTALL_DATA -INSTALL_SCRIPT -INSTALL_PROGRAM -SET_MAKE -target_os -target_vendor -target_cpu -target -host_os -host_vendor -host_cpu -host -build_os -build_vendor -build_cpu -build -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_static -enable_shared -enable_fast_install -enable_dependency_tracking -with_gnu_ld -enable_libtool_lock -with_pic -with_tags -enable_thread_safety -' - ac_precious_vars='build_alias -host_alias -target_alias -CC -CFLAGS -LDFLAGS -LIBS -CPPFLAGS -CPP -CXX -CXXFLAGS -CCC -CXXCPP -F77 -FFLAGS' - - -# 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 - 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 libpqtypes 1.5.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/libpqtypes] - --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] - --target=TARGET configure for building compilers for TARGET [HOST] -_ACEOF -fi - -if test -n "$ac_init_help"; then - case $ac_init_help in - short | recursive ) echo "Configuration of libpqtypes 1.5.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-static[=PKGS] build static libraries [default=no] - --enable-shared[=PKGS] build shared libraries [default=yes] - --enable-fast-install[=PKGS] - optimize for fast installation [default=yes] - --disable-dependency-tracking speeds up one-time build - --enable-dependency-tracking do not reject slow dependency extractors - --disable-libtool-lock avoid locking (might break parallel builds) - --enable-thread-safety Enable threads - -Optional Packages: - --with-PACKAGE[=ARG] use PACKAGE [ARG=yes] - --without-PACKAGE do not use PACKAGE (same as --with-PACKAGE=no) - --with-gnu-ld assume the C compiler uses GNU ld [default=no] - --with-pic try to use only PIC/non-PIC objects [default=use - both] - --with-tags[=TAGS] include additional configurations [automatic] - -Some influential environment variables: - CC C compiler command - CFLAGS C compiler flags - LDFLAGS linker flags, e.g. -L if you have libraries in a - nonstandard directory - LIBS libraries to pass to the linker, e.g. -l - CPPFLAGS (Objective) C/C++ preprocessor flags, e.g. -I if - you have headers in a nonstandard directory - CPP C preprocessor - CXX C++ compiler command - CXXFLAGS C++ compiler flags - CXXCPP C++ preprocessor - F77 Fortran 77 compiler command - FFLAGS Fortran 77 compiler flags - -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 . -_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 -libpqtypes configure 1.5.1 -generated by GNU Autoconf 2.69 - -Copyright (C) 2012 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 || - 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_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_check_header_mongrel LINENO HEADER VAR INCLUDES -# ------------------------------------------------------- -# Tests whether HEADER exists, giving a warning if it cannot be compiled using -# the include files in INCLUDES and setting the cache variable VAR -# accordingly. -ac_fn_c_check_header_mongrel () -{ - as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack - if eval \${$3+:} false; then : - { $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 -fi -eval ac_res=\$$3 - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 -$as_echo "$ac_res" >&6; } -else - # Is the header compilable? -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking $2 usability" >&5 -$as_echo_n "checking $2 usability... " >&6; } -cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -$4 -#include <$2> -_ACEOF -if ac_fn_c_try_compile "$LINENO"; then : - ac_header_compiler=yes -else - ac_header_compiler=no -fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_header_compiler" >&5 -$as_echo "$ac_header_compiler" >&6; } - -# Is the header present? -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking $2 presence" >&5 -$as_echo_n "checking $2 presence... " >&6; } -cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -#include <$2> -_ACEOF -if ac_fn_c_try_cpp "$LINENO"; then : - ac_header_preproc=yes -else - ac_header_preproc=no -fi -rm -f conftest.err conftest.i conftest.$ac_ext -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_header_preproc" >&5 -$as_echo "$ac_header_preproc" >&6; } - -# So? What about this header? -case $ac_header_compiler:$ac_header_preproc:$ac_c_preproc_warn_flag in #(( - yes:no: ) - { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: accepted by the compiler, rejected by the preprocessor!" >&5 -$as_echo "$as_me: WARNING: $2: accepted by the compiler, rejected by the preprocessor!" >&2;} - { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: proceeding with the compiler's result" >&5 -$as_echo "$as_me: WARNING: $2: proceeding with the compiler's result" >&2;} - ;; - no:yes:* ) - { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: present but cannot be compiled" >&5 -$as_echo "$as_me: WARNING: $2: present but cannot be compiled" >&2;} - { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: check for missing prerequisite headers?" >&5 -$as_echo "$as_me: WARNING: $2: check for missing prerequisite headers?" >&2;} - { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: see the Autoconf documentation" >&5 -$as_echo "$as_me: WARNING: $2: see the Autoconf documentation" >&2;} - { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: section \"Present But Cannot Be Compiled\"" >&5 -$as_echo "$as_me: WARNING: $2: section \"Present But Cannot Be Compiled\"" >&2;} - { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: proceeding with the compiler's result" >&5 -$as_echo "$as_me: WARNING: $2: proceeding with the compiler's result" >&2;} -( $as_echo "## ----------------------------------- ## -## Report this to libpqtypes@esilo.com ## -## ----------------------------------- ##" - ) | sed "s/^/$as_me: WARNING: /" >&2 - ;; -esac - { $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 - eval "$3=\$ac_header_compiler" -fi -eval ac_res=\$$3 - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 -$as_echo "$ac_res" >&6; } -fi - eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno - -} # ac_fn_c_check_header_mongrel - -# ac_fn_c_try_run LINENO -# ---------------------- -# Try to link conftest.$ac_ext, and return whether this succeeded. Assumes -# that executables *can* be run. -ac_fn_c_try_run () -{ - as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack - if { { ac_try="$ac_link" -case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" -$as_echo "$ac_try_echo"; } >&5 - (eval "$ac_link") 2>&5 - ac_status=$? - $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 - test $ac_status = 0; } && { ac_try='./conftest$ac_exeext' - { { case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" -$as_echo "$ac_try_echo"; } >&5 - (eval "$ac_try") 2>&5 - ac_status=$? - $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 - test $ac_status = 0; }; }; then : - ac_retval=0 -else - $as_echo "$as_me: program exited with status $ac_status" >&5 - $as_echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - - ac_retval=$ac_status -fi - rm -rf conftest.dSYM conftest_ipa8_conftest.oo - eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno - as_fn_set_status $ac_retval - -} # ac_fn_c_try_run - -# ac_fn_c_check_header_compile LINENO HEADER VAR INCLUDES -# ------------------------------------------------------- -# Tests whether HEADER exists and can be compiled using the include files in -# INCLUDES, setting the cache variable VAR accordingly. -ac_fn_c_check_header_compile () -{ - as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 -$as_echo_n "checking for $2... " >&6; } -if eval \${$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_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 - -# ac_fn_cxx_try_compile LINENO -# ---------------------------- -# Try to compile conftest.$ac_ext, and return whether this succeeded. -ac_fn_cxx_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_cxx_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_cxx_try_compile - -# ac_fn_cxx_try_cpp LINENO -# ------------------------ -# Try to preprocess conftest.$ac_ext, and return whether this succeeded. -ac_fn_cxx_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_cxx_preproc_warn_flag$ac_cxx_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_cxx_try_cpp - -# ac_fn_cxx_try_link LINENO -# ------------------------- -# Try to link conftest.$ac_ext, and return whether this succeeded. -ac_fn_cxx_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_cxx_werror_flag" || - test ! -s conftest.err - } && test -s conftest$ac_exeext && { - test "$cross_compiling" = yes || - 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_cxx_try_link - -# ac_fn_f77_try_compile LINENO -# ---------------------------- -# Try to compile conftest.$ac_ext, and return whether this succeeded. -ac_fn_f77_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_f77_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_f77_try_compile - -# ac_fn_f77_try_link LINENO -# ------------------------- -# Try to link conftest.$ac_ext, and return whether this succeeded. -ac_fn_f77_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_f77_werror_flag" || - test ! -s conftest.err - } && test -s conftest$ac_exeext && { - test "$cross_compiling" = yes || - 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_f77_try_link - -# ac_fn_c_check_member LINENO AGGR MEMBER VAR INCLUDES -# ---------------------------------------------------- -# Tries to find if the field MEMBER exists in type AGGR, after including -# INCLUDES, setting cache variable VAR accordingly. -ac_fn_c_check_member () -{ - as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2.$3" >&5 -$as_echo_n "checking for $2.$3... " >&6; } -if eval \${$4+:} false; then : - $as_echo_n "(cached) " >&6 -else - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -$5 -int -main () -{ -static $2 ac_aggr; -if (ac_aggr.$3) -return 0; - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO"; then : - eval "$4=yes" -else - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -$5 -int -main () -{ -static $2 ac_aggr; -if (sizeof ac_aggr.$3) -return 0; - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO"; then : - eval "$4=yes" -else - eval "$4=no" -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 -eval ac_res=\$$4 - { $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_member - -# ac_fn_c_check_decl LINENO SYMBOL VAR INCLUDES -# --------------------------------------------- -# Tests whether SYMBOL is declared in INCLUDES, setting cache variable VAR -# accordingly. -ac_fn_c_check_decl () -{ - as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack - as_decl_name=`echo $2|sed 's/ *(.*//'` - as_decl_use=`echo $2|sed -e 's/(/((/' -e 's/)/) 0&/' -e 's/,/) 0& (/g'` - { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $as_decl_name is declared" >&5 -$as_echo_n "checking whether $as_decl_name is declared... " >&6; } -if eval \${$3+:} false; then : - $as_echo_n "(cached) " >&6 -else - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -$4 -int -main () -{ -#ifndef $as_decl_name -#ifdef __cplusplus - (void) $as_decl_use; -#else - (void) $as_decl_name; -#endif -#endif - - ; - return 0; -} -_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_decl - -# ac_fn_c_check_type LINENO TYPE VAR INCLUDES -# ------------------------------------------- -# Tests whether TYPE exists after having included INCLUDES, setting cache -# variable VAR accordingly. -ac_fn_c_check_type () -{ - 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 - eval "$3=no" - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -$4 -int -main () -{ -if (sizeof ($2)) - return 0; - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO"; then : - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -$4 -int -main () -{ -if (sizeof (($2))) - return 0; - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO"; then : - -else - eval "$3=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 -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_type -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 libpqtypes $as_me 1.5.1, which was -generated by GNU Autoconf 2.69. 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_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. - - -# 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 - - -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking target system type" >&5 -$as_echo_n "checking target system type... " >&6; } -if ${ac_cv_target+:} false; then : - $as_echo_n "(cached) " >&6 -else - if test "x$target_alias" = x; then - ac_cv_target=$ac_cv_host -else - ac_cv_target=`$SHELL "$ac_aux_dir/config.sub" $target_alias` || - as_fn_error $? "$SHELL $ac_aux_dir/config.sub $target_alias failed" "$LINENO" 5 -fi - -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_target" >&5 -$as_echo "$ac_cv_target" >&6; } -case $ac_cv_target in -*-*-*) ;; -*) as_fn_error $? "invalid value of canonical target" "$LINENO" 5;; -esac -target=$ac_cv_target -ac_save_IFS=$IFS; IFS='-' -set x $ac_cv_target -shift -target_cpu=$1 -target_vendor=$2 -shift; shift -# Remember, the first character of IFS is used to create $*, -# except with old shells: -target_os=$* -IFS=$ac_save_IFS -case $target_os in *\ *) target_os=`echo "$target_os" | sed 's/ /-/g'`;; esac - - -# The aliases save the names the user supplied, while $host etc. -# will get canonicalized. -test -n "$target_alias" && - test "$program_prefix$program_suffix$program_transform_name" = \ - NONENONEs,x,x, && - program_prefix=${target_alias}- -{ $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 - -SET_MAKE="MAKE=make --no-print-directory" -ac_aux_dir= -for ac_dir in . "$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\"/." "$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. - - -am__api_version="1.9" -# 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 as_fn_executable_p "$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 -# 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` - -test x"${MISSING+set}" = xset || MISSING="\${SHELL} $am_aux_dir/missing" -# 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 mkdir -p --version . >/dev/null 2>&1 && test ! -d ./--version; then - # We used to keeping the `.' as first argument, in order to - # allow $(mkdir_p) to be used without argument. As in - # $(mkdir_p) $(somedir) - # where $(somedir) is conditionally defined. However this is wrong - # for two reasons: - # 1. if the package is installed by a user who cannot write `.' - # make install will fail, - # 2. the above comment should most certainly read - # $(mkdir_p) $(DESTDIR)$(somedir) - # so it does not work when $(somedir) is undefined and - # $(DESTDIR) is not. - # To support the latter case, we have to write - # test -z "$(somedir)" || $(mkdir_p) $(DESTDIR)$(somedir), - # so the `.' trick is pointless. - mkdir_p='mkdir -p --' -else - # On NextStep and OpenStep, the `mkdir' command does not - # recognize any option. It will interpret all options as - # directories to create, and then abort because `.' already - # exists. - for d in ./-p ./--version; - do - test -d $d && rmdir $d - done - # $(mkinstalldirs) is defined by Automake if mkinstalldirs exists. - if test -f "$ac_aux_dir/mkinstalldirs"; then - mkdir_p='$(mkinstalldirs)' - else - mkdir_p='$(install_sh) -d' - fi -fi - -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 as_fn_executable_p "$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 - -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 - -# test to see if srcdir already configured -if test "`cd $srcdir && pwd`" != "`pwd`" && - test -f $srcdir/config.status; then - as_fn_error $? "source directory already configured; run \"make distclean\" there first" "$LINENO" 5 -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=libpqtypes - VERSION=1.5.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"} - -install_sh=${install_sh-"$am_aux_dir/install-sh"} - -# 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 as_fn_executable_p "$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 as_fn_executable_p "$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="\${SHELL} \$(install_sh) -c -s" - -# We need awk for the "check" target. The system "awk" is bad on -# some platforms. -# Always define AMTAR for backward compatibility. - -AMTAR=${AMTAR-"${am_missing_run}tar"} - -am__tar='${AMTAR} chof - "$$tardir"'; am__untar='${AMTAR} xf -' - - - - - -LIBPQTYPES_SO_VERSION=1:5:1 - -# 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=no -fi - - - -# 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-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 - - -DEPDIR="${am__leading_dot}deps" - -ac_config_commands="$ac_config_commands depfiles" - - -am_make=${MAKE-make} -cat > confinc << 'END' -am__doit: - @echo done -.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 -# We grep out `Entering directory' and `Leaving directory' -# messages which can occur if `w' ends up in MAKEFLAGS. -# In particular we don't look at `^make:' because GNU make might -# be invoked under some other name (usually "gmake"), in which -# case it prints its new name instead of `make'. -if test "`$am_make -s -f confmf 2> /dev/null | grep -v 'ing directory'`" = "done"; then - am__include=include - am__quote= - _am_result=GNU -fi -# Now try BSD make style include. -if test "$am__include" = "#"; then - echo '.include "confinc"' > confmf - if test "`$am_make -s -f confmf 2> /dev/null`" = "done"; then - am__include=.include - am__quote="\"" - _am_result=BSD - fi -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='\' -fi - - -if test "x$enable_dependency_tracking" != xno; then - AMDEP_TRUE= - AMDEP_FALSE='#' -else - AMDEP_TRUE='#' - AMDEP_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 - # Extract the first word of "${ac_tool_prefix}gcc", so it can be a program name with args. -set dummy ${ac_tool_prefix}gcc; ac_word=$2 -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 -$as_echo_n "checking for $ac_word... " >&6; } -if ${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 as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then - ac_cv_prog_CC="${ac_tool_prefix}gcc" - $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 - break 2 - fi -done - done -IFS=$as_save_IFS - -fi -fi -CC=$ac_cv_prog_CC -if test -n "$CC"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 -$as_echo "$CC" >&6; } -else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } -fi - - -fi -if test -z "$ac_cv_prog_CC"; then - ac_ct_CC=$CC - # Extract the first word of "gcc", so it can be a program name with args. -set dummy gcc; ac_word=$2 -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 -$as_echo_n "checking for $ac_word... " >&6; } -if ${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 as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then - ac_cv_prog_ac_ct_CC="gcc" - $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 - break 2 - fi -done - done -IFS=$as_save_IFS - -fi -fi -ac_ct_CC=$ac_cv_prog_ac_ct_CC -if test -n "$ac_ct_CC"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CC" >&5 -$as_echo "$ac_ct_CC" >&6; } -else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } -fi - - if test "x$ac_ct_CC" = x; then - CC="" - else - case $cross_compiling:$ac_tool_warned in -yes:) -{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 -$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} -ac_tool_warned=yes ;; -esac - CC=$ac_ct_CC - fi -else - CC="$ac_cv_prog_CC" -fi - -if test -z "$CC"; then - if test -n "$ac_tool_prefix"; then - # Extract the first word of "${ac_tool_prefix}cc", so it can be a program name with args. -set dummy ${ac_tool_prefix}cc; ac_word=$2 -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 -$as_echo_n "checking for $ac_word... " >&6; } -if ${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 as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then - ac_cv_prog_CC="${ac_tool_prefix}cc" - $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 - break 2 - fi -done - done -IFS=$as_save_IFS - -fi -fi -CC=$ac_cv_prog_CC -if test -n "$CC"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 -$as_echo "$CC" >&6; } -else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } -fi - - - fi -fi -if test -z "$CC"; then - # Extract the first word of "cc", so it can be a program name with args. -set dummy cc; ac_word=$2 -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 -$as_echo_n "checking for $ac_word... " >&6; } -if ${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 - ac_prog_rejected=no -as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in $PATH -do - IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. - for ac_exec_ext in '' $ac_executable_extensions; do - if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then - if test "$as_dir/$ac_word$ac_exec_ext" = "/usr/ucb/cc"; then - ac_prog_rejected=yes - continue - fi - ac_cv_prog_CC="cc" - $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 - break 2 - fi -done - done -IFS=$as_save_IFS - -if test $ac_prog_rejected = yes; then - # We found a bogon in the path, so make sure we never use it. - set dummy $ac_cv_prog_CC - shift - if test $# != 0; then - # We chose a different compiler from the bogus one. - # However, it has the same basename, so the bogon will be chosen - # first if we set CC to just the basename; use the full file name. - shift - ac_cv_prog_CC="$as_dir/$ac_word${1+' '}$@" - fi -fi -fi -fi -CC=$ac_cv_prog_CC -if test -n "$CC"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 -$as_echo "$CC" >&6; } -else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } -fi - - -fi -if test -z "$CC"; then - if test -n "$ac_tool_prefix"; then - for ac_prog in cl.exe - do - # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args. -set dummy $ac_tool_prefix$ac_prog; ac_word=$2 -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 -$as_echo_n "checking for $ac_word... " >&6; } -if ${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 as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then - ac_cv_prog_CC="$ac_tool_prefix$ac_prog" - $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 - break 2 - fi -done - done -IFS=$as_save_IFS - -fi -fi -CC=$ac_cv_prog_CC -if test -n "$CC"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 -$as_echo "$CC" >&6; } -else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } -fi - - - test -n "$CC" && break - done -fi -if test -z "$CC"; then - ac_ct_CC=$CC - for ac_prog in cl.exe -do - # Extract the first word of "$ac_prog", so it can be a program name with args. -set dummy $ac_prog; ac_word=$2 -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 -$as_echo_n "checking for $ac_word... " >&6; } -if ${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 as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then - ac_cv_prog_ac_ct_CC="$ac_prog" - $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 - break 2 - fi -done - done -IFS=$as_save_IFS - -fi -fi -ac_ct_CC=$ac_cv_prog_ac_ct_CC -if test -n "$ac_ct_CC"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CC" >&5 -$as_echo "$ac_ct_CC" >&6; } -else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } -fi - - - test -n "$ac_ct_CC" && break -done - - if test "x$ac_ct_CC" = x; then - CC="" - else - case $cross_compiling:$ac_tool_warned in -yes:) -{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 -$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} -ac_tool_warned=yes ;; -esac - CC=$ac_ct_CC - fi -fi - -fi - - -test -z "$CC" && { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 -$as_echo "$as_me: error: in \`$ac_pwd':" >&2;} -as_fn_error $? "no acceptable C compiler found in \$PATH -See \`config.log' for more details" "$LINENO" 5; } - -# Provide some information about the compiler. -$as_echo "$as_me:${as_lineno-$LINENO}: checking for C compiler version" >&5 -set X $ac_compile -ac_compiler=$2 -for ac_option in --version -v -V -qversion; do - { { ac_try="$ac_compiler $ac_option >&5" -case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" -$as_echo "$ac_try_echo"; } >&5 - (eval "$ac_compiler $ac_option >&5") 2>conftest.err - ac_status=$? - if test -s conftest.err; then - sed '10a\ -... rest of stderr output deleted ... - 10q' conftest.err >conftest.er1 - cat conftest.er1 >&5 - fi - rm -f conftest.er1 conftest.err - $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 - test $ac_status = 0; } -done - -cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -int -main () -{ - - ; - return 0; -} -_ACEOF -ac_clean_files_save=$ac_clean_files -ac_clean_files="$ac_clean_files a.out a.out.dSYM a.exe b.out" -# Try to create an executable without -o first, disregard a.out. -# It will help us diagnose broken compilers, and finding out an intuition -# of exeext. -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the C compiler works" >&5 -$as_echo_n "checking whether the C compiler works... " >&6; } -ac_link_default=`$as_echo "$ac_link" | sed 's/ -o *conftest[^ ]*//'` - -# The possible output files: -ac_files="a.out conftest.exe conftest a.exe a_out.exe b.out conftest.*" - -ac_rmfiles= -for ac_file in $ac_files -do - case $ac_file in - *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj ) ;; - * ) ac_rmfiles="$ac_rmfiles $ac_file";; - esac -done -rm -f $ac_rmfiles - -if { { ac_try="$ac_link_default" -case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" -$as_echo "$ac_try_echo"; } >&5 - (eval "$ac_link_default") 2>&5 - ac_status=$? - $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 - test $ac_status = 0; }; then : - # Autoconf-2.13 could set the ac_cv_exeext variable to `no'. -# So ignore a value of `no', otherwise this would lead to `EXEEXT = no' -# in a Makefile. We should not override ac_cv_exeext if it was cached, -# so that the user can short-circuit this test for compilers unknown to -# Autoconf. -for ac_file in $ac_files '' -do - test -f "$ac_file" || continue - case $ac_file in - *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj ) - ;; - [ab].out ) - # We found the default executable, but exeext='' is most - # certainly right. - break;; - *.* ) - if test "${ac_cv_exeext+set}" = set && test "$ac_cv_exeext" != no; - then :; else - ac_cv_exeext=`expr "$ac_file" : '[^.]*\(\..*\)'` - fi - # We set ac_cv_exeext here because the later test for it is not - # safe: cross compilers may not add the suffix if given an `-o' - # argument, so we may need to know it at that point already. - # Even if this section looks crufty: it has the advantage of - # actually working. - break;; - * ) - break;; - esac -done -test "$ac_cv_exeext" = no && ac_cv_exeext= - -else - ac_file='' -fi -if test -z "$ac_file"; then : - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } -$as_echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -{ { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 -$as_echo "$as_me: error: in \`$ac_pwd':" >&2;} -as_fn_error 77 "C compiler cannot create executables -See \`config.log' for more details" "$LINENO" 5; } -else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 -$as_echo "yes" >&6; } -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for C compiler default output file name" >&5 -$as_echo_n "checking for C compiler default output file name... " >&6; } -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_file" >&5 -$as_echo "$ac_file" >&6; } -ac_exeext=$ac_cv_exeext - -rm -f -r a.out a.out.dSYM a.exe conftest$ac_cv_exeext b.out -ac_clean_files=$ac_clean_files_save -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for suffix of executables" >&5 -$as_echo_n "checking for suffix of executables... " >&6; } -if { { ac_try="$ac_link" -case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" -$as_echo "$ac_try_echo"; } >&5 - (eval "$ac_link") 2>&5 - ac_status=$? - $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 - test $ac_status = 0; }; then : - # If both `conftest.exe' and `conftest' are `present' (well, observable) -# catch `conftest.exe'. For instance with Cygwin, `ls conftest' will -# work properly (i.e., refer to `conftest.exe'), while it won't with -# `rm'. -for ac_file in conftest.exe conftest conftest.*; do - test -f "$ac_file" || continue - case $ac_file in - *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj ) ;; - *.* ) ac_cv_exeext=`expr "$ac_file" : '[^.]*\(\..*\)'` - break;; - * ) break;; - esac -done -else - { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 -$as_echo "$as_me: error: in \`$ac_pwd':" >&2;} -as_fn_error $? "cannot compute suffix of executables: cannot compile and link -See \`config.log' for more details" "$LINENO" 5; } -fi -rm -f conftest conftest$ac_cv_exeext -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_exeext" >&5 -$as_echo "$ac_cv_exeext" >&6; } - -rm -f conftest.$ac_ext -EXEEXT=$ac_cv_exeext -ac_exeext=$EXEEXT -cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -#include -int -main () -{ -FILE *f = fopen ("conftest.out", "w"); - return ferror (f) || fclose (f) != 0; - - ; - return 0; -} -_ACEOF -ac_clean_files="$ac_clean_files conftest.out" -# Check that the compiler produces executables we can run. If not, either -# the compiler is broken, or we cross compile. -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether we are cross compiling" >&5 -$as_echo_n "checking whether we are cross compiling... " >&6; } -if test "$cross_compiling" != yes; then - { { ac_try="$ac_link" -case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" -$as_echo "$ac_try_echo"; } >&5 - (eval "$ac_link") 2>&5 - ac_status=$? - $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 - test $ac_status = 0; } - if { ac_try='./conftest$ac_cv_exeext' - { { case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" -$as_echo "$ac_try_echo"; } >&5 - (eval "$ac_try") 2>&5 - ac_status=$? - $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 - test $ac_status = 0; }; }; then - cross_compiling=no - else - if test "$cross_compiling" = maybe; then - cross_compiling=yes - else - { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 -$as_echo "$as_me: error: in \`$ac_pwd':" >&2;} -as_fn_error $? "cannot run C compiled programs. -If you meant to cross compile, use \`--host'. -See \`config.log' for more details" "$LINENO" 5; } - fi - fi -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $cross_compiling" >&5 -$as_echo "$cross_compiling" >&6; } - -rm -f conftest.$ac_ext conftest$ac_cv_exeext conftest.out -ac_clean_files=$ac_clean_files_save -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for suffix of object files" >&5 -$as_echo_n "checking for suffix of object files... " >&6; } -if ${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 -struct stat; -/* 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 - -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'. - 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 - 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 - - case $depmode in - 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 - ;; - none) break ;; - esac - # 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. - if depmode=$depmode \ - source=sub/conftest.c object=sub/conftest.${OBJEXT-o} \ - depfile=sub/conftest.Po tmpdepfile=sub/conftest.TPo \ - $SHELL ./depcomp $depcc -c -o sub/conftest.${OBJEXT-o} sub/conftest.c \ - >/dev/null 2>conftest.err && - grep sub/conftst6.h sub/conftest.Po > /dev/null 2>&1 && - grep sub/conftest.${OBJEXT-o} 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 - - -{ $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 ${lt_cv_path_SED+:} false; then : - $as_echo_n "(cached) " >&6 -else - # 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 - -fi - -SED=$lt_cv_path_SED - -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $SED" >&5 -$as_echo "$SED" >&6; } - -{ $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" - as_fn_executable_p "$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" - as_fn_executable_p "$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" - - - -# 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 $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 - 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 - -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for BSD-compatible nm" >&5 -$as_echo_n "checking for BSD-compatible 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 - test -z "$lt_cv_path_NM" && lt_cv_path_NM=nm -fi -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_path_NM" >&5 -$as_echo "$lt_cv_path_NM" >&6; } -NM="$lt_cv_path_NM" - -{ $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 - -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking how to recognise dependent libraries" >&5 -$as_echo_n "checking how to recognise 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 -aix4* | aix5*) - 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'. - lt_cv_deplibs_check_method='file_magic file format pei*-i386(.*architecture: i386)?' - lt_cv_file_magic_cmd='$OBJDUMP -f' - ;; - -darwin* | rhapsody*) - lt_cv_deplibs_check_method=pass_all - ;; - -freebsd* | kfreebsd*-gnu | 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 - ;; - -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]) 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 - ;; - -interix3*) - # 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 Linux ELF. -linux*) - lt_cv_deplibs_check_method=pass_all - ;; - -netbsd*) - 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=unknown - ;; - -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 - ;; - -solaris*) - 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 - ;; - -sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX* | sysv4*uw2*) - 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_cmd=$lt_cv_file_magic_cmd -deplibs_check_method=$lt_cv_deplibs_check_method -test -z "$deplibs_check_method" && deplibs_check_method=unknown - - - - -# 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 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 4960 "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-*linux*|ppc*-*linux*|powerpc*-*linux*|s390*-*linux*|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-*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-*linux*) - LD="${LD-ld} -m elf_x86_64" - ;; - ppc*-*linux*|powerpc*-*linux*) - LD="${LD-ld} -m elf64ppc" - ;; - s390*-*linux*) - 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 - ;; -sparc*-*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*) LD="${LD-ld} -m elf64_sparc" ;; - *) LD="${LD-ld} -64" ;; - esac - ;; - esac - fi - rm -rf conftest* - ;; - - -esac - -need_locks="$enable_libtool_lock" - - -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_mongrel "$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 - -ac_ext=cpp -ac_cpp='$CXXCPP $CPPFLAGS' -ac_compile='$CXX -c $CXXFLAGS $CPPFLAGS conftest.$ac_ext >&5' -ac_link='$CXX -o conftest$ac_exeext $CXXFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' -ac_compiler_gnu=$ac_cv_cxx_compiler_gnu -if test -z "$CXX"; then - if test -n "$CCC"; then - CXX=$CCC - else - if test -n "$ac_tool_prefix"; then - for ac_prog in g++ c++ gpp aCC CC cxx cc++ cl.exe FCC KCC RCC xlC_r xlC - 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_CXX+:} false; then : - $as_echo_n "(cached) " >&6 -else - if test -n "$CXX"; then - ac_cv_prog_CXX="$CXX" # 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 as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then - ac_cv_prog_CXX="$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 -CXX=$ac_cv_prog_CXX -if test -n "$CXX"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CXX" >&5 -$as_echo "$CXX" >&6; } -else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } -fi - - - test -n "$CXX" && break - done -fi -if test -z "$CXX"; then - ac_ct_CXX=$CXX - for ac_prog in g++ c++ gpp aCC CC cxx cc++ cl.exe FCC KCC RCC xlC_r xlC -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_CXX+:} false; then : - $as_echo_n "(cached) " >&6 -else - if test -n "$ac_ct_CXX"; then - ac_cv_prog_ac_ct_CXX="$ac_ct_CXX" # 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 as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then - ac_cv_prog_ac_ct_CXX="$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_CXX=$ac_cv_prog_ac_ct_CXX -if test -n "$ac_ct_CXX"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CXX" >&5 -$as_echo "$ac_ct_CXX" >&6; } -else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } -fi - - - test -n "$ac_ct_CXX" && break -done - - if test "x$ac_ct_CXX" = x; then - CXX="g++" - 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 - CXX=$ac_ct_CXX - fi -fi - - fi -fi -# 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 - -{ $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_cxx_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_cxx_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_cxx_compiler_gnu=$ac_compiler_gnu - -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_cxx_compiler_gnu" >&5 -$as_echo "$ac_cv_cxx_compiler_gnu" >&6; } -if test $ac_compiler_gnu = yes; then - GXX=yes -else - GXX= -fi -ac_test_CXXFLAGS=${CXXFLAGS+set} -ac_save_CXXFLAGS=$CXXFLAGS -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $CXX accepts -g" >&5 -$as_echo_n "checking whether $CXX accepts -g... " >&6; } -if ${ac_cv_prog_cxx_g+:} false; then : - $as_echo_n "(cached) " >&6 -else - ac_save_cxx_werror_flag=$ac_cxx_werror_flag - ac_cxx_werror_flag=yes - ac_cv_prog_cxx_g=no - CXXFLAGS="-g" - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -int -main () -{ - - ; - return 0; -} -_ACEOF -if ac_fn_cxx_try_compile "$LINENO"; then : - ac_cv_prog_cxx_g=yes -else - CXXFLAGS="" - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -int -main () -{ - - ; - return 0; -} -_ACEOF -if ac_fn_cxx_try_compile "$LINENO"; then : - -else - ac_cxx_werror_flag=$ac_save_cxx_werror_flag - CXXFLAGS="-g" - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -int -main () -{ - - ; - return 0; -} -_ACEOF -if ac_fn_cxx_try_compile "$LINENO"; then : - ac_cv_prog_cxx_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_cxx_werror_flag=$ac_save_cxx_werror_flag -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cxx_g" >&5 -$as_echo "$ac_cv_prog_cxx_g" >&6; } -if test "$ac_test_CXXFLAGS" = set; then - CXXFLAGS=$ac_save_CXXFLAGS -elif test $ac_cv_prog_cxx_g = yes; then - if test "$GXX" = yes; then - CXXFLAGS="-g -O2" - else - CXXFLAGS="-g" - fi -else - if test "$GXX" = yes; then - CXXFLAGS="-O2" - else - CXXFLAGS= - fi -fi -ac_ext=cpp -ac_cpp='$CXXCPP $CPPFLAGS' -ac_compile='$CXX -c $CXXFLAGS $CPPFLAGS conftest.$ac_ext >&5' -ac_link='$CXX -o conftest$ac_exeext $CXXFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' -ac_compiler_gnu=$ac_cv_cxx_compiler_gnu - -depcc="$CXX" 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_CXX_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'. - 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_CXX_dependencies_compiler_type=none - if test "$am_compiler_list" = ""; then - am_compiler_list=`sed -n 's/^#*\([a-zA-Z0-9]*\))$/\1/p' < ./depcomp` - fi - 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 - - case $depmode in - 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 - ;; - none) break ;; - esac - # 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. - if depmode=$depmode \ - source=sub/conftest.c object=sub/conftest.${OBJEXT-o} \ - depfile=sub/conftest.Po tmpdepfile=sub/conftest.TPo \ - $SHELL ./depcomp $depcc -c -o sub/conftest.${OBJEXT-o} sub/conftest.c \ - >/dev/null 2>conftest.err && - grep sub/conftst6.h sub/conftest.Po > /dev/null 2>&1 && - grep sub/conftest.${OBJEXT-o} 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_CXX_dependencies_compiler_type=$depmode - break - fi - fi - done - - cd .. - rm -rf conftest.dir -else - am_cv_CXX_dependencies_compiler_type=none -fi - -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $am_cv_CXX_dependencies_compiler_type" >&5 -$as_echo "$am_cv_CXX_dependencies_compiler_type" >&6; } -CXXDEPMODE=depmode=$am_cv_CXX_dependencies_compiler_type - - - -if - test "x$enable_dependency_tracking" != xno \ - && test "$am_cv_CXX_dependencies_compiler_type" = gcc3; then - am__fastdepCXX_TRUE= - am__fastdepCXX_FALSE='#' -else - am__fastdepCXX_TRUE='#' - am__fastdepCXX_FALSE= -fi - - - - -if test -n "$CXX" && ( test "X$CXX" != "Xno" && - ( (test "X$CXX" = "Xg++" && `g++ -v >/dev/null 2>&1` ) || - (test "X$CXX" != "Xg++"))) ; then - ac_ext=cpp -ac_cpp='$CXXCPP $CPPFLAGS' -ac_compile='$CXX -c $CXXFLAGS $CPPFLAGS conftest.$ac_ext >&5' -ac_link='$CXX -o conftest$ac_exeext $CXXFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' -ac_compiler_gnu=$ac_cv_cxx_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; } -if test -z "$CXXCPP"; then - if ${ac_cv_prog_CXXCPP+:} false; then : - $as_echo_n "(cached) " >&6 -else - # Double quotes because CXXCPP needs to be expanded - for CXXCPP in "$CXX -E" "/lib/cpp" - do - ac_preproc_ok=false -for ac_cxx_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_cxx_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_cxx_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_CXXCPP=$CXXCPP - -fi - CXXCPP=$ac_cv_prog_CXXCPP -else - ac_cv_prog_CXXCPP=$CXXCPP -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $CXXCPP" >&5 -$as_echo "$CXXCPP" >&6; } -ac_preproc_ok=false -for ac_cxx_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_cxx_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_cxx_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 \"$CXXCPP\" fails sanity check -See \`config.log' for more details" "$LINENO" 5; } -fi - -ac_ext=cpp -ac_cpp='$CXXCPP $CPPFLAGS' -ac_compile='$CXX -c $CXXFLAGS $CPPFLAGS conftest.$ac_ext >&5' -ac_link='$CXX -o conftest$ac_exeext $CXXFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' -ac_compiler_gnu=$ac_cv_cxx_compiler_gnu - -fi - - -ac_ext=f -ac_compile='$F77 -c $FFLAGS conftest.$ac_ext >&5' -ac_link='$F77 -o conftest$ac_exeext $FFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' -ac_compiler_gnu=$ac_cv_f77_compiler_gnu -if test -n "$ac_tool_prefix"; then - for ac_prog in g77 xlf f77 frt pgf77 cf77 fort77 fl32 af77 xlf90 f90 pgf90 pghpf epcf90 gfortran g95 xlf95 f95 fort ifort ifc efc pgfortran pgf95 lf95 ftn nagfor - 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_F77+:} false; then : - $as_echo_n "(cached) " >&6 -else - if test -n "$F77"; then - ac_cv_prog_F77="$F77" # 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 as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then - ac_cv_prog_F77="$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 -F77=$ac_cv_prog_F77 -if test -n "$F77"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $F77" >&5 -$as_echo "$F77" >&6; } -else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } -fi - - - test -n "$F77" && break - done -fi -if test -z "$F77"; then - ac_ct_F77=$F77 - for ac_prog in g77 xlf f77 frt pgf77 cf77 fort77 fl32 af77 xlf90 f90 pgf90 pghpf epcf90 gfortran g95 xlf95 f95 fort ifort ifc efc pgfortran pgf95 lf95 ftn nagfor -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_F77+:} false; then : - $as_echo_n "(cached) " >&6 -else - if test -n "$ac_ct_F77"; then - ac_cv_prog_ac_ct_F77="$ac_ct_F77" # 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 as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then - ac_cv_prog_ac_ct_F77="$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_F77=$ac_cv_prog_ac_ct_F77 -if test -n "$ac_ct_F77"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_F77" >&5 -$as_echo "$ac_ct_F77" >&6; } -else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } -fi - - - test -n "$ac_ct_F77" && break -done - - if test "x$ac_ct_F77" = x; then - F77="" - 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 - F77=$ac_ct_F77 - fi -fi - - -# Provide some information about the compiler. -$as_echo "$as_me:${as_lineno-$LINENO}: checking for Fortran 77 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 -rm -f a.out - -# If we don't use `.F' as extension, the preprocessor is not run on the -# input file. (Note that this only needs to work for GNU compilers.) -ac_save_ext=$ac_ext -ac_ext=F -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether we are using the GNU Fortran 77 compiler" >&5 -$as_echo_n "checking whether we are using the GNU Fortran 77 compiler... " >&6; } -if ${ac_cv_f77_compiler_gnu+:} false; then : - $as_echo_n "(cached) " >&6 -else - cat > conftest.$ac_ext <<_ACEOF - program main -#ifndef __GNUC__ - choke me -#endif - - end -_ACEOF -if ac_fn_f77_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_f77_compiler_gnu=$ac_compiler_gnu - -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_f77_compiler_gnu" >&5 -$as_echo "$ac_cv_f77_compiler_gnu" >&6; } -ac_ext=$ac_save_ext -ac_test_FFLAGS=${FFLAGS+set} -ac_save_FFLAGS=$FFLAGS -FFLAGS= -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $F77 accepts -g" >&5 -$as_echo_n "checking whether $F77 accepts -g... " >&6; } -if ${ac_cv_prog_f77_g+:} false; then : - $as_echo_n "(cached) " >&6 -else - FFLAGS=-g -cat > conftest.$ac_ext <<_ACEOF - program main - - end -_ACEOF -if ac_fn_f77_try_compile "$LINENO"; then : - ac_cv_prog_f77_g=yes -else - ac_cv_prog_f77_g=no -fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext - -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_f77_g" >&5 -$as_echo "$ac_cv_prog_f77_g" >&6; } -if test "$ac_test_FFLAGS" = set; then - FFLAGS=$ac_save_FFLAGS -elif test $ac_cv_prog_f77_g = yes; then - if test "x$ac_cv_f77_compiler_gnu" = xyes; then - FFLAGS="-g -O2" - else - FFLAGS="-g" - fi -else - if test "x$ac_cv_f77_compiler_gnu" = xyes; then - FFLAGS="-O2" - else - FFLAGS= - fi -fi - -if test $ac_compiler_gnu = yes; then - G77=yes -else - G77= -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 - - - -# Autoconf 2.13's AC_OBJEXT and AC_EXEEXT macros only works for C compilers! - -# 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*) - # 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; - ;; - - 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 - ;; - - 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 - ;; - *) - # 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. - SHELL=${SHELL-${CONFIG_SHELL-/bin/sh}} - while (test "X"`$SHELL $0 --fallback-echo "X$teststring" 2>/dev/null` \ - = "XX$teststring") >/dev/null 2>&1 && - new_result=`expr "X$teststring" : ".*" 2>&1` && - lt_cv_sys_max_cmd_len=$new_result && - test $i != 17 # 1/2 MB should be enough - do - i=`expr $i + 1` - teststring=$teststring$teststring - done - 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` - ;; - 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 - - - - -# 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]*\)' - -# Transform an extracted symbol line into a proper C declaration -lt_cv_sys_global_symbol_to_cdecl="sed -n -e 's/^. .* \(.*\)$/extern int \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\\\", (lt_ptr) 0},/p' -e 's/^$symcode \([^ ]*\) \([^ ]*\)$/ {\"\2\", (lt_ptr) \&\2},/p'" - -# Define system-specific variables. -case $host_os in -aix*) - symcode='[BCDT]' - ;; -cygwin* | mingw* | pw32*) - symcode='[ABCDGISTW]' - ;; -hpux*) # Its linker distinguishes data from code symbols - if test "$host_cpu" = ia64; then - symcode='[ABCDEGRST]' - fi - lt_cv_sys_global_symbol_to_cdecl="sed -n -e 's/^T .* \(.*\)$/extern int \1();/p' -e 's/^$symcode* .* \(.*\)$/extern char \1;/p'" - lt_cv_sys_global_symbol_to_c_name_address="sed -n -e 's/^: \([^ ]*\) $/ {\\\"\1\\\", (lt_ptr) 0},/p' -e 's/^$symcode* \([^ ]*\) \([^ ]*\)$/ {\"\2\", (lt_ptr) \&\2},/p'" - ;; -linux*) - if test "$host_cpu" = ia64; then - symcode='[ABCDGIRSTW]' - lt_cv_sys_global_symbol_to_cdecl="sed -n -e 's/^T .* \(.*\)$/extern int \1();/p' -e 's/^$symcode* .* \(.*\)$/extern char \1;/p'" - lt_cv_sys_global_symbol_to_c_name_address="sed -n -e 's/^: \([^ ]*\) $/ {\\\"\1\\\", (lt_ptr) 0},/p' -e 's/^$symcode* \([^ ]*\) \([^ ]*\)$/ {\"\2\", (lt_ptr) \&\2},/p'" - 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 - -# 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 - -# If we're using GNU nm, then use its standard symbol codes. -case `$NM -V 2>&1` in -*GNU* | *'with BFD'*) - symcode='[ABCDGIRSTW]' ;; -esac - -# Try without a prefix undercore, 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. - lt_cv_sys_global_symbol_pipe="sed -n -e 's/^.*[ ]\($symcode$symcode*\)[ ][ ]*$ac_symprfx$sympat$opt_cr$/$symxfrm/p'" - - # Check to see that the pipe works correctly. - pipe_works=no - - rm -f conftest* - cat > conftest.$ac_ext <&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 < conftest.$ac_ext -#ifdef __cplusplus -extern "C" { -#endif - -EOF - # Now generate the symbol file. - eval "$lt_cv_sys_global_symbol_to_cdecl"' < "$nlist" | grep -v main >> conftest.$ac_ext' - - cat <> conftest.$ac_ext -#if defined (__STDC__) && __STDC__ -# define lt_ptr_t void * -#else -# define lt_ptr_t char * -# define const -#endif - -/* The mapping between symbol names and symbols. */ -const struct { - const char *name; - lt_ptr_t address; -} -lt_preloaded_symbols[] = -{ -EOF - $SED "s/^$symcode$symcode* \(.*\) \(.*\)$/ {\"\2\", (lt_ptr_t) \&\2},/" < "$nlist" | grep -v main >> conftest.$ac_ext - cat <<\EOF >> conftest.$ac_ext - {0, (lt_ptr_t) 0} -}; - -#ifdef __cplusplus -} -#endif -EOF - # Now try linking the two files. - mv conftest.$ac_objext conftstm.$ac_objext - lt_save_LIBS="$LIBS" - lt_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_save_LIBS" - CFLAGS="$lt_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 -f 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 - -{ $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 - - - - - -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 - -# 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 to delay expansion of an escaped shell variable in a -# double_quote_subst'ed string. -delay_variable_subst='s/\\\\\\\\\\\$/\\\\\\$/g' - -# Sed substitution to avoid accidental globbing in evaled expressions -no_glob_subst='s/\*/\\\*/g' - -# Constants: -rm="rm -f" - -# Global variables: -default_ofile=libtool -can_build_shared=yes - -# All known linkers require a `.a' archive for static linking (except MSVC, -# which needs '.lib'). -libext=a -ltmain="$ac_aux_dir/ltmain.sh" -ofile="$default_ofile" -with_gnu_ld="$lt_cv_prog_gnu_ld" - -if test -n "$ac_tool_prefix"; then - # Extract the first word of "${ac_tool_prefix}ar", so it can be a program name with args. -set dummy ${ac_tool_prefix}ar; 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 as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then - ac_cv_prog_AR="${ac_tool_prefix}ar" - $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 - - -fi -if test -z "$ac_cv_prog_AR"; then - ac_ct_AR=$AR - # Extract the first word of "ar", so it can be a program name with args. -set dummy ar; 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 as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then - ac_cv_prog_ac_ct_AR="ar" - $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 - - 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 -else - AR="$ac_cv_prog_AR" -fi - -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 as_fn_executable_p "$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 as_fn_executable_p "$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 - -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 as_fn_executable_p "$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 as_fn_executable_p "$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 - - -old_CC="$CC" -old_CFLAGS="$CFLAGS" - -# Set sane defaults for various variables -test -z "$AR" && AR=ar -test -z "$AR_FLAGS" && AR_FLAGS=cru -test -z "$AS" && AS=as -test -z "$CC" && CC=cc -test -z "$LTCC" && LTCC=$CC -test -z "$LTCFLAGS" && LTCFLAGS=$CFLAGS -test -z "$DLLTOOL" && DLLTOOL=dlltool -test -z "$LD" && LD=ld -test -z "$LN_S" && LN_S="ln -s" -test -z "$MAGIC_CMD" && MAGIC_CMD=file -test -z "$NM" && NM=nm -test -z "$SED" && SED=sed -test -z "$OBJDUMP" && OBJDUMP=objdump -test -z "$RANLIB" && RANLIB=: -test -z "$STRIP" && STRIP=: -test -z "$ac_objext" && ac_objext=o - -# Determine commands to create old-style static archives. -old_archive_cmds='$AR $AR_FLAGS $oldlib$oldobjs$old_deplibs' -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 \$oldlib" - ;; - *) - old_postinstall_cmds="$old_postinstall_cmds~\$RANLIB \$oldlib" - ;; - esac - old_archive_cmds="$old_archive_cmds~\$RANLIB \$oldlib" -fi - -for cc_temp in $compiler""; do - case $cc_temp in - compile | *[\\/]compile | ccache | *[\\/]ccache ) ;; - distcc | *[\\/]distcc | purify | *[\\/]purify ) ;; - \-*) ;; - *) break;; - esac -done -cc_basename=`$echo "X$cc_temp" | $Xsed -e 's%.*/%%' -e "s%^$host_alias-%%"` - - -# Only perform the check for file, if the check method requires it -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 <&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 - -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 <&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 - -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 - -enable_dlopen=no -enable_win32_dll=no - -# 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 - - -# Check whether --with-pic was given. -if test "${with_pic+set}" = set; then : - withval=$with_pic; pic_mode="$withval" -else - pic_mode=default -fi - -test -z "$pic_mode" && pic_mode=default - -# Use C for the default configuration in the libtool script -tagname= -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;\n" - -# Code to be used in simple link tests -lt_simple_link_test_code='int main(){return(0);}\n' - - -# 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 warnings/boilerplate of simple test code -ac_outfile=conftest.$ac_objext -printf "$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 -printf "$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 conftest* - - - -lt_prog_compiler_no_builtin_flag= - -if test "$GCC" = yes; then - lt_prog_compiler_no_builtin_flag=' -fno-builtin' - - -{ $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 - printf "$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:7066: $lt_compile\"" >&5) - (eval "$lt_compile" 2>conftest.err) - ac_status=$? - cat conftest.err >&5 - echo "$as_me:7070: \$? = $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 "X$_lt_compiler_boilerplate" | $Xsed -e '/^$/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= - -{ $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 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*) - # 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' - ;; - - beos* | cygwin* | irix5* | irix6* | nonstopux* | osf3* | osf4* | osf5*) - # PIC is the default for these OSes. - ;; - - mingw* | pw32* | os2*) - # 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' - ;; - - darwin* | rhapsody*) - # PIC is the default on this platform - # Common symbols not allowed in MH_DYLIB files - lt_prog_compiler_pic='-fno-common' - ;; - - interix3*) - # 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 - ;; - - sysv4*MP*) - if test -d /usr/nec; then - lt_prog_compiler_pic=-Kconform_pic - fi - ;; - - hpux*) - # 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='-fPIC' - ;; - esac - ;; - - *) - lt_prog_compiler_pic='-fPIC' - ;; - 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 - ;; - darwin*) - # PIC is the default on this platform - # Common symbols not allowed in MH_DYLIB files - case $cc_basename in - xlc*) - lt_prog_compiler_pic='-qnocommon' - lt_prog_compiler_wl='-Wl,' - ;; - esac - ;; - - mingw* | pw32* | os2*) - # 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' - ;; - - newsos6) - lt_prog_compiler_pic='-KPIC' - lt_prog_compiler_static='-Bstatic' - ;; - - linux*) - case $cc_basename in - icc* | ecc*) - lt_prog_compiler_wl='-Wl,' - lt_prog_compiler_pic='-KPIC' - lt_prog_compiler_static='-static' - ;; - pgcc* | pgf77* | pgf90* | pgf95*) - # 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' - ;; - esac - ;; - - osf3* | osf4* | osf5*) - lt_prog_compiler_wl='-Wl,' - # All OSF/1 code is PIC. - lt_prog_compiler_static='-non_shared' - ;; - - solaris*) - lt_prog_compiler_pic='-KPIC' - lt_prog_compiler_static='-Bstatic' - case $cc_basename in - f77* | f90* | f95*) - 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 - -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_prog_compiler_pic" >&5 -$as_echo "$lt_prog_compiler_pic" >&6; } - -# -# 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_prog_compiler_pic_works+:} false; then : - $as_echo_n "(cached) " >&6 -else - lt_prog_compiler_pic_works=no - ac_outfile=conftest.$ac_objext - printf "$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:7334: $lt_compile\"" >&5) - (eval "$lt_compile" 2>conftest.err) - ac_status=$? - cat conftest.err >&5 - echo "$as_me:7338: \$? = $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 "X$_lt_compiler_boilerplate" | $Xsed -e '/^$/d' >conftest.exp - $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2 - if test ! -s conftest.er2 || diff conftest.exp conftest.er2 >/dev/null; then - lt_prog_compiler_pic_works=yes - fi - fi - $rm conftest* - -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_prog_compiler_pic_works" >&5 -$as_echo "$lt_prog_compiler_pic_works" >&6; } - -if test x"$lt_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 -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 - -# -# 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_prog_compiler_static_works+:} false; then : - $as_echo_n "(cached) " >&6 -else - lt_prog_compiler_static_works=no - save_LDFLAGS="$LDFLAGS" - LDFLAGS="$LDFLAGS $lt_tmp_static_flag" - printf "$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 "X$_lt_linker_boilerplate" | $Xsed -e '/^$/d' > conftest.exp - $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2 - if diff conftest.exp conftest.er2 >/dev/null; then - lt_prog_compiler_static_works=yes - fi - else - lt_prog_compiler_static_works=yes - fi - fi - $rm conftest* - LDFLAGS="$save_LDFLAGS" - -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_prog_compiler_static_works" >&5 -$as_echo "$lt_prog_compiler_static_works" >&6; } - -if test x"$lt_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 - printf "$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:7438: $lt_compile\"" >&5) - (eval "$lt_compile" 2>out/conftest.err) - ac_status=$? - cat out/conftest.err >&5 - echo "$as_me:7442: \$? = $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 "X$_lt_compiler_boilerplate" | $Xsed -e '/^$/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 .. - rmdir 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= - enable_shared_with_static_runtimes=no - archive_cmds= - archive_expsym_cmds= - old_archive_From_new_cmds= - old_archive_from_expsyms_cmds= - export_dynamic_flag_spec= - whole_archive_flag_spec= - thread_safe_flag_spec= - hardcode_libdir_flag_spec= - hardcode_libdir_flag_spec_ld= - hardcode_libdir_separator= - hardcode_direct=no - hardcode_minus_L=no - hardcode_shlibpath_var=unsupported - link_all_deplibs=unknown - hardcode_automatic=no - module_cmds= - module_expsym_cmds= - always_export_symbols=no - export_symbols_cmds='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' - # 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_" - # 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. - extract_expsyms_cmds= - # Just being paranoid about ensuring that cc_basename is set. - for cc_temp in $compiler""; do - case $cc_temp in - compile | *[\\/]compile | ccache | *[\\/]ccache ) ;; - distcc | *[\\/]distcc | purify | *[\\/]purify ) ;; - \-*) ;; - *) break;; - esac -done -cc_basename=`$echo "X$cc_temp" | $Xsed -e 's%.*/%%' -e "s%^$host_alias-%%"` - - case $host_os in - cygwin* | mingw* | pw32*) - # 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 - ;; - esac - - ld_shlibs=yes - if test "$with_gnu_ld" = 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>/dev/null` in - *\ [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 - aix3* | aix4* | aix5*) - # On AIX/PPC, the GNU linker is very broken - if test "$host_cpu" != ia64; then - ld_shlibs=no - cat <&2 - -*** Warning: the GNU linker, at least up to release 2.9.1, 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 modify your PATH -*** so that a non-GNU linker is found, and then restart. - -EOF - fi - ;; - - amigaos*) - 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 - - # Samuel A. Falvo II reports - # that the semantics of dynamic libraries on AmigaOS, at least up - # to version 4, is to share data among multiple programs linked - # with the same dynamic library. Since this doesn't match the - # behavior of shared libraries on other platforms, we can't use - # them. - ld_shlibs=no - ;; - - 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*) - # _LT_AC_TAGVAR(hardcode_libdir_flag_spec, ) is actually meaningless, - # as there is no search path for DLLs. - hardcode_libdir_flag_spec='-L$libdir' - 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/'\'' | $SED -e '\''/^[AITW] /s/.* //'\'' | sort | uniq > $export_symbols' - - 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 - ;; - - interix3*) - 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' - ;; - - linux*) - if $LD --help 2>&1 | grep ': supported targets:.* elf' > /dev/null; then - tmp_addflag= - 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; $echo \"$new_convenience\"` ${wl}--no-whole-archive' - tmp_addflag=' $pic_flag' - ;; - pgf77* | pgf90* | pgf95*) # 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; $echo \"$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' ;; - esac - archive_cmds='$CC -shared'"$tmp_addflag"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' - - if test $supports_anon_versioning = yes; 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 -shared'"$tmp_addflag"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-version-script ${wl}$output_objdir/$libname.ver -o $lib' - fi - else - ld_shlibs=no - fi - ;; - - netbsd*) - 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 $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' - fi - ;; - - solaris*) - if $LD -v 2>&1 | grep 'BFD 2\.8' > /dev/null; then - ld_shlibs=no - cat <&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. - -EOF - elif $LD --help 2>&1 | grep ': supported targets:.* elf' > /dev/null; then - 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 - ;; - - 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 - ;; - *) - if $LD --help 2>&1 | grep ': supported targets:.* elf' > /dev/null; then - hardcode_libdir_flag_spec='`test -z "$SCOABSPATH" && echo ${wl}-rpath,$libdir`' - archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname,\${SCOABSPATH:+${install_libdir}/}$soname -o $lib' - archive_expsym_cmds='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname,\${SCOABSPATH:+${install_libdir}/}$soname,-retain-symbols-file,$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 $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 - - 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 - ;; - - aix4* | aix5*) - 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 - 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")) && (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].*|aix5*) - 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_libdir_separator=':' - link_all_deplibs=yes - - 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 - hardcode_direct=yes - 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 - 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 - - # 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. - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -int -main () -{ - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_link "$LINENO"; then : - -aix_libpath=`dump -H conftest$ac_exeext 2>/dev/null | $SED -n -e '/Import File Strings/,/^$/ { /^0/ { s/^0 *\(.*\)$/\1/; p; } -}'` -# Check for a 64-bit object if we didn't find anything. -if test -z "$aix_libpath"; then aix_libpath=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e '/Import File Strings/,/^$/ { /^0/ { s/^0 *\(.*\)$/\1/; p; } -}'`; fi -fi -rm -f core conftest.err conftest.$ac_objext \ - conftest$ac_exeext conftest.$ac_ext -if test -z "$aix_libpath"; then aix_libpath="/usr/lib:/lib"; 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 echo "${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. - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -int -main () -{ - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_link "$LINENO"; then : - -aix_libpath=`dump -H conftest$ac_exeext 2>/dev/null | $SED -n -e '/Import File Strings/,/^$/ { /^0/ { s/^0 *\(.*\)$/\1/; p; } -}'` -# Check for a 64-bit object if we didn't find anything. -if test -z "$aix_libpath"; then aix_libpath=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e '/Import File Strings/,/^$/ { /^0/ { s/^0 *\(.*\)$/\1/; p; } -}'`; fi -fi -rm -f core conftest.err conftest.$ac_objext \ - conftest$ac_exeext conftest.$ac_ext -if test -z "$aix_libpath"; then aix_libpath="/usr/lib:/lib"; 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' - # Exported symbols can be pulled into shared objects from archives - whole_archive_flag_spec='$convenience' - 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*) - 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 - # see comment about different semantics on the GNU ld section - ld_shlibs=no - ;; - - bsdi[45]*) - export_dynamic_flag_spec=-rdynamic - ;; - - cygwin* | mingw* | pw32*) - # 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. - 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 `echo "$deplibs" | $SED -e '\''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' - fix_srcfile_path='`cygpath -w "$srcfile"`' - enable_shared_with_static_runtimes=yes - ;; - - darwin* | rhapsody*) - case $host_os in - rhapsody* | darwin1.[012]) - allow_undefined_flag='${wl}-undefined ${wl}suppress' - ;; - *) # Darwin 1.3 on - if test -z ${MACOSX_DEPLOYMENT_TARGET} ; then - allow_undefined_flag='${wl}-flat_namespace ${wl}-undefined ${wl}suppress' - else - case ${MACOSX_DEPLOYMENT_TARGET} in - 10.[012]) - allow_undefined_flag='${wl}-flat_namespace ${wl}-undefined ${wl}suppress' - ;; - 10.*) - allow_undefined_flag='${wl}-undefined ${wl}dynamic_lookup' - ;; - esac - fi - ;; - esac - archive_cmds_need_lc=no - hardcode_direct=no - hardcode_automatic=yes - hardcode_shlibpath_var=unsupported - whole_archive_flag_spec='' - link_all_deplibs=yes - if test "$GCC" = yes ; then - output_verbose_link_cmd='echo' - archive_cmds='$CC -dynamiclib $allow_undefined_flag -o $lib $libobjs $deplibs $compiler_flags -install_name $rpath/$soname $verstring' - module_cmds='$CC $allow_undefined_flag -o $lib -bundle $libobjs $deplibs$compiler_flags' - # Don't fix this by using the ld -exported_symbols_list flag, it doesn't exist in older darwin lds - archive_expsym_cmds='sed -e "s,#.*,," -e "s,^[ ]*,," -e "s,^\(..*\),_&," < $export_symbols > $output_objdir/${libname}-symbols.expsym~$CC -dynamiclib $allow_undefined_flag -o $lib $libobjs $deplibs $compiler_flags -install_name $rpath/$soname $verstring~nmedit -s $output_objdir/${libname}-symbols.expsym ${lib}' - module_expsym_cmds='sed -e "s,#.*,," -e "s,^[ ]*,," -e "s,^\(..*\),_&," < $export_symbols > $output_objdir/${libname}-symbols.expsym~$CC $allow_undefined_flag -o $lib -bundle $libobjs $deplibs$compiler_flags~nmedit -s $output_objdir/${libname}-symbols.expsym ${lib}' - else - case $cc_basename in - xlc*) - output_verbose_link_cmd='echo' - archive_cmds='$CC -qmkshrobj $allow_undefined_flag -o $lib $libobjs $deplibs $compiler_flags ${wl}-install_name ${wl}`echo $rpath/$soname` $verstring' - module_cmds='$CC $allow_undefined_flag -o $lib -bundle $libobjs $deplibs$compiler_flags' - # Don't fix this by using the ld -exported_symbols_list flag, it doesn't exist in older darwin lds - archive_expsym_cmds='sed -e "s,#.*,," -e "s,^[ ]*,," -e "s,^\(..*\),_&," < $export_symbols > $output_objdir/${libname}-symbols.expsym~$CC -qmkshrobj $allow_undefined_flag -o $lib $libobjs $deplibs $compiler_flags ${wl}-install_name ${wl}$rpath/$soname $verstring~nmedit -s $output_objdir/${libname}-symbols.expsym ${lib}' - module_expsym_cmds='sed -e "s,#.*,," -e "s,^[ ]*,," -e "s,^\(..*\),_&," < $export_symbols > $output_objdir/${libname}-symbols.expsym~$CC $allow_undefined_flag -o $lib -bundle $libobjs $deplibs$compiler_flags~nmedit -s $output_objdir/${libname}-symbols.expsym ${lib}' - ;; - *) - ld_shlibs=no - ;; - esac - fi - ;; - - dgux*) - archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' - hardcode_libdir_flag_spec='-L$libdir' - hardcode_shlibpath_var=no - ;; - - freebsd1*) - ld_shlibs=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* | kfreebsd*-gnu | dragonfly*) - archive_cmds='$CC -shared -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 -fPIC ${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 -a "$with_gnu_ld" = no; then - archive_cmds='$CC -shared -fPIC ${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 - 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 -a "$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 ${wl}+h ${wl}$soname ${wl}+nodefaultrpath -o $lib $libobjs $deplibs $compiler_flags' - ;; - *) - archive_cmds='$CC -shared -fPIC ${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' - ;; - *) - archive_cmds='$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 - hardcode_libdir_flag_spec='${wl}+b ${wl}$libdir' - hardcode_libdir_separator=: - - case $host_cpu in - hppa*64*|ia64*) - hardcode_libdir_flag_spec_ld='+b $libdir' - hardcode_direct=no - hardcode_shlibpath_var=no - ;; - *) - hardcode_direct=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 $libobjs $deplibs $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && echo ${wl}-set_version ${wl}$verstring` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' - else - archive_cmds='$LD -shared $libobjs $deplibs $linker_flags -soname $soname `test -n "$verstring" && echo -set_version $verstring` -update_registry ${output_objdir}/so_locations -o $lib' - hardcode_libdir_flag_spec_ld='-rpath $libdir' - fi - hardcode_libdir_flag_spec='${wl}-rpath ${wl}$libdir' - hardcode_libdir_separator=: - link_all_deplibs=yes - ;; - - netbsd*) - 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 - ;; - - openbsd*) - hardcode_direct=yes - hardcode_shlibpath_var=no - 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 - ;; - - 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" && echo ${wl}-set_version ${wl}$verstring` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' - else - allow_undefined_flag=' -expect_unresolved \*' - archive_cmds='$LD -shared${allow_undefined_flag} $libobjs $deplibs $linker_flags -soname $soname `test -n "$verstring" && echo -set_version $verstring` -update_registry ${output_objdir}/so_locations -o $lib' - fi - 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} $libobjs $deplibs $compiler_flags ${wl}-msym ${wl}-soname ${wl}$soname `test -n "$verstring" && echo ${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='$LD -shared${allow_undefined_flag} $libobjs $deplibs $linker_flags -msym -soname $soname `test -n "$verstring" && echo -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; echo "-hidden">> $lib.exp~ - $LD -shared${allow_undefined_flag} -input $lib.exp $linker_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 - hardcode_libdir_separator=: - ;; - - solaris*) - no_undefined_flag=' -z text' - if test "$GCC" = yes; then - wlarc='${wl}' - archive_cmds='$CC -shared ${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 ${wl}-M ${wl}$lib.exp ${wl}-h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags~$rm $lib.exp' - else - 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' - 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 linker options so we - # cannot just pass the convience library names through - # without $wl, iff we do not link with $LD. - # Luckily, gcc supports the same syntax we need for Sun Studio. - # Supported since Solaris 2.6 (maybe 2.5.1?) - case $wlarc in - '') - whole_archive_flag_spec='-z allextract$convenience -z defaultextract' ;; - *) - whole_archive_flag_spec='${wl}-z ${wl}allextract`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; $echo \"$new_convenience\"` ${wl}-z ${wl}defaultextract' ;; - esac ;; - 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*) - 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='`test -z "$SCOABSPATH" && echo ${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,\${SCOABSPATH:+${install_libdir}/}$soname -o $lib $libobjs $deplibs $compiler_flags' - archive_expsym_cmds='$CC -shared ${wl}-Bexport:$export_symbols ${wl}-h,\${SCOABSPATH:+${install_libdir}/}$soname -o $lib $libobjs $deplibs $compiler_flags' - else - archive_cmds='$CC -G ${wl}-h,\${SCOABSPATH:+${install_libdir}/}$soname -o $lib $libobjs $deplibs $compiler_flags' - archive_expsym_cmds='$CC -G ${wl}-Bexport:$export_symbols ${wl}-h,\${SCOABSPATH:+${install_libdir}/}$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 - 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 - -# -# 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; } - $rm conftest* - printf "$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 - archive_cmds_need_lc=no - else - archive_cmds_need_lc=yes - fi - allow_undefined_flag=$lt_save_allow_undefined_flag - else - cat conftest.err 1>&5 - fi - $rm conftest* - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $archive_cmds_need_lc" >&5 -$as_echo "$archive_cmds_need_lc" >&6; } - ;; - esac - fi - ;; -esac - -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking dynamic linker characteristics" >&5 -$as_echo_n "checking dynamic linker characteristics... " >&6; } -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" -if test "$GCC" = yes; then - sys_lib_search_path_spec=`$CC -print-search-dirs | grep "^libraries:" | $SED -e "s/^libraries://" -e "s,=/,/,g"` - if echo "$sys_lib_search_path_spec" | grep ';' >/dev/null ; then - # 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. - 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 -else - sys_lib_search_path_spec="/lib /usr/lib /usr/local/lib" -fi -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 - 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' - ;; - -aix4* | aix5*) - version_type=linux - 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*) - 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=`$echo "X$lib" | $Xsed -e '\''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' - ;; - -beos*) - library_names_spec='${libname}${shared_ext}' - dynamic_linker="$host_os ld.so" - shlibpath_var=LIBRARY_PATH - ;; - -bsdi[45]*) - version_type=linux - 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*) - version_type=windows - shrext_cmds=".dll" - need_version=no - need_lib_prefix=no - - case $GCC,$host_os in - yes,cygwin* | yes,mingw* | yes,pw32*) - 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' - 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="/usr/lib /lib/w32api /lib /usr/local/lib" - ;; - mingw*) - # MinGW DLLs use traditional 'lib' prefix - soname_spec='${libname}`echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext}' - sys_lib_search_path_spec=`$CC -print-search-dirs | grep "^libraries:" | $SED -e "s/^libraries://" -e "s,=/,/,g"` - if echo "$sys_lib_search_path_spec" | grep ';[c-zC-Z]:/' >/dev/null; then - # It is most probably a Windows format PATH printed by - # mingw gcc, but we are running on Cygwin. Gcc prints its search - # path with ; separators, and with drive letters. We can handle the - # drive letters (cygwin fileutils understands them), so leave them, - # especially as we might pass files found there to a mingw objdump, - # which wouldn't understand a cygwinified path. Ahh. - 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 - ;; - 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 - ;; - - *) - library_names_spec='${libname}`echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext} $libname.lib' - ;; - esac - dynamic_linker='Win32 ld.exe' - # 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}${versuffix}$shared_ext ${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`' - # Apple's gcc prints 'gcc -print-search-dirs' doesn't operate the same. - if test "$GCC" = yes; then - sys_lib_search_path_spec=`$CC -print-search-dirs | tr "\n" "$PATH_SEPARATOR" | sed -e 's/libraries:/@libraries:/' | tr "@" "\n" | grep "^libraries:" | sed -e "s/^libraries://" -e "s,=/,/,g" -e "s,$PATH_SEPARATOR, ,g" -e "s,.*,& /lib /usr/lib /usr/local/lib,g"` - else - sys_lib_search_path_spec='/lib /usr/lib /usr/local/lib' - fi - sys_lib_dlsearch_path_spec='/usr/local/lib /lib /usr/lib' - ;; - -dgux*) - 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 - ;; - -freebsd1*) - dynamic_linker=no - ;; - -kfreebsd*-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='GNU ld.so' - ;; - -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[123]*) 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 - ;; - freebsd*) # from 4.6 on - shlibpath_overrides_runpath=yes - hardcode_into_libs=yes - ;; - esac - ;; - -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 - 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' - ;; - -interix3*) - 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' - 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 - 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 Linux ELF. -linux*) - 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' - finish_cmds='PATH="\$PATH:/sbin" ldconfig -n $libdir' - shlibpath_var=LD_LIBRARY_PATH - shlibpath_overrides_runpath=no - # 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 - - # find out which ABI we are using - libsuff= - case "$host_cpu" in - x86_64*|s390x*|powerpc64*) - echo '#line 8849 "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 - case `/usr/bin/file conftest.$ac_objext` in - *64-bit*) - libsuff=64 - sys_lib_search_path_spec="/lib${libsuff} /usr/lib${libsuff} /usr/local/lib${libsuff}" - ;; - esac - fi - rm -rf conftest* - ;; - esac - - # 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/#.*//;s/[:, ]/ /g;s/=[^=]*$//;s/=[^= ]* / /g;/^$/d' | tr '\n' ' '` - sys_lib_dlsearch_path_spec="/lib${libsuff} /usr/lib${libsuff} $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' - ;; - -knetbsd*-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='GNU ld.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 - 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=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=yes - ;; - -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" - ;; - -solaris*) - 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=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 - 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 - export_dynamic_flag_spec='${wl}-Blargedynsym' - 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 - 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 - 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' - shlibpath_overrides_runpath=no - else - sys_lib_search_path_spec='/usr/ccs/lib /usr/lib' - shlibpath_overrides_runpath=yes - 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' - ;; - -uts4*) - version_type=linux - 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 - -{ $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-existant 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_AC_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; 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 - -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" - { $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 - -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*) - 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="-dld" -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="-dld" -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 < -#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 - -#ifdef __cplusplus -extern "C" void exit (int); -#endif - -void fnord() { int i=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; - /* dlclose (self); */ - } - else - puts (dlerror ()); - - exit (status); -} -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 < -#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 - -#ifdef __cplusplus -extern "C" void exit (int); -#endif - -void fnord() { int i=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; - /* dlclose (self); */ - } - else - puts (dlerror ()); - - exit (status); -} -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 - - -# 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 - ;; - -aix4* | aix5*) - 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; } - -# The else clause should only fire when bootstrapping the -# libtool distribution, otherwise you forgot to ship ltmain.sh -# with your package, and you will get complaints that there are -# no rules to generate ltmain.sh. -if test -f "$ltmain"; then - # 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 - # Now quote all the things that may contain metacharacters while being - # careful not to overquote the AC_SUBSTed values. We take copies of the - # variables and quote the copies for generation of the libtool script. - for var in echo old_CC old_CFLAGS AR AR_FLAGS EGREP RANLIB LN_S LTCC LTCFLAGS NM \ - SED SHELL STRIP \ - libname_spec library_names_spec soname_spec extract_expsyms_cmds \ - old_striplib striplib file_magic_cmd finish_cmds finish_eval \ - deplibs_check_method reload_flag reload_cmds need_locks \ - lt_cv_sys_global_symbol_pipe lt_cv_sys_global_symbol_to_cdecl \ - lt_cv_sys_global_symbol_to_c_name_address \ - sys_lib_search_path_spec sys_lib_dlsearch_path_spec \ - old_postinstall_cmds old_postuninstall_cmds \ - compiler \ - CC \ - LD \ - lt_prog_compiler_wl \ - lt_prog_compiler_pic \ - lt_prog_compiler_static \ - lt_prog_compiler_no_builtin_flag \ - export_dynamic_flag_spec \ - thread_safe_flag_spec \ - whole_archive_flag_spec \ - enable_shared_with_static_runtimes \ - old_archive_cmds \ - old_archive_from_new_cmds \ - predep_objects \ - postdep_objects \ - predeps \ - postdeps \ - compiler_lib_search_path \ - archive_cmds \ - archive_expsym_cmds \ - postinstall_cmds \ - postuninstall_cmds \ - old_archive_from_expsyms_cmds \ - allow_undefined_flag \ - no_undefined_flag \ - export_symbols_cmds \ - hardcode_libdir_flag_spec \ - hardcode_libdir_flag_spec_ld \ - hardcode_libdir_separator \ - hardcode_automatic \ - module_cmds \ - module_expsym_cmds \ - lt_cv_prog_compiler_c_o \ - exclude_expsyms \ - include_expsyms; do - - case $var in - old_archive_cmds | \ - old_archive_from_new_cmds | \ - archive_cmds | \ - archive_expsym_cmds | \ - module_cmds | \ - module_expsym_cmds | \ - old_archive_from_expsyms_cmds | \ - export_symbols_cmds | \ - extract_expsyms_cmds | reload_cmds | finish_cmds | \ - postinstall_cmds | postuninstall_cmds | \ - old_postinstall_cmds | old_postuninstall_cmds | \ - sys_lib_search_path_spec | sys_lib_dlsearch_path_spec) - # Double-quote double-evaled strings. - eval "lt_$var=\\\"\`\$echo \"X\$$var\" | \$Xsed -e \"\$double_quote_subst\" -e \"\$sed_quote_subst\" -e \"\$delay_variable_subst\"\`\\\"" - ;; - *) - eval "lt_$var=\\\"\`\$echo \"X\$$var\" | \$Xsed -e \"\$sed_quote_subst\"\`\\\"" - ;; - esac - done - - case $lt_echo in - *'\$0 --fallback-echo"') - lt_echo=`$echo "X$lt_echo" | $Xsed -e 's/\\\\\\\$0 --fallback-echo"$/$0 --fallback-echo"/'` - ;; - esac - -cfgfile="${ofile}T" - trap "$rm \"$cfgfile\"; exit 1" 1 2 15 - $rm -f "$cfgfile" - { $as_echo "$as_me:${as_lineno-$LINENO}: creating $ofile" >&5 -$as_echo "$as_me: creating $ofile" >&6;} - - cat <<__EOF__ >> "$cfgfile" -#! $SHELL - -# `$echo "$cfgfile" | sed 's%^.*/%%'` - Provide generalized library-building support services. -# Generated automatically by $PROGRAM (GNU $PACKAGE $VERSION$TIMESTAMP) -# NOTE: Changes made to this file will be lost: look at ltmain.sh. -# -# Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001 -# Free Software Foundation, Inc. -# -# This file is part of GNU Libtool: -# Originally by Gordon Matzigkeit , 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 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, 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. - -# 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//" - -# 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 - -# The names of the tagged configurations supported by this script. -available_tags= - -# ### BEGIN LIBTOOL CONFIG - -# Libtool was configured on host `(hostname || uname -n) 2>/dev/null | sed 1q`: - -# Shell to use when invoking shell scripts. -SHELL=$lt_SHELL - -# Whether or not to build shared libraries. -build_libtool_libs=$enable_shared - -# Whether or not to build static libraries. -build_old_libs=$enable_static - -# 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 - -# Whether or not to optimize for fast installation. -fast_install=$enable_fast_install - -# 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 - -# An echo program that does not interpret backslashes. -echo=$lt_echo - -# The archiver. -AR=$lt_AR -AR_FLAGS=$lt_AR_FLAGS - -# A C compiler. -LTCC=$lt_LTCC - -# LTCC compiler flags. -LTCFLAGS=$lt_LTCFLAGS - -# A language-specific compiler. -CC=$lt_compiler - -# Is the compiler the GNU C compiler? -with_gcc=$GCC - -gcc_dir=\`gcc -print-file-name=. | $SED 's,/\.$,,'\` -gcc_ver=\`gcc -dumpversion\` - -# An ERE matcher. -EGREP=$lt_EGREP - -# The linker used to build libraries. -LD=$lt_LD - -# Whether we need hard or soft links. -LN_S=$lt_LN_S - -# A BSD-compatible nm program. -NM=$lt_NM - -# A symbol stripping program -STRIP=$lt_STRIP - -# Used to examine libraries when file_magic_cmd begins "file" -MAGIC_CMD=$MAGIC_CMD - -# Used on cygwin: DLL creation program. -DLLTOOL="$DLLTOOL" - -# Used on cygwin: object dumper. -OBJDUMP="$OBJDUMP" - -# Used on cygwin: assembler. -AS="$AS" - -# The name of the directory that contains temporary libtool files. -objdir=$objdir - -# How to create reloadable object files. -reload_flag=$lt_reload_flag -reload_cmds=$lt_reload_cmds - -# How to pass a linker flag through the compiler. -wl=$lt_lt_prog_compiler_wl - -# Object file suffix (normally "o"). -objext="$ac_objext" - -# Old archive suffix (normally "a"). -libext="$libext" - -# Shared library suffix (normally ".so"). -shrext_cmds='$shrext_cmds' - -# Executable file suffix (normally ""). -exeext="$exeext" - -# Additional compiler flags for building library objects. -pic_flag=$lt_lt_prog_compiler_pic -pic_mode=$pic_mode - -# What is the maximum length of a command? -max_cmd_len=$lt_cv_sys_max_cmd_len - -# Does compiler simultaneously support -c and -o options? -compiler_c_o=$lt_lt_cv_prog_compiler_c_o - -# Must we lock files when doing compilation? -need_locks=$lt_need_locks - -# 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 - -# 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 - -# Compiler flag to prevent dynamic linking. -link_static_flag=$lt_lt_prog_compiler_static - -# Compiler flag to turn off builtin functions. -no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag - -# 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 - -# Compiler flag to generate thread-safe objects. -thread_safe_flag_spec=$lt_thread_safe_flag_spec - -# Library versioning type. -version_type=$version_type - -# 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 - -# Commands used to build and install an old-style archive. -RANLIB=$lt_RANLIB -old_archive_cmds=$lt_old_archive_cmds -old_postinstall_cmds=$lt_old_postinstall_cmds -old_postuninstall_cmds=$lt_old_postuninstall_cmds - -# 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 and install a shared archive. -archive_cmds=$lt_archive_cmds -archive_expsym_cmds=$lt_archive_expsym_cmds -postinstall_cmds=$lt_postinstall_cmds -postuninstall_cmds=$lt_postuninstall_cmds - -# Commands used to build a loadable module (assumed same as above if empty) -module_cmds=$lt_module_cmds -module_expsym_cmds=$lt_module_expsym_cmds - -# Commands to strip libraries. -old_striplib=$lt_old_striplib -striplib=$lt_striplib - -# Dependencies to place before the objects being linked to create a -# shared library. -predep_objects=\`echo $lt_predep_objects | \$SED -e "s@\${gcc_dir}@\\\${gcc_dir}@g;s@\${gcc_ver}@\\\${gcc_ver}@g"\` - -# Dependencies to place after the objects being linked to create a -# shared library. -postdep_objects=\`echo $lt_postdep_objects | \$SED -e "s@\${gcc_dir}@\\\${gcc_dir}@g;s@\${gcc_ver}@\\\${gcc_ver}@g"\` - -# Dependencies to place before the objects being linked to create a -# shared library. -predeps=$lt_predeps - -# Dependencies to place after the objects being linked to create a -# shared library. -postdeps=$lt_postdeps - -# The library search path used internally by the compiler when linking -# a shared library. -compiler_lib_search_path=\`echo $lt_compiler_lib_search_path | \$SED -e "s@\${gcc_dir}@\\\${gcc_dir}@g;s@\${gcc_ver}@\\\${gcc_ver}@g"\` - -# 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 - -# Flag that allows shared libraries with undefined symbols to be built. -allow_undefined_flag=$lt_allow_undefined_flag - -# Flag that forces no undefined symbols. -no_undefined_flag=$lt_no_undefined_flag - -# Commands used to finish a libtool library installation in a directory. -finish_cmds=$lt_finish_cmds - -# Same as above, but a single script fragment to be evaled but not shown. -finish_eval=$lt_finish_eval - -# 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 - -# This is the shared library runtime path variable. -runpath_var=$runpath_var - -# This is the shared library path variable. -shlibpath_var=$shlibpath_var - -# Is shlibpath searched before the hard-coded library search path? -shlibpath_overrides_runpath=$shlibpath_overrides_runpath - -# How to hardcode a shared library path into an executable. -hardcode_action=$hardcode_action - -# Whether we should hardcode library paths into libraries. -hardcode_into_libs=$hardcode_into_libs - -# 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 - -# If ld is used when linking, flag to hardcode \$libdir into -# a binary during linking. This must work even if \$libdir does -# not exist. -hardcode_libdir_flag_spec_ld=$lt_hardcode_libdir_flag_spec_ld - -# 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 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 - -# Variables whose values should be saved in libtool wrapper scripts and -# restored at relink time. -variables_saved_for_relink="$variables_saved_for_relink" - -# Whether libtool must link a program against all its dependency libraries. -link_all_deplibs=$link_all_deplibs - -# Compile-time system search path for libraries -sys_lib_search_path_spec=\`echo $lt_sys_lib_search_path_spec | \$SED -e "s@\${gcc_dir}@\\\${gcc_dir}@g;s@\${gcc_ver}@\\\${gcc_ver}@g"\` - -# Run-time system search path for libraries -sys_lib_dlsearch_path_spec=$lt_sys_lib_dlsearch_path_spec - -# Fix the shell variable \$srcfile for the compiler. -fix_srcfile_path="$fix_srcfile_path" - -# 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 - -# The commands to extract the exported symbol list from a shared archive. -extract_expsyms_cmds=$lt_extract_expsyms_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 - -# ### END LIBTOOL CONFIG - -__EOF__ - - - case $host_os in - aix3*) - cat <<\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 -EOF - ;; - esac - - # 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) - - mv -f "$cfgfile" "$ofile" || \ - (rm -f "$ofile" && cp "$cfgfile" "$ofile" && rm -f "$cfgfile") - chmod +x "$ofile" - -else - # If there is no Makefile yet, we rely on a make rule to execute - # `config.status --recheck' to rerun these tests and create the - # libtool script then. - ltmain_in=`echo $ltmain | sed -e 's/\.sh$/.in/'` - if test -f "$ltmain_in"; then - test -f Makefile && make "$ltmain" - fi -fi - - -ac_ext=c -ac_cpp='$CPP $CPPFLAGS' -ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' -ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' -ac_compiler_gnu=$ac_cv_c_compiler_gnu - -CC="$lt_save_CC" - - -# Check whether --with-tags was given. -if test "${with_tags+set}" = set; then : - withval=$with_tags; tagnames="$withval" -fi - - -if test -f "$ltmain" && test -n "$tagnames"; then - if test ! -f "${ofile}"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: output file \`$ofile' does not exist" >&5 -$as_echo "$as_me: WARNING: output file \`$ofile' does not exist" >&2;} - fi - - if test -z "$LTCC"; then - eval "`$SHELL ${ofile} --config | grep '^LTCC='`" - if test -z "$LTCC"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: output file \`$ofile' does not look like a libtool script" >&5 -$as_echo "$as_me: WARNING: output file \`$ofile' does not look like a libtool script" >&2;} - else - { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using \`LTCC=$LTCC', extracted from \`$ofile'" >&5 -$as_echo "$as_me: WARNING: using \`LTCC=$LTCC', extracted from \`$ofile'" >&2;} - fi - fi - if test -z "$LTCFLAGS"; then - eval "`$SHELL ${ofile} --config | grep '^LTCFLAGS='`" - fi - - # Extract list of available tagged configurations in $ofile. - # Note that this assumes the entire list is on one line. - available_tags=`grep "^available_tags=" "${ofile}" | $SED -e 's/available_tags=\(.*$\)/\1/' -e 's/\"//g'` - - lt_save_ifs="$IFS"; IFS="${IFS}$PATH_SEPARATOR," - for tagname in $tagnames; do - IFS="$lt_save_ifs" - # Check whether tagname contains only valid characters - case `$echo "X$tagname" | $Xsed -e 's:[-_ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890,/]::g'` in - "") ;; - *) as_fn_error $? "invalid tag name: $tagname" "$LINENO" 5 - ;; - esac - - if grep "^# ### BEGIN LIBTOOL TAG CONFIG: $tagname$" < "${ofile}" > /dev/null - then - as_fn_error $? "tag name \"$tagname\" already exists" "$LINENO" 5 - fi - - # Update the list of available tags. - if test -n "$tagname"; then - echo appending configuration tag \"$tagname\" to $ofile - - case $tagname in - CXX) - if test -n "$CXX" && ( test "X$CXX" != "Xno" && - ( (test "X$CXX" = "Xg++" && `g++ -v >/dev/null 2>&1` ) || - (test "X$CXX" != "Xg++"))) ; then - ac_ext=cpp -ac_cpp='$CXXCPP $CPPFLAGS' -ac_compile='$CXX -c $CXXFLAGS $CPPFLAGS conftest.$ac_ext >&5' -ac_link='$CXX -o conftest$ac_exeext $CXXFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' -ac_compiler_gnu=$ac_cv_cxx_compiler_gnu - - - - -archive_cmds_need_lc_CXX=no -allow_undefined_flag_CXX= -always_export_symbols_CXX=no -archive_expsym_cmds_CXX= -export_dynamic_flag_spec_CXX= -hardcode_direct_CXX=no -hardcode_libdir_flag_spec_CXX= -hardcode_libdir_flag_spec_ld_CXX= -hardcode_libdir_separator_CXX= -hardcode_minus_L_CXX=no -hardcode_shlibpath_var_CXX=unsupported -hardcode_automatic_CXX=no -module_cmds_CXX= -module_expsym_cmds_CXX= -link_all_deplibs_CXX=unknown -old_archive_cmds_CXX=$old_archive_cmds -no_undefined_flag_CXX= -whole_archive_flag_spec_CXX= -enable_shared_with_static_runtimes_CXX=no - -# Dependencies to place before and after the object being linked: -predep_objects_CXX= -postdep_objects_CXX= -predeps_CXX= -postdeps_CXX= -compiler_lib_search_path_CXX= - -# Source file extension for C++ test sources. -ac_ext=cpp - -# Object file extension for compiled C++ test sources. -objext=o -objext_CXX=$objext - -# Code to be used in simple compile tests -lt_simple_compile_test_code="int some_variable = 0;\n" - -# Code to be used in simple link tests -lt_simple_link_test_code='int main(int, char *[]) { return(0); }\n' - -# ltmain only uses $CC for tagged configurations so make sure $CC is set. - -# 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 warnings/boilerplate of simple test code -ac_outfile=conftest.$ac_objext -printf "$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 -printf "$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 conftest* - - -# Allow CC to be a program name with arguments. -lt_save_CC=$CC -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++"} -compiler=$CC -compiler_CXX=$CC -for cc_temp in $compiler""; do - case $cc_temp in - compile | *[\\/]compile | ccache | *[\\/]ccache ) ;; - distcc | *[\\/]distcc | purify | *[\\/]purify ) ;; - \-*) ;; - *) break;; - esac -done -cc_basename=`$echo "X$cc_temp" | $Xsed -e 's%.*/%%' -e "s%^$host_alias-%%"` - - -# We don't want -fno-exception wen compiling C++ code, so set the -# no_builtin_flag separately -if test "$GXX" = yes; then - lt_prog_compiler_no_builtin_flag_CXX=' -fno-builtin' -else - lt_prog_compiler_no_builtin_flag_CXX= -fi - -if test "$GXX" = yes; then - # Set up default GNU C++ configuration - - -# 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 - - - - # 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 - archive_cmds_CXX='$CC -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname -o $lib' - archive_expsym_cmds_CXX='$CC -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' - - hardcode_libdir_flag_spec_CXX='${wl}--rpath ${wl}$libdir' - export_dynamic_flag_spec_CXX='${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 - whole_archive_flag_spec_CXX="$wlarc"'--whole-archive$convenience '"$wlarc"'--no-whole-archive' - else - whole_archive_flag_spec_CXX= - 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. - archive_cmds_CXX='$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 "\-L"' - -else - GXX=no - with_gnu_ld=no - wlarc= -fi - -# PORTME: fill in a description of your system's C++ link characteristics -{ $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; } -ld_shlibs_CXX=yes -case $host_os in - aix3*) - # FIXME: insert proper C++ library support - ld_shlibs_CXX=no - ;; - aix4* | aix5*) - 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].*|aix5*) - 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. - - archive_cmds_CXX='' - hardcode_direct_CXX=yes - hardcode_libdir_separator_CXX=':' - link_all_deplibs_CXX=yes - - 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 - hardcode_direct_CXX=yes - else - # We have old collect2 - hardcode_direct_CXX=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_CXX=yes - hardcode_libdir_flag_spec_CXX='-L$libdir' - hardcode_libdir_separator_CXX= - 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 - - # 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_CXX=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_CXX='-berok' - # Determine the default libpath from the value encoded in an empty executable. - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -int -main () -{ - - ; - return 0; -} -_ACEOF -if ac_fn_cxx_try_link "$LINENO"; then : - -aix_libpath=`dump -H conftest$ac_exeext 2>/dev/null | $SED -n -e '/Import File Strings/,/^$/ { /^0/ { s/^0 *\(.*\)$/\1/; p; } -}'` -# Check for a 64-bit object if we didn't find anything. -if test -z "$aix_libpath"; then aix_libpath=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e '/Import File Strings/,/^$/ { /^0/ { s/^0 *\(.*\)$/\1/; p; } -}'`; fi -fi -rm -f core conftest.err conftest.$ac_objext \ - conftest$ac_exeext conftest.$ac_ext -if test -z "$aix_libpath"; then aix_libpath="/usr/lib:/lib"; fi - - hardcode_libdir_flag_spec_CXX='${wl}-blibpath:$libdir:'"$aix_libpath" - - archive_expsym_cmds_CXX="\$CC"' -o $output_objdir/$soname $libobjs $deplibs '"\${wl}$no_entry_flag"' $compiler_flags `if test "x${allow_undefined_flag}" != "x"; then echo "${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_CXX='${wl}-R $libdir:/usr/lib:/lib' - allow_undefined_flag_CXX="-z nodefs" - archive_expsym_cmds_CXX="\$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. - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -int -main () -{ - - ; - return 0; -} -_ACEOF -if ac_fn_cxx_try_link "$LINENO"; then : - -aix_libpath=`dump -H conftest$ac_exeext 2>/dev/null | $SED -n -e '/Import File Strings/,/^$/ { /^0/ { s/^0 *\(.*\)$/\1/; p; } -}'` -# Check for a 64-bit object if we didn't find anything. -if test -z "$aix_libpath"; then aix_libpath=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e '/Import File Strings/,/^$/ { /^0/ { s/^0 *\(.*\)$/\1/; p; } -}'`; fi -fi -rm -f core conftest.err conftest.$ac_objext \ - conftest$ac_exeext conftest.$ac_ext -if test -z "$aix_libpath"; then aix_libpath="/usr/lib:/lib"; fi - - hardcode_libdir_flag_spec_CXX='${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_CXX=' ${wl}-bernotok' - allow_undefined_flag_CXX=' ${wl}-berok' - # Exported symbols can be pulled into shared objects from archives - whole_archive_flag_spec_CXX='$convenience' - archive_cmds_need_lc_CXX=yes - # This is similar to how AIX traditionally builds its shared libraries. - archive_expsym_cmds_CXX="\$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 - allow_undefined_flag_CXX=unsupported - # Joseph Beckenbach says some releases of gcc - # support --undefined. This deserves some investigation. FIXME - archive_cmds_CXX='$CC -nostart $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' - else - ld_shlibs_CXX=no - fi - ;; - - chorus*) - case $cc_basename in - *) - # FIXME: insert proper C++ library support - ld_shlibs_CXX=no - ;; - esac - ;; - - cygwin* | mingw* | pw32*) - # _LT_AC_TAGVAR(hardcode_libdir_flag_spec, CXX) is actually meaningless, - # as there is no search path for DLLs. - hardcode_libdir_flag_spec_CXX='-L$libdir' - allow_undefined_flag_CXX=unsupported - always_export_symbols_CXX=no - enable_shared_with_static_runtimes_CXX=yes - - if $LD --help 2>&1 | grep 'auto-import' > /dev/null; then - archive_cmds_CXX='$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... - archive_expsym_cmds_CXX='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 - ld_shlibs_CXX=no - fi - ;; - darwin* | rhapsody*) - case $host_os in - rhapsody* | darwin1.[012]) - allow_undefined_flag_CXX='${wl}-undefined ${wl}suppress' - ;; - *) # Darwin 1.3 on - if test -z ${MACOSX_DEPLOYMENT_TARGET} ; then - allow_undefined_flag_CXX='${wl}-flat_namespace ${wl}-undefined ${wl}suppress' - else - case ${MACOSX_DEPLOYMENT_TARGET} in - 10.[012]) - allow_undefined_flag_CXX='${wl}-flat_namespace ${wl}-undefined ${wl}suppress' - ;; - 10.*) - allow_undefined_flag_CXX='${wl}-undefined ${wl}dynamic_lookup' - ;; - esac - fi - ;; - esac - archive_cmds_need_lc_CXX=no - hardcode_direct_CXX=no - hardcode_automatic_CXX=yes - hardcode_shlibpath_var_CXX=unsupported - whole_archive_flag_spec_CXX='' - link_all_deplibs_CXX=yes - - if test "$GXX" = yes ; then - lt_int_apple_cc_single_mod=no - output_verbose_link_cmd='echo' - if $CC -dumpspecs 2>&1 | $EGREP 'single_module' >/dev/null ; then - lt_int_apple_cc_single_mod=yes - fi - if test "X$lt_int_apple_cc_single_mod" = Xyes ; then - archive_cmds_CXX='$CC -dynamiclib -single_module $allow_undefined_flag -o $lib $libobjs $deplibs $compiler_flags -install_name $rpath/$soname $verstring' - else - archive_cmds_CXX='$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' - fi - module_cmds_CXX='$CC $allow_undefined_flag -o $lib -bundle $libobjs $deplibs$compiler_flags' - # Don't fix this by using the ld -exported_symbols_list flag, it doesn't exist in older darwin lds - if test "X$lt_int_apple_cc_single_mod" = Xyes ; then - archive_expsym_cmds_CXX='sed -e "s,#.*,," -e "s,^[ ]*,," -e "s,^\(..*\),_&," < $export_symbols > $output_objdir/${libname}-symbols.expsym~$CC -dynamiclib -single_module $allow_undefined_flag -o $lib $libobjs $deplibs $compiler_flags -install_name $rpath/$soname $verstring~nmedit -s $output_objdir/${libname}-symbols.expsym ${lib}' - else - archive_expsym_cmds_CXX='sed -e "s,#.*,," -e "s,^[ ]*,," -e "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~nmedit -s $output_objdir/${libname}-symbols.expsym ${lib}' - fi - module_expsym_cmds_CXX='sed -e "s,#.*,," -e "s,^[ ]*,," -e "s,^\(..*\),_&," < $export_symbols > $output_objdir/${libname}-symbols.expsym~$CC $allow_undefined_flag -o $lib -bundle $libobjs $deplibs$compiler_flags~nmedit -s $output_objdir/${libname}-symbols.expsym ${lib}' - else - case $cc_basename in - xlc*) - output_verbose_link_cmd='echo' - archive_cmds_CXX='$CC -qmkshrobj ${wl}-single_module $allow_undefined_flag -o $lib $libobjs $deplibs $compiler_flags ${wl}-install_name ${wl}`echo $rpath/$soname` $verstring' - module_cmds_CXX='$CC $allow_undefined_flag -o $lib -bundle $libobjs $deplibs$compiler_flags' - # Don't fix this by using the ld -exported_symbols_list flag, it doesn't exist in older darwin lds - archive_expsym_cmds_CXX='sed -e "s,#.*,," -e "s,^[ ]*,," -e "s,^\(..*\),_&," < $export_symbols > $output_objdir/${libname}-symbols.expsym~$CC -qmkshrobj ${wl}-single_module $allow_undefined_flag -o $lib $libobjs $deplibs $compiler_flags ${wl}-install_name ${wl}$rpath/$soname $verstring~nmedit -s $output_objdir/${libname}-symbols.expsym ${lib}' - module_expsym_cmds_CXX='sed -e "s,#.*,," -e "s,^[ ]*,," -e "s,^\(..*\),_&," < $export_symbols > $output_objdir/${libname}-symbols.expsym~$CC $allow_undefined_flag -o $lib -bundle $libobjs $deplibs$compiler_flags~nmedit -s $output_objdir/${libname}-symbols.expsym ${lib}' - ;; - *) - ld_shlibs_CXX=no - ;; - esac - fi - ;; - - dgux*) - case $cc_basename in - ec++*) - # FIXME: insert proper C++ library support - ld_shlibs_CXX=no - ;; - ghcx*) - # Green Hills C++ Compiler - # FIXME: insert proper C++ library support - ld_shlibs_CXX=no - ;; - *) - # FIXME: insert proper C++ library support - ld_shlibs_CXX=no - ;; - esac - ;; - freebsd[12]*) - # C++ shared libraries reported to be fairly broken before switch to ELF - ld_shlibs_CXX=no - ;; - freebsd-elf*) - archive_cmds_need_lc_CXX=no - ;; - freebsd* | kfreebsd*-gnu | dragonfly*) - # FreeBSD 3 and later use GNU C++ and GNU ld with standard ELF - # conventions - ld_shlibs_CXX=yes - ;; - gnu*) - ;; - hpux9*) - hardcode_libdir_flag_spec_CXX='${wl}+b ${wl}$libdir' - hardcode_libdir_separator_CXX=: - export_dynamic_flag_spec_CXX='${wl}-E' - hardcode_direct_CXX=yes - hardcode_minus_L_CXX=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 - ld_shlibs_CXX=no - ;; - aCC*) - archive_cmds_CXX='$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) | grep "[-]L"`; list=""; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; echo $list' - ;; - *) - if test "$GXX" = yes; then - archive_cmds_CXX='$rm $output_objdir/$soname~$CC -shared -nostdlib -fPIC ${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 - ld_shlibs_CXX=no - fi - ;; - esac - ;; - hpux10*|hpux11*) - if test $with_gnu_ld = no; then - hardcode_libdir_flag_spec_CXX='${wl}+b ${wl}$libdir' - hardcode_libdir_separator_CXX=: - - case $host_cpu in - hppa*64*|ia64*) - hardcode_libdir_flag_spec_ld_CXX='+b $libdir' - ;; - *) - export_dynamic_flag_spec_CXX='${wl}-E' - ;; - esac - fi - case $host_cpu in - hppa*64*|ia64*) - hardcode_direct_CXX=no - hardcode_shlibpath_var_CXX=no - ;; - *) - hardcode_direct_CXX=yes - hardcode_minus_L_CXX=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 - ld_shlibs_CXX=no - ;; - aCC*) - case $host_cpu in - hppa*64*) - archive_cmds_CXX='$CC -b ${wl}+h ${wl}$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' - ;; - ia64*) - archive_cmds_CXX='$CC -b ${wl}+h ${wl}$soname ${wl}+nodefaultrpath -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' - ;; - *) - archive_cmds_CXX='$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; echo $list' - ;; - *) - if test "$GXX" = yes; then - if test $with_gnu_ld = no; then - case $host_cpu in - hppa*64*) - archive_cmds_CXX='$CC -shared -nostdlib -fPIC ${wl}+h ${wl}$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' - ;; - ia64*) - archive_cmds_CXX='$CC -shared -nostdlib -fPIC ${wl}+h ${wl}$soname ${wl}+nodefaultrpath -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' - ;; - *) - archive_cmds_CXX='$CC -shared -nostdlib -fPIC ${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 - ld_shlibs_CXX=no - fi - ;; - esac - ;; - interix3*) - hardcode_direct_CXX=no - hardcode_shlibpath_var_CXX=no - hardcode_libdir_flag_spec_CXX='${wl}-rpath,$libdir' - export_dynamic_flag_spec_CXX='${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_CXX='$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_CXX='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++ - archive_cmds_CXX='$CC -shared -all -multigot $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -soname $soname `test -n "$verstring" && echo -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. - old_archive_cmds_CXX='$CC -ar -WR,-u -o $oldlib $oldobjs' - ;; - *) - if test "$GXX" = yes; then - if test "$with_gnu_ld" = no; then - archive_cmds_CXX='$CC -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && echo ${wl}-set_version ${wl}$verstring` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' - else - archive_cmds_CXX='$CC -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && echo ${wl}-set_version ${wl}$verstring` -o $lib' - fi - fi - link_all_deplibs_CXX=yes - ;; - esac - hardcode_libdir_flag_spec_CXX='${wl}-rpath ${wl}$libdir' - hardcode_libdir_separator_CXX=: - ;; - linux*) - 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. - archive_cmds_CXX='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' - archive_expsym_cmds_CXX='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; echo $list' - - hardcode_libdir_flag_spec_CXX='${wl}--rpath,$libdir' - export_dynamic_flag_spec_CXX='${wl}--export-dynamic' - - # Archives containing C++ object files must be created using - # "CC -Bstatic", where "CC" is the KAI C++ compiler. - old_archive_cmds_CXX='$CC -Bstatic -o $oldlib $oldobjs' - ;; - icpc*) - # 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."*) - archive_cmds_CXX='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname -o $lib' - archive_expsym_cmds_CXX='$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 - archive_cmds_CXX='$CC -shared'"$tmp_idyn"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' - archive_expsym_cmds_CXX='$CC -shared'"$tmp_idyn"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' - ;; - esac - archive_cmds_need_lc_CXX=no - hardcode_libdir_flag_spec_CXX='${wl}-rpath,$libdir' - export_dynamic_flag_spec_CXX='${wl}--export-dynamic' - whole_archive_flag_spec_CXX='${wl}--whole-archive$convenience ${wl}--no-whole-archive' - ;; - pgCC*) - # Portland Group C++ compiler - archive_cmds_CXX='$CC -shared $pic_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname -o $lib' - archive_expsym_cmds_CXX='$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' - - hardcode_libdir_flag_spec_CXX='${wl}--rpath ${wl}$libdir' - export_dynamic_flag_spec_CXX='${wl}--export-dynamic' - whole_archive_flag_spec_CXX='${wl}--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; $echo \"$new_convenience\"` ${wl}--no-whole-archive' - ;; - cxx*) - # Compaq C++ - archive_cmds_CXX='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname -o $lib' - archive_expsym_cmds_CXX='$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 - hardcode_libdir_flag_spec_CXX='-rpath $libdir' - hardcode_libdir_separator_CXX=: - - # 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=`echo $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; echo $list' - ;; - esac - ;; - lynxos*) - # FIXME: insert proper C++ library support - ld_shlibs_CXX=no - ;; - m88k*) - # FIXME: insert proper C++ library support - ld_shlibs_CXX=no - ;; - mvs*) - case $cc_basename in - cxx*) - # FIXME: insert proper C++ library support - ld_shlibs_CXX=no - ;; - *) - # FIXME: insert proper C++ library support - ld_shlibs_CXX=no - ;; - esac - ;; - netbsd*) - if echo __ELF__ | $CC -E - | grep __ELF__ >/dev/null; then - archive_cmds_CXX='$LD -Bshareable -o $lib $predep_objects $libobjs $deplibs $postdep_objects $linker_flags' - wlarc= - hardcode_libdir_flag_spec_CXX='-R$libdir' - hardcode_direct_CXX=yes - hardcode_shlibpath_var_CXX=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::"' - ;; - openbsd2*) - # C++ shared libraries are fairly broken - ld_shlibs_CXX=no - ;; - openbsd*) - hardcode_direct_CXX=yes - hardcode_shlibpath_var_CXX=no - archive_cmds_CXX='$CC -shared $pic_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -o $lib' - hardcode_libdir_flag_spec_CXX='${wl}-rpath,$libdir' - if test -z "`echo __ELF__ | $CC -E - | grep __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then - archive_expsym_cmds_CXX='$CC -shared $pic_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-retain-symbols-file,$export_symbols -o $lib' - export_dynamic_flag_spec_CXX='${wl}-E' - whole_archive_flag_spec_CXX="$wlarc"'--whole-archive$convenience '"$wlarc"'--no-whole-archive' - fi - output_verbose_link_cmd='echo' - ;; - osf3*) - 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. - archive_cmds_CXX='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' - - hardcode_libdir_flag_spec_CXX='${wl}-rpath,$libdir' - hardcode_libdir_separator_CXX=: - - # Archives containing C++ object files must be created using - # "CC -Bstatic", where "CC" is the KAI C++ compiler. - old_archive_cmds_CXX='$CC -Bstatic -o $oldlib $oldobjs' - - ;; - RCC*) - # Rational C++ 2.4.1 - # FIXME: insert proper C++ library support - ld_shlibs_CXX=no - ;; - cxx*) - allow_undefined_flag_CXX=' ${wl}-expect_unresolved ${wl}\*' - archive_cmds_CXX='$CC -shared${allow_undefined_flag} $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $soname `test -n "$verstring" && echo ${wl}-set_version $verstring` -update_registry ${output_objdir}/so_locations -o $lib' - - hardcode_libdir_flag_spec_CXX='${wl}-rpath ${wl}$libdir' - hardcode_libdir_separator_CXX=: - - # 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=`echo $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; echo $list' - ;; - *) - if test "$GXX" = yes && test "$with_gnu_ld" = no; then - allow_undefined_flag_CXX=' ${wl}-expect_unresolved ${wl}\*' - archive_cmds_CXX='$CC -shared -nostdlib ${allow_undefined_flag} $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && echo ${wl}-set_version ${wl}$verstring` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' - - hardcode_libdir_flag_spec_CXX='${wl}-rpath ${wl}$libdir' - hardcode_libdir_separator_CXX=: - - # 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 "\-L"' - - else - # FIXME: insert proper C++ library support - ld_shlibs_CXX=no - fi - ;; - esac - ;; - 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. - archive_cmds_CXX='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' - - hardcode_libdir_flag_spec_CXX='${wl}-rpath,$libdir' - hardcode_libdir_separator_CXX=: - - # Archives containing C++ object files must be created using - # the KAI C++ compiler. - old_archive_cmds_CXX='$CC -o $oldlib $oldobjs' - ;; - RCC*) - # Rational C++ 2.4.1 - # FIXME: insert proper C++ library support - ld_shlibs_CXX=no - ;; - cxx*) - allow_undefined_flag_CXX=' -expect_unresolved \*' - archive_cmds_CXX='$CC -shared${allow_undefined_flag} $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -msym -soname $soname `test -n "$verstring" && echo -set_version $verstring` -update_registry ${output_objdir}/so_locations -o $lib' - archive_expsym_cmds_CXX='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' - - hardcode_libdir_flag_spec_CXX='-rpath $libdir' - hardcode_libdir_separator_CXX=: - - # 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=`echo $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; echo $list' - ;; - *) - if test "$GXX" = yes && test "$with_gnu_ld" = no; then - allow_undefined_flag_CXX=' ${wl}-expect_unresolved ${wl}\*' - archive_cmds_CXX='$CC -shared -nostdlib ${allow_undefined_flag} $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-msym ${wl}-soname ${wl}$soname `test -n "$verstring" && echo ${wl}-set_version ${wl}$verstring` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' - - hardcode_libdir_flag_spec_CXX='${wl}-rpath ${wl}$libdir' - hardcode_libdir_separator_CXX=: - - # 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 "\-L"' - - else - # FIXME: insert proper C++ library support - ld_shlibs_CXX=no - fi - ;; - esac - ;; - psos*) - # FIXME: insert proper C++ library support - ld_shlibs_CXX=no - ;; - sunos4*) - case $cc_basename in - CC*) - # Sun C++ 4.x - # FIXME: insert proper C++ library support - ld_shlibs_CXX=no - ;; - lcc*) - # Lucid - # FIXME: insert proper C++ library support - ld_shlibs_CXX=no - ;; - *) - # FIXME: insert proper C++ library support - ld_shlibs_CXX=no - ;; - esac - ;; - solaris*) - case $cc_basename in - CC*) - # Sun C++ 4.2, 5.x and Centerline C++ - archive_cmds_need_lc_CXX=yes - no_undefined_flag_CXX=' -zdefs' - archive_cmds_CXX='$CC -G${allow_undefined_flag} -h$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' - archive_expsym_cmds_CXX='$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' - - hardcode_libdir_flag_spec_CXX='-R$libdir' - hardcode_shlibpath_var_CXX=no - case $host_os in - solaris2.[0-5] | solaris2.[0-5].*) ;; - *) - # The C++ compiler is used as linker so we must use $wl - # flag to pass the commands to the underlying system - # linker. We must also pass each convience library through - # to the system linker between allextract/defaultextract. - # The C++ compiler will combine linker options so we - # cannot just pass the convience library names through - # without $wl. - # Supported since Solaris 2.6 (maybe 2.5.1?) - whole_archive_flag_spec_CXX='${wl}-z ${wl}allextract`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; $echo \"$new_convenience\"` ${wl}-z ${wl}defaultextract' - ;; - esac - link_all_deplibs_CXX=yes - - output_verbose_link_cmd='echo' - - # 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. - old_archive_cmds_CXX='$CC -xar -o $oldlib $oldobjs' - ;; - gcx*) - # Green Hills C++ Compiler - archive_cmds_CXX='$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. - old_archive_cmds_CXX='$CC $LDFLAGS -archive -o $oldlib $oldobjs' - ;; - *) - # GNU C++ compiler with Solaris linker - if test "$GXX" = yes && test "$with_gnu_ld" = no; then - no_undefined_flag_CXX=' ${wl}-z ${wl}defs' - if $CC --version | grep -v '^2\.7' > /dev/null; then - archive_cmds_CXX='$CC -shared -nostdlib $LDFLAGS $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-h $wl$soname -o $lib' - archive_expsym_cmds_CXX='$echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~$echo "local: *; };" >> $lib.exp~ - $CC -shared -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 \"\-L\"" - else - # g++ 2.7 appears to require `-G' NOT `-shared' on this - # platform. - archive_cmds_CXX='$CC -G -nostdlib $LDFLAGS $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-h $wl$soname -o $lib' - archive_expsym_cmds_CXX='$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 \"\-L\"" - fi - - hardcode_libdir_flag_spec_CXX='${wl}-R $wl$libdir' - fi - ;; - esac - ;; - sysv4*uw2* | sysv5OpenUNIX* | sysv5UnixWare7.[01].[10]* | unixware7* | sco3.2v5.0.[024]*) - no_undefined_flag_CXX='${wl}-z,text' - archive_cmds_need_lc_CXX=no - hardcode_shlibpath_var_CXX=no - runpath_var='LD_RUN_PATH' - - case $cc_basename in - CC*) - archive_cmds_CXX='$CC -G ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' - archive_expsym_cmds_CXX='$CC -G ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' - ;; - *) - archive_cmds_CXX='$CC -shared ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' - archive_expsym_cmds_CXX='$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. - # 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. - # So that behaviour is only enabled if SCOABSPATH is set to a - # non-empty value in the environment. Most likely only useful for - # creating official distributions of packages. - # This is a hack until libtool officially supports absolute path - # names for shared libraries. - no_undefined_flag_CXX='${wl}-z,text' - allow_undefined_flag_CXX='${wl}-z,nodefs' - archive_cmds_need_lc_CXX=no - hardcode_shlibpath_var_CXX=no - hardcode_libdir_flag_spec_CXX='`test -z "$SCOABSPATH" && echo ${wl}-R,$libdir`' - hardcode_libdir_separator_CXX=':' - link_all_deplibs_CXX=yes - export_dynamic_flag_spec_CXX='${wl}-Bexport' - runpath_var='LD_RUN_PATH' - - case $cc_basename in - CC*) - archive_cmds_CXX='$CC -G ${wl}-h,\${SCOABSPATH:+${install_libdir}/}$soname -o $lib $libobjs $deplibs $compiler_flags' - archive_expsym_cmds_CXX='$CC -G ${wl}-Bexport:$export_symbols ${wl}-h,\${SCOABSPATH:+${install_libdir}/}$soname -o $lib $libobjs $deplibs $compiler_flags' - ;; - *) - archive_cmds_CXX='$CC -shared ${wl}-h,\${SCOABSPATH:+${install_libdir}/}$soname -o $lib $libobjs $deplibs $compiler_flags' - archive_expsym_cmds_CXX='$CC -shared ${wl}-Bexport:$export_symbols ${wl}-h,\${SCOABSPATH:+${install_libdir}/}$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 - ld_shlibs_CXX=no - ;; - *) - # FIXME: insert proper C++ library support - ld_shlibs_CXX=no - ;; - esac - ;; - vxworks*) - # FIXME: insert proper C++ library support - ld_shlibs_CXX=no - ;; - *) - # FIXME: insert proper C++ library support - ld_shlibs_CXX=no - ;; -esac -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ld_shlibs_CXX" >&5 -$as_echo "$ld_shlibs_CXX" >&6; } -test "$ld_shlibs_CXX" = no && can_build_shared=no - -GCC_CXX="$GXX" -LD_CXX="$LD" - - -cat > conftest.$ac_ext <&5 - (eval $ac_compile) 2>&5 - ac_status=$? - $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 - test $ac_status = 0; }; 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 - - # The `*' in the case matches for architectures that use `case' in - # $output_verbose_cmd can trigger glob expansion during the loop - # eval without this substitution. - output_verbose_link_cmd=`$echo "X$output_verbose_link_cmd" | $Xsed -e "$no_glob_subst"` - - for p in `eval $output_verbose_link_cmd`; do - case $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 - else - prev= - fi - - if test "$pre_test_object_deps_done" = no; then - case $p 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 "$compiler_lib_search_path_CXX"; then - compiler_lib_search_path_CXX="${prev}${p}" - else - compiler_lib_search_path_CXX="${compiler_lib_search_path_CXX} ${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 "$postdeps_CXX"; then - postdeps_CXX="${prev}${p}" - else - postdeps_CXX="${postdeps_CXX} ${prev}${p}" - fi - fi - ;; - - *.$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 "$predep_objects_CXX"; then - predep_objects_CXX="$p" - else - predep_objects_CXX="$predep_objects_CXX $p" - fi - else - if test -z "$postdep_objects_CXX"; then - postdep_objects_CXX="$p" - else - postdep_objects_CXX="$postdep_objects_CXX $p" - fi - fi - ;; - - *) ;; # Ignore the rest. - - esac - done - - # Clean up. - rm -f a.out a.exe -else - echo "libtool.m4: error: problem compiling CXX test program" -fi - -$rm -f confest.$objext - -# PORTME: override above test on systems where it is broken -case $host_os in -interix3*) - # Interix 3.5 installs completely hosed .la files for C++, so rather than - # hack all around it, let's just trust "g++" to DTRT. - predep_objects_CXX= - postdep_objects_CXX= - postdeps_CXX= - ;; - -solaris*) - case $cc_basename in - CC*) - # 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. - postdeps_CXX='-lCstd -lCrun' - ;; - esac - ;; -esac - - -case " $postdeps_CXX " in -*" -lc "*) archive_cmds_need_lc_CXX=no ;; -esac - -lt_prog_compiler_wl_CXX= -lt_prog_compiler_pic_CXX= -lt_prog_compiler_static_CXX= - -{ $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; } - - # C++ specific cases for pic, static, wl, etc. - if test "$GXX" = yes; then - lt_prog_compiler_wl_CXX='-Wl,' - lt_prog_compiler_static_CXX='-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_CXX='-Bstatic' - fi - ;; - amigaos*) - # 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_CXX='-m68020 -resident32 -malways-restore-a4' - ;; - beos* | cygwin* | irix5* | irix6* | nonstopux* | osf3* | osf4* | osf5*) - # PIC is the default for these OSes. - ;; - mingw* | os2* | pw32*) - # 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_CXX='-DDLL_EXPORT' - ;; - darwin* | rhapsody*) - # PIC is the default on this platform - # Common symbols not allowed in MH_DYLIB files - lt_prog_compiler_pic_CXX='-fno-common' - ;; - *djgpp*) - # DJGPP does not support shared libraries at all - lt_prog_compiler_pic_CXX= - ;; - interix3*) - # 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_prog_compiler_pic_CXX=-Kconform_pic - fi - ;; - hpux*) - # 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*) - ;; - *) - lt_prog_compiler_pic_CXX='-fPIC' - ;; - esac - ;; - *) - lt_prog_compiler_pic_CXX='-fPIC' - ;; - esac - else - case $host_os in - aix4* | aix5*) - # All AIX code is PIC. - if test "$host_cpu" = ia64; then - # AIX 5 now supports IA64 processor - lt_prog_compiler_static_CXX='-Bstatic' - else - lt_prog_compiler_static_CXX='-bnso -bI:/lib/syscalls.exp' - fi - ;; - chorus*) - case $cc_basename in - cxch68*) - # Green Hills C++ Compiler - # _LT_AC_TAGVAR(lt_prog_compiler_static, CXX)="--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 - ;; - darwin*) - # PIC is the default on this platform - # Common symbols not allowed in MH_DYLIB files - case $cc_basename in - xlc*) - lt_prog_compiler_pic_CXX='-qnocommon' - lt_prog_compiler_wl_CXX='-Wl,' - ;; - esac - ;; - dgux*) - case $cc_basename in - ec++*) - lt_prog_compiler_pic_CXX='-KPIC' - ;; - ghcx*) - # Green Hills C++ Compiler - lt_prog_compiler_pic_CXX='-pic' - ;; - *) - ;; - esac - ;; - freebsd* | kfreebsd*-gnu | dragonfly*) - # FreeBSD uses GNU C++ - ;; - hpux9* | hpux10* | hpux11*) - case $cc_basename in - CC*) - lt_prog_compiler_wl_CXX='-Wl,' - lt_prog_compiler_static_CXX='${wl}-a ${wl}archive' - if test "$host_cpu" != ia64; then - lt_prog_compiler_pic_CXX='+Z' - fi - ;; - aCC*) - lt_prog_compiler_wl_CXX='-Wl,' - lt_prog_compiler_static_CXX='${wl}-a ${wl}archive' - case $host_cpu in - hppa*64*|ia64*) - # +Z the default - ;; - *) - lt_prog_compiler_pic_CXX='+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_prog_compiler_wl_CXX='-Wl,' - lt_prog_compiler_static_CXX='-non_shared' - # CC pic flag -KPIC is the default. - ;; - *) - ;; - esac - ;; - linux*) - case $cc_basename in - KCC*) - # KAI C++ Compiler - lt_prog_compiler_wl_CXX='--backend -Wl,' - lt_prog_compiler_pic_CXX='-fPIC' - ;; - icpc* | ecpc*) - # Intel C++ - lt_prog_compiler_wl_CXX='-Wl,' - lt_prog_compiler_pic_CXX='-KPIC' - lt_prog_compiler_static_CXX='-static' - ;; - pgCC*) - # Portland Group C++ compiler. - lt_prog_compiler_wl_CXX='-Wl,' - lt_prog_compiler_pic_CXX='-fpic' - lt_prog_compiler_static_CXX='-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_prog_compiler_pic_CXX= - lt_prog_compiler_static_CXX='-non_shared' - ;; - *) - ;; - esac - ;; - lynxos*) - ;; - m88k*) - ;; - mvs*) - case $cc_basename in - cxx*) - lt_prog_compiler_pic_CXX='-W c,exportall' - ;; - *) - ;; - esac - ;; - netbsd*) - ;; - osf3* | osf4* | osf5*) - case $cc_basename in - KCC*) - lt_prog_compiler_wl_CXX='--backend -Wl,' - ;; - RCC*) - # Rational C++ 2.4.1 - lt_prog_compiler_pic_CXX='-pic' - ;; - cxx*) - # Digital/Compaq C++ - lt_prog_compiler_wl_CXX='-Wl,' - # Make sure the PIC flag is empty. It appears that all Alpha - # Linux and Compaq Tru64 Unix objects are PIC. - lt_prog_compiler_pic_CXX= - lt_prog_compiler_static_CXX='-non_shared' - ;; - *) - ;; - esac - ;; - psos*) - ;; - solaris*) - case $cc_basename in - CC*) - # Sun C++ 4.2, 5.x and Centerline C++ - lt_prog_compiler_pic_CXX='-KPIC' - lt_prog_compiler_static_CXX='-Bstatic' - lt_prog_compiler_wl_CXX='-Qoption ld ' - ;; - gcx*) - # Green Hills C++ Compiler - lt_prog_compiler_pic_CXX='-PIC' - ;; - *) - ;; - esac - ;; - sunos4*) - case $cc_basename in - CC*) - # Sun C++ 4.x - lt_prog_compiler_pic_CXX='-pic' - lt_prog_compiler_static_CXX='-Bstatic' - ;; - lcc*) - # Lucid - lt_prog_compiler_pic_CXX='-pic' - ;; - *) - ;; - esac - ;; - tandem*) - case $cc_basename in - NCC*) - # NonStop-UX NCC 3.20 - lt_prog_compiler_pic_CXX='-KPIC' - ;; - *) - ;; - esac - ;; - sysv5* | unixware* | sco3.2v5* | sco5v6* | OpenUNIX*) - case $cc_basename in - CC*) - lt_prog_compiler_wl_CXX='-Wl,' - lt_prog_compiler_pic_CXX='-KPIC' - lt_prog_compiler_static_CXX='-Bstatic' - ;; - esac - ;; - vxworks*) - ;; - *) - lt_prog_compiler_can_build_shared_CXX=no - ;; - esac - fi - -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_prog_compiler_pic_CXX" >&5 -$as_echo "$lt_prog_compiler_pic_CXX" >&6; } - -# -# Check to make sure the PIC flag actually works. -# -if test -n "$lt_prog_compiler_pic_CXX"; then - -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler PIC flag $lt_prog_compiler_pic_CXX works" >&5 -$as_echo_n "checking if $compiler PIC flag $lt_prog_compiler_pic_CXX works... " >&6; } -if ${lt_prog_compiler_pic_works_CXX+:} false; then : - $as_echo_n "(cached) " >&6 -else - lt_prog_compiler_pic_works_CXX=no - ac_outfile=conftest.$ac_objext - printf "$lt_simple_compile_test_code" > conftest.$ac_ext - lt_compiler_flag="$lt_prog_compiler_pic_CXX -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:11807: $lt_compile\"" >&5) - (eval "$lt_compile" 2>conftest.err) - ac_status=$? - cat conftest.err >&5 - echo "$as_me:11811: \$? = $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 "X$_lt_compiler_boilerplate" | $Xsed -e '/^$/d' >conftest.exp - $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2 - if test ! -s conftest.er2 || diff conftest.exp conftest.er2 >/dev/null; then - lt_prog_compiler_pic_works_CXX=yes - fi - fi - $rm conftest* - -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_prog_compiler_pic_works_CXX" >&5 -$as_echo "$lt_prog_compiler_pic_works_CXX" >&6; } - -if test x"$lt_prog_compiler_pic_works_CXX" = xyes; then - case $lt_prog_compiler_pic_CXX in - "" | " "*) ;; - *) lt_prog_compiler_pic_CXX=" $lt_prog_compiler_pic_CXX" ;; - esac -else - lt_prog_compiler_pic_CXX= - lt_prog_compiler_can_build_shared_CXX=no -fi - -fi -case $host_os in - # For platforms which do not support PIC, -DPIC is meaningless: - *djgpp*) - lt_prog_compiler_pic_CXX= - ;; - *) - lt_prog_compiler_pic_CXX="$lt_prog_compiler_pic_CXX -DPIC" - ;; -esac - -# -# Check to make sure the static flag actually works. -# -wl=$lt_prog_compiler_wl_CXX eval lt_tmp_static_flag=\"$lt_prog_compiler_static_CXX\" -{ $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_prog_compiler_static_works_CXX+:} false; then : - $as_echo_n "(cached) " >&6 -else - lt_prog_compiler_static_works_CXX=no - save_LDFLAGS="$LDFLAGS" - LDFLAGS="$LDFLAGS $lt_tmp_static_flag" - printf "$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 "X$_lt_linker_boilerplate" | $Xsed -e '/^$/d' > conftest.exp - $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2 - if diff conftest.exp conftest.er2 >/dev/null; then - lt_prog_compiler_static_works_CXX=yes - fi - else - lt_prog_compiler_static_works_CXX=yes - fi - fi - $rm conftest* - LDFLAGS="$save_LDFLAGS" - -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_prog_compiler_static_works_CXX" >&5 -$as_echo "$lt_prog_compiler_static_works_CXX" >&6; } - -if test x"$lt_prog_compiler_static_works_CXX" = xyes; then - : -else - lt_prog_compiler_static_CXX= -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_CXX+:} false; then : - $as_echo_n "(cached) " >&6 -else - lt_cv_prog_compiler_c_o_CXX=no - $rm -r conftest 2>/dev/null - mkdir conftest - cd conftest - mkdir out - printf "$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:11911: $lt_compile\"" >&5) - (eval "$lt_compile" 2>out/conftest.err) - ac_status=$? - cat out/conftest.err >&5 - echo "$as_me:11915: \$? = $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 "X$_lt_compiler_boilerplate" | $Xsed -e '/^$/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_CXX=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 .. - rmdir conftest - $rm conftest* - -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_c_o_CXX" >&5 -$as_echo "$lt_cv_prog_compiler_c_o_CXX" >&6; } - - -hard_links="nottested" -if test "$lt_cv_prog_compiler_c_o_CXX" = 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; } - - export_symbols_cmds_CXX='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' - case $host_os in - aix4* | aix5*) - # 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 - if $NM -V 2>&1 | grep 'GNU' > /dev/null; then - export_symbols_cmds_CXX='$NM -Bpg $libobjs $convenience | awk '\''{ if (((\$2 == "T") || (\$2 == "D") || (\$2 == "B")) && (substr(\$3,1,1) != ".")) { print \$3 } }'\'' | sort -u > $export_symbols' - else - export_symbols_cmds_CXX='$NM -BCpg $libobjs $convenience | awk '\''{ if (((\$2 == "T") || (\$2 == "D") || (\$2 == "B")) && (substr(\$3,1,1) != ".")) { print \$3 } }'\'' | sort -u > $export_symbols' - fi - ;; - pw32*) - export_symbols_cmds_CXX="$ltdll_cmds" - ;; - cygwin* | mingw*) - export_symbols_cmds_CXX='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[BCDGRS] /s/.* \([^ ]*\)/\1 DATA/;/^.* __nm__/s/^.* __nm__\([^ ]*\) [^ ]*/\1 DATA/;/^I /d;/^[AITW] /s/.* //'\'' | sort | uniq > $export_symbols' - ;; - *) - export_symbols_cmds_CXX='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' - ;; - esac - -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ld_shlibs_CXX" >&5 -$as_echo "$ld_shlibs_CXX" >&6; } -test "$ld_shlibs_CXX" = no && can_build_shared=no - -# -# Do we need to explicitly link libc? -# -case "x$archive_cmds_need_lc_CXX" in -x|xyes) - # Assume -lc should be added - archive_cmds_need_lc_CXX=yes - - if test "$enable_shared" = yes && test "$GCC" = yes; then - case $archive_cmds_CXX 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; } - $rm conftest* - printf "$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_CXX - pic_flag=$lt_prog_compiler_pic_CXX - compiler_flags=-v - linker_flags=-v - verstring= - output_objdir=. - libname=conftest - lt_save_allow_undefined_flag=$allow_undefined_flag_CXX - allow_undefined_flag_CXX= - if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$archive_cmds_CXX 2\>\&1 \| grep \" -lc \" \>/dev/null 2\>\&1\""; } >&5 - (eval $archive_cmds_CXX 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 - archive_cmds_need_lc_CXX=no - else - archive_cmds_need_lc_CXX=yes - fi - allow_undefined_flag_CXX=$lt_save_allow_undefined_flag - else - cat conftest.err 1>&5 - fi - $rm conftest* - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $archive_cmds_need_lc_CXX" >&5 -$as_echo "$archive_cmds_need_lc_CXX" >&6; } - ;; - esac - fi - ;; -esac - -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking dynamic linker characteristics" >&5 -$as_echo_n "checking dynamic linker characteristics... " >&6; } -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" -if test "$GCC" = yes; then - sys_lib_search_path_spec=`$CC -print-search-dirs | grep "^libraries:" | $SED -e "s/^libraries://" -e "s,=/,/,g"` - if echo "$sys_lib_search_path_spec" | grep ';' >/dev/null ; then - # 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. - 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 -else - sys_lib_search_path_spec="/lib /usr/lib /usr/local/lib" -fi -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 - 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' - ;; - -aix4* | aix5*) - version_type=linux - 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*) - 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=`$echo "X$lib" | $Xsed -e '\''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' - ;; - -beos*) - library_names_spec='${libname}${shared_ext}' - dynamic_linker="$host_os ld.so" - shlibpath_var=LIBRARY_PATH - ;; - -bsdi[45]*) - version_type=linux - 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*) - version_type=windows - shrext_cmds=".dll" - need_version=no - need_lib_prefix=no - - case $GCC,$host_os in - yes,cygwin* | yes,mingw* | yes,pw32*) - 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' - 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="/usr/lib /lib/w32api /lib /usr/local/lib" - ;; - mingw*) - # MinGW DLLs use traditional 'lib' prefix - soname_spec='${libname}`echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext}' - sys_lib_search_path_spec=`$CC -print-search-dirs | grep "^libraries:" | $SED -e "s/^libraries://" -e "s,=/,/,g"` - if echo "$sys_lib_search_path_spec" | grep ';[c-zC-Z]:/' >/dev/null; then - # It is most probably a Windows format PATH printed by - # mingw gcc, but we are running on Cygwin. Gcc prints its search - # path with ; separators, and with drive letters. We can handle the - # drive letters (cygwin fileutils understands them), so leave them, - # especially as we might pass files found there to a mingw objdump, - # which wouldn't understand a cygwinified path. Ahh. - 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 - ;; - 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 - ;; - - *) - library_names_spec='${libname}`echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext} $libname.lib' - ;; - esac - dynamic_linker='Win32 ld.exe' - # 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}${versuffix}$shared_ext ${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`' - # Apple's gcc prints 'gcc -print-search-dirs' doesn't operate the same. - if test "$GCC" = yes; then - sys_lib_search_path_spec=`$CC -print-search-dirs | tr "\n" "$PATH_SEPARATOR" | sed -e 's/libraries:/@libraries:/' | tr "@" "\n" | grep "^libraries:" | sed -e "s/^libraries://" -e "s,=/,/,g" -e "s,$PATH_SEPARATOR, ,g" -e "s,.*,& /lib /usr/lib /usr/local/lib,g"` - else - sys_lib_search_path_spec='/lib /usr/lib /usr/local/lib' - fi - sys_lib_dlsearch_path_spec='/usr/local/lib /lib /usr/lib' - ;; - -dgux*) - 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 - ;; - -freebsd1*) - dynamic_linker=no - ;; - -kfreebsd*-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='GNU ld.so' - ;; - -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[123]*) 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 - ;; - freebsd*) # from 4.6 on - shlibpath_overrides_runpath=yes - hardcode_into_libs=yes - ;; - esac - ;; - -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 - 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' - ;; - -interix3*) - 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' - 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 - 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 Linux ELF. -linux*) - 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' - finish_cmds='PATH="\$PATH:/sbin" ldconfig -n $libdir' - shlibpath_var=LD_LIBRARY_PATH - shlibpath_overrides_runpath=no - # 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 - - # find out which ABI we are using - libsuff= - case "$host_cpu" in - x86_64*|s390x*|powerpc64*) - echo '#line 12447 "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 - case `/usr/bin/file conftest.$ac_objext` in - *64-bit*) - libsuff=64 - sys_lib_search_path_spec="/lib${libsuff} /usr/lib${libsuff} /usr/local/lib${libsuff}" - ;; - esac - fi - rm -rf conftest* - ;; - esac - - # 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/#.*//;s/[:, ]/ /g;s/=[^=]*$//;s/=[^= ]* / /g;/^$/d' | tr '\n' ' '` - sys_lib_dlsearch_path_spec="/lib${libsuff} /usr/lib${libsuff} $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' - ;; - -knetbsd*-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='GNU ld.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 - 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=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=yes - ;; - -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" - ;; - -solaris*) - 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=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 - 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 - export_dynamic_flag_spec='${wl}-Blargedynsym' - 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 - 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 - 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' - shlibpath_overrides_runpath=no - else - sys_lib_search_path_spec='/usr/ccs/lib /usr/lib' - shlibpath_overrides_runpath=yes - 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' - ;; - -uts4*) - version_type=linux - 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 - -{ $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_CXX= -if test -n "$hardcode_libdir_flag_spec_CXX" || \ - test -n "$runpath_var_CXX" || \ - test "X$hardcode_automatic_CXX" = "Xyes" ; then - - # We can hardcode non-existant directories. - if test "$hardcode_direct_CXX" != 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_AC_TAGVAR(hardcode_shlibpath_var, CXX)" != no && - test "$hardcode_minus_L_CXX" != no; then - # Linking always hardcodes the temporary library directory. - hardcode_action_CXX=relink - else - # We can link without hardcoding, and we can hardcode nonexisting dirs. - hardcode_action_CXX=immediate - fi -else - # We cannot hardcode anything, or else we can only hardcode existing - # directories. - hardcode_action_CXX=unsupported -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $hardcode_action_CXX" >&5 -$as_echo "$hardcode_action_CXX" >&6; } - -if test "$hardcode_action_CXX" = relink; 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 - - -# The else clause should only fire when bootstrapping the -# libtool distribution, otherwise you forgot to ship ltmain.sh -# with your package, and you will get complaints that there are -# no rules to generate ltmain.sh. -if test -f "$ltmain"; then - # 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 - # Now quote all the things that may contain metacharacters while being - # careful not to overquote the AC_SUBSTed values. We take copies of the - # variables and quote the copies for generation of the libtool script. - for var in echo old_CC old_CFLAGS AR AR_FLAGS EGREP RANLIB LN_S LTCC LTCFLAGS NM \ - SED SHELL STRIP \ - libname_spec library_names_spec soname_spec extract_expsyms_cmds \ - old_striplib striplib file_magic_cmd finish_cmds finish_eval \ - deplibs_check_method reload_flag reload_cmds need_locks \ - lt_cv_sys_global_symbol_pipe lt_cv_sys_global_symbol_to_cdecl \ - lt_cv_sys_global_symbol_to_c_name_address \ - sys_lib_search_path_spec sys_lib_dlsearch_path_spec \ - old_postinstall_cmds old_postuninstall_cmds \ - compiler_CXX \ - CC_CXX \ - LD_CXX \ - lt_prog_compiler_wl_CXX \ - lt_prog_compiler_pic_CXX \ - lt_prog_compiler_static_CXX \ - lt_prog_compiler_no_builtin_flag_CXX \ - export_dynamic_flag_spec_CXX \ - thread_safe_flag_spec_CXX \ - whole_archive_flag_spec_CXX \ - enable_shared_with_static_runtimes_CXX \ - old_archive_cmds_CXX \ - old_archive_from_new_cmds_CXX \ - predep_objects_CXX \ - postdep_objects_CXX \ - predeps_CXX \ - postdeps_CXX \ - compiler_lib_search_path_CXX \ - archive_cmds_CXX \ - archive_expsym_cmds_CXX \ - postinstall_cmds_CXX \ - postuninstall_cmds_CXX \ - old_archive_from_expsyms_cmds_CXX \ - allow_undefined_flag_CXX \ - no_undefined_flag_CXX \ - export_symbols_cmds_CXX \ - hardcode_libdir_flag_spec_CXX \ - hardcode_libdir_flag_spec_ld_CXX \ - hardcode_libdir_separator_CXX \ - hardcode_automatic_CXX \ - module_cmds_CXX \ - module_expsym_cmds_CXX \ - lt_cv_prog_compiler_c_o_CXX \ - exclude_expsyms_CXX \ - include_expsyms_CXX; do - - case $var in - old_archive_cmds_CXX | \ - old_archive_from_new_cmds_CXX | \ - archive_cmds_CXX | \ - archive_expsym_cmds_CXX | \ - module_cmds_CXX | \ - module_expsym_cmds_CXX | \ - old_archive_from_expsyms_cmds_CXX | \ - export_symbols_cmds_CXX | \ - extract_expsyms_cmds | reload_cmds | finish_cmds | \ - postinstall_cmds | postuninstall_cmds | \ - old_postinstall_cmds | old_postuninstall_cmds | \ - sys_lib_search_path_spec | sys_lib_dlsearch_path_spec) - # Double-quote double-evaled strings. - eval "lt_$var=\\\"\`\$echo \"X\$$var\" | \$Xsed -e \"\$double_quote_subst\" -e \"\$sed_quote_subst\" -e \"\$delay_variable_subst\"\`\\\"" - ;; - *) - eval "lt_$var=\\\"\`\$echo \"X\$$var\" | \$Xsed -e \"\$sed_quote_subst\"\`\\\"" - ;; - esac - done - - case $lt_echo in - *'\$0 --fallback-echo"') - lt_echo=`$echo "X$lt_echo" | $Xsed -e 's/\\\\\\\$0 --fallback-echo"$/$0 --fallback-echo"/'` - ;; - esac - -cfgfile="$ofile" - - cat <<__EOF__ >> "$cfgfile" -# ### BEGIN LIBTOOL TAG CONFIG: $tagname - -# Libtool was configured on host `(hostname || uname -n) 2>/dev/null | sed 1q`: - -# Shell to use when invoking shell scripts. -SHELL=$lt_SHELL - -# Whether or not to build shared libraries. -build_libtool_libs=$enable_shared - -# Whether or not to build static libraries. -build_old_libs=$enable_static - -# Whether or not to add -lc for building shared libraries. -build_libtool_need_lc=$archive_cmds_need_lc_CXX - -# Whether or not to disallow shared libs when runtime libs are static -allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes_CXX - -# Whether or not to optimize for fast installation. -fast_install=$enable_fast_install - -# 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 - -# An echo program that does not interpret backslashes. -echo=$lt_echo - -# The archiver. -AR=$lt_AR -AR_FLAGS=$lt_AR_FLAGS - -# A C compiler. -LTCC=$lt_LTCC - -# LTCC compiler flags. -LTCFLAGS=$lt_LTCFLAGS - -# A language-specific compiler. -CC=$lt_compiler_CXX - -# Is the compiler the GNU C compiler? -with_gcc=$GCC_CXX - -gcc_dir=\`gcc -print-file-name=. | $SED 's,/\.$,,'\` -gcc_ver=\`gcc -dumpversion\` - -# An ERE matcher. -EGREP=$lt_EGREP - -# The linker used to build libraries. -LD=$lt_LD_CXX - -# Whether we need hard or soft links. -LN_S=$lt_LN_S - -# A BSD-compatible nm program. -NM=$lt_NM - -# A symbol stripping program -STRIP=$lt_STRIP - -# Used to examine libraries when file_magic_cmd begins "file" -MAGIC_CMD=$MAGIC_CMD - -# Used on cygwin: DLL creation program. -DLLTOOL="$DLLTOOL" - -# Used on cygwin: object dumper. -OBJDUMP="$OBJDUMP" - -# Used on cygwin: assembler. -AS="$AS" - -# The name of the directory that contains temporary libtool files. -objdir=$objdir - -# How to create reloadable object files. -reload_flag=$lt_reload_flag -reload_cmds=$lt_reload_cmds - -# How to pass a linker flag through the compiler. -wl=$lt_lt_prog_compiler_wl_CXX - -# Object file suffix (normally "o"). -objext="$ac_objext" - -# Old archive suffix (normally "a"). -libext="$libext" - -# Shared library suffix (normally ".so"). -shrext_cmds='$shrext_cmds' - -# Executable file suffix (normally ""). -exeext="$exeext" - -# Additional compiler flags for building library objects. -pic_flag=$lt_lt_prog_compiler_pic_CXX -pic_mode=$pic_mode - -# What is the maximum length of a command? -max_cmd_len=$lt_cv_sys_max_cmd_len - -# Does compiler simultaneously support -c and -o options? -compiler_c_o=$lt_lt_cv_prog_compiler_c_o_CXX - -# Must we lock files when doing compilation? -need_locks=$lt_need_locks - -# 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 - -# 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 - -# Compiler flag to prevent dynamic linking. -link_static_flag=$lt_lt_prog_compiler_static_CXX - -# Compiler flag to turn off builtin functions. -no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag_CXX - -# Compiler flag to allow reflexive dlopens. -export_dynamic_flag_spec=$lt_export_dynamic_flag_spec_CXX - -# Compiler flag to generate shared objects directly from archives. -whole_archive_flag_spec=$lt_whole_archive_flag_spec_CXX - -# Compiler flag to generate thread-safe objects. -thread_safe_flag_spec=$lt_thread_safe_flag_spec_CXX - -# Library versioning type. -version_type=$version_type - -# 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 - -# Commands used to build and install an old-style archive. -RANLIB=$lt_RANLIB -old_archive_cmds=$lt_old_archive_cmds_CXX -old_postinstall_cmds=$lt_old_postinstall_cmds -old_postuninstall_cmds=$lt_old_postuninstall_cmds - -# Create an old-style archive from a shared archive. -old_archive_from_new_cmds=$lt_old_archive_from_new_cmds_CXX - -# Create a temporary old-style archive to link instead of a shared archive. -old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds_CXX - -# Commands used to build and install a shared archive. -archive_cmds=$lt_archive_cmds_CXX -archive_expsym_cmds=$lt_archive_expsym_cmds_CXX -postinstall_cmds=$lt_postinstall_cmds -postuninstall_cmds=$lt_postuninstall_cmds - -# Commands used to build a loadable module (assumed same as above if empty) -module_cmds=$lt_module_cmds_CXX -module_expsym_cmds=$lt_module_expsym_cmds_CXX - -# Commands to strip libraries. -old_striplib=$lt_old_striplib -striplib=$lt_striplib - -# Dependencies to place before the objects being linked to create a -# shared library. -predep_objects=\`echo $lt_predep_objects_CXX | \$SED -e "s@\${gcc_dir}@\\\${gcc_dir}@g;s@\${gcc_ver}@\\\${gcc_ver}@g"\` - -# Dependencies to place after the objects being linked to create a -# shared library. -postdep_objects=\`echo $lt_postdep_objects_CXX | \$SED -e "s@\${gcc_dir}@\\\${gcc_dir}@g;s@\${gcc_ver}@\\\${gcc_ver}@g"\` - -# Dependencies to place before the objects being linked to create a -# shared library. -predeps=$lt_predeps_CXX - -# Dependencies to place after the objects being linked to create a -# shared library. -postdeps=$lt_postdeps_CXX - -# The library search path used internally by the compiler when linking -# a shared library. -compiler_lib_search_path=\`echo $lt_compiler_lib_search_path_CXX | \$SED -e "s@\${gcc_dir}@\\\${gcc_dir}@g;s@\${gcc_ver}@\\\${gcc_ver}@g"\` - -# 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 - -# Flag that allows shared libraries with undefined symbols to be built. -allow_undefined_flag=$lt_allow_undefined_flag_CXX - -# Flag that forces no undefined symbols. -no_undefined_flag=$lt_no_undefined_flag_CXX - -# Commands used to finish a libtool library installation in a directory. -finish_cmds=$lt_finish_cmds - -# Same as above, but a single script fragment to be evaled but not shown. -finish_eval=$lt_finish_eval - -# 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 - -# This is the shared library runtime path variable. -runpath_var=$runpath_var - -# This is the shared library path variable. -shlibpath_var=$shlibpath_var - -# Is shlibpath searched before the hard-coded library search path? -shlibpath_overrides_runpath=$shlibpath_overrides_runpath - -# How to hardcode a shared library path into an executable. -hardcode_action=$hardcode_action_CXX - -# Whether we should hardcode library paths into libraries. -hardcode_into_libs=$hardcode_into_libs - -# 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_CXX - -# If ld is used when linking, flag to hardcode \$libdir into -# a binary during linking. This must work even if \$libdir does -# not exist. -hardcode_libdir_flag_spec_ld=$lt_hardcode_libdir_flag_spec_ld_CXX - -# Whether we need a single -rpath flag with a separated argument. -hardcode_libdir_separator=$lt_hardcode_libdir_separator_CXX - -# Set to yes if using DIR/libNAME${shared_ext} during linking hardcodes DIR into the -# resulting binary. -hardcode_direct=$hardcode_direct_CXX - -# Set to yes if using the -LDIR flag during linking hardcodes DIR into the -# resulting binary. -hardcode_minus_L=$hardcode_minus_L_CXX - -# Set to yes if using SHLIBPATH_VAR=DIR during linking hardcodes DIR into -# the resulting binary. -hardcode_shlibpath_var=$hardcode_shlibpath_var_CXX - -# 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_CXX - -# Variables whose values should be saved in libtool wrapper scripts and -# restored at relink time. -variables_saved_for_relink="$variables_saved_for_relink" - -# Whether libtool must link a program against all its dependency libraries. -link_all_deplibs=$link_all_deplibs_CXX - -# Compile-time system search path for libraries -sys_lib_search_path_spec=\`echo $lt_sys_lib_search_path_spec | \$SED -e "s@\${gcc_dir}@\\\${gcc_dir}@g;s@\${gcc_ver}@\\\${gcc_ver}@g"\` - -# Run-time system search path for libraries -sys_lib_dlsearch_path_spec=$lt_sys_lib_dlsearch_path_spec - -# Fix the shell variable \$srcfile for the compiler. -fix_srcfile_path="$fix_srcfile_path_CXX" - -# Set to yes if exported symbols are required. -always_export_symbols=$always_export_symbols_CXX - -# The commands to list exported symbols. -export_symbols_cmds=$lt_export_symbols_cmds_CXX - -# The commands to extract the exported symbol list from a shared archive. -extract_expsyms_cmds=$lt_extract_expsyms_cmds - -# Symbols that should not be listed in the preloaded symbols. -exclude_expsyms=$lt_exclude_expsyms_CXX - -# Symbols that must always be exported. -include_expsyms=$lt_include_expsyms_CXX - -# ### END LIBTOOL TAG CONFIG: $tagname - -__EOF__ - - -else - # If there is no Makefile yet, we rely on a make rule to execute - # `config.status --recheck' to rerun these tests and create the - # libtool script then. - ltmain_in=`echo $ltmain | sed -e 's/\.sh$/.in/'` - if test -f "$ltmain_in"; then - test -f Makefile && make "$ltmain" - fi -fi - - -ac_ext=c -ac_cpp='$CPP $CPPFLAGS' -ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' -ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' -ac_compiler_gnu=$ac_cv_c_compiler_gnu - -CC=$lt_save_CC -LDCXX=$LD -LD=$lt_save_LD -GCC=$lt_save_GCC -with_gnu_ldcxx=$with_gnu_ld -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 - - else - tagname="" - fi - ;; - - F77) - if test -n "$F77" && test "X$F77" != "Xno"; then - -ac_ext=f -ac_compile='$F77 -c $FFLAGS conftest.$ac_ext >&5' -ac_link='$F77 -o conftest$ac_exeext $FFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' -ac_compiler_gnu=$ac_cv_f77_compiler_gnu - - -archive_cmds_need_lc_F77=no -allow_undefined_flag_F77= -always_export_symbols_F77=no -archive_expsym_cmds_F77= -export_dynamic_flag_spec_F77= -hardcode_direct_F77=no -hardcode_libdir_flag_spec_F77= -hardcode_libdir_flag_spec_ld_F77= -hardcode_libdir_separator_F77= -hardcode_minus_L_F77=no -hardcode_automatic_F77=no -module_cmds_F77= -module_expsym_cmds_F77= -link_all_deplibs_F77=unknown -old_archive_cmds_F77=$old_archive_cmds -no_undefined_flag_F77= -whole_archive_flag_spec_F77= -enable_shared_with_static_runtimes_F77=no - -# Source file extension for f77 test sources. -ac_ext=f - -# Object file extension for compiled f77 test sources. -objext=o -objext_F77=$objext - -# Code to be used in simple compile tests -lt_simple_compile_test_code=" subroutine t\n return\n end\n" - -# Code to be used in simple link tests -lt_simple_link_test_code=" program t\n end\n" - -# ltmain only uses $CC for tagged configurations so make sure $CC is set. - -# 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 warnings/boilerplate of simple test code -ac_outfile=conftest.$ac_objext -printf "$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 -printf "$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 conftest* - - -# Allow CC to be a program name with arguments. -lt_save_CC="$CC" -CC=${F77-"f77"} -compiler=$CC -compiler_F77=$CC -for cc_temp in $compiler""; do - case $cc_temp in - compile | *[\\/]compile | ccache | *[\\/]ccache ) ;; - distcc | *[\\/]distcc | purify | *[\\/]purify ) ;; - \-*) ;; - *) break;; - esac -done -cc_basename=`$echo "X$cc_temp" | $Xsed -e 's%.*/%%' -e "s%^$host_alias-%%"` - - -{ $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 - ;; -aix4* | aix5*) - 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; } - -GCC_F77="$G77" -LD_F77="$LD" - -lt_prog_compiler_wl_F77= -lt_prog_compiler_pic_F77= -lt_prog_compiler_static_F77= - -{ $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 test "$GCC" = yes; then - lt_prog_compiler_wl_F77='-Wl,' - lt_prog_compiler_static_F77='-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_F77='-Bstatic' - fi - ;; - - amigaos*) - # 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_F77='-m68020 -resident32 -malways-restore-a4' - ;; - - beos* | cygwin* | irix5* | irix6* | nonstopux* | osf3* | osf4* | osf5*) - # PIC is the default for these OSes. - ;; - - mingw* | pw32* | os2*) - # 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_F77='-DDLL_EXPORT' - ;; - - darwin* | rhapsody*) - # PIC is the default on this platform - # Common symbols not allowed in MH_DYLIB files - lt_prog_compiler_pic_F77='-fno-common' - ;; - - interix3*) - # 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_F77=no - enable_shared=no - ;; - - sysv4*MP*) - if test -d /usr/nec; then - lt_prog_compiler_pic_F77=-Kconform_pic - fi - ;; - - hpux*) - # 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_F77='-fPIC' - ;; - esac - ;; - - *) - lt_prog_compiler_pic_F77='-fPIC' - ;; - esac - else - # PORTME Check for flag to pass linker flags through the system compiler. - case $host_os in - aix*) - lt_prog_compiler_wl_F77='-Wl,' - if test "$host_cpu" = ia64; then - # AIX 5 now supports IA64 processor - lt_prog_compiler_static_F77='-Bstatic' - else - lt_prog_compiler_static_F77='-bnso -bI:/lib/syscalls.exp' - fi - ;; - darwin*) - # PIC is the default on this platform - # Common symbols not allowed in MH_DYLIB files - case $cc_basename in - xlc*) - lt_prog_compiler_pic_F77='-qnocommon' - lt_prog_compiler_wl_F77='-Wl,' - ;; - esac - ;; - - mingw* | pw32* | os2*) - # 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_F77='-DDLL_EXPORT' - ;; - - hpux9* | hpux10* | hpux11*) - lt_prog_compiler_wl_F77='-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_F77='+Z' - ;; - esac - # Is there a better lt_prog_compiler_static that works with the bundled CC? - lt_prog_compiler_static_F77='${wl}-a ${wl}archive' - ;; - - irix5* | irix6* | nonstopux*) - lt_prog_compiler_wl_F77='-Wl,' - # PIC (with -KPIC) is the default. - lt_prog_compiler_static_F77='-non_shared' - ;; - - newsos6) - lt_prog_compiler_pic_F77='-KPIC' - lt_prog_compiler_static_F77='-Bstatic' - ;; - - linux*) - case $cc_basename in - icc* | ecc*) - lt_prog_compiler_wl_F77='-Wl,' - lt_prog_compiler_pic_F77='-KPIC' - lt_prog_compiler_static_F77='-static' - ;; - pgcc* | pgf77* | pgf90* | pgf95*) - # Portland Group compilers (*not* the Pentium gcc compiler, - # which looks to be a dead project) - lt_prog_compiler_wl_F77='-Wl,' - lt_prog_compiler_pic_F77='-fpic' - lt_prog_compiler_static_F77='-Bstatic' - ;; - ccc*) - lt_prog_compiler_wl_F77='-Wl,' - # All Alpha code is PIC. - lt_prog_compiler_static_F77='-non_shared' - ;; - esac - ;; - - osf3* | osf4* | osf5*) - lt_prog_compiler_wl_F77='-Wl,' - # All OSF/1 code is PIC. - lt_prog_compiler_static_F77='-non_shared' - ;; - - solaris*) - lt_prog_compiler_pic_F77='-KPIC' - lt_prog_compiler_static_F77='-Bstatic' - case $cc_basename in - f77* | f90* | f95*) - lt_prog_compiler_wl_F77='-Qoption ld ';; - *) - lt_prog_compiler_wl_F77='-Wl,';; - esac - ;; - - sunos4*) - lt_prog_compiler_wl_F77='-Qoption ld ' - lt_prog_compiler_pic_F77='-PIC' - lt_prog_compiler_static_F77='-Bstatic' - ;; - - sysv4 | sysv4.2uw2* | sysv4.3*) - lt_prog_compiler_wl_F77='-Wl,' - lt_prog_compiler_pic_F77='-KPIC' - lt_prog_compiler_static_F77='-Bstatic' - ;; - - sysv4*MP*) - if test -d /usr/nec ;then - lt_prog_compiler_pic_F77='-Kconform_pic' - lt_prog_compiler_static_F77='-Bstatic' - fi - ;; - - sysv5* | unixware* | sco3.2v5* | sco5v6* | OpenUNIX*) - lt_prog_compiler_wl_F77='-Wl,' - lt_prog_compiler_pic_F77='-KPIC' - lt_prog_compiler_static_F77='-Bstatic' - ;; - - unicos*) - lt_prog_compiler_wl_F77='-Wl,' - lt_prog_compiler_can_build_shared_F77=no - ;; - - uts4*) - lt_prog_compiler_pic_F77='-pic' - lt_prog_compiler_static_F77='-Bstatic' - ;; - - *) - lt_prog_compiler_can_build_shared_F77=no - ;; - esac - fi - -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_prog_compiler_pic_F77" >&5 -$as_echo "$lt_prog_compiler_pic_F77" >&6; } - -# -# Check to make sure the PIC flag actually works. -# -if test -n "$lt_prog_compiler_pic_F77"; then - -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler PIC flag $lt_prog_compiler_pic_F77 works" >&5 -$as_echo_n "checking if $compiler PIC flag $lt_prog_compiler_pic_F77 works... " >&6; } -if ${lt_prog_compiler_pic_works_F77+:} false; then : - $as_echo_n "(cached) " >&6 -else - lt_prog_compiler_pic_works_F77=no - ac_outfile=conftest.$ac_objext - printf "$lt_simple_compile_test_code" > conftest.$ac_ext - lt_compiler_flag="$lt_prog_compiler_pic_F77" - # 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:13505: $lt_compile\"" >&5) - (eval "$lt_compile" 2>conftest.err) - ac_status=$? - cat conftest.err >&5 - echo "$as_me:13509: \$? = $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 "X$_lt_compiler_boilerplate" | $Xsed -e '/^$/d' >conftest.exp - $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2 - if test ! -s conftest.er2 || diff conftest.exp conftest.er2 >/dev/null; then - lt_prog_compiler_pic_works_F77=yes - fi - fi - $rm conftest* - -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_prog_compiler_pic_works_F77" >&5 -$as_echo "$lt_prog_compiler_pic_works_F77" >&6; } - -if test x"$lt_prog_compiler_pic_works_F77" = xyes; then - case $lt_prog_compiler_pic_F77 in - "" | " "*) ;; - *) lt_prog_compiler_pic_F77=" $lt_prog_compiler_pic_F77" ;; - esac -else - lt_prog_compiler_pic_F77= - lt_prog_compiler_can_build_shared_F77=no -fi - -fi -case $host_os in - # For platforms which do not support PIC, -DPIC is meaningless: - *djgpp*) - lt_prog_compiler_pic_F77= - ;; - *) - lt_prog_compiler_pic_F77="$lt_prog_compiler_pic_F77" - ;; -esac - -# -# Check to make sure the static flag actually works. -# -wl=$lt_prog_compiler_wl_F77 eval lt_tmp_static_flag=\"$lt_prog_compiler_static_F77\" -{ $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_prog_compiler_static_works_F77+:} false; then : - $as_echo_n "(cached) " >&6 -else - lt_prog_compiler_static_works_F77=no - save_LDFLAGS="$LDFLAGS" - LDFLAGS="$LDFLAGS $lt_tmp_static_flag" - printf "$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 "X$_lt_linker_boilerplate" | $Xsed -e '/^$/d' > conftest.exp - $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2 - if diff conftest.exp conftest.er2 >/dev/null; then - lt_prog_compiler_static_works_F77=yes - fi - else - lt_prog_compiler_static_works_F77=yes - fi - fi - $rm conftest* - LDFLAGS="$save_LDFLAGS" - -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_prog_compiler_static_works_F77" >&5 -$as_echo "$lt_prog_compiler_static_works_F77" >&6; } - -if test x"$lt_prog_compiler_static_works_F77" = xyes; then - : -else - lt_prog_compiler_static_F77= -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_F77+:} false; then : - $as_echo_n "(cached) " >&6 -else - lt_cv_prog_compiler_c_o_F77=no - $rm -r conftest 2>/dev/null - mkdir conftest - cd conftest - mkdir out - printf "$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:13609: $lt_compile\"" >&5) - (eval "$lt_compile" 2>out/conftest.err) - ac_status=$? - cat out/conftest.err >&5 - echo "$as_me:13613: \$? = $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 "X$_lt_compiler_boilerplate" | $Xsed -e '/^$/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_F77=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 .. - rmdir conftest - $rm conftest* - -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_c_o_F77" >&5 -$as_echo "$lt_cv_prog_compiler_c_o_F77" >&6; } - - -hard_links="nottested" -if test "$lt_cv_prog_compiler_c_o_F77" = 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_F77= - enable_shared_with_static_runtimes_F77=no - archive_cmds_F77= - archive_expsym_cmds_F77= - old_archive_From_new_cmds_F77= - old_archive_from_expsyms_cmds_F77= - export_dynamic_flag_spec_F77= - whole_archive_flag_spec_F77= - thread_safe_flag_spec_F77= - hardcode_libdir_flag_spec_F77= - hardcode_libdir_flag_spec_ld_F77= - hardcode_libdir_separator_F77= - hardcode_direct_F77=no - hardcode_minus_L_F77=no - hardcode_shlibpath_var_F77=unsupported - link_all_deplibs_F77=unknown - hardcode_automatic_F77=no - module_cmds_F77= - module_expsym_cmds_F77= - always_export_symbols_F77=no - export_symbols_cmds_F77='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' - # include_expsyms should be a list of space-separated symbols to be *always* - # included in the symbol list - include_expsyms_F77= - # 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_F77="_GLOBAL_OFFSET_TABLE_" - # 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. - extract_expsyms_cmds= - # Just being paranoid about ensuring that cc_basename is set. - for cc_temp in $compiler""; do - case $cc_temp in - compile | *[\\/]compile | ccache | *[\\/]ccache ) ;; - distcc | *[\\/]distcc | purify | *[\\/]purify ) ;; - \-*) ;; - *) break;; - esac -done -cc_basename=`$echo "X$cc_temp" | $Xsed -e 's%.*/%%' -e "s%^$host_alias-%%"` - - case $host_os in - cygwin* | mingw* | pw32*) - # 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 - ;; - esac - - ld_shlibs_F77=yes - if test "$with_gnu_ld" = 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_F77='${wl}--rpath ${wl}$libdir' - export_dynamic_flag_spec_F77='${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_F77="$wlarc"'--whole-archive$convenience '"$wlarc"'--no-whole-archive' - else - whole_archive_flag_spec_F77= - fi - supports_anon_versioning=no - case `$LD -v 2>/dev/null` in - *\ [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 - aix3* | aix4* | aix5*) - # On AIX/PPC, the GNU linker is very broken - if test "$host_cpu" != ia64; then - ld_shlibs_F77=no - cat <&2 - -*** Warning: the GNU linker, at least up to release 2.9.1, 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 modify your PATH -*** so that a non-GNU linker is found, and then restart. - -EOF - fi - ;; - - amigaos*) - archive_cmds_F77='$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_F77='-L$libdir' - hardcode_minus_L_F77=yes - - # Samuel A. Falvo II reports - # that the semantics of dynamic libraries on AmigaOS, at least up - # to version 4, is to share data among multiple programs linked - # with the same dynamic library. Since this doesn't match the - # behavior of shared libraries on other platforms, we can't use - # them. - ld_shlibs_F77=no - ;; - - beos*) - if $LD --help 2>&1 | grep ': supported targets:.* elf' > /dev/null; then - allow_undefined_flag_F77=unsupported - # Joseph Beckenbach says some releases of gcc - # support --undefined. This deserves some investigation. FIXME - archive_cmds_F77='$CC -nostart $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' - else - ld_shlibs_F77=no - fi - ;; - - cygwin* | mingw* | pw32*) - # _LT_AC_TAGVAR(hardcode_libdir_flag_spec, F77) is actually meaningless, - # as there is no search path for DLLs. - hardcode_libdir_flag_spec_F77='-L$libdir' - allow_undefined_flag_F77=unsupported - always_export_symbols_F77=no - enable_shared_with_static_runtimes_F77=yes - export_symbols_cmds_F77='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[BCDGRS] /s/.* \([^ ]*\)/\1 DATA/'\'' | $SED -e '\''/^[AITW] /s/.* //'\'' | sort | uniq > $export_symbols' - - if $LD --help 2>&1 | grep 'auto-import' > /dev/null; then - archive_cmds_F77='$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_F77='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_F77=no - fi - ;; - - interix3*) - hardcode_direct_F77=no - hardcode_shlibpath_var_F77=no - hardcode_libdir_flag_spec_F77='${wl}-rpath,$libdir' - export_dynamic_flag_spec_F77='${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_F77='$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_F77='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' - ;; - - linux*) - if $LD --help 2>&1 | grep ': supported targets:.* elf' > /dev/null; then - tmp_addflag= - case $cc_basename,$host_cpu in - pgcc*) # Portland Group C compiler - whole_archive_flag_spec_F77='${wl}--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; $echo \"$new_convenience\"` ${wl}--no-whole-archive' - tmp_addflag=' $pic_flag' - ;; - pgf77* | pgf90* | pgf95*) # Portland Group f77 and f90 compilers - whole_archive_flag_spec_F77='${wl}--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; $echo \"$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' ;; - esac - archive_cmds_F77='$CC -shared'"$tmp_addflag"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' - - if test $supports_anon_versioning = yes; then - archive_expsym_cmds_F77='$echo "{ global:" > $output_objdir/$libname.ver~ - cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ - $echo "local: *; };" >> $output_objdir/$libname.ver~ - $CC -shared'"$tmp_addflag"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-version-script ${wl}$output_objdir/$libname.ver -o $lib' - fi - else - ld_shlibs_F77=no - fi - ;; - - netbsd*) - if echo __ELF__ | $CC -E - | grep __ELF__ >/dev/null; then - archive_cmds_F77='$LD -Bshareable $libobjs $deplibs $linker_flags -o $lib' - wlarc= - else - archive_cmds_F77='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' - archive_expsym_cmds_F77='$CC -shared $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_F77=no - cat <&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. - -EOF - elif $LD --help 2>&1 | grep ': supported targets:.* elf' > /dev/null; then - archive_cmds_F77='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' - archive_expsym_cmds_F77='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' - else - ld_shlibs_F77=no - fi - ;; - - sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX*) - case `$LD -v 2>&1` in - *\ [01].* | *\ 2.[0-9].* | *\ 2.1[0-5].*) - ld_shlibs_F77=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 - ;; - *) - if $LD --help 2>&1 | grep ': supported targets:.* elf' > /dev/null; then - hardcode_libdir_flag_spec_F77='`test -z "$SCOABSPATH" && echo ${wl}-rpath,$libdir`' - archive_cmds_F77='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname,\${SCOABSPATH:+${install_libdir}/}$soname -o $lib' - archive_expsym_cmds_F77='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname,\${SCOABSPATH:+${install_libdir}/}$soname,-retain-symbols-file,$export_symbols -o $lib' - else - ld_shlibs_F77=no - fi - ;; - esac - ;; - - sunos4*) - archive_cmds_F77='$LD -assert pure-text -Bshareable -o $lib $libobjs $deplibs $linker_flags' - wlarc= - hardcode_direct_F77=yes - hardcode_shlibpath_var_F77=no - ;; - - *) - if $LD --help 2>&1 | grep ': supported targets:.* elf' > /dev/null; then - archive_cmds_F77='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' - archive_expsym_cmds_F77='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' - else - ld_shlibs_F77=no - fi - ;; - esac - - if test "$ld_shlibs_F77" = no; then - runpath_var= - hardcode_libdir_flag_spec_F77= - export_dynamic_flag_spec_F77= - whole_archive_flag_spec_F77= - fi - else - # PORTME fill in a description of your system's linker (not GNU ld) - case $host_os in - aix3*) - allow_undefined_flag_F77=unsupported - always_export_symbols_F77=yes - archive_expsym_cmds_F77='$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_F77=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_F77=unsupported - fi - ;; - - aix4* | aix5*) - 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 - if $NM -V 2>&1 | grep 'GNU' > /dev/null; then - export_symbols_cmds_F77='$NM -Bpg $libobjs $convenience | awk '\''{ if (((\$2 == "T") || (\$2 == "D") || (\$2 == "B")) && (substr(\$3,1,1) != ".")) { print \$3 } }'\'' | sort -u > $export_symbols' - else - export_symbols_cmds_F77='$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].*|aix5*) - 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_F77='' - hardcode_direct_F77=yes - hardcode_libdir_separator_F77=':' - link_all_deplibs_F77=yes - - 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 - hardcode_direct_F77=yes - else - # We have old collect2 - hardcode_direct_F77=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_F77=yes - hardcode_libdir_flag_spec_F77='-L$libdir' - hardcode_libdir_separator_F77= - 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 - - # 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_F77=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_F77='-berok' - # Determine the default libpath from the value encoded in an empty executable. - cat > conftest.$ac_ext <<_ACEOF - program main - - end -_ACEOF -if ac_fn_f77_try_link "$LINENO"; then : - -aix_libpath=`dump -H conftest$ac_exeext 2>/dev/null | $SED -n -e '/Import File Strings/,/^$/ { /^0/ { s/^0 *\(.*\)$/\1/; p; } -}'` -# Check for a 64-bit object if we didn't find anything. -if test -z "$aix_libpath"; then aix_libpath=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e '/Import File Strings/,/^$/ { /^0/ { s/^0 *\(.*\)$/\1/; p; } -}'`; fi -fi -rm -f core conftest.err conftest.$ac_objext \ - conftest$ac_exeext conftest.$ac_ext -if test -z "$aix_libpath"; then aix_libpath="/usr/lib:/lib"; fi - - hardcode_libdir_flag_spec_F77='${wl}-blibpath:$libdir:'"$aix_libpath" - archive_expsym_cmds_F77="\$CC"' -o $output_objdir/$soname $libobjs $deplibs '"\${wl}$no_entry_flag"' $compiler_flags `if test "x${allow_undefined_flag}" != "x"; then echo "${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_F77='${wl}-R $libdir:/usr/lib:/lib' - allow_undefined_flag_F77="-z nodefs" - archive_expsym_cmds_F77="\$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. - cat > conftest.$ac_ext <<_ACEOF - program main - - end -_ACEOF -if ac_fn_f77_try_link "$LINENO"; then : - -aix_libpath=`dump -H conftest$ac_exeext 2>/dev/null | $SED -n -e '/Import File Strings/,/^$/ { /^0/ { s/^0 *\(.*\)$/\1/; p; } -}'` -# Check for a 64-bit object if we didn't find anything. -if test -z "$aix_libpath"; then aix_libpath=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e '/Import File Strings/,/^$/ { /^0/ { s/^0 *\(.*\)$/\1/; p; } -}'`; fi -fi -rm -f core conftest.err conftest.$ac_objext \ - conftest$ac_exeext conftest.$ac_ext -if test -z "$aix_libpath"; then aix_libpath="/usr/lib:/lib"; fi - - hardcode_libdir_flag_spec_F77='${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_F77=' ${wl}-bernotok' - allow_undefined_flag_F77=' ${wl}-berok' - # Exported symbols can be pulled into shared objects from archives - whole_archive_flag_spec_F77='$convenience' - archive_cmds_need_lc_F77=yes - # This is similar to how AIX traditionally builds its shared libraries. - archive_expsym_cmds_F77="\$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*) - archive_cmds_F77='$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_F77='-L$libdir' - hardcode_minus_L_F77=yes - # see comment about different semantics on the GNU ld section - ld_shlibs_F77=no - ;; - - bsdi[45]*) - export_dynamic_flag_spec_F77=-rdynamic - ;; - - cygwin* | mingw* | pw32*) - # 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. - hardcode_libdir_flag_spec_F77=' ' - allow_undefined_flag_F77=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_F77='$CC -o $lib $libobjs $compiler_flags `echo "$deplibs" | $SED -e '\''s/ -lc$//'\''` -link -dll~linknames=' - # The linker will automatically build a .lib file if we build a DLL. - old_archive_From_new_cmds_F77='true' - # FIXME: Should let the user specify the lib program. - old_archive_cmds_F77='lib /OUT:$oldlib$oldobjs$old_deplibs' - fix_srcfile_path_F77='`cygpath -w "$srcfile"`' - enable_shared_with_static_runtimes_F77=yes - ;; - - darwin* | rhapsody*) - case $host_os in - rhapsody* | darwin1.[012]) - allow_undefined_flag_F77='${wl}-undefined ${wl}suppress' - ;; - *) # Darwin 1.3 on - if test -z ${MACOSX_DEPLOYMENT_TARGET} ; then - allow_undefined_flag_F77='${wl}-flat_namespace ${wl}-undefined ${wl}suppress' - else - case ${MACOSX_DEPLOYMENT_TARGET} in - 10.[012]) - allow_undefined_flag_F77='${wl}-flat_namespace ${wl}-undefined ${wl}suppress' - ;; - 10.*) - allow_undefined_flag_F77='${wl}-undefined ${wl}dynamic_lookup' - ;; - esac - fi - ;; - esac - archive_cmds_need_lc_F77=no - hardcode_direct_F77=no - hardcode_automatic_F77=yes - hardcode_shlibpath_var_F77=unsupported - whole_archive_flag_spec_F77='' - link_all_deplibs_F77=yes - if test "$GCC" = yes ; then - output_verbose_link_cmd='echo' - archive_cmds_F77='$CC -dynamiclib $allow_undefined_flag -o $lib $libobjs $deplibs $compiler_flags -install_name $rpath/$soname $verstring' - module_cmds_F77='$CC $allow_undefined_flag -o $lib -bundle $libobjs $deplibs$compiler_flags' - # Don't fix this by using the ld -exported_symbols_list flag, it doesn't exist in older darwin lds - archive_expsym_cmds_F77='sed -e "s,#.*,," -e "s,^[ ]*,," -e "s,^\(..*\),_&," < $export_symbols > $output_objdir/${libname}-symbols.expsym~$CC -dynamiclib $allow_undefined_flag -o $lib $libobjs $deplibs $compiler_flags -install_name $rpath/$soname $verstring~nmedit -s $output_objdir/${libname}-symbols.expsym ${lib}' - module_expsym_cmds_F77='sed -e "s,#.*,," -e "s,^[ ]*,," -e "s,^\(..*\),_&," < $export_symbols > $output_objdir/${libname}-symbols.expsym~$CC $allow_undefined_flag -o $lib -bundle $libobjs $deplibs$compiler_flags~nmedit -s $output_objdir/${libname}-symbols.expsym ${lib}' - else - case $cc_basename in - xlc*) - output_verbose_link_cmd='echo' - archive_cmds_F77='$CC -qmkshrobj $allow_undefined_flag -o $lib $libobjs $deplibs $compiler_flags ${wl}-install_name ${wl}`echo $rpath/$soname` $verstring' - module_cmds_F77='$CC $allow_undefined_flag -o $lib -bundle $libobjs $deplibs$compiler_flags' - # Don't fix this by using the ld -exported_symbols_list flag, it doesn't exist in older darwin lds - archive_expsym_cmds_F77='sed -e "s,#.*,," -e "s,^[ ]*,," -e "s,^\(..*\),_&," < $export_symbols > $output_objdir/${libname}-symbols.expsym~$CC -qmkshrobj $allow_undefined_flag -o $lib $libobjs $deplibs $compiler_flags ${wl}-install_name ${wl}$rpath/$soname $verstring~nmedit -s $output_objdir/${libname}-symbols.expsym ${lib}' - module_expsym_cmds_F77='sed -e "s,#.*,," -e "s,^[ ]*,," -e "s,^\(..*\),_&," < $export_symbols > $output_objdir/${libname}-symbols.expsym~$CC $allow_undefined_flag -o $lib -bundle $libobjs $deplibs$compiler_flags~nmedit -s $output_objdir/${libname}-symbols.expsym ${lib}' - ;; - *) - ld_shlibs_F77=no - ;; - esac - fi - ;; - - dgux*) - archive_cmds_F77='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' - hardcode_libdir_flag_spec_F77='-L$libdir' - hardcode_shlibpath_var_F77=no - ;; - - freebsd1*) - ld_shlibs_F77=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_F77='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags /usr/lib/c++rt0.o' - hardcode_libdir_flag_spec_F77='-R$libdir' - hardcode_direct_F77=yes - hardcode_shlibpath_var_F77=no - ;; - - # Unfortunately, older versions of FreeBSD 2 do not have this feature. - freebsd2*) - archive_cmds_F77='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' - hardcode_direct_F77=yes - hardcode_minus_L_F77=yes - hardcode_shlibpath_var_F77=no - ;; - - # FreeBSD 3 and greater uses gcc -shared to do shared libraries. - freebsd* | kfreebsd*-gnu | dragonfly*) - archive_cmds_F77='$CC -shared -o $lib $libobjs $deplibs $compiler_flags' - hardcode_libdir_flag_spec_F77='-R$libdir' - hardcode_direct_F77=yes - hardcode_shlibpath_var_F77=no - ;; - - hpux9*) - if test "$GCC" = yes; then - archive_cmds_F77='$rm $output_objdir/$soname~$CC -shared -fPIC ${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_F77='$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_F77='${wl}+b ${wl}$libdir' - hardcode_libdir_separator_F77=: - hardcode_direct_F77=yes - - # hardcode_minus_L: Not really in the search PATH, - # but as the default location of the library. - hardcode_minus_L_F77=yes - export_dynamic_flag_spec_F77='${wl}-E' - ;; - - hpux10*) - if test "$GCC" = yes -a "$with_gnu_ld" = no; then - archive_cmds_F77='$CC -shared -fPIC ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $libobjs $deplibs $compiler_flags' - else - archive_cmds_F77='$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_F77='${wl}+b ${wl}$libdir' - hardcode_libdir_separator_F77=: - - hardcode_direct_F77=yes - export_dynamic_flag_spec_F77='${wl}-E' - - # hardcode_minus_L: Not really in the search PATH, - # but as the default location of the library. - hardcode_minus_L_F77=yes - fi - ;; - - hpux11*) - if test "$GCC" = yes -a "$with_gnu_ld" = no; then - case $host_cpu in - hppa*64*) - archive_cmds_F77='$CC -shared ${wl}+h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags' - ;; - ia64*) - archive_cmds_F77='$CC -shared ${wl}+h ${wl}$soname ${wl}+nodefaultrpath -o $lib $libobjs $deplibs $compiler_flags' - ;; - *) - archive_cmds_F77='$CC -shared -fPIC ${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_F77='$CC -b ${wl}+h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags' - ;; - ia64*) - archive_cmds_F77='$CC -b ${wl}+h ${wl}$soname ${wl}+nodefaultrpath -o $lib $libobjs $deplibs $compiler_flags' - ;; - *) - archive_cmds_F77='$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 - hardcode_libdir_flag_spec_F77='${wl}+b ${wl}$libdir' - hardcode_libdir_separator_F77=: - - case $host_cpu in - hppa*64*|ia64*) - hardcode_libdir_flag_spec_ld_F77='+b $libdir' - hardcode_direct_F77=no - hardcode_shlibpath_var_F77=no - ;; - *) - hardcode_direct_F77=yes - export_dynamic_flag_spec_F77='${wl}-E' - - # hardcode_minus_L: Not really in the search PATH, - # but as the default location of the library. - hardcode_minus_L_F77=yes - ;; - esac - fi - ;; - - irix5* | irix6* | nonstopux*) - if test "$GCC" = yes; then - archive_cmds_F77='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && echo ${wl}-set_version ${wl}$verstring` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' - else - archive_cmds_F77='$LD -shared $libobjs $deplibs $linker_flags -soname $soname `test -n "$verstring" && echo -set_version $verstring` -update_registry ${output_objdir}/so_locations -o $lib' - hardcode_libdir_flag_spec_ld_F77='-rpath $libdir' - fi - hardcode_libdir_flag_spec_F77='${wl}-rpath ${wl}$libdir' - hardcode_libdir_separator_F77=: - link_all_deplibs_F77=yes - ;; - - netbsd*) - if echo __ELF__ | $CC -E - | grep __ELF__ >/dev/null; then - archive_cmds_F77='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' # a.out - else - archive_cmds_F77='$LD -shared -o $lib $libobjs $deplibs $linker_flags' # ELF - fi - hardcode_libdir_flag_spec_F77='-R$libdir' - hardcode_direct_F77=yes - hardcode_shlibpath_var_F77=no - ;; - - newsos6) - archive_cmds_F77='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' - hardcode_direct_F77=yes - hardcode_libdir_flag_spec_F77='${wl}-rpath ${wl}$libdir' - hardcode_libdir_separator_F77=: - hardcode_shlibpath_var_F77=no - ;; - - openbsd*) - hardcode_direct_F77=yes - hardcode_shlibpath_var_F77=no - if test -z "`echo __ELF__ | $CC -E - | grep __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then - archive_cmds_F77='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags' - archive_expsym_cmds_F77='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags ${wl}-retain-symbols-file,$export_symbols' - hardcode_libdir_flag_spec_F77='${wl}-rpath,$libdir' - export_dynamic_flag_spec_F77='${wl}-E' - else - case $host_os in - openbsd[01].* | openbsd2.[0-7] | openbsd2.[0-7].*) - archive_cmds_F77='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' - hardcode_libdir_flag_spec_F77='-R$libdir' - ;; - *) - archive_cmds_F77='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags' - hardcode_libdir_flag_spec_F77='${wl}-rpath,$libdir' - ;; - esac - fi - ;; - - os2*) - hardcode_libdir_flag_spec_F77='-L$libdir' - hardcode_minus_L_F77=yes - allow_undefined_flag_F77=unsupported - archive_cmds_F77='$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_F77='emximp -o $output_objdir/$libname.a $output_objdir/$libname.def' - ;; - - osf3*) - if test "$GCC" = yes; then - allow_undefined_flag_F77=' ${wl}-expect_unresolved ${wl}\*' - archive_cmds_F77='$CC -shared${allow_undefined_flag} $libobjs $deplibs $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && echo ${wl}-set_version ${wl}$verstring` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' - else - allow_undefined_flag_F77=' -expect_unresolved \*' - archive_cmds_F77='$LD -shared${allow_undefined_flag} $libobjs $deplibs $linker_flags -soname $soname `test -n "$verstring" && echo -set_version $verstring` -update_registry ${output_objdir}/so_locations -o $lib' - fi - hardcode_libdir_flag_spec_F77='${wl}-rpath ${wl}$libdir' - hardcode_libdir_separator_F77=: - ;; - - osf4* | osf5*) # as osf3* with the addition of -msym flag - if test "$GCC" = yes; then - allow_undefined_flag_F77=' ${wl}-expect_unresolved ${wl}\*' - archive_cmds_F77='$CC -shared${allow_undefined_flag} $libobjs $deplibs $compiler_flags ${wl}-msym ${wl}-soname ${wl}$soname `test -n "$verstring" && echo ${wl}-set_version ${wl}$verstring` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' - hardcode_libdir_flag_spec_F77='${wl}-rpath ${wl}$libdir' - else - allow_undefined_flag_F77=' -expect_unresolved \*' - archive_cmds_F77='$LD -shared${allow_undefined_flag} $libobjs $deplibs $linker_flags -msym -soname $soname `test -n "$verstring" && echo -set_version $verstring` -update_registry ${output_objdir}/so_locations -o $lib' - archive_expsym_cmds_F77='for i in `cat $export_symbols`; do printf "%s %s\\n" -exported_symbol "\$i" >> $lib.exp; done; echo "-hidden">> $lib.exp~ - $LD -shared${allow_undefined_flag} -input $lib.exp $linker_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_F77='-rpath $libdir' - fi - hardcode_libdir_separator_F77=: - ;; - - solaris*) - no_undefined_flag_F77=' -z text' - if test "$GCC" = yes; then - wlarc='${wl}' - archive_cmds_F77='$CC -shared ${wl}-h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags' - archive_expsym_cmds_F77='$echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~$echo "local: *; };" >> $lib.exp~ - $CC -shared ${wl}-M ${wl}$lib.exp ${wl}-h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags~$rm $lib.exp' - else - wlarc='' - archive_cmds_F77='$LD -G${allow_undefined_flag} -h $soname -o $lib $libobjs $deplibs $linker_flags' - archive_expsym_cmds_F77='$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' - fi - hardcode_libdir_flag_spec_F77='-R$libdir' - hardcode_shlibpath_var_F77=no - case $host_os in - solaris2.[0-5] | solaris2.[0-5].*) ;; - *) - # The compiler driver will combine linker options so we - # cannot just pass the convience library names through - # without $wl, iff we do not link with $LD. - # Luckily, gcc supports the same syntax we need for Sun Studio. - # Supported since Solaris 2.6 (maybe 2.5.1?) - case $wlarc in - '') - whole_archive_flag_spec_F77='-z allextract$convenience -z defaultextract' ;; - *) - whole_archive_flag_spec_F77='${wl}-z ${wl}allextract`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; $echo \"$new_convenience\"` ${wl}-z ${wl}defaultextract' ;; - esac ;; - esac - link_all_deplibs_F77=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_F77='$CC -G ${wl}-h $soname -o $lib $libobjs $deplibs $compiler_flags' - else - archive_cmds_F77='$LD -assert pure-text -Bstatic -o $lib $libobjs $deplibs $linker_flags' - fi - hardcode_libdir_flag_spec_F77='-L$libdir' - hardcode_direct_F77=yes - hardcode_minus_L_F77=yes - hardcode_shlibpath_var_F77=no - ;; - - sysv4) - case $host_vendor in - sni) - archive_cmds_F77='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' - hardcode_direct_F77=yes # is this really true??? - ;; - siemens) - ## LD is ld it makes a PLAMLIB - ## CC just makes a GrossModule. - archive_cmds_F77='$LD -G -o $lib $libobjs $deplibs $linker_flags' - reload_cmds_F77='$CC -r -o $output$reload_objs' - hardcode_direct_F77=no - ;; - motorola) - archive_cmds_F77='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' - hardcode_direct_F77=no #Motorola manual says yes, but my tests say they lie - ;; - esac - runpath_var='LD_RUN_PATH' - hardcode_shlibpath_var_F77=no - ;; - - sysv4.3*) - archive_cmds_F77='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' - hardcode_shlibpath_var_F77=no - export_dynamic_flag_spec_F77='-Bexport' - ;; - - sysv4*MP*) - if test -d /usr/nec; then - archive_cmds_F77='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' - hardcode_shlibpath_var_F77=no - runpath_var=LD_RUN_PATH - hardcode_runpath_var=yes - ld_shlibs_F77=yes - fi - ;; - - sysv4*uw2* | sysv5OpenUNIX* | sysv5UnixWare7.[01].[10]* | unixware7*) - no_undefined_flag_F77='${wl}-z,text' - archive_cmds_need_lc_F77=no - hardcode_shlibpath_var_F77=no - runpath_var='LD_RUN_PATH' - - if test "$GCC" = yes; then - archive_cmds_F77='$CC -shared ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' - archive_expsym_cmds_F77='$CC -shared ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' - else - archive_cmds_F77='$CC -G ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' - archive_expsym_cmds_F77='$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_F77='${wl}-z,text' - allow_undefined_flag_F77='${wl}-z,nodefs' - archive_cmds_need_lc_F77=no - hardcode_shlibpath_var_F77=no - hardcode_libdir_flag_spec_F77='`test -z "$SCOABSPATH" && echo ${wl}-R,$libdir`' - hardcode_libdir_separator_F77=':' - link_all_deplibs_F77=yes - export_dynamic_flag_spec_F77='${wl}-Bexport' - runpath_var='LD_RUN_PATH' - - if test "$GCC" = yes; then - archive_cmds_F77='$CC -shared ${wl}-h,\${SCOABSPATH:+${install_libdir}/}$soname -o $lib $libobjs $deplibs $compiler_flags' - archive_expsym_cmds_F77='$CC -shared ${wl}-Bexport:$export_symbols ${wl}-h,\${SCOABSPATH:+${install_libdir}/}$soname -o $lib $libobjs $deplibs $compiler_flags' - else - archive_cmds_F77='$CC -G ${wl}-h,\${SCOABSPATH:+${install_libdir}/}$soname -o $lib $libobjs $deplibs $compiler_flags' - archive_expsym_cmds_F77='$CC -G ${wl}-Bexport:$export_symbols ${wl}-h,\${SCOABSPATH:+${install_libdir}/}$soname -o $lib $libobjs $deplibs $compiler_flags' - fi - ;; - - uts4*) - archive_cmds_F77='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' - hardcode_libdir_flag_spec_F77='-L$libdir' - hardcode_shlibpath_var_F77=no - ;; - - *) - ld_shlibs_F77=no - ;; - esac - fi - -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ld_shlibs_F77" >&5 -$as_echo "$ld_shlibs_F77" >&6; } -test "$ld_shlibs_F77" = no && can_build_shared=no - -# -# Do we need to explicitly link libc? -# -case "x$archive_cmds_need_lc_F77" in -x|xyes) - # Assume -lc should be added - archive_cmds_need_lc_F77=yes - - if test "$enable_shared" = yes && test "$GCC" = yes; then - case $archive_cmds_F77 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; } - $rm conftest* - printf "$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_F77 - pic_flag=$lt_prog_compiler_pic_F77 - compiler_flags=-v - linker_flags=-v - verstring= - output_objdir=. - libname=conftest - lt_save_allow_undefined_flag=$allow_undefined_flag_F77 - allow_undefined_flag_F77= - if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$archive_cmds_F77 2\>\&1 \| grep \" -lc \" \>/dev/null 2\>\&1\""; } >&5 - (eval $archive_cmds_F77 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 - archive_cmds_need_lc_F77=no - else - archive_cmds_need_lc_F77=yes - fi - allow_undefined_flag_F77=$lt_save_allow_undefined_flag - else - cat conftest.err 1>&5 - fi - $rm conftest* - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $archive_cmds_need_lc_F77" >&5 -$as_echo "$archive_cmds_need_lc_F77" >&6; } - ;; - esac - fi - ;; -esac - -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking dynamic linker characteristics" >&5 -$as_echo_n "checking dynamic linker characteristics... " >&6; } -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" -if test "$GCC" = yes; then - sys_lib_search_path_spec=`$CC -print-search-dirs | grep "^libraries:" | $SED -e "s/^libraries://" -e "s,=/,/,g"` - if echo "$sys_lib_search_path_spec" | grep ';' >/dev/null ; then - # 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. - 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 -else - sys_lib_search_path_spec="/lib /usr/lib /usr/local/lib" -fi -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 - 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' - ;; - -aix4* | aix5*) - version_type=linux - 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*) - 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=`$echo "X$lib" | $Xsed -e '\''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' - ;; - -beos*) - library_names_spec='${libname}${shared_ext}' - dynamic_linker="$host_os ld.so" - shlibpath_var=LIBRARY_PATH - ;; - -bsdi[45]*) - version_type=linux - 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*) - version_type=windows - shrext_cmds=".dll" - need_version=no - need_lib_prefix=no - - case $GCC,$host_os in - yes,cygwin* | yes,mingw* | yes,pw32*) - 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' - 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="/usr/lib /lib/w32api /lib /usr/local/lib" - ;; - mingw*) - # MinGW DLLs use traditional 'lib' prefix - soname_spec='${libname}`echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext}' - sys_lib_search_path_spec=`$CC -print-search-dirs | grep "^libraries:" | $SED -e "s/^libraries://" -e "s,=/,/,g"` - if echo "$sys_lib_search_path_spec" | grep ';[c-zC-Z]:/' >/dev/null; then - # It is most probably a Windows format PATH printed by - # mingw gcc, but we are running on Cygwin. Gcc prints its search - # path with ; separators, and with drive letters. We can handle the - # drive letters (cygwin fileutils understands them), so leave them, - # especially as we might pass files found there to a mingw objdump, - # which wouldn't understand a cygwinified path. Ahh. - 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 - ;; - 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 - ;; - - *) - library_names_spec='${libname}`echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext} $libname.lib' - ;; - esac - dynamic_linker='Win32 ld.exe' - # 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}${versuffix}$shared_ext ${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`' - # Apple's gcc prints 'gcc -print-search-dirs' doesn't operate the same. - if test "$GCC" = yes; then - sys_lib_search_path_spec=`$CC -print-search-dirs | tr "\n" "$PATH_SEPARATOR" | sed -e 's/libraries:/@libraries:/' | tr "@" "\n" | grep "^libraries:" | sed -e "s/^libraries://" -e "s,=/,/,g" -e "s,$PATH_SEPARATOR, ,g" -e "s,.*,& /lib /usr/lib /usr/local/lib,g"` - else - sys_lib_search_path_spec='/lib /usr/lib /usr/local/lib' - fi - sys_lib_dlsearch_path_spec='/usr/local/lib /lib /usr/lib' - ;; - -dgux*) - 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 - ;; - -freebsd1*) - dynamic_linker=no - ;; - -kfreebsd*-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='GNU ld.so' - ;; - -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[123]*) 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 - ;; - freebsd*) # from 4.6 on - shlibpath_overrides_runpath=yes - hardcode_into_libs=yes - ;; - esac - ;; - -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 - 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' - ;; - -interix3*) - 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' - 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 - 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 Linux ELF. -linux*) - 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' - finish_cmds='PATH="\$PATH:/sbin" ldconfig -n $libdir' - shlibpath_var=LD_LIBRARY_PATH - shlibpath_overrides_runpath=no - # 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 - - # find out which ABI we are using - libsuff= - case "$host_cpu" in - x86_64*|s390x*|powerpc64*) - echo '#line 15008 "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 - case `/usr/bin/file conftest.$ac_objext` in - *64-bit*) - libsuff=64 - sys_lib_search_path_spec="/lib${libsuff} /usr/lib${libsuff} /usr/local/lib${libsuff}" - ;; - esac - fi - rm -rf conftest* - ;; - esac - - # 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/#.*//;s/[:, ]/ /g;s/=[^=]*$//;s/=[^= ]* / /g;/^$/d' | tr '\n' ' '` - sys_lib_dlsearch_path_spec="/lib${libsuff} /usr/lib${libsuff} $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' - ;; - -knetbsd*-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='GNU ld.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 - 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=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=yes - ;; - -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" - ;; - -solaris*) - 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=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 - 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 - export_dynamic_flag_spec='${wl}-Blargedynsym' - 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 - 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 - 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' - shlibpath_overrides_runpath=no - else - sys_lib_search_path_spec='/usr/ccs/lib /usr/lib' - shlibpath_overrides_runpath=yes - 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' - ;; - -uts4*) - version_type=linux - 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 - -{ $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_F77= -if test -n "$hardcode_libdir_flag_spec_F77" || \ - test -n "$runpath_var_F77" || \ - test "X$hardcode_automatic_F77" = "Xyes" ; then - - # We can hardcode non-existant directories. - if test "$hardcode_direct_F77" != 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_AC_TAGVAR(hardcode_shlibpath_var, F77)" != no && - test "$hardcode_minus_L_F77" != no; then - # Linking always hardcodes the temporary library directory. - hardcode_action_F77=relink - else - # We can link without hardcoding, and we can hardcode nonexisting dirs. - hardcode_action_F77=immediate - fi -else - # We cannot hardcode anything, or else we can only hardcode existing - # directories. - hardcode_action_F77=unsupported -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $hardcode_action_F77" >&5 -$as_echo "$hardcode_action_F77" >&6; } - -if test "$hardcode_action_F77" = relink; 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 - - -# The else clause should only fire when bootstrapping the -# libtool distribution, otherwise you forgot to ship ltmain.sh -# with your package, and you will get complaints that there are -# no rules to generate ltmain.sh. -if test -f "$ltmain"; then - # 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 - # Now quote all the things that may contain metacharacters while being - # careful not to overquote the AC_SUBSTed values. We take copies of the - # variables and quote the copies for generation of the libtool script. - for var in echo old_CC old_CFLAGS AR AR_FLAGS EGREP RANLIB LN_S LTCC LTCFLAGS NM \ - SED SHELL STRIP \ - libname_spec library_names_spec soname_spec extract_expsyms_cmds \ - old_striplib striplib file_magic_cmd finish_cmds finish_eval \ - deplibs_check_method reload_flag reload_cmds need_locks \ - lt_cv_sys_global_symbol_pipe lt_cv_sys_global_symbol_to_cdecl \ - lt_cv_sys_global_symbol_to_c_name_address \ - sys_lib_search_path_spec sys_lib_dlsearch_path_spec \ - old_postinstall_cmds old_postuninstall_cmds \ - compiler_F77 \ - CC_F77 \ - LD_F77 \ - lt_prog_compiler_wl_F77 \ - lt_prog_compiler_pic_F77 \ - lt_prog_compiler_static_F77 \ - lt_prog_compiler_no_builtin_flag_F77 \ - export_dynamic_flag_spec_F77 \ - thread_safe_flag_spec_F77 \ - whole_archive_flag_spec_F77 \ - enable_shared_with_static_runtimes_F77 \ - old_archive_cmds_F77 \ - old_archive_from_new_cmds_F77 \ - predep_objects_F77 \ - postdep_objects_F77 \ - predeps_F77 \ - postdeps_F77 \ - compiler_lib_search_path_F77 \ - archive_cmds_F77 \ - archive_expsym_cmds_F77 \ - postinstall_cmds_F77 \ - postuninstall_cmds_F77 \ - old_archive_from_expsyms_cmds_F77 \ - allow_undefined_flag_F77 \ - no_undefined_flag_F77 \ - export_symbols_cmds_F77 \ - hardcode_libdir_flag_spec_F77 \ - hardcode_libdir_flag_spec_ld_F77 \ - hardcode_libdir_separator_F77 \ - hardcode_automatic_F77 \ - module_cmds_F77 \ - module_expsym_cmds_F77 \ - lt_cv_prog_compiler_c_o_F77 \ - exclude_expsyms_F77 \ - include_expsyms_F77; do - - case $var in - old_archive_cmds_F77 | \ - old_archive_from_new_cmds_F77 | \ - archive_cmds_F77 | \ - archive_expsym_cmds_F77 | \ - module_cmds_F77 | \ - module_expsym_cmds_F77 | \ - old_archive_from_expsyms_cmds_F77 | \ - export_symbols_cmds_F77 | \ - extract_expsyms_cmds | reload_cmds | finish_cmds | \ - postinstall_cmds | postuninstall_cmds | \ - old_postinstall_cmds | old_postuninstall_cmds | \ - sys_lib_search_path_spec | sys_lib_dlsearch_path_spec) - # Double-quote double-evaled strings. - eval "lt_$var=\\\"\`\$echo \"X\$$var\" | \$Xsed -e \"\$double_quote_subst\" -e \"\$sed_quote_subst\" -e \"\$delay_variable_subst\"\`\\\"" - ;; - *) - eval "lt_$var=\\\"\`\$echo \"X\$$var\" | \$Xsed -e \"\$sed_quote_subst\"\`\\\"" - ;; - esac - done - - case $lt_echo in - *'\$0 --fallback-echo"') - lt_echo=`$echo "X$lt_echo" | $Xsed -e 's/\\\\\\\$0 --fallback-echo"$/$0 --fallback-echo"/'` - ;; - esac - -cfgfile="$ofile" - - cat <<__EOF__ >> "$cfgfile" -# ### BEGIN LIBTOOL TAG CONFIG: $tagname - -# Libtool was configured on host `(hostname || uname -n) 2>/dev/null | sed 1q`: - -# Shell to use when invoking shell scripts. -SHELL=$lt_SHELL - -# Whether or not to build shared libraries. -build_libtool_libs=$enable_shared - -# Whether or not to build static libraries. -build_old_libs=$enable_static - -# Whether or not to add -lc for building shared libraries. -build_libtool_need_lc=$archive_cmds_need_lc_F77 - -# Whether or not to disallow shared libs when runtime libs are static -allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes_F77 - -# Whether or not to optimize for fast installation. -fast_install=$enable_fast_install - -# 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 - -# An echo program that does not interpret backslashes. -echo=$lt_echo - -# The archiver. -AR=$lt_AR -AR_FLAGS=$lt_AR_FLAGS - -# A C compiler. -LTCC=$lt_LTCC - -# LTCC compiler flags. -LTCFLAGS=$lt_LTCFLAGS - -# A language-specific compiler. -CC=$lt_compiler_F77 - -# Is the compiler the GNU C compiler? -with_gcc=$GCC_F77 - -gcc_dir=\`gcc -print-file-name=. | $SED 's,/\.$,,'\` -gcc_ver=\`gcc -dumpversion\` - -# An ERE matcher. -EGREP=$lt_EGREP - -# The linker used to build libraries. -LD=$lt_LD_F77 - -# Whether we need hard or soft links. -LN_S=$lt_LN_S - -# A BSD-compatible nm program. -NM=$lt_NM - -# A symbol stripping program -STRIP=$lt_STRIP - -# Used to examine libraries when file_magic_cmd begins "file" -MAGIC_CMD=$MAGIC_CMD - -# Used on cygwin: DLL creation program. -DLLTOOL="$DLLTOOL" - -# Used on cygwin: object dumper. -OBJDUMP="$OBJDUMP" - -# Used on cygwin: assembler. -AS="$AS" - -# The name of the directory that contains temporary libtool files. -objdir=$objdir - -# How to create reloadable object files. -reload_flag=$lt_reload_flag -reload_cmds=$lt_reload_cmds - -# How to pass a linker flag through the compiler. -wl=$lt_lt_prog_compiler_wl_F77 - -# Object file suffix (normally "o"). -objext="$ac_objext" - -# Old archive suffix (normally "a"). -libext="$libext" - -# Shared library suffix (normally ".so"). -shrext_cmds='$shrext_cmds' - -# Executable file suffix (normally ""). -exeext="$exeext" - -# Additional compiler flags for building library objects. -pic_flag=$lt_lt_prog_compiler_pic_F77 -pic_mode=$pic_mode - -# What is the maximum length of a command? -max_cmd_len=$lt_cv_sys_max_cmd_len - -# Does compiler simultaneously support -c and -o options? -compiler_c_o=$lt_lt_cv_prog_compiler_c_o_F77 - -# Must we lock files when doing compilation? -need_locks=$lt_need_locks - -# 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 - -# 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 - -# Compiler flag to prevent dynamic linking. -link_static_flag=$lt_lt_prog_compiler_static_F77 - -# Compiler flag to turn off builtin functions. -no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag_F77 - -# Compiler flag to allow reflexive dlopens. -export_dynamic_flag_spec=$lt_export_dynamic_flag_spec_F77 - -# Compiler flag to generate shared objects directly from archives. -whole_archive_flag_spec=$lt_whole_archive_flag_spec_F77 - -# Compiler flag to generate thread-safe objects. -thread_safe_flag_spec=$lt_thread_safe_flag_spec_F77 - -# Library versioning type. -version_type=$version_type - -# 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 - -# Commands used to build and install an old-style archive. -RANLIB=$lt_RANLIB -old_archive_cmds=$lt_old_archive_cmds_F77 -old_postinstall_cmds=$lt_old_postinstall_cmds -old_postuninstall_cmds=$lt_old_postuninstall_cmds - -# Create an old-style archive from a shared archive. -old_archive_from_new_cmds=$lt_old_archive_from_new_cmds_F77 - -# Create a temporary old-style archive to link instead of a shared archive. -old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds_F77 - -# Commands used to build and install a shared archive. -archive_cmds=$lt_archive_cmds_F77 -archive_expsym_cmds=$lt_archive_expsym_cmds_F77 -postinstall_cmds=$lt_postinstall_cmds -postuninstall_cmds=$lt_postuninstall_cmds - -# Commands used to build a loadable module (assumed same as above if empty) -module_cmds=$lt_module_cmds_F77 -module_expsym_cmds=$lt_module_expsym_cmds_F77 - -# Commands to strip libraries. -old_striplib=$lt_old_striplib -striplib=$lt_striplib - -# Dependencies to place before the objects being linked to create a -# shared library. -predep_objects=\`echo $lt_predep_objects_F77 | \$SED -e "s@\${gcc_dir}@\\\${gcc_dir}@g;s@\${gcc_ver}@\\\${gcc_ver}@g"\` - -# Dependencies to place after the objects being linked to create a -# shared library. -postdep_objects=\`echo $lt_postdep_objects_F77 | \$SED -e "s@\${gcc_dir}@\\\${gcc_dir}@g;s@\${gcc_ver}@\\\${gcc_ver}@g"\` - -# Dependencies to place before the objects being linked to create a -# shared library. -predeps=$lt_predeps_F77 - -# Dependencies to place after the objects being linked to create a -# shared library. -postdeps=$lt_postdeps_F77 - -# The library search path used internally by the compiler when linking -# a shared library. -compiler_lib_search_path=\`echo $lt_compiler_lib_search_path_F77 | \$SED -e "s@\${gcc_dir}@\\\${gcc_dir}@g;s@\${gcc_ver}@\\\${gcc_ver}@g"\` - -# 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 - -# Flag that allows shared libraries with undefined symbols to be built. -allow_undefined_flag=$lt_allow_undefined_flag_F77 - -# Flag that forces no undefined symbols. -no_undefined_flag=$lt_no_undefined_flag_F77 - -# Commands used to finish a libtool library installation in a directory. -finish_cmds=$lt_finish_cmds - -# Same as above, but a single script fragment to be evaled but not shown. -finish_eval=$lt_finish_eval - -# 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 - -# This is the shared library runtime path variable. -runpath_var=$runpath_var - -# This is the shared library path variable. -shlibpath_var=$shlibpath_var - -# Is shlibpath searched before the hard-coded library search path? -shlibpath_overrides_runpath=$shlibpath_overrides_runpath - -# How to hardcode a shared library path into an executable. -hardcode_action=$hardcode_action_F77 - -# Whether we should hardcode library paths into libraries. -hardcode_into_libs=$hardcode_into_libs - -# 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_F77 - -# If ld is used when linking, flag to hardcode \$libdir into -# a binary during linking. This must work even if \$libdir does -# not exist. -hardcode_libdir_flag_spec_ld=$lt_hardcode_libdir_flag_spec_ld_F77 - -# Whether we need a single -rpath flag with a separated argument. -hardcode_libdir_separator=$lt_hardcode_libdir_separator_F77 - -# Set to yes if using DIR/libNAME${shared_ext} during linking hardcodes DIR into the -# resulting binary. -hardcode_direct=$hardcode_direct_F77 - -# Set to yes if using the -LDIR flag during linking hardcodes DIR into the -# resulting binary. -hardcode_minus_L=$hardcode_minus_L_F77 - -# Set to yes if using SHLIBPATH_VAR=DIR during linking hardcodes DIR into -# the resulting binary. -hardcode_shlibpath_var=$hardcode_shlibpath_var_F77 - -# 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_F77 - -# Variables whose values should be saved in libtool wrapper scripts and -# restored at relink time. -variables_saved_for_relink="$variables_saved_for_relink" - -# Whether libtool must link a program against all its dependency libraries. -link_all_deplibs=$link_all_deplibs_F77 - -# Compile-time system search path for libraries -sys_lib_search_path_spec=\`echo $lt_sys_lib_search_path_spec | \$SED -e "s@\${gcc_dir}@\\\${gcc_dir}@g;s@\${gcc_ver}@\\\${gcc_ver}@g"\` - -# Run-time system search path for libraries -sys_lib_dlsearch_path_spec=$lt_sys_lib_dlsearch_path_spec - -# Fix the shell variable \$srcfile for the compiler. -fix_srcfile_path="$fix_srcfile_path_F77" - -# Set to yes if exported symbols are required. -always_export_symbols=$always_export_symbols_F77 - -# The commands to list exported symbols. -export_symbols_cmds=$lt_export_symbols_cmds_F77 - -# The commands to extract the exported symbol list from a shared archive. -extract_expsyms_cmds=$lt_extract_expsyms_cmds - -# Symbols that should not be listed in the preloaded symbols. -exclude_expsyms=$lt_exclude_expsyms_F77 - -# Symbols that must always be exported. -include_expsyms=$lt_include_expsyms_F77 - -# ### END LIBTOOL TAG CONFIG: $tagname - -__EOF__ - - -else - # If there is no Makefile yet, we rely on a make rule to execute - # `config.status --recheck' to rerun these tests and create the - # libtool script then. - ltmain_in=`echo $ltmain | sed -e 's/\.sh$/.in/'` - if test -f "$ltmain_in"; then - test -f Makefile && make "$ltmain" - fi -fi - - -ac_ext=c -ac_cpp='$CPP $CPPFLAGS' -ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' -ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' -ac_compiler_gnu=$ac_cv_c_compiler_gnu - -CC="$lt_save_CC" - - else - tagname="" - fi - ;; - - GCJ) - if test -n "$GCJ" && test "X$GCJ" != "Xno"; then - - -# Source file extension for Java test sources. -ac_ext=java - -# Object file extension for compiled Java test sources. -objext=o -objext_GCJ=$objext - -# Code to be used in simple compile tests -lt_simple_compile_test_code="class foo {}\n" - -# Code to be used in simple link tests -lt_simple_link_test_code='public class conftest { public static void main(String[] argv) {}; }\n' - -# ltmain only uses $CC for tagged configurations so make sure $CC is set. - -# 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 warnings/boilerplate of simple test code -ac_outfile=conftest.$ac_objext -printf "$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 -printf "$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 conftest* - - -# Allow CC to be a program name with arguments. -lt_save_CC="$CC" -CC=${GCJ-"gcj"} -compiler=$CC -compiler_GCJ=$CC -for cc_temp in $compiler""; do - case $cc_temp in - compile | *[\\/]compile | ccache | *[\\/]ccache ) ;; - distcc | *[\\/]distcc | purify | *[\\/]purify ) ;; - \-*) ;; - *) break;; - esac -done -cc_basename=`$echo "X$cc_temp" | $Xsed -e 's%.*/%%' -e "s%^$host_alias-%%"` - - -# GCJ did not exist at the time GCC didn't implicitly link libc in. -archive_cmds_need_lc_GCJ=no - -old_archive_cmds_GCJ=$old_archive_cmds - - -lt_prog_compiler_no_builtin_flag_GCJ= - -if test "$GCC" = yes; then - lt_prog_compiler_no_builtin_flag_GCJ=' -fno-builtin' - - -{ $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 - printf "$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:15785: $lt_compile\"" >&5) - (eval "$lt_compile" 2>conftest.err) - ac_status=$? - cat conftest.err >&5 - echo "$as_me:15789: \$? = $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 "X$_lt_compiler_boilerplate" | $Xsed -e '/^$/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_GCJ="$lt_prog_compiler_no_builtin_flag_GCJ -fno-rtti -fno-exceptions" -else - : -fi - -fi - -lt_prog_compiler_wl_GCJ= -lt_prog_compiler_pic_GCJ= -lt_prog_compiler_static_GCJ= - -{ $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 test "$GCC" = yes; then - lt_prog_compiler_wl_GCJ='-Wl,' - lt_prog_compiler_static_GCJ='-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_GCJ='-Bstatic' - fi - ;; - - amigaos*) - # 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_GCJ='-m68020 -resident32 -malways-restore-a4' - ;; - - beos* | cygwin* | irix5* | irix6* | nonstopux* | osf3* | osf4* | osf5*) - # PIC is the default for these OSes. - ;; - - mingw* | pw32* | os2*) - # 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_GCJ='-DDLL_EXPORT' - ;; - - darwin* | rhapsody*) - # PIC is the default on this platform - # Common symbols not allowed in MH_DYLIB files - lt_prog_compiler_pic_GCJ='-fno-common' - ;; - - interix3*) - # 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_GCJ=no - enable_shared=no - ;; - - sysv4*MP*) - if test -d /usr/nec; then - lt_prog_compiler_pic_GCJ=-Kconform_pic - fi - ;; - - hpux*) - # 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_GCJ='-fPIC' - ;; - esac - ;; - - *) - lt_prog_compiler_pic_GCJ='-fPIC' - ;; - esac - else - # PORTME Check for flag to pass linker flags through the system compiler. - case $host_os in - aix*) - lt_prog_compiler_wl_GCJ='-Wl,' - if test "$host_cpu" = ia64; then - # AIX 5 now supports IA64 processor - lt_prog_compiler_static_GCJ='-Bstatic' - else - lt_prog_compiler_static_GCJ='-bnso -bI:/lib/syscalls.exp' - fi - ;; - darwin*) - # PIC is the default on this platform - # Common symbols not allowed in MH_DYLIB files - case $cc_basename in - xlc*) - lt_prog_compiler_pic_GCJ='-qnocommon' - lt_prog_compiler_wl_GCJ='-Wl,' - ;; - esac - ;; - - mingw* | pw32* | os2*) - # 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_GCJ='-DDLL_EXPORT' - ;; - - hpux9* | hpux10* | hpux11*) - lt_prog_compiler_wl_GCJ='-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_GCJ='+Z' - ;; - esac - # Is there a better lt_prog_compiler_static that works with the bundled CC? - lt_prog_compiler_static_GCJ='${wl}-a ${wl}archive' - ;; - - irix5* | irix6* | nonstopux*) - lt_prog_compiler_wl_GCJ='-Wl,' - # PIC (with -KPIC) is the default. - lt_prog_compiler_static_GCJ='-non_shared' - ;; - - newsos6) - lt_prog_compiler_pic_GCJ='-KPIC' - lt_prog_compiler_static_GCJ='-Bstatic' - ;; - - linux*) - case $cc_basename in - icc* | ecc*) - lt_prog_compiler_wl_GCJ='-Wl,' - lt_prog_compiler_pic_GCJ='-KPIC' - lt_prog_compiler_static_GCJ='-static' - ;; - pgcc* | pgf77* | pgf90* | pgf95*) - # Portland Group compilers (*not* the Pentium gcc compiler, - # which looks to be a dead project) - lt_prog_compiler_wl_GCJ='-Wl,' - lt_prog_compiler_pic_GCJ='-fpic' - lt_prog_compiler_static_GCJ='-Bstatic' - ;; - ccc*) - lt_prog_compiler_wl_GCJ='-Wl,' - # All Alpha code is PIC. - lt_prog_compiler_static_GCJ='-non_shared' - ;; - esac - ;; - - osf3* | osf4* | osf5*) - lt_prog_compiler_wl_GCJ='-Wl,' - # All OSF/1 code is PIC. - lt_prog_compiler_static_GCJ='-non_shared' - ;; - - solaris*) - lt_prog_compiler_pic_GCJ='-KPIC' - lt_prog_compiler_static_GCJ='-Bstatic' - case $cc_basename in - f77* | f90* | f95*) - lt_prog_compiler_wl_GCJ='-Qoption ld ';; - *) - lt_prog_compiler_wl_GCJ='-Wl,';; - esac - ;; - - sunos4*) - lt_prog_compiler_wl_GCJ='-Qoption ld ' - lt_prog_compiler_pic_GCJ='-PIC' - lt_prog_compiler_static_GCJ='-Bstatic' - ;; - - sysv4 | sysv4.2uw2* | sysv4.3*) - lt_prog_compiler_wl_GCJ='-Wl,' - lt_prog_compiler_pic_GCJ='-KPIC' - lt_prog_compiler_static_GCJ='-Bstatic' - ;; - - sysv4*MP*) - if test -d /usr/nec ;then - lt_prog_compiler_pic_GCJ='-Kconform_pic' - lt_prog_compiler_static_GCJ='-Bstatic' - fi - ;; - - sysv5* | unixware* | sco3.2v5* | sco5v6* | OpenUNIX*) - lt_prog_compiler_wl_GCJ='-Wl,' - lt_prog_compiler_pic_GCJ='-KPIC' - lt_prog_compiler_static_GCJ='-Bstatic' - ;; - - unicos*) - lt_prog_compiler_wl_GCJ='-Wl,' - lt_prog_compiler_can_build_shared_GCJ=no - ;; - - uts4*) - lt_prog_compiler_pic_GCJ='-pic' - lt_prog_compiler_static_GCJ='-Bstatic' - ;; - - *) - lt_prog_compiler_can_build_shared_GCJ=no - ;; - esac - fi - -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_prog_compiler_pic_GCJ" >&5 -$as_echo "$lt_prog_compiler_pic_GCJ" >&6; } - -# -# Check to make sure the PIC flag actually works. -# -if test -n "$lt_prog_compiler_pic_GCJ"; then - -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler PIC flag $lt_prog_compiler_pic_GCJ works" >&5 -$as_echo_n "checking if $compiler PIC flag $lt_prog_compiler_pic_GCJ works... " >&6; } -if ${lt_prog_compiler_pic_works_GCJ+:} false; then : - $as_echo_n "(cached) " >&6 -else - lt_prog_compiler_pic_works_GCJ=no - ac_outfile=conftest.$ac_objext - printf "$lt_simple_compile_test_code" > conftest.$ac_ext - lt_compiler_flag="$lt_prog_compiler_pic_GCJ" - # 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:16053: $lt_compile\"" >&5) - (eval "$lt_compile" 2>conftest.err) - ac_status=$? - cat conftest.err >&5 - echo "$as_me:16057: \$? = $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 "X$_lt_compiler_boilerplate" | $Xsed -e '/^$/d' >conftest.exp - $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2 - if test ! -s conftest.er2 || diff conftest.exp conftest.er2 >/dev/null; then - lt_prog_compiler_pic_works_GCJ=yes - fi - fi - $rm conftest* - -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_prog_compiler_pic_works_GCJ" >&5 -$as_echo "$lt_prog_compiler_pic_works_GCJ" >&6; } - -if test x"$lt_prog_compiler_pic_works_GCJ" = xyes; then - case $lt_prog_compiler_pic_GCJ in - "" | " "*) ;; - *) lt_prog_compiler_pic_GCJ=" $lt_prog_compiler_pic_GCJ" ;; - esac -else - lt_prog_compiler_pic_GCJ= - lt_prog_compiler_can_build_shared_GCJ=no -fi - -fi -case $host_os in - # For platforms which do not support PIC, -DPIC is meaningless: - *djgpp*) - lt_prog_compiler_pic_GCJ= - ;; - *) - lt_prog_compiler_pic_GCJ="$lt_prog_compiler_pic_GCJ" - ;; -esac - -# -# Check to make sure the static flag actually works. -# -wl=$lt_prog_compiler_wl_GCJ eval lt_tmp_static_flag=\"$lt_prog_compiler_static_GCJ\" -{ $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_prog_compiler_static_works_GCJ+:} false; then : - $as_echo_n "(cached) " >&6 -else - lt_prog_compiler_static_works_GCJ=no - save_LDFLAGS="$LDFLAGS" - LDFLAGS="$LDFLAGS $lt_tmp_static_flag" - printf "$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 "X$_lt_linker_boilerplate" | $Xsed -e '/^$/d' > conftest.exp - $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2 - if diff conftest.exp conftest.er2 >/dev/null; then - lt_prog_compiler_static_works_GCJ=yes - fi - else - lt_prog_compiler_static_works_GCJ=yes - fi - fi - $rm conftest* - LDFLAGS="$save_LDFLAGS" - -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_prog_compiler_static_works_GCJ" >&5 -$as_echo "$lt_prog_compiler_static_works_GCJ" >&6; } - -if test x"$lt_prog_compiler_static_works_GCJ" = xyes; then - : -else - lt_prog_compiler_static_GCJ= -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_GCJ+:} false; then : - $as_echo_n "(cached) " >&6 -else - lt_cv_prog_compiler_c_o_GCJ=no - $rm -r conftest 2>/dev/null - mkdir conftest - cd conftest - mkdir out - printf "$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:16157: $lt_compile\"" >&5) - (eval "$lt_compile" 2>out/conftest.err) - ac_status=$? - cat out/conftest.err >&5 - echo "$as_me:16161: \$? = $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 "X$_lt_compiler_boilerplate" | $Xsed -e '/^$/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_GCJ=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 .. - rmdir conftest - $rm conftest* - -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_c_o_GCJ" >&5 -$as_echo "$lt_cv_prog_compiler_c_o_GCJ" >&6; } - - -hard_links="nottested" -if test "$lt_cv_prog_compiler_c_o_GCJ" = 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_GCJ= - enable_shared_with_static_runtimes_GCJ=no - archive_cmds_GCJ= - archive_expsym_cmds_GCJ= - old_archive_From_new_cmds_GCJ= - old_archive_from_expsyms_cmds_GCJ= - export_dynamic_flag_spec_GCJ= - whole_archive_flag_spec_GCJ= - thread_safe_flag_spec_GCJ= - hardcode_libdir_flag_spec_GCJ= - hardcode_libdir_flag_spec_ld_GCJ= - hardcode_libdir_separator_GCJ= - hardcode_direct_GCJ=no - hardcode_minus_L_GCJ=no - hardcode_shlibpath_var_GCJ=unsupported - link_all_deplibs_GCJ=unknown - hardcode_automatic_GCJ=no - module_cmds_GCJ= - module_expsym_cmds_GCJ= - always_export_symbols_GCJ=no - export_symbols_cmds_GCJ='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' - # include_expsyms should be a list of space-separated symbols to be *always* - # included in the symbol list - include_expsyms_GCJ= - # 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_GCJ="_GLOBAL_OFFSET_TABLE_" - # 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. - extract_expsyms_cmds= - # Just being paranoid about ensuring that cc_basename is set. - for cc_temp in $compiler""; do - case $cc_temp in - compile | *[\\/]compile | ccache | *[\\/]ccache ) ;; - distcc | *[\\/]distcc | purify | *[\\/]purify ) ;; - \-*) ;; - *) break;; - esac -done -cc_basename=`$echo "X$cc_temp" | $Xsed -e 's%.*/%%' -e "s%^$host_alias-%%"` - - case $host_os in - cygwin* | mingw* | pw32*) - # 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 - ;; - esac - - ld_shlibs_GCJ=yes - if test "$with_gnu_ld" = 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_GCJ='${wl}--rpath ${wl}$libdir' - export_dynamic_flag_spec_GCJ='${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_GCJ="$wlarc"'--whole-archive$convenience '"$wlarc"'--no-whole-archive' - else - whole_archive_flag_spec_GCJ= - fi - supports_anon_versioning=no - case `$LD -v 2>/dev/null` in - *\ [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 - aix3* | aix4* | aix5*) - # On AIX/PPC, the GNU linker is very broken - if test "$host_cpu" != ia64; then - ld_shlibs_GCJ=no - cat <&2 - -*** Warning: the GNU linker, at least up to release 2.9.1, 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 modify your PATH -*** so that a non-GNU linker is found, and then restart. - -EOF - fi - ;; - - amigaos*) - archive_cmds_GCJ='$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_GCJ='-L$libdir' - hardcode_minus_L_GCJ=yes - - # Samuel A. Falvo II reports - # that the semantics of dynamic libraries on AmigaOS, at least up - # to version 4, is to share data among multiple programs linked - # with the same dynamic library. Since this doesn't match the - # behavior of shared libraries on other platforms, we can't use - # them. - ld_shlibs_GCJ=no - ;; - - beos*) - if $LD --help 2>&1 | grep ': supported targets:.* elf' > /dev/null; then - allow_undefined_flag_GCJ=unsupported - # Joseph Beckenbach says some releases of gcc - # support --undefined. This deserves some investigation. FIXME - archive_cmds_GCJ='$CC -nostart $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' - else - ld_shlibs_GCJ=no - fi - ;; - - cygwin* | mingw* | pw32*) - # _LT_AC_TAGVAR(hardcode_libdir_flag_spec, GCJ) is actually meaningless, - # as there is no search path for DLLs. - hardcode_libdir_flag_spec_GCJ='-L$libdir' - allow_undefined_flag_GCJ=unsupported - always_export_symbols_GCJ=no - enable_shared_with_static_runtimes_GCJ=yes - export_symbols_cmds_GCJ='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[BCDGRS] /s/.* \([^ ]*\)/\1 DATA/'\'' | $SED -e '\''/^[AITW] /s/.* //'\'' | sort | uniq > $export_symbols' - - if $LD --help 2>&1 | grep 'auto-import' > /dev/null; then - archive_cmds_GCJ='$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_GCJ='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_GCJ=no - fi - ;; - - interix3*) - hardcode_direct_GCJ=no - hardcode_shlibpath_var_GCJ=no - hardcode_libdir_flag_spec_GCJ='${wl}-rpath,$libdir' - export_dynamic_flag_spec_GCJ='${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_GCJ='$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_GCJ='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' - ;; - - linux*) - if $LD --help 2>&1 | grep ': supported targets:.* elf' > /dev/null; then - tmp_addflag= - case $cc_basename,$host_cpu in - pgcc*) # Portland Group C compiler - whole_archive_flag_spec_GCJ='${wl}--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; $echo \"$new_convenience\"` ${wl}--no-whole-archive' - tmp_addflag=' $pic_flag' - ;; - pgf77* | pgf90* | pgf95*) # Portland Group f77 and f90 compilers - whole_archive_flag_spec_GCJ='${wl}--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; $echo \"$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' ;; - esac - archive_cmds_GCJ='$CC -shared'"$tmp_addflag"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' - - if test $supports_anon_versioning = yes; then - archive_expsym_cmds_GCJ='$echo "{ global:" > $output_objdir/$libname.ver~ - cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ - $echo "local: *; };" >> $output_objdir/$libname.ver~ - $CC -shared'"$tmp_addflag"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-version-script ${wl}$output_objdir/$libname.ver -o $lib' - fi - else - ld_shlibs_GCJ=no - fi - ;; - - netbsd*) - if echo __ELF__ | $CC -E - | grep __ELF__ >/dev/null; then - archive_cmds_GCJ='$LD -Bshareable $libobjs $deplibs $linker_flags -o $lib' - wlarc= - else - archive_cmds_GCJ='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' - archive_expsym_cmds_GCJ='$CC -shared $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_GCJ=no - cat <&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. - -EOF - elif $LD --help 2>&1 | grep ': supported targets:.* elf' > /dev/null; then - archive_cmds_GCJ='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' - archive_expsym_cmds_GCJ='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' - else - ld_shlibs_GCJ=no - fi - ;; - - sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX*) - case `$LD -v 2>&1` in - *\ [01].* | *\ 2.[0-9].* | *\ 2.1[0-5].*) - ld_shlibs_GCJ=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 - ;; - *) - if $LD --help 2>&1 | grep ': supported targets:.* elf' > /dev/null; then - hardcode_libdir_flag_spec_GCJ='`test -z "$SCOABSPATH" && echo ${wl}-rpath,$libdir`' - archive_cmds_GCJ='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname,\${SCOABSPATH:+${install_libdir}/}$soname -o $lib' - archive_expsym_cmds_GCJ='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname,\${SCOABSPATH:+${install_libdir}/}$soname,-retain-symbols-file,$export_symbols -o $lib' - else - ld_shlibs_GCJ=no - fi - ;; - esac - ;; - - sunos4*) - archive_cmds_GCJ='$LD -assert pure-text -Bshareable -o $lib $libobjs $deplibs $linker_flags' - wlarc= - hardcode_direct_GCJ=yes - hardcode_shlibpath_var_GCJ=no - ;; - - *) - if $LD --help 2>&1 | grep ': supported targets:.* elf' > /dev/null; then - archive_cmds_GCJ='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' - archive_expsym_cmds_GCJ='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' - else - ld_shlibs_GCJ=no - fi - ;; - esac - - if test "$ld_shlibs_GCJ" = no; then - runpath_var= - hardcode_libdir_flag_spec_GCJ= - export_dynamic_flag_spec_GCJ= - whole_archive_flag_spec_GCJ= - fi - else - # PORTME fill in a description of your system's linker (not GNU ld) - case $host_os in - aix3*) - allow_undefined_flag_GCJ=unsupported - always_export_symbols_GCJ=yes - archive_expsym_cmds_GCJ='$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_GCJ=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_GCJ=unsupported - fi - ;; - - aix4* | aix5*) - 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 - if $NM -V 2>&1 | grep 'GNU' > /dev/null; then - export_symbols_cmds_GCJ='$NM -Bpg $libobjs $convenience | awk '\''{ if (((\$2 == "T") || (\$2 == "D") || (\$2 == "B")) && (substr(\$3,1,1) != ".")) { print \$3 } }'\'' | sort -u > $export_symbols' - else - export_symbols_cmds_GCJ='$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].*|aix5*) - 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_GCJ='' - hardcode_direct_GCJ=yes - hardcode_libdir_separator_GCJ=':' - link_all_deplibs_GCJ=yes - - 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 - hardcode_direct_GCJ=yes - else - # We have old collect2 - hardcode_direct_GCJ=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_GCJ=yes - hardcode_libdir_flag_spec_GCJ='-L$libdir' - hardcode_libdir_separator_GCJ= - 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 - - # 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_GCJ=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_GCJ='-berok' - # Determine the default libpath from the value encoded in an empty executable. - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -int -main () -{ - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_link "$LINENO"; then : - -aix_libpath=`dump -H conftest$ac_exeext 2>/dev/null | $SED -n -e '/Import File Strings/,/^$/ { /^0/ { s/^0 *\(.*\)$/\1/; p; } -}'` -# Check for a 64-bit object if we didn't find anything. -if test -z "$aix_libpath"; then aix_libpath=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e '/Import File Strings/,/^$/ { /^0/ { s/^0 *\(.*\)$/\1/; p; } -}'`; fi -fi -rm -f core conftest.err conftest.$ac_objext \ - conftest$ac_exeext conftest.$ac_ext -if test -z "$aix_libpath"; then aix_libpath="/usr/lib:/lib"; fi - - hardcode_libdir_flag_spec_GCJ='${wl}-blibpath:$libdir:'"$aix_libpath" - archive_expsym_cmds_GCJ="\$CC"' -o $output_objdir/$soname $libobjs $deplibs '"\${wl}$no_entry_flag"' $compiler_flags `if test "x${allow_undefined_flag}" != "x"; then echo "${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_GCJ='${wl}-R $libdir:/usr/lib:/lib' - allow_undefined_flag_GCJ="-z nodefs" - archive_expsym_cmds_GCJ="\$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. - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -int -main () -{ - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_link "$LINENO"; then : - -aix_libpath=`dump -H conftest$ac_exeext 2>/dev/null | $SED -n -e '/Import File Strings/,/^$/ { /^0/ { s/^0 *\(.*\)$/\1/; p; } -}'` -# Check for a 64-bit object if we didn't find anything. -if test -z "$aix_libpath"; then aix_libpath=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e '/Import File Strings/,/^$/ { /^0/ { s/^0 *\(.*\)$/\1/; p; } -}'`; fi -fi -rm -f core conftest.err conftest.$ac_objext \ - conftest$ac_exeext conftest.$ac_ext -if test -z "$aix_libpath"; then aix_libpath="/usr/lib:/lib"; fi - - hardcode_libdir_flag_spec_GCJ='${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_GCJ=' ${wl}-bernotok' - allow_undefined_flag_GCJ=' ${wl}-berok' - # Exported symbols can be pulled into shared objects from archives - whole_archive_flag_spec_GCJ='$convenience' - archive_cmds_need_lc_GCJ=yes - # This is similar to how AIX traditionally builds its shared libraries. - archive_expsym_cmds_GCJ="\$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*) - archive_cmds_GCJ='$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_GCJ='-L$libdir' - hardcode_minus_L_GCJ=yes - # see comment about different semantics on the GNU ld section - ld_shlibs_GCJ=no - ;; - - bsdi[45]*) - export_dynamic_flag_spec_GCJ=-rdynamic - ;; - - cygwin* | mingw* | pw32*) - # 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. - hardcode_libdir_flag_spec_GCJ=' ' - allow_undefined_flag_GCJ=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_GCJ='$CC -o $lib $libobjs $compiler_flags `echo "$deplibs" | $SED -e '\''s/ -lc$//'\''` -link -dll~linknames=' - # The linker will automatically build a .lib file if we build a DLL. - old_archive_From_new_cmds_GCJ='true' - # FIXME: Should let the user specify the lib program. - old_archive_cmds_GCJ='lib /OUT:$oldlib$oldobjs$old_deplibs' - fix_srcfile_path_GCJ='`cygpath -w "$srcfile"`' - enable_shared_with_static_runtimes_GCJ=yes - ;; - - darwin* | rhapsody*) - case $host_os in - rhapsody* | darwin1.[012]) - allow_undefined_flag_GCJ='${wl}-undefined ${wl}suppress' - ;; - *) # Darwin 1.3 on - if test -z ${MACOSX_DEPLOYMENT_TARGET} ; then - allow_undefined_flag_GCJ='${wl}-flat_namespace ${wl}-undefined ${wl}suppress' - else - case ${MACOSX_DEPLOYMENT_TARGET} in - 10.[012]) - allow_undefined_flag_GCJ='${wl}-flat_namespace ${wl}-undefined ${wl}suppress' - ;; - 10.*) - allow_undefined_flag_GCJ='${wl}-undefined ${wl}dynamic_lookup' - ;; - esac - fi - ;; - esac - archive_cmds_need_lc_GCJ=no - hardcode_direct_GCJ=no - hardcode_automatic_GCJ=yes - hardcode_shlibpath_var_GCJ=unsupported - whole_archive_flag_spec_GCJ='' - link_all_deplibs_GCJ=yes - if test "$GCC" = yes ; then - output_verbose_link_cmd='echo' - archive_cmds_GCJ='$CC -dynamiclib $allow_undefined_flag -o $lib $libobjs $deplibs $compiler_flags -install_name $rpath/$soname $verstring' - module_cmds_GCJ='$CC $allow_undefined_flag -o $lib -bundle $libobjs $deplibs$compiler_flags' - # Don't fix this by using the ld -exported_symbols_list flag, it doesn't exist in older darwin lds - archive_expsym_cmds_GCJ='sed -e "s,#.*,," -e "s,^[ ]*,," -e "s,^\(..*\),_&," < $export_symbols > $output_objdir/${libname}-symbols.expsym~$CC -dynamiclib $allow_undefined_flag -o $lib $libobjs $deplibs $compiler_flags -install_name $rpath/$soname $verstring~nmedit -s $output_objdir/${libname}-symbols.expsym ${lib}' - module_expsym_cmds_GCJ='sed -e "s,#.*,," -e "s,^[ ]*,," -e "s,^\(..*\),_&," < $export_symbols > $output_objdir/${libname}-symbols.expsym~$CC $allow_undefined_flag -o $lib -bundle $libobjs $deplibs$compiler_flags~nmedit -s $output_objdir/${libname}-symbols.expsym ${lib}' - else - case $cc_basename in - xlc*) - output_verbose_link_cmd='echo' - archive_cmds_GCJ='$CC -qmkshrobj $allow_undefined_flag -o $lib $libobjs $deplibs $compiler_flags ${wl}-install_name ${wl}`echo $rpath/$soname` $verstring' - module_cmds_GCJ='$CC $allow_undefined_flag -o $lib -bundle $libobjs $deplibs$compiler_flags' - # Don't fix this by using the ld -exported_symbols_list flag, it doesn't exist in older darwin lds - archive_expsym_cmds_GCJ='sed -e "s,#.*,," -e "s,^[ ]*,," -e "s,^\(..*\),_&," < $export_symbols > $output_objdir/${libname}-symbols.expsym~$CC -qmkshrobj $allow_undefined_flag -o $lib $libobjs $deplibs $compiler_flags ${wl}-install_name ${wl}$rpath/$soname $verstring~nmedit -s $output_objdir/${libname}-symbols.expsym ${lib}' - module_expsym_cmds_GCJ='sed -e "s,#.*,," -e "s,^[ ]*,," -e "s,^\(..*\),_&," < $export_symbols > $output_objdir/${libname}-symbols.expsym~$CC $allow_undefined_flag -o $lib -bundle $libobjs $deplibs$compiler_flags~nmedit -s $output_objdir/${libname}-symbols.expsym ${lib}' - ;; - *) - ld_shlibs_GCJ=no - ;; - esac - fi - ;; - - dgux*) - archive_cmds_GCJ='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' - hardcode_libdir_flag_spec_GCJ='-L$libdir' - hardcode_shlibpath_var_GCJ=no - ;; - - freebsd1*) - ld_shlibs_GCJ=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_GCJ='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags /usr/lib/c++rt0.o' - hardcode_libdir_flag_spec_GCJ='-R$libdir' - hardcode_direct_GCJ=yes - hardcode_shlibpath_var_GCJ=no - ;; - - # Unfortunately, older versions of FreeBSD 2 do not have this feature. - freebsd2*) - archive_cmds_GCJ='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' - hardcode_direct_GCJ=yes - hardcode_minus_L_GCJ=yes - hardcode_shlibpath_var_GCJ=no - ;; - - # FreeBSD 3 and greater uses gcc -shared to do shared libraries. - freebsd* | kfreebsd*-gnu | dragonfly*) - archive_cmds_GCJ='$CC -shared -o $lib $libobjs $deplibs $compiler_flags' - hardcode_libdir_flag_spec_GCJ='-R$libdir' - hardcode_direct_GCJ=yes - hardcode_shlibpath_var_GCJ=no - ;; - - hpux9*) - if test "$GCC" = yes; then - archive_cmds_GCJ='$rm $output_objdir/$soname~$CC -shared -fPIC ${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_GCJ='$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_GCJ='${wl}+b ${wl}$libdir' - hardcode_libdir_separator_GCJ=: - hardcode_direct_GCJ=yes - - # hardcode_minus_L: Not really in the search PATH, - # but as the default location of the library. - hardcode_minus_L_GCJ=yes - export_dynamic_flag_spec_GCJ='${wl}-E' - ;; - - hpux10*) - if test "$GCC" = yes -a "$with_gnu_ld" = no; then - archive_cmds_GCJ='$CC -shared -fPIC ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $libobjs $deplibs $compiler_flags' - else - archive_cmds_GCJ='$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_GCJ='${wl}+b ${wl}$libdir' - hardcode_libdir_separator_GCJ=: - - hardcode_direct_GCJ=yes - export_dynamic_flag_spec_GCJ='${wl}-E' - - # hardcode_minus_L: Not really in the search PATH, - # but as the default location of the library. - hardcode_minus_L_GCJ=yes - fi - ;; - - hpux11*) - if test "$GCC" = yes -a "$with_gnu_ld" = no; then - case $host_cpu in - hppa*64*) - archive_cmds_GCJ='$CC -shared ${wl}+h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags' - ;; - ia64*) - archive_cmds_GCJ='$CC -shared ${wl}+h ${wl}$soname ${wl}+nodefaultrpath -o $lib $libobjs $deplibs $compiler_flags' - ;; - *) - archive_cmds_GCJ='$CC -shared -fPIC ${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_GCJ='$CC -b ${wl}+h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags' - ;; - ia64*) - archive_cmds_GCJ='$CC -b ${wl}+h ${wl}$soname ${wl}+nodefaultrpath -o $lib $libobjs $deplibs $compiler_flags' - ;; - *) - archive_cmds_GCJ='$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 - hardcode_libdir_flag_spec_GCJ='${wl}+b ${wl}$libdir' - hardcode_libdir_separator_GCJ=: - - case $host_cpu in - hppa*64*|ia64*) - hardcode_libdir_flag_spec_ld_GCJ='+b $libdir' - hardcode_direct_GCJ=no - hardcode_shlibpath_var_GCJ=no - ;; - *) - hardcode_direct_GCJ=yes - export_dynamic_flag_spec_GCJ='${wl}-E' - - # hardcode_minus_L: Not really in the search PATH, - # but as the default location of the library. - hardcode_minus_L_GCJ=yes - ;; - esac - fi - ;; - - irix5* | irix6* | nonstopux*) - if test "$GCC" = yes; then - archive_cmds_GCJ='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && echo ${wl}-set_version ${wl}$verstring` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' - else - archive_cmds_GCJ='$LD -shared $libobjs $deplibs $linker_flags -soname $soname `test -n "$verstring" && echo -set_version $verstring` -update_registry ${output_objdir}/so_locations -o $lib' - hardcode_libdir_flag_spec_ld_GCJ='-rpath $libdir' - fi - hardcode_libdir_flag_spec_GCJ='${wl}-rpath ${wl}$libdir' - hardcode_libdir_separator_GCJ=: - link_all_deplibs_GCJ=yes - ;; - - netbsd*) - if echo __ELF__ | $CC -E - | grep __ELF__ >/dev/null; then - archive_cmds_GCJ='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' # a.out - else - archive_cmds_GCJ='$LD -shared -o $lib $libobjs $deplibs $linker_flags' # ELF - fi - hardcode_libdir_flag_spec_GCJ='-R$libdir' - hardcode_direct_GCJ=yes - hardcode_shlibpath_var_GCJ=no - ;; - - newsos6) - archive_cmds_GCJ='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' - hardcode_direct_GCJ=yes - hardcode_libdir_flag_spec_GCJ='${wl}-rpath ${wl}$libdir' - hardcode_libdir_separator_GCJ=: - hardcode_shlibpath_var_GCJ=no - ;; - - openbsd*) - hardcode_direct_GCJ=yes - hardcode_shlibpath_var_GCJ=no - if test -z "`echo __ELF__ | $CC -E - | grep __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then - archive_cmds_GCJ='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags' - archive_expsym_cmds_GCJ='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags ${wl}-retain-symbols-file,$export_symbols' - hardcode_libdir_flag_spec_GCJ='${wl}-rpath,$libdir' - export_dynamic_flag_spec_GCJ='${wl}-E' - else - case $host_os in - openbsd[01].* | openbsd2.[0-7] | openbsd2.[0-7].*) - archive_cmds_GCJ='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' - hardcode_libdir_flag_spec_GCJ='-R$libdir' - ;; - *) - archive_cmds_GCJ='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags' - hardcode_libdir_flag_spec_GCJ='${wl}-rpath,$libdir' - ;; - esac - fi - ;; - - os2*) - hardcode_libdir_flag_spec_GCJ='-L$libdir' - hardcode_minus_L_GCJ=yes - allow_undefined_flag_GCJ=unsupported - archive_cmds_GCJ='$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_GCJ='emximp -o $output_objdir/$libname.a $output_objdir/$libname.def' - ;; - - osf3*) - if test "$GCC" = yes; then - allow_undefined_flag_GCJ=' ${wl}-expect_unresolved ${wl}\*' - archive_cmds_GCJ='$CC -shared${allow_undefined_flag} $libobjs $deplibs $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && echo ${wl}-set_version ${wl}$verstring` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' - else - allow_undefined_flag_GCJ=' -expect_unresolved \*' - archive_cmds_GCJ='$LD -shared${allow_undefined_flag} $libobjs $deplibs $linker_flags -soname $soname `test -n "$verstring" && echo -set_version $verstring` -update_registry ${output_objdir}/so_locations -o $lib' - fi - hardcode_libdir_flag_spec_GCJ='${wl}-rpath ${wl}$libdir' - hardcode_libdir_separator_GCJ=: - ;; - - osf4* | osf5*) # as osf3* with the addition of -msym flag - if test "$GCC" = yes; then - allow_undefined_flag_GCJ=' ${wl}-expect_unresolved ${wl}\*' - archive_cmds_GCJ='$CC -shared${allow_undefined_flag} $libobjs $deplibs $compiler_flags ${wl}-msym ${wl}-soname ${wl}$soname `test -n "$verstring" && echo ${wl}-set_version ${wl}$verstring` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' - hardcode_libdir_flag_spec_GCJ='${wl}-rpath ${wl}$libdir' - else - allow_undefined_flag_GCJ=' -expect_unresolved \*' - archive_cmds_GCJ='$LD -shared${allow_undefined_flag} $libobjs $deplibs $linker_flags -msym -soname $soname `test -n "$verstring" && echo -set_version $verstring` -update_registry ${output_objdir}/so_locations -o $lib' - archive_expsym_cmds_GCJ='for i in `cat $export_symbols`; do printf "%s %s\\n" -exported_symbol "\$i" >> $lib.exp; done; echo "-hidden">> $lib.exp~ - $LD -shared${allow_undefined_flag} -input $lib.exp $linker_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_GCJ='-rpath $libdir' - fi - hardcode_libdir_separator_GCJ=: - ;; - - solaris*) - no_undefined_flag_GCJ=' -z text' - if test "$GCC" = yes; then - wlarc='${wl}' - archive_cmds_GCJ='$CC -shared ${wl}-h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags' - archive_expsym_cmds_GCJ='$echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~$echo "local: *; };" >> $lib.exp~ - $CC -shared ${wl}-M ${wl}$lib.exp ${wl}-h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags~$rm $lib.exp' - else - wlarc='' - archive_cmds_GCJ='$LD -G${allow_undefined_flag} -h $soname -o $lib $libobjs $deplibs $linker_flags' - archive_expsym_cmds_GCJ='$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' - fi - hardcode_libdir_flag_spec_GCJ='-R$libdir' - hardcode_shlibpath_var_GCJ=no - case $host_os in - solaris2.[0-5] | solaris2.[0-5].*) ;; - *) - # The compiler driver will combine linker options so we - # cannot just pass the convience library names through - # without $wl, iff we do not link with $LD. - # Luckily, gcc supports the same syntax we need for Sun Studio. - # Supported since Solaris 2.6 (maybe 2.5.1?) - case $wlarc in - '') - whole_archive_flag_spec_GCJ='-z allextract$convenience -z defaultextract' ;; - *) - whole_archive_flag_spec_GCJ='${wl}-z ${wl}allextract`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; $echo \"$new_convenience\"` ${wl}-z ${wl}defaultextract' ;; - esac ;; - esac - link_all_deplibs_GCJ=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_GCJ='$CC -G ${wl}-h $soname -o $lib $libobjs $deplibs $compiler_flags' - else - archive_cmds_GCJ='$LD -assert pure-text -Bstatic -o $lib $libobjs $deplibs $linker_flags' - fi - hardcode_libdir_flag_spec_GCJ='-L$libdir' - hardcode_direct_GCJ=yes - hardcode_minus_L_GCJ=yes - hardcode_shlibpath_var_GCJ=no - ;; - - sysv4) - case $host_vendor in - sni) - archive_cmds_GCJ='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' - hardcode_direct_GCJ=yes # is this really true??? - ;; - siemens) - ## LD is ld it makes a PLAMLIB - ## CC just makes a GrossModule. - archive_cmds_GCJ='$LD -G -o $lib $libobjs $deplibs $linker_flags' - reload_cmds_GCJ='$CC -r -o $output$reload_objs' - hardcode_direct_GCJ=no - ;; - motorola) - archive_cmds_GCJ='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' - hardcode_direct_GCJ=no #Motorola manual says yes, but my tests say they lie - ;; - esac - runpath_var='LD_RUN_PATH' - hardcode_shlibpath_var_GCJ=no - ;; - - sysv4.3*) - archive_cmds_GCJ='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' - hardcode_shlibpath_var_GCJ=no - export_dynamic_flag_spec_GCJ='-Bexport' - ;; - - sysv4*MP*) - if test -d /usr/nec; then - archive_cmds_GCJ='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' - hardcode_shlibpath_var_GCJ=no - runpath_var=LD_RUN_PATH - hardcode_runpath_var=yes - ld_shlibs_GCJ=yes - fi - ;; - - sysv4*uw2* | sysv5OpenUNIX* | sysv5UnixWare7.[01].[10]* | unixware7*) - no_undefined_flag_GCJ='${wl}-z,text' - archive_cmds_need_lc_GCJ=no - hardcode_shlibpath_var_GCJ=no - runpath_var='LD_RUN_PATH' - - if test "$GCC" = yes; then - archive_cmds_GCJ='$CC -shared ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' - archive_expsym_cmds_GCJ='$CC -shared ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' - else - archive_cmds_GCJ='$CC -G ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' - archive_expsym_cmds_GCJ='$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_GCJ='${wl}-z,text' - allow_undefined_flag_GCJ='${wl}-z,nodefs' - archive_cmds_need_lc_GCJ=no - hardcode_shlibpath_var_GCJ=no - hardcode_libdir_flag_spec_GCJ='`test -z "$SCOABSPATH" && echo ${wl}-R,$libdir`' - hardcode_libdir_separator_GCJ=':' - link_all_deplibs_GCJ=yes - export_dynamic_flag_spec_GCJ='${wl}-Bexport' - runpath_var='LD_RUN_PATH' - - if test "$GCC" = yes; then - archive_cmds_GCJ='$CC -shared ${wl}-h,\${SCOABSPATH:+${install_libdir}/}$soname -o $lib $libobjs $deplibs $compiler_flags' - archive_expsym_cmds_GCJ='$CC -shared ${wl}-Bexport:$export_symbols ${wl}-h,\${SCOABSPATH:+${install_libdir}/}$soname -o $lib $libobjs $deplibs $compiler_flags' - else - archive_cmds_GCJ='$CC -G ${wl}-h,\${SCOABSPATH:+${install_libdir}/}$soname -o $lib $libobjs $deplibs $compiler_flags' - archive_expsym_cmds_GCJ='$CC -G ${wl}-Bexport:$export_symbols ${wl}-h,\${SCOABSPATH:+${install_libdir}/}$soname -o $lib $libobjs $deplibs $compiler_flags' - fi - ;; - - uts4*) - archive_cmds_GCJ='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' - hardcode_libdir_flag_spec_GCJ='-L$libdir' - hardcode_shlibpath_var_GCJ=no - ;; - - *) - ld_shlibs_GCJ=no - ;; - esac - fi - -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ld_shlibs_GCJ" >&5 -$as_echo "$ld_shlibs_GCJ" >&6; } -test "$ld_shlibs_GCJ" = no && can_build_shared=no - -# -# Do we need to explicitly link libc? -# -case "x$archive_cmds_need_lc_GCJ" in -x|xyes) - # Assume -lc should be added - archive_cmds_need_lc_GCJ=yes - - if test "$enable_shared" = yes && test "$GCC" = yes; then - case $archive_cmds_GCJ 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; } - $rm conftest* - printf "$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_GCJ - pic_flag=$lt_prog_compiler_pic_GCJ - compiler_flags=-v - linker_flags=-v - verstring= - output_objdir=. - libname=conftest - lt_save_allow_undefined_flag=$allow_undefined_flag_GCJ - allow_undefined_flag_GCJ= - if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$archive_cmds_GCJ 2\>\&1 \| grep \" -lc \" \>/dev/null 2\>\&1\""; } >&5 - (eval $archive_cmds_GCJ 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 - archive_cmds_need_lc_GCJ=no - else - archive_cmds_need_lc_GCJ=yes - fi - allow_undefined_flag_GCJ=$lt_save_allow_undefined_flag - else - cat conftest.err 1>&5 - fi - $rm conftest* - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $archive_cmds_need_lc_GCJ" >&5 -$as_echo "$archive_cmds_need_lc_GCJ" >&6; } - ;; - esac - fi - ;; -esac - -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking dynamic linker characteristics" >&5 -$as_echo_n "checking dynamic linker characteristics... " >&6; } -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" -if test "$GCC" = yes; then - sys_lib_search_path_spec=`$CC -print-search-dirs | grep "^libraries:" | $SED -e "s/^libraries://" -e "s,=/,/,g"` - if echo "$sys_lib_search_path_spec" | grep ';' >/dev/null ; then - # 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. - 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 -else - sys_lib_search_path_spec="/lib /usr/lib /usr/local/lib" -fi -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 - 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' - ;; - -aix4* | aix5*) - version_type=linux - 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*) - 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=`$echo "X$lib" | $Xsed -e '\''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' - ;; - -beos*) - library_names_spec='${libname}${shared_ext}' - dynamic_linker="$host_os ld.so" - shlibpath_var=LIBRARY_PATH - ;; - -bsdi[45]*) - version_type=linux - 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*) - version_type=windows - shrext_cmds=".dll" - need_version=no - need_lib_prefix=no - - case $GCC,$host_os in - yes,cygwin* | yes,mingw* | yes,pw32*) - 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' - 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="/usr/lib /lib/w32api /lib /usr/local/lib" - ;; - mingw*) - # MinGW DLLs use traditional 'lib' prefix - soname_spec='${libname}`echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext}' - sys_lib_search_path_spec=`$CC -print-search-dirs | grep "^libraries:" | $SED -e "s/^libraries://" -e "s,=/,/,g"` - if echo "$sys_lib_search_path_spec" | grep ';[c-zC-Z]:/' >/dev/null; then - # It is most probably a Windows format PATH printed by - # mingw gcc, but we are running on Cygwin. Gcc prints its search - # path with ; separators, and with drive letters. We can handle the - # drive letters (cygwin fileutils understands them), so leave them, - # especially as we might pass files found there to a mingw objdump, - # which wouldn't understand a cygwinified path. Ahh. - 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 - ;; - 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 - ;; - - *) - library_names_spec='${libname}`echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext} $libname.lib' - ;; - esac - dynamic_linker='Win32 ld.exe' - # 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}${versuffix}$shared_ext ${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`' - # Apple's gcc prints 'gcc -print-search-dirs' doesn't operate the same. - if test "$GCC" = yes; then - sys_lib_search_path_spec=`$CC -print-search-dirs | tr "\n" "$PATH_SEPARATOR" | sed -e 's/libraries:/@libraries:/' | tr "@" "\n" | grep "^libraries:" | sed -e "s/^libraries://" -e "s,=/,/,g" -e "s,$PATH_SEPARATOR, ,g" -e "s,.*,& /lib /usr/lib /usr/local/lib,g"` - else - sys_lib_search_path_spec='/lib /usr/lib /usr/local/lib' - fi - sys_lib_dlsearch_path_spec='/usr/local/lib /lib /usr/lib' - ;; - -dgux*) - 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 - ;; - -freebsd1*) - dynamic_linker=no - ;; - -kfreebsd*-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='GNU ld.so' - ;; - -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[123]*) 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 - ;; - freebsd*) # from 4.6 on - shlibpath_overrides_runpath=yes - hardcode_into_libs=yes - ;; - esac - ;; - -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 - 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' - ;; - -interix3*) - 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' - 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 - 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 Linux ELF. -linux*) - 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' - finish_cmds='PATH="\$PATH:/sbin" ldconfig -n $libdir' - shlibpath_var=LD_LIBRARY_PATH - shlibpath_overrides_runpath=no - # 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 - - # find out which ABI we are using - libsuff= - case "$host_cpu" in - x86_64*|s390x*|powerpc64*) - echo '#line 17568 "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 - case `/usr/bin/file conftest.$ac_objext` in - *64-bit*) - libsuff=64 - sys_lib_search_path_spec="/lib${libsuff} /usr/lib${libsuff} /usr/local/lib${libsuff}" - ;; - esac - fi - rm -rf conftest* - ;; - esac - - # 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/#.*//;s/[:, ]/ /g;s/=[^=]*$//;s/=[^= ]* / /g;/^$/d' | tr '\n' ' '` - sys_lib_dlsearch_path_spec="/lib${libsuff} /usr/lib${libsuff} $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' - ;; - -knetbsd*-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='GNU ld.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 - 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=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=yes - ;; - -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" - ;; - -solaris*) - 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=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 - 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 - export_dynamic_flag_spec='${wl}-Blargedynsym' - 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 - 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 - 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' - shlibpath_overrides_runpath=no - else - sys_lib_search_path_spec='/usr/ccs/lib /usr/lib' - shlibpath_overrides_runpath=yes - 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' - ;; - -uts4*) - version_type=linux - 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 - -{ $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_GCJ= -if test -n "$hardcode_libdir_flag_spec_GCJ" || \ - test -n "$runpath_var_GCJ" || \ - test "X$hardcode_automatic_GCJ" = "Xyes" ; then - - # We can hardcode non-existant directories. - if test "$hardcode_direct_GCJ" != 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_AC_TAGVAR(hardcode_shlibpath_var, GCJ)" != no && - test "$hardcode_minus_L_GCJ" != no; then - # Linking always hardcodes the temporary library directory. - hardcode_action_GCJ=relink - else - # We can link without hardcoding, and we can hardcode nonexisting dirs. - hardcode_action_GCJ=immediate - fi -else - # We cannot hardcode anything, or else we can only hardcode existing - # directories. - hardcode_action_GCJ=unsupported -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $hardcode_action_GCJ" >&5 -$as_echo "$hardcode_action_GCJ" >&6; } - -if test "$hardcode_action_GCJ" = relink; 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 - - -# The else clause should only fire when bootstrapping the -# libtool distribution, otherwise you forgot to ship ltmain.sh -# with your package, and you will get complaints that there are -# no rules to generate ltmain.sh. -if test -f "$ltmain"; then - # 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 - # Now quote all the things that may contain metacharacters while being - # careful not to overquote the AC_SUBSTed values. We take copies of the - # variables and quote the copies for generation of the libtool script. - for var in echo old_CC old_CFLAGS AR AR_FLAGS EGREP RANLIB LN_S LTCC LTCFLAGS NM \ - SED SHELL STRIP \ - libname_spec library_names_spec soname_spec extract_expsyms_cmds \ - old_striplib striplib file_magic_cmd finish_cmds finish_eval \ - deplibs_check_method reload_flag reload_cmds need_locks \ - lt_cv_sys_global_symbol_pipe lt_cv_sys_global_symbol_to_cdecl \ - lt_cv_sys_global_symbol_to_c_name_address \ - sys_lib_search_path_spec sys_lib_dlsearch_path_spec \ - old_postinstall_cmds old_postuninstall_cmds \ - compiler_GCJ \ - CC_GCJ \ - LD_GCJ \ - lt_prog_compiler_wl_GCJ \ - lt_prog_compiler_pic_GCJ \ - lt_prog_compiler_static_GCJ \ - lt_prog_compiler_no_builtin_flag_GCJ \ - export_dynamic_flag_spec_GCJ \ - thread_safe_flag_spec_GCJ \ - whole_archive_flag_spec_GCJ \ - enable_shared_with_static_runtimes_GCJ \ - old_archive_cmds_GCJ \ - old_archive_from_new_cmds_GCJ \ - predep_objects_GCJ \ - postdep_objects_GCJ \ - predeps_GCJ \ - postdeps_GCJ \ - compiler_lib_search_path_GCJ \ - archive_cmds_GCJ \ - archive_expsym_cmds_GCJ \ - postinstall_cmds_GCJ \ - postuninstall_cmds_GCJ \ - old_archive_from_expsyms_cmds_GCJ \ - allow_undefined_flag_GCJ \ - no_undefined_flag_GCJ \ - export_symbols_cmds_GCJ \ - hardcode_libdir_flag_spec_GCJ \ - hardcode_libdir_flag_spec_ld_GCJ \ - hardcode_libdir_separator_GCJ \ - hardcode_automatic_GCJ \ - module_cmds_GCJ \ - module_expsym_cmds_GCJ \ - lt_cv_prog_compiler_c_o_GCJ \ - exclude_expsyms_GCJ \ - include_expsyms_GCJ; do - - case $var in - old_archive_cmds_GCJ | \ - old_archive_from_new_cmds_GCJ | \ - archive_cmds_GCJ | \ - archive_expsym_cmds_GCJ | \ - module_cmds_GCJ | \ - module_expsym_cmds_GCJ | \ - old_archive_from_expsyms_cmds_GCJ | \ - export_symbols_cmds_GCJ | \ - extract_expsyms_cmds | reload_cmds | finish_cmds | \ - postinstall_cmds | postuninstall_cmds | \ - old_postinstall_cmds | old_postuninstall_cmds | \ - sys_lib_search_path_spec | sys_lib_dlsearch_path_spec) - # Double-quote double-evaled strings. - eval "lt_$var=\\\"\`\$echo \"X\$$var\" | \$Xsed -e \"\$double_quote_subst\" -e \"\$sed_quote_subst\" -e \"\$delay_variable_subst\"\`\\\"" - ;; - *) - eval "lt_$var=\\\"\`\$echo \"X\$$var\" | \$Xsed -e \"\$sed_quote_subst\"\`\\\"" - ;; - esac - done - - case $lt_echo in - *'\$0 --fallback-echo"') - lt_echo=`$echo "X$lt_echo" | $Xsed -e 's/\\\\\\\$0 --fallback-echo"$/$0 --fallback-echo"/'` - ;; - esac - -cfgfile="$ofile" - - cat <<__EOF__ >> "$cfgfile" -# ### BEGIN LIBTOOL TAG CONFIG: $tagname - -# Libtool was configured on host `(hostname || uname -n) 2>/dev/null | sed 1q`: - -# Shell to use when invoking shell scripts. -SHELL=$lt_SHELL - -# Whether or not to build shared libraries. -build_libtool_libs=$enable_shared - -# Whether or not to build static libraries. -build_old_libs=$enable_static - -# Whether or not to add -lc for building shared libraries. -build_libtool_need_lc=$archive_cmds_need_lc_GCJ - -# Whether or not to disallow shared libs when runtime libs are static -allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes_GCJ - -# Whether or not to optimize for fast installation. -fast_install=$enable_fast_install - -# 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 - -# An echo program that does not interpret backslashes. -echo=$lt_echo - -# The archiver. -AR=$lt_AR -AR_FLAGS=$lt_AR_FLAGS - -# A C compiler. -LTCC=$lt_LTCC - -# LTCC compiler flags. -LTCFLAGS=$lt_LTCFLAGS - -# A language-specific compiler. -CC=$lt_compiler_GCJ - -# Is the compiler the GNU C compiler? -with_gcc=$GCC_GCJ - -gcc_dir=\`gcc -print-file-name=. | $SED 's,/\.$,,'\` -gcc_ver=\`gcc -dumpversion\` - -# An ERE matcher. -EGREP=$lt_EGREP - -# The linker used to build libraries. -LD=$lt_LD_GCJ - -# Whether we need hard or soft links. -LN_S=$lt_LN_S - -# A BSD-compatible nm program. -NM=$lt_NM - -# A symbol stripping program -STRIP=$lt_STRIP - -# Used to examine libraries when file_magic_cmd begins "file" -MAGIC_CMD=$MAGIC_CMD - -# Used on cygwin: DLL creation program. -DLLTOOL="$DLLTOOL" - -# Used on cygwin: object dumper. -OBJDUMP="$OBJDUMP" - -# Used on cygwin: assembler. -AS="$AS" - -# The name of the directory that contains temporary libtool files. -objdir=$objdir - -# How to create reloadable object files. -reload_flag=$lt_reload_flag -reload_cmds=$lt_reload_cmds - -# How to pass a linker flag through the compiler. -wl=$lt_lt_prog_compiler_wl_GCJ - -# Object file suffix (normally "o"). -objext="$ac_objext" - -# Old archive suffix (normally "a"). -libext="$libext" - -# Shared library suffix (normally ".so"). -shrext_cmds='$shrext_cmds' - -# Executable file suffix (normally ""). -exeext="$exeext" - -# Additional compiler flags for building library objects. -pic_flag=$lt_lt_prog_compiler_pic_GCJ -pic_mode=$pic_mode - -# What is the maximum length of a command? -max_cmd_len=$lt_cv_sys_max_cmd_len - -# Does compiler simultaneously support -c and -o options? -compiler_c_o=$lt_lt_cv_prog_compiler_c_o_GCJ - -# Must we lock files when doing compilation? -need_locks=$lt_need_locks - -# 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 - -# 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 - -# Compiler flag to prevent dynamic linking. -link_static_flag=$lt_lt_prog_compiler_static_GCJ - -# Compiler flag to turn off builtin functions. -no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag_GCJ - -# Compiler flag to allow reflexive dlopens. -export_dynamic_flag_spec=$lt_export_dynamic_flag_spec_GCJ - -# Compiler flag to generate shared objects directly from archives. -whole_archive_flag_spec=$lt_whole_archive_flag_spec_GCJ - -# Compiler flag to generate thread-safe objects. -thread_safe_flag_spec=$lt_thread_safe_flag_spec_GCJ - -# Library versioning type. -version_type=$version_type - -# 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 - -# Commands used to build and install an old-style archive. -RANLIB=$lt_RANLIB -old_archive_cmds=$lt_old_archive_cmds_GCJ -old_postinstall_cmds=$lt_old_postinstall_cmds -old_postuninstall_cmds=$lt_old_postuninstall_cmds - -# Create an old-style archive from a shared archive. -old_archive_from_new_cmds=$lt_old_archive_from_new_cmds_GCJ - -# Create a temporary old-style archive to link instead of a shared archive. -old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds_GCJ - -# Commands used to build and install a shared archive. -archive_cmds=$lt_archive_cmds_GCJ -archive_expsym_cmds=$lt_archive_expsym_cmds_GCJ -postinstall_cmds=$lt_postinstall_cmds -postuninstall_cmds=$lt_postuninstall_cmds - -# Commands used to build a loadable module (assumed same as above if empty) -module_cmds=$lt_module_cmds_GCJ -module_expsym_cmds=$lt_module_expsym_cmds_GCJ - -# Commands to strip libraries. -old_striplib=$lt_old_striplib -striplib=$lt_striplib - -# Dependencies to place before the objects being linked to create a -# shared library. -predep_objects=\`echo $lt_predep_objects_GCJ | \$SED -e "s@\${gcc_dir}@\\\${gcc_dir}@g;s@\${gcc_ver}@\\\${gcc_ver}@g"\` - -# Dependencies to place after the objects being linked to create a -# shared library. -postdep_objects=\`echo $lt_postdep_objects_GCJ | \$SED -e "s@\${gcc_dir}@\\\${gcc_dir}@g;s@\${gcc_ver}@\\\${gcc_ver}@g"\` - -# Dependencies to place before the objects being linked to create a -# shared library. -predeps=$lt_predeps_GCJ - -# Dependencies to place after the objects being linked to create a -# shared library. -postdeps=$lt_postdeps_GCJ - -# The library search path used internally by the compiler when linking -# a shared library. -compiler_lib_search_path=\`echo $lt_compiler_lib_search_path_GCJ | \$SED -e "s@\${gcc_dir}@\\\${gcc_dir}@g;s@\${gcc_ver}@\\\${gcc_ver}@g"\` - -# 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 - -# Flag that allows shared libraries with undefined symbols to be built. -allow_undefined_flag=$lt_allow_undefined_flag_GCJ - -# Flag that forces no undefined symbols. -no_undefined_flag=$lt_no_undefined_flag_GCJ - -# Commands used to finish a libtool library installation in a directory. -finish_cmds=$lt_finish_cmds - -# Same as above, but a single script fragment to be evaled but not shown. -finish_eval=$lt_finish_eval - -# 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 - -# This is the shared library runtime path variable. -runpath_var=$runpath_var - -# This is the shared library path variable. -shlibpath_var=$shlibpath_var - -# Is shlibpath searched before the hard-coded library search path? -shlibpath_overrides_runpath=$shlibpath_overrides_runpath - -# How to hardcode a shared library path into an executable. -hardcode_action=$hardcode_action_GCJ - -# Whether we should hardcode library paths into libraries. -hardcode_into_libs=$hardcode_into_libs - -# 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_GCJ - -# If ld is used when linking, flag to hardcode \$libdir into -# a binary during linking. This must work even if \$libdir does -# not exist. -hardcode_libdir_flag_spec_ld=$lt_hardcode_libdir_flag_spec_ld_GCJ - -# Whether we need a single -rpath flag with a separated argument. -hardcode_libdir_separator=$lt_hardcode_libdir_separator_GCJ - -# Set to yes if using DIR/libNAME${shared_ext} during linking hardcodes DIR into the -# resulting binary. -hardcode_direct=$hardcode_direct_GCJ - -# Set to yes if using the -LDIR flag during linking hardcodes DIR into the -# resulting binary. -hardcode_minus_L=$hardcode_minus_L_GCJ - -# Set to yes if using SHLIBPATH_VAR=DIR during linking hardcodes DIR into -# the resulting binary. -hardcode_shlibpath_var=$hardcode_shlibpath_var_GCJ - -# 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_GCJ - -# Variables whose values should be saved in libtool wrapper scripts and -# restored at relink time. -variables_saved_for_relink="$variables_saved_for_relink" - -# Whether libtool must link a program against all its dependency libraries. -link_all_deplibs=$link_all_deplibs_GCJ - -# Compile-time system search path for libraries -sys_lib_search_path_spec=\`echo $lt_sys_lib_search_path_spec | \$SED -e "s@\${gcc_dir}@\\\${gcc_dir}@g;s@\${gcc_ver}@\\\${gcc_ver}@g"\` - -# Run-time system search path for libraries -sys_lib_dlsearch_path_spec=$lt_sys_lib_dlsearch_path_spec - -# Fix the shell variable \$srcfile for the compiler. -fix_srcfile_path="$fix_srcfile_path_GCJ" - -# Set to yes if exported symbols are required. -always_export_symbols=$always_export_symbols_GCJ - -# The commands to list exported symbols. -export_symbols_cmds=$lt_export_symbols_cmds_GCJ - -# The commands to extract the exported symbol list from a shared archive. -extract_expsyms_cmds=$lt_extract_expsyms_cmds - -# Symbols that should not be listed in the preloaded symbols. -exclude_expsyms=$lt_exclude_expsyms_GCJ - -# Symbols that must always be exported. -include_expsyms=$lt_include_expsyms_GCJ - -# ### END LIBTOOL TAG CONFIG: $tagname - -__EOF__ - - -else - # If there is no Makefile yet, we rely on a make rule to execute - # `config.status --recheck' to rerun these tests and create the - # libtool script then. - ltmain_in=`echo $ltmain | sed -e 's/\.sh$/.in/'` - if test -f "$ltmain_in"; then - test -f Makefile && make "$ltmain" - fi -fi - - -ac_ext=c -ac_cpp='$CPP $CPPFLAGS' -ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' -ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' -ac_compiler_gnu=$ac_cv_c_compiler_gnu - -CC="$lt_save_CC" - - else - tagname="" - fi - ;; - - RC) - - -# Source file extension for RC test sources. -ac_ext=rc - -# Object file extension for compiled RC test sources. -objext=o -objext_RC=$objext - -# Code to be used in simple compile tests -lt_simple_compile_test_code='sample MENU { MENUITEM "&Soup", 100, CHECKED }\n' - -# 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. - -# 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 warnings/boilerplate of simple test code -ac_outfile=conftest.$ac_objext -printf "$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 -printf "$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 conftest* - - -# Allow CC to be a program name with arguments. -lt_save_CC="$CC" -CC=${RC-"windres"} -compiler=$CC -compiler_RC=$CC -for cc_temp in $compiler""; do - case $cc_temp in - compile | *[\\/]compile | ccache | *[\\/]ccache ) ;; - distcc | *[\\/]distcc | purify | *[\\/]purify ) ;; - \-*) ;; - *) break;; - esac -done -cc_basename=`$echo "X$cc_temp" | $Xsed -e 's%.*/%%' -e "s%^$host_alias-%%"` - -lt_cv_prog_compiler_c_o_RC=yes - -# The else clause should only fire when bootstrapping the -# libtool distribution, otherwise you forgot to ship ltmain.sh -# with your package, and you will get complaints that there are -# no rules to generate ltmain.sh. -if test -f "$ltmain"; then - # 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 - # Now quote all the things that may contain metacharacters while being - # careful not to overquote the AC_SUBSTed values. We take copies of the - # variables and quote the copies for generation of the libtool script. - for var in echo old_CC old_CFLAGS AR AR_FLAGS EGREP RANLIB LN_S LTCC LTCFLAGS NM \ - SED SHELL STRIP \ - libname_spec library_names_spec soname_spec extract_expsyms_cmds \ - old_striplib striplib file_magic_cmd finish_cmds finish_eval \ - deplibs_check_method reload_flag reload_cmds need_locks \ - lt_cv_sys_global_symbol_pipe lt_cv_sys_global_symbol_to_cdecl \ - lt_cv_sys_global_symbol_to_c_name_address \ - sys_lib_search_path_spec sys_lib_dlsearch_path_spec \ - old_postinstall_cmds old_postuninstall_cmds \ - compiler_RC \ - CC_RC \ - LD_RC \ - lt_prog_compiler_wl_RC \ - lt_prog_compiler_pic_RC \ - lt_prog_compiler_static_RC \ - lt_prog_compiler_no_builtin_flag_RC \ - export_dynamic_flag_spec_RC \ - thread_safe_flag_spec_RC \ - whole_archive_flag_spec_RC \ - enable_shared_with_static_runtimes_RC \ - old_archive_cmds_RC \ - old_archive_from_new_cmds_RC \ - predep_objects_RC \ - postdep_objects_RC \ - predeps_RC \ - postdeps_RC \ - compiler_lib_search_path_RC \ - archive_cmds_RC \ - archive_expsym_cmds_RC \ - postinstall_cmds_RC \ - postuninstall_cmds_RC \ - old_archive_from_expsyms_cmds_RC \ - allow_undefined_flag_RC \ - no_undefined_flag_RC \ - export_symbols_cmds_RC \ - hardcode_libdir_flag_spec_RC \ - hardcode_libdir_flag_spec_ld_RC \ - hardcode_libdir_separator_RC \ - hardcode_automatic_RC \ - module_cmds_RC \ - module_expsym_cmds_RC \ - lt_cv_prog_compiler_c_o_RC \ - exclude_expsyms_RC \ - include_expsyms_RC; do - - case $var in - old_archive_cmds_RC | \ - old_archive_from_new_cmds_RC | \ - archive_cmds_RC | \ - archive_expsym_cmds_RC | \ - module_cmds_RC | \ - module_expsym_cmds_RC | \ - old_archive_from_expsyms_cmds_RC | \ - export_symbols_cmds_RC | \ - extract_expsyms_cmds | reload_cmds | finish_cmds | \ - postinstall_cmds | postuninstall_cmds | \ - old_postinstall_cmds | old_postuninstall_cmds | \ - sys_lib_search_path_spec | sys_lib_dlsearch_path_spec) - # Double-quote double-evaled strings. - eval "lt_$var=\\\"\`\$echo \"X\$$var\" | \$Xsed -e \"\$double_quote_subst\" -e \"\$sed_quote_subst\" -e \"\$delay_variable_subst\"\`\\\"" - ;; - *) - eval "lt_$var=\\\"\`\$echo \"X\$$var\" | \$Xsed -e \"\$sed_quote_subst\"\`\\\"" - ;; - esac - done - - case $lt_echo in - *'\$0 --fallback-echo"') - lt_echo=`$echo "X$lt_echo" | $Xsed -e 's/\\\\\\\$0 --fallback-echo"$/$0 --fallback-echo"/'` - ;; - esac - -cfgfile="$ofile" - - cat <<__EOF__ >> "$cfgfile" -# ### BEGIN LIBTOOL TAG CONFIG: $tagname - -# Libtool was configured on host `(hostname || uname -n) 2>/dev/null | sed 1q`: - -# Shell to use when invoking shell scripts. -SHELL=$lt_SHELL - -# Whether or not to build shared libraries. -build_libtool_libs=$enable_shared - -# Whether or not to build static libraries. -build_old_libs=$enable_static - -# Whether or not to add -lc for building shared libraries. -build_libtool_need_lc=$archive_cmds_need_lc_RC - -# Whether or not to disallow shared libs when runtime libs are static -allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes_RC - -# Whether or not to optimize for fast installation. -fast_install=$enable_fast_install - -# 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 - -# An echo program that does not interpret backslashes. -echo=$lt_echo - -# The archiver. -AR=$lt_AR -AR_FLAGS=$lt_AR_FLAGS - -# A C compiler. -LTCC=$lt_LTCC - -# LTCC compiler flags. -LTCFLAGS=$lt_LTCFLAGS - -# A language-specific compiler. -CC=$lt_compiler_RC - -# Is the compiler the GNU C compiler? -with_gcc=$GCC_RC - -gcc_dir=\`gcc -print-file-name=. | $SED 's,/\.$,,'\` -gcc_ver=\`gcc -dumpversion\` - -# An ERE matcher. -EGREP=$lt_EGREP - -# The linker used to build libraries. -LD=$lt_LD_RC - -# Whether we need hard or soft links. -LN_S=$lt_LN_S - -# A BSD-compatible nm program. -NM=$lt_NM - -# A symbol stripping program -STRIP=$lt_STRIP - -# Used to examine libraries when file_magic_cmd begins "file" -MAGIC_CMD=$MAGIC_CMD - -# Used on cygwin: DLL creation program. -DLLTOOL="$DLLTOOL" - -# Used on cygwin: object dumper. -OBJDUMP="$OBJDUMP" - -# Used on cygwin: assembler. -AS="$AS" - -# The name of the directory that contains temporary libtool files. -objdir=$objdir - -# How to create reloadable object files. -reload_flag=$lt_reload_flag -reload_cmds=$lt_reload_cmds - -# How to pass a linker flag through the compiler. -wl=$lt_lt_prog_compiler_wl_RC - -# Object file suffix (normally "o"). -objext="$ac_objext" - -# Old archive suffix (normally "a"). -libext="$libext" - -# Shared library suffix (normally ".so"). -shrext_cmds='$shrext_cmds' - -# Executable file suffix (normally ""). -exeext="$exeext" - -# Additional compiler flags for building library objects. -pic_flag=$lt_lt_prog_compiler_pic_RC -pic_mode=$pic_mode - -# What is the maximum length of a command? -max_cmd_len=$lt_cv_sys_max_cmd_len - -# Does compiler simultaneously support -c and -o options? -compiler_c_o=$lt_lt_cv_prog_compiler_c_o_RC - -# Must we lock files when doing compilation? -need_locks=$lt_need_locks - -# 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 - -# 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 - -# Compiler flag to prevent dynamic linking. -link_static_flag=$lt_lt_prog_compiler_static_RC - -# Compiler flag to turn off builtin functions. -no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag_RC - -# Compiler flag to allow reflexive dlopens. -export_dynamic_flag_spec=$lt_export_dynamic_flag_spec_RC - -# Compiler flag to generate shared objects directly from archives. -whole_archive_flag_spec=$lt_whole_archive_flag_spec_RC - -# Compiler flag to generate thread-safe objects. -thread_safe_flag_spec=$lt_thread_safe_flag_spec_RC - -# Library versioning type. -version_type=$version_type - -# 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 - -# Commands used to build and install an old-style archive. -RANLIB=$lt_RANLIB -old_archive_cmds=$lt_old_archive_cmds_RC -old_postinstall_cmds=$lt_old_postinstall_cmds -old_postuninstall_cmds=$lt_old_postuninstall_cmds - -# Create an old-style archive from a shared archive. -old_archive_from_new_cmds=$lt_old_archive_from_new_cmds_RC - -# Create a temporary old-style archive to link instead of a shared archive. -old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds_RC - -# Commands used to build and install a shared archive. -archive_cmds=$lt_archive_cmds_RC -archive_expsym_cmds=$lt_archive_expsym_cmds_RC -postinstall_cmds=$lt_postinstall_cmds -postuninstall_cmds=$lt_postuninstall_cmds - -# Commands used to build a loadable module (assumed same as above if empty) -module_cmds=$lt_module_cmds_RC -module_expsym_cmds=$lt_module_expsym_cmds_RC - -# Commands to strip libraries. -old_striplib=$lt_old_striplib -striplib=$lt_striplib - -# Dependencies to place before the objects being linked to create a -# shared library. -predep_objects=\`echo $lt_predep_objects_RC | \$SED -e "s@\${gcc_dir}@\\\${gcc_dir}@g;s@\${gcc_ver}@\\\${gcc_ver}@g"\` - -# Dependencies to place after the objects being linked to create a -# shared library. -postdep_objects=\`echo $lt_postdep_objects_RC | \$SED -e "s@\${gcc_dir}@\\\${gcc_dir}@g;s@\${gcc_ver}@\\\${gcc_ver}@g"\` - -# Dependencies to place before the objects being linked to create a -# shared library. -predeps=$lt_predeps_RC - -# Dependencies to place after the objects being linked to create a -# shared library. -postdeps=$lt_postdeps_RC - -# The library search path used internally by the compiler when linking -# a shared library. -compiler_lib_search_path=\`echo $lt_compiler_lib_search_path_RC | \$SED -e "s@\${gcc_dir}@\\\${gcc_dir}@g;s@\${gcc_ver}@\\\${gcc_ver}@g"\` - -# 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 - -# Flag that allows shared libraries with undefined symbols to be built. -allow_undefined_flag=$lt_allow_undefined_flag_RC - -# Flag that forces no undefined symbols. -no_undefined_flag=$lt_no_undefined_flag_RC - -# Commands used to finish a libtool library installation in a directory. -finish_cmds=$lt_finish_cmds - -# Same as above, but a single script fragment to be evaled but not shown. -finish_eval=$lt_finish_eval - -# 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 - -# This is the shared library runtime path variable. -runpath_var=$runpath_var - -# This is the shared library path variable. -shlibpath_var=$shlibpath_var - -# Is shlibpath searched before the hard-coded library search path? -shlibpath_overrides_runpath=$shlibpath_overrides_runpath - -# How to hardcode a shared library path into an executable. -hardcode_action=$hardcode_action_RC - -# Whether we should hardcode library paths into libraries. -hardcode_into_libs=$hardcode_into_libs - -# 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_RC - -# If ld is used when linking, flag to hardcode \$libdir into -# a binary during linking. This must work even if \$libdir does -# not exist. -hardcode_libdir_flag_spec_ld=$lt_hardcode_libdir_flag_spec_ld_RC - -# Whether we need a single -rpath flag with a separated argument. -hardcode_libdir_separator=$lt_hardcode_libdir_separator_RC - -# Set to yes if using DIR/libNAME${shared_ext} during linking hardcodes DIR into the -# resulting binary. -hardcode_direct=$hardcode_direct_RC - -# Set to yes if using the -LDIR flag during linking hardcodes DIR into the -# resulting binary. -hardcode_minus_L=$hardcode_minus_L_RC - -# Set to yes if using SHLIBPATH_VAR=DIR during linking hardcodes DIR into -# the resulting binary. -hardcode_shlibpath_var=$hardcode_shlibpath_var_RC - -# 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_RC - -# Variables whose values should be saved in libtool wrapper scripts and -# restored at relink time. -variables_saved_for_relink="$variables_saved_for_relink" - -# Whether libtool must link a program against all its dependency libraries. -link_all_deplibs=$link_all_deplibs_RC - -# Compile-time system search path for libraries -sys_lib_search_path_spec=\`echo $lt_sys_lib_search_path_spec | \$SED -e "s@\${gcc_dir}@\\\${gcc_dir}@g;s@\${gcc_ver}@\\\${gcc_ver}@g"\` - -# Run-time system search path for libraries -sys_lib_dlsearch_path_spec=$lt_sys_lib_dlsearch_path_spec - -# Fix the shell variable \$srcfile for the compiler. -fix_srcfile_path="$fix_srcfile_path_RC" - -# Set to yes if exported symbols are required. -always_export_symbols=$always_export_symbols_RC - -# The commands to list exported symbols. -export_symbols_cmds=$lt_export_symbols_cmds_RC - -# The commands to extract the exported symbol list from a shared archive. -extract_expsyms_cmds=$lt_extract_expsyms_cmds - -# Symbols that should not be listed in the preloaded symbols. -exclude_expsyms=$lt_exclude_expsyms_RC - -# Symbols that must always be exported. -include_expsyms=$lt_include_expsyms_RC - -# ### END LIBTOOL TAG CONFIG: $tagname - -__EOF__ - - -else - # If there is no Makefile yet, we rely on a make rule to execute - # `config.status --recheck' to rerun these tests and create the - # libtool script then. - ltmain_in=`echo $ltmain | sed -e 's/\.sh$/.in/'` - if test -f "$ltmain_in"; then - test -f Makefile && make "$ltmain" - fi -fi - - -ac_ext=c -ac_cpp='$CPP $CPPFLAGS' -ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' -ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' -ac_compiler_gnu=$ac_cv_c_compiler_gnu - -CC="$lt_save_CC" - - ;; - - *) - as_fn_error $? "Unsupported tag name: $tagname" "$LINENO" 5 - ;; - esac - - # Append the new tag name to the list of available tags. - if test -n "$tagname" ; then - available_tags="$available_tags $tagname" - fi - fi - done - IFS="$lt_save_ifs" - - # Now substitute the updated list of available tags. - if eval "sed -e 's/^available_tags=.*\$/available_tags=\"$available_tags\"/' \"$ofile\" > \"${ofile}T\""; then - mv "${ofile}T" "$ofile" - chmod +x "$ofile" - else - rm -f "${ofile}T" - as_fn_error $? "unable to update list of available tagged configurations." "$LINENO" 5 - fi -fi - - - -# This can be used to rebuild libtool when needed -LIBTOOL_DEPS="$ac_aux_dir/ltmain.sh" - -# Always use our own libtool. -LIBTOOL='$(SHELL) $(top_builddir)/libtool' - -# Prevent multiple expansion - - - - - - - - - - - - - - - - - - - - - - -ac_config_headers="$ac_config_headers src/pqt_config.h:src/pqt_config.h.in" - -ac_ext=cpp -ac_cpp='$CXXCPP $CPPFLAGS' -ac_compile='$CXX -c $CXXFLAGS $CPPFLAGS conftest.$ac_ext >&5' -ac_link='$CXX -o conftest$ac_exeext $CXXFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' -ac_compiler_gnu=$ac_cv_cxx_compiler_gnu -if test -z "$CXX"; then - if test -n "$CCC"; then - CXX=$CCC - else - if test -n "$ac_tool_prefix"; then - for ac_prog in g++ c++ gpp aCC CC cxx cc++ cl.exe FCC KCC RCC xlC_r xlC - 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_CXX+:} false; then : - $as_echo_n "(cached) " >&6 -else - if test -n "$CXX"; then - ac_cv_prog_CXX="$CXX" # 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 as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then - ac_cv_prog_CXX="$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 -CXX=$ac_cv_prog_CXX -if test -n "$CXX"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CXX" >&5 -$as_echo "$CXX" >&6; } -else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } -fi - - - test -n "$CXX" && break - done -fi -if test -z "$CXX"; then - ac_ct_CXX=$CXX - for ac_prog in g++ c++ gpp aCC CC cxx cc++ cl.exe FCC KCC RCC xlC_r xlC -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_CXX+:} false; then : - $as_echo_n "(cached) " >&6 -else - if test -n "$ac_ct_CXX"; then - ac_cv_prog_ac_ct_CXX="$ac_ct_CXX" # 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 as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then - ac_cv_prog_ac_ct_CXX="$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_CXX=$ac_cv_prog_ac_ct_CXX -if test -n "$ac_ct_CXX"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CXX" >&5 -$as_echo "$ac_ct_CXX" >&6; } -else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } -fi - - - test -n "$ac_ct_CXX" && break -done - - if test "x$ac_ct_CXX" = x; then - CXX="g++" - 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 - CXX=$ac_ct_CXX - fi -fi - - fi -fi -# 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 - -{ $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_cxx_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_cxx_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_cxx_compiler_gnu=$ac_compiler_gnu - -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_cxx_compiler_gnu" >&5 -$as_echo "$ac_cv_cxx_compiler_gnu" >&6; } -if test $ac_compiler_gnu = yes; then - GXX=yes -else - GXX= -fi -ac_test_CXXFLAGS=${CXXFLAGS+set} -ac_save_CXXFLAGS=$CXXFLAGS -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $CXX accepts -g" >&5 -$as_echo_n "checking whether $CXX accepts -g... " >&6; } -if ${ac_cv_prog_cxx_g+:} false; then : - $as_echo_n "(cached) " >&6 -else - ac_save_cxx_werror_flag=$ac_cxx_werror_flag - ac_cxx_werror_flag=yes - ac_cv_prog_cxx_g=no - CXXFLAGS="-g" - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -int -main () -{ - - ; - return 0; -} -_ACEOF -if ac_fn_cxx_try_compile "$LINENO"; then : - ac_cv_prog_cxx_g=yes -else - CXXFLAGS="" - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -int -main () -{ - - ; - return 0; -} -_ACEOF -if ac_fn_cxx_try_compile "$LINENO"; then : - -else - ac_cxx_werror_flag=$ac_save_cxx_werror_flag - CXXFLAGS="-g" - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -int -main () -{ - - ; - return 0; -} -_ACEOF -if ac_fn_cxx_try_compile "$LINENO"; then : - ac_cv_prog_cxx_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_cxx_werror_flag=$ac_save_cxx_werror_flag -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cxx_g" >&5 -$as_echo "$ac_cv_prog_cxx_g" >&6; } -if test "$ac_test_CXXFLAGS" = set; then - CXXFLAGS=$ac_save_CXXFLAGS -elif test $ac_cv_prog_cxx_g = yes; then - if test "$GXX" = yes; then - CXXFLAGS="-g -O2" - else - CXXFLAGS="-g" - fi -else - if test "$GXX" = yes; then - CXXFLAGS="-O2" - else - CXXFLAGS= - fi -fi -ac_ext=c -ac_cpp='$CPP $CPPFLAGS' -ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' -ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' -ac_compiler_gnu=$ac_cv_c_compiler_gnu - -depcc="$CXX" 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_CXX_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'. - 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_CXX_dependencies_compiler_type=none - if test "$am_compiler_list" = ""; then - am_compiler_list=`sed -n 's/^#*\([a-zA-Z0-9]*\))$/\1/p' < ./depcomp` - fi - 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 - - case $depmode in - 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 - ;; - none) break ;; - esac - # 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. - if depmode=$depmode \ - source=sub/conftest.c object=sub/conftest.${OBJEXT-o} \ - depfile=sub/conftest.Po tmpdepfile=sub/conftest.TPo \ - $SHELL ./depcomp $depcc -c -o sub/conftest.${OBJEXT-o} sub/conftest.c \ - >/dev/null 2>conftest.err && - grep sub/conftst6.h sub/conftest.Po > /dev/null 2>&1 && - grep sub/conftest.${OBJEXT-o} 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_CXX_dependencies_compiler_type=$depmode - break - fi - fi - done - - cd .. - rm -rf conftest.dir -else - am_cv_CXX_dependencies_compiler_type=none -fi - -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $am_cv_CXX_dependencies_compiler_type" >&5 -$as_echo "$am_cv_CXX_dependencies_compiler_type" >&6; } -CXXDEPMODE=depmode=$am_cv_CXX_dependencies_compiler_type - - - -if - test "x$enable_dependency_tracking" != xno \ - && test "$am_cv_CXX_dependencies_compiler_type" = gcc3; then - am__fastdepCXX_TRUE= - am__fastdepCXX_FALSE='#' -else - am__fastdepCXX_TRUE='#' - am__fastdepCXX_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 - # Extract the first word of "${ac_tool_prefix}gcc", so it can be a program name with args. -set dummy ${ac_tool_prefix}gcc; ac_word=$2 -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 -$as_echo_n "checking for $ac_word... " >&6; } -if ${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 as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then - ac_cv_prog_CC="${ac_tool_prefix}gcc" - $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 - break 2 - fi -done - done -IFS=$as_save_IFS - -fi -fi -CC=$ac_cv_prog_CC -if test -n "$CC"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 -$as_echo "$CC" >&6; } -else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } -fi - - -fi -if test -z "$ac_cv_prog_CC"; then - ac_ct_CC=$CC - # Extract the first word of "gcc", so it can be a program name with args. -set dummy gcc; ac_word=$2 -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 -$as_echo_n "checking for $ac_word... " >&6; } -if ${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 as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then - ac_cv_prog_ac_ct_CC="gcc" - $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 - break 2 - fi -done - done -IFS=$as_save_IFS - -fi -fi -ac_ct_CC=$ac_cv_prog_ac_ct_CC -if test -n "$ac_ct_CC"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CC" >&5 -$as_echo "$ac_ct_CC" >&6; } -else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } -fi - - if test "x$ac_ct_CC" = x; then - CC="" - else - case $cross_compiling:$ac_tool_warned in -yes:) -{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 -$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} -ac_tool_warned=yes ;; -esac - CC=$ac_ct_CC - fi -else - CC="$ac_cv_prog_CC" -fi - -if test -z "$CC"; then - if test -n "$ac_tool_prefix"; then - # Extract the first word of "${ac_tool_prefix}cc", so it can be a program name with args. -set dummy ${ac_tool_prefix}cc; ac_word=$2 -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 -$as_echo_n "checking for $ac_word... " >&6; } -if ${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 as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then - ac_cv_prog_CC="${ac_tool_prefix}cc" - $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 - break 2 - fi -done - done -IFS=$as_save_IFS - -fi -fi -CC=$ac_cv_prog_CC -if test -n "$CC"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 -$as_echo "$CC" >&6; } -else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } -fi - - - fi -fi -if test -z "$CC"; then - # Extract the first word of "cc", so it can be a program name with args. -set dummy cc; ac_word=$2 -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 -$as_echo_n "checking for $ac_word... " >&6; } -if ${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 - ac_prog_rejected=no -as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in $PATH -do - IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. - for ac_exec_ext in '' $ac_executable_extensions; do - if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then - if test "$as_dir/$ac_word$ac_exec_ext" = "/usr/ucb/cc"; then - ac_prog_rejected=yes - continue - fi - ac_cv_prog_CC="cc" - $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 - break 2 - fi -done - done -IFS=$as_save_IFS - -if test $ac_prog_rejected = yes; then - # We found a bogon in the path, so make sure we never use it. - set dummy $ac_cv_prog_CC - shift - if test $# != 0; then - # We chose a different compiler from the bogus one. - # However, it has the same basename, so the bogon will be chosen - # first if we set CC to just the basename; use the full file name. - shift - ac_cv_prog_CC="$as_dir/$ac_word${1+' '}$@" - fi -fi -fi -fi -CC=$ac_cv_prog_CC -if test -n "$CC"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 -$as_echo "$CC" >&6; } -else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } -fi - - -fi -if test -z "$CC"; then - if test -n "$ac_tool_prefix"; then - for ac_prog in cl.exe - do - # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args. -set dummy $ac_tool_prefix$ac_prog; ac_word=$2 -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 -$as_echo_n "checking for $ac_word... " >&6; } -if ${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 as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then - ac_cv_prog_CC="$ac_tool_prefix$ac_prog" - $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 - break 2 - fi -done - done -IFS=$as_save_IFS - -fi -fi -CC=$ac_cv_prog_CC -if test -n "$CC"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 -$as_echo "$CC" >&6; } -else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } -fi - - - test -n "$CC" && break - done -fi -if test -z "$CC"; then - ac_ct_CC=$CC - for ac_prog in cl.exe -do - # Extract the first word of "$ac_prog", so it can be a program name with args. -set dummy $ac_prog; ac_word=$2 -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 -$as_echo_n "checking for $ac_word... " >&6; } -if ${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 as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then - ac_cv_prog_ac_ct_CC="$ac_prog" - $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 - break 2 - fi -done - done -IFS=$as_save_IFS - -fi -fi -ac_ct_CC=$ac_cv_prog_ac_ct_CC -if test -n "$ac_ct_CC"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CC" >&5 -$as_echo "$ac_ct_CC" >&6; } -else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } -fi - - - test -n "$ac_ct_CC" && break -done - - if test "x$ac_ct_CC" = x; then - CC="" - else - case $cross_compiling:$ac_tool_warned in -yes:) -{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 -$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} -ac_tool_warned=yes ;; -esac - CC=$ac_ct_CC - fi -fi - -fi - - -test -z "$CC" && { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 -$as_echo "$as_me: error: in \`$ac_pwd':" >&2;} -as_fn_error $? "no acceptable C compiler found in \$PATH -See \`config.log' for more details" "$LINENO" 5; } - -# Provide some information about the compiler. -$as_echo "$as_me:${as_lineno-$LINENO}: checking for C compiler version" >&5 -set X $ac_compile -ac_compiler=$2 -for ac_option in --version -v -V -qversion; do - { { ac_try="$ac_compiler $ac_option >&5" -case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" -$as_echo "$ac_try_echo"; } >&5 - (eval "$ac_compiler $ac_option >&5") 2>conftest.err - ac_status=$? - if test -s conftest.err; then - sed '10a\ -... rest of stderr output deleted ... - 10q' conftest.err >conftest.er1 - cat conftest.er1 >&5 - fi - rm -f conftest.er1 conftest.err - $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 - test $ac_status = 0; } -done - -{ $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 -struct stat; -/* 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 - -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'. - 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 - 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 - - case $depmode in - 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 - ;; - none) break ;; - esac - # 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. - if depmode=$depmode \ - source=sub/conftest.c object=sub/conftest.${OBJEXT-o} \ - depfile=sub/conftest.Po tmpdepfile=sub/conftest.TPo \ - $SHELL ./depcomp $depcc -c -o sub/conftest.${OBJEXT-o} sub/conftest.c \ - >/dev/null 2>conftest.err && - grep sub/conftst6.h sub/conftest.Po > /dev/null 2>&1 && - grep sub/conftest.${OBJEXT-o} 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 - - - -CPPFLAGS="$CPPFLAGS -Isrc" -if test "$CC" = "gcc" ; then - # always want reentrant funcs, not just thread-safe mode. -s - CFLAGS="$CFLAGS -O3 -Wall -Wpointer-arith -D_GNU_SOURCE -D_REENTRANT -fsigned-char" - - # gcc doesn't indicate an error for unknown options when they are - # not warning/feature options, -Wxxx or -fxxx. We have to test manually. - cprog="int main(void){return 0;}" - gcctest="gcc -x c -c - -o /dev/null" - - { $as_echo "$as_me:${as_lineno-$LINENO}: checking CFLAGS for gcc -std=gnu99..." >&5 -$as_echo_n "checking CFLAGS for gcc -std=gnu99...... " >&6; } - result=`echo "$cprog" | $gcctest -std=gnu99 2>&1` - if test -z "$result" ; then - CFLAGS="$CFLAGS -std=gnu99" - { $as_echo "$as_me:${as_lineno-$LINENO}: result: -std=gnu99" >&5 -$as_echo "-std=gnu99" >&6; } - else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no, unknown" >&5 -$as_echo "no, unknown" >&6; } - fi - - # turn on as many warnings as possible - { $as_echo "$as_me:${as_lineno-$LINENO}: checking CFLAGS for gcc -Wclobbered" >&5 -$as_echo_n "checking CFLAGS for gcc -Wclobbered... " >&6; } -if ${ac_cv_cflags_gcc_option__Wclobbered+:} false; then : - $as_echo_n "(cached) " >&6 -else - ac_cv_cflags_gcc_option__Wclobbered="no, unknown" - - 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_save_CFLAGS="$CFLAGS" -for ac_arg in "-pedantic -Werror % -Wclobbered" "-pedantic % -Wclobbered %% no, obsolete" # -do CFLAGS="$ac_save_CFLAGS "`echo $ac_arg | sed -e 's,%%.*,,' -e 's,%,,'` - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -int -main () -{ -return 0; - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO"; then : - ac_cv_cflags_gcc_option__Wclobbered=`echo $ac_arg | sed -e 's,.*% *,,'` ; break -fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext -done - CFLAGS="$ac_save_CFLAGS" - 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: $ac_cv_cflags_gcc_option__Wclobbered" >&5 -$as_echo "$ac_cv_cflags_gcc_option__Wclobbered" >&6; } -case ".$ac_cv_cflags_gcc_option__Wclobbered" in - .ok|.ok,*) ;; - .|.no|.no,*) ;; - *) - if echo " $CFLAGS " | grep " $ac_cv_cflags_gcc_option__Wclobbered " 2>&1 >/dev/null - then { { $as_echo "$as_me:${as_lineno-$LINENO}: : CFLAGS does contain \$ac_cv_cflags_gcc_option__Wclobbered"; } >&5 - (: CFLAGS does contain $ac_cv_cflags_gcc_option__Wclobbered) 2>&5 - ac_status=$? - $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 - test $ac_status = 0; } - else { { $as_echo "$as_me:${as_lineno-$LINENO}: : CFLAGS=\"\$CFLAGS \$ac_cv_cflags_gcc_option__Wclobbered\""; } >&5 - (: CFLAGS="$CFLAGS $ac_cv_cflags_gcc_option__Wclobbered") 2>&5 - ac_status=$? - $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 - test $ac_status = 0; } - CFLAGS="$CFLAGS $ac_cv_cflags_gcc_option__Wclobbered" - fi - ;; -esac - - { $as_echo "$as_me:${as_lineno-$LINENO}: checking CFLAGS for gcc -Wempty-body" >&5 -$as_echo_n "checking CFLAGS for gcc -Wempty-body... " >&6; } -if ${ac_cv_cflags_gcc_option__Wempty_body+:} false; then : - $as_echo_n "(cached) " >&6 -else - ac_cv_cflags_gcc_option__Wempty_body="no, unknown" - - 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_save_CFLAGS="$CFLAGS" -for ac_arg in "-pedantic -Werror % -Wempty-body" "-pedantic % -Wempty-body %% no, obsolete" # -do CFLAGS="$ac_save_CFLAGS "`echo $ac_arg | sed -e 's,%%.*,,' -e 's,%,,'` - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -int -main () -{ -return 0; - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO"; then : - ac_cv_cflags_gcc_option__Wempty_body=`echo $ac_arg | sed -e 's,.*% *,,'` ; break -fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext -done - CFLAGS="$ac_save_CFLAGS" - 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: $ac_cv_cflags_gcc_option__Wempty_body" >&5 -$as_echo "$ac_cv_cflags_gcc_option__Wempty_body" >&6; } -case ".$ac_cv_cflags_gcc_option__Wempty_body" in - .ok|.ok,*) ;; - .|.no|.no,*) ;; - *) - if echo " $CFLAGS " | grep " $ac_cv_cflags_gcc_option__Wempty_body " 2>&1 >/dev/null - then { { $as_echo "$as_me:${as_lineno-$LINENO}: : CFLAGS does contain \$ac_cv_cflags_gcc_option__Wempty_body"; } >&5 - (: CFLAGS does contain $ac_cv_cflags_gcc_option__Wempty_body) 2>&5 - ac_status=$? - $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 - test $ac_status = 0; } - else { { $as_echo "$as_me:${as_lineno-$LINENO}: : CFLAGS=\"\$CFLAGS \$ac_cv_cflags_gcc_option__Wempty_body\""; } >&5 - (: CFLAGS="$CFLAGS $ac_cv_cflags_gcc_option__Wempty_body") 2>&5 - ac_status=$? - $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 - test $ac_status = 0; } - CFLAGS="$CFLAGS $ac_cv_cflags_gcc_option__Wempty_body" - fi - ;; -esac - - { $as_echo "$as_me:${as_lineno-$LINENO}: checking CFLAGS for gcc -Wignored-qualifiers" >&5 -$as_echo_n "checking CFLAGS for gcc -Wignored-qualifiers... " >&6; } -if ${ac_cv_cflags_gcc_option__Wignored_qualifiers+:} false; then : - $as_echo_n "(cached) " >&6 -else - ac_cv_cflags_gcc_option__Wignored_qualifiers="no, unknown" - - 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_save_CFLAGS="$CFLAGS" -for ac_arg in "-pedantic -Werror % -Wignored-qualifiers" "-pedantic % -Wignored-qualifiers %% no, obsolete" # -do CFLAGS="$ac_save_CFLAGS "`echo $ac_arg | sed -e 's,%%.*,,' -e 's,%,,'` - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -int -main () -{ -return 0; - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO"; then : - ac_cv_cflags_gcc_option__Wignored_qualifiers=`echo $ac_arg | sed -e 's,.*% *,,'` ; break -fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext -done - CFLAGS="$ac_save_CFLAGS" - 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: $ac_cv_cflags_gcc_option__Wignored_qualifiers" >&5 -$as_echo "$ac_cv_cflags_gcc_option__Wignored_qualifiers" >&6; } -case ".$ac_cv_cflags_gcc_option__Wignored_qualifiers" in - .ok|.ok,*) ;; - .|.no|.no,*) ;; - *) - if echo " $CFLAGS " | grep " $ac_cv_cflags_gcc_option__Wignored_qualifiers " 2>&1 >/dev/null - then { { $as_echo "$as_me:${as_lineno-$LINENO}: : CFLAGS does contain \$ac_cv_cflags_gcc_option__Wignored_qualifiers"; } >&5 - (: CFLAGS does contain $ac_cv_cflags_gcc_option__Wignored_qualifiers) 2>&5 - ac_status=$? - $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 - test $ac_status = 0; } - else { { $as_echo "$as_me:${as_lineno-$LINENO}: : CFLAGS=\"\$CFLAGS \$ac_cv_cflags_gcc_option__Wignored_qualifiers\""; } >&5 - (: CFLAGS="$CFLAGS $ac_cv_cflags_gcc_option__Wignored_qualifiers") 2>&5 - ac_status=$? - $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 - test $ac_status = 0; } - CFLAGS="$CFLAGS $ac_cv_cflags_gcc_option__Wignored_qualifiers" - fi - ;; -esac - - #AX_CFLAGS_GCC_OPTION([-Wmissing-field-initializers]) # annoying - { $as_echo "$as_me:${as_lineno-$LINENO}: checking CFLAGS for gcc -Wmissing-parameter-type" >&5 -$as_echo_n "checking CFLAGS for gcc -Wmissing-parameter-type... " >&6; } -if ${ac_cv_cflags_gcc_option__Wmissing_parameter_type+:} false; then : - $as_echo_n "(cached) " >&6 -else - ac_cv_cflags_gcc_option__Wmissing_parameter_type="no, unknown" - - 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_save_CFLAGS="$CFLAGS" -for ac_arg in "-pedantic -Werror % -Wmissing-parameter-type" "-pedantic % -Wmissing-parameter-type %% no, obsolete" # -do CFLAGS="$ac_save_CFLAGS "`echo $ac_arg | sed -e 's,%%.*,,' -e 's,%,,'` - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -int -main () -{ -return 0; - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO"; then : - ac_cv_cflags_gcc_option__Wmissing_parameter_type=`echo $ac_arg | sed -e 's,.*% *,,'` ; break -fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext -done - CFLAGS="$ac_save_CFLAGS" - 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: $ac_cv_cflags_gcc_option__Wmissing_parameter_type" >&5 -$as_echo "$ac_cv_cflags_gcc_option__Wmissing_parameter_type" >&6; } -case ".$ac_cv_cflags_gcc_option__Wmissing_parameter_type" in - .ok|.ok,*) ;; - .|.no|.no,*) ;; - *) - if echo " $CFLAGS " | grep " $ac_cv_cflags_gcc_option__Wmissing_parameter_type " 2>&1 >/dev/null - then { { $as_echo "$as_me:${as_lineno-$LINENO}: : CFLAGS does contain \$ac_cv_cflags_gcc_option__Wmissing_parameter_type"; } >&5 - (: CFLAGS does contain $ac_cv_cflags_gcc_option__Wmissing_parameter_type) 2>&5 - ac_status=$? - $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 - test $ac_status = 0; } - else { { $as_echo "$as_me:${as_lineno-$LINENO}: : CFLAGS=\"\$CFLAGS \$ac_cv_cflags_gcc_option__Wmissing_parameter_type\""; } >&5 - (: CFLAGS="$CFLAGS $ac_cv_cflags_gcc_option__Wmissing_parameter_type") 2>&5 - ac_status=$? - $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 - test $ac_status = 0; } - CFLAGS="$CFLAGS $ac_cv_cflags_gcc_option__Wmissing_parameter_type" - fi - ;; -esac - - { $as_echo "$as_me:${as_lineno-$LINENO}: checking CFLAGS for gcc -Wold-style-declaration" >&5 -$as_echo_n "checking CFLAGS for gcc -Wold-style-declaration... " >&6; } -if ${ac_cv_cflags_gcc_option__Wold_style_declaration+:} false; then : - $as_echo_n "(cached) " >&6 -else - ac_cv_cflags_gcc_option__Wold_style_declaration="no, unknown" - - 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_save_CFLAGS="$CFLAGS" -for ac_arg in "-pedantic -Werror % -Wold-style-declaration" "-pedantic % -Wold-style-declaration %% no, obsolete" # -do CFLAGS="$ac_save_CFLAGS "`echo $ac_arg | sed -e 's,%%.*,,' -e 's,%,,'` - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -int -main () -{ -return 0; - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO"; then : - ac_cv_cflags_gcc_option__Wold_style_declaration=`echo $ac_arg | sed -e 's,.*% *,,'` ; break -fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext -done - CFLAGS="$ac_save_CFLAGS" - 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: $ac_cv_cflags_gcc_option__Wold_style_declaration" >&5 -$as_echo "$ac_cv_cflags_gcc_option__Wold_style_declaration" >&6; } -case ".$ac_cv_cflags_gcc_option__Wold_style_declaration" in - .ok|.ok,*) ;; - .|.no|.no,*) ;; - *) - if echo " $CFLAGS " | grep " $ac_cv_cflags_gcc_option__Wold_style_declaration " 2>&1 >/dev/null - then { { $as_echo "$as_me:${as_lineno-$LINENO}: : CFLAGS does contain \$ac_cv_cflags_gcc_option__Wold_style_declaration"; } >&5 - (: CFLAGS does contain $ac_cv_cflags_gcc_option__Wold_style_declaration) 2>&5 - ac_status=$? - $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 - test $ac_status = 0; } - else { { $as_echo "$as_me:${as_lineno-$LINENO}: : CFLAGS=\"\$CFLAGS \$ac_cv_cflags_gcc_option__Wold_style_declaration\""; } >&5 - (: CFLAGS="$CFLAGS $ac_cv_cflags_gcc_option__Wold_style_declaration") 2>&5 - ac_status=$? - $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 - test $ac_status = 0; } - CFLAGS="$CFLAGS $ac_cv_cflags_gcc_option__Wold_style_declaration" - fi - ;; -esac - - { $as_echo "$as_me:${as_lineno-$LINENO}: checking CFLAGS for gcc -Woverride-init" >&5 -$as_echo_n "checking CFLAGS for gcc -Woverride-init... " >&6; } -if ${ac_cv_cflags_gcc_option__Woverride_init+:} false; then : - $as_echo_n "(cached) " >&6 -else - ac_cv_cflags_gcc_option__Woverride_init="no, unknown" - - 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_save_CFLAGS="$CFLAGS" -for ac_arg in "-pedantic -Werror % -Woverride-init" "-pedantic % -Woverride-init %% no, obsolete" # -do CFLAGS="$ac_save_CFLAGS "`echo $ac_arg | sed -e 's,%%.*,,' -e 's,%,,'` - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -int -main () -{ -return 0; - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO"; then : - ac_cv_cflags_gcc_option__Woverride_init=`echo $ac_arg | sed -e 's,.*% *,,'` ; break -fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext -done - CFLAGS="$ac_save_CFLAGS" - 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: $ac_cv_cflags_gcc_option__Woverride_init" >&5 -$as_echo "$ac_cv_cflags_gcc_option__Woverride_init" >&6; } -case ".$ac_cv_cflags_gcc_option__Woverride_init" in - .ok|.ok,*) ;; - .|.no|.no,*) ;; - *) - if echo " $CFLAGS " | grep " $ac_cv_cflags_gcc_option__Woverride_init " 2>&1 >/dev/null - then { { $as_echo "$as_me:${as_lineno-$LINENO}: : CFLAGS does contain \$ac_cv_cflags_gcc_option__Woverride_init"; } >&5 - (: CFLAGS does contain $ac_cv_cflags_gcc_option__Woverride_init) 2>&5 - ac_status=$? - $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 - test $ac_status = 0; } - else { { $as_echo "$as_me:${as_lineno-$LINENO}: : CFLAGS=\"\$CFLAGS \$ac_cv_cflags_gcc_option__Woverride_init\""; } >&5 - (: CFLAGS="$CFLAGS $ac_cv_cflags_gcc_option__Woverride_init") 2>&5 - ac_status=$? - $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 - test $ac_status = 0; } - CFLAGS="$CFLAGS $ac_cv_cflags_gcc_option__Woverride_init" - fi - ;; -esac - - { $as_echo "$as_me:${as_lineno-$LINENO}: checking CFLAGS for gcc -Wsign-compare" >&5 -$as_echo_n "checking CFLAGS for gcc -Wsign-compare... " >&6; } -if ${ac_cv_cflags_gcc_option__Wsign_compare+:} false; then : - $as_echo_n "(cached) " >&6 -else - ac_cv_cflags_gcc_option__Wsign_compare="no, unknown" - - 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_save_CFLAGS="$CFLAGS" -for ac_arg in "-pedantic -Werror % -Wsign-compare" "-pedantic % -Wsign-compare %% no, obsolete" # -do CFLAGS="$ac_save_CFLAGS "`echo $ac_arg | sed -e 's,%%.*,,' -e 's,%,,'` - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -int -main () -{ -return 0; - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO"; then : - ac_cv_cflags_gcc_option__Wsign_compare=`echo $ac_arg | sed -e 's,.*% *,,'` ; break -fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext -done - CFLAGS="$ac_save_CFLAGS" - 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: $ac_cv_cflags_gcc_option__Wsign_compare" >&5 -$as_echo "$ac_cv_cflags_gcc_option__Wsign_compare" >&6; } -case ".$ac_cv_cflags_gcc_option__Wsign_compare" in - .ok|.ok,*) ;; - .|.no|.no,*) ;; - *) - if echo " $CFLAGS " | grep " $ac_cv_cflags_gcc_option__Wsign_compare " 2>&1 >/dev/null - then { { $as_echo "$as_me:${as_lineno-$LINENO}: : CFLAGS does contain \$ac_cv_cflags_gcc_option__Wsign_compare"; } >&5 - (: CFLAGS does contain $ac_cv_cflags_gcc_option__Wsign_compare) 2>&5 - ac_status=$? - $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 - test $ac_status = 0; } - else { { $as_echo "$as_me:${as_lineno-$LINENO}: : CFLAGS=\"\$CFLAGS \$ac_cv_cflags_gcc_option__Wsign_compare\""; } >&5 - (: CFLAGS="$CFLAGS $ac_cv_cflags_gcc_option__Wsign_compare") 2>&5 - ac_status=$? - $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 - test $ac_status = 0; } - CFLAGS="$CFLAGS $ac_cv_cflags_gcc_option__Wsign_compare" - fi - ;; -esac - - { $as_echo "$as_me:${as_lineno-$LINENO}: checking CFLAGS for gcc -Wtype-limits" >&5 -$as_echo_n "checking CFLAGS for gcc -Wtype-limits... " >&6; } -if ${ac_cv_cflags_gcc_option__Wtype_limits+:} false; then : - $as_echo_n "(cached) " >&6 -else - ac_cv_cflags_gcc_option__Wtype_limits="no, unknown" - - 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_save_CFLAGS="$CFLAGS" -for ac_arg in "-pedantic -Werror % -Wtype-limits" "-pedantic % -Wtype-limits %% no, obsolete" # -do CFLAGS="$ac_save_CFLAGS "`echo $ac_arg | sed -e 's,%%.*,,' -e 's,%,,'` - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -int -main () -{ -return 0; - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO"; then : - ac_cv_cflags_gcc_option__Wtype_limits=`echo $ac_arg | sed -e 's,.*% *,,'` ; break -fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext -done - CFLAGS="$ac_save_CFLAGS" - 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: $ac_cv_cflags_gcc_option__Wtype_limits" >&5 -$as_echo "$ac_cv_cflags_gcc_option__Wtype_limits" >&6; } -case ".$ac_cv_cflags_gcc_option__Wtype_limits" in - .ok|.ok,*) ;; - .|.no|.no,*) ;; - *) - if echo " $CFLAGS " | grep " $ac_cv_cflags_gcc_option__Wtype_limits " 2>&1 >/dev/null - then { { $as_echo "$as_me:${as_lineno-$LINENO}: : CFLAGS does contain \$ac_cv_cflags_gcc_option__Wtype_limits"; } >&5 - (: CFLAGS does contain $ac_cv_cflags_gcc_option__Wtype_limits) 2>&5 - ac_status=$? - $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 - test $ac_status = 0; } - else { { $as_echo "$as_me:${as_lineno-$LINENO}: : CFLAGS=\"\$CFLAGS \$ac_cv_cflags_gcc_option__Wtype_limits\""; } >&5 - (: CFLAGS="$CFLAGS $ac_cv_cflags_gcc_option__Wtype_limits") 2>&5 - ac_status=$? - $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 - test $ac_status = 0; } - CFLAGS="$CFLAGS $ac_cv_cflags_gcc_option__Wtype_limits" - fi - ;; -esac - - { $as_echo "$as_me:${as_lineno-$LINENO}: checking CFLAGS for gcc -Wuninitialized" >&5 -$as_echo_n "checking CFLAGS for gcc -Wuninitialized... " >&6; } -if ${ac_cv_cflags_gcc_option__Wuninitialized+:} false; then : - $as_echo_n "(cached) " >&6 -else - ac_cv_cflags_gcc_option__Wuninitialized="no, unknown" - - 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_save_CFLAGS="$CFLAGS" -for ac_arg in "-pedantic -Werror % -Wuninitialized" "-pedantic % -Wuninitialized %% no, obsolete" # -do CFLAGS="$ac_save_CFLAGS "`echo $ac_arg | sed -e 's,%%.*,,' -e 's,%,,'` - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -int -main () -{ -return 0; - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO"; then : - ac_cv_cflags_gcc_option__Wuninitialized=`echo $ac_arg | sed -e 's,.*% *,,'` ; break -fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext -done - CFLAGS="$ac_save_CFLAGS" - 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: $ac_cv_cflags_gcc_option__Wuninitialized" >&5 -$as_echo "$ac_cv_cflags_gcc_option__Wuninitialized" >&6; } -case ".$ac_cv_cflags_gcc_option__Wuninitialized" in - .ok|.ok,*) ;; - .|.no|.no,*) ;; - *) - if echo " $CFLAGS " | grep " $ac_cv_cflags_gcc_option__Wuninitialized " 2>&1 >/dev/null - then { { $as_echo "$as_me:${as_lineno-$LINENO}: : CFLAGS does contain \$ac_cv_cflags_gcc_option__Wuninitialized"; } >&5 - (: CFLAGS does contain $ac_cv_cflags_gcc_option__Wuninitialized) 2>&5 - ac_status=$? - $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 - test $ac_status = 0; } - else { { $as_echo "$as_me:${as_lineno-$LINENO}: : CFLAGS=\"\$CFLAGS \$ac_cv_cflags_gcc_option__Wuninitialized\""; } >&5 - (: CFLAGS="$CFLAGS $ac_cv_cflags_gcc_option__Wuninitialized") 2>&5 - ac_status=$? - $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 - test $ac_status = 0; } - CFLAGS="$CFLAGS $ac_cv_cflags_gcc_option__Wuninitialized" - fi - ;; -esac - - { $as_echo "$as_me:${as_lineno-$LINENO}: checking CFLAGS for gcc -fomit-frame-pointer" >&5 -$as_echo_n "checking CFLAGS for gcc -fomit-frame-pointer... " >&6; } -if ${ac_cv_cflags_gcc_option__fomit_frame_pointer+:} false; then : - $as_echo_n "(cached) " >&6 -else - ac_cv_cflags_gcc_option__fomit_frame_pointer="no, unknown" - - 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_save_CFLAGS="$CFLAGS" -for ac_arg in "-pedantic -Werror % -fomit-frame-pointer" "-pedantic % -fomit-frame-pointer %% no, obsolete" # -do CFLAGS="$ac_save_CFLAGS "`echo $ac_arg | sed -e 's,%%.*,,' -e 's,%,,'` - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -int -main () -{ -return 0; - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO"; then : - ac_cv_cflags_gcc_option__fomit_frame_pointer=`echo $ac_arg | sed -e 's,.*% *,,'` ; break -fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext -done - CFLAGS="$ac_save_CFLAGS" - 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: $ac_cv_cflags_gcc_option__fomit_frame_pointer" >&5 -$as_echo "$ac_cv_cflags_gcc_option__fomit_frame_pointer" >&6; } -case ".$ac_cv_cflags_gcc_option__fomit_frame_pointer" in - .ok|.ok,*) ;; - .|.no|.no,*) ;; - *) - if echo " $CFLAGS " | grep " $ac_cv_cflags_gcc_option__fomit_frame_pointer " 2>&1 >/dev/null - then { { $as_echo "$as_me:${as_lineno-$LINENO}: : CFLAGS does contain \$ac_cv_cflags_gcc_option__fomit_frame_pointer"; } >&5 - (: CFLAGS does contain $ac_cv_cflags_gcc_option__fomit_frame_pointer) 2>&5 - ac_status=$? - $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 - test $ac_status = 0; } - else { { $as_echo "$as_me:${as_lineno-$LINENO}: : CFLAGS=\"\$CFLAGS \$ac_cv_cflags_gcc_option__fomit_frame_pointer\""; } >&5 - (: CFLAGS="$CFLAGS $ac_cv_cflags_gcc_option__fomit_frame_pointer") 2>&5 - ac_status=$? - $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 - test $ac_status = 0; } - CFLAGS="$CFLAGS $ac_cv_cflags_gcc_option__fomit_frame_pointer" - fi - ;; -esac - - { $as_echo "$as_me:${as_lineno-$LINENO}: checking CFLAGS for gcc -fno-strict-aliasing" >&5 -$as_echo_n "checking CFLAGS for gcc -fno-strict-aliasing... " >&6; } -if ${ac_cv_cflags_gcc_option__fno_strict_aliasing+:} false; then : - $as_echo_n "(cached) " >&6 -else - ac_cv_cflags_gcc_option__fno_strict_aliasing="no, unknown" - - 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_save_CFLAGS="$CFLAGS" -for ac_arg in "-pedantic -Werror % -fno-strict-aliasing" "-pedantic % -fno-strict-aliasing %% no, obsolete" # -do CFLAGS="$ac_save_CFLAGS "`echo $ac_arg | sed -e 's,%%.*,,' -e 's,%,,'` - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -int -main () -{ -return 0; - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO"; then : - ac_cv_cflags_gcc_option__fno_strict_aliasing=`echo $ac_arg | sed -e 's,.*% *,,'` ; break -fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext -done - CFLAGS="$ac_save_CFLAGS" - 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: $ac_cv_cflags_gcc_option__fno_strict_aliasing" >&5 -$as_echo "$ac_cv_cflags_gcc_option__fno_strict_aliasing" >&6; } -case ".$ac_cv_cflags_gcc_option__fno_strict_aliasing" in - .ok|.ok,*) ;; - .|.no|.no,*) ;; - *) - if echo " $CFLAGS " | grep " $ac_cv_cflags_gcc_option__fno_strict_aliasing " 2>&1 >/dev/null - then { { $as_echo "$as_me:${as_lineno-$LINENO}: : CFLAGS does contain \$ac_cv_cflags_gcc_option__fno_strict_aliasing"; } >&5 - (: CFLAGS does contain $ac_cv_cflags_gcc_option__fno_strict_aliasing) 2>&5 - ac_status=$? - $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 - test $ac_status = 0; } - else { { $as_echo "$as_me:${as_lineno-$LINENO}: : CFLAGS=\"\$CFLAGS \$ac_cv_cflags_gcc_option__fno_strict_aliasing\""; } >&5 - (: CFLAGS="$CFLAGS $ac_cv_cflags_gcc_option__fno_strict_aliasing") 2>&5 - ac_status=$? - $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 - test $ac_status = 0; } - CFLAGS="$CFLAGS $ac_cv_cflags_gcc_option__fno_strict_aliasing" - fi - ;; -esac - - { $as_echo "$as_me:${as_lineno-$LINENO}: checking CFLAGS for gcc -funroll-all-loops" >&5 -$as_echo_n "checking CFLAGS for gcc -funroll-all-loops... " >&6; } -if ${ac_cv_cflags_gcc_option__funroll_all_loops+:} false; then : - $as_echo_n "(cached) " >&6 -else - ac_cv_cflags_gcc_option__funroll_all_loops="no, unknown" - - 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_save_CFLAGS="$CFLAGS" -for ac_arg in "-pedantic -Werror % -funroll-all-loops" "-pedantic % -funroll-all-loops %% no, obsolete" # -do CFLAGS="$ac_save_CFLAGS "`echo $ac_arg | sed -e 's,%%.*,,' -e 's,%,,'` - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -int -main () -{ -return 0; - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO"; then : - ac_cv_cflags_gcc_option__funroll_all_loops=`echo $ac_arg | sed -e 's,.*% *,,'` ; break -fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext -done - CFLAGS="$ac_save_CFLAGS" - 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: $ac_cv_cflags_gcc_option__funroll_all_loops" >&5 -$as_echo "$ac_cv_cflags_gcc_option__funroll_all_loops" >&6; } -case ".$ac_cv_cflags_gcc_option__funroll_all_loops" in - .ok|.ok,*) ;; - .|.no|.no,*) ;; - *) - if echo " $CFLAGS " | grep " $ac_cv_cflags_gcc_option__funroll_all_loops " 2>&1 >/dev/null - then { { $as_echo "$as_me:${as_lineno-$LINENO}: : CFLAGS does contain \$ac_cv_cflags_gcc_option__funroll_all_loops"; } >&5 - (: CFLAGS does contain $ac_cv_cflags_gcc_option__funroll_all_loops) 2>&5 - ac_status=$? - $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 - test $ac_status = 0; } - else { { $as_echo "$as_me:${as_lineno-$LINENO}: : CFLAGS=\"\$CFLAGS \$ac_cv_cflags_gcc_option__funroll_all_loops\""; } >&5 - (: CFLAGS="$CFLAGS $ac_cv_cflags_gcc_option__funroll_all_loops") 2>&5 - ac_status=$? - $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 - test $ac_status = 0; } - CFLAGS="$CFLAGS $ac_cv_cflags_gcc_option__funroll_all_loops" - fi - ;; -esac - - { $as_echo "$as_me:${as_lineno-$LINENO}: checking CFLAGS for gcc -funit-at-a-time" >&5 -$as_echo_n "checking CFLAGS for gcc -funit-at-a-time... " >&6; } -if ${ac_cv_cflags_gcc_option__funit_at_a_time+:} false; then : - $as_echo_n "(cached) " >&6 -else - ac_cv_cflags_gcc_option__funit_at_a_time="no, unknown" - - 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_save_CFLAGS="$CFLAGS" -for ac_arg in "-pedantic -Werror % -funit-at-a-time" "-pedantic % -funit-at-a-time %% no, obsolete" # -do CFLAGS="$ac_save_CFLAGS "`echo $ac_arg | sed -e 's,%%.*,,' -e 's,%,,'` - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -int -main () -{ -return 0; - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO"; then : - ac_cv_cflags_gcc_option__funit_at_a_time=`echo $ac_arg | sed -e 's,.*% *,,'` ; break -fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext -done - CFLAGS="$ac_save_CFLAGS" - 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: $ac_cv_cflags_gcc_option__funit_at_a_time" >&5 -$as_echo "$ac_cv_cflags_gcc_option__funit_at_a_time" >&6; } -case ".$ac_cv_cflags_gcc_option__funit_at_a_time" in - .ok|.ok,*) ;; - .|.no|.no,*) ;; - *) - if echo " $CFLAGS " | grep " $ac_cv_cflags_gcc_option__funit_at_a_time " 2>&1 >/dev/null - then { { $as_echo "$as_me:${as_lineno-$LINENO}: : CFLAGS does contain \$ac_cv_cflags_gcc_option__funit_at_a_time"; } >&5 - (: CFLAGS does contain $ac_cv_cflags_gcc_option__funit_at_a_time) 2>&5 - ac_status=$? - $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 - test $ac_status = 0; } - else { { $as_echo "$as_me:${as_lineno-$LINENO}: : CFLAGS=\"\$CFLAGS \$ac_cv_cflags_gcc_option__funit_at_a_time\""; } >&5 - (: CFLAGS="$CFLAGS $ac_cv_cflags_gcc_option__funit_at_a_time") 2>&5 - ac_status=$? - $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 - test $ac_status = 0; } - CFLAGS="$CFLAGS $ac_cv_cflags_gcc_option__funit_at_a_time" - fi - ;; -esac - -else - as_fn_error $? "Using $CC instead of gcc, currently not supported" "$LINENO" 5 -fi - -# Each case has an example of what target_os contains -case ${target_os} in - # solaris - solaris*) - CFLAGS="$CFLAGS -D_STDC_C99" - ;; - - # SCO UnixWare - *UnixWare*|*unixware*) - CFLAGS="$CFLAGS -D__UnixWare__" - ;; - - # SCO OpenServer - sco*) - CFLAGS="$CFLAGS -D__OpenServer__" - ;; -esac - -# Check whether --enable-thread-safety was given. -if test "${enable_thread_safety+set}" = set; then : - enableval=$enable_thread_safety; have_threads=yes -else - have_threads=no -fi - - -if test "$have_threads" = "yes" ; then - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for library containing pthread_create" >&5 -$as_echo_n "checking for library containing pthread_create... " >&6; } -if ${ac_cv_search_pthread_create+:} 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 pthread_create (); -int -main () -{ -return pthread_create (); - ; - return 0; -} -_ACEOF -for ac_lib in '' pthread thread; 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_pthread_create=$ac_res -fi -rm -f core conftest.err conftest.$ac_objext \ - conftest$ac_exeext - if ${ac_cv_search_pthread_create+:} false; then : - break -fi -done -if ${ac_cv_search_pthread_create+:} false; then : - -else - ac_cv_search_pthread_create=no -fi -rm conftest.$ac_ext -LIBS=$ac_func_search_save_LIBS -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_search_pthread_create" >&5 -$as_echo "$ac_cv_search_pthread_create" >&6; } -ac_res=$ac_cv_search_pthread_create -if test "$ac_res" != no; then : - test "$ac_res" = "none required" || LIBS="$ac_res $LIBS" - -else - as_fn_error $? "Missing libpthread.so or libthread.so, cannot use --enable-thread-safety" "$LINENO" 5 -fi - - CFLAGS="$CFLAGS -DPQT_THREAD_SAFE -D_THREAD_SAFE" - - # SCO OpenServer 5, possibly other platforms, requires using FSU pthreads. - # We detect this by looking at the prototype for pthread_getspecific. - # There are a few other prototypes that are different as well but detecting - # one is plenty. - { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether FSU pthreads is being used" >&5 -$as_echo_n "checking whether FSU pthreads is being used... " >&6; } - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -#include -int -main () -{ -pthread_getspecific((pthread_key_t)(0), (void *)(0)) - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO"; then : - -$as_echo "#define PTHREAD_FSU 1" >>confdefs.h - { $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 -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext -fi - -# If strict memory alignment is required, this test will produce a -# Bus error. Most riscs CPUs (old and modern) are strict. -save_CFLAGS=$CFLAGS -CFLAGS="" -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking if strict memory alignment is required" >&5 -$as_echo_n "checking if strict memory alignment is required... " >&6; } -if test "$cross_compiling" = yes; then : - { { $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 test program while cross compiling -See \`config.log' for more details" "$LINENO" 5; } -else - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -int main(void){char b[8];int*i=(int*)(b+1);*i=0;return 0;} -_ACEOF -if ac_fn_c_try_run "$LINENO"; then : - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } -else - -$as_echo "#define STRICT_MEMORY_ALIGNMENT 1" >>confdefs.h - { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 -$as_echo "yes" >&6; } - -fi -rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ - conftest.$ac_objext conftest.beam conftest.$ac_ext -fi - -CFLAGS=$save_CFLAGS - -{ $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 - -for ac_header in \ -arpa/inet.h limits.h netdb.h netinet/in.h stddef.h \ -sys/socket.h time.h math.h sys/time.h strings.h -do : - as_ac_Header=`$as_echo "ac_cv_header_$ac_header" | $as_tr_sh` -ac_fn_c_check_header_mongrel "$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 - - -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether struct tm is in sys/time.h or time.h" >&5 -$as_echo_n "checking whether struct tm is in sys/time.h or time.h... " >&6; } -if ${ac_cv_struct_tm+:} false; then : - $as_echo_n "(cached) " >&6 -else - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -#include -#include - -int -main () -{ -struct tm tm; - int *p = &tm.tm_sec; - return !p; - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO"; then : - ac_cv_struct_tm=time.h -else - ac_cv_struct_tm=sys/time.h -fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_struct_tm" >&5 -$as_echo "$ac_cv_struct_tm" >&6; } -if test $ac_cv_struct_tm = sys/time.h; then - -$as_echo "#define TM_IN_SYS_TIME 1" >>confdefs.h - -fi - -ac_fn_c_check_member "$LINENO" "struct tm" "tm_zone" "ac_cv_member_struct_tm_tm_zone" "#include -#include <$ac_cv_struct_tm> - -" -if test "x$ac_cv_member_struct_tm_tm_zone" = xyes; then : - -cat >>confdefs.h <<_ACEOF -#define HAVE_STRUCT_TM_TM_ZONE 1 -_ACEOF - - -fi - -if test "$ac_cv_member_struct_tm_tm_zone" = yes; then - -$as_echo "#define HAVE_TM_ZONE 1" >>confdefs.h - -else - ac_fn_c_check_decl "$LINENO" "tzname" "ac_cv_have_decl_tzname" "#include -" -if test "x$ac_cv_have_decl_tzname" = xyes; then : - ac_have_decl=1 -else - ac_have_decl=0 -fi - -cat >>confdefs.h <<_ACEOF -#define HAVE_DECL_TZNAME $ac_have_decl -_ACEOF - - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for tzname" >&5 -$as_echo_n "checking for tzname... " >&6; } -if ${ac_cv_var_tzname+:} false; then : - $as_echo_n "(cached) " >&6 -else - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -#include -#if !HAVE_DECL_TZNAME -extern char *tzname[]; -#endif - -int -main () -{ -return tzname[0][0]; - ; - return 0; -} -_ACEOF -if ac_fn_c_try_link "$LINENO"; then : - ac_cv_var_tzname=yes -else - ac_cv_var_tzname=no -fi -rm -f core conftest.err conftest.$ac_objext \ - conftest$ac_exeext conftest.$ac_ext -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_var_tzname" >&5 -$as_echo "$ac_cv_var_tzname" >&6; } - if test $ac_cv_var_tzname = yes; then - -$as_echo "#define HAVE_TZNAME 1" >>confdefs.h - - fi -fi - -ac_fn_c_check_member "$LINENO" "struct tm" "tm_gmtoff" "ac_cv_member_struct_tm_tm_gmtoff" "\ -#ifdef HAVE_TIME_H -#include -#endif -#ifdef HAVE_SYS_TIME_H -#include -#endif -" -if test "x$ac_cv_member_struct_tm_tm_gmtoff" = xyes; then : - -cat >>confdefs.h <<_ACEOF -#define HAVE_STRUCT_TM_TM_GMTOFF 1 -_ACEOF - - -fi - - -ac_fn_c_check_type "$LINENO" "socklen_t" "ac_cv_type_socklen_t" "#include -#ifdef HAVE_APRA_INET_H -#include -#endif -#ifdef HAVE_SYS_SOCKET_H -#include -#endif -" -if test "x$ac_cv_type_socklen_t" = xyes; then : - -cat >>confdefs.h <<_ACEOF -#define HAVE_SOCKLEN_T 1 -_ACEOF - - -fi - - -ac_fn_c_check_member "$LINENO" "struct sockaddr_storage" "ss_len" "ac_cv_member_struct_sockaddr_storage_ss_len" "\ -#ifdef HAVE_SYS_SOCKET_H -#include -#endif -#ifdef HAVE_NETINET_IN_H -#include -#endif -" -if test "x$ac_cv_member_struct_sockaddr_storage_ss_len" = xyes; then : - -cat >>confdefs.h <<_ACEOF -#define HAVE_STRUCT_SOCKADDR_STORAGE_SS_LEN 1 -_ACEOF - - -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 () -{ - -#ifndef __cplusplus - /* Ultrix mips cc rejects this sort of thing. */ - typedef int charset[2]; - const charset cs = { 0, 0 }; - /* 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 sort of thing. */ - char tx; - char *t = &tx; - 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 sort of thing, saying - "k.c", line 2.27: 1506-025 (S) Operand must be a modifiable lvalue. */ - struct s { int j; const int *ap[3]; } bx; - struct s *b = &bx; 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 working memcmp" >&5 -$as_echo_n "checking for working memcmp... " >&6; } -if ${ac_cv_func_memcmp_working+:} false; then : - $as_echo_n "(cached) " >&6 -else - if test "$cross_compiling" = yes; then : - ac_cv_func_memcmp_working=no -else - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -$ac_includes_default -int -main () -{ - - /* Some versions of memcmp are not 8-bit clean. */ - char c0 = '\100', c1 = '\200', c2 = '\201'; - if (memcmp(&c0, &c2, 1) >= 0 || memcmp(&c1, &c2, 1) >= 0) - return 1; - - /* The Next x86 OpenStep bug shows up only when comparing 16 bytes - or more and with at least one buffer not starting on a 4-byte boundary. - William Lewis provided this test program. */ - { - char foo[21]; - char bar[21]; - int i; - for (i = 0; i < 4; i++) - { - char *a = foo + i; - char *b = bar + i; - strcpy (a, "--------01111111"); - strcpy (b, "--------10000000"); - if (memcmp (a, b, 16) >= 0) - return 1; - } - return 0; - } - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_run "$LINENO"; then : - ac_cv_func_memcmp_working=yes -else - ac_cv_func_memcmp_working=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 -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_func_memcmp_working" >&5 -$as_echo "$ac_cv_func_memcmp_working" >&6; } -test $ac_cv_func_memcmp_working = no && case " $LIBOBJS " in - *" memcmp.$ac_objext "* ) ;; - *) LIBOBJS="$LIBOBJS memcmp.$ac_objext" - ;; -esac - - -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for working strtod" >&5 -$as_echo_n "checking for working strtod... " >&6; } -if ${ac_cv_func_strtod+:} false; then : - $as_echo_n "(cached) " >&6 -else - if test "$cross_compiling" = yes; then : - ac_cv_func_strtod=no -else - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ - -$ac_includes_default -#ifndef strtod -double strtod (); -#endif -int -main() -{ - { - /* Some versions of Linux strtod mis-parse strings with leading '+'. */ - char *string = " +69"; - char *term; - double value; - value = strtod (string, &term); - if (value != 69 || term != (string + 4)) - return 1; - } - - { - /* Under Solaris 2.4, strtod returns the wrong value for the - terminating character under some conditions. */ - char *string = "NaN"; - char *term; - strtod (string, &term); - if (term != string && *(term - 1) == 0) - return 1; - } - return 0; -} - -_ACEOF -if ac_fn_c_try_run "$LINENO"; then : - ac_cv_func_strtod=yes -else - ac_cv_func_strtod=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 -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_func_strtod" >&5 -$as_echo "$ac_cv_func_strtod" >&6; } -if test $ac_cv_func_strtod = no; then - case " $LIBOBJS " in - *" strtod.$ac_objext "* ) ;; - *) LIBOBJS="$LIBOBJS strtod.$ac_objext" - ;; -esac - -ac_fn_c_check_func "$LINENO" "pow" "ac_cv_func_pow" -if test "x$ac_cv_func_pow" = xyes; then : - -fi - -if test $ac_cv_func_pow = no; then - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for pow in -lm" >&5 -$as_echo_n "checking for pow in -lm... " >&6; } -if ${ac_cv_lib_m_pow+:} false; then : - $as_echo_n "(cached) " >&6 -else - ac_check_lib_save_LIBS=$LIBS -LIBS="-lm $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 pow (); -int -main () -{ -return pow (); - ; - return 0; -} -_ACEOF -if ac_fn_c_try_link "$LINENO"; then : - ac_cv_lib_m_pow=yes -else - ac_cv_lib_m_pow=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_m_pow" >&5 -$as_echo "$ac_cv_lib_m_pow" >&6; } -if test "x$ac_cv_lib_m_pow" = xyes; then : - POW_LIB=-lm -else - { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: cannot find library containing definition of pow" >&5 -$as_echo "$as_me: WARNING: cannot find library containing definition of pow" >&2;} -fi - -fi - -fi - -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether time.h and sys/time.h may both be included" >&5 -$as_echo_n "checking whether time.h and sys/time.h may both be included... " >&6; } -if ${ac_cv_header_time+:} false; then : - $as_echo_n "(cached) " >&6 -else - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -#include -#include -#include - -int -main () -{ -if ((struct tm *) 0) -return 0; - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO"; then : - ac_cv_header_time=yes -else - ac_cv_header_time=no -fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_header_time" >&5 -$as_echo "$ac_cv_header_time" >&6; } -if test $ac_cv_header_time = yes; then - -$as_echo "#define TIME_WITH_SYS_TIME 1" >>confdefs.h - -fi - -ac_fn_c_check_type "$LINENO" "size_t" "ac_cv_type_size_t" "$ac_includes_default" -if test "x$ac_cv_type_size_t" = xyes; then : - -else - -cat >>confdefs.h <<_ACEOF -#define size_t unsigned int -_ACEOF - -fi - - -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for library containing pow" >&5 -$as_echo_n "checking for library containing pow... " >&6; } -if ${ac_cv_search_pow+:} 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 pow (); -int -main () -{ -return pow (); - ; - return 0; -} -_ACEOF -for ac_lib in '' m; 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_pow=$ac_res -fi -rm -f core conftest.err conftest.$ac_objext \ - conftest$ac_exeext - if ${ac_cv_search_pow+:} false; then : - break -fi -done -if ${ac_cv_search_pow+:} false; then : - -else - ac_cv_search_pow=no -fi -rm conftest.$ac_ext -LIBS=$ac_func_search_save_LIBS -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_search_pow" >&5 -$as_echo "$ac_cv_search_pow" >&6; } -ac_res=$ac_cv_search_pow -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 getaddrinfo" >&5 -$as_echo_n "checking for library containing getaddrinfo... " >&6; } -if ${ac_cv_search_getaddrinfo+:} 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 getaddrinfo (); -int -main () -{ -return getaddrinfo (); - ; - return 0; -} -_ACEOF -for ac_lib in '' nsl 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_getaddrinfo=$ac_res -fi -rm -f core conftest.err conftest.$ac_objext \ - conftest$ac_exeext - if ${ac_cv_search_getaddrinfo+:} false; then : - break -fi -done -if ${ac_cv_search_getaddrinfo+:} false; then : - -else - ac_cv_search_getaddrinfo=no -fi -rm conftest.$ac_ext -LIBS=$ac_func_search_save_LIBS -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_search_getaddrinfo" >&5 -$as_echo "$ac_cv_search_getaddrinfo" >&6; } -ac_res=$ac_cv_search_getaddrinfo -if test "$ac_res" != no; then : - test "$ac_res" = "none required" || LIBS="$ac_res $LIBS" - \ - -$as_echo "#define HAVE_GETADDRINFO /**/" >>confdefs.h - -fi - - -for ac_func in vsnprintf floor ceil rint hstrerror \ -localtime_r strtol strtoll strtoul -do : - as_ac_var=`$as_echo "ac_cv_func_$ac_func" | $as_tr_sh` -ac_fn_c_check_func "$LINENO" "$ac_func" "$as_ac_var" -if eval test \"x\$"$as_ac_var"\" = x"yes"; then : - cat >>confdefs.h <<_ACEOF -#define `$as_echo "HAVE_$ac_func" | $as_tr_cpp` 1 -_ACEOF - -fi -done - - -ac_config_files="$ac_config_files Makefile" - -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 -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 "${am__fastdepCXX_TRUE}" && test -z "${am__fastdepCXX_FALSE}"; then - as_fn_error $? "conditional \"am__fastdepCXX\" was never defined. -Usually this means the macro was only invoked conditionally." "$LINENO" 5 -fi -if test -z "${am__fastdepCXX_TRUE}" && test -z "${am__fastdepCXX_FALSE}"; then - as_fn_error $? "conditional \"am__fastdepCXX\" 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 - -: "${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 -pR'. - ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || - as_ln_s='cp -pR' - elif ln conf$$.file conf$$ 2>/dev/null; then - as_ln_s=ln - else - as_ln_s='cp -pR' - fi -else - as_ln_s='cp -pR' -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 - - -# as_fn_executable_p FILE -# ----------------------- -# Test if FILE is an executable regular file. -as_fn_executable_p () -{ - test -f "$1" && test -x "$1" -} # as_fn_executable_p -as_test_x='test -x' -as_executable_p=as_fn_executable_p - -# 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 libpqtypes $as_me 1.5.1, which was -generated by GNU Autoconf 2.69. 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 ." - -_ACEOF -cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 -ac_cs_config="`$as_echo "$ac_configure_args" | sed 's/^ //; s/[\\""\`\$]/\\\\&/g'`" -ac_cs_version="\\ -libpqtypes config.status 1.5.1 -configured by $0, generated by GNU Autoconf 2.69, - with options \\"\$ac_cs_config\\" - -Copyright (C) 2012 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' -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" - -_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 - "depfiles") CONFIG_COMMANDS="$CONFIG_COMMANDS depfiles" ;; - "src/pqt_config.h") CONFIG_HEADERS="$CONFIG_HEADERS src/pqt_config.h:src/pqt_config.h.in" ;; - "Makefile") CONFIG_FILES="$CONFIG_FILES Makefile" ;; - - *) 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 -_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 -$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_stamp_count=1 -for _am_header in $config_headers :; do - case $_am_header in - "$ac_file" | "$ac_file":* ) - break ;; - * ) - _am_stamp_count=`expr $_am_stamp_count + 1` ;; - esac -done -echo "timestamp for "$ac_file"" >`$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'`/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"" || for mf in $CONFIG_FILES; 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. - # So let's grep whole file. - if grep '^#.*generated by automake' $mf > /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 - ;; - - esac -done # for ac_tag - - -as_fn_exit 0 -_ACEOF -ac_clean_files=$ac_clean_files_save - -test $ac_write_fail = 0 || - as_fn_error $? "write failure creating $CONFIG_STATUS" "$LINENO" 5 - - -# configure is writing to config.log, and then calls config.status. -# config.status does its own redirection, appending to config.log. -# Unfortunately, on DOS this fails, as config.log is still kept open -# by configure, so config.status won't be able to write to it; its -# output is simply discarded. So we exec the FD to /dev/null, -# effectively closing config.log, so it can be properly (re)opened and -# appended to by config.status. When coming back to configure, we -# need to make the FD available again. -if test "$no_create" != yes; then - ac_cs_success=: - ac_config_status_args= - test "$silent" = yes && - ac_config_status_args="$ac_config_status_args --quiet" - exec 5>/dev/null - $SHELL $CONFIG_STATUS $ac_config_status_args || ac_cs_success=false - exec 5>>config.log - # Use ||, not &&, to avoid exiting from the if with $? = 1, which - # would make configure fail if this is the last instruction. - $ac_cs_success || as_fn_exit 1 -fi -if test -n "$ac_unrecognized_opts" && test "$enable_option_checking" != no; then - { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: unrecognized options: $ac_unrecognized_opts" >&5 -$as_echo "$as_me: WARNING: unrecognized options: $ac_unrecognized_opts" >&2;} -fi - - - - diff --git a/libpqtypes/configure.ac b/libpqtypes/configure.ac deleted file mode 100644 index 374ce44..0000000 --- a/libpqtypes/configure.ac +++ /dev/null @@ -1,157 +0,0 @@ -# -*- Autoconf -*- -# Process this file with autoconf to produce a configure script. - -AC_PREREQ(2.57) -AC_INIT(libpqtypes, 1.5.1, libpqtypes@esilo.com) -AC_CANONICAL_TARGET -AC_PROG_MAKE_SET -SET_MAKE="MAKE=make --no-print-directory" -AC_CONFIG_AUX_DIR([.]) -AM_INIT_AUTOMAKE(libpqtypes,1.5.1) -AC_SUBST([LIBPQTYPES_SO_VERSION], [1:5:1]) -AC_DISABLE_STATIC -AC_PROG_LIBTOOL -AC_PROG_INSTALL -AC_CONFIG_SRCDIR([src/param.c]) -AM_CONFIG_HEADER([src/pqt_config.h:src/pqt_config.h.in]) -AC_PROG_CXX -AC_PROG_CC - -CPPFLAGS="$CPPFLAGS -Isrc" -if test "$CC" = "gcc" ; then - # always want reentrant funcs, not just thread-safe mode. -s - CFLAGS="$CFLAGS -O3 -Wall -Wpointer-arith -D_GNU_SOURCE -D_REENTRANT -fsigned-char" - - # gcc doesn't indicate an error for unknown options when they are - # not warning/feature options, -Wxxx or -fxxx. We have to test manually. - cprog="int main(void){return 0;}" - gcctest="gcc -x c -c - -o /dev/null" - - AC_MSG_CHECKING(CFLAGS for gcc -std=gnu99...) - result=`echo "$cprog" | $gcctest -std=gnu99 2>&1` - if test -z "$result" ; then - CFLAGS="$CFLAGS -std=gnu99" - AC_MSG_RESULT(-std=gnu99) - else - AC_MSG_RESULT([no, unknown]) - fi - - # turn on as many warnings as possible - AX_CFLAGS_GCC_OPTION([-Wclobbered]) - AX_CFLAGS_GCC_OPTION([-Wempty-body]) - AX_CFLAGS_GCC_OPTION([-Wignored-qualifiers]) - #AX_CFLAGS_GCC_OPTION([-Wmissing-field-initializers]) # annoying - AX_CFLAGS_GCC_OPTION([-Wmissing-parameter-type]) - AX_CFLAGS_GCC_OPTION([-Wold-style-declaration]) - AX_CFLAGS_GCC_OPTION([-Woverride-init]) - AX_CFLAGS_GCC_OPTION([-Wsign-compare]) - AX_CFLAGS_GCC_OPTION([-Wtype-limits]) - AX_CFLAGS_GCC_OPTION([-Wuninitialized]) - AX_CFLAGS_GCC_OPTION([-fomit-frame-pointer]) - AX_CFLAGS_GCC_OPTION([-fno-strict-aliasing]) - AX_CFLAGS_GCC_OPTION([-funroll-all-loops]) - AX_CFLAGS_GCC_OPTION([-funit-at-a-time]) -else - AC_MSG_ERROR([Using $CC instead of gcc, currently not supported]) -fi - -# Each case has an example of what target_os contains -case ${target_os} in - # solaris - solaris*) - CFLAGS="$CFLAGS -D_STDC_C99" - ;; - - # SCO UnixWare - *UnixWare*|*unixware*) - CFLAGS="$CFLAGS -D__UnixWare__" - ;; - - # SCO OpenServer - sco*) - CFLAGS="$CFLAGS -D__OpenServer__" - ;; -esac - -AC_ARG_ENABLE(thread-safety, [ --enable-thread-safety Enable threads], - [have_threads=yes], [have_threads=no]) - -if test "$have_threads" = "yes" ; then - AC_SEARCH_LIBS(pthread_create, [pthread thread],, - [AC_MSG_ERROR([Missing libpthread.so or libthread.so, cannot use --enable-thread-safety])]) - CFLAGS="$CFLAGS -DPQT_THREAD_SAFE -D_THREAD_SAFE" - - # SCO OpenServer 5, possibly other platforms, requires using FSU pthreads. - # We detect this by looking at the prototype for pthread_getspecific. - # There are a few other prototypes that are different as well but detecting - # one is plenty. - AC_MSG_CHECKING(whether FSU pthreads is being used) - AC_TRY_COMPILE( - [#include ], - [pthread_getspecific((pthread_key_t)(0), (void *)(0))], - [AC_DEFINE(PTHREAD_FSU, 1, - [Define to 1 if using FSU pthreads]) AC_MSG_RESULT(yes)], - [AC_MSG_RESULT(no)] - ) -fi - -# If strict memory alignment is required, this test will produce a -# Bus error. Most riscs CPUs (old and modern) are strict. -save_CFLAGS=$CFLAGS -CFLAGS="" -AC_MSG_CHECKING(if strict memory alignment is required) -AC_RUN_IFELSE([int main(void){char b[[8]];int*i=(int*)(b+1);*i=0;return 0;}], -[AC_MSG_RESULT(no)], [AC_DEFINE(STRICT_MEMORY_ALIGNMENT, 1, - [Define to 1 if architecture requires strict memory alignment]) AC_MSG_RESULT(yes)] -) -CFLAGS=$save_CFLAGS - -AC_HEADER_STDC -AC_CHECK_HEADERS([ \ -arpa/inet.h limits.h netdb.h netinet/in.h stddef.h \ -sys/socket.h time.h math.h sys/time.h strings.h]) - -AC_STRUCT_TIMEZONE -AC_CHECK_MEMBERS([struct tm.tm_gmtoff],,, \ -[#ifdef HAVE_TIME_H -#include -#endif -#ifdef HAVE_SYS_TIME_H -#include -#endif]) - -AC_CHECK_TYPES(socklen_t,,, -[#include -#ifdef HAVE_APRA_INET_H -#include -#endif -#ifdef HAVE_SYS_SOCKET_H -#include -#endif]) - -AC_CHECK_MEMBERS([struct sockaddr_storage.ss_len],,, \ -[#ifdef HAVE_SYS_SOCKET_H -#include -#endif -#ifdef HAVE_NETINET_IN_H -#include -#endif]) - -AC_C_CONST -AC_FUNC_MEMCMP -AC_FUNC_STRTOD -AC_HEADER_TIME -AC_TYPE_SIZE_T - -AC_SEARCH_LIBS(pow, m) -AC_SEARCH_LIBS(getaddrinfo, [nsl socket], \ - [AC_DEFINE([HAVE_GETADDRINFO], [], \ - [Define if getaddrinfo exists])], [], []) - -AC_CHECK_FUNCS([vsnprintf floor ceil rint hstrerror \ -localtime_r strtol strtoll strtoul]) - -AC_OUTPUT(Makefile) - - - diff --git a/libpqtypes/docs/man3/PQclearSpecs.3 b/libpqtypes/docs/man3/PQclearSpecs.3 deleted file mode 100644 index 85fad56..0000000 --- a/libpqtypes/docs/man3/PQclearSpecs.3 +++ /dev/null @@ -1 +0,0 @@ -.so man3/PQspecPrepare.3 \ No newline at end of file diff --git a/libpqtypes/docs/man3/PQclearTypes.3 b/libpqtypes/docs/man3/PQclearTypes.3 deleted file mode 100644 index ef0a6e4..0000000 --- a/libpqtypes/docs/man3/PQclearTypes.3 +++ /dev/null @@ -1 +0,0 @@ -.so man3/PQinitTypes.3 diff --git a/libpqtypes/docs/man3/PQexecf.3 b/libpqtypes/docs/man3/PQexecf.3 deleted file mode 100644 index 7408e0e..0000000 --- a/libpqtypes/docs/man3/PQexecf.3 +++ /dev/null @@ -1,104 +0,0 @@ -.TH "PQexecf" 3 2011 "libpqtypes" "libpqtypes Manual" -.SH NAME -PQexecf \- Prepares parameters and executes a command. -.SH SYNOPSIS -.LP -\fB#include -.br -.sp -PGresult *PQexecf(const PGconn *\fIconn\fP, const char *\fIcmd\fP, ...); -.br -PGresult *PQexecvf(const PGconn *\fIconn\fP, const char *\fIcmd\fP, va_list \fIap\fP); -.br -int PQsendf(const PGconn *\fIconn\fP, const char *\fIcmd\fP, ...); -.br -int PQsendvf(const PGconn *\fIconn\fP, const char *\fIcmd\fP, va_list \fIap\fP); -\fP -.SH DESCRIPTION -.LP -The \fIPQexecf\fP() function executes a command that uses libpqtypes -type specifiers instead of $1, $2, etc... syntax. The idea -is to combine \fIPQputvf\fP() and \fIPQparamExec\fP() into a single call. -The variable argument list must match the type specs listed within the -cmd. The type specifiers should be placed where one would normally place -$1, $2, etc... - -The \fIPQexecvf\fP() function is identical to \fIPQexecf\fP() except -it takes a va_list. - -The \fIPQsendf\fP() and \fIPQsendvf\fP() functions are identical to -\fIPQexecf\fP() and \fIPQexecvf\fP() except they are asynchronous versions, -meaning an additional call, PQgetResult, must be issued to get the PGresult -object. For more information, see the PostgreSQL Documentation: specifically -the "Asynchronous Command Processing" section under -"Client Interfaces | libpq - C library". - -A prepared type spec "@name" can be used with these functions, granted that -\fIPQspecPrepare\fP() was called with a non-zero value for the is_stmt -argument. These functions needs an actual SQL statement to execute. -.SH RETURN VALUE -.LP -PQexecf and PQexecvf return NULL on error and a valid PGresult on success. -PQsendf and PQsendvf return zero on error and a non-zero value on success. -On error, use \fIPQgeterror(3)\fP to obtain an error message. -.SH EXAMPLES -.LP -.SS Using PQexecf -The example uses PQexecf function to execute a query. -.RS -.nf -.LP -\fB -/* The PQexecf call is shorthand for: - * - * PGparam *param = PQparamCreate(conn); - * PQputf(param, "%int4 %int4", 1, 1); - * res = PQparamExec(conn, param, "SELECT $1 + $2", 1); - * PQparamClear(param); - * - * As you may notice, PQexecf makes life much simpler. - */ -PGresult *res = PQexecf(conn, "SELECT %int4 + %int4", 1, 1); - -if(!res) - fprintf(stderr, "PQexecf failed: %s", PQgeterror()); -else - PQclear(res); - -/* A bit more common, this puts an int4 and a text into a generated - * PGparam and then executes 'myfunc($1, $2)' - */ -res = PQexecf(conn, "SELECT * FROM myfunc(%int4, %text)", 2, "abc"); - -/* Prepared type spec example. To use with execf, the final "is_stmt" - * argument must be set to a non-zero value! - */ -PQspecPrepare(conn, "account_insert", "INSERT INTO account VALUES " - "(%int8, %text, %int4)", 1); - -PGint8 acc_id = 78236; -PGtext acc_name = "ABC Coders, LLC."; -PGint4 acc_biz = ACC_BIZ_TECHNOLOGY; - -PQexecf(conn, "@account_insert", acc_id, acc_name, acc_biz); -\fP -.fi -.RE -.SH AUTHOR -.LP -A contribution of eSilo, LLC. for the PostgreSQL Database Management System. -Written by Andrew Chernow and Merlin Moncure. -.SH REPORTING BUGS -.LP -Report bugs to . -.SH COPYRIGHT -.LP -Copyright (c) 2011 eSilo, LLC. All rights reserved. -.br -This is free software; see the source for copying conditions. -There is NO warranty; not even for MERCHANTABILITY or FITNESS -FOR A PARTICULAR PURPOSE. -.SH SEE ALSO -.LP -\fIPQgeterror(3)\fP, \fIPQputvf(3)\fP, \fIPQparamExec(3)\fP - diff --git a/libpqtypes/docs/man3/PQexecvf.3 b/libpqtypes/docs/man3/PQexecvf.3 deleted file mode 100644 index 77c4e1e..0000000 --- a/libpqtypes/docs/man3/PQexecvf.3 +++ /dev/null @@ -1 +0,0 @@ -.so man3/PQexecf.3 \ No newline at end of file diff --git a/libpqtypes/docs/man3/PQgetErrorField.3 b/libpqtypes/docs/man3/PQgetErrorField.3 deleted file mode 100644 index e1ca3a1..0000000 --- a/libpqtypes/docs/man3/PQgetErrorField.3 +++ /dev/null @@ -1 +0,0 @@ -.so man3/PQgeterror.3 \ No newline at end of file diff --git a/libpqtypes/docs/man3/PQgeterror.3 b/libpqtypes/docs/man3/PQgeterror.3 deleted file mode 100644 index ab697fa..0000000 --- a/libpqtypes/docs/man3/PQgeterror.3 +++ /dev/null @@ -1,56 +0,0 @@ -.TH "PQgeterror" 3 2011 "libpqtypes" "libpqtypes Manual" -.SH NAME -PQgeterror, PQseterror, PQgetErrorField \- libpqtypes error system management functions -.SH SYNOPSIS -.LP -\fB#include -.br -.sp -char *PQgeterror(void); -.br -void PQseterror(const char *\fIformat\fP, ...); -.br -char *PQgetErrorField(int \fIfieldcode\fP); -\fP -.SH DESCRIPTION -.LP -The libpqtypes library maintains a per-thread global error message. The error -message is managed by \fIPQgeterror\fP() and \fiPQseterror\fP(). - -\fiPQseterror\fP() takes a regular printf compatible \fIformat\fP string for -setting the libpqtypes error message. - -\fiPQgetErrorField\fP() gets an error field from the last executed query. -The error field is only set by PQparamExec and PQparamExecPrepared. When -using libpq functions that return results, like PQexec, continue to use -PQresultErrorField. - -To clear the libpqtypes error message, call \fiPQseterror\fP() with a NULL -\fIformat\fP string: PQseterror(NULL); This will also clear error fields. -.SH RETURN VALUE -.LP -\fIPQgeterror\fP() returns the last error message for the calling thread. It will -never return NULL. -.LP -\fIPQgetErrorField\fP() returns the error field, referenced by fieldcode, for -the last executed query. NULL is returned if no value exists. -.SH EXAMPLES -.LP -None. -.SH AUTHOR -.LP -A contribution of eSilo, LLC. for the PostgreSQL Database Management System. -Written by Andrew Chernow and Merlin Moncure. -.SH REPORTING BUGS -.LP -Report bugs to . -.SH COPYRIGHT -.LP -Copyright (c) 2011 eSilo, LLC. All rights reserved. -.br -This is free software; see the source for copying conditions. -There is NO warranty; not even for MERCHANTABILITY or FITNESS -FOR A PARTICULAR PURPOSE. -.SH SEE ALSO -.LP -\fIpqt-specs(3)\fP diff --git a/libpqtypes/docs/man3/PQgetf.3 b/libpqtypes/docs/man3/PQgetf.3 deleted file mode 100644 index 3742689..0000000 --- a/libpqtypes/docs/man3/PQgetf.3 +++ /dev/null @@ -1,104 +0,0 @@ -.TH "PQgetf" 3 2011 "libpqtypes" "libpqtypes Manual" -.SH NAME -PQgetf \- Gets one or more values from a PGresult in a scanf fashion. -.SH SYNOPSIS -.LP -\fB#include -.br -.sp -int PQgetf(const PGresult *\fIres\fP, int \fItup_num\fP, -.br - const char *\fIformat\fP, ...); -.br -int PQgetvf(const PGresult *\fIres\fP, int \fItup_num\fP, -.br - const char *\fIformat\fP, va_list ap); -\fP -.SH DESCRIPTION -.LP -The \fIPQgetf\fP() and \fIPQgetvf\fP() functions get one or more field -values from a PGresult using a scanf style interface. The \fItup_num\fP -argument indicates which tuple to read values from; values can -only be read from one tuple at a time. - -The \fIformat\fP argument is a data type specifier string -indicating the values to retrieve, like %int4 or #timestamp. Any -number of fields, in any order, can be retrieved in a single call. -Each data type specifier has a cooresponding \fBfield_num, type-args, [...]\fP -contained within the function\'s variable argument list. The -\fBfield_num\fP either indicates tuple field number or tuple field -name, depending on whether the data type in \fIformat\fP used a \'%\' -or \'#\' specifer mark (\`man \fIpqt-specs(3)\fP\'). The \fBtype-args\fP can be one or more -arguments required by the specific data type: for example, "%int4" -would require a pointer to a PGint4. All built-in PostgreSQL data -types require a single pointer value. -.SH RETURN VALUE -.LP -On success, a non-zero value is returned. On error, zero is -returned and \fIPQgeterror(3)\fP will contain an error message. - -If the retrieval of any field fails, the get operation is aborted and -function will fail. Eventhough some fields may have succeeded prior to -the failure, their values should not be trusted. Instead, make -another \fIPQgetf\fP() call. Getting an array or a composite can lead -to memory leaks when getf fails. This is because these types allocate -a PGresult object that must be cleared. To avoid leaks, it is recommended -to perform cleanup even if getf fails, retrieve arrays and composites by -themselves or make them the last field in a getf call. -.SH EXAMPLES -.LP -.SS Using PQgetf on a PGresult -The example uses the libpq PQexec function to execute a query and then uses -\fIPQgetf\fP() to retrieve field values. It is important to note that -libpqtypes execution functions, like \fIPQparamExec(3)\fP, do not need to -generate the PGresult provided to \fIPQgetf\fP(). -.RS -.nf -.LP -\fBint success; -PGint4 i4; -PGtext text; -PGbytea bytea; -PGpoint pt; -PGresult *res = PQexec(conn, "SELECT i,t,b,p FROM tbl"); - -/* Get some field values from the result (order doesn\'t matter) */ -success = PQgetf(res, - 0, /* get field values from tuple 0 */ - "%int4 #text %bytea %point", - /* type format specifiers (get text by name \'#\') */ - 0, &i4, /* get an int4 from field num 0 */ - "t", &text, /* get a text from field name "t" */ - 2, &bytea, /* get a bytea from field num 2 */ - 3, &pt); /* get a point from field num 3 */ - -/* Output an error message using PQgeterror(3). */ -if(!success) - fprintf(stderr, "*ERROR: %s\\n", PQgeterror()); - -/* Output the values, do this before PQclear() */ -else - printf("int4=%d, text=%s, bytea=%d bytes, point=(%f,%f)\\n", - i4, text, bytea.len, pt.x, pt.y); - -PQclear(res); -\fP -.fi -.RE -.SH AUTHOR -.LP -A contribution of eSilo, LLC. for the PostgreSQL Database Management System. -Written by Andrew Chernow and Merlin Moncure. -.SH REPORTING BUGS -.LP -Report bugs to . -.SH COPYRIGHT -.LP -Copyright (c) 2011 eSilo, LLC. All rights reserved. -.br -This is free software; see the source for copying conditions. -There is NO warranty; not even for MERCHANTABILITY or FITNESS -FOR A PARTICULAR PURPOSE. -.SH SEE ALSO -.LP -\fIpqt-specs(3)\fP, \fIPQgeterror(3)\fP diff --git a/libpqtypes/docs/man3/PQgetvf.3 b/libpqtypes/docs/man3/PQgetvf.3 deleted file mode 100644 index 4fd6848..0000000 --- a/libpqtypes/docs/man3/PQgetvf.3 +++ /dev/null @@ -1 +0,0 @@ -.so man3/PQgetf.3 diff --git a/libpqtypes/docs/man3/PQinitTypes.3 b/libpqtypes/docs/man3/PQinitTypes.3 deleted file mode 100644 index 4567bfb..0000000 --- a/libpqtypes/docs/man3/PQinitTypes.3 +++ /dev/null @@ -1,56 +0,0 @@ -.TH PQinitTypes 3 2011 "libpqtypes" "libpqtypes Manual" -.SH NAME -PQinitTypes \- Initializes libpqtypes with the libpq event system. -.SH SYNOPSIS -.LP -\fB#include -.br -.sp -int PQinitTypes(PGconn *conn); -.br -int PQclearTypes(PGconn *\fIconn\fP); -\fP -.SH DESCRIPTION -.LP -libpqtypes makes use of the libpq Event System. Before using -libpqtypes, you must initialize libpqtypes as a libpq EventProc. -The PQinitTypes function takes a PGconn that libpqtypes will be initialized -with; each PGconn requires its own initialization. - -PQclearTypes removes all registered types from the given PGconn. A good use -for this is after a PQresetXXX call when it might be desired to re-register -all types that may have gone stale. -.SH RETURN VALUE -.LP -PQinitTypes and PQclearTypes return zero if it fails and non-zero if it succeeds. -.SH EXAMPLES -.LP -.SS Initializing libpqtypes -The examples shows how to initialize libpqtypes with the libpq event system. -.RS -.nf -.LP -\fB/* call prior to any other libpqtypes functions that operate on conn. */ -PQinitTypes(conn); -\fP -.fi -.RE -.SH AUTHOR -.LP -A contribution of eSilo, LLC. for the PostgreSQL Database Management System. -Written by Andrew Chernow. -.SH REPORTING BUGS -.LP -Report bugs to . -.SH COPYRIGHT -.LP -Copyright (c) 2011 eSilo, LLC. All rights reserved. -.br -This is free software; see the source for copying conditions. -There is NO warranty; not even for MERCHANTABILITY or FITNESS -FOR A PARTICULAR PURPOSE. -.SH SEE ALSO -.LP -None - - diff --git a/libpqtypes/docs/man3/PQlocalTZInfo.3 b/libpqtypes/docs/man3/PQlocalTZInfo.3 deleted file mode 100644 index f241799..0000000 --- a/libpqtypes/docs/man3/PQlocalTZInfo.3 +++ /dev/null @@ -1,66 +0,0 @@ -.TH "PQlocalTZInfo" 3 2011 "libpqtypes" "libpqtypes Manual" -.SH NAME -PQlocalTZInfo \- Gets the local machine\'s timezone information. -.SH SYNOPSIS -.LP -\fB#include -.br -.sp -void PQlocalTZInfo(time_t *\fIt\fP, int *\fIgmtoff\fP, int *\fIisdst\fP, char **\fItzabbrp\fP); -\fP -.SH DESCRIPTION -.LP -This function retrieves the local machine\'s timezone information. - -If the \fIt\fP argument is not NULL, it represents a time_t value to get timezone -information for. If it is NULL, the current time is used. - -The \fIgmtoff\fP argument will be pointed at the number of seconds from GMT, -same value as the GNU (struct tm).tm_gmtoff extension. - -The \fIisdst\fP argument will be pointed at zero if in standard time, one if in -daylight savings time and negative one if unknown. - -The \fItzabbrp\fP argument will be pointed at the timezone abbreviation, like -PST, ADT, EST, etc.. -.SH RETURN VALUE -.LP -None. -.SH EXAMPLES -.LP -This example gets the local timezone information for a file\'s modified time. -.LP -.RS -.nf -\fBint gmtoff; -int isdst; -char *tzabbr; -struct stat st; - -stat("report.xml", &st); -PQlocalTZInfo(&st.st_mtime, &gmtoff, &isdst, &tzabbr); -\fP -.fi -.RE -.SH RATIONALE -.LP -libpqtypes needs the ability to get the local machine\'s timezone information for the -datetime data types. It later became apparent that a portable way of getting timezone -information was very useful and in demand. Thus, this function was made public. -.SH AUTHOR -.LP -A contribution of eSilo, LLC. for the PostgreSQL Database Management System. -Written by Andrew Chernow and Merlin Moncure. -.SH REPORTING BUGS -.LP -Report bugs to . -.SH COPYRIGHT -.LP -Copyright (c) 2011 eSilo, LLC. All rights reserved. -.br -This is free software; see the source for copying conditions. -There is NO warranty; not even for MERCHANTABILITY or FITNESS -FOR A PARTICULAR PURPOSE. -.SH SEE ALSO -.LP -\fIpqt-specs(3)\fP diff --git a/libpqtypes/docs/man3/PQparamClear.3 b/libpqtypes/docs/man3/PQparamClear.3 deleted file mode 100644 index b26b4b0..0000000 --- a/libpqtypes/docs/man3/PQparamClear.3 +++ /dev/null @@ -1 +0,0 @@ -.so man3/PQparamCreate.3 \ No newline at end of file diff --git a/libpqtypes/docs/man3/PQparamCount.3 b/libpqtypes/docs/man3/PQparamCount.3 deleted file mode 100644 index b26b4b0..0000000 --- a/libpqtypes/docs/man3/PQparamCount.3 +++ /dev/null @@ -1 +0,0 @@ -.so man3/PQparamCreate.3 \ No newline at end of file diff --git a/libpqtypes/docs/man3/PQparamCreate.3 b/libpqtypes/docs/man3/PQparamCreate.3 deleted file mode 100644 index e7e7536..0000000 --- a/libpqtypes/docs/man3/PQparamCreate.3 +++ /dev/null @@ -1,76 +0,0 @@ -.TH "PQparamCreate" 3 2011 "libpqtypes" "libpqtypes Manual" -.SH NAME -PQparamCreate, PQparamCount PQparamReset, PQparamClear \- PGparam management functions. -.SH SYNOPSIS -.LP -\fB#include -.br -.sp -PGparam *PQparamCreate(const PGconn *\fIconn\fP); -.br -PGparam *PQparamDup(PGparam *\fIparam\fP); -.br -int PQparamCount(PGparam *\fIparam\fP); -.br -void PQparamReset(PGparam *\fIparam\fP); -.br -void PQparamClear(PGparam *\fIparam\fP); -\fP -.SH DESCRIPTION -.LP -These functions manage the opaque PGparam object. - -\fIPQparamCreate\fP() will allocate and initialize a new PGparam object. -After the create call, the PGparam object is ready for use. WARNING: Only -types that have been registered via PQregisterXXX, will be available -to the param. Meaning, the param is not updated with types registered -after the param is created. - -\fIPQparamDup\fP() will duplicate a given PGparam, including any internal -values that have already been put. This is useful in cases where you want -to queue qeuries to execute at a later time, like a connection pooler. The -problem is PGparamCreate requires a connection object, which may not be -available when attempting to enqueue a query with its PGparam object. -Instead, a PGparam object can used for the sole purpose of creating -duplicates while there are no available PGconn objects. - -\fIPQparamCount\fP() gets the number of parameters in a PGparam object. - -\fIPQparamReset\fP() will clear out any previously put parameters, but will -not free any memory. This is useful for application looking to "reuse" a -PGparam object. - -\fIPQparamClear\fP() releases all resources being used by a PGparam object, -the object should not be used after a clear. - -It is very important to call \fIPQparamReset\fP() if you plan on reusing a -PGparam object. -.SH RETURN VALUE -.LP -\fIPQparamCreate\fP() returns a pointer to a PGparam object on success and NULL -if something failed (check \fIPQgeterror(3)\fP for more information). - -\fIPQparamCount\fP() returns the number of parameters in a PGparam object. - -\fIPQparamReset\fP() and \fIPQparamClear\fP() have no return values. If -either function is provided a NULL PGparam pointer, it will silently fail. -.SH EXAMPLES -.LP -None. -.SH AUTHOR -.LP -A contribution of eSilo, LLC. for the PostgreSQL Database Management System. -Written by Andrew Chernow and Merlin Moncure. -.SH REPORTING BUGS -.LP -Report bugs to . -.SH COPYRIGHT -.LP -Copyright (c) 2011 eSilo, LLC. All rights reserved. -.br -This is free software; see the source for copying conditions. -There is NO warranty; not even for MERCHANTABILITY or FITNESS -FOR A PARTICULAR PURPOSE. -.SH SEE ALSO -.LP -\fIpqt-specs(3)\fP, \fIPQputf(3)\fP, \fIPQgeterror(3)\fP, \fIPQparamExec(3)\fP diff --git a/libpqtypes/docs/man3/PQparamExec.3 b/libpqtypes/docs/man3/PQparamExec.3 deleted file mode 100644 index 484553e..0000000 --- a/libpqtypes/docs/man3/PQparamExec.3 +++ /dev/null @@ -1,106 +0,0 @@ -.TH "PQparamExec" 3 2011 "libpqtypes" "libpqtypes Manual" -.SH NAME -PQparamExec, PQparamExecPrepared \- Executes a paramertized query using the parameters in a PGparam. -.SH SYNOPSIS -.LP -\fB#include -.br -.sp -PGresult *PQparamExec(PGconn *\fIconn\fP, PGparam *\fIparam\fP, -.br - const char *\fIcommand\fP, int \fIresultFormat\fP); -.br -PGresult *PQparamExecPrepared(PGconn *\fIconn\fP, PGparam *\fIparam\fP, -.br - const char *\fIstmtName\fP, int \fIresultFormat\fP); -\fP -.SH DESCRIPTION -.LP -The \fIPQparamExec\fP() and \fIPQparamExecPrepared\fP() functions execute -a parameterized query using the parameters in a PGparam. The only difference -between these functions is that \fIPQparamExec\fP() expects a parameterized -\fIcommand\fP string while \fIPQparamExecPrepared\fP() expects a \fIstmtName\fP -previously prepared via PQprepare(). - -Both functions take a \fIparam\fP argument, which must contain the same number -of parameters as either the \fIcommand\fP string or previously prepared \fIstmtName\fP. -Internally, the \fIparam\fP is transformed into parallel arrays that are -supplied to a PQexecParams() or PQexecPrepared() call. - -The \fIresultFormat\fP argument indicates if text or binary results are desired; -a value of zero or one respectively. \fIPQgetf\fP supports both text and binary -result formats, with the exclusion of arrays and composites which only support binary. -.SH RETURN VALUE -.LP -On success, a pointer to a PGresult is returned. On error, NULL is -returned and \fIPQgeterror(3)\fP will contain an error message. - -\fBIMPORTANT!\fP -.br -There is a difference in behavior between \fIPQparamExec\fP() and \fIPQparamExecPrepared\fP() -and the libpq functions they wrap, PQexecParams() and PQexecPrepared(). -\fIPQparamExec\fP() and \fIPQparamExecPrepared\fP() only return a non-NULL -PGresult when the result status is either PGRES_COMMAND_OK, PGRES_TUPLES_OK or -PGRES_EMPTY_QUERY. If these functions detect any other result status, the -PGresult is cleared and a NULL result is returned. Before clearing the PGresult -and returning NULL, these functions first copy the result error message into the -libpqtypes error system, accessible via \fIPQgeterror(3)\fP. This allows applications -to get a result\'s error message without needing the result object. \fIconn\fP error -messages are also copied to the libpqtypes error system. - -This behavior difference provides a single error indicator, a NULL return, and a -single function that can get the error message, \fIPQgeterror\fP(). -.SH EXAMPLES -.LP -.SS Using PQparamExec -The example uses \fIPQparamExec\fP() to execute a query using a PGparam. -The example also demonstrates how to detect a failed exec and output an error -message. -.RS -.nf -.LP -\fBPGparam *param = PQparamCreate(conn); - -if(!PQputf(param, "%text %int4", "ACTIVE", CAT_CAR)) -{ - fprintf(stderr, "PQputf: %s\\n", PQgeterror()); -} -else -{ - PGresult *res = PQparamExec(conn, param, - "SELECT * FROM t WHERE status=$1 AND category=$2", 1); - - if(!res) - fprintf(stderr, "PQparamExec: %s\\n", PQgeterror()); - else - print_results(res); - - PQclear(res); -} - -PQparamClear(param); -\fP -.fi -.RE -.SS Using PQparamExecPrepared -\fIPQparamExecPrepared\fP() is behaves identically to \fIPQparamExec\fP(), except -\fIPQparamExecPrepared\fP() requires that a statement has been previously prepared -via PQprepare(). Also, a \fIstmtName\fP is supplied rather than a parameterized -\fIcommand\fP string. -.SH AUTHOR -.LP -A contribution of eSilo, LLC. for the PostgreSQL Database Management System. -Written by Andrew Chernow and Merlin Moncure. -.SH REPORTING BUGS -.LP -Report bugs to . -.SH COPYRIGHT -.LP -Copyright (c) 2011 eSilo, LLC. All rights reserved. -.br -This is free software; see the source for copying conditions. -There is NO warranty; not even for MERCHANTABILITY or FITNESS -FOR A PARTICULAR PURPOSE. -.SH SEE ALSO -.LP -\fIPQparamCreate(3)\fP, \fIPQparamSendQuery(3)\fP, \fIPQparamSendQueryPrepared(3)\fP diff --git a/libpqtypes/docs/man3/PQparamExecPrepared.3 b/libpqtypes/docs/man3/PQparamExecPrepared.3 deleted file mode 100644 index c5f975f..0000000 --- a/libpqtypes/docs/man3/PQparamExecPrepared.3 +++ /dev/null @@ -1 +0,0 @@ -.so man3/PQparamExec.3 \ No newline at end of file diff --git a/libpqtypes/docs/man3/PQparamReset.3 b/libpqtypes/docs/man3/PQparamReset.3 deleted file mode 100644 index b26b4b0..0000000 --- a/libpqtypes/docs/man3/PQparamReset.3 +++ /dev/null @@ -1 +0,0 @@ -.so man3/PQparamCreate.3 \ No newline at end of file diff --git a/libpqtypes/docs/man3/PQparamSendQuery.3 b/libpqtypes/docs/man3/PQparamSendQuery.3 deleted file mode 100644 index 124a99b..0000000 --- a/libpqtypes/docs/man3/PQparamSendQuery.3 +++ /dev/null @@ -1,89 +0,0 @@ -.TH "PQparamSendQuery" 3 2011 "libpqtypes" "libpqtypes Manual" -.SH NAME -PQparamSendQuery, PQparamSendQueryPrepared \- Executes an asynchronous paramertized query using the parameters in a PGparam. -.SH SYNOPSIS -.LP -\fB#include -.br -.sp -int PQparamSendQuery(PGconn *\fIconn\fP, PGparam *\fIparam\fP, -.br - const char *\fIcommand\fP, int \fIresultFormat\fP); -.br -int PQparamSendQueryPrepared(PGconn *\fIconn\fP, PGparam *\fIparam\fP, -.br - const char *\fIstmtName\fP, int \fIresultFormat\fP); -\fP -.SH DESCRIPTION -.LP -The \fIPQparamSendQuery\fP() and \fIPQparamSendQueryPrepared\fP() functions execute -an asynchronous paramertized query using the parameters in a PGparam. The only difference -between these functions is that \fIPQparamSendQuery\fP() expects a parameterized -\fIcommand\fP string while \fIPQparamSendQueryPrepared\fP() expects a \fIstmtName\fP -previously prepared via PQprepare(). - -Both functions take a \fIparam\fP argument, which must contain the same number -of parameters as either the \fIcommand\fP string or previously prepared \fIstmtName\fP. -Internally, the \fIparam\fP is transformed into parallel arrays that are -supplied to a PQsendQueryParams() or PQsendQueryPrepared() call. - -The \fIresultFormat\fP argument indicates if text or binary results are desired; -a value of zero or one respectively. \fIPQgetf\fP supports both text and binary -result formats, with the exclusion of arrays and composites which only support binary. - -After successfully calling \fIPQparamSendQuery\fP() or \fIPQparamSendQueryPrepared\fP(), -call libpq\'s PQgetResult() one or more times to obtain the results. -.SH RETURN VALUE -.LP -On success, a non-zero value is returned. On error, zero is -returned and \fIPQgeterror(3)\fP will contain an error message. -.SH EXAMPLES -.LP -.SS Using PQparamSendQuery -The example uses \fIPQparamSendQuery\fP() to execute a query using a PGparam. -.RS -.nf -.LP -\fBPGparam *param = PQparamCreate(conn); - -if(!PQputf(param, "%text %int4", "ACTIVE", CAT_CAR)) -{ - fprintf(stderr, "PQputf: %s\\n", PQgeterror()); -} -else -{ - int success = PQparamSendQuery(conn, param, - "SELECT * FROM t WHERE status=$1 AND category=$2", 1); - - if(!success) - fprintf(stderr, "PQparamSendQuery: %s\\n", PQgeterror()); - else - get_and_print_results(conn); /* calls PQgetResult() */ -} - -PQparamClear(param); -\fP -.fi -.RE -.SS Using PQparamSendQueryPrepared -\fIPQparamSendQueryPrepared\fP() is behaves identically to \fIPQparamSendQuery\fP(), except -\fIPQparamSendQueryPrepared\fP() requires that a statement has been previously prepared -via PQprepare(). Also, a \fIstmtName\fP is supplied rather than a parameterized -\fIcommand\fP string. -.SH AUTHOR -.LP -A contribution of eSilo, LLC. for the PostgreSQL Database Management System. -Written by Andrew Chernow and Merlin Moncure. -.SH REPORTING BUGS -.LP -Report bugs to . -.SH COPYRIGHT -.LP -Copyright (c) 2011 eSilo, LLC. All rights reserved. -.br -This is free software; see the source for copying conditions. -There is NO warranty; not even for MERCHANTABILITY or FITNESS -FOR A PARTICULAR PURPOSE. -.SH SEE ALSO -.LP -\fIPQparamCreate(3)\fP, \fIPQgeterror(3)\fP, \fIPQparamExec(3)\fP, \fIPQparamExecPrepared(3)\fP diff --git a/libpqtypes/docs/man3/PQparamSendQueryPrepared.3 b/libpqtypes/docs/man3/PQparamSendQueryPrepared.3 deleted file mode 100644 index 53e207b..0000000 --- a/libpqtypes/docs/man3/PQparamSendQueryPrepared.3 +++ /dev/null @@ -1 +0,0 @@ -.so man3/PQparamSendQuery.3 \ No newline at end of file diff --git a/libpqtypes/docs/man3/PQputf.3 b/libpqtypes/docs/man3/PQputf.3 deleted file mode 100644 index 701bb45..0000000 --- a/libpqtypes/docs/man3/PQputf.3 +++ /dev/null @@ -1,117 +0,0 @@ -.TH "PQputf" 3 2011 "libpqtypes" "libpqtypes Manual" -.SH NAME -PQputf, PQputvf \- Packs a set of parameters in a PGparam for use with a parameterized query. -.SH SYNOPSIS -.LP -\fB#include -.br -.sp -int PQputf(PGparam *\fIparam\fP, const char *\fIformat\fP, ...); -.br -int PQputvf(PGparam *\fIparam\fP, char *\fIstmtBuf\fP, size_t \fIstmtBufLen\fP, -.br - const char *\fIformat\fP, va_list \fIap\fP); -\fP -.SH DESCRIPTION -.LP -The \fIPQputf\fP() and \fIPQputvf\fP() functions put one or more query -parameters into a PGparam using a printf style interface. Any number -of parameters can be put at the same time. - -The \fIformat\fP argument is a data type specifier string indicating the -parameters being put, such as "%int4 %polygon". \fIformat\fP cannot be -NULL or an empty string. The variable argument list must match the -\fIformat\fP, either "..." or \fIap\fP. The number of arguments required -for each data type is dependant on the data type itself; built-in -PostgreSQL types always require a single argument. - -The \fIPQputvf\fP() function can construct a parameterized command string -from \fIformat\fP, as long as \fIstmtBuf\fP and \fIstmtBufLen\fP have been -provided. If the construction of \fIstmtBuf\fP is not desired, set it -to NULL and set \fIstmtBufLen\fP to 0. When a constructed statement is desired, -the contents of \fIformat\fP will be copied to \fIstmtBuf\fP and -all data type specifiers, like "%int4", will be replaced with $1, $2, etc... -syntax. The result is a parameterized statement in synch with \fIparam\fP -and ready to be executed. For instance: if \fIspec\fP is "SELECT %int4 + %int4", -the resulting \fIstmtBuf\fP would be "SELECT $1 + $2". -.SH RETURN VALUE -.LP -On success, a non-zero value is returned. On error, zero is -returned and \fIPQgeterror(3)\fP will contain an error message. - -If any put operation fails, the \fIparam\fP is reverted back to the number -of parameters it had prior to the function call; partial puts are not allowed. -.SH EXAMPLES -.LP -.SS Using PQputf -The example uses \fIPQputf\fP() to put a couple parameters into a PGparam. -.RS -.nf -.LP -\fBPGtext text = "foobar"; -PGint8 i8 = PQT_INT64CONST(1099511627776); -PGparam *param = PQparamCreate(conn); - -if(!PQputf(param, "%text %int8", text, i8)) - fprintf(stderr, "*ERROR: %s\\n", PQgeterror()); - -PQparamClear(param); -\fP -.fi -.RE -.SS Using PQputvf -The example creates an application function named execf. execf is a -wrapper to \fIPQputvf\fP(), as well as \fIPQparamExec(3)\fP. It is -similar to \fIPQexecf\fP(). The only difference is that the PQexecf -implementation uses a smaller stack buffer and allocates heap memory -when needed. -.RS -.nf -.LP -\fBPGresult * -execf(PGconn *conn, const char *format, ...) -{ - va_list ap; - char stmt[32768]; - PGparam *param; - PGresult *res = NULL; - - /* create the temporary PGparam */ - if(!(param = PQparamCreate(conn))) - return NULL; /* PQseterror already called */ - - /* put the params, create the stmt and exec it */ - va_start(ap, format); - if(PQputvf(param, stmt, sizeof(stmt), format, ap)) - res = PQparamExec(conn, param, stmt, 1); // resfmt is binary - va_end(ap); - - /* param must be cleared */ - PQparamClear(param); - return res; -} - -/* Example: execf will put 2 ints and execute "SELECT $1 + $2" */ -PGresult *res = execf(conn, "SELECT %int4 + %int4", 100, 67); -if(!res) - fprintf(stderr, "*ERROR: %s\\n", PQgeterror()); -\fP -.fi -.RE -.SH AUTHOR -.LP -A contribution of eSilo, LLC. for the PostgreSQL Database Management System. -Written by Andrew Chernow and Merlin Moncure. -.SH REPORTING BUGS -.LP -Report bugs to . -.SH COPYRIGHT -.LP -Copyright (c) 2011 eSilo, LLC. All rights reserved. -.br -This is free software; see the source for copying conditions. -There is NO warranty; not even for MERCHANTABILITY or FITNESS -FOR A PARTICULAR PURPOSE. -.SH SEE ALSO -.LP -\fIpqt-specs(3)\fP, \fIPQparamCreate(3)\fP, \fIPQgeterror(3)\fP, \fIPQseterror(3)\fP diff --git a/libpqtypes/docs/man3/PQputvf.3 b/libpqtypes/docs/man3/PQputvf.3 deleted file mode 100644 index f8762aa..0000000 --- a/libpqtypes/docs/man3/PQputvf.3 +++ /dev/null @@ -1 +0,0 @@ -.so man3/PQputf.3 diff --git a/libpqtypes/docs/man3/PQregisterComposites.3 b/libpqtypes/docs/man3/PQregisterComposites.3 deleted file mode 100644 index a3659f2..0000000 --- a/libpqtypes/docs/man3/PQregisterComposites.3 +++ /dev/null @@ -1,80 +0,0 @@ -.TH "PQregisterComposites" 3 2011 "libpqtypes" "libpqtypes Manual" -.SH NAME -PQregisterComposites \- Registers a composites. -.SH SYNOPSIS -.LP -\fB#include -.br -int PQregisterComposites(PGconn *\fIconn\fP, PGregisterType *\fItypes\fP, -.br - int \fIcount\fP); -\fP -.SH DEPRECATED -.LP -THIS FUNCTION IS DEPRECATED. New applications should use PQregisterTypes. -This function is now a wrapper to PQregisterTypes. -.SH DESCRIPTION -.LP -The \fIPQregisterComposites\fP() function allows an application -to register one or more composites. This function can be -called as many times as an application needs on a PGconn. - -This function must execute a query against the backend to retrieve type -information for each composite, thus this should not be called from within -a transaction. It is recommended to register multiple composites at -the same time to avoid round trip overhead. - -The \fItypes\fP argument is an array containing \fIcount\fP composite types -to register. Composites do not use the typput or typget members of the -PGregisterType structure, thus these memebrs are ignored. If any composite -does not exist, the register is aborted. - -NOTE: The typname member of the PGregisterType structure can optionally -contain the type's schema: schema.typname. - -WARNING: \fIPQparamCreate\fP is only aware of types that have already been -registered. If you need to put a composite into a param, make sure it is first -registered. - -.SH EXAMPLES -.LP -.SS Using PQregisterComposites -The example registers two composite types. -.RS -.nf -.LP -\fBPGregisterType comp_types[] = { - {"myschema.simple", NULL, NULL}, - {"complex", NULL, NULL} -}; - -if (!PQregisterComposites(conn, comp_types, 2)) - fprintf(stderr, "PQregisterComposites: %s\\n", PQgeterror()); -\fP -.fi -.RE -.SH RETURN VALUE -.LP -On success, a non-zero value is returned. On error, zero is -returned and \fIPQgeterror(3)\fP will contain an error message. -.SH EXAMPLES -.LP -None. -.SH AUTHOR -.LP -A contribution of eSilo, LLC. for the PostgreSQL Database Management System. -Written by Andrew Chernow and Merlin Moncure. -.SH REPORTING BUGS -.LP -Report bugs to . -.SH COPYRIGHT -.LP -Copyright (c) 2011 eSilo, LLC. All rights reserved. -.br -This is free software; see the source for copying conditions. -There is NO warranty; not even for MERCHANTABILITY or FITNESS -FOR A PARTICULAR PURPOSE. -.SH SEE ALSO -.LP -\fIpqt-handlers(3)\fP, \fIPQputf(3)\fP, \fIPQgetf(3)\fP - diff --git a/libpqtypes/docs/man3/PQregisterResult.3 b/libpqtypes/docs/man3/PQregisterResult.3 deleted file mode 100644 index 791ff6b..0000000 --- a/libpqtypes/docs/man3/PQregisterResult.3 +++ /dev/null @@ -1,122 +0,0 @@ -.TH "PQregisterResult" 3 2011 "libpqtypes" "libpqtypes Manual" -.SH NAME -PQregisterResult \- Registers sub-classes, composites and user-defined types found within a PGresult. -.SH SYNOPSIS -.LP -\fB#include -.br -int PQregisterResult(PGconn *\fIconn\fP, int \fIwhich\fP, PGregisterType *\fItypes\fP, -.br - int \fIcount\fP, PGresult *\fIres\fP); -\fP -.SH DESCRIPTION -.LP -The \fIPQregisterResult\fP() function registers the types found within -a given PGresult, thus this function makes no calls to a PostgreSQL server -since the result data is already available. - -The \fIwhich\fP argument can be PQT_COMPOSITE or PQT_USERDEFINED, -but not PQT_SUBCLASS. The only reason being sub-classes don't talk to -the server so they have no result set. - -The \fItypes\fP argument is an array containing \fIcount\fP types -to register. This array must be identical to what was provided to -the originating PQregisterTypes call. - -The \fIres\fP argument is a PGresult normally created by calling -PQregisterTypes followed by PQgetResult. However, it is possible to -create your own result via PQmakeEmptyPGresult, PQsetResultAttrs, -PQsetvalue and call this function. This approach is a bit risky being -how the result set generated by type lookup queries are internal and -subject to change. - -.SH EXAMPLES -.LP -.SS Using PQregisterResult -The example registers two composite types asynchronously. It is worth -noting that the PGresult obtained via PQgetResult can be cached by an -application and used when creating new connections, as a way to avoid -repeatedly performing type lookups with the server. -.RS -.nf -.LP -\fBPGregisterType comp_types[] = { - {"myschema.simple", NULL, NULL}, - {"complex", NULL, NULL} -}; - -/* asynchronous registration */ -if (PQregisterTypes(conn, PQT_COMPOSITE, comp_types, 2, 1)) -{ - /* example of a typical event loop */ - for(;;) - { - int n; - fd_set set; - int fd = PQsocket(conn); - struct timeval tv = {0, 500000}; - - FD_ZERO(&set); - FD_SET(fd, &set); - n = select(fd + 1, &set, NULL, NULL, &tv); //or kqueue,epoll,poll,etc.. - - if (n == -1) - { - //error - } - else if (n == 0) - { - //timeout, do other work .... - } - else - { - PGresult *res; - - PQconsumeInput(conn); - if(!PQisBusy(conn)) - { - /* done */ - if(!(res = PQgetResult(conn))) - break; - - n = PQregisterResult(conn, PQT_COMPOSITE, comp_types, 2, res); - - /* This could also be cached and reused with PQregisterResult */ - PQclear(res); - - if (!n) - //error, consult PQgeterror() - } - } - } -} -\fP -.fi -.RE -.SH RETURN VALUE -.LP -On success, a non-zero value is returned. On error, zero is -returned and \fIPQgeterror(3)\fP will contain an error message. -.SH EXAMPLES -.LP -None. -.SH AUTHOR -.LP -A contribution of eSilo, LLC. for the PostgreSQL Database Management System. -Written by Andrew Chernow. -.SH REPORTING BUGS -.LP -Report bugs to . -.SH COPYRIGHT -.LP -Copyright (c) 2011 eSilo, LLC. All rights reserved. -.br -This is free software; see the source for copying conditions. -There is NO warranty; not even for MERCHANTABILITY or FITNESS -FOR A PARTICULAR PURPOSE. -.SH SEE ALSO -.LP -\fIPQregisterTypes(3)\fP, \fIpqt-handlers(3)\fP, \fIPQputf(3)\fP, \fIPQgetf(3)\fP - - - diff --git a/libpqtypes/docs/man3/PQregisterSubClasses.3 b/libpqtypes/docs/man3/PQregisterSubClasses.3 deleted file mode 100644 index 11db5c7..0000000 --- a/libpqtypes/docs/man3/PQregisterSubClasses.3 +++ /dev/null @@ -1,62 +0,0 @@ -.TH "PQregisterSubClasses" 3 2011 "libpqtypes" "libpqtypes Manual" -.SH NAME -PQregisterSubClasses \- Registers a type aliases or sub-classes. -.SH SYNOPSIS -.LP -\fB#include -.br -.sp -int PQregisterSubClasses(PGconn *\fIconn\fP, PGregisterType *\fItypes\fP, -.br - int \fIcount\fP); -\fP -.SH DEPRECATED -.LP -THIS FUNCTION IS DEPRECATED. New applications should use PQregisterTypes. -This function is now a wrapper to PQregisterTypes. -.SH DESCRIPTION -.LP -The \fIPQregisterSubClasses\fP() function allows an application -to register an alias or sub-class of another type. - -The \fItypes\fP argument is an array containing \fIcount\fP sub class types -to register. The typname member of the PGregisterType structure must -specify an inheritence relationship: ex. "myint=int4" where myint inherits -from int4. The \'=\' is called the inheritence operator. If both typput -and typget members of the PGregisterType structure are NULL, the type at -that element will behave identically to the type it is inheriting -from; an alias. Otherwise, the base type's put and/or get routines will -be overridden. - -NOTE: The typname member of the PGregisterType structure can optionally -contain the type's schema: schema.typname. - -WARNING: \fIPQparamCreate\fP is only aware of types that have already been -registered. If you need to put a type into a param, make sure it is first -registered. - -.SH RETURN VALUE -.LP -On success, a non-zero value is returned. On error, zero is -returned and \fIPQgeterror(3)\fP will contain an error message. -.SH EXAMPLES -.LP -None. -.SH AUTHOR -.LP -A contribution of eSilo, LLC. for the PostgreSQL Database Management System. -Written by Andrew Chernow and Merlin Moncure. -.SH REPORTING BUGS -.LP -Report bugs to . -.SH COPYRIGHT -.LP -Copyright (c) 2011 eSilo, LLC. All rights reserved. -.br -This is free software; see the source for copying conditions. -There is NO warranty; not even for MERCHANTABILITY or FITNESS -FOR A PARTICULAR PURPOSE. -.SH SEE ALSO -.LP -\fIpqt-handlers(3)\fP, \fIPQputf(3)\fP, \fIPQgetf(3)\fP - diff --git a/libpqtypes/docs/man3/PQregisterTypes.3 b/libpqtypes/docs/man3/PQregisterTypes.3 deleted file mode 100644 index b604fce..0000000 --- a/libpqtypes/docs/man3/PQregisterTypes.3 +++ /dev/null @@ -1,90 +0,0 @@ -.TH "PQregisterTypes" 3 2011 "libpqtypes" "libpqtypes Manual" -.SH NAME -PQregisterTypes \- Registers sub-classes, composites and user-defined types. -.SH SYNOPSIS -.LP -\fB#include -.br -int PQregisterTypes(PGconn *\fIconn\fP, int \fIwhich\fP, PGregisterType *\fItypes\fP, -.br - int \fIcount\fP, int \fIasync\fP); -\fP -.SH DESCRIPTION -.LP -The \fIPQregisterTypes\fP() function allows an application -to register one or more PQT_SUBCLASS, PQT_COMPOSITE or PQT_USERDEFINED -types which is defined by the \fIwhich\fP argument. - -When \fIwhich\fP is PQT_COMPOSITE or PQT_USERDEFINED, this function must -execute a query against the backend to retrieve type information, thus -this should not be called from within a transaction. It is recommended to -register multiple composites at the same time to avoid round trip overhead. - -The \fItypes\fP argument is an array containing \fIcount\fP types -to register. Composites do not use the typput or typget members of the -PGregisterType structure, thus these memebrs are ignored. If any composite -does not exist, the register is aborted. User-defined types must set either -typput and/or typget for each type. Sub-classes typname member of the -PGregisterType structure must specify an inheritence relationship: -ex. "myint=int4" where myint inherits from int4. The \'=\' is called the -inheritence operator. If both typput and typget members of the PGregisterType -structure are NULL, the type at that element will behave identically to the -type it is inheriting from; an alias. Otherwise, the base type's put and/or -get routines will be overridden. - -The \fIasync\fP argument indicates if the asynchronous type registration -should be used. When non-zero, the caller must proceed in the normal -async libpq fashion (PQconsumeInput, PQisBusy, PQgetResult) and provide a -PGresult to PQregisterResult when obtained to complete the registration. - -NOTE: The typname member of the PGregisterType structure can optionally -contain the type's schema: schema.typname. - -WARNING: \fIPQparamCreate\fP is only aware of types that have already been -registered. If you need to put a type into a param, make sure it is first -registered. - -.SH EXAMPLES -.LP -.SS Using PQregisterTypes -The example registers two composite types. -.RS -.nf -.LP -\fBPGregisterType comp_types[] = { - {"myschema.simple", NULL, NULL}, - {"complex", NULL, NULL} -}; - -if (!PQregisterTypes(conn, PQT_COMPOSITE, comp_types, 2, 0)) - fprintf(stderr, "PQregisterTypes: %s\\n", PQgeterror()); -\fP -.fi -.RE -.SH RETURN VALUE -.LP -On success, both PQregisterTypes returns a non-zero value. -On error, zero is returned and \fIPQgeterror(3)\fP will contain an -error message. -.SH EXAMPLES -.LP -None. -.SH AUTHOR -.LP -A contribution of eSilo, LLC. for the PostgreSQL Database Management System. -Written by Andrew Chernow. -.SH REPORTING BUGS -.LP -Report bugs to . -.SH COPYRIGHT -.LP -Copyright (c) 2011 eSilo, LLC. All rights reserved. -.br -This is free software; see the source for copying conditions. -There is NO warranty; not even for MERCHANTABILITY or FITNESS -FOR A PARTICULAR PURPOSE. -.SH SEE ALSO -.LP -\fIPQregisterResult(3)\fP, \fIpqt-handlers(3)\fP, \fIPQputf(3)\fP, \fIPQgetf(3)\fP - - diff --git a/libpqtypes/docs/man3/PQregisterUserDefinedTypes.3 b/libpqtypes/docs/man3/PQregisterUserDefinedTypes.3 deleted file mode 100644 index dfc486b..0000000 --- a/libpqtypes/docs/man3/PQregisterUserDefinedTypes.3 +++ /dev/null @@ -1,82 +0,0 @@ -.TH "PQregisterUserDefinedTypes" 3 2011 "libpqtypes" "libpqtypes Manual" -.SH NAME -PQregisterUserDefinedTypes \- Registers a user-defined types. -.SH SYNOPSIS -.LP -\fB#include -.br -.sp -int PQregisterUserDefinedTypes(PGconn *\fIconn\fP, PGregisterType *\fItypes\fP, -.br - int \fIcount\fP); -\fP -.SH DEPRECATED -.LP -THIS FUNCTION IS DEPRECATED. New applications should use PQregisterTypes. -This function is now a wrapper to PQregisterTypes. -.SH DESCRIPTION -.LP -The \fIPQregisterUserDefinedTypes\fP() function allows an application -to register one or more user-defined types at runtime. User-defined types -are custom types in a backend that implement their own C procedures for -in/out/send/recv. - -This function must execute a query against the backend to retrieve type -information for each user-defined type, thus this should not be called -from within a transaction. It is recommended to register multiple types at -the same time to avoid round trip overhead. - -The \fItypes\fP argument is an array containing \fIcount\fP user-defined -types to register. If any type does not exist, the register -is aborted. Either typput and/or typget must be specified for each type -in the \fItypes\fP array. - -NOTE: The typname member of the PGregisterType structure can optionally -contain the type's schema: schema.typname. - -WARNING: \fIPQparamCreate\fP is only aware of types that have already been -registered. If you need to put a type into a param, make sure it is first -registered. - -\fBUser-defined Types Registration\fP -.br -This example registers two user-defined types. -.nf -.RS -.LP -\fBPGregisterType types[] = { - {"graphics.rgb", rgb_put, rgb_get}, - {"graphics.digon", digon_put, digon_get} -}; - -if (!PQregisterUserDefinedTypes(conn, types, 2)) - fprintf(stderr, "PQregisterUserDefinedTypes: %s\\n", PQgeterror()); -\fP -.RE -.fi - -.SH RETURN VALUE -.LP -On success, a non-zero value is returned. On error, zero is -returned and \fIPQgeterror(3)\fP will contain an error message. -.SH EXAMPLES -.LP -None. -.SH AUTHOR -.LP -A contribution of eSilo, LLC. for the PostgreSQL Database Management System. -Written by Andrew Chernow and Merlin Moncure. -.SH REPORTING BUGS -.LP -Report bugs to . -.SH COPYRIGHT -.LP -Copyright (c) 2011 eSilo, LLC. All rights reserved. -.br -This is free software; see the source for copying conditions. -There is NO warranty; not even for MERCHANTABILITY or FITNESS -FOR A PARTICULAR PURPOSE. -.SH SEE ALSO -.LP -\fIpqt-handlers(3)\fP, \fIPQputf(3)\fP, \fIPQgetf(3)\fP - diff --git a/libpqtypes/docs/man3/PQsendf.3 b/libpqtypes/docs/man3/PQsendf.3 deleted file mode 100644 index 77c4e1e..0000000 --- a/libpqtypes/docs/man3/PQsendf.3 +++ /dev/null @@ -1 +0,0 @@ -.so man3/PQexecf.3 \ No newline at end of file diff --git a/libpqtypes/docs/man3/PQsendvf.3 b/libpqtypes/docs/man3/PQsendvf.3 deleted file mode 100644 index 77c4e1e..0000000 --- a/libpqtypes/docs/man3/PQsendvf.3 +++ /dev/null @@ -1 +0,0 @@ -.so man3/PQexecf.3 \ No newline at end of file diff --git a/libpqtypes/docs/man3/PQseterror.3 b/libpqtypes/docs/man3/PQseterror.3 deleted file mode 100644 index e1ca3a1..0000000 --- a/libpqtypes/docs/man3/PQseterror.3 +++ /dev/null @@ -1 +0,0 @@ -.so man3/PQgeterror.3 \ No newline at end of file diff --git a/libpqtypes/docs/man3/PQspecPrepare.3 b/libpqtypes/docs/man3/PQspecPrepare.3 deleted file mode 100644 index c9b09fa..0000000 --- a/libpqtypes/docs/man3/PQspecPrepare.3 +++ /dev/null @@ -1,123 +0,0 @@ -.TH "PQspecPrepare" 3 2011 "libpqtypes" "libpqtypes Manual" -.SH NAME -PQspecPrepare \- Prepares a libpqtypes specifier format string. -.SH SYNOPSIS -.LP -\fB#include -.br -.sp -int PQspecPrepare(PGconn *\fIconn\fP, const char *\fIname\fP, -.br - const char *\fIformat\fP, int \fIis_stmt\fP); -.br -void PQclearSpecs(PGconn *\fIconn\fP); -\fP -.SH DESCRIPTION -.LP -PQspecPrepare allows an application to prepare specifier format strings -that will be used frequently. By preparing a specifier format string, -one avoids the parsing and type handler lookup costs. This becomes a -significant win when managing large result sets or arrays, where the -specifier format, like "%int4 %text %bytea", must be prepared for each -tuple/element. - -As with PQregisterXXX, only specifier format strings prepared prior -to the creation of a PGresult or PGparam, will be available for use. This is -because the prepared type spec is cached within a PGconn object and copied -to all subsequent PGparam and PGresult objects. - -Every prepared type spec is given a \fIname\fP, which is used as its unique identifier. -To use a prepared type spec, the \fIname\fP is provided where ever a regular -specifier format string is allowed, like PQputf or PQgetf. The \fIname\fP must -be proceeded by a \'@\' AT sign. For more information about the syntax, -see the \fIpqt-specs(3)\fP man page. - -The \fIformat\fP argument is the specifier format string being prepared. When -this is NULL, the \fIname\fP prepared type spec is removed from the PGconn\'s -internal array. - -The \fIis_stmt\fP argument indicates if a parementerized statement version of -\fIformat\fP should be cached along with the prepared type spec. This means -all type specifiers in \fIformat\fP, like "%int4", will be converted to "$1" -syntax. When is_stmt is non-zero, a statement will created and cached. -For more information on specifer format string to paremterized statements, see -the \fIPQputf(3)\fP man page. NOTE: to use a prepared type spec with -execution functions like PQexecf, \fIis_stmt\fP must be set to non-zero. - -PQclearSpecs removes all prepared specifiers from the given PGconn, as -opposed to removing them one by one by setting PQspecPrepare's format -argument to NULL. A good use for this is after a PQresetXXX call when it -might be desired to re-prepare all type specifiers. - -Functions that support the use of a prepared type spec are: \fIPQputf\fP, -\fIPQputvf\fP, \fIPQgetf\fP, \fIPQgetvf\fP, \fIPQexecf\fP, \fIPQexecvf\fP, -\fIPQsendf\fP, \fIPQsendvf\fP, \fIPQparamExec\fP, \fIPQparamSendQuery\fP. - -\fBHINT:\fP A good rule of thumb for using prepared type specs, is when there -are a large number of PQputf/PQgetf calls per statement execution. This -commonly occurs when dealing with large result sets and arrays. -.SH RETURN VALUE -.LP -PQspecPrepare and PQclearSpecs return a nonzero value on success and -zero if it fails. Use PQgeterror() to get an error message. -.SH EXAMPLES -.LP -This example prepares a type spec and issues some PQputf calls. -.LP -.RS -.nf -\fBint i; -PQparam *param; - -if(!PQspecPrepare(conn, "prepared_spec", "%int4 %text", 0)) -{ - fprintf(stderr, "PQspecPrepare: %s\n", PQgeterror()); - exit(1); -} - -/* create after preparing spec */ -param = PQparamCreate(conn); - -for(i=0; i < 100000; i++) -{ - /* NOTE: nothing else can be in format string */ - PQputf(param, "@prepared_spec", 4, "text"); -} - -/* This elects to prepare a statement as well. After this returns, - * "SELECT myfunc($1, $2)" will be cached along with the prepared spec. - */ -PQspecPrepare(conn, "myfunc", "SELECT myfunc(%int4, %text)", 1); - -/* "myfunc" tells execf to execute "SELECT myfunc($1, $2)". If is_stmt - * was set to zero during the PQspecPrepare, the below would be invalid - * because execf doesn't know what to execute. - */ -PQexecf(conn, "@myfunc", 123, "text"); - -/* clear'm all */ -PQclearSpecs(conn); -\fP -.fi -.RE -.SH RATIONALE -.LP -None. -.SH AUTHOR -.LP -A contribution of eSilo, LLC. for the PostgreSQL Database Management System. -Written by Andrew Chernow. -.SH REPORTING BUGS -.LP -Report bugs to . -.SH COPYRIGHT -.LP -Copyright (c) 2011 eSilo, LLC. All rights reserved. -.br -This is free software; see the source for copying conditions. -There is NO warranty; not even for MERCHANTABILITY or FITNESS -FOR A PARTICULAR PURPOSE. -.SH SEE ALSO -.LP -\fIpqt-specs(3)\fP, \fIPQgetf(3)\fP, \fIPQputf(3)\fP. - diff --git a/libpqtypes/docs/man3/PQtypesRegister.3 b/libpqtypes/docs/man3/PQtypesRegister.3 deleted file mode 100644 index 1efd700..0000000 --- a/libpqtypes/docs/man3/PQtypesRegister.3 +++ /dev/null @@ -1,53 +0,0 @@ -.TH PQtypesRegister 3 2011 "libpqtypes" "libpqtypes Manual" -.SH NAME -PQtypesRegister \- Registers libpqtypes with the libpq event system. -.SH SYNOPSIS -.LP -\fB#include -.br -.sp -int PQtypesRegister(PGconn *conn); -\fP -.SH DEPRECATED -.LP -THIS FUNCTION IS DEPRECATED. New applications should use PQinitTypes. -This function is now a wrapper to PQinitTypes. -.SH DESCRIPTION -.LP -libpqtypes makes use of the libpq Event System. Before using -libpqtypes, you must register libpqtypes as a libpq EventProc. -The function takes a PGconn that libpqtypes will be registered -with; each PGconn requires its own registration. -.SH RETURN VALUE -.LP -The function returns zero if it fails and non-zero if it succeeds. -.SH EXAMPLES -.LP -.SS Registering libpqtypes -The examples shows how to register libpqtypes with the libpq event system. -.RS -.nf -.LP -\fB/* call prior to any other libpqtypes functions that operate on conn. */ -PQtypesRegister(conn); -\fP -.fi -.RE -.SH AUTHOR -.LP -A contribution of eSilo, LLC. for the PostgreSQL Database Management System. -Written by Andrew Chernow and Merlin Moncure. -.SH REPORTING BUGS -.LP -Report bugs to . -.SH COPYRIGHT -.LP -Copyright (c) 2011 eSilo, LLC. All rights reserved. -.br -This is free software; see the source for copying conditions. -There is NO warranty; not even for MERCHANTABILITY or FITNESS -FOR A PARTICULAR PURPOSE. -.SH SEE ALSO -.LP -None - diff --git a/libpqtypes/docs/man3/pqt-composites.3 b/libpqtypes/docs/man3/pqt-composites.3 deleted file mode 100644 index 19bd0c9..0000000 --- a/libpqtypes/docs/man3/pqt-composites.3 +++ /dev/null @@ -1,263 +0,0 @@ -.TH "pqt-composites" 3 2011 "libpqtypes" "libpqtypes Manual" -.SH NAME -pqt-composites \- A manual for libpqtypes composite handling. -.SH NOTE TO READER -.LP -Please read the \fIpqt-specs(3)\fP manual page prior to this document. -This document does not explain how to put or get data types. It -only describes how to put or get composites and composite arrays. -.SH DESCRIPTION -.LP -A composite is put using the PGparam structure. Each attribute of a -composite is put into a PGparam. When all attributes have been put, -the PGparam is put into another PGparam. Composites must be registered -on a per connection basis, \`man \fIpqt-handlers(3)\fP\'. - -To get a composite, a PGresult structure is used. Each composite -attribute is a field of the result. For non-array composites, there -is always only one tuple. - -Composites are only handled using binary format. This means that any type used -as a composite attribute must be put and gotten in binary format. If a -user-defined type does not implement a send and recv function in the backend, -it can not be used as a composite attribute. -.SS Simple Composite Example -.LP -This example demostrates the basics of putting and getting a composite type. -.nf -.RS -\fB -CREATE TYPE simple AS (a int4, t text); - -PGregisterType type = {"simple", NULL, NULL}; - -/* need to register the simple composite */ -PQregisterTypes(conn, PQT_COMPOSITE, &type, 1, 0); - -/* Composite attributes are put into PGparam structures */ -PGparam *simple = PQparamCreate(conn); - -/* put the simple composite attributes */ -PQputf(simple, "%int4 %text*", 45, "foobar"); - -/* Put an int4 and a simple composite */ -PGparam *param = PQparamCreate(conn); -PQputf(param, "%int4 %simple", 10, simple); -PQparamClear(simple); - -/* exec an insert */ -res = PQparamExec(conn, param, "INSERT INTO t VALUES($1,$2)", resfmt); -PQparamClear(param); - -/* ------------------------- - * Getting a composite - */ - -PGint4 i4; -PGtext textp; -char text[80]; -PGresult *simple; - -/* Get a simple composite, provide a ptr to a PGresult ptr. */ -PQgetf(result, 0, "%simple", 0, &simple); - -/* no longer needed */ -PQclear(result); - -/* Get the simple composite attributes from the simple result. - * Reference fields by name by using a '#' rather than a '%'. - * The field names are the composite attributes. - */ -PQgetf(simple, 0, "#int4 #text", "a", &i4, "t", &textp); -strcpy(text, textp); -PQclear(simple); -\fP -.RE -.nf - -In the above example, we used the \'#\' specifier mark to reference -fields by their name. The field names for a composite result object -are the composite attribute names. -.SS Nested Composite example: -.LP -The below example puts and gets a nested composite. The simple composite -is used as an attribute within the complex composite. -.nf -.RS -\fB -CREATE TYPE simple AS (a int4, t text) -CREATE TYPE complex AS (f8 float8, s simple); - -/* need to register simple and complex */ -PGregisterType types[] = { - {"simple", NULL, NULL}, - {"complex", NULL, NULL} -}; - -PQregisterTypes(conn, PQT_COMPOSITE, types, 2, 0); - -/* Composite attributes are put into PGparam structures */ -PGparam *simple = PQparamCreate(conn); -PGparam *complex = PQparamCreate(conn); - -/* put the simple composite attributes */ -PQputf(simple, "%int4 %text*", 45, "foobar"); - -/* put the complex composite attributes, which includes - * a nested composite. - */ -PQputf(complex, "%float8 %simple", 111.2223334, simple); - -/* no longer needed */ -PQparamClear(simple); - -/* Put an int4 and a complex composite */ -PGparam *param = PQparamCreate(conn); -PQputf(param, "%int4 %complex", 10, complex); -PQparamClear(complex); - -/* exec an insert */ -res = PQparamExec(conn, param, "INSERT INTO t VALUES($1,$2)", resfmt); -PQparamClear(param); - -/* ------------------------- - * Getting a nested composite - */ - -PGfloat8 f8; -PGint4 i4; -PGtext textp; -char text[80]; -PGresult *complex; -PGresult *simple; - -/* Get the complex composite, provide a ptr to a PGresult ptr. */ -PQgetf(result, 0, "%complex", 0, &complex); - -/* no longer needed */ -PQclear(result); - -/* Get the complex composite attributes from the complex result. - * Composite attributes are the result fields. When getting - * a single composite, non-array, only tuple 0 will exist. - * For the nested simple composite, we again provide a ptr to - * a PGresult ptr. - */ -PQgetf(complex, 0, "%float8 %simple", 0, &f8, 1, &simple); - -/* no longer needed */ -PQclear(complex); - -/* Get the simple composite attributes from the simple result. - * Reference fields by name by using a '#' rather than a '%'. - */ -PQgetf(simple, 0, "#int4 #text", "a", &i4, "t", &textp); -strcpy(text, textp); -PQclear(simple); -\fP -.RE -.nf -.SS An array of composites: -.LP -This example makes an array of complex composites. It builds -off the previous example. -.nf -.RS -\fB -int i; -PGarray complex_arr; -PGparam *simple = PQparamCreate(conn); -PGparam *complex = PQparamCreate(conn); - -complex_arr.ndims = 0; -complex_arr.param = PQparamCreate(conn); - -for(i=0; i < 100; i++) -{ - /* put the simple composite attributes */ - PQputf(simple, "%int4 %text*", 45, "foobar"); - - /* put the complex composite attributes, which includes - * a nested composite. - */ - PQputf(complex, "%float8 %simple", 111.2223334, simple); - - /* put the complex composite */ - PQputf(complex_arr.param, "%complex", complex); - - /* You must reset the simple and complex composites for - * the next loop iteration. - */ - PQparamReset(simple); - PQparamReset(complex); -} - -/* not needed anymore */ -PQparamClear(simple); -PQparamClear(complex); - -/* Put a complex composite array */ -PGparam *param = PQparamCreate(conn); -PQputf(param, "%complex[]", &complex_arr); -PQparamClear(complex_arr.param); - -/* exec an insert */ -res = PQparamExec(conn, param, "INSERT INTO t VALUES($1)", resfmt); -PQparamClear(param); - -/* ------------------------- - * Getting an array of composites - */ - -int i; -int ntups; -PGfloat8 f8; -PGint4 i4; -PGtext textp; -PGresult *simple; -PGarray complex_arr; - -/* Get the complex[], provide a ptr to a PGarray. */ -PQgetf(exec_result, 0, "%complex[]", 0, &complex_arr); - -/* no longer needed */ -PQclear(exec_result); - -ntups = PQntuples(complex_arr.res); -for(i=0; i < ntups; i++) -{ - PQgetf(complex_arr.res, i, "%float8 %simple", 0, &f8, 1, &simple); - - /* Nested composites are like any other composite, tuple 0! Unless, - * its a nested composite array. - */ - PQgetf(simple, 0, "#int4 #text", "a", &i4, "t", &textp); - - printf("(%f, (%d, %s))\\n", f8, i4, textp); - PQclear(simple); -} - -PQclear(complex_arr.res); -\fP -.RE -.nf -.SH EXAMPLES -.LP -None. -.SH AUTHOR -.LP -A contribution of eSilo, LLC. for the PostgreSQL Database Management System. -Written by Andrew Chernow and Merlin Moncure. -.SH REPORTING BUGS -.LP -Report bugs to . -.SH COPYRIGHT -.LP -Copyright (c) 2011 eSilo, LLC. All rights reserved. -.br -This is free software; see the source for copying conditions. -There is NO warranty; not even for MERCHANTABILITY or FITNESS -FOR A PARTICULAR PURPOSE. -.SH SEE ALSO -.LP -\fIPQgetf(3)\fP, \fIPQputf(3)\fP, \fIPQputvf(3)\fP diff --git a/libpqtypes/docs/man3/pqt-handlers.3 b/libpqtypes/docs/man3/pqt-handlers.3 deleted file mode 100644 index 755ca1d..0000000 --- a/libpqtypes/docs/man3/pqt-handlers.3 +++ /dev/null @@ -1,598 +0,0 @@ -.TH "pqt-handlers" 3 2011 "libpqtypes" "libpqtypes Manual" -.SH NAME -pqt-handlers \- A manual for implementing libpqtypes type handlers. -.SH DESCRIPTION -.LP -Type handlers are I/O routines used by libpqtypes for sending and receiving -data for specific types. Internally, libpqtypes uses type handlers to support -PostgreSQL's builtin base types: such as point, int4, timestamp, etc... - -NOTE: Builtin types always serialize parameters being sent "put" to the backend -in binary format; user-defined types may choose to use text format. C data -types are translated into the backend's external binary format. Even if text -results are used, C data types are still exposed when getting result data. - -\fBType handlers have the below three properties:\fP -.LP -.RS -\fBType Specifier Name\fP -.br -A [schema].type name that will be used to reference your handler. -\`man \fIpqt-specs\fP\' for complete documentation on syntax. - -\fBPut Routine\fP -.br -A PGtypeProc put routine takes a C data type and converts it into a valid backend -external format. The converted format is used with libpq's parameterized -API. For instance: a C int data type is used to put a postgresql int4. -To convert this to a valid external format, libpqtypes swaps the bytes -(when needed) so they are in network order. A put routine returns the number -of bytes being put. On error, a put routine must return -1. - -\fBGet Routine\fP -.br -A PGtypeProc get routine does the opposite of a put routine. It converts a -type's text or binary external format to its native C type. For instance: -a postgresql int4 is converted to a C int. For binary results, the 4 bytes -are converted to host order and stored as a C int. A get routine returns zero -to indicate success. On error, a get routine must return -1. -.RE - -\fBPGregisterType\fP -.br -The \fIPGregisterType\fP structure is used by all PQregisterXXX functions. -It contains a typname, put and get routine. The typname can optionally -contain the type's schema, like pg_catalog.int4. When registering a -sub class via PQregisterTypes, an inheritence operator must be used -within typname to indicate what type is being extended: myint4=int4. If the -typput and typget routines are NULL during a sub class registration, the -result is a direct sub class or alias of the base type: like "s=text" -allowing one to use "%s" instead of "%text". When registering a composite, -typput and typget are ignored. -.nf -.RS -\fB -typedef struct -{ - const char *typname; - PGtypeProc typput; - PGtypeProc typget; -} PGregisterType;\fP -.RE -.fi - -To implement a type handler, you need to be aware of 4 structures: -PGtypeFormatInfo, PGrecordAttDesc, PGtypeHandler and PGtypeArgs. All exist -for use with type handlers. - -\fBPGtypeFormatInfo\fP -.br -The \fIPGtypeFormatInfo\fP structure provides useful connection-based information for -type handlers. For instance, your handler may have different implementations -depending on the server version .. \fIsversion\fP. -.nf -.RS -\fB -typedef struct -{ - int sversion; /* server version, e.g. 70401 for 7.4.1 */ - int pversion; /* FE/BE protocol version in use */ - char datestyle[32]; /* server\'s datestyle: like "SQL, MDY" */ - - /* When non-zero, server uses int64 timestamps */ - int integer_datetimes; -} PGtypeFormatInfo;\fP -.RE -.fi - -\fBPGrecordAttDesc\fP -.br -The \fIPGrecordAttDesc\fP structure defines the attributes of a composite. -Internally, libpqtypes keeps track of composite attributes using this structure. -.nf -.RS -\fB -typedef struct -{ - Oid attoid; /* Oid of the attribute */ - int attlen; /* storage size of attribute. -1 if not known */ - int atttypmod; /* The typmod of attribute. */ - char *attname; /* The name of the attribute. */ -} PGrecordAttDesc;\fP -.RE -.fi - -\fBPGtypeHandler\fP -.br -The \fIPGtypeHandler\fP structure represents all the properties of a -type handler. When a type is registered, this structure is used to catalog -the type\'s information. -.nf -.RS -\fB -typedef struct pg_typhandler -{ - /* An internal libpqtypes assigned id for this type handler. */ - int id; - - /* The schema name of this type, which may be empty if not - * provided during registration. - */ - char typschema[65]; - - /* The name of this type: like int2 or bytea, cannot be empty */ - char typname[65]; - - /* The storage size of this type. -1 if not known. */ - int typlen; - - /* The backend OID of the type. */ - Oid typoid; - - /* The backend array OID of the type. */ - Oid typoid_array; - - /* The put handler for this type. */ - PGtypeProc typput; - - /* The get handler for this type. */ - PGtypeProc typget; - - /* If this handler is a sub-class, this will be the \'id\' of - * the super class type handler. It is set to -1 if not - * a sub-class. - */ - int base_id; - - /* Indicates the number of composite attributes within the - * \'attDescs\' array. This is set to 0 for non-composites. - */ - int nattrs; - - /* If non-zero, the 'attDescs' pointer must be freed. */ - int freeAttDescs; - - /* The memory behind the 'attDescs' pointer when the number of - * attrs is less than 16. When greater than 16, heap memory - * is used and 'freeAttDescs' is set to a non-zero value. - */ - PGrecordAttDesc attDescsBuf[16]; - - /* An array of PGrecordAttDesc, one element per record - * attribute. Must be freed if 'freeAttDescs' is non-zero. - */ - PGrecordAttDesc *attDescs; -} PGtypeHandler; -\fP -.RE -.fi - -\fBPGtypeArgs\fP -.br -The \fIPGtypeArgs\fP structure is passed to all put and get handlers. It -contains all values needed by type handlers. -.nf -.RS -\fB -struct pg_typeargs -{ - /* Indicates if this is a put or get operation. */ - int is_put; - - /* Formatting information. */ - const PGtypeFormatInfo *fmtinfo; - - /* Indicates if a request for a direct pointer was - * made, %text*. - */ - int is_ptr; - - /* - * When \fIis_put\fP is non-zero, set this to 1 for binary and 0 for - * text format. It defaults to binary. When \fIis_put\fP is 0, this - * indicates the field type PQftype of \fIget.field_num\fP. - */ - int format; - - /* An argument list. Arguments should be retrieved with va_arg. */ - va_list ap; - - /* The position of this typname within a specifier - * string, 1-based. - */ - int typpos; - - /* Type handler for the specifier at typpos. */ - PGtypeHandler *typhandler; - - /* - * Report an error from within a handler. This error message - * will show up in PQgeterror. - * - * This always returns -1 so one can report an error and return - * -1 from a handler in a single statement: - * - * return args->errorf(args, "ERROR: %s", strerror(errno)); - * - * errorf always prepends a small header - * "schema.typname[pos:num] - msg". For example, if the above - * failed within the int4 handler and typpos was 5, the - * resulting error message would be: - * - * pg_catalog.int4[pos:5] - ERROR: Invalid argument - * - * errorf does not put any newlines in error message. - */ - int (*errorf)(PGtypeArgs *args, const char *format, ...); - - /* Used by type sub-class handlers. When \fIis_put\fP is - * non-zero, a sub-class prepares type data and then calls - * super. When \fIis_put\fP is zero, a sub-class first - * calls super to get the base class's deserialized value - * and can then convert it. - */ - int (*super)(PGtypeArgs *args, ...); - - /* This structure is used when \fIis_put\fP is non-zero. */ - struct - { - /* The PGparam structure passed to \fIPQputf\fP(). */ - PGparam *param; - - /* A buffer used to store the type's output format. If - * more than 'outl' bytes are needed, see 'expandBuffer'. - * Normally data is copied to the out buffer, but it can - * also be pointed elsewhere: like a const string or static - * memory. When repointing the out buffer, DO NOT use - * 'expandBuffer'. Never use realloc on this buffer. - */ - char *out; - - /* The size in bytes of the 'out' buffer. If expandBuffer - * is used, this will reflect the new buffer length. - */ - int outl; - - /* Expands the 'out' buffer to 'new_len'. If new_len is - * less than or equal to the current length 'outl', the - * expand request is ignored. This behaves just like a - * realloc, existing data is copied to the new memory. - * You should never use realloc on the out buffer. - * Returns -1 on error and 0 for success. - */ - int (*expandBuffer)(PGtypeArgs *args, int new_len); - - /* internal use only. */ - char *__allocated_out; - } put; - - /* This structure is used when \fIis_put\fP is zero. */ - struct - { - /* The PGresult passed to \fIPQgetf\fP(). - PGresult *result; - - /* The tuple number */ - int tup_num; - - /* the tuple field number. */ - int field_num; - } get; -};\fP -.RE -.fi - -.SH USER-DEFINED TYPES -.LP -User-defined types are extended base types in the backend. They are not domains -or composites. These types have their own input/output and send/recv functions -(normally written in C). They normally include their own operator functions and -have an array oid. For libpqtypes to make use of these types, especially for binary -puts and gets, a type handler must be registered. This provides libpqtypes with a type -specifer, put and get routines for handling this type. - -User-defined types are registered on a per connection basis and must exist on the -server. If the type does not exist, the registration fails. If no schema name is -provided during registration, the server's search path is used to resolve the -type's existence and fetch its oid. If a schema name is provided during -registration, the search path is not used. - -.SS User-defined type example -.LP -Assume there is a user-defined type named \'rgb\' in the \'graphics\' schema. The -text output format is always in hex: \'#ff0000\' with a leading pound sign and -lowercase hex digits. The external binary format is a sequence of three unsigned -bytes: r, g and b. To use this type with libpqtypes, it must be registered. -.nf -.RS -\fB -/* register the rgb type */ -PGregisterType type = {"graphics.rgb", rgb_put, rgb_get}; -PQregisterTypes(conn, PQT_USERDEFINED, &type, 1, 0); - -/* put an rgb */ -rgb_t rgb = {218, 218, 218}; -PGparam *param = PQparamCreate(conn); -PQputf(param, "%rgb", &rgb); - -/* get an rgb from tuple 0 field 4 */ -rgb_t rgb; -PQgetf(result, 0, "%graphics.rgb", 4, &rgb); - -/* ------------------------------- - * EXAMPLE RGB IMPLEMENTATION - */ - -#define hex2dec(v) (unsigned char)(((v) > '9') ? \ - ((v) - 'a') + 10 : (v) - '0') - -/* example rgb struct */ -typedef struct -{ - unsigned char r; - unsigned char b; - unsigned char g; -} rgb_t; - -/* RGB PGtypeProc handler - always puts in binary format */ -int rgb_put(PGtypeArgs *args) -{ - unsigned char *out; - rgb_t *rgb = va_arg(args->ap, rgb_t *); - - /* If rgb is NULL, put an SQL NULL value */ - if(!rgb) - { - args->put.out = NULL; - return 0; - } - - /* write the 3 bytes to the args out buffer */ - out = (unsigned char *)args->put.out; - *out++ = rgb->r; - *out++ = rgb->g; - *out = rgb->b; - return 3; /* number of bytes the server should expect */ -} - -/* RGB PGtypeProc handler */ -int rgb_get(PGtypeArgs *args) -{ - rgb_t *rgb = va_arg(args->ap, rgb_t *); - char *value = PQgetvalue(args->get.result, - args->get.tup_num, args->get.field_num); - - if(!rgb) - return args->errorf(args, "rgb* cannot be NULL"); - - /* text format: ex. \'#ff9966\' */ - if(PQfformat(args->format) == 0) - { - value++; /* skip the \'#\' sign */ - rgb->r = (hex2dec(value[0]) << 4) | hex2dec(value[1]); - rgb->g = (hex2dec(value[2]) << 4) | hex2dec(value[3]); - rgb->b = (hex2dec(value[4]) << 4) | hex2dec(value[5]); - return 0; - } - - /* binary format */ - rgb->r = (unsigned char)value[0]; - rgb->g = (unsigned char)value[1]; - rgb->b = (unsigned char)value[2]; - return 0; -}\fP -.RE -.fi - -.SH TYPE SUB-CLASSING -.LP -Sub-classing a type means extending the put or get routines of a registered -type handler. The idea came about from trying to provide a convention for -registering domains; which amounts to simple aliases to libpqtypes. -Domain/alias registration would look like this: -.nf -.RS -\fBPGregisterType type = {"myint4=pg_catalog.int4", NULL, NULL}; -PQregisterTypes(conn, PQT_SUBCLASS, &type, 1, 0);\fP -.RE -.fi - -The 'typname' member syntax is: [schema].type=[base_schema].base_type -(schema is optional). No spaces are allowed unless contained within the schema -or type name, which would require double quoting the identifer. By passing NULL -for both the put and get handlers, the base type's handlers are used. Thus, -the result of the above is that "%myint4" and "%int4" behave identically. But -what happens if a put or get handler is provided during an alias registration? -Is this useful functionality to applications? The answer is sub-classing and -yes its useful. - -By providing a put and get handler during alias registration, one has -effectively sub-classed the base type. This is called sub-class registration. - -By sub-classing a registered type, applications can now put and get data -using their own data structures. The sub-class put and get routines handle -the dirty work of converting application structures to the base type's -structure. When sub-classing, no oid lookup occurs with the server. The -sub-class type is assumed to be application specific. Sub-classes are -registered on a per connection basis, just like user-defined types. The -reason for this is because the base type can be server-specific. - -\fBBENEFITS\fP - -1. Centralizes conversions from application data types to libpq data types -.br -2. Provides an easy all-inclusive interface for putting and getting values -.br -3. Allows applications to piggy-back off libpqtypes internal binary and text convertors -.br -4. Adds enormous flexiblity: (a few interesting ideas) -.br - -- %socket: sub-class the inet get routine and return a connected sockfd. -.br - -- %file: sub-class the text get routine and return a FILE* (text being a pathname) -.br - -- %filemd5: sub-class the bytea put routine and supply a pathname that is used to - md5 a file's contents, utlimately putting a 16 byte bytea. - -It is impossible to consider all of the uses for type sub-classing. The above -ideas are probably more extreme than common cases, such as taking an application -struct and converting it to what the base type expects. But, the extreme cases -are possible when desired. - -.SS Sub-class example -.LP -Assume you have an application that works with time_t epoch values a lot. It -would be useful if you could define a %epoch type handler. This avoids having -to convert a time_t to either a string or to a PGtimestamp (used by the timestamp & -timestamptz type handlers). The problem is, to use the binary interface you would -have to know how to serialize a timestamp to send/recv it from the server. If you -sub-class timestamptz, you can use PGtypeArgs.super to handle the dirty work. - -\fB**NOTE:\fP %epoch is only an example, it is not part of libpqtypes nor being proposed. -The goal here is to demonstrate how to implement a type sub-class handler. It is important -to note that %epoch will announce itself as a timestamptz to the backend. So when using -%epoch, make sure the context allows a timestamptz. -.nf -.RS -\fB -/* we are going to register this under the \'pqt\' schema */ -PGregisterType type = {"pqt.epoch=pg_catalog.timestamptz", epoch_put, epoch_get}; -PQregisterTypes(conn, PQT_SUBCLASS, &type, 1, 0)) - -/* putting an epoch */ -struct stat st; -if(stat("/home/foobar/archive.tgz", &st) == 0) -{ - PGparam *param = PQparamCreate(conn); - PQputf(param, "%epoch", st.st_mtime); - //.... -} - -/* getting an epoch value, using fully qualified type name */ -struct utimbuf ut = {0, 0}; -PQgetf(result, tup_num, "%pqt.epoch", field_num, &ut.modtime); - -/* ------------------------------- - * EXAMPLE EPOCH SUB-CLASS IMPLEMENTATION - */ - -/* convert a time_t to a PGtimestamp and call args->super() */ -int epoch_put(PGtypeArgs *args) -{ - struct tm *tm; - PGtimestamp ts; - time_t t = va_arg(args->ap, time_t); - - tm = localtime(&t); - ts.date.isbc = 0; - ts.date.year = tm->tm_year + 1900; /* always 4-digit year */ - ts.date.mon = tm->tm_mon; - ts.date.mday = tm->tm_mday; - ts.time.hour = tm->tm_hour; - ts.time.min = tm->tm_min; - ts.time.sec = tm->tm_sec; - ts.time.usec = 0; - ts.time.gmtoff = tm->tm_gmtoff; - - /* Internally, this calls the base type\'s put routine - * (the super class). In this case, the super class - * expects a PGtimestamp as input. The super function - * returns whatever the base type\'s put routine returns - * (which for all puts is the byte count or -1 on error). - */ - return args->super(args, &ts); -} - -/* Calls args->super() to get a PGtimestamp and then converts - * it to a time_t value. - */ -int epoch_get(PGtypeArgs *args) -{ - PGtimestamp ts; - time_t *t = va_arg(args->ap, time_t *); - - if(!t) - return args->errorf(args, "time_t* cannot be NULL"); - - /* zero user bits */ - *t = 0; - - /* Internally, this calls the base type\'s get routine, - * which returns 0 or -1 on error. - */ - if(args->super(args, &ts) == -1) - return -1; /* args->errorf called by super already */ - - /* Since PGtimestamp contains an epoch member, we can - * just copy that value rather than calling mktime(). - */ - *t = (time_t)ts.epoch; - return 0; -} -\fP -.RE -.fi - -.SH COMPOSITES -.LP -To get and put composites, they must be registered. During registration, -information about the composite type, likes its OID and attributes, are looked -up in the backend. The composite must exist or the registration fails. -Do a \`man \fIpqt-composites(3)\fP\' for a more information about composites. - -Registering a composite type: -.nf -.RS -\fB -CREATE TYPE simple AS (a int4, t text); -PGregisterType type = {"simple", NULL, NULL}; -PQregisterTypes(conn, PQT_COMPOSITE, &type, 1, 0);\fP -.RE -.fi - -*) The put and get routines must be NULL, composites cannot be sub-classed -.br -*) The provided name cannot resolve to the backend\'s RECORDOID -.br -*) The composite must exist at "conn" -.br -*) If no schema name is provided, the composite must be within the backend\'s search path. - -During registration of a composite, the below information is retreived from the backend: - -*) Oid of the composite type -.br -*) Array Oid of the composite type -.br -*) Type len of the compsoite type, PQfsize - -For each composite attribute: - -*) Oid of the attribute -.br -*) Name of the attribute -.br -*) Type len of the attribute, PQfsize -.br -*) The typmod of the attribute, PQfmod - -.SH EXAMPLES -.LP -None. -.SH AUTHOR -.LP -A contribution of eSilo, LLC. for the PostgreSQL Database Management System. -Written by Andrew Chernow and Merlin Moncure. -.SH REPORTING BUGS -.LP -Report bugs to . -.SH COPYRIGHT -.LP -Copyright (c) 2011 eSilo, LLC. All rights reserved. -.br -This is free software; see the source for copying conditions. -There is NO warranty; not even for MERCHANTABILITY or FITNESS -FOR A PARTICULAR PURPOSE. -.SH SEE ALSO -.LP -\fIPQregisterTypes\fP(), \fIPQregisterResult\fP() diff --git a/libpqtypes/docs/man3/pqt-specs.3 b/libpqtypes/docs/man3/pqt-specs.3 deleted file mode 100644 index d4d9659..0000000 --- a/libpqtypes/docs/man3/pqt-specs.3 +++ /dev/null @@ -1,1213 +0,0 @@ -.TH "pqt-specs" 3 2011 "libpqtypes" "libpqtypes Manual" -.SH NAME -pqt-specs \- A manual for libpqtypes data type specifier strings. -.SH DESCRIPTION -.LP -The type system allows addressing backend data types by their fully -qualified schema name. Similar to the backend type system, libpqtypes has -an input and output function for each type: put and get respectively. -All builtin types are supported by libpqtypes. Additional types, such as -composites and user-defined types, can be registered by an API-user -on a per connection basis. - -Putting and getting types are addressed by their backend names as -printf-style format specifiers. For instance: %int4, %timestamptz or %text. -They can also be addressed using their fully qualified schema names: -%pg_catalog.int4, %pg_catalog.timestamptz, %pg_catalog.text or -%myschema.mytype to avoid ambiguity. - -.SS Specifier Strings -\fISpecifier Mark\fP -.br -A specifier mark indicates where a specifier begins. A mark is not part -of the type name. - - % Marks the beginning of a type name. When getting results, this - also indicates that a field will be referenced by number. - - # Marks the beginning of a type name. When getting results, this - also indicates that a field will be referenced by name. - - @ Marks the beginning of a prepared specifier name, see - PQspecPrepare(). When used, it must be the first and only - specifier in the format string: "@prepared_spec", "@myfunc", - etc... NOTE: the \'@\' must be the first character, no spaces. - -\fIType Specifier\fP -.br -Type specifiers are comprised of an optional schema name and type name. -Type specifiers have a set of rules: - - -) Format: [schema].type - optional schema name, a "." separator - between schema and type and the type name. - - -) First character must be a-z or an underscore - - -) Double quotes are required for characters not in [a-zA-Z0-9_] - NOTE: In libpqtypes, this includes "double precision" - - -) Schema "." separator, specifier marks or flags are not included - in double quotes - - -) Non-quoted type names are casefolded, quoted names are not. - - -) Examples: - "%int4" - "%pg_catalog.int4" - "%\\"my oDd~ !tYpe naMe#\\"" - "%myschema.\\"my oDd~ !tYpe naMe#\\"" - "%abc.int4 %pg_catalog.int4" <= fully qualified type names - - -) Last in First out: To find a type referenced in a specifier - string, the search begins with the last type registered. - User registered type handlers are searched first, followed - by builtin types. - - -) pqt schema: There is a builtin schema named pqt. By default, - it contains two types: \'str\' and \'null\'. Anything can be - put into this schema, which has nothing to do with the server. - This is good for aliases or type sub-classes that are - client-specific. - -\fISpecifier Flag\fP -.br -Flags are used to alter the behavior of a type specifier. They are always placed -at the end of the specifier name. If the name is double quoted, the flag is just -after the closing quote. - - * This is called the pointer flag. It is only supported on a - handful of builtin types during a \fIPQputf(3)\fP, but user registered - types can provide support for them. Supported types are: - VARCHAR, BPCHAR, TEXT, BYTEA, NAME and the pqt.str. - - Putting data: this flag tells libpqtypes to store a direct - pointer to the data being put, rather than making a copy of - it. - - Getting data: no built-in types make use of the pointer flag. - User-defined type handlers can make the pointer flag behave - anyway they see fit. The \'get\' type handler is supplied a - PGtypeArgs which contains an \'is_ptr\' member. - - [] This is called the array flag. It indicates that an array is - being referenced rather than a simple type. This flag is always - used with a PGarray. -.SH NUMERICS -.LP -With the exception of the "numeric" type, all numeric types behave -identically: int2, int4, int8, float4 and float8. -.RS -.nf -.LP -PG type C type -PGint2 short -PGint4 int -PGint8 long long (platform dependent) -PGfloat4 float -PGfloat8 double -.fi -.RE - -Putting numeric values: If the value supplied is too large for the PG -type, it will be silently truncated. -.RS -.nf -\fB -PQputf(param, "%int2 %int4 %int8 %float4 %float8", - SHRT_MAX, INT_MAX, LLONG_MAX, 1234.56, 123456.789);\fP -.fi -.RE - -Getting numeric values: Like scanf, the correctly sized data type must be -used. For instance: you cannot use a 4-byte int for %int2 - you must use a short. -.RS -.nf -\fB -// Read an int2 from field 0, int4 from field 1, int8 from -// field 2, float4 from field 3 and a float8 from field 4 -PGint2 i2; -PGint4 i4; -PGint8 i8; -PGfloat4 f4; -PGfloat8 f8; -PQgetf(result, tup_num, "%int2 %int4 %int8 %float4 %float8", - 0, &i2, 1, &i4, 2, &i8, 3, &f4, 4, &f8);\fP -.fi -.RE - -The numeric data type is always exposed in text format. -There is no C data structure. It is always sent in binary format. -.RS -.nf -\fB -PQputf(param, "%numeric", "1728718718271827121233.121212121212");\fP -.fi -.RE - -Even if binary results are used when getting a numeric value, libpqtypes will -internally convert the numeric to text. This has the advantage of allowing -you to use binary results and still have access to numeric fields. If you -want to work with a numeric in binary form, use PQgetvalue() on a binary result set. -.RS -.nf -\fB -PGnumeric numstr; -PQgetf(result, tup_num, "%numeric", field_num, &numstr);\fP -.fi -.RE - -The first argument is the field number of the numeric. The second argument is a -pointer to a PGnumeric to receive the numeric string value (which will -always be NUL terminated). -.SH ARRAY -.LP -Arrays are put using the PGarray structure. Elements are put using \fIPQputf(3)\fP -into a PGparam structure contained withn a PGarray. The PGarray contains -array dimension members for specifing the number of dimension, the -dimensions of each dimension and the lower bounds of each dimension. - -Arrays are only handled using binary format. This means that any type used -as an array element must be put and gotten in binary format. If a -user-defined type does not implement a send and recv function in the backend, -it can not be used as an array element. - -For a discussion of composite arrays, \`man pqt-composites(3)\'. -.RS -.nf -\fB -typedef struct -{ - /* The number of array dimensions. Specifing zero for this - * value on puts has special meaning. When zero, this value - * is set to one, dims[0] is set to the number of items in - * the \'param\' member and lbound[0] is set to one. - */ - int ndims; - - /* An array of lower bounds for each dimension. */ - int lbound[MAXDIM]; - - /* An array of dimensions for each dimension. */ - int dims[MAXDIM]; - - /* When putting array elements, this PGparam is used. Each - * item put is one array element. Because the \fIPQputf(3)\fP - * interface allows putting more than one item at a time, you - * can put multiple array elements. - */ - PGparam *param; - - /* When getting an array, this is the PGresult object that - * contains the array elements. Each element is one tuple, - * regardless of the array dimensions. If the array has 100 - * elements across 3 dimensions, PQntuples(arr.res) will return - * 100. The only valid field, for non-composite arrays, is - * field zero. - */ - PGresult *res; -} PGarray; -\fP -.fi -.RE - -When all elements have been put, the PGarray structure must be put using the -"[]" array specifer flag into a PGparam structure. \fIPQputf(3)\fP is used to build the -array elements and to put the resulting PGarray. - -Putting an array value: -.RS -.nf -\fB -PGint4 i; -PGarray arr; -PGparam *param; - -/* One dimensional arrays do not require setting dimension info. For - * convience, you can zero the structure or set ndims to zero. - */ -arr.ndims = 0; - -/* create the param object that will contain the elements */ -arr.param = PQparamCreate(conn); - -/* Use \fIPQputf(3)\fP to put the array elements */ -for(i=0; i < 1000; i++) - PQputf(arr.param, "%int4", i); - -/* The PGarray must be put into a PGparam struture. So far, only - * the array elements have been put. \'param\' can continue to be - * used to pack more parameters. The array is now a single parameter - * within \'param\'. - */ -param = PQparamCreate(conn); -PQputf(param, "%int[]", &arr); - -/* no longer needed */ -PQparamClear(arr.param); -\fP -.fi -.RE - -To get an array, \fIPQgetf(3)\fP is used in conjunction with the PGarray -structure. The result object contained with the PGarray is populated -with the array elements. The dimension info is assigned as well. Each -array element is its own tuple that only contains a single field for non -composite arrays. - -Getting an array value: -.RS -.nf -\fB -int i; -PGint4 val; -int ntups; -PGarray arr; -PGresult *result = ...; - -PQgetf(result, 0, "%int[]", 0, &arr); - -/* not needed anymore*/ -PQclear(result); - -/* each tuple is an array element */ -ntups = PQntuples(arr.res); -for(i=0; i < ntups; i++) -{ - /* Always field 0 */ - PQgetf(arr.res, i, "%int4", 0, &val); - printf("[%03d] %d\\n", i, val); -} - -PQclear(arr.res); -\fP -.fi -.RE - -The result object is not organized based on the dimension info. Indexes are always -zero-based. If the dimension info is meaningful to your application, index -translation must be done using the ndims, dims and lbound members of the PGarray -structure. - -You cannot reference an array element by field name. The only logical name for an -array element would be the string version of its index ... "0", "1", etc.. The -index value of a non-composite array is its tuple number, the field number is always -zero. This means "#int" is not legal for non-composite arrays. You must use -"%int" and reference field 0. -.SH CHAR -.LP -The "char" data type uses the PGchar. The value is limited to 8-bits. - -Putting a "char" value: -.RS -.nf -\fB -PGchar c = \'a\'; -PQputf(param, "%char %char", 213, c);\fP -.fi -.RE - -Getting a "char" value: -.RS -.nf -\fB -PGchar c; -PQgetf(result, tup_num, "%char", field_num, &c);\fP -.fi -.RE -.SH VARIABLE-LENGTH CHARACTER TYPES -.LP -BPCHAR, VARCHAR, NAME and TEXT are handled identically. libpqtypes does no range -checking on NAME, BPCHAR or VARCHAR, it lets the server perform these checks. -There are two ways to put strings: allow libpqtypes to make an internal copy of the -string (default behavior) or as a direct pointer: (both require that the C -string is NUL-terminated) -.RS -.nf -\fB -/* Put a string so libpqtypes makes a copy. In this case, - * 4 copies would be made of the same string. - */ -PGtext str = "foobar"; -PQputf(param, "%bpchar %varchar %name %text", str, str, str, str); - -/* Put a string so libpqtypes doesn\'t make a copy, - * keeps a direct pointer. More efficient than above, - * especially if these are large strings. - */ -PQputf(param, "%bpchar* %varchar* %name* %text*", str, str, str, str);\fP -.fi -.RE - -WARNING: Be careful about variable scope when using the "*" specifier flag: -.RS -.nf -\fB -/* when \'func\' returns, the str pointer becomes invalid! - * The below should be using "%text" ... w/o the * flag. - */ -int func(PGparam *param) -{ - PGchar str[16]; - strcpy(str, "foobar"); - return PQputf(param, "%text*", str); // BAD IDEA! -}\fP -.fi -.RE - -To \fIPQgetf(3)\fP a string, you supply a pointer to a PGtext. Unlike putting string -values, getting them doesn\'t make use of the "*" specifier flag (silently ignored). -.RS -.nf -\fB -/* Get a string value */ -PGvarchar str; -PQgetf(result, tup_num, "%varchar", field_num, &str); - -/* identical to */ -str = PQgetvalue(result, tup_num, field_num);\fP -.fi -.RE - -The reason the \'*\' specifier flag is silently ignored, rather than raising a syntax -error, is it is common to define macros for specifer strings; that can be used for -puts and gets: -.RS -.nf -\fB -/* user_id, username, password */ -#define TYPESPEC_USERINFO "%int4 %text* %text*" - -PGint4 uid = 0; -PGtext user = "foo", pass = "bar"; -PQputf(param, TYPESPEC_USERINFO, uid, user, pass); -PQgetf(param, tup_num, TYPESPEC_USERINFO, 0, &uid, 1, &user, 2, &pass);\fP -.fi -.RE - -The above allowance is more useful than a syntax error. -.SH BYTEA -.LP -There are two ways to put a bytea: copy or direct pointer (just like variable-length -character types). In either case, you supply a pointer to a PGbytea. -.RS -.nf -\fB -typedef struct -{ - int len; /* number of bytes */ - char *data; /* pointer to the bytea data */ -} PGbytea; - -/* Put a bytea letting libpqtypes make a copy; */ -PGbytea bytea = {4, {0, 1, 2, 3}}; -PQputf(param, "%bytea", &bytea); - -/* Put a bytea not letting libpqtypes make a copy, stores a - * direct pointer to PGbytea.data. - */ -PQputf(param, "%bytea*", &bytea);\fP -.fi -.RE - -To get a bytea, you provide a pointer to a PGbytea. Unlike putting bytea -values, there is only one way to get them. -.RS -.nf -\fB -/* Get a bytea value (exposed as binary, no - * escaping/unescaping needed) - */ -PGbytea bytea; -PQgetf(result, tup_num, "%bytea", field_num, &bytea);\fP -.fi -.RE - -NOTE: For text results, PQgetlength will not match the length returned by \fIPQgetf(3)\fP. -The values \fIPQgetf(3)\fP assigns to the user provided PGbytea* represent the unescaped bytea value. -.SH DATE -.LP -PGdate is used by DATE, TIMESTAMP and TIMESTAMPTZ data types. To put a date, -you must set the isbc, year, mon and mday members. All other members are ignored. - -.RS -.nf -\fBtypedef struct -{ - /* When non-zero, the date is in the BC ERA. */ - int isbc; - - /* - * The BC or AD year, which is NOT adjusted by 1900 like - * the POSIX struct tm. Years are always positive values, - * even BC years. To distinguish between BC and AD years, - * use the isbc flag: (year 0 not used) - * Ex. -1210 is represented as: isbc=1, year=1209 - */ - int year; - - /* The number of months since January, in the range 0 to 11. */ - int mon; - - /* The day of the month, in the range 1 to 31. */ - int mday; - - /* The Julian day in the Gregorian calendar. */ - int jday; - - /* The number of days since January 1, in the range 0 to 365. */ - int yday; - - /* The number of days since Sunday, in the range 0 to 6. */ - int wday; -} PGdate;\fP -.fi -.RE - -Putting a date value: -.RS -.nf -\fB -// \'1401-01-19 BC\' -PGdate date; -date.isbc = 1; -date.year = 1401; -date.mon = 0; -date.mday = 19; -PQputf(param, "%date", &date);\fP -.fi -.RE - -Getting a date value: -.RS -.nf -\fB -PQgetf(result, tup_num, "%date", field_num, &date);\fP -.fi -.RE -.SH TIME -.LP -PGtime is used by TIME, TIMETZ, TIMESTAMP and TIMESTAMPTZ data types. To put a time, you must set the hour, min, sec and usec members. All other members are ignored. -.RS -.nf -\fB -typedef struct -{ - /* The number of hours past midnight, in the range 0 to 23. */ - int hour; - - /* The number of minutes after the hour, in the - * range 0 to 59. - */ - int min; - - /* The number of seconds after the minute, in the - * range 0 to 59. - */ - int sec; - - /* The number of microseconds after the second, in the - * range of 0 to 999999. - */ - int usec; - - /* - * When non-zero, this is a TIME WITH TIME ZONE. Otherwise, - * it is a TIME WITHOUT TIME ZONE. - */ - int withtz; - - /* A value of 1 indicates daylight savings time. A value of 0 - * indicates standard time. A value of -1 means unknown or - * could not determine. - */ - int isdst; - - /* Offset from UTC in seconds. This value is not always - * available. It is set to 0 if it cannot be determined. - */ - int gmtoff; - - /* Timezone abbreviation: such as EST, GMT, PDT, etc. - * This value is not always available. It is set to an empty - * string if it cannot be determined. - */ - char tzabbr[16]; -} PGtime; -\fP -.fi -.RE - -Putting a time value: -.RS -.nf -\fB -// \'10:41:06.002897\' -PGdate time; -time.hour = 10; -time.min = 41; -time.sec = 6; -time.usec = 2897; -PQputf(param, "%time", &time);\fP -.fi -.RE - -Getting a time value: -.RS -.nf -\fB -PQgetf(result, tup_num, "%time", field_num, &time); -\fP -.fi -.RE -.SH TIMETZ -.LP -The TIMETZ data type uses the PGtime structure, for a description of this -structure see the TIME section. To put a timetz, you must set the hour, min, -sec, usec and gmtoff members. All other members are ignored. - -Putting a timetz value: -.RS -.nf -\fB -// \'10:41:06.002897-05\' -PGdate timetz; -timetz.hour = 10; -timetz.min = 41; -timetz.sec = 6; -timetz.usec = 2897; -timetz.gmtoff = -18000; -PQputf(param, "%timetz", &timetz); -\fP -.fi -.RE - -Getting a timetz value: -.RS -.nf -\fB -PQgetf(result, tup_num, "%timetz", field_num, &timetz); -\fP -.fi -.RE -.SH TIMESTAMP -.LP -To put a timestamp, the isbc, year, mon, mday, hour, min, sec and usec members must be set. No other members are used. -.RS -.nf -\fB -typedef struct -{ - /* The number seconds before or after midnight UTC of - * January 1, 1970, not counting leap seconds. - */ - PGint8 epoch; - - /* The date part of the timestamp. */ - PGdate date; - - /* The time part of the timestamp. */ - PGtime time; -} PGtimestamp; -\fP -.fi -.RE - -Putting a timestamp value: -.RS -.nf -\fB -// \'2000-01-19 10:41:06\' -PGtimestamp ts; -ts.date.isbc = 0; -ts.date.year = 2000; -ts.date.mon = 0; -ts.date.mday = 19; -ts.time.hour = 10; -ts.time.min = 41; -ts.time.sec = 6; -ts.time.usec = 0; -PQputf(param, "%timestamp", &ts); -\fP -.fi -.RE - -Getting a timestamp value: -.RS -.nf -\fB -PQgetf(result, tup_num, "%timestamp", field_num, &ts); -\fP -.fi -.RE - -The timestamp type has no concept of timezone, so the value returned by \fIPQgetf(3)\fP is -exactly what the server sent; no timezone adjustments are attempted. The gmtoff is always -set to zero, tzabbr will be an empty string and withtz will be zero. -.SH TIMESTAMPTZ -.LP -To put a timestamptz, the isbc, year, mon, mday, hour, min, sec, usec and gmtoff -members must be set. No other members are used. - -Putting a timestamptz value: -.RS -.nf -\fB -// \'2000-01-19 10:41:06-05\' -PGtimestamp ts; -ts.date.isbc = 0; -ts.date.year = 2000; -ts.date.mon = 0; -ts.date.mday = 19; -ts.time.hour = 10; -ts.time.min = 41; -ts.time.sec = 6; -ts.time.usec = 0; -ts.time.gmtoff = -18000; -PQputf(param, "%timestamptz", &ts); -\fP -.fi -.RE - -Getting a timestamptz value: -.RS -.nf -\fB -PQgetf(result, tup_num, "%timestamptz", field_num, &ts); -\fP -.fi -.RE - -When using \fIPQgetf(3)\fP in binary mode, the timestamptz value is converted into the local -machine\'s timezone. If the local machine's timezone can not be determined, the -value will be in GMT (gmtoff is set to zero and tzabbr is set to GMT). - -When using \fIPQgetf(3)\fP in text mode, the timestamptz value is returned as a datetime string -in the server\'s timezone. No adjustments are made to this value. If the server is -using a DateStyle that encodes the gmtoff "00:00:00-05", then gmtoff will be set to -this value and tzabbr will be "GMT+/-hhmmss" (00:00:00-05 => GMT-0500). In this case, -isdst is set to -1 ... meaning unknown. If the server\'s DateStyle encodes a timezone -abbreviation, like PST, then tzabbr is set to this value. The gmtoff and isdst members -are properly set: - -.nf - DateStyle includes a timezone abbrev - "SQL, MDY" - 01/25/2007 00:00:00 EST => tzabbr=EST, gmtoff=-18000, isdst=0 - 01/25/2007 01:00:00 EDT => tzabbr=EDT, gmtoff=-14400, isdst=1 -.fi -.SH INTERVAL -.LP -To put an interval, all relevant members of a PGinterval should be assigned and those -not used should be set to zero. -.RS -.nf -\fB -typedef struct -{ - /* the number of years */ - int years; - - /* the number of months */ - int mons; - - /* the number of days */ - int days; - - /* the number of hours */ - int hours; - - /* the number of mins */ - int mins; - - /* the number of seconds */ - int secs; - - /* the number of microseconds */ - int usecs; -} PGinterval; -\fP -.fi -.RE - -Putting an interval value: -.RS -.nf -\fB -// "20 years 8 months 9 hours 10 mins 15 secs 123456 usecs" -PGinterval interval; -interval.years = 20; -interval.mons = 8; -interval.days = 0; // not used, set to 0 -interval.hours = 9; -interval.mins = 10; -interval.secs = 15; -interval.usecs = 123456; -PQputf(param, "%interval", &interval); -\fP -.fi -.RE - -Getting an interval value: -.RS -.nf -\fB -PQgetf(result, tup_num, "%interval", field_num, &interval); -\fP -.fi -.RE - -NOTE: When using text results with a non-ISO DateStyle, microseconds are -truncated to a 2 digit value. For example: "4 mins 2.11 secs" but microseconds -is really 111456. -.SH POINT -.LP -The PGpoint structure is used to put and get a point. -.RS -.nf -\fB -typedef struct -{ - double x; // point x value - double y; // point y value -} PGpoint; -\fP -.fi -.RE - -Putting a point value: -.RS -.nf -\fB -PGpoint pt = {12.345, 6.789}; -PQputf(param, "%point", &pt); -\fP -.fi -.RE - -Getting a point value: -.RS -.nf -\fB -PGpoint pt; -PQgetf(result, tup_num, "%point", field_num, &pt); -\fP -.fi -.RE -.SH LSEG -.LP -The PGlseg structure is used to put and get a line segnment. -.RS -.nf -\fB -typedef struct -{ - PGpoint pts[2]; -} PGlseg; -\fP -.fi -.RE - -Putting a lseg value: -.RS -.nf -\fB -PGlseg lseg = {{{12.345, 6.789}, {99.8, 88.9}}}; -PQputf(param, "%lseg", &lseg); -\fP -.fi -.RE - -Getting a lseg value: -.RS -.nf -\fB -PGlseg lseg; -PQgetf(result, tup_num, "%lseg", field_num, &lseg); -\fP -.fi -.RE -.SH BOX -.LP -The PGbox structure is used to put and get a box. -.RS -.nf -\fB -typedef struct -{ - PGpoint high; - PGpoint low; -} PGbox; -\fP -.fi -.RE - -Putting a box value: -.RS -.nf -\fB -PGbox box = {{12.345, 6.789}, {22.234, 1.9998}}; -PQputf(param, "%box", &box); -\fP -.fi -.RE - -Getting a box value: -.RS -.nf -\fB -PGbox box; -PQgetf(result, tup_num, "%box", field_num, &box); -\fP -.fi -.RE -.SH CIRCLE -.LP -The PGcircle structure is used to put and get a circle. -.RS -.nf -\fB -typedef struct -{ - PGpoint center; - double radius; -} PGcircle; -\fP -.fi -.RE - -Putting a circle value: -.RS -.nf -\fB -PGcircle circle = {{12.345, 6.789}, 2.34567}; -PQputf(param, "%circle", &circle); -\fP -.fi -.RE - -Getting a circle value: -.RS -.nf -\fB -PGcircle circle; -PQgetf(result, tup_num, "%circle", field_num, &circle); -\fP -.fi -.RE -.SH PATH -.LP -The PGpath structure is used to put and get a path. If the closed member is -non-zero, the path is closed, otherwise it is open. -.RS -.nf -\fB -typedef struct -{ - int npts; - int closed; - PGpoint *pts; -} PGpath; -\fP -.fi -.RE - -Putting a path value: -.RS -.nf -\fB -// Put a closed path that contains 2 points -PGpoint pts[] = {{12.345, 6.789}, {19.773, 7.882}}; -PGpath path = {2, 1, pts}; -PQputf(param, "%path", &path); -\fP -.fi -.RE - -Getting a path value: -.RS -.nf -\fB -PGpath path; -if(PQgetf(result, tup_num, "%path", field_num, &path)) -{ - // path.pts must be copied out if needed after clearing results - copy_points(path.npts, path.pts, ...); - - PQclear(result); - // path.pts is now invalid! -} -\fP -.fi -.RE -.SH POLYGON -.LP -The PGpolygon structure is used to put and get a polygon. -.RS -.nf -\fB -typedef struct -{ - int npts; - PGpoint *pts; -} PGpolygon; -\fP -.fi -.RE - -Putting a polygon value: -.RS -.nf -\fB -// Put a polygon that contains 2 points -PGpoint pts[] = {{12.345, 6.789}, {19.773, 7.882}}; -PGpolygon polygon = {2, 1, pts}; -PQputf(param, "%polygon", &polygon); -\fP -.fi -.RE - -Getting a polygon value: -.RS -.nf -\fB -PGpolygon polygon; -if(PQgetf(result, tup_num, "%polygon", field_num, &polygon)) -{ - // polygon.pts must be copied out if needed after clearing results - copy_points(polygon.npts, polygon.pts, ...); - - PQclear(result); - // polygon.pts is now invalid -} -\fP -.fi -.RE -.SH INET & CIDR -.LP -When putting an inet or cidr, all members must be set excluding the sa_len. -.RS -.nf -\fB -typedef struct -{ - /* The address mask, 32 for a single IP. */ - int mask; - - /* When non-zero, the PGinet structure represents a cidr - * otherwise an inet. - */ - int is_cidr; - - /* the length in bytes of the sa_buf member. */ - int sa_len; - - /* the socket address buffer, contains the data. This can - * be casted to a sockaddr, sockaddr_in, sockaddr_in6 or a - * sockaddr_storage structure. This buffer is 128 bytes so - * that it is large enough for a sockaddr_storage structure. - */ - char sa_buf[128]; -} PGinet; -\fP -.fi -.RE - -Putting an inet or cidr: -.RS -.nf -\fB -socklen_t len; -PGinet inet; - -cli_fd = accept(srv_fd, (struct sockaddr *)inet.sa_buf, &len); -if(cli_fd != -1) -{ - inet.is_cidr = 0; - inet.mask = 32; - PQputf(param, "%inet", &inet); -} -\fP -.fi -.RE - -Getting an inet or cidr: -.RS -.nf -\fB -PGinet inet; -unsigned short port; - -/* gets an inet from field 2 and an int2 from field 6 */ -if(PQgetf(result, tup_num, "%inet %int2", 2, &inet, 6, &port)) -{ - char ip[80]; - struct sockaddr *sa = (struct sockaddr *)inet.sa_buf; - - // converting a PGinet to an IPv4 or IPv6 address string - getnameinfo(sa, inet.sa_len, ip, sizeof(ip), - NULL, 0, NI_NUMERICHOST); - - // The inet data type does not store a port. - if(sa->sa_family == AF_INET) - ((struct sockaddr_in *)sa)->sin_port = htons(port); - else - ((struct sockaddr_in6 *)sa)->sin6_port = htons(port); - - printf("Connecting to %s:%d\\n", ip, port); - connect(sock_fd, sa, inet.sa_len); -} -\fP -.fi -.RE -.SH MACADDR -.LP -The PGmacaddr structure is used to put and get a macaddr. -.RS -.nf -\fB -typedef struct -{ - int a; - int b; - int c; - int d; - int e; - int f; -} PGmacaddr; -\fP -.fi -.RE - -Putting a macaddr value: -.RS -.nf -\fB -PGmacaddr macaddr = {0, 1, 2, 3, 4, 5}; -PQputf(param, "%macaddr", &macaddr); -\fP -.fi -.RE - -Getting a macaddr value: -.RS -.nf -\fB -PGmacaddr macaddr; -PQgetf(result, tup_num, "%macaddr", field_num, &macaddr); -\fP -.fi -.RE -.SH MONEY -.LP -The money type is put/get as a PGmoney (64-bit integer). It can be -converted to dollar and cents format by dividing by 100: -double money = (double)money64 / 100.0;. Pre 8.3 servers are limited to -32-bit money values. - -Putting a money value: -.RS -.nf -\fB -PGmoney money = 600000000054LL; // 6 billion dollars and 54 cents -PQputf(param, "%money", money); -\fP -.fi -.RE - -Getting a money value: -.RS -.nf -\fB -PQgetf(result, tup_num, "%money", field_num, &money); -\fP -.fi -.RE -.SH BOOL -.LP -The bool type is put/get as a PGbool. To put true or false, use 1 or 0. - -Putting a bool value: -.RS -.nf -\fB -PGbool b = 1; // put true -PQputf(param, "%bool", b); -\fP -.fi -.RE - -Getting a bool value: -.RS -.nf -\fB -PGbool b; -PQgetf(result, tup_num, "%bool", field_num, &b); -\fP -.fi -.RE -.SH UUID -.LP -The uuid type is put/get as a sequence of 16 bytes. To put a uuid as -text, use "%str". NOTE: this type is not available on pre 8.3 servers. - -Putting a uuid value: -.RS -.nf -\fB -PGuuid uuid = {0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15}; -PQputf(param, "%uuid", uuid); -\fP -.fi -.RE - -Getting a uuid value: -.RS -.nf -\fB -PGuuid uuid; -PQgetf(result, tup_num, "%uuid", field_num, &uuid); -\fP -.fi -.RE - -WARNING: The data provided on a put call is expected to be at least 16 bytes. -.SH OID -.LP -Putting an oid value: -.RS -.nf -\fB -Oid oid = 2318; -PQputf(param, "%oid", oid); -\fP -.fi -.RE - -Getting an oid value: -.RS -.nf -\fB -Oid oid; -PQgetf(result, tup_num, "%oid", field_num, &oid); -\fP -.fi -.RE -.SH EXAMPLES -.LP -None. -.SH AUTHOR -.LP -A contribution of eSilo, LLC. for the PostgreSQL Database Management System. -Written by Andrew Chernow and Merlin Moncure. -.SH REPORTING BUGS -.LP -Report bugs to . -.SH COPYRIGHT -.LP -Copyright (c) 2011 eSilo, LLC. All rights reserved. -.br -This is free software; see the source for copying conditions. -There is NO warranty; not even for MERCHANTABILITY or FITNESS -FOR A PARTICULAR PURPOSE. -.SH SEE ALSO -.LP -\fIPQgetf(3)\fP, \fIPQputf(3)\fP. diff --git a/libpqtypes/groff2html b/libpqtypes/groff2html deleted file mode 100755 index c8a0182..0000000 --- a/libpqtypes/groff2html +++ /dev/null @@ -1,109 +0,0 @@ -#!/bin/bash - -######################################################################## -# Converts a man page to very simple html, basically a page with -# A and PRE tags. Takes 1 arguments: path to the non-compressed man -# page. This expects the man page to be named PAGE_NAME.SECTION_NUMBER; -# like `PQgetf.3' or `printf.1'. -# -# FEATURES -# 1. Any some_man(3), no spaces before '(', is substituted for an -# A tag linking to http://libpqtypes.esilo.com/man3/$man.html -# -# 2. All '<' and '>' are replaced with HTML codes -# -# 3. Mans referencing other mans, via .so macro, are converted -# to symlinks in the output directory. -# -# ISSUES -# Hyperlinks are not 100% substitued into resulting html page. -# The only time there are issues is when the link text in the -# man page was broken across lines. No work-around at this time -# for this issue other than manually ensuring line breaks don't -# occur on `some_man(3)'. -# -# Man pages that reference other man pages, using the .so macro, -# must have the .so command in the first 'head' lines. The -# .so 'path_to_man' cannot include spaces. -###################################################################### - -DOCTYPE="" - -# adjust these to your web server -BASEURL="http:\/\/libpqtypes.esilo.com" -INC_BASEURL="$BASEURL\/include" -MAN_BASEURL="$BASEURL\/man" -OUTDIR=/esilo/www/libpqtypes.esilo.com/man -HEAD_SECTION="" -HEADER="libpqtypes home page

" -FOOTER="

libpqtypes home page" - -if [ $# = 0 ] ; then - echo "Must supply man page to convert" - exit -fi - -# ignore non-existent files -if test ! -f $1 ; then - exit -fi - -manpage=`basename $1` -section=`echo "$manpage" | awk -F . '{print $NF}'` -manpage=${manpage%.[^.]*} - -OUTDIR="${OUTDIR}${section}" -mkdir -p $OUTDIR - -# If a .so reference, create a symlink -solink=`head $1 | grep '.so .*' | cut -d ' ' -f 2` -if test ! -z $solink ; then - target=`basename $solink` - target=${target%.[^.]*} - echo "$OUTDIR/$manpage.html => $OUTDIR/$target.html" - - # remove existing symlink - rm -f $OUTDIR/$manpage.html - ln -s $OUTDIR/$target.html $OUTDIR/$manpage.html - exit -fi - -echo $OUTDIR/$manpage.html - ->$OUTDIR/$manpage.html - -# doctype -if test ! -z "$DOCTYPE" ; then - echo $DOCTYPE >>$OUTDIR/$manpage.html -fi - -# add stadard html tags, include a title -echo -e "\n\n$HEAD_SECTION\nman $manpage\n\n" >>$OUTDIR/$manpage.html - -if test ! -z "$HEADER" ; then - echo $HEADER >>$OUTDIR/$manpage.html -fi - -echo "

" >>$OUTDIR/$manpage.html
-
-# 1. output man in ascii
-# 2. post-process with col removing backspaces and tabs
-# 3. do some html code replacement 
-# 4. replace some_man(3) with A tags
-groff -t -e -mandoc -Tascii $1 2>/dev/null | col -bx | \
-sed 's//\>/g' | \
-sed "s/\<\([a-ZA-Z0-9_\-]*\.h\)\>/\<\1<\/a>\>/g" | \
-sed "s/\b\([a-zA-Z0-9_\-]\+\)(\([0-9]\))/\1(\2)<\/a>/g" \
->>$OUTDIR/$manpage.html
-
-echo -e "
\n" >>$OUTDIR/$manpage.html - -if test ! -z "$FOOTER" ; then - echo $FOOTER >>$OUTDIR/$manpage.html -fi - -# html closing tags -echo -e "\n" >>$OUTDIR/$manpage.html - -chown apache:apache $OUTDIR/$manpage.html - diff --git a/libpqtypes/install-sh b/libpqtypes/install-sh deleted file mode 100755 index 4d4a951..0000000 --- a/libpqtypes/install-sh +++ /dev/null @@ -1,323 +0,0 @@ -#!/bin/sh -# install - install a program, script, or datafile - -scriptversion=2005-05-14.22 - -# 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. It can only install one file at a time, a restriction -# shared with many OS's install programs. - -# set DOITPROG to echo to test this script - -# Don't use :- since 4.3BSD and earlier shells don't like it. -doit="${DOITPROG-}" - -# put in absolute paths if you don't have them in your path; or use env. vars. - -mvprog="${MVPROG-mv}" -cpprog="${CPPROG-cp}" -chmodprog="${CHMODPROG-chmod}" -chownprog="${CHOWNPROG-chown}" -chgrpprog="${CHGRPPROG-chgrp}" -stripprog="${STRIPPROG-strip}" -rmprog="${RMPROG-rm}" -mkdirprog="${MKDIRPROG-mkdir}" - -chmodcmd="$chmodprog 0755" -chowncmd= -chgrpcmd= -stripcmd= -rmcmd="$rmprog -f" -mvcmd="$mvprog" -src= -dst= -dir_arg= -dstarg= -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: --c (ignored) --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. ---help display this help and exit. ---version display version info and exit. - -Environment variables override the default commands: - CHGRPPROG CHMODPROG CHOWNPROG CPPROG MKDIRPROG MVPROG RMPROG STRIPPROG -" - -while test -n "$1"; do - case $1 in - -c) shift - continue;; - - -d) dir_arg=true - shift - continue;; - - -g) chgrpcmd="$chgrpprog $2" - shift - shift - continue;; - - --help) echo "$usage"; exit $?;; - - -m) chmodcmd="$chmodprog $2" - shift - shift - continue;; - - -o) chowncmd="$chownprog $2" - shift - shift - continue;; - - -s) stripcmd=$stripprog - shift - continue;; - - -t) dstarg=$2 - shift - shift - continue;; - - -T) no_target_directory=true - shift - continue;; - - --version) echo "$0 $scriptversion"; exit $?;; - - *) # When -d is used, all remaining arguments are directories to create. - # When -t is used, the destination is already specified. - test -n "$dir_arg$dstarg" && break - # Otherwise, the last argument is the destination. Remove it from $@. - for arg - do - if test -n "$dstarg"; then - # $@ is not empty: it contains at least $arg. - set fnord "$@" "$dstarg" - shift # fnord - fi - shift # arg - dstarg=$arg - done - break;; - esac -done - -if test -z "$1"; 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 - -for src -do - # Protect names starting with `-'. - case $src in - -*) src=./$src ;; - esac - - if test -n "$dir_arg"; then - dst=$src - src= - - if test -d "$dst"; then - mkdircmd=: - chmodcmd= - else - mkdircmd=$mkdirprog - fi - 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 "$dstarg"; then - echo "$0: no destination specified." >&2 - exit 1 - fi - - dst=$dstarg - # Protect names starting with `-'. - case $dst in - -*) dst=./$dst ;; - esac - - # 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: $dstarg: Is a directory" >&2 - exit 1 - fi - dst=$dst/`basename "$src"` - fi - fi - - # This sed command emulates the dirname command. - dstdir=`echo "$dst" | sed -e 's,/*$,,;s,[^/]*$,,;s,/*$,,;s,^$,.,'` - - # Make sure that the destination directory exists. - - # Skip lots of stat calls in the usual case. - if test ! -d "$dstdir"; then - defaultIFS=' - ' - IFS="${IFS-$defaultIFS}" - - oIFS=$IFS - # Some sh's can't handle IFS=/ for some reason. - IFS='%' - set x `echo "$dstdir" | sed -e 's@/@%@g' -e 's@^%@/@'` - shift - IFS=$oIFS - - pathcomp= - - while test $# -ne 0 ; do - pathcomp=$pathcomp$1 - shift - if test ! -d "$pathcomp"; then - $mkdirprog "$pathcomp" - # mkdir can fail with a `File exist' error in case several - # install-sh are creating the directory concurrently. This - # is OK. - test -d "$pathcomp" || exit - fi - pathcomp=$pathcomp/ - done - fi - - if test -n "$dir_arg"; then - $doit $mkdircmd "$dst" \ - && { test -z "$chowncmd" || $doit $chowncmd "$dst"; } \ - && { test -z "$chgrpcmd" || $doit $chgrpcmd "$dst"; } \ - && { test -z "$stripcmd" || $doit $stripcmd "$dst"; } \ - && { test -z "$chmodcmd" || $doit $chmodcmd "$dst"; } - - else - dstfile=`basename "$dst"` - - # 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 - trap '(exit $?); exit' 1 2 13 15 - - # Copy the file name to the temp name. - $doit $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 "$dsttmp"; } && - - # Now rename the file to the real destination. - { $doit $mvcmd -f "$dsttmp" "$dstdir/$dstfile" 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. - { - if test -f "$dstdir/$dstfile"; then - $doit $rmcmd -f "$dstdir/$dstfile" 2>/dev/null \ - || $doit $mvcmd -f "$dstdir/$dstfile" "$rmtmp" 2>/dev/null \ - || { - echo "$0: cannot unlink or rename $dstdir/$dstfile" >&2 - (exit 1); exit 1 - } - else - : - fi - } && - - # Now rename the file to the real destination. - $doit $mvcmd "$dsttmp" "$dstdir/$dstfile" - } - } - fi || { (exit 1); exit 1; } -done - -# The final little trick to "correctly" pass the exit status to the exit trap. -{ - (exit 0); 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-end: "$" -# End: diff --git a/libpqtypes/ltmain.sh b/libpqtypes/ltmain.sh deleted file mode 100755 index 0223495..0000000 --- a/libpqtypes/ltmain.sh +++ /dev/null @@ -1,6911 +0,0 @@ -# ltmain.sh - Provide generalized library-building support services. -# NOTE: Changing this file will not affect anything until you rerun configure. -# -# Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2003, 2004, 2005 -# Free Software Foundation, Inc. -# Originally by Gordon Matzigkeit , 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 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, 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. - -basename="s,^.*/,,g" - -# 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" - -# The name of this program: -progname=`echo "$progpath" | $SED $basename` -modename="$progname" - -# Global variables: -EXIT_SUCCESS=0 -EXIT_FAILURE=1 - -PROGRAM=ltmain.sh -PACKAGE=libtool -VERSION=1.5.22 -TIMESTAMP=" (1.1220.2.365 2005/12/18 22:14:06)" - -# Be Bourne compatible (taken from Autoconf:_AS_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 - -# Check that we have a working $echo. -if test "X$1" = X--no-reexec; then - # Discard the --no-reexec flag, and continue. - shift -elif test "X$1" = X--fallback-echo; then - # Avoid inline document here, it may be left over - : -elif test "X`($echo '\t') 2>/dev/null`" = 'X\t'; then - # Yippee, $echo works! - : -else - # Restart under the correct shell, and then maybe $echo will work. - exec $SHELL "$progpath" --no-reexec ${1+"$@"} -fi - -if test "X$1" = X--fallback-echo; then - # used as fallback echo - shift - cat <&2 - $echo "Fatal configuration error. See the $PACKAGE docs for more information." 1>&2 - exit $EXIT_FAILURE -fi - -# Global variables. -mode=$default_mode -nonopt= -prev= -prevopt= -run= -show="$echo" -show_help= -execute_dlfiles= -duplicate_deps=no -preserve_args= -lo2o="s/\\.lo\$/.${objext}/" -o2lo="s/\\.${objext}\$/.lo/" -extracted_archives= -extracted_serial=0 - -##################################### -# Shell function definitions: -# This seems to be the best place for them - -# 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 "$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" || { - $echo "cannot create temporary directory \`$my_tmpdir'" 1>&2 - exit $EXIT_FAILURE - } - fi - - $echo "X$my_tmpdir" | $Xsed -} - - -# 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. -func_win32_libid () -{ - 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 - if eval $OBJDUMP -f $1 | $SED -e '10q' 2>/dev/null | \ - $EGREP -e 'file format pe-i386(.*architecture: i386)?' >/dev/null ; then - win32_nmres=`eval $NM -f posix -A $1 | \ - $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_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 () -{ - if test -n "$available_tags" && test -z "$tagname"; then - CC_quoted= - for arg in $CC; do - case $arg in - *[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*|"") - arg="\"$arg\"" - ;; - esac - CC_quoted="$CC_quoted $arg" - done - 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 "* | " `$echo $CC` "* | "`$echo $CC` "* | " $CC_quoted"* | "$CC_quoted "* | " `$echo $CC_quoted` "* | "`$echo $CC_quoted` "*) ;; - # 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. - case $arg in - *[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*|"") - arg="\"$arg\"" - ;; - esac - CC_quoted="$CC_quoted $arg" - done - case "$@ " in - " $CC "* | "$CC "* | " `$echo $CC` "* | "`$echo $CC` "* | " $CC_quoted"* | "$CC_quoted "* | " `$echo $CC_quoted` "* | "`$echo $CC_quoted` "*) - # 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 - $echo "$modename: unable to infer tagged configuration" - $echo "$modename: specify a tag with \`--tag'" 1>&2 - exit $EXIT_FAILURE -# else -# $echo "$modename: using $tagname tagged configuration" - fi - ;; - esac - fi -} - - -# func_extract_an_archive dir oldlib -func_extract_an_archive () -{ - f_ex_an_ar_dir="$1"; shift - f_ex_an_ar_oldlib="$1" - - $show "(cd $f_ex_an_ar_dir && $AR x $f_ex_an_ar_oldlib)" - $run eval "(cd \$f_ex_an_ar_dir && $AR x \$f_ex_an_ar_oldlib)" || exit $? - if ($AR t "$f_ex_an_ar_oldlib" | sort | sort -uc >/dev/null 2>&1); then - : - else - $echo "$modename: ERROR: object name conflicts: $f_ex_an_ar_dir/$f_ex_an_ar_oldlib" 1>&2 - exit $EXIT_FAILURE - fi -} - -# func_extract_archives gentop oldlib ... -func_extract_archives () -{ - my_gentop="$1"; shift - my_oldlibs=${1+"$@"} - my_oldobjs="" - my_xlib="" - my_xabs="" - my_xdir="" - my_status="" - - $show "${rm}r $my_gentop" - $run ${rm}r "$my_gentop" - $show "$mkdir $my_gentop" - $run $mkdir "$my_gentop" - my_status=$? - if test "$my_status" -ne 0 && test ! -d "$my_gentop"; then - exit $my_status - fi - - 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 - my_xlib=`$echo "X$my_xlib" | $Xsed -e 's%^.*/%%'` - my_xlib_u=$my_xlib - while :; do - case " $extracted_archives " in - *" $my_xlib_u "*) - extracted_serial=`expr $extracted_serial + 1` - 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" - - $show "${rm}r $my_xdir" - $run ${rm}r "$my_xdir" - $show "$mkdir $my_xdir" - $run $mkdir "$my_xdir" - exit_status=$? - if test "$exit_status" -ne 0 && test ! -d "$my_xdir"; then - exit $exit_status - fi - case $host in - *-darwin*) - $show "Extracting $my_xabs" - # Do not bother doing anything if just a dry run - if test -z "$run"; then - darwin_orig_dir=`pwd` - cd $my_xdir || exit $? - darwin_archive=$my_xabs - darwin_curdir=`pwd` - darwin_base_archive=`$echo "X$darwin_archive" | $Xsed -e 's%^.*/%%'` - darwin_arches=`lipo -info "$darwin_archive" 2>/dev/null | $EGREP Architectures 2>/dev/null` - if test -n "$darwin_arches"; then - darwin_arches=`echo "$darwin_arches" | $SED -e 's/.*are://'` - darwin_arch= - $show "$darwin_base_archive has multiple architectures $darwin_arches" - for darwin_arch in $darwin_arches ; do - 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 have a bunch of thin objects, gotta fatten them up :) - darwin_filelist=`find unfat-$$ -type f -name \*.o -print -o -name \*.lo -print| xargs basename | sort -u | $NL2SP` - darwin_file= - darwin_files= - for darwin_file in $darwin_filelist; do - darwin_files=`find unfat-$$ -name $darwin_file -print | $NL2SP` - lipo -create -output "$darwin_file" $darwin_files - done # $darwin_filelist - ${rm}r unfat-$$ - cd "$darwin_orig_dir" - else - cd "$darwin_orig_dir" - func_extract_an_archive "$my_xdir" "$my_xabs" - fi # $darwin_arches - fi # $run - ;; - *) - func_extract_an_archive "$my_xdir" "$my_xabs" - ;; - esac - my_oldobjs="$my_oldobjs "`find $my_xdir -name \*.$objext -print -o -name \*.lo -print | $NL2SP` - done - func_extract_archives_result="$my_oldobjs" -} -# End of Shell function definitions -##################################### - -# Darwin sucks -eval std_shrext=\"$shrext_cmds\" - -disable_libs=no - -# Parse our command line options once, thoroughly. -while test "$#" -gt 0 -do - arg="$1" - shift - - case $arg in - -*=*) optarg=`$echo "X$arg" | $Xsed -e 's/[-_a-zA-Z0-9]*=//'` ;; - *) optarg= ;; - esac - - # If the previous option needs an argument, assign it. - if test -n "$prev"; then - case $prev in - execute_dlfiles) - execute_dlfiles="$execute_dlfiles $arg" - ;; - tag) - tagname="$arg" - preserve_args="${preserve_args}=$arg" - - # Check whether tagname contains only valid characters - case $tagname in - *[!-_A-Za-z0-9,/]*) - $echo "$progname: invalid tag name: $tagname" 1>&2 - exit $EXIT_FAILURE - ;; - esac - - case $tagname in - CC) - # Don't test for the "default" C tag, as we know, it's there, but - # not specially marked. - ;; - *) - if grep "^# ### BEGIN LIBTOOL TAG CONFIG: $tagname$" < "$progpath" > /dev/null; then - taglist="$taglist $tagname" - # Evaluate the configuration. - eval "`${SED} -n -e '/^# ### BEGIN LIBTOOL TAG CONFIG: '$tagname'$/,/^# ### END LIBTOOL TAG CONFIG: '$tagname'$/p' < $progpath`" - else - $echo "$progname: ignoring unknown tag $tagname" 1>&2 - fi - ;; - esac - ;; - *) - eval "$prev=\$arg" - ;; - esac - - prev= - prevopt= - continue - fi - - # Have we seen a non-optional argument yet? - case $arg in - --help) - show_help=yes - ;; - - --version) - $echo "$PROGRAM (GNU $PACKAGE) $VERSION$TIMESTAMP" - $echo - $echo "Copyright (C) 2005 Free Software Foundation, Inc." - $echo "This is free software; see the source for copying conditions. There is NO" - $echo "warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE." - exit $? - ;; - - --config) - ${SED} -e '1,/^# ### BEGIN LIBTOOL CONFIG/d' -e '/^# ### END LIBTOOL CONFIG/,$d' $progpath - # Now print the configurations for the tags. - for tagname in $taglist; do - ${SED} -n -e "/^# ### BEGIN LIBTOOL TAG CONFIG: $tagname$/,/^# ### END LIBTOOL TAG CONFIG: $tagname$/p" < "$progpath" - done - exit $? - ;; - - --debug) - $echo "$progname: enabling shell trace mode" - set -x - preserve_args="$preserve_args $arg" - ;; - - --dry-run | -n) - run=: - ;; - - --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 $? - ;; - - --finish) mode="finish" ;; - - --mode) prevopt="--mode" prev=mode ;; - --mode=*) mode="$optarg" ;; - - --preserve-dup-deps) duplicate_deps="yes" ;; - - --quiet | --silent) - show=: - preserve_args="$preserve_args $arg" - ;; - - --tag) - prevopt="--tag" - prev=tag - preserve_args="$preserve_args --tag" - ;; - --tag=*) - set tag "$optarg" ${1+"$@"} - shift - prev=tag - preserve_args="$preserve_args --tag" - ;; - - -dlopen) - prevopt="-dlopen" - prev=execute_dlfiles - ;; - - -*) - $echo "$modename: unrecognized option \`$arg'" 1>&2 - $echo "$help" 1>&2 - exit $EXIT_FAILURE - ;; - - *) - nonopt="$arg" - break - ;; - esac -done - -if test -n "$prevopt"; then - $echo "$modename: option \`$prevopt' requires an argument" 1>&2 - $echo "$help" 1>&2 - exit $EXIT_FAILURE -fi - -case $disable_libs in -no) - ;; -shared) - build_libtool_libs=no - build_old_libs=yes - ;; -static) - build_old_libs=`case $build_libtool_libs in yes) echo no;; *) echo yes;; esac` - ;; -esac - -# 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= - -if test -z "$show_help"; then - - # Infer the operation mode. - if test -z "$mode"; then - $echo "*** Warning: inferring the mode of operation is deprecated." 1>&2 - $echo "*** Future versions of Libtool will require --mode=MODE be specified." 1>&2 - case $nonopt in - *cc | cc* | *++ | gcc* | *-gcc* | g++* | xlc*) - mode=link - for arg - do - case $arg in - -c) - mode=compile - break - ;; - esac - done - ;; - *db | *dbx | *strace | *truss) - mode=execute - ;; - *install*|cp|mv) - mode=install - ;; - *rm) - mode=uninstall - ;; - *) - # If we have no mode, but dlfiles were specified, then do execute mode. - test -n "$execute_dlfiles" && mode=execute - - # Just use the default operation mode. - if test -z "$mode"; then - if test -n "$nonopt"; then - $echo "$modename: warning: cannot infer operation mode from \`$nonopt'" 1>&2 - else - $echo "$modename: warning: cannot infer operation mode without MODE-ARGS" 1>&2 - fi - fi - ;; - esac - fi - - # Only execute mode is allowed to have -dlopen flags. - if test -n "$execute_dlfiles" && test "$mode" != execute; then - $echo "$modename: unrecognized option \`-dlopen'" 1>&2 - $echo "$help" 1>&2 - exit $EXIT_FAILURE - fi - - # Change the help message to a mode-specific one. - generic_help="$help" - help="Try \`$modename --help --mode=$mode' for more information." - - # These modes are in order of execution frequency so that they run quickly. - case $mode in - # libtool compile mode - compile) - modename="$modename: compile" - # 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= - - 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) - if test -n "$libobj" ; then - $echo "$modename: you cannot specify \`-o' more than once" 1>&2 - exit $EXIT_FAILURE - fi - arg_mode=target - continue - ;; - - -static | -prefer-pic | -prefer-non-pic) - later="$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,*) - args=`$echo "X$arg" | $Xsed -e "s/^-Wc,//"` - lastarg= - save_ifs="$IFS"; IFS=',' - for arg in $args; do - IFS="$save_ifs" - - # Double-quote args containing other shell metacharacters. - # Many Bourne shells cannot handle close brackets correctly - # in scan sets, so we specify it separately. - case $arg in - *[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*|"") - arg="\"$arg\"" - ;; - esac - lastarg="$lastarg $arg" - done - IFS="$save_ifs" - lastarg=`$echo "X$lastarg" | $Xsed -e "s/^ //"` - - # Add the arguments to base_compile. - base_compile="$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. - lastarg=`$echo "X$lastarg" | $Xsed -e "$sed_quote_subst"` - - case $lastarg in - # Double-quote args containing other shell metacharacters. - # Many Bourne shells cannot handle close brackets correctly - # in scan sets, and some SunOS ksh mistreat backslash-escaping - # in scan sets (worked around with variable expansion), - # and furthermore cannot handle '|' '&' '(' ')' in scan sets - # at all, so we specify them separately. - *[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*|"") - lastarg="\"$lastarg\"" - ;; - esac - - base_compile="$base_compile $lastarg" - done # for arg - - case $arg_mode in - arg) - $echo "$modename: you must specify an argument for -Xcompile" - exit $EXIT_FAILURE - ;; - target) - $echo "$modename: you must specify a target with \`-o'" 1>&2 - exit $EXIT_FAILURE - ;; - *) - # Get the name of the library object. - [ -z "$libobj" ] && libobj=`$echo "X$srcfile" | $Xsed -e 's%^.*/%%'` - ;; - esac - - # Recognize several different file suffixes. - # If the user specifies -o file.o, it is replaced with file.lo - xform='[cCFSifmso]' - case $libobj in - *.ada) xform=ada ;; - *.adb) xform=adb ;; - *.ads) xform=ads ;; - *.asm) xform=asm ;; - *.c++) xform=c++ ;; - *.cc) xform=cc ;; - *.ii) xform=ii ;; - *.class) xform=class ;; - *.cpp) xform=cpp ;; - *.cxx) xform=cxx ;; - *.f90) xform=f90 ;; - *.for) xform=for ;; - *.java) xform=java ;; - *.obj) xform=obj ;; - esac - - libobj=`$echo "X$libobj" | $Xsed -e "s/\.$xform$/.lo/"` - - case $libobj in - *.lo) obj=`$echo "X$libobj" | $Xsed -e "$lo2o"` ;; - *) - $echo "$modename: cannot determine name of library object from \`$libobj'" 1>&2 - exit $EXIT_FAILURE - ;; - esac - - func_infer_tag $base_compile - - for arg in $later; do - case $arg in - -static) - build_old_libs=yes - continue - ;; - - -prefer-pic) - pic_mode=yes - continue - ;; - - -prefer-non-pic) - pic_mode=no - continue - ;; - esac - done - - qlibobj=`$echo "X$libobj" | $Xsed -e "$sed_quote_subst"` - case $qlibobj in - *[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*|"") - qlibobj="\"$qlibobj\"" ;; - esac - test "X$libobj" != "X$qlibobj" \ - && $echo "X$libobj" | grep '[]~#^*{};<>?"'"'"' &()|`$[]' \ - && $echo "$modename: libobj name \`$libobj' may not contain shell special characters." - objname=`$echo "X$obj" | $Xsed -e 's%^.*/%%'` - xdir=`$echo "X$obj" | $Xsed -e 's%/[^/]*$%%'` - if test "X$xdir" = "X$obj"; then - xdir= - else - xdir=$xdir/ - fi - lobj=${xdir}$objdir/$objname - - if test -z "$base_compile"; then - $echo "$modename: you must specify a compilation command" 1>&2 - $echo "$help" 1>&2 - exit $EXIT_FAILURE - fi - - # 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 - - $run $rm $removelist - trap "$run $rm $removelist; exit $EXIT_FAILURE" 1 2 15 - - # On Cygwin there's no "real" PIC flag so we must build both object types - case $host_os in - cygwin* | mingw* | pw32* | os2*) - 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 "X$srcfile" | $Xsed -e 's%^.*/%%' -e 's%\.[^.]*$%%'`.${objext} - lockfile="$output_obj.lock" - removelist="$removelist $output_obj $lockfile" - trap "$run $rm $removelist; exit $EXIT_FAILURE" 1 2 15 - 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 $run ln "$progpath" "$lockfile" 2>/dev/null; do - $show "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." - - $run $rm $removelist - exit $EXIT_FAILURE - fi - $echo "$srcfile" > "$lockfile" - fi - - if test -n "$fix_srcfile_path"; then - eval srcfile=\"$fix_srcfile_path\" - fi - qsrcfile=`$echo "X$srcfile" | $Xsed -e "$sed_quote_subst"` - case $qsrcfile in - *[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*|"") - qsrcfile="\"$qsrcfile\"" ;; - esac - - $run $rm "$libobj" "${libobj}T" - - # Create a libtool object file (analogous to a ".la" file), - # but don't create it if we're doing a dry run. - test -z "$run" && cat > ${libobj}T </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." - - $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 - $show "$mv $output_obj $lobj" - if $run $mv $output_obj $lobj; then : - else - error=$? - $run $rm $removelist - exit $error - fi - fi - - # Append the name of the PIC object to the libtool object file. - test -z "$run" && cat >> ${libobj}T <> ${libobj}T </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." - - $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 - $show "$mv $output_obj $obj" - if $run $mv $output_obj $obj; then : - else - error=$? - $run $rm $removelist - exit $error - fi - fi - - # Append the name of the non-PIC object the libtool object file. - # Only append if the libtool object file exists. - test -z "$run" && cat >> ${libobj}T <> ${libobj}T <&2 - 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 - case $arg in - *[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*|"") - qarg=\"`$echo "X$arg" | $Xsed -e "$sed_quote_subst"`\" ### testsuite: skip nested quoting test - ;; - *) qarg=$arg ;; - esac - libtool_args="$libtool_args $qarg" - - # If the previous option needs an argument, assign it. - if test -n "$prev"; then - case $prev in - output) - compile_command="$compile_command @OUTPUT@" - finalize_command="$finalize_command @OUTPUT@" - ;; - esac - - case $prev in - dlfiles|dlprefiles) - if test "$preload" = no; then - # Add the symbol object into the linking commands. - compile_command="$compile_command @SYMFILE@" - finalize_command="$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 - dlfiles="$dlfiles $arg" - else - dlprefiles="$dlprefiles $arg" - fi - prev= - continue - ;; - esac - ;; - expsyms) - export_symbols="$arg" - if test ! -f "$arg"; then - $echo "$modename: symbol file \`$arg' does not exist" - exit $EXIT_FAILURE - fi - prev= - continue - ;; - expsyms_regex) - export_symbols_regex="$arg" - prev= - continue - ;; - inst_prefix) - inst_prefix_dir="$arg" - prev= - continue - ;; - precious_regex) - precious_files_regex="$arg" - prev= - continue - ;; - release) - release="-$arg" - prev= - continue - ;; - objectlist) - if test -f "$arg"; then - save_arg=$arg - moreargs= - for fil in `cat $save_arg` - do -# moreargs="$moreargs $fil" - arg=$fil - # A libtool-controlled object. - - # Check to see that this really is a libtool object. - if (${SED} -e '2q' $arg | grep "^# Generated by .*$PACKAGE") >/dev/null 2>&1; then - pic_object= - non_pic_object= - - # Read the .lo file - # If there is no directory component, then add one. - case $arg in - */* | *\\*) . $arg ;; - *) . ./$arg ;; - esac - - if test -z "$pic_object" || \ - test -z "$non_pic_object" || - test "$pic_object" = none && \ - test "$non_pic_object" = none; then - $echo "$modename: cannot find name of object for \`$arg'" 1>&2 - exit $EXIT_FAILURE - fi - - # Extract subdirectory from the argument. - xdir=`$echo "X$arg" | $Xsed -e 's%/[^/]*$%%'` - if test "X$xdir" = "X$arg"; then - xdir= - else - xdir="$xdir/" - fi - - 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 - dlfiles="$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. - dlprefiles="$dlprefiles $pic_object" - prev= - fi - - # A PIC object. - libobjs="$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 - non_pic_objects="$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" - non_pic_objects="$non_pic_objects $non_pic_object" - fi - else - # Only an error if not doing a dry-run. - if test -z "$run"; then - $echo "$modename: \`$arg' is not a valid libtool object" 1>&2 - exit $EXIT_FAILURE - else - # Dry-run case. - - # Extract subdirectory from the argument. - xdir=`$echo "X$arg" | $Xsed -e 's%/[^/]*$%%'` - if test "X$xdir" = "X$arg"; then - xdir= - else - xdir="$xdir/" - fi - - pic_object=`$echo "X${xdir}${objdir}/${arg}" | $Xsed -e "$lo2o"` - non_pic_object=`$echo "X${xdir}${arg}" | $Xsed -e "$lo2o"` - libobjs="$libobjs $pic_object" - non_pic_objects="$non_pic_objects $non_pic_object" - fi - fi - done - else - $echo "$modename: link input file \`$save_arg' does not exist" - exit $EXIT_FAILURE - fi - arg=$save_arg - prev= - continue - ;; - rpath | xrpath) - # We need an absolute path. - case $arg in - [\\/]* | [A-Za-z]:[\\/]*) ;; - *) - $echo "$modename: only absolute run-paths are allowed" 1>&2 - exit $EXIT_FAILURE - ;; - esac - if test "$prev" = rpath; then - case "$rpath " in - *" $arg "*) ;; - *) rpath="$rpath $arg" ;; - esac - else - case "$xrpath " in - *" $arg "*) ;; - *) xrpath="$xrpath $arg" ;; - esac - fi - prev= - continue - ;; - xcompiler) - compiler_flags="$compiler_flags $qarg" - prev= - compile_command="$compile_command $qarg" - finalize_command="$finalize_command $qarg" - continue - ;; - xlinker) - linker_flags="$linker_flags $qarg" - compiler_flags="$compiler_flags $wl$qarg" - prev= - compile_command="$compile_command $wl$qarg" - finalize_command="$finalize_command $wl$qarg" - continue - ;; - xcclinker) - linker_flags="$linker_flags $qarg" - compiler_flags="$compiler_flags $qarg" - prev= - compile_command="$compile_command $qarg" - finalize_command="$finalize_command $qarg" - continue - ;; - shrext) - shrext_cmds="$arg" - prev= - continue - ;; - darwin_framework|darwin_framework_skip) - test "$prev" = "darwin_framework" && compiler_flags="$compiler_flags $arg" - compile_command="$compile_command $arg" - finalize_command="$finalize_command $arg" - prev= - 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 - compile_command="$compile_command $link_static_flag" - finalize_command="$finalize_command $link_static_flag" - fi - continue - ;; - - -allow-undefined) - # FIXME: remove this flag sometime in the future. - $echo "$modename: \`-allow-undefined' is deprecated because it is the default" 1>&2 - continue - ;; - - -avoid-version) - avoid_version=yes - 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 - $echo "$modename: more than one -exported-symbols argument is not allowed" - exit $EXIT_FAILURE - fi - if test "X$arg" = "X-export-symbols"; then - prev=expsyms - else - prev=expsyms_regex - fi - continue - ;; - - -framework|-arch|-isysroot) - case " $CC " in - *" ${arg} ${1} "* | *" ${arg} ${1} "*) - prev=darwin_framework_skip ;; - *) compiler_flags="$compiler_flags $arg" - prev=darwin_framework ;; - esac - compile_command="$compile_command $arg" - finalize_command="$finalize_command $arg" - 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*) - compile_command="$compile_command $arg" - finalize_command="$finalize_command $arg" - ;; - esac - continue - ;; - - -L*) - dir=`$echo "X$arg" | $Xsed -e 's/^-L//'` - # We need an absolute path. - case $dir in - [\\/]* | [A-Za-z]:[\\/]*) ;; - *) - absdir=`cd "$dir" && pwd` - if test -z "$absdir"; then - $echo "$modename: cannot determine absolute directory name of \`$dir'" 1>&2 - absdir="$dir" - notinst_path="$notinst_path $dir" - fi - dir="$absdir" - ;; - esac - case "$deplibs " in - *" -L$dir "*) ;; - *) - deplibs="$deplibs -L$dir" - lib_search_path="$lib_search_path $dir" - ;; - esac - case $host in - *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-os2*) - testbindir=`$echo "X$dir" | $Xsed -e 's*/lib$*/bin*'` - case :$dllsearchpath: in - *":$dir:"*) ;; - *) dllsearchpath="$dllsearchpath:$dir";; - esac - case :$dllsearchpath: in - *":$testbindir:"*) ;; - *) dllsearchpath="$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*) - # 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 - deplibs="$deplibs -framework System" - 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 - deplibs="$deplibs $arg" - continue - ;; - - # Tru64 UNIX uses -model [arg] to determine the layout of C++ - # classes, name mangling, and exception handling. - -model) - compile_command="$compile_command $arg" - compiler_flags="$compiler_flags $arg" - finalize_command="$finalize_command $arg" - prev=xcompiler - continue - ;; - - -mt|-mthreads|-kthread|-Kthread|-pthread|-pthreads|--thread-safe) - compiler_flags="$compiler_flags $arg" - compile_command="$compile_command $arg" - finalize_command="$finalize_command $arg" - continue - ;; - - -module) - module=yes - continue - ;; - - # -64, -mips[0-9] enable 64-bit mode on the SGI compiler - # -r[0-9][0-9]* specifies the processor on the SGI compiler - # -xarch=*, -xtarget=* enable 64-bit mode on the Sun compiler - # +DA*, +DD* enable 64-bit mode on the HP compiler - # -q* pass through compiler args for the IBM compiler - # -m* pass through architecture-specific compiler args for GCC - # -m*, -t[45]*, -txscale* pass through architecture-specific - # compiler args for GCC - # -pg pass through profiling flag for GCC - # @file GCC response files - -64|-mips[0-9]|-r[0-9][0-9]*|-xarch=*|-xtarget=*|+DA*|+DD*|-q*|-m*|-pg| \ - -t[45]*|-txscale*|@*) - - # Unknown arguments in both finalize_command and compile_command need - # to be aesthetically quoted because they are evaled later. - arg=`$echo "X$arg" | $Xsed -e "$sed_quote_subst"` - case $arg in - *[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*|"") - arg="\"$arg\"" - ;; - esac - compile_command="$compile_command $arg" - finalize_command="$finalize_command $arg" - compiler_flags="$compiler_flags $arg" - continue - ;; - - -shrext) - prev=shrext - continue - ;; - - -no-fast-install) - fast_install=no - continue - ;; - - -no-install) - case $host in - *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-os2*) - # The PATH hackery in wrapper scripts is required on Windows - # in order for the loader to find any dlls it needs. - $echo "$modename: warning: \`-no-install' is ignored for $host" 1>&2 - $echo "$modename: warning: assuming \`-no-fast-install' instead" 1>&2 - 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*) - dir=`$echo "X$arg" | $Xsed -e 's/^-R//'` - # We need an absolute path. - case $dir in - [\\/]* | [A-Za-z]:[\\/]*) ;; - *) - $echo "$modename: only absolute run-paths are allowed" 1>&2 - exit $EXIT_FAILURE - ;; - esac - case "$xrpath " in - *" $dir "*) ;; - *) xrpath="$xrpath $dir" ;; - esac - 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 - ;; - - -Wc,*) - args=`$echo "X$arg" | $Xsed -e "$sed_quote_subst" -e 's/^-Wc,//'` - arg= - save_ifs="$IFS"; IFS=',' - for flag in $args; do - IFS="$save_ifs" - case $flag in - *[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*|"") - flag="\"$flag\"" - ;; - esac - arg="$arg $wl$flag" - compiler_flags="$compiler_flags $flag" - done - IFS="$save_ifs" - arg=`$echo "X$arg" | $Xsed -e "s/^ //"` - ;; - - -Wl,*) - args=`$echo "X$arg" | $Xsed -e "$sed_quote_subst" -e 's/^-Wl,//'` - arg= - save_ifs="$IFS"; IFS=',' - for flag in $args; do - IFS="$save_ifs" - case $flag in - *[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*|"") - flag="\"$flag\"" - ;; - esac - arg="$arg $wl$flag" - compiler_flags="$compiler_flags $wl$flag" - linker_flags="$linker_flags $flag" - done - IFS="$save_ifs" - arg=`$echo "X$arg" | $Xsed -e "s/^ //"` - ;; - - -Xcompiler) - prev=xcompiler - continue - ;; - - -Xlinker) - prev=xlinker - continue - ;; - - -XCClinker) - prev=xcclinker - continue - ;; - - # Some other compiler flag. - -* | +*) - # Unknown arguments in both finalize_command and compile_command need - # to be aesthetically quoted because they are evaled later. - arg=`$echo "X$arg" | $Xsed -e "$sed_quote_subst"` - case $arg in - *[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*|"") - arg="\"$arg\"" - ;; - esac - ;; - - *.$objext) - # A standard object. - objs="$objs $arg" - ;; - - *.lo) - # A libtool-controlled object. - - # Check to see that this really is a libtool object. - if (${SED} -e '2q' $arg | grep "^# Generated by .*$PACKAGE") >/dev/null 2>&1; then - pic_object= - non_pic_object= - - # Read the .lo file - # If there is no directory component, then add one. - case $arg in - */* | *\\*) . $arg ;; - *) . ./$arg ;; - esac - - if test -z "$pic_object" || \ - test -z "$non_pic_object" || - test "$pic_object" = none && \ - test "$non_pic_object" = none; then - $echo "$modename: cannot find name of object for \`$arg'" 1>&2 - exit $EXIT_FAILURE - fi - - # Extract subdirectory from the argument. - xdir=`$echo "X$arg" | $Xsed -e 's%/[^/]*$%%'` - if test "X$xdir" = "X$arg"; then - xdir= - else - xdir="$xdir/" - fi - - 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 - dlfiles="$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. - dlprefiles="$dlprefiles $pic_object" - prev= - fi - - # A PIC object. - libobjs="$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 - non_pic_objects="$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" - non_pic_objects="$non_pic_objects $non_pic_object" - fi - else - # Only an error if not doing a dry-run. - if test -z "$run"; then - $echo "$modename: \`$arg' is not a valid libtool object" 1>&2 - exit $EXIT_FAILURE - else - # Dry-run case. - - # Extract subdirectory from the argument. - xdir=`$echo "X$arg" | $Xsed -e 's%/[^/]*$%%'` - if test "X$xdir" = "X$arg"; then - xdir= - else - xdir="$xdir/" - fi - - pic_object=`$echo "X${xdir}${objdir}/${arg}" | $Xsed -e "$lo2o"` - non_pic_object=`$echo "X${xdir}${arg}" | $Xsed -e "$lo2o"` - libobjs="$libobjs $pic_object" - non_pic_objects="$non_pic_objects $non_pic_object" - fi - fi - ;; - - *.$libext) - # An archive. - deplibs="$deplibs $arg" - old_deplibs="$old_deplibs $arg" - continue - ;; - - *.la) - # A libtool-controlled library. - - if test "$prev" = dlfiles; then - # This library was specified with -dlopen. - dlfiles="$dlfiles $arg" - prev= - elif test "$prev" = dlprefiles; then - # The library was specified with -dlpreopen. - dlprefiles="$dlprefiles $arg" - prev= - else - deplibs="$deplibs $arg" - 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. - arg=`$echo "X$arg" | $Xsed -e "$sed_quote_subst"` - case $arg in - *[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*|"") - arg="\"$arg\"" - ;; - esac - ;; - esac # arg - - # Now actually substitute the argument into the commands. - if test -n "$arg"; then - compile_command="$compile_command $arg" - finalize_command="$finalize_command $arg" - fi - done # argument parsing loop - - if test -n "$prev"; then - $echo "$modename: the \`$prevarg' option requires an argument" 1>&2 - $echo "$help" 1>&2 - exit $EXIT_FAILURE - fi - - if test "$export_dynamic" = yes && test -n "$export_dynamic_flag_spec"; then - eval arg=\"$export_dynamic_flag_spec\" - compile_command="$compile_command $arg" - finalize_command="$finalize_command $arg" - fi - - oldlibs= - # calculate the name of the file, without its directory - outputname=`$echo "X$output" | $Xsed -e 's%^.*/%%'` - libobjs_save="$libobjs" - - if test -n "$shlibpath_var"; then - # get the directories listed in $shlibpath_var - eval shlib_search_path=\`\$echo \"X\${$shlibpath_var}\" \| \$Xsed -e \'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\" - - output_objdir=`$echo "X$output" | $Xsed -e 's%/[^/]*$%%'` - if test "X$output_objdir" = "X$output"; then - output_objdir="$objdir" - else - output_objdir="$output_objdir/$objdir" - fi - # Create the object directory. - if test ! -d "$output_objdir"; then - $show "$mkdir $output_objdir" - $run $mkdir $output_objdir - exit_status=$? - if test "$exit_status" -ne 0 && test ! -d "$output_objdir"; then - exit $exit_status - fi - fi - - # Determine the type of output - case $output in - "") - $echo "$modename: you must specify an output file" 1>&2 - $echo "$help" 1>&2 - exit $EXIT_FAILURE - ;; - *.$libext) linkmode=oldlib ;; - *.lo | *.$objext) linkmode=obj ;; - *.la) linkmode=lib ;; - *) linkmode=prog ;; # Anything else should be a program. - esac - - case $host in - *cygwin* | *mingw* | *pw32*) - # don't eliminate duplications in $postdeps and $predeps - duplicate_compiler_generated_deps=yes - ;; - *) - duplicate_compiler_generated_deps=$duplicate_deps - ;; - 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 test "X$duplicate_deps" = "Xyes" ; then - case "$libs " in - *" $deplib "*) specialdeplibs="$specialdeplibs $deplib" ;; - esac - fi - libs="$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 test "X$duplicate_compiler_generated_deps" = "Xyes" ; then - for pre_post_dep in $predeps $postdeps; do - case "$pre_post_deps " in - *" $pre_post_dep "*) specialdeplibs="$specialdeplibs $pre_post_deps" ;; - esac - pre_post_deps="$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 - case $linkmode in - lib) - passes="conv link" - for file in $dlfiles $dlprefiles; do - case $file in - *.la) ;; - *) - $echo "$modename: libraries can \`-dlopen' only libtool libraries: $file" 1>&2 - exit $EXIT_FAILURE - ;; - 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 - 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% $dependency_libs" ;; - esac - 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) - if test "$linkmode,$pass" = "prog,link"; then - compile_deplibs="$deplib $compile_deplibs" - finalize_deplibs="$deplib $finalize_deplibs" - else - compiler_flags="$compiler_flags $deplib" - fi - continue - ;; - -l*) - if test "$linkmode" != lib && test "$linkmode" != prog; then - $echo "$modename: warning: \`-l' is ignored for archives/objects" 1>&2 - continue - fi - name=`$echo "X$deplib" | $Xsed -e 's/^-l//'` - for searchdir in $newlib_search_path $lib_search_path $sys_lib_search_path $shlib_search_path; 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 (${SED} -e '2q' $lib | - grep "^# Generated by .*$PACKAGE") >/dev/null 2>&1; then - library_names= - old_library= - case $lib in - */* | *\\*) . $lib ;; - *) . ./$lib ;; - esac - 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 - ladir=`$echo "X$lib" | $Xsed -e 's%/[^/]*$%%'` - test "X$ladir" = "X$lib" && ladir="." - 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 - -L*) - case $linkmode in - lib) - deplibs="$deplib $deplibs" - test "$pass" = conv && continue - newdependency_libs="$deplib $newdependency_libs" - newlib_search_path="$newlib_search_path "`$echo "X$deplib" | $Xsed -e 's/^-L//'` - ;; - 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 - newlib_search_path="$newlib_search_path "`$echo "X$deplib" | $Xsed -e 's/^-L//'` - ;; - *) - $echo "$modename: warning: \`-L' is ignored for archives/objects" 1>&2 - ;; - esac # linkmode - continue - ;; # -L - -R*) - if test "$pass" = link; then - dir=`$echo "X$deplib" | $Xsed -e 's/^-R//'` - # Make sure the xrpath contains only unique directories. - case "$xrpath " in - *" $dir "*) ;; - *) xrpath="$xrpath $dir" ;; - esac - fi - deplibs="$deplib $deplibs" - continue - ;; - *.la) lib="$deplib" ;; - *.$libext) - if test "$pass" = conv; then - deplibs="$deplib $deplibs" - continue - fi - case $linkmode in - lib) - valid_a_lib=no - case $deplibs_check_method in - match_pattern*) - set dummy $deplibs_check_method - match_pattern_regex=`expr "$deplibs_check_method" : "$2 \(.*\)"` - 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 used here." - else - $echo - $echo "*** Warning: Linking the shared library $output against the" - $echo "*** static library $deplib is not portable!" - deplibs="$deplib $deplibs" - fi - 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. - newdlprefiles="$newdlprefiles $deplib" - compile_deplibs="$deplib $compile_deplibs" - finalize_deplibs="$deplib $finalize_deplibs" - else - newdlfiles="$newdlfiles $deplib" - fi - fi - continue - ;; - %DEPLIBS%) - alldeplibs=yes - continue - ;; - esac # case $deplib - if test "$found" = yes || test -f "$lib"; then : - else - $echo "$modename: cannot find the library \`$lib' or unhandled argument \`$deplib'" 1>&2 - exit $EXIT_FAILURE - fi - - # Check to see that this really is a libtool archive. - if (${SED} -e '2q' $lib | grep "^# Generated by .*$PACKAGE") >/dev/null 2>&1; then : - else - $echo "$modename: \`$lib' is not a valid libtool archive" 1>&2 - exit $EXIT_FAILURE - fi - - ladir=`$echo "X$lib" | $Xsed -e 's%/[^/]*$%%'` - test "X$ladir" = "X$lib" && ladir="." - - dlname= - dlopen= - dlpreopen= - libdir= - library_names= - old_library= - # 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 - case $lib in - */* | *\\*) . $lib ;; - *) . ./$lib ;; - esac - - if test "$linkmode,$pass" = "lib,link" || - test "$linkmode,$pass" = "prog,scan" || - { test "$linkmode" != prog && test "$linkmode" != lib; }; then - test -n "$dlopen" && dlfiles="$dlfiles $dlopen" - test -n "$dlpreopen" && dlprefiles="$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 - $echo "$modename: cannot find name of link library for \`$lib'" 1>&2 - exit $EXIT_FAILURE - fi - # It is a libtool convenience library, so add in its objects. - convenience="$convenience $ladir/$objdir/$old_library" - old_convenience="$old_convenience $ladir/$objdir/$old_library" - tmp_libs= - for deplib in $dependency_libs; do - deplibs="$deplib $deplibs" - if test "X$duplicate_deps" = "Xyes" ; then - case "$tmp_libs " in - *" $deplib "*) specialdeplibs="$specialdeplibs $deplib" ;; - esac - fi - tmp_libs="$tmp_libs $deplib" - done - elif test "$linkmode" != prog && test "$linkmode" != lib; then - $echo "$modename: \`$lib' is not a convenience library" 1>&2 - exit $EXIT_FAILURE - fi - continue - fi # $pass = conv - - - # Get the name of the library we link against. - linklib= - for l in $old_library $library_names; do - linklib="$l" - done - if test -z "$linklib"; then - $echo "$modename: cannot find name of link library for \`$lib'" 1>&2 - exit $EXIT_FAILURE - fi - - # This library was specified with -dlopen. - if test "$pass" = dlopen; then - if test -z "$libdir"; then - $echo "$modename: cannot -dlopen a convenience library: \`$lib'" 1>&2 - exit $EXIT_FAILURE - 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. - dlprefiles="$dlprefiles $lib $dependency_libs" - else - newdlfiles="$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 - $echo "$modename: warning: cannot determine absolute directory name of \`$ladir'" 1>&2 - $echo "$modename: passing it literally to the linker, although it might fail" 1>&2 - abs_ladir="$ladir" - fi - ;; - esac - laname=`$echo "X$lib" | $Xsed -e 's%^.*/%%'` - - # Find the relevant object directory and library name. - if test "X$installed" = Xyes; then - if test ! -f "$libdir/$linklib" && test -f "$abs_ladir/$linklib"; then - $echo "$modename: warning: library \`$lib' was moved." 1>&2 - dir="$ladir" - absdir="$abs_ladir" - libdir="$abs_ladir" - else - dir="$libdir" - absdir="$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 - notinst_path="$notinst_path $abs_ladir" - else - dir="$ladir/$objdir" - absdir="$abs_ladir/$objdir" - # Remove this search path later - notinst_path="$notinst_path $abs_ladir" - fi - fi # $installed = yes - name=`$echo "X$laname" | $Xsed -e 's/\.la$//' -e 's/^lib//'` - - # This library was specified with -dlpreopen. - if test "$pass" = dlpreopen; then - if test -z "$libdir"; then - $echo "$modename: cannot -dlpreopen a convenience library: \`$lib'" 1>&2 - exit $EXIT_FAILURE - fi - # Prefer using a static library (so that no silly _DYNAMIC symbols - # are required to link). - if test -n "$old_library"; then - newdlprefiles="$newdlprefiles $dir/$old_library" - # Otherwise, use the dlname, so that lt_dlopen finds it. - elif test -n "$dlname"; then - newdlprefiles="$newdlprefiles $dir/$dlname" - else - newdlprefiles="$newdlprefiles $dir/$linklib" - fi - 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 - newlib_search_path="$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*) newlib_search_path="$newlib_search_path "`$echo "X$deplib" | $Xsed -e 's/^-L//'`;; ### testsuite: skip nested quoting test - 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 test "X$duplicate_deps" = "Xyes" ; then - case "$tmp_libs " in - *" $deplib "*) specialdeplibs="$specialdeplibs $deplib" ;; - esac - fi - tmp_libs="$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 - *" $dir "*) ;; - *" $absdir "*) ;; - *) temp_rpath="$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 "*) ;; - *) compile_rpath="$compile_rpath $absdir" - esac - ;; - esac - case " $sys_lib_dlsearch_path " in - *" $libdir "*) ;; - *) - case "$finalize_rpath " in - *" $libdir "*) ;; - *) finalize_rpath="$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 - if test "$installed" = no; then - notinst_deplibs="$notinst_deplibs $lib" - need_relink=yes - fi - # This is a shared library - - # Warn about portability, can't link against -module's on - # some systems (darwin) - if 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 "*) ;; - *) compile_rpath="$compile_rpath $absdir" - esac - ;; - esac - case " $sys_lib_dlsearch_path " in - *" $libdir "*) ;; - *) - case "$finalize_rpath " in - *" $libdir "*) ;; - *) finalize_rpath="$finalize_rpath $libdir" - esac - ;; - esac - fi - - if test -n "$old_archive_from_expsyms_cmds"; then - # figure out the soname - set dummy $library_names - realname="$2" - shift; 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*) - major=`expr $current - $age` - versuffix="-$major" - ;; - esac - eval soname=\"$soname_spec\" - else - soname="$realname" - fi - - # Make a new name for the extract_expsyms_cmds to use - soroot="$soname" - soname=`$echo $soroot | ${SED} -e 's/^.*\///'` - newlib="libimp-`$echo $soname | ${SED} 's/^lib//;s/\.dll$//'`.a" - - # If the library has no export list, then create one now - if test -f "$output_objdir/$soname-def"; then : - else - $show "extracting exported symbol list from \`$soname'" - save_ifs="$IFS"; IFS='~' - cmds=$extract_expsyms_cmds - for cmd in $cmds; do - IFS="$save_ifs" - eval cmd=\"$cmd\" - $show "$cmd" - $run eval "$cmd" || exit $? - done - IFS="$save_ifs" - fi - - # Create $newlib - if test -f "$output_objdir/$newlib"; then :; else - $show "generating import library for \`$soname'" - save_ifs="$IFS"; IFS='~' - cmds=$old_archive_from_expsyms_cmds - for cmd in $cmds; do - IFS="$save_ifs" - eval cmd=\"$cmd\" - $show "$cmd" - $run eval "$cmd" || exit $? - done - IFS="$save_ifs" - 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 "$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 module then we can not link against - # it, someone is ignoring the new warnings I added - if /usr/bin/file -L $add 2> /dev/null | - $EGREP ": [^:]* bundle" >/dev/null ; 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 - 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; then - add="$dir/$linklib" - elif test "$hardcode_minus_L" = yes; then - add_dir="-L$dir" - # Try looking first in the location we're being installed to. - if test -n "$inst_prefix_dir"; then - case $libdir in - [\\/]*) - add_dir="$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 - $echo "$modename: configuration error: unsupported hardcode properties" - exit $EXIT_FAILURE - fi - - if test -n "$add_shlibpath"; then - case :$compile_shlibpath: in - *":$add_shlibpath:"*) ;; - *) compile_shlibpath="$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:"*) ;; - *) finalize_shlibpath="$finalize_shlibpath$libdir:" ;; - esac - fi - fi - fi - - if test "$linkmode" = prog || test "$mode" = relink; then - add_shlibpath= - add_dir= - add= - # Finalize command for both is simple: just hardcode it. - if test "$hardcode_direct" = yes; 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:"*) ;; - *) finalize_shlibpath="$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 - [\\/]*) - add_dir="$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*) temp_xrpath=`$echo "X$libdir" | $Xsed -e 's/^-R//'` - case " $xrpath " in - *" $temp_xrpath "*) ;; - *) xrpath="$xrpath $temp_xrpath";; - esac;; - *) temp_deplibs="$temp_deplibs $libdir";; - esac - done - dependency_libs="$temp_deplibs" - fi - - newlib_search_path="$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" - if test "X$duplicate_deps" = "Xyes" ; then - case "$tmp_libs " in - *" $deplib "*) specialdeplibs="$specialdeplibs $deplib" ;; - esac - fi - tmp_libs="$tmp_libs $deplib" - done - - if test "$link_all_deplibs" != no; then - # Add the search paths of all dependency libraries - for deplib in $dependency_libs; do - case $deplib in - -L*) path="$deplib" ;; - *.la) - dir=`$echo "X$deplib" | $Xsed -e 's%/[^/]*$%%'` - test "X$dir" = "X$deplib" && dir="." - # We need an absolute path. - case $dir in - [\\/]* | [A-Za-z]:[\\/]*) absdir="$dir" ;; - *) - absdir=`cd "$dir" && pwd` - if test -z "$absdir"; then - $echo "$modename: warning: cannot determine absolute directory name of \`$dir'" 1>&2 - absdir="$dir" - fi - ;; - esac - if grep "^installed=no" $deplib > /dev/null; then - path="$absdir/$objdir" - else - eval libdir=`${SED} -n -e 's/^libdir=\(.*\)$/\1/p' $deplib` - if test -z "$libdir"; then - $echo "$modename: \`$deplib' is not a valid libtool archive" 1>&2 - exit $EXIT_FAILURE - fi - if test "$absdir" != "$libdir"; then - $echo "$modename: warning: \`$deplib' seems to be moved" 1>&2 - fi - path="$absdir" - fi - depdepl= - case $host in - *-*-darwin*) - # we do not want to link against static libs, - # but need to link against shared - 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 "$path/$depdepl" ; then - depdepl="$path/$depdepl" - fi - # do not add paths which are already there - case " $newlib_search_path " in - *" $path "*) ;; - *) newlib_search_path="$newlib_search_path $path";; - esac - fi - path="" - ;; - *) - path="-L$path" - ;; - esac - ;; - -l*) - case $host in - *-*-darwin*) - # Again, we only want to link against shared libraries - eval tmp_libs=`$echo "X$deplib" | $Xsed -e "s,^\-l,,"` - for tmp in $newlib_search_path ; do - if test -f "$tmp/lib$tmp_libs.dylib" ; then - eval depdepl="$tmp/lib$tmp_libs.dylib" - break - fi - done - path="" - ;; - *) continue ;; - esac - ;; - *) continue ;; - esac - case " $deplibs " in - *" $path "*) ;; - *) deplibs="$path $deplibs" ;; - esac - case " $deplibs " in - *" $depdepl "*) ;; - *) deplibs="$depdepl $deplibs" ;; - esac - done - fi # link_all_deplibs != no - fi # linkmode = lib - done # for deplib in $libs - 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 "*) ;; - *) lib_search_path="$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 "*) ;; - *) tmp_libs="$tmp_libs $deplib" ;; - esac - ;; - *) tmp_libs="$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 - tmp_libs="$tmp_libs $i" - fi - done - dependency_libs=$tmp_libs - done # for pass - if test "$linkmode" = prog; then - dlfiles="$newdlfiles" - dlprefiles="$newdlprefiles" - fi - - case $linkmode in - oldlib) - if test -n "$deplibs"; then - $echo "$modename: warning: \`-l' and \`-L' are ignored for archives" 1>&2 - fi - - if test -n "$dlfiles$dlprefiles" || test "$dlself" != no; then - $echo "$modename: warning: \`-dlopen' is ignored for archives" 1>&2 - fi - - if test -n "$rpath"; then - $echo "$modename: warning: \`-rpath' is ignored for archives" 1>&2 - fi - - if test -n "$xrpath"; then - $echo "$modename: warning: \`-R' is ignored for archives" 1>&2 - fi - - if test -n "$vinfo"; then - $echo "$modename: warning: \`-version-info/-version-number' is ignored for archives" 1>&2 - fi - - if test -n "$release"; then - $echo "$modename: warning: \`-release' is ignored for archives" 1>&2 - fi - - if test -n "$export_symbols" || test -n "$export_symbols_regex"; then - $echo "$modename: warning: \`-export-symbols' is ignored for archives" 1>&2 - fi - - # Now set the variables for building old libraries. - build_libtool_libs=no - oldlibs="$output" - objs="$objs$old_deplibs" - ;; - - lib) - # Make sure we only generate libraries of the form `libNAME.la'. - case $outputname in - lib*) - name=`$echo "X$outputname" | $Xsed -e 's/\.la$//' -e 's/^lib//'` - eval shared_ext=\"$shrext_cmds\" - eval libname=\"$libname_spec\" - ;; - *) - if test "$module" = no; then - $echo "$modename: libtool library \`$output' must begin with \`lib'" 1>&2 - $echo "$help" 1>&2 - exit $EXIT_FAILURE - fi - if test "$need_lib_prefix" != no; then - # Add the "lib" prefix for modules if required - name=`$echo "X$outputname" | $Xsed -e 's/\.la$//'` - eval shared_ext=\"$shrext_cmds\" - eval libname=\"$libname_spec\" - else - libname=`$echo "X$outputname" | $Xsed -e 's/\.la$//'` - fi - ;; - esac - - if test -n "$objs"; then - if test "$deplibs_check_method" != pass_all; then - $echo "$modename: cannot build libtool library \`$output' from non-libtool objects on this host:$objs" 2>&1 - exit $EXIT_FAILURE - else - $echo - $echo "*** Warning: Linking the shared library $output against the non-libtool" - $echo "*** objects $objs is not portable!" - libobjs="$libobjs $objs" - fi - fi - - if test "$dlself" != no; then - $echo "$modename: warning: \`-dlopen self' is ignored for libtool libraries" 1>&2 - fi - - set dummy $rpath - if test "$#" -gt 2; then - $echo "$modename: warning: ignoring multiple \`-rpath's for a libtool library" 1>&2 - fi - install_libdir="$2" - - 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 - - if test -n "$vinfo"; then - $echo "$modename: warning: \`-version-info/-version-number' is ignored for convenience libraries" 1>&2 - fi - - if test -n "$release"; then - $echo "$modename: warning: \`-release' is ignored for convenience libraries" 1>&2 - fi - else - - # Parse the version information argument. - save_ifs="$IFS"; IFS=':' - set dummy $vinfo 0 0 0 - IFS="$save_ifs" - - if test -n "$8"; then - $echo "$modename: too many parameters to \`-version-info'" 1>&2 - $echo "$help" 1>&2 - exit $EXIT_FAILURE - fi - - # 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="$2" - number_minor="$3" - number_revision="$4" - # - # 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 - darwin|linux|osf|windows|none) - current=`expr $number_major + $number_minor` - age="$number_minor" - revision="$number_revision" - ;; - freebsd-aout|freebsd-elf|sunos) - current="$number_major" - revision="$number_minor" - age="0" - ;; - irix|nonstopux) - current=`expr $number_major + $number_minor - 1` - age="$number_minor" - revision="$number_minor" - ;; - esac - ;; - no) - current="$2" - revision="$3" - age="$4" - ;; - 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]) ;; - *) - $echo "$modename: CURRENT \`$current' must be a nonnegative integer" 1>&2 - $echo "$modename: \`$vinfo' is not valid version information" 1>&2 - exit $EXIT_FAILURE - ;; - 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]) ;; - *) - $echo "$modename: REVISION \`$revision' must be a nonnegative integer" 1>&2 - $echo "$modename: \`$vinfo' is not valid version information" 1>&2 - exit $EXIT_FAILURE - ;; - 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]) ;; - *) - $echo "$modename: AGE \`$age' must be a nonnegative integer" 1>&2 - $echo "$modename: \`$vinfo' is not valid version information" 1>&2 - exit $EXIT_FAILURE - ;; - esac - - if test "$age" -gt "$current"; then - $echo "$modename: AGE \`$age' is greater than the current interface number \`$current'" 1>&2 - $echo "$modename: \`$vinfo' is not valid version information" 1>&2 - exit $EXIT_FAILURE - 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 - major=.`expr $current - $age` - versuffix="$major.$age.$revision" - # Darwin ld doesn't like 0 for these options... - minor_current=`expr $current + 1` - verstring="${wl}-compatibility_version ${wl}$minor_current ${wl}-current_version ${wl}$minor_current.$revision" - ;; - - freebsd-aout) - major=".$current" - versuffix=".$current.$revision"; - ;; - - freebsd-elf) - major=".$current" - versuffix=".$current"; - ;; - - irix | nonstopux) - major=`expr $current - $age + 1` - - 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 - iface=`expr $revision - $loop` - loop=`expr $loop - 1` - verstring="$verstring_prefix$major.$iface:$verstring" - done - - # Before this point, $major must not contain `.'. - major=.$major - versuffix="$major.$revision" - ;; - - linux) - major=.`expr $current - $age` - versuffix="$major.$age.$revision" - ;; - - osf) - major=.`expr $current - $age` - 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 - iface=`expr $current - $loop` - loop=`expr $loop - 1` - verstring="$verstring:${iface}.0" - done - - # Make executables depend on our current version. - verstring="$verstring:${current}.0" - ;; - - sunos) - major=".$current" - versuffix=".$current.$revision" - ;; - - windows) - # Use '-' rather than '.', since we only want one - # extension on DOS 8.3 filesystems. - major=`expr $current - $age` - versuffix="-$major" - ;; - - *) - $echo "$modename: unknown library version type \`$version_type'" 1>&2 - $echo "Fatal configuration error. See the $PACKAGE docs for more information." 1>&2 - exit $EXIT_FAILURE - ;; - 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 - $echo "$modename: warning: undefined symbols not allowed in $host shared libraries" 1>&2 - build_libtool_libs=no - build_old_libs=yes - fi - else - # Don't allow undefined symbols. - allow_undefined_flag="$no_undefined_flag" - fi - fi - - if test "$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) - ;; - $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 - removelist="$removelist $p" - ;; - *) ;; - esac - done - if test -n "$removelist"; then - $show "${rm}r $removelist" - $run ${rm}r $removelist - fi - fi - - # Now set the variables for building old libraries. - if test "$build_old_libs" = yes && test "$build_libtool_libs" != convenience ; then - oldlibs="$oldlibs $output_objdir/$libname.$libext" - - # Transform .lo files to .o files. - oldobjs="$objs "`$echo "X$libobjs" | $SP2NL | $Xsed -e '/\.'${libext}'$/d' -e "$lo2o" | $NL2SP` - fi - - # Eliminate all temporary directories. -# for path in $notinst_path; do -# lib_search_path=`$echo "$lib_search_path " | ${SED} -e "s% $path % %g"` -# deplibs=`$echo "$deplibs " | ${SED} -e "s% -L$path % %g"` -# dependency_libs=`$echo "$dependency_libs " | ${SED} -e "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 - temp_xrpath="$temp_xrpath -R$libdir" - case "$finalize_rpath " in - *" $libdir "*) ;; - *) finalize_rpath="$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 "*) ;; - *) dlfiles="$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 "*) ;; - *) dlprefiles="$dlprefiles $lib" ;; - esac - done - - if test "$build_libtool_libs" = yes; then - if test -n "$rpath"; then - case $host in - *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-os2* | *-*-beos*) - # these systems don't actually have a c library (as such)! - ;; - *-*-rhapsody* | *-*-darwin1.[012]) - # Rhapsody C library is in the System framework - deplibs="$deplibs -framework System" - ;; - *-*-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 - deplibs="$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. - $rm conftest.c - cat > conftest.c </dev/null` - 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 "X$potlib" | $Xsed -e 's,[^/]*$,,'`"$potliblink";; - esac - done - if eval $file_magic_cmd \"\$potlib\" 2>/dev/null \ - | ${SED} 10q \ - | $EGREP "$file_magic_regex" > /dev/null; then - newdeplibs="$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 - else - # Add a -L argument. - newdeplibs="$newdeplibs $a_deplib" - fi - done # Gone through all deplibs. - ;; - match_pattern*) - set dummy $deplibs_check_method - match_pattern_regex=`expr "$deplibs_check_method" : "$2 \(.*\)"` - for a_deplib in $deplibs; do - name=`expr $a_deplib : '-l\(.*\)'` - # If $name is empty we are operating on a -L argument. - if test -n "$name" && test "$name" != "0"; then - if test "X$allow_libtool_libs_with_static_runtimes" = "Xyes" ; then - case " $predeps $postdeps " in - *" $a_deplib "*) - newdeplibs="$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 - newdeplibs="$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 - else - # Add a -L argument. - newdeplibs="$newdeplibs $a_deplib" - fi - done # Gone through all deplibs. - ;; - none | unknown | *) - newdeplibs="" - tmp_deplibs=`$echo "X $deplibs" | $Xsed -e 's/ -lc$//' \ - -e '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 "X $tmp_deplibs" | ${SED} -e "1s,^X,," -e "s,$i,,"` - done - fi - if $echo "X $tmp_deplibs" | $Xsed -e 's/[ ]//g' \ - | grep . >/dev/null; then - $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 - fi - ;; - 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 is the System framework - newdeplibs=`$echo "X $newdeplibs" | $Xsed -e 's/ -lc / -framework System /'` - ;; - 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 - - - # 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 "*) - new_libs="$new_libs -L$path/$objdir" ;; - esac - ;; - esac - done - for deplib in $deplibs; do - case $deplib in - -L*) - case " $new_libs " in - *" $deplib "*) ;; - *) new_libs="$new_libs $deplib" ;; - esac - ;; - *) new_libs="$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 - if test "$hardcode_into_libs" = yes; then - # Hardcode the library paths - hardcode_libdirs= - dep_rpath= - rpath="$finalize_rpath" - test "$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 - 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"*) - ;; - *) - hardcode_libdirs="$hardcode_libdirs$hardcode_libdir_separator$libdir" - ;; - esac - fi - else - eval flag=\"$hardcode_libdir_flag_spec\" - dep_rpath="$dep_rpath $flag" - fi - elif test -n "$runpath_var"; then - case "$perm_rpath " in - *" $libdir "*) ;; - *) perm_rpath="$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" - if test -n "$hardcode_libdir_flag_spec_ld"; then - eval dep_rpath=\"$hardcode_libdir_flag_spec_ld\" - else - eval dep_rpath=\"$hardcode_libdir_flag_spec\" - fi - fi - if test -n "$runpath_var" && test -n "$perm_rpath"; then - # We should set the runpath_var. - rpath= - for dir in $perm_rpath; do - rpath="$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 "$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 - realname="$2" - shift; 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 - linknames="$linknames $link" - done - - # Use standard objects if they are pic - test -z "$pic_flag" && libobjs=`$echo "X$libobjs" | $SP2NL | $Xsed -e "$lo2o" | $NL2SP` - - # Prepare the list of exported symbols - if test -z "$export_symbols"; then - if test "$always_export_symbols" = yes || test -n "$export_symbols_regex"; then - $show "generating symbol list for \`$libname.la'" - export_symbols="$output_objdir/$libname.exp" - $run $rm $export_symbols - cmds=$export_symbols_cmds - save_ifs="$IFS"; IFS='~' - for cmd in $cmds; do - IFS="$save_ifs" - eval cmd=\"$cmd\" - if len=`expr "X$cmd" : ".*"` && - test "$len" -le "$max_cmd_len" || test "$max_cmd_len" -le -1; then - $show "$cmd" - $run eval "$cmd" || exit $? - skipped_export=false - else - # The command line is too long to execute in one step. - $show "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"; then - $show "$EGREP -e \"$export_symbols_regex\" \"$export_symbols\" > \"${export_symbols}T\"" - $run eval '$EGREP -e "$export_symbols_regex" "$export_symbols" > "${export_symbols}T"' - $show "$mv \"${export_symbols}T\" \"$export_symbols\"" - $run eval '$mv "${export_symbols}T" "$export_symbols"' - fi - fi - fi - - if test -n "$export_symbols" && test -n "$include_expsyms"; then - $run eval '$echo "X$include_expsyms" | $SP2NL >> "$export_symbols"' - fi - - tmp_deplibs= - for test_deplib in $deplibs; do - case " $convenience " in - *" $test_deplib "*) ;; - *) - tmp_deplibs="$tmp_deplibs $test_deplib" - ;; - esac - done - deplibs="$tmp_deplibs" - - if test -n "$convenience"; then - if test -n "$whole_archive_flag_spec"; then - save_libobjs=$libobjs - eval libobjs=\"\$libobjs $whole_archive_flag_spec\" - else - gentop="$output_objdir/${outputname}x" - generated="$generated $gentop" - - func_extract_archives $gentop $convenience - libobjs="$libobjs $func_extract_archives_result" - fi - fi - - if test "$thread_safe" = yes && test -n "$thread_safe_flag_spec"; then - eval flag=\"$thread_safe_flag_spec\" - linker_flags="$linker_flags $flag" - fi - - # Make a backup of the uninstalled library when relinking - if test "$mode" = relink; then - $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:" && - len=`expr "X$test_cmds" : ".*" 2>/dev/null` && - test "$len" -le "$max_cmd_len" || test "$max_cmd_len" -le -1; then - : - else - # The command line is too long to link in one step, link piecewise. - $echo "creating reloadable object files..." - - # 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 - output_la=`$echo "X$output" | $Xsed -e "$basename"` - - # Clear the reloadable object creation command queue and - # initialize k to one. - test_cmds= - concat_cmds= - objlist= - delfiles= - last_robj= - k=1 - output=$output_objdir/$output_la-${k}.$objext - # Loop over the list of objects to be linked. - for obj in $save_libobjs - do - eval test_cmds=\"$reload_cmds $objlist $last_robj\" - if test "X$objlist" = X || - { len=`expr "X$test_cmds" : ".*" 2>/dev/null` && - test "$len" -le "$max_cmd_len"; }; then - objlist="$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. - eval concat_cmds=\"$reload_cmds $objlist $last_robj\" - else - # All subsequent reloadable object files will link in - # the last one created. - eval concat_cmds=\"\$concat_cmds~$reload_cmds $objlist $last_robj\" - fi - last_robj=$output_objdir/$output_la-${k}.$objext - k=`expr $k + 1` - output=$output_objdir/$output_la-${k}.$objext - objlist=$obj - len=1 - 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~ - eval concat_cmds=\"\${concat_cmds}$reload_cmds $objlist $last_robj\" - - if ${skipped_export-false}; then - $show "generating symbol list for \`$libname.la'" - export_symbols="$output_objdir/$libname.exp" - $run $rm $export_symbols - libobjs=$output - # Append the command to create the export file. - eval concat_cmds=\"\$concat_cmds~$export_symbols_cmds\" - fi - - # Set up a command to remove the reloadable object files - # after they are used. - i=0 - while test "$i" -lt "$k" - do - i=`expr $i + 1` - delfiles="$delfiles $output_objdir/$output_la-${i}.$objext" - done - - $echo "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" - $show "$cmd" - $run eval "$cmd" || exit $? - done - IFS="$save_ifs" - - 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\" - 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 - - # Append the command to remove the reloadable object files - # to the just-reset $cmds. - eval cmds=\"\$cmds~\$rm $delfiles\" - fi - save_ifs="$IFS"; IFS='~' - for cmd in $cmds; do - IFS="$save_ifs" - eval cmd=\"$cmd\" - $show "$cmd" - $run eval "$cmd" || { - lt_exit=$? - - # Restore the uninstalled library and exit - if test "$mode" = relink; then - $run eval '(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 "$mode" = relink; then - $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 - $show "${rm}r $gentop" - $run ${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 - $show "(cd $output_objdir && $rm $linkname && $LN_S $realname $linkname)" - $run 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 "$deplibs"; then - $echo "$modename: warning: \`-l' and \`-L' are ignored for objects" 1>&2 - fi - - if test -n "$dlfiles$dlprefiles" || test "$dlself" != no; then - $echo "$modename: warning: \`-dlopen' is ignored for objects" 1>&2 - fi - - if test -n "$rpath"; then - $echo "$modename: warning: \`-rpath' is ignored for objects" 1>&2 - fi - - if test -n "$xrpath"; then - $echo "$modename: warning: \`-R' is ignored for objects" 1>&2 - fi - - if test -n "$vinfo"; then - $echo "$modename: warning: \`-version-info' is ignored for objects" 1>&2 - fi - - if test -n "$release"; then - $echo "$modename: warning: \`-release' is ignored for objects" 1>&2 - fi - - case $output in - *.lo) - if test -n "$objs$old_deplibs"; then - $echo "$modename: cannot build library object \`$output' from non-libtool objects" 1>&2 - exit $EXIT_FAILURE - fi - libobj="$output" - obj=`$echo "X$output" | $Xsed -e "$lo2o"` - ;; - *) - libobj= - obj="$output" - ;; - esac - - # Delete the old objects. - $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 "X$tmp_whole_archive_flags" | $Xsed -e 's|,| |g'` - else - gentop="$output_objdir/${obj}x" - generated="$generated $gentop" - - func_extract_archives $gentop $convenience - reload_conv_objs="$reload_objs $func_extract_archives_result" - fi - fi - - # Create the old-style object. - reload_objs="$objs$old_deplibs "`$echo "X$libobjs" | $SP2NL | $Xsed -e '/\.'${libext}$'/d' -e '/\.lib$/d' -e "$lo2o" | $NL2SP`" $reload_conv_objs" ### testsuite: skip nested quoting test - - output="$obj" - cmds=$reload_cmds - save_ifs="$IFS"; IFS='~' - for cmd in $cmds; do - IFS="$save_ifs" - eval cmd=\"$cmd\" - $show "$cmd" - $run eval "$cmd" || exit $? - done - IFS="$save_ifs" - - # Exit if we aren't doing a library object file. - if test -z "$libobj"; then - if test -n "$gentop"; then - $show "${rm}r $gentop" - $run ${rm}r $gentop - fi - - exit $EXIT_SUCCESS - fi - - if test "$build_libtool_libs" != yes; then - if test -n "$gentop"; then - $show "${rm}r $gentop" - $run ${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" - # $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" - cmds=$reload_cmds - save_ifs="$IFS"; IFS='~' - for cmd in $cmds; do - IFS="$save_ifs" - eval cmd=\"$cmd\" - $show "$cmd" - $run eval "$cmd" || exit $? - done - IFS="$save_ifs" - fi - - if test -n "$gentop"; then - $show "${rm}r $gentop" - $run ${rm}r $gentop - fi - - exit $EXIT_SUCCESS - ;; - - prog) - case $host in - *cygwin*) output=`$echo $output | ${SED} -e 's,.exe$,,;s,$,.exe,'` ;; - esac - if test -n "$vinfo"; then - $echo "$modename: warning: \`-version-info' is ignored for programs" 1>&2 - fi - - if test -n "$release"; then - $echo "$modename: warning: \`-release' is ignored for programs" 1>&2 - fi - - if test "$preload" = yes; then - if test "$dlopen_support" = unknown && test "$dlopen_self" = unknown && - test "$dlopen_self_static" = unknown; then - $echo "$modename: warning: \`AC_LIBTOOL_DLOPEN' not used. Assuming no dlopen support." - fi - fi - - case $host in - *-*-rhapsody* | *-*-darwin1.[012]) - # On Rhapsody replace the C library is the System framework - compile_deplibs=`$echo "X $compile_deplibs" | $Xsed -e 's/ -lc / -framework System /'` - finalize_deplibs=`$echo "X $finalize_deplibs" | $Xsed -e 's/ -lc / -framework System /'` - ;; - esac - - case $host in - *darwin*) - # Don't allow lazy linking, it breaks C++ global constructors - if test "$tagname" = CXX ; then - compile_command="$compile_command ${wl}-bind_at_load" - finalize_command="$finalize_command ${wl}-bind_at_load" - fi - ;; - 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 "*) - new_libs="$new_libs -L$path/$objdir" ;; - esac - ;; - esac - done - for deplib in $compile_deplibs; do - case $deplib in - -L*) - case " $new_libs " in - *" $deplib "*) ;; - *) new_libs="$new_libs $deplib" ;; - esac - ;; - *) new_libs="$new_libs $deplib" ;; - esac - done - compile_deplibs="$new_libs" - - - compile_command="$compile_command $compile_deplibs" - finalize_command="$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 "*) ;; - *) finalize_rpath="$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"*) - ;; - *) - hardcode_libdirs="$hardcode_libdirs$hardcode_libdir_separator$libdir" - ;; - esac - fi - else - eval flag=\"$hardcode_libdir_flag_spec\" - rpath="$rpath $flag" - fi - elif test -n "$runpath_var"; then - case "$perm_rpath " in - *" $libdir "*) ;; - *) perm_rpath="$perm_rpath $libdir" ;; - esac - fi - case $host in - *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-os2*) - testbindir=`$echo "X$libdir" | $Xsed -e 's*/lib$*/bin*'` - case :$dllsearchpath: in - *":$libdir:"*) ;; - *) dllsearchpath="$dllsearchpath:$libdir";; - esac - case :$dllsearchpath: in - *":$testbindir:"*) ;; - *) dllsearchpath="$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"*) - ;; - *) - hardcode_libdirs="$hardcode_libdirs$hardcode_libdir_separator$libdir" - ;; - esac - fi - else - eval flag=\"$hardcode_libdir_flag_spec\" - rpath="$rpath $flag" - fi - elif test -n "$runpath_var"; then - case "$finalize_perm_rpath " in - *" $libdir "*) ;; - *) finalize_perm_rpath="$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 "X$compile_command" | $SP2NL | $Xsed -e "$lo2o" | $NL2SP` - finalize_command=`$echo "X$finalize_command" | $SP2NL | $Xsed -e "$lo2o" | $NL2SP` - fi - - dlsyms= - if test -n "$dlfiles$dlprefiles" || test "$dlself" != no; then - if test -n "$NM" && test -n "$global_symbol_pipe"; then - dlsyms="${outputname}S.c" - else - $echo "$modename: not configured to extract global symbols from dlpreopened files" 1>&2 - fi - fi - - if test -n "$dlsyms"; then - case $dlsyms in - "") ;; - *.c) - # Discover the nlist of each of the dlfiles. - nlist="$output_objdir/${outputname}.nm" - - $show "$rm $nlist ${nlist}S ${nlist}T" - $run $rm "$nlist" "${nlist}S" "${nlist}T" - - # Parse the name list into a source file. - $show "creating $output_objdir/$dlsyms" - - test -z "$run" && $echo > "$output_objdir/$dlsyms" "\ -/* $dlsyms - symbol resolution table for \`$outputname' dlsym emulation. */ -/* Generated by $PROGRAM - GNU $PACKAGE $VERSION$TIMESTAMP */ - -#ifdef __cplusplus -extern \"C\" { -#endif - -/* Prevent the only kind of declaration conflicts we can make. */ -#define lt_preloaded_symbols some_other_symbol - -/* External symbol declarations for the compiler. */\ -" - - if test "$dlself" = yes; then - $show "generating symbol list for \`$output'" - - test -z "$run" && $echo ': @PROGRAM@ ' > "$nlist" - - # Add our own program objects to the symbol list. - progfiles=`$echo "X$objs$old_deplibs" | $SP2NL | $Xsed -e "$lo2o" | $NL2SP` - for arg in $progfiles; do - $show "extracting global C symbols from \`$arg'" - $run eval "$NM $arg | $global_symbol_pipe >> '$nlist'" - done - - if test -n "$exclude_expsyms"; then - $run eval '$EGREP -v " ($exclude_expsyms)$" "$nlist" > "$nlist"T' - $run eval '$mv "$nlist"T "$nlist"' - fi - - if test -n "$export_symbols_regex"; then - $run eval '$EGREP -e "$export_symbols_regex" "$nlist" > "$nlist"T' - $run eval '$mv "$nlist"T "$nlist"' - fi - - # Prepare the list of exported symbols - if test -z "$export_symbols"; then - export_symbols="$output_objdir/$outputname.exp" - $run $rm $export_symbols - $run eval "${SED} -n -e '/^: @PROGRAM@ $/d' -e 's/^.* \(.*\)$/\1/p' "'< "$nlist" > "$export_symbols"' - case $host in - *cygwin* | *mingw* ) - $run eval "echo EXPORTS "'> "$output_objdir/$outputname.def"' - $run eval 'cat "$export_symbols" >> "$output_objdir/$outputname.def"' - ;; - esac - else - $run eval "${SED} -e 's/\([].[*^$]\)/\\\\\1/g' -e 's/^/ /' -e 's/$/$/'"' < "$export_symbols" > "$output_objdir/$outputname.exp"' - $run eval 'grep -f "$output_objdir/$outputname.exp" < "$nlist" > "$nlist"T' - $run eval 'mv "$nlist"T "$nlist"' - case $host in - *cygwin* | *mingw* ) - $run eval "echo EXPORTS "'> "$output_objdir/$outputname.def"' - $run eval 'cat "$nlist" >> "$output_objdir/$outputname.def"' - ;; - esac - fi - fi - - for arg in $dlprefiles; do - $show "extracting global C symbols from \`$arg'" - name=`$echo "$arg" | ${SED} -e 's%^.*/%%'` - $run eval '$echo ": $name " >> "$nlist"' - $run eval "$NM $arg | $global_symbol_pipe >> '$nlist'" - done - - if test -z "$run"; then - # 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/$dlsyms"' - else - $echo '/* NONE */' >> "$output_objdir/$dlsyms" - fi - - $echo >> "$output_objdir/$dlsyms" "\ - -#undef lt_preloaded_symbols - -#if defined (__STDC__) && __STDC__ -# define lt_ptr void * -#else -# define lt_ptr char * -# define const -#endif - -/* The mapping between symbol names and symbols. */ -" - - case $host in - *cygwin* | *mingw* ) - $echo >> "$output_objdir/$dlsyms" "\ -/* DATA imports from DLLs on WIN32 can't be const, because - runtime relocations are performed -- see ld's documentation - on pseudo-relocs */ -struct { -" - ;; - * ) - $echo >> "$output_objdir/$dlsyms" "\ -const struct { -" - ;; - esac - - - $echo >> "$output_objdir/$dlsyms" "\ - const char *name; - lt_ptr address; -} -lt_preloaded_symbols[] = -{\ -" - - eval "$global_symbol_to_c_name_address" < "$nlist" >> "$output_objdir/$dlsyms" - - $echo >> "$output_objdir/$dlsyms" "\ - {0, (lt_ptr) 0} -}; - -/* This works around a problem in FreeBSD linker */ -#ifdef FREEBSD_WORKAROUND -static const void *lt_preloaded_setup() { - return lt_preloaded_symbols; -} -#endif - -#ifdef __cplusplus -} -#endif\ -" - fi - - pic_flag_for_symtable= - 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*) - case "$compile_command " in - *" -static "*) ;; - *) pic_flag_for_symtable=" $pic_flag -DFREEBSD_WORKAROUND";; - esac;; - *-*-hpux*) - case "$compile_command " in - *" -static "*) ;; - *) pic_flag_for_symtable=" $pic_flag";; - esac - esac - - # Now compile the dynamic symbol file. - $show "(cd $output_objdir && $LTCC $LTCFLAGS -c$no_builtin_flag$pic_flag_for_symtable \"$dlsyms\")" - $run eval '(cd $output_objdir && $LTCC $LTCFLAGS -c$no_builtin_flag$pic_flag_for_symtable "$dlsyms")' || exit $? - - # Clean up the generated files. - $show "$rm $output_objdir/$dlsyms $nlist ${nlist}S ${nlist}T" - $run $rm "$output_objdir/$dlsyms" "$nlist" "${nlist}S" "${nlist}T" - - # Transform the symbol file into the correct name. - case $host in - *cygwin* | *mingw* ) - if test -f "$output_objdir/${outputname}.def" ; then - compile_command=`$echo "X$compile_command" | $SP2NL | $Xsed -e "s%@SYMFILE@%$output_objdir/${outputname}.def $output_objdir/${outputname}S.${objext}%" | $NL2SP` - finalize_command=`$echo "X$finalize_command" | $SP2NL | $Xsed -e "s%@SYMFILE@%$output_objdir/${outputname}.def $output_objdir/${outputname}S.${objext}%" | $NL2SP` - else - compile_command=`$echo "X$compile_command" | $SP2NL | $Xsed -e "s%@SYMFILE@%$output_objdir/${outputname}S.${objext}%" | $NL2SP` - finalize_command=`$echo "X$finalize_command" | $SP2NL | $Xsed -e "s%@SYMFILE@%$output_objdir/${outputname}S.${objext}%" | $NL2SP` - fi - ;; - * ) - compile_command=`$echo "X$compile_command" | $SP2NL | $Xsed -e "s%@SYMFILE@%$output_objdir/${outputname}S.${objext}%" | $NL2SP` - finalize_command=`$echo "X$finalize_command" | $SP2NL | $Xsed -e "s%@SYMFILE@%$output_objdir/${outputname}S.${objext}%" | $NL2SP` - ;; - esac - ;; - *) - $echo "$modename: unknown suffix for \`$dlsyms'" 1>&2 - exit $EXIT_FAILURE - ;; - 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 "X$compile_command" | $SP2NL | $Xsed -e "s% @SYMFILE@%%" | $NL2SP` - finalize_command=`$echo "X$finalize_command" | $SP2NL | $Xsed -e "s% @SYMFILE@%%" | $NL2SP` - fi - - if test "$need_relink" = no || test "$build_libtool_libs" != yes; then - # Replace the output file specification. - compile_command=`$echo "X$compile_command" | $SP2NL | $Xsed -e 's%@OUTPUT@%'"$output"'%g' | $NL2SP` - link_command="$compile_command$compile_rpath" - - # We have no uninstalled library dependencies, so finalize right now. - $show "$link_command" - $run eval "$link_command" - exit_status=$? - - # Delete the generated files. - if test -n "$dlsyms"; then - $show "$rm $output_objdir/${outputname}S.${objext}" - $run $rm "$output_objdir/${outputname}S.${objext}" - fi - - exit $exit_status - fi - - if test -n "$shlibpath_var"; then - # We should set the shlibpath_var - rpath= - for dir in $temp_rpath; do - case $dir in - [\\/]* | [A-Za-z]:[\\/]*) - # Absolute path. - rpath="$rpath$dir:" - ;; - *) - # Relative path: add a thisdir entry. - rpath="$rpath\$thisdir/$dir:" - ;; - esac - done - temp_rpath="$rpath" - 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 - rpath="$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 - rpath="$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 "X$link_command" | $Xsed -e 's%@OUTPUT@%'"$output"'%g'` - # Delete the old output file. - $run $rm $output - # Link the executable and exit - $show "$link_command" - $run eval "$link_command" || exit $? - 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" - - $echo "$modename: warning: this platform does not like uninstalled shared libraries" 1>&2 - $echo "$modename: \`$output' will be relinked during installation" 1>&2 - else - if test "$fast_install" != no; then - link_command="$finalize_var$compile_command$finalize_rpath" - if test "$fast_install" = yes; then - relink_command=`$echo "X$compile_var$compile_command$compile_rpath" | $SP2NL | $Xsed -e 's%@OUTPUT@%\$progdir/\$file%g' | $NL2SP` - 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 "X$link_command" | $Xsed -e 's%@OUTPUT@%'"$output_objdir/$outputname"'%g'` - - # Delete the old output files. - $run $rm $output $output_objdir/$outputname $output_objdir/lt-$outputname - - $show "$link_command" - $run eval "$link_command" || exit $? - - # Now create the wrapper script. - $show "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}\" || 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 - var_value=`$echo "X$var_value" | $Xsed -e "$sed_quote_subst"` - relink_command="$var=\"$var_value\"; export $var; $relink_command" - fi - done - relink_command="(cd `pwd`; $relink_command)" - relink_command=`$echo "X$relink_command" | $SP2NL | $Xsed -e "$sed_quote_subst" | $NL2SP` - fi - - # Quote $echo for shipping. - if test "X$echo" = "X$SHELL $progpath --fallback-echo"; then - case $progpath in - [\\/]* | [A-Za-z]:[\\/]*) qecho="$SHELL $progpath --fallback-echo";; - *) qecho="$SHELL `pwd`/$progpath --fallback-echo";; - esac - qecho=`$echo "X$qecho" | $Xsed -e "$sed_quote_subst"` - else - qecho=`$echo "X$echo" | $Xsed -e "$sed_quote_subst"` - fi - - # Only actually do things if our run command is non-null. - if test -z "$run"; then - # win32 will think the script is a binary if it has - # a .exe suffix, so we strip it off here. - case $output in - *.exe) output=`$echo $output|${SED} 's,.exe$,,'` ;; - esac - # test for cygwin because mv fails w/o .exe extensions - case $host in - *cygwin*) - exeext=.exe - outputname=`$echo $outputname|${SED} 's,.exe$,,'` ;; - *) exeext= ;; - esac - case $host in - *cygwin* | *mingw* ) - output_name=`basename $output` - output_path=`dirname $output` - 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 - - cat > $cwrappersource <> $cwrappersource<<"EOF" -#include -#include -#include -#include -#include -#include -#include -#include -#include - -#if defined(PATH_MAX) -# define LT_PATHMAX PATH_MAX -#elif defined(MAXPATHLEN) -# define LT_PATHMAX MAXPATHLEN -#else -# define LT_PATHMAX 1024 -#endif - -#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 -# 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 */ - -#define XMALLOC(type, num) ((type *) xmalloc ((num) * sizeof(type))) -#define XFREE(stale) do { \ - if (stale) { free ((void *) stale); stale = 0; } \ -} while (0) - -/* -DDEBUG is fairly common in CFLAGS. */ -#undef DEBUG -#if defined DEBUGWRAPPER -# define DEBUG(format, ...) fprintf(stderr, format, __VA_ARGS__) -#else -# define DEBUG(format, ...) -#endif - -const char *program_name = NULL; - -void * xmalloc (size_t num); -char * xstrdup (const char *string); -const char * base_name (const char *name); -char * find_executable(const char *wrapper); -int check_executable(const char *path); -char * strendzap(char *str, const char *pat); -void lt_fatal (const char *message, ...); - -int -main (int argc, char *argv[]) -{ - char **newargz; - int i; - - program_name = (char *) xstrdup (base_name (argv[0])); - DEBUG("(main) argv[0] : %s\n",argv[0]); - DEBUG("(main) program_name : %s\n",program_name); - newargz = XMALLOC(char *, argc+2); -EOF - - cat >> $cwrappersource <> $cwrappersource <<"EOF" - newargz[1] = find_executable(argv[0]); - if (newargz[1] == NULL) - lt_fatal("Couldn't find %s", argv[0]); - DEBUG("(main) found exe at : %s\n",newargz[1]); - /* we know the script has the same name, without the .exe */ - /* so make sure newargz[1] doesn't end in .exe */ - strendzap(newargz[1],".exe"); - for (i = 1; i < argc; i++) - newargz[i+1] = xstrdup(argv[i]); - newargz[argc+1] = NULL; - - for (i=0; i> $cwrappersource <> $cwrappersource <> $cwrappersource <<"EOF" - return 127; -} - -void * -xmalloc (size_t num) -{ - void * p = (void *) malloc (num); - if (!p) - lt_fatal ("Memory exhausted"); - - return p; -} - -char * -xstrdup (const char *string) -{ - return string ? strcpy ((char *) xmalloc (strlen (string) + 1), string) : NULL -; -} - -const char * -base_name (const char *name) -{ - const char *base; - -#if defined (HAVE_DOS_BASED_FILE_SYSTEM) - /* Skip over the disk name in MSDOS pathnames. */ - if (isalpha ((unsigned char)name[0]) && name[1] == ':') - name += 2; -#endif - - for (base = name; *name; name++) - if (IS_DIR_SEPARATOR (*name)) - base = name + 1; - return base; -} - -int -check_executable(const char * path) -{ - struct stat st; - - DEBUG("(check_executable) : %s\n", path ? (*path ? path : "EMPTY!") : "NULL!"); - if ((!path) || (!*path)) - return 0; - - if ((stat (path, &st) >= 0) && - ( - /* MinGW & native WIN32 do not support S_IXOTH or S_IXGRP */ -#if defined (S_IXOTH) - ((st.st_mode & S_IXOTH) == S_IXOTH) || -#endif -#if defined (S_IXGRP) - ((st.st_mode & S_IXGRP) == S_IXGRP) || -#endif - ((st.st_mode & S_IXUSR) == S_IXUSR)) - ) - return 1; - else - return 0; -} - -/* Searches for the full path of the wrapper. Returns - newly allocated full path name if found, NULL otherwise */ -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; - - DEBUG("(find_executable) : %s\n", wrapper ? (*wrapper ? wrapper : "EMPTY!") : "NULL!"); - - 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 ("getcwd failed"); - 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 ("getcwd failed"); - 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 * -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; -} - -static void -lt_error_core (int exit_status, const char * mode, - const char * message, va_list ap) -{ - fprintf (stderr, "%s: %s: ", program_name, mode); - vfprintf (stderr, message, ap); - fprintf (stderr, ".\n"); - - if (exit_status >= 0) - exit (exit_status); -} - -void -lt_fatal (const char *message, ...) -{ - va_list ap; - va_start (ap, message); - lt_error_core (EXIT_FAILURE, "FATAL", message, ap); - va_end (ap); -} -EOF - # we should really use a build-platform specific compiler - # here, but OTOH, the wrappers (shell script and this C one) - # are only useful if you want to execute the "real" binary. - # Since the "real" binary is built for $host, then this - # wrapper might as well be built for $host, too. - $run $LTCC $LTCFLAGS -s -o $cwrapper $cwrappersource - ;; - esac - $rm $output - trap "$rm $output; exit $EXIT_FAILURE" 1 2 15 - - $echo > $output "\ -#! $SHELL - -# $output - temporary wrapper script for $objdir/$outputname -# Generated by $PROGRAM - GNU $PACKAGE $VERSION$TIMESTAMP -# -# 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. -Xsed='${SED} -e 1s/^X//' -sed_quote_subst='$sed_quote_subst' - -# Be Bourne compatible (taken from Autoconf:_AS_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 - -# 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 variable: - 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 - echo=\"$qecho\" - file=\"\$0\" - # Make sure echo works. - if test \"X\$1\" = X--no-reexec; then - # Discard the --no-reexec flag, and continue. - shift - elif test \"X\`(\$echo '\t') 2>/dev/null\`\" = 'X\t'; then - # Yippee, \$echo works! - : - else - # Restart under the correct shell, and then maybe \$echo will work. - exec $SHELL \"\$0\" --no-reexec \${1+\"\$@\"} - fi - fi\ -" - $echo >> $output "\ - - # Find the directory that this script lives in. - thisdir=\`\$echo \"X\$file\" | \$Xsed -e '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 \"X\$file\" | \$Xsed -e '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 \"X\$file\" | \$Xsed -e 's%^.*/%%'\` - file=\`ls -ld \"\$thisdir/\$file\" | ${SED} -n 's/.*-> //p'\` - done - - # Try to get the absolute directory name. - absdir=\`cd \"\$thisdir\" && pwd\` - test -n \"\$absdir\" && thisdir=\"\$absdir\" -" - - if test "$fast_install" = yes; then - $echo >> $output "\ - 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 >> $output "\ - - # 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 $EXIT_FAILURE - fi - fi - - $mv \"\$progdir/\$file\" \"\$progdir/\$program\" 2>/dev/null || - { $rm \"\$progdir/\$program\"; - $mv \"\$progdir/\$file\" \"\$progdir/\$program\"; } - $rm \"\$progdir/\$file\" - fi" - else - $echo >> $output "\ - program='$outputname' - progdir=\"\$thisdir/$objdir\" -" - fi - - $echo >> $output "\ - - if test -f \"\$progdir/\$program\"; then" - - # Export our shlibpath_var if we have one. - if test "$shlibpath_overrides_runpath" = yes && test -n "$shlibpath_var" && test -n "$temp_rpath"; then - $echo >> $output "\ - # 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 \"X\$$shlibpath_var\" | \$Xsed -e 's/::*\$//'\` - - export $shlibpath_var -" - fi - - # fixup the dll searchpath if we need to. - if test -n "$dllsearchpath"; then - $echo >> $output "\ - # Add the dll search path components to the executable PATH - PATH=$dllsearchpath:\$PATH -" - fi - - $echo >> $output "\ - if test \"\$libtool_execute_magic\" != \"$magic\"; then - # Run the actual program with our arguments. -" - case $host in - # Backslashes separate directories on plain windows - *-*-mingw | *-*-os2*) - $echo >> $output "\ - exec \"\$progdir\\\\\$program\" \${1+\"\$@\"} -" - ;; - - *) - $echo >> $output "\ - exec \"\$progdir/\$program\" \${1+\"\$@\"} -" - ;; - esac - $echo >> $output "\ - \$echo \"\$0: cannot exec \$program \$*\" - exit $EXIT_FAILURE - 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 $EXIT_FAILURE - fi -fi\ -" - chmod +x $output - fi - 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" - 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" - fi - addlibs="$old_convenience" - fi - - if test -n "$addlibs"; then - gentop="$output_objdir/${outputname}x" - generated="$generated $gentop" - - func_extract_archives $gentop $addlibs - oldobjs="$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 - # 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 - $echo "X$obj" | $Xsed -e 's%^.*/%%' - done | sort | sort -uc >/dev/null 2>&1); then - : - else - $echo "copying selected object files to avoid basename conflicts..." - - if test -z "$gentop"; then - gentop="$output_objdir/${outputname}x" - generated="$generated $gentop" - - $show "${rm}r $gentop" - $run ${rm}r "$gentop" - $show "$mkdir $gentop" - $run $mkdir "$gentop" - exit_status=$? - if test "$exit_status" -ne 0 && test ! -d "$gentop"; then - exit $exit_status - fi - fi - - save_oldobjs=$oldobjs - oldobjs= - counter=1 - for obj in $save_oldobjs - do - objbase=`$echo "X$obj" | $Xsed -e 's%^.*/%%'` - case " $oldobjs " in - " ") oldobjs=$obj ;; - *[\ /]"$objbase "*) - while :; do - # Make sure we don't pick an alternate name that also - # overlaps. - newobj=lt$counter-$objbase - counter=`expr $counter + 1` - case " $oldobjs " in - *[\ /]"$newobj "*) ;; - *) if test ! -f "$gentop/$newobj"; then break; fi ;; - esac - done - $show "ln $obj $gentop/$newobj || cp $obj $gentop/$newobj" - $run ln "$obj" "$gentop/$newobj" || - $run cp "$obj" "$gentop/$newobj" - oldobjs="$oldobjs $gentop/$newobj" - ;; - *) oldobjs="$oldobjs $obj" ;; - esac - done - fi - - eval cmds=\"$old_archive_cmds\" - - if len=`expr "X$cmds" : ".*"` && - test "$len" -le "$max_cmd_len" || test "$max_cmd_len" -le -1; then - cmds=$old_archive_cmds - else - # the command line is too long to link in one step, link in parts - $echo "using piecewise archive linking..." - save_RANLIB=$RANLIB - RANLIB=: - objlist= - concat_cmds= - save_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 - for obj in $save_oldobjs - do - oldobjs="$objlist $obj" - objlist="$objlist $obj" - eval test_cmds=\"$old_archive_cmds\" - if len=`expr "X$test_cmds" : ".*" 2>/dev/null` && - test "$len" -le "$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= - 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 - save_ifs="$IFS"; IFS='~' - for cmd in $cmds; do - eval cmd=\"$cmd\" - IFS="$save_ifs" - $show "$cmd" - $run eval "$cmd" || exit $? - done - IFS="$save_ifs" - done - - if test -n "$generated"; then - $show "${rm}r$generated" - $run ${rm}r$generated - fi - - # Now create the libtool archive. - case $output in - *.la) - old_library= - test "$build_old_libs" = yes && old_library="$libname.$libext" - $show "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}\" || 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 - var_value=`$echo "X$var_value" | $Xsed -e "$sed_quote_subst"` - relink_command="$var=\"$var_value\"; 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 "X$relink_command" | $SP2NL | $Xsed -e "$sed_quote_subst" | $NL2SP` - if test "$hardcode_automatic" = yes ; then - relink_command= - fi - - - # Only create the output if not a dry run. - if test -z "$run"; then - 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) - name=`$echo "X$deplib" | $Xsed -e 's%^.*/%%'` - eval libdir=`${SED} -n -e 's/^libdir=\(.*\)$/\1/p' $deplib` - if test -z "$libdir"; then - $echo "$modename: \`$deplib' is not a valid libtool archive" 1>&2 - exit $EXIT_FAILURE - fi - newdependency_libs="$newdependency_libs $libdir/$name" - ;; - *) newdependency_libs="$newdependency_libs $deplib" ;; - esac - done - dependency_libs="$newdependency_libs" - newdlfiles= - for lib in $dlfiles; do - name=`$echo "X$lib" | $Xsed -e 's%^.*/%%'` - eval libdir=`${SED} -n -e 's/^libdir=\(.*\)$/\1/p' $lib` - if test -z "$libdir"; then - $echo "$modename: \`$lib' is not a valid libtool archive" 1>&2 - exit $EXIT_FAILURE - fi - newdlfiles="$newdlfiles $libdir/$name" - done - dlfiles="$newdlfiles" - newdlprefiles= - for lib in $dlprefiles; do - name=`$echo "X$lib" | $Xsed -e 's%^.*/%%'` - eval libdir=`${SED} -n -e 's/^libdir=\(.*\)$/\1/p' $lib` - if test -z "$libdir"; then - $echo "$modename: \`$lib' is not a valid libtool archive" 1>&2 - exit $EXIT_FAILURE - fi - newdlprefiles="$newdlprefiles $libdir/$name" - done - dlprefiles="$newdlprefiles" - else - newdlfiles= - for lib in $dlfiles; do - case $lib in - [\\/]* | [A-Za-z]:[\\/]*) abs="$lib" ;; - *) abs=`pwd`"/$lib" ;; - esac - newdlfiles="$newdlfiles $abs" - done - dlfiles="$newdlfiles" - newdlprefiles= - for lib in $dlprefiles; do - case $lib in - [\\/]* | [A-Za-z]:[\\/]*) abs="$lib" ;; - *) abs=`pwd`"/$lib" ;; - esac - newdlprefiles="$newdlprefiles $abs" - done - dlprefiles="$newdlprefiles" - fi - $rm $output - # place dlname in correct position for cygwin - tdlname=$dlname - case $host,$output,$installed,$module,$dlname in - *cygwin*,*lai,yes,no,*.dll | *mingw*,*lai,yes,no,*.dll) tdlname=../bin/$dlname ;; - esac - $echo > $output "\ -# $outputname - a libtool library file -# Generated by $PROGRAM - GNU $PACKAGE $VERSION$TIMESTAMP -# -# 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' - -# Libraries that this one depends upon. -dependency_libs='$dependency_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 - fi - - # Do a symbolic link so that the libtool archive can be found in - # LD_LIBRARY_PATH before the program is installed. - $show "(cd $output_objdir && $rm $outputname && $LN_S ../$outputname $outputname)" - $run eval '(cd $output_objdir && $rm $outputname && $LN_S ../$outputname $outputname)' || exit $? - ;; - esac - exit $EXIT_SUCCESS - ;; - - # libtool install mode - install) - modename="$modename: install" - - # 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. - $echo "X$nonopt" | grep shtool > /dev/null; then - # Aesthetically quote it. - arg=`$echo "X$nonopt" | $Xsed -e "$sed_quote_subst"` - case $arg in - *[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*|"") - arg="\"$arg\"" - ;; - esac - install_prog="$arg " - arg="$1" - shift - else - install_prog= - arg=$nonopt - fi - - # The real first argument should be the name of the installation program. - # Aesthetically quote it. - arg=`$echo "X$arg" | $Xsed -e "$sed_quote_subst"` - case $arg in - *[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*|"") - arg="\"$arg\"" - ;; - esac - install_prog="$install_prog$arg" - - # We need to accept at least all the BSD install flags. - dest= - files= - opts= - prev= - install_type= - isdir=no - stripme= - for arg - do - if test -n "$dest"; then - files="$files $dest" - dest=$arg - continue - fi - - case $arg in - -d) isdir=yes ;; - -f) - case " $install_prog " in - *[\\\ /]cp\ *) ;; - *) prev=$arg ;; - esac - ;; - -g | -m | -o) prev=$arg ;; - -s) - stripme=" -s" - continue - ;; - -*) - ;; - *) - # If the previous option needed an argument, then skip it. - if test -n "$prev"; then - prev= - else - dest=$arg - continue - fi - ;; - esac - - # Aesthetically quote the argument. - arg=`$echo "X$arg" | $Xsed -e "$sed_quote_subst"` - case $arg in - *[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*|"") - arg="\"$arg\"" - ;; - esac - install_prog="$install_prog $arg" - done - - if test -z "$install_prog"; then - $echo "$modename: you must specify an install program" 1>&2 - $echo "$help" 1>&2 - exit $EXIT_FAILURE - fi - - if test -n "$prev"; then - $echo "$modename: the \`$prev' option requires an argument" 1>&2 - $echo "$help" 1>&2 - exit $EXIT_FAILURE - fi - - if test -z "$files"; then - if test -z "$dest"; then - $echo "$modename: no file or destination specified" 1>&2 - else - $echo "$modename: you must specify a destination" 1>&2 - fi - $echo "$help" 1>&2 - exit $EXIT_FAILURE - fi - - # Strip any trailing slash from the destination. - dest=`$echo "X$dest" | $Xsed -e 's%/$%%'` - - # Check to see that the destination is a directory. - test -d "$dest" && isdir=yes - if test "$isdir" = yes; then - destdir="$dest" - destname= - else - destdir=`$echo "X$dest" | $Xsed -e 's%/[^/]*$%%'` - test "X$destdir" = "X$dest" && destdir=. - destname=`$echo "X$dest" | $Xsed -e 's%^.*/%%'` - - # Not a directory, so check to see that there is only one file specified. - set dummy $files - if test "$#" -gt 2; then - $echo "$modename: \`$dest' is not a directory" 1>&2 - $echo "$help" 1>&2 - exit $EXIT_FAILURE - fi - fi - case $destdir in - [\\/]* | [A-Za-z]:[\\/]*) ;; - *) - for file in $files; do - case $file in - *.lo) ;; - *) - $echo "$modename: \`$destdir' must be an absolute directory name" 1>&2 - $echo "$help" 1>&2 - exit $EXIT_FAILURE - ;; - 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. - staticlibs="$staticlibs $file" - ;; - - *.la) - # Check to see that this really is a libtool archive. - if (${SED} -e '2q' $file | grep "^# Generated by .*$PACKAGE") >/dev/null 2>&1; then : - else - $echo "$modename: \`$file' is not a valid libtool archive" 1>&2 - $echo "$help" 1>&2 - exit $EXIT_FAILURE - fi - - library_names= - old_library= - relink_command= - # If there is no directory component, then add one. - case $file in - */* | *\\*) . $file ;; - *) . ./$file ;; - esac - - # Add the libdir to current_libdirs if it is the destination. - if test "X$destdir" = "X$libdir"; then - case "$current_libdirs " in - *" $libdir "*) ;; - *) current_libdirs="$current_libdirs $libdir" ;; - esac - else - # Note the libdir as a future libdir. - case "$future_libdirs " in - *" $libdir "*) ;; - *) future_libdirs="$future_libdirs $libdir" ;; - esac - fi - - dir=`$echo "X$file" | $Xsed -e 's%/[^/]*$%%'`/ - test "X$dir" = "X$file/" && dir= - dir="$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 "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. - if test "$inst_prefix_dir" = "$destdir"; then - $echo "$modename: error: cannot install \`$file' to a directory not ending in $libdir" 1>&2 - exit $EXIT_FAILURE - fi - - if test -n "$inst_prefix_dir"; then - # Stick the inst_prefix_dir data into the link command. - relink_command=`$echo "$relink_command" | $SP2NL | $SED "s%@inst_prefix_dir@%-inst-prefix-dir $inst_prefix_dir%" | $NL2SP` - else - relink_command=`$echo "$relink_command" | $SP2NL | $SED "s%@inst_prefix_dir@%%" | $NL2SP` - fi - - $echo "$modename: warning: relinking \`$file'" 1>&2 - $show "$relink_command" - if $run eval "$relink_command"; then : - else - $echo "$modename: error: relink \`$file' with the above command before installing it" 1>&2 - exit $EXIT_FAILURE - fi - fi - - # See the names of the shared library. - set dummy $library_names - if test -n "$2"; then - realname="$2" - shift - shift - - srcname="$realname" - test -n "$relink_command" && srcname="$realname"T - - # Install the shared library and build the symlinks. - $show "$install_prog $dir/$srcname $destdir/$realname" - $run eval "$install_prog $dir/$srcname $destdir/$realname" || exit $? - if test -n "$stripme" && test -n "$striplib"; then - $show "$striplib $destdir/$realname" - $run 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 - if test "$linkname" != "$realname"; then - $show "(cd $destdir && { $LN_S -f $realname $linkname || { $rm $linkname && $LN_S $realname $linkname; }; })" - $run eval "(cd $destdir && { $LN_S -f $realname $linkname || { $rm $linkname && $LN_S $realname $linkname; }; })" - fi - done - fi - - # Do each command in the postinstall commands. - lib="$destdir/$realname" - cmds=$postinstall_cmds - save_ifs="$IFS"; IFS='~' - for cmd in $cmds; do - IFS="$save_ifs" - eval cmd=\"$cmd\" - $show "$cmd" - $run eval "$cmd" || { - lt_exit=$? - - # Restore the uninstalled library and exit - if test "$mode" = relink; then - $run eval '(cd $output_objdir && $rm ${realname}T && $mv ${realname}U $realname)' - fi - - exit $lt_exit - } - done - IFS="$save_ifs" - fi - - # Install the pseudo-library for information purposes. - name=`$echo "X$file" | $Xsed -e 's%^.*/%%'` - instname="$dir/$name"i - $show "$install_prog $instname $destdir/$name" - $run eval "$install_prog $instname $destdir/$name" || exit $? - - # Maybe install the static library, too. - test -n "$old_library" && staticlibs="$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 - destfile=`$echo "X$file" | $Xsed -e 's%^.*/%%'` - destfile="$destdir/$destfile" - fi - - # Deduce the name of the destination old-style object file. - case $destfile in - *.lo) - staticdest=`$echo "X$destfile" | $Xsed -e "$lo2o"` - ;; - *.$objext) - staticdest="$destfile" - destfile= - ;; - *) - $echo "$modename: cannot copy a libtool object to \`$destfile'" 1>&2 - $echo "$help" 1>&2 - exit $EXIT_FAILURE - ;; - esac - - # Install the libtool object if requested. - if test -n "$destfile"; then - $show "$install_prog $file $destfile" - $run eval "$install_prog $file $destfile" || exit $? - fi - - # Install the old object if enabled. - if test "$build_old_libs" = yes; then - # Deduce the name of the old-style object file. - staticobj=`$echo "X$file" | $Xsed -e "$lo2o"` - - $show "$install_prog $staticobj $staticdest" - $run 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 - destfile=`$echo "X$file" | $Xsed -e 's%^.*/%%'` - 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 - file=`$echo $file|${SED} 's,.exe$,,'` - stripped_ext=".exe" - fi - ;; - esac - - # Do a test to see if this is really a libtool program. - case $host in - *cygwin*|*mingw*) - wrapper=`$echo $file | ${SED} -e 's,.exe$,,'` - ;; - *) - wrapper=$file - ;; - esac - if (${SED} -e '4q' $wrapper | grep "^# Generated by .*$PACKAGE")>/dev/null 2>&1; then - notinst_deplibs= - relink_command= - - # Note that it is not necessary on cygwin/mingw to append a dot to - # foo even if both foo 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. - # - # If there is no directory component, then add one. - case $wrapper in - */* | *\\*) . ${wrapper} ;; - *) . ./${wrapper} ;; - esac - - # Check the variables that should have been set. - if test -z "$notinst_deplibs"; then - $echo "$modename: invalid libtool wrapper script \`$wrapper'" 1>&2 - exit $EXIT_FAILURE - fi - - finalize=yes - for lib in $notinst_deplibs; do - # Check to see that each library is installed. - libdir= - if test -f "$lib"; then - # If there is no directory component, then add one. - case $lib in - */* | *\\*) . $lib ;; - *) . ./$lib ;; - esac - fi - libfile="$libdir/"`$echo "X$lib" | $Xsed -e 's%^.*/%%g'` ### testsuite: skip nested quoting test - if test -n "$libdir" && test ! -f "$libfile"; then - $echo "$modename: warning: \`$lib' has not been installed in \`$libdir'" 1>&2 - finalize=no - fi - done - - relink_command= - # Note that it is not necessary on cygwin/mingw to append a dot to - # foo even if both foo 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. - # - # If there is no directory component, then add one. - case $wrapper in - */* | *\\*) . ${wrapper} ;; - *) . ./${wrapper} ;; - esac - - outputname= - if test "$fast_install" = no && test -n "$relink_command"; then - if test "$finalize" = yes && test -z "$run"; then - tmpdir=`func_mktempdir` - file=`$echo "X$file$stripped_ext" | $Xsed -e 's%^.*/%%'` - outputname="$tmpdir/$file" - # Replace the output file specification. - relink_command=`$echo "X$relink_command" | $SP2NL | $Xsed -e 's%@OUTPUT@%'"$outputname"'%g' | $NL2SP` - - $show "$relink_command" - if $run eval "$relink_command"; then : - else - $echo "$modename: error: relink \`$file' with the above command before installing it" 1>&2 - ${rm}r "$tmpdir" - continue - fi - file="$outputname" - else - $echo "$modename: warning: cannot relink \`$file'" 1>&2 - fi - else - # Install the binary that we compiled earlier. - file=`$echo "X$file$stripped_ext" | $Xsed -e "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) - destfile=`$echo $destfile | ${SED} -e 's,.exe$,,'` - ;; - esac - ;; - esac - $show "$install_prog$stripme $file $destfile" - $run eval "$install_prog\$stripme \$file \$destfile" || exit $? - test -n "$outputname" && ${rm}r "$tmpdir" - ;; - esac - done - - for file in $staticlibs; do - name=`$echo "X$file" | $Xsed -e 's%^.*/%%'` - - # Set up the ranlib parameters. - oldlib="$destdir/$name" - - $show "$install_prog $file $oldlib" - $run eval "$install_prog \$file \$oldlib" || exit $? - - if test -n "$stripme" && test -n "$old_striplib"; then - $show "$old_striplib $oldlib" - $run eval "$old_striplib $oldlib" || exit $? - fi - - # Do each command in the postinstall commands. - cmds=$old_postinstall_cmds - save_ifs="$IFS"; IFS='~' - for cmd in $cmds; do - IFS="$save_ifs" - eval cmd=\"$cmd\" - $show "$cmd" - $run eval "$cmd" || exit $? - done - IFS="$save_ifs" - done - - if test -n "$future_libdirs"; then - $echo "$modename: warning: remember to run \`$progname --finish$future_libdirs'" 1>&2 - fi - - if test -n "$current_libdirs"; then - # Maybe just do a dry run. - test -n "$run" && current_libdirs=" -n$current_libdirs" - exec_cmd='$SHELL $progpath $preserve_args --finish$current_libdirs' - else - exit $EXIT_SUCCESS - fi - ;; - - # libtool finish mode - finish) - modename="$modename: finish" - libdirs="$nonopt" - admincmds= - - if test -n "$finish_cmds$finish_eval" && test -n "$libdirs"; then - for dir - do - libdirs="$libdirs $dir" - done - - for libdir in $libdirs; do - if test -n "$finish_cmds"; then - # Do each command in the finish commands. - cmds=$finish_cmds - save_ifs="$IFS"; IFS='~' - for cmd in $cmds; do - IFS="$save_ifs" - eval cmd=\"$cmd\" - $show "$cmd" - $run eval "$cmd" || admincmds="$admincmds - $cmd" - done - IFS="$save_ifs" - fi - if test -n "$finish_eval"; then - # Do the single finish_eval. - eval cmds=\"$finish_eval\" - $run eval "$cmds" || admincmds="$admincmds - $cmds" - fi - done - fi - - # Exit here if they wanted silent mode. - test "$show" = : && exit $EXIT_SUCCESS - - $echo "X----------------------------------------------------------------------" | $Xsed - $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" - $echo "more information, such as the ld(1) and ld.so(8) manual pages." - $echo "X----------------------------------------------------------------------" | $Xsed - exit $EXIT_SUCCESS - ;; - - # libtool execute mode - execute) - modename="$modename: execute" - - # The first argument is the command name. - cmd="$nonopt" - if test -z "$cmd"; then - $echo "$modename: you must specify a COMMAND" 1>&2 - $echo "$help" - exit $EXIT_FAILURE - fi - - # Handle -dlopen flags immediately. - for file in $execute_dlfiles; do - if test ! -f "$file"; then - $echo "$modename: \`$file' is not a file" 1>&2 - $echo "$help" 1>&2 - exit $EXIT_FAILURE - fi - - dir= - case $file in - *.la) - # Check to see that this really is a libtool archive. - if (${SED} -e '2q' $file | grep "^# Generated by .*$PACKAGE") >/dev/null 2>&1; then : - else - $echo "$modename: \`$lib' is not a valid libtool archive" 1>&2 - $echo "$help" 1>&2 - exit $EXIT_FAILURE - fi - - # Read the libtool library. - dlname= - library_names= - - # If there is no directory component, then add one. - case $file in - */* | *\\*) . $file ;; - *) . ./$file ;; - esac - - # Skip this library if it cannot be dlopened. - if test -z "$dlname"; then - # Warn if it was a shared library. - test -n "$library_names" && $echo "$modename: warning: \`$file' was not linked with \`-export-dynamic'" - continue - fi - - dir=`$echo "X$file" | $Xsed -e 's%/[^/]*$%%'` - test "X$dir" = "X$file" && dir=. - - if test -f "$dir/$objdir/$dlname"; then - dir="$dir/$objdir" - else - $echo "$modename: cannot find \`$dlname' in \`$dir' or \`$dir/$objdir'" 1>&2 - exit $EXIT_FAILURE - fi - ;; - - *.lo) - # Just add the directory containing the .lo file. - dir=`$echo "X$file" | $Xsed -e 's%/[^/]*$%%'` - test "X$dir" = "X$file" && dir=. - ;; - - *) - $echo "$modename: warning \`-dlopen' is ignored for non-libtool libraries and objects" 1>&2 - 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 - -*) ;; - *) - # Do a test to see if this is really a libtool program. - if (${SED} -e '4q' $file | grep "^# Generated by .*$PACKAGE") >/dev/null 2>&1; then - # If there is no directory component, then add one. - case $file in - */* | *\\*) . $file ;; - *) . ./$file ;; - esac - - # Transform arg to wrapped name. - file="$progdir/$program" - fi - ;; - esac - # Quote arguments (to preserve shell metacharacters). - file=`$echo "X$file" | $Xsed -e "$sed_quote_subst"` - args="$args \"$file\"" - done - - if test -z "$run"; 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 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 - ;; - - # libtool clean and uninstall mode - clean | uninstall) - modename="$modename: $mode" - 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) rm="$rm $arg"; rmforce=yes ;; - -*) rm="$rm $arg" ;; - *) files="$files $arg" ;; - esac - done - - if test -z "$rm"; then - $echo "$modename: you must specify an RM program" 1>&2 - $echo "$help" 1>&2 - exit $EXIT_FAILURE - fi - - rmdirs= - - origobjdir="$objdir" - for file in $files; do - dir=`$echo "X$file" | $Xsed -e 's%/[^/]*$%%'` - if test "X$dir" = "X$file"; then - dir=. - objdir="$origobjdir" - else - objdir="$dir/$origobjdir" - fi - name=`$echo "X$file" | $Xsed -e 's%^.*/%%'` - test "$mode" = uninstall && objdir="$dir" - - # Remember objdir for removal later, being careful to avoid duplicates - if test "$mode" = clean; then - case " $rmdirs " in - *" $objdir "*) ;; - *) rmdirs="$rmdirs $objdir" ;; - 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 (${SED} -e '2q' $file | grep "^# Generated by .*$PACKAGE") >/dev/null 2>&1; then - . $dir/$name - - # Delete the libtool libraries and symlinks. - for n in $library_names; do - rmfiles="$rmfiles $objdir/$n" - done - test -n "$old_library" && rmfiles="$rmfiles $objdir/$old_library" - - case "$mode" in - clean) - case " $library_names " in - # " " in the beginning catches empty $dlname - *" $dlname "*) ;; - *) rmfiles="$rmfiles $objdir/$dlname" ;; - esac - test -n "$libdir" && rmfiles="$rmfiles $objdir/$name $objdir/${name}i" - ;; - uninstall) - if test -n "$library_names"; then - # Do each command in the postuninstall commands. - cmds=$postuninstall_cmds - save_ifs="$IFS"; IFS='~' - for cmd in $cmds; do - IFS="$save_ifs" - eval cmd=\"$cmd\" - $show "$cmd" - $run eval "$cmd" - if test "$?" -ne 0 && test "$rmforce" != yes; then - exit_status=1 - fi - done - IFS="$save_ifs" - fi - - if test -n "$old_library"; then - # Do each command in the old_postuninstall commands. - cmds=$old_postuninstall_cmds - save_ifs="$IFS"; IFS='~' - for cmd in $cmds; do - IFS="$save_ifs" - eval cmd=\"$cmd\" - $show "$cmd" - $run eval "$cmd" - if test "$?" -ne 0 && test "$rmforce" != yes; then - exit_status=1 - fi - done - IFS="$save_ifs" - fi - # FIXME: should reinstall the best remaining shared library. - ;; - esac - fi - ;; - - *.lo) - # Possibly a libtool object, so verify it. - if (${SED} -e '2q' $file | grep "^# Generated by .*$PACKAGE") >/dev/null 2>&1; then - - # Read the .lo file - . $dir/$name - - # Add PIC object to the list of files to remove. - if test -n "$pic_object" \ - && test "$pic_object" != none; then - rmfiles="$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 - rmfiles="$rmfiles $dir/$non_pic_object" - fi - fi - ;; - - *) - if test "$mode" = clean ; then - noexename=$name - case $file in - *.exe) - file=`$echo $file|${SED} 's,.exe$,,'` - noexename=`$echo $name|${SED} 's,.exe$,,'` - # $file with .exe has already been added to rmfiles, - # add $file without .exe - rmfiles="$rmfiles $file" - ;; - esac - # Do a test to see if this is a libtool program. - if (${SED} -e '4q' $file | grep "^# Generated by .*$PACKAGE") >/dev/null 2>&1; then - relink_command= - . $dir/$noexename - - # note $name still contains .exe if it was in $file originally - # as does the version of $file that was added into $rmfiles - rmfiles="$rmfiles $objdir/$name $objdir/${name}S.${objext}" - if test "$fast_install" = yes && test -n "$relink_command"; then - rmfiles="$rmfiles $objdir/lt-$name" - fi - if test "X$noexename" != "X$name" ; then - rmfiles="$rmfiles $objdir/lt-${noexename}.c" - fi - fi - fi - ;; - esac - $show "$rm $rmfiles" - $run $rm $rmfiles || exit_status=1 - done - objdir="$origobjdir" - - # Try to remove the ${objdir}s in the directories where we deleted files - for dir in $rmdirs; do - if test -d "$dir"; then - $show "rmdir $dir" - $run rmdir $dir >/dev/null 2>&1 - fi - done - - exit $exit_status - ;; - - "") - $echo "$modename: you must specify a MODE" 1>&2 - $echo "$generic_help" 1>&2 - exit $EXIT_FAILURE - ;; - esac - - if test -z "$exec_cmd"; then - $echo "$modename: invalid operation mode \`$mode'" 1>&2 - $echo "$generic_help" 1>&2 - exit $EXIT_FAILURE - fi -fi # test -z "$show_help" - -if test -n "$exec_cmd"; then - eval exec $exec_cmd - exit $EXIT_FAILURE -fi - -# We need to display help for each of the modes. -case $mode in -"") $echo \ -"Usage: $modename [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 - --finish same as \`--mode=finish' - --help display this help message and exit - --mode=MODE use operation mode MODE [default=inferred from MODE-ARGS] - --quiet same as \`--silent' - --silent don't print informational messages - --tag=TAG use configuration variables from tag TAG - --version print version information - -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. Try \`$modename --help --mode=MODE' for -a more detailed description of MODE. - -Report bugs to ." - exit $EXIT_SUCCESS - ;; - -clean) - $echo \ -"Usage: $modename [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: $modename [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 - -prefer-pic try to building PIC objects only - -prefer-non-pic try to building non-PIC objects only - -static always build a \`.o' file suitable for static linking - -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: $modename [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: $modename [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: $modename [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 rest of the components are interpreted as arguments to that command (only -BSD-compatible install options are recognized)." - ;; - -link) - $echo \ -"Usage: $modename [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 - -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 - -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] - -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: $modename [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." - ;; - -*) - $echo "$modename: invalid operation mode \`$mode'" 1>&2 - $echo "$help" 1>&2 - exit $EXIT_FAILURE - ;; -esac - -$echo -$echo "Try \`$modename --help' for more information about other modes." - -exit $? - -# 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 -disable_libs=shared -# ### END LIBTOOL TAG CONFIG: disable-shared - -# ### BEGIN LIBTOOL TAG CONFIG: disable-static -disable_libs=static -# ### END LIBTOOL TAG CONFIG: disable-static - -# Local Variables: -# mode:shell-script -# sh-indentation:2 -# End: diff --git a/libpqtypes/missing b/libpqtypes/missing deleted file mode 100755 index 894e786..0000000 --- a/libpqtypes/missing +++ /dev/null @@ -1,360 +0,0 @@ -#! /bin/sh -# Common stub for a few missing GNU programs while installing. - -scriptversion=2005-06-08.21 - -# Copyright (C) 1996, 1997, 1999, 2000, 2002, 2003, 2004, 2005 -# 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, write to the Free Software -# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA -# 02110-1301, 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. - -if test $# -eq 0; then - echo 1>&2 "Try \`$0 --help' for more information" - exit 1 -fi - -run=: - -# 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' - 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 - tar try tar, gnutar, gtar, then tar without non-portable flags - yacc create \`y.tab.[ch]', if possible, from existing .[ch] - -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 - -# 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). -case "$1" in - lex|yacc) - # Not GNU programs, they don't have --version. - ;; - - tar) - if test -n "$run"; then - echo 1>&2 "ERROR: \`tar' requires --run" - exit 1 - elif test "x$2" = "x--version" || test "x$2" = "x--help"; then - exit 1 - fi - ;; - - *) - 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 "$1" 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 's/.*--output[ =]*\([^ ]*\).*/\1/p'` - test -z "$file" && file=`echo "$*" | sed -n 's/.*-o[ ]*\([^ ]*\).*/\1/p'` - 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 [ $# -ne 1 ]; then - eval LASTARG="\${$#}" - case "$LASTARG" in - *.y) - SRCFILE=`echo "$LASTARG" | sed 's/y$/c/'` - if [ -f "$SRCFILE" ]; then - cp "$SRCFILE" y.tab.c - fi - SRCFILE=`echo "$LASTARG" | sed 's/y$/h/'` - if [ -f "$SRCFILE" ]; then - cp "$SRCFILE" y.tab.h - fi - ;; - esac - fi - if [ ! -f y.tab.h ]; then - echo >y.tab.h - fi - if [ ! -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 [ $# -ne 1 ]; then - eval LASTARG="\${$#}" - case "$LASTARG" in - *.l) - SRCFILE=`echo "$LASTARG" | sed 's/l$/c/'` - if [ -f "$SRCFILE" ]; then - cp "$SRCFILE" lex.yy.c - fi - ;; - esac - fi - if [ ! -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 's/.*-o \([^ ]*\).*/\1/p'` - if test -z "$file"; then - file=`echo "$*" | sed -n 's/.*--output=\([^ ]*\).*/\1/p'` - fi - if [ -f "$file" ]; then - touch $file - else - test -z "$file" || exec >$file - echo ".ab help2man is required to generate this page" - exit 1 - 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 's/.*-o \([^ ]*\).*/\1/p'` - 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 - ;; - - tar) - shift - - # We have already tried tar in the generic part. - # Look for gnutar/gtar before invocation to avoid ugly error - # messages. - if (gnutar --version > /dev/null 2>&1); then - gnutar "$@" && exit 0 - fi - if (gtar --version > /dev/null 2>&1); then - gtar "$@" && exit 0 - fi - firstarg="$1" - if shift; then - case "$firstarg" in - *o*) - firstarg=`echo "$firstarg" | sed s/o//` - tar "$firstarg" "$@" && exit 0 - ;; - esac - case "$firstarg" in - *h*) - firstarg=`echo "$firstarg" | sed s/h//` - tar "$firstarg" "$@" && exit 0 - ;; - esac - fi - - echo 1>&2 "\ -WARNING: I can't seem to be able to run \`tar' with the given arguments. - You may want to install GNU tar or Free paxutils, or check the - command line arguments." - exit 1 - ;; - - *) - 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-end: "$" -# End: diff --git a/libpqtypes/src/array.c b/libpqtypes/src/array.c deleted file mode 100644 index 6319b28..0000000 --- a/libpqtypes/src/array.c +++ /dev/null @@ -1,278 +0,0 @@ - -/* - * array.c - * Type handler for the array data type. - * - * Copyright (c) 2011 eSilo, LLC. All rights reserved. - * This is free software; see the source for copying conditions. There is - * NO warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR - * PURPOSE. - */ - -#include "libpqtypes-int.h" - -int -pqt_put_array(PGtypeArgs *args) -{ - int i; - int hasnull=0; - int ndims; - int nitems; - int arrsize; - char *out; - int lbound[MAXDIM]; - int dims[MAXDIM]; - PGarray *arr = va_arg(args->ap, PGarray *); - - PUTNULLCHK(args, arr); - - if (arr->ndims < 0) - return args->errorf(args, "arr.ndims is invalid - %d", arr->ndims); - - /* auto configure when ndims is 0 to 1d array */ - if (arr->ndims == 0) - { - ndims = 1; - dims[0] = arr->param->vcnt; - lbound[0] = 1; - } - else - { - ndims = arr->ndims; - memcpy(lbound, arr->lbound, sizeof(lbound)); - memcpy(dims, arr->dims, sizeof(dims)); - } - - nitems = 1; - for (i=0; i < ndims; i++) - nitems *= dims[i]; - - /* make sure array is on the same page as the param */ - if (nitems != arr->param->vcnt) - return args->errorf(args, - "param element count %d is different than array's %d", - arr->param->vcnt, nitems); - - /* header: ndims + hasnull + elemtype + ((dims + lbound) * ndims) */ - arrsize = 4 + 4 + 4 + (8 * ndims); - - /* compute data length, also get the hasnull flag */ - for (i=0; i < arr->param->vcnt; i++) - { - if (arr->param->vals[i].format == 0) - return args->errorf(args, "Cannot put array elements in text format"); - - arrsize += 4; - if (arr->param->vals[i].datal == NULL_LEN) - hasnull = 1; - else - arrsize += arr->param->vals[i].datal; - } - - /* make sure args->put.out is large enough */ - if (args->put.expandBuffer(args, arrsize) == -1) - return -1; - - out = args->put.out; - - /* number od dimensions */ - pqt_buf_putint4(out, ndims); - out += 4; - - /* array hasnull flag */ - pqt_buf_putint4(out, hasnull); - out += 4; - - /* array element oid */ - pqt_buf_putint4(out, args->typhandler->typoid); - out += 4; - - /* dims and lbound */ - for (i=0; i < ndims; i++) - { - pqt_buf_putint4(out, dims[i]); - out += 4; - - pqt_buf_putint4(out, lbound[i]); - out += 4; - } - - /* write the element lengths and data */ - for (i=0; i < arr->param->vcnt; i++) - { - pqt_buf_putint4(out, arr->param->vals[i].datal); - out += 4; - - if (arr->param->vals[i].datal > 0) - { - memcpy(out, arr->param->vals[i].data, arr->param->vals[i].datal); - out += arr->param->vals[i].datal; - } - } - - return arrsize; -} - -int -pqt_get_array(PGtypeArgs *args) -{ - int i,t; - int vlen; - int ntups; - int nattrs; - Oid elemoid; - DECLVALUE(args); - PGresult *res; - int first_tup; - PGarray *arr = va_arg(args->ap, PGarray *); - - CHKGETVALS(args, arr); - - if (args->format == TEXTFMT) - return args->errorf(args, "array does not support text results"); - - /* number of dims */ - arr->ndims = pqt_buf_getint4(value); - value += 4; - - /* skip NULL flag */ - value += 4; - - /* check the element oid */ - elemoid = (Oid)pqt_buf_getint4(value); - if (elemoid != args->typhandler->typoid) - return args->errorf(args, - "array element type %u is different than what server says %u", - args->typhandler->typoid, elemoid); - value += 4; - - /* arr dims and lbounds */ - first_tup = 1; - for (i=0, ntups=1; i < arr->ndims; i++) - { - arr->dims[i] = pqt_buf_getint4(value); - value += 4; - - arr->lbound[i] = pqt_buf_getint4(value); - value += 4; - - ntups *= arr->dims[i]; - } - - /* This means ndims is zero because the above loop never iterated. */ - if (i == 0) - ntups = 0; - - /* numTuples is the number of array items - * and numAttributes is 1 for non-composites. - */ - nattrs = (args->typhandler->nattrs > 0) ? args->typhandler->nattrs : 1; - - if (!(res = pqt_copyresult(args, nattrs))) - RERR_MEM(args); - - for (t=0; t < ntups; t++) - { - /* get the value len */ - vlen = pqt_buf_getint4(value); - value += 4; - - /* Regular Array with 1 attr per tuple */ - if (args->typhandler->nattrs == 0) - { - /* set the field value */ - if (!PQsetvalue(res, t, 0, value, vlen)) - { - PQclear(res); - return -1; - } - - if (vlen > 0) - value += vlen; - - continue; - } - - /* ------------------------ - * COMPOSITE/RECORD - */ - - /* NULL compsoite array item, fill in attrs with NULL */ - if (vlen == NULL_LEN) - { - int x; - - for (x=0; x < nattrs; x++) - { - if (!PQsetvalue(res, t, x, NULL, NULL_LEN)) - { - PQclear(res); - return -1; - } - } - - /* move on to next tuple, done here. */ - continue; - } - - /* verify that server's attr count matches ours */ - if (first_tup) - { - int attcnt = pqt_buf_getint4(value); - - /* watch for invalidation issues */ - if (attcnt != nattrs) - { - PQclear(res); - return args->errorf(args, - "type handler attribute count is %d but server says it's %d", - args->typhandler->nattrs, attcnt); - } - } - - /* skip attr count */ - value += 4; - - /* composite attributes (record columns) */ - for (i=0; i < nattrs; i++) - { - /* watch for invalidation issues */ - if (first_tup && - (Oid) pqt_buf_getint4(value) != args->typhandler->attDescs[i].attoid) - { - Oid server_oid = (Oid) pqt_buf_getint4(value); - - args->errorf(args, - "type handler attribute OID is %u but server says it's %u", - args->typhandler->attDescs[i].attoid, server_oid); - - PQclear(res); - return -1; - } - - /* skip oid */ - value += 4; - - /* get the value length */ - vlen = pqt_buf_getint4(value); - value += 4; - - /* set the field value */ - if (!PQsetvalue(res, t, i, value, vlen)) - { - PQclear(res); - return -1; - } - - if (vlen > 0) - value += vlen; - } - - first_tup = 0; - } - - arr->res = res; - return 0; -} - - diff --git a/libpqtypes/src/datetime.c b/libpqtypes/src/datetime.c deleted file mode 100644 index 2f61e46..0000000 --- a/libpqtypes/src/datetime.c +++ /dev/null @@ -1,1707 +0,0 @@ - -/* - * datetime.c - * Type handler for TIME, TIMETZ, DATE, TIMESTAMP and TIMESTAMPTZ - * data types. Also includes public function PQlocalTZInfo. - * - * Copyright (c) 2011 eSilo, LLC. All rights reserved. - * This is free software; see the source for copying conditions. There is - * NO warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR - * PURPOSE. - */ - -/* Microsoft went overboard with these warnings. This avoids - * warnings about _timezone and _tzname. The alternatives - * provided by microsoft are terrible. All other warnings, - * like strdup, snprintf, strcpy, etc.. have been avoided - * by using Microsoft alternate functions. This whole thing - * is completely moronic. - */ -#define _CRT_SECURE_NO_WARNINGS - -#include "libpqtypes-int.h" - -#if defined(PQT_WIN32) || defined(HAVE_TIME_H) -# include -#endif - -#if defined(HAVE_CONFIG_H) && defined(HAVE_SYS_TIME_H) -# include -#endif - -#define MINGMTOFF -53940 /* -1459 */ -#define MAXGMTOFF 53940 /* +1459 */ -#define ISVALIDGMTOFF(off) ((off) >= MINGMTOFF && (off) <= MAXGMTOFF) - -#define CHECKDATEVALS(_args, _d) do{ \ - if ((_d)->year < 0) \ - RERR(_args, "invalid year value ... cannot be negative"); \ - if ((_d)->mon < 0 || (_d)->mon > 11) \ - RERR(_args, "invalid month value ... range is 0 to 11"); \ - if ((_d)->mday < 1 || (_d)->mday > 31) \ - RERR(_args, "invalid day value ... range is 1 to 31"); \ -}while (0) - -#define CHECKTIMEVALS(_args, _t, _withtz) do{ \ - if ((_t)->hour < 0 || (_t)->hour > 23) \ - RERR(_args, "invalid hour value ... range is 0 to 23"); \ - if ((_t)->min < 0 || (_t)->min > 59) \ - RERR(_args, "invalid minute value ... range is 0 to 59"); \ - if ((_t)->sec < 0 || (_t)->sec > 60) \ - RERR(_args, "invalid second value ... range is 0 to 60"); \ - if ((_t)->usec < 0 || (_t)->usec > 999999) \ - RERR(_args, "invalid microsecond value ... range is 0 to 999999"); \ - if ((_withtz) && !ISVALIDGMTOFF((_t)->gmtoff)) \ - return (_args)->errorf(_args, \ - "invalid gmtoff value ... range is %d to %d", MINGMTOFF, MAXGMTOFF); \ -}while (0) - -#define MONTHS_PER_YEAR 12 -#define SECS_PER_YEAR (36525 * 864) /* avoid floating-point computation */ -#define SECS_PER_DAY 86400 -#define SECS_PER_HOUR 3600 -#define SECS_PER_MINUTE 60 -#define MINS_PER_HOUR 60 -#define USECS_PER_DAY PQT_INT64CONST(86400000000) -#define USECS_PER_HOUR PQT_INT64CONST(3600000000) -#define USECS_PER_MINUTE PQT_INT64CONST(60000000) -#define USECS_PER_SEC PQT_INT64CONST(1000000) -#define UNIX_EPOCH_JDATE 2440588 /* == date2j(1970, 1, 1) */ -#define POSTGRES_EPOCH_JDATE 2451545 /* == date2j(2000, 1, 1) */ - -#define TS_PREC_INV 1000000.0 -#define TSROUND(j) (rint(((double) (j)) * TS_PREC_INV) / TS_PREC_INV) - -/* round off to MAX_TIME_PRECISION decimal places */ -#define TIME_PREC_INV 10000000000.0 -#define TIMEROUND(j) (rint(((double) (j)) * TIME_PREC_INV) / TIME_PREC_INV) - -#define TMODULO(t,q,u) \ -do { \ - (q) = (int) (((t) < 0) ? ceil((t) / (u)) : floor((t) / (u))); \ - if ((q) != 0) (t) -= rint((q) * (u)); \ -} while (0) - -/* Converts "1209 BC" notation to "-1208" */ -#define BC2YEAR(_isbc, _yr) (_isbc) ? -((_yr) - 1) : (_yr) -/* Converts "-1208" to "1209 BC" notation */ -#define YEAR2BC(_yr) ((_yr) <= 0) ? -((_yr) - 1) : (_yr) - -/* date & time functions */ -static int date2j(int y, int m, int d); -static void gmtoff2name(int gmtoff, char *tzNameBuf, size_t size); -static void tzabbr2info(const char *tzabbr, int *gmtoff, int *isdst); -static int text2time(char *timestr, PGtime *time, int withtz); -static int text2interval(char *intvlstr, PGinterval *interval); -static int text2date(const char *datestr, PGdate *date, - const char *datestyle); -static int bin2pgdate(int d, PGdate *date); -static int bin2pgtime(double t, int gmtoff, PGtime *time, int withtz); -static int bin2pginterval(double tval, int days, int mons, - PGinterval *interval); -static int bin2pgts(double ts, PGtimestamp *pgts, int withtz); -static char *time2t(PGtypeArgs *args, PGtime *t, void *val); - -#ifdef PQT_WINAPI -static char *_win32_tzabbr(const char *fullname); -#endif - -#if defined(HAVE_CONFIG_H) && !defined(HAVE_FLOOR) -static double -floor(double x) -{ - /* also works if modf always returns a positive fractional part */ - double val; - return modf(x, &val) < 0 ? val - 1.0 : val ; -} -#endif - -#if defined(HAVE_CONFIG_H) && !defined(HAVE_CEIL) -static double -ceil(double x) -{ - /* also works if modf always returns a positive fractional part */ - double val; - return modf(x, &val) > 0 ? val + 1.0 : val ; -} -#endif - -/* MSVC and unixes w/o rint */ -#if defined(PQT_MSVC) || (defined(HAVE_CONFIG_H) && !defined(HAVE_RINT)) -static double -rint(double x) -{ - double f, n = 0.; - - f = modf(x, &n); - - if (x > 0.) - { - if (f > .5) - n += 1.; - } - else if (x < 0.) - { - if (f < -.5) - n -= 1.; - } - - return n; -} -#endif - -/* - * time: PGtime members must be set: hour, min, sec, usec. - * timetz: PGtime members must be set: hour, min, sec, usec, gmtoff. - */ -static int -put_time2(PGtypeArgs *args, int withtz) -{ - int r=8; - char tbuf[8]; - PGtime *time = va_arg(args->ap, PGtime *); - - PUTNULLCHK(args, time); - CHECKTIMEVALS(args, time, withtz); - - pqt_swap8(args->put.out, time2t(args, time, tbuf), 1); - - if (withtz) - { - pqt_buf_putint4(args->put.out + 8, -time->gmtoff); - r += 4; - } - - return r; -} - -int -pqt_put_time(PGtypeArgs *args) -{ - return put_time2(args, 0); -} - -int -pqt_put_timetz(PGtypeArgs *args) -{ - return put_time2(args, 1); -} - -/* Also handles timetz */ -static int -get_time2(PGtypeArgs *args, int withtz) -{ - DECLVALUE(args); - double t; - int gmtoff=0; - char tbuf[8]; - PGtime *time = va_arg(args->ap, PGtime *); - - CHKGETVALS(args, time); - - if (args->format == TEXTFMT) - { - if (text2time(value, time, withtz) == -1) - RERR(args, "invalid time format"); - return 0; - } - - /* read and convert binary data */ - pqt_swap8(tbuf, value, 0); - if (withtz) - gmtoff = -pqt_buf_getint4(value + 8); - - /* Convert 8 byte integer format to double precision. */ - if (args->fmtinfo->integer_datetimes) - { - PGint8 n = *(PGint8 *) tbuf; - t = (double) n / 1000000.0; - } - else - { - t = *(double *) tbuf; - } - - /* convert binary data to a PGtime */ - if (bin2pgtime(t, gmtoff, time, withtz) == -1) - RERR(args, "negative julian day detected"); - - return 0; -} - -int -pqt_get_time(PGtypeArgs *args) -{ - return get_time2(args, 0); -} - -int -pqt_get_timetz(PGtypeArgs *args) -{ - return get_time2(args, 1); -} - -/* PGdate members required isbc, year, mon, mday */ -int -pqt_put_date(PGtypeArgs *args) -{ - int dval; - PGdate *date = va_arg(args->ap, PGdate *); - - PUTNULLCHK(args, date); - CHECKDATEVALS(args, date); - - dval = date2j(BC2YEAR(date->isbc, date->year), date->mon+1, date->mday) - - POSTGRES_EPOCH_JDATE; - - pqt_buf_putint4(args->put.out, dval); - return 4; -} - -int -pqt_get_date(PGtypeArgs *args) -{ - DECLVALUE(args); - int d; - PGdate *date = va_arg(args->ap, PGdate *); - - CHKGETVALS(args, date); - - if (args->format == TEXTFMT) - { - if (text2date(value, date, args->fmtinfo->datestyle) == -1) - RERR(args, "invalid date format"); - return 0; - } - - d = pqt_buf_getint4(value); - if (bin2pgdate(d, date) == -1) - RERR(args, "binary date conversion failed"); - - return 0; -} - -/* - * timestamp: The timestamp is never converted from what is provided. The - * timezone info is dropped as pgtype 'time' has no concept of timezones. - * The following PGtimestamp members must be set: date.isbc, date.year, - * date.mon, date.mday, time.hour, time.min, time.sec, time.usec. - * - * timestamptz: The timestamptz is always converted to GMT. Its adjusted - * by PGtime.gmtoff, so set this value to zero if you already have GMT. - * The following PGtimestamp members must be set: date.isbc, date.year, - * date.mon, date.mday, time.hour, time.min, time.sec, time.usec, - * time.gmtoff. - */ -static int -put_timestamp2(PGtypeArgs *args, int withtz) -{ - char tbuf[8]; - int year, mon; - PGtimestamp *pgts = va_arg(args->ap, PGtimestamp *); - PGtime *t = &pgts->time; - - PUTNULLCHK(args, pgts); - CHECKDATEVALS(args, &pgts->date); - CHECKTIMEVALS(args, t, withtz); - - mon = pgts->date.mon + 1; - year = BC2YEAR(pgts->date.isbc, pgts->date.year); - - time2t(args, t, tbuf); - - if (args->fmtinfo->integer_datetimes) - { - PGint8 time = *(PGint8 *) tbuf; - int date = date2j(year, mon, pgts->date.mday) - POSTGRES_EPOCH_JDATE; - PGint8 val = (PGint8) (date * USECS_PER_DAY + time); - - /* check for major overflow */ - if ((val - time) / USECS_PER_DAY != date) - RERR(args, "timestamp overflow"); - - /* check for just-barely overflow (okay except time-of-day wraps) */ - if ((val < 0 && date >= 0) || (val >= 0 && date < 0)) - RERR(args, "timestamp overflow"); - - /* currently in localtime, convert to GMT */ - if (withtz) - val -= (t->gmtoff * USECS_PER_SEC); - - pqt_swap8(args->put.out, &val, 1); - } - else - { - double time = *(double *) tbuf; - double date = date2j(year, mon, pgts->date.mday) - POSTGRES_EPOCH_JDATE; - double val = (double) (date * SECS_PER_DAY + time); - - /* currently in localtime, convert to GMT */ - if (withtz) - val -= (t->gmtoff); - - pqt_swap8(args->put.out, &val, 1); - } - - return 8; -} - -int -pqt_put_timestamp(PGtypeArgs *args) -{ - return put_timestamp2(args, 0); -} - -int -pqt_put_timestamptz(PGtypeArgs *args) -{ - return put_timestamp2(args, 1); -} - -/* Also handles timestamptz */ -static int -get_timestamp2(PGtypeArgs *args, int withtz) -{ - DECLVALUE(args); - char tsbuf[8]; - double ts; - PGtimestamp *pgts = va_arg(args->ap, PGtimestamp *); - - CHKGETVALS(args, pgts); - - if (args->format == TEXTFMT) - { - double time; - double date; - int year; - - if (text2date(value, &pgts->date, args->fmtinfo->datestyle) == -1) - RERR(args, "invalid date format"); - - if (text2time(value, &pgts->time, withtz) == -1) - RERR(args, "invalid time format"); - - /* compute ts & epoch values. */ - time2t(NULL, &pgts->time, &time); - year = BC2YEAR(pgts->date.isbc, pgts->date.year); - date = date2j(year, pgts->date.mon+1, pgts->date.mday) - - POSTGRES_EPOCH_JDATE; - ts = (double) (date * SECS_PER_DAY + time); - - /* currently in localtime, convert to GMT */ - if (pgts->time.withtz) - ts -= (pgts->time.gmtoff); - - pgts->epoch = (PGint8) rint(ts - ((double) pgts->time.usec/1000000.0) + - (POSTGRES_EPOCH_JDATE - UNIX_EPOCH_JDATE) * SECS_PER_DAY); - - return 0; - } - - pqt_swap8(tsbuf, value, 0); - - /* Convert 8 byte integer format to double precision. */ - if (args->fmtinfo->integer_datetimes) - { - PGint8 n = *(PGint8 *) tsbuf; - ts = (double)n / 1000000.0; - } - else - { - ts = *(double *) tsbuf; - } - - if (bin2pgts(ts, pgts, withtz) == -1) - RERR(args, "negative julian day detected"); - - return 0; -} - -int -pqt_get_timestamp(PGtypeArgs *args) -{ - return get_timestamp2(args, 0); -} - -int -pqt_get_timestamptz(PGtypeArgs *args) -{ - return get_timestamp2(args, 1); -} - -int -pqt_put_interval(PGtypeArgs *args) -{ - int day; - int month; - PGinterval *intvl = va_arg(args->ap, PGinterval *); - - PUTNULLCHK(args, intvl); - - month = intvl->years * MONTHS_PER_YEAR + intvl->mons; - day = intvl->days; - - if (args->fmtinfo->integer_datetimes) - { - PGint8 val = (PGint8) ((((((intvl->hours * PQT_INT64CONST(60)) + - intvl->mins) * PQT_INT64CONST(60)) + intvl->secs) * USECS_PER_SEC) + - intvl->usecs); - - pqt_swap8(args->put.out, &val, 1); - } - else - { - double val = (double) ((((intvl->hours * (double) MINS_PER_HOUR) + - intvl->mins) * (double) SECS_PER_MINUTE) + (double) intvl->secs - + ((double) intvl->usecs/1000000.0)); - - pqt_swap8(args->put.out, &val, 1); - } - - pqt_buf_putint4(args->put.out + 8, day); - pqt_buf_putint4(args->put.out + 12, month); - return 16; /* val(8) + day(4) + mon(4) */ - -} - -int -pqt_get_interval(PGtypeArgs *args) -{ - DECLVALUE(args); - double tval; - int mons; - int days; - char tvalbuf[8]; - PGinterval *interval = va_arg(args->ap, PGinterval *); - - CHKGETVALS(args, interval); - - if (args->format == TEXTFMT) - { - if (text2interval(value, interval)== -1) - RERR(args, "invalid interval format"); - return 0; - } - - pqt_swap8(tvalbuf, value, 0); - days = pqt_buf_getint4(value + 8); - mons = pqt_buf_getint4(value + 12); - - /* Convert 8 byte integer format to double precision. */ - if (args->fmtinfo->integer_datetimes) - { - PGint8 n = *(PGint8 *) tvalbuf; - tval = (double) n / 1000000.0; - } - else - { - tval = *(double *) tvalbuf; - } - - if (bin2pginterval(tval, days, mons, interval) == -1) - RERR(args, "binary interval conversion failed"); - return 0; -} - -void -PQlocalTZInfo(time_t *t, int *gmtoff, int *isdst, char **tzabbr) -{ -#if defined(HAVE_STRUCT_TM_TM_ZONE) || defined(HAVE_TM_ZONE) || \ - defined(HAVE_TZNAME) - time_t tbuf; - struct tm *loc; - struct tm buf; - - if (!t) - { - tbuf = time(NULL); - t = &tbuf; - } - -# ifdef HAVE_LOCALTIME_R - /* return value inconsistent. for instance: HP-UX 10 returns an int */ - loc = &buf; - localtime_r(t, loc); -# else - buf.tm_hour = 0; /* avoid compiler warning about unreferenced variable */ - loc = localtime(t); -# endif - - *gmtoff = 0; - *isdst = loc->tm_isdst==1 ? 1 : loc->tm_isdst==0 ? 0 : -1; - if (tzabbr) - *tzabbr = ""; - -# ifdef HAVE_STRUCT_TM_TM_GMTOFF - *gmtoff = (int) loc->tm_gmtoff; -# endif - -# if defined(HAVE_STRUCT_TM_TM_ZONE) || defined(HAVE_TM_ZONE) - if (tzabbr) - *tzabbr = (char *) loc->tm_zone; - - /* Use global timezone and tzname variables */ -# elif defined(HAVE_TZNAME) - *gmtoff = -((loc->tm_isdst > 0) ? pqt_timezone - SECS_PER_HOUR : - pqt_timezone); - if (tzabbr) - *tzabbr = pqt_tzname[(loc->tm_isdst > 0)]; - - /* When winapi is defined, msvc/mingw, tzname contains the windows - * timezone names, like "Eastern Daylight Time" instead of EDT. This - * function will map these names to the standard abbrev. - */ -# ifdef PQT_WINAPI - if (tzabbr) - *tzabbr = _win32_tzabbr(*tzabbr); -# endif -# endif /* HAVE_TZNAME */ - -#else - *gmtoff = 0; - *isdst = -1; - if (tzabbr) - *tzabbr = ""; -#endif /* HAVE_STRUCT_TM_TM_ZONE || HAVE_TM_ZONE || HAVE_TZNAME */ -} - -static char * -time2t(PGtypeArgs *args, PGtime *t, void *val) -{ - if (args && args->fmtinfo->integer_datetimes) - *(PGint8 *) val = (PGint8) (((((t->hour * MINS_PER_HOUR + t->min) * - SECS_PER_MINUTE) + t->sec) * USECS_PER_SEC) + t->usec); - else - *(double *) val = (double) (((t->hour * MINS_PER_HOUR + t->min) * - SECS_PER_MINUTE) + t->sec + (t->usec/1000000.0)); - return val; -} - -static int -text2date(const char *datestr, PGdate *date, const char *datestyle) -{ - int year; - - while (isspace((int) *datestr)) - ++datestr; - - errno = 0; - - /* ISO, SQL or German ('1997-12-17', '12/17/1997', '17.12.1997') */ - if (isdigit((int) *datestr)) - { - int n[3]; - - n[0] = (int) strtol(datestr, (char **) &datestr, 10); - if (errno || (*datestr!='-' && *datestr!='/' && *datestr!='.')) - return -1; - - n[1] = (int) strtol(datestr+1, (char **) &datestr, 10); - if (errno || (*datestr!='-' && *datestr!='/' && *datestr!='.')) - return -1; - - n[2] = (int) strtol(datestr+1, (char **) &datestr, 10); - if (errno) - return -1; - - if (!*datestyle || strstr(datestyle, "ISO") || strstr(datestyle, "YMD")) - { - date->year = n[0]; - date->mon = n[1]; - date->mday = n[2]; - } - else if (strstr(datestyle, "DMY")) - { - date->mday = n[0]; - date->mon = n[1]; - date->year = n[2]; - } - else /* MDY */ - { - date->mon = n[0]; - date->mday = n[1]; - date->year = n[2]; - } - - date->mon--; - } - /* Postgres style: 'Thu Dec 13 19:42:52.442126 2007 EST' */ - else - { - static char *monnames[] = {"jan", "feb", "mar", "apr", "may", - "jun", "jul", "aug", "sep", "oct","nov", "dec"}; - - int i; - - /* skip day of week name */ - if (!(datestr = strchr(datestr, ' '))) - return -1; - datestr++; - - /* datestr is the day DMY */ - if (isdigit((int) *datestr)) - { - date->mday = (int) strtol(datestr, (char **) &datestr, 10); - if (errno) - return -1; - - datestr++; - for (i=0; i < 12; i++) - { - if (pqt_strncasecmp(datestr, monnames[i], 3)==0) - { - date->mon = i; - break; - } - } - - if (i == 12) - return -1; - - datestr += 4; /* skip space after monname */ - } - /* datestr is the monname MDY */ - else - { - int i; - - for (i=0; i < 12; i++) - { - if (pqt_strncasecmp(datestr, monnames[i], 3)==0) - { - date->mon = i; - break; - } - } - - if (i == 12) - return -1; - - datestr += 4; /* skip space after monname */ - date->mday = (int) strtol(datestr, (char **) &datestr, 10); - if (errno) - return -1; - datestr++; /* space after month day */ - } - - /* skip time */ - if (!(datestr = strchr(datestr, ' '))) - return -1; - - date->year = (int) strtol(datestr, NULL, 10); - if (errno) - return -1; - } - - if (date->mday < 0 || date->mday > 31) - return -1; - - if (date->mon < 0 || date->mon > 11) - return -1; - - date->isbc = strstr(datestr, " BC") ? 1 : 0; - year = BC2YEAR(date->isbc, date->year); - date->jday = date2j(year, date->mon+1, date->mday); - date->wday = (date->jday + 1) % 7; - date->yday = date->jday - date2j(year, 1, 1); - return 0; -} - -/* timestr can be a valid timestamp[tz] or time[tz]. */ -static int -text2time(char *timestr, PGtime *time, int withtz) -{ - char *p; - - memset(time, 0, sizeof(PGtime)); - time->isdst = -1; - - if (!(p = strchr(timestr, ':'))) - return -1; - - timestr = p - 2; - errno = 0; - - time->hour = (int) strtol(timestr, ×tr, 10); - if (errno || *timestr != ':' || time->hour < 0 || time->hour > 23) - return -1; - - time->min = (int) strtol(timestr+1, ×tr, 10); - if (errno || *timestr != ':' || time->min < 0 || time->min > 59) - return -1; - - time->sec = (int) strtol(timestr+1, ×tr, 10); - if (errno || time->sec < 0 || time->sec > 59) - return -1; - - if (*timestr == '.') - { - int i=0; - char buf[7]; - - timestr++; - - /* Need 6 digits for usecs to work with strtol, so pad with zeros. */ - memset(buf, '0', 6); - buf[6] = 0; - while (isdigit((int) *timestr)) - buf[i++] = *timestr++; - - time->usec = (int) strtol(buf, NULL, 10); - if (errno || time->usec < 0 || time->usec > 999999) - return -1; - } - - /* no timezone present */ - if (!withtz) - return 0; - - - /* --------------------------------- - * Following ISO 8601, also detecting timezone abbrev. - */ - - time->withtz = 1; - - /* UTC, using 'Z' encoding '00:00:00Z' */ - if (*timestr == 'Z') - { - pqt_strcpy(time->tzabbr, sizeof(time->tzabbr), "UTC"); - timestr++; - } - /* have gmtoff */ - else if (*timestr=='-' || *timestr=='+') - { - int hour = 0; - int min = 0; - int sec = 0; - char sign = *timestr++; - char buf[3]; - - buf[0] = *timestr++; - buf[1] = *timestr++; - buf[2] = 0; - hour = (int) strtol(buf, NULL, 10); - if (errno) - return -1; - - /* +/-hh:mm:ss case (support seconds) */ - if (*timestr == ':') - timestr++; - - /* have minute field */ - if (isdigit((int) *timestr)) - { - buf[0] = *timestr++; - buf[1] = *timestr++; - min = (int) strtol(buf, NULL, 10); - if (errno) - return -1; - - if (*timestr == ':') - timestr++; - - /* have second field */ - if (isdigit((int) *timestr)) - { - buf[0] = *timestr++; - buf[1] = *timestr++; - sec = (int) strtol(buf, NULL, 10); - if (errno) - return -1; - } - } - - time->gmtoff = (hour * 3600) + (min * 60) + sec; - if (sign == '-') - time->gmtoff = -time->gmtoff; - - if (!ISVALIDGMTOFF(time->gmtoff)) - return -1; - } - - /* find the beginning of tzname */ - while (*timestr && !isalpha((int) *timestr)) - timestr++; - - if (*timestr) - { - /* find timezone abbrev end */ - if (!(p = strchr(timestr, ' '))) - p = timestr + strlen(timestr); - - memcpy(time->tzabbr, timestr, p - timestr); - time->tzabbr[p - timestr] = 0; - - /* BC is not a timezone, false-positive */ - if (strcmp(time->tzabbr, "BC")==0) - *time->tzabbr = 0; - } - - if (time->gmtoff != 0 && !*time->tzabbr) - gmtoff2name(time->gmtoff, time->tzabbr, sizeof(time->tzabbr)); - else if (time->gmtoff==0 && *time->tzabbr) - tzabbr2info(time->tzabbr, &time->gmtoff, &time->isdst); - - return 0; -} - -static int -text2interval(char *istr, PGinterval *interval) -{ - char *s; - PGtime pgtime; - int is_before = 0; - - errno = 0; - memset(interval, 0, sizeof(PGinterval)); - - is_before = strstr(istr, "ago") ? 1 : 0; - - if ((s = strstr(istr, " year"))) - { - for (s=s-1; s > istr && !isspace((int) *s); --s) ; - interval->years = (int)strtol(s, NULL, 10); - if (errno) - return -1; - if (!is_before) - is_before = interval->years < 0; - } - - if ((s = strstr(istr, " mon"))) - { - for (s=s-1; s > istr && !isspace((int) *s); --s) ; - interval->mons = (int)strtol(s, NULL, 10); - if (errno) - return -1; - if (!is_before) - is_before = interval->mons < 0; - } - - if ((s = strstr(istr, " day"))) - { - for (s=s-1; s > istr && !isspace((int) *s); --s) ; - interval->days = (int) strtol(s, NULL, 10); - if (errno) - return -1; - if (!is_before) - is_before = interval->days < 0; - } - - /* Means ISO DateStyle is in use, uses the 00:00:00 time format */ - if (text2time(istr, &pgtime, 0) == 0) - { - interval->usecs = pgtime.usec; - interval->secs = pgtime.sec; - interval->mins = pgtime.min; - interval->hours = pgtime.hour; - - /* text2time doesn't support negative values, detect is_before here. - * Find first ':' and subtract two-digit year + possible minus sign. - */ - if (!is_before) - is_before = (s = strchr(istr, ':')) && (*(s - 3) == '-'); - } - /* Means POSTGRES, SQL or GERMAN DateStyle is in use. */ - else - { - if ((s = strstr(istr, " hour"))) - { - for (s=s-1; s > istr && !isspace((int) *s); --s) ; - interval->hours = (int) strtol(s, NULL, 10); - if (errno) - return -1; - } - - if ((s = strstr(istr, " min"))) - { - for (s=s-1; s > istr && !isspace((int) *s); --s) ; - interval->mins = (int) strtol(s, NULL, 10); - if (errno) - return -1; - } - - if ((s = strstr(istr, " sec"))) - { - for (s=s-1; s > istr && !isspace((int) *s); --s) ; - interval->secs = (int) strtol(s, &s, 10); - if (errno) - return -1; - - /* usecs */ - if (*s == '.') - { - int i=0; - char buf[7]; - memset(buf, '0', 6); - buf[6] = 0; - for (s=s+1; isdigit((int) *s); s++) - buf[i++] = *s; - interval->usecs = atoi(buf); - } - } - } - - /* flip unit signs where still needed */ - if (is_before) - { - if (interval->years > 0) - interval->years = -interval->years; - if (interval->mons > 0) - interval->mons = -interval->mons; - if (interval->days > 0) - interval->days = -interval->days; - if (interval->hours > 0) - interval->hours = -interval->hours; - if (interval->mins > 0) - interval->mins = -interval->mins; - if (interval->secs > 0) - interval->secs = -interval->secs; - if (interval->usecs > 0) - interval->usecs = -interval->usecs; - } - - return 0; -} - -/* Uses ISO 8601 GMT+/-hhmmss notation. See tzabbr2info as well. */ -static void -gmtoff2name(int gmtoff, char *buf, size_t size) -{ - char sign; - int mins; - int secs; - - if (gmtoff < 0) - { - sign = '-'; - gmtoff = -gmtoff; - } - else - { - sign = '+'; - } - - mins = gmtoff % 3600; - secs = mins % 60; - - if (secs == 0) - pqt_snprintf(buf, size, "GMT%c%02d%02d", sign, gmtoff/3600, mins/60); - else - pqt_snprintf(buf, size, "GMT%c%02d%02d%02d", - sign, gmtoff/3600, mins/60, secs); -} - -static int -date2j(int y, int m, int d) -{ - int julian; - int century; - - if (m > 2) - { - m += 1; - y += 4800; - } - else - { - m += 13; - y += 4799; - } - - century = y / 100; - julian = y * 365 - 32167; - julian += y / 4 - century + century / 4; - julian += 7834 * m / 256 + d; - - return julian; -} - -static void -j2date(int jd, int *year, int *month, int *day) -{ - unsigned int julian; - unsigned int quad; - unsigned int extra; - int y; - - julian = jd; - julian += 32044; - quad = julian / 146097; - extra = (julian - quad * 146097) * 4 + 3; - julian += 60 + quad * 3 + extra / 146097; - quad = julian / 1461; - julian -= quad * 1461; - y = julian * 4 / 1461; - julian = ((y != 0) ? ((julian + 305) % 365) : ((julian + 306) % 366)) - + 123; - y += quad * 4; - *year = y - 4800; - quad = julian * 2141 / 65536; - *day = julian - 7834 * quad / 256; - *month = (quad + 10) % 12 + 1; -} - -static void -dt2time(double jd, int *hour, int *min, int *sec, double *fsec) -{ - *hour = (int) (jd / SECS_PER_HOUR); - jd -= (*hour) * SECS_PER_HOUR; - *min = (int) (jd / SECS_PER_MINUTE); - jd -= (*min) * SECS_PER_MINUTE; - *sec = (int) jd; - *fsec = jd - *sec; -} - -static int -bin2pgdate(int dval, PGdate *date) -{ - memset(date, 0, sizeof(PGdate)); - - j2date(dval + POSTGRES_EPOCH_JDATE, &date->year, &date->mon, &date->mday); - date->jday = date2j(date->year, date->mon, date->mday); - date->yday = date->jday - date2j(date->year, 1, 1); - date->wday = (date->jday + 1) % 7; - - if (date->year <= 0) - { - date->isbc = 1; - date->year = -(date->year-1); - } - - date->mon--; - return 0; -} - -/* gmtoff is seconds east of GMT, adjusted prior to call. */ -static int -bin2pgtime(double tval, int gmtoff, PGtime *time, int withtz) -{ - double rem; - - memset(time, 0, sizeof(PGtime)); - time->isdst = -1; /* no way of knowing */ - - if (withtz) - { - time->gmtoff = gmtoff; - gmtoff2name(time->gmtoff, time->tzabbr, sizeof(time->tzabbr)); - time->withtz = 1; - } - - RECALC: - rem = tval; - TMODULO(rem, time->hour, (double) SECS_PER_HOUR); - TMODULO(rem, time->min, (double) SECS_PER_MINUTE); - TMODULO(rem, time->sec, 1.0); - rem = TIMEROUND(rem); - - /* roundoff may need to propagate to higher-order fields */ - if (rem >= 1.0) - { - tval = ceil(tval); - goto RECALC; - } - - time->usec = (int) (rem * 1000000.0); - - return 0; -} - -static int -breakdown_time(double time, double *datep, PGdate *pgdate, - PGtime *pgtime, double *fsec) -{ - double date; - - TMODULO(time, date, (double) SECS_PER_DAY); - - if (time < 0) - { - time += SECS_PER_DAY; - date -= 1; - } - - /* add offset to go from J2000 back to standard Julian date */ - date += POSTGRES_EPOCH_JDATE; - - RECALC_DATE: - /* Julian day routine does not work for negative Julian days */ - if (date < 0 || date > (PGint8) INT_MAX) - return -1; - - j2date((int)date, &pgdate->year, &pgdate->mon, &pgdate->mday); - - RECALC_TIME: - dt2time(time, &pgtime->hour, &pgtime->min, &pgtime->sec, fsec); - *fsec = TSROUND(*fsec); - - /* roundoff may need to propagate to higher-order fields */ - if (*fsec >= 1.0) - { - time = ceil(time); - if (time >= (double) SECS_PER_DAY) - { - time = 0; - date += 1; - goto RECALC_DATE; - } - goto RECALC_TIME; - } - - if (datep) - *datep = date; - return 0; -} - -static int -bin2pgts(double ts, PGtimestamp *pgts, int withtz) -{ - double fsec; - double date; - double time; - - memset(pgts, 0, sizeof(PGtimestamp)); - pgts->time.isdst = -1; - - time = ts; - - /* server sent UTC, convert to localtime. Need to determine the - * gmtoff for the timestamp epoch value (daylight or not). This - * can differ from what zone the machine is in. If its July in - * NY but the timestamp is Jan, we need to apply EST to timestamp - * rather than EDT. - */ - if (withtz) - { - char *tzabbr; - time_t tepoch; - PGtime pgtime; - PGdate pgdate; - PGint8 t64 = (PGint8) rint(ts); - - pgts->epoch = (PGint8) rint((double) t64 + - (POSTGRES_EPOCH_JDATE - UNIX_EPOCH_JDATE) * SECS_PER_DAY); - - /* Safe range for a time_t is 0 - INT_MAX. Some system don't support - * negative values at all. System with 64-bit time_t can support - * wider ranges, but there is no way of determining what that is. - * NOTE: 64-bit time_t systems aren't limited to 31-bit upper values. - */ - if (pgts->epoch < 0 || (sizeof(time_t)==4 && pgts->epoch > INT_MAX)) - { - struct tm tm; - - /* pull out the date and time parts so we can issue a mktime - * call, which gets us epoch. - */ - if (breakdown_time(ts, NULL, &pgdate, &pgtime, &fsec) < 0) - return -1; - - memset(&tm, 0, sizeof(struct tm)); - tm.tm_year = 70; /* out-of-safe-range values use 1970 */ - - /* Daylight time was first used by Germany April 30, 1916. So, - * we only recognize its existence after this date. - */ - if (pgdate.year >= 1916) - tm.tm_mon = pgdate.mon - 1; - else /* Ignore month before Apr 1916, use Jan for standard time */ - tm.tm_mon = 0; - - tm.tm_mday = pgdate.mday; - tm.tm_hour = pgtime.hour; - tm.tm_min = pgtime.min; - tm.tm_sec = pgtime.sec; - tm.tm_isdst = -1; - - tepoch = mktime(&tm); - } - else - { - tepoch = (time_t) pgts->epoch; - } - - /* Have an epoch value that can be used to get TZInfo */ - PQlocalTZInfo(&tepoch, &pgts->time.gmtoff, &pgts->time.isdst, &tzabbr); - pqt_strcpy(pgts->time.tzabbr, sizeof(pgts->time.tzabbr), tzabbr); - - /* adjust postgres timestamp by gmtoff. */ - time += pgts->time.gmtoff; - pgts->time.withtz = 1; - } - - /* breakdown the `localtime' adjusted timestamp */ - if (breakdown_time(time, &date, &pgts->date, &pgts->time, &fsec) < 0) - return -1; - - /* jullian day */ - pgts->date.jday = (int) date; - - /* get the epoch, more accurate than previous calculation */ - pgts->epoch = (PGint8) rint( - ts - fsec + (POSTGRES_EPOCH_JDATE - UNIX_EPOCH_JDATE) * SECS_PER_DAY); - - /* NOTE: dbl_epsilon is too small "2.2204460492503131e-16" */ - pgts->time.usec = (int) (fsec * (1000000.0 + 1E-9)); - - /* use julian day calculations for wday and yday */ - pgts->date.wday = ((int) date + 1) % 7; - pgts->date.yday = (int) date - date2j(pgts->date.year, 1, 1); - - /* Adjust year if this is BC */ - if (pgts->date.year <= 0) - { - pgts->date.year = -(pgts->date.year-1); - pgts->date.isbc = 1; - } - - pgts->date.mon--; - return 0; -} - -static int -bin2pginterval(double tval, int days, int mons, PGinterval *interval) -{ - double time; - double tfrac; - - memset(interval, 0, sizeof(PGinterval)); - - interval->years = mons / MONTHS_PER_YEAR; - interval->mons = mons % MONTHS_PER_YEAR; - interval->days = days; - time = tval; - - RECALC: - TMODULO(time, tfrac, (double) SECS_PER_HOUR); - interval->hours = (int)tfrac; /* could overflow ... */ - - TMODULO(time, tfrac, (double) SECS_PER_MINUTE); - interval->mins = (int)tfrac; - - TMODULO(time, tfrac, 1.0); - interval->secs = (int)tfrac; - - time = TSROUND(time); - /* roundoff may need to propagate to higher-order fields */ - if (time >= 1.0) - { - time = ceil(tval); - goto RECALC; - } - - /* NOTE: dbl_epsilon is too small "2.2204460492503131e-16" */ - interval->usecs = (int) (time * (1000000.0 + 1E-9)); - - return 0; -} - - -/* Generated by the below query: - * - * SELECT '{"' || abbrev || '", ' || - * ((EXTRACT(HOUR FROM utc_offset) * 3600) + - * (EXTRACT(MINUTE FROM utc_offset) * 60) + - * EXTRACT(SECOND FROM utc_offset)) || - * ', ' || (CASE WHEN is_dst THEN 1 ELSE 0 END) || '},' - * FROM pg_timezone_abbrevs; - */ -struct _tzmap_ -{ - const char *abbrev; - int gmtoff; - unsigned char isdst; -}; - -static struct _tzmap_ tzmap[] = { - {"ACSST", 37800, 1}, - {"ACST", -14400, 1}, - {"ACT", -18000, 0}, - {"ADT", -10800, 1}, - {"AESST", 39600, 1}, - {"AEST", 36000, 0}, - {"AFT", 16200, 0}, - {"AKDT", -28800, 1}, - {"AKST", -32400, 0}, - {"ALMST", 25200, 1}, - {"ALMT", 21600, 0}, - {"AMST", 18000, 1}, - {"AMT", 14400, 0}, - {"ANAST", 46800, 1}, - {"ANAT", 43200, 0}, - {"ART", -10800, 0}, - {"AST", -14400, 0}, - {"AWSST", 32400, 1}, - {"AWST", 28800, 0}, - {"AZOST", 0, 1}, - {"AZOT", -3600, 0}, - {"AZST", 18000, 1}, - {"AZT", 14400, 0}, - {"BDST", 7200, 1}, - {"BDT", 21600, 0}, - {"BNT", 28800, 0}, - {"BORT", 28800, 0}, - {"BOT", -14400, 0}, - {"BRA", -10800, 0}, - {"BRST", -7200, 1}, - {"BRT", -10800, 0}, - {"BST", 3600, 1}, - {"BTT", 21600, 0}, - {"CADT", 37800, 1}, - {"CAST", 34200, 0}, - {"CCT", 28800, 0}, - {"CDT", -18000, 1}, - {"CEST", 7200, 1}, - {"CET", 3600, 0}, - {"CETDST", 7200, 1}, - {"CHADT", 49500, 1}, - {"CHAST", 45900, 0}, - {"CKT", 43200, 0}, - {"CLST", -10800, 1}, - {"CLT", -14400, 0}, - {"COT", -18000, 0}, - {"CST", -21600, 0}, - {"CXT", 25200, 0}, - {"DAVT", 25200, 0}, - {"DDUT", 36000, 0}, - {"EASST", -18000, 1}, - {"EAST", -21600, 0}, - {"EAT", 10800, 0}, - {"EDT", -14400, 1}, - {"EEST", 10800, 1}, - {"EET", 7200, 0}, - {"EETDST", 10800, 1}, - {"EGST", 0, 1}, - {"EGT", -3600, 0}, - {"EST", -18000, 0}, - {"FJST", -46800, 1}, - {"FJT", -43200, 0}, - {"FKST", -10800, 1}, - {"FKT", -14400, 0}, - {"FNST", -3600, 1}, - {"FNT", -7200, 0}, - {"GALT", -21600, 0}, - {"GAMT", -32400, 0}, - {"GEST", 14400, 1}, - {"GET", 10800, 0}, - {"GFT", -10800, 0}, - {"GILT", 43200, 0}, - {"GMT", 0, 0}, - {"GYT", -14400, 0}, - {"HKT", 28800, 0}, - {"HST", -36000, 0}, - {"ICT", 25200, 0}, - {"IOT", 21600, 0}, - {"IRKST", 32400, 1}, - {"IRKT", 28800, 0}, - {"IRT", 12600, 0}, - {"IST", 7200, 0}, - {"JAYT", 32400, 0}, - {"JST", 32400, 0}, - {"KDT", 36000, 1}, - {"KGST", 21600, 1}, - {"KGT", 18000, 0}, - {"KOST", 39600, 0}, - {"KRAST", 28800, 1}, - {"KRAT", 25200, 0}, - {"KST", 32400, 0}, - {"LHDT", 39600, 1}, - {"LHST", 37800, 0}, - {"LIGT", 36000, 0}, - {"LINT", 50400, 0}, - {"LKT", 21600, 0}, - {"MAGST", 43200, 1}, - {"MAGT", 39600, 0}, - {"MART", -34200, 0}, - {"MAWT", 21600, 0}, - {"MDT", -21600, 1}, - {"MEST", 7200, 1}, - {"MET", 3600, 0}, - {"METDST", 7200, 1}, - {"MEZ", 3600, 0}, - {"MHT", 43200, 0}, - {"MMT", 23400, 0}, - {"MPT", 36000, 0}, - {"MSD", 14400, 1}, - {"MSK", 10800, 0}, - {"MST", -25200, 0}, - {"MUT", 14400, 0}, - {"MVT", 18000, 0}, - {"MYT", 28800, 0}, - {"NDT", -9000, 1}, - {"NFT", -12600, 0}, - {"NOVST", 25200, 1}, - {"NOVT", 21600, 0}, - {"NPT", 20700, 0}, - {"NST", -12600, 0}, - {"NUT", -39600, 0}, - {"NZDT", 46800, 1}, - {"NZST", 43200, 0}, - {"NZT", 43200, 0}, - {"OMSST", 25200, 1}, - {"OMST", 21600, 0}, - {"PDT", -25200, 1}, - {"PET", -18000, 0}, - {"PETST", 46800, 1}, - {"PETT", 43200, 0}, - {"PGT", 36000, 0}, - {"PHOT", 46800, 0}, - {"PHT", 28800, 0}, - {"PKT", 18000, 0}, - {"PMDT", -7200, 1}, - {"PMST", -10800, 0}, - {"PONT", 39600, 0}, - {"PST", -28800, 0}, - {"PWT", 32400, 0}, - {"PYST", -10800, 1}, - {"PYT", -14400, 0}, - {"RET", 14400, 0}, - {"SADT", 37800, 1}, - {"SAST", 34200, 0}, - {"SCT", 14400, 0}, - {"TAHT", -36000, 0}, - {"TFT", 18000, 0}, - {"TJT", 18000, 0}, - {"TKT", -36000, 0}, - {"TMT", 18000, 0}, - {"TOT", 46800, 0}, - {"TRUT", 36000, 0}, - {"TVT", 43200, 0}, - {"UCT", 0, 0}, - {"ULAST", 32400, 1}, - {"ULAT", 28800, 0}, - {"UT", 0, 0}, - {"UTC", 0, 0}, - {"UYST", -7200, 1}, - {"UYT", -10800, 0}, - {"UZST", 21600, 1}, - {"UZT", 18000, 0}, - {"VET", -14400, 0}, - {"VLAST", 39600, 1}, - {"VLAT", 36000, 0}, - {"VUT", 39600, 0}, - {"WADT", 28800, 1}, - {"WAKT", 43200, 0}, - {"WAST", 25200, 0}, - {"WAT", 3600, 0}, - {"WDT", 32400, 1}, - {"WET", 0, 0}, - {"WETDST", 3600, 1}, - {"WFT", 43200, 0}, - {"WGST", -7200, 1}, - {"WGT", -10800, 0}, - {"YAKST", 36000, 1}, - {"YAKT", 32400, 0}, - {"YAPT", 36000, 0}, - {"YEKST", 21600, 1}, - {"YEKT", 18000, 0}, - {"Z", 0, 0}, - {"ZULU", 0, 0} -}; - -static void -tzabbr2info(const char *tzabbr, int *gmtoff, int *isdst) -{ - int i=0; - - *gmtoff = 0; - *isdst = -1; - - for (i=0; i < countof(tzmap); i++) - { - if (strcmp(tzabbr, tzmap[i].abbrev)==0) - { - *gmtoff = tzmap[i].gmtoff; - *isdst = (int) tzmap[i].isdst; - break; - } - } -} - - -#ifdef PQT_WINAPI -/* ############################################################## - TIME ZONE MAPPING - - Windows doesn't use any abbreviated time zone names, like - EST for Eastern Standard Time. The below list was required - to offer these abbreviations. - - This list was compiled from: - - http://www.date-time-zone.com/ - - which is the same list used by Java. It is a mapping from the windows - registry: "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Time Zones" - to the Olson Timezone Database: - - http://www.twinsun.com/tz/tz-link.htm - - NOTE: The below two time zones had a different display name in the - windows registry. The list was adjusted. - - Signapore Standard Time - Malay Peninsula Standard Time - Israel Standard Time - Jerusalem Standard Time -*/ - -static struct { - const char *abbr; - const char *fullname; -} _tzmap[] = { - {"EST", "AUS Eastern Standard Time" }, - {"EST", "AUS Eastern Daylight Time" }, - {"AFT", "Afghanistan Standard Time" }, - {"AKST", "Alaskan Standard Time" }, - {"AKDT", "Alaskan Daylight Time" }, - {"AST", "Arab Standard Time" }, - {"GST", "Arabian Standard Time" }, - {"AST", "Arabic Standard Time" }, - {"ADT", "Arabic Daylight Time" }, - {"AST", "Atlantic Standard Time" }, - {"ADT", "Atlantic Daylight Time" }, - {"AZOT", "Azores Standard Time" }, - {"AZOST", "Azores Daylight Time" }, - {"CST", "Canada Central Standard Time" }, - {"MDT", "Canada Central Daylight Time" }, - {"CVT", "Cape Verde Standard Time" }, - {"CVST", "Cape Verde Daylight Time" }, - {"GET", "Caucasus Standard Time" }, - {"GEST", "Caucasus Daylight Time" }, - {"CST", "Cen. Australia Standard Time" }, - {"CST", "Cen. Australia Daylight Time" }, - {"CST", "Central Standard Time" }, - {"CDT", "Central Daylight Time" }, - {"CST", "Central Standard Time (Mexico)" }, - {"CDT", "Central Daylight Time (Mexico)" }, - {"CST", "Central America Standard Time" }, - {"CDT", "Central America Daylight Time" }, - {"BDT", "Central Asia Standard Time" }, - {"CET", "Central Europe Standard Time" }, - {"CEST", "Central Europe Daylight Time" }, - {"CET", "Central European Standard Time" }, - {"CEST", "Central European Daylight Time" }, - {"MAGT", "Central Pacific Standard Time" }, - {"MAGST", "Central Pacific Daylight Time" }, - {"CST", "China Standard Time" }, - {"CDT", "China Daylight Time" }, - {"GMT+12", "Dateline Standard Time" }, - {"EAT", "E. Africa Standard Time" }, - {"EST", "E. Australia Standard Time" }, - {"EST", "E. Australia Daylight Time" }, - {"EET", "E. Europe Standard Time" }, - {"EEST", "E. Europe Daylight Time" }, - {"BRT", "E. South America Standard Time" }, - {"BRST", "E. South America Daylight Time" }, - {"EST", "Eastern Standard Time" }, - {"EDT", "Eastern Daylight Time" }, - {"EET", "Egypt Standard Time" }, - {"EEST", "Egypt Daylight Time" }, - {"YEKT", "Ekaterinburg Standard Time" }, - {"YEKST", "Ekaterinburg Daylight Time" }, - {"EET", "FLE Standard Time" }, - {"EEST", "FLE Daylight Time" }, - {"FJT", "Fiji Standard Time" }, - {"FJST", "Fiji Daylight Time" }, - {"GMT", "GMT Standard Time" }, - {"BST", "GMT Daylight Time" }, - {"EET", "GTB Standard Time" }, - {"EEST", "GTB Daylight Time" }, - {"WGT", "Greenland Standard Time" }, - {"WGST", "Greenland Daylight Time" }, - {"WET", "Greenwich Standard Time" }, - {"WEST", "Greenwich Daylight Time" }, - {"HST", "Hawaiian Standard Time" }, - {"HPT", "Hawaiian Daylight Time" }, - {"IST", "India Standard Time" }, - {"IST", "India Daylight Time" }, - {"IRST", "Iran Standard Time" }, - {"IRDT", "Iran Daylight Time" }, - {"IST", "Jerusalem Standard Time" }, - {"IDT", "Jerusalem Daylight Time" }, - {"KST", "Korea Standard Time" }, - {"KDT", "Korea Daylight Time" }, - {"CST", "Mexico Standard Time" }, - {"CDT", "Mexico Daylight Time" }, - {"MST", "Mexico Standard Time 2", }, - {"MDT", "Mexico Daylight Time 2", }, - {"FNT", "Mid-Atlantic Standard Time" }, - {"FNST", "Mid-Atlantic Daylight Time" }, - {"MST", "Mountain Standard Time" }, - {"MDT", "Mountain Daylight Time" }, - {"MST", "Mountain Standard Time (Mexico)" }, - {"MDT", "Mountain Daylight Time (Mexico)" }, - {"MMT", "Myanmar Standard Time" }, - {"NOVT", "N. Central Asia Standard Time" }, - {"NOVST", "N. Central Asia Daylight Time" }, - {"NPT", "Nepal Standard Time" }, - {"NZST", "New Zealand Standard Time" }, - {"NZDT", "New Zealand Daylight Time" }, - {"NST", "Newfoundland Standard Time" }, - {"NDT", "Newfoundland Daylight Time" }, - {"KRAT", "North Asia Standard Time" }, - {"KRAST", "North Asia Daylight Time" }, - {"IRKT", "North Asia East Standard Time" }, - {"IRKST", "North Asia East Daylight Time" }, - {"PST", "Pacific Standard Time" }, - {"PDT", "Pacific Daylight Time" }, - {"CLT", "Pacific SA Standard Time" }, - {"CLST", "Pacific SA Daylight Time" }, - {"CET", "Romance Standard Time" }, - {"CEST", "Romance Daylight Time" }, - {"MSK", "Russian Standard Time" }, - {"MSD", "Russian Daylight Time" }, - {"ART", "SA Eastern Standard Time" }, - {"ARST", "SA Eastern Daylight Time" }, - {"COT", "SA Pacific Standard Time" }, - {"COST", "SA Pacific Daylight Time" }, - {"VET", "SA Western Standard Time" }, - {"ICT", "SE Asia Standard Time" }, - {"WST", "Samoa Standard Time" }, - {"SGT", "Malay Peninsula Standard Time" }, - {"MALST", "Malay Peninsula Daylight Time" }, - {"SAST", "South Africa Standard Time" }, - {"SAST", "South Africa Daylight Time" }, - {"IST", "Sri Lanka Standard Time" }, - {"IST", "Sri Lanka Daylight Time" }, - {"CST", "Taipei Standard Time" }, - {"CDT", "Taipei Daylight Time" }, - {"EST", "Tasmania Standard Time" }, - {"EST", "Tasmania Daylight Time" }, - {"JST", "Tokyo Standard Time" }, - {"JDT", "Tokyo Daylight Time" }, - {"TOT", "Tonga Standard Time" }, - {"TOST", "Tonga Daylight Time" }, - {"EST", "US Eastern Standard Time" }, - {"EDT", "US Eastern Daylight Time" }, - {"MST", "US Mountain Standard Time" }, - {"MDT", "US Mountain Daylight Time" }, - {"VLAT", "Vladivostok Standard Time" }, - {"VLAST", "Vladivostok Daylight Time" }, - {"WST", "W. Australia Standard Time" }, - {"WST", "W. Australia Daylight Time" }, - {"WAT", "W. Central Africa Standard Time" }, - {"CET", "W. Europe Standard Time" }, - {"CEST", "W. Europe Daylight Time" }, - {"PKT", "West Asia Standard Time" }, - {"PKST", "West Asia Daylight Time" }, - {"ChST", "West Pacific Standard Time" }, - {"YAKT", "Yakutsk Standard Time" }, - {"YAKST", "Yakutsk Daylight Time" } -}; - -static char * -_win32_tzabbr(const char *fullname) -{ - int i; - static char empty_string[1] = {0}; - - for (i=0; i < countof(tzmap); i++) - if (pqt_strcasecmp(fullname, _tzmap[i].fullname)==0) - return (char *) _tzmap[i].abbr; - - return empty_string; -} - -#endif - diff --git a/libpqtypes/src/error.c b/libpqtypes/src/error.c deleted file mode 100644 index 1979da2..0000000 --- a/libpqtypes/src/error.c +++ /dev/null @@ -1,114 +0,0 @@ - -/* - * error.c - * The functions in this file represent the libpqtypes error - * system. It offers the API user the ability to set/get errors. - * The error system uses local PGerror structure. - * - * Copyright (c) 2011 eSilo, LLC. All rights reserved. - * This is free software; see the source for copying conditions. There is - * NO warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR - * PURPOSE. - */ - -#include - -#include "libpqtypes-int.h" - -static void -vseterror(PGerror *err, const char *format, va_list ap, int append); - -void -PQseterror(PGerror *err, const char *format, ...) -{ - assert(format != NULL); - va_list ap; - va_start(ap, format); - vseterror(err, format, ap, FALSE); -} - -/* errorf() callback for PGtypeArgs, see PQputf() and PQgetf(). - * Always returns -1. - */ -int -pqt_argserrorf(PGtypeArgs *args, const char *format, ...) -{ - va_list ap; - char fqtn[200]; - - if (!args || !format || !*format) - return -1; - - pqt_fqtn(fqtn, sizeof(fqtn), args->typhandler->typschema, - args->typhandler->typname); - - /* put the header */ - PQseterror(args->err, "%s[pos:%d] - ", fqtn, args->typpos); - - /* append message from type handler */ - va_start(ap, format); - vseterror(args->err, format, ap, TRUE); - return -1; -} - -static void -vseterror(PGerror *err, const char *format, va_list ap, int append) -{ - int n; - int curlen = 0; - int size; - va_list ap2; - char *msg = NULL; - - if (!err) - return; - - if (append) - curlen = (int) strlen(err->msg); - else - *err->msg = 0; - - va_copy(ap2, ap); - n = pqt_vsnprintf(err->msg + curlen, sizeof(err->msg) - curlen, format, ap2); - va_end(ap2); - - if (n > -1) - return; - - /* pqterr_t msg buffer is too small for the complete message. We have - * use a temporary buffer to get a successful sprintf so we can - * pqt_strcpy() the result; which truncates to fit. - */ - size = (int) sizeof(err->msg) * 2; - if (!(msg = (char *) malloc(size))) - return; - - while (1) - { - char *p; - - va_copy(ap2, ap); - n = pqt_vsnprintf(msg + curlen, size - curlen, format, ap2); - va_end(ap2); - - /* success */ - if (n > -1) - break; - - /* need more space */ - n = size * 2; - if (!(p = pqt_realloc(msg, n))) - { - /* we're here because sprintf failed, don't trust buffer contents */ - *msg = 0; - break; - } - - msg = p; - size = n; - } - - pqt_strcpy(err->msg, sizeof(err->msg), msg); - free(msg); -} - diff --git a/libpqtypes/src/events.c b/libpqtypes/src/events.c deleted file mode 100644 index 0256af7..0000000 --- a/libpqtypes/src/events.c +++ /dev/null @@ -1,175 +0,0 @@ - -/* - * events.c - * The libpq PGEventProc implementation. - * - * Copyright (c) 2011 eSilo, LLC. All rights reserved. - * This is free software; see the source for copying conditions. There is - * NO warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR - * PURPOSE. - */ - -#include "libpqtypes-int.h" - -static PGtypeData * -allocTypeData(PGconn *conn); - -static void -freeTypeData(PGtypeData *typeData); - -/* Deprecated, use PQinitTypes instead */ -int -PQtypesRegister(PGconn *conn) -{ - return PQinitTypes(conn); -} - -int -pqt_eventproc(PGEventId id, void *info, void *passThrough) -{ - /* supress warning about this variable being unused */ - (void)passThrough; - switch (id) - { - case PGEVT_REGISTER: - { - PGEventRegister *e = (PGEventRegister *) info; - void *data = allocTypeData(e->conn); - if (!data) - return FALSE; - PQsetInstanceData((PGconn *) e->conn, pqt_eventproc, data); - break; - } - - case PGEVT_CONNRESET: - { - /* No special handling for PGEVT_CONNRESET. Previously, types were - * automatically re-registered but this idea fails miserably during - * asynchronous resets. Yanked in favor of using the following - * call sequence: PQresetXXX, PQclearTypes, PQregisterTypes. - */ - break; - } - - case PGEVT_CONNDESTROY: - { - PGEventConnDestroy *e = (PGEventConnDestroy *) info; - freeTypeData((PGtypeData *) PQinstanceData(e->conn, pqt_eventproc)); - break; - } - - case PGEVT_RESULTCREATE: - { - PGtypeData *resData; - PGEventResultCreate *e = (PGEventResultCreate *) info; - PGtypeData *connData = (PGtypeData *) PQinstanceData( - e->conn, pqt_eventproc); - - if (!connData || !(resData = allocTypeData(e->conn))) - return FALSE; - - /* copy type handlers from PGconn's typeData */ - if (connData->typhcnt > 0) - { - resData->typhandlers = pqt_duphandlers( - connData->typhandlers, connData->typhcnt); - - if (resData->typhandlers) - resData->typhcnt = connData->typhcnt; - } - - /* copy type specs from PGconn's typeData */ - if (connData->typspeccnt > 0) - { - resData->typspecs = pqt_dupspecs( - connData->typspecs, connData->typspeccnt); - - if (resData->typspecs) - resData->typspeccnt = connData->typspeccnt; - } - - PQresultSetInstanceData((PGresult *) e->result, pqt_eventproc, resData); - break; - } - - case PGEVT_RESULTCOPY: - { - PGtypeData *destData; - PGEventResultCopy *e = (PGEventResultCopy *) info; - PGtypeData *srcData = (PGtypeData *) PQresultInstanceData( - e->src, pqt_eventproc); - - if (!srcData || !(destData = allocTypeData(NULL))) - return FALSE; - - memcpy(&destData->fmtinfo, &srcData->fmtinfo, sizeof(PGtypeFormatInfo)); - - /* copy type handlers from PGresult's typeData */ - if (srcData->typhcnt > 0) - { - destData->typhandlers = pqt_duphandlers( - srcData->typhandlers, srcData->typhcnt); - - if (destData->typhandlers) - destData->typhcnt = srcData->typhcnt; - } - - /* copy type specs from PGresult's typeData */ - if (srcData->typspeccnt > 0) - { - destData->typspecs = pqt_dupspecs( - srcData->typspecs, srcData->typspeccnt); - - if (destData->typspecs) - destData->typspeccnt = srcData->typspeccnt; - } - - PQresultSetInstanceData(e->dest, pqt_eventproc, destData); - break; - } - - case PGEVT_RESULTDESTROY: - { - PGEventResultDestroy *e = (PGEventResultDestroy *) info; - freeTypeData((PGtypeData *) PQresultInstanceData( - e->result, pqt_eventproc)); - break; - } - } - - return TRUE; -} - -static PGtypeData * -allocTypeData(PGconn *conn) -{ - PGtypeData *typeData = (PGtypeData *) malloc(sizeof(PGtypeData)); - - if (typeData) - { - memset(typeData, 0, sizeof(PGtypeData)); - - /* get type formatting info from conn */ - if (conn) - pqt_getfmtinfo(conn, &typeData->fmtinfo); - } - - return typeData; -} - -static void -freeTypeData(PGtypeData *typeData) -{ - if (typeData) - { - pqt_cleartypes(typeData); - - pqt_freespecs(typeData->typspecs, typeData->typspeccnt); - typeData->typspecs = NULL; - typeData->typspeccnt = 0; - typeData->typspecmax = 0; - - free(typeData); - } -} - diff --git a/libpqtypes/src/exec.c b/libpqtypes/src/exec.c deleted file mode 100644 index 36b714e..0000000 --- a/libpqtypes/src/exec.c +++ /dev/null @@ -1,577 +0,0 @@ - -/* - * exec.c - * Query execution and data retrieval functions. - * - * Copyright (c) 2011 eSilo, LLC. All rights reserved. - * This is free software; see the source for copying conditions. There is - * NO warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR - * PURPOSE. - */ - -#include "libpqtypes-int.h" - -/* - * Each param value requires an oid, ptr and 2 ints (oid, value, length, - * format). This makes the maximum size of a param 20 bytes. A stack size - * of 4k would allow for 204 query params. If more params are needed, - * heap memory is used. Needing more than 204 param values in a query - * is very rare, although possible. - */ -#define PARAM_STACKSIZE 4096 - -#define BUILD_ARRAYS(rettype) \ - rettype r; \ - char *buf = NULL; \ - Oid *oids = NULL; \ - char **vals = NULL; \ - int *lens = NULL; \ - int *fmts = NULL; \ - int vcnt = 0; \ - char stackbuffer[PARAM_STACKSIZE]; \ -\ - if (!conn) \ - { \ - PQseterror(err, "PGconn cannot be NULL"); \ - return (rettype)(0); \ - } \ -\ - if (param) \ - { \ - buf = stackbuffer; \ - if (!buildArrays(param, err, &buf, &oids, &vals, &lens, &fmts)) \ - return (rettype) (0); \ - vcnt = param->vcnt; \ - } - -#define RETURN_RESULT \ - if (param) \ - { \ - if (buf && buf != stackbuffer) \ - free(buf); \ - } \ - return r - -static int -buildArrays(PGparam *param, PGerror *err, char **buf, Oid **oids, - char ***vals, int **lens, int **fmts); - -static PGresult * -copyExecError(PGconn *conn, PGerror *err, PGresult *r); - -static const char * -getCommand(PGconn *conn, PGerror *err, PGparam *param, const char *command); - -static int -_execvf(PGconn *conn, PGerror *err, const char *cmdspec, va_list ap, PGresult **resp); - -int -PQgetf(const PGresult *res, PGerror *err, int tup_num, const char *format, ...) -{ - int n; - va_list ap; - - va_start(ap, format); - n = PQgetvf(res, err, tup_num, format, ap); - va_end(ap); - - return n; -} - -int -PQgetvf(const PGresult *res, PGerror *err, int tup_num, const char *format, va_list ap) -{ - int r; - PGtypeHandler *h; - PGtypeArgs args; - int typpos = 0; - int flags; - Oid ftype; - PGtypeData *resData; - PGtypeSpec *spec = NULL; - char tmp[200]; - - if (!res) - { - PQseterror(err, "PGresult cannot be NULL"); - return FALSE; - } - - if (!(resData = (PGtypeData *) PQresultInstanceData(res, pqt_eventproc))) - { - PQseterror(err, "PGresult at %p has no event data", res); - return FALSE; - } - - va_copy(args.ap, ap); - - /* "@name" format, lookup typeSpec in cache */ - if(format && *format == '@') - { - spec = pqt_getspec(resData->typspecs, resData->typspeccnt, format + 1); - - /* If we didn't find a type spec, this is an error. A format string - * with a '@' as its first character is reserved. - */ - if (!spec) - { - PQseterror(err, "No such prepared specifier name: '%s'", format + 1); - va_end(args.ap); - return FALSE; - } - } - - while (format && *format) - { - if (spec) - { - /* done, no more handlers in cached spec string. */ - if (typpos == spec->idcnt) - break; - - h = pqt_gethandlerbyid(resData->typhandlers, resData->typhcnt, - spec->idlist[typpos]); - - /* should be an unusual, or a "will never happen", situation */ - if (!h) - { - va_end(args.ap); - PQseterror(err, "Unknown type handler id (column '%s' at position %d", PQfname(res, typpos), typpos+1); - return FALSE; - } - - flags = (int) spec->flags[typpos]; - typpos++; - } - else - { - format = pqt_parse(err, format, resData->typhandlers, resData->typhcnt, - NULL, 0, &h, NULL, &typpos, &flags); - - if (!format) - { - va_end(args.ap); - return FALSE; - } - - if (!h) - continue; - } - - if (flags & TYPFLAG_BYNAME) - args.get.field_num = PQfnumber(res, va_arg(args.ap, const char *)); - else - args.get.field_num = va_arg(args.ap, int); - - /* simplify life for handlers by checking getvalue's return here. */ - if (args.get.field_num < 0 || - !PQgetvalue(res, tup_num, args.get.field_num)) - { - PQseterror(err, - "Invalid tup_num[%d].field_num[%d] (column '%s' at position %d)", - tup_num, args.get.field_num, PQfname(res, typpos-1), typpos); - va_end(args.ap); - return FALSE; - } - - ftype = PQftype(res, args.get.field_num); - if (((flags & TYPFLAG_ARRAY) && ftype != h->typoid_array) || - (!(flags & TYPFLAG_ARRAY) && ftype != h->typoid)) - { - // try to get name of actual type - char tname[200]; - PGtypeHandler *hh = pqt_gethandlerbyoid(resData->typhandlers, resData->typhcnt, ftype); - if (hh != NULL) - pqt_fqtn(tname, sizeof(tname), hh->typschema, hh->typname); - else - strcpy(tname, "???"); - - Oid oid = (flags & TYPFLAG_ARRAY) ? h->typoid_array : h->typoid; - PQseterror(err, - "Trying to get type '%s' (%u) but server returned '%s' (%u) (column '%s' at position %d)", - pqt_fqtn(tmp, sizeof(tmp), h->typschema, h->typname), oid, - tname, ftype, PQfname(res, typpos-1), typpos); - va_end(args.ap); - return FALSE; - } - - args.is_put = 0; - args.get.result = (PGresult *) res; - args.format = PQfformat(res, args.get.field_num); - args.fmtinfo = &resData->fmtinfo; - args.get.tup_num = tup_num; - args.is_ptr = (flags & TYPFLAG_POINTER) ? 1 : 0; - args.err = err; - args.typpos = typpos; - args.typhandler = h; - args.errorf = pqt_argserrorf; - args.super = pqt_argssuper; - - if (flags & TYPFLAG_ARRAY) - r = pqt_get_array(&args); - else - r = h->typget(&args); - - if (r == -1) - { - va_end(args.ap); - return FALSE; - } - } - - va_end(args.ap); - - return TRUE; -} - -/* -------------------------------- - * Exec and Send functions - */ - -PGresult * -PQexecf(PGconn *conn, PGerror *err, const char *cmdspec, ...) -{ - va_list ap; - PGresult *res; - - va_start(ap, cmdspec); - res = PQexecvf(conn, err, cmdspec, ap); - va_end(ap); - - return res; -} - -PGresult * -PQexecvf(PGconn *conn, PGerror *err, const char *cmdspec, va_list ap) -{ - PGresult *res; - (void) _execvf(conn, err, cmdspec, ap, &res); - return res; -} - -int -PQsendf(PGconn *conn, PGerror *err, const char *cmdspec, ...) -{ - int n; - va_list ap; - - va_start(ap, cmdspec); - n = PQsendvf(conn, err, cmdspec, ap); - va_end(ap); - - return n; -} - -int -PQsendvf(PGconn *conn, PGerror *err, const char *cmdspec, va_list ap) -{ - return _execvf(conn, err, cmdspec, ap, NULL); -} - -PGresult * -PQparamExec(PGconn *conn, PGerror *err, PGparam *param, const char *command, - int resultFormat) -{ - BUILD_ARRAYS(PGresult *); - - command = getCommand(conn, err, param, command); - if (!command) - { - r = NULL; - } - else - { - r = PQexecParams(conn, command, vcnt, oids, - (const char *const * ) vals, lens, fmts, resultFormat); - - r = copyExecError(conn, err, r); - } - - RETURN_RESULT; -} - -int -PQparamSendQuery(PGconn *conn, PGerror *err, PGparam *param, const char *command, - int resultFormat) -{ - BUILD_ARRAYS(int); - - command = getCommand(conn, err, param, command); - if (!command) - { - r = FALSE; - } - else - { - r = PQsendQueryParams(conn, command, vcnt, oids, - (const char *const * ) vals, lens, fmts, resultFormat); - - if (!r) - PQseterror(err, "PGconn: %s", PQerrorMessage(conn)); - } - - RETURN_RESULT; -} - -PGresult * -PQparamPrepare(PGconn *conn, PGerror *err, PGparam *param, const char *stmtName, - const char *query) -{ - BUILD_ARRAYS(PGresult *); - - r = PQprepare(conn, stmtName, query, vcnt, oids); - - r = copyExecError(conn, err, r); - - RETURN_RESULT; -} - -PGresult * -PQparamExecPrepared(PGconn *conn, PGerror *err, PGparam *param, const char *stmtName, - int resultFormat) -{ - BUILD_ARRAYS(PGresult *); - - r = PQexecPrepared(conn, stmtName, vcnt, (const char *const * ) vals, - lens, fmts, resultFormat); - - r = copyExecError(conn, err, r); - - RETURN_RESULT; -} - -int -PQparamSendQueryPrepared(PGconn *conn, PGerror *err, PGparam *param, const char *stmtName, - int resultFormat) -{ - BUILD_ARRAYS(int); - - r = PQsendQueryPrepared(conn, stmtName, vcnt, - (const char *const * ) vals, lens, fmts, resultFormat); - - if (!r) - PQseterror(err, "PGconn: %s", PQerrorMessage(conn)); - - RETURN_RESULT; -} - -/* Called by PQexecvf and PQsendvf. When resp is NULL, PQparamSendQuery - * is used to execute the command. Otherwise, PQparamExec is used. The - * return value is always zero when resp is not NULL. When resp is NULL, - * the return value is zero for error and non-zero for success (identical - * to PQparamSendQuery). - */ -static int -_execvf(PGconn *conn, PGerror *err, const char *cmdspec, va_list ap, PGresult **resp) -{ - int retval = 0; - size_t stmt_len=0; - char buffer[8192]; /* could be larger these days but be conservative */ - char *stmt = NULL; - PGparam *param = NULL; - - if (resp) - *resp = NULL; - - if(!conn) - { - PQseterror(err, "PGconn cannot be NULL"); - return FALSE; - } - - if(!cmdspec || !*cmdspec) - { - PQseterror(err, "cmdspec cannot be NULL or an empty string"); - return FALSE; - } - - /* No stmt buf required for preapred type specs */ - if (*cmdspec != '@') - { - /* The resulting parameterized command is guarenteed to be smaller - * than the cmdspec. When needed, enlarge stmt buf to cmdspec length. - */ - stmt_len = strlen(cmdspec) + 1; - - /* stack buffer is too small, use heap */ - if (stmt_len > sizeof(buffer)) - { - if (!(stmt = (char *) malloc(stmt_len))) - { - PQseterror(err, PQT_OUTOFMEMORY); - return FALSE; - } - } - else - { - stmt = buffer; - stmt_len = sizeof(buffer); - } - } - - if ((param = PQparamCreate(conn, err))) - { - if (PQputvf(param, err, stmt, stmt_len, cmdspec, ap)) - { - const char *s = stmt ? stmt : cmdspec; - - if (resp) - *resp = PQparamExec(conn, err, param, s, 1); - else - retval = PQparamSendQuery(conn, err, param, s, 1); - } - - PQparamClear(param); - } - - if (stmt && stmt != buffer) - free(stmt); - - return retval; -} - -/* - * Assigns param values to param arrays, for use with postgres - * parameter API. 'buf' is expected to be PARAM_STACKSIZE bytes. If more - * memory is required, memory is allocated and assigned to *buf, which - * must be freed by caller. To determine if *buf was allocated, compare - * its address to the initially provided stack address. - * Returns 1 on success and 0 on error. - */ -static int -buildArrays(PGparam *param, PGerror *err, char **buf, Oid **oids, - char ***vals, int **lens, int **fmts) -{ - int n; - - /* no params to assign */ - if (param->vcnt == 0) - return 1; - - /* required memory size for the 4 param arrays */ - n = (int) ((sizeof(void *) * param->vcnt) + /* values */ - ((sizeof(int) * 2) * param->vcnt) + /* lengths and formats */ - (sizeof(Oid) * param->vcnt)); /* oids */ - - /* required memory is too large for stack buffer, get some heap */ - if (n > PARAM_STACKSIZE) - { - char *p; - - if (!(p = (char *) malloc(n))) - { - PQseterror(err, PQT_OUTOFMEMORY); - return 0; - } - - *buf = p; - } - - /* give arrays memory from buffer, which could be stack or heap. */ - *vals = (char **) *buf; - *lens = (int *) (*buf + (sizeof(void *) * param->vcnt)); - *fmts = (*lens) + param->vcnt; - *oids = (Oid *) ((*fmts) + param->vcnt); - - /* loop param values and assign value, length, format - * and oid to arrays. - */ - for (n=0; n < param->vcnt; n++) - { - (*oids)[n] = param->vals[n].oid; - (*vals)[n] = param->vals[n].data; - (*lens)[n] = param->vals[n].datal; - (*fmts)[n] = param->vals[n].format; - } - - return 1; -} - -static PGresult * -copyExecError(PGconn *conn, PGerror *err, PGresult *r) -{ - if (!r) - { - PQseterror(err, "PGconn: %s", PQerrorMessage(conn)); - return NULL; - } - - switch (PQresultStatus(r)) - { - case PGRES_COMMAND_OK: - case PGRES_TUPLES_OK: - case PGRES_EMPTY_QUERY: - break; - - default: - { - PQseterror(err, "PGresult: %s", PQresultErrorMessage(r)); - break; - } - } - - return r; -} - -/* Using the param is preferred when both conn and param are provided. - * The conn is there in case the exec has no parameters, NULL param. - */ -static const char * -getCommand(PGconn *conn, PGerror *err, PGparam *param, const char *command) -{ - PGtypeSpec *spec; - int typspeccnt = 0; - PGtypeSpec *typspecs = NULL; - - if (!command) - { - PQseterror(err, "command to execute cannot be NULL"); - return NULL; - } - - if (*command != '@') - return command; - - if (param) - { - typspecs = param->typspecs; - typspeccnt = param->typspeccnt; - } - - /* Try to get instance data from the conn */ - if (!typspecs || typspeccnt == 0) - { - PGtypeData *data = PQinstanceData(conn, pqt_eventproc); - - if (!data) - { - PQseterror(err, "PGconn at %p has no event data", conn); - return NULL; - } - - typspecs = data->typspecs; - typspeccnt = data->typspeccnt; - } - - spec = pqt_getspec(typspecs, typspeccnt, command + 1); - - /* If we didn't find a type spec, this is an error. A format string - * with an '@' as its first character is reserved. - */ - if (!spec) - { - PQseterror(err, "No such prepared specifier name: '%s'", command + 1); - return NULL; - } - - /* make sure type spec was prepared with a statement */ - if (!spec->stmt || !*spec->stmt) - { - PQseterror(err, "Prepared specifier name '%s' has no statement", command + 1); - return NULL; - } - - return (const char *) spec->stmt; -} - - diff --git a/libpqtypes/src/ffi.c b/libpqtypes/src/ffi.c deleted file mode 100644 index 136be5a..0000000 --- a/libpqtypes/src/ffi.c +++ /dev/null @@ -1,5 +0,0 @@ -#include - -// Needed by bindings for passing this in case -// input ByteString is null. -const char pqt_hs_null_string_ptr[1]; diff --git a/libpqtypes/src/geo.c b/libpqtypes/src/geo.c deleted file mode 100644 index bb6b012..0000000 --- a/libpqtypes/src/geo.c +++ /dev/null @@ -1,391 +0,0 @@ - -/* - * geo.c - * Type handler for the geometric data types. - * - * Copyright (c) 2011 eSilo, LLC. All rights reserved. - * This is free software; see the source for copying conditions. There is - * NO warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR - * PURPOSE. - */ - -#include "libpqtypes-int.h" - -static int text2point(PGpoint *pt, char *text, char **endptr); -static int text2points(PGtypeArgs *args, PGpoint **pts, int *npts); -static int bin2points(PGtypeArgs *args, char *valp, int ptcnt, - PGpoint **pts, int *npts); -static int putpoints(PGtypeArgs *args, int npts, PGpoint *pts, - int is_path, int closed); - -int -pqt_put_point(PGtypeArgs *args) -{ - unsigned int *buf; - PGpoint *pt = va_arg(args->ap, PGpoint *); - - PUTNULLCHK(args, pt); - - buf = (unsigned int *) args->put.out; - pqt_swap8(buf, &pt->x, 1); - pqt_swap8(buf + 2, &pt->y, 1); - return 16; -} - -int -pqt_get_point(PGtypeArgs *args) -{ - DECLVALUE(args); - PGpoint *pt = va_arg(args->ap, PGpoint *); - - CHKGETVALS(args, pt); - - if (args->format == TEXTFMT) - { - if (!text2point(pt, value, NULL)) - RERR_STR2INT(args); - - return 0; - } - - pqt_swap8(&pt->x, (unsigned int *) value, 0); - pqt_swap8(&pt->y, ((unsigned int *) (value)) + 2, 0); - return 0; -} - -int -pqt_put_lseg(PGtypeArgs *args) -{ - unsigned int *buf; - PGlseg *lseg = va_arg(args->ap, PGlseg *); - - PUTNULLCHK(args, lseg); - - buf = (unsigned int *) args->put.out; - pqt_swap8(buf, &lseg->pts[0].x, 1); - pqt_swap8(buf + 2, &lseg->pts[0].y, 1); - pqt_swap8(buf + 4, &lseg->pts[1].x, 1); - pqt_swap8(buf + 6, &lseg->pts[1].y, 1); - return 32; -} - -int -pqt_get_lseg(PGtypeArgs *args) -{ - DECLVALUE(args); - unsigned int *v; - PGlseg *lseg = va_arg(args->ap, PGlseg *); - - CHKGETVALS(args, lseg); - - if (args->format == TEXTFMT) - { - PGpoint *pts = (PGpoint *)lseg; - - if (*value++ != '[' || - !text2point(pts, value, &value) || - *value++ != ',' || - !text2point(pts + 1, value, &value) || - *value != ']') - RERR_STR2INT(args); - - return 0; - } - - v = (unsigned int *) value; - pqt_swap8(&lseg->pts[0].x, v, 0); - pqt_swap8(&lseg->pts[0].y, v + 2, 0); - pqt_swap8(&lseg->pts[1].x, v + 4, 0); - pqt_swap8(&lseg->pts[1].y, v + 6, 0); - return 0; -} - -int -pqt_put_box(PGtypeArgs *args) -{ - unsigned int *buf; - PGbox *box = va_arg(args->ap, PGbox *); - - PUTNULLCHK(args, box); - - buf = (unsigned int *) args->put.out; - pqt_swap8(buf, &box->high.x, 1); - pqt_swap8(buf + 2, &box->high.y, 1); - pqt_swap8(buf + 4, &box->low.x, 1); - pqt_swap8(buf + 6, &box->low.y, 1); - return 32; -} - -int -pqt_get_box(PGtypeArgs *args) -{ - DECLVALUE(args); - unsigned int *v; - PGbox *box = va_arg(args->ap, PGbox *); - - CHKGETVALS(args, box); - - if (args->format == TEXTFMT) - { - PGpoint *pts = (PGpoint *)box; - - if (!text2point(pts, value, &value) || - *value++ != ',' || - !text2point(pts + 1, value, NULL)) - RERR_STR2INT(args); - - return 0; - } - - v = (unsigned int *) value; - pqt_swap8(&box->high.x, v, 0); - pqt_swap8(&box->high.y, v + 2, 0); - pqt_swap8(&box->low.x, v + 4, 0); - pqt_swap8(&box->low.y, v + 6, 0); - return 0; -} - -int -pqt_put_circle(PGtypeArgs *args) -{ - unsigned int *buf; - PGcircle *circle = va_arg(args->ap, PGcircle *); - - PUTNULLCHK(args, circle); - - buf = (unsigned int *) args->put.out; - pqt_swap8(buf, &circle->center.x, 1); - pqt_swap8(buf + 2, &circle->center.y, 1); - pqt_swap8(buf + 4, &circle->radius, 1); - return 24; -} - -int -pqt_get_circle(PGtypeArgs *args) -{ - DECLVALUE(args); - unsigned int *v; - PGcircle *circle = va_arg(args->ap, PGcircle *); - - CHKGETVALS(args, circle); - - if (args->format == TEXTFMT) - { - if (*value++ != '<' || - !text2point((PGpoint *)circle, value, &value) || - *value++ != ',' || - !pqt_text_to_float8(&circle->radius, value, &value) || - *value != '>') - RERR_STR2INT(args); - - return 0; - } - - v = (unsigned int *) value; - pqt_swap8(&circle->center.x, v, 0); - pqt_swap8(&circle->center.y, v + 2, 0); - pqt_swap8(&circle->radius, v + 4, 0); - return 0; -} - -int -pqt_put_path(PGtypeArgs *args) -{ - PGpath *path = va_arg(args->ap, PGpath *); - PUTNULLCHK(args, path); - return putpoints(args, path->npts, path->pts, 1, path->closed ? 1 : 0); -} - -int -pqt_get_path(PGtypeArgs *args) -{ - DECLVALUE(args); - PGpath *path = va_arg(args->ap, PGpath *); - - CHKGETVALS(args, path); - - if (args->format == TEXTFMT) - { - path->closed = *value == '(' ? 1 : 0; - return text2points(args, &path->pts, &path->npts); - } - - path->closed = *value ? 1 : 0; - value++; - - return bin2points(args, - value + sizeof(int), /* beginning of point array */ - pqt_buf_getint4(value), /* number of points */ - &path->pts, &path->npts); -} - -int -pqt_put_polygon(PGtypeArgs *args) -{ - PGpolygon *polygon = va_arg(args->ap, PGpolygon *); - PUTNULLCHK(args, polygon); - return putpoints(args, polygon->npts, polygon->pts, 0, 0); -} - -int -pqt_get_polygon(PGtypeArgs *args) -{ - DECLVALUE(args); - PGpolygon *polygon = va_arg(args->ap, PGpolygon *); - - CHKGETVALS(args, polygon); - - if (args->format == TEXTFMT) - return text2points(args, &polygon->pts, &polygon->npts); - - return bin2points(args, - value + sizeof(int), /* beginning of point array */ - pqt_buf_getint4(value), /* number of points */ - &polygon->pts, - &polygon->npts); -} - - -static int -putpoints(PGtypeArgs *args, int npts, PGpoint *pts, - int is_path, int closed) -{ - int i; - int datal; - int hdr = (int) sizeof(int); - char *out; - - /* pts is for a path, include 1 byte open/closed flag */ - if (is_path) - hdr++; - - /* length of binary formated path */ - datal = (npts * sizeof(PGpoint)) + hdr; - - /* make sure out is large enough */ - if (args->put.expandBuffer(args, datal) == -1) - return -1; - - out = args->put.out; - if (is_path) - *out++ = closed ? 1 : 0; /* path open/closed flag */ - - /* write the number of points as an int32 */ - pqt_buf_putint4(out, npts); - out += 4; - - /* assign points to the data 'out' buffer */ - for (i=0; i < npts; i++) - { - pqt_swap8(out, &pts[i].x, 1); - out += sizeof(double); - - pqt_swap8(out, &pts[i].y, 1); - out += sizeof(double); - } - - return datal; -} - -static int -text2points(PGtypeArgs *args, PGpoint **pts, int *npts) -{ - DECLVALUE(args); - char *s; - int cnt = 0; - PGpoint *p = NULL; - - *pts = NULL; - *npts = 0; - - if (*value != '(' && *value != '[') - RERR(args, "malformed point array"); - - /* get the number of points by counting the '(' */ - for (s=value+1; *s; s++) - { - if (*s == '(') - { - if (!(s = strchr(s, ')'))) /* skip point contents */ - break; - cnt++; - } - } - - if (cnt == 0) - return 0; /* empty point list */ - - p = (PGpoint *) PQresultAlloc((PGresult *) args->get.result, - cnt * sizeof(PGpoint)); - if (!p) - RERR_MEM(args); - - for (cnt=0; *++value; ) - { - if (!text2point(&p[cnt++], value, &value)) - RERR_STR2INT(args); - - /* done */ - if (*value != ',') - break; - } - - *pts = p; - *npts = cnt; - return 0; -} - -static int -bin2points(PGtypeArgs *args, char *valp, int ptcnt, - PGpoint **pts, int *npts) -{ - int i; - PGpoint *p; - - *pts = NULL; - *npts = 0; - - if (ptcnt == 0) - return 0; - - p = (PGpoint *) PQresultAlloc((PGresult *) args->get.result, - ptcnt * sizeof(PGpoint)); - - if (!p) - RERR_MEM(args); - - for (i=0; i < ptcnt; i++) - { - pqt_swap8(&p[i].x, valp, 0); - valp += sizeof(double); - - pqt_swap8(&p[i].y, valp, 0); - valp += sizeof(double); - } - - *pts = p; - *npts = ptcnt; - return 0; -} - -static int -text2point(PGpoint *pt, char *text, char **endptr) -{ - if (*text++ != '(') - return 0; - - if (!pqt_text_to_float8(&pt->x, text, &text) || *text++ != ',') - return 0; - - if (!pqt_text_to_float8(&pt->y, text, &text) || *text++ != ')') - return 0; - - if (endptr) - *endptr = text; - return 1; -} - - - - - diff --git a/libpqtypes/src/getaddrinfo.h b/libpqtypes/src/getaddrinfo.h deleted file mode 100644 index 6814db4..0000000 --- a/libpqtypes/src/getaddrinfo.h +++ /dev/null @@ -1,146 +0,0 @@ - -/* - * Copyright (c) 2003-2008, PostgreSQL Global Development Group - * $PostgreSQL: pgsql/src/include/getaddrinfo.h - */ - -#if defined(__CYGWIN__) || (defined(HAVE_CONFIG_H) && \ - !defined(HAVE_GETADDRINFO)) - -#ifndef GETADDRINFO_H -#define GETADDRINFO_H - -#include -#define _XOPEN_SOURCE_EXTENDED 1 -#include - - -/* Various macros that ought to be in , but might not be */ - -#ifndef EAI_FAIL -#define EAI_BADFLAGS (-1) -#define EAI_NONAME (-2) -#define EAI_AGAIN (-3) -#define EAI_FAIL (-4) -#define EAI_FAMILY (-6) -#define EAI_SOCKTYPE (-7) -#define EAI_SERVICE (-8) -#define EAI_MEMORY (-10) -#define EAI_SYSTEM (-11) -#endif /* !EAI_FAIL */ - -#ifndef AI_PASSIVE -#define AI_PASSIVE 0x0001 -#endif - -#ifndef AI_NUMERICHOST -/* - * some platforms don't support AI_NUMERICHOST; define as zero if using - * the system version of getaddrinfo... - */ -#if defined(HAVE_STRUCT_ADDRINFO) && defined(HAVE_GETADDRINFO) -#define AI_NUMERICHOST 0 -#else -#define AI_NUMERICHOST 0x0004 -#endif -#endif - -#ifndef NI_NUMERICHOST -#define NI_NUMERICHOST 1 -#endif -#ifndef NI_NUMERICSERV -#define NI_NUMERICSERV 2 -#endif - -#ifndef NI_MAXHOST -#define NI_MAXHOST 1025 -#endif -#ifndef NI_MAXSERV -#define NI_MAXSERV 32 -#endif - -#ifdef HAVE_STRUCT_SOCKADDR_STORAGE - -#ifndef HAVE_STRUCT_SOCKADDR_STORAGE_SS_FAMILY -#ifdef HAVE_STRUCT_SOCKADDR_STORAGE___SS_FAMILY -#define ss_family __ss_family -#else -#error struct sockaddr_storage does not provide an ss_family member -#endif -#endif - -#ifdef HAVE_STRUCT_SOCKADDR_STORAGE___SS_LEN -#define ss_len __ss_len -#define HAVE_STRUCT_SOCKADDR_STORAGE_SS_LEN 1 -#endif -#else /* !HAVE_STRUCT_SOCKADDR_STORAGE */ - -/* Define a struct sockaddr_storage if we don't have one. */ - -#ifndef __CYGWIN__ -struct sockaddr_storage -{ - union - { - struct sockaddr sa; /* get the system-dependent fields */ - long long int ss_align; /* ensures struct is properly aligned */ - char ss_pad[128]; /* ensures struct has desired size */ - } ss_stuff; -}; -#endif - -#define ss_family ss_stuff.sa.sa_family -/* It should have an ss_len field if sockaddr has sa_len. */ -#ifdef HAVE_STRUCT_SOCKADDR_SA_LEN -#define ss_len ss_stuff.sa.sa_len -#define HAVE_STRUCT_SOCKADDR_STORAGE_SS_LEN 1 -#endif -#endif /* HAVE_STRUCT_SOCKADDR_STORAGE */ - -#ifndef HAVE_STRUCT_ADDRINFO - -struct addrinfo -{ - int ai_flags; - int ai_family; - int ai_socktype; - int ai_protocol; - size_t ai_addrlen; - struct sockaddr *ai_addr; - char *ai_canonname; - struct addrinfo *ai_next; -}; - -#endif /* HAVE_STRUCT_ADDRINFO */ - - - -/* Rename private copies per comments above */ -#ifdef getaddrinfo -#undef getaddrinfo -#endif - -#ifdef freeaddrinfo -#undef freeaddrinfo -#endif - -#ifdef gai_strerror -#undef gai_strerror -#endif - -#ifdef getnameinfo -#undef getnameinfo -#endif - -extern int getaddrinfo(const char *node, const char *service, - const struct addrinfo * hints, struct addrinfo ** res); -extern void freeaddrinfo(struct addrinfo * res); -extern const char *gai_strerror(int errcode); -extern int getnameinfo(const struct sockaddr * sa, int salen, - char *node, int nodelen, - char *service, int servicelen, int flags); - -#endif /* GETADDRINFO_H */ - -#endif /* HAVE_GETADDRINFO */ - diff --git a/libpqtypes/src/handler.c b/libpqtypes/src/handler.c deleted file mode 100644 index 01665cf..0000000 --- a/libpqtypes/src/handler.c +++ /dev/null @@ -1,1090 +0,0 @@ - -/* - * handler.c - * Type handler management functions, the core of the handler system. - * - * Copyright (c) 2011 eSilo, LLC. All rights reserved. - * This is free software; see the source for copying conditions. There is - * NO warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR - * PURPOSE. - */ - -#include "libpqtypes-int.h" - -/* ------------------------- - * Built-in handler defaults: - * base_id, nattrs, freeAttDescs, attDescsBuf, attDescs - */ -#define __HANDLER_DEFAULTS__ -1, 0, 0, {{0}}, NULL - -/* id, schema, typname, typlen, oid, arroid, typput, typget, defaults */ -static PGtypeHandler pg_handlers[] = { - /* character types */ - {0, "pg_catalog", "char", 1, CHAROID, 1002, pqt_put_char, - pqt_get_char, __HANDLER_DEFAULTS__}, - {1, "pg_catalog", "varchar", -1, VARCHAROID, 1015, pqt_put_text, - pqt_get_text, __HANDLER_DEFAULTS__}, /* supports ptr */ - {2, "pg_catalog", "bpchar", -1, BPCHAROID, 1014, pqt_put_text, - pqt_get_text, __HANDLER_DEFAULTS__}, /* supports ptr */ - {3, "pg_catalog", "text", -1, TEXTOID, 1009, pqt_put_text, - pqt_get_text, __HANDLER_DEFAULTS__}, /* supports ptr */ - - /* boolean types */ - {4, "pg_catalog", "bool", 1, BOOLOID, 1000, pqt_put_bool, - pqt_get_bool, __HANDLER_DEFAULTS__}, - - /* numeric types */ - {5, "pg_catalog", "int2", 2, INT2OID, 1005, pqt_put_int2, - pqt_get_int2, __HANDLER_DEFAULTS__}, - {6, "pg_catalog", "int4", 4, INT4OID, 1007, pqt_put_int4, - pqt_get_int4, __HANDLER_DEFAULTS__}, - {7, "pg_catalog", "int8", 8, INT8OID, 1016, pqt_put_int8, - pqt_get_int8, __HANDLER_DEFAULTS__}, - {8, "pg_catalog", "float4", 4, FLOAT4OID, 1021, pqt_put_float4, - pqt_get_float4, __HANDLER_DEFAULTS__}, - {9, "pg_catalog", "float8", 8, FLOAT8OID, 1022, pqt_put_float8, - pqt_get_float8, __HANDLER_DEFAULTS__}, - {10, "pg_catalog", "numeric", -1, NUMERICOID, 1231, pqt_put_numeric, - pqt_get_numeric, __HANDLER_DEFAULTS__}, - - /* bytea types */ - {11, "pg_catalog", "bytea", -1, BYTEAOID, 1001, pqt_put_bytea, - pqt_get_bytea, __HANDLER_DEFAULTS__}, /* supports ptr */ - - /* geometric types */ - {12, "pg_catalog", "point", 16, POINTOID, 1017, pqt_put_point, - pqt_get_point, __HANDLER_DEFAULTS__}, - {13, "pg_catalog", "lseg", 32, LSEGOID, 1018, pqt_put_lseg, - pqt_get_lseg, __HANDLER_DEFAULTS__}, - {14, "pg_catalog", "box", 32, BOXOID, 1020, pqt_put_box, - pqt_get_box, __HANDLER_DEFAULTS__}, - {15, "pg_catalog", "circle", 24, CIRCLEOID, 719, pqt_put_circle, - pqt_get_circle, __HANDLER_DEFAULTS__}, - {16, "pg_catalog", "path", -1, PATHOID, 1019, pqt_put_path, - pqt_get_path, __HANDLER_DEFAULTS__}, - {17, "pg_catalog", "polygon", -1, POLYGONOID, 1027, pqt_put_polygon, - pqt_get_polygon, __HANDLER_DEFAULTS__}, - - /* monetary types */ - {18, "pg_catalog", "money", 8, CASHOID, 791, pqt_put_money, - pqt_get_money, __HANDLER_DEFAULTS__}, - - /* network address typess */ - {19, "pg_catalog", "inet", -1, INETOID, 1041, pqt_put_inet, - pqt_get_inet, __HANDLER_DEFAULTS__}, - {20, "pg_catalog", "cidr", -1, CIDROID, 651, pqt_put_inet, - pqt_get_cidr, __HANDLER_DEFAULTS__}, - {21, "pg_catalog", "macaddr", 6, MACADDROID, 1040, pqt_put_macaddr, - pqt_get_macaddr, __HANDLER_DEFAULTS__}, - - /* date & time types */ - {22, "pg_catalog", "time", 8, TIMEOID, 1183, pqt_put_time, - pqt_get_time, __HANDLER_DEFAULTS__}, - {23, "pg_catalog", "timetz", 12, TIMETZOID, 1270, pqt_put_timetz, - pqt_get_timetz, __HANDLER_DEFAULTS__}, - {24, "pg_catalog", "date", 4, DATEOID, 1182, pqt_put_date, - pqt_get_date, __HANDLER_DEFAULTS__}, - {25, "pg_catalog", "timestamp", 8, TIMESTAMPOID, 1115, pqt_put_timestamp, - pqt_get_timestamp, __HANDLER_DEFAULTS__}, - {26, "pg_catalog", "timestamptz", 8, TIMESTAMPTZOID, 1185, - pqt_put_timestamptz, pqt_get_timestamptz, __HANDLER_DEFAULTS__}, - {27, "pg_catalog", "interval", 16, INTERVALOID, 1187, pqt_put_interval, - pqt_get_interval, __HANDLER_DEFAULTS__}, - - /* object identifier types */ - {28, "pg_catalog", "oid", 4, OIDOID, 1028, pqt_put_int4, - pqt_get_int4, __HANDLER_DEFAULTS__}, - - /* UUID types */ - {29, "pg_catalog", "uuid", 16, UUIDOID, 2951, pqt_put_uuid, - pqt_get_uuid, __HANDLER_DEFAULTS__}, - - /* Record types (composites) */ - {30, "pg_catalog", "record", -1, RECORDOID, 0, pqt_put_record, - pqt_get_record, __HANDLER_DEFAULTS__}, - - /* pqt types */ - {31, "pqt", "str", -1, InvalidOid, 0, pqt_put_str, - NULL, __HANDLER_DEFAULTS__}, /* supports ptr */ - {32, "pqt", "null", -1, InvalidOid, 0, pqt_put_null, - NULL, __HANDLER_DEFAULTS__}, - - /* more character types */ - {33, "pg_catalog", "name", -1, NAMEOID, 1003, pqt_put_text, - pqt_get_text, __HANDLER_DEFAULTS__}, /* supports ptr */ - - /* text passed as bytea to avoid double copy with ByteStringS - * and silent truncation of strings containting NULL characters */ - {34, "pg_catalog", "btext", -1, TEXTOID, 1009, pqt_put_btext, - pqt_get_btext, __HANDLER_DEFAULTS__}, - - {35, "pg_catalog", "json", -1, JSONOID, 199, pqt_put_btext, - pqt_get_btext, __HANDLER_DEFAULTS__}, - {36, "pg_catalog", "jsonb", -1, JSONBOID, 3807, pqt_put_jsonb, - pqt_get_jsonb, __HANDLER_DEFAULTS__}, - {37, "pg_catalog", "xml", -1, XMLOID, 143, pqt_put_btext, - pqt_get_btext, __HANDLER_DEFAULTS__}, -}; - -static int -expandHandlers(PGtypeData *typeData, PGerror *err); - -static PGrecordAttDesc * -initAttDescs(PGerror *err, PGtypeHandler *h, char *attrs); - -static char * -parseType(PGerror *err, const char *spec, char *schema, char *typname, int typpos); - -static int -getTypeParams(PGconn *conn, PGerror *err, PGregisterType *types, int count, - PGarray *names, PGarray *schemas); - -static int -checkTypeLookups(PGresult *res, PGerror *err, PGregisterType *types, int count); - -/* If res is NULL, non-blocking send is used, otherwise a blocking - * exec is issued and *res contains the result. Returns zero on - * error and non-zero on success. - */ -static int -performRegisterQuery(PGconn *conn, PGerror *err, int which, PGregisterType *types, - int count, PGresult **res); - -/* Called by PQregisterTypes() for each type provided. */ -static int -registerSubClass(PGtypeData *connData, PGerror *err, const char *type_name, - PGtypeProc typput, PGtypeProc typget); - -int -PQinitTypes(PGconn *conn) -{ - return PQregisterEventProc(conn, pqt_eventproc, "pqtypes", NULL); -} - -/* Deprecated */ -int -PQregisterSubClasses(PGconn *conn, PGerror *err, PGregisterType *types, int count) -{ - return PQregisterTypes(conn, err, PQT_SUBCLASS, types, count, 0); -} - -/* Deprecated */ -int -PQregisterUserDefinedTypes(PGconn *conn, PGerror *err, PGregisterType *types, int count) -{ - return PQregisterTypes(conn, err, PQT_USERDEFINED, types, count, 0); -} - -/* Deprecated */ -int -PQregisterComposites(PGconn *conn, PGerror *err, PGregisterType *types, int count) -{ - return PQregisterTypes(conn, err, PQT_COMPOSITE, types, count, 0); -} - -int -PQregisterTypes(PGconn *conn, PGerror *err, int which, PGregisterType *types, - int count, int async) -{ - int n = FALSE; - - if (!conn) - { - PQseterror(err, "PGconn cannot be NULL"); - return FALSE; - } - - if (!types) - { - PQseterror(err, "PGregisterType[] cannot be NULL"); - return FALSE; - } - - if (count < 0) - { - PQseterror(err, "PGregisterType[] count cannot be less than zero"); - return FALSE; - } - - /* nothing to do, silently ignore it */ - if (count == 0) - return TRUE; - - if (which == PQT_SUBCLASS) - { - int i; - PGtypeData *connData; - - if (!(connData = (PGtypeData *) PQinstanceData(conn, pqt_eventproc))) - { - PQseterror(err, "PGconn is missing event data"); - return FALSE; - } - - for (i=0; i < count; i++) - { - n = registerSubClass(connData, err, types[i].typname, - types[i].typput, types[i].typget); - - if (!n) - return FALSE; - } - } - else - { - PGresult *res = NULL; - - n = performRegisterQuery(conn, err, which, types, count, async ? NULL : &res); - - /* If not async, register the result and clear it. */ - if (n && !async) - { - n = PQregisterResult(conn, err, which, types, count, res); - PQclear(res); - } - } - - return n; -} - -int -PQregisterResult(PGconn *conn, PGerror *err, int which, PGregisterType *types, - int count, PGresult *res) -{ - int i; - PGtypeData *connData; - char typname[PQT_MAXIDLEN + 1]; - char typschema[PQT_MAXIDLEN + 1]; - /* inherit typput and typget from record type */ - PGtypeHandler *h_rec = pqt_gethandler(NULL, 0, "pg_catalog", "record"); - - if (!conn) - { - PQseterror(err, "PGconn cannot be NULL"); - return FALSE; - } - - if (!res) - { - PQseterror(err, "PGresult cannot be NULL"); - return FALSE; - } - - if (which == PQT_SUBCLASS) - { - PQseterror(err, "Cannot call PQregisterResult for a subclass registration."); - return FALSE; - } - - if (!(connData = (PGtypeData *) PQinstanceData(conn, pqt_eventproc))) - { - PQseterror(err, "PGconn is missing event data"); - return FALSE; - } - - if (!types) - { - PQseterror(err, "PGregisterType[] cannot be NULL"); - return FALSE; - } - - if (count < 0) - { - PQseterror(err, "PGregisterType[] count cannot be less than zero"); - return FALSE; - } - - if(!checkTypeLookups(res, err, types, count)) - return FALSE; - - for (i=0; i < PQntuples(res); i++) - { - int flags; - PGint2 typlen; - PGtypeHandler *h; - - if (which == PQT_USERDEFINED && !types[i].typput && !types[i].typget) - { - PQseterror(err, "Must provide a put and/or a get routine: '%s'", - types[i].typname); - return FALSE; - } - - /* make sure conn's type handlers array is large enough */ - if (!expandHandlers(connData, err)) - return FALSE; - - /* create the handler */ - h = &connData->typhandlers[connData->typhcnt]; - memset(h, 0, sizeof(PGtypeHandler)); - - if (!PQgetf(res, err, i, "%oid %oid %int2", 1, &h->typoid, - 2, &h->typoid_array, 3, &typlen)) - { - return FALSE; - } - - h->id = connData->typhcnt + countof(pg_handlers); - h->typlen = (int) typlen; - h->base_id = -1; - - if (which == PQT_USERDEFINED) - { - h->typput = types[i].typput; - h->typget = types[i].typget; - } - else - { - h->typput = h_rec->typput; - h->typget = h_rec->typget; - } - - /* parse out type and schema names again */ - (void ) pqt_parsetype(err, types[i].typname, typschema, typname, &flags, 1); - pqt_strcpy(h->typschema, sizeof(h->typschema), typschema); - pqt_strcpy(h->typname, sizeof(h->typname), typname); - - /* Process composite attributes */ - if(which == PQT_COMPOSITE) - { - PGtext attrs; - int nattrs; - PGrecordAttDesc *attDescs; - - if (!PQgetf(res, err, i, "%text", 4, &attrs)) - { - return FALSE; - } - - if (!(attDescs = initAttDescs(err, h, attrs))) - return FALSE; - - for (nattrs=0; *attrs; nattrs++) - { - char *p; - char *name; - int len; - - /* Attribute Text Encoding: - * "attoid,attlen,atttypmod,name_hex attoid,etc..." - */ - - attDescs[nattrs].attoid = (int) strtol(attrs, &attrs, 10); - attDescs[nattrs].attlen = (int) strtol(attrs + 1, &attrs, 10); - attDescs[nattrs].atttypmod = (int) strtol(attrs + 1, &attrs, 10); - - /* skip comma before name */ - attrs++; - - /* attribute name in hex */ - if (!(p = strchr(attrs, ' '))) - p = attrs + strlen(attrs); /* last attr, point at NUL */ - - /* truncate name if it exceeds buffer */ - len = (int) (p - attrs); - if (len >= (int) sizeof(attDescs[nattrs].attname)) - len = (int) (sizeof(attDescs[nattrs].attname) - 1); - - /* hex decode and copy */ - for (name = attDescs[nattrs].attname; attrs < p; attrs += 2) - *name++ = (char) (pqt_hex_to_dec(attrs[0]) << 4) - | pqt_hex_to_dec(attrs[1]); - *name = 0; - } - - h->nattrs = nattrs; - h->attDescs = attDescs; - } - - connData->typhcnt++; - } - - return TRUE; -} - -int -PQclearTypes(PGconn *conn, PGerror *err) -{ - PGtypeData *connData; - - if (!conn) - { - PQseterror(err, "PGconn cannot be NULL"); - return FALSE; - } - - if (!(connData = (PGtypeData *) PQinstanceData(conn, pqt_eventproc))) - { - PQseterror(err, "PGconn is missing event data"); - return FALSE; - } - - pqt_cleartypes(connData); - - return TRUE; -} - -/* Do not call when hcnt is 0. This returns NULL when malloc fails. - * Passing in 0 could only do the same thing (ambiguos), so it is simply - * not handled and may dump core. - */ -PGtypeHandler * -pqt_duphandlers(PGtypeHandler *handlers, int hcnt) -{ - int i; - PGtypeHandler *h = (PGtypeHandler *) malloc(hcnt * sizeof(PGtypeHandler)); - - if (!h) - return NULL; - - /* In the most common cases, this is the total cost of the dup. - * Previously, the handler had 4 inner strings that required a deep - * copy. Surprisingly, this had a noticeable overhead. This was - * solved by using fixed length buffers in the type handler struct. - * Also, a fixed length attDescs buffer was added to avoid having - * to perform a deep copy for the common cases, 16 or less attrs. - */ - memcpy(h, handlers, hcnt * sizeof(PGtypeHandler)); - - /* Possibly deep copy PGrecordAttDesc array. Otherwise, assign it - * to the fixed length buffer. - */ - for (i=0; i < hcnt; i++) - { - if (h[i].nattrs == 0) - continue; - - /* There are attributes but the attDescs buffer can be used rather - * than allocating and copying. The data was copied during the - * handlers memcpy prior to this loop. - */ - if (!h[i].freeAttDescs) - { - h[i].attDescs = h[i].attDescsBuf; - continue; - } - - /* ------------------------------ - * Must allocate and copy. - */ - - h[i].attDescs = (PGrecordAttDesc *) malloc( - h[i].nattrs * sizeof(PGrecordAttDesc)); - - if (!h[i].attDescs) - { - pqt_freehandlers(h, i+1); - return NULL; - } - - memcpy(h[i].attDescs, handlers[i].attDescs, - h[i].nattrs * sizeof(PGrecordAttDesc)); - } - - return h; -} - -void -pqt_cleartypes(PGtypeData *typeData) -{ - if (typeData) - { - pqt_freehandlers(typeData->typhandlers, typeData->typhcnt); - - typeData->typhandlers = NULL; - typeData->typhcnt = 0; - typeData->typhmax = 0; - } -} - -void -pqt_freehandlers(PGtypeHandler *handlers, int hcnt) -{ - int i; - - /* Free attDescs */ - for (i=0; i < hcnt; i++) - if (handlers[i].freeAttDescs && handlers[i].attDescs) - free(handlers[i].attDescs); - - if (handlers) - free(handlers); -} - -PGtypeHandler * -pqt_gethandler(PGtypeHandler *handlers, int hcnt, - const char *schema, const char *typname) -{ - int i; - int noschema = !schema || !*schema; - - if (!typname || !*typname) - return NULL; - - /* user registered types are searched first */ - for (i=0; i < hcnt; i++) - { - if ((noschema || strcmp(handlers[i].typschema, schema)==0) && - strcmp(handlers[i].typname, typname)==0) - { - return &handlers[i]; - } - } - - /* builtin types searched last */ - for (i=0; i < countof(pg_handlers); i++) - { - if ((noschema || strcmp(pg_handlers[i].typschema, schema)==0) && - strcmp(pg_handlers[i].typname, typname)==0) - { - return &pg_handlers[i]; - } - } - - return NULL; -} - -PGtypeHandler * -pqt_gethandlerbyid(PGtypeHandler *handlers, int hcnt, int id) -{ - if (id <= -1) - return NULL; - - if (id < countof(pg_handlers)) - return &pg_handlers[id]; - - id -= countof(pg_handlers); - if (id >= hcnt) - return NULL; - - return &handlers[id]; -} - -PGtypeHandler * -pqt_gethandlerbyoid(PGtypeHandler *handlers, int hcnt, Oid oid) -{ - int pg_handlers_count = countof(pg_handlers); - for (int i = 0; i < pg_handlers_count; ++i) - { - if (pg_handlers[i].typoid == oid) - return &pg_handlers[i]; - } - - for (int i = 0; i < hcnt; ++i) - { - if (handlers[i].typoid == oid) - return &handlers[i]; - } - - return NULL; -} - -int -pqt_argssuper(PGtypeArgs *args, ...) -{ - int r; - va_list ap; - PGtypeHandler *baseclass; - PGtypeHandler *subclass = args->typhandler; - PGtypeData *resData = NULL; - - if (!args->is_put) - { - resData = (PGtypeData *) PQresultInstanceData( - args->get.result, pqt_eventproc); - - if (!resData) - return args->errorf(args, "PGresult is missing event data"); - } - - /* should always work, but play it safe */ - baseclass = pqt_gethandlerbyid( - args->is_put ? args->put.param->typhandlers : resData->typhandlers, - args->is_put ? args->put.param->typhcnt : resData->typhcnt, - subclass->base_id); - - if (!baseclass) - return args->errorf(args, "type handler has no base type"); - - args->typhandler = baseclass; - - va_copy(ap, args->ap); - va_start(args->ap, args); - r = args->is_put ? baseclass->typput(args) : baseclass->typget(args); - va_copy(args->ap, ap); - - args->typhandler = subclass; - return r; -} - -/* FQTN standards for Fully Qualified Type Name. Returns a pointer to out. - * Only returns NULL if out is NULL or outl <= 0. - */ -char * -pqt_fqtn(char *out, size_t outl, const char *schema, const char *typname) -{ - int r; - int have_schema = schema && *schema; - - if (!out || outl<=0) - return NULL; - - *out = 0; - if (!typname || !*typname) - return out; - - r = pqt_snprintf(out, outl, "%s%s%s", have_schema ? schema : "", - have_schema ? "." : "", typname); - - if (r < 0) - { - *out = 0; - return out; - } - - return out; -} - -/* only checks builin types or pqt types. User registered types must - * be checked by the user's handler functions. - */ -int -pqt_allowsptr(PGtypeHandler *h) -{ - /* pg_catalog.[bpchar, varchar, name, text, bytea] */ - if (strcmp(h->typschema, "pg_catalog")==0) - { - if (strcmp(h->typname, "bpchar") && - strcmp(h->typname, "varchar") && - strcmp(h->typname, "text") && - strcmp(h->typname, "bytea") && - strcmp(h->typname, "name")) - { - return FALSE; - } - } - /* pqt.str */ - else if (strcmp(h->typschema, "pqt")==0 && strcmp(h->typname, "str")) - { - return FALSE; - } - - return TRUE; -} - -void -pqt_getfmtinfo(const PGconn *conn, PGtypeFormatInfo *info) -{ - const char *value; - - memset(info, 0, sizeof(PGtypeFormatInfo)); - - if ((value = PQparameterStatus(conn, "DateStyle"))) - pqt_strcpy(info->datestyle, sizeof(info->datestyle), value); - - if ((value = PQparameterStatus(conn, "integer_datetimes"))) - info->integer_datetimes = strcmp(value, "on")==0 ? TRUE : FALSE; - - info->sversion = PQserverVersion(conn); - info->pversion = PQprotocolVersion(conn); -} - -static int registerSubClass(PGtypeData *connData, PGerror *err, const char *type_name, - PGtypeProc typput, PGtypeProc typget) -{ - char *s; - PGtypeHandler *h_sub; - PGtypeHandler *h_base; - char sub_typschema[PQT_MAXIDLEN + 1]; - char sub_typname[PQT_MAXIDLEN + 1]; - char base_typschema[PQT_MAXIDLEN + 1]; - char base_typname[PQT_MAXIDLEN + 1]; - char sub_fqtn[200]; - char base_fqtn[200]; - - if (!(s = parseType(err, type_name, sub_typschema, sub_typname, 1))) - return FALSE; - - if (*s != '=') - { - PQseterror(err, "Missing inheritence operator '=': %s", type_name); - return FALSE; - } - - if (!parseType(err, s + 1, base_typschema, base_typname, 1)) - return FALSE; - - /* lookup the base handler */ - h_base = pqt_gethandler(connData->typhandlers, connData->typhcnt, - base_typschema, base_typname); - - if (!h_base) - { - PQseterror(err, "typname '%s' does not exist, '%s' cannot sub-class it", - pqt_fqtn(base_fqtn, sizeof(base_fqtn), base_typschema, base_typname), - pqt_fqtn(sub_fqtn, sizeof(sub_fqtn), sub_typschema, sub_typname)); - return FALSE; - } - - /* cannot sub-class a record type */ - if (h_base->typoid == RECORDOID) - { - PQseterror(err, "Cannot sub-class pg_catalog.record '%s'", - pqt_fqtn(sub_fqtn, sizeof(sub_fqtn), sub_typschema, sub_typname)); - return FALSE; - } - - if (!expandHandlers(connData, err)) - return FALSE; - - h_sub = &connData->typhandlers[connData->typhcnt]; - memset(h_sub, 0, sizeof(PGtypeHandler)); - - h_sub->id = connData->typhcnt + countof(pg_handlers); - h_sub->typlen = h_base->typlen; - h_sub->typoid = h_base->typoid; - h_sub->typoid_array = h_base->typoid_array; - h_sub->typput = typput; - h_sub->typget = typget; - h_sub->base_id = h_base->id; - - pqt_strcpy(h_sub->typschema, - sizeof(h_sub->typschema), sub_typschema); - - pqt_strcpy(h_sub->typname, - sizeof(h_sub->typname), sub_typname); - - connData->typhcnt++; - return TRUE; -} - -static int -expandHandlers(PGtypeData *typeData, PGerror *err) -{ - int hmax; - PGtypeHandler *h; - - if (typeData->typhcnt < typeData->typhmax) - return TRUE; - - hmax = typeData->typhmax ? (typeData->typhmax * 3) / 2 : 8; - h = (PGtypeHandler *) pqt_realloc( - typeData->typhandlers, sizeof(PGtypeHandler) * hmax); - - if (!h) - { - PQseterror(err, PQT_OUTOFMEMORY); - return FALSE; - } - - typeData->typhandlers = h; - typeData->typhmax = hmax; - return TRUE; -} - -static int -checkTypeLookups(PGresult *res, PGerror *err, PGregisterType *types, int count) -{ - int i; - int ntups = PQntuples(res); - - /* The tuple count must match the requested count. The server omits - * tuples for types it did not find. For those it did find, it returns - * a sequenctial index. The first gap found is our missing type. This - * only reports about the first missing type. - */ - if (ntups == count) - return TRUE; - - for (i=0; i < ntups; i++) - { - int idx; - - if (!PQgetf(res, err, i, "%int4", 0, &idx)) - return FALSE; - - /* 'i' should always match idx-1, postgresql arrays are 1-based. - * This is a missing type, first gap in the sequence. - */ - if (i != idx-1) - break; - } - - PQseterror(err, "server type lookup failed: could not find '%s'", - types[i].typname); - - return FALSE; -} - -/* This is part of a performance enhancement for getting arrays - * and/or composites. They require generating PGresults which - * causes pqt_duphandlers() to run. Its amazing how much a simple - * malloc+memcpy costs after around 10000 or so. The common case - * avoids this by using a fixed length PGrecordAttDesc buffer. If - * there are a large number of attributes, the slower path is used. - * Again this is small, maybe 10% of the overall 63% win. - */ -static PGrecordAttDesc *initAttDescs(PGerror *err, PGtypeHandler *h, char *attrs) -{ - char *p; - int nattrs = 1; - PGrecordAttDesc *attDescs; - - for(p = attrs; *p; nattrs++, ++p) - if(!(p = strchr(p, ' '))) - break; - - if (nattrs < (int) (sizeof(h->attDescsBuf) / sizeof(h->attDescsBuf[0]))) - { - h->freeAttDescs = 0; - attDescs = h->attDescsBuf; - } - else - { - attDescs = (PGrecordAttDesc *) malloc(nattrs * sizeof(PGrecordAttDesc)); - if (!attDescs) - { - PQseterror(err, PQT_OUTOFMEMORY); - return NULL; - } - - h->freeAttDescs = 1; - } - - return attDescs; -} - -/* wraps pqt_parsetype to toggle out illegal flags during a register */ -static char *parseType(PGerror *err, const char *spec, char *typschema, char *typname, - int typpos) -{ - char *s; - int flags; - - if (!(s = pqt_parsetype(err, spec, typschema, typname, &flags, typpos))) - return NULL; - - if (flags & TYPFLAG_INVALID) - return NULL; - - if (flags & TYPFLAG_ARRAY) - { - PQseterror(err, "Cannot use an array[] during a type handler registration."); - return NULL; - } - - if (flags & TYPFLAG_POINTER) - { - PQseterror(err, "Cannot use a type* during a type handler registration."); - return NULL; - } - - return s; -} - -static int getTypeParams(PGconn *conn, PGerror *err, PGregisterType *types, int count, - PGarray *names, PGarray *schemas) -{ - int i; - - names->ndims = 0; - schemas->ndims = 0; - - if (!(names->param = PQparamCreate(conn, err))) - return FALSE; - - if (!(schemas->param = PQparamCreate(conn, err))) - { - PQparamClear(names->param); - return FALSE; - } - - for (i=0; i < count; i++) - { - char typname[PQT_MAXIDLEN + 1]; - char typschema[PQT_MAXIDLEN + 1]; - char *s = parseType(err, types[i].typname, typschema, typname, 1); - - if (!s) - { - PQparamClear(names->param); - PQparamClear(schemas->param); - return FALSE; - } - - s = *typschema ? typschema : NULL; - if (!PQputf(names->param, err, "%text", typname) || - !PQputf(schemas->param, err, "%text", s)) - { - PQparamClear(names->param); - PQparamClear(schemas->param); - return FALSE; - } - } - - return TRUE; -} - - - -/* Lookup types, including composites. Arguments are: - * schemas text[], type_names text[], want_attrs bool - */ -#define LOOKUP_TYPES \ -"WITH nspnames AS" \ -"(" \ -" SELECT * FROM information_schema._pg_expandarray(%text[])" \ -")," \ -"typnames AS" \ -"(" \ -" SELECT * FROM information_schema._pg_expandarray(%text[])" \ -")," \ -"composites AS" \ -"(" \ - "SELECT t.n as idx, " \ -" to_regtype(CASE WHEN n.x IS NULL" \ -" THEN quote_ident(t.x)" \ -" ELSE quote_ident(n.x) || '.' || quote_ident(t.x)" \ -" END) AS typoid" \ -" FROM nspnames n JOIN typnames t USING (n)" \ -")" \ -"SELECT c.idx, t.oid AS typoid, a.oid AS arroid, t.typlen," \ -" (" \ -" CASE WHEN %bool THEN (" \ -" SELECT array_to_string" \ -" (" \ -" ARRAY" \ -" (" \ -" SELECT CASE WHEN tt.typtype = 'd' THEN tt.typbasetype " \ - "ELSE a.atttypid END ||" \ -" ',' || attlen || ',' || atttypmod || ',' || " \ - "encode(attname::bytea, 'hex')" \ -" FROM pg_type b" \ -" JOIN pg_attribute a ON b.typrelid = a.attrelid" \ -" JOIN pg_type tt ON a.atttypid = tt.oid" \ -" WHERE b.oid = t.oid" \ -" AND a.attnum > 0" \ -" AND NOT a.attisdropped" \ -" ORDER BY a.attnum" \ -" ), ' ')" \ -" ) ELSE NULL END) AS arr_props" \ -" FROM composites c" \ -" JOIN pg_type t ON t.oid = c.typoid" \ -" JOIN pg_namespace n ON t.typnamespace = n.oid" \ -" JOIN pg_type a ON a.oid = t.typarray" \ -" ORDER BY idx;" - -/* Lookup types for pre 8.4 servers, including composites. Arguments are: - * want_attrs bool, schemas text[], type_names text[] - */ -#define LOOKUP_TYPES_PRE_8_4 \ -"SELECT idx, t.oid AS typoid, a.oid AS arroid, t.typlen," \ -" (" \ -" CASE WHEN %bool THEN (" \ -" SELECT array_to_string" \ -" (" \ -" ARRAY" \ -" (" \ -" SELECT CASE WHEN tt.typtype = 'd' THEN tt.typbasetype " \ - "ELSE a.atttypid END ||" \ -" ',' || attlen || ',' || atttypmod || ',' || " \ - "encode(attname::bytea, 'hex')" \ -" FROM pg_type b" \ -" JOIN pg_attribute a ON b.typrelid = a.attrelid" \ -" JOIN pg_type tt ON a.atttypid = tt.oid" \ -" WHERE b.oid = t.oid" \ -" AND a.attnum > 0" \ -" AND NOT a.attisdropped" \ -" ORDER BY a.attnum" \ -" ), ' ')" \ -" ) ELSE NULL END) AS arr_props" \ -" FROM" \ -" (" \ -" SELECT n.n AS idx, n.x AS nspname, t.x AS typname" \ -" FROM" \ -" (" \ -" SELECT * FROM information_schema._pg_expandarray(%text[])" \ -" ) n LEFT JOIN" \ -" (" \ -" SELECT * FROM information_schema._pg_expandarray(%text[])" \ -" ) t ON n.n = t.n" \ -" AND n.x IS NOT NULL" \ -" WHERE t.x IS NOT NULL" \ -" UNION ALL" \ -" SELECT n.n AS idx," \ -" (" \ -" SELECT n.nspname from pg_type nt JOIN pg_namespace n ON " \ - "nt.typnamespace = n.oid" \ -" JOIN" \ -" (" \ -" SELECT * FROM information_schema._pg_expandarray(" \ - "current_schemas(true))" \ -" ) c ON c.x = n.nspname" \ -" WHERE nt.typname = t.x" \ -" ORDER BY c.n LIMIT 1" \ -" ) AS nspname, t.x AS typname" \ -" FROM" \ -" (" \ -" SELECT * FROM information_schema._pg_expandarray($2)" \ -" ) n LEFT JOIN" \ -" (" \ -" SELECT * FROM information_schema._pg_expandarray($3)" \ -" ) t ON n.n = t.n" \ -" AND n.x IS NULL" \ -" WHERE t.x IS NOT NULL" \ -" ) c" \ -" JOIN pg_type t ON t.typname = c.typname" \ -" JOIN pg_namespace n ON t.typnamespace = n.oid AND n.nspname = c.nspname" \ -" JOIN pg_type a ON a.oid = t.typarray" \ -" ORDER BY idx" - -static PGresult * -execLookupTypes(PGconn *conn, PGerror *err, PGtypeData *data, PGarray *schemas, - PGarray *names, int want_attrs) -{ - if(data->fmtinfo.sversion >= 80400) - return PQexecf(conn, err, LOOKUP_TYPES, schemas, names, &want_attrs); - return PQexecf(conn, err, LOOKUP_TYPES_PRE_8_4, &want_attrs, schemas, names); -} - -static int -sendLookupTypes(PGconn *conn, PGerror *err, PGtypeData *data, PGarray *schemas, - PGarray *names, int want_attrs) -{ - if(data->fmtinfo.sversion >= 80400) - return PQsendf(conn, err, LOOKUP_TYPES, schemas, names, &want_attrs); - return PQsendf(conn, err, LOOKUP_TYPES_PRE_8_4, &want_attrs, schemas, names); -} - -static int -performRegisterQuery(PGconn *conn, PGerror *err, int which, PGregisterType *types, - int count, PGresult **res) -{ - int n = FALSE; - PGtypeData *connData; - PGarray names; - PGarray schemas; - int want_attrs = which == PQT_COMPOSITE; - - if (!(connData = (PGtypeData *) PQinstanceData(conn, pqt_eventproc))) - { - PQseterror(err, "PGconn is missing event data"); - return FALSE; - } - - if (!getTypeParams(conn, err, types, count, &names, &schemas)) - return FALSE; - - if (res) - *res = execLookupTypes(conn, err, connData, &schemas, &names, want_attrs); - else - n = sendLookupTypes(conn, err, connData, &schemas, &names, want_attrs); - - PQparamClear(names.param); - PQparamClear(schemas.param); - - if (res) - return *res ? TRUE : FALSE; - - return n; -} diff --git a/libpqtypes/src/libpqtypes-int.h b/libpqtypes/src/libpqtypes-int.h deleted file mode 100644 index d2664ef..0000000 --- a/libpqtypes/src/libpqtypes-int.h +++ /dev/null @@ -1,538 +0,0 @@ - -/* - * libpqtypes-int.h - * Private header file for libpqtypes. All source files include - * this header. - * - * Copyright (c) 2011 eSilo, LLC. All rights reserved. - * This is free software; see the source for copying conditions. There is - * NO warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR - * PURPOSE. - */ - -#ifndef LIBPQTYPES_INT_H -#define LIBPQTYPES_INT_H - -#define PLN do{ \ - printf("%s:%d\n", __FUNCTION__, __LINE__); \ - fflush(stdout); \ -}while(0) - -#ifdef HAVE_CONFIG_H -# include "pqt_config.h" -#endif - -/* Using the windows compiler */ -#ifdef _MSC_VER -# define PQT_MSVC _MSC_VER -#endif - -/* We can/should use the Windows API */ -#if defined(PQT_MSVC) || defined(__MINGW32__) -# define PQT_WINAPI -#endif - -/* Compiling on a windows platform */ -#if defined(PQT_WINAPI) || defined(__CYGWIN__) -# define PQT_WIN32 -#endif - -/* WINAPI is available, include needed winsock headers */ -#ifdef PQT_WINAPI -# ifdef PQT_MSVC -# pragma warning (disable : 4706 4100 4711 4127 4702) -# pragma warning (disable: 4706 4100 4514 4710 4201 4206) -# endif -# include -# include -# include /* need for getaddrinfo (2000 and below */ -# include -#else -# if defined(__CYGWIN__) || defined(HAVE_SYS_TYPES_H) -# include -# endif -# if defined(__CYGWIN__) || defined(HAVE_SYS_SOCKET_H) -# include -# endif -# if defined(__CYGWIN__) || defined(HAVE_NETDB_H) -# include -# endif -# if defined(__CYGWIN__) || defined(HAVE_NETINET_IN_H) -# include -# endif -# if defined(__CYGWIN__) || defined(HAVE_ARPA_INET_H) -# include -# endif -#endif - -#include -#include -#include -#include - -/* string*.h, windows platforms just include string.h */ -#ifdef PQT_WIN32 -# include -#else -# ifdef HAVE_STRING_H -# include -# endif -# ifdef HAVE_STRINGS_H -# include -# endif -#endif - -/* Include stddef.h if on windows or if we have it */ -#if defined(PQT_WIN32) || defined(HAVE_STDDEF_H) -# include -#endif - -/* Include limits.h if on windows or if we have it */ -#if defined(PQT_WIN32) || defined(HAVE_LIMITS_H) -# include -#endif - -/* Include math.h if on windows or if we have it */ -#if defined(PQT_WIN32) || defined(HAVE_MATH_H) -# include -#endif - -/* Include the public API, pulls in libpq-fe.h for us. */ -#include "libpqtypes.h" -#include "libpq-events.h" - -#ifdef __cplusplus -extern "C" { -#endif - -#ifndef TRUE -# define TRUE 1 -#endif - -#ifndef FALSE -# define FALSE 0 -#endif - -#ifndef NULL_LEN -# define NULL_LEN (-1) -#endif - -/* Win32 builds use _timezone and _tzname: manually define HAVE_TZNAME. */ -#ifdef PQT_WIN32 -# define HAVE_TZNAME -# define pqt_timezone _timezone -# define pqt_tzname _tzname -#else -# define pqt_timezone timezone -# define pqt_tzname tzname -#endif - -#define PQT_OUTOFMEMORY "Out of memory error" -#define PQT_MAXIDLEN 64 - -#define TEXTFMT 0 -#define BINARYFMT 1 -#define TYPFLAG_CASEFOLD 0x01 -#define TYPFLAG_ARRAY 0x02 -#define TYPFLAG_POINTER 0x04 -#define TYPFLAG_INVALID 0x08 -#define TYPFLAG_BYNAME 0x10 - -/* Avoid passing NULL to realloc, some systems don't support it */ -#define pqt_realloc(ptr, size) (ptr) ? realloc(ptr, size) : malloc(size) - -#define countof(array) (int) (sizeof(array) / sizeof(array[0])) - -/* MSVC 8 deprecated quite a few POSIX names */ -#if defined(PQT_MSVC) && PQT_MSVC >= 1400 -# undef strdup -# undef sscanf -# define strdup _strdup -# define sscanf sscanf_s -#endif - -/* define va_copy */ -#ifndef va_copy -# ifdef __va_copy -# define va_copy(dest, src) __va_copy(dest, src) -# else -# define va_copy(dest, src) (dest) = (src) -# endif -#endif - -#define pqt_hex_to_dec(v) \ - (unsigned char) (((v) > '9') ? ((v) - 'a') + 10 : (v) - '0') - -/* -------------------------------- - * Macros used by built-in handlers - */ - -/* used by get handlers */ -#define DECLLENGTH(args) \ - int valuel = PQgetlength((args)->get.result, (args)->get.tup_num, \ - (args)->get.field_num) - -/* used by get handlers */ -#define DECLVALUE(getargs) \ - char *value = PQgetvalue((getargs)->get.result, (getargs)->get.tup_num, \ - (getargs)->get.field_num) - -/* used by put handlers */ -#define PUTNULLCHK(args, valp) do{ \ - if (!(valp)) \ - return pqt_put_null(args); \ -}while (0) - -/* used by get handlers, checks for NULL pointers and PQgetisnull */ -#define CHKGETVALS(args, outp) do{ \ - if (!(outp)) \ - RERR(args, "output pointer is NULL"); \ - memset(outp, 0, sizeof(*(outp))); \ - if (PQgetisnull((args)->get.result, (args)->get.tup_num, \ - (args)->get.field_num)) \ - return 0; \ -}while (0) - -/* RERR for return error: errorf always returns -1 */ -#define RERR(_args, msg) return (_args)->errorf(_args, msg) -#define RERR_STR2INT(args) RERR(args, "String to integer conversion failed") -#define RERR_MEM(args) RERR(args, PQT_OUTOFMEMORY) - -#ifdef STRICT_MEMORY_ALIGNMENT -# define pqt_buf_putint2(_buffer, _val) do{ \ - short _v = (short) htons((short) (_val)); \ - memcpy(_buffer, &_v, sizeof(short)); \ - } while (0) - -# define pqt_buf_putint4(_buffer, _val) do{ \ - int _v = (int) htonl((int) (_val)); \ - memcpy(_buffer, &_v, sizeof(int)); \ - } while (0) - - short pqt_buf_getint2(char *buffer); - int pqt_buf_getint4(char *buffer); -#else -# define pqt_buf_putint2(_out, _val) \ - *(short *) (_out) = (short) htons((short) (_val)) -# define pqt_buf_getint2(_buffer) (short) ntohs(*(short *) (_buffer)) -# define pqt_buf_putint4(_out, _val) \ - *(int *) (_out) = (int) htonl((int) (_val)) -# define pqt_buf_getint4(_buffer) (int) ntohl(*(int *) (_buffer)) -#endif - -/* ---------------------------------- - * See: src/include/catalog/pg_type.h - * Used by built-in type handlers - */ - -/* numerics types */ -#define INT2OID 21 -#define INT4OID 23 -#define INT8OID 20 -#define FLOAT4OID 700 -#define FLOAT8OID 701 -#define NUMERICOID 1700 -/* geo types */ -#define POINTOID 600 -#define LSEGOID 601 -#define PATHOID 602 -#define BOXOID 603 -#define POLYGONOID 604 -#define LINEOID 628 /* not supported yet */ -#define CIRCLEOID 718 -/* network types */ -#define INETOID 869 -#define CIDROID 650 -#define MACADDROID 829 -/* variable length types */ -#define BPCHAROID 1042 -#define VARCHAROID 1043 -#define NAMEOID 19 -#define TEXTOID 25 -#define ZPBITOID 1560 /* not supported yet */ -#define VARBITOID 1562 /* not supported yet */ -#define BYTEAOID 17 -#define JSONOID 114 -#define JSONBOID 3802 -#define XMLOID 142 -/* date and time types */ -#define DATEOID 1082 -#define TIMEOID 1083 -#define TIMETZOID 1266 -#define TIMESTAMPOID 1114 -#define TIMESTAMPTZOID 1184 -#define INTERVALOID 1186 -/* misc types */ -#define CHAROID 18 -#define BOOLOID 16 -#define OIDOID 26 -#define CASHOID 790 -#define RECORDOID 2249 -#define UUIDOID 2950 - -/* -------------------------------- - * Private Structures - */ - -/* Represents a param value. An array of PGvalues was choosen over - * allocating 4 separate arrays: oids, values, lengths, formats. Instead - * of 4 allocations you only have one. The PGvalue array can easily be - * converted to 4 arrays for execution. - */ -typedef struct -{ - int ptrl; /* Length of value's pointer */ - void *ptr; /* value pointer, data member uses this for non-NULL values */ - int datal; /* Length of current value: always <= ptrl */ - char *data; /* current value data, can be NULL ... thus the ptr member. */ - int format; /* format: 0=text, 1=binary */ - Oid oid; /* Oid of the data */ -} PGvalue; - -/* performance driven structure. Instead of parsing and looking up - * type specs each put or get, PQspecPrepare can be used to compile - * a spec format string into a PGtypeSpec object. The biggest wins are - * large results sets and arrays. - */ -typedef struct -{ - char *name; /* name for the prepared spec, used for lookup. */ - char *stmt; /* parameterized version of stmt, if supplied */ - int idcnt; /* number of handler ids */ - int *idlist; /* handler ids */ - unsigned char *flags; /* handler flags */ -} PGtypeSpec; - -/* PGparam structure */ -struct pg_param -{ - int vcnt; /* current number of param values */ - int vmax; /* number of PGvalue structs in 'vals' array. */ - PGvalue *vals; /* array of param values, grown when needed */ - - /* assigned during PQparamCreate */ - PGtypeFormatInfo fmtinfo; - int typhcnt; - PGtypeHandler *typhandlers; - - int typspeccnt; - PGtypeSpec *typspecs; -}; - -typedef struct -{ - PGtypeFormatInfo fmtinfo; - int typhcnt; - int typhmax; - PGtypeHandler *typhandlers; - - int typspeccnt; - int typspecmax; - PGtypeSpec *typspecs; -} PGtypeData; - -/* -------------------------------- - * Internal API functions (not exported) - */ - -/* === in events.c === */ - -/* The libpq PGEventProc */ -int pqt_eventproc(PGEventId id, void *info, void *passThrough); - -void pqt_cleartypes(PGtypeData *typeData); - -/* === in param.c === */ - -int pqt_putparam(PGparam *param, PGerror *err, const void *data, int datal, - int flags, int format, Oid typoid); - -/* === in spec.c === */ - -PGtypeSpec *pqt_getspec(PGtypeSpec *specs, int count, const char *name); -PGtypeSpec *pqt_dupspecs(PGtypeSpec *specs, int count); -void pqt_clearspec(PGtypeSpec *cache); -void pqt_freespecs(PGtypeSpec *specs, int count); - -char *pqt_parse(PGerror *err, const char *format, PGtypeHandler *h, int hcnt, - char *stmtBuf, size_t stmtBufLen, PGtypeHandler **out, size_t *stmtPos, - int *typpos, int *flags); - -char *pqt_parsetype(PGerror *err, const char *spec, char *schema, char *typname, - int *flags, int typpos); - -/* === in handler.c === */ - -int pqt_allowsptr(PGtypeHandler *h); -void pqt_getfmtinfo(const PGconn *conn, PGtypeFormatInfo *info); -PGtypeHandler *pqt_duphandlers(PGtypeHandler *handlers, int hcnt); -void pqt_freehandlers(PGtypeHandler *handlers, int hcnt); -int pqt_argssuper(PGtypeArgs *args, ...); -int pqt_argserrorf(PGtypeArgs *args, const char *format, ...); - -PGtypeHandler *pqt_gethandler(PGtypeHandler *handlers, int hcnt, - const char *schema, const char *typname); - -PGtypeHandler *pqt_gethandlerbyid(PGtypeHandler *handlers, - int hcnt, int id); - -PGtypeHandler *pqt_gethandlerbyoid(PGtypeHandler *handlers, - int hcnt, Oid oid); - -/* FQTN standards for Fully Qualified Type Name. Returns a pointer to out. - * Only returns NULL if out is NULL or outl <= 0. - */ -char *pqt_fqtn(char *out, size_t outl, - const char *schema, const char *typname); - -/* == in utils.c == */ - -PGresult *pqt_copyresult(PGtypeArgs *args, int nattrs); -void pqt_swap8(void *outp, void *inp, int tonet); -int pqt_text_to_int8(char *val, void *out); -int pqt_text_to_float8(double *f8, char *text, char **endptr); - -/* Checks buffer and truncates 'src' if 'dest' is too small. */ -char *pqt_strcpy(char *dest, size_t size, const char *src); - -/* Taken from postgres project (named pg_xxx) */ -unsigned char pqt_tolower(unsigned char ch); -int pqt_strcasecmp(const char *s1, const char *s2); -int pqt_strncasecmp(const char *s1, const char *s2, size_t n); - -/* == in port.c == */ - -/* Define a strtoll macro for windows, except for MinGW & Cygwin - * which always have it. MSVC has _strtoi64, but MSVC 6 and under - * require that we declare the prototype. - */ -#ifdef PQT_MSVC -# if PQT_MSVC <= 1200 - __int64 __cdecl _strtoi64(const char *, char **, int); -# endif -# define strtoll _strtoi64 -#endif - -/* In rare cases these could be absent (older platforms). We implement - * drop-in replacements in port.c for those cases. strtod handled by - * configure, which adds a replacement for us. - * - * NOTE: only unixes use configure so sections wrapped around - * HAVE_CONFIG_H exclude windows. - */ -#ifdef HAVE_CONFIG_H -# ifndef HAVE_STRTOL - long strtol(const char *nptr, char **endptr, int base); -# endif -# ifndef HAVE_STRTOUL - unsigned long strtoul(const char *nptr, char **endptr, int base); -# endif -# ifndef HAVE_STRTOLL - long long int strtoll(const char *nptr, char **endptr, int base); -# endif -#endif - -/* Handles platform differences and always returns -1 for failure. - * On windows: MSVC 8 uses _snprintf_s, otherwise _snprintf. - */ -int pqt_snprintf(char *buf, size_t size, const char *format, ...); -int pqt_vsnprintf(char *buf, size_t size, const char *format, va_list ap); - -/* -------------------------------- - * Built-in Type Handlers - */ - -/* === in array.c === */ - -int pqt_put_array(PGtypeArgs *args); -int pqt_get_array(PGtypeArgs *args); - -/* == in datetime.c == */ - -int pqt_put_date(PGtypeArgs *args); -int pqt_get_date(PGtypeArgs *args); -int pqt_put_time(PGtypeArgs *args); -int pqt_get_time(PGtypeArgs *args); -int pqt_put_timetz(PGtypeArgs *args); -int pqt_get_timetz(PGtypeArgs *args); -int pqt_put_timestamp(PGtypeArgs *args); -int pqt_get_timestamp(PGtypeArgs *args); -int pqt_put_timestamptz(PGtypeArgs *args); -int pqt_get_timestamptz(PGtypeArgs *args); -int pqt_put_interval(PGtypeArgs *args); -int pqt_get_interval(PGtypeArgs *args); - -/* == in geo.c == */ - -int pqt_put_point(PGtypeArgs *args); -int pqt_get_point(PGtypeArgs *args); -int pqt_put_lseg(PGtypeArgs *args); -int pqt_get_lseg(PGtypeArgs *args); -int pqt_put_box(PGtypeArgs *args); -int pqt_get_box(PGtypeArgs *args); -int pqt_put_circle(PGtypeArgs *args); -int pqt_get_circle(PGtypeArgs *args); -int pqt_put_path(PGtypeArgs *args); -int pqt_get_path(PGtypeArgs *args); -int pqt_put_polygon(PGtypeArgs *args); -int pqt_get_polygon(PGtypeArgs *args); - -/* == in misc.c == */ - -int pqt_put_char(PGtypeArgs *args); /* "char" type, not char(N) */ -int pqt_get_char(PGtypeArgs *args); -int pqt_put_bool(PGtypeArgs *args); -int pqt_get_bool(PGtypeArgs *args); -int pqt_put_money(PGtypeArgs *args); -int pqt_get_money(PGtypeArgs *args); -int pqt_put_uuid(PGtypeArgs *args); -int pqt_get_uuid(PGtypeArgs *args); -int pqt_put_null(PGtypeArgs *args); /* no get for null */ - -/* == in network.c == */ - -int pqt_put_inet(PGtypeArgs *args); /* handles cidr */ -int pqt_get_inet(PGtypeArgs *args); -int pqt_get_cidr(PGtypeArgs *args); -int pqt_put_macaddr(PGtypeArgs *args); -int pqt_get_macaddr(PGtypeArgs *args); - -/* == in numerics.c == */ - -int pqt_put_int2(PGtypeArgs *args); -int pqt_get_int2(PGtypeArgs *args); -int pqt_put_int4(PGtypeArgs *args); /* handles oid */ -int pqt_get_int4(PGtypeArgs *args); /* handles oid */ -int pqt_put_int8(PGtypeArgs *args); -int pqt_get_int8(PGtypeArgs *args); -int pqt_put_float4(PGtypeArgs *args); -int pqt_get_float4(PGtypeArgs *args); -int pqt_put_float8(PGtypeArgs *args); -int pqt_get_float8(PGtypeArgs *args); -int pqt_put_numeric(PGtypeArgs *args); -int pqt_get_numeric(PGtypeArgs *args); - -/* == record.c (composites) == */ - -int pqt_put_record(PGtypeArgs *args); -int pqt_get_record(PGtypeArgs *args); - -/* == in varlena.c == */ - -int pqt_put_str(PGtypeArgs *args); /* no get for str - use PQgetvalue */ -int pqt_put_text(PGtypeArgs *args); /* handles varchar, bpchar and name */ -int pqt_get_text(PGtypeArgs *args); /* handles varchar, bpchar and name */ -int pqt_put_bytea(PGtypeArgs *args); -int pqt_get_bytea(PGtypeArgs *args); - -int pqt_put_btext(PGtypeArgs *args); -int pqt_get_btext(PGtypeArgs *args); -int pqt_put_jsonb(PGtypeArgs *args); -int pqt_get_jsonb(PGtypeArgs *args); - -#ifdef __cplusplus -} -#endif -#endif - - diff --git a/libpqtypes/src/libpqtypes.h b/libpqtypes/src/libpqtypes.h deleted file mode 100644 index 145ccdf..0000000 --- a/libpqtypes/src/libpqtypes.h +++ /dev/null @@ -1,506 +0,0 @@ - -/* - * libpqtypes.h - * Public header for libpqtypes. Contains the entire public API. - * - * Copyright (c) 2011 eSilo, LLC. All rights reserved. - * This is free software; see the source for copying conditions. There is - * NO warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR - * PURPOSE. - */ - -#ifndef LIBPQTYPES_H -#define LIBPQTYPES_H - -#include -#include -#include - -#ifdef __cplusplus -extern "C" { -#endif - -#if defined(_MSC_VER) || defined(__MINGW32__) || defined(__CYGWIN__) -# define PQT_EXPORT __declspec(dllexport) -#else -# define PQT_EXPORT extern -#endif - -/* MSVC 6 must use `i64', everything else uses `LL'. */ -#if !defined(_MSC_VER) || _MSC_VER > 1200 -# define PQT_INT64CONST(x) ((PGint8) x##LL) -#else -# define PQT_INT64CONST(x) ((PGint8) x##i64) -#endif - -enum -{ - PQT_SUBCLASS, - PQT_COMPOSITE, - PQT_USERDEFINED -}; - -typedef struct pg_param PGparam; -typedef struct pg_typeargs PGtypeArgs; -typedef int (*PGtypeProc)(PGtypeArgs *args); - -/* ---------------- - * Error info - * ---------------- - */ - -#ifndef PGERROR_MSG_MAXLEN -# define PGERROR_MSG_MAXLEN 2048 -#endif - -typedef struct -{ - char msg[PGERROR_MSG_MAXLEN]; -} PGerror; - -/* For use with a PQregisterXXX function */ -typedef struct -{ - const char *typname; - PGtypeProc typput; - PGtypeProc typget; -} PGregisterType; - -typedef struct -{ - int sversion; - int pversion; - char datestyle[48]; - int integer_datetimes; -} PGtypeFormatInfo; - -/* Record Attribute Description, its columns */ -typedef struct -{ - Oid attoid; - int attlen; - int atttypmod; - char attname[65]; -} PGrecordAttDesc; - -/* Type handler for putf and getf functions. The char fixed length buffers - * used to be allocated pointers. This was a performance problem when - * many type handlers are registered and one uses getf on a composite or - * an array. These types require generating a PGresult and duplicating - * the type handlers. Saved 40% by not having to deep copy the strings. - */ -typedef struct pg_typhandler -{ - int id; - char typschema[65]; - char typname[65]; - int typlen; - Oid typoid; - Oid typoid_array; - PGtypeProc typput; - PGtypeProc typget; - int base_id; - - /* For composites, contains each attribute of a composite */ - int nattrs; - int freeAttDescs; - PGrecordAttDesc attDescsBuf[16]; - PGrecordAttDesc *attDescs; -} PGtypeHandler; - -/* Values required during a type handler put ot get operation. */ -struct pg_typeargs -{ - int is_put; - const PGtypeFormatInfo *fmtinfo; - int is_ptr; - PGerror *err; - int format; - va_list ap; - int typpos; - PGtypeHandler *typhandler; - int (*errorf)(PGtypeArgs *args, const char *format, ...); - int (*super)(PGtypeArgs *args, ...); - - struct - { - PGparam *param; - char *out; - char *__allocated_out; /* leave me alone! */ - int outl; - int (*expandBuffer)(PGtypeArgs *args, int new_len); - } put; - - struct - { - PGresult *result; - int tup_num; - int field_num; - } get; -}; - - -/* ---------------- - * Variable Length types - * ---------------- - */ - -typedef char *PGtext; -typedef char *PGvarchar; -typedef char *PGbpchar; - -typedef union -{ - struct - { - unsigned w1; - unsigned w2; - unsigned w3; - unsigned w4; - }; - char data[16]; -} PGuuid; - -typedef struct -{ - int len; - char *data; -} PGbytea; - -/* ---------------- - * Numeric types - * ---------------- - */ - -typedef signed char PGchar; -typedef int PGbool; -typedef short PGint2; -typedef int PGint4; -typedef float PGfloat4; -typedef double PGfloat8; -typedef char *PGnumeric; - -#define NUMERIC_POS 0x0000 -#define NUMERIC_NEG 0x4000 -#define NUMERIC_NAN 0xC000 - -typedef struct -{ - short ndigits; /* # of digits in digits[] - can be 0! */ - short weight; /* weight of first digit */ - short sign; /* NUMERIC_POS, NUMERIC_NEG, or NUMERIC_NAN */ - short dscale; /* display scale */ - const short *digits; /* base-NBASE digits in network byte order */ -} NumericVar; - -/* Defined by an end-user if the system is missing long long. */ -#ifdef PQT_LONG_LONG - typedef PQT_LONG_LONG PGint8; - typedef PQT_LONG_LONG PGmoney; - -/* MinGW and MSVC can use __int64 */ -#elif defined(__MINGW32__) || defined(_MSC_VER) - typedef __int64 PGint8; - typedef __int64 PGmoney; - -/* Cygwin and Unixes. */ -#else - typedef long long PGint8; - typedef long long PGmoney; -#endif - -/* ---------------- - * Geometric type structures - * ---------------- - */ - -typedef struct -{ - double x; - double y; -} PGpoint; - -typedef struct -{ - PGpoint pts[2]; -} PGlseg; - -typedef struct -{ - PGpoint high; - PGpoint low; -} PGbox; - -typedef struct -{ - PGpoint center; - double radius; -} PGcircle; - -typedef struct -{ - int npts; - int closed; - PGpoint *pts; /* for getf, only valid while PGresult is. */ -} PGpath; - -typedef struct -{ - int npts; - PGpoint *pts; /* for getf, only valid while PGresult is. */ -} PGpolygon; - -/* ---------------- - * Network type structures - * ---------------- - */ - -/* This struct works with CIDR as well. */ -typedef struct -{ - int mask; - int is_cidr; - int sa_buf_len; - - /* sockaddr buffer, can be casted to sockaddr, sockaddr_in, - * sockaddr_in6 or sockaddr_stroage. - */ - char sa_buf[128]; -} PGinet; - -typedef struct -{ - int a; - int b; - int c; - int d; - int e; - int f; -} PGmacaddr; - -/* ---------------- - * Date & Time structures - * ---------------- - */ - -typedef struct -{ - int years; - int mons; - int days; - int hours; - int mins; - int secs; - int usecs; -} PGinterval; - -typedef struct -{ - int isbc; - int year; - int mon; - int mday; - int jday; - int yday; - int wday; -} PGdate; - -typedef struct -{ - int hour; - int min; - int sec; - int usec; - int withtz; - int isdst; - int gmtoff; - char tzabbr[16]; -} PGtime; - -typedef struct -{ - PGint8 epoch; - PGdate date; - PGtime time; -} PGtimestamp; - -/* ---------------- - * Array structures - * ---------------- - */ - -#ifndef MAXDIM -# define MAXDIM 6 -#endif - -typedef struct -{ - int ndims; - int lbound[MAXDIM]; - int dims[MAXDIM]; - PGparam *param; - PGresult *res; -} PGarray; - -/* ---------------- - * Public API funcs - * ---------------- - */ - -/* === in events.c === */ - -/* Deprecated, see PQinitTypes */ -PQT_EXPORT int -PQtypesRegister(PGconn *conn); - -/* === in error.c === */ - -/* PQseterror(NULL) will clear the error message */ -PQT_EXPORT void -PQseterror(PGerror *err, const char *format, ...); - -/* === in spec.c === */ - -/* Set 'format' argument to NULL to clear a single prepared specifier. */ -PQT_EXPORT int -PQspecPrepare(PGconn *conn, PGerror *err, const char *name, const char *format, int is_stmt); - -PQT_EXPORT int -PQclearSpecs(PGconn *conn, PGerror *err); - -/* === in handler.c === */ - -/* Initialize type support on the given connection */ -PQT_EXPORT int -PQinitTypes(PGconn *conn); - -/* Deprecated, see PQregisterTypes */ -PQT_EXPORT int -PQregisterSubClasses(PGconn *conn, PGerror *err, PGregisterType *types, int count); - -/* Deprecated, see PQregisterTypes */ -PQT_EXPORT int -PQregisterComposites(PGconn *conn, PGerror *err, PGregisterType *types, int count); - -/* Deprecated, see PQregisterTypes */ -PQT_EXPORT int -PQregisterUserDefinedTypes(PGconn *conn, PGerror *err, PGregisterType *types, int count); - -/* Registers PQT_SUBCLASS, PQT_COMPOSITE or PQT_USERDEFINED - * (the 'which' argument) for use with libpqtypes. - * - * For asynchronous type registration, set the 'async' argument to a - * non-zero value. This value is ignored when 'which' is PQT_SUBCLASS, - * since subclass registration does not execute any commands against the - * server. Use the standard PQconsumeInput, PQisBusy and PQgetResult - * to properly obtain a PGresult, which must be passed to PQregisterResult - * to complete the registration. - */ -PQT_EXPORT int -PQregisterTypes(PGconn *conn, PGerror *err, int which, PGregisterType *types, - int count, int async); - -/* Registers a set of 'which' types found in the given PGresult. Caller - * is responsible for clearing the result 'res'. Useful for performing - * asynchronous type registration or for caching type result data to - * avoid lookups on a new connection. If PQregisterTypes is ran in async - * mode, the PGresult obtained via PGgetResult can be cached by an - * application and provided to this function for new connections. - * - * Types and count should be identical to what was originally supplied - * to PQregisterTypes. - * - * NOTE: although a PGconn is a required argument, it is never used - * to perform any network operation (non-blocking safe). - * - * PQT_SUBCLASS is not supported and will result in an error if supplied. - */ -PQT_EXPORT int -PQregisterResult(PGconn *conn, PGerror *err, int which, PGregisterType *types, - int count, PGresult *res); - -/* Clears all type handlers registered on 'conn'. This is useful after a - * PQreset or PQresetPoll to optionally allow one to re-register types via - * PQregisterTypes. - */ -PQT_EXPORT int -PQclearTypes(PGconn *conn, PGerror *err); - -/* === in param.c === */ - -PQT_EXPORT PGparam * -PQparamCreate(const PGconn *conn, PGerror *err); - -PQT_EXPORT PGparam * -PQparamDup(PGparam *param, PGerror *err); - -PQT_EXPORT int -PQparamCount(PGparam *param); - -PQT_EXPORT void -PQparamReset(PGparam *param); - -PQT_EXPORT void -PQparamClear(PGparam *param); - -PQT_EXPORT int -PQputf(PGparam *param, PGerror *err, const char *format, ...); - -PQT_EXPORT int -PQputvf(PGparam *param, PGerror *err, char *stmtBuf, size_t stmtBufLen, - const char *format, va_list ap); - -/* === in exec.c === */ - -PQT_EXPORT int -PQgetf(const PGresult *res, PGerror *err, int tup_num, const char *format, ...); - -PQT_EXPORT int -PQgetvf(const PGresult *res, PGerror *err, int tup_num, const char *format, va_list ap); - -PQT_EXPORT PGresult * -PQexecf(PGconn *conn, PGerror *err, const char *cmdspec, ...); - -PQT_EXPORT PGresult * -PQexecvf(PGconn *conn, PGerror *err, const char *cmdspec, va_list ap); - -PQT_EXPORT int -PQsendf(PGconn *conn, PGerror *err, const char *cmdspec, ...); - -PQT_EXPORT int -PQsendvf(PGconn *conn, PGerror *err, const char *cmdspec, va_list ap); - -PQT_EXPORT PGresult * -PQparamExec(PGconn *conn, PGerror *err, PGparam *param, - const char *command, int resultFormat); - -PQT_EXPORT int -PQparamSendQuery(PGconn *conn, PGerror *err, PGparam *param, - const char *command, int resultFormat); - -PQT_EXPORT PGresult * -PQparamPrepare(PGconn *conn, PGerror *err, PGparam *param, const char *stmtName, - const char *query); - -PQT_EXPORT PGresult * -PQparamExecPrepared(PGconn *conn, PGerror *err, PGparam *param, - const char *stmtName, int resultFormat); - -PQT_EXPORT int -PQparamSendQueryPrepared(PGconn *conn, PGerror *err, PGparam *param, - const char *stmtName, int resultFormat); - -/* === in datetime.c === */ - -PQT_EXPORT void -PQlocalTZInfo(time_t *t, int *gmtoff, int *isdst, char **tzabbrp); - -/* === in ffi.c === */ - -PQT_EXPORT const char -pqt_hs_null_string_ptr[1]; - -#ifdef __cplusplus -} -#endif -#endif /* !LIBPQTYPES_H */ diff --git a/libpqtypes/src/misc.c b/libpqtypes/src/misc.c deleted file mode 100644 index dc003dd..0000000 --- a/libpqtypes/src/misc.c +++ /dev/null @@ -1,152 +0,0 @@ - -/* - * misc.c - * Type handler for CHAR, BOOL, MONEY, UUID data types. - * - * Copyright (c) 2011 eSilo, LLC. All rights reserved. - * This is free software; see the source for copying conditions. There is - * NO warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR - * PURPOSE. - */ - -#include "libpqtypes-int.h" - -int -pqt_put_char(PGtypeArgs *args) -{ - PGchar *chp = va_arg(args->ap, PGchar *); - PUTNULLCHK(args, chp); - *args->put.out = *chp; - return 1; -} - -int -pqt_get_char(PGtypeArgs *args) -{ - DECLVALUE(args); - PGchar *chp = va_arg(args->ap, PGchar *); - CHKGETVALS(args, chp); - *chp = *value; - return 0; -} - -int -pqt_put_bool(PGtypeArgs *args) -{ - PGbool *boolp = va_arg(args->ap, PGbool *); - PUTNULLCHK(args, boolp); - *args->put.out = *boolp != 0 ? 1 : 0; - return 1; -} - -int -pqt_get_bool(PGtypeArgs *args) -{ - DECLVALUE(args); - PGbool *boolp = va_arg(args->ap, PGbool *); - - CHKGETVALS(args, boolp); - - if (args->format == TEXTFMT) - *boolp = (*value == 't') ? 1 : 0; - else - *boolp = (*value)!=0 ? 1 : 0; - return 0; -} - -int -pqt_put_money(PGtypeArgs *args) -{ - PGmoney *moneyp = va_arg(args->ap, PGmoney *); - PUTNULLCHK(args, moneyp); - int len = args->fmtinfo->sversion >= 80300 ? 8 : 4; - - if (len == 8) - pqt_swap8(args->put.out, moneyp, 1); - else /* truncate: pre 8.3 server expecting a 4 byte money */ - pqt_buf_putint4(args->put.out, (int)*moneyp); - - return len; -} - -int -pqt_get_money(PGtypeArgs *args) -{ - DECLVALUE(args); - DECLLENGTH(args); - PGmoney *moneyp = va_arg(args->ap, PGmoney *); - - CHKGETVALS(args, moneyp); - - if (args->format == TEXTFMT) - { - char buf[64]; - char c, *p = buf; - char *bufend = buf + sizeof(buf); - - for (; (c = *value) != '\0' && pap, PGuuid *); - PUTNULLCHK(args, uuid); - args->put.out = uuid->data; - return sizeof(uuid->data); -} - -int -pqt_get_uuid(PGtypeArgs *args) -{ - DECLVALUE(args); - DECLLENGTH(args); - PGuuid *uuid = va_arg(args->ap, PGuuid *); - - CHKGETVALS(args, uuid); - - if (args->format == TEXTFMT) - return args->errorf(args, "text format is not supported"); - - if (valuel != sizeof(uuid->data)) - return args->errorf(args, - "invalid data: %d bytes expected, %d given", - sizeof(uuid->data), - valuel); - - memcpy(uuid->data, value, valuel); - return 0; -} - -int -pqt_put_null(PGtypeArgs *args) -{ - args->put.out = NULL; - return 0; -} - diff --git a/libpqtypes/src/network.c b/libpqtypes/src/network.c deleted file mode 100644 index d2c3984..0000000 --- a/libpqtypes/src/network.c +++ /dev/null @@ -1,257 +0,0 @@ - -/* - * network.c - * Type handler for the network data types. - * - * Copyright (c) 2011 eSilo, LLC. All rights reserved. - * This is free software; see the source for copying conditions. There is - * NO warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR - * PURPOSE. - */ - -#include "libpqtypes-int.h" - -#if defined(__CYGWIN__) || (defined(HAVE_CONFIG_H) && \ - !defined(HAVE_GETADDRINFO)) -# include "getaddrinfo.h" -#endif - -#ifndef PGSQL_AF_INET -# define PGSQL_AF_INET (AF_INET + 0) -#endif - -#ifndef PGSQL_AF_INET6 -# define PGSQL_AF_INET6 (AF_INET + 1) -#endif - -#ifndef AF_INET6 -#warning NO AF_INET6 SUPPORT! -#endif - -/* Some platforms don't define this, like AIX 4.3 */ -#ifndef AI_NUMERICHOST -# define AI_NUMERICHOST 0x04 -#endif - -/* handles cidr as well */ -int -pqt_put_inet(PGtypeArgs *args) -{ - unsigned char *b = (unsigned char *)args->put.out; - PGinet *inet = va_arg(args->ap, PGinet *); - int family; - - PUTNULLCHK(args, inet); - - family = ((struct sockaddr *)inet->sa_buf)->sa_family; - - if (family == AF_INET) - { - struct sockaddr_in *sa = (struct sockaddr_in *) inet->sa_buf; - *b++ = (unsigned char) PGSQL_AF_INET; - *b++ = (unsigned char) inet->mask; - *b++ = (unsigned char) (inet->is_cidr ? 1 : 0); - *b++ = (unsigned char) 4; - memcpy(b, &sa->sin_addr, 4); - b += 4; - } -#ifdef AF_INET6 - else if (family == AF_INET6) - { - struct sockaddr_in6 *sa = (struct sockaddr_in6 *) inet->sa_buf; - *b++ = (unsigned char) PGSQL_AF_INET6; - *b++ = (unsigned char) inet->mask; - *b++ = (unsigned char) (inet->is_cidr ? 1 : 0); - *b++ = (unsigned char) 16; - memcpy(b, &sa->sin6_addr, 16); - b += 16; - } -#endif - else - { - return args->errorf(args, "Unknown inet address family %d", family); - } - - return (int) ((char *) b - args->put.out); -} - -static int -get_inet2(PGtypeArgs *args, int is_cidr) -{ - DECLVALUE(args); - unsigned short family; - PGinet *inet = va_arg(args->ap, PGinet *); - - CHKGETVALS(args, inet); - - if (args->format == TEXTFMT) - { - int r; - char *p; - char ipstr[80]; - struct addrinfo *ai = NULL; - struct addrinfo hints; - - pqt_strcpy(ipstr, sizeof(ipstr), value); - if ((p = strrchr(ipstr, '/'))) - { - *p = 0; - inet->mask = atoi(p+1); - } - else - { - inet->mask = 32; - } - - inet->is_cidr = is_cidr; - - /* suppress hostname lookups */ - memset(&hints, 0, sizeof(hints)); - hints.ai_flags = AI_NUMERICHOST; - - /* Without this, windows chokes with WSAHOST_NOT_FOUND */ -#ifdef PQT_WIN32 - hints.ai_family = AF_INET; -#endif - - if ((r = getaddrinfo(ipstr, NULL, &hints, &ai)) || !ai) - { - if(r == EAI_BADFLAGS) - { - hints.ai_flags = 0; - r = getaddrinfo(ipstr, NULL, &hints, &ai); - } - /* Another WSAHOST_NOT_FOUND work around, but for IPv6 */ -#if defined(PQT_WIN32) && defined(AF_INET6) - else if(r == WSAHOST_NOT_FOUND) - { - hints.ai_flags = 0; - hints.ai_family = AF_INET6; - r = getaddrinfo(ipstr, NULL, &hints, &ai); - } -#endif - - if(r) - RERR_STR2INT(args); - } - - inet->sa_buf_len = (int) ai->ai_addrlen; - memcpy(inet->sa_buf, ai->ai_addr, inet->sa_buf_len); - - /* Some platforms, lika AIX 4.3, do not zero this structure properly. - * The family and port are dirty, so set the first 4 bytes to 0 and - * then re-set the family. I saw "0x1002" as the first 2 bytes of - * this structure (dumb getaddrinfo), it should be "0x0002" for AF_INET. - */ - memset(inet->sa_buf, 0, 4); - ((struct sockaddr *)inet->sa_buf)->sa_family = ai->ai_addr->sa_family; - - /* Uninitialized memory, postgres inet/cidr types don't store this. - * Make sure its set to 0. Another AIX problem (maybe other platforms). - */ -#ifdef AF_INET6 - if (ai->ai_addr->sa_family == AF_INET6) - ((struct sockaddr_in6 *)inet->sa_buf)->sin6_flowinfo = 0; -#endif - - freeaddrinfo(ai); - return 0; - } - - family = (unsigned short) *value++; - if (family == PGSQL_AF_INET) - { - struct sockaddr_in *sa = (struct sockaddr_in *) inet->sa_buf; - sa->sin_family = AF_INET; - inet->mask = (unsigned char) *value++; - inet->is_cidr = *value++; - memcpy(&sa->sin_addr, value + 1, *value); - inet->sa_buf_len = (int) sizeof(struct sockaddr_in); - } -#ifdef AF_INET6 - else if (family == PGSQL_AF_INET6) - { - struct sockaddr_in6 *sa = (struct sockaddr_in6 *) inet->sa_buf; - sa->sin6_family = AF_INET6; - inet->mask = (unsigned char) *value++; - inet->is_cidr = *value++; - memcpy(&sa->sin6_addr, value + 1, *value); - inet->sa_buf_len = (int) sizeof(struct sockaddr_in6); - } -#endif - else - { - return args->errorf(args, "Unknown inet address family %d", family); - } - - return 0; -} - -int -pqt_get_inet(PGtypeArgs *args) -{ - return get_inet2(args, 0); -} - -int -pqt_get_cidr(PGtypeArgs *args) -{ - return get_inet2(args, 1); -} - -int -pqt_put_macaddr(PGtypeArgs *args) -{ - PGmacaddr *mac = va_arg(args->ap, PGmacaddr *); - - PUTNULLCHK(args, mac); - - args->put.out[0] = (unsigned char) mac->a; - args->put.out[1] = (unsigned char) mac->b; - args->put.out[2] = (unsigned char) mac->c; - args->put.out[3] = (unsigned char) mac->d; - args->put.out[4] = (unsigned char) mac->e; - args->put.out[5] = (unsigned char) mac->f; - return 6; -} - -int -pqt_get_macaddr(PGtypeArgs *args) -{ - DECLVALUE(args); - unsigned char *p; - PGmacaddr *mac = va_arg(args->ap, PGmacaddr *); - - CHKGETVALS(args, mac); - - if (args->format == TEXTFMT) - { - int a,b,c,d,e,f; - int count = sscanf(value, "%x:%x:%x:%x:%x:%x", &a,&b,&c,&d,&e,&f); - - if (count != 6 || (a < 0) || (a > 255) || (b < 0) || (b > 255) || - (c < 0) || (c > 255) || (d < 0) || (d > 255) || - (e < 0) || (e > 255) || (f < 0) || (f > 255)) - RERR_STR2INT(args); - - mac->a = a; - mac->b = b; - mac->c = c; - mac->d = d; - mac->e = e; - mac->f = f; - return 0; - } - - p = (unsigned char *) value; - mac->a = *p++; - mac->b = *p++; - mac->c = *p++; - mac->d = *p++; - mac->e = *p++; - mac->f = *p; - return 0; -} - - - diff --git a/libpqtypes/src/numerics.c b/libpqtypes/src/numerics.c deleted file mode 100644 index 97e1c62..0000000 --- a/libpqtypes/src/numerics.c +++ /dev/null @@ -1,224 +0,0 @@ - -/* - * numeric.c - * Type handler for the numeric data types. - * - * Copyright (c) 2011 eSilo, LLC. All rights reserved. - * This is free software; see the source for copying conditions. There is - * NO warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR - * PURPOSE. - */ - -#include "libpqtypes-int.h" -#include - -/* Extremely annoying warning "conversion from 'int ' to 'short'" on - * Visual Studio 6. Normally this warning is useful but not in this - * case. Disable it. - */ -#if defined(PQT_MSVC) && PQT_MSVC <= 1200 -# pragma warning (disable : 4244) -#endif - -int -pqt_put_int2(PGtypeArgs *args) -{ - PGint2 *i2p = va_arg(args->ap, PGint2 *); - PUTNULLCHK(args, i2p); - pqt_buf_putint2(args->put.out, *i2p); - return 2; -} - -int -pqt_get_int2(PGtypeArgs *args) -{ - DECLVALUE(args); - PGint2 *i2p = va_arg(args->ap, PGint2 *); - - CHKGETVALS(args, i2p); - - if (args->format == TEXTFMT) - { - int n; - - errno = 0; - if ((n = (int) strtol(value, NULL, 10)) == 0 && errno) - RERR_STR2INT(args); - - *i2p = (PGint2)n; - return 0; - } - - *i2p = pqt_buf_getint2(value); - return 0; -} - -/* handles oid as well */ -int -pqt_put_int4(PGtypeArgs *args) -{ - PGint4 *i4p = va_arg(args->ap, PGint4 *); - PUTNULLCHK(args, i4p); - *(PGint4 *)args->put.out = (PGint4) htonl(*i4p); - return 4; -} - -/* handles oid as well */ -int -pqt_get_int4(PGtypeArgs *args) -{ - DECLVALUE(args); - PGint4 *i4p = va_arg(args->ap, PGint4 *); - - CHKGETVALS(args, i4p); - - if (args->format == TEXTFMT) - { - PGint4 n; - - /* Use strtoul so this can support Oid */ - if ((n = (PGint4) strtoul(value, NULL, 10)) == 0 && errno) - RERR_STR2INT(args); - - *i4p = n; - return 0; - } - - *i4p = (PGint4) pqt_buf_getint4(value); - return 0; -} - -int -pqt_put_int8(PGtypeArgs *args) -{ - PGint8 *i8p = va_arg(args->ap, PGint8 *); - PUTNULLCHK(args, i8p); - pqt_swap8(args->put.out, i8p, 1); - return 8; -} - -int -pqt_get_int8(PGtypeArgs *args) -{ - DECLVALUE(args); - PGint8 *i8p = va_arg(args->ap, PGint8 *); - - CHKGETVALS(args, i8p); - - if (args->format == TEXTFMT) - { - if (pqt_text_to_int8(value, i8p) == -1) - RERR_STR2INT(args); - return 0; - } - - pqt_swap8(i8p, value, 0); - return 0; -} - -int -pqt_put_float4(PGtypeArgs *args) -{ - PGfloat4 *f4p = va_arg(args->ap, PGfloat4 *); - PUTNULLCHK(args, f4p); - void *vp = (void *)f4p; - pqt_buf_putint4(args->put.out, *(int *) vp); - return 4; -} - -int -pqt_get_float4(PGtypeArgs *args) -{ - DECLVALUE(args); - int *f4p = (int *) va_arg(args->ap, PGfloat4 *); - - CHKGETVALS(args, f4p); - - if (args->format == TEXTFMT) - { - PGfloat4 f; - - errno = 0; - if ((f = (PGfloat4) strtod(value, NULL)) == 0 && errno) - RERR_STR2INT(args); - - *(PGfloat4 *) f4p = f; - return 0; - } - - *f4p = pqt_buf_getint4(value); - return 0; -} - -int -pqt_put_float8(PGtypeArgs *args) -{ - PGfloat8 *f8p = va_arg(args->ap, PGfloat8 *); - PUTNULLCHK(args, f8p); - pqt_swap8(args->put.out, f8p, 1); - return 8; -} - -int -pqt_get_float8(PGtypeArgs *args) -{ - DECLVALUE(args); - PGfloat8 *f8p = va_arg(args->ap, PGfloat8 *); - - CHKGETVALS(args, f8p); - - if (args->format == TEXTFMT) - { - if (!pqt_text_to_float8(f8p, value, NULL)) - RERR_STR2INT(args); - - return 0; - } - - pqt_swap8(f8p, value, 0); - return 0; -} - -int -pqt_put_numeric(PGtypeArgs *args) -{ - NumericVar *num = va_arg(args->ap, NumericVar *); - PUTNULLCHK(args, num); - - /* variable length data type, grow args->put.out buffer if needed */ - int numlen = (int) sizeof(short) * (4 + num->ndigits); - if (args->put.expandBuffer(args, numlen) == -1) - return -1; - - short *out = (short *) args->put.out; - *out++ = htons(num->ndigits); - *out++ = htons(num->weight); - *out++ = htons(num->sign); - *out++ = htons(num->dscale); - - for (int i = 0; i < num->ndigits; ++i) - *out++ = num->digits[i]; - - return numlen; -} - -int -pqt_get_numeric(PGtypeArgs *args) -{ - DECLVALUE(args); - NumericVar *num = va_arg(args->ap, NumericVar *); - - CHKGETVALS(args, num); - - if (args->format == TEXTFMT) - return args->errorf(args, "text format is not supported"); - - short *s = (short *) value; - num->ndigits = ntohs(*s); s++; - num->weight = ntohs(*s); s++; - num->sign = ntohs(*s); s++; - num->dscale = ntohs(*s); s++; - num->digits = s; - - return 0; -} diff --git a/libpqtypes/src/param.c b/libpqtypes/src/param.c deleted file mode 100644 index d217d44..0000000 --- a/libpqtypes/src/param.c +++ /dev/null @@ -1,488 +0,0 @@ - -/* - * param.c - * Management functions for the PGparam object. - * - * Copyright (c) 2011 eSilo, LLC. All rights reserved. - * This is free software; see the source for copying conditions. There is - * NO warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR - * PURPOSE. - */ - -#include "libpqtypes-int.h" - -static int argsExpandBuffer(PGtypeArgs *args, int new_len); - -PGparam * -PQparamCreate(const PGconn *conn, PGerror *err) -{ - PGparam *param; - PGtypeData *connData; - - if (!conn) - { - PQseterror(err, "PGconn cannot be NULL"); - return NULL; - } - - param = (PGparam *) malloc(sizeof(PGparam)); - if (!param) - { - PQseterror(err, PQT_OUTOFMEMORY); - return NULL; - } - - memset(param, 0, sizeof(PGparam)); - - connData = (PGtypeData *) PQinstanceData(conn, pqt_eventproc); - if (!connData) - { - PQparamClear(param); - PQseterror(err, "No type data exists for PGconn at %p", conn); - return NULL; - } - - /* copy any handlers from conn object */ - if (connData->typhcnt > 0) - { - param->typhandlers = pqt_duphandlers( - connData->typhandlers, connData->typhcnt); - - if (!param->typhandlers) - { - PQparamClear(param); - PQseterror(err, PQT_OUTOFMEMORY); - return NULL; - } - - param->typhcnt = connData->typhcnt; - } - - /* copy any typespecs from conn object */ - if (connData->typspeccnt > 0) - { - param->typspecs = pqt_dupspecs( - connData->typspecs, connData->typspeccnt); - - if (!param->typspecs) - { - PQparamClear(param); - PQseterror(err, PQT_OUTOFMEMORY); - return NULL; - } - - param->typspeccnt = connData->typspeccnt; - } - - pqt_getfmtinfo(conn, ¶m->fmtinfo); - return param; -} - -PQT_EXPORT PGparam * -PQparamDup(PGparam *param, PGerror *err) -{ - PGparam *new_param; - - if (!param) - { - PQseterror(err, "PGparam to duplicate cannot be NULL"); - return NULL; - } - - new_param = (PGparam *) malloc(sizeof(PGparam)); - if (!new_param) - { - PQseterror(err, PQT_OUTOFMEMORY); - return NULL; - } - - memset(new_param, 0, sizeof(PGparam)); - - /* copy any handlers from conn object */ - if (param->typhcnt > 0) - { - new_param->typhandlers = pqt_duphandlers( - param->typhandlers, param->typhcnt); - - if (!new_param->typhandlers) - { - PQparamClear(new_param); - PQseterror(err, PQT_OUTOFMEMORY); - return NULL; - } - - new_param->typhcnt = param->typhcnt; - } - - /* copy any typespecs from conn object */ - if (param->typspeccnt > 0) - { - new_param->typspecs = pqt_dupspecs( - param->typspecs, param->typspeccnt); - - if (!new_param->typspecs) - { - PQparamClear(new_param); - PQseterror(err, PQT_OUTOFMEMORY); - return NULL; - } - - new_param->typspeccnt = param->typspeccnt; - } - - memcpy(&new_param->fmtinfo, ¶m->fmtinfo, sizeof(PGtypeFormatInfo)); - - /* copy any values, don't bother if array is empty. */ - if (param->vcnt > 0) - { - int i; - - for (i=0; i < param->vcnt; i++) - { - int flags = 0; - PGvalue *val = ¶m->vals[i]; - - /* Is val->data is direct user pointer? If so, set pointer flag - * so pqt_putparam doesn't deep copy it. - */ - if (val->ptr != val->data) - flags |= TYPFLAG_POINTER; - - if (!pqt_putparam(new_param, err, val->data, val->datal, flags, - val->format, val->oid)) - { - PQparamClear(new_param); - return NULL; - } - } - } - - return new_param; -} - -int -PQparamCount(PGparam *param) -{ - if (param) - return param->vcnt; - return 0; -} - -void -PQparamReset(PGparam *param) -{ - if (param) - param->vcnt = 0; -} - -void -PQparamClear(PGparam *param) -{ - int i; - - if (!param) - return; - - /* vmax is the size of the vals array. We don't use vcnt because - * someone could of just called PQparamReset, leaving vcnt 0. If - * we find any value pointers that are not NULL, free'm. - */ - for (i=0; i < param->vmax; i++) - if (param->vals[i].ptr) - free(param->vals[i].ptr); - - if (param->vals) - free(param->vals); - - pqt_freehandlers(param->typhandlers, param->typhcnt); - pqt_freespecs(param->typspecs, param->typspeccnt); - - param->vmax = 0; - param->vcnt = 0; - param->vals = NULL; - param->typhcnt = 0; - param->typhandlers = NULL; - param->typspeccnt = 0; - param->typspecs = NULL; - - free(param); -} - -int -PQputf(PGparam *param, PGerror *err, const char *format, ...) -{ - int r; - va_list ap; - - /* This function is just a wrapper to PQputvf */ - va_start(ap, format); - r = PQputvf(param, err, NULL, 0, format, ap); - va_end(ap); - - return r; -} - -int -PQputvf(PGparam *param, PGerror *err, char *stmtBuf, size_t stmtBufLen, - const char *format, va_list ap) -{ - int n=0; - int flags; - size_t stmtPos = 0; - int save_vcnt; - int typpos = 0; - PGtypeHandler *h; - PGtypeArgs args; - char args_outbuf[4096]; - PGtypeSpec *spec = NULL; - - if (!param) - { - PQseterror(err, "PGparam cannot be NULL"); - return FALSE; - } - - if (!format || !*format) - { - PQseterror(err, "param 'format' cannot be NULL or an empty string"); - return FALSE; - } - - if (stmtBuf && stmtBufLen < 1) - { - PQseterror(err, "Invalid argument: stmtBufLen must be >= 1"); - return FALSE; - } - - save_vcnt = param->vcnt; - va_copy(args.ap, ap); - - /* "@name" format, lookup typeSpec in cache */ - if(format && *format == '@') - { - - spec = pqt_getspec(param->typspecs, param->typspeccnt, format + 1); - - /* If we didn't find a type spec, this is an error. A format string - * with a '@' as its first character is reserved. - */ - if (!spec) - { - PQseterror(err, "No such prepared specifier name: '%s'", format + 1); - return FALSE; - } - } - - while (format && *format) - { - if (spec) - { - /* done, no more handlers in cached spec string. */ - if (typpos == spec->idcnt) - break; - - h = pqt_gethandlerbyid(param->typhandlers, param->typhcnt, - spec->idlist[typpos]); - - /* should be an unusual, or a "will never happen", situation */ - if (!h) - { - va_end(args.ap); - PQseterror(err, "Unknown type handler id at position %d", typpos+1); - param->vcnt = save_vcnt; - return FALSE; - } - - flags = (int) spec->flags[typpos]; - typpos++; - } - else - { - format = pqt_parse(err, format, param->typhandlers, param->typhcnt, - stmtBuf, stmtBufLen, &h, &stmtPos, &typpos, &flags); - - if (!format) - { - param->vcnt = save_vcnt; - return FALSE; - } - - if (!h) - continue; - } - - args.is_put = 1; - args.put.param = param; - args.fmtinfo = ¶m->fmtinfo; - args.put.out = args_outbuf; - args.put.__allocated_out = NULL; - args.put.outl = (int) sizeof(args_outbuf); - args.is_ptr = (flags & TYPFLAG_POINTER) ? 1 : 0; - args.err = err; - args.format = BINARYFMT; - args.put.expandBuffer = argsExpandBuffer; - args.typpos = typpos; - args.typhandler = h; - args.errorf = pqt_argserrorf; - args.super = pqt_argssuper; - *args.put.out = 0; - - if (flags & TYPFLAG_ARRAY) - n = pqt_put_array(&args); - else - n = h->typput(&args); - - if (n == -1) - { - if (args.put.__allocated_out && args.put.__allocated_out != args_outbuf) - free(args.put.__allocated_out); - param->vcnt = save_vcnt; - return FALSE; - } - - if (args.put.out == NULL) - { - args.format = BINARYFMT; - n = -1; - } - - n = pqt_putparam(param, err, args.put.out, n, flags, args.format, - (flags & TYPFLAG_ARRAY) ? h->typoid_array : h->typoid); - - if (args.put.__allocated_out && args.put.__allocated_out != args_outbuf) - free(args.put.__allocated_out); - - if (!n) - { - param->vcnt = save_vcnt; - return FALSE; - } - } - - if (stmtBuf) - stmtBuf[stmtPos] = 0; - - return TRUE; -} - - -/* ---------------------------- - * Helper functions - */ - -int -pqt_putparam(PGparam *param, PGerror *err, const void *data, int datal, - int flags, int format, Oid typoid) -{ - PGvalue *v; - - if (!param) - return FALSE; - - if (!data) - datal = -1; - - /* need to grow param vals array */ - if (param->vcnt == param->vmax) - { - PGvalue *vals; - int vmax = param->vmax ? (param->vmax * 3) / 2 : 16; - - vals = (PGvalue *) pqt_realloc(param->vals, sizeof(PGvalue) * vmax); - if (!vals) - { - PQseterror(err, PQT_OUTOFMEMORY); - return FALSE; - } - - /* zero out the new array elements */ - memset(vals + param->vcnt, 0, (vmax - param->vcnt) * sizeof(PGvalue)); - param->vmax = vmax; - param->vals = vals; - } - - /* grab next param value */ - v = ¶m->vals[param->vcnt]; - - if (datal == -1) - { - v->data = NULL; - } - /* wants to put a direct pointer */ - else if (flags & TYPFLAG_POINTER) - { - v->data = (char *) data; - } - else - { - /* allocate more mem for param value ptr or if v->ptr is NULL, - * since then the data will not be copied (memcpy with first - * argument being NULL silently does nothing). it usually happens - * when datal is 0 (eg. empty string was passed). - */ - if (v->ptrl < datal || v->ptr == NULL) - { - /* prevent malloc(0) call which is implementation - * defined and may either return NULL or unique - * pointer (the latter is expected here). - */ - int alloc_size = datal == 0 ? 1 : datal; - char *ptr = (char *) pqt_realloc(v->ptr, alloc_size); - - if (!ptr) - { - PQseterror(err, PQT_OUTOFMEMORY); - return FALSE; - } - - v->ptrl = datal; - v->ptr = ptr; - } - - memcpy(v->ptr, data, datal); - v->data = v->ptr; - } - - v->datal = datal; - v->format = format; - v->oid = typoid; - param->vcnt++; - return TRUE; -} - -/* returns 0 on success and -1 on error */ -static int -argsExpandBuffer(PGtypeArgs *args, int new_len) -{ - char *new_out; - - if (new_len <= args->put.outl) - return 0; - - if (!args->put.__allocated_out) - { - new_out = (char *) malloc(new_len); - if (!new_out) - return args->errorf(args, PQT_OUTOFMEMORY); - - /* fully copy existing stack buffer, we don't know what data - * the user has already written and may want to keep. - */ - memcpy(new_out, args->put.out, args->put.outl); - } - else - { - new_out = (char *) realloc(args->put.__allocated_out, new_len); - if (!new_out) - return args->errorf(args, PQT_OUTOFMEMORY); - } - - args->put.out = args->put.__allocated_out = new_out; - args->put.outl = new_len; - return 0; -} - - - - - diff --git a/libpqtypes/src/port.c b/libpqtypes/src/port.c deleted file mode 100644 index 9bcabf5..0000000 --- a/libpqtypes/src/port.c +++ /dev/null @@ -1,586 +0,0 @@ - -/* - * port.c - * Portability functions. Some of these functions are drop-ins for - * systems missing them and others just centralize differences. - * - * Copyright (c) 2011 eSilo, LLC. All rights reserved. - * This is free software; see the source for copying conditions. There is - * NO warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR - * PURPOSE. - */ - -#include "libpqtypes-int.h" - -#if defined(__MINGW32__) || defined(__CYGWIN__) -# define HAVE_VSNPRINTF -#endif - -int -pqt_snprintf(char *buf, size_t size, const char *format, ...) -{ - int n; - va_list ap; - va_start(ap, format); - n = pqt_vsnprintf(buf, size, format, ap); - va_end(ap); - return n; -} - -int -pqt_vsnprintf(char *buf, size_t size, const char *format, va_list ap) -{ - int n; - -#ifdef PQT_MSVC -# if PQT_MSVC >= 1400 - /* MSVC 8 */ - n = _vsnprintf_s(buf, size, size-1, format, ap); -# else - /* MSVC 6 or 7 */ - n = _vsnprintf(buf, size, format, ap); -# endif - -#elif defined(HAVE_VSNPRINTF) - /* All other platforms, including MinGW and Cygwin. */ - n = vsnprintf(buf, size, format, ap); -#else -# error "vsnprintf is not available" -#endif - - if (n > -1 && (size_t) n < size) - return n; - - /* Although some implementations return "required" buf size, this - * always return -1 to keep things consistent for caller. - */ - return -1; -} - -#if defined(HAVE_CONFIG_H) && (!defined(HAVE_STRTOL) || \ - !defined(HAVE_STRTOUL)) - -static unsigned long string2long(const char *nptr, char **endptr, - int base, int is_signed); - -#ifndef HAVE_STRTOL -long -strtol(const char *nptr, char **endptr, int base) -{ - return (signed long) string2long(nptr, endptr, base, 1); -} -#endif - -#ifndef HAVE_STRTOUL -unsigned long -strtoul(const char *nptr, char **endptr, int base) -{ - return (unsigned long) string2long(nptr, endptr, base, 0); -} -#endif - -#define between(a, c, z) \ - ((unsigned) ((c) - (a)) <= (unsigned) ((z) - (a))) - -static unsigned long -string2long(const char *nptr, char ** const endptr, - int base, int is_signed) -{ - unsigned int v; - unsigned long val = 0; - int c; - int ovfl = 0, sign = 1; - const char *startnptr = nptr, *nrstart; - - if (endptr) - *endptr = (char *) nptr; - - while (isspace(*nptr)) - nptr++; - c = *nptr; - - if (c == '-' || c == '+') - { - if (c == '-') - sign = -1; - nptr++; - } - nrstart = nptr; /* start of the number */ - - /* When base is 0, the syntax determines the actual base */ - if (base == 0) - { - if (*nptr == '0') - { - if (*++nptr == 'x' || *nptr == 'X') - { - base = 16; - nptr++; - } - else - { - base = 8; - } - } - else - { - base = 10; - } - } - else if (base==16 && *nptr=='0' && (*++nptr =='x' || *nptr =='X')) - { - nptr++; - } - - for (;;) - { - c = *nptr; - if (between('0', c, '9')) - v = c - '0'; - else if (between('a', c, 'z')) - v = c - 'a' + 0xa; - else if (between('A', c, 'Z')) - v = c - 'A' + 0xA; - else - break; - - if (v >= base) - break; - if (val > (ULONG_MAX - v) / base) - ovfl++; - - val = (val * base) + v; - nptr++; - } - - if (endptr) - { - if (nrstart == nptr) - *endptr = (char *) startnptr; - else - *endptr = (char *) nptr; - } - - if (!ovfl) - { - /* Overflow is only possible when converting a signed long. */ - if (is_signed && ((sign < 0 && val > -(unsigned long) LONG_MIN) - || (sign > 0 && val > LONG_MAX))) - ovfl++; - } - - if (ovfl) - { - errno = ERANGE; - if (is_signed) - { - if (sign < 0) - return LONG_MIN; - else - return LONG_MAX; - } - else - { - return ULONG_MAX; - } - } - - return (long) sign * val; -} - -#endif /* !strtol || !strtoul */ - - -/* Non-windows platforms that don't have strtoll */ -#if defined(HAVE_CONFIG_H) && !defined(HAVE_STRTOLL) - -#define MIN_INT64 (-MAX_INT64 - PQT_INT64CONST(1)) -#define MAX_INT64 PQT_INT64CONST(9223372036854775807) - -/* no locale support */ -long long int -strtoll(const char *nptr, char **endptr, int base) -{ - const char *s; - /* LONGLONG */ - long long int acc, cutoff; - int c; - int neg, any, cutlim; - - /* endptr may be NULL */ - -#ifdef __GNUC__ - /* This outrageous construct just to shut up a GCC warning. */ - (void) &acc; (void) &cutoff; -#endif - - /* - * Skip white space and pick up leading +/- sign if any. - * If base is 0, allow 0x for hex and 0 for octal, else - * assume decimal; if base is already 16, allow 0x. - */ - s = nptr; - do { - c = (unsigned char) *s++; - } while (isspace(c)); - if (c == '-') { - neg = 1; - c = *s++; - } else { - neg = 0; - if (c == '+') - c = *s++; - } - if ((base == 0 || base == 16) && - c == '0' && (*s == 'x' || *s == 'X')) { - c = s[1]; - s += 2; - base = 16; - } - if (base == 0) - base = c == '0' ? 8 : 10; - - /* - * Compute the cutoff value between legal numbers and illegal - * numbers. That is the largest legal value, divided by the - * base. An input number that is greater than this value, if - * followed by a legal input character, is too big. One that - * is equal to this value may be valid or not; the limit - * between valid and invalid numbers is then based on the last - * digit. For instance, if the range for long longs is - * [-9223372036854775808..9223372036854775807] and the input base - * is 10, cutoff will be set to 922337203685477580 and cutlim to - * either 7 (neg==0) or 8 (neg==1), meaning that if we have - * accumulated a value > 922337203685477580, or equal but the - * next digit is > 7 (or 8), the number is too big, and we will - * return a range error. - * - * Set any if any `digits' consumed; make it negative to indicate - * overflow. - */ - cutoff = neg ? MIN_INT64 : MAX_INT64; - cutlim = (int) (cutoff % base); - cutoff /= base; - if (neg) { - if (cutlim > 0) { - cutlim -= base; - cutoff += 1; - } - cutlim = -cutlim; - } - for (acc = 0, any = 0;; c = (unsigned char) *s++) { - if (isdigit(c)) - c -= '0'; - else if (isalpha(c)) - c -= isupper(c) ? 'A' - 10 : 'a' - 10; - else - break; - if (c >= base) - break; - if (any < 0) - continue; - if (neg) { - if (acc < cutoff || (acc == cutoff && c > cutlim)) { - any = -1; - acc = MIN_INT64; - errno = ERANGE; - } else { - any = 1; - acc *= base; - acc -= c; - } - } else { - if (acc > cutoff || (acc == cutoff && c > cutlim)) { - any = -1; - acc = MAX_INT64; - errno = ERANGE; - } else { - any = 1; - acc *= base; - acc += c; - } - } - } - if (endptr != 0) - /* LINTED interface specification */ - *endptr = (char *) (any ? s - 1 : nptr); - return (acc); -} - -#endif /* !HAVE_STRTOLL */ - - -/* Non-windows machines missing getaddrinfo (postgres's port) */ -#if defined(__CYGWIN__) || (defined(HAVE_CONFIG_H) && \ - !defined(HAVE_GETADDRINFO)) -#undef FRONTEND -#include -#include -#include -#include - -#include "getaddrinfo.h" - -extern int h_errno; - -/* - * get address info for ipv4 sockets. - * - * Bugs: - only one addrinfo is set even though hintp is NULL or - * ai_socktype is 0 - * - AI_CANONNAME is not supported. - * - servname can only be a number, not text. - */ -int -getaddrinfo(const char *node, const char *service, - const struct addrinfo * hintp, - struct addrinfo ** res) -{ - struct addrinfo *ai; - struct sockaddr_in sin, - *psin; - struct addrinfo hints; - - if (hintp == NULL) - { - memset(&hints, 0, sizeof(hints)); - hints.ai_family = AF_INET; - hints.ai_socktype = SOCK_STREAM; - } - else - memcpy(&hints, hintp, sizeof(hints)); - - if (hints.ai_family != AF_INET && hints.ai_family != AF_UNSPEC) - return EAI_FAMILY; - - if (hints.ai_socktype == 0) - hints.ai_socktype = SOCK_STREAM; - - if (!node && !service) - return EAI_NONAME; - - memset(&sin, 0, sizeof(sin)); - - sin.sin_family = AF_INET; - - if (node) - { - if (node[0] == '\0') - sin.sin_addr.s_addr = htonl(INADDR_ANY); - else if (hints.ai_flags & AI_NUMERICHOST) - { - if (!inet_aton(node, &sin.sin_addr)) - return EAI_FAIL; - } - else - { - struct hostent *hp; - -#ifdef FRONTEND - struct hostent hpstr; - char buf[BUFSIZ]; - int herrno = 0; - - pqGethostbyname(node, &hpstr, buf, sizeof(buf), - &hp, &herrno); -#else - hp = gethostbyname(node); -#endif - if (hp == NULL) - { - switch (h_errno) - { - case HOST_NOT_FOUND: - case NO_DATA: - return EAI_NONAME; - case TRY_AGAIN: - return EAI_AGAIN; - case NO_RECOVERY: - default: - return EAI_FAIL; - } - } - if (hp->h_addrtype != AF_INET) - return EAI_FAIL; - - memcpy(&(sin.sin_addr), hp->h_addr, hp->h_length); - } - } - else - { - if (hints.ai_flags & AI_PASSIVE) - sin.sin_addr.s_addr = htonl(INADDR_ANY); - else - sin.sin_addr.s_addr = htonl(INADDR_LOOPBACK); - } - - if (service) - sin.sin_port = htons((unsigned short) atoi(service)); - -#ifdef HAVE_STRUCT_SOCKADDR_STORAGE_SS_LEN - sin.sin_len = sizeof(sin); -#endif - - ai = malloc(sizeof(*ai)); - if (!ai) - return EAI_MEMORY; - - psin = malloc(sizeof(*psin)); - if (!psin) - { - free(ai); - return EAI_MEMORY; - } - - memcpy(psin, &sin, sizeof(*psin)); - - ai->ai_flags = 0; - ai->ai_family = AF_INET; - ai->ai_socktype = hints.ai_socktype; - ai->ai_protocol = hints.ai_protocol; - ai->ai_addrlen = sizeof(*psin); - ai->ai_addr = (struct sockaddr *) psin; - ai->ai_canonname = NULL; - ai->ai_next = NULL; - - *res = ai; - - return 0; -} - - -void -freeaddrinfo(struct addrinfo * res) -{ - if (res) - { - if (res->ai_addr) - free(res->ai_addr); - free(res); - } -} - - -const char * -gai_strerror(int errcode) -{ -#ifdef HAVE_HSTRERROR - int hcode; - - switch (errcode) - { - case EAI_NONAME: - hcode = HOST_NOT_FOUND; - break; - case EAI_AGAIN: - hcode = TRY_AGAIN; - break; - case EAI_FAIL: - default: - hcode = NO_RECOVERY; - break; - } - - return hstrerror(hcode); -#else /* !HAVE_HSTRERROR */ - - switch (errcode) - { - case EAI_NONAME: - return "Unknown host"; - case EAI_AGAIN: - return "Host name lookup failure"; - /* Errors below are probably WIN32 only */ -#ifdef EAI_BADFLAGS - case EAI_BADFLAGS: - return "Invalid argument"; -#endif -#ifdef EAI_FAMILY - case EAI_FAMILY: - return "Address family not supported"; -#endif -#ifdef EAI_MEMORY - case EAI_MEMORY: - return "Not enough memory"; -#endif -#ifdef EAI_NODATA -#ifndef WIN32_ONLY_COMPILER /* MSVC complains because another case has the - * same value */ - case EAI_NODATA: - return "No host data of that type was found"; -#endif -#endif -#ifdef EAI_SERVICE - case EAI_SERVICE: - return "Class type not found"; -#endif -#ifdef EAI_SOCKTYPE - case EAI_SOCKTYPE: - return "Socket type not supported"; -#endif - default: - return "Unknown server error"; - } -#endif /* HAVE_HSTRERROR */ -} - -/* - * Convert an ipv4 address to a hostname. - * - * Bugs: - Only supports NI_NUMERICHOST and NI_NUMERICSERV - * It will never resolv a hostname. - * - No IPv6 support. - */ -int -getnameinfo(const struct sockaddr * sa, int salen, - char *node, int nodelen, - char *service, int servicelen, int flags) -{ - /* Invalid arguments. */ - if (sa == NULL || (node == NULL && service == NULL)) - return EAI_FAIL; - - /* We don't support those. */ - if ((node && !(flags & NI_NUMERICHOST)) - || (service && !(flags & NI_NUMERICSERV))) - return EAI_FAIL; - -#if defined(HAVE_IPV6) || defined(AF_INET6) - if (sa->sa_family == AF_INET6) - return EAI_FAMILY; -#endif - - if (node) - { - int ret = -1; - - if (sa->sa_family == AF_INET) - { - char *p; - - p = inet_ntoa(((struct sockaddr_in *) sa)->sin_addr); - ret = pqt_snprintf(node, nodelen, "%s", p); - } - if (ret == -1) - return EAI_MEMORY; - } - - if (service) - { - int ret = -1; - - if (sa->sa_family == AF_INET) - { - ret = pqt_snprintf(service, servicelen, "%d", - ntohs(((struct sockaddr_in *) sa)->sin_port)); - } - if (ret == -1) - return EAI_MEMORY; - } - - return 0; -} - -#endif /* HAVE_GETADDRINFO */ - - diff --git a/libpqtypes/src/pqt_config.h b/libpqtypes/src/pqt_config.h deleted file mode 100644 index 34e743e..0000000 --- a/libpqtypes/src/pqt_config.h +++ /dev/null @@ -1,151 +0,0 @@ -/* src/pqt_config.h. Generated from pqt_config.h.in by configure. */ -/* src/pqt_config.h.in. Generated from configure.ac by autoheader. */ - -/* Define to 1 if you have the header file. */ -#define HAVE_ARPA_INET_H 1 - -/* Define to 1 if you have the `ceil' function. */ -#define HAVE_CEIL 1 - -/* Define to 1 if you have the header file. */ -#define HAVE_DLFCN_H 1 - -/* Define to 1 if you have the `floor' function. */ -#define HAVE_FLOOR 1 - -/* Define if getaddrinfo exists */ -#define HAVE_GETADDRINFO /**/ - -/* Define to 1 if you have the `hstrerror' function. */ -#define HAVE_HSTRERROR 1 - -/* Define to 1 if you have the header file. */ -#define HAVE_INTTYPES_H 1 - -/* Define to 1 if you have the header file. */ -#define HAVE_LIMITS_H 1 - -/* Define to 1 if you have the `localtime_r' function. */ -#define HAVE_LOCALTIME_R 1 - -/* Define to 1 if you have the header file. */ -#define HAVE_MATH_H 1 - -/* Define to 1 if you have the header file. */ -#define HAVE_MEMORY_H 1 - -/* Define to 1 if you have the header file. */ -#define HAVE_NETDB_H 1 - -/* Define to 1 if you have the header file. */ -#define HAVE_NETINET_IN_H 1 - -/* Define to 1 if you have the `rint' function. */ -#define HAVE_RINT 1 - -/* Define to 1 if the system has the type `socklen_t'. */ -#define HAVE_SOCKLEN_T 1 - -/* Define to 1 if you have the header file. */ -#define HAVE_STDDEF_H 1 - -/* Define to 1 if you have the header file. */ -#define HAVE_STDINT_H 1 - -/* Define to 1 if you have the header file. */ -#define HAVE_STDLIB_H 1 - -/* Define to 1 if you have the header file. */ -#define HAVE_STRINGS_H 1 - -/* Define to 1 if you have the header file. */ -#define HAVE_STRING_H 1 - -/* Define to 1 if you have the `strtol' function. */ -#define HAVE_STRTOL 1 - -/* Define to 1 if you have the `strtoll' function. */ -#define HAVE_STRTOLL 1 - -/* Define to 1 if you have the `strtoul' function. */ -#define HAVE_STRTOUL 1 - -/* Define to 1 if `ss_len' is member of `struct sockaddr_storage'. */ -/* #undef HAVE_STRUCT_SOCKADDR_STORAGE_SS_LEN */ - -/* Define to 1 if `tm_gmtoff' is member of `struct tm'. */ -#define HAVE_STRUCT_TM_TM_GMTOFF 1 - -/* Define to 1 if `tm_zone' is member of `struct tm'. */ -#define HAVE_STRUCT_TM_TM_ZONE 1 - -/* Define to 1 if you have the header file. */ -#define HAVE_SYS_SOCKET_H 1 - -/* Define to 1 if you have the header file. */ -#define HAVE_SYS_STAT_H 1 - -/* Define to 1 if you have the header file. */ -#define HAVE_SYS_TIME_H 1 - -/* Define to 1 if you have the header file. */ -#define HAVE_SYS_TYPES_H 1 - -/* Define to 1 if you have the header file. */ -#define HAVE_TIME_H 1 - -/* Define to 1 if your `struct tm' has `tm_zone'. Deprecated, use - `HAVE_STRUCT_TM_TM_ZONE' instead. */ -#define HAVE_TM_ZONE 1 - -/* Define to 1 if you don't have `tm_zone' but do have the external array - `tzname'. */ -/* #undef HAVE_TZNAME */ - -/* Define to 1 if you have the header file. */ -#define HAVE_UNISTD_H 1 - -/* Define to 1 if you have the `vsnprintf' function. */ -#define HAVE_VSNPRINTF 1 - -/* Name of package */ -#define PACKAGE "libpqtypes" - -/* Define to the address where bug reports for this package should be sent. */ -#define PACKAGE_BUGREPORT "libpqtypes@esilo.com" - -/* Define to the full name of this package. */ -#define PACKAGE_NAME "libpqtypes" - -/* Define to the full name and version of this package. */ -#define PACKAGE_STRING "libpqtypes 1.5.1" - -/* Define to the one symbol short name of this package. */ -#define PACKAGE_TARNAME "libpqtypes" - -/* Define to the version of this package. */ -#define PACKAGE_VERSION "1.5.1" - -/* Define to 1 if using FSU pthreads */ -/* #undef PTHREAD_FSU */ - -/* Define to 1 if you have the ANSI C header files. */ -#define STDC_HEADERS 1 - -/* Define to 1 if architecture requires strict memory alignment */ -/* #undef STRICT_MEMORY_ALIGNMENT */ - -/* Define to 1 if you can safely include both and . */ -#define TIME_WITH_SYS_TIME 1 - -/* Define to 1 if your declares `struct tm'. */ -/* #undef TM_IN_SYS_TIME */ - -/* Version number of package */ -#define VERSION "1.5.1" - -/* Define to empty if `const' does not conform to ANSI C. */ -/* #undef const */ - -/* Define to `unsigned' if does not define. */ -/* #undef size_t */ diff --git a/libpqtypes/src/pqt_config.h.in b/libpqtypes/src/pqt_config.h.in deleted file mode 100644 index dab24b9..0000000 --- a/libpqtypes/src/pqt_config.h.in +++ /dev/null @@ -1,150 +0,0 @@ -/* src/pqt_config.h.in. Generated from configure.ac by autoheader. */ - -/* Define to 1 if you have the header file. */ -#undef HAVE_ARPA_INET_H - -/* Define to 1 if you have the `ceil' function. */ -#undef HAVE_CEIL - -/* Define to 1 if you have the header file. */ -#undef HAVE_DLFCN_H - -/* Define to 1 if you have the `floor' function. */ -#undef HAVE_FLOOR - -/* Define if getaddrinfo exists */ -#undef HAVE_GETADDRINFO - -/* Define to 1 if you have the `hstrerror' function. */ -#undef HAVE_HSTRERROR - -/* Define to 1 if you have the header file. */ -#undef HAVE_INTTYPES_H - -/* Define to 1 if you have the header file. */ -#undef HAVE_LIMITS_H - -/* Define to 1 if you have the `localtime_r' function. */ -#undef HAVE_LOCALTIME_R - -/* Define to 1 if you have the header file. */ -#undef HAVE_MATH_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_NETDB_H - -/* Define to 1 if you have the header file. */ -#undef HAVE_NETINET_IN_H - -/* Define to 1 if you have the `rint' function. */ -#undef HAVE_RINT - -/* Define to 1 if the system has the type `socklen_t'. */ -#undef HAVE_SOCKLEN_T - -/* Define to 1 if you have the header file. */ -#undef HAVE_STDDEF_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 `strtol' function. */ -#undef HAVE_STRTOL - -/* Define to 1 if you have the `strtoll' function. */ -#undef HAVE_STRTOLL - -/* Define to 1 if you have the `strtoul' function. */ -#undef HAVE_STRTOUL - -/* Define to 1 if `ss_len' is member of `struct sockaddr_storage'. */ -#undef HAVE_STRUCT_SOCKADDR_STORAGE_SS_LEN - -/* Define to 1 if `tm_gmtoff' is member of `struct tm'. */ -#undef HAVE_STRUCT_TM_TM_GMTOFF - -/* Define to 1 if `tm_zone' is member of `struct tm'. */ -#undef HAVE_STRUCT_TM_TM_ZONE - -/* Define to 1 if you have the header file. */ -#undef HAVE_SYS_SOCKET_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_TIME_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_TIME_H - -/* Define to 1 if your `struct tm' has `tm_zone'. Deprecated, use - `HAVE_STRUCT_TM_TM_ZONE' instead. */ -#undef HAVE_TM_ZONE - -/* Define to 1 if you don't have `tm_zone' but do have the external array - `tzname'. */ -#undef HAVE_TZNAME - -/* Define to 1 if you have the header file. */ -#undef HAVE_UNISTD_H - -/* Define to 1 if you have the `vsnprintf' function. */ -#undef HAVE_VSNPRINTF - -/* 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 version of this package. */ -#undef PACKAGE_VERSION - -/* Define to 1 if using FSU pthreads */ -#undef PTHREAD_FSU - -/* Define to 1 if you have the ANSI C header files. */ -#undef STDC_HEADERS - -/* Define to 1 if architecture requires strict memory alignment */ -#undef STRICT_MEMORY_ALIGNMENT - -/* Define to 1 if you can safely include both and . */ -#undef TIME_WITH_SYS_TIME - -/* Define to 1 if your declares `struct tm'. */ -#undef TM_IN_SYS_TIME - -/* Version number of package */ -#undef VERSION - -/* Define to empty if `const' does not conform to ANSI C. */ -#undef const - -/* Define to `unsigned' if does not define. */ -#undef size_t diff --git a/libpqtypes/src/record.c b/libpqtypes/src/record.c deleted file mode 100644 index 997ebea..0000000 --- a/libpqtypes/src/record.c +++ /dev/null @@ -1,164 +0,0 @@ - -/* - * record.c - * Type handler for the record/composite data type. - * - * Copyright (c) 2011 eSilo, LLC. All rights reserved. - * This is free software; see the source for copying conditions. There is - * NO warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR - * PURPOSE. - */ - -#include "libpqtypes-int.h" - -int -pqt_put_record(PGtypeArgs *args) -{ - int i; - int len; - char *out; - PGparam *param = va_arg(args->ap, PGparam *); - - PUTNULLCHK(args, param); - - /* watch for invalidation issues */ - if (param->vcnt > args->typhandler->nattrs) - return args->errorf(args, - "param value count is %d but server says it's %d", - param->vcnt, args->typhandler->nattrs); - - /* Auto-fill the remaining fields with SQL NULLs. This feature was - * added because it was needed (by eSilo). We had a few cases where - * we needed to append new fields to existing composites but wanted - * to maintain backwards compatibility ... so some_func(mycomposite) - * would continue to work even for older versions unaware of the - * new composite fields. I guess for some this is unwanted behavior, - * but I think the cases for it are much more common. - */ - if (param->vcnt < args->typhandler->nattrs) - { - int nattrs = args->typhandler->nattrs - param->vcnt; - for (i=0; i < nattrs; i++) - pqt_putparam(param, args->err, NULL, 0, 0, BINARYFMT, - args->typhandler->attDescs[param->vcnt].attoid); - } - - /* column count, 4-byte integer */ - len = 4; - - /* determine total byte count to ensure args->put.out is large enough */ - for (i=0; i < param->vcnt; i++) - { - len += (4 + 4); /* oid + len */ - - if (param->vals[i].datal > 0) - len += param->vals[i].datal; - } - - /* ensure out buffer is large enough */ - if (args->put.expandBuffer(args, len) == -1) - return -1; - - out = args->put.out; - - /* write column count */ - pqt_buf_putint4(out, param->vcnt); - out += 4; - - for (i=0; i < param->vcnt; i++) - { - if (param->vals[i].format == 0) - return args->errorf(args, - "Cannot put composite attributes in text format"); - - if (param->vals[i].datal == NULL_LEN) - param->vals[i].oid = args->typhandler->attDescs[i].attoid; - - /* watch for invalidation issues */ - if (param->vals[i].oid != args->typhandler->attDescs[i].attoid) - return args->errorf(args, - "param value OID is %u but server says it's %u", - param->vals[i].oid, args->typhandler->attDescs[i].attoid); - - /* write column oid */ - pqt_buf_putint4(out, param->vals[i].oid); - out += 4; - - /* write column data length */ - pqt_buf_putint4(out, param->vals[i].datal); - out += 4; - - /* write the column data */ - if (param->vals[i].data && param->vals[i].datal > 0) - { - memcpy(out, param->vals[i].data, param->vals[i].datal); - out += param->vals[i].datal; - } - } - - return len; -} - -int -pqt_get_record(PGtypeArgs *args) -{ - int i; - int nattrs; - int vlen; - Oid server_oid; - DECLVALUE(args); - PGresult *res; - PGresult **resultp = va_arg(args->ap, PGresult **); - - CHKGETVALS(args, resultp); - - if (args->format == TEXTFMT) - return args->errorf(args, "record does not support text results"); - - /* get record column count, numAttributes */ - nattrs = pqt_buf_getint4(value); - value += 4; - - /* watch for invalidation issues */ - if (args->typhandler->nattrs != nattrs) - return args->errorf(args, - "type handler attribute count is %d but server says it's %d", - args->typhandler->nattrs, nattrs); - - if (!(res = pqt_copyresult(args, nattrs))) - RERR_MEM(args); - - for (i=0; i < nattrs; i++) - { - /* watch for invalidation issues */ - server_oid = (Oid) pqt_buf_getint4(value); - if (server_oid != args->typhandler->attDescs[i].attoid) - { - args->errorf(args, - "type handler attribute OID is %u but server says it's %u", - args->typhandler->attDescs[i].attoid, server_oid); - PQclear(res); - return -1; - } - - /* move past Oid */ - value += 4; - - /* get value length */ - vlen = pqt_buf_getint4(value); - value += 4; - - if (!PQsetvalue(res, 0, i, value, vlen)) - { - PQclear(res); - return -1; - } - - if (vlen > 0) - value += vlen; - } - - *resultp = res; - return 0; -} - diff --git a/libpqtypes/src/regression-test.c b/libpqtypes/src/regression-test.c deleted file mode 100644 index d6ff981..0000000 --- a/libpqtypes/src/regression-test.c +++ /dev/null @@ -1,1397 +0,0 @@ - -#ifdef HAVE_CONFIG_H -# include "pqt_config.h" -#endif - -#define PLN do{ \ - printf("%s:%d\n", __FUNCTION__, __LINE__); \ - fflush(stdout); \ -}while(0) - -#if defined(_WIN32) || defined(_WIN64) -# define _CRT_SECURE_NO_WARNINGS /* shut up msvc8! */ -# ifdef _MSC_VER -# pragma warning (disable : 4127 4706) -# endif -# include -# include /* getnameinfo */ -# ifdef _MSC_VER -# define I64FMT "%I64d" -# else -# define I64FMT "%lld" -# endif -#else -# define SIGNAL_SUPPORT -# include -# include -# include -# include -# define I64FMT "%lld" -#endif - -#ifdef SIGNAL_SUPPORT -# include -#endif - -#include -#include -#include -#include -#include -#include -#include -#include - -#ifndef LLONG_MAX -# ifdef LONG_LONG_MAX -# define LLONG_MAX LONG_LONG_MAX -# else -# define LLONG_MAX 9223372036854775807LL -# endif -#endif - -#ifndef LLONG_MIN -# ifdef LONG_LONG_MIN -# define LLONG_MIN LONG_LONG_MIN -# else -# define LLONG_MIN -9223372036854775808LL -# endif -#endif - -#define RESERR PQresultErrorMessage(result) -#define CLEAR_TABLE(tname) PQclear(PQexec(conn, "TRUNCATE " tname)) -#define DROP_TABLE(tname) \ - PQclear(PQexec(conn, "DROP TABLE IF EXISTS " tname)) - -#define EXECOKAY(msg, status) do{ \ - if (PQresultStatus(result) != (status)) \ - { \ - fprintf(stderr, " **ERROR: %s - %s\n", msg, RESERR); \ - PQclear(result); \ - failcnt++; \ - return; \ - } \ -}while (0) - -#define CMDOKAY(msg) EXECOKAY(msg, PGRES_COMMAND_OK) -#define TUPSOKAY(msg) EXECOKAY(msg, PGRES_TUPLES_OK) - -#define PUTOKAY(paramobj, retval, mesg) do{ \ - if ((retval) == 0){ \ - failcnt++; \ - fprintf(stderr, " **ERROR: %s - %s\n", mesg, err.msg); \ - return; \ - } \ -}while (0) - -#define GETOKAY(retval, msg) GETOKAY2(result, retval, msg) -#define GETOKAY2(_res, retval, mesg) do{ \ - if ((retval) == 0){ \ - failcnt++; \ - fprintf(stderr, " **ERROR: %s - %s\n", mesg, err.msg); \ - PQclear(result); \ - return; \ - } \ -}while (0) - -#define CHKNUM(typspec, getval, putval) do{ \ - if ((getval) != (putval)) { \ - failcnt++; \ - fprintf(stderr, " %s - FAILED\n", typspec); \ - } \ - else \ - printf(" %s - passed\n", typspec); \ - testcnt++; \ -} while (0) - -#define CHKGEO(type) do{ \ - const char *typspec = "%" # type; \ - if (memcmp(& type, & type ## val, sizeof(type))) { \ - failcnt++; \ - fprintf(stderr, " %s - FAILED\n", typspec); \ - } \ - else \ - printf(" %s - passed\n", typspec); \ - testcnt++; \ -} while (0) - -#define CHKVLEN(typ, resval, inval) do{ \ - testcnt++; \ - if (strcmp(resval, inval)) { \ - failcnt++; \ - fprintf(stderr, " %%" typ " - FAILED\n"); \ - } \ - else \ - printf(" %%" typ " - passed\n"); \ -}while (0) - -static void cleanup(void); -static void test_natives(int format); -static void test_composite(void); -static void test_geometrics(int format); -static void test_varlen(int format); -static void test_datetime(int format); -static void test_network(int format); -static int epoch_put(PGtypeArgs *args); -static int epoch_get(PGtypeArgs *args); -static void test_subclass(int format); -static PGresult *execf(const char *cmdSpec, ...); -static int bpcharcmp(const char *put, const char *get, int charlen); - -#ifdef SIGNAL_SUPPORT -static void sighandler(int s); -#endif - -static void _notice_processor(void *arg, const char *message) -{/* do nothing */ - arg = NULL; - message = NULL; -} - - -static int testcnt = 0; -static int failcnt = 0; -static const char *datestyle = ""; -static PGconn *conn = NULL; -static PGerror err; -static PGparam *param = NULL; -static PGresult *result = NULL; - -#define ALIGN_NUM(val, mult) (((val) + ((mult) - 1)) & ~(((mult) - 1))) - -int main(int argc, char **argv) -{ - PGint4 n; - PGregisterType regtype; - char *conninfo = argc > 1 ? argv[1] : "hostaddr=127.0.0.1 user=postgres"; - - conn = PQconnectdb(conninfo); - if (PQstatus(conn) != CONNECTION_OK) - { - fprintf(stderr, "connection failure: %s\n", PQerrorMessage(conn)); - return 1; - } - - PQsetNoticeProcessor(conn, _notice_processor, NULL); - - if (!PQinitTypes(conn)) - { - fprintf(stderr, "Failed to initialize libpqtypes as " - "a libpq event proc\n"); - PQfinish(conn); - return 1; - } - - testcnt++; - regtype.typname = "bad_type"; - if(PQregisterTypes(conn, &err, PQT_COMPOSITE, ®type, 1, 0)) - { - failcnt++; - fprintf(stderr, "Test bad type register failure case (FAILED)\n"); - } - - regtype.typname = "mytype_t"; - if(!PQregisterTypes(conn, &err, PQT_COMPOSITE, ®type, 1, 0)) - fprintf(stderr, "%s\n", err.msg); - - test_composite(); - - PQclear(PQexec(conn, "SET DateStyle TO 'ISO'")); - param = PQparamCreate(conn, &err); - - /* test PQputvf - result should be 10 */ - testcnt++; - printf("\nPQputvf\n"); - int i1 = 9, i2 = 67, i3 = 3; - result = execf("SELECT %int4 + (%int4 % %int4) AS answer", &i1, &i2, &i3); - if (PQresultStatus(result) != PGRES_TUPLES_OK) - { - fprintf(stderr, " **ERROR: PQputvf - %s\n", err.msg); - PQclear(result); - failcnt++; - return 1; - } - - PQgetf(result, &err, 0, "#int4", "answer", &n); - PQclear(result); - if (n != 10) - { - failcnt++; - fprintf(stderr, " PQputvf - FAILED\n"); - } - else - { - printf(" PQputvf - passed\n"); - } - - testcnt++; - printf("\nPQspecPrepare\n"); - if(!PQspecPrepare(conn, &err, "test", "SELECT %int8 + %int4", 1)) - { - failcnt++; - fprintf(stderr, " PQspecPrepare - FAILED (%s)\n", err.msg); - } - else - { - char data[4]; - PGbytea ba; - PGint8 i8 = 45; - ba.len = 4; - ba.data = data; - - i1 = 4; - result = PQexecf(conn, &err, "@test", &i8, &i1); - if(!result) - { - failcnt++; - fprintf(stderr, " PQspecPrepare - FAILED (%s)\n", err.msg); - } - else - { - PGint8 i8out=0; - - PQgetf(result, &err, 0, "%int8", 0, &i8out); - - if(i8 + 4 != i8out) - { - failcnt++; - fprintf(stderr, " PQspecPrepare - FAILED (expected " - "%lld but got %lld)\n", i8+4, i8out); - } - else - { - printf(" PQspecPrepare - passed\n"); - } - - PQclear(result); - } - } - - datestyle = PQparameterStatus(conn, "DateStyle"); - if (!datestyle) - datestyle = ""; - -#ifdef SIGNAL_SUPPORT - signal(SIGINT, sighandler); - signal(SIGILL, sighandler); - signal(SIGSEGV, sighandler); -# ifdef SIGFPE - signal(SIGFPE, sighandler); -# endif -# ifdef SIGBUS - signal(SIGBUS, sighandler); -# endif -#endif - - - test_natives(0); - test_natives(1); - test_varlen(0); - test_varlen(1); - test_geometrics(0); - test_geometrics(1); - test_network(0); - test_network(1); - - regtype.typname = "libpq.epoch=pg_catalog.timestamptz"; - regtype.typput = epoch_put; - regtype.typget = epoch_get; - - /* Test type sub-classing, use the epoch example from docs */ - if (!PQregisterTypes(conn, &err, PQT_SUBCLASS, ®type, 1, 0)) - { - fprintf(stderr, "PQregisterTypes(epoch, subclass): %s\n", - PQerrorMessage(conn)); - } - else - { - test_subclass(0); - test_subclass(1); - } - - test_datetime(0); - test_datetime(1); - - /* datestyle is cached in PGparam. Since we need to change the datestyle, - * we destroy the current param and recreate it later. - */ - PQparamClear(param); - - /* Just tested ISO, test a non-ISO */ - PQclear(PQexec(conn, "SET DateStyle TO 'POSTGRES'")); - datestyle = PQparameterStatus(conn, "DateStyle"); - if (!datestyle) - datestyle = ""; - - param = PQparamCreate(conn, &err); - test_datetime(0); - test_datetime(1); - cleanup(); - - printf("\nRan %d tests - %d failed\n", testcnt, failcnt); - return 1; -} - -/* Calls putf and executes cmdSpec. Returns a result object */ -static PGresult *execf(const char *cmdSpec, ...) -{ - int n; - PGresult *res; - va_list ap; - char stmt[4096]; - PGparam *prm = PQparamCreate(conn, &err); - - va_start(ap, cmdSpec); - n = PQputvf(prm, &err, stmt, sizeof(stmt), cmdSpec, ap); - va_end(ap); - - /* error message in PQparamErrorMessage */ - if (!n) - { - PQparamClear(prm); - return NULL; - } - - printf(" %s\n", stmt); - res = PQparamExec(conn, &err, prm, stmt, 1); - PQparamClear(prm); - return res; -} - -/* Handle BPCHAR (Blank-Padded) SQL-type "character(n)" */ -static int bpcharcmp(const char *put, const char *get, int charlen) -{ - int i; - int len = (int)strlen(put); - - for (i=len; i < charlen; i++) - if (!isspace(get[i])) - return 1; - - return memcmp(put, get, len); -} - -static void cleanup(void) -{ - DROP_TABLE("libpq_natives"); - DROP_TABLE("libpq_varlen"); - DROP_TABLE("libpq_geos"); - DROP_TABLE("libpq_network"); - DROP_TABLE("libpq_datetime"); - DROP_TABLE("libpq_subclass"); - DROP_TABLE("libpq_composite"); - PQclear(PQexec(conn, "DROP TYPE complex")); - PQclear(PQexec(conn, "DROP TYPE simple")); - PQparamClear(param); - PQfinish(conn); -} - -/* make an effort to clean up */ -#ifdef SIGNAL_SUPPORT -static void sighandler(int s) -{ - cleanup(); - fprintf(stderr, "\n**Caught signal: %d ... aborting\n", s); - exit(1); -} -#endif - -static void test_composite(void) -{ - int i,j,x,r; - int ntups; - int inttups; - PGtext text; - PGparam *simple; - PGparam *complex; - PGparam *prm; - PGresult *simple_res; - PGarray intarr; - PGarray comparr; - PGchar buf[64]; - PGint4 a; - PGint8 b; - PGregisterType types[] = { - {"public.simple", NULL, NULL}, - {"public.complex", NULL, NULL} - }; - - printf("\nComposites & Arrays: (always binary)\n"); - - printf(" Testing empty array handling "); - PQclear(PQexec(conn, "DROP TABLE libpq_array")); - result = PQexec(conn, "CREATE TABLE libpq_array (arr int[])"); - CMDOKAY("creating libpq_array table:"); - PQclear(result); - - result = PQexec(conn, "INSERT INTO libpq_array VALUES ('{}')"); - CMDOKAY("inserting into libpq_array:"); - PQclear(result); - - result = PQparamExec(conn, &err, NULL, "SELECT * FROM libpq_array", 1); - TUPSOKAY("executing select on libpq_array:"); - - r = PQgetf(result, &err, 0, "%int4[]", 0, &intarr); - - GETOKAY(r, "Failed to get an empty array"); - PQclear(result); - - /* both values should be 0 */ - testcnt++; - if(PQntuples(intarr.res) != 0 || intarr.ndims != 0) - { - fprintf(stderr, "- FAILED\n ***ERROR: tuple and dimension " - "count should both be zero - ntups=%d, ndims=%d\n", - PQntuples(intarr.res), intarr.ndims); - failcnt++; - } - else - { - printf("- passed\n"); - } - PQclear(intarr.res); - - DROP_TABLE("libpq_composite"); - PQclear(PQexec(conn, "DROP TYPE public.complex")); - - PQclear(PQexec(conn, "DROP TYPE public.simple")); - result = PQexec(conn, "CREATE TYPE simple AS (a int4, b int8)"); - CMDOKAY("creating simple type"); - PQclear(result); - - result = PQexec(conn, "CREATE TYPE complex AS (t text, s simple, " - "arr int4[][])"); - CMDOKAY("creating complex type"); - PQclear(result); - - if (!PQregisterTypes(conn, &err, PQT_COMPOSITE, types, 2, 0)) - { - fprintf(stderr, " **ERROR: PQregisterTypes(%s %s): %s\n", - types[0].typname, types[1].typname, err.msg); - failcnt++; - return; - } - - result = PQexec(conn, "CREATE TABLE libpq_composite (comparr complex[])"); - CMDOKAY("creating libpq_composite table:"); - PQclear(result); - - simple = PQparamCreate(conn, &err); - complex = PQparamCreate(conn, &err); - prm = PQparamCreate(conn, &err); - - /* array[10][3] */ - intarr.ndims = 2; - intarr.dims[0] = 10; - intarr.dims[1] = 3; - intarr.lbound[0] = 1; - intarr.lbound[1] = 1; - intarr.param = PQparamCreate(conn, &err); - - /* If a 1D array is being used, you can avoid setting the dimension - * members of the PGarray structure by zeroing it. - */ - memset(&comparr, 0, sizeof(PGarray)); - comparr.param = PQparamCreate(conn, &err); - - /* generate a complex[] containing 100 elements */ - for (i=0; i < 100; i++) - { - PGint8 val = ((PGint8)1<<48) + (PGint8)i; - - j = i+1000000; - /* pack the fields of the 'simple' composite */ - r = PQputf(simple, &err, "%int4 %int8", &j, &val); - PUTOKAY(simple, r, "putting simple attributes"); - - /* populate the complex.arr[10][3] */ - PQputf(intarr.param, &err, "%null"); - for (x=1; x < 30; x++) - { - j = x+1; - r= PQputf(intarr.param, &err, "%int4", &j); - PUTOKAY(intarr.param, r, "putting complex.arr element"); - } - - /* pack the fields of the 'complex' composite */ - sprintf((char *) buf, "text_%03d", i+1); - r = PQputf(complex, &err, "%text %simple %int4[]", buf, simple, &intarr); - PUTOKAY(complex, r, "putting complex attributes"); - - /* now put element 'i' into the composite array */ - r = PQputf(comparr.param, &err, "%complex", complex); - PUTOKAY(comparr.param, r, "putting complex[] element"); - - /* make sure to reset the params, otherwise you will continue to - * append parameters to below params. DO NOT reset the comparr.param, - * as this is the array we want to insert. - */ - PQparamReset(simple); - PQparamReset(intarr.param); - PQparamReset(complex); - - /* sneak in a NULL element. NULL composite array items - * used to be a bug. - */ - if(i == 49) - { - PQputf(comparr.param, &err, "%complex", NULL); - i++; - } - } - - /* insert the complex[] */ - PQputf(prm, &err, "%complex[]", &comparr); - result = PQparamExec(conn, &err, prm, - "INSERT INTO libpq_composite VALUES ($1)", 1); - CMDOKAY("inserting into libpq_composite"); - PQclear(result); - - /* clear all params (order doesn't matter, they are - * isolated structures) - */ - PQparamClear(simple); - PQparamClear(intarr.param); - PQparamClear(complex); - PQparamClear(comparr.param); - PQparamClear(prm); - - /* select complex[] back out */ - result = PQparamExec(conn, &err, NULL, "SELECT * FROM libpq_composite", 1); - TUPSOKAY("PQparamExec(SELECT:composite[])"); - - /* getf it into a PGarray */ - r = PQgetf(result, &err, 0, "%complex[]", 0, &comparr); - GETOKAY(r, "PQgetf(complex[])"); - PQclear(result); - - /* composite arrays come back 1 tuple per element and 1 - * field per attribute - */ - ntups = PQntuples(comparr.res); - if (ntups != 100) - { - failcnt++; - fprintf(stderr, "put 100 elements into complex[] but " - "got back %d\n", ntups); - PQclear(comparr.res); - return; - } - - testcnt++; - for (i=0; i < ntups; i++) - { - /* Verify element 50 is NULL */ - if(i==50) - { - /* All fields should be NULL */ - if(!PQgetisnull(comparr.res, i, 0) || - !PQgetisnull(comparr.res, i, 1) || - !PQgetisnull(comparr.res, i, 2)) - { - failcnt++; - fprintf(stderr, " Element 50 should of been NULL\n"); - PQclear(comparr.res); - return; - } - - continue; - } - - /* get the complex composite at tuple 'i' */ - r = PQgetf(comparr.res, &err, i, "%text %simple #int4[]", - 0, &text, 1, &simple_res, "arr", &intarr); - GETOKAY2(comparr.res, r, "PQgetf(comparr.res element)"); - - /* check the text field */ - sprintf((char *) buf, "text_%03d", i+1); - if (strcmp(text, (char *) buf)) - { - failcnt++; - fprintf(stderr, "complex[%d].t failed: sent=%s, recv=%s\n", - i, buf, text); - PQclear(simple_res); - PQclear(intarr.res); - PQclear(comparr.res); - return; - } - - /* Check the simple field: reference by fname, use '#' - * rather than '%' - */ - r = PQgetf(simple_res, &err, 0, "#int4 #int8", "a", &a, "b", &b); - GETOKAY2(simple_res, r, "PQgetf(complex[].simple.*)"); - PQclear(simple_res); - - /* verify simple.* values */ - if (a != (i+1000000) || b != ((PGint8) 1<<48)+i) - { - failcnt++; - fprintf(stderr, "complex[%d].simple.* failed: " - "sent(a=%d, b=%lld), recv(a=%d, b=%lld)\n", - i, i+1000000, ((PGint8) 1<<48)+i, a, b); - PQclear(intarr.res); - PQclear(comparr.res); - return; - } - - /* check the int[10][3] field */ - if (intarr.dims[0] != 10 || intarr.dims[1] != 3 || - intarr.lbound[0] != 1 || intarr.lbound[1] != 1 || intarr.ndims != 2) - { - failcnt++; - fprintf(stderr, "complex[%d].int[][] dimension info failed: " - "sent(ndims=2, arr[1:10][1:3]), recv(ndims=%d, arr[%d:%d][%d:%d])\n", - i, intarr.ndims, intarr.lbound[0], intarr.dims[0], - intarr.lbound[1], intarr.dims[1]); - PQclear(intarr.res); - PQclear(comparr.res); - return; - } - - inttups = PQntuples(intarr.res); - for (x=1; x < inttups; x++) - { - r = PQgetf(intarr.res, &err, x, "%int4", 0, &a); - GETOKAY2(intarr.res, r, "PQgetf(complex.int[][] element"); - - if (a != x+1) - { - failcnt++; - fprintf(stderr, " **ERROR: complex[%d].int4[][] sent=%d, recv=%d\n", - i, x+1, a); - PQclear(intarr.res); - PQclear(comparr.res); - return; - } - } - - PQclear(intarr.res); - } - - PQclear(comparr.res); - printf(" composite[] with nested composite and arrays passed\n"); -} - -static void test_natives(int format) -{ - int r; - PGchar ca; - PGchar cb; - PGint2 i2a, i2b; - PGint4 i4a, i4b; - PGint8 i8a, i8b; - PGfloat4 f4a, f4b; - PGfloat8 f8a, f8b; - PGmoney mona, monb; - Oid oida, oidb; - PGbool boola, boolb; - - PQparamReset(param); - printf("\nNative C types: (%s)\n", format ? "binary" : "text"); - - ca = -117; - cb = 224; - i2a = -32000; - i2b = 32000; - i4a = INT_MIN; - i4b = INT_MAX; - i8a = LLONG_MIN; - i8b = LLONG_MAX; - f4a = -1.23456f; - f4b = 1.23456f; - f8a = -123456789.654321; - f8b = 123456789.654321; - mona = INT_MIN; - monb = 600000000054LL; - oida = 91982; - oidb = 3000000000U; - boola = 0; - boolb = 1; - - r = PQputf(param, &err, "%char %char %int2 %int2 %int4 %int4 %int8 %int8 " - "%float4 %float4 %float8 %float8 %money %money %oid %oid %bool %bool", - &ca, &cb, &i2a, &i2b, &i4a, &i4b, &i8a, &i8b, - &f4a, &f4b, &f8a, &f8b, - &mona, &monb, &oida, &oidb, &boola, &boolb); - PUTOKAY(param, r, "PQputf(natives)"); - - DROP_TABLE("libpq_natives"); - - result = PQexec(conn, "CREATE TABLE libpq_natives (" - "char_a \"char\", char_b \"char\", " - "i2_a int2, i2_b int2, " - "i4_a int4, i4_b int4, " - "i8_a int8, i8_b int8, " - "f4_a float4, f4_b float4, " - "f8_a float8, f8_b float8, " - "mon_a money, mon_b money, " - "oid_a oid, oid_b oid, " - "bool_a bool, bool_b bool)"); - CMDOKAY("creating libpq_natives table"); - PQclear(result); - - result = PQparamExec(conn, &err, param, "INSERT INTO libpq_natives VALUES" - "($1,$2,$3,$4,$5,$6,$7,$8,$9,$10,$11,$12,$13,$14,$15,$16,$17,$18)", - format); - CMDOKAY("PQparamExec(INSERT:natives)"); - PQclear(result); - - result = PQparamExec(conn, &err, NULL, "SELECT * FROM libpq_natives", format); - TUPSOKAY("PQparamExec(SELECT:natives)"); - - r = PQgetf(result, &err, 0, "%char %char %int2 %int2 %int4 %int4 %int8 %int8 " - "%float4 %float4 %float8 %float8 %money, %money %oid %oid %bool %bool", - 0, &ca, 1, &cb, 2, &i2a, 3, &i2b, 4, &i4a, 5, &i4b, 6, &i8a, 7, &i8b, 8, - &f4a, 9, &f4b, 10, &f8a, 11, &f8b, 12, &mona, 13, &monb, 14, &oida, - 15, &oidb, 16, &boola, 17, &boolb); - GETOKAY(r, "PQgetf(natives)"); - PQclear(result); - - CHKNUM("%char", ca, -117); - CHKNUM("%char", (unsigned char) cb, 224); - CHKNUM("%int2", i2a, -32000); - CHKNUM("%int2", i2b, 32000); - CHKNUM("%int4", i4a, INT_MIN); - CHKNUM("%int4", i4b, INT_MAX); - CHKNUM("%int8", i8a, LLONG_MIN); - CHKNUM("%int8", i8b, LLONG_MAX); - CHKNUM("%float4", f4a, -1.23456f); - CHKNUM("%float4", f4b, 1.23456f); - CHKNUM("%float8", f8a, -123456789.654321); - CHKNUM("%float8", f8b, 123456789.654321); - CHKNUM("%money", mona, (PGmoney) INT_MIN); - CHKNUM("%money", monb, 600000000054LL); - CHKNUM("%oid", oida, 91982); - CHKNUM("%oid", oidb, 3000000000U); - CHKNUM("%bool", boola, 0); - CHKNUM("%bool", boolb, 1); -} - -static void test_geometrics(int format) -{ - int r; - static PGpoint ptarr[6] = {{565677.342, 999112.33344}, - {-565677.342, -999112.33344}, {-565677.342, 999112.33344}, - {565677.342, 999112.33344}, {-565677.342, -999112.33344}, - {-565677.342, 999112.33344}}; - PGpoint point = {0}; - PGpoint pointval = {565677.342, 999112.33344}; - PGlseg lseg = {{{0}}}; - PGlseg lsegval = {{{565677.342, -999112.33344}, {88876.2314, 77283.323}}}; - PGbox box = {{0}}; - PGbox boxval = {{565677.342, 88876.2314}, {77283.323, -999112.33344}}; - PGcircle circle = {{0,0},0}; - PGcircle circleval = {{7765.435, -7743.2993}, 23384.102}; - PGpath path = {0, 0, NULL}; - PGpath pathval = {6, 1, ptarr}; - PGpolygon polygon = {0, NULL}; - PGpolygon polygonval = {6, ptarr}; - - PQparamReset(param); - printf("\nGeometric types: (%s)\n", format ? "binary" : "text"); - - r = PQputf(param, &err, "%point %lseg %box %circle %path %polygon", - &pointval, &lsegval, &boxval, &circleval, &pathval, &polygonval); - PUTOKAY(param, r, "PQputf(geos)"); - - DROP_TABLE("libpq_geos"); - - result = PQexec(conn, "CREATE TABLE libpq_geos (" - "p point, l lseg, b box, c circle, pa path, poly polygon)"); - CMDOKAY("creating libpq_geos table"); - PQclear(result); - - result = PQparamExec(conn, &err, param, "INSERT INTO libpq_geos VALUES" - "($1,$2,$3,$4,$5,$6)", format); - CMDOKAY("PQparamExec(INSERT:geos)"); - PQclear(result); - - result = PQparamExec(conn, &err, NULL, "SELECT * FROM libpq_geos", format); - TUPSOKAY("PQparamExec(SELECT:geos)"); - - r = PQgetf(result, &err, 0, "%point %lseg %box %circle %path %polygon", - 0, &point, 1, &lseg, 2, &box, 3, &circle, 4, &path, 5, &polygon); - GETOKAY(r, "PQgetf(geos)"); - - CHKGEO(point); - CHKGEO(lseg); - CHKGEO(box); - CHKGEO(circle); - - testcnt++; - if (path.closed == pathval.closed && path.npts == pathval.npts && - memcmp(path.pts, pathval.pts, path.npts * sizeof(PGpoint))==0) - printf(" %%path - passed\n"); - else - { - failcnt++; - fprintf(stderr, " %%path - FAILED\n"); - } - - testcnt++; - if (polygon.npts == polygon.npts && - memcmp(polygon.pts, polygon.pts, polygon.npts * sizeof(PGpoint))==0) - printf(" %%polygon - passed\n"); - else - { - failcnt++; - fprintf(stderr, " %%polygon - FAILED\n"); - } - - /* NOTE: this will invalidate path.pts and polygon.pts */ - PQclear(result); -} - -/* - * numeric is tested here because it is always exposed as a string. - * uuid is not a varlen data type, but testing it here is ok - */ -static void test_varlen(int format) -{ - int r; - static char byteadata[] = {0, 1, 2, 3, 4, 5, 6, 7}; - PGbpchar bpcharp=NULL; - PGbpchar bpcharin = "character(n) blank-padded"; - PGvarchar varcharp=NULL; - PGvarchar varcharin = "character varying(n)"; - PGtext textp=NULL; - PGtext textin = "variable unlimited length"; - PGbytea byteap; - PGbytea byteain = {8, byteadata}; - PGuuid uuid; - char uuidin[] = {0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15}; - PGnumeric num; - PGnumeric numin = - "-62731893541288039212143296120112.12431212671229121291821928918211"; - - PQparamReset(param); - printf("\nVariable-length types: (%s)\n", format ? "binary" : "text"); - - r = PQputf(param, &err, "%bpchar %bpchar* %varchar %varchar* " - "%text %text* %bytea %bytea* %uuid %numeric", - bpcharin, bpcharin, varcharin, varcharin, textin, textin, - &byteain, &byteain, uuidin, numin); - PUTOKAY(param, r, "PQputf(varlen)"); - - DROP_TABLE("libpq_varlen"); - - result = PQexec(conn, "CREATE TABLE libpq_varlen (" - "bp_a bpchar(32), bp_b bpchar(32), vc_a varchar(32), vc_b varchar(32), " - "text_a text, text_b text, bytea_a bytea, bytea_b bytea, " - "uid uuid, n numeric)"); - CMDOKAY("creating libpq_varlen table"); - PQclear(result); - - result = PQparamExec(conn, &err, param, "INSERT INTO libpq_varlen VALUES" - "($1,$2,$3,$4,$5,$6,$7,$8,$9,$10)", format); - CMDOKAY("PQparamExec(INSERT:varlen)"); - PQclear(result); - - result = PQparamExec(conn, &err, NULL, - "SELECT bp_a,vc_a,text_a,bytea_a,uid,n FROM libpq_varlen", format); - TUPSOKAY("PQparamExec(SELECT:varlen)"); - - r = PQgetf(result, &err, 0, - "%bpchar %varchar %text %bytea %uuid %numeric", - 0, &bpcharp, /* field_num, PGbpchar* */ - 1, &varcharp, /* field_num, PGvarchar* */ - 2, &textp, /* field_num, PGtext* */ - 3, &byteap, /* field_num, PGbytea* */ - 4, &uuid, /* field_num, PGuuid* */ - 5, &num); /* field_num, PGnumeric* */ - GETOKAY(r, "PQgetf(varlen)"); - - /* Because we are using the '*' specifier flag, we clear the results at - * the end. '*' flag is just a pointer to the result: like PQgetvalue(). - */ - - testcnt++; - if (bpcharcmp(bpcharin, bpcharp, 32)) - { - failcnt++; - fprintf(stderr, " %%bpchar - FAILED\n"); - } - else - printf(" %%bpchar - passed\n"); - - CHKVLEN("varchar", varcharp, varcharin); - CHKVLEN("text", textp, textin); - - testcnt++; - if (byteain.len != byteap.len || - memcmp(byteap.data, byteain.data, byteap.len)) - { - failcnt++; - fprintf(stderr, " %%bytea* - FAILED\n"); - } - else - printf(" %%bytea* - passed\n"); - - testcnt++; - if (memcmp(uuid, uuidin, 16)) - { - failcnt++; - fprintf(stderr, " %%uuid - FAILED\n"); - } - else - printf(" %%uuid - passed\n"); - - CHKVLEN("numeric", num, numin); - PQclear(result); -} - -static void test_datetime(int format) -{ - int r; - time_t t; - struct tm *tm; - char *tzn; - PGdate date[3] = {{0}}; - static PGdate dateval[] = { - {0, 1476, 9, 1, 2260432, 274, 0}, /* 1476-10-01 */ - {1, 1209, 7, 17, 1280076, 229, 1}, /* 1209-08-17 BC */ - {0, 2007, 11, 23, 2454458, 356, 0}}; /* 2007-12-23 */ - PGtime tim[3] = {{0}}; - static PGtime timeval[] = { - {23, 10, 31, 7214, 0, -1, 0, {0}}, /* 23:10:31.007214 */ - { 2, 19, 52, 0, 0, -1, 0, {0}}, /* 02:19:52 */ - {15, 57, 7, 881542, 0, -1, 0, {0}}}; /* 15:57:07.881542 */ - PGtime timetz[3] = {{0}}; - PGtime timetzval[] = { - {23, 10, 31, 9888, 1, -1, -28800, {0}}, /* 23:10:31.009888-08 */ - { 2, 19, 52, 0, 1, -1, 7200, {0}}, /* 02:19:52+02 */ - {15, 57, 7, 881542, 1, -1, -10800, {0}}}; /* 15:57:07.881542-03 */ - PGtimestamp timestamp[3] = {{0, {0}, {0}}}; - PGtimestamp timestampval[] = { - { -15565394969, {0, 1476, 9, 1, 2260432, 274, 0}, - {23, 10, 31, 7214, 0, -1, 0, {0}}}, /* 1476-10-01 23:10:31.007214 */ - {-100268228408, {1, 1209, 7, 17, 1280076, 229, 1}, - { 2, 19, 52, 0, 0, -1, 0, {0}}}, /* 1209-08-17 02:19:52 BC */ - { 1198425427, {0, 2007, 11, 23, 2454458, 356, 0}, - {15, 57, 7, 881542, 0, -1, 0, {0}}}}; /* 2007-12-23 15:57:07.881542 */ - PGinterval interval = {0}; - PGinterval intervalval = /* 2,354 years 8 mons 23 days 14:54:27.029333 */ - {2354, 8, 23, 14, 54, 27, 29333}; - PGtimestamp timestamptz; - PGtimestamp timestamptzval; - - PQparamReset(param); - memset(×tamptz, 0, sizeof(PGtimestamp)); - memset(×tamptzval, 0, sizeof(PGtimestamp)); - - /* Jan 1, 1980 (returned: text=server time zone, binary=localtime) */ - t = 315532800; - tm = localtime(&t); - timestamptzval.epoch = t; - timestamptzval.time.hour = tm->tm_hour; - timestamptzval.time.min = tm->tm_min; - timestamptzval.time.sec = tm->tm_sec; - timestamptzval.time.usec = 0; - timestamptzval.time.withtz = 1; - timestamptzval.date.isbc = 0; - timestamptzval.date.year = tm->tm_year + 1900; - timestamptzval.date.mon = tm->tm_mon; - timestamptzval.date.mday = tm->tm_mday; - PQlocalTZInfo(&t, ×tamptzval.time.gmtoff, - ×tamptzval.time.isdst, &tzn); - strcpy(timestamptzval.time.tzabbr, tzn); - - strcpy(timetzval[0].tzabbr, "GMT-0800"); - strcpy(timetzval[1].tzabbr, "GMT+0200"); - strcpy(timetzval[2].tzabbr, "GMT-0300"); - - printf("\nDate & Time types: (%s '%s')\n", - format ? "binary" : "text", datestyle); - - r = PQputf(param, &err, "%date %date %date %time %time %time %timetz %timetz " - "%timetz %timestamp %timestamp %timestamp %interval %timestamptz", - &dateval[0], &dateval[1], &dateval[2], &timeval[0], &timeval[1], - &timeval[2], &timetzval[0], &timetzval[1], &timetzval[2], - ×tampval[0], ×tampval[1], ×tampval[2], &intervalval, - ×tamptzval); - PUTOKAY(param, r, "PQputf(datetime)"); - - DROP_TABLE("libpq_datetime"); - - result = PQexec(conn, "CREATE TABLE libpq_datetime (" - "date_a date, date_b date, date_c date, " - "time_a time, time_b time, time_c time, " - "timetz_a timetz, timetz_b timetz, timetz_c timetz, " - "timestamp_a timestamp, timestamp_b timestamp, timestamp_c timestamp, " - "intvl interval, tstz timestamptz)"); - CMDOKAY("creating libpq_datetime table"); - PQclear(result); - - result = PQparamExec(conn, &err, param, "INSERT INTO libpq_datetime VALUES" - "($1,$2,$3,$4,$5,$6,$7,$8,$9,$10,$11,$12,$13,$14)", format); - CMDOKAY("PQparamExec(INSERT:datetime)"); - PQclear(result); - - result = PQparamExec(conn, &err, NULL, "SELECT * FROM libpq_datetime", format); - TUPSOKAY("PQparamExec(SELECT:datetime)"); - - r = PQgetf(result, &err, 0, "%date %date %date %time %time %time %timetz " - "%timetz %timetz %timestamp %timestamp %timestamp %interval " - "%timestamptz", - 0, &date[0], 1, &date[1], 2, &date[2], - 3, &tim[0], 4, &tim[1], 5, &tim[2], - 6, &timetz[0], 7, &timetz[1], 8, &timetz[2], - 9, ×tamp[0], 10, ×tamp[1], 11, ×tamp[2], - 12, &interval, 13, ×tamptz); - GETOKAY(r, "PQgetf(datetime)"); - PQclear(result); - - for (r=0; r < 3; r++) - { - testcnt++; - if (memcmp(&date[r], &dateval[r], sizeof(PGdate)) == 0) - printf(" %%date - #%d passed\n", r+1); - else - { - failcnt++; - fprintf(stderr, " %%date - #%d FAILED\n", r+1); - } - } - - for (r=0; r < 3; r++) - { - testcnt++; - if (memcmp(&tim[r], &timeval[r], sizeof(PGtime)) == 0) - printf(" %%time - #%d passed\n", r+1); - else - { - failcnt++; - fprintf(stderr, " %%time - #%d FAILED\n", r+1); - } - } - - for (r=0; r < 3; r++) - { - testcnt++; - if (memcmp(&timetz[r], &timetzval[r], sizeof(PGtime)) == 0) - printf(" %%timetz - #%d passed\n", r+1); - else - { - failcnt++; - fprintf(stderr, " %%timetz - #%d FAILED\n", r+1); - } - } - - for (r=0; r < 3; r++) - { - - testcnt++; - if (memcmp(×tamp[r], ×tampval[r], sizeof(PGtimestamp)) == 0) - { - printf(" %%timestamp - #%d passed\n", r+1); - } - /* Windows may hit rounding issues with usecs. In this test, usecs of - * 7214 were coming back as 7215. - */ -#if defined(_WIN32) || defined(_WIN64) - else if (timestamp[r].time.usec+1 == timestampval[r].time.usec || - timestamp[r].time.usec-1 == timestampval[r].time.usec) - { - printf(" %%timestamp - #%d passed (warning: known usec rounding " - "issue - sent=%d, recv=%d)\n", r+1, - timestampval[r].time.usec, timestamp[r].time.usec); - } -#endif - else - { - failcnt++; - fprintf(stderr, " %%timestamp - #%d FAILED\n", r+1); - } - } - - /* interval usecs won't match when using a non-ISO datastyle because only - * 2 fractional digits are provided: 23.291876 => 23.29 secs. - */ - if (format == 0 && !strstr(datestyle, "ISO")) - { - printf(" **NOTE: non-ISO DateStyle interval text has a 2 digit limit " - "on the microsecond value ... adjusting\n => sent=%d, " - "received=%d\n", intervalval.usecs, interval.usecs); - interval.usecs = intervalval.usecs; - } - - testcnt++; - if (memcmp(&interval, &intervalval, sizeof(PGinterval)) == 0) - printf(" %%interval - passed\n"); - else - { - failcnt++; - fprintf(stderr, " %%interval - FAILED\n"); - - printf(" SENT: yr=%d,mon=%d,days=%d,hr=%d,min=%d,sec=%d,usec=%d\n", - intervalval.years, intervalval.mons, intervalval.days, - intervalval.hours, intervalval.mins, intervalval.secs, - intervalval.usecs); - printf(" RECV: yr=%d,mon=%d,days=%d,hr=%d,min=%d,sec=%d,usec=%d\n", - interval.years, interval.mons, interval.days, - interval.hours, interval.mins, interval.secs, interval.usecs); - } - - testcnt++; - - if (timestamptz.epoch == timestamptzval.epoch) - printf(" %%timestamptz - passed\n"); - else - { - failcnt++; - fprintf(stderr, " %%timestamptz - FAILED\n"); - - printf("SENT: epoch=%lld,isbc=%d,yr=%d,mon=%d,mday=%d,jday=%d," - "yday=%d,wday=%d,hr=%d,min=%d,sec=%d,usec=%d,withtz=%d," - "isdst=%d,tzabbr=%s,gmtoff=%d\n", - timestamptzval.epoch, - timestamptzval.date.isbc,timestamptzval.date.year, - timestamptzval.date.mon, - timestamptzval.date.mday,timestamptzval.date.jday, - timestamptzval.date.yday, - timestamptzval.date.wday, - timestamptzval.time.hour, timestamptzval.time.min, - timestamptzval.time.sec, - timestamptzval.time.usec, timestamptzval.time.withtz, - timestamptzval.time.isdst, - timestamptzval.time.tzabbr, timestamptzval.time.gmtoff); - - printf("RECV: epoch=%lld,isbc=%d,yr=%d,mon=%d,mday=%d,jday=%d," - "yday=%d,wday=%d,hr=%d,min=%d,sec=%d,usec=%d,withtz=%d,isdst=%d," - "tzabbr=%s,gmtoff=%d\n", - timestamptz.epoch, - timestamptz.date.isbc,timestamptz.date.year,timestamptz.date.mon, - timestamptz.date.mday,timestamptz.date.jday,timestamptz.date.yday, - timestamptz.date.wday, - timestamptz.time.hour, timestamptz.time.min, timestamptz.time.sec, - timestamptz.time.usec, timestamptz.time.withtz, timestamptz.time.isdst, - timestamptz.time.tzabbr, timestamptz.time.gmtoff); - } -} - -static void test_network(int format) -{ - int r; - PGinet ipv4, ipv4out; - PGinet ipv6, ipv6out; - PGmacaddr mac = {1,2,3,225,226,227}; - PGmacaddr macout; - int have_ipv4=1; - int have_ipv6=1; - -#if defined(_MSC_VER) || defined(__MINGW32__) || defined(HAVE_GETADDRINFO) - struct addrinfo *info = NULL; - struct addrinfo hints = {0}; - - memset(&ipv4, 0, sizeof(PGinet)); - memset(&ipv4out, 0, sizeof(PGinet)); - memset(&ipv6, 0, sizeof(PGinet)); - memset(&ipv6out, 0, sizeof(PGinet)); - - PQparamReset(param); - printf("\nNetwork types: (%s)\n", format ? "binary" : "text"); - - /* this should always work */ - if ((r = getaddrinfo("192.168.123.77", NULL, NULL, &info))) - { - have_ipv4 = 0; - //testcnt++; - //failcnt++; - fprintf(stderr, " IPv4: SKIPPING TEST (no support)\n"); - } - else - { - ipv4.mask = 32; - ipv4.sa_buf_len = (int)info->ai_addrlen; - ipv4.is_cidr = 0; - memcpy(ipv4.sa_buf, info->ai_addr, ipv4.sa_buf_len); - memset(ipv4.sa_buf, 0, 2); - ((struct sockaddr *) ipv4.sa_buf)->sa_family = AF_INET; - freeaddrinfo(info); - } - -#ifdef AF_INET6 - hints.ai_family = AF_INET6; -#endif - - /* windows may choke on an IPv6 address */ - if ((r = getaddrinfo("2001:4f8:3:ba:2e0:81ff:fe22:d1f1", - NULL, &hints, &info))) - { - have_ipv6 = 0; - //testcnt++; - //failcnt++; - fprintf(stderr, " IPv6: SKIPPING TEST (no support - [%d] %s)\n", - r, gai_strerror(r)); - } - else - { - ipv6.mask = 32; - ipv6.sa_buf_len = (int)info->ai_addrlen; - ipv6.is_cidr = 0; - memcpy(ipv6.sa_buf, info->ai_addr, ipv6.sa_buf_len); - -#ifdef AF_INET6 - memset(ipv6.sa_buf, 0, 2); - ((struct sockaddr *) ipv6.sa_buf)->sa_family = AF_INET6; -#endif - - freeaddrinfo(info); - } - - r = have_ipv4 ? PQputf(param, &err, "%inet", &ipv4) : PQputf(param, &err, "%null"); - PUTOKAY(param, r, "PQputf(network-ipv4)"); - - r = have_ipv6 ? PQputf(param, &err, "%inet", &ipv6) : PQputf(param, &err, "%null"); - PUTOKAY(param, r, "PQputf(network-ipv6)"); - - r = PQputf(param, &err, "%macaddr", &mac); - PUTOKAY(param, r, "PQputf(network-macaddr)"); - - DROP_TABLE("libpq_network"); - - result = PQexec(conn, "CREATE TABLE libpq_network (" - "ipv4 inet, ipv6 inet, mac macaddr)"); - CMDOKAY("creating libpq_network table"); - PQclear(result); - - result = PQparamExec(conn, &err, param, - "INSERT INTO libpq_network VALUES ($1,$2,$3)", format); - CMDOKAY("PQparamExec(INSERT:network)"); - PQclear(result); - - result = PQparamExec(conn, &err, NULL, "SELECT * FROM libpq_network", format); - TUPSOKAY("PQparamExec(SELECT:network)"); - - r = PQgetf(result, &err, 0, "%inet %inet %macaddr", - 0, &ipv4out, 1, &ipv6out, 2, &macout); - GETOKAY(r, "PQgetf(network)"); - - PQclear(result); - - if (have_ipv4) - { - if (memcmp(&ipv4out, &ipv4, sizeof(PGinet))) - { - failcnt++; - fprintf(stderr, " %%inet - IPv4 FAILED\n"); - } - else - printf(" %%inet - IPv4 passed\n"); - } - - if (have_ipv6) - { - if (memcmp(&ipv6out, &ipv6, sizeof(PGinet))) - { - failcnt++; - fprintf(stderr, " %%inet - IPv6 FAILED\n"); - } - else - printf(" %%inet - IPv6 passed\n"); - } - - testcnt++; - if (memcmp(&macout, &mac, sizeof(PGmacaddr))) - { - failcnt++; - fprintf(stderr, " %%macaddr - FAILED\n"); - } - else - printf(" %%macaddr - passed\n"); -#else - printf("\nNetwork types: (%s) - skipping, no getaddrinfo()\n", - format ? "binary" : "text"); -#endif -} - -/* PGtypeProc put for epoch sub-class */ -static int epoch_put(PGtypeArgs *args) -{ - PGtimestamp ts; - time_t t = va_arg(args->ap, time_t); - struct tm *tm = localtime(&t); - - printf(" epoch_put('%ld')\n", t); - - ts.date.isbc = 0; - ts.date.year = tm->tm_year + 1900; /* PGtimestamp requires 4-digit year */ - ts.date.mon = tm->tm_mon; - ts.date.mday = tm->tm_mday; - ts.time.hour = tm->tm_hour; - ts.time.min = tm->tm_min; - ts.time.sec = tm->tm_sec; - ts.time.usec = 0; - - PQlocalTZInfo(&t, &ts.time.gmtoff, &ts.time.isdst, NULL); - return args->super(args, &ts); -} - -/* PGtypeProc get for epoch sub-class */ -static int epoch_get(PGtypeArgs *args) -{ - PGtimestamp ts; - time_t *t = va_arg(args->ap, time_t *); - - printf(" epoch_get(%s)\n", args->format==0 ? "text" : "binary"); - - if (args->super(args, &ts) == -1) - return -1; /* args->errorf called by super class */ - - /* since PGtimestamp contains an epoch member as an int8, we can - * just copy that value, rather than doing a mktime(). If time_t - * is 32-bits, the below has a limited range compared to an int8. - * Although, this will work fine for timestamps in a 32-bit time_t range. - * 64-bit time_t should always work. - */ - *t = (time_t)ts.epoch; - return 0; -} - -static void test_subclass(int format) -{ - int r; - PGparam *prm; - time_t timeout[2] = {0}; - /* 1970-01-01 00:00:00, 2000-01-01 00:00:00 */ - time_t timevals[] = {0, 946702800}; - - printf("\nSub-class: (%s)\n", format ? "binary" : "text"); - - DROP_TABLE("libpq_subclass"); - result = PQexec(conn, - "CREATE TABLE libpq_subclass (n timestamptz, a timestamptz)"); - CMDOKAY("creating libpq_subclass table"); - PQclear(result); - - prm = PQparamCreate(conn, &err); - if (!PQputf(prm, &err, "%epoch %epoch", timevals[0], timevals[1])) - fprintf(stderr, "subclass_put failed: %s\n", err.msg); - result = PQparamExec(conn, &err, prm, "INSERT INTO libpq_subclass " - "VALUES ($1, $2)", format); - PQparamClear(prm); - CMDOKAY("PQparamExec(INSERT:subclass)"); - PQclear(result); - - result = PQparamExec(conn, &err, NULL, "SELECT * FROM libpq_subclass", format); - TUPSOKAY("PQparamExec(SELECT:subclass)"); - - /* use schema-qualified name */ - r = PQgetf(result, &err, 0, "%libpq.epoch %epoch", - 0, &timeout[0], 1, &timeout[1]); - GETOKAY(r, "PQgetf(subclass)"); - PQclear(result); - - testcnt++; - if (memcmp(timeout, timevals, sizeof(timeout))) - { - failcnt++; - fprintf(stderr, " %%epoch - FAILED (putval=%ld,%ld, getval=%ld,%ld)\n", - timevals[0], timevals[1], timeout[0], timeout[1]); - } - else - fprintf(stderr, " %%epoch - passed\n"); -} - - diff --git a/libpqtypes/src/spec.c b/libpqtypes/src/spec.c deleted file mode 100644 index bce4423..0000000 --- a/libpqtypes/src/spec.c +++ /dev/null @@ -1,657 +0,0 @@ - -/* - * spec.c - * Type Specifier parser and compiler. - * - * Copyright (c) 2011 eSilo, LLC. All rights reserved. - * This is free software; see the source for copying conditions. There is - * NO warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR - * PURPOSE. - */ - -#include "libpqtypes-int.h" - -/* For use with pqt_parse */ -#define CHKSTMTBUF(nbytes_add) do{ \ - if ((*stmtPos + (nbytes_add)) >= stmtBufLen) \ - { \ - PQseterror(err, "statement buffer is too small"); \ - return FALSE; \ - } \ -}while (0) - -/* For use with PQspecPrepare */ -#define FREESTMTBUF do{ \ - if (stmtBuf && stmtBuf != buffer) \ - free(stmtBuf); \ -}while(0) - -static char * -skipQuotes(char *s, PGerror *err); - -static char * -parseId(PGerror *err, char *id, char **start, int *len, int *flags, int typpos); - -static int -expandSpecs(PGtypeData *typeData, PGerror *err); - -int -PQspecPrepare(PGconn *conn, PGerror *err, const char *name, - const char *format, int is_stmt) -{ - int flags; - int typpos = 0; - int idmax = 0; - size_t stmtPos = 0; - PGtypeHandler *h; - PGtypeData *typeData; - PGtypeSpec *spec; - size_t stmtBufLen = 0; - char *stmtBuf = NULL; - char buffer[8192]; - - if (!conn) - { - PQseterror(err, "PGConn cannot be NULL"); - return FALSE; - } - - if (!name || !*name) - { - PQseterror(err, "Prepared specifier name cannot be NULL or an empty string"); - return FALSE; - } - - if (format && !*format) - { - PQseterror(err, "Specifier format string cannot be empty"); - return FALSE; - } - - if (!isalnum(*name) && *name != '_') - { - PQseterror(err, "Prepared specifier name must begin with an alpha, " - "number or underscore."); - return FALSE; - } - - typeData = PQinstanceData(conn, pqt_eventproc); - if (!typeData) - { - PQseterror(err, "No type data exists for PGconn at %p", conn); - return FALSE; - } - - /* This is a removal request */ - if (!format) - { - int i; - - for (i=0; i < typeData->typspeccnt; i++) - { - if (strcmp(typeData->typspecs[i].name, name) == 0) - { - /* clear it */ - pqt_clearspec(&typeData->typspecs[i]); - - /* remove from list, not needed if its the last element */ - if (i != typeData->typspeccnt - 1) - memmove(typeData->typspecs + i, typeData->typspecs + i + 1, - (typeData->typspeccnt - i - 1) * sizeof(PGtypeSpec)); - - typeData->typspeccnt--; - break; - } - } - - /* always return TRUE, an error is not useful here */ - return TRUE; - } - - /* Already exists case */ - spec = pqt_getspec(typeData->typspecs, typeData->typspeccnt, name); - if (spec) - { - PQseterror(err, "Prepared spec already exists '%s'", name); - return FALSE; - } - - /* Make sure specs array is large enough */ - if (!expandSpecs(typeData, err)) - return FALSE; - - spec = &typeData->typspecs[typeData->typspeccnt]; - - /* cache statement along with prepared type spec */ - if (is_stmt) - { - stmtBufLen = strlen(format) + 1; - - /* no room in stack, use heap */ - if (stmtBufLen > sizeof(buffer)) - { - stmtBuf = (char *) malloc(stmtBufLen); - if (!stmtBuf) - { - PQseterror(err, PQT_OUTOFMEMORY); - return FALSE; - } - } - else - { - stmtBuf = buffer; - stmtBufLen = sizeof(buffer); - } - } - - while (format && *format) - { - format = pqt_parse(err, format, typeData->typhandlers, typeData->typhcnt, - stmtBuf, stmtBufLen, &h, &stmtPos, &typpos, &flags); - - if (!format) - { - pqt_clearspec(spec); - FREESTMTBUF; - return FALSE; - } - - /* skipped harmless chars in format, like quoted sections. */ - if(!h) - continue; - - if (!spec->idlist || spec->idcnt == idmax) - { - int c = idmax ? idmax * 2 : 8; - void *p = pqt_realloc(spec->idlist, c * sizeof(int)); - - if (!p) - { - PQseterror(err, PQT_OUTOFMEMORY); - pqt_clearspec(spec); - FREESTMTBUF; - return FALSE; - } - - spec->idlist = (int *) p; - - p = pqt_realloc(spec->flags, c * sizeof(char)); - if (!p) - { - PQseterror(err, PQT_OUTOFMEMORY); - pqt_clearspec(spec); - FREESTMTBUF; - return FALSE; - } - - spec->flags = (unsigned char *) p; - idmax = c; - } - - /* Parallel arrays, every handler needs type flags */ - spec->idlist[spec->idcnt] = h->id; - spec->flags[spec->idcnt++] = (unsigned char) flags; - } - - /* terminate stmtBuf, guarenteed to have room for NUL */ - if (stmtBuf) - stmtBuf[stmtPos] = 0; - - /* copy name string */ - spec->name = strdup(name); - if (!spec->name) - { - pqt_clearspec(spec); - PQseterror(err, PQT_OUTOFMEMORY); - FREESTMTBUF; - return FALSE; - } - - /* copy the parameterized stmt string */ - if (stmtBuf) - { - spec->stmt = strdup(stmtBuf); - if (!spec->stmt) - { - pqt_clearspec(spec); - PQseterror(err, PQT_OUTOFMEMORY); - FREESTMTBUF; - return FALSE; - } - } - - FREESTMTBUF; - - /* Success, increment type spec count */ - typeData->typspeccnt++; - return TRUE; -} - -int -PQclearSpecs(PGconn *conn, PGerror *err) -{ - PGtypeData *typeData; - - if (!conn) - { - PQseterror(err, "PGConn cannot be NULL"); - return FALSE; - } - - typeData = PQinstanceData(conn, pqt_eventproc); - if (!typeData) - { - PQseterror(err, "No type data exists for PGconn at %p", conn); - return FALSE; - } - - pqt_freespecs(typeData->typspecs, typeData->typspeccnt); - typeData->typspecs = NULL; - typeData->typspeccnt = 0; - typeData->typspecmax = 0; - - return TRUE; -} - -char *pqt_parse(PGerror *err, const char *format, PGtypeHandler *h, int hcnt, - char *stmtBuf, size_t stmtBufLen, PGtypeHandler **out, size_t *stmtPos, - int *typpos, int *flags) -{ - int specMark; - char *s = skipQuotes((char *) format, err); - char typname[PQT_MAXIDLEN + 1]; - char schema[PQT_MAXIDLEN + 1]; - char tmp[200]; - - *out = NULL; - - if (!s) - return NULL; - - /* found quotes to skip */ - if (s != format) - { - if (stmtBuf) - { - size_t n = s - format; - CHKSTMTBUF(n); - memcpy(stmtBuf + *stmtPos, format, n); - (*stmtPos) += n; - } - - return s; - } - - specMark = *format; - if (specMark != '%' && specMark != '#') - { - if (stmtBuf) - { - CHKSTMTBUF(1); - stmtBuf[*stmtPos] = *format; - (*stmtPos)++; - } - - format++; - return (char *) format; - } - - /* spec skips % or # */ - if (!(s = pqt_parsetype(err, format + 1, schema, typname, flags, *typpos + 1))) - return NULL; - - if (*flags & TYPFLAG_INVALID) - { - if (stmtBuf) - { - CHKSTMTBUF(1); - stmtBuf[*stmtPos] = *format++; - (*stmtPos)++; - return (char *) format; - } - - return NULL; - } - - (*typpos)++; - - if (!(*out = pqt_gethandler(h, hcnt, schema, typname))) - { - PQseterror(err, "Unknown type '%s' (position %d)", - pqt_fqtn(tmp, sizeof(tmp), schema, typname), *typpos); - return NULL; - } - - if (stmtBuf) - { - int n = pqt_snprintf(tmp, sizeof(tmp), "$%d", *typpos); - CHKSTMTBUF(n); - memcpy(stmtBuf + *stmtPos, tmp, n); - (*stmtPos) += n; - } - - if (!(*out)->typput) - { - PGtypeHandler *o = pqt_gethandlerbyid(h, hcnt, h->base_id); - if (!o || !o->typput) - { - PQseterror(err, - "Type '%s' doesn't support put operations (position %d)", - pqt_fqtn(tmp, sizeof(tmp), (*out)->typschema, - (*out)->typname), *typpos); - - *out = NULL; - return NULL; - } - - *out = o; - } - - if ((*flags & TYPFLAG_POINTER) && !pqt_allowsptr(*out)) - { - PQseterror(err, - "Type '%s' doesn't support putting pointers (position %d)", - pqt_fqtn(tmp, sizeof(tmp), (*out)->typschema, - (*out)->typname), *typpos); - - *out = NULL; - return NULL; - } - - if (specMark == '#') - (*flags) |= TYPFLAG_BYNAME; - - return s; -} - -void -pqt_clearspec(PGtypeSpec *spec) -{ - if (spec->name) - free(spec->name); - - if (spec->stmt) - free(spec->stmt); - - if (spec->idlist) - free(spec->idlist); - - if (spec->flags) - free(spec->flags); - - memset(spec, 0, sizeof(PGtypeSpec)); -} - -PGtypeSpec *pqt_dupspecs(PGtypeSpec *specs, int count) -{ - int i; - PGtypeSpec *new_specs = (PGtypeSpec *) malloc(count * sizeof(PGtypeSpec)); - - if (!new_specs) - return NULL; - - memset(new_specs, 0, count * sizeof(PGtypeSpec)); - - for (i=0; i < count; i++) - { - PGtypeSpec *s = &specs[i]; - PGtypeSpec *news = &new_specs[i]; - - news->idcnt = s->idcnt; - - news->name = strdup(s->name); - if (!news->name) - { - pqt_freespecs(new_specs, i+1); - return NULL; - } - - if(s->stmt) - { - news->stmt = strdup(s->stmt); - if (!news->stmt) - { - pqt_freespecs(new_specs, i+1); - return NULL; - } - } - - news->idlist = (int *) malloc(s->idcnt * sizeof(int)); - if (!news->idlist) - { - pqt_freespecs(new_specs, i+1); - return NULL; - } - - memcpy(news->idlist, s->idlist, s->idcnt * sizeof(int)); - - news->flags = (unsigned char *) malloc(s->idcnt * sizeof(char)); - if (!news->flags) - { - pqt_freespecs(new_specs, i+1); - return NULL; - } - - memcpy(news->flags, s->flags, s->idcnt * sizeof(char)); - } - - return new_specs; -} - -void pqt_freespecs(PGtypeSpec *specs, int count) -{ - int i; - - for (i=0; i < count; i++) - pqt_clearspec(&specs[i]); - - if (specs) - free(specs); -} - -PGtypeSpec *pqt_getspec(PGtypeSpec *specs, int count, const char *name) -{ - int i; - - for (i=0; i < count; i++) - if (strcmp(specs[i].name, name) == 0) - return &specs[i]; - - return NULL; -} - -/* Parse a type identifer name (schema qualified or not) from spec. spec - * must point to the first char after the % sign, which maybe a - * double quote. - * - * spec - pointer to typname, just after the '%' or '#' - * schema - buffer to receive schema (PQT_MAXIDLEN bytes) - * typname - buffer to receive typname (PQT_MAXIDLEN bytes) - * flags - a pointer to an int that is set one or more TYPFLAG_xxx - * typpos - 1-based position of spec in specifier string (0 for unknown) - */ -char * -pqt_parsetype(PGerror *err, const char *spec, char *schema, char *typname, - int *flags, int typpos) -{ - int i; - char *start; - int len=0; - char *s = (char *)spec; - - if (!(s = parseId(err, s, &start, &len, flags, typpos))) - return NULL; - - /* not a valid specifer, false positive like "(x % y) = 0" */ - if (*flags & TYPFLAG_INVALID) - return s; - - *schema = 0; - if (*s == '.') - { - memcpy(schema, start, len); - schema[len] = 0; - if (*flags & TYPFLAG_CASEFOLD) - for (i=0; i < len; i++) - schema[i] = pqt_tolower(schema[i]); - - /* now get typname */ - if (!(s = parseId(err, ++s, &start, &len, flags, typpos))) - return NULL; - - if (*flags & TYPFLAG_INVALID) - return s; - } - - memcpy(typname, start, len); - typname[len] = 0; - if (*flags & TYPFLAG_CASEFOLD) - for (i=0; i < len; i++) - typname[i] = pqt_tolower(typname[i]); - - return s; -} - -static char * -parseId(PGerror *err, char *id, char **start, int *len, int *flags, int typpos) -{ - char *p = id; - - *flags = 0; - *start = NULL; - *len = 0; - - if (*p == '"') - p++; - - /* check first character */ - if (!isalpha(*p) && *p != '_') - { - *flags |= TYPFLAG_INVALID; - PQseterror(err, - "Invalid first character for identifier '%c' (pos:%d)", *p, typpos); - return p; - } - - if (*id == '"') - { - id++; - if (!(p = strchr(id, '"'))) - { - *flags |= TYPFLAG_INVALID; - PQseterror(err, "Unterminated double quote '%s' (pos:%d)", - id-1, typpos); - return p; - } - - *len = (int) (p - id); - *start = id; - p++; - } - else - { - for (p=id+1; isalnum(*p) || *p=='_'; p++) ; - - *len = (int) (p - id); - *start = id; - *flags |= TYPFLAG_CASEFOLD; - } - - /* range check */ - if (*len == 0 || *len > PQT_MAXIDLEN) - { - *flags |= TYPFLAG_INVALID; - PQseterror(err, "Identifier out of range %d (pos:%d), range is 1 to %d", - *len, typpos, PQT_MAXIDLEN); - return p; - } - - /* direct pointer request */ - if (*p == '*') - { - p++; - *flags |= TYPFLAG_POINTER; - } - - /* Is this an array? Ex. %int4[] or %"a b"[] */ - if (p[0] == '[' && p[1] == ']') - { - if (*flags & TYPFLAG_POINTER) - { - PQseterror(err, - "'*' specifer flag cannot be used with arrays[] '%s' (pos:%d)", - id, typpos); - return NULL; - } - - *flags |= TYPFLAG_ARRAY; - p += 2; - } - - return p; -} - -static int -expandSpecs(PGtypeData *typeData, PGerror *err) -{ - int n; - PGtypeSpec *specs; - - if (typeData->typspeccnt < typeData->typspecmax) - return TRUE; - - n = typeData->typspecmax ? (typeData->typspecmax * 3) / 2 : 8; - - specs = (PGtypeSpec *) pqt_realloc( - typeData->typspecs, sizeof(PGtypeSpec) * n); - - if (!specs) - { - PQseterror(err, PQT_OUTOFMEMORY); - return FALSE; - } - - memset(specs + typeData->typspeccnt, 0, - (n - typeData->typspeccnt) * sizeof(PGtypeSpec)); - - typeData->typspecs = specs; - typeData->typspecmax = n; - return TRUE; -} - -/* skip quoted strings. Doesn't need to account for E'' syntax. The - * E is copied over prior to the quoted string. - * - * Returns a pointer to the next character after the closing quote or - * NULL if there was an error. - */ -static char * -skipQuotes(char *s, PGerror *err) -{ - char *end; - - if (*s != '\'') - return s; - - end = s; - while (*++end) - { - /* If we see a backslash, skip an extra char. No need to dig any - * further since this method works with \digits and \hex. - */ - if (*end == '\\') - end++; - else if (*end == '\'') - break; - } - - /* unterminated quote */ - if (!*end) - { - PQseterror(err, "unterminated single quoted string"); - return NULL; - } - - return ++end; /* skip ending quote */ -} - diff --git a/libpqtypes/src/utils.c b/libpqtypes/src/utils.c deleted file mode 100644 index 370a745..0000000 --- a/libpqtypes/src/utils.c +++ /dev/null @@ -1,265 +0,0 @@ - -/* - * util.c - * Utility functions. - * - * Copyright (c) 2011 eSilo, LLC. All rights reserved. - * This is free software; see the source for copying conditions. There is - * NO warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR - * PURPOSE. - */ - -#include "libpqtypes-int.h" - -PGresult * -pqt_copyresult(PGtypeArgs *args, int nattrs) -{ - int i; - PGresult *res; - int tableid, columnid, format; - PGresAttDesc *ad = (PGresAttDesc *) malloc(nattrs * sizeof(PGresAttDesc)); - - if (!ad) - { - PQseterror(args->err, PQT_OUTOFMEMORY); - return NULL; - } - - tableid = PQftable(args->get.result, args->get.field_num); - columnid = PQftablecol(args->get.result, args->get.field_num); - format = PQfformat(args->get.result, args->get.field_num); - - for (i=0; i < nattrs; i++) - { - ad[i].tableid = tableid; - ad[i].columnid = columnid; - ad[i].format = format; - - /* simple array */ - if (args->typhandler->nattrs == 0) - { - ad[i].typid = args->typhandler->typoid; - ad[i].typlen = args->typhandler->typlen; - ad[i].name = NULL; - ad[i].atttypmod = -1; - } - /* composite/record */ - else - { - ad[i].typid = args->typhandler->attDescs[i].attoid; - ad[i].typlen = args->typhandler->attDescs[i].attlen; - ad[i].name = args->typhandler->attDescs[i].attname; - ad[i].atttypmod = args->typhandler->attDescs[i].atttypmod; - } - } - - res = PQcopyResult(args->get.result, - PG_COPYRES_EVENTS | PG_COPYRES_NOTICEHOOKS); - - if (!res) - { - free(ad); - PQseterror(args->err, PQT_OUTOFMEMORY); - return NULL; - } - - if (!PQsetResultAttrs(res, nattrs, ad)) - { - PQclear(res); - PQseterror(args->err, PQT_OUTOFMEMORY); - res = NULL; - } - - free(ad); - return res; -} - -#ifdef STRICT_MEMORY_ALIGNMENT -short -pqt_buf_getint2(char *buffer) -{ - short n; - memcpy(&n, buffer, 2); - return (short) ntohs(n); -} - -int -pqt_buf_getint4(char *buffer) -{ - int n; - memcpy(&n, buffer, 4); - return (int) ntohl(n); -} -#endif - -void -pqt_swap8(void *outp, void *inp, int tonet) -{ - static int n = 1; - -#ifdef STRICT_MEMORY_ALIGNMENT - unsigned int in[2]; - unsigned int out[2]; - memcpy(&in, inp, 8); -#else - unsigned int *in = (unsigned int *) inp; - unsigned int *out = (unsigned int *) outp; -#endif - - /* swap when needed */ - if (*(char *)&n == 1) - { - out[0] = (unsigned int) (tonet ? htonl(in[1]) : ntohl(in[1])); - out[1] = (unsigned int) (tonet ? htonl(in[0]) : ntohl(in[0])); - } - else - { - out[0] = in[0]; - out[1] = in[1]; - } - -#ifdef STRICT_MEMORY_ALIGNMENT - memcpy(outp, out, 8); -#endif -} - -int -pqt_text_to_int8(char *val, void *out) -{ - PGint8 n; - - /* NOTE: port version of strtoll in port.c. */ - errno = 0; - if ((n = (PGint8) strtoll(val, NULL, 10)) == 0 && errno) - return -1; - - *(PGint8 *) out = n; - return 0; -} - -int -pqt_text_to_float8(double *f8, char *text, char **endptr) -{ - double d; - - errno = 0; - if ((d = strtod(text, endptr)) == 0 && errno) - return 0; - - *f8 = d; - return 1; -} - -/* Checks buffer and truncates 'src' if 'dest' is too small. */ -char * -pqt_strcpy(char *dest, size_t size, const char *src) -{ - size_t src_len = strlen(src); - - /* truncate if needed */ - if (src_len >= size) - src_len = size - 1; - - memcpy(dest, src, src_len); - dest[src_len] = 0; - return dest; -} - - -/* --------------------------- - * Everything below was taken from postgresql project - * A couple of changes here and there. - */ - -#ifndef HIGHBIT -# define HIGHBIT (0x80) -#endif - -#ifndef IS_HIGHBIT_SET -# define IS_HIGHBIT_SET(ch) ((unsigned char)(ch) & HIGHBIT) -#endif - -/* - * Fold a character to lower case. - * - * Unlike some versions of tolower(), this is safe to apply to characters - * that aren't upper case letters. Note however that the whole thing is - * a bit bogus for multibyte character sets. - */ -unsigned char -pqt_tolower(unsigned char ch) -{ - if (ch >= 'A' && ch <= 'Z') - ch += 'a' - 'A'; - else if (IS_HIGHBIT_SET(ch) && isupper(ch)) - ch = (unsigned char) tolower(ch); - return ch; -} - -/* - * Case-independent comparison of two null-terminated strings. - */ -int -pqt_strcasecmp(const char *s1, const char *s2) -{ - for (;;) - { - unsigned char ch1 = (unsigned char) *s1++; - unsigned char ch2 = (unsigned char) *s2++; - - if (ch1 != ch2) - { - if (ch1 >= 'A' && ch1 <= 'Z') - ch1 += 'a' - 'A'; - else if (IS_HIGHBIT_SET(ch1) && isupper(ch1)) - ch1 = (unsigned char)tolower(ch1); - - if (ch2 >= 'A' && ch2 <= 'Z') - ch2 += 'a' - 'A'; - else if (IS_HIGHBIT_SET(ch2) && isupper(ch2)) - ch2 = (unsigned char)tolower(ch2); - - if (ch1 != ch2) - return (int) ch1 - (int) ch2; - } - if (ch1 == 0) - break; - } - return 0; -} - -/* - * Case-independent comparison of two not-necessarily-null-terminated - * strings. At most n bytes will be examined from each string. - */ -int -pqt_strncasecmp(const char *s1, const char *s2, size_t n) -{ - while (n-- > 0) - { - unsigned char ch1 = (unsigned char) *s1++; - unsigned char ch2 = (unsigned char) *s2++; - - if (ch1 != ch2) - { - if (ch1 >= 'A' && ch1 <= 'Z') - ch1 += 'a' - 'A'; - else if (IS_HIGHBIT_SET(ch1) && isupper(ch1)) - ch1 = (unsigned char)tolower(ch1); - - if (ch2 >= 'A' && ch2 <= 'Z') - ch2 += 'a' - 'A'; - else if (IS_HIGHBIT_SET(ch2) && isupper(ch2)) - ch2 = (unsigned char)tolower(ch2); - - if (ch1 != ch2) - return (int) ch1 - (int) ch2; - } - if (ch1 == 0) - break; - } - return 0; -} - - - diff --git a/libpqtypes/src/varlena.c b/libpqtypes/src/varlena.c deleted file mode 100644 index 238c842..0000000 --- a/libpqtypes/src/varlena.c +++ /dev/null @@ -1,151 +0,0 @@ - -/* - * varlena.c - * Type handler for the variable length data types. - * - * Copyright (c) 2011 eSilo, LLC. All rights reserved. - * This is free software; see the source for copying conditions. There is - * NO warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR - * PURPOSE. - */ - -#include "libpqtypes-int.h" - -/* put a type in its string representation, text format */ -int -pqt_put_str(PGtypeArgs *args) -{ - args->format = TEXTFMT; - args->put.out = va_arg(args->ap, char *); - return args->put.out ? (int)strlen(args->put.out)+1 : 0; -} - -/* varchar, bpchar and name use the text handlers */ -int -pqt_put_text(PGtypeArgs *args) -{ - args->put.out = va_arg(args->ap, PGtext); - return args->put.out ? (int)strlen(args->put.out) : 0; -} - -/* varchar, bpchar and name use the text handlers */ -int -pqt_get_text(PGtypeArgs *args) -{ - DECLVALUE(args); - PGtext *textp = va_arg(args->ap, PGtext *); - CHKGETVALS(args, textp); - *textp = value; - return 0; -} - -int -pqt_put_bytea(PGtypeArgs *args) -{ - PGbytea *bytea = va_arg(args->ap, PGbytea *); - PUTNULLCHK(args, bytea); - args->put.out = bytea->data; - return bytea->len; -} - -int -pqt_get_bytea(PGtypeArgs *args) -{ - DECLVALUE(args); - DECLLENGTH(args); - PGbytea *bytea = va_arg(args->ap, PGbytea *); - - CHKGETVALS(args, bytea); - - if (args->format == TEXTFMT) - { - size_t len = 0; - - value = (char *) PQunescapeBytea((const unsigned char *) value, &len); - if (!value) - RERR_STR2INT(args); - - bytea->data = (char *) PQresultAlloc(args->get.result, len); - if (!bytea->data) - { - PQfreemem(value); - RERR_MEM(args); - } - - bytea->len = (int) len; - memcpy(bytea->data, value, len); - PQfreemem(value); - return 0; - } - - /* binary format */ - bytea->len = valuel; - bytea->data = value; - return 0; -} - -/*********************************/ - -/* btext, text with explicitly passed length */ -int -pqt_put_btext(PGtypeArgs *args) -{ - PGbytea *btext = va_arg(args->ap, PGbytea *); - PUTNULLCHK(args, btext); - args->put.out = btext->data; - return btext->len; -} - -/* btext, text with explicitly passed length */ -int -pqt_get_btext(PGtypeArgs *args) -{ - DECLVALUE(args); - DECLLENGTH(args); - PGbytea *btext = va_arg(args->ap, PGbytea *); - CHKGETVALS(args, btext); - btext->len = valuel; - btext->data = value; - return 0; -} - -int -pqt_get_jsonb(PGtypeArgs *args) -{ - DECLVALUE(args); - DECLLENGTH(args); - PGbytea *jsonb = va_arg(args->ap, PGbytea *); - CHKGETVALS(args, jsonb); - - if (args->format == TEXTFMT) - return args->errorf(args, "text format is not supported"); - if (valuel == 0) - return args->errorf(args, "raw jsonb cannot have length 0"); - - // check version number - int version = (unsigned char)value[0]; - if (version != 1) - return args->errorf(args, "unsupported jsonb version number %d", version); - - jsonb->len = valuel-1; - jsonb->data = value+1; - return 0; -} - -int -pqt_put_jsonb(PGtypeArgs *args) -{ - PGbytea *jsonb = va_arg(args->ap, PGbytea *); - PUTNULLCHK(args, jsonb); - - int jsonb_len = jsonb->len+1; - // make sure args->put.out is large enough - if (args->put.expandBuffer(args, jsonb_len) == -1) - return -1; - - // version number - args->put.out[0] = 1; - // data - memcpy(&args->put.out[1], jsonb->data, jsonb->len); - return jsonb_len; -} diff --git a/libpqtypes/win32.mak b/libpqtypes/win32.mak deleted file mode 100644 index 13f3c19..0000000 --- a/libpqtypes/win32.mak +++ /dev/null @@ -1,66 +0,0 @@ -############################################################## -# Project: libpqtypes -# Makefile for Microsoft Visual Studio 6, 7 or 8 -# -# nmake -f win32.mak [options] [targets] -# -# For further build instructions, see the package's INSTALL file. -# -# Authors: Andrew Chernow, Merlin Moncure -# Contact: libpqtypes@esilo.com -############################################################## - -PROJNAME = libpqtypes - -OBJECTS = src\array.obj src\datetime.obj src\error.obj \ - src\events.obj src\exec.obj src\geo.obj src\handler.obj \ - src\misc.obj src\network.obj src\numerics.obj \ - src\param.obj src\port.obj src\record.obj src\spec.obj \ - src\utils.obj src\varlena.obj - - -CFLAGS = $(CFLAGS) /nologo /W4 /MD /GF /Ob2 /O2 /Oi- /D_WIN32_WINNT=0x0501 - -!IFDEF MT -CFLAGS = $(CFLAGS) /DPQT_THREAD_SAFE -!ENDIF - -!IFDEF PQT_LONG_LONG -CFLAGS = $(CFLAGS) /DPQT_LONG_LONG=$(PQT_LONG_LONG) -!ENDIF - -# set the libpath for libpq.dll and libpqdll.lib (same thing as gcc -L) -!IFDEF LPATH -LIBPATH = /LIBPATH:$(LPATH) -!ENDIF - -INC2 = $(INC) /Isrc -LIBS = ws2_32.lib libpqdll.lib -LINKOPTS = /nologo /subsystem:windows /incremental:no -LINKIGNORE = /IGNORE:4089 /IGNORE:4006 /IGNORE:4068 -LIBOPTS = /nologo /subsystem:windows $(LINKIGNORE) - -all: $(OBJECTS) - lib $(LIBOPTS) /OUT:$(PROJNAME).lib $(OBJECTS) - link $(LINKOPTS) /dll $(OBJECTS) /out:$(PROJNAME).dll \ - /IMPLIB:$(PROJNAME)dll.lib $(LIBS) $(LIBPATH) - -test: - $(CC) $(CFLAGS) $(INC2) src\regression-test.c /Feregtest.exe \ - $(LIBS) $(PROJNAME)dll.lib /link $(LIBPATH) $(LINKIGNORE) - -@del regression-test.obj - -$(OBJECTS): - $(CC) $(CFLAGS) $(INC2) /c $** /Fo$*.obj - -clean: - -@del /Q /F \ - $(OBJECTS) \ - $(PROJNAME).dll \ - $(PROJNAME).dll.manifest \ - $(PROJNAME).lib \ - $(PROJNAME)dll.lib \ - $(PROJNAME)dll.exp \ - regtest.exe \ - regtest.exe.manifest 2>NUL 1>NUL - diff --git a/src/Data/Monoid/Utils.hs b/src/Data/Monoid/Utils.hs index 2596d7b..f67ac61 100644 --- a/src/Data/Monoid/Utils.hs +++ b/src/Data/Monoid/Utils.hs @@ -6,12 +6,12 @@ module Data.Monoid.Utils , (<+>) ) where -import Data.List +import Data.List qualified as L import Data.String -- | Generalization of 'intercalate' to arbitrary 'Monoid'. mintercalate :: Monoid m => m -> [m] -> m -mintercalate m = mconcat . intersperse m +mintercalate m = mconcat . L.intersperse m -- | Generalization of separator to arbitrary 'Monoid'. mspace :: (IsString m, Monoid m) => m diff --git a/src/Database/PostgreSQL/PQTypes.hs b/src/Database/PostgreSQL/PQTypes.hs index 1c1d297..007ce85 100644 --- a/src/Database/PostgreSQL/PQTypes.hs +++ b/src/Database/PostgreSQL/PQTypes.hs @@ -17,13 +17,12 @@ module Database.PostgreSQL.PQTypes -- * Exceptions , ErrorCode (..) , DetailedQueryError (..) - , QueryError (..) , HPQTypesError (..) , LibPQError (..) , ConversionError (..) - , ArrayItemError (..) , InvalidValue (..) , RangeError (..) + , TypeMismatch (..) , ArrayDimensionMismatch (..) , RowLengthMismatch (..) , AffectedRowsMismatch (..) @@ -41,16 +40,19 @@ module Database.PostgreSQL.PQTypes , QueryResult , ntuples , nfields + -- PostgreSQL.Binary.Range + + -- * Ranges + , Range (..) + , Bound (..) -- * Other modules , module Data.Functor.Identity - , module Database.PostgreSQL.PQTypes.Array , module Database.PostgreSQL.PQTypes.Class - , module Database.PostgreSQL.PQTypes.Composite , module Database.PostgreSQL.PQTypes.Cursor + , module Database.PostgreSQL.PQTypes.Enum , module Database.PostgreSQL.PQTypes.Fold , module Database.PostgreSQL.PQTypes.Format - , module Database.PostgreSQL.PQTypes.FromRow , module Database.PostgreSQL.PQTypes.FromSQL , module Database.PostgreSQL.PQTypes.Interval , module Database.PostgreSQL.PQTypes.JSON @@ -67,14 +69,13 @@ module Database.PostgreSQL.PQTypes ) where import Data.Functor.Identity +import PostgreSQL.Binary.Range (Bound (..), Range (..)) -import Database.PostgreSQL.PQTypes.Array import Database.PostgreSQL.PQTypes.Class -import Database.PostgreSQL.PQTypes.Composite import Database.PostgreSQL.PQTypes.Cursor +import Database.PostgreSQL.PQTypes.Enum import Database.PostgreSQL.PQTypes.Fold import Database.PostgreSQL.PQTypes.Format -import Database.PostgreSQL.PQTypes.FromRow import Database.PostgreSQL.PQTypes.FromSQL import Database.PostgreSQL.PQTypes.Internal.Connection import Database.PostgreSQL.PQTypes.Internal.Error diff --git a/src/Database/PostgreSQL/PQTypes/Array.hs b/src/Database/PostgreSQL/PQTypes/Array.hs deleted file mode 100644 index 99c28c5..0000000 --- a/src/Database/PostgreSQL/PQTypes/Array.hs +++ /dev/null @@ -1,315 +0,0 @@ -module Database.PostgreSQL.PQTypes.Array - ( -- * Array1 - Array1 (..) - , unArray1 - - -- * CompositeArray1 - , CompositeArray1 (..) - , unCompositeArray1 - - -- * Array2 - , Array2 (..) - , unArray2 - - -- * CompositeArray2 - , CompositeArray2 (..) - , unCompositeArray2 - ) where - -import Control.Exception qualified as E -import Control.Monad -import Data.ByteString.Char8 qualified as BS -import Data.ByteString.Unsafe qualified as BS -import Data.Vector.Storable qualified as V -import Foreign.C -import Foreign.Marshal.Alloc -import Foreign.Ptr -import Foreign.Storable - -import Database.PostgreSQL.PQTypes.Composite -import Database.PostgreSQL.PQTypes.Format -import Database.PostgreSQL.PQTypes.FromRow -import Database.PostgreSQL.PQTypes.FromSQL -import Database.PostgreSQL.PQTypes.Internal.C.Get -import Database.PostgreSQL.PQTypes.Internal.C.Interface -import Database.PostgreSQL.PQTypes.Internal.C.Put -import Database.PostgreSQL.PQTypes.Internal.C.Types -import Database.PostgreSQL.PQTypes.Internal.Error -import Database.PostgreSQL.PQTypes.Internal.Utils -import Database.PostgreSQL.PQTypes.ToSQL - --- | One dimensional array of non-composite elements. -newtype Array1 a = Array1 [a] - deriving (Eq, Functor, Ord, Show) - --- | Extract list of elements from 'Array1'. -unArray1 :: Array1 a -> [a] -unArray1 (Array1 a) = a - -instance PQFormat t => PQFormat (Array1 t) where - pqFormat = pqFormat @t `BS.append` BS.pack "[]" - -instance FromSQL t => FromSQL (Array1 t) where - type PQBase (Array1 t) = PGarray - fromSQL Nothing = unexpectedNULL - fromSQL (Just arr) = getArray1 Array1 arr getItem - where - getItem res err i ptr fmt = do - verifyPQTRes err "fromSQL (Array1)" =<< c_PQgetf1 res err i fmt 0 ptr - isNull <- c_PQgetisnull res i 0 - mbase <- if isNull == 1 then pure Nothing else Just <$> peek ptr - fromSQL mbase - -instance ToSQL t => ToSQL (Array1 t) where - type PQDest (Array1 t) = PGarray - toSQL (Array1 arr) pa@(ParamAllocator allocParam) conv = - alloca $ \err -> allocParam $ \param -> - putArray1 arr param conv $ \fmt item -> - toSQL item pa (c_PQputf1 param err fmt) - >>= verifyPQTRes err "toSQL (Array1)" - ----------------------------------------- - --- | One dimensional array of composite elements. -newtype CompositeArray1 a = CompositeArray1 [a] - deriving (Eq, Functor, Ord, Show) - --- | Extract list of elements from 'CompositeArray1'. -unCompositeArray1 :: CompositeArray1 a -> [a] -unCompositeArray1 (CompositeArray1 a) = a - -instance PQFormat t => PQFormat (CompositeArray1 t) where - pqFormat = pqFormat @(Array1 t) - -instance CompositeFromSQL t => FromSQL (CompositeArray1 t) where - type PQBase (CompositeArray1 t) = PGarray - fromSQL Nothing = unexpectedNULL - fromSQL (Just arr) = getArray1 CompositeArray1 arr getItem - where - getItem res err i (_ :: Ptr CInt) _ = toComposite <$> fromRow res err 0 i - -instance CompositeToSQL t => ToSQL (CompositeArray1 t) where - type PQDest (CompositeArray1 t) = PGarray - toSQL (CompositeArray1 arr) pa@(ParamAllocator allocParam) conv = - alloca $ \err -> allocParam $ \param -> - putArray1 arr param conv $ \fmt item -> - toSQL (Composite item) pa (c_PQputf1 param err fmt) - >>= verifyPQTRes err "toSQL (CompositeArray1)" - ----------------------------------------- - --- | Helper function for putting elements of --- 'Array1' / 'CompositeArray1' into 'PGparam'. -putArray1 - :: forall t r - . PQFormat t - => [t] - -- ^ List of items to be put. - -> Ptr PGparam - -- ^ Inner 'PGparam' to put items into. - -> (Ptr PGarray -> IO r) - -- ^ Continuation that puts - -- 'PGarray' into outer 'PGparam'. - -> (CString -> t -> IO ()) - -- ^ Function that takes item - -- along with its format and puts it into inner 'PGparam'. - -> IO r -putArray1 arr param conv putItem = do - pqFormat0 @t `BS.unsafeUseAsCString` (forM_ arr . putItem) - putAsPtr - ( PGarray - { pgArrayNDims = 0 - , pgArrayLBound = V.empty - , pgArrayDims = V.empty - , pgArrayParam = param - , pgArrayRes = nullPtr - } - ) - conv - --- | Helper function for getting elements of --- 'Array1' / 'CompositeArray1' out of 'PGarray'. -getArray1 - :: forall a array t - . (PQFormat t, Storable a) - => ([t] -> array) - -- ^ Array constructor. - -> PGarray - -- ^ Source 'PGarray'. - -> (Ptr PGresult -> Ptr PGerror -> CInt -> Ptr a -> CString -> IO t) - -- ^ - -- Function that takes an item with a given index - -- out of 'PGresult' and stores it in provided 'Ptr'. - -> IO array -getArray1 con PGarray {..} getItem = - flip E.finally (c_PQclear pgArrayRes) $ - if pgArrayNDims > 1 - then - E.throwIO - ArrayDimensionMismatch - { arrDimExpected = 1 - , arrDimDelivered = fromIntegral pgArrayNDims - } - else do - size <- c_PQntuples pgArrayRes - alloca $ \err -> alloca $ \ptr -> - pqFormat0 @t - `BS.unsafeUseAsCString` loop [] (size - 1) err ptr - where - loop :: [t] -> CInt -> Ptr PGerror -> Ptr a -> CString -> IO array - loop acc !i err ptr fmt = case i of - -1 -> pure . con $ acc - _ -> do - item <- getItem pgArrayRes err i ptr fmt `E.catch` rethrowWithArrayError i - loop (item : acc) (i - 1) err ptr fmt - ----------------------------------------- - --- | Two dimensional array of non-composite elements. -newtype Array2 a = Array2 [[a]] - deriving (Eq, Functor, Ord, Show) - --- | Extract list of elements from 'Array2'. -unArray2 :: Array2 a -> [[a]] -unArray2 (Array2 a) = a - -instance PQFormat t => PQFormat (Array2 t) where - pqFormat = pqFormat @(Array1 t) - -instance FromSQL t => FromSQL (Array2 t) where - type PQBase (Array2 t) = PGarray - fromSQL Nothing = unexpectedNULL - fromSQL (Just arr) = getArray2 Array2 arr getItem - where - getItem res err i ptr fmt = do - verifyPQTRes err "fromSQL (Array2)" =<< c_PQgetf1 res err i fmt 0 ptr - isNull <- c_PQgetisnull res i 0 - mbase <- if isNull == 1 then pure Nothing else Just <$> peek ptr - fromSQL mbase - -instance ToSQL t => ToSQL (Array2 t) where - type PQDest (Array2 t) = PGarray - toSQL (Array2 arr) pa@(ParamAllocator allocParam) conv = - alloca $ \err -> allocParam $ \param -> - putArray2 arr param conv $ \fmt item -> - toSQL item pa (c_PQputf1 param err fmt) - >>= verifyPQTRes err "toSQL (Array2)" - ----------------------------------------- - --- | Two dimensional array of composite elements. -newtype CompositeArray2 a = CompositeArray2 [[a]] - deriving (Eq, Functor, Ord, Show) - --- | Extract list of elements from 'CompositeArray2'. -unCompositeArray2 :: CompositeArray2 a -> [[a]] -unCompositeArray2 (CompositeArray2 a) = a - -instance PQFormat t => PQFormat (CompositeArray2 t) where - pqFormat = pqFormat @(Array2 t) - -instance CompositeFromSQL t => FromSQL (CompositeArray2 t) where - type PQBase (CompositeArray2 t) = PGarray - fromSQL Nothing = unexpectedNULL - fromSQL (Just arr) = getArray2 CompositeArray2 arr getItem - where - getItem res err i (_ :: Ptr CInt) _ = toComposite <$> fromRow res err 0 i - -instance CompositeToSQL t => ToSQL (CompositeArray2 t) where - type PQDest (CompositeArray2 t) = PGarray - toSQL (CompositeArray2 arr) pa@(ParamAllocator allocParam) conv = - alloca $ \err -> allocParam $ \param -> - putArray2 arr param conv $ \fmt item -> - toSQL (Composite item) pa (c_PQputf1 param err fmt) - >>= verifyPQTRes err "toSQL (CompositeArray2)" - ----------------------------------------- - --- | Helper function for putting elements of --- 'Array2' / 'CompositeArray2' into 'PGparam'. -putArray2 - :: forall t r - . PQFormat t - => [[t]] - -- ^ List of items to be put. - -> Ptr PGparam - -- ^ Inner 'PGparam' to put items into. - -> (Ptr PGarray -> IO r) - -- ^ Continuation - -- that puts 'PGarray' into outer 'PGparam'. - -> (CString -> t -> IO ()) - -- ^ Function that takes item - -- along with its format and puts it into inner 'PGparam'. - -> IO r -putArray2 arr param conv putItem = do - dims <- pqFormat0 @t `BS.unsafeUseAsCString` loop arr 0 0 - putAsPtr - ( PGarray - { pgArrayNDims = 2 - , pgArrayLBound = V.fromList [1, 1] - , pgArrayDims = dims - , pgArrayParam = param - , pgArrayRes = nullPtr - } - ) - conv - where - loop :: [[t]] -> CInt -> CInt -> CString -> IO (V.Vector CInt) - loop rows !size !innerSize fmt = case rows of - [] -> pure . V.fromList $ [size, innerSize] - (row : rest) -> do - nextInnerSize <- innLoop row 0 fmt - when (size > 0 && innerSize /= nextInnerSize) . hpqTypesError $ "putArray2: inner rows have different sizes" - loop rest (size + 1) nextInnerSize fmt - - innLoop :: [t] -> CInt -> CString -> IO CInt - innLoop items !size fmt = case items of - [] -> pure size - (item : rest) -> do - putItem fmt item - innLoop rest (size + 1) fmt - --- | Helper function for getting elements of --- 'Array2' / 'CompositeArray2' out of 'PGarray'. -getArray2 - :: forall a array t - . (PQFormat t, Storable a) - => ([[t]] -> array) - -- ^ Array constructor. - -> PGarray - -- ^ Source 'PGarray'. - -> (Ptr PGresult -> Ptr PGerror -> CInt -> Ptr a -> CString -> IO t) - -- ^ - -- Function that takes an item with a given index - -- out of 'PGresult' and stores it in provided 'Ptr'. - -> IO array -getArray2 con PGarray {..} getItem = flip E.finally (c_PQclear pgArrayRes) $ do - if pgArrayNDims /= 0 && pgArrayNDims /= 2 - then - E.throwIO - ArrayDimensionMismatch - { arrDimExpected = 2 - , arrDimDelivered = fromIntegral pgArrayNDims - } - else do - let dim2 = pgArrayDims V.! 1 - size <- c_PQntuples pgArrayRes - alloca $ \ptr -> alloca $ \err -> - pqFormat0 @t - `BS.unsafeUseAsCString` loop [] dim2 size err ptr - where - loop :: [[t]] -> CInt -> CInt -> Ptr PGerror -> Ptr a -> CString -> IO array - loop acc dim2 !i err ptr fmt = case i of - 0 -> pure . con $ acc - _ -> do - let i' = i - dim2 - arr <- innLoop [] (dim2 - 1) i' err ptr fmt - loop (arr : acc) dim2 i' err ptr fmt - - innLoop :: [t] -> CInt -> CInt -> Ptr PGerror -> Ptr a -> CString -> IO [t] - innLoop acc !i baseIdx err ptr fmt = case i of - -1 -> pure acc - _ -> do - let i' = baseIdx + i - item <- getItem pgArrayRes err i' ptr fmt `E.catch` rethrowWithArrayError i' - innLoop (item : acc) (i - 1) baseIdx err ptr fmt diff --git a/src/Database/PostgreSQL/PQTypes/Class.hs b/src/Database/PostgreSQL/PQTypes/Class.hs index b5c8036..e57c3e6 100644 --- a/src/Database/PostgreSQL/PQTypes/Class.hs +++ b/src/Database/PostgreSQL/PQTypes/Class.hs @@ -11,7 +11,6 @@ import Control.Monad.Trans import Control.Monad.Trans.Control import GHC.Stack -import Database.PostgreSQL.PQTypes.FromRow import Database.PostgreSQL.PQTypes.Internal.BackendPid import Database.PostgreSQL.PQTypes.Internal.Connection import Database.PostgreSQL.PQTypes.Internal.Notification @@ -42,7 +41,7 @@ class (Applicative m, Monad m) => MonadDB m where getConnectionStats :: m ConnectionStats -- | Get current query result. - getQueryResult :: FromRow row => m (Maybe (QueryResult row)) + getQueryResult :: m (Maybe QueryResult) -- | Clear current query result. clearQueryResult :: m () diff --git a/src/Database/PostgreSQL/PQTypes/Composite.hs b/src/Database/PostgreSQL/PQTypes/Composite.hs deleted file mode 100644 index 36e99ef..0000000 --- a/src/Database/PostgreSQL/PQTypes/Composite.hs +++ /dev/null @@ -1,64 +0,0 @@ -module Database.PostgreSQL.PQTypes.Composite - ( Composite (..) - , unComposite - , CompositeRow - , CompositeFromSQL (..) - , CompositeToSQL (..) - ) where - -import Control.Exception qualified as E -import Data.Kind (Type) -import Foreign.Ptr - -import Database.PostgreSQL.PQTypes.Format -import Database.PostgreSQL.PQTypes.FromRow -import Database.PostgreSQL.PQTypes.FromSQL -import Database.PostgreSQL.PQTypes.Internal.C.Interface -import Database.PostgreSQL.PQTypes.Internal.C.Types -import Database.PostgreSQL.PQTypes.Internal.Utils -import Database.PostgreSQL.PQTypes.ToRow -import Database.PostgreSQL.PQTypes.ToSQL - --- | Wrapper for (de)serializing composite types. -newtype Composite a = Composite a - deriving (Eq, Functor, Ord, Show) - --- | Extract underlying value. -unComposite :: Composite a -> a -unComposite (Composite a) = a - --- | Type function which maps composite type to its intermediate --- representation as a tuple (row) of Haskell types that correspond --- to PostgreSQL types in composite type definition. --- --- As an example, consider the type defined as (a INTEGER, b DATE). --- Then its CompositeRow instance could be (Maybe Int32, Maybe Day), --- (Maybe Int32, Day), (Int32, Maybe Day) or (Int32, Day). -type family CompositeRow t :: Type - --- | Class which represents \"from SQL to composite\" transformation. -class (PQFormat t, FromRow (CompositeRow t)) => CompositeFromSQL t where - -- | Convert composite row to destination type. - toComposite :: CompositeRow t -> t - --- | Class which represents \"from composite to SQL\" transformation. -class (PQFormat t, ToRow (CompositeRow t)) => CompositeToSQL t where - -- | Convert composite type to its intermediate representation. - fromComposite :: t -> CompositeRow t - -instance PQFormat t => PQFormat (Composite t) where - pqFormat = pqFormat @t - -instance CompositeFromSQL t => FromSQL (Composite t) where - type PQBase (Composite t) = Ptr PGresult - fromSQL Nothing = unexpectedNULL - fromSQL (Just res) = - Composite - <$> E.finally (toComposite <$> fromRow' res 0 0) (c_PQclear res) - -instance CompositeToSQL t => ToSQL (Composite t) where - type PQDest (Composite t) = PGparam - toSQL (Composite comp) pa@(ParamAllocator allocParam) conv = - allocParam $ \param -> do - toRow' (fromComposite comp) pa param - conv param diff --git a/src/Database/PostgreSQL/PQTypes/Cursor.hs b/src/Database/PostgreSQL/PQTypes/Cursor.hs index bb4ff40..84284f3 100644 --- a/src/Database/PostgreSQL/PQTypes/Cursor.hs +++ b/src/Database/PostgreSQL/PQTypes/Cursor.hs @@ -27,8 +27,13 @@ import Database.PostgreSQL.PQTypes.SQL.Class import Database.PostgreSQL.PQTypes.Utils -- | Name of a cursor. +-- +-- /Warning:/ the name is interpolated verbatim into @DECLARE@, @FETCH@ and +-- @CLOSE@ statements, without any quoting or escaping. It needs to be a valid +-- SQL identifier and must not be constructed from untrusted input, otherwise +-- SQL injection is possible. newtype CursorName sql = CursorName {unCursorName :: sql} - deriving (Eq, Ord) + deriving newtype (Eq, Ord) instance IsString sql => IsString (CursorName sql) where fromString = CursorName . fromString @@ -42,7 +47,7 @@ instance Show sql => Show (CursorName sql) where -- SCROLL@. Scrollable cursors can be scrolled in all directions, otherwise only -- forward. data Scroll = Scroll | NoScroll - deriving (Eq, Ord, Show) + deriving stock (Eq, Ord, Show) -- | Defines whether a cursor will be declared as @WITH HOLD@ or @WITHOUT HOLD@. -- @@ -51,11 +56,11 @@ data Scroll = Scroll | NoScroll -- WITHOUT HOLD specifies that the cursor cannot be used outside of the -- transaction that created it. data Hold = Hold | NoHold - deriving (Eq, Ord, Show) + deriving stock (Eq, Ord, Show) -- | Data representing a created cursor. data Cursor sql = Cursor !(CursorName sql) !sql - deriving (Eq, Ord, Show) + deriving stock (Eq, Ord, Show) ---------------------------------------- @@ -73,7 +78,7 @@ data CursorDirection | CD_Relative Int | CD_Forward Int | CD_Backward Int - deriving (Eq, Ord, Show) + deriving stock (Eq, Ord, Show) cursorDirectionToSQL :: (IsString sql, IsSQL sql, Monoid sql) => CursorDirection -> sql cursorDirectionToSQL = \case diff --git a/src/Database/PostgreSQL/PQTypes/Enum.hs b/src/Database/PostgreSQL/PQTypes/Enum.hs new file mode 100644 index 0000000..a4d8f0d --- /dev/null +++ b/src/Database/PostgreSQL/PQTypes/Enum.hs @@ -0,0 +1,179 @@ +module Database.PostgreSQL.PQTypes.Enum + ( -- * Encoder class + EnumEncodingAs (..) + + -- * Helpers, to be used with @deriving via@ (@-XDerivingVia@). + , SQLEnum (..) + , SQLEnumAsText (..) + + -- * For use in doctests. + , isInjective + ) where + +import Control.Monad.Catch +import Data.Map.Strict qualified as M +import Data.Text (Text) +import Data.Typeable + +import Database.PostgreSQL.PQTypes.Format +import Database.PostgreSQL.PQTypes.FromSQL +import Database.PostgreSQL.PQTypes.Internal.Error +import Database.PostgreSQL.PQTypes.Internal.Oid +import Database.PostgreSQL.PQTypes.ToSQL + +-- | Encoding of an enum @a@ as a value of a base type @base@. +-- +-- Used by 'SQLEnum' and 'SQLEnumAsText' to derive SQL instances. +class (Ord base, Bounded a, Enum a) => EnumEncodingAs base a | a -> base where + -- | Encode @a@ as the base type. + encodeEnumAs :: a -> base + + -- | Include the inverse map as a top-level part of the 'EnumEncodingAs' + -- instance to ensure it is only computed once by GHC. + enumEncodingMap :: M.Map base a + enumEncodingMap = M.fromList [(encodeEnumAs a, a) | a <- enumerate] + +---------------------------------------- + +-- | Helper newtype to be used with @deriving via@ to derive @(PQFormat, ToSQL, +-- FromSQL)@ instances for enums, given an instance of 'EnumEncodingAs'. +-- +-- /Hint:/ non-trivial 'Enum' instances can be derived using the 'generic-data' +-- package! +-- +-- >>> :{ +-- data Colours = Blue | Black | Red | Mauve | Orange +-- deriving (Eq, Show, Enum, Bounded) +-- instance EnumEncodingAs Int16 Colours where +-- encodeEnumAs = \case +-- Blue -> 1 +-- Black -> 7 +-- Red -> 2 +-- Mauve -> 6 +-- Orange -> 3 +-- :} +-- +-- /Note:/ To get SQL-specific instances use @DerivingVia@: +-- +-- @ +-- data Colours = ... +-- ... +-- deriving (PQFormat, ToSQL, FromSQL) via SQLEnum Colours +-- @ +-- +-- >>> isInjective (encodeEnumAs @Int16 @Colours) +-- True +newtype SQLEnum a = SQLEnum a + +instance (EnumEncodingAs base a, PQFormat base) => PQFormat (SQLEnum a) where + pqOid = pqOid @base + pqArrayOid = pqArrayOid @base + +instance (EnumEncodingAs base a, ToSQL base) => ToSQL (SQLEnum a) where + toSQL (SQLEnum a) = toSQL $ encodeEnumAs a + +instance + ( EnumEncodingAs base a + , Enum base + , FromSQL base + , Show base + , Typeable base + ) + => FromSQL (SQLEnum a) + where + fromSQL = do + b <- fromSQL + case M.lookup b $ enumEncodingMap @base @a of + Nothing -> + throwM + RangeError + { reRange = foldr mkIntervals [] . M.keys $ enumEncodingMap @base @a + , reValue = b + } + Just a -> pure $ SQLEnum a + where + -- Decompose keys of the map (ascending and duplicate-free) into a list of + -- intervals. + mkIntervals :: base -> [(base, base)] -> [(base, base)] + mkIntervals a = \case + [] -> [(a, a)] + ivs@((lower, upper) : rest) + | succ a == lower -> (a, upper) : rest + | otherwise -> (a, a) : ivs + +---------------------------------------- + +-- | A variant of 'SQLEnum' for enums encoded as text, in particular as values +-- of actual PostgreSQL enum types ('SQLEnum' can't be used, because decoding +-- requires an 'Enum' instance of the base type, which 'Text' doesn't have). +-- +-- Encoded values are sent with their type unspecified, so that the server +-- infers it from the context, which makes them usable directly against both +-- text and enum columns. The flip side is that they cannot be used in +-- contexts that provide no type information (e.g. @SELECT $1@ alone fails +-- with \"could not determine data type of parameter\"). +-- +-- Lists and 'Data.Vector.Vector's of such values are sent as @text[]@ (a +-- binary array parameter carries a concrete element type, so it cannot be +-- left for the server to infer): they work directly against @text@ columns, +-- while usage against columns of an actual enum type requires a cast, e.g. +-- @... = ANY($1::my_enum_type[])@ (the cast is a genuine conversion, since +-- the parameter is a @text[]@ value). +-- +-- Note that decoding is different from @'SQLEnum' a@ with an +-- @'EnumEncodingAs' 'Text' a@ instance: values are decoded with 'decodeEnum', +-- which accepts both text and PostgreSQL enum types, and errors are reported +-- as 'InvalidValue' with the list of valid labels, not 'RangeError'. +-- +-- >>> :{ +-- data Person = Alfred | Bertrand | Charles +-- deriving (Eq, Show, Enum, Bounded) +-- instance EnumEncodingAs Text Person where +-- encodeEnumAs = \case +-- Alfred -> "alfred" +-- Bertrand -> "bertrand" +-- Charles -> "charles" +-- :} +-- +-- /Note:/ To get SQL-specific instances use @DerivingVia@: +-- +-- @ +-- data Person = ... +-- ... +-- deriving (PQFormat, ToSQL, FromSQL) via SQLEnumAsText Person +-- @ +-- +-- >>> isInjective (encodeEnumAs @Text @Person) +-- True +newtype SQLEnumAsText a = SQLEnumAsText a + +instance EnumEncodingAs Text a => PQFormat (SQLEnumAsText a) where + pqOid = unspecifiedOid + pqArrayOid = textArrayOid + +instance EnumEncodingAs Text a => ToSQL (SQLEnumAsText a) where + toSQL (SQLEnumAsText a) = toSQL $ encodeEnumAs a + arrayElemOid = textOid + +instance EnumEncodingAs Text a => FromSQL (SQLEnumAsText a) where + fromSQL = SQLEnumAsText <$> decodeEnum (enumEncodingMap @Text @a) + +---------------------------------------- +-- Helpers + +-- | To be used in doctests to prove injectivity of encoding functions. +-- +-- >>> isInjective (id :: Bool -> Bool) +-- True +-- +-- >>> isInjective (\(_ :: Bool) -> False) +-- False +isInjective :: (Enum a, Bounded a, Eq a, Eq b) => (a -> b) -> Bool +isInjective f = null [(a, b) | a <- enumerate, b <- enumerate, a /= b, f a == f b] + +-- | Internal helper: all values of a finitely enumerable type. +enumerate :: (Enum a, Bounded a) => [a] +enumerate = [minBound .. maxBound] + +-- $setup +-- >>> import Data.Int diff --git a/src/Database/PostgreSQL/PQTypes/Fold.hs b/src/Database/PostgreSQL/PQTypes/Fold.hs index 4138b5e..2f00602 100644 --- a/src/Database/PostgreSQL/PQTypes/Fold.hs +++ b/src/Database/PostgreSQL/PQTypes/Fold.hs @@ -13,73 +13,68 @@ import Data.Functor import GHC.Stack import Database.PostgreSQL.PQTypes.Class -import Database.PostgreSQL.PQTypes.FromRow +import Database.PostgreSQL.PQTypes.FromSQL import Database.PostgreSQL.PQTypes.Internal.Error import Database.PostgreSQL.PQTypes.Internal.QueryResult import Database.PostgreSQL.PQTypes.Utils -- | Get current 'QueryResult' or throw an exception if there isn't one. queryResult - :: (HasCallStack, MonadDB m, MonadThrow m, FromRow row) - => m (QueryResult row) -queryResult = - withFrozenCallStack $ - getQueryResult - >>= maybe (throwDB . HPQTypesError $ "queryResult: no query result") pure + :: (HasCallStack, MonadDB m, MonadThrow m) + => m QueryResult +queryResult = withFrozenCallStack $ do + getQueryResult >>= maybe (throwDB . HPQTypesError $ "queryResult: no query result") pure ---------------------------------------- -- | Fetcher of rows returned by a query as a monadic right fold. foldrDB - :: (HasCallStack, MonadDB m, FromRow row) - => (row -> acc -> m acc) + :: (HasCallStack, MonadDB m) + => RowDecoder a + -> (a -> acc -> m acc) -> acc -> m acc -foldrDB f acc = - withFrozenCallStack $ - getQueryResult - >>= maybe (pure acc) (foldrImpl False f acc) +foldrDB dec f acc = withFrozenCallStack $ do + getQueryResult >>= maybe (pure acc) (foldrImpl dec f acc) -- | Fetcher of rows returned by a query as a monadic left fold. foldlDB - :: (HasCallStack, MonadDB m, FromRow row) - => (acc -> row -> m acc) + :: (HasCallStack, MonadDB m) + => RowDecoder a + -> (acc -> a -> m acc) -> acc -> m acc -foldlDB f acc = - withFrozenCallStack $ - getQueryResult - >>= maybe (pure acc) (foldlImpl False f acc) +foldlDB dec f acc = withFrozenCallStack $ do + getQueryResult >>= maybe (pure acc) (foldlImpl dec f acc) -- | Fetcher of rows returned by a query as a monadic map. mapDB_ - :: (HasCallStack, MonadDB m, FromRow row) - => (row -> m r) + :: (HasCallStack, MonadDB m) + => RowDecoder a + -> (a -> m r) -> m () -mapDB_ f = - withFrozenCallStack $ - getQueryResult - >>= maybe (pure ()) (foldlImpl False (\() row -> void (f row)) ()) +mapDB_ dec f = withFrozenCallStack $ do + getQueryResult >>= maybe (pure ()) (foldlImpl dec (\() a -> void (f a)) ()) ---------------------------------------- -- | Specialization of 'foldrDB' that fetches a list of rows. -fetchMany :: (HasCallStack, MonadDB m, FromRow row) => (row -> t) -> m [t] -fetchMany f = withFrozenCallStack $ foldrDB (\row acc -> pure $ f row : acc) [] +fetchMany :: (HasCallStack, MonadDB m) => RowDecoder a -> m [a] +fetchMany dec = withFrozenCallStack $ foldrDB dec (\a acc -> pure $ a : acc) [] -- | Specialization of 'foldlDB' that fetches one or zero rows. If -- more rows are delivered, 'AffectedRowsMismatch' exception is thrown. fetchMaybe - :: (HasCallStack, MonadDB m, MonadThrow m, FromRow row) - => (row -> t) - -> m (Maybe t) -fetchMaybe f = withFrozenCallStack $ do + :: (HasCallStack, MonadDB m, MonadThrow m) + => RowDecoder a + -> m (Maybe a) +fetchMaybe dec = withFrozenCallStack $ do getQueryResult >>= \case Nothing -> pure Nothing - Just qr -> fst <$> foldlDB go (Nothing, f <$> qr) + Just qr -> foldlImpl dec (go qr) Nothing qr where - go (Nothing, qr) row = pure (Just $ f row, qr) - go (Just _, qr) _ = + go _ Nothing a = pure $ Just a + go qr (Just _) _ = throwDB AffectedRowsMismatch { rowsExpected = [(0, 1)] @@ -88,11 +83,11 @@ fetchMaybe f = withFrozenCallStack $ do -- | Specialization of 'fetchMaybe' that fetches exactly one row. If -- no row is delivered, 'AffectedRowsMismatch' exception is thrown. -fetchOne :: (HasCallStack, MonadDB m, MonadThrow m, FromRow row) => (row -> t) -> m t -fetchOne f = withFrozenCallStack $ do - mt <- fetchMaybe f - case mt of - Just t -> pure t +fetchOne :: (HasCallStack, MonadDB m, MonadThrow m) => RowDecoder a -> m a +fetchOne dec = withFrozenCallStack $ do + ma <- fetchMaybe dec + case ma of + Just a -> pure a Nothing -> throwDB AffectedRowsMismatch diff --git a/src/Database/PostgreSQL/PQTypes/Format.hs b/src/Database/PostgreSQL/PQTypes/Format.hs index 5a4bbfb..689ca5a 100644 --- a/src/Database/PostgreSQL/PQTypes/Format.hs +++ b/src/Database/PostgreSQL/PQTypes/Format.hs @@ -2,1033 +2,212 @@ module Database.PostgreSQL.PQTypes.Format ( PQFormat (..) - , pqFormatP - , pqFormat0P - , pqVariablesP - , (:*:) (..) ) where import Data.ByteString.Char8 qualified as BS import Data.ByteString.Lazy.Char8 qualified as BSL -import Data.Functor.Identity +import Data.IP (IPRange) import Data.Int -import Data.Proxy +import Data.Scientific import Data.Text qualified as T import Data.Text.Lazy qualified as TL import Data.Time import Data.UUID.Types +import Data.Vector qualified as V import Data.Word +import PostgreSQL.Binary.Range (Range) + +import Database.PostgreSQL.PQTypes.Internal.Oid ---------------------------------------- -- | Methods in this class are supposed to be used with the -- @TypeApplications@ extension. -class PQFormat t where - -- | Map a type to its libpqtypes format. - pqFormat :: BS.ByteString - - -- | Map type to its null-terminated libpqtypes format, so - -- it can safely be used by 'unsafeUseAsCString'. Also, for - -- a specific type it becomes a top level CAF, therefore it - -- will be computed by GHC at most once. - pqFormat0 :: BS.ByteString - pqFormat0 = pqFormat @t `BS.snoc` '\0' - - -- | Map type to number of type formats it contains. - pqVariables :: Int - pqVariables = 1 - --- Helpers that are parametrised by a 'Proxy t' instead of 't'. +class PQFormat a where + -- | OID of the PostgreSQL type corresponding to @a@. + pqOid :: Oid -pqFormatP :: forall t. PQFormat t => Proxy t -> BS.ByteString -pqFormatP _ = pqFormat @t + -- | OID of the PostgreSQL array type with elements corresponding to @a@. + pqArrayOid :: Oid -pqFormat0P :: forall t. PQFormat t => Proxy t -> BS.ByteString -pqFormat0P _ = pqFormat0 @t + -- | 'pqOid' of @[a]@: the array type of @a@ by default, overridden by + -- 'Char' so that 'String' corresponds to @text@. + pqListOid :: Oid + pqListOid = pqArrayOid @a -pqVariablesP :: forall t. PQFormat t => Proxy t -> Int -pqVariablesP _ = pqVariables @t + -- | 'pqArrayOid' of @[a]@: the same as 'pqArrayOid' by default (an array + -- is of the same type regardless of its number of dimensions), overridden + -- by 'Char' so that @[String]@ corresponds to @text[]@. + pqListArrayOid :: Oid + pqListArrayOid = pqArrayOid @a --- CARTESIAN PRODUCT +-- NULLables --- | Cartesian product of rows. -data a :*: b = a :*: b - deriving (Eq, Ord, Show) +instance PQFormat a => PQFormat (Maybe a) where + pqOid = pqOid @a + pqArrayOid = pqArrayOid @a -instance (PQFormat t1, PQFormat t2) => PQFormat (t1 :*: t2) where - pqFormat = pqFormat @t1 `BS.append` pqFormat @t2 - pqVariables = pqVariables @t1 + pqVariables @t2 +-- ARRAYS --- NULLables +-- The OIDs of @[a]@ are routed through class methods so that the 'Char' +-- instance can override them, making 'String' correspond to @text@ instead +-- of an array of single-byte characters. +instance PQFormat a => PQFormat [a] where + pqOid = pqListOid @a + pqArrayOid = pqListArrayOid @a -instance PQFormat t => PQFormat (Maybe t) where - pqFormat = pqFormat @t - pqVariables = pqVariables @t +instance PQFormat a => PQFormat (V.Vector a) where + pqOid = pqArrayOid @a + pqArrayOid = pqArrayOid @a -- NUMERICS instance PQFormat Int16 where - pqFormat = BS.pack "%int2" + pqOid = int2Oid + pqArrayOid = int2ArrayOid instance PQFormat Int32 where - pqFormat = BS.pack "%int4" + pqOid = int4Oid + pqArrayOid = int4ArrayOid instance PQFormat Int64 where - pqFormat = BS.pack "%int8" + pqOid = int8Oid + pqArrayOid = int8ArrayOid instance PQFormat Int where - pqFormat = BS.pack "%int8" + pqOid = int8Oid + pqArrayOid = int8ArrayOid instance PQFormat Float where - pqFormat = BS.pack "%float4" + pqOid = float4Oid + pqArrayOid = float4ArrayOid instance PQFormat Double where - pqFormat = BS.pack "%float8" + pqOid = float8Oid + pqArrayOid = float8ArrayOid instance PQFormat Word16 where - pqFormat = BS.pack "%int2" + pqOid = int2Oid + pqArrayOid = int2ArrayOid instance PQFormat Word32 where - pqFormat = BS.pack "%int4" + pqOid = int4Oid + pqArrayOid = int4ArrayOid instance PQFormat Word64 where - pqFormat = BS.pack "%int8" + pqOid = int8Oid + pqArrayOid = int8ArrayOid + +instance PQFormat Word where + pqOid = int8Oid + pqArrayOid = int8ArrayOid instance PQFormat Integer where - pqFormat = BS.pack "%numeric" + pqOid = numericOid + pqArrayOid = numericArrayOid + +instance PQFormat Scientific where + pqOid = numericOid + pqArrayOid = numericArrayOid -- CHAR instance PQFormat Char where - pqFormat = BS.pack "%char" + pqOid = charOid + pqArrayOid = charArrayOid + pqListOid = textOid + pqListArrayOid = textArrayOid instance PQFormat Word8 where - pqFormat = BS.pack "%char" + pqOid = charOid + pqArrayOid = charArrayOid -- VARIABLE-LENGTH CHARACTER TYPES -instance PQFormat String where - pqFormat = BS.pack "%btext" - instance PQFormat T.Text where - pqFormat = BS.pack "%btext" + pqOid = textOid + pqArrayOid = textArrayOid instance PQFormat TL.Text where - pqFormat = BS.pack "%btext" + pqOid = textOid + pqArrayOid = textArrayOid instance PQFormat UUID where - pqFormat = BS.pack "%uuid" + pqOid = uuidOid + pqArrayOid = uuidArrayOid -- BYTEA instance PQFormat BS.ByteString where - pqFormat = BS.pack "%bytea" + pqOid = byteaOid + pqArrayOid = byteaArrayOid instance PQFormat BSL.ByteString where - pqFormat = BS.pack "%bytea" + pqOid = byteaOid + pqArrayOid = byteaArrayOid -- DATE instance PQFormat Day where - pqFormat = BS.pack "%date" + pqOid = dateOid + pqArrayOid = dateArrayOid -- TIME instance PQFormat TimeOfDay where - pqFormat = BS.pack "%time" + pqOid = timeOid + pqArrayOid = timeArrayOid -- TIMESTAMP instance PQFormat LocalTime where - pqFormat = BS.pack "%timestamp" + pqOid = timestampOid + pqArrayOid = timestampArrayOid -- TIMESTAMPTZ instance PQFormat UTCTime where - pqFormat = BS.pack "%timestamptz" + pqOid = timestamptzOid + pqArrayOid = timestamptzArrayOid instance PQFormat ZonedTime where - pqFormat = BS.pack "%timestamptz" + pqOid = timestamptzOid + pqArrayOid = timestamptzArrayOid -- BOOL instance PQFormat Bool where - pqFormat = BS.pack "%bool" - --- TUPLES - -{- FOURMOLU_DISABLE -} - -instance PQFormat () where - pqFormat = BS.empty - pqVariables = 0 - -instance - ( PQFormat t - ) => PQFormat (Identity t) where - pqFormat = pqFormat @t - pqVariables = 1 - -instance - ( PQFormat t1, PQFormat t2 - ) => PQFormat (t1, t2) where - pqFormat = BS.concat [ - pqFormat @t1, pqFormat @t2 - ] - pqVariables = 2 - -instance - ( PQFormat t1, PQFormat t2, PQFormat t3 - ) => PQFormat (t1, t2, t3) where - pqFormat = BS.concat [ - pqFormat @t1, pqFormat @t2, pqFormat @t3 - ] - pqVariables = 3 - -instance - ( PQFormat t1, PQFormat t2, PQFormat t3, PQFormat t4 - ) => PQFormat (t1, t2, t3, t4) where - pqFormat = BS.concat [ - pqFormat @t1, pqFormat @t2, pqFormat @t3, pqFormat @t4 - ] - pqVariables = 4 - -instance - ( PQFormat t1, PQFormat t2, PQFormat t3, PQFormat t4, PQFormat t5 - ) => PQFormat (t1, t2, t3, t4, t5) where - pqFormat = BS.concat [ - pqFormat @t1, pqFormat @t2, pqFormat @t3, pqFormat @t4 - , pqFormat @t5 - ] - pqVariables = 5 - -instance - ( PQFormat t1, PQFormat t2, PQFormat t3, PQFormat t4, PQFormat t5, PQFormat t6 - ) => PQFormat (t1, t2, t3, t4, t5, t6) where - pqFormat = BS.concat [ - pqFormat @t1, pqFormat @t2, pqFormat @t3, pqFormat @t4 - , pqFormat @t5, pqFormat @t6 - ] - pqVariables = 6 - -instance - ( PQFormat t1, PQFormat t2, PQFormat t3, PQFormat t4, PQFormat t5, PQFormat t6 - , PQFormat t7 - ) => PQFormat (t1, t2, t3, t4, t5, t6, t7) where - pqFormat = BS.concat [ - pqFormat @t1, pqFormat @t2, pqFormat @t3, pqFormat @t4 - , pqFormat @t5, pqFormat @t6, pqFormat @t7 - ] - pqVariables = 7 - -instance - ( PQFormat t1, PQFormat t2, PQFormat t3, PQFormat t4, PQFormat t5, PQFormat t6 - , PQFormat t7, PQFormat t8 - ) => PQFormat (t1, t2, t3, t4, t5, t6, t7, t8) where - pqFormat = BS.concat [ - pqFormat @t1, pqFormat @t2, pqFormat @t3, pqFormat @t4 - , pqFormat @t5, pqFormat @t6, pqFormat @t7, pqFormat @t8 - ] - pqVariables = 8 - -instance - ( PQFormat t1, PQFormat t2, PQFormat t3, PQFormat t4, PQFormat t5, PQFormat t6 - , PQFormat t7, PQFormat t8, PQFormat t9 - ) => PQFormat (t1, t2, t3, t4, t5, t6, t7, t8, t9) where - pqFormat = BS.concat [ - pqFormat @t1, pqFormat @t2, pqFormat @t3, pqFormat @t4 - , pqFormat @t5, pqFormat @t6, pqFormat @t7, pqFormat @t8 - , pqFormat @t9 - ] - pqVariables = 9 - -instance - ( PQFormat t1, PQFormat t2, PQFormat t3, PQFormat t4, PQFormat t5, PQFormat t6 - , PQFormat t7, PQFormat t8, PQFormat t9, PQFormat t10 - ) => PQFormat (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10) where - pqFormat = BS.concat [ - pqFormat @t1, pqFormat @t2, pqFormat @t3, pqFormat @t4 - , pqFormat @t5, pqFormat @t6, pqFormat @t7, pqFormat @t8 - , pqFormat @t9, pqFormat @t10 - ] - pqVariables = 10 - -instance - ( PQFormat t1, PQFormat t2, PQFormat t3, PQFormat t4, PQFormat t5, PQFormat t6 - , PQFormat t7, PQFormat t8, PQFormat t9, PQFormat t10, PQFormat t11 - ) => PQFormat (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11) where - pqFormat = BS.concat [ - pqFormat @t1, pqFormat @t2, pqFormat @t3, pqFormat @t4 - , pqFormat @t5, pqFormat @t6, pqFormat @t7, pqFormat @t8 - , pqFormat @t9, pqFormat @t10, pqFormat @t11 - ] - pqVariables = 11 - -instance - ( PQFormat t1, PQFormat t2, PQFormat t3, PQFormat t4, PQFormat t5, PQFormat t6 - , PQFormat t7, PQFormat t8, PQFormat t9, PQFormat t10, PQFormat t11, PQFormat t12 - ) => PQFormat (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12) where - pqFormat = BS.concat [ - pqFormat @t1, pqFormat @t2, pqFormat @t3, pqFormat @t4 - , pqFormat @t5, pqFormat @t6, pqFormat @t7, pqFormat @t8 - , pqFormat @t9, pqFormat @t10, pqFormat @t11, pqFormat @t12 - ] - pqVariables = 12 - -instance - ( PQFormat t1, PQFormat t2, PQFormat t3, PQFormat t4, PQFormat t5, PQFormat t6 - , PQFormat t7, PQFormat t8, PQFormat t9, PQFormat t10, PQFormat t11, PQFormat t12 - , PQFormat t13 - ) => PQFormat (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13) where - pqFormat = BS.concat [ - pqFormat @t1, pqFormat @t2, pqFormat @t3, pqFormat @t4 - , pqFormat @t5, pqFormat @t6, pqFormat @t7, pqFormat @t8 - , pqFormat @t9, pqFormat @t10, pqFormat @t11, pqFormat @t12 - , pqFormat @t13 - ] - pqVariables = 13 - -instance - ( PQFormat t1, PQFormat t2, PQFormat t3, PQFormat t4, PQFormat t5, PQFormat t6 - , PQFormat t7, PQFormat t8, PQFormat t9, PQFormat t10, PQFormat t11, PQFormat t12 - , PQFormat t13, PQFormat t14 - ) => PQFormat (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14) where - pqFormat = BS.concat [ - pqFormat @t1, pqFormat @t2, pqFormat @t3, pqFormat @t4 - , pqFormat @t5, pqFormat @t6, pqFormat @t7, pqFormat @t8 - , pqFormat @t9, pqFormat @t10, pqFormat @t11, pqFormat @t12 - , pqFormat @t13, pqFormat @t14 - ] - pqVariables = 14 - -instance - ( PQFormat t1, PQFormat t2, PQFormat t3, PQFormat t4, PQFormat t5, PQFormat t6 - , PQFormat t7, PQFormat t8, PQFormat t9, PQFormat t10, PQFormat t11, PQFormat t12 - , PQFormat t13, PQFormat t14, PQFormat t15 - ) => PQFormat (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15) where - pqFormat = BS.concat [ - pqFormat @t1, pqFormat @t2, pqFormat @t3, pqFormat @t4 - , pqFormat @t5, pqFormat @t6, pqFormat @t7, pqFormat @t8 - , pqFormat @t9, pqFormat @t10, pqFormat @t11, pqFormat @t12 - , pqFormat @t13, pqFormat @t14, pqFormat @t15 - ] - pqVariables = 15 - -instance - ( PQFormat t1, PQFormat t2, PQFormat t3, PQFormat t4, PQFormat t5, PQFormat t6 - , PQFormat t7, PQFormat t8, PQFormat t9, PQFormat t10, PQFormat t11, PQFormat t12 - , PQFormat t13, PQFormat t14, PQFormat t15, PQFormat t16 - ) => PQFormat (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16) where - pqFormat = BS.concat [ - pqFormat @t1, pqFormat @t2, pqFormat @t3, pqFormat @t4 - , pqFormat @t5, pqFormat @t6, pqFormat @t7, pqFormat @t8 - , pqFormat @t9, pqFormat @t10, pqFormat @t11, pqFormat @t12 - , pqFormat @t13, pqFormat @t14, pqFormat @t15, pqFormat @t16 - ] - pqVariables = 16 - -instance - ( PQFormat t1, PQFormat t2, PQFormat t3, PQFormat t4, PQFormat t5, PQFormat t6 - , PQFormat t7, PQFormat t8, PQFormat t9, PQFormat t10, PQFormat t11, PQFormat t12 - , PQFormat t13, PQFormat t14, PQFormat t15, PQFormat t16, PQFormat t17 - ) => PQFormat (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17) where - pqFormat = BS.concat [ - pqFormat @t1, pqFormat @t2, pqFormat @t3, pqFormat @t4 - , pqFormat @t5, pqFormat @t6, pqFormat @t7, pqFormat @t8 - , pqFormat @t9, pqFormat @t10, pqFormat @t11, pqFormat @t12 - , pqFormat @t13, pqFormat @t14, pqFormat @t15, pqFormat @t16 - , pqFormat @t17 - ] - pqVariables = 17 - -instance - ( PQFormat t1, PQFormat t2, PQFormat t3, PQFormat t4, PQFormat t5, PQFormat t6 - , PQFormat t7, PQFormat t8, PQFormat t9, PQFormat t10, PQFormat t11, PQFormat t12 - , PQFormat t13, PQFormat t14, PQFormat t15, PQFormat t16, PQFormat t17, PQFormat t18 - ) => PQFormat (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18) where - pqFormat = BS.concat [ - pqFormat @t1, pqFormat @t2, pqFormat @t3, pqFormat @t4 - , pqFormat @t5, pqFormat @t6, pqFormat @t7, pqFormat @t8 - , pqFormat @t9, pqFormat @t10, pqFormat @t11, pqFormat @t12 - , pqFormat @t13, pqFormat @t14, pqFormat @t15, pqFormat @t16 - , pqFormat @t17, pqFormat @t18 - ] - pqVariables = 18 - -instance - ( PQFormat t1, PQFormat t2, PQFormat t3, PQFormat t4, PQFormat t5, PQFormat t6 - , PQFormat t7, PQFormat t8, PQFormat t9, PQFormat t10, PQFormat t11, PQFormat t12 - , PQFormat t13, PQFormat t14, PQFormat t15, PQFormat t16, PQFormat t17, PQFormat t18 - , PQFormat t19 - ) => PQFormat (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19) where - pqFormat = BS.concat [ - pqFormat @t1, pqFormat @t2, pqFormat @t3, pqFormat @t4 - , pqFormat @t5, pqFormat @t6, pqFormat @t7, pqFormat @t8 - , pqFormat @t9, pqFormat @t10, pqFormat @t11, pqFormat @t12 - , pqFormat @t13, pqFormat @t14, pqFormat @t15, pqFormat @t16 - , pqFormat @t17, pqFormat @t18, pqFormat @t19 - ] - pqVariables = 19 - -instance - ( PQFormat t1, PQFormat t2, PQFormat t3, PQFormat t4, PQFormat t5, PQFormat t6 - , PQFormat t7, PQFormat t8, PQFormat t9, PQFormat t10, PQFormat t11, PQFormat t12 - , PQFormat t13, PQFormat t14, PQFormat t15, PQFormat t16, PQFormat t17, PQFormat t18 - , PQFormat t19, PQFormat t20 - ) => PQFormat (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20) where - pqFormat = BS.concat [ - pqFormat @t1, pqFormat @t2, pqFormat @t3, pqFormat @t4 - , pqFormat @t5, pqFormat @t6, pqFormat @t7, pqFormat @t8 - , pqFormat @t9, pqFormat @t10, pqFormat @t11, pqFormat @t12 - , pqFormat @t13, pqFormat @t14, pqFormat @t15, pqFormat @t16 - , pqFormat @t17, pqFormat @t18, pqFormat @t19, pqFormat @t20 - ] - pqVariables = 20 - -instance - ( PQFormat t1, PQFormat t2, PQFormat t3, PQFormat t4, PQFormat t5, PQFormat t6 - , PQFormat t7, PQFormat t8, PQFormat t9, PQFormat t10, PQFormat t11, PQFormat t12 - , PQFormat t13, PQFormat t14, PQFormat t15, PQFormat t16, PQFormat t17, PQFormat t18 - , PQFormat t19, PQFormat t20, PQFormat t21 - ) => PQFormat (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21) where - pqFormat = BS.concat [ - pqFormat @t1, pqFormat @t2, pqFormat @t3, pqFormat @t4 - , pqFormat @t5, pqFormat @t6, pqFormat @t7, pqFormat @t8 - , pqFormat @t9, pqFormat @t10, pqFormat @t11, pqFormat @t12 - , pqFormat @t13, pqFormat @t14, pqFormat @t15, pqFormat @t16 - , pqFormat @t17, pqFormat @t18, pqFormat @t19, pqFormat @t20 - , pqFormat @t21 - ] - pqVariables = 21 - -instance - ( PQFormat t1, PQFormat t2, PQFormat t3, PQFormat t4, PQFormat t5, PQFormat t6 - , PQFormat t7, PQFormat t8, PQFormat t9, PQFormat t10, PQFormat t11, PQFormat t12 - , PQFormat t13, PQFormat t14, PQFormat t15, PQFormat t16, PQFormat t17, PQFormat t18 - , PQFormat t19, PQFormat t20, PQFormat t21, PQFormat t22 - ) => PQFormat (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22) where - pqFormat = BS.concat [ - pqFormat @t1, pqFormat @t2, pqFormat @t3, pqFormat @t4 - , pqFormat @t5, pqFormat @t6, pqFormat @t7, pqFormat @t8 - , pqFormat @t9, pqFormat @t10, pqFormat @t11, pqFormat @t12 - , pqFormat @t13, pqFormat @t14, pqFormat @t15, pqFormat @t16 - , pqFormat @t17, pqFormat @t18, pqFormat @t19, pqFormat @t20 - , pqFormat @t21, pqFormat @t22 - ] - pqVariables = 22 - -instance - ( PQFormat t1, PQFormat t2, PQFormat t3, PQFormat t4, PQFormat t5, PQFormat t6 - , PQFormat t7, PQFormat t8, PQFormat t9, PQFormat t10, PQFormat t11, PQFormat t12 - , PQFormat t13, PQFormat t14, PQFormat t15, PQFormat t16, PQFormat t17, PQFormat t18 - , PQFormat t19, PQFormat t20, PQFormat t21, PQFormat t22, PQFormat t23 - ) => PQFormat (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23) where - pqFormat = BS.concat [ - pqFormat @t1, pqFormat @t2, pqFormat @t3, pqFormat @t4 - , pqFormat @t5, pqFormat @t6, pqFormat @t7, pqFormat @t8 - , pqFormat @t9, pqFormat @t10, pqFormat @t11, pqFormat @t12 - , pqFormat @t13, pqFormat @t14, pqFormat @t15, pqFormat @t16 - , pqFormat @t17, pqFormat @t18, pqFormat @t19, pqFormat @t20 - , pqFormat @t21, pqFormat @t22, pqFormat @t23 - ] - pqVariables = 23 - -instance - ( PQFormat t1, PQFormat t2, PQFormat t3, PQFormat t4, PQFormat t5, PQFormat t6 - , PQFormat t7, PQFormat t8, PQFormat t9, PQFormat t10, PQFormat t11, PQFormat t12 - , PQFormat t13, PQFormat t14, PQFormat t15, PQFormat t16, PQFormat t17, PQFormat t18 - , PQFormat t19, PQFormat t20, PQFormat t21, PQFormat t22, PQFormat t23, PQFormat t24 - ) => PQFormat (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24) where - pqFormat = BS.concat [ - pqFormat @t1, pqFormat @t2, pqFormat @t3, pqFormat @t4 - , pqFormat @t5, pqFormat @t6, pqFormat @t7, pqFormat @t8 - , pqFormat @t9, pqFormat @t10, pqFormat @t11, pqFormat @t12 - , pqFormat @t13, pqFormat @t14, pqFormat @t15, pqFormat @t16 - , pqFormat @t17, pqFormat @t18, pqFormat @t19, pqFormat @t20 - , pqFormat @t21, pqFormat @t22, pqFormat @t23, pqFormat @t24 - ] - pqVariables = 24 - -instance - ( PQFormat t1, PQFormat t2, PQFormat t3, PQFormat t4, PQFormat t5, PQFormat t6 - , PQFormat t7, PQFormat t8, PQFormat t9, PQFormat t10, PQFormat t11, PQFormat t12 - , PQFormat t13, PQFormat t14, PQFormat t15, PQFormat t16, PQFormat t17, PQFormat t18 - , PQFormat t19, PQFormat t20, PQFormat t21, PQFormat t22, PQFormat t23, PQFormat t24 - , PQFormat t25 - ) => PQFormat (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25) where - pqFormat = BS.concat [ - pqFormat @t1, pqFormat @t2, pqFormat @t3, pqFormat @t4 - , pqFormat @t5, pqFormat @t6, pqFormat @t7, pqFormat @t8 - , pqFormat @t9, pqFormat @t10, pqFormat @t11, pqFormat @t12 - , pqFormat @t13, pqFormat @t14, pqFormat @t15, pqFormat @t16 - , pqFormat @t17, pqFormat @t18, pqFormat @t19, pqFormat @t20 - , pqFormat @t21, pqFormat @t22, pqFormat @t23, pqFormat @t24 - , pqFormat @t25 - ] - pqVariables = 25 - -instance - ( PQFormat t1, PQFormat t2, PQFormat t3, PQFormat t4, PQFormat t5, PQFormat t6 - , PQFormat t7, PQFormat t8, PQFormat t9, PQFormat t10, PQFormat t11, PQFormat t12 - , PQFormat t13, PQFormat t14, PQFormat t15, PQFormat t16, PQFormat t17, PQFormat t18 - , PQFormat t19, PQFormat t20, PQFormat t21, PQFormat t22, PQFormat t23, PQFormat t24 - , PQFormat t25, PQFormat t26 - ) => PQFormat (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26) where - pqFormat = BS.concat [ - pqFormat @t1, pqFormat @t2, pqFormat @t3, pqFormat @t4 - , pqFormat @t5, pqFormat @t6, pqFormat @t7, pqFormat @t8 - , pqFormat @t9, pqFormat @t10, pqFormat @t11, pqFormat @t12 - , pqFormat @t13, pqFormat @t14, pqFormat @t15, pqFormat @t16 - , pqFormat @t17, pqFormat @t18, pqFormat @t19, pqFormat @t20 - , pqFormat @t21, pqFormat @t22, pqFormat @t23, pqFormat @t24 - , pqFormat @t25, pqFormat @t26 - ] - pqVariables = 26 - -instance - ( PQFormat t1, PQFormat t2, PQFormat t3, PQFormat t4, PQFormat t5, PQFormat t6 - , PQFormat t7, PQFormat t8, PQFormat t9, PQFormat t10, PQFormat t11, PQFormat t12 - , PQFormat t13, PQFormat t14, PQFormat t15, PQFormat t16, PQFormat t17, PQFormat t18 - , PQFormat t19, PQFormat t20, PQFormat t21, PQFormat t22, PQFormat t23, PQFormat t24 - , PQFormat t25, PQFormat t26, PQFormat t27 - ) => PQFormat (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27) where - pqFormat = BS.concat [ - pqFormat @t1, pqFormat @t2, pqFormat @t3, pqFormat @t4 - , pqFormat @t5, pqFormat @t6, pqFormat @t7, pqFormat @t8 - , pqFormat @t9, pqFormat @t10, pqFormat @t11, pqFormat @t12 - , pqFormat @t13, pqFormat @t14, pqFormat @t15, pqFormat @t16 - , pqFormat @t17, pqFormat @t18, pqFormat @t19, pqFormat @t20 - , pqFormat @t21, pqFormat @t22, pqFormat @t23, pqFormat @t24 - , pqFormat @t25, pqFormat @t26, pqFormat @t27 - ] - pqVariables = 27 - -instance - ( PQFormat t1, PQFormat t2, PQFormat t3, PQFormat t4, PQFormat t5, PQFormat t6 - , PQFormat t7, PQFormat t8, PQFormat t9, PQFormat t10, PQFormat t11, PQFormat t12 - , PQFormat t13, PQFormat t14, PQFormat t15, PQFormat t16, PQFormat t17, PQFormat t18 - , PQFormat t19, PQFormat t20, PQFormat t21, PQFormat t22, PQFormat t23, PQFormat t24 - , PQFormat t25, PQFormat t26, PQFormat t27, PQFormat t28 - ) => PQFormat (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28) where - pqFormat = BS.concat [ - pqFormat @t1, pqFormat @t2, pqFormat @t3, pqFormat @t4 - , pqFormat @t5, pqFormat @t6, pqFormat @t7, pqFormat @t8 - , pqFormat @t9, pqFormat @t10, pqFormat @t11, pqFormat @t12 - , pqFormat @t13, pqFormat @t14, pqFormat @t15, pqFormat @t16 - , pqFormat @t17, pqFormat @t18, pqFormat @t19, pqFormat @t20 - , pqFormat @t21, pqFormat @t22, pqFormat @t23, pqFormat @t24 - , pqFormat @t25, pqFormat @t26, pqFormat @t27, pqFormat @t28 - ] - pqVariables = 28 - -instance - ( PQFormat t1, PQFormat t2, PQFormat t3, PQFormat t4, PQFormat t5, PQFormat t6 - , PQFormat t7, PQFormat t8, PQFormat t9, PQFormat t10, PQFormat t11, PQFormat t12 - , PQFormat t13, PQFormat t14, PQFormat t15, PQFormat t16, PQFormat t17, PQFormat t18 - , PQFormat t19, PQFormat t20, PQFormat t21, PQFormat t22, PQFormat t23, PQFormat t24 - , PQFormat t25, PQFormat t26, PQFormat t27, PQFormat t28, PQFormat t29 - ) => PQFormat (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29) where - pqFormat = BS.concat [ - pqFormat @t1, pqFormat @t2, pqFormat @t3, pqFormat @t4 - , pqFormat @t5, pqFormat @t6, pqFormat @t7, pqFormat @t8 - , pqFormat @t9, pqFormat @t10, pqFormat @t11, pqFormat @t12 - , pqFormat @t13, pqFormat @t14, pqFormat @t15, pqFormat @t16 - , pqFormat @t17, pqFormat @t18, pqFormat @t19, pqFormat @t20 - , pqFormat @t21, pqFormat @t22, pqFormat @t23, pqFormat @t24 - , pqFormat @t25, pqFormat @t26, pqFormat @t27, pqFormat @t28 - , pqFormat @t29 - ] - pqVariables = 29 - -instance - ( PQFormat t1, PQFormat t2, PQFormat t3, PQFormat t4, PQFormat t5, PQFormat t6 - , PQFormat t7, PQFormat t8, PQFormat t9, PQFormat t10, PQFormat t11, PQFormat t12 - , PQFormat t13, PQFormat t14, PQFormat t15, PQFormat t16, PQFormat t17, PQFormat t18 - , PQFormat t19, PQFormat t20, PQFormat t21, PQFormat t22, PQFormat t23, PQFormat t24 - , PQFormat t25, PQFormat t26, PQFormat t27, PQFormat t28, PQFormat t29, PQFormat t30 - ) => PQFormat (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30) where - pqFormat = BS.concat [ - pqFormat @t1, pqFormat @t2, pqFormat @t3, pqFormat @t4 - , pqFormat @t5, pqFormat @t6, pqFormat @t7, pqFormat @t8 - , pqFormat @t9, pqFormat @t10, pqFormat @t11, pqFormat @t12 - , pqFormat @t13, pqFormat @t14, pqFormat @t15, pqFormat @t16 - , pqFormat @t17, pqFormat @t18, pqFormat @t19, pqFormat @t20 - , pqFormat @t21, pqFormat @t22, pqFormat @t23, pqFormat @t24 - , pqFormat @t25, pqFormat @t26, pqFormat @t27, pqFormat @t28 - , pqFormat @t29, pqFormat @t30 - ] - pqVariables = 30 - -instance - ( PQFormat t1, PQFormat t2, PQFormat t3, PQFormat t4, PQFormat t5, PQFormat t6 - , PQFormat t7, PQFormat t8, PQFormat t9, PQFormat t10, PQFormat t11, PQFormat t12 - , PQFormat t13, PQFormat t14, PQFormat t15, PQFormat t16, PQFormat t17, PQFormat t18 - , PQFormat t19, PQFormat t20, PQFormat t21, PQFormat t22, PQFormat t23, PQFormat t24 - , PQFormat t25, PQFormat t26, PQFormat t27, PQFormat t28, PQFormat t29, PQFormat t30 - , PQFormat t31 - ) => PQFormat (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31) where - pqFormat = BS.concat [ - pqFormat @t1, pqFormat @t2, pqFormat @t3, pqFormat @t4 - , pqFormat @t5, pqFormat @t6, pqFormat @t7, pqFormat @t8 - , pqFormat @t9, pqFormat @t10, pqFormat @t11, pqFormat @t12 - , pqFormat @t13, pqFormat @t14, pqFormat @t15, pqFormat @t16 - , pqFormat @t17, pqFormat @t18, pqFormat @t19, pqFormat @t20 - , pqFormat @t21, pqFormat @t22, pqFormat @t23, pqFormat @t24 - , pqFormat @t25, pqFormat @t26, pqFormat @t27, pqFormat @t28 - , pqFormat @t29, pqFormat @t30, pqFormat @t31 - ] - pqVariables = 31 - -instance - ( PQFormat t1, PQFormat t2, PQFormat t3, PQFormat t4, PQFormat t5, PQFormat t6 - , PQFormat t7, PQFormat t8, PQFormat t9, PQFormat t10, PQFormat t11, PQFormat t12 - , PQFormat t13, PQFormat t14, PQFormat t15, PQFormat t16, PQFormat t17, PQFormat t18 - , PQFormat t19, PQFormat t20, PQFormat t21, PQFormat t22, PQFormat t23, PQFormat t24 - , PQFormat t25, PQFormat t26, PQFormat t27, PQFormat t28, PQFormat t29, PQFormat t30 - , PQFormat t31, PQFormat t32 - ) => PQFormat (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32) where - pqFormat = BS.concat [ - pqFormat @t1, pqFormat @t2, pqFormat @t3, pqFormat @t4 - , pqFormat @t5, pqFormat @t6, pqFormat @t7, pqFormat @t8 - , pqFormat @t9, pqFormat @t10, pqFormat @t11, pqFormat @t12 - , pqFormat @t13, pqFormat @t14, pqFormat @t15, pqFormat @t16 - , pqFormat @t17, pqFormat @t18, pqFormat @t19, pqFormat @t20 - , pqFormat @t21, pqFormat @t22, pqFormat @t23, pqFormat @t24 - , pqFormat @t25, pqFormat @t26, pqFormat @t27, pqFormat @t28 - , pqFormat @t29, pqFormat @t30, pqFormat @t31, pqFormat @t32 - ] - pqVariables = 32 - -instance - ( PQFormat t1, PQFormat t2, PQFormat t3, PQFormat t4, PQFormat t5, PQFormat t6 - , PQFormat t7, PQFormat t8, PQFormat t9, PQFormat t10, PQFormat t11, PQFormat t12 - , PQFormat t13, PQFormat t14, PQFormat t15, PQFormat t16, PQFormat t17, PQFormat t18 - , PQFormat t19, PQFormat t20, PQFormat t21, PQFormat t22, PQFormat t23, PQFormat t24 - , PQFormat t25, PQFormat t26, PQFormat t27, PQFormat t28, PQFormat t29, PQFormat t30 - , PQFormat t31, PQFormat t32, PQFormat t33 - ) => PQFormat (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33) where - pqFormat = BS.concat [ - pqFormat @t1, pqFormat @t2, pqFormat @t3, pqFormat @t4 - , pqFormat @t5, pqFormat @t6, pqFormat @t7, pqFormat @t8 - , pqFormat @t9, pqFormat @t10, pqFormat @t11, pqFormat @t12 - , pqFormat @t13, pqFormat @t14, pqFormat @t15, pqFormat @t16 - , pqFormat @t17, pqFormat @t18, pqFormat @t19, pqFormat @t20 - , pqFormat @t21, pqFormat @t22, pqFormat @t23, pqFormat @t24 - , pqFormat @t25, pqFormat @t26, pqFormat @t27, pqFormat @t28 - , pqFormat @t29, pqFormat @t30, pqFormat @t31, pqFormat @t32 - , pqFormat @t33 - ] - pqVariables = 33 - -instance - ( PQFormat t1, PQFormat t2, PQFormat t3, PQFormat t4, PQFormat t5, PQFormat t6 - , PQFormat t7, PQFormat t8, PQFormat t9, PQFormat t10, PQFormat t11, PQFormat t12 - , PQFormat t13, PQFormat t14, PQFormat t15, PQFormat t16, PQFormat t17, PQFormat t18 - , PQFormat t19, PQFormat t20, PQFormat t21, PQFormat t22, PQFormat t23, PQFormat t24 - , PQFormat t25, PQFormat t26, PQFormat t27, PQFormat t28, PQFormat t29, PQFormat t30 - , PQFormat t31, PQFormat t32, PQFormat t33, PQFormat t34 - ) => PQFormat (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34) where - pqFormat = BS.concat [ - pqFormat @t1, pqFormat @t2, pqFormat @t3, pqFormat @t4 - , pqFormat @t5, pqFormat @t6, pqFormat @t7, pqFormat @t8 - , pqFormat @t9, pqFormat @t10, pqFormat @t11, pqFormat @t12 - , pqFormat @t13, pqFormat @t14, pqFormat @t15, pqFormat @t16 - , pqFormat @t17, pqFormat @t18, pqFormat @t19, pqFormat @t20 - , pqFormat @t21, pqFormat @t22, pqFormat @t23, pqFormat @t24 - , pqFormat @t25, pqFormat @t26, pqFormat @t27, pqFormat @t28 - , pqFormat @t29, pqFormat @t30, pqFormat @t31, pqFormat @t32 - , pqFormat @t33, pqFormat @t34 - ] - pqVariables = 34 - -instance - ( PQFormat t1, PQFormat t2, PQFormat t3, PQFormat t4, PQFormat t5, PQFormat t6 - , PQFormat t7, PQFormat t8, PQFormat t9, PQFormat t10, PQFormat t11, PQFormat t12 - , PQFormat t13, PQFormat t14, PQFormat t15, PQFormat t16, PQFormat t17, PQFormat t18 - , PQFormat t19, PQFormat t20, PQFormat t21, PQFormat t22, PQFormat t23, PQFormat t24 - , PQFormat t25, PQFormat t26, PQFormat t27, PQFormat t28, PQFormat t29, PQFormat t30 - , PQFormat t31, PQFormat t32, PQFormat t33, PQFormat t34, PQFormat t35 - ) => PQFormat (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35) where - pqFormat = BS.concat [ - pqFormat @t1, pqFormat @t2, pqFormat @t3, pqFormat @t4 - , pqFormat @t5, pqFormat @t6, pqFormat @t7, pqFormat @t8 - , pqFormat @t9, pqFormat @t10, pqFormat @t11, pqFormat @t12 - , pqFormat @t13, pqFormat @t14, pqFormat @t15, pqFormat @t16 - , pqFormat @t17, pqFormat @t18, pqFormat @t19, pqFormat @t20 - , pqFormat @t21, pqFormat @t22, pqFormat @t23, pqFormat @t24 - , pqFormat @t25, pqFormat @t26, pqFormat @t27, pqFormat @t28 - , pqFormat @t29, pqFormat @t30, pqFormat @t31, pqFormat @t32 - , pqFormat @t33, pqFormat @t34, pqFormat @t35 - ] - pqVariables = 35 - -instance - ( PQFormat t1, PQFormat t2, PQFormat t3, PQFormat t4, PQFormat t5, PQFormat t6 - , PQFormat t7, PQFormat t8, PQFormat t9, PQFormat t10, PQFormat t11, PQFormat t12 - , PQFormat t13, PQFormat t14, PQFormat t15, PQFormat t16, PQFormat t17, PQFormat t18 - , PQFormat t19, PQFormat t20, PQFormat t21, PQFormat t22, PQFormat t23, PQFormat t24 - , PQFormat t25, PQFormat t26, PQFormat t27, PQFormat t28, PQFormat t29, PQFormat t30 - , PQFormat t31, PQFormat t32, PQFormat t33, PQFormat t34, PQFormat t35, PQFormat t36 - ) => PQFormat (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36) where - pqFormat = BS.concat [ - pqFormat @t1, pqFormat @t2, pqFormat @t3, pqFormat @t4 - , pqFormat @t5, pqFormat @t6, pqFormat @t7, pqFormat @t8 - , pqFormat @t9, pqFormat @t10, pqFormat @t11, pqFormat @t12 - , pqFormat @t13, pqFormat @t14, pqFormat @t15, pqFormat @t16 - , pqFormat @t17, pqFormat @t18, pqFormat @t19, pqFormat @t20 - , pqFormat @t21, pqFormat @t22, pqFormat @t23, pqFormat @t24 - , pqFormat @t25, pqFormat @t26, pqFormat @t27, pqFormat @t28 - , pqFormat @t29, pqFormat @t30, pqFormat @t31, pqFormat @t32 - , pqFormat @t33, pqFormat @t34, pqFormat @t35, pqFormat @t36 - ] - pqVariables = 36 - -instance - ( PQFormat t1, PQFormat t2, PQFormat t3, PQFormat t4, PQFormat t5, PQFormat t6 - , PQFormat t7, PQFormat t8, PQFormat t9, PQFormat t10, PQFormat t11, PQFormat t12 - , PQFormat t13, PQFormat t14, PQFormat t15, PQFormat t16, PQFormat t17, PQFormat t18 - , PQFormat t19, PQFormat t20, PQFormat t21, PQFormat t22, PQFormat t23, PQFormat t24 - , PQFormat t25, PQFormat t26, PQFormat t27, PQFormat t28, PQFormat t29, PQFormat t30 - , PQFormat t31, PQFormat t32, PQFormat t33, PQFormat t34, PQFormat t35, PQFormat t36 - , PQFormat t37 - ) => PQFormat (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36, t37) where - pqFormat = BS.concat [ - pqFormat @t1, pqFormat @t2, pqFormat @t3, pqFormat @t4 - , pqFormat @t5, pqFormat @t6, pqFormat @t7, pqFormat @t8 - , pqFormat @t9, pqFormat @t10, pqFormat @t11, pqFormat @t12 - , pqFormat @t13, pqFormat @t14, pqFormat @t15, pqFormat @t16 - , pqFormat @t17, pqFormat @t18, pqFormat @t19, pqFormat @t20 - , pqFormat @t21, pqFormat @t22, pqFormat @t23, pqFormat @t24 - , pqFormat @t25, pqFormat @t26, pqFormat @t27, pqFormat @t28 - , pqFormat @t29, pqFormat @t30, pqFormat @t31, pqFormat @t32 - , pqFormat @t33, pqFormat @t34, pqFormat @t35, pqFormat @t36 - , pqFormat @t37 - ] - pqVariables = 37 - -instance - ( PQFormat t1, PQFormat t2, PQFormat t3, PQFormat t4, PQFormat t5, PQFormat t6 - , PQFormat t7, PQFormat t8, PQFormat t9, PQFormat t10, PQFormat t11, PQFormat t12 - , PQFormat t13, PQFormat t14, PQFormat t15, PQFormat t16, PQFormat t17, PQFormat t18 - , PQFormat t19, PQFormat t20, PQFormat t21, PQFormat t22, PQFormat t23, PQFormat t24 - , PQFormat t25, PQFormat t26, PQFormat t27, PQFormat t28, PQFormat t29, PQFormat t30 - , PQFormat t31, PQFormat t32, PQFormat t33, PQFormat t34, PQFormat t35, PQFormat t36 - , PQFormat t37, PQFormat t38 - ) => PQFormat (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38) where - pqFormat = BS.concat [ - pqFormat @t1, pqFormat @t2, pqFormat @t3, pqFormat @t4 - , pqFormat @t5, pqFormat @t6, pqFormat @t7, pqFormat @t8 - , pqFormat @t9, pqFormat @t10, pqFormat @t11, pqFormat @t12 - , pqFormat @t13, pqFormat @t14, pqFormat @t15, pqFormat @t16 - , pqFormat @t17, pqFormat @t18, pqFormat @t19, pqFormat @t20 - , pqFormat @t21, pqFormat @t22, pqFormat @t23, pqFormat @t24 - , pqFormat @t25, pqFormat @t26, pqFormat @t27, pqFormat @t28 - , pqFormat @t29, pqFormat @t30, pqFormat @t31, pqFormat @t32 - , pqFormat @t33, pqFormat @t34, pqFormat @t35, pqFormat @t36 - , pqFormat @t37, pqFormat @t38 - ] - pqVariables = 38 - -instance - ( PQFormat t1, PQFormat t2, PQFormat t3, PQFormat t4, PQFormat t5, PQFormat t6 - , PQFormat t7, PQFormat t8, PQFormat t9, PQFormat t10, PQFormat t11, PQFormat t12 - , PQFormat t13, PQFormat t14, PQFormat t15, PQFormat t16, PQFormat t17, PQFormat t18 - , PQFormat t19, PQFormat t20, PQFormat t21, PQFormat t22, PQFormat t23, PQFormat t24 - , PQFormat t25, PQFormat t26, PQFormat t27, PQFormat t28, PQFormat t29, PQFormat t30 - , PQFormat t31, PQFormat t32, PQFormat t33, PQFormat t34, PQFormat t35, PQFormat t36 - , PQFormat t37, PQFormat t38, PQFormat t39 - ) => PQFormat (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39) where - pqFormat = BS.concat [ - pqFormat @t1, pqFormat @t2, pqFormat @t3, pqFormat @t4 - , pqFormat @t5, pqFormat @t6, pqFormat @t7, pqFormat @t8 - , pqFormat @t9, pqFormat @t10, pqFormat @t11, pqFormat @t12 - , pqFormat @t13, pqFormat @t14, pqFormat @t15, pqFormat @t16 - , pqFormat @t17, pqFormat @t18, pqFormat @t19, pqFormat @t20 - , pqFormat @t21, pqFormat @t22, pqFormat @t23, pqFormat @t24 - , pqFormat @t25, pqFormat @t26, pqFormat @t27, pqFormat @t28 - , pqFormat @t29, pqFormat @t30, pqFormat @t31, pqFormat @t32 - , pqFormat @t33, pqFormat @t34, pqFormat @t35, pqFormat @t36 - , pqFormat @t37, pqFormat @t38, pqFormat @t39 - ] - pqVariables = 39 - -instance - ( PQFormat t1, PQFormat t2, PQFormat t3, PQFormat t4, PQFormat t5, PQFormat t6 - , PQFormat t7, PQFormat t8, PQFormat t9, PQFormat t10, PQFormat t11, PQFormat t12 - , PQFormat t13, PQFormat t14, PQFormat t15, PQFormat t16, PQFormat t17, PQFormat t18 - , PQFormat t19, PQFormat t20, PQFormat t21, PQFormat t22, PQFormat t23, PQFormat t24 - , PQFormat t25, PQFormat t26, PQFormat t27, PQFormat t28, PQFormat t29, PQFormat t30 - , PQFormat t31, PQFormat t32, PQFormat t33, PQFormat t34, PQFormat t35, PQFormat t36 - , PQFormat t37, PQFormat t38, PQFormat t39, PQFormat t40 - ) => PQFormat (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40) where - pqFormat = BS.concat [ - pqFormat @t1, pqFormat @t2, pqFormat @t3, pqFormat @t4 - , pqFormat @t5, pqFormat @t6, pqFormat @t7, pqFormat @t8 - , pqFormat @t9, pqFormat @t10, pqFormat @t11, pqFormat @t12 - , pqFormat @t13, pqFormat @t14, pqFormat @t15, pqFormat @t16 - , pqFormat @t17, pqFormat @t18, pqFormat @t19, pqFormat @t20 - , pqFormat @t21, pqFormat @t22, pqFormat @t23, pqFormat @t24 - , pqFormat @t25, pqFormat @t26, pqFormat @t27, pqFormat @t28 - , pqFormat @t29, pqFormat @t30, pqFormat @t31, pqFormat @t32 - , pqFormat @t33, pqFormat @t34, pqFormat @t35, pqFormat @t36 - , pqFormat @t37, pqFormat @t38, pqFormat @t39, pqFormat @t40 - ] - pqVariables = 40 - -instance - ( PQFormat t1, PQFormat t2, PQFormat t3, PQFormat t4, PQFormat t5, PQFormat t6 - , PQFormat t7, PQFormat t8, PQFormat t9, PQFormat t10, PQFormat t11, PQFormat t12 - , PQFormat t13, PQFormat t14, PQFormat t15, PQFormat t16, PQFormat t17, PQFormat t18 - , PQFormat t19, PQFormat t20, PQFormat t21, PQFormat t22, PQFormat t23, PQFormat t24 - , PQFormat t25, PQFormat t26, PQFormat t27, PQFormat t28, PQFormat t29, PQFormat t30 - , PQFormat t31, PQFormat t32, PQFormat t33, PQFormat t34, PQFormat t35, PQFormat t36 - , PQFormat t37, PQFormat t38, PQFormat t39, PQFormat t40, PQFormat t41 - ) => PQFormat (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41) where - pqFormat = BS.concat [ - pqFormat @t1, pqFormat @t2, pqFormat @t3, pqFormat @t4 - , pqFormat @t5, pqFormat @t6, pqFormat @t7, pqFormat @t8 - , pqFormat @t9, pqFormat @t10, pqFormat @t11, pqFormat @t12 - , pqFormat @t13, pqFormat @t14, pqFormat @t15, pqFormat @t16 - , pqFormat @t17, pqFormat @t18, pqFormat @t19, pqFormat @t20 - , pqFormat @t21, pqFormat @t22, pqFormat @t23, pqFormat @t24 - , pqFormat @t25, pqFormat @t26, pqFormat @t27, pqFormat @t28 - , pqFormat @t29, pqFormat @t30, pqFormat @t31, pqFormat @t32 - , pqFormat @t33, pqFormat @t34, pqFormat @t35, pqFormat @t36 - , pqFormat @t37, pqFormat @t38, pqFormat @t39, pqFormat @t40 - , pqFormat @t41 - ] - pqVariables = 41 + pqOid = boolOid + pqArrayOid = boolArrayOid -instance - ( PQFormat t1, PQFormat t2, PQFormat t3, PQFormat t4, PQFormat t5, PQFormat t6 - , PQFormat t7, PQFormat t8, PQFormat t9, PQFormat t10, PQFormat t11, PQFormat t12 - , PQFormat t13, PQFormat t14, PQFormat t15, PQFormat t16, PQFormat t17, PQFormat t18 - , PQFormat t19, PQFormat t20, PQFormat t21, PQFormat t22, PQFormat t23, PQFormat t24 - , PQFormat t25, PQFormat t26, PQFormat t27, PQFormat t28, PQFormat t29, PQFormat t30 - , PQFormat t31, PQFormat t32, PQFormat t33, PQFormat t34, PQFormat t35, PQFormat t36 - , PQFormat t37, PQFormat t38, PQFormat t39, PQFormat t40, PQFormat t41, PQFormat t42 - ) => PQFormat (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41, t42) where - pqFormat = BS.concat [ - pqFormat @t1, pqFormat @t2, pqFormat @t3, pqFormat @t4 - , pqFormat @t5, pqFormat @t6, pqFormat @t7, pqFormat @t8 - , pqFormat @t9, pqFormat @t10, pqFormat @t11, pqFormat @t12 - , pqFormat @t13, pqFormat @t14, pqFormat @t15, pqFormat @t16 - , pqFormat @t17, pqFormat @t18, pqFormat @t19, pqFormat @t20 - , pqFormat @t21, pqFormat @t22, pqFormat @t23, pqFormat @t24 - , pqFormat @t25, pqFormat @t26, pqFormat @t27, pqFormat @t28 - , pqFormat @t29, pqFormat @t30, pqFormat @t31, pqFormat @t32 - , pqFormat @t33, pqFormat @t34, pqFormat @t35, pqFormat @t36 - , pqFormat @t37, pqFormat @t38, pqFormat @t39, pqFormat @t40 - , pqFormat @t41, pqFormat @t42 - ] - pqVariables = 42 +-- INET -instance - ( PQFormat t1, PQFormat t2, PQFormat t3, PQFormat t4, PQFormat t5, PQFormat t6 - , PQFormat t7, PQFormat t8, PQFormat t9, PQFormat t10, PQFormat t11, PQFormat t12 - , PQFormat t13, PQFormat t14, PQFormat t15, PQFormat t16, PQFormat t17, PQFormat t18 - , PQFormat t19, PQFormat t20, PQFormat t21, PQFormat t22, PQFormat t23, PQFormat t24 - , PQFormat t25, PQFormat t26, PQFormat t27, PQFormat t28, PQFormat t29, PQFormat t30 - , PQFormat t31, PQFormat t32, PQFormat t33, PQFormat t34, PQFormat t35, PQFormat t36 - , PQFormat t37, PQFormat t38, PQFormat t39, PQFormat t40, PQFormat t41, PQFormat t42 - , PQFormat t43 - ) => PQFormat (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41, t42, t43) where - pqFormat = BS.concat [ - pqFormat @t1, pqFormat @t2, pqFormat @t3, pqFormat @t4 - , pqFormat @t5, pqFormat @t6, pqFormat @t7, pqFormat @t8 - , pqFormat @t9, pqFormat @t10, pqFormat @t11, pqFormat @t12 - , pqFormat @t13, pqFormat @t14, pqFormat @t15, pqFormat @t16 - , pqFormat @t17, pqFormat @t18, pqFormat @t19, pqFormat @t20 - , pqFormat @t21, pqFormat @t22, pqFormat @t23, pqFormat @t24 - , pqFormat @t25, pqFormat @t26, pqFormat @t27, pqFormat @t28 - , pqFormat @t29, pqFormat @t30, pqFormat @t31, pqFormat @t32 - , pqFormat @t33, pqFormat @t34, pqFormat @t35, pqFormat @t36 - , pqFormat @t37, pqFormat @t38, pqFormat @t39, pqFormat @t40 - , pqFormat @t41, pqFormat @t42, pqFormat @t43 - ] - pqVariables = 43 +instance PQFormat IPRange where + pqOid = inetOid + pqArrayOid = inetArrayOid -instance - ( PQFormat t1, PQFormat t2, PQFormat t3, PQFormat t4, PQFormat t5, PQFormat t6 - , PQFormat t7, PQFormat t8, PQFormat t9, PQFormat t10, PQFormat t11, PQFormat t12 - , PQFormat t13, PQFormat t14, PQFormat t15, PQFormat t16, PQFormat t17, PQFormat t18 - , PQFormat t19, PQFormat t20, PQFormat t21, PQFormat t22, PQFormat t23, PQFormat t24 - , PQFormat t25, PQFormat t26, PQFormat t27, PQFormat t28, PQFormat t29, PQFormat t30 - , PQFormat t31, PQFormat t32, PQFormat t33, PQFormat t34, PQFormat t35, PQFormat t36 - , PQFormat t37, PQFormat t38, PQFormat t39, PQFormat t40, PQFormat t41, PQFormat t42 - , PQFormat t43, PQFormat t44 - ) => PQFormat (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41, t42, t43, t44) where - pqFormat = BS.concat [ - pqFormat @t1, pqFormat @t2, pqFormat @t3, pqFormat @t4 - , pqFormat @t5, pqFormat @t6, pqFormat @t7, pqFormat @t8 - , pqFormat @t9, pqFormat @t10, pqFormat @t11, pqFormat @t12 - , pqFormat @t13, pqFormat @t14, pqFormat @t15, pqFormat @t16 - , pqFormat @t17, pqFormat @t18, pqFormat @t19, pqFormat @t20 - , pqFormat @t21, pqFormat @t22, pqFormat @t23, pqFormat @t24 - , pqFormat @t25, pqFormat @t26, pqFormat @t27, pqFormat @t28 - , pqFormat @t29, pqFormat @t30, pqFormat @t31, pqFormat @t32 - , pqFormat @t33, pqFormat @t34, pqFormat @t35, pqFormat @t36 - , pqFormat @t37, pqFormat @t38, pqFormat @t39, pqFormat @t40 - , pqFormat @t41, pqFormat @t42, pqFormat @t43, pqFormat @t44 - ] - pqVariables = 44 +-- RANGES -instance - ( PQFormat t1, PQFormat t2, PQFormat t3, PQFormat t4, PQFormat t5, PQFormat t6 - , PQFormat t7, PQFormat t8, PQFormat t9, PQFormat t10, PQFormat t11, PQFormat t12 - , PQFormat t13, PQFormat t14, PQFormat t15, PQFormat t16, PQFormat t17, PQFormat t18 - , PQFormat t19, PQFormat t20, PQFormat t21, PQFormat t22, PQFormat t23, PQFormat t24 - , PQFormat t25, PQFormat t26, PQFormat t27, PQFormat t28, PQFormat t29, PQFormat t30 - , PQFormat t31, PQFormat t32, PQFormat t33, PQFormat t34, PQFormat t35, PQFormat t36 - , PQFormat t37, PQFormat t38, PQFormat t39, PQFormat t40, PQFormat t41, PQFormat t42 - , PQFormat t43, PQFormat t44, PQFormat t45 - ) => PQFormat (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41, t42, t43, t44, t45) where - pqFormat = BS.concat [ - pqFormat @t1, pqFormat @t2, pqFormat @t3, pqFormat @t4 - , pqFormat @t5, pqFormat @t6, pqFormat @t7, pqFormat @t8 - , pqFormat @t9, pqFormat @t10, pqFormat @t11, pqFormat @t12 - , pqFormat @t13, pqFormat @t14, pqFormat @t15, pqFormat @t16 - , pqFormat @t17, pqFormat @t18, pqFormat @t19, pqFormat @t20 - , pqFormat @t21, pqFormat @t22, pqFormat @t23, pqFormat @t24 - , pqFormat @t25, pqFormat @t26, pqFormat @t27, pqFormat @t28 - , pqFormat @t29, pqFormat @t30, pqFormat @t31, pqFormat @t32 - , pqFormat @t33, pqFormat @t34, pqFormat @t35, pqFormat @t36 - , pqFormat @t37, pqFormat @t38, pqFormat @t39, pqFormat @t40 - , pqFormat @t41, pqFormat @t42, pqFormat @t43, pqFormat @t44 - , pqFormat @t45 - ] - pqVariables = 45 +instance PQFormat (Range Int32) where + pqOid = int4rangeOid + pqArrayOid = int4rangeArrayOid -instance - ( PQFormat t1, PQFormat t2, PQFormat t3, PQFormat t4, PQFormat t5, PQFormat t6 - , PQFormat t7, PQFormat t8, PQFormat t9, PQFormat t10, PQFormat t11, PQFormat t12 - , PQFormat t13, PQFormat t14, PQFormat t15, PQFormat t16, PQFormat t17, PQFormat t18 - , PQFormat t19, PQFormat t20, PQFormat t21, PQFormat t22, PQFormat t23, PQFormat t24 - , PQFormat t25, PQFormat t26, PQFormat t27, PQFormat t28, PQFormat t29, PQFormat t30 - , PQFormat t31, PQFormat t32, PQFormat t33, PQFormat t34, PQFormat t35, PQFormat t36 - , PQFormat t37, PQFormat t38, PQFormat t39, PQFormat t40, PQFormat t41, PQFormat t42 - , PQFormat t43, PQFormat t44, PQFormat t45, PQFormat t46 - ) => PQFormat (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41, t42, t43, t44, t45, t46) where - pqFormat = BS.concat [ - pqFormat @t1, pqFormat @t2, pqFormat @t3, pqFormat @t4 - , pqFormat @t5, pqFormat @t6, pqFormat @t7, pqFormat @t8 - , pqFormat @t9, pqFormat @t10, pqFormat @t11, pqFormat @t12 - , pqFormat @t13, pqFormat @t14, pqFormat @t15, pqFormat @t16 - , pqFormat @t17, pqFormat @t18, pqFormat @t19, pqFormat @t20 - , pqFormat @t21, pqFormat @t22, pqFormat @t23, pqFormat @t24 - , pqFormat @t25, pqFormat @t26, pqFormat @t27, pqFormat @t28 - , pqFormat @t29, pqFormat @t30, pqFormat @t31, pqFormat @t32 - , pqFormat @t33, pqFormat @t34, pqFormat @t35, pqFormat @t36 - , pqFormat @t37, pqFormat @t38, pqFormat @t39, pqFormat @t40 - , pqFormat @t41, pqFormat @t42, pqFormat @t43, pqFormat @t44 - , pqFormat @t45, pqFormat @t46 - ] - pqVariables = 46 +instance PQFormat (Range Int64) where + pqOid = int8rangeOid + pqArrayOid = int8rangeArrayOid -instance - ( PQFormat t1, PQFormat t2, PQFormat t3, PQFormat t4, PQFormat t5, PQFormat t6 - , PQFormat t7, PQFormat t8, PQFormat t9, PQFormat t10, PQFormat t11, PQFormat t12 - , PQFormat t13, PQFormat t14, PQFormat t15, PQFormat t16, PQFormat t17, PQFormat t18 - , PQFormat t19, PQFormat t20, PQFormat t21, PQFormat t22, PQFormat t23, PQFormat t24 - , PQFormat t25, PQFormat t26, PQFormat t27, PQFormat t28, PQFormat t29, PQFormat t30 - , PQFormat t31, PQFormat t32, PQFormat t33, PQFormat t34, PQFormat t35, PQFormat t36 - , PQFormat t37, PQFormat t38, PQFormat t39, PQFormat t40, PQFormat t41, PQFormat t42 - , PQFormat t43, PQFormat t44, PQFormat t45, PQFormat t46, PQFormat t47 - ) => PQFormat (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41, t42, t43, t44, t45, t46, t47) where - pqFormat = BS.concat [ - pqFormat @t1, pqFormat @t2, pqFormat @t3, pqFormat @t4 - , pqFormat @t5, pqFormat @t6, pqFormat @t7, pqFormat @t8 - , pqFormat @t9, pqFormat @t10, pqFormat @t11, pqFormat @t12 - , pqFormat @t13, pqFormat @t14, pqFormat @t15, pqFormat @t16 - , pqFormat @t17, pqFormat @t18, pqFormat @t19, pqFormat @t20 - , pqFormat @t21, pqFormat @t22, pqFormat @t23, pqFormat @t24 - , pqFormat @t25, pqFormat @t26, pqFormat @t27, pqFormat @t28 - , pqFormat @t29, pqFormat @t30, pqFormat @t31, pqFormat @t32 - , pqFormat @t33, pqFormat @t34, pqFormat @t35, pqFormat @t36 - , pqFormat @t37, pqFormat @t38, pqFormat @t39, pqFormat @t40 - , pqFormat @t41, pqFormat @t42, pqFormat @t43, pqFormat @t44 - , pqFormat @t45, pqFormat @t46, pqFormat @t47 - ] - pqVariables = 47 +instance PQFormat (Range Scientific) where + pqOid = numrangeOid + pqArrayOid = numrangeArrayOid -instance - ( PQFormat t1, PQFormat t2, PQFormat t3, PQFormat t4, PQFormat t5, PQFormat t6 - , PQFormat t7, PQFormat t8, PQFormat t9, PQFormat t10, PQFormat t11, PQFormat t12 - , PQFormat t13, PQFormat t14, PQFormat t15, PQFormat t16, PQFormat t17, PQFormat t18 - , PQFormat t19, PQFormat t20, PQFormat t21, PQFormat t22, PQFormat t23, PQFormat t24 - , PQFormat t25, PQFormat t26, PQFormat t27, PQFormat t28, PQFormat t29, PQFormat t30 - , PQFormat t31, PQFormat t32, PQFormat t33, PQFormat t34, PQFormat t35, PQFormat t36 - , PQFormat t37, PQFormat t38, PQFormat t39, PQFormat t40, PQFormat t41, PQFormat t42 - , PQFormat t43, PQFormat t44, PQFormat t45, PQFormat t46, PQFormat t47, PQFormat t48 - ) => PQFormat (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41, t42, t43, t44, t45, t46, t47, t48) where - pqFormat = BS.concat [ - pqFormat @t1, pqFormat @t2, pqFormat @t3, pqFormat @t4 - , pqFormat @t5, pqFormat @t6, pqFormat @t7, pqFormat @t8 - , pqFormat @t9, pqFormat @t10, pqFormat @t11, pqFormat @t12 - , pqFormat @t13, pqFormat @t14, pqFormat @t15, pqFormat @t16 - , pqFormat @t17, pqFormat @t18, pqFormat @t19, pqFormat @t20 - , pqFormat @t21, pqFormat @t22, pqFormat @t23, pqFormat @t24 - , pqFormat @t25, pqFormat @t26, pqFormat @t27, pqFormat @t28 - , pqFormat @t29, pqFormat @t30, pqFormat @t31, pqFormat @t32 - , pqFormat @t33, pqFormat @t34, pqFormat @t35, pqFormat @t36 - , pqFormat @t37, pqFormat @t38, pqFormat @t39, pqFormat @t40 - , pqFormat @t41, pqFormat @t42, pqFormat @t43, pqFormat @t44 - , pqFormat @t45, pqFormat @t46, pqFormat @t47, pqFormat @t48 - ] - pqVariables = 48 +instance PQFormat (Range Day) where + pqOid = daterangeOid + pqArrayOid = daterangeArrayOid -instance - ( PQFormat t1, PQFormat t2, PQFormat t3, PQFormat t4, PQFormat t5, PQFormat t6 - , PQFormat t7, PQFormat t8, PQFormat t9, PQFormat t10, PQFormat t11, PQFormat t12 - , PQFormat t13, PQFormat t14, PQFormat t15, PQFormat t16, PQFormat t17, PQFormat t18 - , PQFormat t19, PQFormat t20, PQFormat t21, PQFormat t22, PQFormat t23, PQFormat t24 - , PQFormat t25, PQFormat t26, PQFormat t27, PQFormat t28, PQFormat t29, PQFormat t30 - , PQFormat t31, PQFormat t32, PQFormat t33, PQFormat t34, PQFormat t35, PQFormat t36 - , PQFormat t37, PQFormat t38, PQFormat t39, PQFormat t40, PQFormat t41, PQFormat t42 - , PQFormat t43, PQFormat t44, PQFormat t45, PQFormat t46, PQFormat t47, PQFormat t48 - , PQFormat t49 - ) => PQFormat (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41, t42, t43, t44, t45, t46, t47, t48, t49) where - pqFormat = BS.concat [ - pqFormat @t1, pqFormat @t2, pqFormat @t3, pqFormat @t4 - , pqFormat @t5, pqFormat @t6, pqFormat @t7, pqFormat @t8 - , pqFormat @t9, pqFormat @t10, pqFormat @t11, pqFormat @t12 - , pqFormat @t13, pqFormat @t14, pqFormat @t15, pqFormat @t16 - , pqFormat @t17, pqFormat @t18, pqFormat @t19, pqFormat @t20 - , pqFormat @t21, pqFormat @t22, pqFormat @t23, pqFormat @t24 - , pqFormat @t25, pqFormat @t26, pqFormat @t27, pqFormat @t28 - , pqFormat @t29, pqFormat @t30, pqFormat @t31, pqFormat @t32 - , pqFormat @t33, pqFormat @t34, pqFormat @t35, pqFormat @t36 - , pqFormat @t37, pqFormat @t38, pqFormat @t39, pqFormat @t40 - , pqFormat @t41, pqFormat @t42, pqFormat @t43, pqFormat @t44 - , pqFormat @t45, pqFormat @t46, pqFormat @t47, pqFormat @t48 - , pqFormat @t49 - ] - pqVariables = 49 +instance PQFormat (Range LocalTime) where + pqOid = tsrangeOid + pqArrayOid = tsrangeArrayOid -instance - ( PQFormat t1, PQFormat t2, PQFormat t3, PQFormat t4, PQFormat t5, PQFormat t6 - , PQFormat t7, PQFormat t8, PQFormat t9, PQFormat t10, PQFormat t11, PQFormat t12 - , PQFormat t13, PQFormat t14, PQFormat t15, PQFormat t16, PQFormat t17, PQFormat t18 - , PQFormat t19, PQFormat t20, PQFormat t21, PQFormat t22, PQFormat t23, PQFormat t24 - , PQFormat t25, PQFormat t26, PQFormat t27, PQFormat t28, PQFormat t29, PQFormat t30 - , PQFormat t31, PQFormat t32, PQFormat t33, PQFormat t34, PQFormat t35, PQFormat t36 - , PQFormat t37, PQFormat t38, PQFormat t39, PQFormat t40, PQFormat t41, PQFormat t42 - , PQFormat t43, PQFormat t44, PQFormat t45, PQFormat t46, PQFormat t47, PQFormat t48 - , PQFormat t49, PQFormat t50 - ) => PQFormat (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41, t42, t43, t44, t45, t46, t47, t48, t49, t50) where - pqFormat = BS.concat [ - pqFormat @t1, pqFormat @t2, pqFormat @t3, pqFormat @t4 - , pqFormat @t5, pqFormat @t6, pqFormat @t7, pqFormat @t8 - , pqFormat @t9, pqFormat @t10, pqFormat @t11, pqFormat @t12 - , pqFormat @t13, pqFormat @t14, pqFormat @t15, pqFormat @t16 - , pqFormat @t17, pqFormat @t18, pqFormat @t19, pqFormat @t20 - , pqFormat @t21, pqFormat @t22, pqFormat @t23, pqFormat @t24 - , pqFormat @t25, pqFormat @t26, pqFormat @t27, pqFormat @t28 - , pqFormat @t29, pqFormat @t30, pqFormat @t31, pqFormat @t32 - , pqFormat @t33, pqFormat @t34, pqFormat @t35, pqFormat @t36 - , pqFormat @t37, pqFormat @t38, pqFormat @t39, pqFormat @t40 - , pqFormat @t41, pqFormat @t42, pqFormat @t43, pqFormat @t44 - , pqFormat @t45, pqFormat @t46, pqFormat @t47, pqFormat @t48 - , pqFormat @t49, pqFormat @t50 - ] - pqVariables = 50 +instance PQFormat (Range UTCTime) where + pqOid = tstzrangeOid + pqArrayOid = tstzrangeArrayOid diff --git a/src/Database/PostgreSQL/PQTypes/FromRow.hs b/src/Database/PostgreSQL/PQTypes/FromRow.hs deleted file mode 100644 index fb63ffc..0000000 --- a/src/Database/PostgreSQL/PQTypes/FromRow.hs +++ /dev/null @@ -1,1535 +0,0 @@ -module Database.PostgreSQL.PQTypes.FromRow - ( FromRow (..) - , fromRow' - ) where - -import Control.Exception qualified as E -import Data.ByteString.Unsafe qualified as BS -import Data.Functor.Identity -import Foreign.C -import Foreign.Marshal.Alloc -import Foreign.Ptr -import Foreign.Storable - -import Database.PostgreSQL.PQTypes.Format -import Database.PostgreSQL.PQTypes.FromSQL -import Database.PostgreSQL.PQTypes.Internal.C.Get -import Database.PostgreSQL.PQTypes.Internal.C.Interface -import Database.PostgreSQL.PQTypes.Internal.C.Types -import Database.PostgreSQL.PQTypes.Internal.Error -import Database.PostgreSQL.PQTypes.Internal.Utils - --- | Convert base (libpqtypes) type to destination type. -convert :: FromSQL t => Ptr PGresult -> CInt -> CInt -> PQBase t -> IO t -convert res tuple column base = do - isNull <- c_PQgetisnull res tuple column - fromSQL (if isNull == 1 then Nothing else Just base) - `E.catch` rethrowWithConvError - where - rethrowWithConvError :: E.SomeException -> IO a - rethrowWithConvError (E.SomeException e) = do - colname <- safePeekCString' =<< c_PQfname res column - E.throwIO - ConversionError - { convColumn = fromIntegral column + 1 - , convColumnName = colname - , convRow = fromIntegral tuple + 1 - , convError = e - } - --- | 'verifyPQTRes' specialized for usage in 'fromRow'. -verify :: Ptr PGerror -> CInt -> IO () -verify err = verifyPQTRes err "fromRow" - -withFormat :: forall row. FromRow row => (CString -> IO row) -> IO row -withFormat = BS.unsafeUseAsCString $ pqFormat0 @row - ----------------------------------------- - --- | More convenient version of 'fromRow' that allocates 'PGerror' by itself. -fromRow' :: forall row. FromRow row => Ptr PGresult -> CInt -> CInt -> IO row -fromRow' res b i = alloca $ \err -> fromRow res err b i - --- | Class which represents \"from SQL row to Haskell tuple\" transformation. -class PQFormat row => FromRow row where - -- | Extract SQL row from 'PGresult' and convert it into a tuple. - fromRow - :: Ptr PGresult - -- ^ Source result. - -> Ptr PGerror - -- ^ Local error info. - -> CInt - -- ^ Base position for c_PQgetf. - -> CInt - -- ^ Index of row to be extracted. - -> IO row - -{- FOURMOLU_DISABLE -} - -instance - ( FromRow row1, FromRow row2 - ) => FromRow (row1 :*: row2) where - fromRow res err b i = (:*:) - <$> fromRow res err b i - <*> fromRow res err b' i - where - b' = b + fromIntegral (pqVariables @row1) - -instance FromRow () where - fromRow _ _ _ _ = pure () - -instance FromSQL t => FromRow (Identity t) where - fromRow res err b i = withFormat $ \fmt -> alloca $ \p1 -> do - verify err =<< c_PQgetf1 res err i fmt b p1 - t <- peek p1 >>= convert res i b - pure (Identity t) - -instance - ( FromSQL t1, FromSQL t2 - ) => FromRow (t1, t2) where - fromRow res err b i = withFormat $ \fmt -> - alloca $ \p0 -> alloca $ \p1 -> do - verify err =<< c_PQgetf2 res err i fmt b p0 (b+1) p1 - (,) - <$> (peek p0 >>= convert res i b) <*> (peek p1 >>= convert res i (b+1)) - -instance - ( FromSQL t1, FromSQL t2, FromSQL t3 - ) => FromRow (t1, t2, t3) where - fromRow res err b i = withFormat $ \fmt -> - alloca $ \p0 -> alloca $ \p1 -> alloca $ \p2 -> do - verify err =<< c_PQgetf3 res err i fmt b p0 (b+1) p1 (b+2) p2 - (,,) - <$> (peek p0 >>= convert res i b) <*> (peek p1 >>= convert res i (b+1)) - <*> (peek p2 >>= convert res i (b+2)) - -instance - ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4 - ) => FromRow (t1, t2, t3, t4) where - fromRow res err b i = withFormat $ \fmt -> - alloca $ \p0 -> alloca $ \p1 -> alloca $ \p2 -> alloca $ \p3 -> do - verify err =<< c_PQgetf4 res err i fmt b p0 (b+1) p1 (b+2) p2 (b+3) p3 - (,,,) - <$> (peek p0 >>= convert res i b) <*> (peek p1 >>= convert res i (b+1)) - <*> (peek p2 >>= convert res i (b+2)) <*> (peek p3 >>= convert res i (b+3)) - -instance - ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5 - ) => FromRow (t1, t2, t3, t4, t5) where - fromRow res err b i = withFormat $ \fmt -> - alloca $ \p0 -> alloca $ \p1 -> alloca $ \p2 -> alloca $ \p3 -> alloca $ \p4 -> do - verify err =<< c_PQgetf5 res err i fmt b p0 (b+1) p1 (b+2) p2 (b+3) p3 (b+4) p4 - (,,,,) - <$> (peek p0 >>= convert res i b) <*> (peek p1 >>= convert res i (b+1)) - <*> (peek p2 >>= convert res i (b+2)) <*> (peek p3 >>= convert res i (b+3)) - <*> (peek p4 >>= convert res i (b+4)) - -instance - ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6 - ) => FromRow (t1, t2, t3, t4, t5, t6) where - fromRow res err b i = withFormat $ \fmt -> - alloca $ \p0 -> alloca $ \p1 -> alloca $ \p2 -> alloca $ \p3 -> alloca $ \p4 -> - alloca $ \p5 -> do - verify err =<< c_PQgetf6 res err i fmt b p0 (b+1) p1 (b+2) p2 (b+3) p3 (b+4) p4 (b+5) p5 - (,,,,,) - <$> (peek p0 >>= convert res i b) <*> (peek p1 >>= convert res i (b+1)) - <*> (peek p2 >>= convert res i (b+2)) <*> (peek p3 >>= convert res i (b+3)) - <*> (peek p4 >>= convert res i (b+4)) <*> (peek p5 >>= convert res i (b+5)) - -instance - ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6 - , FromSQL t7 - ) => FromRow (t1, t2, t3, t4, t5, t6, t7) where - fromRow res err b i = withFormat $ \fmt -> - alloca $ \p0 -> alloca $ \p1 -> alloca $ \p2 -> alloca $ \p3 -> alloca $ \p4 -> - alloca $ \p5 -> alloca $ \p6 -> do - verify err =<< c_PQgetf7 res err i fmt b p0 (b+1) p1 (b+2) p2 (b+3) p3 (b+4) p4 (b+5) p5 (b+6) p6 - (,,,,,,) - <$> (peek p0 >>= convert res i b) <*> (peek p1 >>= convert res i (b+1)) - <*> (peek p2 >>= convert res i (b+2)) <*> (peek p3 >>= convert res i (b+3)) - <*> (peek p4 >>= convert res i (b+4)) <*> (peek p5 >>= convert res i (b+5)) - <*> (peek p6 >>= convert res i (b+6)) - -instance - ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6 - , FromSQL t7, FromSQL t8 - ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8) where - fromRow res err b i = withFormat $ \fmt -> - alloca $ \p0 -> alloca $ \p1 -> alloca $ \p2 -> alloca $ \p3 -> alloca $ \p4 -> - alloca $ \p5 -> alloca $ \p6 -> alloca $ \p7 -> do - verify err =<< c_PQgetf8 res err i fmt b p0 (b+1) p1 (b+2) p2 (b+3) p3 (b+4) p4 (b+5) p5 (b+6) p6 (b+7) p7 - (,,,,,,,) - <$> (peek p0 >>= convert res i b) <*> (peek p1 >>= convert res i (b+1)) - <*> (peek p2 >>= convert res i (b+2)) <*> (peek p3 >>= convert res i (b+3)) - <*> (peek p4 >>= convert res i (b+4)) <*> (peek p5 >>= convert res i (b+5)) - <*> (peek p6 >>= convert res i (b+6)) <*> (peek p7 >>= convert res i (b+7)) - -instance - ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6 - , FromSQL t7, FromSQL t8, FromSQL t9 - ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9) where - fromRow res err b i = withFormat $ \fmt -> - alloca $ \p0 -> alloca $ \p1 -> alloca $ \p2 -> alloca $ \p3 -> alloca $ \p4 -> - alloca $ \p5 -> alloca $ \p6 -> alloca $ \p7 -> alloca $ \p8 -> do - verify err =<< c_PQgetf9 res err i fmt b p0 (b+1) p1 (b+2) p2 (b+3) p3 (b+4) p4 (b+5) p5 (b+6) p6 (b+7) p7 (b+8) p8 - (,,,,,,,,) - <$> (peek p0 >>= convert res i b) <*> (peek p1 >>= convert res i (b+1)) - <*> (peek p2 >>= convert res i (b+2)) <*> (peek p3 >>= convert res i (b+3)) - <*> (peek p4 >>= convert res i (b+4)) <*> (peek p5 >>= convert res i (b+5)) - <*> (peek p6 >>= convert res i (b+6)) <*> (peek p7 >>= convert res i (b+7)) - <*> (peek p8 >>= convert res i (b+8)) - -instance - ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6 - , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10 - ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10) where - fromRow res err b i = withFormat $ \fmt -> - alloca $ \p0 -> alloca $ \p1 -> alloca $ \p2 -> alloca $ \p3 -> alloca $ \p4 -> - alloca $ \p5 -> alloca $ \p6 -> alloca $ \p7 -> alloca $ \p8 -> alloca $ \p9 -> do - verify err =<< c_PQgetf10 res err i fmt b p0 (b+1) p1 (b+2) p2 (b+3) p3 (b+4) p4 (b+5) p5 (b+6) p6 (b+7) p7 (b+8) p8 (b+9) p9 - (,,,,,,,,,) - <$> (peek p0 >>= convert res i b) <*> (peek p1 >>= convert res i (b+1)) - <*> (peek p2 >>= convert res i (b+2)) <*> (peek p3 >>= convert res i (b+3)) - <*> (peek p4 >>= convert res i (b+4)) <*> (peek p5 >>= convert res i (b+5)) - <*> (peek p6 >>= convert res i (b+6)) <*> (peek p7 >>= convert res i (b+7)) - <*> (peek p8 >>= convert res i (b+8)) <*> (peek p9 >>= convert res i (b+9)) - -instance - ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6 - , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11 - ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11) where - fromRow res err b i = withFormat $ \fmt -> - alloca $ \p0 -> alloca $ \p1 -> alloca $ \p2 -> alloca $ \p3 -> alloca $ \p4 -> - alloca $ \p5 -> alloca $ \p6 -> alloca $ \p7 -> alloca $ \p8 -> alloca $ \p9 -> - alloca $ \p10 -> do - verify err =<< c_PQgetf11 res err i fmt b p0 (b+1) p1 (b+2) p2 (b+3) p3 (b+4) p4 (b+5) p5 (b+6) p6 (b+7) p7 (b+8) p8 (b+9) p9 (b+10) p10 - (,,,,,,,,,,) - <$> (peek p0 >>= convert res i b) <*> (peek p1 >>= convert res i (b+1)) - <*> (peek p2 >>= convert res i (b+2)) <*> (peek p3 >>= convert res i (b+3)) - <*> (peek p4 >>= convert res i (b+4)) <*> (peek p5 >>= convert res i (b+5)) - <*> (peek p6 >>= convert res i (b+6)) <*> (peek p7 >>= convert res i (b+7)) - <*> (peek p8 >>= convert res i (b+8)) <*> (peek p9 >>= convert res i (b+9)) - <*> (peek p10 >>= convert res i (b+10)) - -instance - ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6 - , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12 - ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12) where - fromRow res err b i = withFormat $ \fmt -> - alloca $ \p0 -> alloca $ \p1 -> alloca $ \p2 -> alloca $ \p3 -> alloca $ \p4 -> - alloca $ \p5 -> alloca $ \p6 -> alloca $ \p7 -> alloca $ \p8 -> alloca $ \p9 -> - alloca $ \p10 -> alloca $ \p11 -> do - verify err =<< c_PQgetf12 res err i fmt b p0 (b+1) p1 (b+2) p2 (b+3) p3 (b+4) p4 (b+5) p5 (b+6) p6 (b+7) p7 (b+8) p8 (b+9) p9 (b+10) p10 (b+11) p11 - (,,,,,,,,,,,) - <$> (peek p0 >>= convert res i b) <*> (peek p1 >>= convert res i (b+1)) - <*> (peek p2 >>= convert res i (b+2)) <*> (peek p3 >>= convert res i (b+3)) - <*> (peek p4 >>= convert res i (b+4)) <*> (peek p5 >>= convert res i (b+5)) - <*> (peek p6 >>= convert res i (b+6)) <*> (peek p7 >>= convert res i (b+7)) - <*> (peek p8 >>= convert res i (b+8)) <*> (peek p9 >>= convert res i (b+9)) - <*> (peek p10 >>= convert res i (b+10)) <*> (peek p11 >>= convert res i (b+11)) - -instance - ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6 - , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12 - , FromSQL t13 - ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13) where - fromRow res err b i = withFormat $ \fmt -> - alloca $ \p0 -> alloca $ \p1 -> alloca $ \p2 -> alloca $ \p3 -> alloca $ \p4 -> - alloca $ \p5 -> alloca $ \p6 -> alloca $ \p7 -> alloca $ \p8 -> alloca $ \p9 -> - alloca $ \p10 -> alloca $ \p11 -> alloca $ \p12 -> do - verify err =<< c_PQgetf13 res err i fmt b p0 (b+1) p1 (b+2) p2 (b+3) p3 (b+4) p4 (b+5) p5 (b+6) p6 (b+7) p7 (b+8) p8 (b+9) p9 (b+10) p10 (b+11) p11 (b+12) p12 - (,,,,,,,,,,,,) - <$> (peek p0 >>= convert res i b) <*> (peek p1 >>= convert res i (b+1)) - <*> (peek p2 >>= convert res i (b+2)) <*> (peek p3 >>= convert res i (b+3)) - <*> (peek p4 >>= convert res i (b+4)) <*> (peek p5 >>= convert res i (b+5)) - <*> (peek p6 >>= convert res i (b+6)) <*> (peek p7 >>= convert res i (b+7)) - <*> (peek p8 >>= convert res i (b+8)) <*> (peek p9 >>= convert res i (b+9)) - <*> (peek p10 >>= convert res i (b+10)) <*> (peek p11 >>= convert res i (b+11)) - <*> (peek p12 >>= convert res i (b+12)) - -instance - ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6 - , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12 - , FromSQL t13, FromSQL t14 - ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14) where - fromRow res err b i = withFormat $ \fmt -> - alloca $ \p0 -> alloca $ \p1 -> alloca $ \p2 -> alloca $ \p3 -> alloca $ \p4 -> - alloca $ \p5 -> alloca $ \p6 -> alloca $ \p7 -> alloca $ \p8 -> alloca $ \p9 -> - alloca $ \p10 -> alloca $ \p11 -> alloca $ \p12 -> alloca $ \p13 -> do - verify err =<< c_PQgetf14 res err i fmt b p0 (b+1) p1 (b+2) p2 (b+3) p3 (b+4) p4 (b+5) p5 (b+6) p6 (b+7) p7 (b+8) p8 (b+9) p9 (b+10) p10 (b+11) p11 (b+12) p12 (b+13) p13 - (,,,,,,,,,,,,,) - <$> (peek p0 >>= convert res i b) <*> (peek p1 >>= convert res i (b+1)) - <*> (peek p2 >>= convert res i (b+2)) <*> (peek p3 >>= convert res i (b+3)) - <*> (peek p4 >>= convert res i (b+4)) <*> (peek p5 >>= convert res i (b+5)) - <*> (peek p6 >>= convert res i (b+6)) <*> (peek p7 >>= convert res i (b+7)) - <*> (peek p8 >>= convert res i (b+8)) <*> (peek p9 >>= convert res i (b+9)) - <*> (peek p10 >>= convert res i (b+10)) <*> (peek p11 >>= convert res i (b+11)) - <*> (peek p12 >>= convert res i (b+12)) <*> (peek p13 >>= convert res i (b+13)) - -instance - ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6 - , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12 - , FromSQL t13, FromSQL t14, FromSQL t15 - ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15) where - fromRow res err b i = withFormat $ \fmt -> - alloca $ \p0 -> alloca $ \p1 -> alloca $ \p2 -> alloca $ \p3 -> alloca $ \p4 -> - alloca $ \p5 -> alloca $ \p6 -> alloca $ \p7 -> alloca $ \p8 -> alloca $ \p9 -> - alloca $ \p10 -> alloca $ \p11 -> alloca $ \p12 -> alloca $ \p13 -> alloca $ \p14 -> do - verify err =<< c_PQgetf15 res err i fmt b p0 (b+1) p1 (b+2) p2 (b+3) p3 (b+4) p4 (b+5) p5 (b+6) p6 (b+7) p7 (b+8) p8 (b+9) p9 (b+10) p10 (b+11) p11 (b+12) p12 (b+13) p13 (b+14) p14 - (,,,,,,,,,,,,,,) - <$> (peek p0 >>= convert res i b) <*> (peek p1 >>= convert res i (b+1)) - <*> (peek p2 >>= convert res i (b+2)) <*> (peek p3 >>= convert res i (b+3)) - <*> (peek p4 >>= convert res i (b+4)) <*> (peek p5 >>= convert res i (b+5)) - <*> (peek p6 >>= convert res i (b+6)) <*> (peek p7 >>= convert res i (b+7)) - <*> (peek p8 >>= convert res i (b+8)) <*> (peek p9 >>= convert res i (b+9)) - <*> (peek p10 >>= convert res i (b+10)) <*> (peek p11 >>= convert res i (b+11)) - <*> (peek p12 >>= convert res i (b+12)) <*> (peek p13 >>= convert res i (b+13)) - <*> (peek p14 >>= convert res i (b+14)) - -instance - ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6 - , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12 - , FromSQL t13, FromSQL t14, FromSQL t15, FromSQL t16 - ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16) where - fromRow res err b i = withFormat $ \fmt -> - alloca $ \p0 -> alloca $ \p1 -> alloca $ \p2 -> alloca $ \p3 -> alloca $ \p4 -> - alloca $ \p5 -> alloca $ \p6 -> alloca $ \p7 -> alloca $ \p8 -> alloca $ \p9 -> - alloca $ \p10 -> alloca $ \p11 -> alloca $ \p12 -> alloca $ \p13 -> alloca $ \p14 -> - alloca $ \p15 -> do - verify err =<< c_PQgetf16 res err i fmt b p0 (b+1) p1 (b+2) p2 (b+3) p3 (b+4) p4 (b+5) p5 (b+6) p6 (b+7) p7 (b+8) p8 (b+9) p9 (b+10) p10 (b+11) p11 (b+12) p12 (b+13) p13 (b+14) p14 (b+15) p15 - (,,,,,,,,,,,,,,,) - <$> (peek p0 >>= convert res i b) <*> (peek p1 >>= convert res i (b+1)) - <*> (peek p2 >>= convert res i (b+2)) <*> (peek p3 >>= convert res i (b+3)) - <*> (peek p4 >>= convert res i (b+4)) <*> (peek p5 >>= convert res i (b+5)) - <*> (peek p6 >>= convert res i (b+6)) <*> (peek p7 >>= convert res i (b+7)) - <*> (peek p8 >>= convert res i (b+8)) <*> (peek p9 >>= convert res i (b+9)) - <*> (peek p10 >>= convert res i (b+10)) <*> (peek p11 >>= convert res i (b+11)) - <*> (peek p12 >>= convert res i (b+12)) <*> (peek p13 >>= convert res i (b+13)) - <*> (peek p14 >>= convert res i (b+14)) <*> (peek p15 >>= convert res i (b+15)) - -instance - ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6 - , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12 - , FromSQL t13, FromSQL t14, FromSQL t15, FromSQL t16, FromSQL t17 - ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17) where - fromRow res err b i = withFormat $ \fmt -> - alloca $ \p0 -> alloca $ \p1 -> alloca $ \p2 -> alloca $ \p3 -> alloca $ \p4 -> - alloca $ \p5 -> alloca $ \p6 -> alloca $ \p7 -> alloca $ \p8 -> alloca $ \p9 -> - alloca $ \p10 -> alloca $ \p11 -> alloca $ \p12 -> alloca $ \p13 -> alloca $ \p14 -> - alloca $ \p15 -> alloca $ \p16 -> do - verify err =<< c_PQgetf17 res err i fmt b p0 (b+1) p1 (b+2) p2 (b+3) p3 (b+4) p4 (b+5) p5 (b+6) p6 (b+7) p7 (b+8) p8 (b+9) p9 (b+10) p10 (b+11) p11 (b+12) p12 (b+13) p13 (b+14) p14 (b+15) p15 (b+16) p16 - (,,,,,,,,,,,,,,,,) - <$> (peek p0 >>= convert res i b) <*> (peek p1 >>= convert res i (b+1)) - <*> (peek p2 >>= convert res i (b+2)) <*> (peek p3 >>= convert res i (b+3)) - <*> (peek p4 >>= convert res i (b+4)) <*> (peek p5 >>= convert res i (b+5)) - <*> (peek p6 >>= convert res i (b+6)) <*> (peek p7 >>= convert res i (b+7)) - <*> (peek p8 >>= convert res i (b+8)) <*> (peek p9 >>= convert res i (b+9)) - <*> (peek p10 >>= convert res i (b+10)) <*> (peek p11 >>= convert res i (b+11)) - <*> (peek p12 >>= convert res i (b+12)) <*> (peek p13 >>= convert res i (b+13)) - <*> (peek p14 >>= convert res i (b+14)) <*> (peek p15 >>= convert res i (b+15)) - <*> (peek p16 >>= convert res i (b+16)) - -instance - ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6 - , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12 - , FromSQL t13, FromSQL t14, FromSQL t15, FromSQL t16, FromSQL t17, FromSQL t18 - ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18) where - fromRow res err b i = withFormat $ \fmt -> - alloca $ \p0 -> alloca $ \p1 -> alloca $ \p2 -> alloca $ \p3 -> alloca $ \p4 -> - alloca $ \p5 -> alloca $ \p6 -> alloca $ \p7 -> alloca $ \p8 -> alloca $ \p9 -> - alloca $ \p10 -> alloca $ \p11 -> alloca $ \p12 -> alloca $ \p13 -> alloca $ \p14 -> - alloca $ \p15 -> alloca $ \p16 -> alloca $ \p17 -> do - verify err =<< c_PQgetf18 res err i fmt b p0 (b+1) p1 (b+2) p2 (b+3) p3 (b+4) p4 (b+5) p5 (b+6) p6 (b+7) p7 (b+8) p8 (b+9) p9 (b+10) p10 (b+11) p11 (b+12) p12 (b+13) p13 (b+14) p14 (b+15) p15 (b+16) p16 (b+17) p17 - (,,,,,,,,,,,,,,,,,) - <$> (peek p0 >>= convert res i b) <*> (peek p1 >>= convert res i (b+1)) - <*> (peek p2 >>= convert res i (b+2)) <*> (peek p3 >>= convert res i (b+3)) - <*> (peek p4 >>= convert res i (b+4)) <*> (peek p5 >>= convert res i (b+5)) - <*> (peek p6 >>= convert res i (b+6)) <*> (peek p7 >>= convert res i (b+7)) - <*> (peek p8 >>= convert res i (b+8)) <*> (peek p9 >>= convert res i (b+9)) - <*> (peek p10 >>= convert res i (b+10)) <*> (peek p11 >>= convert res i (b+11)) - <*> (peek p12 >>= convert res i (b+12)) <*> (peek p13 >>= convert res i (b+13)) - <*> (peek p14 >>= convert res i (b+14)) <*> (peek p15 >>= convert res i (b+15)) - <*> (peek p16 >>= convert res i (b+16)) <*> (peek p17 >>= convert res i (b+17)) - -instance - ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6 - , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12 - , FromSQL t13, FromSQL t14, FromSQL t15, FromSQL t16, FromSQL t17, FromSQL t18 - , FromSQL t19 - ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19) where - fromRow res err b i = withFormat $ \fmt -> - alloca $ \p0 -> alloca $ \p1 -> alloca $ \p2 -> alloca $ \p3 -> alloca $ \p4 -> - alloca $ \p5 -> alloca $ \p6 -> alloca $ \p7 -> alloca $ \p8 -> alloca $ \p9 -> - alloca $ \p10 -> alloca $ \p11 -> alloca $ \p12 -> alloca $ \p13 -> alloca $ \p14 -> - alloca $ \p15 -> alloca $ \p16 -> alloca $ \p17 -> alloca $ \p18 -> do - verify err =<< c_PQgetf19 res err i fmt b p0 (b+1) p1 (b+2) p2 (b+3) p3 (b+4) p4 (b+5) p5 (b+6) p6 (b+7) p7 (b+8) p8 (b+9) p9 (b+10) p10 (b+11) p11 (b+12) p12 (b+13) p13 (b+14) p14 (b+15) p15 (b+16) p16 (b+17) p17 (b+18) p18 - (,,,,,,,,,,,,,,,,,,) - <$> (peek p0 >>= convert res i b) <*> (peek p1 >>= convert res i (b+1)) - <*> (peek p2 >>= convert res i (b+2)) <*> (peek p3 >>= convert res i (b+3)) - <*> (peek p4 >>= convert res i (b+4)) <*> (peek p5 >>= convert res i (b+5)) - <*> (peek p6 >>= convert res i (b+6)) <*> (peek p7 >>= convert res i (b+7)) - <*> (peek p8 >>= convert res i (b+8)) <*> (peek p9 >>= convert res i (b+9)) - <*> (peek p10 >>= convert res i (b+10)) <*> (peek p11 >>= convert res i (b+11)) - <*> (peek p12 >>= convert res i (b+12)) <*> (peek p13 >>= convert res i (b+13)) - <*> (peek p14 >>= convert res i (b+14)) <*> (peek p15 >>= convert res i (b+15)) - <*> (peek p16 >>= convert res i (b+16)) <*> (peek p17 >>= convert res i (b+17)) - <*> (peek p18 >>= convert res i (b+18)) - -instance - ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6 - , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12 - , FromSQL t13, FromSQL t14, FromSQL t15, FromSQL t16, FromSQL t17, FromSQL t18 - , FromSQL t19, FromSQL t20 - ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20) where - fromRow res err b i = withFormat $ \fmt -> - alloca $ \p0 -> alloca $ \p1 -> alloca $ \p2 -> alloca $ \p3 -> alloca $ \p4 -> - alloca $ \p5 -> alloca $ \p6 -> alloca $ \p7 -> alloca $ \p8 -> alloca $ \p9 -> - alloca $ \p10 -> alloca $ \p11 -> alloca $ \p12 -> alloca $ \p13 -> alloca $ \p14 -> - alloca $ \p15 -> alloca $ \p16 -> alloca $ \p17 -> alloca $ \p18 -> alloca $ \p19 -> do - verify err =<< c_PQgetf20 res err i fmt b p0 (b+1) p1 (b+2) p2 (b+3) p3 (b+4) p4 (b+5) p5 (b+6) p6 (b+7) p7 (b+8) p8 (b+9) p9 (b+10) p10 (b+11) p11 (b+12) p12 (b+13) p13 (b+14) p14 (b+15) p15 (b+16) p16 (b+17) p17 (b+18) p18 (b+19) p19 - (,,,,,,,,,,,,,,,,,,,) - <$> (peek p0 >>= convert res i b) <*> (peek p1 >>= convert res i (b+1)) - <*> (peek p2 >>= convert res i (b+2)) <*> (peek p3 >>= convert res i (b+3)) - <*> (peek p4 >>= convert res i (b+4)) <*> (peek p5 >>= convert res i (b+5)) - <*> (peek p6 >>= convert res i (b+6)) <*> (peek p7 >>= convert res i (b+7)) - <*> (peek p8 >>= convert res i (b+8)) <*> (peek p9 >>= convert res i (b+9)) - <*> (peek p10 >>= convert res i (b+10)) <*> (peek p11 >>= convert res i (b+11)) - <*> (peek p12 >>= convert res i (b+12)) <*> (peek p13 >>= convert res i (b+13)) - <*> (peek p14 >>= convert res i (b+14)) <*> (peek p15 >>= convert res i (b+15)) - <*> (peek p16 >>= convert res i (b+16)) <*> (peek p17 >>= convert res i (b+17)) - <*> (peek p18 >>= convert res i (b+18)) <*> (peek p19 >>= convert res i (b+19)) - -instance - ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6 - , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12 - , FromSQL t13, FromSQL t14, FromSQL t15, FromSQL t16, FromSQL t17, FromSQL t18 - , FromSQL t19, FromSQL t20, FromSQL t21 - ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21) where - fromRow res err b i = withFormat $ \fmt -> - alloca $ \p0 -> alloca $ \p1 -> alloca $ \p2 -> alloca $ \p3 -> alloca $ \p4 -> - alloca $ \p5 -> alloca $ \p6 -> alloca $ \p7 -> alloca $ \p8 -> alloca $ \p9 -> - alloca $ \p10 -> alloca $ \p11 -> alloca $ \p12 -> alloca $ \p13 -> alloca $ \p14 -> - alloca $ \p15 -> alloca $ \p16 -> alloca $ \p17 -> alloca $ \p18 -> alloca $ \p19 -> - alloca $ \p20 -> do - verify err =<< c_PQgetf21 res err i fmt b p0 (b+1) p1 (b+2) p2 (b+3) p3 (b+4) p4 (b+5) p5 (b+6) p6 (b+7) p7 (b+8) p8 (b+9) p9 (b+10) p10 (b+11) p11 (b+12) p12 (b+13) p13 (b+14) p14 (b+15) p15 (b+16) p16 (b+17) p17 (b+18) p18 (b+19) p19 (b+20) p20 - (,,,,,,,,,,,,,,,,,,,,) - <$> (peek p0 >>= convert res i b) <*> (peek p1 >>= convert res i (b+1)) - <*> (peek p2 >>= convert res i (b+2)) <*> (peek p3 >>= convert res i (b+3)) - <*> (peek p4 >>= convert res i (b+4)) <*> (peek p5 >>= convert res i (b+5)) - <*> (peek p6 >>= convert res i (b+6)) <*> (peek p7 >>= convert res i (b+7)) - <*> (peek p8 >>= convert res i (b+8)) <*> (peek p9 >>= convert res i (b+9)) - <*> (peek p10 >>= convert res i (b+10)) <*> (peek p11 >>= convert res i (b+11)) - <*> (peek p12 >>= convert res i (b+12)) <*> (peek p13 >>= convert res i (b+13)) - <*> (peek p14 >>= convert res i (b+14)) <*> (peek p15 >>= convert res i (b+15)) - <*> (peek p16 >>= convert res i (b+16)) <*> (peek p17 >>= convert res i (b+17)) - <*> (peek p18 >>= convert res i (b+18)) <*> (peek p19 >>= convert res i (b+19)) - <*> (peek p20 >>= convert res i (b+20)) - -instance - ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6 - , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12 - , FromSQL t13, FromSQL t14, FromSQL t15, FromSQL t16, FromSQL t17, FromSQL t18 - , FromSQL t19, FromSQL t20, FromSQL t21, FromSQL t22 - ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22) where - fromRow res err b i = withFormat $ \fmt -> - alloca $ \p0 -> alloca $ \p1 -> alloca $ \p2 -> alloca $ \p3 -> alloca $ \p4 -> - alloca $ \p5 -> alloca $ \p6 -> alloca $ \p7 -> alloca $ \p8 -> alloca $ \p9 -> - alloca $ \p10 -> alloca $ \p11 -> alloca $ \p12 -> alloca $ \p13 -> alloca $ \p14 -> - alloca $ \p15 -> alloca $ \p16 -> alloca $ \p17 -> alloca $ \p18 -> alloca $ \p19 -> - alloca $ \p20 -> alloca $ \p21 -> do - verify err =<< c_PQgetf22 res err i fmt b p0 (b+1) p1 (b+2) p2 (b+3) p3 (b+4) p4 (b+5) p5 (b+6) p6 (b+7) p7 (b+8) p8 (b+9) p9 (b+10) p10 (b+11) p11 (b+12) p12 (b+13) p13 (b+14) p14 (b+15) p15 (b+16) p16 (b+17) p17 (b+18) p18 (b+19) p19 (b+20) p20 (b+21) p21 - (,,,,,,,,,,,,,,,,,,,,,) - <$> (peek p0 >>= convert res i b) <*> (peek p1 >>= convert res i (b+1)) - <*> (peek p2 >>= convert res i (b+2)) <*> (peek p3 >>= convert res i (b+3)) - <*> (peek p4 >>= convert res i (b+4)) <*> (peek p5 >>= convert res i (b+5)) - <*> (peek p6 >>= convert res i (b+6)) <*> (peek p7 >>= convert res i (b+7)) - <*> (peek p8 >>= convert res i (b+8)) <*> (peek p9 >>= convert res i (b+9)) - <*> (peek p10 >>= convert res i (b+10)) <*> (peek p11 >>= convert res i (b+11)) - <*> (peek p12 >>= convert res i (b+12)) <*> (peek p13 >>= convert res i (b+13)) - <*> (peek p14 >>= convert res i (b+14)) <*> (peek p15 >>= convert res i (b+15)) - <*> (peek p16 >>= convert res i (b+16)) <*> (peek p17 >>= convert res i (b+17)) - <*> (peek p18 >>= convert res i (b+18)) <*> (peek p19 >>= convert res i (b+19)) - <*> (peek p20 >>= convert res i (b+20)) <*> (peek p21 >>= convert res i (b+21)) - -instance - ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6 - , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12 - , FromSQL t13, FromSQL t14, FromSQL t15, FromSQL t16, FromSQL t17, FromSQL t18 - , FromSQL t19, FromSQL t20, FromSQL t21, FromSQL t22, FromSQL t23 - ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23) where - fromRow res err b i = withFormat $ \fmt -> - alloca $ \p0 -> alloca $ \p1 -> alloca $ \p2 -> alloca $ \p3 -> alloca $ \p4 -> - alloca $ \p5 -> alloca $ \p6 -> alloca $ \p7 -> alloca $ \p8 -> alloca $ \p9 -> - alloca $ \p10 -> alloca $ \p11 -> alloca $ \p12 -> alloca $ \p13 -> alloca $ \p14 -> - alloca $ \p15 -> alloca $ \p16 -> alloca $ \p17 -> alloca $ \p18 -> alloca $ \p19 -> - alloca $ \p20 -> alloca $ \p21 -> alloca $ \p22 -> do - verify err =<< c_PQgetf23 res err i fmt b p0 (b+1) p1 (b+2) p2 (b+3) p3 (b+4) p4 (b+5) p5 (b+6) p6 (b+7) p7 (b+8) p8 (b+9) p9 (b+10) p10 (b+11) p11 (b+12) p12 (b+13) p13 (b+14) p14 (b+15) p15 (b+16) p16 (b+17) p17 (b+18) p18 (b+19) p19 (b+20) p20 (b+21) p21 (b+22) p22 - (,,,,,,,,,,,,,,,,,,,,,,) - <$> (peek p0 >>= convert res i b) <*> (peek p1 >>= convert res i (b+1)) - <*> (peek p2 >>= convert res i (b+2)) <*> (peek p3 >>= convert res i (b+3)) - <*> (peek p4 >>= convert res i (b+4)) <*> (peek p5 >>= convert res i (b+5)) - <*> (peek p6 >>= convert res i (b+6)) <*> (peek p7 >>= convert res i (b+7)) - <*> (peek p8 >>= convert res i (b+8)) <*> (peek p9 >>= convert res i (b+9)) - <*> (peek p10 >>= convert res i (b+10)) <*> (peek p11 >>= convert res i (b+11)) - <*> (peek p12 >>= convert res i (b+12)) <*> (peek p13 >>= convert res i (b+13)) - <*> (peek p14 >>= convert res i (b+14)) <*> (peek p15 >>= convert res i (b+15)) - <*> (peek p16 >>= convert res i (b+16)) <*> (peek p17 >>= convert res i (b+17)) - <*> (peek p18 >>= convert res i (b+18)) <*> (peek p19 >>= convert res i (b+19)) - <*> (peek p20 >>= convert res i (b+20)) <*> (peek p21 >>= convert res i (b+21)) - <*> (peek p22 >>= convert res i (b+22)) - -instance - ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6 - , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12 - , FromSQL t13, FromSQL t14, FromSQL t15, FromSQL t16, FromSQL t17, FromSQL t18 - , FromSQL t19, FromSQL t20, FromSQL t21, FromSQL t22, FromSQL t23, FromSQL t24 - ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24) where - fromRow res err b i = withFormat $ \fmt -> - alloca $ \p0 -> alloca $ \p1 -> alloca $ \p2 -> alloca $ \p3 -> alloca $ \p4 -> - alloca $ \p5 -> alloca $ \p6 -> alloca $ \p7 -> alloca $ \p8 -> alloca $ \p9 -> - alloca $ \p10 -> alloca $ \p11 -> alloca $ \p12 -> alloca $ \p13 -> alloca $ \p14 -> - alloca $ \p15 -> alloca $ \p16 -> alloca $ \p17 -> alloca $ \p18 -> alloca $ \p19 -> - alloca $ \p20 -> alloca $ \p21 -> alloca $ \p22 -> alloca $ \p23 -> do - verify err =<< c_PQgetf24 res err i fmt b p0 (b+1) p1 (b+2) p2 (b+3) p3 (b+4) p4 (b+5) p5 (b+6) p6 (b+7) p7 (b+8) p8 (b+9) p9 (b+10) p10 (b+11) p11 (b+12) p12 (b+13) p13 (b+14) p14 (b+15) p15 (b+16) p16 (b+17) p17 (b+18) p18 (b+19) p19 (b+20) p20 (b+21) p21 (b+22) p22 (b+23) p23 - (,,,,,,,,,,,,,,,,,,,,,,,) - <$> (peek p0 >>= convert res i b) <*> (peek p1 >>= convert res i (b+1)) - <*> (peek p2 >>= convert res i (b+2)) <*> (peek p3 >>= convert res i (b+3)) - <*> (peek p4 >>= convert res i (b+4)) <*> (peek p5 >>= convert res i (b+5)) - <*> (peek p6 >>= convert res i (b+6)) <*> (peek p7 >>= convert res i (b+7)) - <*> (peek p8 >>= convert res i (b+8)) <*> (peek p9 >>= convert res i (b+9)) - <*> (peek p10 >>= convert res i (b+10)) <*> (peek p11 >>= convert res i (b+11)) - <*> (peek p12 >>= convert res i (b+12)) <*> (peek p13 >>= convert res i (b+13)) - <*> (peek p14 >>= convert res i (b+14)) <*> (peek p15 >>= convert res i (b+15)) - <*> (peek p16 >>= convert res i (b+16)) <*> (peek p17 >>= convert res i (b+17)) - <*> (peek p18 >>= convert res i (b+18)) <*> (peek p19 >>= convert res i (b+19)) - <*> (peek p20 >>= convert res i (b+20)) <*> (peek p21 >>= convert res i (b+21)) - <*> (peek p22 >>= convert res i (b+22)) <*> (peek p23 >>= convert res i (b+23)) - -instance - ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6 - , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12 - , FromSQL t13, FromSQL t14, FromSQL t15, FromSQL t16, FromSQL t17, FromSQL t18 - , FromSQL t19, FromSQL t20, FromSQL t21, FromSQL t22, FromSQL t23, FromSQL t24 - , FromSQL t25 - ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25) where - fromRow res err b i = withFormat $ \fmt -> - alloca $ \p0 -> alloca $ \p1 -> alloca $ \p2 -> alloca $ \p3 -> alloca $ \p4 -> - alloca $ \p5 -> alloca $ \p6 -> alloca $ \p7 -> alloca $ \p8 -> alloca $ \p9 -> - alloca $ \p10 -> alloca $ \p11 -> alloca $ \p12 -> alloca $ \p13 -> alloca $ \p14 -> - alloca $ \p15 -> alloca $ \p16 -> alloca $ \p17 -> alloca $ \p18 -> alloca $ \p19 -> - alloca $ \p20 -> alloca $ \p21 -> alloca $ \p22 -> alloca $ \p23 -> alloca $ \p24 -> do - verify err =<< c_PQgetf25 res err i fmt b p0 (b+1) p1 (b+2) p2 (b+3) p3 (b+4) p4 (b+5) p5 (b+6) p6 (b+7) p7 (b+8) p8 (b+9) p9 (b+10) p10 (b+11) p11 (b+12) p12 (b+13) p13 (b+14) p14 (b+15) p15 (b+16) p16 (b+17) p17 (b+18) p18 (b+19) p19 (b+20) p20 (b+21) p21 (b+22) p22 (b+23) p23 (b+24) p24 - (,,,,,,,,,,,,,,,,,,,,,,,,) - <$> (peek p0 >>= convert res i b) <*> (peek p1 >>= convert res i (b+1)) - <*> (peek p2 >>= convert res i (b+2)) <*> (peek p3 >>= convert res i (b+3)) - <*> (peek p4 >>= convert res i (b+4)) <*> (peek p5 >>= convert res i (b+5)) - <*> (peek p6 >>= convert res i (b+6)) <*> (peek p7 >>= convert res i (b+7)) - <*> (peek p8 >>= convert res i (b+8)) <*> (peek p9 >>= convert res i (b+9)) - <*> (peek p10 >>= convert res i (b+10)) <*> (peek p11 >>= convert res i (b+11)) - <*> (peek p12 >>= convert res i (b+12)) <*> (peek p13 >>= convert res i (b+13)) - <*> (peek p14 >>= convert res i (b+14)) <*> (peek p15 >>= convert res i (b+15)) - <*> (peek p16 >>= convert res i (b+16)) <*> (peek p17 >>= convert res i (b+17)) - <*> (peek p18 >>= convert res i (b+18)) <*> (peek p19 >>= convert res i (b+19)) - <*> (peek p20 >>= convert res i (b+20)) <*> (peek p21 >>= convert res i (b+21)) - <*> (peek p22 >>= convert res i (b+22)) <*> (peek p23 >>= convert res i (b+23)) - <*> (peek p24 >>= convert res i (b+24)) - -instance - ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6 - , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12 - , FromSQL t13, FromSQL t14, FromSQL t15, FromSQL t16, FromSQL t17, FromSQL t18 - , FromSQL t19, FromSQL t20, FromSQL t21, FromSQL t22, FromSQL t23, FromSQL t24 - , FromSQL t25, FromSQL t26 - ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26) where - fromRow res err b i = withFormat $ \fmt -> - alloca $ \p0 -> alloca $ \p1 -> alloca $ \p2 -> alloca $ \p3 -> alloca $ \p4 -> - alloca $ \p5 -> alloca $ \p6 -> alloca $ \p7 -> alloca $ \p8 -> alloca $ \p9 -> - alloca $ \p10 -> alloca $ \p11 -> alloca $ \p12 -> alloca $ \p13 -> alloca $ \p14 -> - alloca $ \p15 -> alloca $ \p16 -> alloca $ \p17 -> alloca $ \p18 -> alloca $ \p19 -> - alloca $ \p20 -> alloca $ \p21 -> alloca $ \p22 -> alloca $ \p23 -> alloca $ \p24 -> - alloca $ \p25 -> do - verify err =<< c_PQgetf26 res err i fmt b p0 (b+1) p1 (b+2) p2 (b+3) p3 (b+4) p4 (b+5) p5 (b+6) p6 (b+7) p7 (b+8) p8 (b+9) p9 (b+10) p10 (b+11) p11 (b+12) p12 (b+13) p13 (b+14) p14 (b+15) p15 (b+16) p16 (b+17) p17 (b+18) p18 (b+19) p19 (b+20) p20 (b+21) p21 (b+22) p22 (b+23) p23 (b+24) p24 (b+25) p25 - (,,,,,,,,,,,,,,,,,,,,,,,,,) - <$> (peek p0 >>= convert res i b) <*> (peek p1 >>= convert res i (b+1)) - <*> (peek p2 >>= convert res i (b+2)) <*> (peek p3 >>= convert res i (b+3)) - <*> (peek p4 >>= convert res i (b+4)) <*> (peek p5 >>= convert res i (b+5)) - <*> (peek p6 >>= convert res i (b+6)) <*> (peek p7 >>= convert res i (b+7)) - <*> (peek p8 >>= convert res i (b+8)) <*> (peek p9 >>= convert res i (b+9)) - <*> (peek p10 >>= convert res i (b+10)) <*> (peek p11 >>= convert res i (b+11)) - <*> (peek p12 >>= convert res i (b+12)) <*> (peek p13 >>= convert res i (b+13)) - <*> (peek p14 >>= convert res i (b+14)) <*> (peek p15 >>= convert res i (b+15)) - <*> (peek p16 >>= convert res i (b+16)) <*> (peek p17 >>= convert res i (b+17)) - <*> (peek p18 >>= convert res i (b+18)) <*> (peek p19 >>= convert res i (b+19)) - <*> (peek p20 >>= convert res i (b+20)) <*> (peek p21 >>= convert res i (b+21)) - <*> (peek p22 >>= convert res i (b+22)) <*> (peek p23 >>= convert res i (b+23)) - <*> (peek p24 >>= convert res i (b+24)) <*> (peek p25 >>= convert res i (b+25)) - -instance - ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6 - , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12 - , FromSQL t13, FromSQL t14, FromSQL t15, FromSQL t16, FromSQL t17, FromSQL t18 - , FromSQL t19, FromSQL t20, FromSQL t21, FromSQL t22, FromSQL t23, FromSQL t24 - , FromSQL t25, FromSQL t26, FromSQL t27 - ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27) where - fromRow res err b i = withFormat $ \fmt -> - alloca $ \p0 -> alloca $ \p1 -> alloca $ \p2 -> alloca $ \p3 -> alloca $ \p4 -> - alloca $ \p5 -> alloca $ \p6 -> alloca $ \p7 -> alloca $ \p8 -> alloca $ \p9 -> - alloca $ \p10 -> alloca $ \p11 -> alloca $ \p12 -> alloca $ \p13 -> alloca $ \p14 -> - alloca $ \p15 -> alloca $ \p16 -> alloca $ \p17 -> alloca $ \p18 -> alloca $ \p19 -> - alloca $ \p20 -> alloca $ \p21 -> alloca $ \p22 -> alloca $ \p23 -> alloca $ \p24 -> - alloca $ \p25 -> alloca $ \p26 -> do - verify err =<< c_PQgetf27 res err i fmt b p0 (b+1) p1 (b+2) p2 (b+3) p3 (b+4) p4 (b+5) p5 (b+6) p6 (b+7) p7 (b+8) p8 (b+9) p9 (b+10) p10 (b+11) p11 (b+12) p12 (b+13) p13 (b+14) p14 (b+15) p15 (b+16) p16 (b+17) p17 (b+18) p18 (b+19) p19 (b+20) p20 (b+21) p21 (b+22) p22 (b+23) p23 (b+24) p24 (b+25) p25 (b+26) p26 - (,,,,,,,,,,,,,,,,,,,,,,,,,,) - <$> (peek p0 >>= convert res i b) <*> (peek p1 >>= convert res i (b+1)) - <*> (peek p2 >>= convert res i (b+2)) <*> (peek p3 >>= convert res i (b+3)) - <*> (peek p4 >>= convert res i (b+4)) <*> (peek p5 >>= convert res i (b+5)) - <*> (peek p6 >>= convert res i (b+6)) <*> (peek p7 >>= convert res i (b+7)) - <*> (peek p8 >>= convert res i (b+8)) <*> (peek p9 >>= convert res i (b+9)) - <*> (peek p10 >>= convert res i (b+10)) <*> (peek p11 >>= convert res i (b+11)) - <*> (peek p12 >>= convert res i (b+12)) <*> (peek p13 >>= convert res i (b+13)) - <*> (peek p14 >>= convert res i (b+14)) <*> (peek p15 >>= convert res i (b+15)) - <*> (peek p16 >>= convert res i (b+16)) <*> (peek p17 >>= convert res i (b+17)) - <*> (peek p18 >>= convert res i (b+18)) <*> (peek p19 >>= convert res i (b+19)) - <*> (peek p20 >>= convert res i (b+20)) <*> (peek p21 >>= convert res i (b+21)) - <*> (peek p22 >>= convert res i (b+22)) <*> (peek p23 >>= convert res i (b+23)) - <*> (peek p24 >>= convert res i (b+24)) <*> (peek p25 >>= convert res i (b+25)) - <*> (peek p26 >>= convert res i (b+26)) - -instance - ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6 - , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12 - , FromSQL t13, FromSQL t14, FromSQL t15, FromSQL t16, FromSQL t17, FromSQL t18 - , FromSQL t19, FromSQL t20, FromSQL t21, FromSQL t22, FromSQL t23, FromSQL t24 - , FromSQL t25, FromSQL t26, FromSQL t27, FromSQL t28 - ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28) where - fromRow res err b i = withFormat $ \fmt -> - alloca $ \p0 -> alloca $ \p1 -> alloca $ \p2 -> alloca $ \p3 -> alloca $ \p4 -> - alloca $ \p5 -> alloca $ \p6 -> alloca $ \p7 -> alloca $ \p8 -> alloca $ \p9 -> - alloca $ \p10 -> alloca $ \p11 -> alloca $ \p12 -> alloca $ \p13 -> alloca $ \p14 -> - alloca $ \p15 -> alloca $ \p16 -> alloca $ \p17 -> alloca $ \p18 -> alloca $ \p19 -> - alloca $ \p20 -> alloca $ \p21 -> alloca $ \p22 -> alloca $ \p23 -> alloca $ \p24 -> - alloca $ \p25 -> alloca $ \p26 -> alloca $ \p27 -> do - verify err =<< c_PQgetf28 res err i fmt b p0 (b+1) p1 (b+2) p2 (b+3) p3 (b+4) p4 (b+5) p5 (b+6) p6 (b+7) p7 (b+8) p8 (b+9) p9 (b+10) p10 (b+11) p11 (b+12) p12 (b+13) p13 (b+14) p14 (b+15) p15 (b+16) p16 (b+17) p17 (b+18) p18 (b+19) p19 (b+20) p20 (b+21) p21 (b+22) p22 (b+23) p23 (b+24) p24 (b+25) p25 (b+26) p26 (b+27) p27 - (,,,,,,,,,,,,,,,,,,,,,,,,,,,) - <$> (peek p0 >>= convert res i b) <*> (peek p1 >>= convert res i (b+1)) - <*> (peek p2 >>= convert res i (b+2)) <*> (peek p3 >>= convert res i (b+3)) - <*> (peek p4 >>= convert res i (b+4)) <*> (peek p5 >>= convert res i (b+5)) - <*> (peek p6 >>= convert res i (b+6)) <*> (peek p7 >>= convert res i (b+7)) - <*> (peek p8 >>= convert res i (b+8)) <*> (peek p9 >>= convert res i (b+9)) - <*> (peek p10 >>= convert res i (b+10)) <*> (peek p11 >>= convert res i (b+11)) - <*> (peek p12 >>= convert res i (b+12)) <*> (peek p13 >>= convert res i (b+13)) - <*> (peek p14 >>= convert res i (b+14)) <*> (peek p15 >>= convert res i (b+15)) - <*> (peek p16 >>= convert res i (b+16)) <*> (peek p17 >>= convert res i (b+17)) - <*> (peek p18 >>= convert res i (b+18)) <*> (peek p19 >>= convert res i (b+19)) - <*> (peek p20 >>= convert res i (b+20)) <*> (peek p21 >>= convert res i (b+21)) - <*> (peek p22 >>= convert res i (b+22)) <*> (peek p23 >>= convert res i (b+23)) - <*> (peek p24 >>= convert res i (b+24)) <*> (peek p25 >>= convert res i (b+25)) - <*> (peek p26 >>= convert res i (b+26)) <*> (peek p27 >>= convert res i (b+27)) - -instance - ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6 - , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12 - , FromSQL t13, FromSQL t14, FromSQL t15, FromSQL t16, FromSQL t17, FromSQL t18 - , FromSQL t19, FromSQL t20, FromSQL t21, FromSQL t22, FromSQL t23, FromSQL t24 - , FromSQL t25, FromSQL t26, FromSQL t27, FromSQL t28, FromSQL t29 - ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29) where - fromRow res err b i = withFormat $ \fmt -> - alloca $ \p0 -> alloca $ \p1 -> alloca $ \p2 -> alloca $ \p3 -> alloca $ \p4 -> - alloca $ \p5 -> alloca $ \p6 -> alloca $ \p7 -> alloca $ \p8 -> alloca $ \p9 -> - alloca $ \p10 -> alloca $ \p11 -> alloca $ \p12 -> alloca $ \p13 -> alloca $ \p14 -> - alloca $ \p15 -> alloca $ \p16 -> alloca $ \p17 -> alloca $ \p18 -> alloca $ \p19 -> - alloca $ \p20 -> alloca $ \p21 -> alloca $ \p22 -> alloca $ \p23 -> alloca $ \p24 -> - alloca $ \p25 -> alloca $ \p26 -> alloca $ \p27 -> alloca $ \p28 -> do - verify err =<< c_PQgetf29 res err i fmt b p0 (b+1) p1 (b+2) p2 (b+3) p3 (b+4) p4 (b+5) p5 (b+6) p6 (b+7) p7 (b+8) p8 (b+9) p9 (b+10) p10 (b+11) p11 (b+12) p12 (b+13) p13 (b+14) p14 (b+15) p15 (b+16) p16 (b+17) p17 (b+18) p18 (b+19) p19 (b+20) p20 (b+21) p21 (b+22) p22 (b+23) p23 (b+24) p24 (b+25) p25 (b+26) p26 (b+27) p27 (b+28) p28 - (,,,,,,,,,,,,,,,,,,,,,,,,,,,,) - <$> (peek p0 >>= convert res i b) <*> (peek p1 >>= convert res i (b+1)) - <*> (peek p2 >>= convert res i (b+2)) <*> (peek p3 >>= convert res i (b+3)) - <*> (peek p4 >>= convert res i (b+4)) <*> (peek p5 >>= convert res i (b+5)) - <*> (peek p6 >>= convert res i (b+6)) <*> (peek p7 >>= convert res i (b+7)) - <*> (peek p8 >>= convert res i (b+8)) <*> (peek p9 >>= convert res i (b+9)) - <*> (peek p10 >>= convert res i (b+10)) <*> (peek p11 >>= convert res i (b+11)) - <*> (peek p12 >>= convert res i (b+12)) <*> (peek p13 >>= convert res i (b+13)) - <*> (peek p14 >>= convert res i (b+14)) <*> (peek p15 >>= convert res i (b+15)) - <*> (peek p16 >>= convert res i (b+16)) <*> (peek p17 >>= convert res i (b+17)) - <*> (peek p18 >>= convert res i (b+18)) <*> (peek p19 >>= convert res i (b+19)) - <*> (peek p20 >>= convert res i (b+20)) <*> (peek p21 >>= convert res i (b+21)) - <*> (peek p22 >>= convert res i (b+22)) <*> (peek p23 >>= convert res i (b+23)) - <*> (peek p24 >>= convert res i (b+24)) <*> (peek p25 >>= convert res i (b+25)) - <*> (peek p26 >>= convert res i (b+26)) <*> (peek p27 >>= convert res i (b+27)) - <*> (peek p28 >>= convert res i (b+28)) - -instance - ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6 - , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12 - , FromSQL t13, FromSQL t14, FromSQL t15, FromSQL t16, FromSQL t17, FromSQL t18 - , FromSQL t19, FromSQL t20, FromSQL t21, FromSQL t22, FromSQL t23, FromSQL t24 - , FromSQL t25, FromSQL t26, FromSQL t27, FromSQL t28, FromSQL t29, FromSQL t30 - ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30) where - fromRow res err b i = withFormat $ \fmt -> - alloca $ \p0 -> alloca $ \p1 -> alloca $ \p2 -> alloca $ \p3 -> alloca $ \p4 -> - alloca $ \p5 -> alloca $ \p6 -> alloca $ \p7 -> alloca $ \p8 -> alloca $ \p9 -> - alloca $ \p10 -> alloca $ \p11 -> alloca $ \p12 -> alloca $ \p13 -> alloca $ \p14 -> - alloca $ \p15 -> alloca $ \p16 -> alloca $ \p17 -> alloca $ \p18 -> alloca $ \p19 -> - alloca $ \p20 -> alloca $ \p21 -> alloca $ \p22 -> alloca $ \p23 -> alloca $ \p24 -> - alloca $ \p25 -> alloca $ \p26 -> alloca $ \p27 -> alloca $ \p28 -> alloca $ \p29 -> do - verify err =<< c_PQgetf30 res err i fmt b p0 (b+1) p1 (b+2) p2 (b+3) p3 (b+4) p4 (b+5) p5 (b+6) p6 (b+7) p7 (b+8) p8 (b+9) p9 (b+10) p10 (b+11) p11 (b+12) p12 (b+13) p13 (b+14) p14 (b+15) p15 (b+16) p16 (b+17) p17 (b+18) p18 (b+19) p19 (b+20) p20 (b+21) p21 (b+22) p22 (b+23) p23 (b+24) p24 (b+25) p25 (b+26) p26 (b+27) p27 (b+28) p28 (b+29) p29 - (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) - <$> (peek p0 >>= convert res i b) <*> (peek p1 >>= convert res i (b+1)) - <*> (peek p2 >>= convert res i (b+2)) <*> (peek p3 >>= convert res i (b+3)) - <*> (peek p4 >>= convert res i (b+4)) <*> (peek p5 >>= convert res i (b+5)) - <*> (peek p6 >>= convert res i (b+6)) <*> (peek p7 >>= convert res i (b+7)) - <*> (peek p8 >>= convert res i (b+8)) <*> (peek p9 >>= convert res i (b+9)) - <*> (peek p10 >>= convert res i (b+10)) <*> (peek p11 >>= convert res i (b+11)) - <*> (peek p12 >>= convert res i (b+12)) <*> (peek p13 >>= convert res i (b+13)) - <*> (peek p14 >>= convert res i (b+14)) <*> (peek p15 >>= convert res i (b+15)) - <*> (peek p16 >>= convert res i (b+16)) <*> (peek p17 >>= convert res i (b+17)) - <*> (peek p18 >>= convert res i (b+18)) <*> (peek p19 >>= convert res i (b+19)) - <*> (peek p20 >>= convert res i (b+20)) <*> (peek p21 >>= convert res i (b+21)) - <*> (peek p22 >>= convert res i (b+22)) <*> (peek p23 >>= convert res i (b+23)) - <*> (peek p24 >>= convert res i (b+24)) <*> (peek p25 >>= convert res i (b+25)) - <*> (peek p26 >>= convert res i (b+26)) <*> (peek p27 >>= convert res i (b+27)) - <*> (peek p28 >>= convert res i (b+28)) <*> (peek p29 >>= convert res i (b+29)) - -instance - ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6 - , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12 - , FromSQL t13, FromSQL t14, FromSQL t15, FromSQL t16, FromSQL t17, FromSQL t18 - , FromSQL t19, FromSQL t20, FromSQL t21, FromSQL t22, FromSQL t23, FromSQL t24 - , FromSQL t25, FromSQL t26, FromSQL t27, FromSQL t28, FromSQL t29, FromSQL t30 - , FromSQL t31 - ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31) where - fromRow res err b i = withFormat $ \fmt -> - alloca $ \p0 -> alloca $ \p1 -> alloca $ \p2 -> alloca $ \p3 -> alloca $ \p4 -> - alloca $ \p5 -> alloca $ \p6 -> alloca $ \p7 -> alloca $ \p8 -> alloca $ \p9 -> - alloca $ \p10 -> alloca $ \p11 -> alloca $ \p12 -> alloca $ \p13 -> alloca $ \p14 -> - alloca $ \p15 -> alloca $ \p16 -> alloca $ \p17 -> alloca $ \p18 -> alloca $ \p19 -> - alloca $ \p20 -> alloca $ \p21 -> alloca $ \p22 -> alloca $ \p23 -> alloca $ \p24 -> - alloca $ \p25 -> alloca $ \p26 -> alloca $ \p27 -> alloca $ \p28 -> alloca $ \p29 -> - alloca $ \p30 -> do - verify err =<< c_PQgetf31 res err i fmt b p0 (b+1) p1 (b+2) p2 (b+3) p3 (b+4) p4 (b+5) p5 (b+6) p6 (b+7) p7 (b+8) p8 (b+9) p9 (b+10) p10 (b+11) p11 (b+12) p12 (b+13) p13 (b+14) p14 (b+15) p15 (b+16) p16 (b+17) p17 (b+18) p18 (b+19) p19 (b+20) p20 (b+21) p21 (b+22) p22 (b+23) p23 (b+24) p24 (b+25) p25 (b+26) p26 (b+27) p27 (b+28) p28 (b+29) p29 (b+30) p30 - (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) - <$> (peek p0 >>= convert res i b) <*> (peek p1 >>= convert res i (b+1)) - <*> (peek p2 >>= convert res i (b+2)) <*> (peek p3 >>= convert res i (b+3)) - <*> (peek p4 >>= convert res i (b+4)) <*> (peek p5 >>= convert res i (b+5)) - <*> (peek p6 >>= convert res i (b+6)) <*> (peek p7 >>= convert res i (b+7)) - <*> (peek p8 >>= convert res i (b+8)) <*> (peek p9 >>= convert res i (b+9)) - <*> (peek p10 >>= convert res i (b+10)) <*> (peek p11 >>= convert res i (b+11)) - <*> (peek p12 >>= convert res i (b+12)) <*> (peek p13 >>= convert res i (b+13)) - <*> (peek p14 >>= convert res i (b+14)) <*> (peek p15 >>= convert res i (b+15)) - <*> (peek p16 >>= convert res i (b+16)) <*> (peek p17 >>= convert res i (b+17)) - <*> (peek p18 >>= convert res i (b+18)) <*> (peek p19 >>= convert res i (b+19)) - <*> (peek p20 >>= convert res i (b+20)) <*> (peek p21 >>= convert res i (b+21)) - <*> (peek p22 >>= convert res i (b+22)) <*> (peek p23 >>= convert res i (b+23)) - <*> (peek p24 >>= convert res i (b+24)) <*> (peek p25 >>= convert res i (b+25)) - <*> (peek p26 >>= convert res i (b+26)) <*> (peek p27 >>= convert res i (b+27)) - <*> (peek p28 >>= convert res i (b+28)) <*> (peek p29 >>= convert res i (b+29)) - <*> (peek p30 >>= convert res i (b+30)) - -instance - ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6 - , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12 - , FromSQL t13, FromSQL t14, FromSQL t15, FromSQL t16, FromSQL t17, FromSQL t18 - , FromSQL t19, FromSQL t20, FromSQL t21, FromSQL t22, FromSQL t23, FromSQL t24 - , FromSQL t25, FromSQL t26, FromSQL t27, FromSQL t28, FromSQL t29, FromSQL t30 - , FromSQL t31, FromSQL t32 - ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32) where - fromRow res err b i = withFormat $ \fmt -> - alloca $ \p0 -> alloca $ \p1 -> alloca $ \p2 -> alloca $ \p3 -> alloca $ \p4 -> - alloca $ \p5 -> alloca $ \p6 -> alloca $ \p7 -> alloca $ \p8 -> alloca $ \p9 -> - alloca $ \p10 -> alloca $ \p11 -> alloca $ \p12 -> alloca $ \p13 -> alloca $ \p14 -> - alloca $ \p15 -> alloca $ \p16 -> alloca $ \p17 -> alloca $ \p18 -> alloca $ \p19 -> - alloca $ \p20 -> alloca $ \p21 -> alloca $ \p22 -> alloca $ \p23 -> alloca $ \p24 -> - alloca $ \p25 -> alloca $ \p26 -> alloca $ \p27 -> alloca $ \p28 -> alloca $ \p29 -> - alloca $ \p30 -> alloca $ \p31 -> do - verify err =<< c_PQgetf32 res err i fmt b p0 (b+1) p1 (b+2) p2 (b+3) p3 (b+4) p4 (b+5) p5 (b+6) p6 (b+7) p7 (b+8) p8 (b+9) p9 (b+10) p10 (b+11) p11 (b+12) p12 (b+13) p13 (b+14) p14 (b+15) p15 (b+16) p16 (b+17) p17 (b+18) p18 (b+19) p19 (b+20) p20 (b+21) p21 (b+22) p22 (b+23) p23 (b+24) p24 (b+25) p25 (b+26) p26 (b+27) p27 (b+28) p28 (b+29) p29 (b+30) p30 (b+31) p31 - (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) - <$> (peek p0 >>= convert res i b) <*> (peek p1 >>= convert res i (b+1)) - <*> (peek p2 >>= convert res i (b+2)) <*> (peek p3 >>= convert res i (b+3)) - <*> (peek p4 >>= convert res i (b+4)) <*> (peek p5 >>= convert res i (b+5)) - <*> (peek p6 >>= convert res i (b+6)) <*> (peek p7 >>= convert res i (b+7)) - <*> (peek p8 >>= convert res i (b+8)) <*> (peek p9 >>= convert res i (b+9)) - <*> (peek p10 >>= convert res i (b+10)) <*> (peek p11 >>= convert res i (b+11)) - <*> (peek p12 >>= convert res i (b+12)) <*> (peek p13 >>= convert res i (b+13)) - <*> (peek p14 >>= convert res i (b+14)) <*> (peek p15 >>= convert res i (b+15)) - <*> (peek p16 >>= convert res i (b+16)) <*> (peek p17 >>= convert res i (b+17)) - <*> (peek p18 >>= convert res i (b+18)) <*> (peek p19 >>= convert res i (b+19)) - <*> (peek p20 >>= convert res i (b+20)) <*> (peek p21 >>= convert res i (b+21)) - <*> (peek p22 >>= convert res i (b+22)) <*> (peek p23 >>= convert res i (b+23)) - <*> (peek p24 >>= convert res i (b+24)) <*> (peek p25 >>= convert res i (b+25)) - <*> (peek p26 >>= convert res i (b+26)) <*> (peek p27 >>= convert res i (b+27)) - <*> (peek p28 >>= convert res i (b+28)) <*> (peek p29 >>= convert res i (b+29)) - <*> (peek p30 >>= convert res i (b+30)) <*> (peek p31 >>= convert res i (b+31)) - -instance - ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6 - , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12 - , FromSQL t13, FromSQL t14, FromSQL t15, FromSQL t16, FromSQL t17, FromSQL t18 - , FromSQL t19, FromSQL t20, FromSQL t21, FromSQL t22, FromSQL t23, FromSQL t24 - , FromSQL t25, FromSQL t26, FromSQL t27, FromSQL t28, FromSQL t29, FromSQL t30 - , FromSQL t31, FromSQL t32, FromSQL t33 - ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33) where - fromRow res err b i = withFormat $ \fmt -> - alloca $ \p0 -> alloca $ \p1 -> alloca $ \p2 -> alloca $ \p3 -> alloca $ \p4 -> - alloca $ \p5 -> alloca $ \p6 -> alloca $ \p7 -> alloca $ \p8 -> alloca $ \p9 -> - alloca $ \p10 -> alloca $ \p11 -> alloca $ \p12 -> alloca $ \p13 -> alloca $ \p14 -> - alloca $ \p15 -> alloca $ \p16 -> alloca $ \p17 -> alloca $ \p18 -> alloca $ \p19 -> - alloca $ \p20 -> alloca $ \p21 -> alloca $ \p22 -> alloca $ \p23 -> alloca $ \p24 -> - alloca $ \p25 -> alloca $ \p26 -> alloca $ \p27 -> alloca $ \p28 -> alloca $ \p29 -> - alloca $ \p30 -> alloca $ \p31 -> alloca $ \p32 -> do - verify err =<< c_PQgetf33 res err i fmt b p0 (b+1) p1 (b+2) p2 (b+3) p3 (b+4) p4 (b+5) p5 (b+6) p6 (b+7) p7 (b+8) p8 (b+9) p9 (b+10) p10 (b+11) p11 (b+12) p12 (b+13) p13 (b+14) p14 (b+15) p15 (b+16) p16 (b+17) p17 (b+18) p18 (b+19) p19 (b+20) p20 (b+21) p21 (b+22) p22 (b+23) p23 (b+24) p24 (b+25) p25 (b+26) p26 (b+27) p27 (b+28) p28 (b+29) p29 (b+30) p30 (b+31) p31 (b+32) p32 - (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) - <$> (peek p0 >>= convert res i b) <*> (peek p1 >>= convert res i (b+1)) - <*> (peek p2 >>= convert res i (b+2)) <*> (peek p3 >>= convert res i (b+3)) - <*> (peek p4 >>= convert res i (b+4)) <*> (peek p5 >>= convert res i (b+5)) - <*> (peek p6 >>= convert res i (b+6)) <*> (peek p7 >>= convert res i (b+7)) - <*> (peek p8 >>= convert res i (b+8)) <*> (peek p9 >>= convert res i (b+9)) - <*> (peek p10 >>= convert res i (b+10)) <*> (peek p11 >>= convert res i (b+11)) - <*> (peek p12 >>= convert res i (b+12)) <*> (peek p13 >>= convert res i (b+13)) - <*> (peek p14 >>= convert res i (b+14)) <*> (peek p15 >>= convert res i (b+15)) - <*> (peek p16 >>= convert res i (b+16)) <*> (peek p17 >>= convert res i (b+17)) - <*> (peek p18 >>= convert res i (b+18)) <*> (peek p19 >>= convert res i (b+19)) - <*> (peek p20 >>= convert res i (b+20)) <*> (peek p21 >>= convert res i (b+21)) - <*> (peek p22 >>= convert res i (b+22)) <*> (peek p23 >>= convert res i (b+23)) - <*> (peek p24 >>= convert res i (b+24)) <*> (peek p25 >>= convert res i (b+25)) - <*> (peek p26 >>= convert res i (b+26)) <*> (peek p27 >>= convert res i (b+27)) - <*> (peek p28 >>= convert res i (b+28)) <*> (peek p29 >>= convert res i (b+29)) - <*> (peek p30 >>= convert res i (b+30)) <*> (peek p31 >>= convert res i (b+31)) - <*> (peek p32 >>= convert res i (b+32)) - -instance - ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6 - , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12 - , FromSQL t13, FromSQL t14, FromSQL t15, FromSQL t16, FromSQL t17, FromSQL t18 - , FromSQL t19, FromSQL t20, FromSQL t21, FromSQL t22, FromSQL t23, FromSQL t24 - , FromSQL t25, FromSQL t26, FromSQL t27, FromSQL t28, FromSQL t29, FromSQL t30 - , FromSQL t31, FromSQL t32, FromSQL t33, FromSQL t34 - ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34) where - fromRow res err b i = withFormat $ \fmt -> - alloca $ \p0 -> alloca $ \p1 -> alloca $ \p2 -> alloca $ \p3 -> alloca $ \p4 -> - alloca $ \p5 -> alloca $ \p6 -> alloca $ \p7 -> alloca $ \p8 -> alloca $ \p9 -> - alloca $ \p10 -> alloca $ \p11 -> alloca $ \p12 -> alloca $ \p13 -> alloca $ \p14 -> - alloca $ \p15 -> alloca $ \p16 -> alloca $ \p17 -> alloca $ \p18 -> alloca $ \p19 -> - alloca $ \p20 -> alloca $ \p21 -> alloca $ \p22 -> alloca $ \p23 -> alloca $ \p24 -> - alloca $ \p25 -> alloca $ \p26 -> alloca $ \p27 -> alloca $ \p28 -> alloca $ \p29 -> - alloca $ \p30 -> alloca $ \p31 -> alloca $ \p32 -> alloca $ \p33 -> do - verify err =<< c_PQgetf34 res err i fmt b p0 (b+1) p1 (b+2) p2 (b+3) p3 (b+4) p4 (b+5) p5 (b+6) p6 (b+7) p7 (b+8) p8 (b+9) p9 (b+10) p10 (b+11) p11 (b+12) p12 (b+13) p13 (b+14) p14 (b+15) p15 (b+16) p16 (b+17) p17 (b+18) p18 (b+19) p19 (b+20) p20 (b+21) p21 (b+22) p22 (b+23) p23 (b+24) p24 (b+25) p25 (b+26) p26 (b+27) p27 (b+28) p28 (b+29) p29 (b+30) p30 (b+31) p31 (b+32) p32 (b+33) p33 - (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) - <$> (peek p0 >>= convert res i b) <*> (peek p1 >>= convert res i (b+1)) - <*> (peek p2 >>= convert res i (b+2)) <*> (peek p3 >>= convert res i (b+3)) - <*> (peek p4 >>= convert res i (b+4)) <*> (peek p5 >>= convert res i (b+5)) - <*> (peek p6 >>= convert res i (b+6)) <*> (peek p7 >>= convert res i (b+7)) - <*> (peek p8 >>= convert res i (b+8)) <*> (peek p9 >>= convert res i (b+9)) - <*> (peek p10 >>= convert res i (b+10)) <*> (peek p11 >>= convert res i (b+11)) - <*> (peek p12 >>= convert res i (b+12)) <*> (peek p13 >>= convert res i (b+13)) - <*> (peek p14 >>= convert res i (b+14)) <*> (peek p15 >>= convert res i (b+15)) - <*> (peek p16 >>= convert res i (b+16)) <*> (peek p17 >>= convert res i (b+17)) - <*> (peek p18 >>= convert res i (b+18)) <*> (peek p19 >>= convert res i (b+19)) - <*> (peek p20 >>= convert res i (b+20)) <*> (peek p21 >>= convert res i (b+21)) - <*> (peek p22 >>= convert res i (b+22)) <*> (peek p23 >>= convert res i (b+23)) - <*> (peek p24 >>= convert res i (b+24)) <*> (peek p25 >>= convert res i (b+25)) - <*> (peek p26 >>= convert res i (b+26)) <*> (peek p27 >>= convert res i (b+27)) - <*> (peek p28 >>= convert res i (b+28)) <*> (peek p29 >>= convert res i (b+29)) - <*> (peek p30 >>= convert res i (b+30)) <*> (peek p31 >>= convert res i (b+31)) - <*> (peek p32 >>= convert res i (b+32)) <*> (peek p33 >>= convert res i (b+33)) - -instance - ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6 - , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12 - , FromSQL t13, FromSQL t14, FromSQL t15, FromSQL t16, FromSQL t17, FromSQL t18 - , FromSQL t19, FromSQL t20, FromSQL t21, FromSQL t22, FromSQL t23, FromSQL t24 - , FromSQL t25, FromSQL t26, FromSQL t27, FromSQL t28, FromSQL t29, FromSQL t30 - , FromSQL t31, FromSQL t32, FromSQL t33, FromSQL t34, FromSQL t35 - ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35) where - fromRow res err b i = withFormat $ \fmt -> - alloca $ \p0 -> alloca $ \p1 -> alloca $ \p2 -> alloca $ \p3 -> alloca $ \p4 -> - alloca $ \p5 -> alloca $ \p6 -> alloca $ \p7 -> alloca $ \p8 -> alloca $ \p9 -> - alloca $ \p10 -> alloca $ \p11 -> alloca $ \p12 -> alloca $ \p13 -> alloca $ \p14 -> - alloca $ \p15 -> alloca $ \p16 -> alloca $ \p17 -> alloca $ \p18 -> alloca $ \p19 -> - alloca $ \p20 -> alloca $ \p21 -> alloca $ \p22 -> alloca $ \p23 -> alloca $ \p24 -> - alloca $ \p25 -> alloca $ \p26 -> alloca $ \p27 -> alloca $ \p28 -> alloca $ \p29 -> - alloca $ \p30 -> alloca $ \p31 -> alloca $ \p32 -> alloca $ \p33 -> alloca $ \p34 -> do - verify err =<< c_PQgetf35 res err i fmt b p0 (b+1) p1 (b+2) p2 (b+3) p3 (b+4) p4 (b+5) p5 (b+6) p6 (b+7) p7 (b+8) p8 (b+9) p9 (b+10) p10 (b+11) p11 (b+12) p12 (b+13) p13 (b+14) p14 (b+15) p15 (b+16) p16 (b+17) p17 (b+18) p18 (b+19) p19 (b+20) p20 (b+21) p21 (b+22) p22 (b+23) p23 (b+24) p24 (b+25) p25 (b+26) p26 (b+27) p27 (b+28) p28 (b+29) p29 (b+30) p30 (b+31) p31 (b+32) p32 (b+33) p33 (b+34) p34 - (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) - <$> (peek p0 >>= convert res i b) <*> (peek p1 >>= convert res i (b+1)) - <*> (peek p2 >>= convert res i (b+2)) <*> (peek p3 >>= convert res i (b+3)) - <*> (peek p4 >>= convert res i (b+4)) <*> (peek p5 >>= convert res i (b+5)) - <*> (peek p6 >>= convert res i (b+6)) <*> (peek p7 >>= convert res i (b+7)) - <*> (peek p8 >>= convert res i (b+8)) <*> (peek p9 >>= convert res i (b+9)) - <*> (peek p10 >>= convert res i (b+10)) <*> (peek p11 >>= convert res i (b+11)) - <*> (peek p12 >>= convert res i (b+12)) <*> (peek p13 >>= convert res i (b+13)) - <*> (peek p14 >>= convert res i (b+14)) <*> (peek p15 >>= convert res i (b+15)) - <*> (peek p16 >>= convert res i (b+16)) <*> (peek p17 >>= convert res i (b+17)) - <*> (peek p18 >>= convert res i (b+18)) <*> (peek p19 >>= convert res i (b+19)) - <*> (peek p20 >>= convert res i (b+20)) <*> (peek p21 >>= convert res i (b+21)) - <*> (peek p22 >>= convert res i (b+22)) <*> (peek p23 >>= convert res i (b+23)) - <*> (peek p24 >>= convert res i (b+24)) <*> (peek p25 >>= convert res i (b+25)) - <*> (peek p26 >>= convert res i (b+26)) <*> (peek p27 >>= convert res i (b+27)) - <*> (peek p28 >>= convert res i (b+28)) <*> (peek p29 >>= convert res i (b+29)) - <*> (peek p30 >>= convert res i (b+30)) <*> (peek p31 >>= convert res i (b+31)) - <*> (peek p32 >>= convert res i (b+32)) <*> (peek p33 >>= convert res i (b+33)) - <*> (peek p34 >>= convert res i (b+34)) - -instance - ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6 - , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12 - , FromSQL t13, FromSQL t14, FromSQL t15, FromSQL t16, FromSQL t17, FromSQL t18 - , FromSQL t19, FromSQL t20, FromSQL t21, FromSQL t22, FromSQL t23, FromSQL t24 - , FromSQL t25, FromSQL t26, FromSQL t27, FromSQL t28, FromSQL t29, FromSQL t30 - , FromSQL t31, FromSQL t32, FromSQL t33, FromSQL t34, FromSQL t35, FromSQL t36 - ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36) where - fromRow res err b i = withFormat $ \fmt -> - alloca $ \p0 -> alloca $ \p1 -> alloca $ \p2 -> alloca $ \p3 -> alloca $ \p4 -> - alloca $ \p5 -> alloca $ \p6 -> alloca $ \p7 -> alloca $ \p8 -> alloca $ \p9 -> - alloca $ \p10 -> alloca $ \p11 -> alloca $ \p12 -> alloca $ \p13 -> alloca $ \p14 -> - alloca $ \p15 -> alloca $ \p16 -> alloca $ \p17 -> alloca $ \p18 -> alloca $ \p19 -> - alloca $ \p20 -> alloca $ \p21 -> alloca $ \p22 -> alloca $ \p23 -> alloca $ \p24 -> - alloca $ \p25 -> alloca $ \p26 -> alloca $ \p27 -> alloca $ \p28 -> alloca $ \p29 -> - alloca $ \p30 -> alloca $ \p31 -> alloca $ \p32 -> alloca $ \p33 -> alloca $ \p34 -> - alloca $ \p35 -> do - verify err =<< c_PQgetf36 res err i fmt b p0 (b+1) p1 (b+2) p2 (b+3) p3 (b+4) p4 (b+5) p5 (b+6) p6 (b+7) p7 (b+8) p8 (b+9) p9 (b+10) p10 (b+11) p11 (b+12) p12 (b+13) p13 (b+14) p14 (b+15) p15 (b+16) p16 (b+17) p17 (b+18) p18 (b+19) p19 (b+20) p20 (b+21) p21 (b+22) p22 (b+23) p23 (b+24) p24 (b+25) p25 (b+26) p26 (b+27) p27 (b+28) p28 (b+29) p29 (b+30) p30 (b+31) p31 (b+32) p32 (b+33) p33 (b+34) p34 (b+35) p35 - (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) - <$> (peek p0 >>= convert res i b) <*> (peek p1 >>= convert res i (b+1)) - <*> (peek p2 >>= convert res i (b+2)) <*> (peek p3 >>= convert res i (b+3)) - <*> (peek p4 >>= convert res i (b+4)) <*> (peek p5 >>= convert res i (b+5)) - <*> (peek p6 >>= convert res i (b+6)) <*> (peek p7 >>= convert res i (b+7)) - <*> (peek p8 >>= convert res i (b+8)) <*> (peek p9 >>= convert res i (b+9)) - <*> (peek p10 >>= convert res i (b+10)) <*> (peek p11 >>= convert res i (b+11)) - <*> (peek p12 >>= convert res i (b+12)) <*> (peek p13 >>= convert res i (b+13)) - <*> (peek p14 >>= convert res i (b+14)) <*> (peek p15 >>= convert res i (b+15)) - <*> (peek p16 >>= convert res i (b+16)) <*> (peek p17 >>= convert res i (b+17)) - <*> (peek p18 >>= convert res i (b+18)) <*> (peek p19 >>= convert res i (b+19)) - <*> (peek p20 >>= convert res i (b+20)) <*> (peek p21 >>= convert res i (b+21)) - <*> (peek p22 >>= convert res i (b+22)) <*> (peek p23 >>= convert res i (b+23)) - <*> (peek p24 >>= convert res i (b+24)) <*> (peek p25 >>= convert res i (b+25)) - <*> (peek p26 >>= convert res i (b+26)) <*> (peek p27 >>= convert res i (b+27)) - <*> (peek p28 >>= convert res i (b+28)) <*> (peek p29 >>= convert res i (b+29)) - <*> (peek p30 >>= convert res i (b+30)) <*> (peek p31 >>= convert res i (b+31)) - <*> (peek p32 >>= convert res i (b+32)) <*> (peek p33 >>= convert res i (b+33)) - <*> (peek p34 >>= convert res i (b+34)) <*> (peek p35 >>= convert res i (b+35)) - -instance - ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6 - , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12 - , FromSQL t13, FromSQL t14, FromSQL t15, FromSQL t16, FromSQL t17, FromSQL t18 - , FromSQL t19, FromSQL t20, FromSQL t21, FromSQL t22, FromSQL t23, FromSQL t24 - , FromSQL t25, FromSQL t26, FromSQL t27, FromSQL t28, FromSQL t29, FromSQL t30 - , FromSQL t31, FromSQL t32, FromSQL t33, FromSQL t34, FromSQL t35, FromSQL t36 - , FromSQL t37 - ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36, t37) where - fromRow res err b i = withFormat $ \fmt -> - alloca $ \p0 -> alloca $ \p1 -> alloca $ \p2 -> alloca $ \p3 -> alloca $ \p4 -> - alloca $ \p5 -> alloca $ \p6 -> alloca $ \p7 -> alloca $ \p8 -> alloca $ \p9 -> - alloca $ \p10 -> alloca $ \p11 -> alloca $ \p12 -> alloca $ \p13 -> alloca $ \p14 -> - alloca $ \p15 -> alloca $ \p16 -> alloca $ \p17 -> alloca $ \p18 -> alloca $ \p19 -> - alloca $ \p20 -> alloca $ \p21 -> alloca $ \p22 -> alloca $ \p23 -> alloca $ \p24 -> - alloca $ \p25 -> alloca $ \p26 -> alloca $ \p27 -> alloca $ \p28 -> alloca $ \p29 -> - alloca $ \p30 -> alloca $ \p31 -> alloca $ \p32 -> alloca $ \p33 -> alloca $ \p34 -> - alloca $ \p35 -> alloca $ \p36 -> do - verify err =<< c_PQgetf37 res err i fmt b p0 (b+1) p1 (b+2) p2 (b+3) p3 (b+4) p4 (b+5) p5 (b+6) p6 (b+7) p7 (b+8) p8 (b+9) p9 (b+10) p10 (b+11) p11 (b+12) p12 (b+13) p13 (b+14) p14 (b+15) p15 (b+16) p16 (b+17) p17 (b+18) p18 (b+19) p19 (b+20) p20 (b+21) p21 (b+22) p22 (b+23) p23 (b+24) p24 (b+25) p25 (b+26) p26 (b+27) p27 (b+28) p28 (b+29) p29 (b+30) p30 (b+31) p31 (b+32) p32 (b+33) p33 (b+34) p34 (b+35) p35 (b+36) p36 - (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) - <$> (peek p0 >>= convert res i b) <*> (peek p1 >>= convert res i (b+1)) - <*> (peek p2 >>= convert res i (b+2)) <*> (peek p3 >>= convert res i (b+3)) - <*> (peek p4 >>= convert res i (b+4)) <*> (peek p5 >>= convert res i (b+5)) - <*> (peek p6 >>= convert res i (b+6)) <*> (peek p7 >>= convert res i (b+7)) - <*> (peek p8 >>= convert res i (b+8)) <*> (peek p9 >>= convert res i (b+9)) - <*> (peek p10 >>= convert res i (b+10)) <*> (peek p11 >>= convert res i (b+11)) - <*> (peek p12 >>= convert res i (b+12)) <*> (peek p13 >>= convert res i (b+13)) - <*> (peek p14 >>= convert res i (b+14)) <*> (peek p15 >>= convert res i (b+15)) - <*> (peek p16 >>= convert res i (b+16)) <*> (peek p17 >>= convert res i (b+17)) - <*> (peek p18 >>= convert res i (b+18)) <*> (peek p19 >>= convert res i (b+19)) - <*> (peek p20 >>= convert res i (b+20)) <*> (peek p21 >>= convert res i (b+21)) - <*> (peek p22 >>= convert res i (b+22)) <*> (peek p23 >>= convert res i (b+23)) - <*> (peek p24 >>= convert res i (b+24)) <*> (peek p25 >>= convert res i (b+25)) - <*> (peek p26 >>= convert res i (b+26)) <*> (peek p27 >>= convert res i (b+27)) - <*> (peek p28 >>= convert res i (b+28)) <*> (peek p29 >>= convert res i (b+29)) - <*> (peek p30 >>= convert res i (b+30)) <*> (peek p31 >>= convert res i (b+31)) - <*> (peek p32 >>= convert res i (b+32)) <*> (peek p33 >>= convert res i (b+33)) - <*> (peek p34 >>= convert res i (b+34)) <*> (peek p35 >>= convert res i (b+35)) - <*> (peek p36 >>= convert res i (b+36)) - -instance - ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6 - , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12 - , FromSQL t13, FromSQL t14, FromSQL t15, FromSQL t16, FromSQL t17, FromSQL t18 - , FromSQL t19, FromSQL t20, FromSQL t21, FromSQL t22, FromSQL t23, FromSQL t24 - , FromSQL t25, FromSQL t26, FromSQL t27, FromSQL t28, FromSQL t29, FromSQL t30 - , FromSQL t31, FromSQL t32, FromSQL t33, FromSQL t34, FromSQL t35, FromSQL t36 - , FromSQL t37, FromSQL t38 - ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38) where - fromRow res err b i = withFormat $ \fmt -> - alloca $ \p0 -> alloca $ \p1 -> alloca $ \p2 -> alloca $ \p3 -> alloca $ \p4 -> - alloca $ \p5 -> alloca $ \p6 -> alloca $ \p7 -> alloca $ \p8 -> alloca $ \p9 -> - alloca $ \p10 -> alloca $ \p11 -> alloca $ \p12 -> alloca $ \p13 -> alloca $ \p14 -> - alloca $ \p15 -> alloca $ \p16 -> alloca $ \p17 -> alloca $ \p18 -> alloca $ \p19 -> - alloca $ \p20 -> alloca $ \p21 -> alloca $ \p22 -> alloca $ \p23 -> alloca $ \p24 -> - alloca $ \p25 -> alloca $ \p26 -> alloca $ \p27 -> alloca $ \p28 -> alloca $ \p29 -> - alloca $ \p30 -> alloca $ \p31 -> alloca $ \p32 -> alloca $ \p33 -> alloca $ \p34 -> - alloca $ \p35 -> alloca $ \p36 -> alloca $ \p37 -> do - verify err =<< c_PQgetf38 res err i fmt b p0 (b+1) p1 (b+2) p2 (b+3) p3 (b+4) p4 (b+5) p5 (b+6) p6 (b+7) p7 (b+8) p8 (b+9) p9 (b+10) p10 (b+11) p11 (b+12) p12 (b+13) p13 (b+14) p14 (b+15) p15 (b+16) p16 (b+17) p17 (b+18) p18 (b+19) p19 (b+20) p20 (b+21) p21 (b+22) p22 (b+23) p23 (b+24) p24 (b+25) p25 (b+26) p26 (b+27) p27 (b+28) p28 (b+29) p29 (b+30) p30 (b+31) p31 (b+32) p32 (b+33) p33 (b+34) p34 (b+35) p35 (b+36) p36 (b+37) p37 - (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) - <$> (peek p0 >>= convert res i b) <*> (peek p1 >>= convert res i (b+1)) - <*> (peek p2 >>= convert res i (b+2)) <*> (peek p3 >>= convert res i (b+3)) - <*> (peek p4 >>= convert res i (b+4)) <*> (peek p5 >>= convert res i (b+5)) - <*> (peek p6 >>= convert res i (b+6)) <*> (peek p7 >>= convert res i (b+7)) - <*> (peek p8 >>= convert res i (b+8)) <*> (peek p9 >>= convert res i (b+9)) - <*> (peek p10 >>= convert res i (b+10)) <*> (peek p11 >>= convert res i (b+11)) - <*> (peek p12 >>= convert res i (b+12)) <*> (peek p13 >>= convert res i (b+13)) - <*> (peek p14 >>= convert res i (b+14)) <*> (peek p15 >>= convert res i (b+15)) - <*> (peek p16 >>= convert res i (b+16)) <*> (peek p17 >>= convert res i (b+17)) - <*> (peek p18 >>= convert res i (b+18)) <*> (peek p19 >>= convert res i (b+19)) - <*> (peek p20 >>= convert res i (b+20)) <*> (peek p21 >>= convert res i (b+21)) - <*> (peek p22 >>= convert res i (b+22)) <*> (peek p23 >>= convert res i (b+23)) - <*> (peek p24 >>= convert res i (b+24)) <*> (peek p25 >>= convert res i (b+25)) - <*> (peek p26 >>= convert res i (b+26)) <*> (peek p27 >>= convert res i (b+27)) - <*> (peek p28 >>= convert res i (b+28)) <*> (peek p29 >>= convert res i (b+29)) - <*> (peek p30 >>= convert res i (b+30)) <*> (peek p31 >>= convert res i (b+31)) - <*> (peek p32 >>= convert res i (b+32)) <*> (peek p33 >>= convert res i (b+33)) - <*> (peek p34 >>= convert res i (b+34)) <*> (peek p35 >>= convert res i (b+35)) - <*> (peek p36 >>= convert res i (b+36)) <*> (peek p37 >>= convert res i (b+37)) - -instance - ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6 - , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12 - , FromSQL t13, FromSQL t14, FromSQL t15, FromSQL t16, FromSQL t17, FromSQL t18 - , FromSQL t19, FromSQL t20, FromSQL t21, FromSQL t22, FromSQL t23, FromSQL t24 - , FromSQL t25, FromSQL t26, FromSQL t27, FromSQL t28, FromSQL t29, FromSQL t30 - , FromSQL t31, FromSQL t32, FromSQL t33, FromSQL t34, FromSQL t35, FromSQL t36 - , FromSQL t37, FromSQL t38, FromSQL t39 - ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39) where - fromRow res err b i = withFormat $ \fmt -> - alloca $ \p0 -> alloca $ \p1 -> alloca $ \p2 -> alloca $ \p3 -> alloca $ \p4 -> - alloca $ \p5 -> alloca $ \p6 -> alloca $ \p7 -> alloca $ \p8 -> alloca $ \p9 -> - alloca $ \p10 -> alloca $ \p11 -> alloca $ \p12 -> alloca $ \p13 -> alloca $ \p14 -> - alloca $ \p15 -> alloca $ \p16 -> alloca $ \p17 -> alloca $ \p18 -> alloca $ \p19 -> - alloca $ \p20 -> alloca $ \p21 -> alloca $ \p22 -> alloca $ \p23 -> alloca $ \p24 -> - alloca $ \p25 -> alloca $ \p26 -> alloca $ \p27 -> alloca $ \p28 -> alloca $ \p29 -> - alloca $ \p30 -> alloca $ \p31 -> alloca $ \p32 -> alloca $ \p33 -> alloca $ \p34 -> - alloca $ \p35 -> alloca $ \p36 -> alloca $ \p37 -> alloca $ \p38 -> do - verify err =<< c_PQgetf39 res err i fmt b p0 (b+1) p1 (b+2) p2 (b+3) p3 (b+4) p4 (b+5) p5 (b+6) p6 (b+7) p7 (b+8) p8 (b+9) p9 (b+10) p10 (b+11) p11 (b+12) p12 (b+13) p13 (b+14) p14 (b+15) p15 (b+16) p16 (b+17) p17 (b+18) p18 (b+19) p19 (b+20) p20 (b+21) p21 (b+22) p22 (b+23) p23 (b+24) p24 (b+25) p25 (b+26) p26 (b+27) p27 (b+28) p28 (b+29) p29 (b+30) p30 (b+31) p31 (b+32) p32 (b+33) p33 (b+34) p34 (b+35) p35 (b+36) p36 (b+37) p37 (b+38) p38 - (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) - <$> (peek p0 >>= convert res i b) <*> (peek p1 >>= convert res i (b+1)) - <*> (peek p2 >>= convert res i (b+2)) <*> (peek p3 >>= convert res i (b+3)) - <*> (peek p4 >>= convert res i (b+4)) <*> (peek p5 >>= convert res i (b+5)) - <*> (peek p6 >>= convert res i (b+6)) <*> (peek p7 >>= convert res i (b+7)) - <*> (peek p8 >>= convert res i (b+8)) <*> (peek p9 >>= convert res i (b+9)) - <*> (peek p10 >>= convert res i (b+10)) <*> (peek p11 >>= convert res i (b+11)) - <*> (peek p12 >>= convert res i (b+12)) <*> (peek p13 >>= convert res i (b+13)) - <*> (peek p14 >>= convert res i (b+14)) <*> (peek p15 >>= convert res i (b+15)) - <*> (peek p16 >>= convert res i (b+16)) <*> (peek p17 >>= convert res i (b+17)) - <*> (peek p18 >>= convert res i (b+18)) <*> (peek p19 >>= convert res i (b+19)) - <*> (peek p20 >>= convert res i (b+20)) <*> (peek p21 >>= convert res i (b+21)) - <*> (peek p22 >>= convert res i (b+22)) <*> (peek p23 >>= convert res i (b+23)) - <*> (peek p24 >>= convert res i (b+24)) <*> (peek p25 >>= convert res i (b+25)) - <*> (peek p26 >>= convert res i (b+26)) <*> (peek p27 >>= convert res i (b+27)) - <*> (peek p28 >>= convert res i (b+28)) <*> (peek p29 >>= convert res i (b+29)) - <*> (peek p30 >>= convert res i (b+30)) <*> (peek p31 >>= convert res i (b+31)) - <*> (peek p32 >>= convert res i (b+32)) <*> (peek p33 >>= convert res i (b+33)) - <*> (peek p34 >>= convert res i (b+34)) <*> (peek p35 >>= convert res i (b+35)) - <*> (peek p36 >>= convert res i (b+36)) <*> (peek p37 >>= convert res i (b+37)) - <*> (peek p38 >>= convert res i (b+38)) - -instance - ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6 - , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12 - , FromSQL t13, FromSQL t14, FromSQL t15, FromSQL t16, FromSQL t17, FromSQL t18 - , FromSQL t19, FromSQL t20, FromSQL t21, FromSQL t22, FromSQL t23, FromSQL t24 - , FromSQL t25, FromSQL t26, FromSQL t27, FromSQL t28, FromSQL t29, FromSQL t30 - , FromSQL t31, FromSQL t32, FromSQL t33, FromSQL t34, FromSQL t35, FromSQL t36 - , FromSQL t37, FromSQL t38, FromSQL t39, FromSQL t40 - ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40) where - fromRow res err b i = withFormat $ \fmt -> - alloca $ \p0 -> alloca $ \p1 -> alloca $ \p2 -> alloca $ \p3 -> alloca $ \p4 -> - alloca $ \p5 -> alloca $ \p6 -> alloca $ \p7 -> alloca $ \p8 -> alloca $ \p9 -> - alloca $ \p10 -> alloca $ \p11 -> alloca $ \p12 -> alloca $ \p13 -> alloca $ \p14 -> - alloca $ \p15 -> alloca $ \p16 -> alloca $ \p17 -> alloca $ \p18 -> alloca $ \p19 -> - alloca $ \p20 -> alloca $ \p21 -> alloca $ \p22 -> alloca $ \p23 -> alloca $ \p24 -> - alloca $ \p25 -> alloca $ \p26 -> alloca $ \p27 -> alloca $ \p28 -> alloca $ \p29 -> - alloca $ \p30 -> alloca $ \p31 -> alloca $ \p32 -> alloca $ \p33 -> alloca $ \p34 -> - alloca $ \p35 -> alloca $ \p36 -> alloca $ \p37 -> alloca $ \p38 -> alloca $ \p39 -> do - verify err =<< c_PQgetf40 res err i fmt b p0 (b+1) p1 (b+2) p2 (b+3) p3 (b+4) p4 (b+5) p5 (b+6) p6 (b+7) p7 (b+8) p8 (b+9) p9 (b+10) p10 (b+11) p11 (b+12) p12 (b+13) p13 (b+14) p14 (b+15) p15 (b+16) p16 (b+17) p17 (b+18) p18 (b+19) p19 (b+20) p20 (b+21) p21 (b+22) p22 (b+23) p23 (b+24) p24 (b+25) p25 (b+26) p26 (b+27) p27 (b+28) p28 (b+29) p29 (b+30) p30 (b+31) p31 (b+32) p32 (b+33) p33 (b+34) p34 (b+35) p35 (b+36) p36 (b+37) p37 (b+38) p38 (b+39) p39 - (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) - <$> (peek p0 >>= convert res i b) <*> (peek p1 >>= convert res i (b+1)) - <*> (peek p2 >>= convert res i (b+2)) <*> (peek p3 >>= convert res i (b+3)) - <*> (peek p4 >>= convert res i (b+4)) <*> (peek p5 >>= convert res i (b+5)) - <*> (peek p6 >>= convert res i (b+6)) <*> (peek p7 >>= convert res i (b+7)) - <*> (peek p8 >>= convert res i (b+8)) <*> (peek p9 >>= convert res i (b+9)) - <*> (peek p10 >>= convert res i (b+10)) <*> (peek p11 >>= convert res i (b+11)) - <*> (peek p12 >>= convert res i (b+12)) <*> (peek p13 >>= convert res i (b+13)) - <*> (peek p14 >>= convert res i (b+14)) <*> (peek p15 >>= convert res i (b+15)) - <*> (peek p16 >>= convert res i (b+16)) <*> (peek p17 >>= convert res i (b+17)) - <*> (peek p18 >>= convert res i (b+18)) <*> (peek p19 >>= convert res i (b+19)) - <*> (peek p20 >>= convert res i (b+20)) <*> (peek p21 >>= convert res i (b+21)) - <*> (peek p22 >>= convert res i (b+22)) <*> (peek p23 >>= convert res i (b+23)) - <*> (peek p24 >>= convert res i (b+24)) <*> (peek p25 >>= convert res i (b+25)) - <*> (peek p26 >>= convert res i (b+26)) <*> (peek p27 >>= convert res i (b+27)) - <*> (peek p28 >>= convert res i (b+28)) <*> (peek p29 >>= convert res i (b+29)) - <*> (peek p30 >>= convert res i (b+30)) <*> (peek p31 >>= convert res i (b+31)) - <*> (peek p32 >>= convert res i (b+32)) <*> (peek p33 >>= convert res i (b+33)) - <*> (peek p34 >>= convert res i (b+34)) <*> (peek p35 >>= convert res i (b+35)) - <*> (peek p36 >>= convert res i (b+36)) <*> (peek p37 >>= convert res i (b+37)) - <*> (peek p38 >>= convert res i (b+38)) <*> (peek p39 >>= convert res i (b+39)) - -instance - ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6 - , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12 - , FromSQL t13, FromSQL t14, FromSQL t15, FromSQL t16, FromSQL t17, FromSQL t18 - , FromSQL t19, FromSQL t20, FromSQL t21, FromSQL t22, FromSQL t23, FromSQL t24 - , FromSQL t25, FromSQL t26, FromSQL t27, FromSQL t28, FromSQL t29, FromSQL t30 - , FromSQL t31, FromSQL t32, FromSQL t33, FromSQL t34, FromSQL t35, FromSQL t36 - , FromSQL t37, FromSQL t38, FromSQL t39, FromSQL t40, FromSQL t41 - ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41) where - fromRow res err b i = withFormat $ \fmt -> - alloca $ \p0 -> alloca $ \p1 -> alloca $ \p2 -> alloca $ \p3 -> alloca $ \p4 -> - alloca $ \p5 -> alloca $ \p6 -> alloca $ \p7 -> alloca $ \p8 -> alloca $ \p9 -> - alloca $ \p10 -> alloca $ \p11 -> alloca $ \p12 -> alloca $ \p13 -> alloca $ \p14 -> - alloca $ \p15 -> alloca $ \p16 -> alloca $ \p17 -> alloca $ \p18 -> alloca $ \p19 -> - alloca $ \p20 -> alloca $ \p21 -> alloca $ \p22 -> alloca $ \p23 -> alloca $ \p24 -> - alloca $ \p25 -> alloca $ \p26 -> alloca $ \p27 -> alloca $ \p28 -> alloca $ \p29 -> - alloca $ \p30 -> alloca $ \p31 -> alloca $ \p32 -> alloca $ \p33 -> alloca $ \p34 -> - alloca $ \p35 -> alloca $ \p36 -> alloca $ \p37 -> alloca $ \p38 -> alloca $ \p39 -> - alloca $ \p40 -> do - verify err =<< c_PQgetf41 res err i fmt b p0 (b+1) p1 (b+2) p2 (b+3) p3 (b+4) p4 (b+5) p5 (b+6) p6 (b+7) p7 (b+8) p8 (b+9) p9 (b+10) p10 (b+11) p11 (b+12) p12 (b+13) p13 (b+14) p14 (b+15) p15 (b+16) p16 (b+17) p17 (b+18) p18 (b+19) p19 (b+20) p20 (b+21) p21 (b+22) p22 (b+23) p23 (b+24) p24 (b+25) p25 (b+26) p26 (b+27) p27 (b+28) p28 (b+29) p29 (b+30) p30 (b+31) p31 (b+32) p32 (b+33) p33 (b+34) p34 (b+35) p35 (b+36) p36 (b+37) p37 (b+38) p38 (b+39) p39 (b+40) p40 - (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) - <$> (peek p0 >>= convert res i b) <*> (peek p1 >>= convert res i (b+1)) - <*> (peek p2 >>= convert res i (b+2)) <*> (peek p3 >>= convert res i (b+3)) - <*> (peek p4 >>= convert res i (b+4)) <*> (peek p5 >>= convert res i (b+5)) - <*> (peek p6 >>= convert res i (b+6)) <*> (peek p7 >>= convert res i (b+7)) - <*> (peek p8 >>= convert res i (b+8)) <*> (peek p9 >>= convert res i (b+9)) - <*> (peek p10 >>= convert res i (b+10)) <*> (peek p11 >>= convert res i (b+11)) - <*> (peek p12 >>= convert res i (b+12)) <*> (peek p13 >>= convert res i (b+13)) - <*> (peek p14 >>= convert res i (b+14)) <*> (peek p15 >>= convert res i (b+15)) - <*> (peek p16 >>= convert res i (b+16)) <*> (peek p17 >>= convert res i (b+17)) - <*> (peek p18 >>= convert res i (b+18)) <*> (peek p19 >>= convert res i (b+19)) - <*> (peek p20 >>= convert res i (b+20)) <*> (peek p21 >>= convert res i (b+21)) - <*> (peek p22 >>= convert res i (b+22)) <*> (peek p23 >>= convert res i (b+23)) - <*> (peek p24 >>= convert res i (b+24)) <*> (peek p25 >>= convert res i (b+25)) - <*> (peek p26 >>= convert res i (b+26)) <*> (peek p27 >>= convert res i (b+27)) - <*> (peek p28 >>= convert res i (b+28)) <*> (peek p29 >>= convert res i (b+29)) - <*> (peek p30 >>= convert res i (b+30)) <*> (peek p31 >>= convert res i (b+31)) - <*> (peek p32 >>= convert res i (b+32)) <*> (peek p33 >>= convert res i (b+33)) - <*> (peek p34 >>= convert res i (b+34)) <*> (peek p35 >>= convert res i (b+35)) - <*> (peek p36 >>= convert res i (b+36)) <*> (peek p37 >>= convert res i (b+37)) - <*> (peek p38 >>= convert res i (b+38)) <*> (peek p39 >>= convert res i (b+39)) - <*> (peek p40 >>= convert res i (b+40)) - -instance - ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6 - , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12 - , FromSQL t13, FromSQL t14, FromSQL t15, FromSQL t16, FromSQL t17, FromSQL t18 - , FromSQL t19, FromSQL t20, FromSQL t21, FromSQL t22, FromSQL t23, FromSQL t24 - , FromSQL t25, FromSQL t26, FromSQL t27, FromSQL t28, FromSQL t29, FromSQL t30 - , FromSQL t31, FromSQL t32, FromSQL t33, FromSQL t34, FromSQL t35, FromSQL t36 - , FromSQL t37, FromSQL t38, FromSQL t39, FromSQL t40, FromSQL t41, FromSQL t42 - ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41, t42) where - fromRow res err b i = withFormat $ \fmt -> - alloca $ \p0 -> alloca $ \p1 -> alloca $ \p2 -> alloca $ \p3 -> alloca $ \p4 -> - alloca $ \p5 -> alloca $ \p6 -> alloca $ \p7 -> alloca $ \p8 -> alloca $ \p9 -> - alloca $ \p10 -> alloca $ \p11 -> alloca $ \p12 -> alloca $ \p13 -> alloca $ \p14 -> - alloca $ \p15 -> alloca $ \p16 -> alloca $ \p17 -> alloca $ \p18 -> alloca $ \p19 -> - alloca $ \p20 -> alloca $ \p21 -> alloca $ \p22 -> alloca $ \p23 -> alloca $ \p24 -> - alloca $ \p25 -> alloca $ \p26 -> alloca $ \p27 -> alloca $ \p28 -> alloca $ \p29 -> - alloca $ \p30 -> alloca $ \p31 -> alloca $ \p32 -> alloca $ \p33 -> alloca $ \p34 -> - alloca $ \p35 -> alloca $ \p36 -> alloca $ \p37 -> alloca $ \p38 -> alloca $ \p39 -> - alloca $ \p40 -> alloca $ \p41 -> do - verify err =<< c_PQgetf42 res err i fmt b p0 (b+1) p1 (b+2) p2 (b+3) p3 (b+4) p4 (b+5) p5 (b+6) p6 (b+7) p7 (b+8) p8 (b+9) p9 (b+10) p10 (b+11) p11 (b+12) p12 (b+13) p13 (b+14) p14 (b+15) p15 (b+16) p16 (b+17) p17 (b+18) p18 (b+19) p19 (b+20) p20 (b+21) p21 (b+22) p22 (b+23) p23 (b+24) p24 (b+25) p25 (b+26) p26 (b+27) p27 (b+28) p28 (b+29) p29 (b+30) p30 (b+31) p31 (b+32) p32 (b+33) p33 (b+34) p34 (b+35) p35 (b+36) p36 (b+37) p37 (b+38) p38 (b+39) p39 (b+40) p40 (b+41) p41 - (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) - <$> (peek p0 >>= convert res i b) <*> (peek p1 >>= convert res i (b+1)) - <*> (peek p2 >>= convert res i (b+2)) <*> (peek p3 >>= convert res i (b+3)) - <*> (peek p4 >>= convert res i (b+4)) <*> (peek p5 >>= convert res i (b+5)) - <*> (peek p6 >>= convert res i (b+6)) <*> (peek p7 >>= convert res i (b+7)) - <*> (peek p8 >>= convert res i (b+8)) <*> (peek p9 >>= convert res i (b+9)) - <*> (peek p10 >>= convert res i (b+10)) <*> (peek p11 >>= convert res i (b+11)) - <*> (peek p12 >>= convert res i (b+12)) <*> (peek p13 >>= convert res i (b+13)) - <*> (peek p14 >>= convert res i (b+14)) <*> (peek p15 >>= convert res i (b+15)) - <*> (peek p16 >>= convert res i (b+16)) <*> (peek p17 >>= convert res i (b+17)) - <*> (peek p18 >>= convert res i (b+18)) <*> (peek p19 >>= convert res i (b+19)) - <*> (peek p20 >>= convert res i (b+20)) <*> (peek p21 >>= convert res i (b+21)) - <*> (peek p22 >>= convert res i (b+22)) <*> (peek p23 >>= convert res i (b+23)) - <*> (peek p24 >>= convert res i (b+24)) <*> (peek p25 >>= convert res i (b+25)) - <*> (peek p26 >>= convert res i (b+26)) <*> (peek p27 >>= convert res i (b+27)) - <*> (peek p28 >>= convert res i (b+28)) <*> (peek p29 >>= convert res i (b+29)) - <*> (peek p30 >>= convert res i (b+30)) <*> (peek p31 >>= convert res i (b+31)) - <*> (peek p32 >>= convert res i (b+32)) <*> (peek p33 >>= convert res i (b+33)) - <*> (peek p34 >>= convert res i (b+34)) <*> (peek p35 >>= convert res i (b+35)) - <*> (peek p36 >>= convert res i (b+36)) <*> (peek p37 >>= convert res i (b+37)) - <*> (peek p38 >>= convert res i (b+38)) <*> (peek p39 >>= convert res i (b+39)) - <*> (peek p40 >>= convert res i (b+40)) <*> (peek p41 >>= convert res i (b+41)) - -instance - ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6 - , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12 - , FromSQL t13, FromSQL t14, FromSQL t15, FromSQL t16, FromSQL t17, FromSQL t18 - , FromSQL t19, FromSQL t20, FromSQL t21, FromSQL t22, FromSQL t23, FromSQL t24 - , FromSQL t25, FromSQL t26, FromSQL t27, FromSQL t28, FromSQL t29, FromSQL t30 - , FromSQL t31, FromSQL t32, FromSQL t33, FromSQL t34, FromSQL t35, FromSQL t36 - , FromSQL t37, FromSQL t38, FromSQL t39, FromSQL t40, FromSQL t41, FromSQL t42 - , FromSQL t43 - ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41, t42, t43) where - fromRow res err b i = withFormat $ \fmt -> - alloca $ \p0 -> alloca $ \p1 -> alloca $ \p2 -> alloca $ \p3 -> alloca $ \p4 -> - alloca $ \p5 -> alloca $ \p6 -> alloca $ \p7 -> alloca $ \p8 -> alloca $ \p9 -> - alloca $ \p10 -> alloca $ \p11 -> alloca $ \p12 -> alloca $ \p13 -> alloca $ \p14 -> - alloca $ \p15 -> alloca $ \p16 -> alloca $ \p17 -> alloca $ \p18 -> alloca $ \p19 -> - alloca $ \p20 -> alloca $ \p21 -> alloca $ \p22 -> alloca $ \p23 -> alloca $ \p24 -> - alloca $ \p25 -> alloca $ \p26 -> alloca $ \p27 -> alloca $ \p28 -> alloca $ \p29 -> - alloca $ \p30 -> alloca $ \p31 -> alloca $ \p32 -> alloca $ \p33 -> alloca $ \p34 -> - alloca $ \p35 -> alloca $ \p36 -> alloca $ \p37 -> alloca $ \p38 -> alloca $ \p39 -> - alloca $ \p40 -> alloca $ \p41 -> alloca $ \p42 -> do - verify err =<< c_PQgetf43 res err i fmt b p0 (b+1) p1 (b+2) p2 (b+3) p3 (b+4) p4 (b+5) p5 (b+6) p6 (b+7) p7 (b+8) p8 (b+9) p9 (b+10) p10 (b+11) p11 (b+12) p12 (b+13) p13 (b+14) p14 (b+15) p15 (b+16) p16 (b+17) p17 (b+18) p18 (b+19) p19 (b+20) p20 (b+21) p21 (b+22) p22 (b+23) p23 (b+24) p24 (b+25) p25 (b+26) p26 (b+27) p27 (b+28) p28 (b+29) p29 (b+30) p30 (b+31) p31 (b+32) p32 (b+33) p33 (b+34) p34 (b+35) p35 (b+36) p36 (b+37) p37 (b+38) p38 (b+39) p39 (b+40) p40 (b+41) p41 (b+42) p42 - (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) - <$> (peek p0 >>= convert res i b) <*> (peek p1 >>= convert res i (b+1)) - <*> (peek p2 >>= convert res i (b+2)) <*> (peek p3 >>= convert res i (b+3)) - <*> (peek p4 >>= convert res i (b+4)) <*> (peek p5 >>= convert res i (b+5)) - <*> (peek p6 >>= convert res i (b+6)) <*> (peek p7 >>= convert res i (b+7)) - <*> (peek p8 >>= convert res i (b+8)) <*> (peek p9 >>= convert res i (b+9)) - <*> (peek p10 >>= convert res i (b+10)) <*> (peek p11 >>= convert res i (b+11)) - <*> (peek p12 >>= convert res i (b+12)) <*> (peek p13 >>= convert res i (b+13)) - <*> (peek p14 >>= convert res i (b+14)) <*> (peek p15 >>= convert res i (b+15)) - <*> (peek p16 >>= convert res i (b+16)) <*> (peek p17 >>= convert res i (b+17)) - <*> (peek p18 >>= convert res i (b+18)) <*> (peek p19 >>= convert res i (b+19)) - <*> (peek p20 >>= convert res i (b+20)) <*> (peek p21 >>= convert res i (b+21)) - <*> (peek p22 >>= convert res i (b+22)) <*> (peek p23 >>= convert res i (b+23)) - <*> (peek p24 >>= convert res i (b+24)) <*> (peek p25 >>= convert res i (b+25)) - <*> (peek p26 >>= convert res i (b+26)) <*> (peek p27 >>= convert res i (b+27)) - <*> (peek p28 >>= convert res i (b+28)) <*> (peek p29 >>= convert res i (b+29)) - <*> (peek p30 >>= convert res i (b+30)) <*> (peek p31 >>= convert res i (b+31)) - <*> (peek p32 >>= convert res i (b+32)) <*> (peek p33 >>= convert res i (b+33)) - <*> (peek p34 >>= convert res i (b+34)) <*> (peek p35 >>= convert res i (b+35)) - <*> (peek p36 >>= convert res i (b+36)) <*> (peek p37 >>= convert res i (b+37)) - <*> (peek p38 >>= convert res i (b+38)) <*> (peek p39 >>= convert res i (b+39)) - <*> (peek p40 >>= convert res i (b+40)) <*> (peek p41 >>= convert res i (b+41)) - <*> (peek p42 >>= convert res i (b+42)) - -instance - ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6 - , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12 - , FromSQL t13, FromSQL t14, FromSQL t15, FromSQL t16, FromSQL t17, FromSQL t18 - , FromSQL t19, FromSQL t20, FromSQL t21, FromSQL t22, FromSQL t23, FromSQL t24 - , FromSQL t25, FromSQL t26, FromSQL t27, FromSQL t28, FromSQL t29, FromSQL t30 - , FromSQL t31, FromSQL t32, FromSQL t33, FromSQL t34, FromSQL t35, FromSQL t36 - , FromSQL t37, FromSQL t38, FromSQL t39, FromSQL t40, FromSQL t41, FromSQL t42 - , FromSQL t43, FromSQL t44 - ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41, t42, t43, t44) where - fromRow res err b i = withFormat $ \fmt -> - alloca $ \p0 -> alloca $ \p1 -> alloca $ \p2 -> alloca $ \p3 -> alloca $ \p4 -> - alloca $ \p5 -> alloca $ \p6 -> alloca $ \p7 -> alloca $ \p8 -> alloca $ \p9 -> - alloca $ \p10 -> alloca $ \p11 -> alloca $ \p12 -> alloca $ \p13 -> alloca $ \p14 -> - alloca $ \p15 -> alloca $ \p16 -> alloca $ \p17 -> alloca $ \p18 -> alloca $ \p19 -> - alloca $ \p20 -> alloca $ \p21 -> alloca $ \p22 -> alloca $ \p23 -> alloca $ \p24 -> - alloca $ \p25 -> alloca $ \p26 -> alloca $ \p27 -> alloca $ \p28 -> alloca $ \p29 -> - alloca $ \p30 -> alloca $ \p31 -> alloca $ \p32 -> alloca $ \p33 -> alloca $ \p34 -> - alloca $ \p35 -> alloca $ \p36 -> alloca $ \p37 -> alloca $ \p38 -> alloca $ \p39 -> - alloca $ \p40 -> alloca $ \p41 -> alloca $ \p42 -> alloca $ \p43 -> do - verify err =<< c_PQgetf44 res err i fmt b p0 (b+1) p1 (b+2) p2 (b+3) p3 (b+4) p4 (b+5) p5 (b+6) p6 (b+7) p7 (b+8) p8 (b+9) p9 (b+10) p10 (b+11) p11 (b+12) p12 (b+13) p13 (b+14) p14 (b+15) p15 (b+16) p16 (b+17) p17 (b+18) p18 (b+19) p19 (b+20) p20 (b+21) p21 (b+22) p22 (b+23) p23 (b+24) p24 (b+25) p25 (b+26) p26 (b+27) p27 (b+28) p28 (b+29) p29 (b+30) p30 (b+31) p31 (b+32) p32 (b+33) p33 (b+34) p34 (b+35) p35 (b+36) p36 (b+37) p37 (b+38) p38 (b+39) p39 (b+40) p40 (b+41) p41 (b+42) p42 (b+43) p43 - (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) - <$> (peek p0 >>= convert res i b) <*> (peek p1 >>= convert res i (b+1)) - <*> (peek p2 >>= convert res i (b+2)) <*> (peek p3 >>= convert res i (b+3)) - <*> (peek p4 >>= convert res i (b+4)) <*> (peek p5 >>= convert res i (b+5)) - <*> (peek p6 >>= convert res i (b+6)) <*> (peek p7 >>= convert res i (b+7)) - <*> (peek p8 >>= convert res i (b+8)) <*> (peek p9 >>= convert res i (b+9)) - <*> (peek p10 >>= convert res i (b+10)) <*> (peek p11 >>= convert res i (b+11)) - <*> (peek p12 >>= convert res i (b+12)) <*> (peek p13 >>= convert res i (b+13)) - <*> (peek p14 >>= convert res i (b+14)) <*> (peek p15 >>= convert res i (b+15)) - <*> (peek p16 >>= convert res i (b+16)) <*> (peek p17 >>= convert res i (b+17)) - <*> (peek p18 >>= convert res i (b+18)) <*> (peek p19 >>= convert res i (b+19)) - <*> (peek p20 >>= convert res i (b+20)) <*> (peek p21 >>= convert res i (b+21)) - <*> (peek p22 >>= convert res i (b+22)) <*> (peek p23 >>= convert res i (b+23)) - <*> (peek p24 >>= convert res i (b+24)) <*> (peek p25 >>= convert res i (b+25)) - <*> (peek p26 >>= convert res i (b+26)) <*> (peek p27 >>= convert res i (b+27)) - <*> (peek p28 >>= convert res i (b+28)) <*> (peek p29 >>= convert res i (b+29)) - <*> (peek p30 >>= convert res i (b+30)) <*> (peek p31 >>= convert res i (b+31)) - <*> (peek p32 >>= convert res i (b+32)) <*> (peek p33 >>= convert res i (b+33)) - <*> (peek p34 >>= convert res i (b+34)) <*> (peek p35 >>= convert res i (b+35)) - <*> (peek p36 >>= convert res i (b+36)) <*> (peek p37 >>= convert res i (b+37)) - <*> (peek p38 >>= convert res i (b+38)) <*> (peek p39 >>= convert res i (b+39)) - <*> (peek p40 >>= convert res i (b+40)) <*> (peek p41 >>= convert res i (b+41)) - <*> (peek p42 >>= convert res i (b+42)) <*> (peek p43 >>= convert res i (b+43)) - -instance - ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6 - , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12 - , FromSQL t13, FromSQL t14, FromSQL t15, FromSQL t16, FromSQL t17, FromSQL t18 - , FromSQL t19, FromSQL t20, FromSQL t21, FromSQL t22, FromSQL t23, FromSQL t24 - , FromSQL t25, FromSQL t26, FromSQL t27, FromSQL t28, FromSQL t29, FromSQL t30 - , FromSQL t31, FromSQL t32, FromSQL t33, FromSQL t34, FromSQL t35, FromSQL t36 - , FromSQL t37, FromSQL t38, FromSQL t39, FromSQL t40, FromSQL t41, FromSQL t42 - , FromSQL t43, FromSQL t44, FromSQL t45 - ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41, t42, t43, t44, t45) where - fromRow res err b i = withFormat $ \fmt -> - alloca $ \p0 -> alloca $ \p1 -> alloca $ \p2 -> alloca $ \p3 -> alloca $ \p4 -> - alloca $ \p5 -> alloca $ \p6 -> alloca $ \p7 -> alloca $ \p8 -> alloca $ \p9 -> - alloca $ \p10 -> alloca $ \p11 -> alloca $ \p12 -> alloca $ \p13 -> alloca $ \p14 -> - alloca $ \p15 -> alloca $ \p16 -> alloca $ \p17 -> alloca $ \p18 -> alloca $ \p19 -> - alloca $ \p20 -> alloca $ \p21 -> alloca $ \p22 -> alloca $ \p23 -> alloca $ \p24 -> - alloca $ \p25 -> alloca $ \p26 -> alloca $ \p27 -> alloca $ \p28 -> alloca $ \p29 -> - alloca $ \p30 -> alloca $ \p31 -> alloca $ \p32 -> alloca $ \p33 -> alloca $ \p34 -> - alloca $ \p35 -> alloca $ \p36 -> alloca $ \p37 -> alloca $ \p38 -> alloca $ \p39 -> - alloca $ \p40 -> alloca $ \p41 -> alloca $ \p42 -> alloca $ \p43 -> alloca $ \p44 -> do - verify err =<< c_PQgetf45 res err i fmt b p0 (b+1) p1 (b+2) p2 (b+3) p3 (b+4) p4 (b+5) p5 (b+6) p6 (b+7) p7 (b+8) p8 (b+9) p9 (b+10) p10 (b+11) p11 (b+12) p12 (b+13) p13 (b+14) p14 (b+15) p15 (b+16) p16 (b+17) p17 (b+18) p18 (b+19) p19 (b+20) p20 (b+21) p21 (b+22) p22 (b+23) p23 (b+24) p24 (b+25) p25 (b+26) p26 (b+27) p27 (b+28) p28 (b+29) p29 (b+30) p30 (b+31) p31 (b+32) p32 (b+33) p33 (b+34) p34 (b+35) p35 (b+36) p36 (b+37) p37 (b+38) p38 (b+39) p39 (b+40) p40 (b+41) p41 (b+42) p42 (b+43) p43 (b+44) p44 - (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) - <$> (peek p0 >>= convert res i b) <*> (peek p1 >>= convert res i (b+1)) - <*> (peek p2 >>= convert res i (b+2)) <*> (peek p3 >>= convert res i (b+3)) - <*> (peek p4 >>= convert res i (b+4)) <*> (peek p5 >>= convert res i (b+5)) - <*> (peek p6 >>= convert res i (b+6)) <*> (peek p7 >>= convert res i (b+7)) - <*> (peek p8 >>= convert res i (b+8)) <*> (peek p9 >>= convert res i (b+9)) - <*> (peek p10 >>= convert res i (b+10)) <*> (peek p11 >>= convert res i (b+11)) - <*> (peek p12 >>= convert res i (b+12)) <*> (peek p13 >>= convert res i (b+13)) - <*> (peek p14 >>= convert res i (b+14)) <*> (peek p15 >>= convert res i (b+15)) - <*> (peek p16 >>= convert res i (b+16)) <*> (peek p17 >>= convert res i (b+17)) - <*> (peek p18 >>= convert res i (b+18)) <*> (peek p19 >>= convert res i (b+19)) - <*> (peek p20 >>= convert res i (b+20)) <*> (peek p21 >>= convert res i (b+21)) - <*> (peek p22 >>= convert res i (b+22)) <*> (peek p23 >>= convert res i (b+23)) - <*> (peek p24 >>= convert res i (b+24)) <*> (peek p25 >>= convert res i (b+25)) - <*> (peek p26 >>= convert res i (b+26)) <*> (peek p27 >>= convert res i (b+27)) - <*> (peek p28 >>= convert res i (b+28)) <*> (peek p29 >>= convert res i (b+29)) - <*> (peek p30 >>= convert res i (b+30)) <*> (peek p31 >>= convert res i (b+31)) - <*> (peek p32 >>= convert res i (b+32)) <*> (peek p33 >>= convert res i (b+33)) - <*> (peek p34 >>= convert res i (b+34)) <*> (peek p35 >>= convert res i (b+35)) - <*> (peek p36 >>= convert res i (b+36)) <*> (peek p37 >>= convert res i (b+37)) - <*> (peek p38 >>= convert res i (b+38)) <*> (peek p39 >>= convert res i (b+39)) - <*> (peek p40 >>= convert res i (b+40)) <*> (peek p41 >>= convert res i (b+41)) - <*> (peek p42 >>= convert res i (b+42)) <*> (peek p43 >>= convert res i (b+43)) - <*> (peek p44 >>= convert res i (b+44)) - -instance - ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6 - , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12 - , FromSQL t13, FromSQL t14, FromSQL t15, FromSQL t16, FromSQL t17, FromSQL t18 - , FromSQL t19, FromSQL t20, FromSQL t21, FromSQL t22, FromSQL t23, FromSQL t24 - , FromSQL t25, FromSQL t26, FromSQL t27, FromSQL t28, FromSQL t29, FromSQL t30 - , FromSQL t31, FromSQL t32, FromSQL t33, FromSQL t34, FromSQL t35, FromSQL t36 - , FromSQL t37, FromSQL t38, FromSQL t39, FromSQL t40, FromSQL t41, FromSQL t42 - , FromSQL t43, FromSQL t44, FromSQL t45, FromSQL t46 - ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41, t42, t43, t44, t45, t46) where - fromRow res err b i = withFormat $ \fmt -> - alloca $ \p0 -> alloca $ \p1 -> alloca $ \p2 -> alloca $ \p3 -> alloca $ \p4 -> - alloca $ \p5 -> alloca $ \p6 -> alloca $ \p7 -> alloca $ \p8 -> alloca $ \p9 -> - alloca $ \p10 -> alloca $ \p11 -> alloca $ \p12 -> alloca $ \p13 -> alloca $ \p14 -> - alloca $ \p15 -> alloca $ \p16 -> alloca $ \p17 -> alloca $ \p18 -> alloca $ \p19 -> - alloca $ \p20 -> alloca $ \p21 -> alloca $ \p22 -> alloca $ \p23 -> alloca $ \p24 -> - alloca $ \p25 -> alloca $ \p26 -> alloca $ \p27 -> alloca $ \p28 -> alloca $ \p29 -> - alloca $ \p30 -> alloca $ \p31 -> alloca $ \p32 -> alloca $ \p33 -> alloca $ \p34 -> - alloca $ \p35 -> alloca $ \p36 -> alloca $ \p37 -> alloca $ \p38 -> alloca $ \p39 -> - alloca $ \p40 -> alloca $ \p41 -> alloca $ \p42 -> alloca $ \p43 -> alloca $ \p44 -> - alloca $ \p45 -> do - verify err =<< c_PQgetf46 res err i fmt b p0 (b+1) p1 (b+2) p2 (b+3) p3 (b+4) p4 (b+5) p5 (b+6) p6 (b+7) p7 (b+8) p8 (b+9) p9 (b+10) p10 (b+11) p11 (b+12) p12 (b+13) p13 (b+14) p14 (b+15) p15 (b+16) p16 (b+17) p17 (b+18) p18 (b+19) p19 (b+20) p20 (b+21) p21 (b+22) p22 (b+23) p23 (b+24) p24 (b+25) p25 (b+26) p26 (b+27) p27 (b+28) p28 (b+29) p29 (b+30) p30 (b+31) p31 (b+32) p32 (b+33) p33 (b+34) p34 (b+35) p35 (b+36) p36 (b+37) p37 (b+38) p38 (b+39) p39 (b+40) p40 (b+41) p41 (b+42) p42 (b+43) p43 (b+44) p44 (b+45) p45 - (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) - <$> (peek p0 >>= convert res i b) <*> (peek p1 >>= convert res i (b+1)) - <*> (peek p2 >>= convert res i (b+2)) <*> (peek p3 >>= convert res i (b+3)) - <*> (peek p4 >>= convert res i (b+4)) <*> (peek p5 >>= convert res i (b+5)) - <*> (peek p6 >>= convert res i (b+6)) <*> (peek p7 >>= convert res i (b+7)) - <*> (peek p8 >>= convert res i (b+8)) <*> (peek p9 >>= convert res i (b+9)) - <*> (peek p10 >>= convert res i (b+10)) <*> (peek p11 >>= convert res i (b+11)) - <*> (peek p12 >>= convert res i (b+12)) <*> (peek p13 >>= convert res i (b+13)) - <*> (peek p14 >>= convert res i (b+14)) <*> (peek p15 >>= convert res i (b+15)) - <*> (peek p16 >>= convert res i (b+16)) <*> (peek p17 >>= convert res i (b+17)) - <*> (peek p18 >>= convert res i (b+18)) <*> (peek p19 >>= convert res i (b+19)) - <*> (peek p20 >>= convert res i (b+20)) <*> (peek p21 >>= convert res i (b+21)) - <*> (peek p22 >>= convert res i (b+22)) <*> (peek p23 >>= convert res i (b+23)) - <*> (peek p24 >>= convert res i (b+24)) <*> (peek p25 >>= convert res i (b+25)) - <*> (peek p26 >>= convert res i (b+26)) <*> (peek p27 >>= convert res i (b+27)) - <*> (peek p28 >>= convert res i (b+28)) <*> (peek p29 >>= convert res i (b+29)) - <*> (peek p30 >>= convert res i (b+30)) <*> (peek p31 >>= convert res i (b+31)) - <*> (peek p32 >>= convert res i (b+32)) <*> (peek p33 >>= convert res i (b+33)) - <*> (peek p34 >>= convert res i (b+34)) <*> (peek p35 >>= convert res i (b+35)) - <*> (peek p36 >>= convert res i (b+36)) <*> (peek p37 >>= convert res i (b+37)) - <*> (peek p38 >>= convert res i (b+38)) <*> (peek p39 >>= convert res i (b+39)) - <*> (peek p40 >>= convert res i (b+40)) <*> (peek p41 >>= convert res i (b+41)) - <*> (peek p42 >>= convert res i (b+42)) <*> (peek p43 >>= convert res i (b+43)) - <*> (peek p44 >>= convert res i (b+44)) <*> (peek p45 >>= convert res i (b+45)) - -instance - ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6 - , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12 - , FromSQL t13, FromSQL t14, FromSQL t15, FromSQL t16, FromSQL t17, FromSQL t18 - , FromSQL t19, FromSQL t20, FromSQL t21, FromSQL t22, FromSQL t23, FromSQL t24 - , FromSQL t25, FromSQL t26, FromSQL t27, FromSQL t28, FromSQL t29, FromSQL t30 - , FromSQL t31, FromSQL t32, FromSQL t33, FromSQL t34, FromSQL t35, FromSQL t36 - , FromSQL t37, FromSQL t38, FromSQL t39, FromSQL t40, FromSQL t41, FromSQL t42 - , FromSQL t43, FromSQL t44, FromSQL t45, FromSQL t46, FromSQL t47 - ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41, t42, t43, t44, t45, t46, t47) where - fromRow res err b i = withFormat $ \fmt -> - alloca $ \p0 -> alloca $ \p1 -> alloca $ \p2 -> alloca $ \p3 -> alloca $ \p4 -> - alloca $ \p5 -> alloca $ \p6 -> alloca $ \p7 -> alloca $ \p8 -> alloca $ \p9 -> - alloca $ \p10 -> alloca $ \p11 -> alloca $ \p12 -> alloca $ \p13 -> alloca $ \p14 -> - alloca $ \p15 -> alloca $ \p16 -> alloca $ \p17 -> alloca $ \p18 -> alloca $ \p19 -> - alloca $ \p20 -> alloca $ \p21 -> alloca $ \p22 -> alloca $ \p23 -> alloca $ \p24 -> - alloca $ \p25 -> alloca $ \p26 -> alloca $ \p27 -> alloca $ \p28 -> alloca $ \p29 -> - alloca $ \p30 -> alloca $ \p31 -> alloca $ \p32 -> alloca $ \p33 -> alloca $ \p34 -> - alloca $ \p35 -> alloca $ \p36 -> alloca $ \p37 -> alloca $ \p38 -> alloca $ \p39 -> - alloca $ \p40 -> alloca $ \p41 -> alloca $ \p42 -> alloca $ \p43 -> alloca $ \p44 -> - alloca $ \p45 -> alloca $ \p46 -> do - verify err =<< c_PQgetf47 res err i fmt b p0 (b+1) p1 (b+2) p2 (b+3) p3 (b+4) p4 (b+5) p5 (b+6) p6 (b+7) p7 (b+8) p8 (b+9) p9 (b+10) p10 (b+11) p11 (b+12) p12 (b+13) p13 (b+14) p14 (b+15) p15 (b+16) p16 (b+17) p17 (b+18) p18 (b+19) p19 (b+20) p20 (b+21) p21 (b+22) p22 (b+23) p23 (b+24) p24 (b+25) p25 (b+26) p26 (b+27) p27 (b+28) p28 (b+29) p29 (b+30) p30 (b+31) p31 (b+32) p32 (b+33) p33 (b+34) p34 (b+35) p35 (b+36) p36 (b+37) p37 (b+38) p38 (b+39) p39 (b+40) p40 (b+41) p41 (b+42) p42 (b+43) p43 (b+44) p44 (b+45) p45 (b+46) p46 - (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) - <$> (peek p0 >>= convert res i b) <*> (peek p1 >>= convert res i (b+1)) - <*> (peek p2 >>= convert res i (b+2)) <*> (peek p3 >>= convert res i (b+3)) - <*> (peek p4 >>= convert res i (b+4)) <*> (peek p5 >>= convert res i (b+5)) - <*> (peek p6 >>= convert res i (b+6)) <*> (peek p7 >>= convert res i (b+7)) - <*> (peek p8 >>= convert res i (b+8)) <*> (peek p9 >>= convert res i (b+9)) - <*> (peek p10 >>= convert res i (b+10)) <*> (peek p11 >>= convert res i (b+11)) - <*> (peek p12 >>= convert res i (b+12)) <*> (peek p13 >>= convert res i (b+13)) - <*> (peek p14 >>= convert res i (b+14)) <*> (peek p15 >>= convert res i (b+15)) - <*> (peek p16 >>= convert res i (b+16)) <*> (peek p17 >>= convert res i (b+17)) - <*> (peek p18 >>= convert res i (b+18)) <*> (peek p19 >>= convert res i (b+19)) - <*> (peek p20 >>= convert res i (b+20)) <*> (peek p21 >>= convert res i (b+21)) - <*> (peek p22 >>= convert res i (b+22)) <*> (peek p23 >>= convert res i (b+23)) - <*> (peek p24 >>= convert res i (b+24)) <*> (peek p25 >>= convert res i (b+25)) - <*> (peek p26 >>= convert res i (b+26)) <*> (peek p27 >>= convert res i (b+27)) - <*> (peek p28 >>= convert res i (b+28)) <*> (peek p29 >>= convert res i (b+29)) - <*> (peek p30 >>= convert res i (b+30)) <*> (peek p31 >>= convert res i (b+31)) - <*> (peek p32 >>= convert res i (b+32)) <*> (peek p33 >>= convert res i (b+33)) - <*> (peek p34 >>= convert res i (b+34)) <*> (peek p35 >>= convert res i (b+35)) - <*> (peek p36 >>= convert res i (b+36)) <*> (peek p37 >>= convert res i (b+37)) - <*> (peek p38 >>= convert res i (b+38)) <*> (peek p39 >>= convert res i (b+39)) - <*> (peek p40 >>= convert res i (b+40)) <*> (peek p41 >>= convert res i (b+41)) - <*> (peek p42 >>= convert res i (b+42)) <*> (peek p43 >>= convert res i (b+43)) - <*> (peek p44 >>= convert res i (b+44)) <*> (peek p45 >>= convert res i (b+45)) - <*> (peek p46 >>= convert res i (b+46)) - -instance - ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6 - , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12 - , FromSQL t13, FromSQL t14, FromSQL t15, FromSQL t16, FromSQL t17, FromSQL t18 - , FromSQL t19, FromSQL t20, FromSQL t21, FromSQL t22, FromSQL t23, FromSQL t24 - , FromSQL t25, FromSQL t26, FromSQL t27, FromSQL t28, FromSQL t29, FromSQL t30 - , FromSQL t31, FromSQL t32, FromSQL t33, FromSQL t34, FromSQL t35, FromSQL t36 - , FromSQL t37, FromSQL t38, FromSQL t39, FromSQL t40, FromSQL t41, FromSQL t42 - , FromSQL t43, FromSQL t44, FromSQL t45, FromSQL t46, FromSQL t47, FromSQL t48 - ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41, t42, t43, t44, t45, t46, t47, t48) where - fromRow res err b i = withFormat $ \fmt -> - alloca $ \p0 -> alloca $ \p1 -> alloca $ \p2 -> alloca $ \p3 -> alloca $ \p4 -> - alloca $ \p5 -> alloca $ \p6 -> alloca $ \p7 -> alloca $ \p8 -> alloca $ \p9 -> - alloca $ \p10 -> alloca $ \p11 -> alloca $ \p12 -> alloca $ \p13 -> alloca $ \p14 -> - alloca $ \p15 -> alloca $ \p16 -> alloca $ \p17 -> alloca $ \p18 -> alloca $ \p19 -> - alloca $ \p20 -> alloca $ \p21 -> alloca $ \p22 -> alloca $ \p23 -> alloca $ \p24 -> - alloca $ \p25 -> alloca $ \p26 -> alloca $ \p27 -> alloca $ \p28 -> alloca $ \p29 -> - alloca $ \p30 -> alloca $ \p31 -> alloca $ \p32 -> alloca $ \p33 -> alloca $ \p34 -> - alloca $ \p35 -> alloca $ \p36 -> alloca $ \p37 -> alloca $ \p38 -> alloca $ \p39 -> - alloca $ \p40 -> alloca $ \p41 -> alloca $ \p42 -> alloca $ \p43 -> alloca $ \p44 -> - alloca $ \p45 -> alloca $ \p46 -> alloca $ \p47 -> do - verify err =<< c_PQgetf48 res err i fmt b p0 (b+1) p1 (b+2) p2 (b+3) p3 (b+4) p4 (b+5) p5 (b+6) p6 (b+7) p7 (b+8) p8 (b+9) p9 (b+10) p10 (b+11) p11 (b+12) p12 (b+13) p13 (b+14) p14 (b+15) p15 (b+16) p16 (b+17) p17 (b+18) p18 (b+19) p19 (b+20) p20 (b+21) p21 (b+22) p22 (b+23) p23 (b+24) p24 (b+25) p25 (b+26) p26 (b+27) p27 (b+28) p28 (b+29) p29 (b+30) p30 (b+31) p31 (b+32) p32 (b+33) p33 (b+34) p34 (b+35) p35 (b+36) p36 (b+37) p37 (b+38) p38 (b+39) p39 (b+40) p40 (b+41) p41 (b+42) p42 (b+43) p43 (b+44) p44 (b+45) p45 (b+46) p46 (b+47) p47 - (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) - <$> (peek p0 >>= convert res i b) <*> (peek p1 >>= convert res i (b+1)) - <*> (peek p2 >>= convert res i (b+2)) <*> (peek p3 >>= convert res i (b+3)) - <*> (peek p4 >>= convert res i (b+4)) <*> (peek p5 >>= convert res i (b+5)) - <*> (peek p6 >>= convert res i (b+6)) <*> (peek p7 >>= convert res i (b+7)) - <*> (peek p8 >>= convert res i (b+8)) <*> (peek p9 >>= convert res i (b+9)) - <*> (peek p10 >>= convert res i (b+10)) <*> (peek p11 >>= convert res i (b+11)) - <*> (peek p12 >>= convert res i (b+12)) <*> (peek p13 >>= convert res i (b+13)) - <*> (peek p14 >>= convert res i (b+14)) <*> (peek p15 >>= convert res i (b+15)) - <*> (peek p16 >>= convert res i (b+16)) <*> (peek p17 >>= convert res i (b+17)) - <*> (peek p18 >>= convert res i (b+18)) <*> (peek p19 >>= convert res i (b+19)) - <*> (peek p20 >>= convert res i (b+20)) <*> (peek p21 >>= convert res i (b+21)) - <*> (peek p22 >>= convert res i (b+22)) <*> (peek p23 >>= convert res i (b+23)) - <*> (peek p24 >>= convert res i (b+24)) <*> (peek p25 >>= convert res i (b+25)) - <*> (peek p26 >>= convert res i (b+26)) <*> (peek p27 >>= convert res i (b+27)) - <*> (peek p28 >>= convert res i (b+28)) <*> (peek p29 >>= convert res i (b+29)) - <*> (peek p30 >>= convert res i (b+30)) <*> (peek p31 >>= convert res i (b+31)) - <*> (peek p32 >>= convert res i (b+32)) <*> (peek p33 >>= convert res i (b+33)) - <*> (peek p34 >>= convert res i (b+34)) <*> (peek p35 >>= convert res i (b+35)) - <*> (peek p36 >>= convert res i (b+36)) <*> (peek p37 >>= convert res i (b+37)) - <*> (peek p38 >>= convert res i (b+38)) <*> (peek p39 >>= convert res i (b+39)) - <*> (peek p40 >>= convert res i (b+40)) <*> (peek p41 >>= convert res i (b+41)) - <*> (peek p42 >>= convert res i (b+42)) <*> (peek p43 >>= convert res i (b+43)) - <*> (peek p44 >>= convert res i (b+44)) <*> (peek p45 >>= convert res i (b+45)) - <*> (peek p46 >>= convert res i (b+46)) <*> (peek p47 >>= convert res i (b+47)) - -instance - ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6 - , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12 - , FromSQL t13, FromSQL t14, FromSQL t15, FromSQL t16, FromSQL t17, FromSQL t18 - , FromSQL t19, FromSQL t20, FromSQL t21, FromSQL t22, FromSQL t23, FromSQL t24 - , FromSQL t25, FromSQL t26, FromSQL t27, FromSQL t28, FromSQL t29, FromSQL t30 - , FromSQL t31, FromSQL t32, FromSQL t33, FromSQL t34, FromSQL t35, FromSQL t36 - , FromSQL t37, FromSQL t38, FromSQL t39, FromSQL t40, FromSQL t41, FromSQL t42 - , FromSQL t43, FromSQL t44, FromSQL t45, FromSQL t46, FromSQL t47, FromSQL t48 - , FromSQL t49 - ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41, t42, t43, t44, t45, t46, t47, t48, t49) where - fromRow res err b i = withFormat $ \fmt -> - alloca $ \p0 -> alloca $ \p1 -> alloca $ \p2 -> alloca $ \p3 -> alloca $ \p4 -> - alloca $ \p5 -> alloca $ \p6 -> alloca $ \p7 -> alloca $ \p8 -> alloca $ \p9 -> - alloca $ \p10 -> alloca $ \p11 -> alloca $ \p12 -> alloca $ \p13 -> alloca $ \p14 -> - alloca $ \p15 -> alloca $ \p16 -> alloca $ \p17 -> alloca $ \p18 -> alloca $ \p19 -> - alloca $ \p20 -> alloca $ \p21 -> alloca $ \p22 -> alloca $ \p23 -> alloca $ \p24 -> - alloca $ \p25 -> alloca $ \p26 -> alloca $ \p27 -> alloca $ \p28 -> alloca $ \p29 -> - alloca $ \p30 -> alloca $ \p31 -> alloca $ \p32 -> alloca $ \p33 -> alloca $ \p34 -> - alloca $ \p35 -> alloca $ \p36 -> alloca $ \p37 -> alloca $ \p38 -> alloca $ \p39 -> - alloca $ \p40 -> alloca $ \p41 -> alloca $ \p42 -> alloca $ \p43 -> alloca $ \p44 -> - alloca $ \p45 -> alloca $ \p46 -> alloca $ \p47 -> alloca $ \p48 -> do - verify err =<< c_PQgetf49 res err i fmt b p0 (b+1) p1 (b+2) p2 (b+3) p3 (b+4) p4 (b+5) p5 (b+6) p6 (b+7) p7 (b+8) p8 (b+9) p9 (b+10) p10 (b+11) p11 (b+12) p12 (b+13) p13 (b+14) p14 (b+15) p15 (b+16) p16 (b+17) p17 (b+18) p18 (b+19) p19 (b+20) p20 (b+21) p21 (b+22) p22 (b+23) p23 (b+24) p24 (b+25) p25 (b+26) p26 (b+27) p27 (b+28) p28 (b+29) p29 (b+30) p30 (b+31) p31 (b+32) p32 (b+33) p33 (b+34) p34 (b+35) p35 (b+36) p36 (b+37) p37 (b+38) p38 (b+39) p39 (b+40) p40 (b+41) p41 (b+42) p42 (b+43) p43 (b+44) p44 (b+45) p45 (b+46) p46 (b+47) p47 (b+48) p48 - (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) - <$> (peek p0 >>= convert res i b) <*> (peek p1 >>= convert res i (b+1)) - <*> (peek p2 >>= convert res i (b+2)) <*> (peek p3 >>= convert res i (b+3)) - <*> (peek p4 >>= convert res i (b+4)) <*> (peek p5 >>= convert res i (b+5)) - <*> (peek p6 >>= convert res i (b+6)) <*> (peek p7 >>= convert res i (b+7)) - <*> (peek p8 >>= convert res i (b+8)) <*> (peek p9 >>= convert res i (b+9)) - <*> (peek p10 >>= convert res i (b+10)) <*> (peek p11 >>= convert res i (b+11)) - <*> (peek p12 >>= convert res i (b+12)) <*> (peek p13 >>= convert res i (b+13)) - <*> (peek p14 >>= convert res i (b+14)) <*> (peek p15 >>= convert res i (b+15)) - <*> (peek p16 >>= convert res i (b+16)) <*> (peek p17 >>= convert res i (b+17)) - <*> (peek p18 >>= convert res i (b+18)) <*> (peek p19 >>= convert res i (b+19)) - <*> (peek p20 >>= convert res i (b+20)) <*> (peek p21 >>= convert res i (b+21)) - <*> (peek p22 >>= convert res i (b+22)) <*> (peek p23 >>= convert res i (b+23)) - <*> (peek p24 >>= convert res i (b+24)) <*> (peek p25 >>= convert res i (b+25)) - <*> (peek p26 >>= convert res i (b+26)) <*> (peek p27 >>= convert res i (b+27)) - <*> (peek p28 >>= convert res i (b+28)) <*> (peek p29 >>= convert res i (b+29)) - <*> (peek p30 >>= convert res i (b+30)) <*> (peek p31 >>= convert res i (b+31)) - <*> (peek p32 >>= convert res i (b+32)) <*> (peek p33 >>= convert res i (b+33)) - <*> (peek p34 >>= convert res i (b+34)) <*> (peek p35 >>= convert res i (b+35)) - <*> (peek p36 >>= convert res i (b+36)) <*> (peek p37 >>= convert res i (b+37)) - <*> (peek p38 >>= convert res i (b+38)) <*> (peek p39 >>= convert res i (b+39)) - <*> (peek p40 >>= convert res i (b+40)) <*> (peek p41 >>= convert res i (b+41)) - <*> (peek p42 >>= convert res i (b+42)) <*> (peek p43 >>= convert res i (b+43)) - <*> (peek p44 >>= convert res i (b+44)) <*> (peek p45 >>= convert res i (b+45)) - <*> (peek p46 >>= convert res i (b+46)) <*> (peek p47 >>= convert res i (b+47)) - <*> (peek p48 >>= convert res i (b+48)) - -instance - ( FromSQL t1, FromSQL t2, FromSQL t3, FromSQL t4, FromSQL t5, FromSQL t6 - , FromSQL t7, FromSQL t8, FromSQL t9, FromSQL t10, FromSQL t11, FromSQL t12 - , FromSQL t13, FromSQL t14, FromSQL t15, FromSQL t16, FromSQL t17, FromSQL t18 - , FromSQL t19, FromSQL t20, FromSQL t21, FromSQL t22, FromSQL t23, FromSQL t24 - , FromSQL t25, FromSQL t26, FromSQL t27, FromSQL t28, FromSQL t29, FromSQL t30 - , FromSQL t31, FromSQL t32, FromSQL t33, FromSQL t34, FromSQL t35, FromSQL t36 - , FromSQL t37, FromSQL t38, FromSQL t39, FromSQL t40, FromSQL t41, FromSQL t42 - , FromSQL t43, FromSQL t44, FromSQL t45, FromSQL t46, FromSQL t47, FromSQL t48 - , FromSQL t49, FromSQL t50 - ) => FromRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41, t42, t43, t44, t45, t46, t47, t48, t49, t50) where - fromRow res err b i = withFormat $ \fmt -> - alloca $ \p0 -> alloca $ \p1 -> alloca $ \p2 -> alloca $ \p3 -> alloca $ \p4 -> - alloca $ \p5 -> alloca $ \p6 -> alloca $ \p7 -> alloca $ \p8 -> alloca $ \p9 -> - alloca $ \p10 -> alloca $ \p11 -> alloca $ \p12 -> alloca $ \p13 -> alloca $ \p14 -> - alloca $ \p15 -> alloca $ \p16 -> alloca $ \p17 -> alloca $ \p18 -> alloca $ \p19 -> - alloca $ \p20 -> alloca $ \p21 -> alloca $ \p22 -> alloca $ \p23 -> alloca $ \p24 -> - alloca $ \p25 -> alloca $ \p26 -> alloca $ \p27 -> alloca $ \p28 -> alloca $ \p29 -> - alloca $ \p30 -> alloca $ \p31 -> alloca $ \p32 -> alloca $ \p33 -> alloca $ \p34 -> - alloca $ \p35 -> alloca $ \p36 -> alloca $ \p37 -> alloca $ \p38 -> alloca $ \p39 -> - alloca $ \p40 -> alloca $ \p41 -> alloca $ \p42 -> alloca $ \p43 -> alloca $ \p44 -> - alloca $ \p45 -> alloca $ \p46 -> alloca $ \p47 -> alloca $ \p48 -> alloca $ \p49 -> do - verify err =<< c_PQgetf50 res err i fmt b p0 (b+1) p1 (b+2) p2 (b+3) p3 (b+4) p4 (b+5) p5 (b+6) p6 (b+7) p7 (b+8) p8 (b+9) p9 (b+10) p10 (b+11) p11 (b+12) p12 (b+13) p13 (b+14) p14 (b+15) p15 (b+16) p16 (b+17) p17 (b+18) p18 (b+19) p19 (b+20) p20 (b+21) p21 (b+22) p22 (b+23) p23 (b+24) p24 (b+25) p25 (b+26) p26 (b+27) p27 (b+28) p28 (b+29) p29 (b+30) p30 (b+31) p31 (b+32) p32 (b+33) p33 (b+34) p34 (b+35) p35 (b+36) p36 (b+37) p37 (b+38) p38 (b+39) p39 (b+40) p40 (b+41) p41 (b+42) p42 (b+43) p43 (b+44) p44 (b+45) p45 (b+46) p46 (b+47) p47 (b+48) p48 (b+49) p49 - (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) - <$> (peek p0 >>= convert res i b) <*> (peek p1 >>= convert res i (b+1)) - <*> (peek p2 >>= convert res i (b+2)) <*> (peek p3 >>= convert res i (b+3)) - <*> (peek p4 >>= convert res i (b+4)) <*> (peek p5 >>= convert res i (b+5)) - <*> (peek p6 >>= convert res i (b+6)) <*> (peek p7 >>= convert res i (b+7)) - <*> (peek p8 >>= convert res i (b+8)) <*> (peek p9 >>= convert res i (b+9)) - <*> (peek p10 >>= convert res i (b+10)) <*> (peek p11 >>= convert res i (b+11)) - <*> (peek p12 >>= convert res i (b+12)) <*> (peek p13 >>= convert res i (b+13)) - <*> (peek p14 >>= convert res i (b+14)) <*> (peek p15 >>= convert res i (b+15)) - <*> (peek p16 >>= convert res i (b+16)) <*> (peek p17 >>= convert res i (b+17)) - <*> (peek p18 >>= convert res i (b+18)) <*> (peek p19 >>= convert res i (b+19)) - <*> (peek p20 >>= convert res i (b+20)) <*> (peek p21 >>= convert res i (b+21)) - <*> (peek p22 >>= convert res i (b+22)) <*> (peek p23 >>= convert res i (b+23)) - <*> (peek p24 >>= convert res i (b+24)) <*> (peek p25 >>= convert res i (b+25)) - <*> (peek p26 >>= convert res i (b+26)) <*> (peek p27 >>= convert res i (b+27)) - <*> (peek p28 >>= convert res i (b+28)) <*> (peek p29 >>= convert res i (b+29)) - <*> (peek p30 >>= convert res i (b+30)) <*> (peek p31 >>= convert res i (b+31)) - <*> (peek p32 >>= convert res i (b+32)) <*> (peek p33 >>= convert res i (b+33)) - <*> (peek p34 >>= convert res i (b+34)) <*> (peek p35 >>= convert res i (b+35)) - <*> (peek p36 >>= convert res i (b+36)) <*> (peek p37 >>= convert res i (b+37)) - <*> (peek p38 >>= convert res i (b+38)) <*> (peek p39 >>= convert res i (b+39)) - <*> (peek p40 >>= convert res i (b+40)) <*> (peek p41 >>= convert res i (b+41)) - <*> (peek p42 >>= convert res i (b+42)) <*> (peek p43 >>= convert res i (b+43)) - <*> (peek p44 >>= convert res i (b+44)) <*> (peek p45 >>= convert res i (b+45)) - <*> (peek p46 >>= convert res i (b+46)) <*> (peek p47 >>= convert res i (b+47)) - <*> (peek p48 >>= convert res i (b+48)) <*> (peek p49 >>= convert res i (b+49)) diff --git a/src/Database/PostgreSQL/PQTypes/FromSQL.hs b/src/Database/PostgreSQL/PQTypes/FromSQL.hs index e7018a2..9eee418 100644 --- a/src/Database/PostgreSQL/PQTypes/FromSQL.hs +++ b/src/Database/PostgreSQL/PQTypes/FromSQL.hs @@ -1,214 +1,266 @@ module Database.PostgreSQL.PQTypes.FromSQL ( FromSQL (..) + + -- * Row decoder + , RowDecoder + + -- ** Combinators + , decodeArray + , decodeComposite + , decodeEnum + , decodeNullable + , decodeScalar + + -- ** Generic decoding + , genericDecoder + , GFromSQL ) where -import Control.Exception qualified as E -import Data.ByteString.Char8 qualified as BS -import Data.ByteString.Lazy.Char8 qualified as BSL +import Data.ByteString qualified as BS +import Data.ByteString.Lazy qualified as BSL +import Data.Char +import Data.IP (IPRange) import Data.Int -import Data.Kind (Type) -import Data.Ratio +import Data.Scientific import Data.Text qualified as T -import Data.Text.Encoding import Data.Text.Lazy qualified as TL import Data.Time -import Data.UUID.Types qualified as U +import Data.UUID.Types +import Data.Vector qualified as V import Data.Word -import Foreign.C -import Foreign.Storable +import GHC.Generics +import GHC.TypeLits +import PostgreSQL.Binary.Decoding qualified as D +import PostgreSQL.Binary.Range (Range) +import TextShow + +import Database.PostgreSQL.PQTypes.Internal.RowDecoder + +-- | Class which represents \"from SQL type to Haskell type\" transformation. +-- Decoding of compound values is a matter of monadically composing decoders +-- of their fields: +-- +-- > -- select 1::int, 'hi'::text, true::bool +-- > data T = T Int32 T.Text Bool +-- > +-- > decodeT :: RowDecoder T +-- > decodeT = T <$> fromSQL <*> fromSQL <*> fromSQL +-- +-- See 'decodeNullable', 'decodeComposite' and 'decodeArray' for decoding +-- NULLable values, composite (anonymous row or user-defined) values and +-- arrays. Note that thanks to the 'Maybe' and list instances, once a type +-- has a 'FromSQL' instance, 'fromSQL' can also fetch its NULLable values and +-- arrays (of any dimension) directly, e.g. as @Maybe T@ or @[[T]]@. +-- +-- Every 'fromSQL' consumes exactly one field of the result - even the +-- compound instances, e.g. the list instance decodes many values from a +-- single array field. Custom instances must preserve this invariant, since +-- the generic combinators rely on it (e.g. 'decodeNullable' checks the +-- NULL-ness of a single field before running the inner decoder). A decoder +-- of multiple consecutive fields is not a 'fromSQL', but a standalone +-- 'RowDecoder' composed of the decoders of the fields, like @decodeT@ +-- above. +-- +-- Time related instances use decoders for servers that have the +-- @integer_datetimes@ parameter set to @on@, which is the case for all +-- supported versions of PostgreSQL (the ability to compile the server with +-- floating point datetimes was removed in PostgreSQL 10). +class FromSQL a where + -- | Decode a value from the next field of the query result. + fromSQL :: RowDecoder a + + -- | Decoder used by the @'FromSQL' [a]@ instance. The default decodes a + -- PostgreSQL array of @a@; the only reason for this method to exist is to + -- allow 'String' to keep decoding text (see the 'Char' instance). Use + -- 'fromSQL' at the list type instead of calling this method directly. + fromSQLList :: RowDecoder [a] + fromSQLList = V.toList <$> decodeArray fromSQL + -- Inlined so that instances in other modules (in particular ones defined + -- with 'genericDecoder') specialize the element decoder instead of + -- calling the generically compiled default. + {-# INLINE fromSQLList #-} + +-- GENERIC DECODING + +-- | Generic decoder of consecutive fields of a row into a product type, +-- e.g. for fetching rows as tuples without composing the decoders of their +-- fields by hand: +-- +-- > (n, t) <- fetchOne $ genericDecoder @(Int32, T.Text) +-- +-- Combined with 'decodeComposite', it gives 'FromSQL' instances for product +-- types corresponding to composite types: +-- +-- > data Simple = Simple (Maybe Int32) (Maybe Day) +-- > deriving stock (Generic, Show) +-- > +-- > instance FromSQL Simple where +-- > fromSQL = decodeComposite genericDecoder +genericDecoder :: (Generic a, GFromSQL (Rep a)) => RowDecoder a +genericDecoder = to <$> gFromSQL + +-- | Decoder of the generic representation of a product type. +class GFromSQL f where + gFromSQL :: RowDecoder (f p) + +instance GFromSQL f => GFromSQL (M1 i c f) where + gFromSQL = M1 <$> gFromSQL + +instance (GFromSQL f, GFromSQL g) => GFromSQL (f :*: g) where + gFromSQL = (:*:) <$> gFromSQL <*> gFromSQL + +instance FromSQL a => GFromSQL (K1 i a) where + gFromSQL = K1 <$> fromSQL + +instance GFromSQL U1 where + gFromSQL = pure U1 + +instance + TypeError (Text "Cannot derive FromSQL for a type with more than one constructor") + => GFromSQL (f :+: g) + where + gFromSQL = error "unreachable" -import Database.PostgreSQL.PQTypes.Format -import Database.PostgreSQL.PQTypes.Internal.C.Types -import Database.PostgreSQL.PQTypes.Internal.Utils +-- NULLables --- | Class which represents \"from SQL (libpqtypes) --- type to Haskell type\" transformation. -class (PQFormat t, Storable (PQBase t)) => FromSQL t where - -- | Base type (used by libpqtypes). - type PQBase t :: Type +-- | 'Nothing' represents NULL. Note that the type of a NULL field is not +-- checked, see 'decodeNullable'. +instance FromSQL a => FromSQL (Maybe a) where + fromSQL = decodeNullable fromSQL - -- | Convert value of base type to target one. - fromSQL - :: Maybe (PQBase t) - -- ^ base value (Nothing if NULL was delivered) - -> IO t +-- ARRAYS --- NULLables +instance FromSQL a => FromSQL [a] where + fromSQL = fromSQLList -instance FromSQL t => FromSQL (Maybe t) where - type PQBase (Maybe t) = PQBase t - fromSQL mbase = case mbase of - Just _ -> Just <$> fromSQL mbase - Nothing -> pure Nothing +instance FromSQL a => FromSQL (V.Vector a) where + fromSQL = decodeArray fromSQL -- NUMERICS instance FromSQL Int16 where - type PQBase Int16 = CShort - fromSQL Nothing = unexpectedNULL - fromSQL (Just n) = pure . fromIntegral $ n + fromSQL = decodeScalar D.int instance FromSQL Int32 where - type PQBase Int32 = CInt - fromSQL Nothing = unexpectedNULL - fromSQL (Just n) = pure . fromIntegral $ n + fromSQL = decodeScalar D.int instance FromSQL Int64 where - type PQBase Int64 = CLLong - fromSQL Nothing = unexpectedNULL - fromSQL (Just n) = pure . fromIntegral $ n + fromSQL = decodeScalar D.int instance FromSQL Float where - type PQBase Float = CFloat - fromSQL Nothing = unexpectedNULL - fromSQL (Just n) = pure . realToFrac $ n + fromSQL = decodeScalar D.float4 instance FromSQL Double where - type PQBase Double = CDouble - fromSQL Nothing = unexpectedNULL - fromSQL (Just n) = pure . realToFrac $ n + fromSQL = decodeScalar D.float8 instance FromSQL Word16 where - type PQBase Word16 = CUShort - fromSQL Nothing = unexpectedNULL - fromSQL (Just n) = pure . fromIntegral $ n + fromSQL = decodeScalar D.int instance FromSQL Word32 where - type PQBase Word32 = CUInt - fromSQL Nothing = unexpectedNULL - fromSQL (Just n) = pure . fromIntegral $ n + fromSQL = decodeScalar D.int instance FromSQL Word64 where - type PQBase Word64 = CULLong - fromSQL Nothing = unexpectedNULL - fromSQL (Just n) = pure . fromIntegral $ n + fromSQL = decodeScalar D.int instance FromSQL Integer where - type PQBase Integer = NumericVar - fromSQL Nothing = unexpectedNULL - fromSQL (Just nv) = numericVarToInteger nv + fromSQL = decodeScalar . (`D.refine` D.numeric) $ \n -> + case floatingOrInteger @Double n of + Left v -> Left $ "expected an integer, got " <> showt v + Right i -> Right i + +instance FromSQL Scientific where + fromSQL = decodeScalar D.numeric -- CHAR +-- The "char" type stores a single byte, hence characters above '\255' are not +-- representable and the decoding of the rest is the identity, not UTF-8. + +singleByte :: D.Value Word8 +singleByte = D.fn $ \value -> + case BS.length value of + 1 -> Right $ BS.head value + n -> Left $ "expected 1 byte, got " <> showt n + instance FromSQL Char where - type PQBase Char = CChar - fromSQL Nothing = unexpectedNULL - fromSQL (Just c) = pure . castCCharToChar $ c + fromSQL = decodeScalar $ chr . fromIntegral <$> singleByte + + -- Decode 'String' from text instead of an array of "char". + fromSQLList = decodeScalar $ T.unpack <$> D.text_strict instance FromSQL Word8 where - type PQBase Word8 = CChar - fromSQL Nothing = unexpectedNULL - fromSQL (Just c) = pure . fromIntegral $ c + fromSQL = decodeScalar singleByte -- VARIABLE-LENGTH CHARACTER TYPES --- | Assumes that source C string is UTF-8, so if you are working --- with a different encoding, you should not rely on this instance. instance FromSQL T.Text where - type PQBase T.Text = PGbytea - fromSQL mbytea = either E.throwIO pure . decodeUtf8' =<< fromSQL mbytea + fromSQL = decodeScalar D.text_strict --- | Assumes that source C string is UTF-8, so if you are working --- with a different encoding, you should not rely on this instance instance FromSQL TL.Text where - type PQBase TL.Text = PGbytea - fromSQL = fmap TL.fromStrict . fromSQL - --- | Assumes that source C string is UTF-8, so if you are working --- with a different encoding, you should not rely on this instance. -instance FromSQL String where - type PQBase String = PGbytea - fromSQL mbytea = T.unpack <$> fromSQL mbytea + fromSQL = decodeScalar D.text_lazy -instance FromSQL U.UUID where - type PQBase U.UUID = PGuuid - fromSQL Nothing = unexpectedNULL - fromSQL (Just (PGuuid w1 w2 w3 w4)) = pure $ U.fromWords w1 w2 w3 w4 +instance FromSQL UUID where + fromSQL = decodeScalar D.uuid -- BYTEA instance FromSQL BS.ByteString where - type PQBase BS.ByteString = PGbytea - fromSQL Nothing = unexpectedNULL - fromSQL (Just bytea) = BS.packCStringLen $ byteaToCStringLen bytea + fromSQL = decodeScalar D.bytea_strict instance FromSQL BSL.ByteString where - type PQBase BSL.ByteString = PGbytea - fromSQL = fmap BSL.fromStrict . fromSQL + fromSQL = decodeScalar D.bytea_lazy -- DATE instance FromSQL Day where - type PQBase Day = PGdate - fromSQL Nothing = unexpectedNULL - fromSQL (Just date) = pure . pgDateToDay $ date + fromSQL = decodeScalar D.date -- TIME instance FromSQL TimeOfDay where - type PQBase TimeOfDay = PGtime - fromSQL Nothing = unexpectedNULL - fromSQL (Just time) = pure . pgTimeToTimeOfDay $ time + fromSQL = decodeScalar D.time_int -- TIMESTAMP instance FromSQL LocalTime where - type PQBase LocalTime = PGtimestamp - fromSQL Nothing = unexpectedNULL - fromSQL (Just PGtimestamp {..}) = pure $ LocalTime day tod - where - day = pgDateToDay pgTimestampDate - tod = pgTimeToTimeOfDay pgTimestampTime + fromSQL = decodeScalar D.timestamp_int -- TIMESTAMPTZ --- | 'FromSQL' instance for 'ZonedTime' doesn't exist because --- PostgreSQL doesn't provide zone offset information when returning --- timestamps with time zone in a binary format. +-- Note: there is no 'FromSQL' instance for 'ZonedTime', as the binary +-- representation of timestamptz doesn't carry the time zone offset. + instance FromSQL UTCTime where - type PQBase UTCTime = PGtimestamp - fromSQL Nothing = unexpectedNULL - fromSQL jts@(Just PGtimestamp {..}) = do - localTime <- fromSQL jts - case rest of - 0 -> pure . localTimeToUTC (minutesToTimeZone mins) $ localTime - _ -> hpqTypesError $ "Invalid gmtoff: " ++ show gmtoff - where - gmtoff = pgTimeGMTOff pgTimestampTime - (mins, rest) = fromIntegral gmtoff `divMod` 60 + fromSQL = decodeScalar D.timestamptz_int -- BOOL instance FromSQL Bool where - type PQBase Bool = CInt - fromSQL Nothing = unexpectedNULL - fromSQL (Just n) = case n of - 0 -> pure False - _ -> pure True + fromSQL = decodeScalar D.bool ----------------------------------------- +-- INET --- | Convert PGtime to Day. -pgDateToDay :: PGdate -> Day -pgDateToDay PGdate {..} = fromGregorian year mon mday - where - year = adjustBC $ fromIntegral pgDateYear - -- Note: libpqtypes represents months as numbers in range - -- [0, 11], whereas Haskell uses [1, 12], hence plus one. - mon = fromIntegral $ pgDateMon + 1 - mday = fromIntegral pgDateMDay - -- Note: PostgreSQL has no notion of '0th year', it's 1 AD - -- and then before that 1 BC for it. Since Haskell represents - -- date according to ISO-8601, where 0th year means 1 BC, we - -- want to change the sign and adjust the year by one here, - -- if appropriate. - adjustBC = if pgDateIsBC == 1 then negate . pred else id - --- | Convert PGtime to TimeOfDay. -pgTimeToTimeOfDay :: PGtime -> TimeOfDay -pgTimeToTimeOfDay PGtime {..} = TimeOfDay hour mins $ sec + fromRational (usec % 1000000) - where - hour = fromIntegral pgTimeHour - mins = fromIntegral pgTimeMin - sec = fromIntegral pgTimeSec - usec = fromIntegral pgTimeUSec +-- | Note that there is no instance for the @cidr@ type, which shares the +-- wire format with @inet@, but has a different OID. +instance FromSQL IPRange where + fromSQL = decodeScalar D.inet + +-- RANGES + +instance FromSQL (Range Int32) where + fromSQL = decodeScalar D.int4range + +instance FromSQL (Range Int64) where + fromSQL = decodeScalar D.int8range + +instance FromSQL (Range Scientific) where + fromSQL = decodeScalar D.numrange + +instance FromSQL (Range Day) where + fromSQL = decodeScalar D.daterange + +instance FromSQL (Range LocalTime) where + fromSQL = decodeScalar D.tsrange_int + +instance FromSQL (Range UTCTime) where + fromSQL = decodeScalar D.tstzrange_int diff --git a/src/Database/PostgreSQL/PQTypes/Internal/C/Get.hs b/src/Database/PostgreSQL/PQTypes/Internal/C/Get.hs deleted file mode 100644 index 0fc57b1..0000000 --- a/src/Database/PostgreSQL/PQTypes/Internal/C/Get.hs +++ /dev/null @@ -1,2962 +0,0 @@ --- | Exports a set of FFI-imported PQgetf functions with different arities --- (PQgetf is a variadic function and there is no way to import such --- functions with FFI in their most generic form). -module Database.PostgreSQL.PQTypes.Internal.C.Get where - -import Foreign.C -import Foreign.Ptr - -import Database.PostgreSQL.PQTypes.Internal.C.Types - --- For PQgetf, we use capi imports since ccall is broken for variadic functions. --- See https://www.haskell.org/ghc/blog/20210709-capi-usage.html. - -foreign import capi unsafe "libpqtypes.h PQgetf" - c_PQgetf1 - :: Ptr PGresult - -> Ptr PGerror - -> CInt - -> CString - -> CInt - -> Ptr t1 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQgetf" - c_PQgetf2 - :: Ptr PGresult - -> Ptr PGerror - -> CInt - -> CString - -> CInt - -> Ptr t1 - -> CInt - -> Ptr t2 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQgetf" - c_PQgetf3 - :: Ptr PGresult - -> Ptr PGerror - -> CInt - -> CString - -> CInt - -> Ptr t1 - -> CInt - -> Ptr t2 - -> CInt - -> Ptr t3 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQgetf" - c_PQgetf4 - :: Ptr PGresult - -> Ptr PGerror - -> CInt - -> CString - -> CInt - -> Ptr t1 - -> CInt - -> Ptr t2 - -> CInt - -> Ptr t3 - -> CInt - -> Ptr t4 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQgetf" - c_PQgetf5 - :: Ptr PGresult - -> Ptr PGerror - -> CInt - -> CString - -> CInt - -> Ptr t1 - -> CInt - -> Ptr t2 - -> CInt - -> Ptr t3 - -> CInt - -> Ptr t4 - -> CInt - -> Ptr t5 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQgetf" - c_PQgetf6 - :: Ptr PGresult - -> Ptr PGerror - -> CInt - -> CString - -> CInt - -> Ptr t1 - -> CInt - -> Ptr t2 - -> CInt - -> Ptr t3 - -> CInt - -> Ptr t4 - -> CInt - -> Ptr t5 - -> CInt - -> Ptr t6 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQgetf" - c_PQgetf7 - :: Ptr PGresult - -> Ptr PGerror - -> CInt - -> CString - -> CInt - -> Ptr t1 - -> CInt - -> Ptr t2 - -> CInt - -> Ptr t3 - -> CInt - -> Ptr t4 - -> CInt - -> Ptr t5 - -> CInt - -> Ptr t6 - -> CInt - -> Ptr t7 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQgetf" - c_PQgetf8 - :: Ptr PGresult - -> Ptr PGerror - -> CInt - -> CString - -> CInt - -> Ptr t1 - -> CInt - -> Ptr t2 - -> CInt - -> Ptr t3 - -> CInt - -> Ptr t4 - -> CInt - -> Ptr t5 - -> CInt - -> Ptr t6 - -> CInt - -> Ptr t7 - -> CInt - -> Ptr t8 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQgetf" - c_PQgetf9 - :: Ptr PGresult - -> Ptr PGerror - -> CInt - -> CString - -> CInt - -> Ptr t1 - -> CInt - -> Ptr t2 - -> CInt - -> Ptr t3 - -> CInt - -> Ptr t4 - -> CInt - -> Ptr t5 - -> CInt - -> Ptr t6 - -> CInt - -> Ptr t7 - -> CInt - -> Ptr t8 - -> CInt - -> Ptr t9 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQgetf" - c_PQgetf10 - :: Ptr PGresult - -> Ptr PGerror - -> CInt - -> CString - -> CInt - -> Ptr t1 - -> CInt - -> Ptr t2 - -> CInt - -> Ptr t3 - -> CInt - -> Ptr t4 - -> CInt - -> Ptr t5 - -> CInt - -> Ptr t6 - -> CInt - -> Ptr t7 - -> CInt - -> Ptr t8 - -> CInt - -> Ptr t9 - -> CInt - -> Ptr t10 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQgetf" - c_PQgetf11 - :: Ptr PGresult - -> Ptr PGerror - -> CInt - -> CString - -> CInt - -> Ptr t1 - -> CInt - -> Ptr t2 - -> CInt - -> Ptr t3 - -> CInt - -> Ptr t4 - -> CInt - -> Ptr t5 - -> CInt - -> Ptr t6 - -> CInt - -> Ptr t7 - -> CInt - -> Ptr t8 - -> CInt - -> Ptr t9 - -> CInt - -> Ptr t10 - -> CInt - -> Ptr t11 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQgetf" - c_PQgetf12 - :: Ptr PGresult - -> Ptr PGerror - -> CInt - -> CString - -> CInt - -> Ptr t1 - -> CInt - -> Ptr t2 - -> CInt - -> Ptr t3 - -> CInt - -> Ptr t4 - -> CInt - -> Ptr t5 - -> CInt - -> Ptr t6 - -> CInt - -> Ptr t7 - -> CInt - -> Ptr t8 - -> CInt - -> Ptr t9 - -> CInt - -> Ptr t10 - -> CInt - -> Ptr t11 - -> CInt - -> Ptr t12 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQgetf" - c_PQgetf13 - :: Ptr PGresult - -> Ptr PGerror - -> CInt - -> CString - -> CInt - -> Ptr t1 - -> CInt - -> Ptr t2 - -> CInt - -> Ptr t3 - -> CInt - -> Ptr t4 - -> CInt - -> Ptr t5 - -> CInt - -> Ptr t6 - -> CInt - -> Ptr t7 - -> CInt - -> Ptr t8 - -> CInt - -> Ptr t9 - -> CInt - -> Ptr t10 - -> CInt - -> Ptr t11 - -> CInt - -> Ptr t12 - -> CInt - -> Ptr t13 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQgetf" - c_PQgetf14 - :: Ptr PGresult - -> Ptr PGerror - -> CInt - -> CString - -> CInt - -> Ptr t1 - -> CInt - -> Ptr t2 - -> CInt - -> Ptr t3 - -> CInt - -> Ptr t4 - -> CInt - -> Ptr t5 - -> CInt - -> Ptr t6 - -> CInt - -> Ptr t7 - -> CInt - -> Ptr t8 - -> CInt - -> Ptr t9 - -> CInt - -> Ptr t10 - -> CInt - -> Ptr t11 - -> CInt - -> Ptr t12 - -> CInt - -> Ptr t13 - -> CInt - -> Ptr t14 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQgetf" - c_PQgetf15 - :: Ptr PGresult - -> Ptr PGerror - -> CInt - -> CString - -> CInt - -> Ptr t1 - -> CInt - -> Ptr t2 - -> CInt - -> Ptr t3 - -> CInt - -> Ptr t4 - -> CInt - -> Ptr t5 - -> CInt - -> Ptr t6 - -> CInt - -> Ptr t7 - -> CInt - -> Ptr t8 - -> CInt - -> Ptr t9 - -> CInt - -> Ptr t10 - -> CInt - -> Ptr t11 - -> CInt - -> Ptr t12 - -> CInt - -> Ptr t13 - -> CInt - -> Ptr t14 - -> CInt - -> Ptr t15 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQgetf" - c_PQgetf16 - :: Ptr PGresult - -> Ptr PGerror - -> CInt - -> CString - -> CInt - -> Ptr t1 - -> CInt - -> Ptr t2 - -> CInt - -> Ptr t3 - -> CInt - -> Ptr t4 - -> CInt - -> Ptr t5 - -> CInt - -> Ptr t6 - -> CInt - -> Ptr t7 - -> CInt - -> Ptr t8 - -> CInt - -> Ptr t9 - -> CInt - -> Ptr t10 - -> CInt - -> Ptr t11 - -> CInt - -> Ptr t12 - -> CInt - -> Ptr t13 - -> CInt - -> Ptr t14 - -> CInt - -> Ptr t15 - -> CInt - -> Ptr t16 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQgetf" - c_PQgetf17 - :: Ptr PGresult - -> Ptr PGerror - -> CInt - -> CString - -> CInt - -> Ptr t1 - -> CInt - -> Ptr t2 - -> CInt - -> Ptr t3 - -> CInt - -> Ptr t4 - -> CInt - -> Ptr t5 - -> CInt - -> Ptr t6 - -> CInt - -> Ptr t7 - -> CInt - -> Ptr t8 - -> CInt - -> Ptr t9 - -> CInt - -> Ptr t10 - -> CInt - -> Ptr t11 - -> CInt - -> Ptr t12 - -> CInt - -> Ptr t13 - -> CInt - -> Ptr t14 - -> CInt - -> Ptr t15 - -> CInt - -> Ptr t16 - -> CInt - -> Ptr t17 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQgetf" - c_PQgetf18 - :: Ptr PGresult - -> Ptr PGerror - -> CInt - -> CString - -> CInt - -> Ptr t1 - -> CInt - -> Ptr t2 - -> CInt - -> Ptr t3 - -> CInt - -> Ptr t4 - -> CInt - -> Ptr t5 - -> CInt - -> Ptr t6 - -> CInt - -> Ptr t7 - -> CInt - -> Ptr t8 - -> CInt - -> Ptr t9 - -> CInt - -> Ptr t10 - -> CInt - -> Ptr t11 - -> CInt - -> Ptr t12 - -> CInt - -> Ptr t13 - -> CInt - -> Ptr t14 - -> CInt - -> Ptr t15 - -> CInt - -> Ptr t16 - -> CInt - -> Ptr t17 - -> CInt - -> Ptr t18 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQgetf" - c_PQgetf19 - :: Ptr PGresult - -> Ptr PGerror - -> CInt - -> CString - -> CInt - -> Ptr t1 - -> CInt - -> Ptr t2 - -> CInt - -> Ptr t3 - -> CInt - -> Ptr t4 - -> CInt - -> Ptr t5 - -> CInt - -> Ptr t6 - -> CInt - -> Ptr t7 - -> CInt - -> Ptr t8 - -> CInt - -> Ptr t9 - -> CInt - -> Ptr t10 - -> CInt - -> Ptr t11 - -> CInt - -> Ptr t12 - -> CInt - -> Ptr t13 - -> CInt - -> Ptr t14 - -> CInt - -> Ptr t15 - -> CInt - -> Ptr t16 - -> CInt - -> Ptr t17 - -> CInt - -> Ptr t18 - -> CInt - -> Ptr t19 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQgetf" - c_PQgetf20 - :: Ptr PGresult - -> Ptr PGerror - -> CInt - -> CString - -> CInt - -> Ptr t1 - -> CInt - -> Ptr t2 - -> CInt - -> Ptr t3 - -> CInt - -> Ptr t4 - -> CInt - -> Ptr t5 - -> CInt - -> Ptr t6 - -> CInt - -> Ptr t7 - -> CInt - -> Ptr t8 - -> CInt - -> Ptr t9 - -> CInt - -> Ptr t10 - -> CInt - -> Ptr t11 - -> CInt - -> Ptr t12 - -> CInt - -> Ptr t13 - -> CInt - -> Ptr t14 - -> CInt - -> Ptr t15 - -> CInt - -> Ptr t16 - -> CInt - -> Ptr t17 - -> CInt - -> Ptr t18 - -> CInt - -> Ptr t19 - -> CInt - -> Ptr t20 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQgetf" - c_PQgetf21 - :: Ptr PGresult - -> Ptr PGerror - -> CInt - -> CString - -> CInt - -> Ptr t1 - -> CInt - -> Ptr t2 - -> CInt - -> Ptr t3 - -> CInt - -> Ptr t4 - -> CInt - -> Ptr t5 - -> CInt - -> Ptr t6 - -> CInt - -> Ptr t7 - -> CInt - -> Ptr t8 - -> CInt - -> Ptr t9 - -> CInt - -> Ptr t10 - -> CInt - -> Ptr t11 - -> CInt - -> Ptr t12 - -> CInt - -> Ptr t13 - -> CInt - -> Ptr t14 - -> CInt - -> Ptr t15 - -> CInt - -> Ptr t16 - -> CInt - -> Ptr t17 - -> CInt - -> Ptr t18 - -> CInt - -> Ptr t19 - -> CInt - -> Ptr t20 - -> CInt - -> Ptr t21 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQgetf" - c_PQgetf22 - :: Ptr PGresult - -> Ptr PGerror - -> CInt - -> CString - -> CInt - -> Ptr t1 - -> CInt - -> Ptr t2 - -> CInt - -> Ptr t3 - -> CInt - -> Ptr t4 - -> CInt - -> Ptr t5 - -> CInt - -> Ptr t6 - -> CInt - -> Ptr t7 - -> CInt - -> Ptr t8 - -> CInt - -> Ptr t9 - -> CInt - -> Ptr t10 - -> CInt - -> Ptr t11 - -> CInt - -> Ptr t12 - -> CInt - -> Ptr t13 - -> CInt - -> Ptr t14 - -> CInt - -> Ptr t15 - -> CInt - -> Ptr t16 - -> CInt - -> Ptr t17 - -> CInt - -> Ptr t18 - -> CInt - -> Ptr t19 - -> CInt - -> Ptr t20 - -> CInt - -> Ptr t21 - -> CInt - -> Ptr t22 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQgetf" - c_PQgetf23 - :: Ptr PGresult - -> Ptr PGerror - -> CInt - -> CString - -> CInt - -> Ptr t1 - -> CInt - -> Ptr t2 - -> CInt - -> Ptr t3 - -> CInt - -> Ptr t4 - -> CInt - -> Ptr t5 - -> CInt - -> Ptr t6 - -> CInt - -> Ptr t7 - -> CInt - -> Ptr t8 - -> CInt - -> Ptr t9 - -> CInt - -> Ptr t10 - -> CInt - -> Ptr t11 - -> CInt - -> Ptr t12 - -> CInt - -> Ptr t13 - -> CInt - -> Ptr t14 - -> CInt - -> Ptr t15 - -> CInt - -> Ptr t16 - -> CInt - -> Ptr t17 - -> CInt - -> Ptr t18 - -> CInt - -> Ptr t19 - -> CInt - -> Ptr t20 - -> CInt - -> Ptr t21 - -> CInt - -> Ptr t22 - -> CInt - -> Ptr t23 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQgetf" - c_PQgetf24 - :: Ptr PGresult - -> Ptr PGerror - -> CInt - -> CString - -> CInt - -> Ptr t1 - -> CInt - -> Ptr t2 - -> CInt - -> Ptr t3 - -> CInt - -> Ptr t4 - -> CInt - -> Ptr t5 - -> CInt - -> Ptr t6 - -> CInt - -> Ptr t7 - -> CInt - -> Ptr t8 - -> CInt - -> Ptr t9 - -> CInt - -> Ptr t10 - -> CInt - -> Ptr t11 - -> CInt - -> Ptr t12 - -> CInt - -> Ptr t13 - -> CInt - -> Ptr t14 - -> CInt - -> Ptr t15 - -> CInt - -> Ptr t16 - -> CInt - -> Ptr t17 - -> CInt - -> Ptr t18 - -> CInt - -> Ptr t19 - -> CInt - -> Ptr t20 - -> CInt - -> Ptr t21 - -> CInt - -> Ptr t22 - -> CInt - -> Ptr t23 - -> CInt - -> Ptr t24 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQgetf" - c_PQgetf25 - :: Ptr PGresult - -> Ptr PGerror - -> CInt - -> CString - -> CInt - -> Ptr t1 - -> CInt - -> Ptr t2 - -> CInt - -> Ptr t3 - -> CInt - -> Ptr t4 - -> CInt - -> Ptr t5 - -> CInt - -> Ptr t6 - -> CInt - -> Ptr t7 - -> CInt - -> Ptr t8 - -> CInt - -> Ptr t9 - -> CInt - -> Ptr t10 - -> CInt - -> Ptr t11 - -> CInt - -> Ptr t12 - -> CInt - -> Ptr t13 - -> CInt - -> Ptr t14 - -> CInt - -> Ptr t15 - -> CInt - -> Ptr t16 - -> CInt - -> Ptr t17 - -> CInt - -> Ptr t18 - -> CInt - -> Ptr t19 - -> CInt - -> Ptr t20 - -> CInt - -> Ptr t21 - -> CInt - -> Ptr t22 - -> CInt - -> Ptr t23 - -> CInt - -> Ptr t24 - -> CInt - -> Ptr t25 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQgetf" - c_PQgetf26 - :: Ptr PGresult - -> Ptr PGerror - -> CInt - -> CString - -> CInt - -> Ptr t1 - -> CInt - -> Ptr t2 - -> CInt - -> Ptr t3 - -> CInt - -> Ptr t4 - -> CInt - -> Ptr t5 - -> CInt - -> Ptr t6 - -> CInt - -> Ptr t7 - -> CInt - -> Ptr t8 - -> CInt - -> Ptr t9 - -> CInt - -> Ptr t10 - -> CInt - -> Ptr t11 - -> CInt - -> Ptr t12 - -> CInt - -> Ptr t13 - -> CInt - -> Ptr t14 - -> CInt - -> Ptr t15 - -> CInt - -> Ptr t16 - -> CInt - -> Ptr t17 - -> CInt - -> Ptr t18 - -> CInt - -> Ptr t19 - -> CInt - -> Ptr t20 - -> CInt - -> Ptr t21 - -> CInt - -> Ptr t22 - -> CInt - -> Ptr t23 - -> CInt - -> Ptr t24 - -> CInt - -> Ptr t25 - -> CInt - -> Ptr t26 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQgetf" - c_PQgetf27 - :: Ptr PGresult - -> Ptr PGerror - -> CInt - -> CString - -> CInt - -> Ptr t1 - -> CInt - -> Ptr t2 - -> CInt - -> Ptr t3 - -> CInt - -> Ptr t4 - -> CInt - -> Ptr t5 - -> CInt - -> Ptr t6 - -> CInt - -> Ptr t7 - -> CInt - -> Ptr t8 - -> CInt - -> Ptr t9 - -> CInt - -> Ptr t10 - -> CInt - -> Ptr t11 - -> CInt - -> Ptr t12 - -> CInt - -> Ptr t13 - -> CInt - -> Ptr t14 - -> CInt - -> Ptr t15 - -> CInt - -> Ptr t16 - -> CInt - -> Ptr t17 - -> CInt - -> Ptr t18 - -> CInt - -> Ptr t19 - -> CInt - -> Ptr t20 - -> CInt - -> Ptr t21 - -> CInt - -> Ptr t22 - -> CInt - -> Ptr t23 - -> CInt - -> Ptr t24 - -> CInt - -> Ptr t25 - -> CInt - -> Ptr t26 - -> CInt - -> Ptr t27 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQgetf" - c_PQgetf28 - :: Ptr PGresult - -> Ptr PGerror - -> CInt - -> CString - -> CInt - -> Ptr t1 - -> CInt - -> Ptr t2 - -> CInt - -> Ptr t3 - -> CInt - -> Ptr t4 - -> CInt - -> Ptr t5 - -> CInt - -> Ptr t6 - -> CInt - -> Ptr t7 - -> CInt - -> Ptr t8 - -> CInt - -> Ptr t9 - -> CInt - -> Ptr t10 - -> CInt - -> Ptr t11 - -> CInt - -> Ptr t12 - -> CInt - -> Ptr t13 - -> CInt - -> Ptr t14 - -> CInt - -> Ptr t15 - -> CInt - -> Ptr t16 - -> CInt - -> Ptr t17 - -> CInt - -> Ptr t18 - -> CInt - -> Ptr t19 - -> CInt - -> Ptr t20 - -> CInt - -> Ptr t21 - -> CInt - -> Ptr t22 - -> CInt - -> Ptr t23 - -> CInt - -> Ptr t24 - -> CInt - -> Ptr t25 - -> CInt - -> Ptr t26 - -> CInt - -> Ptr t27 - -> CInt - -> Ptr t28 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQgetf" - c_PQgetf29 - :: Ptr PGresult - -> Ptr PGerror - -> CInt - -> CString - -> CInt - -> Ptr t1 - -> CInt - -> Ptr t2 - -> CInt - -> Ptr t3 - -> CInt - -> Ptr t4 - -> CInt - -> Ptr t5 - -> CInt - -> Ptr t6 - -> CInt - -> Ptr t7 - -> CInt - -> Ptr t8 - -> CInt - -> Ptr t9 - -> CInt - -> Ptr t10 - -> CInt - -> Ptr t11 - -> CInt - -> Ptr t12 - -> CInt - -> Ptr t13 - -> CInt - -> Ptr t14 - -> CInt - -> Ptr t15 - -> CInt - -> Ptr t16 - -> CInt - -> Ptr t17 - -> CInt - -> Ptr t18 - -> CInt - -> Ptr t19 - -> CInt - -> Ptr t20 - -> CInt - -> Ptr t21 - -> CInt - -> Ptr t22 - -> CInt - -> Ptr t23 - -> CInt - -> Ptr t24 - -> CInt - -> Ptr t25 - -> CInt - -> Ptr t26 - -> CInt - -> Ptr t27 - -> CInt - -> Ptr t28 - -> CInt - -> Ptr t29 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQgetf" - c_PQgetf30 - :: Ptr PGresult - -> Ptr PGerror - -> CInt - -> CString - -> CInt - -> Ptr t1 - -> CInt - -> Ptr t2 - -> CInt - -> Ptr t3 - -> CInt - -> Ptr t4 - -> CInt - -> Ptr t5 - -> CInt - -> Ptr t6 - -> CInt - -> Ptr t7 - -> CInt - -> Ptr t8 - -> CInt - -> Ptr t9 - -> CInt - -> Ptr t10 - -> CInt - -> Ptr t11 - -> CInt - -> Ptr t12 - -> CInt - -> Ptr t13 - -> CInt - -> Ptr t14 - -> CInt - -> Ptr t15 - -> CInt - -> Ptr t16 - -> CInt - -> Ptr t17 - -> CInt - -> Ptr t18 - -> CInt - -> Ptr t19 - -> CInt - -> Ptr t20 - -> CInt - -> Ptr t21 - -> CInt - -> Ptr t22 - -> CInt - -> Ptr t23 - -> CInt - -> Ptr t24 - -> CInt - -> Ptr t25 - -> CInt - -> Ptr t26 - -> CInt - -> Ptr t27 - -> CInt - -> Ptr t28 - -> CInt - -> Ptr t29 - -> CInt - -> Ptr t30 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQgetf" - c_PQgetf31 - :: Ptr PGresult - -> Ptr PGerror - -> CInt - -> CString - -> CInt - -> Ptr t1 - -> CInt - -> Ptr t2 - -> CInt - -> Ptr t3 - -> CInt - -> Ptr t4 - -> CInt - -> Ptr t5 - -> CInt - -> Ptr t6 - -> CInt - -> Ptr t7 - -> CInt - -> Ptr t8 - -> CInt - -> Ptr t9 - -> CInt - -> Ptr t10 - -> CInt - -> Ptr t11 - -> CInt - -> Ptr t12 - -> CInt - -> Ptr t13 - -> CInt - -> Ptr t14 - -> CInt - -> Ptr t15 - -> CInt - -> Ptr t16 - -> CInt - -> Ptr t17 - -> CInt - -> Ptr t18 - -> CInt - -> Ptr t19 - -> CInt - -> Ptr t20 - -> CInt - -> Ptr t21 - -> CInt - -> Ptr t22 - -> CInt - -> Ptr t23 - -> CInt - -> Ptr t24 - -> CInt - -> Ptr t25 - -> CInt - -> Ptr t26 - -> CInt - -> Ptr t27 - -> CInt - -> Ptr t28 - -> CInt - -> Ptr t29 - -> CInt - -> Ptr t30 - -> CInt - -> Ptr t31 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQgetf" - c_PQgetf32 - :: Ptr PGresult - -> Ptr PGerror - -> CInt - -> CString - -> CInt - -> Ptr t1 - -> CInt - -> Ptr t2 - -> CInt - -> Ptr t3 - -> CInt - -> Ptr t4 - -> CInt - -> Ptr t5 - -> CInt - -> Ptr t6 - -> CInt - -> Ptr t7 - -> CInt - -> Ptr t8 - -> CInt - -> Ptr t9 - -> CInt - -> Ptr t10 - -> CInt - -> Ptr t11 - -> CInt - -> Ptr t12 - -> CInt - -> Ptr t13 - -> CInt - -> Ptr t14 - -> CInt - -> Ptr t15 - -> CInt - -> Ptr t16 - -> CInt - -> Ptr t17 - -> CInt - -> Ptr t18 - -> CInt - -> Ptr t19 - -> CInt - -> Ptr t20 - -> CInt - -> Ptr t21 - -> CInt - -> Ptr t22 - -> CInt - -> Ptr t23 - -> CInt - -> Ptr t24 - -> CInt - -> Ptr t25 - -> CInt - -> Ptr t26 - -> CInt - -> Ptr t27 - -> CInt - -> Ptr t28 - -> CInt - -> Ptr t29 - -> CInt - -> Ptr t30 - -> CInt - -> Ptr t31 - -> CInt - -> Ptr t32 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQgetf" - c_PQgetf33 - :: Ptr PGresult - -> Ptr PGerror - -> CInt - -> CString - -> CInt - -> Ptr t1 - -> CInt - -> Ptr t2 - -> CInt - -> Ptr t3 - -> CInt - -> Ptr t4 - -> CInt - -> Ptr t5 - -> CInt - -> Ptr t6 - -> CInt - -> Ptr t7 - -> CInt - -> Ptr t8 - -> CInt - -> Ptr t9 - -> CInt - -> Ptr t10 - -> CInt - -> Ptr t11 - -> CInt - -> Ptr t12 - -> CInt - -> Ptr t13 - -> CInt - -> Ptr t14 - -> CInt - -> Ptr t15 - -> CInt - -> Ptr t16 - -> CInt - -> Ptr t17 - -> CInt - -> Ptr t18 - -> CInt - -> Ptr t19 - -> CInt - -> Ptr t20 - -> CInt - -> Ptr t21 - -> CInt - -> Ptr t22 - -> CInt - -> Ptr t23 - -> CInt - -> Ptr t24 - -> CInt - -> Ptr t25 - -> CInt - -> Ptr t26 - -> CInt - -> Ptr t27 - -> CInt - -> Ptr t28 - -> CInt - -> Ptr t29 - -> CInt - -> Ptr t30 - -> CInt - -> Ptr t31 - -> CInt - -> Ptr t32 - -> CInt - -> Ptr t33 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQgetf" - c_PQgetf34 - :: Ptr PGresult - -> Ptr PGerror - -> CInt - -> CString - -> CInt - -> Ptr t1 - -> CInt - -> Ptr t2 - -> CInt - -> Ptr t3 - -> CInt - -> Ptr t4 - -> CInt - -> Ptr t5 - -> CInt - -> Ptr t6 - -> CInt - -> Ptr t7 - -> CInt - -> Ptr t8 - -> CInt - -> Ptr t9 - -> CInt - -> Ptr t10 - -> CInt - -> Ptr t11 - -> CInt - -> Ptr t12 - -> CInt - -> Ptr t13 - -> CInt - -> Ptr t14 - -> CInt - -> Ptr t15 - -> CInt - -> Ptr t16 - -> CInt - -> Ptr t17 - -> CInt - -> Ptr t18 - -> CInt - -> Ptr t19 - -> CInt - -> Ptr t20 - -> CInt - -> Ptr t21 - -> CInt - -> Ptr t22 - -> CInt - -> Ptr t23 - -> CInt - -> Ptr t24 - -> CInt - -> Ptr t25 - -> CInt - -> Ptr t26 - -> CInt - -> Ptr t27 - -> CInt - -> Ptr t28 - -> CInt - -> Ptr t29 - -> CInt - -> Ptr t30 - -> CInt - -> Ptr t31 - -> CInt - -> Ptr t32 - -> CInt - -> Ptr t33 - -> CInt - -> Ptr t34 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQgetf" - c_PQgetf35 - :: Ptr PGresult - -> Ptr PGerror - -> CInt - -> CString - -> CInt - -> Ptr t1 - -> CInt - -> Ptr t2 - -> CInt - -> Ptr t3 - -> CInt - -> Ptr t4 - -> CInt - -> Ptr t5 - -> CInt - -> Ptr t6 - -> CInt - -> Ptr t7 - -> CInt - -> Ptr t8 - -> CInt - -> Ptr t9 - -> CInt - -> Ptr t10 - -> CInt - -> Ptr t11 - -> CInt - -> Ptr t12 - -> CInt - -> Ptr t13 - -> CInt - -> Ptr t14 - -> CInt - -> Ptr t15 - -> CInt - -> Ptr t16 - -> CInt - -> Ptr t17 - -> CInt - -> Ptr t18 - -> CInt - -> Ptr t19 - -> CInt - -> Ptr t20 - -> CInt - -> Ptr t21 - -> CInt - -> Ptr t22 - -> CInt - -> Ptr t23 - -> CInt - -> Ptr t24 - -> CInt - -> Ptr t25 - -> CInt - -> Ptr t26 - -> CInt - -> Ptr t27 - -> CInt - -> Ptr t28 - -> CInt - -> Ptr t29 - -> CInt - -> Ptr t30 - -> CInt - -> Ptr t31 - -> CInt - -> Ptr t32 - -> CInt - -> Ptr t33 - -> CInt - -> Ptr t34 - -> CInt - -> Ptr t35 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQgetf" - c_PQgetf36 - :: Ptr PGresult - -> Ptr PGerror - -> CInt - -> CString - -> CInt - -> Ptr t1 - -> CInt - -> Ptr t2 - -> CInt - -> Ptr t3 - -> CInt - -> Ptr t4 - -> CInt - -> Ptr t5 - -> CInt - -> Ptr t6 - -> CInt - -> Ptr t7 - -> CInt - -> Ptr t8 - -> CInt - -> Ptr t9 - -> CInt - -> Ptr t10 - -> CInt - -> Ptr t11 - -> CInt - -> Ptr t12 - -> CInt - -> Ptr t13 - -> CInt - -> Ptr t14 - -> CInt - -> Ptr t15 - -> CInt - -> Ptr t16 - -> CInt - -> Ptr t17 - -> CInt - -> Ptr t18 - -> CInt - -> Ptr t19 - -> CInt - -> Ptr t20 - -> CInt - -> Ptr t21 - -> CInt - -> Ptr t22 - -> CInt - -> Ptr t23 - -> CInt - -> Ptr t24 - -> CInt - -> Ptr t25 - -> CInt - -> Ptr t26 - -> CInt - -> Ptr t27 - -> CInt - -> Ptr t28 - -> CInt - -> Ptr t29 - -> CInt - -> Ptr t30 - -> CInt - -> Ptr t31 - -> CInt - -> Ptr t32 - -> CInt - -> Ptr t33 - -> CInt - -> Ptr t34 - -> CInt - -> Ptr t35 - -> CInt - -> Ptr t36 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQgetf" - c_PQgetf37 - :: Ptr PGresult - -> Ptr PGerror - -> CInt - -> CString - -> CInt - -> Ptr t1 - -> CInt - -> Ptr t2 - -> CInt - -> Ptr t3 - -> CInt - -> Ptr t4 - -> CInt - -> Ptr t5 - -> CInt - -> Ptr t6 - -> CInt - -> Ptr t7 - -> CInt - -> Ptr t8 - -> CInt - -> Ptr t9 - -> CInt - -> Ptr t10 - -> CInt - -> Ptr t11 - -> CInt - -> Ptr t12 - -> CInt - -> Ptr t13 - -> CInt - -> Ptr t14 - -> CInt - -> Ptr t15 - -> CInt - -> Ptr t16 - -> CInt - -> Ptr t17 - -> CInt - -> Ptr t18 - -> CInt - -> Ptr t19 - -> CInt - -> Ptr t20 - -> CInt - -> Ptr t21 - -> CInt - -> Ptr t22 - -> CInt - -> Ptr t23 - -> CInt - -> Ptr t24 - -> CInt - -> Ptr t25 - -> CInt - -> Ptr t26 - -> CInt - -> Ptr t27 - -> CInt - -> Ptr t28 - -> CInt - -> Ptr t29 - -> CInt - -> Ptr t30 - -> CInt - -> Ptr t31 - -> CInt - -> Ptr t32 - -> CInt - -> Ptr t33 - -> CInt - -> Ptr t34 - -> CInt - -> Ptr t35 - -> CInt - -> Ptr t36 - -> CInt - -> Ptr t37 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQgetf" - c_PQgetf38 - :: Ptr PGresult - -> Ptr PGerror - -> CInt - -> CString - -> CInt - -> Ptr t1 - -> CInt - -> Ptr t2 - -> CInt - -> Ptr t3 - -> CInt - -> Ptr t4 - -> CInt - -> Ptr t5 - -> CInt - -> Ptr t6 - -> CInt - -> Ptr t7 - -> CInt - -> Ptr t8 - -> CInt - -> Ptr t9 - -> CInt - -> Ptr t10 - -> CInt - -> Ptr t11 - -> CInt - -> Ptr t12 - -> CInt - -> Ptr t13 - -> CInt - -> Ptr t14 - -> CInt - -> Ptr t15 - -> CInt - -> Ptr t16 - -> CInt - -> Ptr t17 - -> CInt - -> Ptr t18 - -> CInt - -> Ptr t19 - -> CInt - -> Ptr t20 - -> CInt - -> Ptr t21 - -> CInt - -> Ptr t22 - -> CInt - -> Ptr t23 - -> CInt - -> Ptr t24 - -> CInt - -> Ptr t25 - -> CInt - -> Ptr t26 - -> CInt - -> Ptr t27 - -> CInt - -> Ptr t28 - -> CInt - -> Ptr t29 - -> CInt - -> Ptr t30 - -> CInt - -> Ptr t31 - -> CInt - -> Ptr t32 - -> CInt - -> Ptr t33 - -> CInt - -> Ptr t34 - -> CInt - -> Ptr t35 - -> CInt - -> Ptr t36 - -> CInt - -> Ptr t37 - -> CInt - -> Ptr t38 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQgetf" - c_PQgetf39 - :: Ptr PGresult - -> Ptr PGerror - -> CInt - -> CString - -> CInt - -> Ptr t1 - -> CInt - -> Ptr t2 - -> CInt - -> Ptr t3 - -> CInt - -> Ptr t4 - -> CInt - -> Ptr t5 - -> CInt - -> Ptr t6 - -> CInt - -> Ptr t7 - -> CInt - -> Ptr t8 - -> CInt - -> Ptr t9 - -> CInt - -> Ptr t10 - -> CInt - -> Ptr t11 - -> CInt - -> Ptr t12 - -> CInt - -> Ptr t13 - -> CInt - -> Ptr t14 - -> CInt - -> Ptr t15 - -> CInt - -> Ptr t16 - -> CInt - -> Ptr t17 - -> CInt - -> Ptr t18 - -> CInt - -> Ptr t19 - -> CInt - -> Ptr t20 - -> CInt - -> Ptr t21 - -> CInt - -> Ptr t22 - -> CInt - -> Ptr t23 - -> CInt - -> Ptr t24 - -> CInt - -> Ptr t25 - -> CInt - -> Ptr t26 - -> CInt - -> Ptr t27 - -> CInt - -> Ptr t28 - -> CInt - -> Ptr t29 - -> CInt - -> Ptr t30 - -> CInt - -> Ptr t31 - -> CInt - -> Ptr t32 - -> CInt - -> Ptr t33 - -> CInt - -> Ptr t34 - -> CInt - -> Ptr t35 - -> CInt - -> Ptr t36 - -> CInt - -> Ptr t37 - -> CInt - -> Ptr t38 - -> CInt - -> Ptr t39 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQgetf" - c_PQgetf40 - :: Ptr PGresult - -> Ptr PGerror - -> CInt - -> CString - -> CInt - -> Ptr t1 - -> CInt - -> Ptr t2 - -> CInt - -> Ptr t3 - -> CInt - -> Ptr t4 - -> CInt - -> Ptr t5 - -> CInt - -> Ptr t6 - -> CInt - -> Ptr t7 - -> CInt - -> Ptr t8 - -> CInt - -> Ptr t9 - -> CInt - -> Ptr t10 - -> CInt - -> Ptr t11 - -> CInt - -> Ptr t12 - -> CInt - -> Ptr t13 - -> CInt - -> Ptr t14 - -> CInt - -> Ptr t15 - -> CInt - -> Ptr t16 - -> CInt - -> Ptr t17 - -> CInt - -> Ptr t18 - -> CInt - -> Ptr t19 - -> CInt - -> Ptr t20 - -> CInt - -> Ptr t21 - -> CInt - -> Ptr t22 - -> CInt - -> Ptr t23 - -> CInt - -> Ptr t24 - -> CInt - -> Ptr t25 - -> CInt - -> Ptr t26 - -> CInt - -> Ptr t27 - -> CInt - -> Ptr t28 - -> CInt - -> Ptr t29 - -> CInt - -> Ptr t30 - -> CInt - -> Ptr t31 - -> CInt - -> Ptr t32 - -> CInt - -> Ptr t33 - -> CInt - -> Ptr t34 - -> CInt - -> Ptr t35 - -> CInt - -> Ptr t36 - -> CInt - -> Ptr t37 - -> CInt - -> Ptr t38 - -> CInt - -> Ptr t39 - -> CInt - -> Ptr t40 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQgetf" - c_PQgetf41 - :: Ptr PGresult - -> Ptr PGerror - -> CInt - -> CString - -> CInt - -> Ptr t1 - -> CInt - -> Ptr t2 - -> CInt - -> Ptr t3 - -> CInt - -> Ptr t4 - -> CInt - -> Ptr t5 - -> CInt - -> Ptr t6 - -> CInt - -> Ptr t7 - -> CInt - -> Ptr t8 - -> CInt - -> Ptr t9 - -> CInt - -> Ptr t10 - -> CInt - -> Ptr t11 - -> CInt - -> Ptr t12 - -> CInt - -> Ptr t13 - -> CInt - -> Ptr t14 - -> CInt - -> Ptr t15 - -> CInt - -> Ptr t16 - -> CInt - -> Ptr t17 - -> CInt - -> Ptr t18 - -> CInt - -> Ptr t19 - -> CInt - -> Ptr t20 - -> CInt - -> Ptr t21 - -> CInt - -> Ptr t22 - -> CInt - -> Ptr t23 - -> CInt - -> Ptr t24 - -> CInt - -> Ptr t25 - -> CInt - -> Ptr t26 - -> CInt - -> Ptr t27 - -> CInt - -> Ptr t28 - -> CInt - -> Ptr t29 - -> CInt - -> Ptr t30 - -> CInt - -> Ptr t31 - -> CInt - -> Ptr t32 - -> CInt - -> Ptr t33 - -> CInt - -> Ptr t34 - -> CInt - -> Ptr t35 - -> CInt - -> Ptr t36 - -> CInt - -> Ptr t37 - -> CInt - -> Ptr t38 - -> CInt - -> Ptr t39 - -> CInt - -> Ptr t40 - -> CInt - -> Ptr t41 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQgetf" - c_PQgetf42 - :: Ptr PGresult - -> Ptr PGerror - -> CInt - -> CString - -> CInt - -> Ptr t1 - -> CInt - -> Ptr t2 - -> CInt - -> Ptr t3 - -> CInt - -> Ptr t4 - -> CInt - -> Ptr t5 - -> CInt - -> Ptr t6 - -> CInt - -> Ptr t7 - -> CInt - -> Ptr t8 - -> CInt - -> Ptr t9 - -> CInt - -> Ptr t10 - -> CInt - -> Ptr t11 - -> CInt - -> Ptr t12 - -> CInt - -> Ptr t13 - -> CInt - -> Ptr t14 - -> CInt - -> Ptr t15 - -> CInt - -> Ptr t16 - -> CInt - -> Ptr t17 - -> CInt - -> Ptr t18 - -> CInt - -> Ptr t19 - -> CInt - -> Ptr t20 - -> CInt - -> Ptr t21 - -> CInt - -> Ptr t22 - -> CInt - -> Ptr t23 - -> CInt - -> Ptr t24 - -> CInt - -> Ptr t25 - -> CInt - -> Ptr t26 - -> CInt - -> Ptr t27 - -> CInt - -> Ptr t28 - -> CInt - -> Ptr t29 - -> CInt - -> Ptr t30 - -> CInt - -> Ptr t31 - -> CInt - -> Ptr t32 - -> CInt - -> Ptr t33 - -> CInt - -> Ptr t34 - -> CInt - -> Ptr t35 - -> CInt - -> Ptr t36 - -> CInt - -> Ptr t37 - -> CInt - -> Ptr t38 - -> CInt - -> Ptr t39 - -> CInt - -> Ptr t40 - -> CInt - -> Ptr t41 - -> CInt - -> Ptr t42 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQgetf" - c_PQgetf43 - :: Ptr PGresult - -> Ptr PGerror - -> CInt - -> CString - -> CInt - -> Ptr t1 - -> CInt - -> Ptr t2 - -> CInt - -> Ptr t3 - -> CInt - -> Ptr t4 - -> CInt - -> Ptr t5 - -> CInt - -> Ptr t6 - -> CInt - -> Ptr t7 - -> CInt - -> Ptr t8 - -> CInt - -> Ptr t9 - -> CInt - -> Ptr t10 - -> CInt - -> Ptr t11 - -> CInt - -> Ptr t12 - -> CInt - -> Ptr t13 - -> CInt - -> Ptr t14 - -> CInt - -> Ptr t15 - -> CInt - -> Ptr t16 - -> CInt - -> Ptr t17 - -> CInt - -> Ptr t18 - -> CInt - -> Ptr t19 - -> CInt - -> Ptr t20 - -> CInt - -> Ptr t21 - -> CInt - -> Ptr t22 - -> CInt - -> Ptr t23 - -> CInt - -> Ptr t24 - -> CInt - -> Ptr t25 - -> CInt - -> Ptr t26 - -> CInt - -> Ptr t27 - -> CInt - -> Ptr t28 - -> CInt - -> Ptr t29 - -> CInt - -> Ptr t30 - -> CInt - -> Ptr t31 - -> CInt - -> Ptr t32 - -> CInt - -> Ptr t33 - -> CInt - -> Ptr t34 - -> CInt - -> Ptr t35 - -> CInt - -> Ptr t36 - -> CInt - -> Ptr t37 - -> CInt - -> Ptr t38 - -> CInt - -> Ptr t39 - -> CInt - -> Ptr t40 - -> CInt - -> Ptr t41 - -> CInt - -> Ptr t42 - -> CInt - -> Ptr t43 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQgetf" - c_PQgetf44 - :: Ptr PGresult - -> Ptr PGerror - -> CInt - -> CString - -> CInt - -> Ptr t1 - -> CInt - -> Ptr t2 - -> CInt - -> Ptr t3 - -> CInt - -> Ptr t4 - -> CInt - -> Ptr t5 - -> CInt - -> Ptr t6 - -> CInt - -> Ptr t7 - -> CInt - -> Ptr t8 - -> CInt - -> Ptr t9 - -> CInt - -> Ptr t10 - -> CInt - -> Ptr t11 - -> CInt - -> Ptr t12 - -> CInt - -> Ptr t13 - -> CInt - -> Ptr t14 - -> CInt - -> Ptr t15 - -> CInt - -> Ptr t16 - -> CInt - -> Ptr t17 - -> CInt - -> Ptr t18 - -> CInt - -> Ptr t19 - -> CInt - -> Ptr t20 - -> CInt - -> Ptr t21 - -> CInt - -> Ptr t22 - -> CInt - -> Ptr t23 - -> CInt - -> Ptr t24 - -> CInt - -> Ptr t25 - -> CInt - -> Ptr t26 - -> CInt - -> Ptr t27 - -> CInt - -> Ptr t28 - -> CInt - -> Ptr t29 - -> CInt - -> Ptr t30 - -> CInt - -> Ptr t31 - -> CInt - -> Ptr t32 - -> CInt - -> Ptr t33 - -> CInt - -> Ptr t34 - -> CInt - -> Ptr t35 - -> CInt - -> Ptr t36 - -> CInt - -> Ptr t37 - -> CInt - -> Ptr t38 - -> CInt - -> Ptr t39 - -> CInt - -> Ptr t40 - -> CInt - -> Ptr t41 - -> CInt - -> Ptr t42 - -> CInt - -> Ptr t43 - -> CInt - -> Ptr t44 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQgetf" - c_PQgetf45 - :: Ptr PGresult - -> Ptr PGerror - -> CInt - -> CString - -> CInt - -> Ptr t1 - -> CInt - -> Ptr t2 - -> CInt - -> Ptr t3 - -> CInt - -> Ptr t4 - -> CInt - -> Ptr t5 - -> CInt - -> Ptr t6 - -> CInt - -> Ptr t7 - -> CInt - -> Ptr t8 - -> CInt - -> Ptr t9 - -> CInt - -> Ptr t10 - -> CInt - -> Ptr t11 - -> CInt - -> Ptr t12 - -> CInt - -> Ptr t13 - -> CInt - -> Ptr t14 - -> CInt - -> Ptr t15 - -> CInt - -> Ptr t16 - -> CInt - -> Ptr t17 - -> CInt - -> Ptr t18 - -> CInt - -> Ptr t19 - -> CInt - -> Ptr t20 - -> CInt - -> Ptr t21 - -> CInt - -> Ptr t22 - -> CInt - -> Ptr t23 - -> CInt - -> Ptr t24 - -> CInt - -> Ptr t25 - -> CInt - -> Ptr t26 - -> CInt - -> Ptr t27 - -> CInt - -> Ptr t28 - -> CInt - -> Ptr t29 - -> CInt - -> Ptr t30 - -> CInt - -> Ptr t31 - -> CInt - -> Ptr t32 - -> CInt - -> Ptr t33 - -> CInt - -> Ptr t34 - -> CInt - -> Ptr t35 - -> CInt - -> Ptr t36 - -> CInt - -> Ptr t37 - -> CInt - -> Ptr t38 - -> CInt - -> Ptr t39 - -> CInt - -> Ptr t40 - -> CInt - -> Ptr t41 - -> CInt - -> Ptr t42 - -> CInt - -> Ptr t43 - -> CInt - -> Ptr t44 - -> CInt - -> Ptr t45 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQgetf" - c_PQgetf46 - :: Ptr PGresult - -> Ptr PGerror - -> CInt - -> CString - -> CInt - -> Ptr t1 - -> CInt - -> Ptr t2 - -> CInt - -> Ptr t3 - -> CInt - -> Ptr t4 - -> CInt - -> Ptr t5 - -> CInt - -> Ptr t6 - -> CInt - -> Ptr t7 - -> CInt - -> Ptr t8 - -> CInt - -> Ptr t9 - -> CInt - -> Ptr t10 - -> CInt - -> Ptr t11 - -> CInt - -> Ptr t12 - -> CInt - -> Ptr t13 - -> CInt - -> Ptr t14 - -> CInt - -> Ptr t15 - -> CInt - -> Ptr t16 - -> CInt - -> Ptr t17 - -> CInt - -> Ptr t18 - -> CInt - -> Ptr t19 - -> CInt - -> Ptr t20 - -> CInt - -> Ptr t21 - -> CInt - -> Ptr t22 - -> CInt - -> Ptr t23 - -> CInt - -> Ptr t24 - -> CInt - -> Ptr t25 - -> CInt - -> Ptr t26 - -> CInt - -> Ptr t27 - -> CInt - -> Ptr t28 - -> CInt - -> Ptr t29 - -> CInt - -> Ptr t30 - -> CInt - -> Ptr t31 - -> CInt - -> Ptr t32 - -> CInt - -> Ptr t33 - -> CInt - -> Ptr t34 - -> CInt - -> Ptr t35 - -> CInt - -> Ptr t36 - -> CInt - -> Ptr t37 - -> CInt - -> Ptr t38 - -> CInt - -> Ptr t39 - -> CInt - -> Ptr t40 - -> CInt - -> Ptr t41 - -> CInt - -> Ptr t42 - -> CInt - -> Ptr t43 - -> CInt - -> Ptr t44 - -> CInt - -> Ptr t45 - -> CInt - -> Ptr t46 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQgetf" - c_PQgetf47 - :: Ptr PGresult - -> Ptr PGerror - -> CInt - -> CString - -> CInt - -> Ptr t1 - -> CInt - -> Ptr t2 - -> CInt - -> Ptr t3 - -> CInt - -> Ptr t4 - -> CInt - -> Ptr t5 - -> CInt - -> Ptr t6 - -> CInt - -> Ptr t7 - -> CInt - -> Ptr t8 - -> CInt - -> Ptr t9 - -> CInt - -> Ptr t10 - -> CInt - -> Ptr t11 - -> CInt - -> Ptr t12 - -> CInt - -> Ptr t13 - -> CInt - -> Ptr t14 - -> CInt - -> Ptr t15 - -> CInt - -> Ptr t16 - -> CInt - -> Ptr t17 - -> CInt - -> Ptr t18 - -> CInt - -> Ptr t19 - -> CInt - -> Ptr t20 - -> CInt - -> Ptr t21 - -> CInt - -> Ptr t22 - -> CInt - -> Ptr t23 - -> CInt - -> Ptr t24 - -> CInt - -> Ptr t25 - -> CInt - -> Ptr t26 - -> CInt - -> Ptr t27 - -> CInt - -> Ptr t28 - -> CInt - -> Ptr t29 - -> CInt - -> Ptr t30 - -> CInt - -> Ptr t31 - -> CInt - -> Ptr t32 - -> CInt - -> Ptr t33 - -> CInt - -> Ptr t34 - -> CInt - -> Ptr t35 - -> CInt - -> Ptr t36 - -> CInt - -> Ptr t37 - -> CInt - -> Ptr t38 - -> CInt - -> Ptr t39 - -> CInt - -> Ptr t40 - -> CInt - -> Ptr t41 - -> CInt - -> Ptr t42 - -> CInt - -> Ptr t43 - -> CInt - -> Ptr t44 - -> CInt - -> Ptr t45 - -> CInt - -> Ptr t46 - -> CInt - -> Ptr t47 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQgetf" - c_PQgetf48 - :: Ptr PGresult - -> Ptr PGerror - -> CInt - -> CString - -> CInt - -> Ptr t1 - -> CInt - -> Ptr t2 - -> CInt - -> Ptr t3 - -> CInt - -> Ptr t4 - -> CInt - -> Ptr t5 - -> CInt - -> Ptr t6 - -> CInt - -> Ptr t7 - -> CInt - -> Ptr t8 - -> CInt - -> Ptr t9 - -> CInt - -> Ptr t10 - -> CInt - -> Ptr t11 - -> CInt - -> Ptr t12 - -> CInt - -> Ptr t13 - -> CInt - -> Ptr t14 - -> CInt - -> Ptr t15 - -> CInt - -> Ptr t16 - -> CInt - -> Ptr t17 - -> CInt - -> Ptr t18 - -> CInt - -> Ptr t19 - -> CInt - -> Ptr t20 - -> CInt - -> Ptr t21 - -> CInt - -> Ptr t22 - -> CInt - -> Ptr t23 - -> CInt - -> Ptr t24 - -> CInt - -> Ptr t25 - -> CInt - -> Ptr t26 - -> CInt - -> Ptr t27 - -> CInt - -> Ptr t28 - -> CInt - -> Ptr t29 - -> CInt - -> Ptr t30 - -> CInt - -> Ptr t31 - -> CInt - -> Ptr t32 - -> CInt - -> Ptr t33 - -> CInt - -> Ptr t34 - -> CInt - -> Ptr t35 - -> CInt - -> Ptr t36 - -> CInt - -> Ptr t37 - -> CInt - -> Ptr t38 - -> CInt - -> Ptr t39 - -> CInt - -> Ptr t40 - -> CInt - -> Ptr t41 - -> CInt - -> Ptr t42 - -> CInt - -> Ptr t43 - -> CInt - -> Ptr t44 - -> CInt - -> Ptr t45 - -> CInt - -> Ptr t46 - -> CInt - -> Ptr t47 - -> CInt - -> Ptr t48 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQgetf" - c_PQgetf49 - :: Ptr PGresult - -> Ptr PGerror - -> CInt - -> CString - -> CInt - -> Ptr t1 - -> CInt - -> Ptr t2 - -> CInt - -> Ptr t3 - -> CInt - -> Ptr t4 - -> CInt - -> Ptr t5 - -> CInt - -> Ptr t6 - -> CInt - -> Ptr t7 - -> CInt - -> Ptr t8 - -> CInt - -> Ptr t9 - -> CInt - -> Ptr t10 - -> CInt - -> Ptr t11 - -> CInt - -> Ptr t12 - -> CInt - -> Ptr t13 - -> CInt - -> Ptr t14 - -> CInt - -> Ptr t15 - -> CInt - -> Ptr t16 - -> CInt - -> Ptr t17 - -> CInt - -> Ptr t18 - -> CInt - -> Ptr t19 - -> CInt - -> Ptr t20 - -> CInt - -> Ptr t21 - -> CInt - -> Ptr t22 - -> CInt - -> Ptr t23 - -> CInt - -> Ptr t24 - -> CInt - -> Ptr t25 - -> CInt - -> Ptr t26 - -> CInt - -> Ptr t27 - -> CInt - -> Ptr t28 - -> CInt - -> Ptr t29 - -> CInt - -> Ptr t30 - -> CInt - -> Ptr t31 - -> CInt - -> Ptr t32 - -> CInt - -> Ptr t33 - -> CInt - -> Ptr t34 - -> CInt - -> Ptr t35 - -> CInt - -> Ptr t36 - -> CInt - -> Ptr t37 - -> CInt - -> Ptr t38 - -> CInt - -> Ptr t39 - -> CInt - -> Ptr t40 - -> CInt - -> Ptr t41 - -> CInt - -> Ptr t42 - -> CInt - -> Ptr t43 - -> CInt - -> Ptr t44 - -> CInt - -> Ptr t45 - -> CInt - -> Ptr t46 - -> CInt - -> Ptr t47 - -> CInt - -> Ptr t48 - -> CInt - -> Ptr t49 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQgetf" - c_PQgetf50 - :: Ptr PGresult - -> Ptr PGerror - -> CInt - -> CString - -> CInt - -> Ptr t1 - -> CInt - -> Ptr t2 - -> CInt - -> Ptr t3 - -> CInt - -> Ptr t4 - -> CInt - -> Ptr t5 - -> CInt - -> Ptr t6 - -> CInt - -> Ptr t7 - -> CInt - -> Ptr t8 - -> CInt - -> Ptr t9 - -> CInt - -> Ptr t10 - -> CInt - -> Ptr t11 - -> CInt - -> Ptr t12 - -> CInt - -> Ptr t13 - -> CInt - -> Ptr t14 - -> CInt - -> Ptr t15 - -> CInt - -> Ptr t16 - -> CInt - -> Ptr t17 - -> CInt - -> Ptr t18 - -> CInt - -> Ptr t19 - -> CInt - -> Ptr t20 - -> CInt - -> Ptr t21 - -> CInt - -> Ptr t22 - -> CInt - -> Ptr t23 - -> CInt - -> Ptr t24 - -> CInt - -> Ptr t25 - -> CInt - -> Ptr t26 - -> CInt - -> Ptr t27 - -> CInt - -> Ptr t28 - -> CInt - -> Ptr t29 - -> CInt - -> Ptr t30 - -> CInt - -> Ptr t31 - -> CInt - -> Ptr t32 - -> CInt - -> Ptr t33 - -> CInt - -> Ptr t34 - -> CInt - -> Ptr t35 - -> CInt - -> Ptr t36 - -> CInt - -> Ptr t37 - -> CInt - -> Ptr t38 - -> CInt - -> Ptr t39 - -> CInt - -> Ptr t40 - -> CInt - -> Ptr t41 - -> CInt - -> Ptr t42 - -> CInt - -> Ptr t43 - -> CInt - -> Ptr t44 - -> CInt - -> Ptr t45 - -> CInt - -> Ptr t46 - -> CInt - -> Ptr t47 - -> CInt - -> Ptr t48 - -> CInt - -> Ptr t49 - -> CInt - -> Ptr t50 - -> IO CInt diff --git a/src/Database/PostgreSQL/PQTypes/Internal/C/Interface.hs b/src/Database/PostgreSQL/PQTypes/Internal/C/Interface.hs deleted file mode 100644 index f294de0..0000000 --- a/src/Database/PostgreSQL/PQTypes/Internal/C/Interface.hs +++ /dev/null @@ -1,219 +0,0 @@ --- | Exports a set of FFI-imported libpq/libpqtypes functions. -module Database.PostgreSQL.PQTypes.Internal.C.Interface - ( -- * libpq imports - c_PQfreemem - , c_PQstatus - , c_PQerrorMessage - , c_PQsetClientEncoding - , c_PQsocket - , c_PQconsumeInput - , c_PQresultStatus - , c_PQresultErrorField - , c_PQresultErrorMessage - , c_PQntuples - , c_PQnfields - , c_PQcmdTuples - , c_PQgetisnull - , c_PQfname - , c_PQclear - , c_PQcancel - , c_PQconnectdb - , c_PQfinish - - -- * libpqtypes imports - , c_PQinitTypes - , c_PQregisterTypes - , c_PQparamExec - , c_PQparamPrepare - , c_PQparamExecPrepared - , c_PQparamCreate - , c_PQparamClear - , c_PQparamCount - - -- * misc imports - , nullStringCStringLen - ) where - -import Control.Exception qualified as E -import Foreign.C -import Foreign.ForeignPtr -import Foreign.Marshal.Alloc -import Foreign.Ptr -import System.Posix.Types - -import Database.PostgreSQL.PQTypes.Internal.C.Types - ----------------------------------------- --- PGconn - -foreign import ccall unsafe "PQfreemem" - c_PQfreemem :: Ptr a -> IO () - -foreign import ccall unsafe "PQstatus" - c_PQstatus :: Ptr PGconn -> IO ConnStatusType - -foreign import ccall unsafe "PQerrorMessage" - c_PQerrorMessage :: Ptr PGconn -> IO CString - -foreign import ccall unsafe "PQsocket" - c_PQsocket :: Ptr PGconn -> IO Fd - --- | Safe as it sends a query to the server. -foreign import ccall safe "PQsetClientEncoding" - c_PQsetClientEncoding :: Ptr PGconn -> CString -> IO CInt - --- | Safe as it reads data from a socket. -foreign import ccall safe "PQconsumeInput" - c_PQconsumeInput :: Ptr PGconn -> IO CInt - --- | Safe as it connects to the database, which can take some time. -foreign import ccall safe "PQconnectdb" - c_PQconnectdb :: CString -> IO (Ptr PGconn) - --- | Safe as it sends a terminate command to the server. -foreign import ccall safe "PQfinish" - c_PQfinish :: Ptr PGconn -> IO () - ----------------------------------------- --- PGresult - -foreign import ccall unsafe "PQresultStatus" - c_PQresultStatus :: Ptr PGresult -> IO ExecStatusType - -foreign import ccall unsafe "PQresultErrorField" - c_PQresultErrorField :: Ptr PGresult -> ErrorField -> IO CString - -foreign import ccall unsafe "PQresultErrorMessage" - c_PQresultErrorMessage :: Ptr PGresult -> IO CString - -foreign import ccall unsafe "PQntuples" - c_PQntuples :: Ptr PGresult -> IO CInt - -foreign import ccall unsafe "PQnfields" - c_PQnfields :: Ptr PGresult -> IO CInt - -foreign import ccall unsafe "PQcmdTuples" - c_PQcmdTuples :: Ptr PGresult -> IO CString - -foreign import ccall unsafe "PQgetisnull" - c_PQgetisnull :: Ptr PGresult -> CInt -> CInt -> IO CInt - -foreign import ccall unsafe "PQfname" - c_PQfname :: Ptr PGresult -> CInt -> IO CString - --- | Safe as it performs multiple actions when clearing the result. -foreign import ccall safe "PQclear" - c_PQclear :: Ptr PGresult -> IO () - --- | Safe as it performs multiple actions when clearing the result. -foreign import ccall safe "&PQclear" - c_ptr_PQclear :: FunPtr (Ptr PGresult -> IO ()) - ----------------------------------------- --- PGcancel - -foreign import ccall unsafe "PQgetCancel" - c_PQgetCancel :: Ptr PGconn -> IO (Ptr PGcancel) - -foreign import ccall unsafe "PQfreeCancel" - c_PQfreeCancel :: Ptr PGcancel -> IO () - --- | Safe as it establishes a separate connection to PostgreSQL to send the --- cancellation request. -foreign import ccall safe "PQcancel" - c_rawPQcancel :: Ptr PGcancel -> CString -> CInt -> IO CInt - --- | Attempt to cancel currently running query. If the request is successfully --- dispatched Nothing is returned, otherwise a textual explanation of what --- happened. -c_PQcancel :: Ptr PGconn -> IO (Maybe String) -c_PQcancel conn = E.bracket (c_PQgetCancel conn) c_PQfreeCancel $ \cancel -> do - allocaBytes errbufsize $ \errbuf -> do - c_rawPQcancel cancel errbuf (fromIntegral errbufsize) >>= \case - 0 -> Just <$> peekCString errbuf - _ -> pure Nothing - where - -- Size recommended by - -- https://www.postgresql.org/docs/current/static/libpq-cancel.html - errbufsize :: Int - errbufsize = 256 - ----------------------------------------- --- libpqtypes / PGparam - -foreign import ccall unsafe "PQparamCreate" - c_PQparamCreate :: Ptr PGconn -> Ptr PGerror -> IO (Ptr PGparam) - -foreign import ccall unsafe "PQparamClear" - c_PQparamClear :: Ptr PGparam -> IO () - -foreign import ccall unsafe "PQparamCount" - c_PQparamCount :: Ptr PGparam -> IO CInt - --- | Safe as it calls PQregisterEventProc with a nontrivial callback. -foreign import ccall safe "PQinitTypes" - c_PQinitTypes :: Ptr PGconn -> IO () - --- | Safe as it sends a query to the server. -foreign import ccall safe "PQregisterTypes" - c_PQregisterTypes :: Ptr PGconn -> Ptr PGerror -> TypeClass -> Ptr PGregisterType -> CInt -> CInt -> IO CInt - --- | Safe as query execution might run for a long time. -foreign import ccall safe "PQparamExec" - c_rawPQparamExec :: Ptr PGconn -> Ptr PGerror -> Ptr PGparam -> CString -> ResultFormat -> IO (Ptr PGresult) - --- | Safe as it contacts the server. -foreign import ccall safe "PQparamPrepare" - c_rawPQparamPrepare :: Ptr PGconn -> Ptr PGerror -> Ptr PGparam -> CString -> CString -> IO (Ptr PGresult) - --- | Safe as query execution might run for a long time. -foreign import ccall safe "PQparamExecPrepared" - c_rawPQparamExecPrepared :: Ptr PGconn -> Ptr PGerror -> Ptr PGparam -> CString -> ResultFormat -> IO (Ptr PGresult) - --- | Safe wrapper for 'c_rawPQparamExec'. Wraps result returned by --- 'c_rawPQparamExec' in 'ForeignPtr' with asynchronous exceptions masked to --- prevent memory leaks. -c_PQparamExec :: Ptr PGconn -> Ptr PGerror -> Ptr PGparam -> CString -> ResultFormat -> IO (ForeignPtr PGresult) -c_PQparamExec conn err param fmt mode = do - E.mask_ $ - newForeignPtr c_ptr_PQclear - =<< c_rawPQparamExec conn err param fmt mode - --- | Safe wrapper for 'c_rawPQprepare'. Wraps result returned by --- 'c_rawPQprepare' in 'ForeignPtr' with asynchronous exceptions masked to --- prevent memory leaks. -c_PQparamPrepare - :: Ptr PGconn - -> Ptr PGerror - -> Ptr PGparam - -> CString - -> CString - -> IO (ForeignPtr PGresult) -c_PQparamPrepare conn err param queryName query = do - E.mask_ $ - newForeignPtr c_ptr_PQclear - =<< c_rawPQparamPrepare conn err param queryName query - --- | Safe wrapper for 'c_rawPQparamExecPrepared'. Wraps result returned by --- 'c_rawPQparamExecPrepared' in 'ForeignPtr' with asynchronous exceptions --- masked to prevent memory leaks. -c_PQparamExecPrepared - :: Ptr PGconn - -> Ptr PGerror - -> Ptr PGparam - -> CString - -> ResultFormat - -> IO (ForeignPtr PGresult) -c_PQparamExecPrepared conn err param queryName mode = do - E.mask_ $ - newForeignPtr c_ptr_PQclear - =<< c_rawPQparamExecPrepared conn err param queryName mode - ----------------------------------------- --- Miscellaneous - -foreign import ccall unsafe "&pqt_hs_null_string_ptr" - nullStringPtr :: Ptr CChar - -nullStringCStringLen :: CStringLen -nullStringCStringLen = (nullStringPtr, 0) diff --git a/src/Database/PostgreSQL/PQTypes/Internal/C/Interface.hsc b/src/Database/PostgreSQL/PQTypes/Internal/C/Interface.hsc new file mode 100644 index 0000000..6b5c9d0 --- /dev/null +++ b/src/Database/PostgreSQL/PQTypes/Internal/C/Interface.hsc @@ -0,0 +1,266 @@ +-- | Exports a set of FFI-imported libpq functions. +module Database.PostgreSQL.PQTypes.Internal.C.Interface + ( -- * libpq imports + c_PQfreemem + , c_PQstatus + , c_PQtransactionStatus + , c_PQerrorMessage + , c_PQsetClientEncoding + , c_PQprepare + , c_PQsocket + , c_PQbackendPid + , c_PQconsumeInput + , c_PQresultStatus + , c_PQresultErrorField + , c_PQntuples + , c_PQnfields + , c_PQcmdTuples + , c_PQgetisnull + , c_PQfname + , c_PQftype + , c_PQgetvalue + , c_PQgetlength + , c_PQclear + , c_ptr_PQclear + , c_PQcancel + , c_PQconnectdb + , c_PQfinish + + -- * asynchronous query processing + , c_PQsendQueryParams + , c_PQsendQueryPrepared + , c_PQsetnonblocking + , c_PQflush + , c_PQisBusy + , c_PQgetResult + + -- * misc imports + , nullStringPtr + ) where + +#include + +import Control.Exception qualified as E +import Foreign.C +import Foreign.Ptr +import System.Posix.Types + +import Database.PostgreSQL.PQTypes.Internal.C.Types +import Database.PostgreSQL.PQTypes.Internal.Oid + +#ifndef LIBPQ_HAS_ASYNC_CANCEL +import Foreign.Marshal.Alloc +#endif + +---------------------------------------- +-- PGconn + +foreign import ccall unsafe "PQfreemem" + c_PQfreemem :: Ptr a -> IO () + +foreign import ccall unsafe "PQstatus" + c_PQstatus :: Ptr PGconn -> IO ConnStatusType + +foreign import ccall unsafe "PQtransactionStatus" + c_PQtransactionStatus :: Ptr PGconn -> IO PGTransactionStatusType + +foreign import ccall unsafe "PQerrorMessage" + c_PQerrorMessage :: Ptr PGconn -> IO CString + +foreign import ccall unsafe "PQsocket" + c_PQsocket :: Ptr PGconn -> IO Fd + +foreign import ccall unsafe "PQbackendPID" + c_PQbackendPid :: Ptr PGconn -> IO CInt + +-- | Safe as it executes a query on the server and blocks waiting for its +-- result (synchronous libpq functions ignore the non-blocking mode of the +-- connection). +foreign import ccall safe "PQsetClientEncoding" + c_PQsetClientEncoding :: Ptr PGconn -> CString -> IO CInt + +-- | Safe as it executes a command on the server and blocks waiting for its +-- result (synchronous libpq functions ignore the non-blocking mode of the +-- connection). +foreign import ccall safe "PQprepare" + c_PQprepare :: Ptr PGconn -> CString -> CString -> CInt -> Ptr Oid -> IO (Ptr PGresult) + +-- | Safe as it drains data accumulated in the kernel buffer of the socket +-- (and decrypts it when TLS is in use), which can take a while (note that it +-- never blocks waiting for data though). +foreign import ccall safe "PQconsumeInput" + c_PQconsumeInput :: Ptr PGconn -> IO CInt + +-- | Safe as it connects to the database, which can take some time. +foreign import ccall safe "PQconnectdb" + c_PQconnectdb :: CString -> IO (Ptr PGconn) + +-- | Safe as it sends a terminate command to the server. +foreign import ccall safe "PQfinish" + c_PQfinish :: Ptr PGconn -> IO () + +---------------------------------------- +-- PGresult + +foreign import ccall unsafe "PQresultStatus" + c_PQresultStatus :: Ptr PGresult -> IO ExecStatusType + +foreign import ccall unsafe "PQresultErrorField" + c_PQresultErrorField :: Ptr PGresult -> ErrorField -> IO CString + +foreign import ccall unsafe "PQntuples" + c_PQntuples :: Ptr PGresult -> IO CInt + +foreign import ccall unsafe "PQnfields" + c_PQnfields :: Ptr PGresult -> IO CInt + +foreign import ccall unsafe "PQcmdTuples" + c_PQcmdTuples :: Ptr PGresult -> IO CString + +foreign import ccall unsafe "PQgetisnull" + c_PQgetisnull :: Ptr PGresult -> CInt -> CInt -> IO CInt + +foreign import ccall unsafe "PQfname" + c_PQfname :: Ptr PGresult -> CInt -> IO CString + +foreign import ccall unsafe "PQftype" + c_PQftype :: Ptr PGresult -> CInt -> IO Oid + +foreign import ccall unsafe "PQgetvalue" + c_PQgetvalue :: Ptr PGresult -> CInt -> CInt -> IO CString + +foreign import ccall unsafe "PQgetlength" + c_PQgetlength :: Ptr PGresult -> CInt -> CInt -> IO CInt + +foreign import ccall unsafe "PQclear" + c_PQclear :: Ptr PGresult -> IO () + +foreign import ccall unsafe "&PQclear" + c_ptr_PQclear :: FunPtr (Ptr PGresult -> IO ()) + +---------------------------------------- +-- Asynchronous query processing + +-- | Safe as it copies the query and its parameters into the output buffer, +-- which can take a while for large inputs (note that it never blocks on the +-- socket, since connections are always in the non-blocking mode). +foreign import ccall safe "PQsendQueryParams" + c_PQsendQueryParams + :: Ptr PGconn + -> CString + -> CInt + -> Ptr Oid + -> Ptr CString + -> Ptr CInt + -> Ptr Format + -> Format + -> IO CInt + +-- | Safe as it copies the query and its parameters into the output buffer, +-- which can take a while for large inputs (note that it never blocks on the +-- socket, since connections are always in the non-blocking mode). +foreign import ccall safe "PQsendQueryPrepared" + c_PQsendQueryPrepared + :: Ptr PGconn + -> CString + -> CInt + -> Ptr CString + -> Ptr CInt + -> Ptr Format + -> Format + -> IO CInt + +-- | Unsafe only because it's exclusively called with the second argument set +-- to 1, which merely sets a flag (setting it to 0 attempts to flush the +-- output buffer, blocking on the socket if necessary). +foreign import ccall unsafe "PQsetnonblocking" + c_PQsetnonblocking :: Ptr PGconn -> CInt -> IO CInt + +-- | Safe as it pushes data from the output buffer into the kernel buffer of +-- the socket (encrypting it first when TLS is in use), which can take a while +-- (note that it never blocks waiting for the socket to become writable +-- though, since connections are always in the non-blocking mode). +foreign import ccall safe "PQflush" + c_PQflush :: Ptr PGconn -> IO CInt + +foreign import ccall unsafe "PQisBusy" + c_PQisBusy :: Ptr PGconn -> IO CInt + +-- | Safe as it blocks waiting for data from the server if the whole result +-- is not yet available (which doesn't happen if it's called only when +-- 'c_PQisBusy' returns 0, but better safe than sorry) and constructing the +-- result involves copying the accumulated data, which can take a while. +foreign import ccall safe "PQgetResult" + c_PQgetResult :: Ptr PGconn -> IO (Ptr PGresult) + +---------------------------------------- +-- Query cancellation + +#ifdef LIBPQ_HAS_ASYNC_CANCEL + +foreign import ccall unsafe "PQcancelCreate" + c_PQcancelCreate :: Ptr PGconn -> IO (Ptr PGcancelConn) + +-- | Safe as it establishes a separate connection to PostgreSQL to send the +-- cancellation request and waits until the server acknowledges its receipt +-- by closing that connection. +foreign import ccall safe "PQcancelBlocking" + c_PQcancelBlocking :: Ptr PGcancelConn -> IO CInt + +foreign import ccall unsafe "PQcancelErrorMessage" + c_PQcancelErrorMessage :: Ptr PGcancelConn -> IO CString + +foreign import ccall unsafe "PQcancelFinish" + c_PQcancelFinish :: Ptr PGcancelConn -> IO () + +-- | Attempt to cancel the currently running query. Returns once the server +-- acknowledged the receipt of the cancellation request; Nothing on success, +-- otherwise a textual explanation of what happened. +c_PQcancel :: Ptr PGconn -> IO (Maybe String) +c_PQcancel conn = do + E.bracket (c_PQcancelCreate conn) c_PQcancelFinish $ \cancelConn -> + if cancelConn == nullPtr + then pure $ Just "PQcancelCreate returned a null pointer" + else c_PQcancelBlocking cancelConn >>= \case + 0 -> Just <$> (peekCString =<< c_PQcancelErrorMessage cancelConn) + _ -> pure Nothing + +#else + +foreign import ccall unsafe "PQgetCancel" + c_PQgetCancel :: Ptr PGconn -> IO (Ptr PGcancel) + +foreign import ccall unsafe "PQfreeCancel" + c_PQfreeCancel :: Ptr PGcancel -> IO () + +-- | Safe as it establishes a separate connection to PostgreSQL to send the +-- cancellation request and waits until the server acknowledges its receipt +-- by closing that connection. +foreign import ccall safe "PQcancel" + c_rawPQcancel :: Ptr PGcancel -> CString -> CInt -> IO CInt + +-- | Attempt to cancel the currently running query. Returns once the server +-- acknowledged the receipt of the cancellation request; Nothing on success, +-- otherwise a textual explanation of what happened. +c_PQcancel :: Ptr PGconn -> IO (Maybe String) +c_PQcancel conn = E.bracket (c_PQgetCancel conn) c_PQfreeCancel $ \cancel -> do + allocaBytes errbufsize $ \errbuf -> do + c_rawPQcancel cancel errbuf (fromIntegral errbufsize) >>= \case + 0 -> Just <$> peekCString errbuf + _ -> pure Nothing + where + -- Size recommended by + -- https://www.postgresql.org/docs/current/static/libpq-cancel.html + errbufsize :: Int + errbufsize = 256 + +#endif + +---------------------------------------- +-- Miscellaneous + +-- | A non-null pointer to an empty C string, for passing an empty value to +-- libpq in case the input ByteString is backed by a null pointer, which +-- libpq would interpret as SQL NULL. +foreign import ccall unsafe "&hpqtypes_null_string_ptr" + nullStringPtr :: CString diff --git a/src/Database/PostgreSQL/PQTypes/Internal/C/Put.hs b/src/Database/PostgreSQL/PQTypes/Internal/C/Put.hs deleted file mode 100644 index da92014..0000000 --- a/src/Database/PostgreSQL/PQTypes/Internal/C/Put.hs +++ /dev/null @@ -1,1637 +0,0 @@ --- | Exports a set of FFI-imported PQputf functions with different arities --- (PQputf is a variadic function and there is no way to import such --- functions with FFI in their most generic form). -module Database.PostgreSQL.PQTypes.Internal.C.Put where - -import Foreign.C -import Foreign.Ptr - -import Database.PostgreSQL.PQTypes.Internal.C.Types - --- For PQputf, we use capi imports since ccall is broken for variadic functions. --- See https://www.haskell.org/ghc/blog/20210709-capi-usage.html. - -foreign import capi unsafe "libpqtypes.h PQputf" - c_PQputf1 - :: Ptr PGparam - -> Ptr PGerror - -> CString - -> Ptr t - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQputf" - c_PQputf2 - :: Ptr PGparam - -> Ptr PGerror - -> CString - -> Ptr t1 - -> Ptr t2 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQputf" - c_PQputf3 - :: Ptr PGparam - -> Ptr PGerror - -> CString - -> Ptr t1 - -> Ptr t2 - -> Ptr t3 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQputf" - c_PQputf4 - :: Ptr PGparam - -> Ptr PGerror - -> CString - -> Ptr t1 - -> Ptr t2 - -> Ptr t3 - -> Ptr t4 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQputf" - c_PQputf5 - :: Ptr PGparam - -> Ptr PGerror - -> CString - -> Ptr t1 - -> Ptr t2 - -> Ptr t3 - -> Ptr t4 - -> Ptr t5 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQputf" - c_PQputf6 - :: Ptr PGparam - -> Ptr PGerror - -> CString - -> Ptr t1 - -> Ptr t2 - -> Ptr t3 - -> Ptr t4 - -> Ptr t5 - -> Ptr t6 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQputf" - c_PQputf7 - :: Ptr PGparam - -> Ptr PGerror - -> CString - -> Ptr t1 - -> Ptr t2 - -> Ptr t3 - -> Ptr t4 - -> Ptr t5 - -> Ptr t6 - -> Ptr t7 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQputf" - c_PQputf8 - :: Ptr PGparam - -> Ptr PGerror - -> CString - -> Ptr t1 - -> Ptr t2 - -> Ptr t3 - -> Ptr t4 - -> Ptr t5 - -> Ptr t6 - -> Ptr t7 - -> Ptr t8 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQputf" - c_PQputf9 - :: Ptr PGparam - -> Ptr PGerror - -> CString - -> Ptr t1 - -> Ptr t2 - -> Ptr t3 - -> Ptr t4 - -> Ptr t5 - -> Ptr t6 - -> Ptr t7 - -> Ptr t8 - -> Ptr t9 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQputf" - c_PQputf10 - :: Ptr PGparam - -> Ptr PGerror - -> CString - -> Ptr t1 - -> Ptr t2 - -> Ptr t3 - -> Ptr t4 - -> Ptr t5 - -> Ptr t6 - -> Ptr t7 - -> Ptr t8 - -> Ptr t9 - -> Ptr t10 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQputf" - c_PQputf11 - :: Ptr PGparam - -> Ptr PGerror - -> CString - -> Ptr t1 - -> Ptr t2 - -> Ptr t3 - -> Ptr t4 - -> Ptr t5 - -> Ptr t6 - -> Ptr t7 - -> Ptr t8 - -> Ptr t9 - -> Ptr t10 - -> Ptr t11 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQputf" - c_PQputf12 - :: Ptr PGparam - -> Ptr PGerror - -> CString - -> Ptr t1 - -> Ptr t2 - -> Ptr t3 - -> Ptr t4 - -> Ptr t5 - -> Ptr t6 - -> Ptr t7 - -> Ptr t8 - -> Ptr t9 - -> Ptr t10 - -> Ptr t11 - -> Ptr t12 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQputf" - c_PQputf13 - :: Ptr PGparam - -> Ptr PGerror - -> CString - -> Ptr t1 - -> Ptr t2 - -> Ptr t3 - -> Ptr t4 - -> Ptr t5 - -> Ptr t6 - -> Ptr t7 - -> Ptr t8 - -> Ptr t9 - -> Ptr t10 - -> Ptr t11 - -> Ptr t12 - -> Ptr t13 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQputf" - c_PQputf14 - :: Ptr PGparam - -> Ptr PGerror - -> CString - -> Ptr t1 - -> Ptr t2 - -> Ptr t3 - -> Ptr t4 - -> Ptr t5 - -> Ptr t6 - -> Ptr t7 - -> Ptr t8 - -> Ptr t9 - -> Ptr t10 - -> Ptr t11 - -> Ptr t12 - -> Ptr t13 - -> Ptr t14 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQputf" - c_PQputf15 - :: Ptr PGparam - -> Ptr PGerror - -> CString - -> Ptr t1 - -> Ptr t2 - -> Ptr t3 - -> Ptr t4 - -> Ptr t5 - -> Ptr t6 - -> Ptr t7 - -> Ptr t8 - -> Ptr t9 - -> Ptr t10 - -> Ptr t11 - -> Ptr t12 - -> Ptr t13 - -> Ptr t14 - -> Ptr t15 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQputf" - c_PQputf16 - :: Ptr PGparam - -> Ptr PGerror - -> CString - -> Ptr t1 - -> Ptr t2 - -> Ptr t3 - -> Ptr t4 - -> Ptr t5 - -> Ptr t6 - -> Ptr t7 - -> Ptr t8 - -> Ptr t9 - -> Ptr t10 - -> Ptr t11 - -> Ptr t12 - -> Ptr t13 - -> Ptr t14 - -> Ptr t15 - -> Ptr t16 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQputf" - c_PQputf17 - :: Ptr PGparam - -> Ptr PGerror - -> CString - -> Ptr t1 - -> Ptr t2 - -> Ptr t3 - -> Ptr t4 - -> Ptr t5 - -> Ptr t6 - -> Ptr t7 - -> Ptr t8 - -> Ptr t9 - -> Ptr t10 - -> Ptr t11 - -> Ptr t12 - -> Ptr t13 - -> Ptr t14 - -> Ptr t15 - -> Ptr t16 - -> Ptr t17 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQputf" - c_PQputf18 - :: Ptr PGparam - -> Ptr PGerror - -> CString - -> Ptr t1 - -> Ptr t2 - -> Ptr t3 - -> Ptr t4 - -> Ptr t5 - -> Ptr t6 - -> Ptr t7 - -> Ptr t8 - -> Ptr t9 - -> Ptr t10 - -> Ptr t11 - -> Ptr t12 - -> Ptr t13 - -> Ptr t14 - -> Ptr t15 - -> Ptr t16 - -> Ptr t17 - -> Ptr t18 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQputf" - c_PQputf19 - :: Ptr PGparam - -> Ptr PGerror - -> CString - -> Ptr t1 - -> Ptr t2 - -> Ptr t3 - -> Ptr t4 - -> Ptr t5 - -> Ptr t6 - -> Ptr t7 - -> Ptr t8 - -> Ptr t9 - -> Ptr t10 - -> Ptr t11 - -> Ptr t12 - -> Ptr t13 - -> Ptr t14 - -> Ptr t15 - -> Ptr t16 - -> Ptr t17 - -> Ptr t18 - -> Ptr t19 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQputf" - c_PQputf20 - :: Ptr PGparam - -> Ptr PGerror - -> CString - -> Ptr t1 - -> Ptr t2 - -> Ptr t3 - -> Ptr t4 - -> Ptr t5 - -> Ptr t6 - -> Ptr t7 - -> Ptr t8 - -> Ptr t9 - -> Ptr t10 - -> Ptr t11 - -> Ptr t12 - -> Ptr t13 - -> Ptr t14 - -> Ptr t15 - -> Ptr t16 - -> Ptr t17 - -> Ptr t18 - -> Ptr t19 - -> Ptr t20 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQputf" - c_PQputf21 - :: Ptr PGparam - -> Ptr PGerror - -> CString - -> Ptr t1 - -> Ptr t2 - -> Ptr t3 - -> Ptr t4 - -> Ptr t5 - -> Ptr t6 - -> Ptr t7 - -> Ptr t8 - -> Ptr t9 - -> Ptr t10 - -> Ptr t11 - -> Ptr t12 - -> Ptr t13 - -> Ptr t14 - -> Ptr t15 - -> Ptr t16 - -> Ptr t17 - -> Ptr t18 - -> Ptr t19 - -> Ptr t20 - -> Ptr t21 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQputf" - c_PQputf22 - :: Ptr PGparam - -> Ptr PGerror - -> CString - -> Ptr t1 - -> Ptr t2 - -> Ptr t3 - -> Ptr t4 - -> Ptr t5 - -> Ptr t6 - -> Ptr t7 - -> Ptr t8 - -> Ptr t9 - -> Ptr t10 - -> Ptr t11 - -> Ptr t12 - -> Ptr t13 - -> Ptr t14 - -> Ptr t15 - -> Ptr t16 - -> Ptr t17 - -> Ptr t18 - -> Ptr t19 - -> Ptr t20 - -> Ptr t21 - -> Ptr t22 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQputf" - c_PQputf23 - :: Ptr PGparam - -> Ptr PGerror - -> CString - -> Ptr t1 - -> Ptr t2 - -> Ptr t3 - -> Ptr t4 - -> Ptr t5 - -> Ptr t6 - -> Ptr t7 - -> Ptr t8 - -> Ptr t9 - -> Ptr t10 - -> Ptr t11 - -> Ptr t12 - -> Ptr t13 - -> Ptr t14 - -> Ptr t15 - -> Ptr t16 - -> Ptr t17 - -> Ptr t18 - -> Ptr t19 - -> Ptr t20 - -> Ptr t21 - -> Ptr t22 - -> Ptr t23 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQputf" - c_PQputf24 - :: Ptr PGparam - -> Ptr PGerror - -> CString - -> Ptr t1 - -> Ptr t2 - -> Ptr t3 - -> Ptr t4 - -> Ptr t5 - -> Ptr t6 - -> Ptr t7 - -> Ptr t8 - -> Ptr t9 - -> Ptr t10 - -> Ptr t11 - -> Ptr t12 - -> Ptr t13 - -> Ptr t14 - -> Ptr t15 - -> Ptr t16 - -> Ptr t17 - -> Ptr t18 - -> Ptr t19 - -> Ptr t20 - -> Ptr t21 - -> Ptr t22 - -> Ptr t23 - -> Ptr t24 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQputf" - c_PQputf25 - :: Ptr PGparam - -> Ptr PGerror - -> CString - -> Ptr t1 - -> Ptr t2 - -> Ptr t3 - -> Ptr t4 - -> Ptr t5 - -> Ptr t6 - -> Ptr t7 - -> Ptr t8 - -> Ptr t9 - -> Ptr t10 - -> Ptr t11 - -> Ptr t12 - -> Ptr t13 - -> Ptr t14 - -> Ptr t15 - -> Ptr t16 - -> Ptr t17 - -> Ptr t18 - -> Ptr t19 - -> Ptr t20 - -> Ptr t21 - -> Ptr t22 - -> Ptr t23 - -> Ptr t24 - -> Ptr t25 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQputf" - c_PQputf26 - :: Ptr PGparam - -> Ptr PGerror - -> CString - -> Ptr t1 - -> Ptr t2 - -> Ptr t3 - -> Ptr t4 - -> Ptr t5 - -> Ptr t6 - -> Ptr t7 - -> Ptr t8 - -> Ptr t9 - -> Ptr t10 - -> Ptr t11 - -> Ptr t12 - -> Ptr t13 - -> Ptr t14 - -> Ptr t15 - -> Ptr t16 - -> Ptr t17 - -> Ptr t18 - -> Ptr t19 - -> Ptr t20 - -> Ptr t21 - -> Ptr t22 - -> Ptr t23 - -> Ptr t24 - -> Ptr t25 - -> Ptr t26 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQputf" - c_PQputf27 - :: Ptr PGparam - -> Ptr PGerror - -> CString - -> Ptr t1 - -> Ptr t2 - -> Ptr t3 - -> Ptr t4 - -> Ptr t5 - -> Ptr t6 - -> Ptr t7 - -> Ptr t8 - -> Ptr t9 - -> Ptr t10 - -> Ptr t11 - -> Ptr t12 - -> Ptr t13 - -> Ptr t14 - -> Ptr t15 - -> Ptr t16 - -> Ptr t17 - -> Ptr t18 - -> Ptr t19 - -> Ptr t20 - -> Ptr t21 - -> Ptr t22 - -> Ptr t23 - -> Ptr t24 - -> Ptr t25 - -> Ptr t26 - -> Ptr t27 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQputf" - c_PQputf28 - :: Ptr PGparam - -> Ptr PGerror - -> CString - -> Ptr t1 - -> Ptr t2 - -> Ptr t3 - -> Ptr t4 - -> Ptr t5 - -> Ptr t6 - -> Ptr t7 - -> Ptr t8 - -> Ptr t9 - -> Ptr t10 - -> Ptr t11 - -> Ptr t12 - -> Ptr t13 - -> Ptr t14 - -> Ptr t15 - -> Ptr t16 - -> Ptr t17 - -> Ptr t18 - -> Ptr t19 - -> Ptr t20 - -> Ptr t21 - -> Ptr t22 - -> Ptr t23 - -> Ptr t24 - -> Ptr t25 - -> Ptr t26 - -> Ptr t27 - -> Ptr t28 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQputf" - c_PQputf29 - :: Ptr PGparam - -> Ptr PGerror - -> CString - -> Ptr t1 - -> Ptr t2 - -> Ptr t3 - -> Ptr t4 - -> Ptr t5 - -> Ptr t6 - -> Ptr t7 - -> Ptr t8 - -> Ptr t9 - -> Ptr t10 - -> Ptr t11 - -> Ptr t12 - -> Ptr t13 - -> Ptr t14 - -> Ptr t15 - -> Ptr t16 - -> Ptr t17 - -> Ptr t18 - -> Ptr t19 - -> Ptr t20 - -> Ptr t21 - -> Ptr t22 - -> Ptr t23 - -> Ptr t24 - -> Ptr t25 - -> Ptr t26 - -> Ptr t27 - -> Ptr t28 - -> Ptr t29 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQputf" - c_PQputf30 - :: Ptr PGparam - -> Ptr PGerror - -> CString - -> Ptr t1 - -> Ptr t2 - -> Ptr t3 - -> Ptr t4 - -> Ptr t5 - -> Ptr t6 - -> Ptr t7 - -> Ptr t8 - -> Ptr t9 - -> Ptr t10 - -> Ptr t11 - -> Ptr t12 - -> Ptr t13 - -> Ptr t14 - -> Ptr t15 - -> Ptr t16 - -> Ptr t17 - -> Ptr t18 - -> Ptr t19 - -> Ptr t20 - -> Ptr t21 - -> Ptr t22 - -> Ptr t23 - -> Ptr t24 - -> Ptr t25 - -> Ptr t26 - -> Ptr t27 - -> Ptr t28 - -> Ptr t29 - -> Ptr t30 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQputf" - c_PQputf31 - :: Ptr PGparam - -> Ptr PGerror - -> CString - -> Ptr t1 - -> Ptr t2 - -> Ptr t3 - -> Ptr t4 - -> Ptr t5 - -> Ptr t6 - -> Ptr t7 - -> Ptr t8 - -> Ptr t9 - -> Ptr t10 - -> Ptr t11 - -> Ptr t12 - -> Ptr t13 - -> Ptr t14 - -> Ptr t15 - -> Ptr t16 - -> Ptr t17 - -> Ptr t18 - -> Ptr t19 - -> Ptr t20 - -> Ptr t21 - -> Ptr t22 - -> Ptr t23 - -> Ptr t24 - -> Ptr t25 - -> Ptr t26 - -> Ptr t27 - -> Ptr t28 - -> Ptr t29 - -> Ptr t30 - -> Ptr t31 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQputf" - c_PQputf32 - :: Ptr PGparam - -> Ptr PGerror - -> CString - -> Ptr t1 - -> Ptr t2 - -> Ptr t3 - -> Ptr t4 - -> Ptr t5 - -> Ptr t6 - -> Ptr t7 - -> Ptr t8 - -> Ptr t9 - -> Ptr t10 - -> Ptr t11 - -> Ptr t12 - -> Ptr t13 - -> Ptr t14 - -> Ptr t15 - -> Ptr t16 - -> Ptr t17 - -> Ptr t18 - -> Ptr t19 - -> Ptr t20 - -> Ptr t21 - -> Ptr t22 - -> Ptr t23 - -> Ptr t24 - -> Ptr t25 - -> Ptr t26 - -> Ptr t27 - -> Ptr t28 - -> Ptr t29 - -> Ptr t30 - -> Ptr t31 - -> Ptr t32 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQputf" - c_PQputf33 - :: Ptr PGparam - -> Ptr PGerror - -> CString - -> Ptr t1 - -> Ptr t2 - -> Ptr t3 - -> Ptr t4 - -> Ptr t5 - -> Ptr t6 - -> Ptr t7 - -> Ptr t8 - -> Ptr t9 - -> Ptr t10 - -> Ptr t11 - -> Ptr t12 - -> Ptr t13 - -> Ptr t14 - -> Ptr t15 - -> Ptr t16 - -> Ptr t17 - -> Ptr t18 - -> Ptr t19 - -> Ptr t20 - -> Ptr t21 - -> Ptr t22 - -> Ptr t23 - -> Ptr t24 - -> Ptr t25 - -> Ptr t26 - -> Ptr t27 - -> Ptr t28 - -> Ptr t29 - -> Ptr t30 - -> Ptr t31 - -> Ptr t32 - -> Ptr t33 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQputf" - c_PQputf34 - :: Ptr PGparam - -> Ptr PGerror - -> CString - -> Ptr t1 - -> Ptr t2 - -> Ptr t3 - -> Ptr t4 - -> Ptr t5 - -> Ptr t6 - -> Ptr t7 - -> Ptr t8 - -> Ptr t9 - -> Ptr t10 - -> Ptr t11 - -> Ptr t12 - -> Ptr t13 - -> Ptr t14 - -> Ptr t15 - -> Ptr t16 - -> Ptr t17 - -> Ptr t18 - -> Ptr t19 - -> Ptr t20 - -> Ptr t21 - -> Ptr t22 - -> Ptr t23 - -> Ptr t24 - -> Ptr t25 - -> Ptr t26 - -> Ptr t27 - -> Ptr t28 - -> Ptr t29 - -> Ptr t30 - -> Ptr t31 - -> Ptr t32 - -> Ptr t33 - -> Ptr t34 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQputf" - c_PQputf35 - :: Ptr PGparam - -> Ptr PGerror - -> CString - -> Ptr t1 - -> Ptr t2 - -> Ptr t3 - -> Ptr t4 - -> Ptr t5 - -> Ptr t6 - -> Ptr t7 - -> Ptr t8 - -> Ptr t9 - -> Ptr t10 - -> Ptr t11 - -> Ptr t12 - -> Ptr t13 - -> Ptr t14 - -> Ptr t15 - -> Ptr t16 - -> Ptr t17 - -> Ptr t18 - -> Ptr t19 - -> Ptr t20 - -> Ptr t21 - -> Ptr t22 - -> Ptr t23 - -> Ptr t24 - -> Ptr t25 - -> Ptr t26 - -> Ptr t27 - -> Ptr t28 - -> Ptr t29 - -> Ptr t30 - -> Ptr t31 - -> Ptr t32 - -> Ptr t33 - -> Ptr t34 - -> Ptr t35 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQputf" - c_PQputf36 - :: Ptr PGparam - -> Ptr PGerror - -> CString - -> Ptr t1 - -> Ptr t2 - -> Ptr t3 - -> Ptr t4 - -> Ptr t5 - -> Ptr t6 - -> Ptr t7 - -> Ptr t8 - -> Ptr t9 - -> Ptr t10 - -> Ptr t11 - -> Ptr t12 - -> Ptr t13 - -> Ptr t14 - -> Ptr t15 - -> Ptr t16 - -> Ptr t17 - -> Ptr t18 - -> Ptr t19 - -> Ptr t20 - -> Ptr t21 - -> Ptr t22 - -> Ptr t23 - -> Ptr t24 - -> Ptr t25 - -> Ptr t26 - -> Ptr t27 - -> Ptr t28 - -> Ptr t29 - -> Ptr t30 - -> Ptr t31 - -> Ptr t32 - -> Ptr t33 - -> Ptr t34 - -> Ptr t35 - -> Ptr t36 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQputf" - c_PQputf37 - :: Ptr PGparam - -> Ptr PGerror - -> CString - -> Ptr t1 - -> Ptr t2 - -> Ptr t3 - -> Ptr t4 - -> Ptr t5 - -> Ptr t6 - -> Ptr t7 - -> Ptr t8 - -> Ptr t9 - -> Ptr t10 - -> Ptr t11 - -> Ptr t12 - -> Ptr t13 - -> Ptr t14 - -> Ptr t15 - -> Ptr t16 - -> Ptr t17 - -> Ptr t18 - -> Ptr t19 - -> Ptr t20 - -> Ptr t21 - -> Ptr t22 - -> Ptr t23 - -> Ptr t24 - -> Ptr t25 - -> Ptr t26 - -> Ptr t27 - -> Ptr t28 - -> Ptr t29 - -> Ptr t30 - -> Ptr t31 - -> Ptr t32 - -> Ptr t33 - -> Ptr t34 - -> Ptr t35 - -> Ptr t36 - -> Ptr t37 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQputf" - c_PQputf38 - :: Ptr PGparam - -> Ptr PGerror - -> CString - -> Ptr t1 - -> Ptr t2 - -> Ptr t3 - -> Ptr t4 - -> Ptr t5 - -> Ptr t6 - -> Ptr t7 - -> Ptr t8 - -> Ptr t9 - -> Ptr t10 - -> Ptr t11 - -> Ptr t12 - -> Ptr t13 - -> Ptr t14 - -> Ptr t15 - -> Ptr t16 - -> Ptr t17 - -> Ptr t18 - -> Ptr t19 - -> Ptr t20 - -> Ptr t21 - -> Ptr t22 - -> Ptr t23 - -> Ptr t24 - -> Ptr t25 - -> Ptr t26 - -> Ptr t27 - -> Ptr t28 - -> Ptr t29 - -> Ptr t30 - -> Ptr t31 - -> Ptr t32 - -> Ptr t33 - -> Ptr t34 - -> Ptr t35 - -> Ptr t36 - -> Ptr t37 - -> Ptr t38 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQputf" - c_PQputf39 - :: Ptr PGparam - -> Ptr PGerror - -> CString - -> Ptr t1 - -> Ptr t2 - -> Ptr t3 - -> Ptr t4 - -> Ptr t5 - -> Ptr t6 - -> Ptr t7 - -> Ptr t8 - -> Ptr t9 - -> Ptr t10 - -> Ptr t11 - -> Ptr t12 - -> Ptr t13 - -> Ptr t14 - -> Ptr t15 - -> Ptr t16 - -> Ptr t17 - -> Ptr t18 - -> Ptr t19 - -> Ptr t20 - -> Ptr t21 - -> Ptr t22 - -> Ptr t23 - -> Ptr t24 - -> Ptr t25 - -> Ptr t26 - -> Ptr t27 - -> Ptr t28 - -> Ptr t29 - -> Ptr t30 - -> Ptr t31 - -> Ptr t32 - -> Ptr t33 - -> Ptr t34 - -> Ptr t35 - -> Ptr t36 - -> Ptr t37 - -> Ptr t38 - -> Ptr t39 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQputf" - c_PQputf40 - :: Ptr PGparam - -> Ptr PGerror - -> CString - -> Ptr t1 - -> Ptr t2 - -> Ptr t3 - -> Ptr t4 - -> Ptr t5 - -> Ptr t6 - -> Ptr t7 - -> Ptr t8 - -> Ptr t9 - -> Ptr t10 - -> Ptr t11 - -> Ptr t12 - -> Ptr t13 - -> Ptr t14 - -> Ptr t15 - -> Ptr t16 - -> Ptr t17 - -> Ptr t18 - -> Ptr t19 - -> Ptr t20 - -> Ptr t21 - -> Ptr t22 - -> Ptr t23 - -> Ptr t24 - -> Ptr t25 - -> Ptr t26 - -> Ptr t27 - -> Ptr t28 - -> Ptr t29 - -> Ptr t30 - -> Ptr t31 - -> Ptr t32 - -> Ptr t33 - -> Ptr t34 - -> Ptr t35 - -> Ptr t36 - -> Ptr t37 - -> Ptr t38 - -> Ptr t39 - -> Ptr t40 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQputf" - c_PQputf41 - :: Ptr PGparam - -> Ptr PGerror - -> CString - -> Ptr t1 - -> Ptr t2 - -> Ptr t3 - -> Ptr t4 - -> Ptr t5 - -> Ptr t6 - -> Ptr t7 - -> Ptr t8 - -> Ptr t9 - -> Ptr t10 - -> Ptr t11 - -> Ptr t12 - -> Ptr t13 - -> Ptr t14 - -> Ptr t15 - -> Ptr t16 - -> Ptr t17 - -> Ptr t18 - -> Ptr t19 - -> Ptr t20 - -> Ptr t21 - -> Ptr t22 - -> Ptr t23 - -> Ptr t24 - -> Ptr t25 - -> Ptr t26 - -> Ptr t27 - -> Ptr t28 - -> Ptr t29 - -> Ptr t30 - -> Ptr t31 - -> Ptr t32 - -> Ptr t33 - -> Ptr t34 - -> Ptr t35 - -> Ptr t36 - -> Ptr t37 - -> Ptr t38 - -> Ptr t39 - -> Ptr t40 - -> Ptr t41 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQputf" - c_PQputf42 - :: Ptr PGparam - -> Ptr PGerror - -> CString - -> Ptr t1 - -> Ptr t2 - -> Ptr t3 - -> Ptr t4 - -> Ptr t5 - -> Ptr t6 - -> Ptr t7 - -> Ptr t8 - -> Ptr t9 - -> Ptr t10 - -> Ptr t11 - -> Ptr t12 - -> Ptr t13 - -> Ptr t14 - -> Ptr t15 - -> Ptr t16 - -> Ptr t17 - -> Ptr t18 - -> Ptr t19 - -> Ptr t20 - -> Ptr t21 - -> Ptr t22 - -> Ptr t23 - -> Ptr t24 - -> Ptr t25 - -> Ptr t26 - -> Ptr t27 - -> Ptr t28 - -> Ptr t29 - -> Ptr t30 - -> Ptr t31 - -> Ptr t32 - -> Ptr t33 - -> Ptr t34 - -> Ptr t35 - -> Ptr t36 - -> Ptr t37 - -> Ptr t38 - -> Ptr t39 - -> Ptr t40 - -> Ptr t41 - -> Ptr t42 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQputf" - c_PQputf43 - :: Ptr PGparam - -> Ptr PGerror - -> CString - -> Ptr t1 - -> Ptr t2 - -> Ptr t3 - -> Ptr t4 - -> Ptr t5 - -> Ptr t6 - -> Ptr t7 - -> Ptr t8 - -> Ptr t9 - -> Ptr t10 - -> Ptr t11 - -> Ptr t12 - -> Ptr t13 - -> Ptr t14 - -> Ptr t15 - -> Ptr t16 - -> Ptr t17 - -> Ptr t18 - -> Ptr t19 - -> Ptr t20 - -> Ptr t21 - -> Ptr t22 - -> Ptr t23 - -> Ptr t24 - -> Ptr t25 - -> Ptr t26 - -> Ptr t27 - -> Ptr t28 - -> Ptr t29 - -> Ptr t30 - -> Ptr t31 - -> Ptr t32 - -> Ptr t33 - -> Ptr t34 - -> Ptr t35 - -> Ptr t36 - -> Ptr t37 - -> Ptr t38 - -> Ptr t39 - -> Ptr t40 - -> Ptr t41 - -> Ptr t42 - -> Ptr t43 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQputf" - c_PQputf44 - :: Ptr PGparam - -> Ptr PGerror - -> CString - -> Ptr t1 - -> Ptr t2 - -> Ptr t3 - -> Ptr t4 - -> Ptr t5 - -> Ptr t6 - -> Ptr t7 - -> Ptr t8 - -> Ptr t9 - -> Ptr t10 - -> Ptr t11 - -> Ptr t12 - -> Ptr t13 - -> Ptr t14 - -> Ptr t15 - -> Ptr t16 - -> Ptr t17 - -> Ptr t18 - -> Ptr t19 - -> Ptr t20 - -> Ptr t21 - -> Ptr t22 - -> Ptr t23 - -> Ptr t24 - -> Ptr t25 - -> Ptr t26 - -> Ptr t27 - -> Ptr t28 - -> Ptr t29 - -> Ptr t30 - -> Ptr t31 - -> Ptr t32 - -> Ptr t33 - -> Ptr t34 - -> Ptr t35 - -> Ptr t36 - -> Ptr t37 - -> Ptr t38 - -> Ptr t39 - -> Ptr t40 - -> Ptr t41 - -> Ptr t42 - -> Ptr t43 - -> Ptr t44 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQputf" - c_PQputf45 - :: Ptr PGparam - -> Ptr PGerror - -> CString - -> Ptr t1 - -> Ptr t2 - -> Ptr t3 - -> Ptr t4 - -> Ptr t5 - -> Ptr t6 - -> Ptr t7 - -> Ptr t8 - -> Ptr t9 - -> Ptr t10 - -> Ptr t11 - -> Ptr t12 - -> Ptr t13 - -> Ptr t14 - -> Ptr t15 - -> Ptr t16 - -> Ptr t17 - -> Ptr t18 - -> Ptr t19 - -> Ptr t20 - -> Ptr t21 - -> Ptr t22 - -> Ptr t23 - -> Ptr t24 - -> Ptr t25 - -> Ptr t26 - -> Ptr t27 - -> Ptr t28 - -> Ptr t29 - -> Ptr t30 - -> Ptr t31 - -> Ptr t32 - -> Ptr t33 - -> Ptr t34 - -> Ptr t35 - -> Ptr t36 - -> Ptr t37 - -> Ptr t38 - -> Ptr t39 - -> Ptr t40 - -> Ptr t41 - -> Ptr t42 - -> Ptr t43 - -> Ptr t44 - -> Ptr t45 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQputf" - c_PQputf46 - :: Ptr PGparam - -> Ptr PGerror - -> CString - -> Ptr t1 - -> Ptr t2 - -> Ptr t3 - -> Ptr t4 - -> Ptr t5 - -> Ptr t6 - -> Ptr t7 - -> Ptr t8 - -> Ptr t9 - -> Ptr t10 - -> Ptr t11 - -> Ptr t12 - -> Ptr t13 - -> Ptr t14 - -> Ptr t15 - -> Ptr t16 - -> Ptr t17 - -> Ptr t18 - -> Ptr t19 - -> Ptr t20 - -> Ptr t21 - -> Ptr t22 - -> Ptr t23 - -> Ptr t24 - -> Ptr t25 - -> Ptr t26 - -> Ptr t27 - -> Ptr t28 - -> Ptr t29 - -> Ptr t30 - -> Ptr t31 - -> Ptr t32 - -> Ptr t33 - -> Ptr t34 - -> Ptr t35 - -> Ptr t36 - -> Ptr t37 - -> Ptr t38 - -> Ptr t39 - -> Ptr t40 - -> Ptr t41 - -> Ptr t42 - -> Ptr t43 - -> Ptr t44 - -> Ptr t45 - -> Ptr t46 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQputf" - c_PQputf47 - :: Ptr PGparam - -> Ptr PGerror - -> CString - -> Ptr t1 - -> Ptr t2 - -> Ptr t3 - -> Ptr t4 - -> Ptr t5 - -> Ptr t6 - -> Ptr t7 - -> Ptr t8 - -> Ptr t9 - -> Ptr t10 - -> Ptr t11 - -> Ptr t12 - -> Ptr t13 - -> Ptr t14 - -> Ptr t15 - -> Ptr t16 - -> Ptr t17 - -> Ptr t18 - -> Ptr t19 - -> Ptr t20 - -> Ptr t21 - -> Ptr t22 - -> Ptr t23 - -> Ptr t24 - -> Ptr t25 - -> Ptr t26 - -> Ptr t27 - -> Ptr t28 - -> Ptr t29 - -> Ptr t30 - -> Ptr t31 - -> Ptr t32 - -> Ptr t33 - -> Ptr t34 - -> Ptr t35 - -> Ptr t36 - -> Ptr t37 - -> Ptr t38 - -> Ptr t39 - -> Ptr t40 - -> Ptr t41 - -> Ptr t42 - -> Ptr t43 - -> Ptr t44 - -> Ptr t45 - -> Ptr t46 - -> Ptr t47 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQputf" - c_PQputf48 - :: Ptr PGparam - -> Ptr PGerror - -> CString - -> Ptr t1 - -> Ptr t2 - -> Ptr t3 - -> Ptr t4 - -> Ptr t5 - -> Ptr t6 - -> Ptr t7 - -> Ptr t8 - -> Ptr t9 - -> Ptr t10 - -> Ptr t11 - -> Ptr t12 - -> Ptr t13 - -> Ptr t14 - -> Ptr t15 - -> Ptr t16 - -> Ptr t17 - -> Ptr t18 - -> Ptr t19 - -> Ptr t20 - -> Ptr t21 - -> Ptr t22 - -> Ptr t23 - -> Ptr t24 - -> Ptr t25 - -> Ptr t26 - -> Ptr t27 - -> Ptr t28 - -> Ptr t29 - -> Ptr t30 - -> Ptr t31 - -> Ptr t32 - -> Ptr t33 - -> Ptr t34 - -> Ptr t35 - -> Ptr t36 - -> Ptr t37 - -> Ptr t38 - -> Ptr t39 - -> Ptr t40 - -> Ptr t41 - -> Ptr t42 - -> Ptr t43 - -> Ptr t44 - -> Ptr t45 - -> Ptr t46 - -> Ptr t47 - -> Ptr t48 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQputf" - c_PQputf49 - :: Ptr PGparam - -> Ptr PGerror - -> CString - -> Ptr t1 - -> Ptr t2 - -> Ptr t3 - -> Ptr t4 - -> Ptr t5 - -> Ptr t6 - -> Ptr t7 - -> Ptr t8 - -> Ptr t9 - -> Ptr t10 - -> Ptr t11 - -> Ptr t12 - -> Ptr t13 - -> Ptr t14 - -> Ptr t15 - -> Ptr t16 - -> Ptr t17 - -> Ptr t18 - -> Ptr t19 - -> Ptr t20 - -> Ptr t21 - -> Ptr t22 - -> Ptr t23 - -> Ptr t24 - -> Ptr t25 - -> Ptr t26 - -> Ptr t27 - -> Ptr t28 - -> Ptr t29 - -> Ptr t30 - -> Ptr t31 - -> Ptr t32 - -> Ptr t33 - -> Ptr t34 - -> Ptr t35 - -> Ptr t36 - -> Ptr t37 - -> Ptr t38 - -> Ptr t39 - -> Ptr t40 - -> Ptr t41 - -> Ptr t42 - -> Ptr t43 - -> Ptr t44 - -> Ptr t45 - -> Ptr t46 - -> Ptr t47 - -> Ptr t48 - -> Ptr t49 - -> IO CInt - -foreign import capi unsafe "libpqtypes.h PQputf" - c_PQputf50 - :: Ptr PGparam - -> Ptr PGerror - -> CString - -> Ptr t1 - -> Ptr t2 - -> Ptr t3 - -> Ptr t4 - -> Ptr t5 - -> Ptr t6 - -> Ptr t7 - -> Ptr t8 - -> Ptr t9 - -> Ptr t10 - -> Ptr t11 - -> Ptr t12 - -> Ptr t13 - -> Ptr t14 - -> Ptr t15 - -> Ptr t16 - -> Ptr t17 - -> Ptr t18 - -> Ptr t19 - -> Ptr t20 - -> Ptr t21 - -> Ptr t22 - -> Ptr t23 - -> Ptr t24 - -> Ptr t25 - -> Ptr t26 - -> Ptr t27 - -> Ptr t28 - -> Ptr t29 - -> Ptr t30 - -> Ptr t31 - -> Ptr t32 - -> Ptr t33 - -> Ptr t34 - -> Ptr t35 - -> Ptr t36 - -> Ptr t37 - -> Ptr t38 - -> Ptr t39 - -> Ptr t40 - -> Ptr t41 - -> Ptr t42 - -> Ptr t43 - -> Ptr t44 - -> Ptr t45 - -> Ptr t46 - -> Ptr t47 - -> Ptr t48 - -> Ptr t49 - -> Ptr t50 - -> IO CInt diff --git a/src/Database/PostgreSQL/PQTypes/Internal/C/Types.hsc b/src/Database/PostgreSQL/PQTypes/Internal/C/Types.hsc index a438a1c..a74d470 100644 --- a/src/Database/PostgreSQL/PQTypes/Internal/C/Types.hsc +++ b/src/Database/PostgreSQL/PQTypes/Internal/C/Types.hsc @@ -1,19 +1,18 @@ --- | Mappings of types used by libpq/libpqtypes to Haskell ADTs. +-- | Mappings of types used by libpq to Haskell ADTs. module Database.PostgreSQL.PQTypes.Internal.C.Types ( PGcancel + , PGcancelConn , PGconn - , PGparam , PGresult - , PGtypeArgs , ConnStatusType(..) , c_CONNECTION_OK, c_CONNECTION_BAD, c_CONNECTION_STARTED , c_CONNECTION_MADE, c_CONNECTION_AWAITING_RESPONSE, c_CONNECTION_AUTH_OK , c_CONNECTION_SETENV, c_CONNECTION_SSL_STARTUP, c_CONNECTION_NEEDED - , PostgresPollingStatusType(..) - , c_PGRES_POLLING_FAILED, c_PGRES_POLLING_READING, c_PGRES_POLLING_WRITING - , c_PGRES_POLLING_OK, c_PGRES_POLLING_ACTIVE - , ResultFormat(..) - , c_RESULT_TEXT, c_RESULT_BINARY + , PGTransactionStatusType(..) + , c_PQTRANS_IDLE, c_PQTRANS_ACTIVE, c_PQTRANS_INTRANS, c_PQTRANS_INERROR + , c_PQTRANS_UNKNOWN + , Format(..) + , c_FORMAT_TEXT, c_FORMAT_BINARY , ExecStatusType(..) , c_PGRES_EMPTY_QUERY, c_PGRES_COMMAND_OK, c_PGRES_TUPLES_OK , c_PGRES_COPY_OUT, c_PGRES_COPY_IN, c_PGRES_BAD_RESPONSE @@ -24,48 +23,22 @@ module Database.PostgreSQL.PQTypes.Internal.C.Types , c_PG_DIAG_STATEMENT_POSITION, c_PG_DIAG_INTERNAL_POSITION , c_PG_DIAG_INTERNAL_QUERY, c_PG_DIAG_CONTEXT, c_PG_DIAG_SOURCE_FILE , c_PG_DIAG_SOURCE_LINE, c_PG_DIAG_SOURCE_FUNCTION - , TypeClass(..) - , c_PQT_SUBCLASS, c_PQT_COMPOSITE, c_PQT_USERDEFINED - , PGerror(..) - , PGregisterType(..) - , PGarray(..) - , PGbytea(..) - , PGuuid(..) - , PGdate(..) - , PGtime(..) - , PGtimestamp(..) - , c_NUMERIC_POS - , c_NUMERIC_NEG - , c_NUMERIC_NAN - , NumericVar(..) ) where -import Data.Word -import Data.ByteString.Unsafe import Foreign.C -import Foreign.ForeignPtr -import Foreign.Marshal.Array -import Foreign.Ptr import Foreign.Storable -import Data.ByteString qualified as BS -import Data.Vector.Storable qualified as V data PGcancel +data PGcancelConn data PGconn -data PGparam data PGresult -data PGtypeArgs -#include #include -foreign import ccall unsafe "htonl" htonl :: Word32 -> Word32 -foreign import ccall unsafe "ntohl" ntohl :: Word32 -> Word32 - ---------------------------------------- newtype ConnStatusType = ConnStatusType CInt - deriving Eq + deriving newtype (Eq) #{enum ConnStatusType, ConnStatusType , c_CONNECTION_OK = CONNECTION_OK @@ -81,31 +54,32 @@ newtype ConnStatusType = ConnStatusType CInt ---------------------------------------- -newtype PostgresPollingStatusType = PostgresPollingStatusType CInt - deriving Eq +newtype PGTransactionStatusType = PGTransactionStatusType CInt + deriving newtype (Eq) -#{enum PostgresPollingStatusType, PostgresPollingStatusType - , c_PGRES_POLLING_FAILED = PGRES_POLLING_FAILED - , c_PGRES_POLLING_READING = PGRES_POLLING_READING - , c_PGRES_POLLING_WRITING = PGRES_POLLING_WRITING - , c_PGRES_POLLING_OK = PGRES_POLLING_OK - , c_PGRES_POLLING_ACTIVE = PGRES_POLLING_ACTIVE - } +#{enum PGTransactionStatusType, PGTransactionStatusType +, c_PQTRANS_IDLE = PQTRANS_IDLE +, c_PQTRANS_ACTIVE = PQTRANS_ACTIVE +, c_PQTRANS_INTRANS = PQTRANS_INTRANS +, c_PQTRANS_INERROR = PQTRANS_INERROR +, c_PQTRANS_UNKNOWN = PQTRANS_UNKNOWN +} ---------------------------------------- -newtype ResultFormat = ResultFormat CInt +newtype Format = Format CInt + deriving newtype (Storable) -c_RESULT_TEXT :: ResultFormat -c_RESULT_TEXT = ResultFormat 0 +c_FORMAT_TEXT :: Format +c_FORMAT_TEXT = Format 0 -c_RESULT_BINARY :: ResultFormat -c_RESULT_BINARY = ResultFormat 1 +c_FORMAT_BINARY :: Format +c_FORMAT_BINARY = Format 1 ---------------------------------------- newtype ExecStatusType = ExecStatusType CInt - deriving Eq + deriving newtype (Eq) #{enum ExecStatusType, ExecStatusType , c_PGRES_EMPTY_QUERY = PGRES_EMPTY_QUERY @@ -122,7 +96,7 @@ newtype ExecStatusType = ExecStatusType CInt ---------------------------------------- newtype ErrorField = ErrorField CInt - deriving Eq + deriving newtype (Eq) #{enum ErrorField, ErrorField , c_PG_DIAG_SEVERITY = PG_DIAG_SEVERITY @@ -138,259 +112,3 @@ newtype ErrorField = ErrorField CInt , c_PG_DIAG_SOURCE_LINE = PG_DIAG_SOURCE_LINE , c_PG_DIAG_SOURCE_FUNCTION = PG_DIAG_SOURCE_FUNCTION } - ----------------------------------------- - -newtype TypeClass = TypeClass CInt - deriving Eq - -#{enum TypeClass, TypeClass -, c_PQT_SUBCLASS = PQT_SUBCLASS -, c_PQT_COMPOSITE = PQT_COMPOSITE -, c_PQT_USERDEFINED = PQT_USERDEFINED -} - ----------------------------------------- - -newtype PGerror = PGerror - { pgErrorMsg :: String - } deriving Show - -instance Storable PGerror where - sizeOf _ = #{size PGerror} - alignment _ = #{alignment PGerror} - peek ptr = PGerror <$> peekCString (#{ptr PGerror, msg} ptr) - poke _ _ = error "Storable PGerror: poke is not supposed to be used" - ----------------------------------------- - -data PGregisterType = PGregisterType - { pgRegisterTypeTypName :: !CString - , pgRegisterTypeTypPut :: !(FunPtr (Ptr PGtypeArgs -> IO CInt)) - , pgRegisterTypeTypGet :: !(FunPtr (Ptr PGtypeArgs -> IO CInt)) - } deriving Show - -instance Storable PGregisterType where - sizeOf _ = #{size PGregisterType} - alignment _ = #{alignment PGregisterType} - peek ptr = PGregisterType - <$> #{peek PGregisterType, typname} ptr - <*> #{peek PGregisterType, typput} ptr - <*> #{peek PGregisterType, typget} ptr - poke ptr PGregisterType{..} = do - #{poke PGregisterType, typname} ptr pgRegisterTypeTypName - #{poke PGregisterType, typput} ptr pgRegisterTypeTypPut - #{poke PGregisterType, typget} ptr pgRegisterTypeTypGet - ----------------------------------------- - -c_MAXDIM :: Int -c_MAXDIM = #{const MAXDIM} - -data PGarray = PGarray - { pgArrayNDims :: !CInt - , pgArrayLBound :: !(V.Vector CInt) - , pgArrayDims :: !(V.Vector CInt) - , pgArrayParam :: !(Ptr PGparam) - , pgArrayRes :: !(Ptr PGresult) - } deriving Show - -instance Storable PGarray where - sizeOf _ = #{size PGarray} - alignment _ = #{alignment PGarray} - peek ptr = PGarray - <$> #{peek PGarray, ndims} ptr - <*> readVector (#{ptr PGarray, lbound} ptr) - <*> readVector (#{ptr PGarray, dims} ptr) - <*> #{peek PGarray, param} ptr - <*> #{peek PGarray, res} ptr - where - readVector :: Ptr CInt -> IO (V.Vector CInt) - readVector src = do - let len = c_MAXDIM - fptr <- mallocForeignPtrArray len - withForeignPtr fptr $ \dest -> copyArray dest src len - pure (V.unsafeFromForeignPtr0 fptr len) - - poke ptr PGarray{..} = do - #{poke PGarray, ndims} ptr pgArrayNDims - writeVector pgArrayLBound $ #{ptr PGarray, lbound} ptr - writeVector pgArrayDims $ #{ptr PGarray, dims} ptr - #{poke PGarray, param} ptr pgArrayParam - #{poke PGarray, res} ptr pgArrayRes - where - writeVector :: V.Vector CInt -> Ptr CInt -> IO () - writeVector v dest = do - let (fptr, baseLen) = V.unsafeToForeignPtr0 v - withForeignPtr fptr $ \src -> do - let len = min baseLen c_MAXDIM - copyArray dest src len - ----------------------------------------- - -data PGbytea = PGbytea - { pgByteaLen :: !CInt - , pgByteaData :: !CString - } deriving Show - -instance Storable PGbytea where - sizeOf _ = #{size PGbytea} - alignment _ = #{alignment PGbytea} - peek ptr = PGbytea - <$> #{peek PGbytea, len} ptr - <*> #{peek PGbytea, data} ptr - poke ptr PGbytea{..} = do - #{poke PGbytea, len} ptr pgByteaLen - #{poke PGbytea, data} ptr pgByteaData - ----------------------------------------- - --- Same as the UUID type from uuid-types package except for the Storable --- instance: PostgreSQL expects the binary representation to be encoded in --- network byte order (as per RFC 4122), whereas Storable instance of UUID --- preserves host byte order, so we need to have our own version. -data PGuuid = PGuuid - { pgUuidW1 :: !Word32 - , pgUuidW2 :: !Word32 - , pgUuidW3 :: !Word32 - , pgUuidW4 :: !Word32 - } deriving Show - -instance Storable PGuuid where - sizeOf _ = #{size PGuuid} - alignment _ = #{alignment PGuuid} - - peek ptr = PGuuid - <$> (ntohl <$> #{peek PGuuid, w1} ptr) - <*> (ntohl <$> #{peek PGuuid, w2} ptr) - <*> (ntohl <$> #{peek PGuuid, w3} ptr) - <*> (ntohl <$> #{peek PGuuid, w4} ptr) - - poke ptr PGuuid{..} = do - #{poke PGuuid, w1} ptr $ htonl pgUuidW1 - #{poke PGuuid, w2} ptr $ htonl pgUuidW2 - #{poke PGuuid, w3} ptr $ htonl pgUuidW3 - #{poke PGuuid, w4} ptr $ htonl pgUuidW4 - -data PGdate = PGdate - { pgDateIsBC :: !CInt - , pgDateYear :: !CInt - , pgDateMon :: !CInt - , pgDateMDay :: !CInt - , pgDateJDay :: !CInt - , pgDateYDay :: !CInt - , pgDateWDay :: !CInt - } deriving Show - -instance Storable PGdate where - sizeOf _ = #{size PGdate} - alignment _ = #{alignment PGdate} - peek ptr = PGdate - <$> #{peek PGdate, isbc} ptr - <*> #{peek PGdate, year} ptr - <*> #{peek PGdate, mon} ptr - <*> #{peek PGdate, mday} ptr - <*> #{peek PGdate, jday} ptr - <*> #{peek PGdate, yday} ptr - <*> #{peek PGdate, wday} ptr - poke ptr PGdate{..} = do - #{poke PGdate, isbc} ptr pgDateIsBC - #{poke PGdate, year} ptr pgDateYear - #{poke PGdate, mon} ptr pgDateMon - #{poke PGdate, mday} ptr pgDateMDay - #{poke PGdate, jday} ptr pgDateJDay - #{poke PGdate, yday} ptr pgDateYDay - #{poke PGdate, wday} ptr pgDateWDay - ----------------------------------------- - -data PGtime = PGtime - { pgTimeHour :: !CInt - , pgTimeMin :: !CInt - , pgTimeSec :: !CInt - , pgTimeUSec :: !CInt - , pgTimeWithTZ :: !CInt - , pgTimeIsDST :: !CInt - , pgTimeGMTOff :: !CInt - , pgTimeTZAbbr :: !BS.ByteString - } deriving Show - -instance Storable PGtime where - sizeOf _ = #{size PGtime} - alignment _ = #{alignment PGtime} - peek ptr = PGtime - <$> #{peek PGtime, hour} ptr - <*> #{peek PGtime, min} ptr - <*> #{peek PGtime, sec} ptr - <*> #{peek PGtime, usec} ptr - <*> #{peek PGtime, withtz} ptr - <*> #{peek PGtime, isdst} ptr - <*> #{peek PGtime, gmtoff} ptr - <*> BS.packCString (#{ptr PGtime, tzabbr} ptr) - poke ptr PGtime{..} = do - #{poke PGtime, hour} ptr pgTimeHour - #{poke PGtime, min} ptr pgTimeMin - #{poke PGtime, sec} ptr pgTimeSec - #{poke PGtime, usec} ptr pgTimeUSec - #{poke PGtime, withtz} ptr pgTimeWithTZ - #{poke PGtime, isdst} ptr pgTimeIsDST - #{poke PGtime, gmtoff} ptr pgTimeGMTOff - unsafeUseAsCStringLen pgTimeTZAbbr $ \(cs, len) -> do - let tzabbr = #{ptr PGtime, tzabbr} ptr - copyArray tzabbr cs (min len 16) - pokeElemOff tzabbr (min len 15) (0::CChar) - ----------------------------------------- - -data PGtimestamp = PGtimestamp - { pgTimestampEpoch :: !CLLong - , pgTimestampDate :: !PGdate - , pgTimestampTime :: !PGtime - } deriving Show - -instance Storable PGtimestamp where - sizeOf _ = #{size PGtimestamp} - alignment _ = #{alignment PGtimestamp} - peek ptr = PGtimestamp - <$> #{peek PGtimestamp, epoch} ptr - <*> #{peek PGtimestamp, date} ptr - <*> #{peek PGtimestamp, time} ptr - poke ptr PGtimestamp{..} = do - #{poke PGtimestamp, epoch} ptr pgTimestampEpoch - #{poke PGtimestamp, date} ptr pgTimestampDate - #{poke PGtimestamp, time} ptr pgTimestampTime - ----------------------------------------- - -c_NUMERIC_POS :: CShort -c_NUMERIC_POS = #{const NUMERIC_POS} - -c_NUMERIC_NEG :: CShort -c_NUMERIC_NEG = #{const NUMERIC_NEG} - -c_NUMERIC_NAN :: CShort -c_NUMERIC_NAN = #{const NUMERIC_NAN} - -data NumericVar = NumericVar - { numVarNdigits :: !CShort - , numVarWeight :: !CShort - , numVarSign :: !CShort - , numVarDscale :: !CShort - , numVarDigits :: !(Ptr CShort) -- elements in network byte order - } - -instance Storable NumericVar where - sizeOf _ = #{size NumericVar} - alignment _ = #{alignment NumericVar} - peek ptr = NumericVar - <$> #{peek NumericVar, ndigits} ptr - <*> #{peek NumericVar, weight} ptr - <*> #{peek NumericVar, sign} ptr - <*> #{peek NumericVar, dscale} ptr - <*> #{peek NumericVar, digits} ptr - poke ptr NumericVar{..} = do - #{poke NumericVar, ndigits} ptr numVarNdigits - #{poke NumericVar, weight} ptr numVarWeight - #{poke NumericVar, sign} ptr numVarSign - #{poke NumericVar, dscale} ptr numVarDscale - #{poke NumericVar, digits} ptr numVarDigits diff --git a/src/Database/PostgreSQL/PQTypes/Internal/Composite.hs b/src/Database/PostgreSQL/PQTypes/Internal/Composite.hs deleted file mode 100644 index bd911cb..0000000 --- a/src/Database/PostgreSQL/PQTypes/Internal/Composite.hs +++ /dev/null @@ -1,32 +0,0 @@ -module Database.PostgreSQL.PQTypes.Internal.Composite - ( registerComposites - ) where - -import Data.Text qualified as T -import Foreign.ForeignPtr -import Foreign.ForeignPtr.Unsafe -import Foreign.Marshal.Alloc -import Foreign.Marshal.Array -import Foreign.Ptr - -import Database.PostgreSQL.PQTypes.Internal.C.Interface -import Database.PostgreSQL.PQTypes.Internal.C.Types -import Database.PostgreSQL.PQTypes.Internal.Utils - --- | Register a list of composite types. -registerComposites :: Ptr PGconn -> [T.Text] -> IO () -registerComposites _ [] = pure () -registerComposites conn names = do - cnames <- mapM textToCString names - withArray (map nameToTypeRep cnames) $ \typereps -> alloca $ \err -> do - let len = fromIntegral $ length cnames - c_PQregisterTypes conn err c_PQT_COMPOSITE typereps len 0 - >>= verifyPQTRes err "registerComposites" - mapM_ touchForeignPtr cnames - where - nameToTypeRep name = - PGregisterType - { pgRegisterTypeTypName = unsafeForeignPtrToPtr name - , pgRegisterTypeTypPut = nullFunPtr - , pgRegisterTypeTypGet = nullFunPtr - } diff --git a/src/Database/PostgreSQL/PQTypes/Internal/Connection.hs b/src/Database/PostgreSQL/PQTypes/Internal/Connection.hs index 3f53c1b..4a059ab 100644 --- a/src/Database/PostgreSQL/PQTypes/Internal/Connection.hs +++ b/src/Database/PostgreSQL/PQTypes/Internal/Connection.hs @@ -17,20 +17,22 @@ module Database.PostgreSQL.PQTypes.Internal.Connection , runQueryIO , QueryName (..) , runPreparedQueryIO + + -- * Socket helpers + , consumeInput + , getSocket ) where import Control.Concurrent -import Control.Concurrent.Async import Control.Concurrent.STM import Control.Exception qualified as E import Control.Monad import Control.Monad.Base import Control.Monad.Catch import Data.ByteString.Char8 qualified as BS +import Data.ByteString.Unsafe qualified as BS import Data.Foldable qualified as F -import Data.Functor.Identity import Data.IORef -import Data.Int import Data.Kind import Data.Maybe import Data.Pool @@ -39,20 +41,23 @@ import Data.String import Data.Text qualified as T import Data.Text.Encoding qualified as T import Foreign.C.String +import Foreign.C.Types import Foreign.ForeignPtr +import Foreign.Marshal.Array +import Foreign.Marshal.Utils import Foreign.Ptr import GHC.Clock (getMonotonicTime) import GHC.Conc (closeFdWith) import GHC.Stack +import System.Posix.Types import Database.PostgreSQL.PQTypes.Internal.BackendPid import Database.PostgreSQL.PQTypes.Internal.C.Interface import Database.PostgreSQL.PQTypes.Internal.C.Types -import Database.PostgreSQL.PQTypes.Internal.Composite import Database.PostgreSQL.PQTypes.Internal.Error import Database.PostgreSQL.PQTypes.Internal.Error.Code import Database.PostgreSQL.PQTypes.Internal.Exception -import Database.PostgreSQL.PQTypes.Internal.QueryResult +import Database.PostgreSQL.PQTypes.Internal.Oid import Database.PostgreSQL.PQTypes.Internal.Utils import Database.PostgreSQL.PQTypes.SQL.Class import Database.PostgreSQL.PQTypes.SQL.Raw @@ -60,16 +65,21 @@ import Database.PostgreSQL.PQTypes.ToSQL data ConnectionSettings = ConnectionSettings { csConnInfo :: !T.Text - -- ^ Connection info string. + -- ^ Connection info string, see + -- + -- for details. It's advisable to set the @connect_timeout@, + -- @keepalives_idle@ and (on Linux) @tcp_user_timeout@ parameters, which + -- bound the time the library can stall on network problems. This includes + -- cleanup code that runs with asynchronous exceptions masked and thus + -- can't be interrupted, e.g. cancellation of a query interrupted by an + -- exception (though when built against @libpq@ < 17, @connect_timeout@ + -- doesn't cover the delivery of the cancellation request). , csClientEncoding :: !(Maybe T.Text) -- ^ Client-side encoding. If set to 'Nothing', database encoding is used. , csRole :: !(Maybe (RawSQL ())) -- ^ A custom role to set with "SET ROLE". - , csComposites :: ![T.Text] - -- ^ A list of composite types to register. In order to be able to - -- (de)serialize specific composite types, you need to register them. } - deriving (Eq, Ord, Show) + deriving stock (Eq, Ord, Show) -- | Default connection settings. Note that all strings sent to PostgreSQL by -- the library are encoded as UTF-8, so don't alter client encoding unless you @@ -80,7 +90,6 @@ defaultConnectionSettings = { csConnInfo = T.empty , csClientEncoding = Just "UTF-8" , csRole = Nothing - , csComposites = [] } ---------------------------------------- @@ -98,7 +107,7 @@ data ConnectionStats = ConnectionStats , statsTime :: !Double -- ^ Time spent executing queries (in seconds). } - deriving (Eq, Ord, Show) + deriving stock (Eq, Ord, Show) -- | Initial connection statistics. initialConnectionStats :: ConnectionStats @@ -187,38 +196,33 @@ poolSource cs mkPoolConfig = do -- 'disconnect', otherwise there will be a resource leak. connect :: ConnectionSettings -> IO Connection connect ConnectionSettings {..} = mask $ \unmask -> do - connPtr <- BS.useAsCString (T.encodeUtf8 csConnInfo) (openConnection unmask) + connPtr <- openConnection unmask $ T.encodeUtf8 csConnInfo (`onException` c_PQfinish connPtr) . unmask $ do - status <- c_PQstatus connPtr - when (status /= c_CONNECTION_OK) $ + -- Sending queries doesn't rely on libpq blocking the whole OS thread while + -- flushing the output; instead the runtime system waits for the socket to + -- become ready, so put the connection in the non-blocking mode. + nonblocking <- c_PQsetnonblocking connPtr 1 + when (nonblocking == -1) $ throwLibPQError connPtr fname F.forM_ csClientEncoding $ \enc -> do res <- BS.useAsCString (T.encodeUtf8 enc) (c_PQsetClientEncoding connPtr) when (res == -1) $ throwLibPQError connPtr fname - c_PQinitTypes connPtr - registerComposites connPtr csComposites conn <- do preparedQueries <- newIORef S.empty + pid <- c_PQbackendPid connPtr pure Connection { connPtr = connPtr - , connBackendPid = noBackendPid + , connBackendPid = BackendPid $ fromIntegral pid , connPreparedQueries = preparedQueries } F.forM_ csRole $ \role -> runQueryIO conn $ "SET ROLE " <> role - - let selectPid = "SELECT pg_backend_pid()" :: RawSQL () - (_, res, _) <- runQueryIO conn selectPid - case F.toList $ mkQueryResult @(Identity Int32) selectPid noBackendPid res of - [pid] -> pure $ conn {connBackendPid = BackendPid $ fromIntegral pid} - pids -> do - let err = HPQTypesError $ "unexpected backend pid: " ++ show pids - rethrowWithContext selectPid noBackendPid $ toException err + pure conn where fname = "connect" - openConnection :: (forall r. IO r -> IO r) -> CString -> IO (Ptr PGconn) + openConnection :: (forall r. IO r -> IO r) -> BS.ByteString -> IO (Ptr PGconn) openConnection unmask conninfo = do -- We use synchronous version of connecting to the database using -- 'PQconnectdb' instead of 'PQconnectStart' and 'PQconnectPoll', because @@ -230,11 +234,14 @@ connect ConnectionSettings {..} = mask $ \unmask -> do -- exception, so to guarantee prompt return in such scenario 'PQconnectdb' -- is run in a separate child thread. If the parent receives an exception -- while the child still runs, the child is signaled to clean up after - -- itself and left behind. + -- itself and left behind. Note that this is why the child needs to + -- allocate the buffer with the connection string itself: a buffer + -- allocated by the parent would be freed when the exception unwinds + -- its stack, potentially while 'PQconnectdb' still reads it. connVar <- newEmptyTMVarIO runningVar <- newTVarIO True _ <- forkIO $ do - conn <- c_PQconnectdb conninfo + conn <- BS.useAsCString conninfo c_PQconnectdb join . atomically $ readTVar runningVar >>= \case True -> do @@ -250,10 +257,8 @@ connect ConnectionSettings {..} = mask $ \unmask -> do when (conn == nullPtr) $ do throwError "PQconnectdb returned a null pointer" status <- c_PQstatus conn - when (status /= c_CONNECTION_OK) $ do - merr <- c_PQerrorMessage conn >>= safePeekCString - let reason = maybe "" (": " <>) merr - throwError $ "openConnection failed" <> reason + when (status /= c_CONNECTION_OK) $ + throwLibPQError conn fname pure conn where throwError :: String -> IO a @@ -284,15 +289,16 @@ runQueryIO -> IO (Int, ForeignPtr PGresult, ConnectionStats -> ConnectionStats) runQueryIO conn@Connection {..} sql = do runQueryImpl conn sql $ do - let allocParam = ParamAllocator $ withPGparam connPtr - withSQL sql allocParam $ \param query -> - (,) - <$> (fromIntegral <$> c_PQparamCount param) - <*> c_PQparamExec connPtr nullPtr param query c_RESULT_BINARY + withSQL sql $ \query params -> + withParams params $ \n oids values lengths formats -> do + res <- sendQueryAndGetResult connPtr $ do + c_PQsendQueryParams connPtr query n oids values lengths formats c_FORMAT_BINARY + pure (fromIntegral n, res) -- | Name of a prepared query. newtype QueryName = QueryName T.Text - deriving (Eq, Ord, Show, IsString) + deriving stock (Eq, Ord, Show) + deriving newtype (IsString) -- | Low-level function for running a prepared SQL query. runPreparedQueryIO @@ -304,108 +310,289 @@ runPreparedQueryIO runPreparedQueryIO conn@Connection {..} (QueryName queryName) sql = do runQueryImpl conn sql $ do when (T.null queryName) $ do - E.throwIO - DBException - { dbeQueryContext = sql - , dbeBackendPid = connBackendPid - , dbeError = HPQTypesError "runPreparedQueryIO: unnamed prepared query is not supported" - , dbeCallStack = callStack - } - let allocParam = ParamAllocator $ withPGparam connPtr - withSQL sql allocParam $ \param query -> do - preparedQueries <- readIORef connPreparedQueries - BS.useAsCString (T.encodeUtf8 queryName) $ \cname -> do - when (queryName `S.notMember` preparedQueries) . E.mask_ $ do - -- Mask asynchronous exceptions, because if preparation of the query - -- succeeds, we need to reflect that fact in cdPreparedQueries since - -- you can't prepare a query with the same name more than once. - res <- c_PQparamPrepare connPtr nullPtr param cname query - void . withForeignPtr res $ verifyResult sql connBackendPid connPtr - modifyIORef' connPreparedQueries $ S.insert queryName - (,) - <$> (fromIntegral <$> c_PQparamCount param) - <*> c_PQparamExecPrepared connPtr nullPtr param cname c_RESULT_BINARY + hpqTypesError "runPreparedQueryIO: unnamed prepared query is not supported" + withSQL sql $ \query params -> do + withParams params $ \n oids values lengths formats -> do + BS.useAsCString (T.encodeUtf8 queryName) $ \cname -> do + preparedQueries <- readIORef connPreparedQueries + when (queryName `S.notMember` preparedQueries) $ do + -- Prepare the statement synchronously: the blocking call can't + -- be interrupted by asynchronous exceptions and the statement is + -- recorded before they can be delivered again, so + -- connPreparedQueries can't go out of sync with the server (a + -- statement that exists server side without being recorded would + -- break the connection: preparing it again fails with + -- duplicate_prepared_statement, aborting the active transaction, + -- if any). Preparation is expected to be quick (though it can + -- block, e.g. on locks held by DDL statements), so like with + -- COMMIT/ROLLBACK of transactions, interruptibility is not worth + -- the trouble. + E.mask_ $ do + res <- c_PQprepare connPtr cname query n oids + when (res == nullPtr) $ do + throwLibPQError connPtr "runPreparedQueryIO" + (`E.finally` c_PQclear res) $ do + st <- c_PQresultStatus res + if st == c_PGRES_COMMAND_OK + then modifyIORef' connPreparedQueries $ S.insert queryName + else -- Let 'verifyResult' throw an appropriate error. + void $ verifyResult connPtr res + res <- sendQueryAndGetResult connPtr $ do + c_PQsendQueryPrepared connPtr cname n values lengths formats c_FORMAT_BINARY + pure (fromIntegral n, res) -- | Shared implementation of 'runQueryIO' and 'runPreparedQueryIO'. +-- +-- The query is executed using the asynchronous API of libpq: potentially +-- blocking operations wait for socket readiness using GHC's IO manager, so +-- (assuming the caller doesn't have them hard masked) execution is +-- interruptible with asynchronous exceptions without spawning any additional +-- threads. If an exception arrives while the query is in progress, its +-- cancellation is requested and the connection is drained of pending +-- results, so that it can be used to run queries again afterwards. +-- +-- Any synchronous exception thrown during execution is wrapped in +-- 'DBException' with the query attached as context. runQueryImpl :: (HasCallStack, IsSQL sql) => Connection -> sql -> IO (Int, ForeignPtr PGresult) + -- ^ Execute the query (see 'sendQueryAndGetResult') and return the number + -- of its parameters along with the result. -> IO (Int, ForeignPtr PGresult, ConnectionStats -> ConnectionStats) -runQueryImpl Connection {..} sql execSql = do - E.getMaskingState >>= \case - E.MaskedUninterruptible -> do - -- If asynchronous exceptions are already hard-masked, skip spawning a - -- separate worker thread and the interruption logic as it won't do - -- anything at this point. - doRunQuery - _ -> E.uninterruptibleMask $ \restore -> do - -- While the query runs, the current thread will not be able to receive - -- asynchronous exceptions. This prevents clients of the library from - -- interrupting execution of the query. To remedy that we spawn a separate - -- thread for the query execution and while we wait for its completion, we - -- are able to receive asynchronous exceptions (assuming that threaded GHC - -- runtime system is used) and react appropriately. - queryRunner <- asyncWithUnmask $ \unmask -> do - -- Unconditionally unmask asynchronous exceptions here so that 'cancel' - -- operation potentially invoked below works as expected. - unmask doRunQuery - -- If we receive an exception while waiting for the execution to complete, - -- we need to send a request to PostgreSQL for query cancellation and wait - -- for the query runner thread to terminate. It is paramount we make the - -- exception handler uninterruptible as we can't exit from the main block - -- until the query runner thread has terminated. - E.onException (restore $ wait queryRunner) $ do - c_PQcancel connPtr >>= \case - -- If query cancellation request was successfully processed, there is - -- nothing else to do apart from waiting for the runner to terminate. - Nothing -> cancel queryRunner - -- Otherwise we check what happened with the runner. If it already - -- finished we're fine, just ignore the result. If it didn't, something - -- weird is going on. Maybe the cancellation request went through when - -- the thread wasn't making a request to the server? In any case, try to - -- cancel again and wait for the thread to terminate. - Just _ -> - poll queryRunner >>= \case - Just _ -> pure () - Nothing -> do - void $ c_PQcancel connPtr - cancel queryRunner +runQueryImpl Connection {..} sql execQuery = E.mask $ \restore -> attachQueryContext $ do + t1 <- getMonotonicTime + -- If execution is interrupted by an exception (usually an asynchronous + -- one, but 'E.throwTo' can also deliver synchronous exception types from + -- other threads), the query might still be running server side and its + -- results were not consumed, so the connection cannot be used to run + -- queries as is; 'cancelQuery' puts it back into the idle state. + (paramCount, res) <- restore execQuery `E.onException` cancelQuery + t2 <- getMonotonicTime + affected <- withForeignPtr res $ verifyResult connPtr + -- Commands return no rows, so they contribute nothing to the row and + -- value counts. + (rows, columns) <- case affected of + Left _ -> pure (0, 0) + Right rows -> do + columns <- fromIntegral <$> withForeignPtr res c_PQnfields + pure (rows, columns) + let updateStats stats = + ConnectionStats + { statsQueries = statsQueries stats + 1 + , statsRows = statsRows stats + rows + , statsValues = statsValues stats + (rows * columns) + , statsParams = statsParams stats + paramCount + , statsTime = statsTime stats + (t2 - t1) + } + pure (either id id affected, res, updateStats) + where + -- Attach the query and the backend pid as context to exceptions thrown + -- during execution. + attachQueryContext m = m `E.catch` rethrowWithContext sql connBackendPid + + cancelQuery = E.uninterruptibleMask_ $ do + -- Do nothing unless a query is in progress, i.e. it was sent to the + -- server and its results were not fully received (which libpq tracks + -- client side). This is not the case when the exception arrived before + -- anything was sent (e.g. during marshalling of the parameters) or + -- after the result was fully received (e.g. when preparation of a + -- prepared query failed): the cancellation request would then target + -- no query in particular and merely waste a round trip to the server. + -- Note that it wouldn't affect subsequent queries though: 'c_PQcancel' + -- returns only once the server acknowledged the receipt of the request + -- and the backend discards cancellation requests received while idle. + status <- c_PQtransactionStatus connPtr + when (status == c_PQTRANS_ACTIVE) $ do + -- The part of the query that potentially sits in the output buffer + -- needs to be flushed first, otherwise the server won't start (and + -- thus won't finish) the query and draining the results below would + -- deadlock. Errors are ignored as there's nothing to be done about + -- them at this point; if the connection is broken, the next attempt + -- to use it will fail and it will be disposed of by its connection + -- source. + ignoreErrors $ flushOutput connPtr + -- Request cancellation of the query only if its results are not + -- already sitting in the input buffer, i.e. the server might still + -- be executing it. Note that the request cannot be sent before + -- flushing: until the query is fully transmitted, no command is + -- running, so the request would be ignored by the server. + busy <- c_PQisBusy connPtr + when (busy == 1) . void $ c_PQcancel connPtr + -- Consume the results, so that the connection can be used again. + ignoreErrors $ drainResults connPtr + where + -- Swallowing exceptions is fine here since we're inside + -- uninterruptibleMask so the one we catch are necessarily synchronous. + ignoreErrors m = m `E.catch` \(_ :: E.SomeException) -> pure () + +---------------------------------------- +-- Helpers + +-- | Run a single query: send it, flush the output buffer and receive the +-- result. +sendQueryAndGetResult + :: Ptr PGconn + -> IO CInt + -- ^ Send the query for execution. + -> IO (ForeignPtr PGresult) +sendQueryAndGetResult connPtr send = do + sent <- send + when (sent /= 1) $ throwLibPQError connPtr "sendQueryAndGetResult" + flushOutput connPtr + receiveResult connPtr + +-- | Pass query parameters to the continuation in the format expected by +-- 'c_PQsendQueryParams' and 'c_PQsendQueryPrepared', i.e. the number of +-- parameters and arrays of their types, values, lengths and formats. +-- +-- Note that pointers to the values alias the buffers of their ByteStrings +-- without copying, so they're valid only within the corresponding +-- 'BS.unsafeUseAsCStringLen' callback. This is why the parameters are +-- marshalled with 'withMany': the rest of the computation (including the +-- call to the continuation, which is where the pointers are read) runs +-- inside the callbacks of all the parameters. +withParams + :: [PQParam] + -> (CInt -> Ptr Oid -> Ptr CString -> Ptr CInt -> Ptr Format -> IO r) + -> IO r +withParams params action = + withMany withParam params $ \entries -> do + let (oids, values, lengths) = unzip3 entries + withArray oids $ \oidsPtr -> + withArray values $ \valuesPtr -> + withArray lengths $ \lengthsPtr -> + withArray (replicate n c_FORMAT_BINARY) $ \formatsPtr -> + action (fromIntegral n) oidsPtr valuesPtr lengthsPtr formatsPtr where - doRunQuery = do - t1 <- getMonotonicTime - (paramCount, res) <- execSql - t2 <- getMonotonicTime - affected <- withForeignPtr res $ verifyResult sql connBackendPid connPtr - updateStats <- case affected of - Left _ -> - pure $ \stats -> - stats - { statsQueries = statsQueries stats + 1 - , statsParams = statsParams stats + paramCount - , statsTime = statsTime stats + (t2 - t1) - } - Right rows -> do - columns <- fromIntegral <$> withForeignPtr res c_PQnfields - pure $ \stats -> - ConnectionStats - { statsQueries = statsQueries stats + 1 - , statsRows = statsRows stats + rows - , statsValues = statsValues stats + (rows * columns) - , statsParams = statsParams stats + paramCount - , statsTime = statsTime stats + (t2 - t1) - } - pure (either id id affected, res, updateStats) + n = length params + + -- Maximum size of a single value: MaxAllocSize from the PostgreSQL + -- sources. + maxValueSize :: Int + maxValueSize = 0x3fffffff + + -- Marshal one parameter into its (oid, value, length) entry. + withParam :: PQParam -> ((Oid, CString, CInt) -> IO r) -> IO r + withParam (PQParam oid mvalue) k = case mvalue of + Nothing -> k (oid, nullPtr, 0) + Just value -> do + -- Values larger than that cannot be stored by PostgreSQL, so reject + -- them client side with a clear error. In particular, this ensures + -- that the length fits in the CInt passed to libpq: a wrapped-around + -- length would result in a confusing error or silent truncation of + -- the value. + when (BS.length value > maxValueSize) . hpqTypesError $ + "withParams: value of length " + ++ show (BS.length value) + ++ " is larger than the maximum size of a value (" + ++ show maxValueSize + ++ " bytes)" + BS.unsafeUseAsCStringLen value $ \(ptr, len) -> + if ptr == nullPtr + -- A ByteString can be backed by a null pointer, which libpq would + -- interpret as SQL NULL, so pass a non-null empty string instead. + then k (oid, nullStringPtr, 0) + else k (oid, ptr, fromIntegral len) + +-- | Flush any data queued in the output buffer to the server, waiting for the +-- socket to become ready as necessary. +flushOutput :: Ptr PGconn -> IO () +flushOutput connPtr = + c_PQflush connPtr >>= \case + 0 -> pure () + 1 -> do + -- The output buffer is not empty. Wait until the socket becomes either + -- write-ready (there's room for more data) or read-ready (the server + -- might not read our data until we consume some of its output first), + -- then consume the input and retry. + fd <- getSocket connPtr + (waitRead, dropWaitRead) <- threadWaitReadSTM fd + (waitWrite, dropWaitWrite) <- threadWaitWriteSTM fd + atomically (waitRead `orElse` waitWrite) + `E.finally` (dropWaitRead >> dropWaitWrite) + consumeInput connPtr + flushOutput connPtr + _ -> throwLibPQError connPtr "flushOutput" + +-- | Receive the result of a query. 'c_PQgetResult' is called until it returns +-- NULL as required by libpq to put the connection back into the idle state; a +-- single query always produces exactly one result, but if there somehow is +-- more than one, the last one is kept, mirroring the behavior of PQexec. +receiveResult :: Ptr PGconn -> IO (ForeignPtr PGresult) +receiveResult connPtr = loop Nothing + where + loop acc = do + waitForResult connPtr + mres <- E.mask_ $ do + res <- c_PQgetResult connPtr + if res == nullPtr + then pure Nothing + else Just <$> newForeignPtr c_ptr_PQclear res + case mres of + Just res -> do + -- In the copy modes every call to 'c_PQgetResult' produces a fresh + -- result with the corresponding status instead of eventually + -- returning NULL, so the loop would never terminate. + st <- withForeignPtr res c_PQresultStatus + when (isCopyStatus st) $ + hpqTypesError "receiveResult: COPY statements are not supported" + loop $ Just res + Nothing -> case acc of + Just res -> pure res + Nothing -> hpqTypesError "receiveResult: query produced no results" + +-- | Wait until a call to 'c_PQgetResult' will not block. +waitForResult :: Ptr PGconn -> IO () +waitForResult connPtr = do + busy <- c_PQisBusy connPtr + when (busy == 1) $ do + fd <- getSocket connPtr + threadWaitRead fd + consumeInput connPtr + waitForResult connPtr + +-- | Consume the results of a cancelled query so that the connection can be +-- used to run queries again. +drainResults :: Ptr PGconn -> IO () +drainResults connPtr = do + waitForResult connPtr + res <- c_PQgetResult connPtr + when (res /= nullPtr) $ do + st <- c_PQresultStatus res + c_PQclear res + -- In the copy modes every call to 'c_PQgetResult' produces a fresh + -- result with the corresponding status instead of eventually returning + -- NULL, so the loop would never terminate. Stop draining; the connection + -- is unusable and will be disposed of by its connection source. + unless (isCopyStatus st) $ drainResults connPtr + +-- | Check whether a result status indicates that the connection entered one +-- of the copy modes due to execution of a COPY statement. +isCopyStatus :: ExecStatusType -> Bool +isCopyStatus st = + st == c_PGRES_COPY_IN || st == c_PGRES_COPY_OUT || st == c_PGRES_COPY_BOTH + +-- | Read the data that arrived from the server, erroring out on failure. +consumeInput :: Ptr PGconn -> IO () +consumeInput connPtr = do + res <- c_PQconsumeInput connPtr + when (res /= 1) $ throwLibPQError connPtr "consumeInput" + +-- | Get the file descriptor of the connection socket, erroring out if the +-- connection is lost. +getSocket :: Ptr PGconn -> IO Fd +getSocket connPtr = do + fd <- c_PQsocket connPtr + when (fd == -1) $ throwLibPQError connPtr "getSocket" + pure fd verifyResult - :: (HasCallStack, IsSQL sql) - => sql - -> BackendPid - -> Ptr PGconn + :: Ptr PGconn -> Ptr PGresult -> IO (Either Int Int) -verifyResult sql pid conn res = do +verifyResult conn res = do -- works even if res is NULL rst <- c_PQresultStatus res case rst of @@ -423,36 +610,27 @@ verifyResult sql pid conn res = do _ | rst == c_PGRES_BAD_RESPONSE -> throwSQLError _ | otherwise -> pure . Left $ 0 where - throwSQLError = - rethrowWithContext sql pid - =<< if res == nullPtr - then - E.toException . QueryError <$> (safePeekCString' =<< c_PQerrorMessage conn) - else - E.toException - <$> ( DetailedQueryError - <$> field c_PG_DIAG_SEVERITY - <*> (stringToErrorCode <$> field c_PG_DIAG_SQLSTATE) - <*> field c_PG_DIAG_MESSAGE_PRIMARY - <*> mfield c_PG_DIAG_MESSAGE_DETAIL - <*> mfield c_PG_DIAG_MESSAGE_HINT - <*> ((mread =<<) <$> mfield c_PG_DIAG_STATEMENT_POSITION) - <*> ((mread =<<) <$> mfield c_PG_DIAG_INTERNAL_POSITION) - <*> mfield c_PG_DIAG_INTERNAL_QUERY - <*> mfield c_PG_DIAG_CONTEXT - <*> mfield c_PG_DIAG_SOURCE_FILE - <*> ((mread =<<) <$> mfield c_PG_DIAG_SOURCE_LINE) - <*> mfield c_PG_DIAG_SOURCE_FUNCTION - ) + throwSQLError + | res == nullPtr = throwLibPQError conn "verifyResult" + | otherwise = + E.throwIO + =<< DetailedQueryError + <$> field c_PG_DIAG_SEVERITY + <*> (stringToErrorCode <$> field c_PG_DIAG_SQLSTATE) + <*> field c_PG_DIAG_MESSAGE_PRIMARY + <*> mfield c_PG_DIAG_MESSAGE_DETAIL + <*> mfield c_PG_DIAG_MESSAGE_HINT + <*> ((mread =<<) <$> mfield c_PG_DIAG_STATEMENT_POSITION) + <*> ((mread =<<) <$> mfield c_PG_DIAG_INTERNAL_POSITION) + <*> mfield c_PG_DIAG_INTERNAL_QUERY + <*> mfield c_PG_DIAG_CONTEXT + <*> mfield c_PG_DIAG_SOURCE_FILE + <*> ((mread =<<) <$> mfield c_PG_DIAG_SOURCE_LINE) + <*> mfield c_PG_DIAG_SOURCE_FUNCTION where field f = fromMaybe "" <$> mfield f mfield f = safePeekCString =<< c_PQresultErrorField res f throwParseError sn = - E.throwIO - DBException - { dbeQueryContext = sql - , dbeBackendPid = pid - , dbeError = HPQTypesError ("verifyResult: string returned by PQcmdTuples is not a valid number: " ++ show sn) - , dbeCallStack = callStack - } + hpqTypesError $ + "verifyResult: string returned by PQcmdTuples is not a valid number: " ++ show sn diff --git a/src/Database/PostgreSQL/PQTypes/Internal/Error.hs b/src/Database/PostgreSQL/PQTypes/Internal/Error.hs index 65d2f49..2a81b78 100644 --- a/src/Database/PostgreSQL/PQTypes/Internal/Error.hs +++ b/src/Database/PostgreSQL/PQTypes/Internal/Error.hs @@ -1,22 +1,21 @@ -- | Definitions of exception types. module Database.PostgreSQL.PQTypes.Internal.Error ( DetailedQueryError (..) - , QueryError (..) , HPQTypesError (..) , LibPQError (..) , ConversionError (..) - , ArrayItemError (..) , InvalidValue (..) , RangeError (..) + , TypeMismatch (..) , ArrayDimensionMismatch (..) , RowLengthMismatch (..) , AffectedRowsMismatch (..) ) where import Control.Exception qualified as E -import Data.Typeable import Database.PostgreSQL.PQTypes.Internal.Error.Code +import Database.PostgreSQL.PQTypes.Internal.Oid -- | SQL query error. Reference: description of PQresultErrorField -- at . @@ -34,26 +33,18 @@ data DetailedQueryError = DetailedQueryError , qeSourceLine :: !(Maybe Int) , qeSourceFunction :: !(Maybe String) } - deriving (Eq, Ord, Show) - --- | Simple SQL query error. Thrown when there is no --- PGresult object corresponding to query execution. -newtype QueryError = QueryError String - deriving (Eq, Ord, Show) + deriving stock (Eq, Ord, Show) + deriving anyclass (E.Exception) -- | Internal error in this library. newtype HPQTypesError = HPQTypesError String - deriving (Eq, Ord) - -instance Show HPQTypesError where - show (HPQTypesError s) = "HPQTypesError (PostgreSQL): " <> s + deriving stock (Eq, Ord, Show) + deriving anyclass (E.Exception) --- | Internal error in libpq/libpqtypes library. +-- | Internal error in libpq library. newtype LibPQError = LibPQError String - deriving (Eq, Ord) - -instance Show LibPQError where - show (LibPQError s) = "LibPQError (PostgreSQL): " <> s + deriving stock (Eq, Ord, Show) + deriving anyclass (E.Exception) -- | Data conversion error. Since it's polymorphic in error type, -- it nicely reports arbitrarily nested conversion errors. @@ -67,37 +58,40 @@ data ConversionError = forall e. E.Exception e => ConversionError , convError :: !e -- ^ Exact error. } + deriving anyclass (E.Exception) -deriving instance Show ConversionError - --- | Array item error. Polymorphic in error type --- for the same reason as 'ConversionError'. -data ArrayItemError = forall e. E.Exception e => ArrayItemError - { arrItemIndex :: !Int - -- ^ Item index (Starts with 1). - , arrItemError :: !e - -- ^ Exact error. - } - -deriving instance Show ArrayItemError +deriving stock instance Show ConversionError -- | \"Invalid value\" error for various data types. -data InvalidValue t = InvalidValue - { ivValue :: t +data InvalidValue a = InvalidValue + { ivValue :: a -- ^ Invalid value. , -- Optional list of valid values. - ivValidValues :: Maybe [t] + ivValidValues :: Maybe [a] } - deriving (Eq, Ord, Show) + deriving stock (Eq, Ord, Show) + deriving anyclass (E.Exception) -- | Range error for various data types. -data RangeError t = RangeError - { reRange :: [(t, t)] +data RangeError a = RangeError + { reRange :: [(a, a)] -- ^ Allowed range (sum of acceptable ranges). - , reValue :: t + , reValue :: a -- ^ Provided value which is not in above range. } - deriving (Eq, Ord, Show) + deriving stock (Eq, Ord, Show) + deriving anyclass (E.Exception) + +-- | Type mismatch error: the type of a field of the query result doesn't +-- match the type expected by the decoder. +data TypeMismatch = TypeMismatch + { tmExpectedOid :: !Oid + -- ^ OID of the type expected by the library. + , tmDeliveredOid :: !Oid + -- ^ OID of the type delivered by the database. + } + deriving stock (Eq, Ord, Show) + deriving anyclass (E.Exception) -- | Array dimenstion mismatch error. data ArrayDimensionMismatch = ArrayDimensionMismatch @@ -106,7 +100,8 @@ data ArrayDimensionMismatch = ArrayDimensionMismatch , arrDimDelivered :: !Int -- ^ Dimension provided by the database. } - deriving (Eq, Ord, Show) + deriving stock (Eq, Ord, Show) + deriving anyclass (E.Exception) -- | Row length mismatch error. data RowLengthMismatch = RowLengthMismatch @@ -115,7 +110,8 @@ data RowLengthMismatch = RowLengthMismatch , lengthDelivered :: !Int -- ^ Length delivered by the database. } - deriving (Eq, Ord, Show) + deriving stock (Eq, Ord, Show) + deriving anyclass (E.Exception) -- | Affected/returned rows mismatch error. data AffectedRowsMismatch = AffectedRowsMismatch @@ -126,16 +122,5 @@ data AffectedRowsMismatch = AffectedRowsMismatch , rowsDelivered :: !Int -- ^ Number of affected/returned rows by the database. } - deriving (Eq, Ord, Show) - -instance E.Exception DetailedQueryError -instance E.Exception QueryError -instance E.Exception HPQTypesError -instance E.Exception LibPQError -instance E.Exception ConversionError -instance E.Exception ArrayItemError -instance (Show t, Typeable t) => E.Exception (InvalidValue t) -instance (Show t, Typeable t) => E.Exception (RangeError t) -instance E.Exception ArrayDimensionMismatch -instance E.Exception RowLengthMismatch -instance E.Exception AffectedRowsMismatch + deriving stock (Eq, Ord, Show) + deriving anyclass (E.Exception) diff --git a/src/Database/PostgreSQL/PQTypes/Internal/Error/Code.hs b/src/Database/PostgreSQL/PQTypes/Internal/Error/Code.hs index 1057ee7..9d75634 100644 --- a/src/Database/PostgreSQL/PQTypes/Internal/Error/Code.hs +++ b/src/Database/PostgreSQL/PQTypes/Internal/Error/Code.hs @@ -282,7 +282,7 @@ data ErrorCode | IndexCorrupted | -- Unknown error code UnknownErrorCode String - deriving (Eq, Ord, Show) + deriving stock (Eq, Ord, Show) -- | Convert 'String' to corresponding 'ErrorCode'. stringToErrorCode :: String -> ErrorCode diff --git a/src/Database/PostgreSQL/PQTypes/Internal/Exception.hs b/src/Database/PostgreSQL/PQTypes/Internal/Exception.hs index 427f63a..2aea7ec 100644 --- a/src/Database/PostgreSQL/PQTypes/Internal/Exception.hs +++ b/src/Database/PostgreSQL/PQTypes/Internal/Exception.hs @@ -8,6 +8,7 @@ import Control.Exception qualified as E import GHC.Stack import Database.PostgreSQL.PQTypes.Internal.BackendPid +import Database.PostgreSQL.PQTypes.Internal.Utils import Database.PostgreSQL.PQTypes.SQL.Class -- | Main exception type. All exceptions thrown by @@ -21,23 +22,28 @@ data DBException = forall e sql. (E.Exception e, Show sql) => DBException -- ^ Specific error. , dbeCallStack :: CallStack } + deriving anyclass (E.Exception) -deriving instance Show DBException - -instance E.Exception DBException +deriving stock instance Show DBException -- | Rethrow supplied exception enriched with given SQL. +-- +-- Asynchronous exceptions and exceptions already wrapped in 'DBException' +-- are rethrown as they are. rethrowWithContext :: (HasCallStack, IsSQL sql) => sql -> BackendPid -> E.SomeException -> IO a -rethrowWithContext sql pid (E.SomeException e) = - E.throwIO - DBException - { dbeQueryContext = sql - , dbeBackendPid = pid - , dbeError = e - , dbeCallStack = callStack - } +rethrowWithContext sql pid e@(E.SomeException inner) + | isAsyncException e = E.throwIO e + | Just dbe <- E.fromException @DBException e = E.throwIO dbe + | otherwise = + E.throwIO + DBException + { dbeQueryContext = sql + , dbeBackendPid = pid + , dbeError = inner + , dbeCallStack = callStack + } diff --git a/src/Database/PostgreSQL/PQTypes/Internal/Monad.hs b/src/Database/PostgreSQL/PQTypes/Internal/Monad.hs index 5943375..db59c2d 100644 --- a/src/Database/PostgreSQL/PQTypes/Internal/Monad.hs +++ b/src/Database/PostgreSQL/PQTypes/Internal/Monad.hs @@ -29,7 +29,7 @@ type InnerDBT m = StateT (DBState m) -- | Monad transformer for adding database -- interaction capabilities to the underlying monad. newtype DBT_ m n a = DBT {unDBT :: InnerDBT m n a} - deriving (Alternative, Applicative, Functor, Monad, MF.MonadFail, MonadBase b, MonadCatch, MonadIO, MonadMask, MonadPlus, MonadThrow, MonadTrans) + deriving newtype (Alternative, Applicative, Functor, Monad, MF.MonadFail, MonadBase b, MonadCatch, MonadIO, MonadMask, MonadPlus, MonadThrow, MonadTrans) type DBT m = DBT_ m m diff --git a/src/Database/PostgreSQL/PQTypes/Internal/Notification.hsc b/src/Database/PostgreSQL/PQTypes/Internal/Notification.hsc index f168e8a..0325ccf 100644 --- a/src/Database/PostgreSQL/PQTypes/Internal/Notification.hsc +++ b/src/Database/PostgreSQL/PQTypes/Internal/Notification.hsc @@ -5,7 +5,6 @@ module Database.PostgreSQL.PQTypes.Internal.Notification ) where import Control.Concurrent -import Control.Monad import Control.Monad.Fix import Data.String import Foreign.Ptr @@ -21,7 +20,6 @@ import Data.Text.Encoding qualified as T import Database.PostgreSQL.PQTypes.Internal.C.Interface import Database.PostgreSQL.PQTypes.Internal.C.Types import Database.PostgreSQL.PQTypes.Internal.Connection -import Database.PostgreSQL.PQTypes.Internal.Utils import Database.PostgreSQL.PQTypes.SQL.Raw #include @@ -33,7 +31,7 @@ foreign import ccall unsafe "PQnotifies" -- | Representation of notification channel. newtype Channel = Channel (RawSQL ()) - deriving (Eq, Ord) + deriving newtype (Eq, Ord) instance IsString Channel where fromString = Channel . fromString @@ -51,7 +49,7 @@ data Notification = Notification , ntChannel :: !Channel -- | Notification payload string. , ntPayload :: !T.Text - } deriving (Eq, Ord, Show) + } deriving stock (Eq, Ord, Show) instance Storable Notification where sizeOf _ = #{size PGnotify} @@ -76,25 +74,18 @@ getNotificationIO conn n = timeout n $ fix $ \loop -> do case mmsg of Just msg -> pure msg Nothing -> do - fd <- c_PQsocket $ connPtr conn - if fd == -1 - then hpqTypesError $ fname ++ ": invalid file descriptor" - else do - threadWaitRead fd - res <- c_PQconsumeInput $ connPtr conn - when (res /= 1) $ do - throwLibPQError (connPtr conn) fname - loop + fd <- getSocket $ connPtr conn + threadWaitRead fd + consumeInput $ connPtr conn + loop where - fname :: String - fname = "getNotificationIO" - tryGet :: Ptr PGconn -> IO (Maybe Notification) tryGet connPtr = E.mask_ $ do ptr <- c_PQnotifies connPtr if ptr /= nullPtr then do - msg <- peek ptr - c_PQfreemem ptr + -- Free the struct even if peek throws, e.g. when the channel name + -- or payload is not valid UTF-8. + msg <- peek ptr `E.finally` c_PQfreemem ptr pure $ Just msg else pure Nothing diff --git a/src/Database/PostgreSQL/PQTypes/Internal/Oid.hs b/src/Database/PostgreSQL/PQTypes/Internal/Oid.hs new file mode 100644 index 0000000..83a697e --- /dev/null +++ b/src/Database/PostgreSQL/PQTypes/Internal/Oid.hs @@ -0,0 +1,281 @@ +-- | The 'Oid' type along with OIDs of built-in PostgreSQL types. +module Database.PostgreSQL.PQTypes.Internal.Oid + ( Oid (..) + , unOid + + -- * OIDs of built-in types + , boolOid + , boolArrayOid + , byteaOid + , byteaArrayOid + , charOid + , charArrayOid + , nameOid + , nameArrayOid + , int8Oid + , int8ArrayOid + , int2Oid + , int2ArrayOid + , int4Oid + , int4ArrayOid + , textOid + , textArrayOid + , jsonOid + , jsonArrayOid + , xmlOid + , xmlArrayOid + , float4Oid + , float4ArrayOid + , float8Oid + , float8ArrayOid + , unknownOid + , inetOid + , inetArrayOid + , bpcharOid + , bpcharArrayOid + , varcharOid + , varcharArrayOid + , dateOid + , dateArrayOid + , timeOid + , timeArrayOid + , timestampOid + , timestampArrayOid + , timestamptzOid + , timestamptzArrayOid + , intervalOid + , intervalArrayOid + , timetzOid + , timetzArrayOid + , numericOid + , numericArrayOid + , recordOid + , recordArrayOid + , uuidOid + , uuidArrayOid + , jsonbOid + , jsonbArrayOid + , int4rangeOid + , int4rangeArrayOid + , numrangeOid + , numrangeArrayOid + , tsrangeOid + , tsrangeArrayOid + , tstzrangeOid + , tstzrangeArrayOid + , daterangeOid + , daterangeArrayOid + , int8rangeOid + , int8rangeArrayOid + , firstNormalOid + , unspecifiedOid + , pgTypeName + ) where + +import Data.Word +import Foreign.Storable + +-- | Internal object identifier used by PostgreSQL, in particular for +-- identification of types of query parameters and result columns. +newtype Oid = Oid Word32 + deriving newtype (Eq, Ord, Storable) + +unOid :: Oid -> Word32 +unOid (Oid oid) = oid + +instance Show Oid where + showsPrec p oid@(Oid n) = + showParen (p > 10) $ + showString "Oid " + . shows n + . showString " (" + . showString (pgTypeName oid) + . showString ")" + +-- OIDs of built-in types are stable; the values below come from +-- pg_type.dat in the PostgreSQL sources. + +boolOid, boolArrayOid :: Oid +boolOid = Oid 16 +boolArrayOid = Oid 1000 + +byteaOid, byteaArrayOid :: Oid +byteaOid = Oid 17 +byteaArrayOid = Oid 1001 + +charOid, charArrayOid :: Oid +charOid = Oid 18 +charArrayOid = Oid 1002 + +nameOid, nameArrayOid :: Oid +nameOid = Oid 19 +nameArrayOid = Oid 1003 + +int8Oid, int8ArrayOid :: Oid +int8Oid = Oid 20 +int8ArrayOid = Oid 1016 + +int2Oid, int2ArrayOid :: Oid +int2Oid = Oid 21 +int2ArrayOid = Oid 1005 + +int4Oid, int4ArrayOid :: Oid +int4Oid = Oid 23 +int4ArrayOid = Oid 1007 + +textOid, textArrayOid :: Oid +textOid = Oid 25 +textArrayOid = Oid 1009 + +jsonOid, jsonArrayOid :: Oid +jsonOid = Oid 114 +jsonArrayOid = Oid 199 + +xmlOid, xmlArrayOid :: Oid +xmlOid = Oid 142 +xmlArrayOid = Oid 143 + +float4Oid, float4ArrayOid :: Oid +float4Oid = Oid 700 +float4ArrayOid = Oid 1021 + +float8Oid, float8ArrayOid :: Oid +float8Oid = Oid 701 +float8ArrayOid = Oid 1022 + +unknownOid :: Oid +unknownOid = Oid 705 + +inetOid, inetArrayOid :: Oid +inetOid = Oid 869 +inetArrayOid = Oid 1041 + +bpcharOid, bpcharArrayOid :: Oid +bpcharOid = Oid 1042 +bpcharArrayOid = Oid 1014 + +varcharOid, varcharArrayOid :: Oid +varcharOid = Oid 1043 +varcharArrayOid = Oid 1015 + +dateOid, dateArrayOid :: Oid +dateOid = Oid 1082 +dateArrayOid = Oid 1182 + +timeOid, timeArrayOid :: Oid +timeOid = Oid 1083 +timeArrayOid = Oid 1183 + +timestampOid, timestampArrayOid :: Oid +timestampOid = Oid 1114 +timestampArrayOid = Oid 1115 + +timestamptzOid, timestamptzArrayOid :: Oid +timestamptzOid = Oid 1184 +timestamptzArrayOid = Oid 1185 + +intervalOid, intervalArrayOid :: Oid +intervalOid = Oid 1186 +intervalArrayOid = Oid 1187 + +timetzOid, timetzArrayOid :: Oid +timetzOid = Oid 1266 +timetzArrayOid = Oid 1270 + +numericOid, numericArrayOid :: Oid +numericOid = Oid 1700 +numericArrayOid = Oid 1231 + +recordOid, recordArrayOid :: Oid +recordOid = Oid 2249 +recordArrayOid = Oid 2287 + +uuidOid, uuidArrayOid :: Oid +uuidOid = Oid 2950 +uuidArrayOid = Oid 2951 + +jsonbOid, jsonbArrayOid :: Oid +jsonbOid = Oid 3802 +jsonbArrayOid = Oid 3807 + +int4rangeOid, int4rangeArrayOid :: Oid +int4rangeOid = Oid 3904 +int4rangeArrayOid = Oid 3905 + +numrangeOid, numrangeArrayOid :: Oid +numrangeOid = Oid 3906 +numrangeArrayOid = Oid 3907 + +tsrangeOid, tsrangeArrayOid :: Oid +tsrangeOid = Oid 3908 +tsrangeArrayOid = Oid 3909 + +tstzrangeOid, tstzrangeArrayOid :: Oid +tstzrangeOid = Oid 3910 +tstzrangeArrayOid = Oid 3911 + +daterangeOid, daterangeArrayOid :: Oid +daterangeOid = Oid 3912 +daterangeArrayOid = Oid 3913 + +int8rangeOid, int8rangeArrayOid :: Oid +int8rangeOid = Oid 3926 +int8rangeArrayOid = Oid 3927 + +-- | The lower bound of OIDs of user-defined objects +-- (FirstNormalObjectId in the PostgreSQL sources). All +-- built-in types have OIDs below it. +firstNormalOid :: Oid +firstNormalOid = Oid 16384 + +-- | Used as a type of a query parameter, it makes the server infer the type +-- of the parameter from the context in which it's used. +unspecifiedOid :: Oid +unspecifiedOid = Oid 0 + +-- | The name of the PostgreSQL type associated with a given 'Oid' of one of +-- the built-in types defined in this module. +pgTypeName :: Oid -> String +pgTypeName oid + | oid == unspecifiedOid = "unspecified" + | Just name <- lookup oid builtinTypeNames = name + | oid >= firstNormalOid = "user-defined type" + | otherwise = "unrecognized type" + +builtinTypeNames :: [(Oid, String)] +builtinTypeNames = + (unknownOid, "unknown") + : concatMap + (\(o, ao, name) -> [(o, name), (ao, name ++ "[]")]) + [ (boolOid, boolArrayOid, "bool") + , (byteaOid, byteaArrayOid, "bytea") + , (charOid, charArrayOid, "\"char\"") + , (nameOid, nameArrayOid, "name") + , (int8Oid, int8ArrayOid, "int8") + , (int2Oid, int2ArrayOid, "int2") + , (int4Oid, int4ArrayOid, "int4") + , (textOid, textArrayOid, "text") + , (jsonOid, jsonArrayOid, "json") + , (xmlOid, xmlArrayOid, "xml") + , (float4Oid, float4ArrayOid, "float4") + , (float8Oid, float8ArrayOid, "float8") + , (inetOid, inetArrayOid, "inet") + , (bpcharOid, bpcharArrayOid, "bpchar") + , (varcharOid, varcharArrayOid, "varchar") + , (dateOid, dateArrayOid, "date") + , (timeOid, timeArrayOid, "time") + , (timestampOid, timestampArrayOid, "timestamp") + , (timestamptzOid, timestamptzArrayOid, "timestamptz") + , (intervalOid, intervalArrayOid, "interval") + , (timetzOid, timetzArrayOid, "timetz") + , (numericOid, numericArrayOid, "numeric") + , (recordOid, recordArrayOid, "record") + , (uuidOid, uuidArrayOid, "uuid") + , (jsonbOid, jsonbArrayOid, "jsonb") + , (int4rangeOid, int4rangeArrayOid, "int4range") + , (numrangeOid, numrangeArrayOid, "numrange") + , (tsrangeOid, tsrangeArrayOid, "tsrange") + , (tstzrangeOid, tstzrangeArrayOid, "tstzrange") + , (daterangeOid, daterangeArrayOid, "daterange") + , (int8rangeOid, int8rangeArrayOid, "int8range") + ] diff --git a/src/Database/PostgreSQL/PQTypes/Internal/QueryResult.hs b/src/Database/PostgreSQL/PQTypes/Internal/QueryResult.hs index 378ee47..cdbb74d 100644 --- a/src/Database/PostgreSQL/PQTypes/Internal/QueryResult.hs +++ b/src/Database/PostgreSQL/PQTypes/Internal/QueryResult.hs @@ -1,6 +1,5 @@ module Database.PostgreSQL.PQTypes.Internal.QueryResult ( QueryResult (..) - , mkQueryResult , ntuples , nfields @@ -10,122 +9,85 @@ module Database.PostgreSQL.PQTypes.Internal.QueryResult ) where import Control.Exception qualified as E -import Control.Monad -import Data.Coerce -import Data.Foldable -import Data.Functor.Identity import Foreign.C.Types import Foreign.ForeignPtr -import Foreign.Marshal.Alloc -import Foreign.Ptr import GHC.Stack import System.IO.Unsafe -import Database.PostgreSQL.PQTypes.Format -import Database.PostgreSQL.PQTypes.FromRow import Database.PostgreSQL.PQTypes.Internal.BackendPid import Database.PostgreSQL.PQTypes.Internal.C.Interface import Database.PostgreSQL.PQTypes.Internal.C.Types -import Database.PostgreSQL.PQTypes.Internal.Error import Database.PostgreSQL.PQTypes.Internal.Exception +import Database.PostgreSQL.PQTypes.Internal.RowDecoder import Database.PostgreSQL.PQTypes.SQL.Class --- | Representation of a query result. Provides 'Functor' --- and 'Foldable' instances for data transformation and --- extraction appropriately. -data QueryResult t = forall row. FromRow row => QueryResult +-- | Representation of a query result. Its rows can be converted to Haskell +-- values with the fetching functions from "Database.PostgreSQL.PQTypes.Fold", +-- which take a 'RowDecoder' of a row as an argument. +data QueryResult = QueryResult { qrSQL :: !SomeSQL , qrBackendPid :: !BackendPid , qrResult :: !(ForeignPtr PGresult) - , qrFromRow :: !(row -> t) } -mkQueryResult - :: (FromRow t, IsSQL sql) - => sql - -> BackendPid - -> ForeignPtr PGresult - -> QueryResult t -mkQueryResult sql pid res = - QueryResult - { qrSQL = SomeSQL sql - , qrBackendPid = pid - , qrResult = res - , qrFromRow = id - } - -instance Functor QueryResult where - f `fmap` QueryResult ctx pid fres g = QueryResult ctx pid fres (f . g) - -instance Foldable QueryResult where - foldr f acc = runIdentity . foldrImpl False (coerce f) acc - foldr' f acc = runIdentity . foldrImpl True (coerce f) acc - - foldl f acc = runIdentity . foldlImpl False (coerce f) acc - foldl' f acc = runIdentity . foldlImpl True (coerce f) acc - +-- | Fold rows of a query result from the right. Each row is decoded right +-- before it's passed to the fold function, i.e. only after the rows after it +-- were folded, so no more rows than the fold function retains are alive at +-- any time. foldrImpl :: (HasCallStack, Monad m) - => Bool - -> (t -> acc -> m acc) + => RowDecoder a + -> (a -> acc -> m acc) -> acc - -> QueryResult t + -> QueryResult -> m acc -foldrImpl = foldImpl (fmap pred . c_PQntuples) (const . pure $ -1) pred +foldrImpl dec f iacc qr = worker iacc $ n - 1 + where + n = fromIntegral $ ntuples qr + worker acc !i + | i < 0 = pure acc + | otherwise = do + let a = decodeRow dec qr i + acc' <- a `seq` f a acc + worker acc' (i - 1) +-- | Fold rows of a query result from the left. Each row is decoded right +-- before it's passed to the fold function, so no more rows than the fold +-- function retains are alive at any time. foldlImpl :: (HasCallStack, Monad m) - => Bool - -> (acc -> t -> m acc) - -> acc - -> QueryResult t - -> m acc -foldlImpl strict = foldImpl (const $ pure 0) c_PQntuples succ strict . flip - -foldImpl - :: (HasCallStack, Monad m) - => (Ptr PGresult -> IO CInt) - -> (Ptr PGresult -> IO CInt) - -> (CInt -> CInt) - -> Bool - -> (t -> acc -> m acc) + => RowDecoder a + -> (acc -> a -> m acc) -> acc - -> QueryResult t + -> QueryResult -> m acc -foldImpl initCtr termCtr advCtr strict f iacc (QueryResult (SomeSQL ctx) pid fres g) = - unsafePerformIO . withForeignPtr fres $ \res -> do - -- This bit is referentially transparent iff appropriate - -- FrowRow and FromSQL instances are (the ones provided - -- by the library fulfil this requirement). - rowlen <- fromIntegral <$> c_PQnfields res - when (rowlen /= pqVariablesP rowp) $ - E.throwIO - DBException - { dbeQueryContext = ctx - , dbeBackendPid = pid - , dbeError = - RowLengthMismatch - { lengthExpected = pqVariablesP rowp - , lengthDelivered = rowlen - } - , dbeCallStack = callStack - } - alloca $ \err -> do - n <- termCtr res - let worker acc i = - if i == n - then pure acc - else do - -- mask asynchronous exceptions so they won't be wrapped in DBException - obj <- E.mask_ (g <$> fromRow res err 0 i `E.catch` rethrowWithContext ctx pid) - worker `apply` (f obj =<< acc) $ advCtr i - worker (pure iacc) =<< initCtr res +foldlImpl dec f iacc qr = worker iacc 0 where - -- ⊥ of existential type hidden in QueryResult - row = let _ = g row in row - rowp = pure row + n = fromIntegral $ ntuples qr + worker acc !i + | i == n = pure acc + | otherwise = do + let a = decodeRow dec qr i + acc' <- a `seq` f acc a + worker acc' (i + 1) - apply = if strict then ($!) else ($) +-- | Decode a row of a query result, attaching the query as context to +-- exceptions thrown while doing so. +-- +-- The restricted interface of 'RowDecoder' only allows reading fields of the +-- (immutable) query result, so decoding is referentially transparent and +-- duplicating it is harmless, which makes the usage of 'unsafeDupablePerformIO' +-- fine here. +-- +-- Note that the result needs to be forced right when the fold function is +-- applied to it (the fold function itself is not obligated to force it, +-- consider e.g. 'fetchMany'), otherwise unforced thunks retaining the whole +-- query result would escape the fold and decoding errors would be deferred +-- to wherever they're forced. +decodeRow :: HasCallStack => RowDecoder a -> QueryResult -> CInt -> a +decodeRow dec QueryResult {qrSQL = SomeSQL ctx, ..} i = + unsafeDupablePerformIO . withForeignPtr qrResult $ \res -> + runDecoder dec res i `E.catch` rethrowWithContext ctx qrBackendPid -- Note: c_PQntuples/c_PQnfields are pure on a C level and QueryResult -- constructor is not exported to the end user (so it's not possible @@ -133,11 +95,11 @@ foldImpl initCtr termCtr advCtr strict f iacc (QueryResult (SomeSQL ctx) pid fre -- makes usage of unsafeDupablePerformIO fine here. -- | Extract number of returned tuples (rows) from query result. -ntuples :: QueryResult t -> Int +ntuples :: QueryResult -> Int ntuples qr = unsafeDupablePerformIO $ do fromIntegral <$> withForeignPtr (qrResult qr) c_PQntuples -- | Extract number of returned fields (columns) from query result. -nfields :: QueryResult t -> Int +nfields :: QueryResult -> Int nfields qr = unsafeDupablePerformIO $ do fromIntegral <$> withForeignPtr (qrResult qr) c_PQnfields diff --git a/src/Database/PostgreSQL/PQTypes/Internal/RowDecoder.hs b/src/Database/PostgreSQL/PQTypes/Internal/RowDecoder.hs new file mode 100644 index 0000000..b5a39b2 --- /dev/null +++ b/src/Database/PostgreSQL/PQTypes/Internal/RowDecoder.hs @@ -0,0 +1,458 @@ +{-# LANGUAGE NoFieldSelectors #-} + +-- | Definition of the machinery for decoding query results. +module Database.PostgreSQL.PQTypes.Internal.RowDecoder + ( -- * Row decoder + RowDecoder + , runDecoder + + -- ** Combinators + , decodeArray + , decodeComposite + , decodeEnum + , decodeNullable + , decodeScalar + ) where + +import BinaryParser qualified as BP +import Control.Exception qualified as E +import Control.Monad +import Control.Monad.Catch +import Control.Monad.Trans.Class +import Control.Monad.Trans.State.Strict +import Data.ByteString qualified as BS +import Data.Map.Strict (Map) +import Data.Map.Strict qualified as Map +import Data.Text qualified as T +import Data.Vector qualified as V +import Foreign.C.Types +import Foreign.Ptr +import PostgreSQL.Binary.Decoding qualified as D + +import Database.PostgreSQL.PQTypes.Format +import Database.PostgreSQL.PQTypes.Internal.C.Interface +import Database.PostgreSQL.PQTypes.Internal.C.Types +import Database.PostgreSQL.PQTypes.Internal.Error +import Database.PostgreSQL.PQTypes.Internal.Oid +import Database.PostgreSQL.PQTypes.Internal.Utils + +type role RowDecoder representational + +-- | Decoder of values of type @a@ from fields of a query result. It's a +-- monad, so a decoder of a compound value is built from decoders of its +-- fields sequentially: +-- +-- > data T = T Int32 T.Text Bool +-- > +-- > decodeT :: RowDecoder T +-- > decodeT = T <$> fromSQL <*> fromSQL <*> fromSQL +newtype RowDecoder a = RowDecoder (DecoderState -> IO (a, DecoderState)) + deriving + ( Applicative + , Functor + , Monad + ) + via StateT DecoderState IO + +-- | Exceptions thrown with 'throwM' are wrapped in 'ConversionError' carrying +-- the position of the most recently consumed field, like the errors thrown by +-- the decoders of the fields themselves. This makes it the way to report errors +-- detected after a field was decoded, e.g. by validation of the decoded value. +-- +-- /Note:/ an error thrown before the field it concerns was consumed is +-- attributed to the preceding field (or carries no position at all when thrown +-- before any field was consumed). +instance MonadThrow RowDecoder where + throwM err = mkDecoder $ do + DecoderState fs idx <- get + lift $ + if idx == 0 + -- No field was consumed yet, so there's no position to attach. + then E.throwIO err + else do + -- idx is the index of the next field to consume. + name <- fs.fieldName (idx - 1) + E.throwIO + ConversionError + { convColumn = idx + , convColumnName = name + , convRow = fs.row + 1 + , convError = err + } + +instance MonadFail RowDecoder where + fail = throwM . HPQTypesError + +-- | Internal helper for defining decoders in terms of 'StateT'. +mkDecoder :: StateT DecoderState IO a -> RowDecoder a +mkDecoder = RowDecoder . runStateT + +-- | State of the decoder: the source of fields along with the index of the +-- next field to decode. Note that only the index changes as decoding +-- progresses. +data DecoderState = DecoderState !FieldSource !Int + +---------------------------------------- + +-- | Source of fields for a decoder: columns of a row of a query result, +-- fields of a record value or elements of an array. +data FieldSource = FieldSource + { numFields :: !Int + , row :: !Int + -- ^ Row of the query result the fields belong to, for error reporting. + , getField :: !(Int -> IO Field) + , isNull :: !(Int -> IO Bool) + , fieldName :: !(Int -> IO String) + } + +-- | A field source backed by a function that produces fields. Note that +-- the strictness annotations of 'FieldSource' force only the function +-- closures, so a 'Field' is only constructed when a decoder asks for it. +mkFieldSource :: Int -> Int -> (Int -> Field) -> FieldSource +mkFieldSource srcRow n mkField = + FieldSource + { numFields = n + , row = srcRow + , getField = pure . mkField + , isNull = \idx -> pure $ case mkField idx of + Field _ Nothing -> True + Field _ Just {} -> False + SubArray {} -> False + , fieldName = \_ -> pure "" + } + +---------------------------------------- + +-- | A field to be decoded. +data Field + = -- | Type and value of the field ('Nothing' represents NULL). + Field !Oid !(Maybe BS.ByteString) + | -- | Sub-array of a multi-dimensional array (see 'decodeArray'). + SubArray !ArrayData + +-- | Parsed representation of an array value. +data ArrayData = ArrayData + { elemOid :: !Oid + , dims :: ![Int] + , elems :: !(V.Vector (Maybe BS.ByteString)) + -- ^ Elements of the array in row-major order. + } + +---------------------------------------- +-- Running a decoder + +-- | Run a decoder against a row of a query result, checking that it consumed +-- all its columns. +runDecoder :: RowDecoder a -> Ptr PGresult -> CInt -> IO a +runDecoder dec res i = do + numFields <- fromIntegral <$> c_PQnfields res + runDecoderWith dec $ + FieldSource + { numFields = numFields + , row = fromIntegral i + , getField = \idx -> do + let j = fromIntegral idx + oid <- c_PQftype res j + isnull <- c_PQgetisnull res i j + mvalue <- + if isnull == 1 + then pure Nothing + else do + ptr <- c_PQgetvalue res i j + len <- c_PQgetlength res i j + Just <$> BS.packCStringLen (ptr, fromIntegral len) + pure $ Field oid mvalue + , isNull = \idx -> (== 1) <$> c_PQgetisnull res i (fromIntegral idx) + , fieldName = \idx -> safePeekCString' =<< c_PQfname res (fromIntegral idx) + } + +-- | Run a decoder against a field source, checking that it consumed all the +-- fields. +runDecoderWith :: RowDecoder a -> FieldSource -> IO a +runDecoderWith (RowDecoder dec) fs = do + (a, DecoderState _ consumed) <- dec $ DecoderState fs 0 + when (consumed /= fs.numFields) . E.throwIO $ + RowLengthMismatch + { lengthExpected = consumed + , lengthDelivered = fs.numFields + } + pure a + +---------------------------------------- +-- Decoders + +-- | Decode the next field with the given decoder, mapping NULL to 'Nothing'. +-- +-- The given decoder doesn't run on NULL, so the type of the field is then +-- not checked (it's the decoders themselves that check types): NULL of any +-- type, including an untyped @NULL@ literal (which is of the text type as +-- far as the server is concerned), decodes to 'Nothing'. +-- +-- Note that on NULL exactly one field is consumed, hence the given decoder +-- needs to consume exactly one field as well, which is the case for all +-- decoders defined in this module. This is enforced: a decoder consuming a +-- different number of fields results in 'RowLengthMismatch'. +decodeNullable :: RowDecoder a -> RowDecoder (Maybe a) +decodeNullable (RowDecoder inner) = mkDecoder $ do + DecoderState fs idx <- get + boundsCheck fs idx + isnull <- lift $ fs.isNull idx + if isnull + then do + put $! DecoderState fs (idx + 1) + pure Nothing + else do + (a, st@(DecoderState _ consumed)) <- lift . inner $ DecoderState fs idx + -- The NULL branch above consumes exactly one field, so it needs to be + -- checked that the given decoder did the same, otherwise decoding + -- would advance by a NULL-dependent number of fields. + when (consumed /= idx + 1) . lift . E.throwIO $ + RowLengthMismatch + { lengthExpected = consumed - idx + , lengthDelivered = 1 + } + put st + pure $ Just a + +-- | Decode the next field using a value decoder from +-- "PostgreSQL.Binary.Decoding", after verifying that the type of the field +-- matches the expected one. +decodeScalar :: forall a. PQFormat a => D.Value a -> RowDecoder a +decodeScalar valueDec = withNextField $ \_srcRow -> \case + Field oid mvalue -> do + when (oid /= pqOid @a) . E.throwIO $ + TypeMismatch + { tmExpectedOid = pqOid @a + , tmDeliveredOid = oid + } + case mvalue of + Nothing -> unexpectedNULL + Just value -> getParseResult "decodeScalar" $ D.valueParser valueDec value + SubArray ad -> E.throwIO $ subArrayDimensionMismatch ad +-- Inlined so that 'FromSQL' instances specialize the decoder to the decoded +-- type (in particular resolve the type class dictionaries of polymorphic +-- parsers such as 'D.int'), which improves the decoding speed by 5-10%. +{-# INLINE decodeScalar #-} + +-- | Decode the next field as a value of a PostgreSQL enum type, using the +-- given map from enum labels to values. The field can also be of the text +-- type, as the binary wire format of enums and text is the same. +decodeEnum :: Map T.Text a -> RowDecoder a +decodeEnum values = withNextField $ \_srcRow -> \case + Field oid mvalue -> do + -- Enum types are user-defined, so their OIDs cannot be known statically, + -- but they are always greater than or equal to 'firstNormalOid', so at + -- least decoding of built-in non-text types is rejected here. Labels are + -- verified against the map below anyway. + when (oid /= textOid && oid < firstNormalOid) . E.throwIO $ + TypeMismatch + { tmExpectedOid = textOid + , tmDeliveredOid = oid + } + case mvalue of + Nothing -> unexpectedNULL + Just value -> do + label <- getParseResult "decodeEnum" $ D.valueParser D.text_strict value + case Map.lookup label values of + Just a -> pure a + Nothing -> + E.throwIO + InvalidValue + { ivValue = label + , ivValidValues = Just $ Map.keys values + } + SubArray ad -> E.throwIO $ subArrayDimensionMismatch ad + +-- | Decode the next field as a composite (anonymous row or user-defined) +-- value, using the supplied decoder for decoding its fields. The decoder +-- needs to use all fields of the composite: +-- +-- > -- select 1::int, (2::int, 'hi'::text), true::bool +-- > decoder :: RowDecoder (Int32, (Int32, T.Text), Bool) +-- > decoder = (,,) <$> fromSQL <*> decodeComposite ((,) <$> fromSQL <*> fromSQL) <*> fromSQL +decodeComposite :: RowDecoder a -> RowDecoder a +decodeComposite inner = withNextField $ \srcRow -> \case + Field oid mvalue -> do + -- The field needs to be either an anonymous record or a user-defined + -- composite type. OIDs of the latter cannot be known statically, but + -- they are always greater than or equal to 'firstNormalOid', so at least + -- decoding of built-in non-record types is rejected here. Types of the + -- fields of the record are verified by the inner decoder. + when (oid /= recordOid && oid < firstNormalOid) . E.throwIO $ + TypeMismatch + { tmExpectedOid = recordOid + , tmDeliveredOid = oid + } + case mvalue of + Nothing -> unexpectedNULL + Just value -> do + fields <- getParseResult "decodeComposite" $ parseRecord value + runDecoderWith inner $ mkFieldSource srcRow (V.length fields) (fields V.!) + SubArray ad -> E.throwIO $ subArrayDimensionMismatch ad + +-- | Decode the next field as an array, using the supplied decoder for +-- decoding its elements. Multi-dimensional arrays are decoded by nesting, +-- e.g. @'decodeArray' ('decodeArray' fromSQL)@ decodes a two-dimensional +-- array as a vector of vectors. +-- +-- Errors from element decoders carry the position of the offending element +-- as the column of their 'ConversionError'. +decodeArray :: forall a. RowDecoder a -> RowDecoder (V.Vector a) +decodeArray (RowDecoder inner) = withNextField $ \srcRow -> \case + Field _ Nothing -> unexpectedNULL + Field _ (Just value) -> do + -- Like with 'decodeComposite', the type of the field itself is not + -- checked (the array OID corresponding to the type of the elements is + -- not known here), but types of the elements are verified by the inner + -- decoder. + arrayData <- getParseResult "decodeArray" $ parseArray value + decodeArrayData srcRow arrayData + SubArray arrayData -> decodeArrayData srcRow arrayData + where + -- The wire format is flat: a header with the list of dimensions, + -- followed by all the elements in row-major order. Each application of + -- 'decodeArray' peels one dimension off dims, and 'SubArray' is how a + -- slice of the flat element vector holding one complete sub-array + -- travels to the nested 'decodeArray' (which is why the 'SubArray' + -- branch above parses nothing). + decodeArrayData :: Int -> ArrayData -> IO (V.Vector a) + decodeArrayData srcRow ad = case ad.dims of + [] -> pure V.empty + [n] -> decodeElems srcRow n $ \i -> + Field ad.elemOid $ ad.elems V.! i + n : rest -> do + let chunkLen = product rest + decodeElems srcRow n $ \i -> + SubArray . ArrayData ad.elemOid rest $ V.slice (i * chunkLen) chunkLen ad.elems + + -- All elements are decoded against a single field source, with mkField + -- (the lambdas at the call sites above) as its getField. This way the + -- Field value wrapping the payload of an element is only constructed + -- when the element decoder asks for it and becomes garbage right after: + -- allocating a vector of Field values for all elements upfront (e.g. + -- with V.map) proved to be a pessimization. + decodeElems :: Int -> Int -> (Int -> Field) -> IO (V.Vector a) + decodeElems srcRow n mkField = do + let fs = mkFieldSource srcRow n mkField + V.generateM n $ \i -> do + -- The element decoder starts at the index of its element, so it + -- needs to be checked that it consumed exactly one field. + (a, DecoderState _ consumed) <- inner $ DecoderState fs i + when (consumed /= i + 1) . E.throwIO $ + RowLengthMismatch + { lengthExpected = consumed - i + , lengthDelivered = 1 + } + pure a + +---------------------------------------- +-- Helpers + +-- | Consume the next field and process it. Any synchronous exception thrown +-- while doing so is wrapped in 'ConversionError' with the position of the +-- field attached. +withNextField :: (Int -> Field -> IO a) -> RowDecoder a +withNextField process = mkDecoder $ do + DecoderState fs idx <- get + boundsCheck fs idx + put $! DecoderState fs (idx + 1) + lift $ + (process fs.row =<< fs.getField idx) `catchSync` \(E.SomeException err) -> do + name <- fs.fieldName idx + E.throwIO + ConversionError + { convColumn = idx + 1 + , convColumnName = name + , convRow = fs.row + 1 + , convError = err + } + +boundsCheck :: FieldSource -> Int -> StateT DecoderState IO () +boundsCheck fs idx = + when (idx >= fs.numFields) . lift . E.throwIO $ + RowLengthMismatch + { lengthExpected = idx + 1 + , lengthDelivered = fs.numFields + } + +-- | Get a result of running a parser or throw an exception. +getParseResult :: String -> Either T.Text a -> IO a +getParseResult fun = either (hpqTypesError . (fun ++) . (": " ++) . T.unpack) pure + +subArrayDimensionMismatch :: ArrayData -> ArrayDimensionMismatch +subArrayDimensionMismatch ad = + ArrayDimensionMismatch + { arrDimExpected = 0 + , arrDimDelivered = length ad.dims + } + +---------------------------------------- + +-- Parsers of the binary wire format of records and arrays. Reference: +-- record_send and array_send in the PostgreSQL sources. + +-- | Parse a record value: the number of fields (32-bit integer) followed by +-- the fields, each with its type (32-bit OID) followed by its +-- length-prefixed value (see 'getValue'). +parseRecord :: BS.ByteString -> Either T.Text (V.Vector Field) +parseRecord = BP.run $ do + numFields <- BP.beWord32 + fields <- V.replicateM (fromIntegral numFields) $ do + oid <- BP.beWord32 + Field (Oid oid) <$> getValue + fields <$ BP.endOfInput + +-- | Parse an array value: the number of dimensions (32-bit integer), the +-- presence of NULLs (32-bit integer, ignored), the type of the elements +-- (32-bit OID), then for each dimension its size (32-bit integer) and lower +-- bound (32-bit integer, ignored), then the elements in row-major order, +-- each as a length-prefixed value (see 'getValue'). +-- +-- Note that garbage dimensions resulting from parsing data that is not an +-- array cannot cause unbounded allocation: the number of elements is capped +-- at the maximum the server can send, dimensions of size 0 (which would +-- exempt the sizes of the other dimensions from that cap) are rejected and +-- reading past the end of input fails, which aborts the traversal. +parseArray :: BS.ByteString -> Either T.Text ArrayData +parseArray = BP.run $ do + numDims <- BP.beWord32 + -- Skip the has-nulls flag. + BP.unitOfSize 4 + elemOid <- BP.beWord32 + -- The upper bound is MAXDIM from the PostgreSQL sources. + when (numDims > 6) $ BP.failure "invalid number of dimensions" + dims <- replicateM (fromIntegral numDims) $ do + dim <- BP.beWord32 + -- Skip the lower bound. + BP.unitOfSize 4 + -- Empty arrays have zero dimensions, so a dimension of size 0 never + -- appears on the wire. + when (dim == 0) $ BP.failure "invalid dimension size" + pure $ fromIntegral dim + -- The number of elements is computed as an Integer to rule out overflow. + let numElems = if null dims then 0 else product (map toInteger dims) + when (numElems > maxArraySize) $ BP.failure "invalid number of elements" + elems <- V.replicateM (fromIntegral numElems) getValue + BP.endOfInput + pure + ArrayData + { elemOid = Oid elemOid + , dims = dims + , elems = elems + } + where + -- Maximum number of elements in an array: MaxArraySize from the + -- PostgreSQL sources, defined there as the maximum allocation size + -- divided by the size of a Datum. + maxArraySize :: Integer + maxArraySize = 0x3fffffff `div` 8 + +-- | Read a length-prefixed value: a 32-bit length (with the maximum unsigned +-- value, i.e. -1 when read as signed, representing NULL) followed by that +-- many bytes. +getValue :: BP.BinaryParser (Maybe BS.ByteString) +getValue = do + len <- BP.beWord32 + if len == maxBound -- -1, i.e. NULL + then pure Nothing + else Just <$> BP.bytesOfSize (fromIntegral len) diff --git a/src/Database/PostgreSQL/PQTypes/Internal/State.hs b/src/Database/PostgreSQL/PQTypes/Internal/State.hs index db385d6..102cfc2 100644 --- a/src/Database/PostgreSQL/PQTypes/Internal/State.hs +++ b/src/Database/PostgreSQL/PQTypes/Internal/State.hs @@ -24,12 +24,12 @@ import Foreign.ForeignPtr import GHC.Stack import Data.Monoid.Utils -import Database.PostgreSQL.PQTypes.FromRow import Database.PostgreSQL.PQTypes.Internal.BackendPid import Database.PostgreSQL.PQTypes.Internal.C.Types import Database.PostgreSQL.PQTypes.Internal.Connection import Database.PostgreSQL.PQTypes.Internal.Exception import Database.PostgreSQL.PQTypes.Internal.QueryResult +import Database.PostgreSQL.PQTypes.Internal.Utils import Database.PostgreSQL.PQTypes.SQL import Database.PostgreSQL.PQTypes.SQL.Class import Database.PostgreSQL.PQTypes.Transaction.Settings @@ -126,13 +126,35 @@ withConnectionData -> (ConnectionData m -> m r) -> m r withConnectionData cs ts action = (`fix` 1) $ \loop n -> do - let maybeRestart = case tsRestartPredicate ts of - Just _ -> handleJust (expred n) $ \_ -> loop $ n + 1 - Nothing -> id - maybeRestart - . fmap fst - . generalBracket (initConnectionData cs cam) finalizeConnectionData - $ action + eres <- + try + . fmap fst + . generalBracket + (initConnectionData cs cam) + ( \cd ec -> case ec of + ExitCaseSuccess {} -> finalizeConnectionData cd ec + -- If the action didn't succeed, propagate its original exception: + -- a failure of the cleanup (e.g. of the ROLLBACK query when the + -- connection died) would otherwise mask it, in particular hiding + -- it from the restart predicate below. Asynchronous exceptions + -- are not suppressed, so that e.g. thread cancellation delivered + -- during the cleanup is not lost. + _ -> + finalizeConnectionData cd ec + `catchSync` \_ -> pure () + ) + $ action + case eres of + Right res -> pure res + -- Restarting is done outside of the exception handler, so that the + -- retried transaction doesn't run with asynchronous exceptions masked. + -- Never restart on an asynchronous exception, even if the restart + -- predicate matches it (which it can, if it's instantiated at + -- SomeException). + Left e + | isAsyncException e -> throwM e + | Just () <- expred n e -> loop $ n + 1 + | otherwise -> throwM e where cam = tsConnectionAcquisitionMode ts @@ -264,7 +286,7 @@ data DBState m = DBState -- attached to the session that executed it. , dbRecordLastQuery :: !Bool -- ^ Whether running query should override 'dbLastQuery'. - , dbQueryResult :: !(forall row. FromRow row => Maybe (QueryResult row)) + , dbQueryResult :: !(Maybe QueryResult) -- ^ Current query result. } @@ -298,6 +320,12 @@ updateStateWith conn st sql (r, res, updateStats) = do if dbRecordLastQuery st then (connBackendPid conn, SomeSQL sql) else dbLastQuery st - , dbQueryResult = Just $ mkQueryResult sql (connBackendPid conn) res + , dbQueryResult = + Just + QueryResult + { qrSQL = SomeSQL sql + , qrBackendPid = connBackendPid conn + , qrResult = res + } } ) diff --git a/src/Database/PostgreSQL/PQTypes/Internal/Utils.hs b/src/Database/PostgreSQL/PQTypes/Internal/Utils.hs index 3c34048..220257e 100644 --- a/src/Database/PostgreSQL/PQTypes/Internal/Utils.hs +++ b/src/Database/PostgreSQL/PQTypes/Internal/Utils.hs @@ -1,36 +1,21 @@ module Database.PostgreSQL.PQTypes.Internal.Utils ( MkConstraint + , isAsyncException + , catchSync , mread , safePeekCString , safePeekCString' - , cStringLenToBytea - , byteaToCStringLen - , textToCString - , numericVarToInteger - , withIntegerAsNumericVar - , verifyPQTRes - , withPGparam , throwLibPQError - , throwLibPQTypesError - , rethrowWithArrayError , hpqTypesError , unexpectedNULL ) where import Control.Exception qualified as E -import Control.Monad -import Data.ByteString.Unsafe +import Control.Monad.Catch import Data.Kind (Type) import Data.Maybe -import Data.Text qualified as T -import Data.Text.Encoding qualified as T -import Data.Vector.Storable qualified as V import Foreign.C -import Foreign.ForeignPtr -import Foreign.Marshal.Alloc -import Foreign.Marshal.Utils import Foreign.Ptr -import Foreign.Storable import GHC.Exts import GHC.Stack @@ -47,6 +32,21 @@ type family MkConstraint m '[] = () MkConstraint m (c ': cs) = (c m, MkConstraint m cs) +-- | Check whether an exception is asynchronous. +isAsyncException :: E.SomeException -> Bool +isAsyncException e = case E.fromException e of + Just E.SomeAsyncException {} -> True + Nothing -> False + +-- | Like 'catch' with a handler for any exception, except asynchronous +-- exceptions are rethrown instead of being passed to the handler. +catchSync :: MonadCatch m => m a -> (E.SomeException -> m a) -> m a +catchSync action handler = + action `catch` \e -> + if isAsyncException e + then throwM e + else handler e + -- Safely read value. mread :: Read a => String -> Maybe a mread s = do @@ -63,109 +63,6 @@ safePeekCString cs safePeekCString' :: CString -> IO String safePeekCString' cs = fromMaybe "" <$> safePeekCString cs --- | Convert C string to 'PGbytea'. -cStringLenToBytea :: CStringLen -> PGbytea -cStringLenToBytea (cs, len) = - PGbytea - { pgByteaLen = fromIntegral len - , pgByteaData = cs - } - --- | Convert 'PGbytea' to C string. -byteaToCStringLen :: PGbytea -> CStringLen -byteaToCStringLen PGbytea {..} = (pgByteaData, fromIntegral pgByteaLen) - --- | Convert 'Text' to UTF-8 encoded C string wrapped by foreign pointer. -textToCString :: T.Text -> IO (ForeignPtr CChar) -textToCString bs = unsafeUseAsCStringLen (T.encodeUtf8 bs) $ \(cs, len) -> do - fptr <- mallocForeignPtrBytes (len + 1) - withForeignPtr fptr $ \ptr -> do - copyBytes ptr cs len - pokeByteOff ptr len (0 :: CChar) - pure fptr - ----------------------------------------- - --- Note: these can be generalized to convert from/to Scientific and support --- arbitrary floating point precision (relevant code can be borrowed from the --- postgresql-binary package), but while deserialization is easy either way, --- serialization is significantly more annoying, so let's leave this until it's --- actually needed. - -numericVarToInteger :: NumericVar -> IO Integer -numericVarToInteger NumericVar {..} - | numVarDscale /= 0 = hpqTypesError "not an integer" - | numVarSign == c_NUMERIC_NAN = hpqTypesError "not a number" - | numVarNdigits > numVarWeight + 1 = - hpqTypesError $ - "digits after the decimal point (ndigits: " - ++ show numVarNdigits - ++ ", weight: " - ++ show numVarWeight - ++ ")" - | numVarSign == c_NUMERIC_POS = scale <$> mkInteger 0 numVarDigits numVarNdigits - | numVarSign == c_NUMERIC_NEG = negate . scale <$> mkInteger 0 numVarDigits numVarNdigits - | otherwise = hpqTypesError $ "unexpected sign: " ++ show numVarSign - where - -- The wire value is Σ digits[i] * 10000^(weight - i) and the server strips - -- trailing zero digit groups, so ndigits can be smaller than weight + 1. - scale :: Integer -> Integer - scale acc = case numVarWeight + 1 - numVarNdigits of - 0 -> acc - n -> acc * 10000 ^ n - - mkInteger :: Integer -> Ptr CShort -> CShort -> IO Integer - mkInteger acc ptr = \case - 0 -> pure acc - n -> do - v <- ntohs <$> peek ptr - when (v < 0 || v > 9999) $ do - hpqTypesError $ "invalid digit: " ++ show v - mkInteger (acc * 10000 + fromIntegral v) (ptr `plusPtr` 2) (n - 1) - -withIntegerAsNumericVar :: Integer -> (NumericVar -> IO r) -> IO r -withIntegerAsNumericVar n k = V.unsafeWith digits $ \digitsPtr -> do - k $ - NumericVar - { numVarNdigits = digitsLen - , numVarWeight = max 0 (digitsLen - 1) - , numVarSign = if n < 0 then c_NUMERIC_NEG else c_NUMERIC_POS - , numVarDscale = 0 - , numVarDigits = digitsPtr - } - where - digitsLen :: CShort - digitsLen = fromIntegral $ V.length digits - - digits :: V.Vector CShort - digits = V.reverse . (`V.unfoldr` abs n) $ \case - 0 -> Nothing - x -> case x `quotRem` 10000 of - (d, m) -> Just (htons $ fromIntegral m, d) - -foreign import ccall unsafe "htons" htons :: CShort -> CShort -foreign import ccall unsafe "ntohs" ntohs :: CShort -> CShort - ----------------------------------------- - --- | Check return value of a function from libpqtypes --- and if it indicates an error, throw appropriate exception. -verifyPQTRes :: HasCallStack => Ptr PGerror -> String -> CInt -> IO () -verifyPQTRes err ctx 0 = throwLibPQTypesError err ctx -verifyPQTRes _ _ _ = pure () - --- 'alloca'-like function for managing usage of 'PGparam' object. -withPGparam :: HasCallStack => Ptr PGconn -> (Ptr PGparam -> IO r) -> IO r -withPGparam conn = E.bracket create c_PQparamClear - where - create = alloca $ \err -> do - param <- c_PQparamCreate conn err - when (param == nullPtr) $ - throwLibPQTypesError err "withPGparam.create" - pure param - ----------------------------------------- - -- | Throw libpq specific error. throwLibPQError :: HasCallStack => Ptr PGconn -> String -> IO a throwLibPQError conn ctx = do @@ -173,22 +70,6 @@ throwLibPQError conn ctx = do E.throwIO . LibPQError $ if null ctx then msg else ctx ++ ": " ++ msg --- | Throw libpqtypes specific error. -throwLibPQTypesError :: HasCallStack => Ptr PGerror -> String -> IO a -throwLibPQTypesError err ctx = do - msg <- pgErrorMsg <$> peek err - E.throwIO . LibPQError $ - if null ctx then msg else ctx ++ ": " ++ msg - --- | Rethrow supplied exception enriched with array index. -rethrowWithArrayError :: HasCallStack => CInt -> E.SomeException -> IO a -rethrowWithArrayError i (E.SomeException e) = - E.throwIO - ArrayItemError - { arrItemIndex = fromIntegral i + 1 - , arrItemError = e - } - -- | Throw 'HPQTypesError exception. hpqTypesError :: HasCallStack => String -> IO a hpqTypesError = E.throwIO . HPQTypesError diff --git a/src/Database/PostgreSQL/PQTypes/Interval.hs b/src/Database/PostgreSQL/PQTypes/Interval.hs new file mode 100644 index 0000000..07c1411 --- /dev/null +++ b/src/Database/PostgreSQL/PQTypes/Interval.hs @@ -0,0 +1,144 @@ +module Database.PostgreSQL.PQTypes.Interval + ( Interval + , iyears + , imonths + , idays + , ihours + , iminutes + , iseconds + , imicroseconds + ) where + +import BinaryParser qualified as BP +import Data.Int +import Data.Semigroup qualified as SG +import PostgreSQL.Binary.Decoding qualified as D +import PostgreSQL.Binary.Encoding qualified as E + +import Database.PostgreSQL.PQTypes.Format +import Database.PostgreSQL.PQTypes.FromSQL +import Database.PostgreSQL.PQTypes.Internal.Oid +import Database.PostgreSQL.PQTypes.ToSQL + +---------------------------------------- + +-- | Representation of the INTERVAL PostgreSQL type: like on the wire, it +-- consists of three components of mutually independent duration (a month +-- has no fixed number of days and a day no fixed number of hours). +-- +-- The type is opaque; construct values with the 'iyears', 'imonths' etc. +-- functions combined via the 'Monoid' instance, e.g. @idays 2 <> ihours 3@. +data Interval = Interval + { intMicroseconds :: !Int64 + , intDays :: !Int32 + , intMonths :: !Int32 + , intEstimate :: !Integer + -- ^ Cached estimate the server's comparison of intervals is based on + -- (months converted at 30 days, days at 24 hours), used by 'Eq' and + -- 'Ord'. Always construct through 'mkInterval' to keep it in sync with + -- the components. + } + +-- | Smart constructor computing the cached estimate. +mkInterval :: Int64 -> Int32 -> Int32 -> Interval +mkInterval usecs days months = + Interval + { intMicroseconds = usecs + , intDays = days + , intMonths = months + , intEstimate = + (fromIntegral months * 30 + fromIntegral days) * 86400000000 + + fromIntegral usecs + } + +-- | Compares the same way the server's comparison operators do, i.e. by the +-- estimate with months converted at 30 days and days at 24 hours. In +-- particular @imonths 1 == idays 30@ holds, just like @1 month = 30 days@ +-- does on the server, even though the values are distinct (e.g. adding them +-- to a timestamp can give different results). +instance Eq Interval where + a == b = intEstimate a == intEstimate b + +-- | See the 'Eq' instance. +instance Ord Interval where + compare a b = compare (intEstimate a) (intEstimate b) + +-- | Shows the components of the wire format (the cached estimate is +-- omitted). +instance Show Interval where + showsPrec d Interval {..} = + showParen (d > 10) $ + showString "Interval {intMicroseconds = " + . shows intMicroseconds + . showString ", intDays = " + . shows intDays + . showString ", intMonths = " + . shows intMonths + . showString "}" + +instance SG.Semigroup Interval where + a <> b = + mkInterval + (intMicroseconds a + intMicroseconds b) + (intDays a + intDays b) + (intMonths a + intMonths b) + +instance Monoid Interval where + mempty = mkInterval 0 0 0 + mappend = (SG.<>) + +instance PQFormat Interval where + pqOid = intervalOid + pqArrayOid = intervalArrayOid + +-- The binary wire format of @interval@ is (microseconds :: int64, +-- days :: int32, months :: int32), which 'Interval' mirrors directly; the +-- (de)serialization functions of postgresql-binary are of no use here as +-- 'Data.Time.DiffTime' cannot represent days and months separately. + +instance FromSQL Interval where + fromSQL = decodeScalar . D.fn . BP.run $ do + usecs :: Int64 <- fromIntegral <$> BP.beWord64 + days :: Int32 <- fromIntegral <$> BP.beWord32 + months :: Int32 <- fromIntegral <$> BP.beWord32 + BP.endOfInput + pure $ mkInterval usecs days months + +instance ToSQL Interval where + toSQL Interval {..} = + Just $ + mconcat + [ E.int8_int64 intMicroseconds + , E.int4_int32 intDays + , E.int4_int32 intMonths + ] + +---------------------------------------- + +-- | An interval of the given number of years (a year is 12 months). +iyears :: Int32 -> Interval +iyears v = mkInterval 0 0 (12 * v) + +-- | An interval of the given number of months. +imonths :: Int32 -> Interval +imonths v = mkInterval 0 0 v + +-- | An interval of the given number of days. +idays :: Int32 -> Interval +idays v = mkInterval 0 v 0 + +-- | An interval of the given number of hours. +ihours :: Int64 -> Interval +ihours v = mkInterval (v * 3600000000) 0 0 + +-- | An interval of the given number of minutes. +iminutes :: Int64 -> Interval +iminutes v = mkInterval (v * 60000000) 0 0 + +-- | An interval of the given number of seconds. +iseconds :: Int64 -> Interval +iseconds v = mkInterval (v * 1000000) 0 0 + +-- | An interval of the given number of microseconds. +imicroseconds :: Int64 -> Interval +imicroseconds v = mkInterval v 0 0 diff --git a/src/Database/PostgreSQL/PQTypes/Interval.hsc b/src/Database/PostgreSQL/PQTypes/Interval.hsc deleted file mode 100644 index 3eafb35..0000000 --- a/src/Database/PostgreSQL/PQTypes/Interval.hsc +++ /dev/null @@ -1,136 +0,0 @@ -module Database.PostgreSQL.PQTypes.Interval - ( Interval(..) - , iyears - , imonths - , idays - , ihours - , iminutes - , iseconds - , imicroseconds - ) where - -import Data.Int -import Data.List -import Foreign.Storable -import Data.ByteString.Char8 qualified as BS -import Data.Semigroup qualified as SG - -import Database.PostgreSQL.PQTypes.Format -import Database.PostgreSQL.PQTypes.FromSQL -import Database.PostgreSQL.PQTypes.Internal.Utils -import Database.PostgreSQL.PQTypes.ToSQL - -#include - ----------------------------------------- - --- | Representation of INTERVAL PostgreSQL type. -data Interval = Interval - { intYears :: !Int32 - , intMonths :: !Int32 - , intDays :: !Int32 - , intHours :: !Int32 - , intMinutes :: !Int32 - , intSeconds :: !Int32 - , intMicroseconds :: !Int32 - } deriving (Eq, Ord) - -instance Show Interval where - showsPrec _ Interval{..} = (++) . intercalate ", " $ filter (not . null) - [ f intYears "year" - , f intMonths "month" - , f intDays "day" - , f intHours "hour" - , f intMinutes "minute" - , f intSeconds "second" - , f intMicroseconds "microsecond" - ] - where - f n desc = case n of - 0 -> "" - 1 -> show n ++ " " ++ desc - _ -> show n ++ " " ++ desc ++ "s" - -instance SG.Semigroup Interval where - a <> b = Interval - { intYears = intYears a + intYears b - , intMonths = intMonths a + intMonths b - , intDays = intDays a + intDays b - , intHours = intHours a + intHours b - , intMinutes = intMinutes a + intMinutes b - , intSeconds = intSeconds a + intSeconds b - , intMicroseconds = intMicroseconds a + intMicroseconds b - } - -instance Monoid Interval where - mempty = Interval 0 0 0 0 0 0 0 - mappend = (SG.<>) - -instance Storable Interval where - sizeOf _ = #{size PGinterval} - alignment _ = #{alignment PGinterval} - peek ptr = Interval - <$> #{peek PGinterval, years} ptr - <*> #{peek PGinterval, mons} ptr - <*> #{peek PGinterval, days} ptr - <*> #{peek PGinterval, hours} ptr - <*> #{peek PGinterval, mins} ptr - <*> #{peek PGinterval, secs} ptr - <*> #{peek PGinterval, usecs} ptr - poke ptr Interval{..} = do - #{poke PGinterval, years} ptr intYears - #{poke PGinterval, mons} ptr intMonths - #{poke PGinterval, days} ptr intDays - #{poke PGinterval, hours} ptr intHours - #{poke PGinterval, mins} ptr intMinutes - #{poke PGinterval, secs} ptr intSeconds - #{poke PGinterval, usecs} ptr intMicroseconds - -instance PQFormat Interval where - pqFormat = BS.pack "%interval" - -instance FromSQL Interval where - type PQBase Interval = Interval - fromSQL Nothing = unexpectedNULL - fromSQL (Just int) = pure int - -instance ToSQL Interval where - type PQDest Interval = Interval - toSQL int _ = putAsPtr int - ----------------------------------------- - --- | Convert 'Int32' to appropriate 'Interval' --- representation of given number of years. -iyears :: Int32 -> Interval -iyears v = mempty { intYears = v } - --- | Convert 'Int32' to appropriate 'Interval' --- representation of given number of months. -imonths :: Int32 -> Interval -imonths v = mempty { intMonths = v } - --- | Convert 'Int32' to appropriate 'Interval' --- representation of given number of days. -idays :: Int32 -> Interval -idays v = mempty { intDays = v } - --- | Convert 'Int32' to appropriate 'Interval' --- representation of given number of hours. -ihours :: Int32 -> Interval -ihours v = mempty { intHours = v } - --- | Convert 'Int32' to appropriate 'Interval' --- representation of given number of minutes. -iminutes :: Int32 -> Interval -iminutes v = mempty { intMinutes = v } - --- | Convert 'Int32' to appropriate 'Interval' --- representation of given number of seconds. -iseconds :: Int32 -> Interval -iseconds v = mempty { intSeconds = v } - --- | Convert 'Int32' to appropriate 'Interval' --- representation of given number of microseconds. -imicroseconds :: Int32 -> Interval -imicroseconds v = mempty { intMicroseconds = v } diff --git a/src/Database/PostgreSQL/PQTypes/JSON.hs b/src/Database/PostgreSQL/PQTypes/JSON.hs index 75f66a2..aac8c92 100644 --- a/src/Database/PostgreSQL/PQTypes/JSON.hs +++ b/src/Database/PostgreSQL/PQTypes/JSON.hs @@ -5,100 +5,100 @@ module Database.PostgreSQL.PQTypes.JSON , aesonToSQL ) where -import Control.Exception qualified as E import Data.Aeson +import Data.Bifunctor import Data.ByteString.Char8 qualified as BS import Data.ByteString.Lazy.Char8 qualified as BSL -import Foreign.Ptr +import Data.Text qualified as T +import PostgreSQL.Binary.Decoding qualified as PD +import PostgreSQL.Binary.Encoding qualified as PE import Database.PostgreSQL.PQTypes.Format import Database.PostgreSQL.PQTypes.FromSQL -import Database.PostgreSQL.PQTypes.Internal.C.Types +import Database.PostgreSQL.PQTypes.Internal.Oid import Database.PostgreSQL.PQTypes.ToSQL -- | Wrapper for (de)serializing underlying type as 'json'. newtype JSON json = JSON {unJSON :: json} - deriving (Eq, Functor, Ord, Show) + deriving stock (Eq, Functor, Ord, Show) instance PQFormat (JSON json) where - pqFormat = BS.pack "%json" + pqOid = jsonOid + pqArrayOid = jsonArrayOid instance FromSQL (JSON BS.ByteString) where - type PQBase (JSON BS.ByteString) = PGbytea - fromSQL = fmap JSON . fromSQL + fromSQL = decodeScalar $ JSON <$> PD.json_bytes Right instance FromSQL (JSON BSL.ByteString) where - type PQBase (JSON BSL.ByteString) = PGbytea - fromSQL = fmap JSON . fromSQL + fromSQL = decodeScalar $ JSON <$> PD.json_bytes (Right . BSL.fromStrict) instance ToSQL (JSON BS.ByteString) where - type PQDest (JSON BS.ByteString) = PGbytea - toSQL = toSQL . unJSON + toSQL = Just . PE.json_bytes . unJSON instance ToSQL (JSON BSL.ByteString) where - type PQDest (JSON BSL.ByteString) = PGbytea - toSQL = toSQL . unJSON + toSQL = Just . PE.json_bytes_lazy . unJSON instance FromSQL (JSON Value) where - type PQBase (JSON Value) = PGbytea - fromSQL = fmap JSON . aesonFromSQL + fromSQL = decodeScalar $ JSON <$> PD.json_ast instance ToSQL (JSON Value) where - type PQDest (JSON Value) = PGbytea - toSQL = aesonToSQL . unJSON + toSQL = Just . PE.json_ast . unJSON ---------------------------------------- -- | Wrapper for (de)serializing underlying type as 'jsonb'. newtype JSONB jsonb = JSONB {unJSONB :: jsonb} - deriving (Eq, Functor, Ord, Show) + deriving stock (Eq, Functor, Ord, Show) instance PQFormat (JSONB jsonb) where - pqFormat = BS.pack "%jsonb" + pqOid = jsonbOid + pqArrayOid = jsonbArrayOid instance FromSQL (JSONB BS.ByteString) where - type PQBase (JSONB BS.ByteString) = PGbytea - fromSQL = fmap JSONB . fromSQL + fromSQL = decodeScalar $ JSONB <$> PD.jsonb_bytes Right instance FromSQL (JSONB BSL.ByteString) where - type PQBase (JSONB BSL.ByteString) = PGbytea - fromSQL = fmap JSONB . fromSQL + fromSQL = decodeScalar $ JSONB <$> PD.jsonb_bytes (Right . BSL.fromStrict) instance ToSQL (JSONB BS.ByteString) where - type PQDest (JSONB BS.ByteString) = PGbytea - toSQL = toSQL . unJSONB + toSQL = Just . PE.jsonb_bytes . unJSONB instance ToSQL (JSONB BSL.ByteString) where - type PQDest (JSONB BSL.ByteString) = PGbytea - toSQL = toSQL . unJSONB + toSQL = Just . PE.jsonb_bytes_lazy . unJSONB instance FromSQL (JSONB Value) where - type PQBase (JSONB Value) = PGbytea - fromSQL = fmap JSONB . aesonFromSQL + fromSQL = decodeScalar $ JSONB <$> PD.jsonb_ast instance ToSQL (JSONB Value) where - type PQDest (JSONB Value) = PGbytea - toSQL = aesonToSQL . unJSONB + toSQL = Just . PE.jsonb_ast . unJSONB ---------------------------------------- --- | Helper for defining 'FromSQL' instance for a type with 'FromJSON' instance. +-- | Helper for defining a 'FromSQL' instance for a type with a 'FromJSON' +-- instance. Inspects 'pqOid' of the type to determine whether it's +-- serialized as 'json' or 'jsonb' (the binary wire formats of the two +-- differ). -- -- @since 1.9.1.0 -aesonFromSQL :: FromJSON t => Maybe PGbytea -> IO t -aesonFromSQL mbase = do - evalue <- eitherDecodeStrict' <$> fromSQL mbase - case evalue of - Left err -> E.throwIO . E.ErrorCall $ "aesonFromSQL: " ++ err - Right value -> pure value - --- | Helper for defining 'ToSQL' instance for a type with 'ToJSON' instance. +aesonFromSQL :: forall a. (PQFormat a, FromJSON a) => RowDecoder a +aesonFromSQL = decodeScalar $ parser decodeValue + where + parser = + if pqOid @a == jsonbOid + then PD.jsonb_bytes + else PD.json_bytes + decodeValue = first T.pack . eitherDecodeStrict' + +-- | Helper for defining a 'ToSQL' instance for a type with a 'ToJSON' +-- instance. Inspects 'pqOid' of the type to determine whether it's +-- serialized as 'json' or 'jsonb' (the binary wire formats of the two +-- differ). -- -- @since 1.9.1.0 -aesonToSQL - :: ToJSON t - => t - -> ParamAllocator - -> (Ptr PGbytea -> IO r) - -> IO r -aesonToSQL = toSQL . BSL.toStrict . encode +aesonToSQL :: forall a. (PQFormat a, ToJSON a) => a -> Maybe PE.Encoding +aesonToSQL = Just . encoder . toJSON + where + encoder = + if pqOid @a == jsonbOid + then PE.jsonb_ast + else PE.json_ast diff --git a/src/Database/PostgreSQL/PQTypes/SQL.hs b/src/Database/PostgreSQL/PQTypes/SQL.hs index fc32b86..8a344b4 100644 --- a/src/Database/PostgreSQL/PQTypes/SQL.hs +++ b/src/Database/PostgreSQL/PQTypes/SQL.hs @@ -6,29 +6,24 @@ module Database.PostgreSQL.PQTypes.SQL , isSqlEmpty ) where -import Control.Concurrent.MVar import Data.ByteString.Char8 qualified as BS -import Data.ByteString.Unsafe qualified as BS import Data.Foldable qualified as F +import Data.List qualified as L import Data.Monoid import Data.Semigroup qualified as SG import Data.Sequence qualified as S import Data.String import Data.Text qualified as T import Data.Text.Encoding qualified as T -import Foreign.Marshal.Alloc import TextShow import Data.Monoid.Utils -import Database.PostgreSQL.PQTypes.Format -import Database.PostgreSQL.PQTypes.Internal.C.Put -import Database.PostgreSQL.PQTypes.Internal.Utils import Database.PostgreSQL.PQTypes.SQL.Class import Database.PostgreSQL.PQTypes.ToSQL data SqlChunk where SqlString :: !T.Text -> SqlChunk - SqlParam :: forall t. (Show t, ToSQL t) => !t -> SqlChunk + SqlParam :: forall a. (Show a, ToSQL a) => !a -> SqlChunk -- | Primary SQL type that supports efficient -- concatenation and variable number of parameters. @@ -44,18 +39,15 @@ instance IsString SQL where fromString = mkSQL . T.pack instance IsSQL SQL where - withSQL sql pa@(ParamAllocator allocParam) execute = do - alloca $ \err -> allocParam $ \param -> do - nums <- newMVar (1 :: Int) - query <- T.concat <$> mapM (f param err nums) (unSQL sql) - BS.useAsCString (T.encodeUtf8 query) (execute param) + withSQL sql execute = + BS.useAsCString (T.encodeUtf8 query) $ \cquery -> + execute cquery (reverse params) where - f param err nums chunk = case chunk of - SqlString s -> pure s - SqlParam (v :: t) -> toSQL v pa $ \base -> - BS.unsafeUseAsCString (pqFormat0 @t) $ \fmt -> do - verifyPQTRes err "withSQL (SQL)" =<< c_PQputf1 param err fmt base - modifyMVar nums $ \n -> pure . (,"$" <> showt n) $! n + 1 + query = T.concat chunks + ((_, params), chunks) = L.mapAccumL f (1 :: Int, []) $ unSQL sql + f acc@(n, ps) = \case + SqlString s -> (acc, s) + SqlParam v -> ((n + 1, toPQParam v : ps), "$" <> showt n) instance SG.Semigroup SQL where SQL a <> SQL b = SQL (a S.>< b) @@ -77,14 +69,14 @@ mkSQL :: T.Text -> SQL mkSQL = SQL . S.singleton . SqlString -- | Embed parameter value inside 'SQL'. -sqlParam :: (Show t, ToSQL t) => t -> SQL +sqlParam :: (Show a, ToSQL a) => a -> SQL sqlParam = SQL . S.singleton . SqlParam -- | Embed parameter value inside existing 'SQL'. Example: -- -- > f :: Int32 -> String -> SQL -- > f idx name = "SELECT foo FROM bar WHERE id =" idx <+> "AND name =" name -() :: (Show t, ToSQL t) => SQL -> t -> SQL +() :: (Show a, ToSQL a) => SQL -> a -> SQL s v = s <+> sqlParam v infixr 7 diff --git a/src/Database/PostgreSQL/PQTypes/SQL/Class.hs b/src/Database/PostgreSQL/PQTypes/SQL/Class.hs index 6fa07fd..a6cc7cc 100644 --- a/src/Database/PostgreSQL/PQTypes/SQL/Class.hs +++ b/src/Database/PostgreSQL/PQTypes/SQL/Class.hs @@ -6,9 +6,7 @@ module Database.PostgreSQL.PQTypes.SQL.Class import Data.String import Foreign.C.String -import Foreign.Ptr -import Database.PostgreSQL.PQTypes.Internal.C.Types import Database.PostgreSQL.PQTypes.ToSQL -- | Container for SQL-like type storage. @@ -16,16 +14,13 @@ data SomeSQL = forall sql. IsSQL sql => SomeSQL sql -- | Class representing \"SQLness\" of a given type. class Show sql => IsSQL sql where - -- | Convert 'sql' to libpqtypes representation and pass - -- it to supplied continuation (usually for execution). + -- | Convert 'sql' to a C string containing the query (with parameters + -- represented by placeholders @$1@, @$2@, ...) along with the list of these + -- parameters and pass them to the supplied continuation (usually for + -- execution). withSQL :: sql - -> ParamAllocator - -- ^ 'PGparam' allocator. - -> (Ptr PGparam -> CString -> IO r) - -- ^ Continuation which takes 'sql' - -- converted to libpqtypes specific representation, ie. 'PGparam' object - -- containing query parameters and C string containing the query itself. + -> (CString -> [PQParam] -> IO r) -> IO r ---------------------------------------- diff --git a/src/Database/PostgreSQL/PQTypes/SQL/Raw.hs b/src/Database/PostgreSQL/PQTypes/SQL/Raw.hs index fa078bf..d167cf6 100644 --- a/src/Database/PostgreSQL/PQTypes/SQL/Raw.hs +++ b/src/Database/PostgreSQL/PQTypes/SQL/Raw.hs @@ -9,23 +9,21 @@ import Data.Semigroup qualified as SG import Data.String import Data.Text qualified as T import Data.Text.Encoding qualified as T -import Foreign.Marshal.Alloc import Database.PostgreSQL.PQTypes.SQL.Class import Database.PostgreSQL.PQTypes.ToRow -import Database.PostgreSQL.PQTypes.ToSQL --- | Form of SQL query which is very close to libpqtypes specific --- representation. Note that, in particular, 'RawSQL' () is isomorphic (modulo --- bottom) to 'Text'. +-- | Form of SQL query which is very close to the libpq representation, i.e. +-- the query with placeholders @$1@, @$2@, ... along with a tuple of their +-- values. Note that, in particular, 'RawSQL' () is isomorphic (modulo bottom) +-- to 'Text'. data RawSQL row = RawSQL !T.Text !row - deriving (Eq, Ord, Show) + deriving stock (Eq, Ord, Show) instance (Show row, ToRow row) => IsSQL (RawSQL row) where - withSQL (RawSQL query row) pa@(ParamAllocator allocParam) execute = - alloca $ \err -> allocParam $ \param -> do - toRow row pa param err - BS.useAsCString (T.encodeUtf8 query) (execute param) + withSQL (RawSQL query row) execute = + BS.useAsCString (T.encodeUtf8 query) $ \cquery -> + execute cquery (toRow row) -- | Construct 'RawSQL' () from 'String'. instance IsString (RawSQL ()) where diff --git a/src/Database/PostgreSQL/PQTypes/ToRow.hs b/src/Database/PostgreSQL/PQTypes/ToRow.hs index f5af3bb..88da801 100644 --- a/src/Database/PostgreSQL/PQTypes/ToRow.hs +++ b/src/Database/PostgreSQL/PQTypes/ToRow.hs @@ -1,1049 +1,185 @@ module Database.PostgreSQL.PQTypes.ToRow - ( ToRow (..) - , toRow' + ( (:++:) (..) + , ToRow (..) ) where -import Data.ByteString.Unsafe qualified as BS import Data.Functor.Identity -import Foreign.C -import Foreign.Marshal.Alloc -import Foreign.Ptr -import Database.PostgreSQL.PQTypes.Format -import Database.PostgreSQL.PQTypes.Internal.C.Put -import Database.PostgreSQL.PQTypes.Internal.C.Types -import Database.PostgreSQL.PQTypes.Internal.Utils import Database.PostgreSQL.PQTypes.ToSQL --- | 'verifyPQTRes' specialized for usage in 'toRow'. -verify :: Ptr PGerror -> CInt -> IO () -verify err = verifyPQTRes err "toRow" +-- | Concatenation of rows, e.g. for passing more query parameters than the +-- largest tuple with a 'ToRow' instance can hold. +data a :++: b = a :++: b + deriving stock (Eq, Ord, Show) -withFormat :: forall row. ToRow row => row -> (CString -> IO ()) -> IO () -withFormat = const $ BS.unsafeUseAsCString $ pqFormat0 @row +-- | Class which represents \"from Haskell tuple to list +-- of query parameters\" transformation. +class ToRow row where + -- | Convert a tuple to a list of query parameters. + toRow :: row -> [PQParam] ----------------------------------------- - --- | More convenient version of 'toRow' that --- allocates 'PGerror' and format string by itself. -toRow' :: forall row. ToRow row => row -> ParamAllocator -> Ptr PGparam -> IO () -toRow' row pa param = alloca $ \err -> toRow row pa param err - --- | Class which represents \"from Haskell tuple to SQL row\" transformation. -class PQFormat row => ToRow row where - -- | Put supplied tuple into 'PGparam' using given format string. - toRow - :: row - -- ^ Tuple to be put into 'PGparam'. - -> ParamAllocator - -- ^ 'PGparam' allocator for 'toSQL'. - -> Ptr PGparam - -- ^ 'PGparam' to put tuple into. - -> Ptr PGerror - -- ^ Local error info. - -> IO () - -{- FOURMOLU_DISABLE -} - -instance - ( ToRow row1, ToRow row2 - ) => ToRow (row1 :*: row2) where - toRow (row1 :*: row2) pa param err = do - toRow row1 pa param err - toRow row2 pa param err +instance (ToRow row1, ToRow row2) => ToRow (row1 :++: row2) where + toRow (row1 :++: row2) = toRow row1 ++ toRow row2 instance ToRow () where - toRow _ _ _ _ = pure () - -instance ToSQL t => ToRow (Identity t) where - toRow row pa param err = withFormat row $ \fmt -> toSQL t pa $ \base -> - verify err =<< c_PQputf1 param err fmt base - where - Identity t = row - -instance - ( ToSQL t1, ToSQL t2 - ) => ToRow (t1, t2) where - toRow row pa param err = withFormat row $ \fmt -> - toSQL t1 pa $ \p1 -> toSQL t2 pa $ \p2 -> - verify err =<< c_PQputf2 param err fmt p1 p2 - where - (t1, t2) = row - -instance - ( ToSQL t1, ToSQL t2, ToSQL t3 - ) => ToRow (t1, t2, t3) where - toRow row pa param err = withFormat row $ \fmt -> - toSQL t1 pa $ \p1 -> toSQL t2 pa $ \p2 -> toSQL t3 pa $ \p3 -> - verify err =<< c_PQputf3 param err fmt p1 p2 p3 - where - (t1, t2, t3) = row - -instance - ( ToSQL t1, ToSQL t2, ToSQL t3, ToSQL t4 - ) => ToRow (t1, t2, t3, t4) where - toRow row pa param err = withFormat row $ \fmt -> - toSQL t1 pa $ \p1 -> toSQL t2 pa $ \p2 -> toSQL t3 pa $ \p3 -> - toSQL t4 pa $ \p4 -> - verify err =<< c_PQputf4 param err fmt p1 p2 p3 p4 - where - (t1, t2, t3, t4) = row - -instance - ( ToSQL t1, ToSQL t2, ToSQL t3, ToSQL t4, ToSQL t5 - ) => ToRow (t1, t2, t3, t4, t5) where - toRow row pa param err = withFormat row $ \fmt -> - toSQL t1 pa $ \p1 -> toSQL t2 pa $ \p2 -> toSQL t3 pa $ \p3 -> - toSQL t4 pa $ \p4 -> toSQL t5 pa $ \p5 -> - verify err =<< c_PQputf5 param err fmt p1 p2 p3 p4 p5 - where - (t1, t2, t3, t4, t5) = row - -instance - ( ToSQL t1, ToSQL t2, ToSQL t3, ToSQL t4, ToSQL t5, ToSQL t6 - ) => ToRow (t1, t2, t3, t4, t5, t6) where - toRow row pa param err = withFormat row $ \fmt -> - toSQL t1 pa $ \p1 -> toSQL t2 pa $ \p2 -> toSQL t3 pa $ \p3 -> - toSQL t4 pa $ \p4 -> toSQL t5 pa $ \p5 -> toSQL t6 pa $ \p6 -> - verify err =<< c_PQputf6 param err fmt p1 p2 p3 p4 p5 p6 - where - (t1, t2, t3, t4, t5, t6) = row - -instance - ( ToSQL t1, ToSQL t2, ToSQL t3, ToSQL t4, ToSQL t5, ToSQL t6, ToSQL t7 - ) => ToRow (t1, t2, t3, t4, t5, t6, t7) where - toRow row pa param err = withFormat row $ \fmt -> - toSQL t1 pa $ \p1 -> toSQL t2 pa $ \p2 -> toSQL t3 pa $ \p3 -> - toSQL t4 pa $ \p4 -> toSQL t5 pa $ \p5 -> toSQL t6 pa $ \p6 -> - toSQL t7 pa $ \p7 -> - verify err =<< c_PQputf7 param err fmt p1 p2 p3 p4 p5 p6 p7 - where - (t1, t2, t3, t4, t5, t6, t7) = row - -instance - ( ToSQL t1, ToSQL t2, ToSQL t3, ToSQL t4, ToSQL t5, ToSQL t6, ToSQL t7 - , ToSQL t8 - ) => ToRow (t1, t2, t3, t4, t5, t6, t7, t8) where - toRow row pa param err = withFormat row $ \fmt -> - toSQL t1 pa $ \p1 -> toSQL t2 pa $ \p2 -> toSQL t3 pa $ \p3 -> - toSQL t4 pa $ \p4 -> toSQL t5 pa $ \p5 -> toSQL t6 pa $ \p6 -> - toSQL t7 pa $ \p7 -> toSQL t8 pa $ \p8 -> - verify err =<< c_PQputf8 param err fmt p1 p2 p3 p4 p5 p6 p7 p8 - where - (t1, t2, t3, t4, t5, t6, t7, t8) = row - -instance - ( ToSQL t1, ToSQL t2, ToSQL t3, ToSQL t4, ToSQL t5, ToSQL t6, ToSQL t7 - , ToSQL t8, ToSQL t9 - ) => ToRow (t1, t2, t3, t4, t5, t6, t7, t8, t9) where - toRow row pa param err = withFormat row $ \fmt -> - toSQL t1 pa $ \p1 -> toSQL t2 pa $ \p2 -> toSQL t3 pa $ \p3 -> - toSQL t4 pa $ \p4 -> toSQL t5 pa $ \p5 -> toSQL t6 pa $ \p6 -> - toSQL t7 pa $ \p7 -> toSQL t8 pa $ \p8 -> toSQL t9 pa $ \p9 -> - verify err =<< c_PQputf9 param err fmt p1 p2 p3 p4 p5 p6 p7 p8 p9 - where - (t1, t2, t3, t4, t5, t6, t7, t8, t9) = row - -instance - ( ToSQL t1, ToSQL t2, ToSQL t3, ToSQL t4, ToSQL t5, ToSQL t6, ToSQL t7 - , ToSQL t8, ToSQL t9, ToSQL t10 - ) => ToRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10) where - toRow row pa param err = withFormat row $ \fmt -> - toSQL t1 pa $ \p1 -> toSQL t2 pa $ \p2 -> toSQL t3 pa $ \p3 -> - toSQL t4 pa $ \p4 -> toSQL t5 pa $ \p5 -> toSQL t6 pa $ \p6 -> - toSQL t7 pa $ \p7 -> toSQL t8 pa $ \p8 -> toSQL t9 pa $ \p9 -> - toSQL t10 pa $ \p10 -> - verify err =<< c_PQputf10 param err fmt p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 - where - (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10) = row - -instance - ( ToSQL t1, ToSQL t2, ToSQL t3, ToSQL t4, ToSQL t5, ToSQL t6, ToSQL t7 - , ToSQL t8, ToSQL t9, ToSQL t10, ToSQL t11 - ) => ToRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11) where - toRow row pa param err = withFormat row $ \fmt -> - toSQL t1 pa $ \p1 -> toSQL t2 pa $ \p2 -> toSQL t3 pa $ \p3 -> - toSQL t4 pa $ \p4 -> toSQL t5 pa $ \p5 -> toSQL t6 pa $ \p6 -> - toSQL t7 pa $ \p7 -> toSQL t8 pa $ \p8 -> toSQL t9 pa $ \p9 -> - toSQL t10 pa $ \p10 -> toSQL t11 pa $ \p11 -> - verify err =<< c_PQputf11 param err fmt p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 - where - (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11) = row - -instance - ( ToSQL t1, ToSQL t2, ToSQL t3, ToSQL t4, ToSQL t5, ToSQL t6, ToSQL t7 - , ToSQL t8, ToSQL t9, ToSQL t10, ToSQL t11, ToSQL t12 - ) => ToRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12) where - toRow row pa param err = withFormat row $ \fmt -> - toSQL t1 pa $ \p1 -> toSQL t2 pa $ \p2 -> toSQL t3 pa $ \p3 -> - toSQL t4 pa $ \p4 -> toSQL t5 pa $ \p5 -> toSQL t6 pa $ \p6 -> - toSQL t7 pa $ \p7 -> toSQL t8 pa $ \p8 -> toSQL t9 pa $ \p9 -> - toSQL t10 pa $ \p10 -> toSQL t11 pa $ \p11 -> toSQL t12 pa $ \p12 -> - verify err =<< c_PQputf12 param err fmt p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 - where - (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12) = row - -instance - ( ToSQL t1, ToSQL t2, ToSQL t3, ToSQL t4, ToSQL t5, ToSQL t6, ToSQL t7 - , ToSQL t8, ToSQL t9, ToSQL t10, ToSQL t11, ToSQL t12, ToSQL t13 - ) => ToRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13) where - toRow row pa param err = withFormat row $ \fmt -> - toSQL t1 pa $ \p1 -> toSQL t2 pa $ \p2 -> toSQL t3 pa $ \p3 -> - toSQL t4 pa $ \p4 -> toSQL t5 pa $ \p5 -> toSQL t6 pa $ \p6 -> - toSQL t7 pa $ \p7 -> toSQL t8 pa $ \p8 -> toSQL t9 pa $ \p9 -> - toSQL t10 pa $ \p10 -> toSQL t11 pa $ \p11 -> toSQL t12 pa $ \p12 -> - toSQL t13 pa $ \p13 -> - verify err =<< c_PQputf13 param err fmt p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 - where - (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13) = row - -instance - ( ToSQL t1, ToSQL t2, ToSQL t3, ToSQL t4, ToSQL t5, ToSQL t6, ToSQL t7 - , ToSQL t8, ToSQL t9, ToSQL t10, ToSQL t11, ToSQL t12, ToSQL t13, ToSQL t14 - ) => ToRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14) where - toRow row pa param err = withFormat row $ \fmt -> - toSQL t1 pa $ \p1 -> toSQL t2 pa $ \p2 -> toSQL t3 pa $ \p3 -> - toSQL t4 pa $ \p4 -> toSQL t5 pa $ \p5 -> toSQL t6 pa $ \p6 -> - toSQL t7 pa $ \p7 -> toSQL t8 pa $ \p8 -> toSQL t9 pa $ \p9 -> - toSQL t10 pa $ \p10 -> toSQL t11 pa $ \p11 -> toSQL t12 pa $ \p12 -> - toSQL t13 pa $ \p13 -> toSQL t14 pa $ \p14 -> - verify err =<< c_PQputf14 param err fmt p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 - where - (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14) = row - -instance - ( ToSQL t1, ToSQL t2, ToSQL t3, ToSQL t4, ToSQL t5, ToSQL t6, ToSQL t7 - , ToSQL t8, ToSQL t9, ToSQL t10, ToSQL t11, ToSQL t12, ToSQL t13, ToSQL t14 - , ToSQL t15 - ) => ToRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15) where - toRow row pa param err = withFormat row $ \fmt -> - toSQL t1 pa $ \p1 -> toSQL t2 pa $ \p2 -> toSQL t3 pa $ \p3 -> - toSQL t4 pa $ \p4 -> toSQL t5 pa $ \p5 -> toSQL t6 pa $ \p6 -> - toSQL t7 pa $ \p7 -> toSQL t8 pa $ \p8 -> toSQL t9 pa $ \p9 -> - toSQL t10 pa $ \p10 -> toSQL t11 pa $ \p11 -> toSQL t12 pa $ \p12 -> - toSQL t13 pa $ \p13 -> toSQL t14 pa $ \p14 -> toSQL t15 pa $ \p15 -> - verify err =<< c_PQputf15 param err fmt p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 - where - (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15) = row - -instance - ( ToSQL t1, ToSQL t2, ToSQL t3, ToSQL t4, ToSQL t5, ToSQL t6, ToSQL t7 - , ToSQL t8, ToSQL t9, ToSQL t10, ToSQL t11, ToSQL t12, ToSQL t13, ToSQL t14 - , ToSQL t15, ToSQL t16 - ) => ToRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16) where - toRow row pa param err = withFormat row $ \fmt -> - toSQL t1 pa $ \p1 -> toSQL t2 pa $ \p2 -> toSQL t3 pa $ \p3 -> - toSQL t4 pa $ \p4 -> toSQL t5 pa $ \p5 -> toSQL t6 pa $ \p6 -> - toSQL t7 pa $ \p7 -> toSQL t8 pa $ \p8 -> toSQL t9 pa $ \p9 -> - toSQL t10 pa $ \p10 -> toSQL t11 pa $ \p11 -> toSQL t12 pa $ \p12 -> - toSQL t13 pa $ \p13 -> toSQL t14 pa $ \p14 -> toSQL t15 pa $ \p15 -> - toSQL t16 pa $ \p16 -> - verify err =<< c_PQputf16 param err fmt p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16 - where - (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16) = row - -instance - ( ToSQL t1, ToSQL t2, ToSQL t3, ToSQL t4, ToSQL t5, ToSQL t6, ToSQL t7 - , ToSQL t8, ToSQL t9, ToSQL t10, ToSQL t11, ToSQL t12, ToSQL t13, ToSQL t14 - , ToSQL t15, ToSQL t16, ToSQL t17 - ) => ToRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17) where - toRow row pa param err = withFormat row $ \fmt -> - toSQL t1 pa $ \p1 -> toSQL t2 pa $ \p2 -> toSQL t3 pa $ \p3 -> - toSQL t4 pa $ \p4 -> toSQL t5 pa $ \p5 -> toSQL t6 pa $ \p6 -> - toSQL t7 pa $ \p7 -> toSQL t8 pa $ \p8 -> toSQL t9 pa $ \p9 -> - toSQL t10 pa $ \p10 -> toSQL t11 pa $ \p11 -> toSQL t12 pa $ \p12 -> - toSQL t13 pa $ \p13 -> toSQL t14 pa $ \p14 -> toSQL t15 pa $ \p15 -> - toSQL t16 pa $ \p16 -> toSQL t17 pa $ \p17 -> - verify err =<< c_PQputf17 param err fmt p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16 p17 - where - (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17) = row - -instance - ( ToSQL t1, ToSQL t2, ToSQL t3, ToSQL t4, ToSQL t5, ToSQL t6, ToSQL t7 - , ToSQL t8, ToSQL t9, ToSQL t10, ToSQL t11, ToSQL t12, ToSQL t13, ToSQL t14 - , ToSQL t15, ToSQL t16, ToSQL t17, ToSQL t18 - ) => ToRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18) where - toRow row pa param err = withFormat row $ \fmt -> - toSQL t1 pa $ \p1 -> toSQL t2 pa $ \p2 -> toSQL t3 pa $ \p3 -> - toSQL t4 pa $ \p4 -> toSQL t5 pa $ \p5 -> toSQL t6 pa $ \p6 -> - toSQL t7 pa $ \p7 -> toSQL t8 pa $ \p8 -> toSQL t9 pa $ \p9 -> - toSQL t10 pa $ \p10 -> toSQL t11 pa $ \p11 -> toSQL t12 pa $ \p12 -> - toSQL t13 pa $ \p13 -> toSQL t14 pa $ \p14 -> toSQL t15 pa $ \p15 -> - toSQL t16 pa $ \p16 -> toSQL t17 pa $ \p17 -> toSQL t18 pa $ \p18 -> - verify err =<< c_PQputf18 param err fmt p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16 p17 p18 - where - (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18) = row - -instance - ( ToSQL t1, ToSQL t2, ToSQL t3, ToSQL t4, ToSQL t5, ToSQL t6, ToSQL t7 - , ToSQL t8, ToSQL t9, ToSQL t10, ToSQL t11, ToSQL t12, ToSQL t13, ToSQL t14 - , ToSQL t15, ToSQL t16, ToSQL t17, ToSQL t18, ToSQL t19 - ) => ToRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19) where - toRow row pa param err = withFormat row $ \fmt -> - toSQL t1 pa $ \p1 -> toSQL t2 pa $ \p2 -> toSQL t3 pa $ \p3 -> - toSQL t4 pa $ \p4 -> toSQL t5 pa $ \p5 -> toSQL t6 pa $ \p6 -> - toSQL t7 pa $ \p7 -> toSQL t8 pa $ \p8 -> toSQL t9 pa $ \p9 -> - toSQL t10 pa $ \p10 -> toSQL t11 pa $ \p11 -> toSQL t12 pa $ \p12 -> - toSQL t13 pa $ \p13 -> toSQL t14 pa $ \p14 -> toSQL t15 pa $ \p15 -> - toSQL t16 pa $ \p16 -> toSQL t17 pa $ \p17 -> toSQL t18 pa $ \p18 -> - toSQL t19 pa $ \p19 -> - verify err =<< c_PQputf19 param err fmt p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16 p17 p18 p19 - where - (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19) = row - -instance - ( ToSQL t1, ToSQL t2, ToSQL t3, ToSQL t4, ToSQL t5, ToSQL t6, ToSQL t7 - , ToSQL t8, ToSQL t9, ToSQL t10, ToSQL t11, ToSQL t12, ToSQL t13, ToSQL t14 - , ToSQL t15, ToSQL t16, ToSQL t17, ToSQL t18, ToSQL t19, ToSQL t20 - ) => ToRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20) where - toRow row pa param err = withFormat row $ \fmt -> - toSQL t1 pa $ \p1 -> toSQL t2 pa $ \p2 -> toSQL t3 pa $ \p3 -> - toSQL t4 pa $ \p4 -> toSQL t5 pa $ \p5 -> toSQL t6 pa $ \p6 -> - toSQL t7 pa $ \p7 -> toSQL t8 pa $ \p8 -> toSQL t9 pa $ \p9 -> - toSQL t10 pa $ \p10 -> toSQL t11 pa $ \p11 -> toSQL t12 pa $ \p12 -> - toSQL t13 pa $ \p13 -> toSQL t14 pa $ \p14 -> toSQL t15 pa $ \p15 -> - toSQL t16 pa $ \p16 -> toSQL t17 pa $ \p17 -> toSQL t18 pa $ \p18 -> - toSQL t19 pa $ \p19 -> toSQL t20 pa $ \p20 -> - verify err =<< c_PQputf20 param err fmt p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16 p17 p18 p19 p20 - where - (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20) = row - -instance - ( ToSQL t1, ToSQL t2, ToSQL t3, ToSQL t4, ToSQL t5, ToSQL t6, ToSQL t7 - , ToSQL t8, ToSQL t9, ToSQL t10, ToSQL t11, ToSQL t12, ToSQL t13, ToSQL t14 - , ToSQL t15, ToSQL t16, ToSQL t17, ToSQL t18, ToSQL t19, ToSQL t20, ToSQL t21 - ) => ToRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21) where - toRow row pa param err = withFormat row $ \fmt -> - toSQL t1 pa $ \p1 -> toSQL t2 pa $ \p2 -> toSQL t3 pa $ \p3 -> - toSQL t4 pa $ \p4 -> toSQL t5 pa $ \p5 -> toSQL t6 pa $ \p6 -> - toSQL t7 pa $ \p7 -> toSQL t8 pa $ \p8 -> toSQL t9 pa $ \p9 -> - toSQL t10 pa $ \p10 -> toSQL t11 pa $ \p11 -> toSQL t12 pa $ \p12 -> - toSQL t13 pa $ \p13 -> toSQL t14 pa $ \p14 -> toSQL t15 pa $ \p15 -> - toSQL t16 pa $ \p16 -> toSQL t17 pa $ \p17 -> toSQL t18 pa $ \p18 -> - toSQL t19 pa $ \p19 -> toSQL t20 pa $ \p20 -> toSQL t21 pa $ \p21 -> - verify err =<< c_PQputf21 param err fmt p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16 p17 p18 p19 p20 p21 - where - (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21) = row - -instance - ( ToSQL t1, ToSQL t2, ToSQL t3, ToSQL t4, ToSQL t5, ToSQL t6, ToSQL t7 - , ToSQL t8, ToSQL t9, ToSQL t10, ToSQL t11, ToSQL t12, ToSQL t13, ToSQL t14 - , ToSQL t15, ToSQL t16, ToSQL t17, ToSQL t18, ToSQL t19, ToSQL t20, ToSQL t21 - , ToSQL t22 - ) => ToRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22) where - toRow row pa param err = withFormat row $ \fmt -> - toSQL t1 pa $ \p1 -> toSQL t2 pa $ \p2 -> toSQL t3 pa $ \p3 -> - toSQL t4 pa $ \p4 -> toSQL t5 pa $ \p5 -> toSQL t6 pa $ \p6 -> - toSQL t7 pa $ \p7 -> toSQL t8 pa $ \p8 -> toSQL t9 pa $ \p9 -> - toSQL t10 pa $ \p10 -> toSQL t11 pa $ \p11 -> toSQL t12 pa $ \p12 -> - toSQL t13 pa $ \p13 -> toSQL t14 pa $ \p14 -> toSQL t15 pa $ \p15 -> - toSQL t16 pa $ \p16 -> toSQL t17 pa $ \p17 -> toSQL t18 pa $ \p18 -> - toSQL t19 pa $ \p19 -> toSQL t20 pa $ \p20 -> toSQL t21 pa $ \p21 -> - toSQL t22 pa $ \p22 -> - verify err =<< c_PQputf22 param err fmt p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16 p17 p18 p19 p20 p21 p22 - where - (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22) = row - -instance - ( ToSQL t1, ToSQL t2, ToSQL t3, ToSQL t4, ToSQL t5, ToSQL t6, ToSQL t7 - , ToSQL t8, ToSQL t9, ToSQL t10, ToSQL t11, ToSQL t12, ToSQL t13, ToSQL t14 - , ToSQL t15, ToSQL t16, ToSQL t17, ToSQL t18, ToSQL t19, ToSQL t20, ToSQL t21 - , ToSQL t22, ToSQL t23 - ) => ToRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23) where - toRow row pa param err = withFormat row $ \fmt -> - toSQL t1 pa $ \p1 -> toSQL t2 pa $ \p2 -> toSQL t3 pa $ \p3 -> - toSQL t4 pa $ \p4 -> toSQL t5 pa $ \p5 -> toSQL t6 pa $ \p6 -> - toSQL t7 pa $ \p7 -> toSQL t8 pa $ \p8 -> toSQL t9 pa $ \p9 -> - toSQL t10 pa $ \p10 -> toSQL t11 pa $ \p11 -> toSQL t12 pa $ \p12 -> - toSQL t13 pa $ \p13 -> toSQL t14 pa $ \p14 -> toSQL t15 pa $ \p15 -> - toSQL t16 pa $ \p16 -> toSQL t17 pa $ \p17 -> toSQL t18 pa $ \p18 -> - toSQL t19 pa $ \p19 -> toSQL t20 pa $ \p20 -> toSQL t21 pa $ \p21 -> - toSQL t22 pa $ \p22 -> toSQL t23 pa $ \p23 -> - verify err =<< c_PQputf23 param err fmt p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16 p17 p18 p19 p20 p21 p22 p23 - where - (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23) = row - -instance - ( ToSQL t1, ToSQL t2, ToSQL t3, ToSQL t4, ToSQL t5, ToSQL t6, ToSQL t7 - , ToSQL t8, ToSQL t9, ToSQL t10, ToSQL t11, ToSQL t12, ToSQL t13, ToSQL t14 - , ToSQL t15, ToSQL t16, ToSQL t17, ToSQL t18, ToSQL t19, ToSQL t20, ToSQL t21 - , ToSQL t22, ToSQL t23, ToSQL t24 - ) => ToRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24) where - toRow row pa param err = withFormat row $ \fmt -> - toSQL t1 pa $ \p1 -> toSQL t2 pa $ \p2 -> toSQL t3 pa $ \p3 -> - toSQL t4 pa $ \p4 -> toSQL t5 pa $ \p5 -> toSQL t6 pa $ \p6 -> - toSQL t7 pa $ \p7 -> toSQL t8 pa $ \p8 -> toSQL t9 pa $ \p9 -> - toSQL t10 pa $ \p10 -> toSQL t11 pa $ \p11 -> toSQL t12 pa $ \p12 -> - toSQL t13 pa $ \p13 -> toSQL t14 pa $ \p14 -> toSQL t15 pa $ \p15 -> - toSQL t16 pa $ \p16 -> toSQL t17 pa $ \p17 -> toSQL t18 pa $ \p18 -> - toSQL t19 pa $ \p19 -> toSQL t20 pa $ \p20 -> toSQL t21 pa $ \p21 -> - toSQL t22 pa $ \p22 -> toSQL t23 pa $ \p23 -> toSQL t24 pa $ \p24 -> - verify err =<< c_PQputf24 param err fmt p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16 p17 p18 p19 p20 p21 p22 p23 p24 - where - (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24) = row - -instance - ( ToSQL t1, ToSQL t2, ToSQL t3, ToSQL t4, ToSQL t5, ToSQL t6, ToSQL t7 - , ToSQL t8, ToSQL t9, ToSQL t10, ToSQL t11, ToSQL t12, ToSQL t13, ToSQL t14 - , ToSQL t15, ToSQL t16, ToSQL t17, ToSQL t18, ToSQL t19, ToSQL t20, ToSQL t21 - , ToSQL t22, ToSQL t23, ToSQL t24, ToSQL t25 - ) => ToRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25) where - toRow row pa param err = withFormat row $ \fmt -> - toSQL t1 pa $ \p1 -> toSQL t2 pa $ \p2 -> toSQL t3 pa $ \p3 -> - toSQL t4 pa $ \p4 -> toSQL t5 pa $ \p5 -> toSQL t6 pa $ \p6 -> - toSQL t7 pa $ \p7 -> toSQL t8 pa $ \p8 -> toSQL t9 pa $ \p9 -> - toSQL t10 pa $ \p10 -> toSQL t11 pa $ \p11 -> toSQL t12 pa $ \p12 -> - toSQL t13 pa $ \p13 -> toSQL t14 pa $ \p14 -> toSQL t15 pa $ \p15 -> - toSQL t16 pa $ \p16 -> toSQL t17 pa $ \p17 -> toSQL t18 pa $ \p18 -> - toSQL t19 pa $ \p19 -> toSQL t20 pa $ \p20 -> toSQL t21 pa $ \p21 -> - toSQL t22 pa $ \p22 -> toSQL t23 pa $ \p23 -> toSQL t24 pa $ \p24 -> - toSQL t25 pa $ \p25 -> - verify err =<< c_PQputf25 param err fmt p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16 p17 p18 p19 p20 p21 p22 p23 p24 p25 - where - (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25) = row - -instance - ( ToSQL t1, ToSQL t2, ToSQL t3, ToSQL t4, ToSQL t5, ToSQL t6, ToSQL t7 - , ToSQL t8, ToSQL t9, ToSQL t10, ToSQL t11, ToSQL t12, ToSQL t13, ToSQL t14 - , ToSQL t15, ToSQL t16, ToSQL t17, ToSQL t18, ToSQL t19, ToSQL t20, ToSQL t21 - , ToSQL t22, ToSQL t23, ToSQL t24, ToSQL t25, ToSQL t26 - ) => ToRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26) where - toRow row pa param err = withFormat row $ \fmt -> - toSQL t1 pa $ \p1 -> toSQL t2 pa $ \p2 -> toSQL t3 pa $ \p3 -> - toSQL t4 pa $ \p4 -> toSQL t5 pa $ \p5 -> toSQL t6 pa $ \p6 -> - toSQL t7 pa $ \p7 -> toSQL t8 pa $ \p8 -> toSQL t9 pa $ \p9 -> - toSQL t10 pa $ \p10 -> toSQL t11 pa $ \p11 -> toSQL t12 pa $ \p12 -> - toSQL t13 pa $ \p13 -> toSQL t14 pa $ \p14 -> toSQL t15 pa $ \p15 -> - toSQL t16 pa $ \p16 -> toSQL t17 pa $ \p17 -> toSQL t18 pa $ \p18 -> - toSQL t19 pa $ \p19 -> toSQL t20 pa $ \p20 -> toSQL t21 pa $ \p21 -> - toSQL t22 pa $ \p22 -> toSQL t23 pa $ \p23 -> toSQL t24 pa $ \p24 -> - toSQL t25 pa $ \p25 -> toSQL t26 pa $ \p26 -> - verify err =<< c_PQputf26 param err fmt p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16 p17 p18 p19 p20 p21 p22 p23 p24 p25 p26 - where - (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26) = row - -instance - ( ToSQL t1, ToSQL t2, ToSQL t3, ToSQL t4, ToSQL t5, ToSQL t6, ToSQL t7 - , ToSQL t8, ToSQL t9, ToSQL t10, ToSQL t11, ToSQL t12, ToSQL t13, ToSQL t14 - , ToSQL t15, ToSQL t16, ToSQL t17, ToSQL t18, ToSQL t19, ToSQL t20, ToSQL t21 - , ToSQL t22, ToSQL t23, ToSQL t24, ToSQL t25, ToSQL t26, ToSQL t27 - ) => ToRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27) where - toRow row pa param err = withFormat row $ \fmt -> - toSQL t1 pa $ \p1 -> toSQL t2 pa $ \p2 -> toSQL t3 pa $ \p3 -> - toSQL t4 pa $ \p4 -> toSQL t5 pa $ \p5 -> toSQL t6 pa $ \p6 -> - toSQL t7 pa $ \p7 -> toSQL t8 pa $ \p8 -> toSQL t9 pa $ \p9 -> - toSQL t10 pa $ \p10 -> toSQL t11 pa $ \p11 -> toSQL t12 pa $ \p12 -> - toSQL t13 pa $ \p13 -> toSQL t14 pa $ \p14 -> toSQL t15 pa $ \p15 -> - toSQL t16 pa $ \p16 -> toSQL t17 pa $ \p17 -> toSQL t18 pa $ \p18 -> - toSQL t19 pa $ \p19 -> toSQL t20 pa $ \p20 -> toSQL t21 pa $ \p21 -> - toSQL t22 pa $ \p22 -> toSQL t23 pa $ \p23 -> toSQL t24 pa $ \p24 -> - toSQL t25 pa $ \p25 -> toSQL t26 pa $ \p26 -> toSQL t27 pa $ \p27 -> - verify err =<< c_PQputf27 param err fmt p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16 p17 p18 p19 p20 p21 p22 p23 p24 p25 p26 p27 - where - (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27) = row - -instance - ( ToSQL t1, ToSQL t2, ToSQL t3, ToSQL t4, ToSQL t5, ToSQL t6, ToSQL t7 - , ToSQL t8, ToSQL t9, ToSQL t10, ToSQL t11, ToSQL t12, ToSQL t13, ToSQL t14 - , ToSQL t15, ToSQL t16, ToSQL t17, ToSQL t18, ToSQL t19, ToSQL t20, ToSQL t21 - , ToSQL t22, ToSQL t23, ToSQL t24, ToSQL t25, ToSQL t26, ToSQL t27, ToSQL t28 - ) => ToRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28) where - toRow row pa param err = withFormat row $ \fmt -> - toSQL t1 pa $ \p1 -> toSQL t2 pa $ \p2 -> toSQL t3 pa $ \p3 -> - toSQL t4 pa $ \p4 -> toSQL t5 pa $ \p5 -> toSQL t6 pa $ \p6 -> - toSQL t7 pa $ \p7 -> toSQL t8 pa $ \p8 -> toSQL t9 pa $ \p9 -> - toSQL t10 pa $ \p10 -> toSQL t11 pa $ \p11 -> toSQL t12 pa $ \p12 -> - toSQL t13 pa $ \p13 -> toSQL t14 pa $ \p14 -> toSQL t15 pa $ \p15 -> - toSQL t16 pa $ \p16 -> toSQL t17 pa $ \p17 -> toSQL t18 pa $ \p18 -> - toSQL t19 pa $ \p19 -> toSQL t20 pa $ \p20 -> toSQL t21 pa $ \p21 -> - toSQL t22 pa $ \p22 -> toSQL t23 pa $ \p23 -> toSQL t24 pa $ \p24 -> - toSQL t25 pa $ \p25 -> toSQL t26 pa $ \p26 -> toSQL t27 pa $ \p27 -> - toSQL t28 pa $ \p28 -> - verify err =<< c_PQputf28 param err fmt p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16 p17 p18 p19 p20 p21 p22 p23 p24 p25 p26 p27 p28 - where - (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28) = row - -instance - ( ToSQL t1, ToSQL t2, ToSQL t3, ToSQL t4, ToSQL t5, ToSQL t6, ToSQL t7 - , ToSQL t8, ToSQL t9, ToSQL t10, ToSQL t11, ToSQL t12, ToSQL t13, ToSQL t14 - , ToSQL t15, ToSQL t16, ToSQL t17, ToSQL t18, ToSQL t19, ToSQL t20, ToSQL t21 - , ToSQL t22, ToSQL t23, ToSQL t24, ToSQL t25, ToSQL t26, ToSQL t27, ToSQL t28 - , ToSQL t29 - ) => ToRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29) where - toRow row pa param err = withFormat row $ \fmt -> - toSQL t1 pa $ \p1 -> toSQL t2 pa $ \p2 -> toSQL t3 pa $ \p3 -> - toSQL t4 pa $ \p4 -> toSQL t5 pa $ \p5 -> toSQL t6 pa $ \p6 -> - toSQL t7 pa $ \p7 -> toSQL t8 pa $ \p8 -> toSQL t9 pa $ \p9 -> - toSQL t10 pa $ \p10 -> toSQL t11 pa $ \p11 -> toSQL t12 pa $ \p12 -> - toSQL t13 pa $ \p13 -> toSQL t14 pa $ \p14 -> toSQL t15 pa $ \p15 -> - toSQL t16 pa $ \p16 -> toSQL t17 pa $ \p17 -> toSQL t18 pa $ \p18 -> - toSQL t19 pa $ \p19 -> toSQL t20 pa $ \p20 -> toSQL t21 pa $ \p21 -> - toSQL t22 pa $ \p22 -> toSQL t23 pa $ \p23 -> toSQL t24 pa $ \p24 -> - toSQL t25 pa $ \p25 -> toSQL t26 pa $ \p26 -> toSQL t27 pa $ \p27 -> - toSQL t28 pa $ \p28 -> toSQL t29 pa $ \p29 -> - verify err =<< c_PQputf29 param err fmt p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16 p17 p18 p19 p20 p21 p22 p23 p24 p25 p26 p27 p28 p29 - where - (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29) = row - -instance - ( ToSQL t1, ToSQL t2, ToSQL t3, ToSQL t4, ToSQL t5, ToSQL t6, ToSQL t7 - , ToSQL t8, ToSQL t9, ToSQL t10, ToSQL t11, ToSQL t12, ToSQL t13, ToSQL t14 - , ToSQL t15, ToSQL t16, ToSQL t17, ToSQL t18, ToSQL t19, ToSQL t20, ToSQL t21 - , ToSQL t22, ToSQL t23, ToSQL t24, ToSQL t25, ToSQL t26, ToSQL t27, ToSQL t28 - , ToSQL t29, ToSQL t30 - ) => ToRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30) where - toRow row pa param err = withFormat row $ \fmt -> - toSQL t1 pa $ \p1 -> toSQL t2 pa $ \p2 -> toSQL t3 pa $ \p3 -> - toSQL t4 pa $ \p4 -> toSQL t5 pa $ \p5 -> toSQL t6 pa $ \p6 -> - toSQL t7 pa $ \p7 -> toSQL t8 pa $ \p8 -> toSQL t9 pa $ \p9 -> - toSQL t10 pa $ \p10 -> toSQL t11 pa $ \p11 -> toSQL t12 pa $ \p12 -> - toSQL t13 pa $ \p13 -> toSQL t14 pa $ \p14 -> toSQL t15 pa $ \p15 -> - toSQL t16 pa $ \p16 -> toSQL t17 pa $ \p17 -> toSQL t18 pa $ \p18 -> - toSQL t19 pa $ \p19 -> toSQL t20 pa $ \p20 -> toSQL t21 pa $ \p21 -> - toSQL t22 pa $ \p22 -> toSQL t23 pa $ \p23 -> toSQL t24 pa $ \p24 -> - toSQL t25 pa $ \p25 -> toSQL t26 pa $ \p26 -> toSQL t27 pa $ \p27 -> - toSQL t28 pa $ \p28 -> toSQL t29 pa $ \p29 -> toSQL t30 pa $ \p30 -> - verify err =<< c_PQputf30 param err fmt p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16 p17 p18 p19 p20 p21 p22 p23 p24 p25 p26 p27 p28 p29 p30 - where - (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30) = row - -instance - ( ToSQL t1, ToSQL t2, ToSQL t3, ToSQL t4, ToSQL t5, ToSQL t6, ToSQL t7 - , ToSQL t8, ToSQL t9, ToSQL t10, ToSQL t11, ToSQL t12, ToSQL t13, ToSQL t14 - , ToSQL t15, ToSQL t16, ToSQL t17, ToSQL t18, ToSQL t19, ToSQL t20, ToSQL t21 - , ToSQL t22, ToSQL t23, ToSQL t24, ToSQL t25, ToSQL t26, ToSQL t27, ToSQL t28 - , ToSQL t29, ToSQL t30, ToSQL t31 - ) => ToRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31) where - toRow row pa param err = withFormat row $ \fmt -> - toSQL t1 pa $ \p1 -> toSQL t2 pa $ \p2 -> toSQL t3 pa $ \p3 -> - toSQL t4 pa $ \p4 -> toSQL t5 pa $ \p5 -> toSQL t6 pa $ \p6 -> - toSQL t7 pa $ \p7 -> toSQL t8 pa $ \p8 -> toSQL t9 pa $ \p9 -> - toSQL t10 pa $ \p10 -> toSQL t11 pa $ \p11 -> toSQL t12 pa $ \p12 -> - toSQL t13 pa $ \p13 -> toSQL t14 pa $ \p14 -> toSQL t15 pa $ \p15 -> - toSQL t16 pa $ \p16 -> toSQL t17 pa $ \p17 -> toSQL t18 pa $ \p18 -> - toSQL t19 pa $ \p19 -> toSQL t20 pa $ \p20 -> toSQL t21 pa $ \p21 -> - toSQL t22 pa $ \p22 -> toSQL t23 pa $ \p23 -> toSQL t24 pa $ \p24 -> - toSQL t25 pa $ \p25 -> toSQL t26 pa $ \p26 -> toSQL t27 pa $ \p27 -> - toSQL t28 pa $ \p28 -> toSQL t29 pa $ \p29 -> toSQL t30 pa $ \p30 -> - toSQL t31 pa $ \p31 -> - verify err =<< c_PQputf31 param err fmt p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16 p17 p18 p19 p20 p21 p22 p23 p24 p25 p26 p27 p28 p29 p30 p31 - where - (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31) = row - -instance - ( ToSQL t1, ToSQL t2, ToSQL t3, ToSQL t4, ToSQL t5, ToSQL t6, ToSQL t7 - , ToSQL t8, ToSQL t9, ToSQL t10, ToSQL t11, ToSQL t12, ToSQL t13, ToSQL t14 - , ToSQL t15, ToSQL t16, ToSQL t17, ToSQL t18, ToSQL t19, ToSQL t20, ToSQL t21 - , ToSQL t22, ToSQL t23, ToSQL t24, ToSQL t25, ToSQL t26, ToSQL t27, ToSQL t28 - , ToSQL t29, ToSQL t30, ToSQL t31, ToSQL t32 - ) => ToRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32) where - toRow row pa param err = withFormat row $ \fmt -> - toSQL t1 pa $ \p1 -> toSQL t2 pa $ \p2 -> toSQL t3 pa $ \p3 -> - toSQL t4 pa $ \p4 -> toSQL t5 pa $ \p5 -> toSQL t6 pa $ \p6 -> - toSQL t7 pa $ \p7 -> toSQL t8 pa $ \p8 -> toSQL t9 pa $ \p9 -> - toSQL t10 pa $ \p10 -> toSQL t11 pa $ \p11 -> toSQL t12 pa $ \p12 -> - toSQL t13 pa $ \p13 -> toSQL t14 pa $ \p14 -> toSQL t15 pa $ \p15 -> - toSQL t16 pa $ \p16 -> toSQL t17 pa $ \p17 -> toSQL t18 pa $ \p18 -> - toSQL t19 pa $ \p19 -> toSQL t20 pa $ \p20 -> toSQL t21 pa $ \p21 -> - toSQL t22 pa $ \p22 -> toSQL t23 pa $ \p23 -> toSQL t24 pa $ \p24 -> - toSQL t25 pa $ \p25 -> toSQL t26 pa $ \p26 -> toSQL t27 pa $ \p27 -> - toSQL t28 pa $ \p28 -> toSQL t29 pa $ \p29 -> toSQL t30 pa $ \p30 -> - toSQL t31 pa $ \p31 -> toSQL t32 pa $ \p32 -> - verify err =<< c_PQputf32 param err fmt p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16 p17 p18 p19 p20 p21 p22 p23 p24 p25 p26 p27 p28 p29 p30 p31 p32 - where - (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32) = row - -instance - ( ToSQL t1, ToSQL t2, ToSQL t3, ToSQL t4, ToSQL t5, ToSQL t6, ToSQL t7 - , ToSQL t8, ToSQL t9, ToSQL t10, ToSQL t11, ToSQL t12, ToSQL t13, ToSQL t14 - , ToSQL t15, ToSQL t16, ToSQL t17, ToSQL t18, ToSQL t19, ToSQL t20, ToSQL t21 - , ToSQL t22, ToSQL t23, ToSQL t24, ToSQL t25, ToSQL t26, ToSQL t27, ToSQL t28 - , ToSQL t29, ToSQL t30, ToSQL t31, ToSQL t32, ToSQL t33 - ) => ToRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33) where - toRow row pa param err = withFormat row $ \fmt -> - toSQL t1 pa $ \p1 -> toSQL t2 pa $ \p2 -> toSQL t3 pa $ \p3 -> - toSQL t4 pa $ \p4 -> toSQL t5 pa $ \p5 -> toSQL t6 pa $ \p6 -> - toSQL t7 pa $ \p7 -> toSQL t8 pa $ \p8 -> toSQL t9 pa $ \p9 -> - toSQL t10 pa $ \p10 -> toSQL t11 pa $ \p11 -> toSQL t12 pa $ \p12 -> - toSQL t13 pa $ \p13 -> toSQL t14 pa $ \p14 -> toSQL t15 pa $ \p15 -> - toSQL t16 pa $ \p16 -> toSQL t17 pa $ \p17 -> toSQL t18 pa $ \p18 -> - toSQL t19 pa $ \p19 -> toSQL t20 pa $ \p20 -> toSQL t21 pa $ \p21 -> - toSQL t22 pa $ \p22 -> toSQL t23 pa $ \p23 -> toSQL t24 pa $ \p24 -> - toSQL t25 pa $ \p25 -> toSQL t26 pa $ \p26 -> toSQL t27 pa $ \p27 -> - toSQL t28 pa $ \p28 -> toSQL t29 pa $ \p29 -> toSQL t30 pa $ \p30 -> - toSQL t31 pa $ \p31 -> toSQL t32 pa $ \p32 -> toSQL t33 pa $ \p33 -> - verify err =<< c_PQputf33 param err fmt p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16 p17 p18 p19 p20 p21 p22 p23 p24 p25 p26 p27 p28 p29 p30 p31 p32 p33 - where - (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33) = row - -instance - ( ToSQL t1, ToSQL t2, ToSQL t3, ToSQL t4, ToSQL t5, ToSQL t6, ToSQL t7 - , ToSQL t8, ToSQL t9, ToSQL t10, ToSQL t11, ToSQL t12, ToSQL t13, ToSQL t14 - , ToSQL t15, ToSQL t16, ToSQL t17, ToSQL t18, ToSQL t19, ToSQL t20, ToSQL t21 - , ToSQL t22, ToSQL t23, ToSQL t24, ToSQL t25, ToSQL t26, ToSQL t27, ToSQL t28 - , ToSQL t29, ToSQL t30, ToSQL t31, ToSQL t32, ToSQL t33, ToSQL t34 - ) => ToRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34) where - toRow row pa param err = withFormat row $ \fmt -> - toSQL t1 pa $ \p1 -> toSQL t2 pa $ \p2 -> toSQL t3 pa $ \p3 -> - toSQL t4 pa $ \p4 -> toSQL t5 pa $ \p5 -> toSQL t6 pa $ \p6 -> - toSQL t7 pa $ \p7 -> toSQL t8 pa $ \p8 -> toSQL t9 pa $ \p9 -> - toSQL t10 pa $ \p10 -> toSQL t11 pa $ \p11 -> toSQL t12 pa $ \p12 -> - toSQL t13 pa $ \p13 -> toSQL t14 pa $ \p14 -> toSQL t15 pa $ \p15 -> - toSQL t16 pa $ \p16 -> toSQL t17 pa $ \p17 -> toSQL t18 pa $ \p18 -> - toSQL t19 pa $ \p19 -> toSQL t20 pa $ \p20 -> toSQL t21 pa $ \p21 -> - toSQL t22 pa $ \p22 -> toSQL t23 pa $ \p23 -> toSQL t24 pa $ \p24 -> - toSQL t25 pa $ \p25 -> toSQL t26 pa $ \p26 -> toSQL t27 pa $ \p27 -> - toSQL t28 pa $ \p28 -> toSQL t29 pa $ \p29 -> toSQL t30 pa $ \p30 -> - toSQL t31 pa $ \p31 -> toSQL t32 pa $ \p32 -> toSQL t33 pa $ \p33 -> - toSQL t34 pa $ \p34 -> - verify err =<< c_PQputf34 param err fmt p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16 p17 p18 p19 p20 p21 p22 p23 p24 p25 p26 p27 p28 p29 p30 p31 p32 p33 p34 - where - (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34) = row - -instance - ( ToSQL t1, ToSQL t2, ToSQL t3, ToSQL t4, ToSQL t5, ToSQL t6, ToSQL t7 - , ToSQL t8, ToSQL t9, ToSQL t10, ToSQL t11, ToSQL t12, ToSQL t13, ToSQL t14 - , ToSQL t15, ToSQL t16, ToSQL t17, ToSQL t18, ToSQL t19, ToSQL t20, ToSQL t21 - , ToSQL t22, ToSQL t23, ToSQL t24, ToSQL t25, ToSQL t26, ToSQL t27, ToSQL t28 - , ToSQL t29, ToSQL t30, ToSQL t31, ToSQL t32, ToSQL t33, ToSQL t34, ToSQL t35 - ) => ToRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35) where - toRow row pa param err = withFormat row $ \fmt -> - toSQL t1 pa $ \p1 -> toSQL t2 pa $ \p2 -> toSQL t3 pa $ \p3 -> - toSQL t4 pa $ \p4 -> toSQL t5 pa $ \p5 -> toSQL t6 pa $ \p6 -> - toSQL t7 pa $ \p7 -> toSQL t8 pa $ \p8 -> toSQL t9 pa $ \p9 -> - toSQL t10 pa $ \p10 -> toSQL t11 pa $ \p11 -> toSQL t12 pa $ \p12 -> - toSQL t13 pa $ \p13 -> toSQL t14 pa $ \p14 -> toSQL t15 pa $ \p15 -> - toSQL t16 pa $ \p16 -> toSQL t17 pa $ \p17 -> toSQL t18 pa $ \p18 -> - toSQL t19 pa $ \p19 -> toSQL t20 pa $ \p20 -> toSQL t21 pa $ \p21 -> - toSQL t22 pa $ \p22 -> toSQL t23 pa $ \p23 -> toSQL t24 pa $ \p24 -> - toSQL t25 pa $ \p25 -> toSQL t26 pa $ \p26 -> toSQL t27 pa $ \p27 -> - toSQL t28 pa $ \p28 -> toSQL t29 pa $ \p29 -> toSQL t30 pa $ \p30 -> - toSQL t31 pa $ \p31 -> toSQL t32 pa $ \p32 -> toSQL t33 pa $ \p33 -> - toSQL t34 pa $ \p34 -> toSQL t35 pa $ \p35 -> - verify err =<< c_PQputf35 param err fmt p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16 p17 p18 p19 p20 p21 p22 p23 p24 p25 p26 p27 p28 p29 p30 p31 p32 p33 p34 p35 - where - (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35) = row - -instance - ( ToSQL t1, ToSQL t2, ToSQL t3, ToSQL t4, ToSQL t5, ToSQL t6, ToSQL t7 - , ToSQL t8, ToSQL t9, ToSQL t10, ToSQL t11, ToSQL t12, ToSQL t13, ToSQL t14 - , ToSQL t15, ToSQL t16, ToSQL t17, ToSQL t18, ToSQL t19, ToSQL t20, ToSQL t21 - , ToSQL t22, ToSQL t23, ToSQL t24, ToSQL t25, ToSQL t26, ToSQL t27, ToSQL t28 - , ToSQL t29, ToSQL t30, ToSQL t31, ToSQL t32, ToSQL t33, ToSQL t34, ToSQL t35 - , ToSQL t36 - ) => ToRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36) where - toRow row pa param err = withFormat row $ \fmt -> - toSQL t1 pa $ \p1 -> toSQL t2 pa $ \p2 -> toSQL t3 pa $ \p3 -> - toSQL t4 pa $ \p4 -> toSQL t5 pa $ \p5 -> toSQL t6 pa $ \p6 -> - toSQL t7 pa $ \p7 -> toSQL t8 pa $ \p8 -> toSQL t9 pa $ \p9 -> - toSQL t10 pa $ \p10 -> toSQL t11 pa $ \p11 -> toSQL t12 pa $ \p12 -> - toSQL t13 pa $ \p13 -> toSQL t14 pa $ \p14 -> toSQL t15 pa $ \p15 -> - toSQL t16 pa $ \p16 -> toSQL t17 pa $ \p17 -> toSQL t18 pa $ \p18 -> - toSQL t19 pa $ \p19 -> toSQL t20 pa $ \p20 -> toSQL t21 pa $ \p21 -> - toSQL t22 pa $ \p22 -> toSQL t23 pa $ \p23 -> toSQL t24 pa $ \p24 -> - toSQL t25 pa $ \p25 -> toSQL t26 pa $ \p26 -> toSQL t27 pa $ \p27 -> - toSQL t28 pa $ \p28 -> toSQL t29 pa $ \p29 -> toSQL t30 pa $ \p30 -> - toSQL t31 pa $ \p31 -> toSQL t32 pa $ \p32 -> toSQL t33 pa $ \p33 -> - toSQL t34 pa $ \p34 -> toSQL t35 pa $ \p35 -> toSQL t36 pa $ \p36 -> - verify err =<< c_PQputf36 param err fmt p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16 p17 p18 p19 p20 p21 p22 p23 p24 p25 p26 p27 p28 p29 p30 p31 p32 p33 p34 p35 p36 - where - (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36) = row - -instance - ( ToSQL t1, ToSQL t2, ToSQL t3, ToSQL t4, ToSQL t5, ToSQL t6, ToSQL t7 - , ToSQL t8, ToSQL t9, ToSQL t10, ToSQL t11, ToSQL t12, ToSQL t13, ToSQL t14 - , ToSQL t15, ToSQL t16, ToSQL t17, ToSQL t18, ToSQL t19, ToSQL t20, ToSQL t21 - , ToSQL t22, ToSQL t23, ToSQL t24, ToSQL t25, ToSQL t26, ToSQL t27, ToSQL t28 - , ToSQL t29, ToSQL t30, ToSQL t31, ToSQL t32, ToSQL t33, ToSQL t34, ToSQL t35 - , ToSQL t36, ToSQL t37 - ) => ToRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36, t37) where - toRow row pa param err = withFormat row $ \fmt -> - toSQL t1 pa $ \p1 -> toSQL t2 pa $ \p2 -> toSQL t3 pa $ \p3 -> - toSQL t4 pa $ \p4 -> toSQL t5 pa $ \p5 -> toSQL t6 pa $ \p6 -> - toSQL t7 pa $ \p7 -> toSQL t8 pa $ \p8 -> toSQL t9 pa $ \p9 -> - toSQL t10 pa $ \p10 -> toSQL t11 pa $ \p11 -> toSQL t12 pa $ \p12 -> - toSQL t13 pa $ \p13 -> toSQL t14 pa $ \p14 -> toSQL t15 pa $ \p15 -> - toSQL t16 pa $ \p16 -> toSQL t17 pa $ \p17 -> toSQL t18 pa $ \p18 -> - toSQL t19 pa $ \p19 -> toSQL t20 pa $ \p20 -> toSQL t21 pa $ \p21 -> - toSQL t22 pa $ \p22 -> toSQL t23 pa $ \p23 -> toSQL t24 pa $ \p24 -> - toSQL t25 pa $ \p25 -> toSQL t26 pa $ \p26 -> toSQL t27 pa $ \p27 -> - toSQL t28 pa $ \p28 -> toSQL t29 pa $ \p29 -> toSQL t30 pa $ \p30 -> - toSQL t31 pa $ \p31 -> toSQL t32 pa $ \p32 -> toSQL t33 pa $ \p33 -> - toSQL t34 pa $ \p34 -> toSQL t35 pa $ \p35 -> toSQL t36 pa $ \p36 -> - toSQL t37 pa $ \p37 -> - verify err =<< c_PQputf37 param err fmt p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16 p17 p18 p19 p20 p21 p22 p23 p24 p25 p26 p27 p28 p29 p30 p31 p32 p33 p34 p35 p36 p37 - where - (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36, t37) = row - -instance - ( ToSQL t1, ToSQL t2, ToSQL t3, ToSQL t4, ToSQL t5, ToSQL t6, ToSQL t7 - , ToSQL t8, ToSQL t9, ToSQL t10, ToSQL t11, ToSQL t12, ToSQL t13, ToSQL t14 - , ToSQL t15, ToSQL t16, ToSQL t17, ToSQL t18, ToSQL t19, ToSQL t20, ToSQL t21 - , ToSQL t22, ToSQL t23, ToSQL t24, ToSQL t25, ToSQL t26, ToSQL t27, ToSQL t28 - , ToSQL t29, ToSQL t30, ToSQL t31, ToSQL t32, ToSQL t33, ToSQL t34, ToSQL t35 - , ToSQL t36, ToSQL t37, ToSQL t38 - ) => ToRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38) where - toRow row pa param err = withFormat row $ \fmt -> - toSQL t1 pa $ \p1 -> toSQL t2 pa $ \p2 -> toSQL t3 pa $ \p3 -> - toSQL t4 pa $ \p4 -> toSQL t5 pa $ \p5 -> toSQL t6 pa $ \p6 -> - toSQL t7 pa $ \p7 -> toSQL t8 pa $ \p8 -> toSQL t9 pa $ \p9 -> - toSQL t10 pa $ \p10 -> toSQL t11 pa $ \p11 -> toSQL t12 pa $ \p12 -> - toSQL t13 pa $ \p13 -> toSQL t14 pa $ \p14 -> toSQL t15 pa $ \p15 -> - toSQL t16 pa $ \p16 -> toSQL t17 pa $ \p17 -> toSQL t18 pa $ \p18 -> - toSQL t19 pa $ \p19 -> toSQL t20 pa $ \p20 -> toSQL t21 pa $ \p21 -> - toSQL t22 pa $ \p22 -> toSQL t23 pa $ \p23 -> toSQL t24 pa $ \p24 -> - toSQL t25 pa $ \p25 -> toSQL t26 pa $ \p26 -> toSQL t27 pa $ \p27 -> - toSQL t28 pa $ \p28 -> toSQL t29 pa $ \p29 -> toSQL t30 pa $ \p30 -> - toSQL t31 pa $ \p31 -> toSQL t32 pa $ \p32 -> toSQL t33 pa $ \p33 -> - toSQL t34 pa $ \p34 -> toSQL t35 pa $ \p35 -> toSQL t36 pa $ \p36 -> - toSQL t37 pa $ \p37 -> toSQL t38 pa $ \p38 -> - verify err =<< c_PQputf38 param err fmt p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16 p17 p18 p19 p20 p21 p22 p23 p24 p25 p26 p27 p28 p29 p30 p31 p32 p33 p34 p35 p36 p37 p38 - where - (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38) = row - -instance - ( ToSQL t1, ToSQL t2, ToSQL t3, ToSQL t4, ToSQL t5, ToSQL t6, ToSQL t7 - , ToSQL t8, ToSQL t9, ToSQL t10, ToSQL t11, ToSQL t12, ToSQL t13, ToSQL t14 - , ToSQL t15, ToSQL t16, ToSQL t17, ToSQL t18, ToSQL t19, ToSQL t20, ToSQL t21 - , ToSQL t22, ToSQL t23, ToSQL t24, ToSQL t25, ToSQL t26, ToSQL t27, ToSQL t28 - , ToSQL t29, ToSQL t30, ToSQL t31, ToSQL t32, ToSQL t33, ToSQL t34, ToSQL t35 - , ToSQL t36, ToSQL t37, ToSQL t38, ToSQL t39 - ) => ToRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39) where - toRow row pa param err = withFormat row $ \fmt -> - toSQL t1 pa $ \p1 -> toSQL t2 pa $ \p2 -> toSQL t3 pa $ \p3 -> - toSQL t4 pa $ \p4 -> toSQL t5 pa $ \p5 -> toSQL t6 pa $ \p6 -> - toSQL t7 pa $ \p7 -> toSQL t8 pa $ \p8 -> toSQL t9 pa $ \p9 -> - toSQL t10 pa $ \p10 -> toSQL t11 pa $ \p11 -> toSQL t12 pa $ \p12 -> - toSQL t13 pa $ \p13 -> toSQL t14 pa $ \p14 -> toSQL t15 pa $ \p15 -> - toSQL t16 pa $ \p16 -> toSQL t17 pa $ \p17 -> toSQL t18 pa $ \p18 -> - toSQL t19 pa $ \p19 -> toSQL t20 pa $ \p20 -> toSQL t21 pa $ \p21 -> - toSQL t22 pa $ \p22 -> toSQL t23 pa $ \p23 -> toSQL t24 pa $ \p24 -> - toSQL t25 pa $ \p25 -> toSQL t26 pa $ \p26 -> toSQL t27 pa $ \p27 -> - toSQL t28 pa $ \p28 -> toSQL t29 pa $ \p29 -> toSQL t30 pa $ \p30 -> - toSQL t31 pa $ \p31 -> toSQL t32 pa $ \p32 -> toSQL t33 pa $ \p33 -> - toSQL t34 pa $ \p34 -> toSQL t35 pa $ \p35 -> toSQL t36 pa $ \p36 -> - toSQL t37 pa $ \p37 -> toSQL t38 pa $ \p38 -> toSQL t39 pa $ \p39 -> - verify err =<< c_PQputf39 param err fmt p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16 p17 p18 p19 p20 p21 p22 p23 p24 p25 p26 p27 p28 p29 p30 p31 p32 p33 p34 p35 p36 p37 p38 p39 - where - (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39) = row - -instance - ( ToSQL t1, ToSQL t2, ToSQL t3, ToSQL t4, ToSQL t5, ToSQL t6, ToSQL t7 - , ToSQL t8, ToSQL t9, ToSQL t10, ToSQL t11, ToSQL t12, ToSQL t13, ToSQL t14 - , ToSQL t15, ToSQL t16, ToSQL t17, ToSQL t18, ToSQL t19, ToSQL t20, ToSQL t21 - , ToSQL t22, ToSQL t23, ToSQL t24, ToSQL t25, ToSQL t26, ToSQL t27, ToSQL t28 - , ToSQL t29, ToSQL t30, ToSQL t31, ToSQL t32, ToSQL t33, ToSQL t34, ToSQL t35 - , ToSQL t36, ToSQL t37, ToSQL t38, ToSQL t39, ToSQL t40 - ) => ToRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40) where - toRow row pa param err = withFormat row $ \fmt -> - toSQL t1 pa $ \p1 -> toSQL t2 pa $ \p2 -> toSQL t3 pa $ \p3 -> - toSQL t4 pa $ \p4 -> toSQL t5 pa $ \p5 -> toSQL t6 pa $ \p6 -> - toSQL t7 pa $ \p7 -> toSQL t8 pa $ \p8 -> toSQL t9 pa $ \p9 -> - toSQL t10 pa $ \p10 -> toSQL t11 pa $ \p11 -> toSQL t12 pa $ \p12 -> - toSQL t13 pa $ \p13 -> toSQL t14 pa $ \p14 -> toSQL t15 pa $ \p15 -> - toSQL t16 pa $ \p16 -> toSQL t17 pa $ \p17 -> toSQL t18 pa $ \p18 -> - toSQL t19 pa $ \p19 -> toSQL t20 pa $ \p20 -> toSQL t21 pa $ \p21 -> - toSQL t22 pa $ \p22 -> toSQL t23 pa $ \p23 -> toSQL t24 pa $ \p24 -> - toSQL t25 pa $ \p25 -> toSQL t26 pa $ \p26 -> toSQL t27 pa $ \p27 -> - toSQL t28 pa $ \p28 -> toSQL t29 pa $ \p29 -> toSQL t30 pa $ \p30 -> - toSQL t31 pa $ \p31 -> toSQL t32 pa $ \p32 -> toSQL t33 pa $ \p33 -> - toSQL t34 pa $ \p34 -> toSQL t35 pa $ \p35 -> toSQL t36 pa $ \p36 -> - toSQL t37 pa $ \p37 -> toSQL t38 pa $ \p38 -> toSQL t39 pa $ \p39 -> - toSQL t40 pa $ \p40 -> - verify err =<< c_PQputf40 param err fmt p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16 p17 p18 p19 p20 p21 p22 p23 p24 p25 p26 p27 p28 p29 p30 p31 p32 p33 p34 p35 p36 p37 p38 p39 p40 - where - (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40) = row - -instance - ( ToSQL t1, ToSQL t2, ToSQL t3, ToSQL t4, ToSQL t5, ToSQL t6, ToSQL t7 - , ToSQL t8, ToSQL t9, ToSQL t10, ToSQL t11, ToSQL t12, ToSQL t13, ToSQL t14 - , ToSQL t15, ToSQL t16, ToSQL t17, ToSQL t18, ToSQL t19, ToSQL t20, ToSQL t21 - , ToSQL t22, ToSQL t23, ToSQL t24, ToSQL t25, ToSQL t26, ToSQL t27, ToSQL t28 - , ToSQL t29, ToSQL t30, ToSQL t31, ToSQL t32, ToSQL t33, ToSQL t34, ToSQL t35 - , ToSQL t36, ToSQL t37, ToSQL t38, ToSQL t39, ToSQL t40, ToSQL t41 - ) => ToRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41) where - toRow row pa param err = withFormat row $ \fmt -> - toSQL t1 pa $ \p1 -> toSQL t2 pa $ \p2 -> toSQL t3 pa $ \p3 -> - toSQL t4 pa $ \p4 -> toSQL t5 pa $ \p5 -> toSQL t6 pa $ \p6 -> - toSQL t7 pa $ \p7 -> toSQL t8 pa $ \p8 -> toSQL t9 pa $ \p9 -> - toSQL t10 pa $ \p10 -> toSQL t11 pa $ \p11 -> toSQL t12 pa $ \p12 -> - toSQL t13 pa $ \p13 -> toSQL t14 pa $ \p14 -> toSQL t15 pa $ \p15 -> - toSQL t16 pa $ \p16 -> toSQL t17 pa $ \p17 -> toSQL t18 pa $ \p18 -> - toSQL t19 pa $ \p19 -> toSQL t20 pa $ \p20 -> toSQL t21 pa $ \p21 -> - toSQL t22 pa $ \p22 -> toSQL t23 pa $ \p23 -> toSQL t24 pa $ \p24 -> - toSQL t25 pa $ \p25 -> toSQL t26 pa $ \p26 -> toSQL t27 pa $ \p27 -> - toSQL t28 pa $ \p28 -> toSQL t29 pa $ \p29 -> toSQL t30 pa $ \p30 -> - toSQL t31 pa $ \p31 -> toSQL t32 pa $ \p32 -> toSQL t33 pa $ \p33 -> - toSQL t34 pa $ \p34 -> toSQL t35 pa $ \p35 -> toSQL t36 pa $ \p36 -> - toSQL t37 pa $ \p37 -> toSQL t38 pa $ \p38 -> toSQL t39 pa $ \p39 -> - toSQL t40 pa $ \p40 -> toSQL t41 pa $ \p41 -> - verify err =<< c_PQputf41 param err fmt p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16 p17 p18 p19 p20 p21 p22 p23 p24 p25 p26 p27 p28 p29 p30 p31 p32 p33 p34 p35 p36 p37 p38 p39 p40 p41 - where - (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41) = row - -instance - ( ToSQL t1, ToSQL t2, ToSQL t3, ToSQL t4, ToSQL t5, ToSQL t6, ToSQL t7 - , ToSQL t8, ToSQL t9, ToSQL t10, ToSQL t11, ToSQL t12, ToSQL t13, ToSQL t14 - , ToSQL t15, ToSQL t16, ToSQL t17, ToSQL t18, ToSQL t19, ToSQL t20, ToSQL t21 - , ToSQL t22, ToSQL t23, ToSQL t24, ToSQL t25, ToSQL t26, ToSQL t27, ToSQL t28 - , ToSQL t29, ToSQL t30, ToSQL t31, ToSQL t32, ToSQL t33, ToSQL t34, ToSQL t35 - , ToSQL t36, ToSQL t37, ToSQL t38, ToSQL t39, ToSQL t40, ToSQL t41, ToSQL t42 - ) => ToRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41, t42) where - toRow row pa param err = withFormat row $ \fmt -> - toSQL t1 pa $ \p1 -> toSQL t2 pa $ \p2 -> toSQL t3 pa $ \p3 -> - toSQL t4 pa $ \p4 -> toSQL t5 pa $ \p5 -> toSQL t6 pa $ \p6 -> - toSQL t7 pa $ \p7 -> toSQL t8 pa $ \p8 -> toSQL t9 pa $ \p9 -> - toSQL t10 pa $ \p10 -> toSQL t11 pa $ \p11 -> toSQL t12 pa $ \p12 -> - toSQL t13 pa $ \p13 -> toSQL t14 pa $ \p14 -> toSQL t15 pa $ \p15 -> - toSQL t16 pa $ \p16 -> toSQL t17 pa $ \p17 -> toSQL t18 pa $ \p18 -> - toSQL t19 pa $ \p19 -> toSQL t20 pa $ \p20 -> toSQL t21 pa $ \p21 -> - toSQL t22 pa $ \p22 -> toSQL t23 pa $ \p23 -> toSQL t24 pa $ \p24 -> - toSQL t25 pa $ \p25 -> toSQL t26 pa $ \p26 -> toSQL t27 pa $ \p27 -> - toSQL t28 pa $ \p28 -> toSQL t29 pa $ \p29 -> toSQL t30 pa $ \p30 -> - toSQL t31 pa $ \p31 -> toSQL t32 pa $ \p32 -> toSQL t33 pa $ \p33 -> - toSQL t34 pa $ \p34 -> toSQL t35 pa $ \p35 -> toSQL t36 pa $ \p36 -> - toSQL t37 pa $ \p37 -> toSQL t38 pa $ \p38 -> toSQL t39 pa $ \p39 -> - toSQL t40 pa $ \p40 -> toSQL t41 pa $ \p41 -> toSQL t42 pa $ \p42 -> - verify err =<< c_PQputf42 param err fmt p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16 p17 p18 p19 p20 p21 p22 p23 p24 p25 p26 p27 p28 p29 p30 p31 p32 p33 p34 p35 p36 p37 p38 p39 p40 p41 p42 - where - (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41, t42) = row - -instance - ( ToSQL t1, ToSQL t2, ToSQL t3, ToSQL t4, ToSQL t5, ToSQL t6, ToSQL t7 - , ToSQL t8, ToSQL t9, ToSQL t10, ToSQL t11, ToSQL t12, ToSQL t13, ToSQL t14 - , ToSQL t15, ToSQL t16, ToSQL t17, ToSQL t18, ToSQL t19, ToSQL t20, ToSQL t21 - , ToSQL t22, ToSQL t23, ToSQL t24, ToSQL t25, ToSQL t26, ToSQL t27, ToSQL t28 - , ToSQL t29, ToSQL t30, ToSQL t31, ToSQL t32, ToSQL t33, ToSQL t34, ToSQL t35 - , ToSQL t36, ToSQL t37, ToSQL t38, ToSQL t39, ToSQL t40, ToSQL t41, ToSQL t42 - , ToSQL t43 - ) => ToRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41, t42, t43) where - toRow row pa param err = withFormat row $ \fmt -> - toSQL t1 pa $ \p1 -> toSQL t2 pa $ \p2 -> toSQL t3 pa $ \p3 -> - toSQL t4 pa $ \p4 -> toSQL t5 pa $ \p5 -> toSQL t6 pa $ \p6 -> - toSQL t7 pa $ \p7 -> toSQL t8 pa $ \p8 -> toSQL t9 pa $ \p9 -> - toSQL t10 pa $ \p10 -> toSQL t11 pa $ \p11 -> toSQL t12 pa $ \p12 -> - toSQL t13 pa $ \p13 -> toSQL t14 pa $ \p14 -> toSQL t15 pa $ \p15 -> - toSQL t16 pa $ \p16 -> toSQL t17 pa $ \p17 -> toSQL t18 pa $ \p18 -> - toSQL t19 pa $ \p19 -> toSQL t20 pa $ \p20 -> toSQL t21 pa $ \p21 -> - toSQL t22 pa $ \p22 -> toSQL t23 pa $ \p23 -> toSQL t24 pa $ \p24 -> - toSQL t25 pa $ \p25 -> toSQL t26 pa $ \p26 -> toSQL t27 pa $ \p27 -> - toSQL t28 pa $ \p28 -> toSQL t29 pa $ \p29 -> toSQL t30 pa $ \p30 -> - toSQL t31 pa $ \p31 -> toSQL t32 pa $ \p32 -> toSQL t33 pa $ \p33 -> - toSQL t34 pa $ \p34 -> toSQL t35 pa $ \p35 -> toSQL t36 pa $ \p36 -> - toSQL t37 pa $ \p37 -> toSQL t38 pa $ \p38 -> toSQL t39 pa $ \p39 -> - toSQL t40 pa $ \p40 -> toSQL t41 pa $ \p41 -> toSQL t42 pa $ \p42 -> - toSQL t43 pa $ \p43 -> - verify err =<< c_PQputf43 param err fmt p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16 p17 p18 p19 p20 p21 p22 p23 p24 p25 p26 p27 p28 p29 p30 p31 p32 p33 p34 p35 p36 p37 p38 p39 p40 p41 p42 p43 - where - (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41, t42, t43) = row - -instance - ( ToSQL t1, ToSQL t2, ToSQL t3, ToSQL t4, ToSQL t5, ToSQL t6, ToSQL t7 - , ToSQL t8, ToSQL t9, ToSQL t10, ToSQL t11, ToSQL t12, ToSQL t13, ToSQL t14 - , ToSQL t15, ToSQL t16, ToSQL t17, ToSQL t18, ToSQL t19, ToSQL t20, ToSQL t21 - , ToSQL t22, ToSQL t23, ToSQL t24, ToSQL t25, ToSQL t26, ToSQL t27, ToSQL t28 - , ToSQL t29, ToSQL t30, ToSQL t31, ToSQL t32, ToSQL t33, ToSQL t34, ToSQL t35 - , ToSQL t36, ToSQL t37, ToSQL t38, ToSQL t39, ToSQL t40, ToSQL t41, ToSQL t42 - , ToSQL t43, ToSQL t44 - ) => ToRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41, t42, t43, t44) where - toRow row pa param err = withFormat row $ \fmt -> - toSQL t1 pa $ \p1 -> toSQL t2 pa $ \p2 -> toSQL t3 pa $ \p3 -> - toSQL t4 pa $ \p4 -> toSQL t5 pa $ \p5 -> toSQL t6 pa $ \p6 -> - toSQL t7 pa $ \p7 -> toSQL t8 pa $ \p8 -> toSQL t9 pa $ \p9 -> - toSQL t10 pa $ \p10 -> toSQL t11 pa $ \p11 -> toSQL t12 pa $ \p12 -> - toSQL t13 pa $ \p13 -> toSQL t14 pa $ \p14 -> toSQL t15 pa $ \p15 -> - toSQL t16 pa $ \p16 -> toSQL t17 pa $ \p17 -> toSQL t18 pa $ \p18 -> - toSQL t19 pa $ \p19 -> toSQL t20 pa $ \p20 -> toSQL t21 pa $ \p21 -> - toSQL t22 pa $ \p22 -> toSQL t23 pa $ \p23 -> toSQL t24 pa $ \p24 -> - toSQL t25 pa $ \p25 -> toSQL t26 pa $ \p26 -> toSQL t27 pa $ \p27 -> - toSQL t28 pa $ \p28 -> toSQL t29 pa $ \p29 -> toSQL t30 pa $ \p30 -> - toSQL t31 pa $ \p31 -> toSQL t32 pa $ \p32 -> toSQL t33 pa $ \p33 -> - toSQL t34 pa $ \p34 -> toSQL t35 pa $ \p35 -> toSQL t36 pa $ \p36 -> - toSQL t37 pa $ \p37 -> toSQL t38 pa $ \p38 -> toSQL t39 pa $ \p39 -> - toSQL t40 pa $ \p40 -> toSQL t41 pa $ \p41 -> toSQL t42 pa $ \p42 -> - toSQL t43 pa $ \p43 -> toSQL t44 pa $ \p44 -> - verify err =<< c_PQputf44 param err fmt p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16 p17 p18 p19 p20 p21 p22 p23 p24 p25 p26 p27 p28 p29 p30 p31 p32 p33 p34 p35 p36 p37 p38 p39 p40 p41 p42 p43 p44 - where - (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41, t42, t43, t44) = row - -instance - ( ToSQL t1, ToSQL t2, ToSQL t3, ToSQL t4, ToSQL t5, ToSQL t6, ToSQL t7 - , ToSQL t8, ToSQL t9, ToSQL t10, ToSQL t11, ToSQL t12, ToSQL t13, ToSQL t14 - , ToSQL t15, ToSQL t16, ToSQL t17, ToSQL t18, ToSQL t19, ToSQL t20, ToSQL t21 - , ToSQL t22, ToSQL t23, ToSQL t24, ToSQL t25, ToSQL t26, ToSQL t27, ToSQL t28 - , ToSQL t29, ToSQL t30, ToSQL t31, ToSQL t32, ToSQL t33, ToSQL t34, ToSQL t35 - , ToSQL t36, ToSQL t37, ToSQL t38, ToSQL t39, ToSQL t40, ToSQL t41, ToSQL t42 - , ToSQL t43, ToSQL t44, ToSQL t45 - ) => ToRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41, t42, t43, t44, t45) where - toRow row pa param err = withFormat row $ \fmt -> - toSQL t1 pa $ \p1 -> toSQL t2 pa $ \p2 -> toSQL t3 pa $ \p3 -> - toSQL t4 pa $ \p4 -> toSQL t5 pa $ \p5 -> toSQL t6 pa $ \p6 -> - toSQL t7 pa $ \p7 -> toSQL t8 pa $ \p8 -> toSQL t9 pa $ \p9 -> - toSQL t10 pa $ \p10 -> toSQL t11 pa $ \p11 -> toSQL t12 pa $ \p12 -> - toSQL t13 pa $ \p13 -> toSQL t14 pa $ \p14 -> toSQL t15 pa $ \p15 -> - toSQL t16 pa $ \p16 -> toSQL t17 pa $ \p17 -> toSQL t18 pa $ \p18 -> - toSQL t19 pa $ \p19 -> toSQL t20 pa $ \p20 -> toSQL t21 pa $ \p21 -> - toSQL t22 pa $ \p22 -> toSQL t23 pa $ \p23 -> toSQL t24 pa $ \p24 -> - toSQL t25 pa $ \p25 -> toSQL t26 pa $ \p26 -> toSQL t27 pa $ \p27 -> - toSQL t28 pa $ \p28 -> toSQL t29 pa $ \p29 -> toSQL t30 pa $ \p30 -> - toSQL t31 pa $ \p31 -> toSQL t32 pa $ \p32 -> toSQL t33 pa $ \p33 -> - toSQL t34 pa $ \p34 -> toSQL t35 pa $ \p35 -> toSQL t36 pa $ \p36 -> - toSQL t37 pa $ \p37 -> toSQL t38 pa $ \p38 -> toSQL t39 pa $ \p39 -> - toSQL t40 pa $ \p40 -> toSQL t41 pa $ \p41 -> toSQL t42 pa $ \p42 -> - toSQL t43 pa $ \p43 -> toSQL t44 pa $ \p44 -> toSQL t45 pa $ \p45 -> - verify err =<< c_PQputf45 param err fmt p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16 p17 p18 p19 p20 p21 p22 p23 p24 p25 p26 p27 p28 p29 p30 p31 p32 p33 p34 p35 p36 p37 p38 p39 p40 p41 p42 p43 p44 p45 - where - (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41, t42, t43, t44, t45) = row - -instance - ( ToSQL t1, ToSQL t2, ToSQL t3, ToSQL t4, ToSQL t5, ToSQL t6, ToSQL t7 - , ToSQL t8, ToSQL t9, ToSQL t10, ToSQL t11, ToSQL t12, ToSQL t13, ToSQL t14 - , ToSQL t15, ToSQL t16, ToSQL t17, ToSQL t18, ToSQL t19, ToSQL t20, ToSQL t21 - , ToSQL t22, ToSQL t23, ToSQL t24, ToSQL t25, ToSQL t26, ToSQL t27, ToSQL t28 - , ToSQL t29, ToSQL t30, ToSQL t31, ToSQL t32, ToSQL t33, ToSQL t34, ToSQL t35 - , ToSQL t36, ToSQL t37, ToSQL t38, ToSQL t39, ToSQL t40, ToSQL t41, ToSQL t42 - , ToSQL t43, ToSQL t44, ToSQL t45, ToSQL t46 - ) => ToRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41, t42, t43, t44, t45, t46) where - toRow row pa param err = withFormat row $ \fmt -> - toSQL t1 pa $ \p1 -> toSQL t2 pa $ \p2 -> toSQL t3 pa $ \p3 -> - toSQL t4 pa $ \p4 -> toSQL t5 pa $ \p5 -> toSQL t6 pa $ \p6 -> - toSQL t7 pa $ \p7 -> toSQL t8 pa $ \p8 -> toSQL t9 pa $ \p9 -> - toSQL t10 pa $ \p10 -> toSQL t11 pa $ \p11 -> toSQL t12 pa $ \p12 -> - toSQL t13 pa $ \p13 -> toSQL t14 pa $ \p14 -> toSQL t15 pa $ \p15 -> - toSQL t16 pa $ \p16 -> toSQL t17 pa $ \p17 -> toSQL t18 pa $ \p18 -> - toSQL t19 pa $ \p19 -> toSQL t20 pa $ \p20 -> toSQL t21 pa $ \p21 -> - toSQL t22 pa $ \p22 -> toSQL t23 pa $ \p23 -> toSQL t24 pa $ \p24 -> - toSQL t25 pa $ \p25 -> toSQL t26 pa $ \p26 -> toSQL t27 pa $ \p27 -> - toSQL t28 pa $ \p28 -> toSQL t29 pa $ \p29 -> toSQL t30 pa $ \p30 -> - toSQL t31 pa $ \p31 -> toSQL t32 pa $ \p32 -> toSQL t33 pa $ \p33 -> - toSQL t34 pa $ \p34 -> toSQL t35 pa $ \p35 -> toSQL t36 pa $ \p36 -> - toSQL t37 pa $ \p37 -> toSQL t38 pa $ \p38 -> toSQL t39 pa $ \p39 -> - toSQL t40 pa $ \p40 -> toSQL t41 pa $ \p41 -> toSQL t42 pa $ \p42 -> - toSQL t43 pa $ \p43 -> toSQL t44 pa $ \p44 -> toSQL t45 pa $ \p45 -> - toSQL t46 pa $ \p46 -> - verify err =<< c_PQputf46 param err fmt p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16 p17 p18 p19 p20 p21 p22 p23 p24 p25 p26 p27 p28 p29 p30 p31 p32 p33 p34 p35 p36 p37 p38 p39 p40 p41 p42 p43 p44 p45 p46 - where - (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41, t42, t43, t44, t45, t46) = row - -instance - ( ToSQL t1, ToSQL t2, ToSQL t3, ToSQL t4, ToSQL t5, ToSQL t6, ToSQL t7 - , ToSQL t8, ToSQL t9, ToSQL t10, ToSQL t11, ToSQL t12, ToSQL t13, ToSQL t14 - , ToSQL t15, ToSQL t16, ToSQL t17, ToSQL t18, ToSQL t19, ToSQL t20, ToSQL t21 - , ToSQL t22, ToSQL t23, ToSQL t24, ToSQL t25, ToSQL t26, ToSQL t27, ToSQL t28 - , ToSQL t29, ToSQL t30, ToSQL t31, ToSQL t32, ToSQL t33, ToSQL t34, ToSQL t35 - , ToSQL t36, ToSQL t37, ToSQL t38, ToSQL t39, ToSQL t40, ToSQL t41, ToSQL t42 - , ToSQL t43, ToSQL t44, ToSQL t45, ToSQL t46, ToSQL t47 - ) => ToRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41, t42, t43, t44, t45, t46, t47) where - toRow row pa param err = withFormat row $ \fmt -> - toSQL t1 pa $ \p1 -> toSQL t2 pa $ \p2 -> toSQL t3 pa $ \p3 -> - toSQL t4 pa $ \p4 -> toSQL t5 pa $ \p5 -> toSQL t6 pa $ \p6 -> - toSQL t7 pa $ \p7 -> toSQL t8 pa $ \p8 -> toSQL t9 pa $ \p9 -> - toSQL t10 pa $ \p10 -> toSQL t11 pa $ \p11 -> toSQL t12 pa $ \p12 -> - toSQL t13 pa $ \p13 -> toSQL t14 pa $ \p14 -> toSQL t15 pa $ \p15 -> - toSQL t16 pa $ \p16 -> toSQL t17 pa $ \p17 -> toSQL t18 pa $ \p18 -> - toSQL t19 pa $ \p19 -> toSQL t20 pa $ \p20 -> toSQL t21 pa $ \p21 -> - toSQL t22 pa $ \p22 -> toSQL t23 pa $ \p23 -> toSQL t24 pa $ \p24 -> - toSQL t25 pa $ \p25 -> toSQL t26 pa $ \p26 -> toSQL t27 pa $ \p27 -> - toSQL t28 pa $ \p28 -> toSQL t29 pa $ \p29 -> toSQL t30 pa $ \p30 -> - toSQL t31 pa $ \p31 -> toSQL t32 pa $ \p32 -> toSQL t33 pa $ \p33 -> - toSQL t34 pa $ \p34 -> toSQL t35 pa $ \p35 -> toSQL t36 pa $ \p36 -> - toSQL t37 pa $ \p37 -> toSQL t38 pa $ \p38 -> toSQL t39 pa $ \p39 -> - toSQL t40 pa $ \p40 -> toSQL t41 pa $ \p41 -> toSQL t42 pa $ \p42 -> - toSQL t43 pa $ \p43 -> toSQL t44 pa $ \p44 -> toSQL t45 pa $ \p45 -> - toSQL t46 pa $ \p46 -> toSQL t47 pa $ \p47 -> - verify err =<< c_PQputf47 param err fmt p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16 p17 p18 p19 p20 p21 p22 p23 p24 p25 p26 p27 p28 p29 p30 p31 p32 p33 p34 p35 p36 p37 p38 p39 p40 p41 p42 p43 p44 p45 p46 p47 - where - (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41, t42, t43, t44, t45, t46, t47) = row - -instance - ( ToSQL t1, ToSQL t2, ToSQL t3, ToSQL t4, ToSQL t5, ToSQL t6, ToSQL t7 - , ToSQL t8, ToSQL t9, ToSQL t10, ToSQL t11, ToSQL t12, ToSQL t13, ToSQL t14 - , ToSQL t15, ToSQL t16, ToSQL t17, ToSQL t18, ToSQL t19, ToSQL t20, ToSQL t21 - , ToSQL t22, ToSQL t23, ToSQL t24, ToSQL t25, ToSQL t26, ToSQL t27, ToSQL t28 - , ToSQL t29, ToSQL t30, ToSQL t31, ToSQL t32, ToSQL t33, ToSQL t34, ToSQL t35 - , ToSQL t36, ToSQL t37, ToSQL t38, ToSQL t39, ToSQL t40, ToSQL t41, ToSQL t42 - , ToSQL t43, ToSQL t44, ToSQL t45, ToSQL t46, ToSQL t47, ToSQL t48 - ) => ToRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41, t42, t43, t44, t45, t46, t47, t48) where - toRow row pa param err = withFormat row $ \fmt -> - toSQL t1 pa $ \p1 -> toSQL t2 pa $ \p2 -> toSQL t3 pa $ \p3 -> - toSQL t4 pa $ \p4 -> toSQL t5 pa $ \p5 -> toSQL t6 pa $ \p6 -> - toSQL t7 pa $ \p7 -> toSQL t8 pa $ \p8 -> toSQL t9 pa $ \p9 -> - toSQL t10 pa $ \p10 -> toSQL t11 pa $ \p11 -> toSQL t12 pa $ \p12 -> - toSQL t13 pa $ \p13 -> toSQL t14 pa $ \p14 -> toSQL t15 pa $ \p15 -> - toSQL t16 pa $ \p16 -> toSQL t17 pa $ \p17 -> toSQL t18 pa $ \p18 -> - toSQL t19 pa $ \p19 -> toSQL t20 pa $ \p20 -> toSQL t21 pa $ \p21 -> - toSQL t22 pa $ \p22 -> toSQL t23 pa $ \p23 -> toSQL t24 pa $ \p24 -> - toSQL t25 pa $ \p25 -> toSQL t26 pa $ \p26 -> toSQL t27 pa $ \p27 -> - toSQL t28 pa $ \p28 -> toSQL t29 pa $ \p29 -> toSQL t30 pa $ \p30 -> - toSQL t31 pa $ \p31 -> toSQL t32 pa $ \p32 -> toSQL t33 pa $ \p33 -> - toSQL t34 pa $ \p34 -> toSQL t35 pa $ \p35 -> toSQL t36 pa $ \p36 -> - toSQL t37 pa $ \p37 -> toSQL t38 pa $ \p38 -> toSQL t39 pa $ \p39 -> - toSQL t40 pa $ \p40 -> toSQL t41 pa $ \p41 -> toSQL t42 pa $ \p42 -> - toSQL t43 pa $ \p43 -> toSQL t44 pa $ \p44 -> toSQL t45 pa $ \p45 -> - toSQL t46 pa $ \p46 -> toSQL t47 pa $ \p47 -> toSQL t48 pa $ \p48 -> - verify err =<< c_PQputf48 param err fmt p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16 p17 p18 p19 p20 p21 p22 p23 p24 p25 p26 p27 p28 p29 p30 p31 p32 p33 p34 p35 p36 p37 p38 p39 p40 p41 p42 p43 p44 p45 p46 p47 p48 - where - (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41, t42, t43, t44, t45, t46, t47, t48) = row - -instance - ( ToSQL t1, ToSQL t2, ToSQL t3, ToSQL t4, ToSQL t5, ToSQL t6, ToSQL t7 - , ToSQL t8, ToSQL t9, ToSQL t10, ToSQL t11, ToSQL t12, ToSQL t13, ToSQL t14 - , ToSQL t15, ToSQL t16, ToSQL t17, ToSQL t18, ToSQL t19, ToSQL t20, ToSQL t21 - , ToSQL t22, ToSQL t23, ToSQL t24, ToSQL t25, ToSQL t26, ToSQL t27, ToSQL t28 - , ToSQL t29, ToSQL t30, ToSQL t31, ToSQL t32, ToSQL t33, ToSQL t34, ToSQL t35 - , ToSQL t36, ToSQL t37, ToSQL t38, ToSQL t39, ToSQL t40, ToSQL t41, ToSQL t42 - , ToSQL t43, ToSQL t44, ToSQL t45, ToSQL t46, ToSQL t47, ToSQL t48, ToSQL t49 - ) => ToRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41, t42, t43, t44, t45, t46, t47, t48, t49) where - toRow row pa param err = withFormat row $ \fmt -> - toSQL t1 pa $ \p1 -> toSQL t2 pa $ \p2 -> toSQL t3 pa $ \p3 -> - toSQL t4 pa $ \p4 -> toSQL t5 pa $ \p5 -> toSQL t6 pa $ \p6 -> - toSQL t7 pa $ \p7 -> toSQL t8 pa $ \p8 -> toSQL t9 pa $ \p9 -> - toSQL t10 pa $ \p10 -> toSQL t11 pa $ \p11 -> toSQL t12 pa $ \p12 -> - toSQL t13 pa $ \p13 -> toSQL t14 pa $ \p14 -> toSQL t15 pa $ \p15 -> - toSQL t16 pa $ \p16 -> toSQL t17 pa $ \p17 -> toSQL t18 pa $ \p18 -> - toSQL t19 pa $ \p19 -> toSQL t20 pa $ \p20 -> toSQL t21 pa $ \p21 -> - toSQL t22 pa $ \p22 -> toSQL t23 pa $ \p23 -> toSQL t24 pa $ \p24 -> - toSQL t25 pa $ \p25 -> toSQL t26 pa $ \p26 -> toSQL t27 pa $ \p27 -> - toSQL t28 pa $ \p28 -> toSQL t29 pa $ \p29 -> toSQL t30 pa $ \p30 -> - toSQL t31 pa $ \p31 -> toSQL t32 pa $ \p32 -> toSQL t33 pa $ \p33 -> - toSQL t34 pa $ \p34 -> toSQL t35 pa $ \p35 -> toSQL t36 pa $ \p36 -> - toSQL t37 pa $ \p37 -> toSQL t38 pa $ \p38 -> toSQL t39 pa $ \p39 -> - toSQL t40 pa $ \p40 -> toSQL t41 pa $ \p41 -> toSQL t42 pa $ \p42 -> - toSQL t43 pa $ \p43 -> toSQL t44 pa $ \p44 -> toSQL t45 pa $ \p45 -> - toSQL t46 pa $ \p46 -> toSQL t47 pa $ \p47 -> toSQL t48 pa $ \p48 -> - toSQL t49 pa $ \p49 -> - verify err =<< c_PQputf49 param err fmt p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16 p17 p18 p19 p20 p21 p22 p23 p24 p25 p26 p27 p28 p29 p30 p31 p32 p33 p34 p35 p36 p37 p38 p39 p40 p41 p42 p43 p44 p45 p46 p47 p48 p49 - where - (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41, t42, t43, t44, t45, t46, t47, t48, t49) = row - -instance - ( ToSQL t1, ToSQL t2, ToSQL t3, ToSQL t4, ToSQL t5, ToSQL t6, ToSQL t7 - , ToSQL t8, ToSQL t9, ToSQL t10, ToSQL t11, ToSQL t12, ToSQL t13, ToSQL t14 - , ToSQL t15, ToSQL t16, ToSQL t17, ToSQL t18, ToSQL t19, ToSQL t20, ToSQL t21 - , ToSQL t22, ToSQL t23, ToSQL t24, ToSQL t25, ToSQL t26, ToSQL t27, ToSQL t28 - , ToSQL t29, ToSQL t30, ToSQL t31, ToSQL t32, ToSQL t33, ToSQL t34, ToSQL t35 - , ToSQL t36, ToSQL t37, ToSQL t38, ToSQL t39, ToSQL t40, ToSQL t41, ToSQL t42 - , ToSQL t43, ToSQL t44, ToSQL t45, ToSQL t46, ToSQL t47, ToSQL t48, ToSQL t49 - , ToSQL t50 - ) => ToRow (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41, t42, t43, t44, t45, t46, t47, t48, t49, t50) where - toRow row pa param err = withFormat row $ \fmt -> - toSQL t1 pa $ \p1 -> toSQL t2 pa $ \p2 -> toSQL t3 pa $ \p3 -> - toSQL t4 pa $ \p4 -> toSQL t5 pa $ \p5 -> toSQL t6 pa $ \p6 -> - toSQL t7 pa $ \p7 -> toSQL t8 pa $ \p8 -> toSQL t9 pa $ \p9 -> - toSQL t10 pa $ \p10 -> toSQL t11 pa $ \p11 -> toSQL t12 pa $ \p12 -> - toSQL t13 pa $ \p13 -> toSQL t14 pa $ \p14 -> toSQL t15 pa $ \p15 -> - toSQL t16 pa $ \p16 -> toSQL t17 pa $ \p17 -> toSQL t18 pa $ \p18 -> - toSQL t19 pa $ \p19 -> toSQL t20 pa $ \p20 -> toSQL t21 pa $ \p21 -> - toSQL t22 pa $ \p22 -> toSQL t23 pa $ \p23 -> toSQL t24 pa $ \p24 -> - toSQL t25 pa $ \p25 -> toSQL t26 pa $ \p26 -> toSQL t27 pa $ \p27 -> - toSQL t28 pa $ \p28 -> toSQL t29 pa $ \p29 -> toSQL t30 pa $ \p30 -> - toSQL t31 pa $ \p31 -> toSQL t32 pa $ \p32 -> toSQL t33 pa $ \p33 -> - toSQL t34 pa $ \p34 -> toSQL t35 pa $ \p35 -> toSQL t36 pa $ \p36 -> - toSQL t37 pa $ \p37 -> toSQL t38 pa $ \p38 -> toSQL t39 pa $ \p39 -> - toSQL t40 pa $ \p40 -> toSQL t41 pa $ \p41 -> toSQL t42 pa $ \p42 -> - toSQL t43 pa $ \p43 -> toSQL t44 pa $ \p44 -> toSQL t45 pa $ \p45 -> - toSQL t46 pa $ \p46 -> toSQL t47 pa $ \p47 -> toSQL t48 pa $ \p48 -> - toSQL t49 pa $ \p49 -> toSQL t50 pa $ \p50 -> - verify err =<< c_PQputf50 param err fmt p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16 p17 p18 p19 p20 p21 p22 p23 p24 p25 p26 p27 p28 p29 p30 p31 p32 p33 p34 p35 p36 p37 p38 p39 p40 p41 p42 p43 p44 p45 p46 p47 p48 p49 p50 - where - (t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16, t17, t18, t19, t20, t21, t22, t23, t24, t25, t26, t27, t28, t29, t30, t31, t32, t33, t34, t35, t36, t37, t38, t39, t40, t41, t42, t43, t44, t45, t46, t47, t48, t49, t50) = row + toRow () = [] + +instance ToSQL a => ToRow (Identity a) where + toRow (Identity a) = [toPQParam a] + +instance + ( ToSQL a1 + , ToSQL a2 + ) + => ToRow (a1, a2) + where + toRow (a1, a2) = + [toPQParam a1, toPQParam a2] + +instance + ( ToSQL a1 + , ToSQL a2 + , ToSQL a3 + ) + => ToRow (a1, a2, a3) + where + toRow (a1, a2, a3) = + [toPQParam a1, toPQParam a2, toPQParam a3] + +instance + ( ToSQL a1 + , ToSQL a2 + , ToSQL a3 + , ToSQL a4 + ) + => ToRow (a1, a2, a3, a4) + where + toRow (a1, a2, a3, a4) = + [toPQParam a1, toPQParam a2, toPQParam a3, toPQParam a4] + +instance + ( ToSQL a1 + , ToSQL a2 + , ToSQL a3 + , ToSQL a4 + , ToSQL a5 + ) + => ToRow (a1, a2, a3, a4, a5) + where + toRow (a1, a2, a3, a4, a5) = + [toPQParam a1, toPQParam a2, toPQParam a3, toPQParam a4, toPQParam a5] + +instance + ( ToSQL a1 + , ToSQL a2 + , ToSQL a3 + , ToSQL a4 + , ToSQL a5 + , ToSQL a6 + ) + => ToRow (a1, a2, a3, a4, a5, a6) + where + toRow (a1, a2, a3, a4, a5, a6) = + [ toPQParam a1 + , toPQParam a2 + , toPQParam a3 + , toPQParam a4 + , toPQParam a5 + , toPQParam a6 + ] + +instance + ( ToSQL a1 + , ToSQL a2 + , ToSQL a3 + , ToSQL a4 + , ToSQL a5 + , ToSQL a6 + , ToSQL a7 + ) + => ToRow (a1, a2, a3, a4, a5, a6, a7) + where + toRow (a1, a2, a3, a4, a5, a6, a7) = + [ toPQParam a1 + , toPQParam a2 + , toPQParam a3 + , toPQParam a4 + , toPQParam a5 + , toPQParam a6 + , toPQParam a7 + ] + +instance + ( ToSQL a1 + , ToSQL a2 + , ToSQL a3 + , ToSQL a4 + , ToSQL a5 + , ToSQL a6 + , ToSQL a7 + , ToSQL a8 + ) + => ToRow (a1, a2, a3, a4, a5, a6, a7, a8) + where + toRow (a1, a2, a3, a4, a5, a6, a7, a8) = + [ toPQParam a1 + , toPQParam a2 + , toPQParam a3 + , toPQParam a4 + , toPQParam a5 + , toPQParam a6 + , toPQParam a7 + , toPQParam a8 + ] + +instance + ( ToSQL a1 + , ToSQL a2 + , ToSQL a3 + , ToSQL a4 + , ToSQL a5 + , ToSQL a6 + , ToSQL a7 + , ToSQL a8 + , ToSQL a9 + ) + => ToRow (a1, a2, a3, a4, a5, a6, a7, a8, a9) + where + toRow (a1, a2, a3, a4, a5, a6, a7, a8, a9) = + [ toPQParam a1 + , toPQParam a2 + , toPQParam a3 + , toPQParam a4 + , toPQParam a5 + , toPQParam a6 + , toPQParam a7 + , toPQParam a8 + , toPQParam a9 + ] + +instance + ( ToSQL a1 + , ToSQL a2 + , ToSQL a3 + , ToSQL a4 + , ToSQL a5 + , ToSQL a6 + , ToSQL a7 + , ToSQL a8 + , ToSQL a9 + , ToSQL a10 + ) + => ToRow (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10) + where + toRow (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10) = + [ toPQParam a1 + , toPQParam a2 + , toPQParam a3 + , toPQParam a4 + , toPQParam a5 + , toPQParam a6 + , toPQParam a7 + , toPQParam a8 + , toPQParam a9 + , toPQParam a10 + ] diff --git a/src/Database/PostgreSQL/PQTypes/ToSQL.hs b/src/Database/PostgreSQL/PQTypes/ToSQL.hs index 983fdc8..0c125c7 100644 --- a/src/Database/PostgreSQL/PQTypes/ToSQL.hs +++ b/src/Database/PostgreSQL/PQTypes/ToSQL.hs @@ -1,251 +1,320 @@ +{-# LANGUAGE AllowAmbiguousTypes #-} + module Database.PostgreSQL.PQTypes.ToSQL - ( ParamAllocator (..) + ( PQParam (..) + , toPQParam , ToSQL (..) - , putAsPtr ) where +import Control.Exception (throw) +import Data.ByteString qualified as B import Data.ByteString.Char8 qualified as BS import Data.ByteString.Lazy.Char8 qualified as BSL -import Data.ByteString.Unsafe +import Data.IP (IPRange) import Data.Int -import Data.Kind (Type) +import Data.List qualified as L +import Data.Scientific import Data.Text qualified as T -import Data.Text.Encoding import Data.Text.Lazy qualified as TL import Data.Time import Data.UUID.Types qualified as U +import Data.Vector qualified as V import Data.Word -import Foreign.C -import Foreign.Marshal.Alloc -import Foreign.Ptr -import Foreign.Storable +import PostgreSQL.Binary.Encoding qualified as E +import PostgreSQL.Binary.Range (Range) import Database.PostgreSQL.PQTypes.Format -import Database.PostgreSQL.PQTypes.Internal.C.Interface -import Database.PostgreSQL.PQTypes.Internal.C.Types -import Database.PostgreSQL.PQTypes.Internal.Utils - --- | 'alloca'-like producer of 'PGparam' objects. -newtype ParamAllocator = ParamAllocator (forall r. (Ptr PGparam -> IO r) -> IO r) - --- | Class which represents \"from Haskell type --- to SQL (libpqtypes) type\" transformation. -class PQFormat t => ToSQL t where - -- | Destination type (used by libpqtypes). - type PQDest t :: Type - - -- | Put supplied value into inner 'PGparam'. - toSQL - :: t - -- ^ Value to be put. - -> ParamAllocator - -- ^ 'PGparam' allocator. - -> (Ptr (PQDest t) -> IO r) - -- ^ Continuation that puts - -- converted value into inner 'PGparam'. - -> IO r - --- | Function that abstracts away common elements of most 'ToSQL' --- instance definitions to make them easier to write and less verbose. -putAsPtr :: Storable t => t -> (Ptr t -> IO r) -> IO r -putAsPtr x conv = alloca $ \ptr -> poke ptr x >> conv ptr +import Database.PostgreSQL.PQTypes.Internal.Error +import Database.PostgreSQL.PQTypes.Internal.Oid + +-- | Query parameter in the PostgreSQL binary wire format: OID of its type +-- along with the encoded value ('Nothing' represents SQL NULL). +data PQParam = PQParam !Oid !(Maybe BS.ByteString) + deriving stock (Eq, Show) + +-- | Convert a value to a query parameter. +toPQParam :: forall a. ToSQL a => a -> PQParam +toPQParam v = PQParam (pqOid @a) (E.encodingBytes <$> toSQL v) + +-- | Class which represents \"from Haskell type to SQL type\" transformation. +-- +-- Time related instances use encoders for servers that have the +-- @integer_datetimes@ parameter set to @on@, which is the case for all +-- supported versions of PostgreSQL (the ability to compile the server with +-- floating point datetimes was removed in PostgreSQL 10). +class PQFormat a => ToSQL a where + -- | Encode a value in the PostgreSQL binary wire format. + -- 'Nothing' represents SQL NULL. + toSQL :: a -> Maybe E.Encoding + + -- | OID of the innermost elements of an array with values of this type as + -- elements. It coincides with 'pqOid' except for the array wrappers, which + -- pass through the OID of their own innermost elements (an array is of the + -- same type regardless of its number of dimensions, so its type is + -- determined by the innermost elements). + arrayElemOid :: Oid + arrayElemOid = pqOid @a + + -- | Encode a value of this type as an element of an array. For most types + -- this is the encoding of the value itself ('Nothing' becoming a NULL + -- element), but lists and 'V.Vector's instead become an additional + -- dimension of the enclosing array. + arrayElem :: a -> E.Array + arrayElem = maybe E.nullArray E.encodingArray . toSQL + + -- | 'toSQL' of @[a]@: the encoding of an array by default, overridden by + -- 'Char' so that 'String' is encoded as @text@. This is why the 'ToSQL' + -- instance for lists cannot define its methods directly. + toSQLList :: [a] -> Maybe E.Encoding + toSQLList = Just . E.array (unOid $ arrayElemOid @a) . arrayElemList + + -- | 'arrayElemOid' of @[a]@: passed through by default (an array is of + -- the same type regardless of its number of dimensions), overridden by + -- 'Char' with the OID of @text@. + arrayElemOidList :: Oid + arrayElemOidList = arrayElemOid @a + + -- | 'arrayElem' of @[a]@: an additional dimension of the enclosing array + -- by default, overridden by 'Char' with the encoding of the string as + -- @text@. + arrayElemList :: [a] -> E.Array + arrayElemList xs = case raggedDims xs of + Nothing -> E.dimensionArray L.foldl' (arrayElem @a) xs + Just (ds1, ds2) -> raggedArrayError ds1 ds2 + + -- | Dimensions of a value of this type as an element of an array: + -- 'Nothing' for scalars, @Just f@ for lists and 'V.Vector's (which + -- become an additional dimension of the enclosing array instead of + -- elements), where @f@ walks down the first branch of the value + -- collecting lengths: + -- + -- > f [[1,2,3], [4,5,6]] = [2,3] + -- > f [[1,2,3], [4]] = [2,3] + -- + -- Only the first branch is inspected, so as in the second example the + -- result describes the other branches only if the value is rectangular; + -- 'raggedDims' uses it to check exactly that. + arrayElemDims :: Maybe (a -> [Int]) + arrayElemDims = Nothing + + -- | 'arrayElemDims' of @[a]@: an additional dimension of the enclosing + -- array by default, overridden by 'Char' ('String' is a scalar @text@ + -- element, so its length is not a dimension). + arrayElemDimsList :: Maybe ([a] -> [Int]) + arrayElemDimsList = Just $ \xs -> length xs : elemDims xs + + -- The defaults doing per-element work are inlined so that instances in + -- other modules specialize them instead of calling the generically + -- compiled defaults (same as 'fromSQLList' in 'FromSQL'). + {-# INLINE arrayElem #-} + {-# INLINE toSQLList #-} + {-# INLINE arrayElemList #-} + +-- | Check that all elements of an array have the same dimensions +-- ('arrayElemDims'), returning the first differing pair if they don't +-- ('Nothing' right away for scalar elements, which have no dimensions). +-- +-- The binary format cannot represent a ragged array: it consists of a +-- single list of dimensions followed by all the elements in one flat +-- sequence. Without this check, @[[1,2], [3]]@ would be sent as a 2x1 +-- array (the dimensions are taken from the last sub-array) with 3 +-- elements, which the server rejects with an obscure error, while +-- @[[1,2,3], [4], [5,6]]@ would be sent as a 3x2 array with 6 elements, +-- which the server accepts, silently storing @[[1,2], [3,4], [5,6]]@. +-- +-- Comparing the first-branch dimensions of the immediate elements is +-- enough, because encoding runs this check at every level of a nested +-- array (see 'arrayElemList' and 'arrayElem' of 'V.Vector'): +-- +-- * @[[[1,2], [3,4,5]]]@: the check on the outer array passes (there is +-- only one element to take dimensions of), but encoding that element +-- runs the check on @[[1,2], [3,4,5]]@, which compares @[2]@ with +-- @[3]@ and fails. +-- +-- * @[[[1,2]], [[3,4,5]]]@: the checks on the inner arrays pass (one +-- element each), but the check on the outer array compares their +-- dimensions @[1,2]@ with @[1,3]@ and fails. +-- +-- In general, if all the checks pass, then at every level every element +-- has the same dimensions as the first branch, i.e. the whole array is +-- rectangular. +raggedDims :: forall a. ToSQL a => [a] -> Maybe ([Int], [Int]) +raggedDims xs = case arrayElemDims @a of + Nothing -> Nothing + Just f -> case map f xs of + [] -> Nothing + ds : rest -> (ds,) <$> L.find (/= ds) rest + +-- | Dimensions of the first element of an array ('arrayElemDims'), @[]@ if +-- the array is empty or its elements are scalars. +elemDims :: forall a. ToSQL a => [a] -> [Int] +elemDims xs = case (arrayElemDims @a, xs) of + (Just f, x : _) -> f x + _ -> [] + +raggedArrayError :: [Int] -> [Int] -> r +raggedArrayError ds1 ds2 = + throw . HPQTypesError $ + "toSQL: multi-dimensional array is ragged: sub-arrays have dimensions " + ++ show ds1 + ++ " and " + ++ show ds2 -- NULLables -instance ToSQL t => ToSQL (Maybe t) where - type PQDest (Maybe t) = PQDest t - toSQL mt allocParam conv = case mt of - Nothing -> conv nullPtr - Just t -> toSQL t allocParam conv +instance ToSQL a => ToSQL (Maybe a) where + toSQL ma = toSQL =<< ma + arrayElemOid = arrayElemOid @a + arrayElem = maybe E.nullArray (arrayElem @a) + arrayElemDims = maybe [] <$> arrayElemDims @a + +-- ARRAYS + +-- The methods of the list instance are routed through class methods so that +-- the 'Char' instance can override them, making 'String' encode as @text@ +-- instead of an array of single-byte characters. Nested lists (and +-- 'V.Vector's) merge into a single multi-dimensional array via 'arrayElem', +-- with 'arrayElemOid' passing the OID of the innermost elements through to +-- its top level. +instance ToSQL a => ToSQL [a] where + toSQL = toSQLList + arrayElemOid = arrayElemOidList @a + arrayElem = arrayElemList + arrayElemDims = arrayElemDimsList @a + +instance ToSQL a => ToSQL (V.Vector a) where + toSQL = Just . E.array (unOid $ arrayElemOid @a) . arrayElem + arrayElemOid = arrayElemOid @a + arrayElem v = case raggedDims (V.toList v) of + Nothing -> E.dimensionArray V.foldl' (arrayElem @a) v + Just (ds1, ds2) -> raggedArrayError ds1 ds2 + arrayElemDims = Just $ \v -> V.length v : elemDims (V.toList v) -- NUMERICS instance ToSQL Int16 where - type PQDest Int16 = CShort - toSQL n _ = putAsPtr (fromIntegral n) + toSQL = Just . E.int2_int16 instance ToSQL Int32 where - type PQDest Int32 = CInt - toSQL n _ = putAsPtr (fromIntegral n) + toSQL = Just . E.int4_int32 instance ToSQL Int64 where - type PQDest Int64 = CLLong - toSQL n _ = putAsPtr (fromIntegral n) + toSQL = Just . E.int8_int64 instance ToSQL Int where - type PQDest Int = CLLong - toSQL n _ = putAsPtr (fromIntegral n) + toSQL = Just . E.int8_int64 . fromIntegral instance ToSQL Float where - type PQDest Float = CFloat - toSQL n _ = putAsPtr (realToFrac n) + toSQL = Just . E.float4 instance ToSQL Double where - type PQDest Double = CDouble - toSQL n _ = putAsPtr (realToFrac n) + toSQL = Just . E.float8 instance ToSQL Word16 where - type PQDest Word16 = CUShort - toSQL n _ = putAsPtr (fromIntegral n) + toSQL = Just . E.int2_word16 instance ToSQL Word32 where - type PQDest Word32 = CUInt - toSQL n _ = putAsPtr (fromIntegral n) + toSQL = Just . E.int4_word32 instance ToSQL Word64 where - type PQDest Word64 = CULLong - toSQL n _ = putAsPtr (fromIntegral n) + toSQL = Just . E.int8_word64 + +instance ToSQL Word where + toSQL = Just . E.int8_word64 . fromIntegral instance ToSQL Integer where - type PQDest Integer = NumericVar - toSQL n _ k = withIntegerAsNumericVar n $ \nv -> putAsPtr nv k + toSQL = Just . E.numeric . fromInteger + +instance ToSQL Scientific where + toSQL = Just . E.numeric -- CHAR +-- The "char" type stores a single byte, hence characters above '\255' are not +-- representable and the encoding of the rest is the identity, not UTF-8. + instance ToSQL Char where - type PQDest Char = CChar - toSQL c _ conv - | c > '\255' = hpqTypesError $ "toSQL (Char): character " ++ show c ++ " cannot be losslessly converted to CChar" - | otherwise = putAsPtr (castCharToCChar c) conv + toSQL c + | c > '\255' = + throw . HPQTypesError $ + "toSQL (Char): character " ++ show c ++ " cannot be losslessly converted to a single byte" + | otherwise = Just . E.bytea_strict $ BS.singleton c + toSQLList = Just . E.text_strict . T.pack + arrayElemOidList = textOid + arrayElemList = E.encodingArray . E.text_strict . T.pack + arrayElemDimsList = Nothing instance ToSQL Word8 where - type PQDest Word8 = CChar - toSQL c _ = putAsPtr (fromIntegral c) + toSQL = Just . E.bytea_strict . B.singleton -- VARIABLE-LENGTH CHARACTER TYPES --- | Encodes underlying C string as UTF-8, so if you are working --- with a different encoding, you should not rely on this instance. instance ToSQL T.Text where - type PQDest T.Text = PGbytea - toSQL = toSQL . encodeUtf8 + toSQL = Just . E.text_strict --- | Encodes underlying C string as UTF-8, so if you are working --- with a different encoding, you should not rely on this instance. instance ToSQL TL.Text where - type PQDest TL.Text = PGbytea - toSQL = toSQL . TL.toStrict - --- | Encodes underlying C string as UTF-8, so if you are working --- with a different encoding, you should not rely on this instance. -instance ToSQL String where - type PQDest String = PGbytea - toSQL = toSQL . T.pack + toSQL = Just . E.text_lazy instance ToSQL U.UUID where - type PQDest U.UUID = PGuuid - toSQL uuid _ = putAsPtr $ PGuuid w1 w2 w3 w4 - where - (w1, w2, w3, w4) = U.toWords uuid + toSQL = Just . E.uuid -- BYTEA instance ToSQL BS.ByteString where - type PQDest BS.ByteString = PGbytea - toSQL bs _ conv = unsafeUseAsCStringLen bs $ \cslen -> - -- Note: it seems that ByteString can actually store NULL pointer - -- inside. This is bad, since NULL pointers are treated by libpqtypes - -- as NULL values. To get around that, nullStringCStringLen is used - -- (a static pointer to empty string defined on C level). Actually, - -- it would be sufficient to pass any non-NULL pointer there, but - -- this is much uglier and dangerous. - flip putAsPtr conv . cStringLenToBytea $ - if fst cslen == nullPtr - then nullStringCStringLen - else cslen + toSQL = Just . E.bytea_strict instance ToSQL BSL.ByteString where - type PQDest BSL.ByteString = PGbytea - toSQL = toSQL . BSL.toStrict + toSQL = Just . E.bytea_lazy -- DATE instance ToSQL Day where - type PQDest Day = PGdate - toSQL day _ = putAsPtr (dayToPGdate day) + toSQL = Just . E.date -- TIME instance ToSQL TimeOfDay where - type PQDest TimeOfDay = PGtime - toSQL tod _ = putAsPtr (timeOfDayToPGtime tod) + toSQL = Just . E.time_int -- TIMESTAMP instance ToSQL LocalTime where - type PQDest LocalTime = PGtimestamp - toSQL LocalTime {..} _ = - putAsPtr - PGtimestamp - { pgTimestampEpoch = 0 - , pgTimestampDate = dayToPGdate localDay - , pgTimestampTime = timeOfDayToPGtime localTimeOfDay - } + toSQL = Just . E.timestamp_int -- TIMESTAMPTZ instance ToSQL UTCTime where - type PQDest UTCTime = PGtimestamp - toSQL UTCTime {..} _ = - putAsPtr - PGtimestamp - { pgTimestampEpoch = 0 - , pgTimestampDate = dayToPGdate utctDay - , pgTimestampTime = timeOfDayToPGtime $ timeToTimeOfDay utctDayTime - } + toSQL = Just . E.timestamptz_int instance ToSQL ZonedTime where - type PQDest ZonedTime = PGtimestamp - toSQL ZonedTime {..} _ = - putAsPtr - PGtimestamp - { pgTimestampEpoch = 0 - , pgTimestampDate = dayToPGdate $ localDay zonedTimeToLocalTime - , pgTimestampTime = - (timeOfDayToPGtime $ localTimeOfDay zonedTimeToLocalTime) - { pgTimeGMTOff = fromIntegral (timeZoneMinutes zonedTimeZone) * 60 - } - } + toSQL = Just . E.timestamptz_int . zonedTimeToUTC -- BOOL instance ToSQL Bool where - type PQDest Bool = CInt - toSQL True _ = putAsPtr 1 - toSQL False _ = putAsPtr 0 - ----------------------------------------- - -timeOfDayToPGtime :: TimeOfDay -> PGtime -timeOfDayToPGtime TimeOfDay {..} = - PGtime - { pgTimeHour = fromIntegral todHour - , pgTimeMin = fromIntegral todMin - , pgTimeSec = sec - , pgTimeUSec = usec - , pgTimeWithTZ = 0 - , pgTimeIsDST = 0 - , pgTimeGMTOff = 0 - , pgTimeTZAbbr = BS.empty - } - where - (sec, usec) = floor (toRational todSec * 1000000) `divMod` 1000000 - -dayToPGdate :: Day -> PGdate -dayToPGdate day = - PGdate - { pgDateIsBC = isBC - , pgDateYear = fromIntegral $ adjustBC year - , pgDateMon = fromIntegral $ mon - 1 - , pgDateMDay = fromIntegral mday - , pgDateJDay = 0 - , pgDateYDay = 0 - , pgDateWDay = 0 - } - where - (year, mon, mday) = toGregorian day - - -- Note: inverses of appropriate functions - -- in pgDateToDay defined in FromSQL module - isBC = if year <= 0 then 1 else 0 - adjustBC = if isBC == 1 then succ . negate else id + toSQL = Just . E.bool + +-- INET + +instance ToSQL IPRange where + toSQL = Just . E.inet + +-- RANGES + +instance ToSQL (Range Int32) where + toSQL = Just . E.int4range + +instance ToSQL (Range Int64) where + toSQL = Just . E.int8range + +instance ToSQL (Range Scientific) where + toSQL = Just . E.numrange + +instance ToSQL (Range Day) where + toSQL = Just . E.daterange + +instance ToSQL (Range LocalTime) where + toSQL = Just . E.tsrange_int + +instance ToSQL (Range UTCTime) where + toSQL = Just . E.tstzrange_int diff --git a/src/Database/PostgreSQL/PQTypes/Transaction.hs b/src/Database/PostgreSQL/PQTypes/Transaction.hs index 35320bb..fac4ca1 100644 --- a/src/Database/PostgreSQL/PQTypes/Transaction.hs +++ b/src/Database/PostgreSQL/PQTypes/Transaction.hs @@ -19,6 +19,11 @@ import Database.PostgreSQL.PQTypes.Transaction.Settings import Database.PostgreSQL.PQTypes.Utils -- | Wrapper that represents savepoint name. +-- +-- /Warning:/ the name is interpolated verbatim into @SAVEPOINT@, @ROLLBACK TO +-- SAVEPOINT@ and @RELEASE SAVEPOINT@ statements, without any quoting or +-- escaping. It needs to be a valid SQL identifier and must not be constructed +-- from untrusted input, otherwise SQL injection is possible. newtype Savepoint = Savepoint (RawSQL ()) instance IsString Savepoint where diff --git a/src/Database/PostgreSQL/PQTypes/Transaction/Settings.hs b/src/Database/PostgreSQL/PQTypes/Transaction/Settings.hs index a5e946f..7172034 100644 --- a/src/Database/PostgreSQL/PQTypes/Transaction/Settings.hs +++ b/src/Database/PostgreSQL/PQTypes/Transaction/Settings.hs @@ -36,13 +36,13 @@ data TransactionSettings = TransactionSettings , tsConnectionAcquisitionMode :: !ConnectionAcquisitionMode -- ^ Acquisition mode of a database connection. } - deriving (Show) + deriving stock (Show) data IsolationLevel = DefaultLevel | ReadCommitted | RepeatableRead | Serializable - deriving (Eq, Ord, Show) + deriving stock (Eq, Ord, Show) data Permissions = DefaultPermissions | ReadOnly | ReadWrite - deriving (Eq, Ord, Show) + deriving stock (Eq, Ord, Show) -- | Acquisition mode of a database connection. data ConnectionAcquisitionMode @@ -56,7 +56,7 @@ data ConnectionAcquisitionMode -- and permissions and hold onto it for the duration of a -- t'Database.PostgreSQL.PQTypes.Class.MonadDB' constraint in scope. AcquireAndHold !IsolationLevel !Permissions - deriving (Eq, Ord, Show) + deriving stock (Eq, Ord, Show) -- | Default transaction settings. defaultTransactionSettings :: TransactionSettings diff --git a/src/Database/PostgreSQL/PQTypes/XML.hs b/src/Database/PostgreSQL/PQTypes/XML.hs index 1e13074..b8843fb 100644 --- a/src/Database/PostgreSQL/PQTypes/XML.hs +++ b/src/Database/PostgreSQL/PQTypes/XML.hs @@ -2,26 +2,26 @@ module Database.PostgreSQL.PQTypes.XML ( XML (..) ) where -import Data.ByteString.Char8 qualified as BSC import Data.Text +import PostgreSQL.Binary.Decoding qualified as D +import PostgreSQL.Binary.Encoding qualified as E import Database.PostgreSQL.PQTypes.Format import Database.PostgreSQL.PQTypes.FromSQL -import Database.PostgreSQL.PQTypes.Internal.C.Types +import Database.PostgreSQL.PQTypes.Internal.Oid import Database.PostgreSQL.PQTypes.ToSQL -- | Representation of SQL XML types as 'Text'. Users of hpqtypes may -- want to add conversion instances for their favorite XML type around 'XML'. newtype XML = XML {unXML :: Text} - deriving (Eq, Ord, Read, Show) + deriving stock (Eq, Ord, Read, Show) instance PQFormat XML where - pqFormat = BSC.pack "%xml" + pqOid = xmlOid + pqArrayOid = xmlArrayOid instance FromSQL XML where - type PQBase XML = PGbytea - fromSQL = fmap XML . fromSQL + fromSQL = decodeScalar $ XML <$> D.text_strict instance ToSQL XML where - type PQDest XML = PGbytea - toSQL = toSQL . unXML + toSQL = Just . E.text_strict . unXML diff --git a/test/Main.hs b/test/Main.hs index 4a65bb9..2c74c4c 100644 --- a/test/Main.hs +++ b/test/Main.hs @@ -1,885 +1,55 @@ -{-# OPTIONS_GHC -Wno-deprecations -Wno-orphans #-} - module Main (main) where -import Control.Concurrent.Lifted import Control.Monad import Control.Monad.Base import Control.Monad.Catch -import Control.Monad.State qualified as S -import Control.Monad.Trans.Control -import Data.Aeson hiding (()) -import Data.ByteString qualified as BS -import Data.Char -import Data.Function -import Data.Int +import Data.List qualified as L import Data.Maybe +import Data.Proxy import Data.Text qualified as T -import Data.Time -import Data.Typeable -import Data.UUID.Types qualified as U -import Data.Word import System.Environment import System.Exit -import System.Random -import System.Timeout.Lifted -import Test.Framework -import Test.Framework.Providers.HUnit -import Test.HUnit hiding (Test, assertEqual) -import Test.QuickCheck -import Test.QuickCheck.Gen +import System.Random (randomIO) import Test.QuickCheck.Random -import TextShow +import Test.Tasty +import Test.Tasty.Options import Data.Monoid.Utils import Database.PostgreSQL.PQTypes -import Prelude.Instances () -import Test.Aeson.Compat (Value0) -import Test.QuickCheck.Arbitrary.Instances - -type InnerTestEnv = S.StateT QCGen (DBT IO) - -newtype TestEnv a = TestEnv {unTestEnv :: InnerTestEnv a} - deriving - ( Applicative - , Functor - , Monad - , MonadFail - , MonadBase IO - , MonadCatch - , MonadDB - , MonadMask - , MonadThrow - ) - -instance MonadBaseControl IO TestEnv where - type StM TestEnv a = StM InnerTestEnv a - liftBaseWith f = TestEnv $ liftBaseWith (\run -> f $ run . unTestEnv) - restoreM = TestEnv . restoreM - -withQCGen :: (QCGen -> r) -> TestEnv r -withQCGen f = do - gen <- TestEnv $ S.state split - pure (f gen) - ----------------------------------------- - -type TestData = (QCGen, ConnectionSettings) - -runTestEnv :: TestData -> TransactionSettings -> TestEnv a -> IO a -runTestEnv (env, connSettings) ts m = runDBT cs ts $ S.evalStateT (unTestEnv m) env - where - ConnectionSource cs = simpleSource connSettings - -runTimes :: Monad m => Int -> m () -> m () -runTimes !n m = case n of - 0 -> pure () - _ -> m >> runTimes (n - 1) m - ----------------------------------------- - -newtype AsciiChar = AsciiChar {unAsciiChar :: Char} - deriving (Eq, Show) - -instance PQFormat AsciiChar where - pqFormat = pqFormat @Char - -instance ToSQL AsciiChar where - type PQDest AsciiChar = PQDest Char - toSQL = toSQL . unAsciiChar - -instance FromSQL AsciiChar where - type PQBase AsciiChar = PQBase Char - fromSQL = fmap AsciiChar . fromSQL - -instance Arbitrary AsciiChar where - -- QuickCheck >= 2.10 changed Arbitrary Char instance to include proper - -- Unicode CharS, but PostgreSQL only accepts ASCII ones. - arbitrary = AsciiChar . chr <$> oneof [choose (0, 127), choose (0, 255)] - shrink = map AsciiChar . shrink . unAsciiChar - -instance Arbitrary Interval where - arbitrary = - Interval - <$> abs `fmap` arbitrary - <*> choose (0, 11) - <*> choose (0, 364) - <*> choose (0, 23) - <*> choose (0, 59) - <*> choose (0, 59) - <*> choose (0, 999999) - -instance (Arbitrary a1, Arbitrary a2) => Arbitrary (a1 :*: a2) where - arbitrary = (:*:) <$> arbitrary <*> arbitrary - -instance Arbitrary a => Arbitrary (Composite a) where - arbitrary = Composite <$> arbitrary - -instance Arbitrary json => Arbitrary (JSON json) where - arbitrary = JSON <$> arbitrary - -instance Arbitrary jsonb => Arbitrary (JSONB jsonb) where - arbitrary = JSONB <$> arbitrary - -instance Arbitrary a => Arbitrary (Array1 a) where - arbitrary = arbitraryArray1 Array1 - -instance Arbitrary a => Arbitrary (CompositeArray1 a) where - arbitrary = arbitraryArray1 CompositeArray1 - -instance Arbitrary a => Arbitrary (Array2 a) where - arbitrary = arbitraryArray2 Array2 - -instance Arbitrary a => Arbitrary (CompositeArray2 a) where - arbitrary = arbitraryArray2 CompositeArray2 - -arbitraryArray1 :: Arbitrary a => (a -> b) -> Gen b -arbitraryArray1 arr1 = arr1 <$> arbitrary - -arbitraryArray2 :: Arbitrary a => ([[a]] -> b) -> Gen b -arbitraryArray2 arr2 = do - let bound = (`mod` 100) . abs - outerDim <- bound <$> arbitrary - innerDim <- bound <$> arbitrary - arr2 <$> vectorOf outerDim (vectorOf innerDim arbitrary) - ----------------------------------------- - -data Simple = Simple (Maybe Int32) (Maybe Day) - deriving (Eq, Ord, Show) - -type instance CompositeRow Simple = (Maybe Int32, Maybe Day) - -instance PQFormat Simple where - pqFormat = "%simple_" -instance CompositeFromSQL Simple where - toComposite (a, b) = Simple a b -instance CompositeToSQL Simple where - fromComposite (Simple a b) = (a, b) - -instance Arbitrary Simple where - arbitrary = Simple <$> arbitrary <*> arbitrary - -data Nested = Nested (Maybe Double) (Maybe Simple) - deriving (Eq, Ord, Show) - -type instance CompositeRow Nested = (Maybe Double, Maybe (Composite Simple)) - -instance PQFormat Nested where - pqFormat = "%nested_" -instance CompositeFromSQL Nested where - toComposite (a, b) = Nested a (unComposite <$> b) -instance CompositeToSQL Nested where - fromComposite (Nested a b) = (a, Composite <$> b) - -instance Arbitrary Nested where - arbitrary = Nested <$> arbitrary <*> arbitrary - ----------------------------------------- - -epsilon :: Fractional a => a -epsilon = 0.00001 - -eqTOD :: TimeOfDay -> TimeOfDay -> Bool -eqTOD a b = - (todHour a == todHour b) - && (todMin a == todMin b) - && (abs (todSec a - todSec b) < epsilon) - -eqLT :: LocalTime -> LocalTime -> Bool -eqLT a b = - (localDay a == localDay b) - && (localTimeOfDay a `eqTOD` localTimeOfDay b) - -eqUTCT :: UTCTime -> UTCTime -> Bool -eqUTCT a b = - (utctDay a == utctDay b) - && (abs (utctDayTime a - utctDayTime b) < epsilon) - -eqArray2 :: Eq a => Array2 a -> Array2 a -> Bool -eqArray2 (Array2 []) (Array2 arr) = all null arr -eqArray2 (Array2 arr) (Array2 []) = all null arr -eqArray2 a b = a == b - -eqCompositeArray2 :: Eq a => CompositeArray2 a -> CompositeArray2 a -> Bool -eqCompositeArray2 (CompositeArray2 []) (CompositeArray2 arr) = all null arr -eqCompositeArray2 (CompositeArray2 arr) (CompositeArray2 []) = all null arr -eqCompositeArray2 a b = a == b - ----------------------------------------- - -randomValue :: Arbitrary t => Int -> TestEnv t -randomValue n = withQCGen $ \gen -> unGen arbitrary gen n - -assertEqual - :: (Show a, MonadBase IO m) - => String - -> a - -> a - -> (a -> a -> Bool) - -> m () -assertEqual preface expected actual eq = - liftBase $ unless (actual `eq` expected) (assertFailure msg) - where - msg = - (if null preface then "" else preface ++ "\n") ++ ("expected: " ++ show expected ++ "\n but got: " ++ show actual) - -assertEqualEq :: (Eq a, Show a, MonadBase IO m) => String -> a -> a -> m () -assertEqualEq preface expected actual = assertEqual preface expected actual (==) - ----------------------------------------- - -sqlGenInts :: Int32 -> SQL -sqlGenInts n = - smconcat - [ "WITH RECURSIVE ints(n) AS" - , "( VALUES (1) UNION ALL SELECT n+1 FROM ints WHERE n <" n - , ") SELECT n FROM ints" - ] - -cursorTest :: TestData -> Test -cursorTest td = - testGroup - "Cursors" - [ basicCursorWorks - , scrollableCursorWorks - , withHoldCursorWorks - , doubleCloseWorks - , cleanupDoesNotMaskErrors - ] - where - basicCursorWorks = testCase "Basic cursor works" $ do - runTestEnv td defaultTransactionSettings $ do - withCursor "ints" NoScroll NoHold (sqlGenInts 5) $ \cursor -> do - xs <- (`fix` []) $ \loop acc -> - cursorFetch cursor CD_Next >>= \case - 0 -> pure $ reverse acc - 1 -> do - (n :: Int32) <- fetchOne runIdentity - loop $ n : acc - n -> error $ "Unexpected number of rows: " ++ show n - assertEqualEq "Data fetched correctly" [1 .. 5] xs - scrollableCursorWorks = testCase "Cursor declared as SCROLL works" $ do - runTestEnv td defaultTransactionSettings $ do - withCursor "ints" Scroll NoHold (sqlGenInts 10) $ \cursor -> do - checkMove cursor CD_Next 1 - checkMove cursor CD_Prior 0 - checkMove cursor CD_First 1 - checkMove cursor CD_Last 1 - checkMove cursor CD_Backward_All 9 - checkMove cursor CD_Forward_All 10 - checkMove cursor (CD_Absolute 0) 0 - checkMove cursor (CD_Relative 0) 0 - checkMove cursor (CD_Forward 5) 5 - checkMove cursor (CD_Backward 5) 4 - - cursorFetch_ cursor CD_Forward_All - xs1 :: [Int32] <- fetchMany runIdentity - assertEqualEq "xs1 is correct" [1 .. 10] xs1 - cursorFetch_ cursor CD_Backward_All - xs2 :: [Int32] <- fetchMany runIdentity - assertEqualEq "xs2 is correct" (reverse [1 .. 10]) xs2 - where - checkMove cursor cd expected = do - moved <- cursorMove cursor cd - assertEqualEq - ( "Moving cursor with" - <+> show cd - <+> "would fetch a correct amount of rows" - ) - expected - moved - - withHoldCursorWorks = testCase "Cursor declared as WITH HOLD works" $ do - runTestEnv td defaultTransactionSettings . unsafeWithoutTransaction $ do - withCursor "ints" NoScroll Hold (sqlGenInts 10) $ \cursor -> do - cursorFetch_ cursor CD_Forward_All - sum_ :: Int32 <- sum . fmap runIdentity <$> queryResult - assertEqualEq "sum_ is correct" 55 sum_ - - doubleCloseWorks = testCase "Double CLOSE works on a cursor" $ do - runTestEnv td defaultTransactionSettings $ do - withCursorSQL "ints" NoScroll NoHold "SELECT 1" $ \_cursor -> do - -- Commiting a transaction closes the cursor - commit - - cleanupDoesNotMaskErrors = testCase "Cursor cleanup doesn't mask the original error" $ do - runTestEnv td defaultTransactionSettings $ do - -- The failing query puts the transaction in the aborted state, in - -- which closing the cursor fails with in_failed_sql_transaction. The - -- original error needs to propagate regardless. - eres <- try . withCursorSQL "ints" NoScroll NoHold (sqlGenInts 5) $ \_cursor -> do - runSQL_ "SELECT 1/0" - liftBase $ case eres :: Either DBException () of - Left DBException {..} - | Just DetailedQueryError {..} <- cast dbeError -> do - assertEqualEq "Unexpected error code" DivisionByZero qeErrorCode - | otherwise -> assertFailure $ "Unexpected exception: " ++ show dbeError - Right () -> assertFailure "DBException wasn't thrown" - -queryInterruptionTest :: TestData -> Test -queryInterruptionTest td = testCase "Queries are interruptible" $ do - let sleep = "SELECT pg_sleep(2)" - ints = sqlGenInts 5000000 - runTestEnv td defaultTransactionSettings . unsafeWithoutTransaction $ do - testQuery id sleep - testQuery id ints - runTestEnv td defaultTransactionSettings $ do - testQuery (withSavepoint "ints") ints - testQuery (withSavepoint "sleep") sleep - where - testQuery m sql = - timeout 500000 (m $ runSQL_ sql) >>= \case - Just _ -> liftBase $ do - assertFailure $ "Query" <+> show sql <+> "wasn't interrupted in time" - Nothing -> pure () - -finalizationInterruptionTest :: TestData -> Test -finalizationInterruptionTest td = testCase - "Interrupted connection finalization doesn't deadlock other threads" - $ do - queryDone <- newEmptyMVar - -- Exit the runDBT scope while the forked thread is still using the - -- connection, so that the finalization blocks on the connection state - -- MVar, and interrupt it with a timeout. - eres <- timeout 500000 . runTestEnv td defaultTransactionSettings $ do - _ <- fork $ do - runSQL_ "SELECT pg_sleep(2)" - putMVar queryDone () - threadDelay 200000 - case eres of - Just _ -> assertFailure "Connection finalization wasn't interrupted in time" - Nothing -> pure () - -- The forked thread needs to be able to finish, i.e. to return the - -- connection state to the MVar once its query completes. - timeout 5000000 (takeMVar queryDone) >>= \case - Just () -> pure () - Nothing -> assertFailure "Forked thread deadlocked on the connection state MVar" - -autocommitTest :: TestData -> Test -autocommitTest td = testCase "Autocommit mode works" - . runTestEnv td defaultTransactionSettings - . unsafeWithoutTransaction - $ do - let sint = Identity (1 :: Int32) - runQuery_ $ rawSQL "INSERT INTO test1_ (a) VALUES ($1)" sint - withNewConnection $ do - n <- runQuery $ rawSQL "SELECT a FROM test1_ WHERE a = $1" sint - assertEqualEq "Other connection sees autocommited data" 1 n - runQuery_ $ rawSQL "DELETE FROM test1_ WHERE a = $1" sint - -setRoleTest :: TestData -> Test -setRoleTest td = testCase "SET ROLE works" . bracket createRole dropRole $ \case - False -> putStrLn "Cannot create role, skipping SET ROLE test" - True -> do - runDBT roledCs defaultTransactionSettings $ do - runSQL_ "SELECT CURRENT_USER::text" - role <- fetchOne (runIdentity @String) - assertEqualEq "Role set successfully" testRole role - where - testRole :: String - testRole = "hpqtypes_test_role" - - ConnectionSource roledCs = - simpleSource $ - (snd td) - { csRole = Just $ unsafeSQL testRole - } - - createRole = runTestEnv td defaultTransactionSettings $ do - try (runSQL_ $ "CREATE ROLE" <+> unsafeSQL testRole) >>= \case - Right () -> pure True - Left DBException {} -> pure False - - dropRole = \case - False -> pure () - True -> runTestEnv td defaultTransactionSettings $ do - runSQL_ $ "DROP ROLE" <+> unsafeSQL testRole - -preparedStatementTest :: TestData -> Test -preparedStatementTest td = testCase "Execution of prepared statements works" - . runTestEnv td defaultTransactionSettings - $ do - let name = "select1" - - checkPrepared name "Statement is not prepared" 0 - execPrepared name 42 - checkPrepared name "Statement is prepared" 1 - execPrepared name 89 - - let i3 = "lalala" :: String - -- Changing parameter type in an already prepared statement shouldn't work. - o3 <- try . runPreparedQuery_ name $ ("SELECT" i3) - case o3 of - Left DBException {} -> pure () - Right r3 -> liftBase . assertFailure $ "Expected DBException, but got" <+> show r3 - where - checkPrepared :: QueryName -> String -> Int -> TestEnv () - checkPrepared (QueryName name) assertTitle expected = do - n <- runSQL $ "SELECT TRUE FROM pg_prepared_statements WHERE name =" name - assertEqualEq assertTitle expected n - - execPrepared :: QueryName -> Int32 -> TestEnv () - execPrepared name input = do - runPreparedQuery_ name $ "SELECT" input - output <- fetchOne runIdentity - assertEqualEq "Results match" input output - -readOnlyTest :: TestData -> Test -readOnlyTest td = testCase "Read only transaction mode works" - . runTestEnv - td - defaultTransactionSettings {tsConnectionAcquisitionMode = AcquireAndHold DefaultLevel ReadOnly} - $ do - let sint = Identity (2 :: Int32) - eres <- try . runQuery_ $ rawSQL "INSERT INTO test1_ (a) VALUES ($1)" sint - case eres :: Either DBException () of - Left _ -> pure () - Right _ -> liftBase . assertFailure $ "DBException wasn't thrown" - rollback - n <- runQuery $ rawSQL "SELECT a FROM test1_ WHERE a = $1" sint - assertEqualEq "SELECT works in read only mode" 0 n - -savepointTest :: TestData -> Test -savepointTest td = testCase "Savepoint support works" - . runTestEnv td defaultTransactionSettings - $ do - let int1 = 3 :: Int32 - int2 = 4 :: Int32 - - -- action executed within withSavepoint throws - runQuery_ $ rawSQL "INSERT INTO test1_ (a) VALUES ($1)" (Identity int1) - _ :: Either DBException () <- try . withSavepoint (Savepoint "test") $ do - runQuery_ $ rawSQL "INSERT INTO test1_ (a) VALUES ($1)" (Identity int2) - runSQL_ "SELECT * FROM table_that_is_not_there" - runQuery_ $ rawSQL "SELECT a FROM test1_ WHERE a IN ($1, $2)" (int1, int2) - res1 <- fetchMany runIdentity - assertEqualEq "Part of transaction was rolled back" [int1] res1 - - rollback - - -- action executed within withSavepoint doesn't throw - runQuery_ $ rawSQL "INSERT INTO test1_ (a) VALUES ($1)" (Identity int1) - withSavepoint (Savepoint "test") $ do - runQuery_ $ rawSQL "INSERT INTO test1_ (a) VALUES ($1)" (Identity int2) - runQuery_ $ - rawSQL - "SELECT a FROM test1_ WHERE a IN ($1, $2) ORDER BY a" - (int1, int2) - res2 <- fetchMany runIdentity - assertEqualEq "Result of all queries is visible" [int1, int2] res2 - -notifyTest :: TestData -> Test -notifyTest td = testCase "Notifications work" . runTestEnv td defaultTransactionSettings . unsafeWithoutTransaction $ do - listen chan - forkNewConn $ notify chan payload - mnt1 <- getNotification 250000 - liftBase $ assertBool "Notification received" (isJust mnt1) - Just nt1 <- pure mnt1 - assertEqualEq "Channels are equal" chan (ntChannel nt1) - assertEqualEq "Payloads are equal" payload (ntPayload nt1) - - unlisten chan - forkNewConn $ notify chan payload - mnt2 <- getNotification 250000 - assertEqualEq "No notification received after unlisten" Nothing mnt2 - - listen chan - unlistenAll - forkNewConn $ notify chan payload - mnt3 <- getNotification 250000 - assertEqualEq "No notification received after unlistenAll" Nothing mnt3 - where - chan = "test_channel" - payload = "test_payload" - forkNewConn action = do - sem <- newEmptyMVar - void . fork . withNewConnection $ do - -- withNewConnection needs access to the connection state to get current - -- ConnectionAcquisitionMode, but getNotification called immediately - -- after takes ownership of the connection state for its duration, so if - -- CPU gets to it first, withNewConnection will block and notification - -- will never be sent. - putMVar sem () - action - takeMVar sem - -transactionTest :: TestData -> IsolationLevel -> Test -transactionTest td lvl = - testCase - ( "Auto transaction works by default with isolation level" - <+> show lvl - ) - . runTestEnv - td - defaultTransactionSettings {tsConnectionAcquisitionMode = AcquireAndHold lvl DefaultPermissions} - $ do - let sint = Identity (5 :: Int32) - runQuery_ $ rawSQL "INSERT INTO test1_ (a) VALUES ($1)" sint - withNewConnection $ do - n <- runQuery $ rawSQL "SELECT a FROM test1_ WHERE a = $1" sint - assertEqualEq "Other connection doesn't see uncommited data" 0 n - rollback - -nullTest - :: forall t - . (Show t, ToSQL t, FromSQL t, Typeable t) - => TestData - -> t - -> Test -nullTest td t = testCase - ( "Attempt to get non-NULL value of type" - <+> show (typeOf t) - <+> "fails if NULL is provided" - ) - . runTestEnv td defaultTransactionSettings - $ do - runSQL_ $ "SELECT" (Nothing :: Maybe t) - eres <- try $ fetchOne runIdentity - case eres :: Either DBException t of - Left _ -> pure () - Right _ -> liftBase . assertFailure $ "DBException wasn't thrown" - -putGetTest - :: forall t - . (Arbitrary t, Show t, ToSQL t, FromSQL t, Typeable t) - => TestData - -> Int - -> t - -> (t -> t -> Bool) - -> Test -putGetTest td n t eq = testCase - ( "Putting value of type" - <+> show (typeOf t) - <+> "through database doesn't change its value" - ) - . runTestEnv td defaultTransactionSettings - . runTimes 1000 - $ do - v :: t <- randomValue n - -- liftBase . putStrLn . show $ v - runSQL_ $ "SELECT" v - v' <- fetchOne runIdentity - assertEqual "Value doesn't change after getting through database" v v' eq - -uuidTest :: TestData -> Test -uuidTest td = testCase "UUID encoding / decoding test" $ do - let uuidStr = "550e8400-e29b-41d4-a716-446655440000" - Just uuid <- pure $ U.fromText uuidStr - runTestEnv td defaultTransactionSettings $ do - runSQL_ . mkSQL $ ("SELECT '" `mappend` uuidStr `mappend` "' :: uuid") - uuid2 <- fetchOne runIdentity - assertEqual "UUID is decoded correctly" uuid uuid2 (==) - - runQuery_ $ rawSQL " SELECT $1 :: text" (Identity uuid) - uuidStr2 <- fetchOne runIdentity - assertEqual "UUID is encoded correctly" uuidStr uuidStr2 (==) - -integerTest :: TestData -> Test -integerTest td = testCase "Integer decoding from numeric works" - . runTestEnv td defaultTransactionSettings - . forM_ values - $ \n -> do - -- The server strips trailing zero base-10000 digit groups from the wire - -- representation of numeric, so values that are multiples of 10000 arrive - -- with fewer digits than their weight indicates. - runSQL_ . mkSQL $ "SELECT " <> showt n <> " :: numeric" - n' <- fetchOne runIdentity - assertEqualEq ("Integer" <+> show n <+> "is decoded correctly") n n' - - runQuery_ $ rawSQL "SELECT $1" (Identity n) - n'' <- fetchOne runIdentity - assertEqualEq ("Integer" <+> show n <+> "roundtrips correctly") n n'' - where - values :: [Integer] - values = - [ 0 - , 1 - , -1 - , 9999 - , 10000 - , -10000 - , 10001 - , 99990000 - , 100000000 - , 1000000000000 - , -1000000000000 - , 123400005678 - , 10 ^ (100 :: Int) - , negate $ 10 ^ (100 :: Int) - , 10 ^ (100 :: Int) + 1 - ] - -xmlTest :: TestData -> Test -xmlTest td = testCase "Put and get XML value works" - . runTestEnv td defaultTransactionSettings - $ do - runSQL_ "SET CLIENT_ENCODING TO 'UTF8'" - let v = XML "somestringå" - runSQL_ "SELECT XML 'somestringå'" - v' <- fetchOne runIdentity - assertEqualEq "XML value correct" v v' - runSQL_ $ "SELECT" v - v'' <- fetchOne runIdentity - assertEqualEq "XML value correct" v v'' - runSQL_ "SET CLIENT_ENCODING TO 'latin-1'" - -onDemandTest :: TestData -> Test -onDemandTest td = testCase "OnDemand mode works" . runTestEnv td ts $ do - runSQL_ "SELECT a FROM test1_" - _ <- fetchMany $ id @(Identity Int32) - - er <- try . runSQL_ $ "INSERT INTO test1_ (a) VALUES (" v <+> ")" - liftBase $ case er of - Left DBException {..} - | Just DetailedQueryError {..} <- cast dbeError -> do - assertEqualEq "Unexpected error code" ReadOnlySqlTransaction qeErrorCode - | otherwise -> assertFailure $ "Unexpected exception: " ++ show dbeError - Right () -> assertFailure "DBException wasn't thrown" - - acquireAndHoldConnection DefaultLevel DefaultPermissions - runSQL_ "SHOW transaction_read_only" - Identity ("off" :: T.Text) <- fetchOne id - -- Switch twice to check idempotency. - acquireAndHoldConnection DefaultLevel DefaultPermissions - runSQL_ $ "INSERT INTO test1_ (a) VALUES (" v <+> ")" - - unsafeAcquireOnDemandConnection - runSQL_ "SHOW transaction_read_only" - Identity ("on" :: T.Text) <- fetchOne id - -- Switch twice to check idempotency. - unsafeAcquireOnDemandConnection - n <- runSQL $ "SELECT TRUE FROM test1_ WHERE a =" v - assertEqualEq "Unexpected amount of rows" 1 n - where - ts = defaultTransactionSettings {tsConnectionAcquisitionMode = AcquireOnDemand} - - v :: Int32 - v = 1337 - -commitFailureTest :: TestData -> Test -commitFailureTest td = testCase - "Transaction is active after a failed commit" - . runTestEnv td defaultTransactionSettings - $ do - runSQL_ "CREATE TABLE commit_failure_ (a INTEGER UNIQUE DEFERRABLE INITIALLY DEFERRED)" - commit - (`finally` cleanup) $ do - -- Deferred constraint violation makes the COMMIT fail. - runSQL_ "INSERT INTO commit_failure_ (a) VALUES (1), (1)" - eres <- try commit - liftBase $ case eres :: Either DBException () of - Left DBException {..} - | Just DetailedQueryError {..} <- cast dbeError -> do - assertEqualEq "Unexpected error code" UniqueViolation qeErrorCode - | otherwise -> assertFailure $ "Unexpected exception: " ++ show dbeError - Right () -> assertFailure "DBException wasn't thrown" - -- A new transaction needs to be active at this point, so a write made - -- after the failed commit must be reverted by a rollback. - runSQL_ "INSERT INTO commit_failure_ (a) VALUES (2)" - rollback - n <- runSQL "SELECT a FROM commit_failure_" - assertEqualEq "Unexpected number of rows" 0 n - where - cleanup = do - rollback - runSQL_ "DROP TABLE commit_failure_" - commit - -acquisitionModeChangeFailureTest :: TestData -> Test -acquisitionModeChangeFailureTest td = testCase - "Connection state is usable after a failed acquisition mode change" - . runTestEnv td defaultTransactionSettings - $ do - -- Violate a deferred constraint so that the COMMIT issued by - -- unsafeAcquireOnDemandConnection fails. - runSQL_ "CREATE TABLE mode_change_ (a INTEGER UNIQUE DEFERRABLE INITIALLY DEFERRED)" - runSQL_ "INSERT INTO mode_change_ (a) VALUES (1), (1)" - eres <- try unsafeAcquireOnDemandConnection - liftBase $ case eres of - Left DBException {..} - | Just DetailedQueryError {..} <- cast dbeError -> do - assertEqualEq "Unexpected error code" UniqueViolation qeErrorCode - | otherwise -> assertFailure $ "Unexpected exception: " ++ show dbeError - Right () -> assertFailure "DBException wasn't thrown" - - -- The failed COMMIT returned the connection to its source, so the - -- connection state needs to be on demand now. In particular, it must not - -- refer to the connection that is already gone. - mode <- getConnectionAcquisitionMode - assertEqualEq "Unexpected connection acquisition mode" AcquireOnDemand mode - runSQL_ "SELECT 1" - n <- fetchOne $ runIdentity @Int32 - assertEqualEq "Unexpected query result" 1 n - -rowTest - :: forall row - . (Arbitrary row, Eq row, Show row, ToRow row, FromRow row) - => TestData - -> row - -> Test -rowTest td _r = testCase - ( "Putting row of length" - <+> show (pqVariables @row) - <+> "through database works" - ) - . runTestEnv td defaultTransactionSettings - . runTimes 100 - $ do - row :: row <- randomValue 100 - let fmt = mintercalate ", " $ map (T.append "$" . showt) [1 .. pqVariables @row] - runQuery_ $ rawSQL ("SELECT" <+> fmt) row - row' <- fetchOne id - assertEqualEq "Row doesn't change after getting through database" row row' - -_printTime :: MonadBase IO m => m a -> m a -_printTime m = do - t <- liftBase getCurrentTime - res <- m - t' <- liftBase getCurrentTime - liftBase . putStrLn $ "Time: " ++ show (diffUTCTime t' t) - pure res - -tests :: TestData -> [Test] +import Test.Array +import Test.Connection +import Test.Cursor +import Test.Enum +import Test.Env +import Test.RowDecoder +import Test.Transaction +import Test.Tuples +import Test.Types + +-- | Seed of the random value generator. Every test starts from the same +-- initial generator derived from it, so a run is reproducible even though +-- tests run in parallel. +newtype Seed = Seed (Maybe Int) + +instance IsOption Seed where + defaultValue = Seed Nothing + parseValue = fmap (Seed . Just) . safeRead + optionName = pure "seed" + optionHelp = pure "Seed of the random value generator (random by default)" + +tests :: TestData -> [TestTree] tests td = - [ autocommitTest td - , setRoleTest td - , preparedStatementTest td - , xmlTest td - , readOnlyTest td - , savepointTest td - , notifyTest td - , queryInterruptionTest td - , finalizationInterruptionTest td - , cursorTest td - , uuidTest td - , integerTest td - , onDemandTest td - , acquisitionModeChangeFailureTest td - , commitFailureTest td - , transactionTest td ReadCommitted - , transactionTest td RepeatableRead - , transactionTest td Serializable - , nullTest td (u :: Int16) - , nullTest td (u :: Int32) - , nullTest td (u :: Int64) - , nullTest td (u :: Float) - , nullTest td (u :: Double) - , nullTest td (u :: Bool) - , nullTest td (u :: AsciiChar) - , nullTest td (u :: Word8) - , nullTest td (u :: Word16) - , nullTest td (u :: Word32) - , nullTest td (u :: Word64) - , nullTest td (u :: Integer) - , nullTest td (u :: String) - , nullTest td (u :: BS.ByteString) - , nullTest td (u :: T.Text) - , nullTest td (u :: U.UUID) - , nullTest td (u :: JSON Value) - , nullTest td (u :: JSONB Value) - , nullTest td (u :: XML) - , nullTest td (u :: Interval) - , nullTest td (u :: Day) - , nullTest td (u :: TimeOfDay) - , nullTest td (u :: LocalTime) - , nullTest td (u :: UTCTime) - , nullTest td (u :: Array1 Int32) - , nullTest td (u :: Array2 Double) - , nullTest td (u :: Composite Simple) - , nullTest td (u :: CompositeArray1 Simple) - , nullTest td (u :: CompositeArray2 Simple) - , putGetTest td 100 (u :: Int16) (==) - , putGetTest td 100 (u :: Int32) (==) - , putGetTest td 100 (u :: Int64) (==) - , putGetTest td 10000 (u :: Float) (==) - , putGetTest td 10000 (u :: Double) (==) - , putGetTest td 100 (u :: Bool) (==) - , putGetTest td 100 (u :: AsciiChar) (==) - , putGetTest td 100 (u :: Word8) (==) - , putGetTest td 100 (u :: Word16) (==) - , putGetTest td 100 (u :: Word32) (==) - , putGetTest td 100 (u :: Word64) (==) - , putGetTest td 1000000000000 (u :: Integer) (==) - , putGetTest td 1000 (u :: String0) (==) - , putGetTest td 1000 (u :: BS.ByteString) (==) - , putGetTest td 1000 (u :: T.Text) (==) - , putGetTest td 1000 (u :: U.UUID) (==) - , putGetTest td 50 (u :: JSON Value0) (==) - , putGetTest td 50 (u :: JSONB Value0) (==) - , putGetTest td 20 (u :: Array1 (JSON Value0)) (==) - , putGetTest td 20 (u :: Array1 (JSONB Value0)) (==) - , putGetTest td 50 (u :: Interval) (==) - , putGetTest td 1000000 (u :: Day) (==) - , putGetTest td 10000 (u :: TimeOfDay) eqTOD - , putGetTest td 500000 (u :: LocalTime) eqLT - , putGetTest td 500000 (u :: UTCTime) eqUTCT - , putGetTest td 1000 (u :: Array1 Int32) (==) - , putGetTest td 1000 (u :: Array2 Double) eqArray2 - , putGetTest td 100000 (u :: Composite Simple) (==) - , putGetTest td 1000 (u :: CompositeArray1 Simple) (==) - , putGetTest td 1000 (u :: CompositeArray2 Simple) eqCompositeArray2 - , putGetTest td 100000 (u :: Composite Nested) (==) - , putGetTest td 1000 (u :: CompositeArray1 Nested) (==) - , putGetTest td 1000 (u :: CompositeArray2 Nested) eqCompositeArray2 - , rowTest td (u :: Identity Int16) - , rowTest td (u :: Identity T.Text :*: (Double, Int16)) - , rowTest td (u :: (T.Text, Double) :*: Identity Int16) - , rowTest td (u :: (Int16, T.Text, Int64, Double) :*: Identity Bool :*: (String0, AsciiChar)) - , rowTest td (u :: (Int16, Int32)) - , rowTest td (u :: (Int16, Int32, Int64)) - , rowTest td (u :: (Int16, Int32, Int64, Float)) - , rowTest td (u :: (Int16, Int32, Int64, Float, Double)) - , rowTest td (u :: (Int16, Int32, Int64, Float, Double, Bool)) - , rowTest td (u :: (Int16, Int32, Int64, Float, Double, Bool, AsciiChar)) - , rowTest td (u :: (Int16, Int32, Int64, Float, Double, Bool, AsciiChar, Word8)) - , rowTest td (u :: (Int16, Int32, Int64, Float, Double, Bool, AsciiChar, Word8, String0)) - , rowTest td (u :: (Int16, Int32, Int64, Float, Double, Bool, AsciiChar, Word8, String0, BS.ByteString)) - , rowTest td (u :: (Int16, Int32, Int64, Float, Double, Bool, AsciiChar, Word8, String0, BS.ByteString, T.Text)) - , rowTest td (u :: (Int16, Int32, Int64, Float, Double, Bool, AsciiChar, Word8, String0, BS.ByteString, T.Text, BS.ByteString)) - , rowTest td (u :: (Int16, Int32, Int64, Float, Double, Bool, AsciiChar, Word8, String0, BS.ByteString, T.Text, BS.ByteString, Day)) - , rowTest td (u :: (Int16, Int32, Int64, Float, Double, Bool, AsciiChar, Word8, String0, BS.ByteString, T.Text, BS.ByteString, Day, Array1 Int32)) - , rowTest td (u :: (Int16, Int32, Int64, Float, Double, Bool, AsciiChar, Word8, String0, BS.ByteString, T.Text, BS.ByteString, Day, Array1 Int32, Composite Simple)) - , rowTest td (u :: (Int16, Int32, Int64, Float, Double, Bool, AsciiChar, Word8, String0, BS.ByteString, T.Text, BS.ByteString, Day, Array1 Int32, Composite Simple, CompositeArray1 Simple)) - , rowTest td (u :: (Int16, Int32, Int64, Float, Double, Bool, AsciiChar, Word8, String0, BS.ByteString, T.Text, BS.ByteString, Day, Array1 Int32, Composite Simple, CompositeArray1 Simple, Composite Nested)) - , rowTest td (u :: (Int16, Int32, Int64, Float, Double, Bool, AsciiChar, Word8, String0, BS.ByteString, T.Text, BS.ByteString, Day, Array1 Int32, Composite Simple, CompositeArray1 Simple, Composite Nested, CompositeArray1 Nested)) - , rowTest td (u :: (Int16, Int32, Int64, Float, Double, Bool, AsciiChar, Word8, String0, BS.ByteString, T.Text, BS.ByteString, Day, Array1 Int32, Composite Simple, CompositeArray1 Simple, Composite Nested, CompositeArray1 Nested, Int16)) - , rowTest td (u :: (Int16, Int32, Int64, Float, Double, Bool, AsciiChar, Word8, String0, BS.ByteString, T.Text, BS.ByteString, Day, Array1 Int32, Composite Simple, CompositeArray1 Simple, Composite Nested, CompositeArray1 Nested, Int16, Int32)) - , rowTest td (u :: (Int16, Int32, Int64, Float, Double, Bool, AsciiChar, Word8, String0, BS.ByteString, T.Text, BS.ByteString, Day, Array1 Int32, Composite Simple, CompositeArray1 Simple, Composite Nested, CompositeArray1 Nested, Int16, Int32, Int64)) - , rowTest td (u :: (Int16, Int32, Int64, Float, Double, Bool, AsciiChar, Word8, String0, BS.ByteString, T.Text, BS.ByteString, Day, Array1 Int32, Composite Simple, CompositeArray1 Simple, Composite Nested, CompositeArray1 Nested, Int16, Int32, Int64, Float)) - , rowTest td (u :: (Int16, Int32, Int64, Float, Double, Bool, AsciiChar, Word8, String0, BS.ByteString, T.Text, BS.ByteString, Day, Array1 Int32, Composite Simple, CompositeArray1 Simple, Composite Nested, CompositeArray1 Nested, Int16, Int32, Int64, Float, Double)) - , rowTest td (u :: (Int16, Int32, Int64, Float, Double, Bool, AsciiChar, Word8, String0, BS.ByteString, T.Text, BS.ByteString, Day, Array1 Int32, Composite Simple, CompositeArray1 Simple, Composite Nested, CompositeArray1 Nested, Int16, Int32, Int64, Float, Double, Bool)) - , rowTest td (u :: (Int16, Int32, Int64, Float, Double, Bool, AsciiChar, Word8, String0, BS.ByteString, T.Text, BS.ByteString, Day, Array1 Int32, Composite Simple, CompositeArray1 Simple, Composite Nested, CompositeArray1 Nested, Int16, Int32, Int64, Float, Double, Bool, AsciiChar)) - , rowTest td (u :: (Int16, Int32, Int64, Float, Double, Bool, AsciiChar, Word8, String0, BS.ByteString, T.Text, BS.ByteString, Day, Array1 Int32, Composite Simple, CompositeArray1 Simple, Composite Nested, CompositeArray1 Nested, Int16, Int32, Int64, Float, Double, Bool, AsciiChar, Word8)) - , rowTest td (u :: (Int16, Int32, Int64, Float, Double, Bool, AsciiChar, Word8, String0, BS.ByteString, T.Text, BS.ByteString, Day, Array1 Int32, Composite Simple, CompositeArray1 Simple, Composite Nested, CompositeArray1 Nested, Int16, Int32, Int64, Float, Double, Bool, AsciiChar, Word8, String0)) - , rowTest td (u :: (Int16, Int32, Int64, Float, Double, Bool, AsciiChar, Word8, String0, BS.ByteString, T.Text, BS.ByteString, Day, Array1 Int32, Composite Simple, CompositeArray1 Simple, Composite Nested, CompositeArray1 Nested, Int16, Int32, Int64, Float, Double, Bool, AsciiChar, Word8, String0, BS.ByteString)) - , rowTest td (u :: (Int16, Int32, Int64, Float, Double, Bool, AsciiChar, Word8, String0, BS.ByteString, T.Text, BS.ByteString, Day, Array1 Int32, Composite Simple, CompositeArray1 Simple, Composite Nested, CompositeArray1 Nested, Int16, Int32, Int64, Float, Double, Bool, AsciiChar, Word8, String0, BS.ByteString, T.Text)) - , rowTest td (u :: (Int16, Int32, Int64, Float, Double, Bool, AsciiChar, Word8, String0, BS.ByteString, T.Text, BS.ByteString, Day, Array1 Int32, Composite Simple, CompositeArray1 Simple, Composite Nested, CompositeArray1 Nested, Int16, Int32, Int64, Float, Double, Bool, AsciiChar, Word8, String0, BS.ByteString, T.Text, BS.ByteString)) - , rowTest td (u :: (Int16, Int32, Int64, Float, Double, Bool, AsciiChar, Word8, String0, BS.ByteString, T.Text, BS.ByteString, Day, Array1 Int32, Composite Simple, CompositeArray1 Simple, Composite Nested, CompositeArray1 Nested, Int16, Int32, Int64, Float, Double, Bool, AsciiChar, Word8, String0, BS.ByteString, T.Text, BS.ByteString, Day)) - , rowTest td (u :: (Int16, Int32, Int64, Float, Double, Bool, AsciiChar, Word8, String0, BS.ByteString, T.Text, BS.ByteString, Day, Array1 Int32, Composite Simple, CompositeArray1 Simple, Composite Nested, CompositeArray1 Nested, Int16, Int32, Int64, Float, Double, Bool, AsciiChar, Word8, String0, BS.ByteString, T.Text, BS.ByteString, Day, Array1 Int32)) - , rowTest td (u :: (Int16, Int32, Int64, Float, Double, Bool, AsciiChar, Word8, String0, BS.ByteString, T.Text, BS.ByteString, Day, Array1 Int32, Composite Simple, CompositeArray1 Simple, Composite Nested, CompositeArray1 Nested, Int16, Int32, Int64, Float, Double, Bool, AsciiChar, Word8, String0, BS.ByteString, T.Text, BS.ByteString, Day, Array1 Int32, Composite Simple)) - , rowTest td (u :: (Int16, Int32, Int64, Float, Double, Bool, AsciiChar, Word8, String0, BS.ByteString, T.Text, BS.ByteString, Day, Array1 Int32, Composite Simple, CompositeArray1 Simple, Composite Nested, CompositeArray1 Nested, Int16, Int32, Int64, Float, Double, Bool, AsciiChar, Word8, String0, BS.ByteString, T.Text, BS.ByteString, Day, Array1 Int32, Composite Simple, CompositeArray1 Simple)) - , rowTest td (u :: (Int16, Int32, Int64, Float, Double, Bool, AsciiChar, Word8, String0, BS.ByteString, T.Text, BS.ByteString, Day, Array1 Int32, Composite Simple, CompositeArray1 Simple, Composite Nested, CompositeArray1 Nested, Int16, Int32, Int64, Float, Double, Bool, AsciiChar, Word8, String0, BS.ByteString, T.Text, BS.ByteString, Day, Array1 Int32, Composite Simple, CompositeArray1 Simple, Composite Nested)) - , rowTest td (u :: (Int16, Int32, Int64, Float, Double, Bool, AsciiChar, Word8, String0, BS.ByteString, T.Text, BS.ByteString, Day, Array1 Int32, Composite Simple, CompositeArray1 Simple, Composite Nested, CompositeArray1 Nested, Int16, Int32, Int64, Float, Double, Bool, AsciiChar, Word8, String0, BS.ByteString, T.Text, BS.ByteString, Day, Array1 Int32, Composite Simple, CompositeArray1 Simple, Composite Nested, CompositeArray1 Nested)) - , rowTest td (u :: (Int16, Int32, Int64, Float, Double, Bool, AsciiChar, Word8, String0, BS.ByteString, T.Text, BS.ByteString, Day, Array1 Int32, Composite Simple, CompositeArray1 Simple, Composite Nested, CompositeArray1 Nested, Int16, Int32, Int64, Float, Double, Bool, AsciiChar, Word8, String0, BS.ByteString, T.Text, BS.ByteString, Day, Array1 Int32, Composite Simple, CompositeArray1 Simple, Composite Nested, CompositeArray1 Nested, Word16)) - , rowTest td (u :: (Int16, Int32, Int64, Float, Double, Bool, AsciiChar, Word8, String0, BS.ByteString, T.Text, BS.ByteString, Day, Array1 Int32, Composite Simple, CompositeArray1 Simple, Composite Nested, CompositeArray1 Nested, Int16, Int32, Int64, Float, Double, Bool, AsciiChar, Word8, String0, BS.ByteString, T.Text, BS.ByteString, Day, Array1 Int32, Composite Simple, CompositeArray1 Simple, Composite Nested, CompositeArray1 Nested, Word16, Word32)) - , rowTest td (u :: (Int16, Int32, Int64, Float, Double, Bool, AsciiChar, Word8, String0, BS.ByteString, T.Text, BS.ByteString, Day, Array1 Int32, Composite Simple, CompositeArray1 Simple, Composite Nested, CompositeArray1 Nested, Int16, Int32, Int64, Float, Double, Bool, AsciiChar, Word8, String0, BS.ByteString, T.Text, BS.ByteString, Day, Array1 Int32, Composite Simple, CompositeArray1 Simple, Composite Nested, CompositeArray1 Nested, Word16, Word32, Word64, Integer)) - , rowTest td (u :: (Int16, Int32, Int64, Float, Double, Bool, AsciiChar, Word8, String0, BS.ByteString, T.Text, BS.ByteString, Day, Array1 Int32, Composite Simple, CompositeArray1 Simple, Composite Nested, CompositeArray1 Nested, Word16, Word32, Word64, Integer, Float, Double, Bool, AsciiChar, Word8, String0, BS.ByteString, T.Text, BS.ByteString, Day, Array1 Int32, Composite Simple, CompositeArray1 Simple, Composite Nested, CompositeArray1 Nested, Int16, Int32, Int64, Float)) - , rowTest td (u :: (Int16, Int32, Int64, Float, Double, Bool, AsciiChar, Word8, String0, BS.ByteString, T.Text, BS.ByteString, Day, Array1 Int32, Composite Simple, CompositeArray1 Simple, Composite Nested, CompositeArray1 Nested, Word16, Word32, Word64, Integer, Float, Double, Bool, AsciiChar, Word8, String0, BS.ByteString, T.Text, BS.ByteString, Day, Array1 Int32, Composite Simple, CompositeArray1 Simple, Composite Nested, CompositeArray1 Nested, Int16, Int32, Int64, Float, Double)) - , rowTest td (u :: (Int16, Int32, Int64, Float, Double, Bool, AsciiChar, Word8, String0, BS.ByteString, T.Text, BS.ByteString, Day, Array1 Int32, Composite Simple, CompositeArray1 Simple, Composite Nested, CompositeArray1 Nested, Word16, Word32, Word64, Integer, Float, Double, Bool, AsciiChar, Word8, String0, BS.ByteString, T.Text, BS.ByteString, Day, Array1 Int32, Composite Simple, CompositeArray1 Simple, Composite Nested, CompositeArray1 Nested, Int16, Int32, Int64, Float, Double, Bool)) - , rowTest td (u :: (Int16, Int32, Int64, Float, Double, Bool, AsciiChar, Word8, String0, BS.ByteString, T.Text, BS.ByteString, Day, Array1 Int32, Composite Simple, CompositeArray1 Simple, Composite Nested, CompositeArray1 Nested, Word16, Word32, Word64, Integer, Float, Double, Bool, AsciiChar, Word8, String0, BS.ByteString, T.Text, BS.ByteString, Day, Array1 Int32, Composite Simple, CompositeArray1 Simple, Composite Nested, CompositeArray1 Nested, Int16, Int32, Int64, Float, Double, Bool, AsciiChar)) - , rowTest td (u :: (Int16, Int32, Int64, Float, Double, Bool, AsciiChar, Word8, String0, BS.ByteString, T.Text, BS.ByteString, Day, Array1 Int32, Composite Simple, CompositeArray1 Simple, Composite Nested, CompositeArray1 Nested, Word16, Word32, Word64, Integer, Float, Double, Bool, AsciiChar, Word8, String0, BS.ByteString, T.Text, BS.ByteString, Day, Array1 Int32, Composite Simple, CompositeArray1 Simple, Composite Nested, CompositeArray1 Nested, Int16, Int32, Int64, Float, Double, Bool, AsciiChar, Word8)) - , rowTest td (u :: (Int16, Int32, Int64, Float, Double, Bool, AsciiChar, Word8, String0, BS.ByteString, T.Text, BS.ByteString, Day, Array1 Int32, Composite Simple, CompositeArray1 Simple, Composite Nested, CompositeArray1 Nested, Word16, Word32, Word64, Integer, Float, Double, Bool, AsciiChar, Word8, String0, BS.ByteString, T.Text, BS.ByteString, Day, Array1 Int32, Composite Simple, CompositeArray1 Simple, Composite Nested, CompositeArray1 Nested, Int16, Int32, Int64, Float, Double, Bool, AsciiChar, Word8, String0)) - , rowTest td (u :: (Int16, Int32, Int64, Float, Double, Bool, AsciiChar, Word8, String0, BS.ByteString, T.Text, BS.ByteString, Day, Array1 Int32, Composite Simple, CompositeArray1 Simple, Composite Nested, CompositeArray1 Nested, Word16, Word32, Word64, Integer, Float, Double, Bool, AsciiChar, Word8, String0, BS.ByteString, T.Text, BS.ByteString, Day, Array1 Int32, Composite Simple, CompositeArray1 Simple, Composite Nested, CompositeArray1 Nested, Int16, Int32, Int64, Float, Double, Bool, AsciiChar, Word8, String0, BS.ByteString)) - , rowTest td (u :: (Int16, Int32, Int64, Float, Double, Bool, AsciiChar, Word8, String0, BS.ByteString, T.Text, BS.ByteString, Day, Array1 Int32, Composite Simple, CompositeArray1 Simple, Composite Nested, CompositeArray1 Nested, Word16, Word32, Word64, Integer, Float, Double, Bool, AsciiChar, Word8, String0, BS.ByteString, T.Text, BS.ByteString, Day, Array1 Int32, Composite Simple, CompositeArray1 Simple, Composite Nested, CompositeArray1 Nested, Int16, Int32, Int64, Float, Double, Bool, AsciiChar, Word8, String0, BS.ByteString, T.Text)) - , rowTest td (u :: (Int16, Int32, Int64, Float, Double, Bool, AsciiChar, Word8, String0, BS.ByteString, T.Text, BS.ByteString, Day, Array1 Int32, Composite Simple, CompositeArray1 Simple, Composite Nested, CompositeArray1 Nested, Word16, Word32, Word64, Integer, Float, Double, Bool, AsciiChar, Word8, String0, BS.ByteString, T.Text, BS.ByteString, Day, Array1 Int32, Composite Simple, CompositeArray1 Simple, Composite Nested, CompositeArray1 Nested, Int16, Int32, Int64, Float, Double, Bool, AsciiChar, Word8, String0, BS.ByteString, T.Text, BS.ByteString)) - , rowTest td (u :: (Int16, Int32, Int64, Float, Double, Bool, AsciiChar, Word8, String0, BS.ByteString, T.Text, BS.ByteString, Day, Array1 Int32, Composite Simple, CompositeArray1 Simple, Composite Nested, CompositeArray1 Nested, Word16, Word32, Word64, Integer, Float, Double, Bool, AsciiChar, Word8, String0, BS.ByteString, T.Text, BS.ByteString, Day, Array1 Int32, Composite Simple, CompositeArray1 Simple, Composite Nested, CompositeArray1 Nested, Int16, Int32, Int64, Float, Double, Bool, AsciiChar, Word8, String0, BS.ByteString, T.Text, BS.ByteString, U.UUID)) - ] - where - u = undefined - ----------------------------------------- + concat + [ connectionTests td + , transactionTests td + , cursorTests td + , rowDecoderTests td + , arrayTests td + , enumTests td + , tupleTests td + , typesTests td + ] createStructures :: ConnectionSourceM IO -> IO () createStructures cs = runDBT cs defaultTransactionSettings $ do @@ -887,10 +57,14 @@ createStructures cs = runDBT cs defaultTransactionSettings $ do runSQL_ "CREATE TABLE test1_ (a INTEGER)" runSQL_ "CREATE TYPE simple_ AS (a INTEGER, b DATE)" runSQL_ "CREATE TYPE nested_ AS (d DOUBLE PRECISION, s SIMPLE_)" + runSQL_ "CREATE TYPE person_ AS ENUM ('alfred', 'bertrand', 'charles')" + runSQL_ "CREATE TABLE people_ (p PERSON_ NOT NULL)" dropStructures :: ConnectionSourceM IO -> IO () dropStructures cs = runDBT cs defaultTransactionSettings $ do liftBase . putStrLn $ "Dropping structures..." + runSQL_ "DROP TABLE people_" + runSQL_ "DROP TYPE person_" runSQL_ "DROP TYPE nested_" runSQL_ "DROP TYPE simple_" runSQL_ "DROP TABLE test1_" @@ -922,8 +96,13 @@ main = do ConnectionSource connSource = simpleSource connSettings createStructures connSource - gen <- newQCGen - putStrLn $ "PRNG:" <+> show gen + defaultSeed <- randomIO - finally (defaultMainWithArgs (tests (gen, connSettings {csComposites = ["simple_", "nested_"]})) args) $ do + let allTests = askOption $ \(Seed mseed) -> + let gen = mkQCGen $ fromMaybe defaultSeed mseed + in testGroup "hpqtypes" $ tests (gen, connSettings) + ingredients = includingOptions [Option $ Proxy @Seed] : defaultIngredients + finally (withArgs args $ defaultMainWithIngredients ingredients allTests) $ do dropStructures connSource + unless (any ("--seed" `L.isPrefixOf`) args) . putStrLn $ + "Use --seed=" <> show defaultSeed <> " to reproduce this run." diff --git a/test/Prelude/Instances.hs b/test/Prelude/Instances.hs deleted file mode 100644 index 7a00624..0000000 --- a/test/Prelude/Instances.hs +++ /dev/null @@ -1,507 +0,0 @@ -{-# OPTIONS_GHC -Wno-orphans #-} - -module Prelude.Instances where - -{- FOURMOLU_DISABLE -} - -deriving instance - ( Eq a1, Eq a2, Eq a3, Eq a4, Eq a5, Eq a6, Eq a7, Eq a8, Eq a9, Eq a10 - , Eq a11, Eq a12, Eq a13, Eq a14, Eq a15, Eq a16 - ) => Eq (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16) - -deriving instance - ( Eq a1, Eq a2, Eq a3, Eq a4, Eq a5, Eq a6, Eq a7, Eq a8, Eq a9, Eq a10 - , Eq a11, Eq a12, Eq a13, Eq a14, Eq a15, Eq a16, Eq a17 - ) => Eq (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17) - -deriving instance - ( Eq a1, Eq a2, Eq a3, Eq a4, Eq a5, Eq a6, Eq a7, Eq a8, Eq a9, Eq a10 - , Eq a11, Eq a12, Eq a13, Eq a14, Eq a15, Eq a16, Eq a17, Eq a18 - ) => Eq (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18) - -deriving instance - ( Eq a1, Eq a2, Eq a3, Eq a4, Eq a5, Eq a6, Eq a7, Eq a8, Eq a9, Eq a10 - , Eq a11, Eq a12, Eq a13, Eq a14, Eq a15, Eq a16, Eq a17, Eq a18, Eq a19 - ) => Eq (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19) - -deriving instance - ( Eq a1, Eq a2, Eq a3, Eq a4, Eq a5, Eq a6, Eq a7, Eq a8, Eq a9, Eq a10 - , Eq a11, Eq a12, Eq a13, Eq a14, Eq a15, Eq a16, Eq a17, Eq a18, Eq a19, Eq a20 - ) => Eq (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20) - -deriving instance - ( Eq a1, Eq a2, Eq a3, Eq a4, Eq a5, Eq a6, Eq a7, Eq a8, Eq a9, Eq a10 - , Eq a11, Eq a12, Eq a13, Eq a14, Eq a15, Eq a16, Eq a17, Eq a18, Eq a19, Eq a20 - , Eq a21 - ) => Eq (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21) - -deriving instance - ( Eq a1, Eq a2, Eq a3, Eq a4, Eq a5, Eq a6, Eq a7, Eq a8, Eq a9, Eq a10 - , Eq a11, Eq a12, Eq a13, Eq a14, Eq a15, Eq a16, Eq a17, Eq a18, Eq a19, Eq a20 - , Eq a21, Eq a22 - ) => Eq (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22) - -deriving instance - ( Eq a1, Eq a2, Eq a3, Eq a4, Eq a5, Eq a6, Eq a7, Eq a8, Eq a9, Eq a10 - , Eq a11, Eq a12, Eq a13, Eq a14, Eq a15, Eq a16, Eq a17, Eq a18, Eq a19, Eq a20 - , Eq a21, Eq a22, Eq a23 - ) => Eq (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23) - -deriving instance - ( Eq a1, Eq a2, Eq a3, Eq a4, Eq a5, Eq a6, Eq a7, Eq a8, Eq a9, Eq a10 - , Eq a11, Eq a12, Eq a13, Eq a14, Eq a15, Eq a16, Eq a17, Eq a18, Eq a19, Eq a20 - , Eq a21, Eq a22, Eq a23, Eq a24 - ) => Eq (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24) - -deriving instance - ( Eq a1, Eq a2, Eq a3, Eq a4, Eq a5, Eq a6, Eq a7, Eq a8, Eq a9, Eq a10 - , Eq a11, Eq a12, Eq a13, Eq a14, Eq a15, Eq a16, Eq a17, Eq a18, Eq a19, Eq a20 - , Eq a21, Eq a22, Eq a23, Eq a24, Eq a25 - ) => Eq (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25) - -deriving instance - ( Eq a1, Eq a2, Eq a3, Eq a4, Eq a5, Eq a6, Eq a7, Eq a8, Eq a9, Eq a10 - , Eq a11, Eq a12, Eq a13, Eq a14, Eq a15, Eq a16, Eq a17, Eq a18, Eq a19, Eq a20 - , Eq a21, Eq a22, Eq a23, Eq a24, Eq a25, Eq a26 - ) => Eq (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26) - -deriving instance - ( Eq a1, Eq a2, Eq a3, Eq a4, Eq a5, Eq a6, Eq a7, Eq a8, Eq a9, Eq a10 - , Eq a11, Eq a12, Eq a13, Eq a14, Eq a15, Eq a16, Eq a17, Eq a18, Eq a19, Eq a20 - , Eq a21, Eq a22, Eq a23, Eq a24, Eq a25, Eq a26, Eq a27 - ) => Eq (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27) - -deriving instance - ( Eq a1, Eq a2, Eq a3, Eq a4, Eq a5, Eq a6, Eq a7, Eq a8, Eq a9, Eq a10 - , Eq a11, Eq a12, Eq a13, Eq a14, Eq a15, Eq a16, Eq a17, Eq a18, Eq a19, Eq a20 - , Eq a21, Eq a22, Eq a23, Eq a24, Eq a25, Eq a26, Eq a27, Eq a28 - ) => Eq (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28) - -deriving instance - ( Eq a1, Eq a2, Eq a3, Eq a4, Eq a5, Eq a6, Eq a7, Eq a8, Eq a9, Eq a10 - , Eq a11, Eq a12, Eq a13, Eq a14, Eq a15, Eq a16, Eq a17, Eq a18, Eq a19, Eq a20 - , Eq a21, Eq a22, Eq a23, Eq a24, Eq a25, Eq a26, Eq a27, Eq a28, Eq a29 - ) => Eq (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29) - -deriving instance - ( Eq a1, Eq a2, Eq a3, Eq a4, Eq a5, Eq a6, Eq a7, Eq a8, Eq a9, Eq a10 - , Eq a11, Eq a12, Eq a13, Eq a14, Eq a15, Eq a16, Eq a17, Eq a18, Eq a19, Eq a20 - , Eq a21, Eq a22, Eq a23, Eq a24, Eq a25, Eq a26, Eq a27, Eq a28, Eq a29, Eq a30 - ) => Eq (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30) - -deriving instance - ( Eq a1, Eq a2, Eq a3, Eq a4, Eq a5, Eq a6, Eq a7, Eq a8, Eq a9, Eq a10 - , Eq a11, Eq a12, Eq a13, Eq a14, Eq a15, Eq a16, Eq a17, Eq a18, Eq a19, Eq a20 - , Eq a21, Eq a22, Eq a23, Eq a24, Eq a25, Eq a26, Eq a27, Eq a28, Eq a29, Eq a30 - , Eq a31 - ) => Eq (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31) - -deriving instance - ( Eq a1, Eq a2, Eq a3, Eq a4, Eq a5, Eq a6, Eq a7, Eq a8, Eq a9, Eq a10 - , Eq a11, Eq a12, Eq a13, Eq a14, Eq a15, Eq a16, Eq a17, Eq a18, Eq a19, Eq a20 - , Eq a21, Eq a22, Eq a23, Eq a24, Eq a25, Eq a26, Eq a27, Eq a28, Eq a29, Eq a30 - , Eq a31, Eq a32 - ) => Eq (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32) - -deriving instance - ( Eq a1, Eq a2, Eq a3, Eq a4, Eq a5, Eq a6, Eq a7, Eq a8, Eq a9, Eq a10 - , Eq a11, Eq a12, Eq a13, Eq a14, Eq a15, Eq a16, Eq a17, Eq a18, Eq a19, Eq a20 - , Eq a21, Eq a22, Eq a23, Eq a24, Eq a25, Eq a26, Eq a27, Eq a28, Eq a29, Eq a30 - , Eq a31, Eq a32, Eq a33 - ) => Eq (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33) - -deriving instance - ( Eq a1, Eq a2, Eq a3, Eq a4, Eq a5, Eq a6, Eq a7, Eq a8, Eq a9, Eq a10 - , Eq a11, Eq a12, Eq a13, Eq a14, Eq a15, Eq a16, Eq a17, Eq a18, Eq a19, Eq a20 - , Eq a21, Eq a22, Eq a23, Eq a24, Eq a25, Eq a26, Eq a27, Eq a28, Eq a29, Eq a30 - , Eq a31, Eq a32, Eq a33, Eq a34 - ) => Eq (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34) - -deriving instance - ( Eq a1, Eq a2, Eq a3, Eq a4, Eq a5, Eq a6, Eq a7, Eq a8, Eq a9, Eq a10 - , Eq a11, Eq a12, Eq a13, Eq a14, Eq a15, Eq a16, Eq a17, Eq a18, Eq a19, Eq a20 - , Eq a21, Eq a22, Eq a23, Eq a24, Eq a25, Eq a26, Eq a27, Eq a28, Eq a29, Eq a30 - , Eq a31, Eq a32, Eq a33, Eq a34, Eq a35 - ) => Eq (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34, a35) - -deriving instance - ( Eq a1, Eq a2, Eq a3, Eq a4, Eq a5, Eq a6, Eq a7, Eq a8, Eq a9, Eq a10 - , Eq a11, Eq a12, Eq a13, Eq a14, Eq a15, Eq a16, Eq a17, Eq a18, Eq a19, Eq a20 - , Eq a21, Eq a22, Eq a23, Eq a24, Eq a25, Eq a26, Eq a27, Eq a28, Eq a29, Eq a30 - , Eq a31, Eq a32, Eq a33, Eq a34, Eq a35, Eq a36 - ) => Eq (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34, a35, a36) - -deriving instance - ( Eq a1, Eq a2, Eq a3, Eq a4, Eq a5, Eq a6, Eq a7, Eq a8, Eq a9, Eq a10 - , Eq a11, Eq a12, Eq a13, Eq a14, Eq a15, Eq a16, Eq a17, Eq a18, Eq a19, Eq a20 - , Eq a21, Eq a22, Eq a23, Eq a24, Eq a25, Eq a26, Eq a27, Eq a28, Eq a29, Eq a30 - , Eq a31, Eq a32, Eq a33, Eq a34, Eq a35, Eq a36, Eq a37 - ) => Eq (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34, a35, a36, a37) - -deriving instance - ( Eq a1, Eq a2, Eq a3, Eq a4, Eq a5, Eq a6, Eq a7, Eq a8, Eq a9, Eq a10 - , Eq a11, Eq a12, Eq a13, Eq a14, Eq a15, Eq a16, Eq a17, Eq a18, Eq a19, Eq a20 - , Eq a21, Eq a22, Eq a23, Eq a24, Eq a25, Eq a26, Eq a27, Eq a28, Eq a29, Eq a30 - , Eq a31, Eq a32, Eq a33, Eq a34, Eq a35, Eq a36, Eq a37, Eq a38 - ) => Eq (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34, a35, a36, a37, a38) - -deriving instance - ( Eq a1, Eq a2, Eq a3, Eq a4, Eq a5, Eq a6, Eq a7, Eq a8, Eq a9, Eq a10 - , Eq a11, Eq a12, Eq a13, Eq a14, Eq a15, Eq a16, Eq a17, Eq a18, Eq a19, Eq a20 - , Eq a21, Eq a22, Eq a23, Eq a24, Eq a25, Eq a26, Eq a27, Eq a28, Eq a29, Eq a30 - , Eq a31, Eq a32, Eq a33, Eq a34, Eq a35, Eq a36, Eq a37, Eq a38, Eq a39 - ) => Eq (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34, a35, a36, a37, a38, a39) - -deriving instance - ( Eq a1, Eq a2, Eq a3, Eq a4, Eq a5, Eq a6, Eq a7, Eq a8, Eq a9, Eq a10 - , Eq a11, Eq a12, Eq a13, Eq a14, Eq a15, Eq a16, Eq a17, Eq a18, Eq a19, Eq a20 - , Eq a21, Eq a22, Eq a23, Eq a24, Eq a25, Eq a26, Eq a27, Eq a28, Eq a29, Eq a30 - , Eq a31, Eq a32, Eq a33, Eq a34, Eq a35, Eq a36, Eq a37, Eq a38, Eq a39, Eq a40 - ) => Eq (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34, a35, a36, a37, a38, a39, a40) - -deriving instance - ( Eq a1, Eq a2, Eq a3, Eq a4, Eq a5, Eq a6, Eq a7, Eq a8, Eq a9, Eq a10 - , Eq a11, Eq a12, Eq a13, Eq a14, Eq a15, Eq a16, Eq a17, Eq a18, Eq a19, Eq a20 - , Eq a21, Eq a22, Eq a23, Eq a24, Eq a25, Eq a26, Eq a27, Eq a28, Eq a29, Eq a30 - , Eq a31, Eq a32, Eq a33, Eq a34, Eq a35, Eq a36, Eq a37, Eq a38, Eq a39, Eq a40 - , Eq a41 - ) => Eq (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34, a35, a36, a37, a38, a39, a40, a41) - -deriving instance - ( Eq a1, Eq a2, Eq a3, Eq a4, Eq a5, Eq a6, Eq a7, Eq a8, Eq a9, Eq a10 - , Eq a11, Eq a12, Eq a13, Eq a14, Eq a15, Eq a16, Eq a17, Eq a18, Eq a19, Eq a20 - , Eq a21, Eq a22, Eq a23, Eq a24, Eq a25, Eq a26, Eq a27, Eq a28, Eq a29, Eq a30 - , Eq a31, Eq a32, Eq a33, Eq a34, Eq a35, Eq a36, Eq a37, Eq a38, Eq a39, Eq a40 - , Eq a41, Eq a42 - ) => Eq (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34, a35, a36, a37, a38, a39, a40, a41, a42) - -deriving instance - ( Eq a1, Eq a2, Eq a3, Eq a4, Eq a5, Eq a6, Eq a7, Eq a8, Eq a9, Eq a10 - , Eq a11, Eq a12, Eq a13, Eq a14, Eq a15, Eq a16, Eq a17, Eq a18, Eq a19, Eq a20 - , Eq a21, Eq a22, Eq a23, Eq a24, Eq a25, Eq a26, Eq a27, Eq a28, Eq a29, Eq a30 - , Eq a31, Eq a32, Eq a33, Eq a34, Eq a35, Eq a36, Eq a37, Eq a38, Eq a39, Eq a40 - , Eq a41, Eq a42, Eq a43 - ) => Eq (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34, a35, a36, a37, a38, a39, a40, a41, a42, a43) - -deriving instance - ( Eq a1, Eq a2, Eq a3, Eq a4, Eq a5, Eq a6, Eq a7, Eq a8, Eq a9, Eq a10 - , Eq a11, Eq a12, Eq a13, Eq a14, Eq a15, Eq a16, Eq a17, Eq a18, Eq a19, Eq a20 - , Eq a21, Eq a22, Eq a23, Eq a24, Eq a25, Eq a26, Eq a27, Eq a28, Eq a29, Eq a30 - , Eq a31, Eq a32, Eq a33, Eq a34, Eq a35, Eq a36, Eq a37, Eq a38, Eq a39, Eq a40 - , Eq a41, Eq a42, Eq a43, Eq a44 - ) => Eq (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34, a35, a36, a37, a38, a39, a40, a41, a42, a43, a44) - -deriving instance - ( Eq a1, Eq a2, Eq a3, Eq a4, Eq a5, Eq a6, Eq a7, Eq a8, Eq a9, Eq a10 - , Eq a11, Eq a12, Eq a13, Eq a14, Eq a15, Eq a16, Eq a17, Eq a18, Eq a19, Eq a20 - , Eq a21, Eq a22, Eq a23, Eq a24, Eq a25, Eq a26, Eq a27, Eq a28, Eq a29, Eq a30 - , Eq a31, Eq a32, Eq a33, Eq a34, Eq a35, Eq a36, Eq a37, Eq a38, Eq a39, Eq a40 - , Eq a41, Eq a42, Eq a43, Eq a44, Eq a45 - ) => Eq (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34, a35, a36, a37, a38, a39, a40, a41, a42, a43, a44, a45) - -deriving instance - ( Eq a1, Eq a2, Eq a3, Eq a4, Eq a5, Eq a6, Eq a7, Eq a8, Eq a9, Eq a10 - , Eq a11, Eq a12, Eq a13, Eq a14, Eq a15, Eq a16, Eq a17, Eq a18, Eq a19, Eq a20 - , Eq a21, Eq a22, Eq a23, Eq a24, Eq a25, Eq a26, Eq a27, Eq a28, Eq a29, Eq a30 - , Eq a31, Eq a32, Eq a33, Eq a34, Eq a35, Eq a36, Eq a37, Eq a38, Eq a39, Eq a40 - , Eq a41, Eq a42, Eq a43, Eq a44, Eq a45, Eq a46 - ) => Eq (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34, a35, a36, a37, a38, a39, a40, a41, a42, a43, a44, a45, a46) - -deriving instance - ( Eq a1, Eq a2, Eq a3, Eq a4, Eq a5, Eq a6, Eq a7, Eq a8, Eq a9, Eq a10 - , Eq a11, Eq a12, Eq a13, Eq a14, Eq a15, Eq a16, Eq a17, Eq a18, Eq a19, Eq a20 - , Eq a21, Eq a22, Eq a23, Eq a24, Eq a25, Eq a26, Eq a27, Eq a28, Eq a29, Eq a30 - , Eq a31, Eq a32, Eq a33, Eq a34, Eq a35, Eq a36, Eq a37, Eq a38, Eq a39, Eq a40 - , Eq a41, Eq a42, Eq a43, Eq a44, Eq a45, Eq a46, Eq a47 - ) => Eq (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34, a35, a36, a37, a38, a39, a40, a41, a42, a43, a44, a45, a46, a47) - -deriving instance - ( Eq a1, Eq a2, Eq a3, Eq a4, Eq a5, Eq a6, Eq a7, Eq a8, Eq a9, Eq a10 - , Eq a11, Eq a12, Eq a13, Eq a14, Eq a15, Eq a16, Eq a17, Eq a18, Eq a19, Eq a20 - , Eq a21, Eq a22, Eq a23, Eq a24, Eq a25, Eq a26, Eq a27, Eq a28, Eq a29, Eq a30 - , Eq a31, Eq a32, Eq a33, Eq a34, Eq a35, Eq a36, Eq a37, Eq a38, Eq a39, Eq a40 - , Eq a41, Eq a42, Eq a43, Eq a44, Eq a45, Eq a46, Eq a47, Eq a48 - ) => Eq (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34, a35, a36, a37, a38, a39, a40, a41, a42, a43, a44, a45, a46, a47, a48) - -deriving instance - ( Eq a1, Eq a2, Eq a3, Eq a4, Eq a5, Eq a6, Eq a7, Eq a8, Eq a9, Eq a10 - , Eq a11, Eq a12, Eq a13, Eq a14, Eq a15, Eq a16, Eq a17, Eq a18, Eq a19, Eq a20 - , Eq a21, Eq a22, Eq a23, Eq a24, Eq a25, Eq a26, Eq a27, Eq a28, Eq a29, Eq a30 - , Eq a31, Eq a32, Eq a33, Eq a34, Eq a35, Eq a36, Eq a37, Eq a38, Eq a39, Eq a40 - , Eq a41, Eq a42, Eq a43, Eq a44, Eq a45, Eq a46, Eq a47, Eq a48, Eq a49 - ) => Eq (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34, a35, a36, a37, a38, a39, a40, a41, a42, a43, a44, a45, a46, a47, a48, a49) - -deriving instance - ( Eq a1, Eq a2, Eq a3, Eq a4, Eq a5, Eq a6, Eq a7, Eq a8, Eq a9, Eq a10 - , Eq a11, Eq a12, Eq a13, Eq a14, Eq a15, Eq a16, Eq a17, Eq a18, Eq a19, Eq a20 - , Eq a21, Eq a22, Eq a23, Eq a24, Eq a25, Eq a26, Eq a27, Eq a28, Eq a29, Eq a30 - , Eq a31, Eq a32, Eq a33, Eq a34, Eq a35, Eq a36, Eq a37, Eq a38, Eq a39, Eq a40 - , Eq a41, Eq a42, Eq a43, Eq a44, Eq a45, Eq a46, Eq a47, Eq a48, Eq a49, Eq a50 - ) => Eq (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34, a35, a36, a37, a38, a39, a40, a41, a42, a43, a44, a45, a46, a47, a48, a49, a50) - ----------------------------------------- - -deriving instance - ( Show a1, Show a2, Show a3, Show a4, Show a5, Show a6, Show a7, Show a8 - , Show a9, Show a10, Show a11, Show a12, Show a13, Show a14, Show a15, Show a16 - ) => Show (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16) - -deriving instance - ( Show a1, Show a2, Show a3, Show a4, Show a5, Show a6, Show a7, Show a8 - , Show a9, Show a10, Show a11, Show a12, Show a13, Show a14, Show a15, Show a16 - , Show a17 - ) => Show (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17) - -deriving instance - ( Show a1, Show a2, Show a3, Show a4, Show a5, Show a6, Show a7, Show a8 - , Show a9, Show a10, Show a11, Show a12, Show a13, Show a14, Show a15, Show a16 - , Show a17, Show a18 - ) => Show (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18) - -deriving instance - ( Show a1, Show a2, Show a3, Show a4, Show a5, Show a6, Show a7, Show a8 - , Show a9, Show a10, Show a11, Show a12, Show a13, Show a14, Show a15, Show a16 - , Show a17, Show a18, Show a19 - ) => Show (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19) - -deriving instance - ( Show a1, Show a2, Show a3, Show a4, Show a5, Show a6, Show a7, Show a8 - , Show a9, Show a10, Show a11, Show a12, Show a13, Show a14, Show a15, Show a16 - , Show a17, Show a18, Show a19, Show a20 - ) => Show (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20) - -deriving instance - ( Show a1, Show a2, Show a3, Show a4, Show a5, Show a6, Show a7, Show a8 - , Show a9, Show a10, Show a11, Show a12, Show a13, Show a14, Show a15, Show a16 - , Show a17, Show a18, Show a19, Show a20, Show a21 - ) => Show (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21) - -deriving instance - ( Show a1, Show a2, Show a3, Show a4, Show a5, Show a6, Show a7, Show a8 - , Show a9, Show a10, Show a11, Show a12, Show a13, Show a14, Show a15, Show a16 - , Show a17, Show a18, Show a19, Show a20, Show a21, Show a22 - ) => Show (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22) - -deriving instance - ( Show a1, Show a2, Show a3, Show a4, Show a5, Show a6, Show a7, Show a8 - , Show a9, Show a10, Show a11, Show a12, Show a13, Show a14, Show a15, Show a16 - , Show a17, Show a18, Show a19, Show a20, Show a21, Show a22, Show a23 - ) => Show (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23) - -deriving instance - ( Show a1, Show a2, Show a3, Show a4, Show a5, Show a6, Show a7, Show a8 - , Show a9, Show a10, Show a11, Show a12, Show a13, Show a14, Show a15, Show a16 - , Show a17, Show a18, Show a19, Show a20, Show a21, Show a22, Show a23, Show a24 - ) => Show (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24) - -deriving instance - ( Show a1, Show a2, Show a3, Show a4, Show a5, Show a6, Show a7, Show a8 - , Show a9, Show a10, Show a11, Show a12, Show a13, Show a14, Show a15, Show a16 - , Show a17, Show a18, Show a19, Show a20, Show a21, Show a22, Show a23, Show a24 - , Show a25 - ) => Show (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25) - -deriving instance - ( Show a1, Show a2, Show a3, Show a4, Show a5, Show a6, Show a7, Show a8 - , Show a9, Show a10, Show a11, Show a12, Show a13, Show a14, Show a15, Show a16 - , Show a17, Show a18, Show a19, Show a20, Show a21, Show a22, Show a23, Show a24 - , Show a25, Show a26 - ) => Show (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26) - -deriving instance - ( Show a1, Show a2, Show a3, Show a4, Show a5, Show a6, Show a7, Show a8 - , Show a9, Show a10, Show a11, Show a12, Show a13, Show a14, Show a15, Show a16 - , Show a17, Show a18, Show a19, Show a20, Show a21, Show a22, Show a23, Show a24 - , Show a25, Show a26, Show a27 - ) => Show (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27) - -deriving instance - ( Show a1, Show a2, Show a3, Show a4, Show a5, Show a6, Show a7, Show a8 - , Show a9, Show a10, Show a11, Show a12, Show a13, Show a14, Show a15, Show a16 - , Show a17, Show a18, Show a19, Show a20, Show a21, Show a22, Show a23, Show a24 - , Show a25, Show a26, Show a27, Show a28 - ) => Show (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28) - -deriving instance - ( Show a1, Show a2, Show a3, Show a4, Show a5, Show a6, Show a7, Show a8 - , Show a9, Show a10, Show a11, Show a12, Show a13, Show a14, Show a15, Show a16 - , Show a17, Show a18, Show a19, Show a20, Show a21, Show a22, Show a23, Show a24 - , Show a25, Show a26, Show a27, Show a28, Show a29 - ) => Show (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29) - -deriving instance - ( Show a1, Show a2, Show a3, Show a4, Show a5, Show a6, Show a7, Show a8 - , Show a9, Show a10, Show a11, Show a12, Show a13, Show a14, Show a15, Show a16 - , Show a17, Show a18, Show a19, Show a20, Show a21, Show a22, Show a23, Show a24 - , Show a25, Show a26, Show a27, Show a28, Show a29, Show a30 - ) => Show (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30) - -deriving instance - ( Show a1, Show a2, Show a3, Show a4, Show a5, Show a6, Show a7, Show a8 - , Show a9, Show a10, Show a11, Show a12, Show a13, Show a14, Show a15, Show a16 - , Show a17, Show a18, Show a19, Show a20, Show a21, Show a22, Show a23, Show a24 - , Show a25, Show a26, Show a27, Show a28, Show a29, Show a30, Show a31 - ) => Show (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31) - -deriving instance - ( Show a1, Show a2, Show a3, Show a4, Show a5, Show a6, Show a7, Show a8 - , Show a9, Show a10, Show a11, Show a12, Show a13, Show a14, Show a15, Show a16 - , Show a17, Show a18, Show a19, Show a20, Show a21, Show a22, Show a23, Show a24 - , Show a25, Show a26, Show a27, Show a28, Show a29, Show a30, Show a31, Show a32 - ) => Show (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32) - -deriving instance - ( Show a1, Show a2, Show a3, Show a4, Show a5, Show a6, Show a7, Show a8 - , Show a9, Show a10, Show a11, Show a12, Show a13, Show a14, Show a15, Show a16 - , Show a17, Show a18, Show a19, Show a20, Show a21, Show a22, Show a23, Show a24 - , Show a25, Show a26, Show a27, Show a28, Show a29, Show a30, Show a31, Show a32 - , Show a33 - ) => Show (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33) - -deriving instance - ( Show a1, Show a2, Show a3, Show a4, Show a5, Show a6, Show a7, Show a8 - , Show a9, Show a10, Show a11, Show a12, Show a13, Show a14, Show a15, Show a16 - , Show a17, Show a18, Show a19, Show a20, Show a21, Show a22, Show a23, Show a24 - , Show a25, Show a26, Show a27, Show a28, Show a29, Show a30, Show a31, Show a32 - , Show a33, Show a34 - ) => Show (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34) - -deriving instance - ( Show a1, Show a2, Show a3, Show a4, Show a5, Show a6, Show a7, Show a8 - , Show a9, Show a10, Show a11, Show a12, Show a13, Show a14, Show a15, Show a16 - , Show a17, Show a18, Show a19, Show a20, Show a21, Show a22, Show a23, Show a24 - , Show a25, Show a26, Show a27, Show a28, Show a29, Show a30, Show a31, Show a32 - , Show a33, Show a34, Show a35 - ) => Show (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34, a35) - -deriving instance - ( Show a1, Show a2, Show a3, Show a4, Show a5, Show a6, Show a7, Show a8 - , Show a9, Show a10, Show a11, Show a12, Show a13, Show a14, Show a15, Show a16 - , Show a17, Show a18, Show a19, Show a20, Show a21, Show a22, Show a23, Show a24 - , Show a25, Show a26, Show a27, Show a28, Show a29, Show a30, Show a31, Show a32 - , Show a33, Show a34, Show a35, Show a36 - ) => Show (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34, a35, a36) - -deriving instance - ( Show a1, Show a2, Show a3, Show a4, Show a5, Show a6, Show a7, Show a8 - , Show a9, Show a10, Show a11, Show a12, Show a13, Show a14, Show a15, Show a16 - , Show a17, Show a18, Show a19, Show a20, Show a21, Show a22, Show a23, Show a24 - , Show a25, Show a26, Show a27, Show a28, Show a29, Show a30, Show a31, Show a32 - , Show a33, Show a34, Show a35, Show a36, Show a37 - ) => Show (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34, a35, a36, a37) - -deriving instance - ( Show a1, Show a2, Show a3, Show a4, Show a5, Show a6, Show a7, Show a8 - , Show a9, Show a10, Show a11, Show a12, Show a13, Show a14, Show a15, Show a16 - , Show a17, Show a18, Show a19, Show a20, Show a21, Show a22, Show a23, Show a24 - , Show a25, Show a26, Show a27, Show a28, Show a29, Show a30, Show a31, Show a32 - , Show a33, Show a34, Show a35, Show a36, Show a37, Show a38 - ) => Show (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34, a35, a36, a37, a38) - -deriving instance - ( Show a1, Show a2, Show a3, Show a4, Show a5, Show a6, Show a7, Show a8 - , Show a9, Show a10, Show a11, Show a12, Show a13, Show a14, Show a15, Show a16 - , Show a17, Show a18, Show a19, Show a20, Show a21, Show a22, Show a23, Show a24 - , Show a25, Show a26, Show a27, Show a28, Show a29, Show a30, Show a31, Show a32 - , Show a33, Show a34, Show a35, Show a36, Show a37, Show a38, Show a39 - ) => Show (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34, a35, a36, a37, a38, a39) - -deriving instance - ( Show a1, Show a2, Show a3, Show a4, Show a5, Show a6, Show a7, Show a8 - , Show a9, Show a10, Show a11, Show a12, Show a13, Show a14, Show a15, Show a16 - , Show a17, Show a18, Show a19, Show a20, Show a21, Show a22, Show a23, Show a24 - , Show a25, Show a26, Show a27, Show a28, Show a29, Show a30, Show a31, Show a32 - , Show a33, Show a34, Show a35, Show a36, Show a37, Show a38, Show a39, Show a40 - ) => Show (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34, a35, a36, a37, a38, a39, a40) - -deriving instance - ( Show a1, Show a2, Show a3, Show a4, Show a5, Show a6, Show a7, Show a8 - , Show a9, Show a10, Show a11, Show a12, Show a13, Show a14, Show a15, Show a16 - , Show a17, Show a18, Show a19, Show a20, Show a21, Show a22, Show a23, Show a24 - , Show a25, Show a26, Show a27, Show a28, Show a29, Show a30, Show a31, Show a32 - , Show a33, Show a34, Show a35, Show a36, Show a37, Show a38, Show a39, Show a40 - , Show a41 - ) => Show (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34, a35, a36, a37, a38, a39, a40, a41) - -deriving instance - ( Show a1, Show a2, Show a3, Show a4, Show a5, Show a6, Show a7, Show a8 - , Show a9, Show a10, Show a11, Show a12, Show a13, Show a14, Show a15, Show a16 - , Show a17, Show a18, Show a19, Show a20, Show a21, Show a22, Show a23, Show a24 - , Show a25, Show a26, Show a27, Show a28, Show a29, Show a30, Show a31, Show a32 - , Show a33, Show a34, Show a35, Show a36, Show a37, Show a38, Show a39, Show a40 - , Show a41, Show a42 - ) => Show (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34, a35, a36, a37, a38, a39, a40, a41, a42) - -deriving instance - ( Show a1, Show a2, Show a3, Show a4, Show a5, Show a6, Show a7, Show a8 - , Show a9, Show a10, Show a11, Show a12, Show a13, Show a14, Show a15, Show a16 - , Show a17, Show a18, Show a19, Show a20, Show a21, Show a22, Show a23, Show a24 - , Show a25, Show a26, Show a27, Show a28, Show a29, Show a30, Show a31, Show a32 - , Show a33, Show a34, Show a35, Show a36, Show a37, Show a38, Show a39, Show a40 - , Show a41, Show a42, Show a43 - ) => Show (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34, a35, a36, a37, a38, a39, a40, a41, a42, a43) - -deriving instance - ( Show a1, Show a2, Show a3, Show a4, Show a5, Show a6, Show a7, Show a8 - , Show a9, Show a10, Show a11, Show a12, Show a13, Show a14, Show a15, Show a16 - , Show a17, Show a18, Show a19, Show a20, Show a21, Show a22, Show a23, Show a24 - , Show a25, Show a26, Show a27, Show a28, Show a29, Show a30, Show a31, Show a32 - , Show a33, Show a34, Show a35, Show a36, Show a37, Show a38, Show a39, Show a40 - , Show a41, Show a42, Show a43, Show a44 - ) => Show (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34, a35, a36, a37, a38, a39, a40, a41, a42, a43, a44) - -deriving instance - ( Show a1, Show a2, Show a3, Show a4, Show a5, Show a6, Show a7, Show a8 - , Show a9, Show a10, Show a11, Show a12, Show a13, Show a14, Show a15, Show a16 - , Show a17, Show a18, Show a19, Show a20, Show a21, Show a22, Show a23, Show a24 - , Show a25, Show a26, Show a27, Show a28, Show a29, Show a30, Show a31, Show a32 - , Show a33, Show a34, Show a35, Show a36, Show a37, Show a38, Show a39, Show a40 - , Show a41, Show a42, Show a43, Show a44, Show a45 - ) => Show (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34, a35, a36, a37, a38, a39, a40, a41, a42, a43, a44, a45) - -deriving instance - ( Show a1, Show a2, Show a3, Show a4, Show a5, Show a6, Show a7, Show a8 - , Show a9, Show a10, Show a11, Show a12, Show a13, Show a14, Show a15, Show a16 - , Show a17, Show a18, Show a19, Show a20, Show a21, Show a22, Show a23, Show a24 - , Show a25, Show a26, Show a27, Show a28, Show a29, Show a30, Show a31, Show a32 - , Show a33, Show a34, Show a35, Show a36, Show a37, Show a38, Show a39, Show a40 - , Show a41, Show a42, Show a43, Show a44, Show a45, Show a46 - ) => Show (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34, a35, a36, a37, a38, a39, a40, a41, a42, a43, a44, a45, a46) - -deriving instance - ( Show a1, Show a2, Show a3, Show a4, Show a5, Show a6, Show a7, Show a8 - , Show a9, Show a10, Show a11, Show a12, Show a13, Show a14, Show a15, Show a16 - , Show a17, Show a18, Show a19, Show a20, Show a21, Show a22, Show a23, Show a24 - , Show a25, Show a26, Show a27, Show a28, Show a29, Show a30, Show a31, Show a32 - , Show a33, Show a34, Show a35, Show a36, Show a37, Show a38, Show a39, Show a40 - , Show a41, Show a42, Show a43, Show a44, Show a45, Show a46, Show a47 - ) => Show (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34, a35, a36, a37, a38, a39, a40, a41, a42, a43, a44, a45, a46, a47) - -deriving instance - ( Show a1, Show a2, Show a3, Show a4, Show a5, Show a6, Show a7, Show a8 - , Show a9, Show a10, Show a11, Show a12, Show a13, Show a14, Show a15, Show a16 - , Show a17, Show a18, Show a19, Show a20, Show a21, Show a22, Show a23, Show a24 - , Show a25, Show a26, Show a27, Show a28, Show a29, Show a30, Show a31, Show a32 - , Show a33, Show a34, Show a35, Show a36, Show a37, Show a38, Show a39, Show a40 - , Show a41, Show a42, Show a43, Show a44, Show a45, Show a46, Show a47, Show a48 - ) => Show (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34, a35, a36, a37, a38, a39, a40, a41, a42, a43, a44, a45, a46, a47, a48) - -deriving instance - ( Show a1, Show a2, Show a3, Show a4, Show a5, Show a6, Show a7, Show a8 - , Show a9, Show a10, Show a11, Show a12, Show a13, Show a14, Show a15, Show a16 - , Show a17, Show a18, Show a19, Show a20, Show a21, Show a22, Show a23, Show a24 - , Show a25, Show a26, Show a27, Show a28, Show a29, Show a30, Show a31, Show a32 - , Show a33, Show a34, Show a35, Show a36, Show a37, Show a38, Show a39, Show a40 - , Show a41, Show a42, Show a43, Show a44, Show a45, Show a46, Show a47, Show a48 - , Show a49 - ) => Show (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34, a35, a36, a37, a38, a39, a40, a41, a42, a43, a44, a45, a46, a47, a48, a49) - -deriving instance - ( Show a1, Show a2, Show a3, Show a4, Show a5, Show a6, Show a7, Show a8 - , Show a9, Show a10, Show a11, Show a12, Show a13, Show a14, Show a15, Show a16 - , Show a17, Show a18, Show a19, Show a20, Show a21, Show a22, Show a23, Show a24 - , Show a25, Show a26, Show a27, Show a28, Show a29, Show a30, Show a31, Show a32 - , Show a33, Show a34, Show a35, Show a36, Show a37, Show a38, Show a39, Show a40 - , Show a41, Show a42, Show a43, Show a44, Show a45, Show a46, Show a47, Show a48 - , Show a49, Show a50 - ) => Show (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34, a35, a36, a37, a38, a39, a40, a41, a42, a43, a44, a45, a46, a47, a48, a49, a50) diff --git a/test/Test/Aeson/Compat.hs b/test/Test/Aeson/Compat.hs deleted file mode 100644 index 4ff4d1f..0000000 --- a/test/Test/Aeson/Compat.hs +++ /dev/null @@ -1,59 +0,0 @@ -{-# LANGUAGE CPP #-} -{-# LANGUAGE DerivingStrategies #-} - -module Test.Aeson.Compat - ( fromList - , Value0 - , mkValue0 - ) where - -import Data.Aeson -import Data.Text (Text) - -#if MIN_VERSION_aeson(2,0,0) - -import Data.Bifunctor (first) -import Data.Aeson.Key qualified as K -import Data.Aeson.KeyMap qualified as KM - -import Database.PostgreSQL.PQTypes.Internal.C.Types -import Database.PostgreSQL.PQTypes - -fromList :: [(Text, v)] -> KM.KeyMap v -fromList = KM.fromList . map (first K.fromText) - -newtype Value0 = Value0 { unValue0 :: Value } - deriving newtype (Eq, Show) - -instance ToSQL (JSON Value0) where - type PQDest (JSON Value0) = PGbytea - toSQL = aesonToSQL . unValue0 . unJSON - -instance FromSQL (JSON Value0) where - type PQBase (JSON Value0) = PGbytea - fromSQL = fmap (JSON . Value0) . aesonFromSQL - -instance ToSQL (JSONB Value0) where - type PQDest (JSONB Value0) = PGbytea - toSQL = aesonToSQL . unValue0 . unJSONB - -instance FromSQL (JSONB Value0) where - type PQBase (JSONB Value0) = PGbytea - fromSQL = fmap (JSONB . Value0) . aesonFromSQL - -mkValue0 :: Value -> Value0 -mkValue0 = Value0 - -#else - -import Data.HashMap.Strict qualified as HM - -fromList :: [(Text, v)] -> HM.HashMap Text v -fromList = HM.fromList - -type Value0 = Value - -mkValue0 :: Value0 -> Value0 -mkValue0 = id - -#endif diff --git a/test/Test/Array.hs b/test/Test/Array.hs new file mode 100644 index 0000000..bbb1af6 --- /dev/null +++ b/test/Test/Array.hs @@ -0,0 +1,273 @@ +{-# LANGUAGE AllowAmbiguousTypes #-} + +-- | Tests of the array decoder and the encoding of lists and vectors. +module Test.Array + ( arrayTests + ) where + +import Control.Monad +import Data.ByteString qualified as BS +import Data.Int +import Data.Text qualified as T +import Data.Time +import Data.Vector qualified as V +import Test.QuickCheck (Arbitrary) +import Test.Tasty + +import Data.Monoid.Utils +import Database.PostgreSQL.PQTypes +import Database.PostgreSQL.PQTypes.Internal.Oid +import Test.Env +import Test.RowDecoder (Simple (..)) + +arrayTests :: TestData -> [TestTree] +arrayTests td = [arrayDecoderTest td] + +arrayDecoderTest :: TestData -> TestTree +arrayDecoderTest td = + testGroup + "Array decoder" + [ arrayRoundtrips @Int32 "::int4[]" "Array of int4 roundtrips correctly" + , arrayRoundtrips @T.Text "::text[]" "Array of text roundtrips correctly" + , arrayRoundtrips @(Maybe Int32) "::int4[]" "Array with NULL elements roundtrips correctly" + , nullArrayWorks + , twoDimensionalArrayWorks + , threeDimensionalArrayWorks + , emptyMultiDimensionalArrayWorks + , arrayOfRecordsWorks + , arrayOfNullableRecordsWorks + , listInstanceWorks + , vectorDecodingWorks + , elementTypeMismatchFails + , vectorElementTypeMismatchFails + , elementOverconsumptionFails + , scalarDecoderOnTwoDimensionsFails + , arrayDecoderOnOneDimensionFails + , malformedDimensionsFail + , nestedListsEncodeAsMultiDimensional + , raggedArraysAreRejected + ] + where + arrayOf :: [SQL] -> SQL -> SQL + arrayOf xs castSql = "SELECT ARRAY[" <> mintercalate ", " xs <> "]" <> castSql + + arrayRoundtrips + :: forall a + . (Arbitrary a, Eq a, FromSQL a, Show a, ToSQL a) + => SQL + -> TestName + -> TestTree + arrayRoundtrips cast name = testCase name $ do + runTestEnv td defaultTransactionSettings . replicateM_ 100 $ do + xs <- randomValue @[a] 100 + runSQL_ $ arrayOf (map sqlParam xs) cast + xs' <- fetchOne fromSQL + assertEqual "Array doesn't change after getting through database" xs xs' + + nullArrayWorks = testCase "NULL array decodes to Nothing" $ do + runTestEnv td defaultTransactionSettings $ do + runSQL_ "SELECT NULL::int4[]" + mxs <- fetchOne $ fromSQL @(Maybe [Int32]) + assertEqual "NULL array decoded correctly" Nothing mxs + + twoDimensionalArrayWorks = testCase "Two-dimensional array decoding works" $ do + runTestEnv td defaultTransactionSettings $ do + runSQL_ "SELECT '{{1,2,3},{4,5,6}}'::int4[]" + xss <- fetchOne $ fromSQL @[[Int32]] + assertEqual "Array decoded correctly" [[1, 2, 3], [4, 5, 6]] xss + + threeDimensionalArrayWorks = testCase "Three-dimensional array decoding works" $ do + runTestEnv td defaultTransactionSettings $ do + runSQL_ "SELECT '{{{1,2},{3,4}},{{5,6},{7,8}}}'::int4[]" + xsss <- fetchOne $ fromSQL @[[[Int32]]] + assertEqual + "Array decoded correctly" + [[[1, 2], [3, 4]], [[5, 6], [7, 8]]] + xsss + + emptyMultiDimensionalArrayWorks = testCase "Empty multi-dimensional array decoding works" $ do + runTestEnv td defaultTransactionSettings $ do + runSQL_ "SELECT '{}'::int4[]" + xss <- fetchOne $ fromSQL @[[Int32]] + assertEqual "Array decoded correctly" [] xss + + arrayOfRecordsWorks = testCase "Array of composites decoding works" $ do + runTestEnv td defaultTransactionSettings $ do + runSQL_ "SELECT ARRAY[(1, '2024-01-01'::date), (NULL, NULL)]" + xs <- fetchOne $ fromSQL @[Simple] + assertEqual + "Array decoded correctly" + [ Simple (Just 1) (Just $ fromGregorian 2024 1 1) + , Simple Nothing Nothing + ] + xs + + arrayOfNullableRecordsWorks = testCase "Array of nullable composites decoding works" $ do + runTestEnv td defaultTransactionSettings $ do + runSQL_ "SELECT ARRAY[NULL, (2, NULL)]" + xs <- fetchOne $ fromSQL @[Maybe Simple] + assertEqual + "Array decoded correctly" + [Nothing, Just $ Simple (Just 2) Nothing] + xs + + listInstanceWorks = testCase "FromSQL instance for lists works" $ do + runTestEnv td defaultTransactionSettings $ do + runSQL_ "SELECT '{1,2,3}'::int4[], '{{1,2},{3,4}}'::int4[], 'hello'::text, '{foo,bar}'::text[]" + result <- fetchOne $ (,,,) <$> fromSQL <*> fromSQL <*> fromSQL <*> fromSQL + assertEqual + "Result is correct" + ( [1, 2, 3] :: [Int32] + , [[1, 2], [3, 4]] :: [[Int32]] + , "hello" :: String + , ["foo", "bar"] :: [String] + ) + result + + elementTypeMismatchFails = testCase "Type mismatch of array elements is detected" $ do + runTestEnv td defaultTransactionSettings $ do + runSQL_ "SELECT '{1,2}'::int4[]" + expectError @TypeMismatch "int4 elements decoded as int8" check $ + fetchOne (fromSQL @[Int64]) + where + check TypeMismatch {..} = do + assertEqual "Expected OID is correct" int8Oid tmExpectedOid + assertEqual "Delivered OID is correct" int4Oid tmDeliveredOid + + vectorDecodingWorks = testCase "Vector decoding works" $ do + runTestEnv td defaultTransactionSettings $ do + runSQL_ "SELECT '{1,2,3}'::int4[], '{{1,2},{3,4}}'::int4[], '{1,NULL}'::int4[], ARRAY[(2, NULL)]" + result <- fetchOne $ (,,,) <$> fromSQL <*> fromSQL <*> fromSQL <*> fromSQL + assertEqual + "Result is correct" + ( V.fromList [1, 2, 3 :: Int32] + , V.fromList [V.fromList [1, 2], V.fromList [3, 4 :: Int32]] + , V.fromList [Just 1, Nothing :: Maybe Int32] + , V.fromList [Simple (Just 2) Nothing] + ) + result + + vectorElementTypeMismatchFails = testCase "Type mismatch of vector elements is detected" $ do + runTestEnv td defaultTransactionSettings $ do + runSQL_ "SELECT '{1,2}'::int4[]" + expectError @TypeMismatch "int4 elements decoded as int8" check $ + fetchOne (fromSQL @(V.Vector Int64)) + where + check TypeMismatch {..} = do + assertEqual "Expected OID is correct" int8Oid tmExpectedOid + assertEqual "Delivered OID is correct" int4Oid tmDeliveredOid + + elementOverconsumptionFails = testCase "Consuming more than one field per array element is detected" $ do + runTestEnv td defaultTransactionSettings $ do + runSQL_ "SELECT '{1,2}'::int4[]" + expectError @RowLengthMismatch "two fields consumed per element" check $ + fetchOne (decodeArray $ (,) <$> fromSQL @Int32 <*> fromSQL @Int32) + where + check RowLengthMismatch {..} = do + assertEqual "Expected length is correct" 2 lengthExpected + assertEqual "Delivered length is correct" 1 lengthDelivered + + scalarDecoderOnTwoDimensionsFails = testCase "Scalar decoder fails on a two-dimensional array" $ do + runTestEnv td defaultTransactionSettings $ do + runSQL_ "SELECT '{{1},{2}}'::int4[]" + expectError @ArrayDimensionMismatch "scalar decoder on 2-dim array" check $ + fetchOne (fromSQL @[Int32]) + where + check ArrayDimensionMismatch {..} = do + assertEqual "Expected dimension is correct" 0 arrDimExpected + assertEqual "Delivered dimension is correct" 1 arrDimDelivered + + arrayDecoderOnOneDimensionFails = testCase "Nested array decoder fails on a one-dimensional array" $ do + runTestEnv td defaultTransactionSettings $ do + runSQL_ "SELECT '{1,2}'::int4[]" + expectError @HPQTypesError "array decoder on int4 elements" (\_ -> pure ()) $ + fetchOne (fromSQL @[[Int32]]) + + malformedDimensionsFail = testCase "Malformed array dimensions are rejected" $ do + runTestEnv td defaultTransactionSettings $ do + -- A header claiming dimensions of sizes 10^9 and 0: the number of + -- elements is 0, so the lack of element data is consistent, but + -- accepting the sizes would make the decoder allocate 10^9 + -- sub-arrays. + let zeroDim = + BS.pack $ + concat + [ [0, 0, 0, 2] -- 2 dimensions + , [0, 0, 0, 0] -- no NULLs + , [0, 0, 0, 23] -- int4 elements + , [59, 154, 202, 0, 0, 0, 0, 1] -- size 10^9, lower bound 1 + , [0, 0, 0, 0, 0, 0, 0, 1] -- size 0, lower bound 1 + ] + runQuery_ $ rawSQL "SELECT $1::bytea" (Identity zeroDim) + expectError @HPQTypesError "dimension of size 0" (\_ -> pure ()) $ + fetchOne (fromSQL @[[Int32]]) + -- A header claiming three dimensions of size 2^32 - 1: the number of + -- elements exceeds the maximum the server can send (and overflows + -- Int64). + let hugeDims = + BS.pack $ + concat + [ [0, 0, 0, 3] -- 3 dimensions + , [0, 0, 0, 0] -- no NULLs + , [0, 0, 0, 23] -- int4 elements + , concat (replicate 3 [255, 255, 255, 255, 0, 0, 0, 1]) + ] + runQuery_ $ rawSQL "SELECT $1::bytea" (Identity hugeDims) + expectError @HPQTypesError "number of elements too large" (\_ -> pure ()) $ + fetchOne (fromSQL @[[[Int32]]]) + + nestedListsEncodeAsMultiDimensional = testCase "Nested lists and vectors encode as multi-dimensional arrays" $ do + runTestEnv td defaultTransactionSettings $ do + let roundtrip :: (Eq a, Show a, FromSQL a, ToSQL a) => String -> a -> TestEnv () + roundtrip dims v = do + runQuery_ $ rawSQL "SELECT array_dims($1), $1" (Identity v) + result <- fetchOne ((,) <$> fromSQL @String <*> fromSQL) + assertEqual "Dimensions and value are correct" (dims, v) result + roundtrip "[1:2][1:3]" [[1, 2, 3], [4, 5, 6 :: Int32]] + roundtrip "[1:2][1:2]" . V.fromList $ + [ V.fromList [Just 1, Nothing] + , V.fromList [Nothing, Just (4 :: Int32)] + ] + roundtrip "[1:2][1:2][1:2]" [[[1, 2], [3, 4]], [[5, 6], [7, 8 :: Int32]]] + roundtrip "[1:2][1:2]" [V.fromList [1, 2], V.fromList [3, 4 :: Int32]] + roundtrip "[1:3]" ["foo", "bar", "baz" :: String] + roundtrip "[1:2][1:2]" [["foo", "bar"], ["baz", "qux" :: String]] + + raggedArraysAreRejected = testCase "Ragged multi-dimensional arrays are rejected before sending" $ do + runTestEnv td defaultTransactionSettings $ do + let rejected :: (Show a, ToSQL a) => String -> a -> TestEnv () + rejected what v = + expectError @HPQTypesError what (\_ -> pure ()) + . runQuery_ + $ rawSQL "SELECT $1" (Identity v) + -- The dangerous case: the number of elements matches the dimensions + -- taken from the last sub-list, so without the client-side check the + -- server would silently store a reshaped array. + rejected "sub-lists of different lengths" [[1, 2, 3], [4], [5, 6 :: Int32]] + rejected "sub-vectors of different lengths" . V.fromList $ + [V.fromList [1, 2], V.fromList [3 :: Int32]] + -- Raggedness one level down within a single branch. + rejected "deeper ragged sub-lists" [[[1, 2], [3, 4, 5 :: Int32]]] + -- Raggedness visible only across branches. + rejected "raggedness across branches" [[[1, 2]], [[3, 4, 5 :: Int32]]] + -- Raggedness visible only across branches, with the number of + -- elements matching the dimensions taken from the last branch + -- ([3, 2, 3]): sub-arrays are uniform among their immediate + -- siblings, so only comparing their full dimensions catches this + -- silent reshape. + rejected + "cross-branch raggedness with matching element count" + [ [[1, 2], [3, 4]] + , [[5, 6, 7, 8], [9, 10, 11, 12]] + , [[13, 14, 15], [16, 17, 18 :: Int32]] + ] + -- Mixed nesting. + rejected "ragged vector of lists" . V.fromList $ [[1, 2], [3 :: Int32]] + -- A NULL sub-array (which the server cannot represent either). + rejected "NULL sub-array" [Just [1, 2], Nothing, Just [3, 4 :: Int32]] + rejected "ragged lists of strings" [["foo", "bar"], ["baz" :: String]] + -- Strings are scalar elements: their lengths are not dimensions. + let strss = [["foo", "a"], ["quux", "bc" :: String]] + runQuery_ $ rawSQL "SELECT $1" (Identity strss) + strss' <- fetchOne fromSQL + assertEqual "String lengths are not dimensions" strss strss' diff --git a/test/Test/Connection.hs b/test/Test/Connection.hs new file mode 100644 index 0000000..457e38e --- /dev/null +++ b/test/Test/Connection.hs @@ -0,0 +1,277 @@ +-- | Tests of connection management: autocommit mode, roles, prepared +-- statements, notifications, query interruption and acquisition modes. +module Test.Connection + ( connectionTests + ) where + +import Control.Concurrent.Lifted +import Control.Exception (ErrorCall (..)) +import Control.Monad +import Control.Monad.Base +import Control.Monad.Catch +import Data.Int +import Data.Maybe +import Data.Text qualified as T +import Data.Typeable +import System.Timeout.Lifted +import Test.Tasty + +import Data.Monoid.Utils +import Database.PostgreSQL.PQTypes +import Test.Env + +connectionTests :: TestData -> [TestTree] +connectionTests td = + [ autocommitTest td + , setRoleTest td + , preparedStatementTest td + , notifyTest td + , queryInterruptionTest td + , syncExceptionInterruptionTest td + , finalizationInterruptionTest td + , copyNotSupportedTest td + , onDemandTest td + , acquisitionModeChangeFailureTest td + ] + +autocommitTest :: TestData -> TestTree +autocommitTest td = testCase "Autocommit mode works" + . runTestEnv td defaultTransactionSettings + . unsafeWithoutTransaction + $ do + let sint = Identity (1 :: Int32) + runQuery_ $ rawSQL "INSERT INTO test1_ (a) VALUES ($1)" sint + withNewConnection $ do + n <- runQuery $ rawSQL "SELECT a FROM test1_ WHERE a = $1" sint + assertEqual "Other connection sees autocommited data" 1 n + runQuery_ $ rawSQL "DELETE FROM test1_ WHERE a = $1" sint + +setRoleTest :: TestData -> TestTree +setRoleTest td = testCase "SET ROLE works" . bracket createRole dropRole $ \case + False -> putStrLn "Cannot create role, skipping SET ROLE test" + True -> do + runDBT roledCs defaultTransactionSettings $ do + runSQL_ "SELECT CURRENT_USER::text" + role <- fetchOne (fromSQL @String) + assertEqual "Role set successfully" testRole role + where + testRole :: String + testRole = "hpqtypes_test_role" + + ConnectionSource roledCs = + simpleSource $ + (snd td) + { csRole = Just $ unsafeSQL testRole + } + + createRole = runTestEnv td defaultTransactionSettings $ do + try (runSQL_ $ "CREATE ROLE" <+> unsafeSQL testRole) >>= \case + Right () -> pure True + Left DBException {} -> pure False + + dropRole = \case + False -> pure () + True -> runTestEnv td defaultTransactionSettings $ do + runSQL_ $ "DROP ROLE" <+> unsafeSQL testRole + +preparedStatementTest :: TestData -> TestTree +preparedStatementTest td = testCase "Execution of prepared statements works" + . runTestEnv td defaultTransactionSettings + $ do + let name = "select1" + + checkPrepared name "Statement is not prepared" 0 + execPrepared name 42 + checkPrepared name "Statement is prepared" 1 + execPrepared name 89 + + let i3 = "lalala" :: String + -- Changing parameter type in an already prepared statement shouldn't work. + o3 <- try . runPreparedQuery_ name $ ("SELECT" i3) + case o3 of + Left DBException {} -> pure () + Right r3 -> liftBase . assertFailure $ "Expected DBException, but got" <+> show r3 + where + checkPrepared :: QueryName -> String -> Int -> TestEnv () + checkPrepared (QueryName name) assertTitle expected = do + n <- runSQL $ "SELECT TRUE FROM pg_prepared_statements WHERE name =" name + assertEqual assertTitle expected n + + execPrepared :: QueryName -> Int32 -> TestEnv () + execPrepared name input = do + runPreparedQuery_ name $ "SELECT" input + output <- fetchOne fromSQL + assertEqual "Results match" input output + +notifyTest :: TestData -> TestTree +notifyTest td = testCase "Notifications work" . runTestEnv td defaultTransactionSettings . unsafeWithoutTransaction $ do + listen chan + forkNewConn $ notify chan payload + mnt1 <- getNotification 250000 + liftBase $ assertBool "Notification received" (isJust mnt1) + Just nt1 <- pure mnt1 + assertEqual "Channels are equal" chan (ntChannel nt1) + assertEqual "Payloads are equal" payload (ntPayload nt1) + + unlisten chan + forkNewConn $ notify chan payload + mnt2 <- getNotification 250000 + assertEqual "No notification received after unlisten" Nothing mnt2 + + listen chan + unlistenAll + forkNewConn $ notify chan payload + mnt3 <- getNotification 250000 + assertEqual "No notification received after unlistenAll" Nothing mnt3 + where + chan = "test_channel" + payload = "test_payload" + forkNewConn action = do + sem <- newEmptyMVar + void . fork . withNewConnection $ do + -- withNewConnection needs access to the connection state to get current + -- ConnectionAcquisitionMode, but getNotification called immediately + -- after takes ownership of the connection state for its duration, so if + -- CPU gets to it first, withNewConnection will block and notification + -- will never be sent. + putMVar sem () + action + takeMVar sem + +queryInterruptionTest :: TestData -> TestTree +queryInterruptionTest td = testCase "Queries are interruptible" $ do + let sleep = "SELECT pg_sleep(2)" + ints = sqlGenInts 5000000 + runTestEnv td defaultTransactionSettings . unsafeWithoutTransaction $ do + testQuery id sleep + testQuery id ints + runTestEnv td defaultTransactionSettings $ do + testQuery (withSavepoint "ints") ints + testQuery (withSavepoint "sleep") sleep + where + testQuery m sql = + timeout 500000 (m $ runSQL_ sql) >>= \case + Just _ -> liftBase $ do + assertFailure $ "Query" <+> show sql <+> "wasn't interrupted in time" + Nothing -> pure () + +syncExceptionInterruptionTest :: TestData -> TestTree +syncExceptionInterruptionTest td = testCase + "Query interrupted by an exception of a synchronous type is cancelled" + . runTestEnv td defaultTransactionSettings + . unsafeWithoutTransaction + $ do + -- throwTo delivers exceptions of synchronous types (e.g. ExitCode from a + -- shutdown handler) from other threads the same way as asynchronous + -- ones, so they too must cancel the query and drain the connection of + -- its results, so that code that catches such an exception can keep + -- running queries. + tid <- myThreadId + void . fork $ do + threadDelay 100000 + throwTo tid $ ErrorCall "interrupt" + interrupted <- + timeout 1000000 . expectError @ErrorCall "interrupted query" (\_ -> pure ()) $ + runSQL_ "SELECT pg_sleep(2)" + when (isNothing interrupted) . liftBase $ + assertFailure "Query wasn't cancelled in time" + runSQL_ "SELECT 1::int4" + n <- fetchOne (fromSQL @Int32) + assertEqual "Connection is usable after the interruption" 1 n + +finalizationInterruptionTest :: TestData -> TestTree +finalizationInterruptionTest td = testCase + "Interrupted connection finalization doesn't deadlock other threads" + $ do + queryDone <- newEmptyMVar + -- Exit the runDBT scope while the forked thread is still using the + -- connection, so that the finalization blocks on the connection state + -- MVar, and interrupt it with a timeout. + eres <- timeout 500000 . runTestEnv td defaultTransactionSettings $ do + _ <- fork $ do + runSQL_ "SELECT pg_sleep(2)" + putMVar queryDone () + threadDelay 200000 + case eres of + Just _ -> assertFailure "Connection finalization wasn't interrupted in time" + Nothing -> pure () + -- The forked thread needs to be able to finish, i.e. to return the + -- connection state to the MVar once its query completes. + timeout 5000000 (takeMVar queryDone) >>= \case + Just () -> pure () + Nothing -> assertFailure "Forked thread deadlocked on the connection state MVar" + +copyNotSupportedTest :: TestData -> TestTree +copyNotSupportedTest td = testCase "COPY statements fail with an error" $ do + -- The failed COPY statement leaves the connection in a copy mode, making + -- it unusable for further queries, so run it on a dedicated connection. + eres <- try . runDBT copyCs defaultTransactionSettings $ do + runSQL_ "COPY (SELECT 1) TO STDOUT" + case eres of + Left DBException {dbeError = err} -> case fromException $ toException err of + Just (HPQTypesError msg) -> + assertBool ("Error message mentions COPY: " ++ msg) $ + "COPY" `T.isInfixOf` T.pack msg + Nothing -> assertFailure $ "Unexpected error: " ++ show err + Right () -> assertFailure "COPY statement didn't fail" + where + ConnectionSource copyCs = simpleSource $ snd td + +onDemandTest :: TestData -> TestTree +onDemandTest td = testCase "OnDemand mode works" . runTestEnv td ts $ do + runSQL_ "SELECT a FROM test1_" + _ <- fetchMany (fromSQL @Int32) + + er <- try . runSQL_ $ "INSERT INTO test1_ (a) VALUES (" v <+> ")" + liftBase $ case er of + Left DBException {..} + | Just DetailedQueryError {..} <- cast dbeError -> do + assertEqual "Unexpected error code" ReadOnlySqlTransaction qeErrorCode + | otherwise -> assertFailure $ "Unexpected exception: " ++ show dbeError + Right () -> assertFailure "DBException wasn't thrown" + + acquireAndHoldConnection DefaultLevel DefaultPermissions + runSQL_ "SHOW transaction_read_only" + "off" <- fetchOne $ fromSQL @T.Text + -- Switch twice to check idempotency. + acquireAndHoldConnection DefaultLevel DefaultPermissions + runSQL_ $ "INSERT INTO test1_ (a) VALUES (" v <+> ")" + + unsafeAcquireOnDemandConnection + runSQL_ "SHOW transaction_read_only" + "on" <- fetchOne $ fromSQL @T.Text + -- Switch twice to check idempotency. + unsafeAcquireOnDemandConnection + n <- runSQL $ "SELECT TRUE FROM test1_ WHERE a =" v + assertEqual "Unexpected amount of rows" 1 n + where + ts = defaultTransactionSettings {tsConnectionAcquisitionMode = AcquireOnDemand} + + v :: Int32 + v = 1337 + +acquisitionModeChangeFailureTest :: TestData -> TestTree +acquisitionModeChangeFailureTest td = testCase + "Connection state is usable after a failed acquisition mode change" + . runTestEnv td defaultTransactionSettings + $ do + -- Violate a deferred constraint so that the COMMIT issued by + -- unsafeAcquireOnDemandConnection fails. + runSQL_ "CREATE TABLE mode_change_ (a INTEGER UNIQUE DEFERRABLE INITIALLY DEFERRED)" + runSQL_ "INSERT INTO mode_change_ (a) VALUES (1), (1)" + eres <- try unsafeAcquireOnDemandConnection + liftBase $ case eres of + Left DBException {..} + | Just DetailedQueryError {..} <- cast dbeError -> do + assertEqual "Unexpected error code" UniqueViolation qeErrorCode + | otherwise -> assertFailure $ "Unexpected exception: " ++ show dbeError + Right () -> assertFailure "DBException wasn't thrown" + + -- The failed COMMIT returned the connection to its source, so the + -- connection state needs to be on demand now. In particular, it must not + -- refer to the connection that is already gone. + mode <- getConnectionAcquisitionMode + assertEqual "Unexpected connection acquisition mode" AcquireOnDemand mode + runSQL_ "SELECT 1" + n <- fetchOne (fromSQL @Int32) + assertEqual "Unexpected query result" 1 n diff --git a/test/Test/Cursor.hs b/test/Test/Cursor.hs new file mode 100644 index 0000000..2e353af --- /dev/null +++ b/test/Test/Cursor.hs @@ -0,0 +1,101 @@ +-- | Tests of cursor support. +module Test.Cursor + ( cursorTests + ) where + +import Control.Monad.Base +import Control.Monad.Catch +import Data.Function +import Data.Int +import Data.Typeable +import Test.Tasty + +import Data.Monoid.Utils +import Database.PostgreSQL.PQTypes +import Test.Env + +cursorTests :: TestData -> [TestTree] +cursorTests td = [cursorTest td] + +cursorTest :: TestData -> TestTree +cursorTest td = + testGroup + "Cursors" + [ basicCursorWorks + , scrollableCursorWorks + , withHoldCursorWorks + , doubleCloseWorks + , cleanupDoesNotMaskErrors + ] + where + basicCursorWorks = testCase "Basic cursor works" $ do + runTestEnv td defaultTransactionSettings $ do + withCursor "ints" NoScroll NoHold (sqlGenInts 5) $ \cursor -> do + xs <- (`fix` []) $ \loop acc -> + cursorFetch cursor CD_Next >>= \case + 0 -> pure $ reverse acc + 1 -> do + n <- fetchOne $ fromSQL @Int32 + loop $ n : acc + n -> error $ "Unexpected number of rows: " ++ show n + assertEqual "Data fetched correctly" [1 .. 5] xs + + scrollableCursorWorks = testCase "Cursor declared as SCROLL works" $ do + runTestEnv td defaultTransactionSettings $ do + withCursor "ints" Scroll NoHold (sqlGenInts 10) $ \cursor -> do + checkMove cursor CD_Next 1 + checkMove cursor CD_Prior 0 + checkMove cursor CD_First 1 + checkMove cursor CD_Last 1 + checkMove cursor CD_Backward_All 9 + checkMove cursor CD_Forward_All 10 + checkMove cursor (CD_Absolute 0) 0 + checkMove cursor (CD_Relative 0) 0 + checkMove cursor (CD_Forward 5) 5 + checkMove cursor (CD_Backward 5) 4 + + cursorFetch_ cursor CD_Forward_All + xs1 <- fetchMany $ fromSQL @Int32 + assertEqual "xs1 is correct" [1 .. 10] xs1 + cursorFetch_ cursor CD_Backward_All + xs2 <- fetchMany $ fromSQL @Int32 + assertEqual "xs2 is correct" (reverse [1 .. 10]) xs2 + where + checkMove cursor cd expected = do + moved <- cursorMove cursor cd + assertEqual + ( "Moving cursor with" + <+> show cd + <+> "would fetch a correct amount of rows" + ) + expected + moved + + withHoldCursorWorks = testCase "Cursor declared as WITH HOLD works" $ do + runTestEnv td defaultTransactionSettings . unsafeWithoutTransaction $ do + withCursor "ints" NoScroll Hold (sqlGenInts 10) $ \cursor -> do + cursorFetch_ cursor CD_Forward_All + rows <- ntuples <$> queryResult + assertEqual "Number of rows is correct" 10 rows + sum_ <- foldlDB (fromSQL @Int32) (\acc n -> pure $ acc + n) 0 + assertEqual "sum_ is correct" 55 sum_ + + doubleCloseWorks = testCase "Double CLOSE works on a cursor" $ do + runTestEnv td defaultTransactionSettings $ do + withCursorSQL "ints" NoScroll NoHold "SELECT 1" $ \_cursor -> do + -- Commiting a transaction closes the cursor + commit + + cleanupDoesNotMaskErrors = testCase "Cursor cleanup doesn't mask the original error" $ do + runTestEnv td defaultTransactionSettings $ do + -- The failing query puts the transaction in the aborted state, in + -- which closing the cursor fails with in_failed_sql_transaction. The + -- original error needs to propagate regardless. + eres <- try . withCursorSQL "ints" NoScroll NoHold (sqlGenInts 5) $ \_cursor -> do + runSQL_ "SELECT 1/0" + liftBase $ case eres :: Either DBException () of + Left DBException {..} + | Just DetailedQueryError {..} <- cast dbeError -> do + assertEqual "Unexpected error code" DivisionByZero qeErrorCode + | otherwise -> assertFailure $ "Unexpected exception: " ++ show dbeError + Right () -> assertFailure "DBException wasn't thrown" diff --git a/test/Test/Enum.hs b/test/Test/Enum.hs new file mode 100644 index 0000000..b0b582a --- /dev/null +++ b/test/Test/Enum.hs @@ -0,0 +1,98 @@ +-- | Tests of the enum deriving helpers. +module Test.Enum + ( enumTests + ) where + +import Control.Monad +import Data.Int +import Data.Text qualified as T +import Test.Tasty + +import Database.PostgreSQL.PQTypes +import Database.PostgreSQL.PQTypes.Internal.Oid +import Test.Env + +enumTests :: TestData -> [TestTree] +enumTests td = [enumTest td] + +data Colours = Blue | Black | Red | Mauve | Orange + deriving stock (Eq, Show, Enum, Bounded) + deriving (PQFormat, ToSQL, FromSQL) via SQLEnum Colours + +instance EnumEncodingAs Int16 Colours where + encodeEnumAs = \case + Blue -> 1 + Black -> 7 + Red -> 2 + Mauve -> 6 + Orange -> 3 + +data Person = Alfred | Bertrand | Charles + deriving stock (Eq, Show, Enum, Bounded) + deriving (PQFormat, ToSQL, FromSQL) via SQLEnumAsText Person + +instance EnumEncodingAs T.Text Person where + encodeEnumAs = \case + Alfred -> "alfred" + Bertrand -> "bertrand" + Charles -> "charles" + +enumTest :: TestData -> TestTree +enumTest td = testCase "Enum deriving helpers work" + . runTestEnv td defaultTransactionSettings + $ do + forM_ [minBound .. maxBound] $ \(c :: Colours) -> do + runSQL_ $ "SELECT" c + c' <- fetchOne fromSQL + assertEqual "Colour roundtrips correctly" c c' + runSQL_ "SELECT 42::int2" + expectError @(RangeError Int16) "invalid enum value" checkRange $ + fetchOne (fromSQL @Colours) + -- The RangeError is wrapped in a ConversionError carrying the position + -- of the field (courtesy of the MonadThrow instance of RowDecoder). + runSQL_ "SELECT 42::int2" + expectError @ConversionError "enum error carries position" checkRangePosition $ + fetchOne (fromSQL @Colours) + + -- Values of actual PostgreSQL enum types can be inserted, compared with + -- and fetched without any casts. + forM_ [minBound .. maxBound] $ \(p :: Person) -> do + runQuery_ $ rawSQL "INSERT INTO people_ (p) VALUES ($1)" (Identity p) + runSQL_ "SELECT p FROM people_ ORDER BY p" + people <- fetchMany (fromSQL @Person) + assertEqual "People roundtrip correctly" [minBound .. maxBound] people + n <- runQuery $ rawSQL "SELECT TRUE FROM people_ WHERE p = $1" (Identity Bertrand) + assertEqual "Number of Bertrands is correct" 1 n + + -- Arrays of text enums are sent as text[]: contexts without type + -- information work, but usage against enum columns needs a cast. + runQuery_ $ rawSQL "SELECT $1" (Identity [Alfred, Charles]) + people' <- fetchOne (fromSQL @[Person]) + assertEqual "Array of people roundtrips correctly" [Alfred, Charles] people' + nArr <- + runQuery $ + rawSQL "SELECT TRUE FROM people_ WHERE p = ANY($1::person_[])" (Identity [Alfred, Bertrand]) + assertEqual "Number of people in the array is correct" 2 nArr + runSQL_ "SELECT 'batman'::text" + expectError @(InvalidValue T.Text) "invalid enum text" checkInvalid $ + fetchOne (fromSQL @Person) + runSQL_ "SELECT 1::int4" + expectError @TypeMismatch "enum decoder on int4" checkNonEnum $ + fetchOne (fromSQL @Person) + rollback + where + checkRange RangeError {..} = do + assertEqual "Invalid value is correct" 42 reValue + assertEqual "Valid ranges are correct" [(1, 3), (6, 7)] reRange + checkRangePosition ConversionError {convColumn = col, convRow = row} = do + assertEqual "Column is correct" 1 col + assertEqual "Row is correct" 1 row + checkInvalid InvalidValue {..} = do + assertEqual "Invalid value is correct" "batman" ivValue + assertEqual + "Valid values are correct" + (Just ["alfred", "bertrand", "charles"]) + ivValidValues + checkNonEnum TypeMismatch {..} = do + assertEqual "Expected OID is correct" textOid tmExpectedOid + assertEqual "Delivered OID is correct" int4Oid tmDeliveredOid diff --git a/test/Test/Env.hs b/test/Test/Env.hs new file mode 100644 index 0000000..a317273 --- /dev/null +++ b/test/Test/Env.hs @@ -0,0 +1,117 @@ +-- | The monad the tests run in, along with assertion helpers. +module Test.Env + ( TestEnv (..) + , TestData + , runTestEnv + , randomValue + , assertEqual + , expectError + , sqlGenInts + , _printTime + + -- * Re-exports + , module Test.Tasty.HUnit + ) where + +import Control.Monad.Base +import Control.Monad.Catch +import Control.Monad.State qualified as S +import Control.Monad.Trans.Control +import Data.Int +import Data.Time +import System.Random +import Test.QuickCheck +import Test.QuickCheck.Gen +import Test.QuickCheck.Random +import Test.Tasty.HUnit hiding (assertEqual) +import Test.Tasty.HUnit qualified as HUnit + +import Data.Monoid.Utils +import Database.PostgreSQL.PQTypes + +type InnerTestEnv = S.StateT QCGen (DBT IO) + +newtype TestEnv a = TestEnv {unTestEnv :: InnerTestEnv a} + deriving newtype + ( Applicative + , Functor + , Monad + , MonadFail + , MonadBase IO + , MonadCatch + , MonadDB + , MonadMask + , MonadThrow + ) + +instance MonadBaseControl IO TestEnv where + type StM TestEnv a = StM InnerTestEnv a + liftBaseWith f = TestEnv $ liftBaseWith (\run -> f $ run . unTestEnv) + restoreM = TestEnv . restoreM + +type TestData = (QCGen, ConnectionSettings) + +runTestEnv :: TestData -> TransactionSettings -> TestEnv a -> IO a +runTestEnv (env, connSettings) ts m = runDBT cs ts $ S.evalStateT (unTestEnv m) env + where + ConnectionSource cs = simpleSource connSettings + +---------------------------------------- + +randomValue :: Arbitrary a => Int -> TestEnv a +randomValue n = do + gen <- TestEnv $ S.state splitGen + pure $ unGen arbitrary gen n + +-- | 'HUnit.assertEqual' lifted to any 'MonadBase' 'IO' monad. +assertEqual :: (Eq a, Show a, MonadBase IO m) => String -> a -> a -> m () +assertEqual preface expected actual = + liftBase $ HUnit.assertEqual preface expected actual + +-- | Find an error of a given type in a chain of arbitrarily nested +-- 'ConversionError's. +findNestedError :: forall e. Exception e => SomeException -> Maybe e +findNestedError err = case fromException err of + Just e -> Just e + Nothing + | Just (ConversionError _ _ _ e) <- fromException err -> + findNestedError $ toException e + | otherwise -> Nothing + +-- | Check that an action throws a 'DBException' with an error of a given type +-- inside (possibly wrapped in 'ConversionError'). +expectError + :: forall e a + . Exception e + => String + -> (e -> TestEnv ()) + -> TestEnv a + -> TestEnv () +expectError what check action = + try action >>= \case + Left DBException {dbeError = err} + | Just e <- findNestedError @e (toException err) -> check e + | otherwise -> + liftBase . assertFailure $ + "Unexpected exception (" ++ what ++ "): " ++ show err + Right _ -> + liftBase . assertFailure $ + "DBException wasn't thrown (" ++ what ++ ")" + +---------------------------------------- + +sqlGenInts :: Int32 -> SQL +sqlGenInts n = + smconcat + [ "WITH RECURSIVE ints(n) AS" + , "( VALUES (1) UNION ALL SELECT n+1 FROM ints WHERE n <" n + , ") SELECT n FROM ints" + ] + +_printTime :: MonadBase IO m => m a -> m a +_printTime m = do + t <- liftBase getCurrentTime + res <- m + t' <- liftBase getCurrentTime + liftBase . putStrLn $ "Time: " ++ show (diffUTCTime t' t) + pure res diff --git a/test/Test/QuickCheck/Arbitrary/Instances.hs b/test/Test/QuickCheck/Arbitrary/Instances.hs index 6bebb8f..5a74f78 100644 --- a/test/Test/QuickCheck/Arbitrary/Instances.hs +++ b/test/Test/QuickCheck/Arbitrary/Instances.hs @@ -1,11 +1,14 @@ -{-# LANGUAGE CPP #-} {-# OPTIONS_GHC -Wno-orphans #-} module Test.QuickCheck.Arbitrary.Instances where import Data.Aeson +import Data.Aeson.Key qualified as K +import Data.Aeson.KeyMap qualified as KM import Data.ByteString qualified as BS import Data.Char +import Data.IP +import Data.Int import Data.Scientific import Data.Text qualified as T import Data.Time @@ -16,27 +19,21 @@ import Test.QuickCheck.Arbitrary import Test.QuickCheck.Gen import Database.PostgreSQL.PQTypes -import Test.Aeson.Compat qualified as C +-- | 'String' with a generator restricted to Latin-1 characters other than +-- NUL, which PostgreSQL rejects in text values. newtype String0 = String0 {unString0 :: String} - deriving (Eq, Ord, Show) - -instance PQFormat String0 where - pqFormat = pqFormat @String - -instance FromSQL String0 where - type PQBase String0 = PQBase String - fromSQL = fmap String0 . fromSQL - -instance ToSQL String0 where - type PQDest String0 = PQDest String - toSQL (String0 s) = toSQL s + deriving stock (Eq, Ord, Show) + deriving newtype (PQFormat, ToSQL, FromSQL) instance Arbitrary String0 where arbitrary = String0 . map (chr . fromIntegral . unWord0) <$> arbitrary +-- | 'Word8' with a generator that excludes 0, so that textual values built +-- from these bytes ('String0', 'T.Text') don't contain NUL characters, +-- which PostgreSQL rejects in text values. newtype Word0 = Word0 {unWord0 :: Word8} - deriving (Enum, Eq, Integral, Num, Ord, Real) + deriving newtype (Enum, Eq, Integral, Num, Ord, Real) instance Bounded Word0 where minBound = 1 @@ -46,6 +43,18 @@ instance Arbitrary Word0 where arbitrary = arbitrarySizedBoundedIntegral shrink = shrinkIntegral +newtype AsciiChar = AsciiChar {unAsciiChar :: Char} + deriving stock (Eq, Show) + deriving newtype (PQFormat, ToSQL, FromSQL) + +instance Arbitrary AsciiChar where + -- QuickCheck >= 2.10 changed Arbitrary Char instance to include proper + -- Unicode CharS, but PostgreSQL only accepts ASCII ones. Unlike in text + -- values, NUL doesn't need to be excluded here: a "char" value is a raw + -- byte, so NUL is fine. + arbitrary = AsciiChar . chr <$> oneof [choose (0, 127), choose (0, 255)] + shrink = map AsciiChar . shrink . unAsciiChar + instance Arbitrary BS.ByteString where arbitrary = BS.pack . map unWord0 <$> arbitrary @@ -61,11 +70,89 @@ instance Arbitrary U.UUID where ---------------------------------------- +-- | The three components of an interval are mutually independent and +-- signed, so generate them independently, with mixed signs and values past +-- the carry boundaries (e.g. more than 24 hours worth of microseconds). +instance Arbitrary Interval where + arbitrary = + mconcat + <$> sequence + [ imonths <$> choose (-1000, 1000) + , idays <$> choose (-1000, 1000) + , imicroseconds <$> choose (-172800000000, 172800000000) -- 2 days + ] + +instance Arbitrary json => Arbitrary (JSON json) where + arbitrary = JSON <$> arbitrary + +instance Arbitrary jsonb => Arbitrary (JSONB jsonb) where + arbitrary = JSONB <$> arbitrary + +instance Arbitrary a => Arbitrary (V.Vector a) where + arbitrary = V.fromList <$> arbitrary + +-- | Two-dimensional array with a generator that respects the rectangularity +-- of PostgreSQL arrays. +newtype Matrix a = Matrix [[a]] + deriving stock (Show) + deriving newtype (PQFormat, ToSQL, FromSQL) + +-- | The server normalizes arrays with no elements to zero-dimensional ones, +-- hence a matrix of empty rows is equal to the empty matrix. +instance Eq a => Eq (Matrix a) where + Matrix [] == Matrix yss = all null yss + Matrix xss == Matrix [] = all null xss + Matrix xss == Matrix yss = xss == yss + +instance Arbitrary a => Arbitrary (Matrix a) where + arbitrary = do + let bound = (`mod` 100) . abs + outerDim <- bound <$> arbitrary + innerDim <- bound <$> arbitrary + Matrix <$> vectorOf outerDim (vectorOf innerDim arbitrary) + +-- | Like 'Matrix', but based on 'V.Vector'. +newtype VMatrix a = VMatrix (V.Vector (V.Vector a)) + deriving stock (Show) + deriving (PQFormat, ToSQL, FromSQL) via V.Vector (V.Vector a) + +instance Eq a => Eq (VMatrix a) where + VMatrix v1 == VMatrix v2 + | V.null v1 = V.all V.null v2 + | V.null v2 = V.all V.null v1 + | otherwise = v1 == v2 + +instance Arbitrary a => Arbitrary (VMatrix a) where + arbitrary = do + Matrix xss <- arbitrary + pure . VMatrix . V.fromList $ map V.fromList xss + +---------------------------------------- + instance Arbitrary Scientific where - arbitrary = scientific <$> arbitrary <*> ((`mod` 100) <$> arbitrary) + arbitrary = scientific <$> arbitrary <*> (subtract 50 . (`mod` 100) <$> arbitrary) -instance Arbitrary C.Value0 where - arbitrary = C.mkValue0 <$> value depth depth +-- | 'Value' with a custom generator, since the 'Arbitrary' instance from +-- @aeson@ is unsuitable for roundtrip tests: its strings and object keys +-- can contain NUL characters (which PostgreSQL rejects) and its numbers +-- have unbounded exponents (which explode when stored in @numeric@). +newtype Value0 = Value0 {unValue0 :: Value} + deriving newtype (Eq, Show) + +instance ToSQL (JSON Value0) where + toSQL = toSQL . fmap unValue0 + +instance FromSQL (JSON Value0) where + fromSQL = fmap Value0 <$> fromSQL + +instance ToSQL (JSONB Value0) where + toSQL = toSQL . fmap unValue0 + +instance FromSQL (JSONB Value0) where + fromSQL = fmap Value0 <$> fromSQL + +instance Arbitrary Value0 where + arbitrary = Value0 <$> value depth depth where depth :: Int depth = 3 @@ -76,7 +163,8 @@ instance Arbitrary C.Value0 where | otherwise = oneof $ leafs ++ branches where branches = - [ Object . C.fromList <$> shortListOf ((,) <$> arbitrary <*> subValue) + [ Object . KM.fromList + <$> shortListOf ((,) . K.fromText <$> arbitrary <*> subValue) , Array . V.fromList <$> shortListOf subValue ] leafs = @@ -94,12 +182,22 @@ instance Arbitrary C.Value0 where instance Arbitrary Day where arbitrary = ModifiedJulianDay <$> arbitrary +-- | Generate a duration of a whole number of microseconds, less than the +-- given number of seconds. Time related values are generated with +-- microsecond precision, because that's the precision of their binary wire +-- format: Haskell's time types can hold sub-microsecond digits, but such +-- values come back from the server rounded to whole microseconds, so they +-- wouldn't roundtrip exactly and the tests would need approximate +-- comparison. +microseconds :: Fractional a => Int64 -> Gen a +microseconds secs = (/ 1000000) . fromIntegral <$> choose (0, secs * 1000000 - 1) + instance Arbitrary TimeOfDay where arbitrary = do hours <- choose (0, 23) mins <- choose (0, 59) - secs :: Double <- choose (0, 60) - pure $ TimeOfDay hours mins (realToFrac secs) + secs <- microseconds 60 + pure $ TimeOfDay hours mins secs instance Arbitrary LocalTime where arbitrary = LocalTime <$> arbitrary <*> arbitrary @@ -107,8 +205,10 @@ instance Arbitrary LocalTime where instance Arbitrary UTCTime where arbitrary = do day <- arbitrary - secs :: Double <- choose (0, 86401) - pure $ UTCTime day (realToFrac secs) + -- The day time is kept below 86400 seconds, as the server normalizes + -- larger values into the next day. + secs <- microseconds 86400 + pure $ UTCTime day secs instance Arbitrary TimeZone where arbitrary = elements $ map hoursToTimeZone [-12 .. 14] @@ -118,731 +218,66 @@ instance Arbitrary ZonedTime where ---------------------------------------- -{- FOURMOLU_DISABLE -} - -#if !MIN_VERSION_QuickCheck(2,9,0) -instance Arbitrary a => Arbitrary (Identity a) where - arbitrary = Identity <$> arbitrary -#endif - -#if !MIN_VERSION_QuickCheck(2,9,0) -instance - ( Arbitrary a1, Arbitrary a2, Arbitrary a3, Arbitrary a4, Arbitrary a5 - , Arbitrary a6 - ) => Arbitrary (a1, a2, a3, a4, a5, a6) where - arbitrary = (,,,,,) - <$> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary - -instance - ( Arbitrary a1, Arbitrary a2, Arbitrary a3, Arbitrary a4, Arbitrary a5 - , Arbitrary a6, Arbitrary a7 - ) => Arbitrary (a1, a2, a3, a4, a5, a6, a7) where - arbitrary = (,,,,,,) - <$> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary - -instance - ( Arbitrary a1, Arbitrary a2, Arbitrary a3, Arbitrary a4, Arbitrary a5 - , Arbitrary a6, Arbitrary a7, Arbitrary a8 - ) => Arbitrary (a1, a2, a3, a4, a5, a6, a7, a8) where - arbitrary = (,,,,,,,) - <$> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary - -instance - ( Arbitrary a1, Arbitrary a2, Arbitrary a3, Arbitrary a4, Arbitrary a5 - , Arbitrary a6, Arbitrary a7, Arbitrary a8, Arbitrary a9 - ) => Arbitrary (a1, a2, a3, a4, a5, a6, a7, a8, a9) where - arbitrary = (,,,,,,,,) - <$> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - -instance - ( Arbitrary a1, Arbitrary a2, Arbitrary a3, Arbitrary a4, Arbitrary a5 - , Arbitrary a6, Arbitrary a7, Arbitrary a8, Arbitrary a9, Arbitrary a10 - ) => Arbitrary (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10) where - arbitrary = (,,,,,,,,,) - <$> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary -#endif - -instance - ( Arbitrary a1, Arbitrary a2, Arbitrary a3, Arbitrary a4, Arbitrary a5 - , Arbitrary a6, Arbitrary a7, Arbitrary a8, Arbitrary a9, Arbitrary a10 - , Arbitrary a11 - ) => Arbitrary (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11) where - arbitrary = (,,,,,,,,,,) - <$> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary - -instance - ( Arbitrary a1, Arbitrary a2, Arbitrary a3, Arbitrary a4, Arbitrary a5 - , Arbitrary a6, Arbitrary a7, Arbitrary a8, Arbitrary a9, Arbitrary a10 - , Arbitrary a11, Arbitrary a12 - ) => Arbitrary (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12) where - arbitrary = (,,,,,,,,,,,) - <$> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary - -instance - ( Arbitrary a1, Arbitrary a2, Arbitrary a3, Arbitrary a4, Arbitrary a5 - , Arbitrary a6, Arbitrary a7, Arbitrary a8, Arbitrary a9, Arbitrary a10 - , Arbitrary a11, Arbitrary a12, Arbitrary a13 - ) => Arbitrary (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13) where - arbitrary = (,,,,,,,,,,,,) - <$> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary - -instance - ( Arbitrary a1, Arbitrary a2, Arbitrary a3, Arbitrary a4, Arbitrary a5 - , Arbitrary a6, Arbitrary a7, Arbitrary a8, Arbitrary a9, Arbitrary a10 - , Arbitrary a11, Arbitrary a12, Arbitrary a13, Arbitrary a14 - ) => Arbitrary (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14) where - arbitrary = (,,,,,,,,,,,,,) - <$> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - -instance - ( Arbitrary a1, Arbitrary a2, Arbitrary a3, Arbitrary a4, Arbitrary a5 - , Arbitrary a6, Arbitrary a7, Arbitrary a8, Arbitrary a9, Arbitrary a10 - , Arbitrary a11, Arbitrary a12, Arbitrary a13, Arbitrary a14, Arbitrary a15 - ) => Arbitrary (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15) where - arbitrary = (,,,,,,,,,,,,,,) - <$> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - -instance - ( Arbitrary a1, Arbitrary a2, Arbitrary a3, Arbitrary a4, Arbitrary a5 - , Arbitrary a6, Arbitrary a7, Arbitrary a8, Arbitrary a9, Arbitrary a10 - , Arbitrary a11, Arbitrary a12, Arbitrary a13, Arbitrary a14, Arbitrary a15 - , Arbitrary a16 - ) => Arbitrary (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16) where - arbitrary = (,,,,,,,,,,,,,,,) - <$> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary - -instance - ( Arbitrary a1, Arbitrary a2, Arbitrary a3, Arbitrary a4, Arbitrary a5 - , Arbitrary a6, Arbitrary a7, Arbitrary a8, Arbitrary a9, Arbitrary a10 - , Arbitrary a11, Arbitrary a12, Arbitrary a13, Arbitrary a14, Arbitrary a15 - , Arbitrary a16, Arbitrary a17 - ) => Arbitrary (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17) where - arbitrary = (,,,,,,,,,,,,,,,,) - <$> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary - -instance - ( Arbitrary a1, Arbitrary a2, Arbitrary a3, Arbitrary a4, Arbitrary a5 - , Arbitrary a6, Arbitrary a7, Arbitrary a8, Arbitrary a9, Arbitrary a10 - , Arbitrary a11, Arbitrary a12, Arbitrary a13, Arbitrary a14, Arbitrary a15 - , Arbitrary a16, Arbitrary a17, Arbitrary a18 - ) => Arbitrary (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18) where - arbitrary = (,,,,,,,,,,,,,,,,,) - <$> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary - -instance - ( Arbitrary a1, Arbitrary a2, Arbitrary a3, Arbitrary a4, Arbitrary a5 - , Arbitrary a6, Arbitrary a7, Arbitrary a8, Arbitrary a9, Arbitrary a10 - , Arbitrary a11, Arbitrary a12, Arbitrary a13, Arbitrary a14, Arbitrary a15 - , Arbitrary a16, Arbitrary a17, Arbitrary a18, Arbitrary a19 - ) => Arbitrary (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19) where - arbitrary = (,,,,,,,,,,,,,,,,,,) - <$> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - -instance - ( Arbitrary a1, Arbitrary a2, Arbitrary a3, Arbitrary a4, Arbitrary a5 - , Arbitrary a6, Arbitrary a7, Arbitrary a8, Arbitrary a9, Arbitrary a10 - , Arbitrary a11, Arbitrary a12, Arbitrary a13, Arbitrary a14, Arbitrary a15 - , Arbitrary a16, Arbitrary a17, Arbitrary a18, Arbitrary a19, Arbitrary a20 - ) => Arbitrary (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20) where - arbitrary = (,,,,,,,,,,,,,,,,,,,) - <$> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - -instance - ( Arbitrary a1, Arbitrary a2, Arbitrary a3, Arbitrary a4, Arbitrary a5 - , Arbitrary a6, Arbitrary a7, Arbitrary a8, Arbitrary a9, Arbitrary a10 - , Arbitrary a11, Arbitrary a12, Arbitrary a13, Arbitrary a14, Arbitrary a15 - , Arbitrary a16, Arbitrary a17, Arbitrary a18, Arbitrary a19, Arbitrary a20 - , Arbitrary a21 - ) => Arbitrary (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21) where - arbitrary = (,,,,,,,,,,,,,,,,,,,,) - <$> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary - -instance - ( Arbitrary a1, Arbitrary a2, Arbitrary a3, Arbitrary a4, Arbitrary a5 - , Arbitrary a6, Arbitrary a7, Arbitrary a8, Arbitrary a9, Arbitrary a10 - , Arbitrary a11, Arbitrary a12, Arbitrary a13, Arbitrary a14, Arbitrary a15 - , Arbitrary a16, Arbitrary a17, Arbitrary a18, Arbitrary a19, Arbitrary a20 - , Arbitrary a21, Arbitrary a22 - ) => Arbitrary (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22) where - arbitrary = (,,,,,,,,,,,,,,,,,,,,,) - <$> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary - -instance - ( Arbitrary a1, Arbitrary a2, Arbitrary a3, Arbitrary a4, Arbitrary a5 - , Arbitrary a6, Arbitrary a7, Arbitrary a8, Arbitrary a9, Arbitrary a10 - , Arbitrary a11, Arbitrary a12, Arbitrary a13, Arbitrary a14, Arbitrary a15 - , Arbitrary a16, Arbitrary a17, Arbitrary a18, Arbitrary a19, Arbitrary a20 - , Arbitrary a21, Arbitrary a22, Arbitrary a23 - ) => Arbitrary (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23) where - arbitrary = (,,,,,,,,,,,,,,,,,,,,,,) - <$> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary - -instance - ( Arbitrary a1, Arbitrary a2, Arbitrary a3, Arbitrary a4, Arbitrary a5 - , Arbitrary a6, Arbitrary a7, Arbitrary a8, Arbitrary a9, Arbitrary a10 - , Arbitrary a11, Arbitrary a12, Arbitrary a13, Arbitrary a14, Arbitrary a15 - , Arbitrary a16, Arbitrary a17, Arbitrary a18, Arbitrary a19, Arbitrary a20 - , Arbitrary a21, Arbitrary a22, Arbitrary a23, Arbitrary a24 - ) => Arbitrary (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24) where - arbitrary = (,,,,,,,,,,,,,,,,,,,,,,,) - <$> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - -instance - ( Arbitrary a1, Arbitrary a2, Arbitrary a3, Arbitrary a4, Arbitrary a5 - , Arbitrary a6, Arbitrary a7, Arbitrary a8, Arbitrary a9, Arbitrary a10 - , Arbitrary a11, Arbitrary a12, Arbitrary a13, Arbitrary a14, Arbitrary a15 - , Arbitrary a16, Arbitrary a17, Arbitrary a18, Arbitrary a19, Arbitrary a20 - , Arbitrary a21, Arbitrary a22, Arbitrary a23, Arbitrary a24, Arbitrary a25 - ) => Arbitrary (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25) where - arbitrary = (,,,,,,,,,,,,,,,,,,,,,,,,) - <$> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - -instance - ( Arbitrary a1, Arbitrary a2, Arbitrary a3, Arbitrary a4, Arbitrary a5 - , Arbitrary a6, Arbitrary a7, Arbitrary a8, Arbitrary a9, Arbitrary a10 - , Arbitrary a11, Arbitrary a12, Arbitrary a13, Arbitrary a14, Arbitrary a15 - , Arbitrary a16, Arbitrary a17, Arbitrary a18, Arbitrary a19, Arbitrary a20 - , Arbitrary a21, Arbitrary a22, Arbitrary a23, Arbitrary a24, Arbitrary a25 - , Arbitrary a26 - ) => Arbitrary (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26) where - arbitrary = (,,,,,,,,,,,,,,,,,,,,,,,,,) - <$> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary - -instance - ( Arbitrary a1, Arbitrary a2, Arbitrary a3, Arbitrary a4, Arbitrary a5 - , Arbitrary a6, Arbitrary a7, Arbitrary a8, Arbitrary a9, Arbitrary a10 - , Arbitrary a11, Arbitrary a12, Arbitrary a13, Arbitrary a14, Arbitrary a15 - , Arbitrary a16, Arbitrary a17, Arbitrary a18, Arbitrary a19, Arbitrary a20 - , Arbitrary a21, Arbitrary a22, Arbitrary a23, Arbitrary a24, Arbitrary a25 - , Arbitrary a26, Arbitrary a27 - ) => Arbitrary (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27) where - arbitrary = (,,,,,,,,,,,,,,,,,,,,,,,,,,) - <$> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary - -instance - ( Arbitrary a1, Arbitrary a2, Arbitrary a3, Arbitrary a4, Arbitrary a5 - , Arbitrary a6, Arbitrary a7, Arbitrary a8, Arbitrary a9, Arbitrary a10 - , Arbitrary a11, Arbitrary a12, Arbitrary a13, Arbitrary a14, Arbitrary a15 - , Arbitrary a16, Arbitrary a17, Arbitrary a18, Arbitrary a19, Arbitrary a20 - , Arbitrary a21, Arbitrary a22, Arbitrary a23, Arbitrary a24, Arbitrary a25 - , Arbitrary a26, Arbitrary a27, Arbitrary a28 - ) => Arbitrary (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28) where - arbitrary = (,,,,,,,,,,,,,,,,,,,,,,,,,,,) - <$> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary - -instance - ( Arbitrary a1, Arbitrary a2, Arbitrary a3, Arbitrary a4, Arbitrary a5 - , Arbitrary a6, Arbitrary a7, Arbitrary a8, Arbitrary a9, Arbitrary a10 - , Arbitrary a11, Arbitrary a12, Arbitrary a13, Arbitrary a14, Arbitrary a15 - , Arbitrary a16, Arbitrary a17, Arbitrary a18, Arbitrary a19, Arbitrary a20 - , Arbitrary a21, Arbitrary a22, Arbitrary a23, Arbitrary a24, Arbitrary a25 - , Arbitrary a26, Arbitrary a27, Arbitrary a28, Arbitrary a29 - ) => Arbitrary (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29) where - arbitrary = (,,,,,,,,,,,,,,,,,,,,,,,,,,,,) - <$> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - -instance - ( Arbitrary a1, Arbitrary a2, Arbitrary a3, Arbitrary a4, Arbitrary a5 - , Arbitrary a6, Arbitrary a7, Arbitrary a8, Arbitrary a9, Arbitrary a10 - , Arbitrary a11, Arbitrary a12, Arbitrary a13, Arbitrary a14, Arbitrary a15 - , Arbitrary a16, Arbitrary a17, Arbitrary a18, Arbitrary a19, Arbitrary a20 - , Arbitrary a21, Arbitrary a22, Arbitrary a23, Arbitrary a24, Arbitrary a25 - , Arbitrary a26, Arbitrary a27, Arbitrary a28, Arbitrary a29, Arbitrary a30 - ) => Arbitrary (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30) where - arbitrary = (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) - <$> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - -instance - ( Arbitrary a1, Arbitrary a2, Arbitrary a3, Arbitrary a4, Arbitrary a5 - , Arbitrary a6, Arbitrary a7, Arbitrary a8, Arbitrary a9, Arbitrary a10 - , Arbitrary a11, Arbitrary a12, Arbitrary a13, Arbitrary a14, Arbitrary a15 - , Arbitrary a16, Arbitrary a17, Arbitrary a18, Arbitrary a19, Arbitrary a20 - , Arbitrary a21, Arbitrary a22, Arbitrary a23, Arbitrary a24, Arbitrary a25 - , Arbitrary a26, Arbitrary a27, Arbitrary a28, Arbitrary a29, Arbitrary a30 - , Arbitrary a31 - ) => Arbitrary (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31) where - arbitrary = (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) - <$> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary - -instance - ( Arbitrary a1, Arbitrary a2, Arbitrary a3, Arbitrary a4, Arbitrary a5 - , Arbitrary a6, Arbitrary a7, Arbitrary a8, Arbitrary a9, Arbitrary a10 - , Arbitrary a11, Arbitrary a12, Arbitrary a13, Arbitrary a14, Arbitrary a15 - , Arbitrary a16, Arbitrary a17, Arbitrary a18, Arbitrary a19, Arbitrary a20 - , Arbitrary a21, Arbitrary a22, Arbitrary a23, Arbitrary a24, Arbitrary a25 - , Arbitrary a26, Arbitrary a27, Arbitrary a28, Arbitrary a29, Arbitrary a30 - , Arbitrary a31, Arbitrary a32 - ) => Arbitrary (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32) where - arbitrary = (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) - <$> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary - -instance - ( Arbitrary a1, Arbitrary a2, Arbitrary a3, Arbitrary a4, Arbitrary a5 - , Arbitrary a6, Arbitrary a7, Arbitrary a8, Arbitrary a9, Arbitrary a10 - , Arbitrary a11, Arbitrary a12, Arbitrary a13, Arbitrary a14, Arbitrary a15 - , Arbitrary a16, Arbitrary a17, Arbitrary a18, Arbitrary a19, Arbitrary a20 - , Arbitrary a21, Arbitrary a22, Arbitrary a23, Arbitrary a24, Arbitrary a25 - , Arbitrary a26, Arbitrary a27, Arbitrary a28, Arbitrary a29, Arbitrary a30 - , Arbitrary a31, Arbitrary a32, Arbitrary a33 - ) => Arbitrary (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33) where - arbitrary = (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) - <$> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary - -instance - ( Arbitrary a1, Arbitrary a2, Arbitrary a3, Arbitrary a4, Arbitrary a5 - , Arbitrary a6, Arbitrary a7, Arbitrary a8, Arbitrary a9, Arbitrary a10 - , Arbitrary a11, Arbitrary a12, Arbitrary a13, Arbitrary a14, Arbitrary a15 - , Arbitrary a16, Arbitrary a17, Arbitrary a18, Arbitrary a19, Arbitrary a20 - , Arbitrary a21, Arbitrary a22, Arbitrary a23, Arbitrary a24, Arbitrary a25 - , Arbitrary a26, Arbitrary a27, Arbitrary a28, Arbitrary a29, Arbitrary a30 - , Arbitrary a31, Arbitrary a32, Arbitrary a33, Arbitrary a34 - ) => Arbitrary (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34) where - arbitrary = (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) - <$> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - -instance - ( Arbitrary a1, Arbitrary a2, Arbitrary a3, Arbitrary a4, Arbitrary a5 - , Arbitrary a6, Arbitrary a7, Arbitrary a8, Arbitrary a9, Arbitrary a10 - , Arbitrary a11, Arbitrary a12, Arbitrary a13, Arbitrary a14, Arbitrary a15 - , Arbitrary a16, Arbitrary a17, Arbitrary a18, Arbitrary a19, Arbitrary a20 - , Arbitrary a21, Arbitrary a22, Arbitrary a23, Arbitrary a24, Arbitrary a25 - , Arbitrary a26, Arbitrary a27, Arbitrary a28, Arbitrary a29, Arbitrary a30 - , Arbitrary a31, Arbitrary a32, Arbitrary a33, Arbitrary a34, Arbitrary a35 - ) => Arbitrary (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34, a35) where - arbitrary = (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) - <$> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - -instance - ( Arbitrary a1, Arbitrary a2, Arbitrary a3, Arbitrary a4, Arbitrary a5 - , Arbitrary a6, Arbitrary a7, Arbitrary a8, Arbitrary a9, Arbitrary a10 - , Arbitrary a11, Arbitrary a12, Arbitrary a13, Arbitrary a14, Arbitrary a15 - , Arbitrary a16, Arbitrary a17, Arbitrary a18, Arbitrary a19, Arbitrary a20 - , Arbitrary a21, Arbitrary a22, Arbitrary a23, Arbitrary a24, Arbitrary a25 - , Arbitrary a26, Arbitrary a27, Arbitrary a28, Arbitrary a29, Arbitrary a30 - , Arbitrary a31, Arbitrary a32, Arbitrary a33, Arbitrary a34, Arbitrary a35 - , Arbitrary a36 - ) => Arbitrary (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34, a35, a36) where - arbitrary = (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) - <$> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary - -instance - ( Arbitrary a1, Arbitrary a2, Arbitrary a3, Arbitrary a4, Arbitrary a5 - , Arbitrary a6, Arbitrary a7, Arbitrary a8, Arbitrary a9, Arbitrary a10 - , Arbitrary a11, Arbitrary a12, Arbitrary a13, Arbitrary a14, Arbitrary a15 - , Arbitrary a16, Arbitrary a17, Arbitrary a18, Arbitrary a19, Arbitrary a20 - , Arbitrary a21, Arbitrary a22, Arbitrary a23, Arbitrary a24, Arbitrary a25 - , Arbitrary a26, Arbitrary a27, Arbitrary a28, Arbitrary a29, Arbitrary a30 - , Arbitrary a31, Arbitrary a32, Arbitrary a33, Arbitrary a34, Arbitrary a35 - , Arbitrary a36, Arbitrary a37 - ) => Arbitrary (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34, a35, a36, a37) where - arbitrary = (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) - <$> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary - -instance - ( Arbitrary a1, Arbitrary a2, Arbitrary a3, Arbitrary a4, Arbitrary a5 - , Arbitrary a6, Arbitrary a7, Arbitrary a8, Arbitrary a9, Arbitrary a10 - , Arbitrary a11, Arbitrary a12, Arbitrary a13, Arbitrary a14, Arbitrary a15 - , Arbitrary a16, Arbitrary a17, Arbitrary a18, Arbitrary a19, Arbitrary a20 - , Arbitrary a21, Arbitrary a22, Arbitrary a23, Arbitrary a24, Arbitrary a25 - , Arbitrary a26, Arbitrary a27, Arbitrary a28, Arbitrary a29, Arbitrary a30 - , Arbitrary a31, Arbitrary a32, Arbitrary a33, Arbitrary a34, Arbitrary a35 - , Arbitrary a36, Arbitrary a37, Arbitrary a38 - ) => Arbitrary (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34, a35, a36, a37, a38) where - arbitrary = (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) - <$> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary - -instance - ( Arbitrary a1, Arbitrary a2, Arbitrary a3, Arbitrary a4, Arbitrary a5 - , Arbitrary a6, Arbitrary a7, Arbitrary a8, Arbitrary a9, Arbitrary a10 - , Arbitrary a11, Arbitrary a12, Arbitrary a13, Arbitrary a14, Arbitrary a15 - , Arbitrary a16, Arbitrary a17, Arbitrary a18, Arbitrary a19, Arbitrary a20 - , Arbitrary a21, Arbitrary a22, Arbitrary a23, Arbitrary a24, Arbitrary a25 - , Arbitrary a26, Arbitrary a27, Arbitrary a28, Arbitrary a29, Arbitrary a30 - , Arbitrary a31, Arbitrary a32, Arbitrary a33, Arbitrary a34, Arbitrary a35 - , Arbitrary a36, Arbitrary a37, Arbitrary a38, Arbitrary a39 - ) => Arbitrary (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34, a35, a36, a37, a38, a39) where - arbitrary = (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) - <$> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - -instance - ( Arbitrary a1, Arbitrary a2, Arbitrary a3, Arbitrary a4, Arbitrary a5 - , Arbitrary a6, Arbitrary a7, Arbitrary a8, Arbitrary a9, Arbitrary a10 - , Arbitrary a11, Arbitrary a12, Arbitrary a13, Arbitrary a14, Arbitrary a15 - , Arbitrary a16, Arbitrary a17, Arbitrary a18, Arbitrary a19, Arbitrary a20 - , Arbitrary a21, Arbitrary a22, Arbitrary a23, Arbitrary a24, Arbitrary a25 - , Arbitrary a26, Arbitrary a27, Arbitrary a28, Arbitrary a29, Arbitrary a30 - , Arbitrary a31, Arbitrary a32, Arbitrary a33, Arbitrary a34, Arbitrary a35 - , Arbitrary a36, Arbitrary a37, Arbitrary a38, Arbitrary a39, Arbitrary a40 - ) => Arbitrary (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34, a35, a36, a37, a38, a39, a40) where - arbitrary = (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) - <$> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - -instance - ( Arbitrary a1, Arbitrary a2, Arbitrary a3, Arbitrary a4, Arbitrary a5 - , Arbitrary a6, Arbitrary a7, Arbitrary a8, Arbitrary a9, Arbitrary a10 - , Arbitrary a11, Arbitrary a12, Arbitrary a13, Arbitrary a14, Arbitrary a15 - , Arbitrary a16, Arbitrary a17, Arbitrary a18, Arbitrary a19, Arbitrary a20 - , Arbitrary a21, Arbitrary a22, Arbitrary a23, Arbitrary a24, Arbitrary a25 - , Arbitrary a26, Arbitrary a27, Arbitrary a28, Arbitrary a29, Arbitrary a30 - , Arbitrary a31, Arbitrary a32, Arbitrary a33, Arbitrary a34, Arbitrary a35 - , Arbitrary a36, Arbitrary a37, Arbitrary a38, Arbitrary a39, Arbitrary a40 - , Arbitrary a41 - ) => Arbitrary (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34, a35, a36, a37, a38, a39, a40, a41) where - arbitrary = (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) - <$> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary - -instance - ( Arbitrary a1, Arbitrary a2, Arbitrary a3, Arbitrary a4, Arbitrary a5 - , Arbitrary a6, Arbitrary a7, Arbitrary a8, Arbitrary a9, Arbitrary a10 - , Arbitrary a11, Arbitrary a12, Arbitrary a13, Arbitrary a14, Arbitrary a15 - , Arbitrary a16, Arbitrary a17, Arbitrary a18, Arbitrary a19, Arbitrary a20 - , Arbitrary a21, Arbitrary a22, Arbitrary a23, Arbitrary a24, Arbitrary a25 - , Arbitrary a26, Arbitrary a27, Arbitrary a28, Arbitrary a29, Arbitrary a30 - , Arbitrary a31, Arbitrary a32, Arbitrary a33, Arbitrary a34, Arbitrary a35 - , Arbitrary a36, Arbitrary a37, Arbitrary a38, Arbitrary a39, Arbitrary a40 - , Arbitrary a41, Arbitrary a42 - ) => Arbitrary (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34, a35, a36, a37, a38, a39, a40, a41, a42) where - arbitrary = (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) - <$> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary - -instance - ( Arbitrary a1, Arbitrary a2, Arbitrary a3, Arbitrary a4, Arbitrary a5 - , Arbitrary a6, Arbitrary a7, Arbitrary a8, Arbitrary a9, Arbitrary a10 - , Arbitrary a11, Arbitrary a12, Arbitrary a13, Arbitrary a14, Arbitrary a15 - , Arbitrary a16, Arbitrary a17, Arbitrary a18, Arbitrary a19, Arbitrary a20 - , Arbitrary a21, Arbitrary a22, Arbitrary a23, Arbitrary a24, Arbitrary a25 - , Arbitrary a26, Arbitrary a27, Arbitrary a28, Arbitrary a29, Arbitrary a30 - , Arbitrary a31, Arbitrary a32, Arbitrary a33, Arbitrary a34, Arbitrary a35 - , Arbitrary a36, Arbitrary a37, Arbitrary a38, Arbitrary a39, Arbitrary a40 - , Arbitrary a41, Arbitrary a42, Arbitrary a43 - ) => Arbitrary (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34, a35, a36, a37, a38, a39, a40, a41, a42, a43) where - arbitrary = (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) - <$> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary - -instance - ( Arbitrary a1, Arbitrary a2, Arbitrary a3, Arbitrary a4, Arbitrary a5 - , Arbitrary a6, Arbitrary a7, Arbitrary a8, Arbitrary a9, Arbitrary a10 - , Arbitrary a11, Arbitrary a12, Arbitrary a13, Arbitrary a14, Arbitrary a15 - , Arbitrary a16, Arbitrary a17, Arbitrary a18, Arbitrary a19, Arbitrary a20 - , Arbitrary a21, Arbitrary a22, Arbitrary a23, Arbitrary a24, Arbitrary a25 - , Arbitrary a26, Arbitrary a27, Arbitrary a28, Arbitrary a29, Arbitrary a30 - , Arbitrary a31, Arbitrary a32, Arbitrary a33, Arbitrary a34, Arbitrary a35 - , Arbitrary a36, Arbitrary a37, Arbitrary a38, Arbitrary a39, Arbitrary a40 - , Arbitrary a41, Arbitrary a42, Arbitrary a43, Arbitrary a44 - ) => Arbitrary (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34, a35, a36, a37, a38, a39, a40, a41, a42, a43, a44) where - arbitrary = (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) - <$> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - -instance - ( Arbitrary a1, Arbitrary a2, Arbitrary a3, Arbitrary a4, Arbitrary a5 - , Arbitrary a6, Arbitrary a7, Arbitrary a8, Arbitrary a9, Arbitrary a10 - , Arbitrary a11, Arbitrary a12, Arbitrary a13, Arbitrary a14, Arbitrary a15 - , Arbitrary a16, Arbitrary a17, Arbitrary a18, Arbitrary a19, Arbitrary a20 - , Arbitrary a21, Arbitrary a22, Arbitrary a23, Arbitrary a24, Arbitrary a25 - , Arbitrary a26, Arbitrary a27, Arbitrary a28, Arbitrary a29, Arbitrary a30 - , Arbitrary a31, Arbitrary a32, Arbitrary a33, Arbitrary a34, Arbitrary a35 - , Arbitrary a36, Arbitrary a37, Arbitrary a38, Arbitrary a39, Arbitrary a40 - , Arbitrary a41, Arbitrary a42, Arbitrary a43, Arbitrary a44, Arbitrary a45 - ) => Arbitrary (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34, a35, a36, a37, a38, a39, a40, a41, a42, a43, a44, a45) where - arbitrary = (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) - <$> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - -instance - ( Arbitrary a1, Arbitrary a2, Arbitrary a3, Arbitrary a4, Arbitrary a5 - , Arbitrary a6, Arbitrary a7, Arbitrary a8, Arbitrary a9, Arbitrary a10 - , Arbitrary a11, Arbitrary a12, Arbitrary a13, Arbitrary a14, Arbitrary a15 - , Arbitrary a16, Arbitrary a17, Arbitrary a18, Arbitrary a19, Arbitrary a20 - , Arbitrary a21, Arbitrary a22, Arbitrary a23, Arbitrary a24, Arbitrary a25 - , Arbitrary a26, Arbitrary a27, Arbitrary a28, Arbitrary a29, Arbitrary a30 - , Arbitrary a31, Arbitrary a32, Arbitrary a33, Arbitrary a34, Arbitrary a35 - , Arbitrary a36, Arbitrary a37, Arbitrary a38, Arbitrary a39, Arbitrary a40 - , Arbitrary a41, Arbitrary a42, Arbitrary a43, Arbitrary a44, Arbitrary a45 - , Arbitrary a46 - ) => Arbitrary (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34, a35, a36, a37, a38, a39, a40, a41, a42, a43, a44, a45, a46) where - arbitrary = (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) - <$> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary - -instance - ( Arbitrary a1, Arbitrary a2, Arbitrary a3, Arbitrary a4, Arbitrary a5 - , Arbitrary a6, Arbitrary a7, Arbitrary a8, Arbitrary a9, Arbitrary a10 - , Arbitrary a11, Arbitrary a12, Arbitrary a13, Arbitrary a14, Arbitrary a15 - , Arbitrary a16, Arbitrary a17, Arbitrary a18, Arbitrary a19, Arbitrary a20 - , Arbitrary a21, Arbitrary a22, Arbitrary a23, Arbitrary a24, Arbitrary a25 - , Arbitrary a26, Arbitrary a27, Arbitrary a28, Arbitrary a29, Arbitrary a30 - , Arbitrary a31, Arbitrary a32, Arbitrary a33, Arbitrary a34, Arbitrary a35 - , Arbitrary a36, Arbitrary a37, Arbitrary a38, Arbitrary a39, Arbitrary a40 - , Arbitrary a41, Arbitrary a42, Arbitrary a43, Arbitrary a44, Arbitrary a45 - , Arbitrary a46, Arbitrary a47 - ) => Arbitrary (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34, a35, a36, a37, a38, a39, a40, a41, a42, a43, a44, a45, a46, a47) where - arbitrary = (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) - <$> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary - -instance - ( Arbitrary a1, Arbitrary a2, Arbitrary a3, Arbitrary a4, Arbitrary a5 - , Arbitrary a6, Arbitrary a7, Arbitrary a8, Arbitrary a9, Arbitrary a10 - , Arbitrary a11, Arbitrary a12, Arbitrary a13, Arbitrary a14, Arbitrary a15 - , Arbitrary a16, Arbitrary a17, Arbitrary a18, Arbitrary a19, Arbitrary a20 - , Arbitrary a21, Arbitrary a22, Arbitrary a23, Arbitrary a24, Arbitrary a25 - , Arbitrary a26, Arbitrary a27, Arbitrary a28, Arbitrary a29, Arbitrary a30 - , Arbitrary a31, Arbitrary a32, Arbitrary a33, Arbitrary a34, Arbitrary a35 - , Arbitrary a36, Arbitrary a37, Arbitrary a38, Arbitrary a39, Arbitrary a40 - , Arbitrary a41, Arbitrary a42, Arbitrary a43, Arbitrary a44, Arbitrary a45 - , Arbitrary a46, Arbitrary a47, Arbitrary a48 - ) => Arbitrary (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34, a35, a36, a37, a38, a39, a40, a41, a42, a43, a44, a45, a46, a47, a48) where - arbitrary = (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) - <$> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary - -instance - ( Arbitrary a1, Arbitrary a2, Arbitrary a3, Arbitrary a4, Arbitrary a5 - , Arbitrary a6, Arbitrary a7, Arbitrary a8, Arbitrary a9, Arbitrary a10 - , Arbitrary a11, Arbitrary a12, Arbitrary a13, Arbitrary a14, Arbitrary a15 - , Arbitrary a16, Arbitrary a17, Arbitrary a18, Arbitrary a19, Arbitrary a20 - , Arbitrary a21, Arbitrary a22, Arbitrary a23, Arbitrary a24, Arbitrary a25 - , Arbitrary a26, Arbitrary a27, Arbitrary a28, Arbitrary a29, Arbitrary a30 - , Arbitrary a31, Arbitrary a32, Arbitrary a33, Arbitrary a34, Arbitrary a35 - , Arbitrary a36, Arbitrary a37, Arbitrary a38, Arbitrary a39, Arbitrary a40 - , Arbitrary a41, Arbitrary a42, Arbitrary a43, Arbitrary a44, Arbitrary a45 - , Arbitrary a46, Arbitrary a47, Arbitrary a48, Arbitrary a49 - ) => Arbitrary (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34, a35, a36, a37, a38, a39, a40, a41, a42, a43, a44, a45, a46, a47, a48, a49) where - arbitrary = (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) - <$> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - -instance - ( Arbitrary a1, Arbitrary a2, Arbitrary a3, Arbitrary a4, Arbitrary a5 - , Arbitrary a6, Arbitrary a7, Arbitrary a8, Arbitrary a9, Arbitrary a10 - , Arbitrary a11, Arbitrary a12, Arbitrary a13, Arbitrary a14, Arbitrary a15 - , Arbitrary a16, Arbitrary a17, Arbitrary a18, Arbitrary a19, Arbitrary a20 - , Arbitrary a21, Arbitrary a22, Arbitrary a23, Arbitrary a24, Arbitrary a25 - , Arbitrary a26, Arbitrary a27, Arbitrary a28, Arbitrary a29, Arbitrary a30 - , Arbitrary a31, Arbitrary a32, Arbitrary a33, Arbitrary a34, Arbitrary a35 - , Arbitrary a36, Arbitrary a37, Arbitrary a38, Arbitrary a39, Arbitrary a40 - , Arbitrary a41, Arbitrary a42, Arbitrary a43, Arbitrary a44, Arbitrary a45 - , Arbitrary a46, Arbitrary a47, Arbitrary a48, Arbitrary a49, Arbitrary a50 - ) => Arbitrary (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34, a35, a36, a37, a38, a39, a40, a41, a42, a43, a44, a45, a46, a47, a48, a49, a50) where - arbitrary = (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) - <$> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary - <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary +instance Arbitrary IPRange where + arbitrary = + oneof + [ IPv4Range <$> (makeAddrRange <$> ipv4 <*> choose (0, 32)) + , IPv6Range <$> (makeAddrRange <$> ipv6 <*> choose (0, 128)) + ] + where + ipv4 = toIPv4 <$> vectorOf 4 (choose (0, 255)) + ipv6 = toIPv6 <$> vectorOf 8 (choose (0, 65535)) + +---------------------------------------- + +-- | Range of a discrete type, generated in the canonical form (inclusive +-- lower bound, exclusive upper bound) that the server normalizes such +-- ranges to. +discreteRange :: (Arbitrary a, Ord a) => Gen (Range a) +discreteRange = + frequency + [ (1, pure Empty) + , + ( 9 + , do + (a, b) <- arbitrary `suchThat` uncurry (/=) + lower <- elements [Incl $ min a b, Inf] + upper <- elements [Excl $ max a b, Inf] + pure $ Range lower upper + ) + ] + +-- | Range of a continuous type; bounds of an equal value are avoided, as +-- the server normalizes such ranges to 'Empty' unless both bounds are +-- inclusive. +continuousRange :: (Arbitrary a, Ord a) => Gen (Range a) +continuousRange = + frequency + [ (1, pure Empty) + , + ( 9 + , do + (a, b) <- arbitrary `suchThat` uncurry (/=) + lower <- elements [Incl $ min a b, Excl $ min a b, Inf] + upper <- elements [Incl $ max a b, Excl $ max a b, Inf] + pure $ Range lower upper + ) + ] + +instance Arbitrary (Range Int32) where + arbitrary = discreteRange + +instance Arbitrary (Range Int64) where + arbitrary = discreteRange + +instance Arbitrary (Range Day) where + arbitrary = discreteRange + +instance Arbitrary (Range Scientific) where + arbitrary = continuousRange + +instance Arbitrary (Range LocalTime) where + arbitrary = continuousRange + +instance Arbitrary (Range UTCTime) where + arbitrary = continuousRange diff --git a/test/Test/RowDecoder.hs b/test/Test/RowDecoder.hs new file mode 100644 index 0000000..0ee5a00 --- /dev/null +++ b/test/Test/RowDecoder.hs @@ -0,0 +1,229 @@ +-- | Tests of the row decoder: decoding of composite values (including +-- generic deriving) and detection of decoder errors. +module Test.RowDecoder + ( rowDecoderTests + , Simple (..) + ) where + +import Control.Monad +import Data.Int +import Data.Text qualified as T +import Data.Time +import GHC.Generics (Generic) +import Test.QuickCheck +import Test.Tasty + +import Database.PostgreSQL.PQTypes +import Database.PostgreSQL.PQTypes.Internal.Oid +import Test.Env +import Test.QuickCheck.Arbitrary.Instances () + +rowDecoderTests :: TestData -> [TestTree] +rowDecoderTests td = + [ decoderErrorTest td + , rowDecoderTest td + ] + +data Simple = Simple (Maybe Int32) (Maybe Day) + deriving stock (Eq, Generic, Ord, Show) + +instance FromSQL Simple where + fromSQL = decodeComposite genericDecoder + +instance Arbitrary Simple where + arbitrary = Simple <$> arbitrary <*> arbitrary + +data Nested = Nested (Maybe Double) (Maybe Simple) + deriving stock (Eq, Generic, Ord, Show) + +instance FromSQL Nested where + fromSQL = decodeComposite genericDecoder + +instance Arbitrary Nested where + arbitrary = Nested <$> arbitrary <*> arbitrary + +-- | Deliberately has no 'FromSQL' instance: decoded with 'genericDecoder'. +data NoInstance = NoInstance (Maybe Int32) (Maybe Day) + deriving stock (Eq, Generic, Show) + +decoderErrorTest :: TestData -> TestTree +decoderErrorTest td = + testGroup + "Decoder errors" + [ typeMismatch + , nullTypeUnchecked + , tooFewColumnsConsumed + , tooManyColumnsWanted + , multiFieldNullableRejected + ] + where + typeMismatch = testCase "Type mismatch is detected" $ do + runTestEnv td defaultTransactionSettings $ do + runSQL_ "SELECT 1::int4" + expectError @TypeMismatch "int4 decoded as text" check $ + fetchOne (fromSQL @T.Text) + where + check TypeMismatch {..} = do + assertEqual "Expected OID is correct" textOid tmExpectedOid + assertEqual "Delivered OID is correct" int4Oid tmDeliveredOid + + -- Documented behavior of decodeNullable: the given decoder (and hence + -- its type check) doesn't run on NULL. + nullTypeUnchecked = testCase "Type of a NULL field is not checked" $ do + runTestEnv td defaultTransactionSettings $ do + runSQL_ "SELECT NULL::int8" + mn <- fetchOne $ fromSQL @(Maybe Int32) + assertEqual "NULL int8 decodes to Nothing as Maybe Int32" Nothing mn + + tooFewColumnsConsumed = testCase "Not consuming all columns is detected" $ do + runTestEnv td defaultTransactionSettings $ do + runSQL_ "SELECT 1::int4, 2::int4" + expectError @RowLengthMismatch "one of two columns consumed" check $ + fetchOne (fromSQL @Int32) + where + check RowLengthMismatch {..} = do + assertEqual "Expected length is correct" 1 lengthExpected + assertEqual "Delivered length is correct" 2 lengthDelivered + + tooManyColumnsWanted = testCase "Consuming too many columns is detected" $ do + runTestEnv td defaultTransactionSettings $ do + runSQL_ "SELECT 1::int4" + expectError @RowLengthMismatch "two of one columns wanted" check $ + fetchOne ((,) <$> fromSQL @Int32 <*> fromSQL @Int32) + where + check RowLengthMismatch {..} = do + assertEqual "Expected length is correct" 2 lengthExpected + assertEqual "Delivered length is correct" 1 lengthDelivered + + multiFieldNullableRejected = testCase "Multi-field decoder under decodeNullable is detected" $ do + runTestEnv td defaultTransactionSettings $ do + runSQL_ "SELECT 1::int4, 2::int4" + expectError @RowLengthMismatch "two-field decoder under decodeNullable" check $ + fetchOne (decodeNullable $ (,) <$> fromSQL @Int32 <*> fromSQL @Int32) + where + check RowLengthMismatch {..} = do + assertEqual "Expected length is correct" 2 lengthExpected + assertEqual "Delivered length is correct" 1 lengthDelivered + +rowDecoderTest :: TestData -> TestTree +rowDecoderTest td = + testGroup + "Row decoder" + [ anonymousRecordWorks + , namedCompositeWorks + , simpleRoundtrips + , nestedRoundtrips + , genericFromSQLWorks + , nullRowWorks + , rowOnScalarFails + , partialRecordConsumptionFails + , excessiveRecordConsumptionFails + , differentCompositeFails + ] + where + anonymousRecordWorks = testCase "Anonymous record decoding works" $ do + runTestEnv td defaultTransactionSettings $ do + runSQL_ "SELECT 1::int4, (2::int8, 'hi'::text), true" + result <- + fetchOne $ + (,,) + <$> fromSQL @Int32 + <*> decodeComposite ((,) <$> fromSQL @Int64 <*> fromSQL @T.Text) + <*> fromSQL @Bool + assertEqual "Result is correct" (1, (2, "hi"), True) result + + simpleRoundtrips = testCase "Simple composite roundtrips correctly" $ do + runTestEnv td defaultTransactionSettings . replicateM_ 100 $ do + s@(Simple a b) <- randomValue 100 + runQuery_ $ rawSQL "SELECT ($1, $2)" (a, b) + s' <- fetchOne $ fromSQL @Simple + assertEqual "Simple doesn't change after getting through database" s s' + + nestedRoundtrips = testCase "Nested composite roundtrips correctly" $ do + runTestEnv td defaultTransactionSettings . replicateM_ 100 $ do + n@(Nested d ms) <- randomValue 100 + case ms of + Nothing -> + runQuery_ $ rawSQL "SELECT ($1, NULL)" (Identity d) + Just (Simple a b) -> + runQuery_ $ rawSQL "SELECT ($1, ($2, $3))" (d, a, b) + n' <- fetchOne $ fromSQL @Nested + assertEqual "Nested doesn't change after getting through database" n n' + + genericFromSQLWorks = testCase "Generic composite decoding works" $ do + runTestEnv td defaultTransactionSettings $ do + runSQL_ "SELECT (1, '2024-01-01'::date)::simple_" + -- NoInstance has no FromSQL instance, the decoder comes solely from + -- its Generic instance. + result <- fetchOne . decodeComposite $ genericDecoder @NoInstance + assertEqual + "Result is correct" + (NoInstance (Just 1) (Just $ fromGregorian 2024 1 1)) + result + + namedCompositeWorks = testCase "Named composite decoding works" $ do + runTestEnv td defaultTransactionSettings $ do + -- The casts exercise decoding of user-defined composite types, whose + -- OIDs differ from the OID of the record pseudo-type. + runSQL_ "SELECT (1, NULL)::simple_, (0.5, (2, '2024-01-01'::date)::simple_)::nested_" + result <- fetchOne $ (,) <$> fromSQL @Simple <*> fromSQL @Nested + assertEqual + "Result is correct" + ( Simple (Just 1) Nothing + , Nested (Just 0.5) . Just $ Simple (Just 2) (Just $ fromGregorian 2024 1 1) + ) + result + + nullRowWorks = testCase "NULL composite decodes to Nothing" $ do + runTestEnv td defaultTransactionSettings $ do + runSQL_ "SELECT NULL::record" + ms <- fetchOne $ fromSQL @(Maybe Simple) + assertEqual "NULL record decoded correctly" Nothing ms + + rowOnScalarFails = testCase "Row decoder fails on a scalar field" $ do + runTestEnv td defaultTransactionSettings $ do + runSQL_ "SELECT 1::int4" + expectError @TypeMismatch "row on int4" check $ + fetchOne (decodeComposite $ fromSQL @Int32) + where + check TypeMismatch {..} = do + assertEqual "Expected OID is correct" recordOid tmExpectedOid + assertEqual "Delivered OID is correct" int4Oid tmDeliveredOid + + partialRecordConsumptionFails = testCase "Not consuming all fields of a record is detected" $ do + runTestEnv td defaultTransactionSettings $ do + runSQL_ "SELECT (1::int4, 2::int4)" + expectError @RowLengthMismatch "one of two record fields consumed" check $ + fetchOne (decodeComposite $ fromSQL @Int32) + where + check RowLengthMismatch {..} = do + assertEqual "Expected length is correct" 1 lengthExpected + assertEqual "Delivered length is correct" 2 lengthDelivered + + excessiveRecordConsumptionFails = testCase "Consuming too many fields of a record is detected" $ do + runTestEnv td defaultTransactionSettings $ do + runSQL_ "SELECT (1, '2024-01-01'::date)::simple_" + expectError @RowLengthMismatch "three fields wanted from a two-field composite" check + . fetchOne + . decodeComposite + $ (,,) + <$> fromSQL @(Maybe Int32) + <*> fromSQL @(Maybe Day) + <*> fromSQL @(Maybe Int32) + where + check RowLengthMismatch {..} = do + assertEqual "Expected length is correct" 3 lengthExpected + assertEqual "Delivered length is correct" 2 lengthDelivered + + differentCompositeFails = testCase "Field type mismatch in a composite is detected" $ do + runTestEnv td defaultTransactionSettings $ do + -- The field types of nested_ (float8, simple_) don't match the field + -- types of Simple (int4, date), which the decoder of the first field + -- detects. + runSQL_ "SELECT (0.5, (2, '2024-01-01'::date)::simple_)::nested_" + expectError @TypeMismatch "nested_ decoded as Simple" check $ + fetchOne (fromSQL @Simple) + where + check TypeMismatch {..} = do + assertEqual "Expected OID is correct" int4Oid tmExpectedOid + assertEqual "Delivered OID is correct" float8Oid tmDeliveredOid diff --git a/test/Test/Transaction.hs b/test/Test/Transaction.hs new file mode 100644 index 0000000..d88e7bc --- /dev/null +++ b/test/Test/Transaction.hs @@ -0,0 +1,155 @@ +-- | Tests of transaction handling: isolation levels, read only mode, +-- savepoints, restarts and failed commits. +module Test.Transaction + ( transactionTests + ) where + +import Control.Concurrent.Lifted +import Control.Exception (ErrorCall (..), MaskingState (..), getMaskingState) +import Control.Monad +import Control.Monad.Base +import Control.Monad.Catch +import Data.Int +import Data.Typeable +import System.Timeout.Lifted +import Test.Tasty + +import Data.Monoid.Utils +import Database.PostgreSQL.PQTypes +import Test.Env + +transactionTests :: TestData -> [TestTree] +transactionTests td = + [ readOnlyTest td + , savepointTest td + , transactionTest td ReadCommitted + , transactionTest td RepeatableRead + , transactionTest td Serializable + , commitFailureTest td + , restartTest td + ] + +readOnlyTest :: TestData -> TestTree +readOnlyTest td = testCase "Read only transaction mode works" + . runTestEnv + td + defaultTransactionSettings {tsConnectionAcquisitionMode = AcquireAndHold DefaultLevel ReadOnly} + $ do + let sint = Identity (2 :: Int32) + eres <- try . runQuery_ $ rawSQL "INSERT INTO test1_ (a) VALUES ($1)" sint + case eres :: Either DBException () of + Left _ -> pure () + Right _ -> liftBase . assertFailure $ "DBException wasn't thrown" + rollback + n <- runQuery $ rawSQL "SELECT a FROM test1_ WHERE a = $1" sint + assertEqual "SELECT works in read only mode" 0 n + +savepointTest :: TestData -> TestTree +savepointTest td = testCase "Savepoint support works" + . runTestEnv td defaultTransactionSettings + $ do + let int1 = 3 :: Int32 + int2 = 4 :: Int32 + + -- action executed within withSavepoint throws + runQuery_ $ rawSQL "INSERT INTO test1_ (a) VALUES ($1)" (Identity int1) + _ :: Either DBException () <- try . withSavepoint (Savepoint "test") $ do + runQuery_ $ rawSQL "INSERT INTO test1_ (a) VALUES ($1)" (Identity int2) + runSQL_ "SELECT * FROM table_that_is_not_there" + runQuery_ $ rawSQL "SELECT a FROM test1_ WHERE a IN ($1, $2)" (int1, int2) + res1 <- fetchMany fromSQL + assertEqual "Part of transaction was rolled back" [int1] res1 + + rollback + + -- action executed within withSavepoint doesn't throw + runQuery_ $ rawSQL "INSERT INTO test1_ (a) VALUES ($1)" (Identity int1) + withSavepoint (Savepoint "test") $ do + runQuery_ $ rawSQL "INSERT INTO test1_ (a) VALUES ($1)" (Identity int2) + runQuery_ $ + rawSQL + "SELECT a FROM test1_ WHERE a IN ($1, $2) ORDER BY a" + (int1, int2) + res2 <- fetchMany fromSQL + assertEqual "Result of all queries is visible" [int1, int2] res2 + +transactionTest :: TestData -> IsolationLevel -> TestTree +transactionTest td lvl = + testCase + ( "Auto transaction works by default with isolation level" + <+> show lvl + ) + . runTestEnv + td + defaultTransactionSettings {tsConnectionAcquisitionMode = AcquireAndHold lvl DefaultPermissions} + $ do + let sint = Identity (5 :: Int32) + runQuery_ $ rawSQL "INSERT INTO test1_ (a) VALUES ($1)" sint + withNewConnection $ do + n <- runQuery $ rawSQL "SELECT a FROM test1_ WHERE a = $1" sint + assertEqual "Other connection doesn't see uncommited data" 0 n + rollback + +commitFailureTest :: TestData -> TestTree +commitFailureTest td = testCase + "Transaction is active after a failed commit" + . runTestEnv td defaultTransactionSettings + $ do + runSQL_ "CREATE TABLE commit_failure_ (a INTEGER UNIQUE DEFERRABLE INITIALLY DEFERRED)" + commit + (`finally` cleanup) $ do + -- Deferred constraint violation makes the COMMIT fail. + runSQL_ "INSERT INTO commit_failure_ (a) VALUES (1), (1)" + eres <- try commit + liftBase $ case eres :: Either DBException () of + Left DBException {..} + | Just DetailedQueryError {..} <- cast dbeError -> do + assertEqual "Unexpected error code" UniqueViolation qeErrorCode + | otherwise -> assertFailure $ "Unexpected exception: " ++ show dbeError + Right () -> assertFailure "DBException wasn't thrown" + -- A new transaction needs to be active at this point, so a write made + -- after the failed commit must be reverted by a rollback. + runSQL_ "INSERT INTO commit_failure_ (a) VALUES (2)" + rollback + n <- runSQL "SELECT a FROM commit_failure_" + assertEqual "Unexpected number of rows" 0 n + where + cleanup = do + rollback + runSQL_ "DROP TABLE commit_failure_" + commit + +restartTest :: TestData -> TestTree +restartTest td = + testGroup + "Transaction restarts" + [ restartedTransactionIsNotMasked + , asyncExceptionsDontTriggerRestarts + ] + where + restartedTransactionIsNotMasked = testCase + "Restarted transaction doesn't run with asynchronous exceptions masked" + $ do + let ts = + defaultTransactionSettings + { tsRestartPredicate = Just . RestartPredicate $ \(e :: ErrorCall) _ -> + e == ErrorCall "restart" + } + attempts <- newMVar (0 :: Int) + runTestEnv td ts $ do + n <- modifyMVar attempts $ \n -> pure (n + 1, n + 1) + when (n == 1) . throwM $ ErrorCall "restart" + ms <- liftBase getMaskingState + assertEqual "Unexpected masking state" Unmasked ms + + asyncExceptionsDontTriggerRestarts = testCase + "Asynchronous exceptions don't trigger a transaction restart" + $ do + let ts = + defaultTransactionSettings + { tsRestartPredicate = Just . RestartPredicate $ \(_ :: SomeException) n -> + n < 3 + } + timeout 500000 (runTestEnv td ts $ runSQL_ "SELECT pg_sleep(2)") >>= \case + Just _ -> assertFailure "Query wasn't interrupted in time" + Nothing -> pure () diff --git a/test/Test/Tuples.hs b/test/Test/Tuples.hs new file mode 100644 index 0000000..5ecd55b --- /dev/null +++ b/test/Test/Tuples.hs @@ -0,0 +1,59 @@ +-- | Tests of passing and fetching rows of parameters: generic tuple +-- decoding and row concatenation with ':++:'. +module Test.Tuples + ( tupleTests + ) where + +import Control.Monad +import Data.ByteString qualified as BS +import Data.Int +import Data.Text qualified as T +import Data.Word +import Test.Tasty + +import Database.PostgreSQL.PQTypes +import Test.Env +import Test.QuickCheck.Arbitrary.Instances + +tupleTests :: TestData -> [TestTree] +tupleTests td = + [ tupleDecoderTest td + , rowConcatenationTest td + ] + +type Tuple10 = + ( Int16 + , Int32 + , Int64 + , Double + , Bool + , AsciiChar + , Word8 + , String0 + , BS.ByteString + , T.Text + ) + +tupleDecoderTest :: TestData -> TestTree +tupleDecoderTest td = testCase "Putting a 10-element tuple through database works" $ do + runTestEnv td defaultTransactionSettings . replicateM_ 100 $ do + t <- randomValue @Tuple10 100 + runQuery_ $ rawSQL "SELECT $1, $2, $3, $4, $5, $6, $7, $8, $9, $10" t + t' <- fetchOne $ genericDecoder @Tuple10 + assertEqual "Tuple doesn't change after getting through database" t t' + +-- | More than 10 parameters can be passed by combining rows with ':++:'. +rowConcatenationTest :: TestData -> TestTree +rowConcatenationTest td = testCase "Passing parameters of concatenated rows works" $ do + runTestEnv td defaultTransactionSettings . replicateM_ 100 $ do + t@(t1, t2, t3, t4, t5, t6, t7, t8, t9, t10) <- randomValue @Tuple10 100 + extra <- randomValue @(Int32, String0) 100 + runQuery_ $ + rawSQL + "SELECT $1, $2, $3, $4, $5, $6, $7, $8, $9, $10, $11, $12" + ((t1, t2, t3, t4, t5) :++: (t6, t7, t8, t9, t10) :++: extra) + result <- fetchOne $ (:++:) <$> genericDecoder <*> genericDecoder + assertEqual + "Parameters don't change after getting through database" + (t :++: extra) + result diff --git a/test/Test/Types.hs b/test/Test/Types.hs new file mode 100644 index 0000000..2722013 --- /dev/null +++ b/test/Test/Types.hs @@ -0,0 +1,291 @@ +{-# LANGUAGE AllowAmbiguousTypes #-} + +-- | Tests of encoding and decoding of the supported types: generic NULL and +-- roundtrip tests over the full set of instances, plus type-specific ones. +module Test.Types + ( typesTests + ) where + +import Control.Monad +import Control.Monad.Base +import Control.Monad.Catch +import Data.Aeson (Value) +import Data.ByteString qualified as BS +import Data.IP (IPRange) +import Data.Int +import Data.Scientific +import Data.Text qualified as T +import Data.Time +import Data.Typeable +import Data.UUID.Types qualified as U +import Data.Vector qualified as V +import Data.Word +import Test.QuickCheck +import Test.Tasty +import TextShow + +import Data.Monoid.Utils +import Database.PostgreSQL.PQTypes +import Test.Env +import Test.QuickCheck.Arbitrary.Instances + +typesTests :: TestData -> [TestTree] +typesTests td = + [ uuidTest td + , integerTest td + , fractionalNumericTest td + , xmlTest td + , intervalComparisonTest td + , intWordEncodingTest td + , rangeTest td + , nullTest @Int16 td + , nullTest @Int32 td + , nullTest @Int64 td + , nullTest @Float td + , nullTest @Double td + , nullTest @Bool td + , nullTest @AsciiChar td + , nullTest @Word8 td + , nullTest @Word16 td + , nullTest @Word32 td + , nullTest @Word64 td + , nullTest @Integer td + , nullTest @Scientific td + , nullTest @String td + , nullTest @BS.ByteString td + , nullTest @T.Text td + , nullTest @U.UUID td + , nullTest @(JSON Value) td + , nullTest @(JSONB Value) td + , nullTest @XML td + , nullTest @Interval td + , nullTest @Day td + , nullTest @TimeOfDay td + , nullTest @LocalTime td + , nullTest @UTCTime td + , nullTest @[Int32] td + , nullTest @[[Double]] td + , nullTest @(V.Vector Int32) td + , nullTest @(V.Vector (V.Vector Double)) td + , nullTest @IPRange td + , nullTest @(Range Int32) td + , putGetTest @Int16 td 100 + , putGetTest @Int32 td 100 + , putGetTest @Int64 td 100 + , putGetTest @Float td 10000 + , putGetTest @Double td 10000 + , putGetTest @Bool td 100 + , putGetTest @AsciiChar td 100 + , putGetTest @Word8 td 100 + , putGetTest @Word16 td 100 + , putGetTest @Word32 td 100 + , putGetTest @Word64 td 100 + , putGetTest @Integer td 1000000000000 + , putGetTest @Scientific td 1000000000000 + , putGetTest @String0 td 1000 + , putGetTest @BS.ByteString td 1000 + , putGetTest @T.Text td 1000 + , putGetTest @U.UUID td 1000 + , putGetTest @(JSON Value0) td 50 + , putGetTest @(JSONB Value0) td 50 + , putGetTest @Interval td 50 + , putGetTest @Day td 1000000 + , putGetTest @TimeOfDay td 10000 + , putGetTest @LocalTime td 500000 + , putGetTest @UTCTime td 500000 + , putGetTest @[Int32] td 1000 + , putGetTest @[Maybe Int32] td 1000 + , putGetTest @[String0] td 100 + , putGetTest @(Matrix Double) td 1000 + , putGetTest @[JSON Value0] td 20 + , putGetTest @[JSONB Value0] td 20 + , putGetTest @(V.Vector Int32) td 1000 + , putGetTest @(V.Vector (Maybe Int32)) td 1000 + , putGetTest @(VMatrix Double) td 1000 + , putGetTest @IPRange td 100 + , putGetTest @(Range Int32) td 100 + , putGetTest @(Range Int64) td 100 + , putGetTest @(Range Scientific) td 1000000000000 + , putGetTest @(Range Day) td 1000000 + , putGetTest @(Range LocalTime) td 500000 + , putGetTest @(Range UTCTime) td 500000 + ] + +---------------------------------------- + +nullTest + :: forall a + . (Show a, ToSQL a, FromSQL a, Typeable a) + => TestData + -> TestTree +nullTest td = testCase + ( "Attempt to get non-NULL value of type" + <+> show (typeRep $ Proxy @a) + <+> "fails if NULL is provided" + ) + . runTestEnv td defaultTransactionSettings + $ do + runSQL_ $ "SELECT" Nothing @a + eres <- try $ fetchOne (fromSQL @a) + case eres :: Either DBException a of + Left _ -> pure () + Right _ -> liftBase . assertFailure $ "DBException wasn't thrown" + +putGetTest + :: forall a + . (Arbitrary a, Eq a, Show a, ToSQL a, FromSQL a, Typeable a) + => TestData + -> Int + -> TestTree +putGetTest td n = testCase + ( "Putting value of type" + <+> show (typeRep $ Proxy @a) + <+> "through database doesn't change its value" + ) + . runTestEnv td defaultTransactionSettings + . replicateM_ 1000 + $ do + v <- randomValue @a n + -- liftBase . putStrLn . show $ v + runSQL_ $ "SELECT" v + v' <- fetchOne fromSQL + assertEqual "Value doesn't change after getting through database" v v' + +---------------------------------------- + +uuidTest :: TestData -> TestTree +uuidTest td = testCase "UUID encoding / decoding test" $ do + let uuidStr = "550e8400-e29b-41d4-a716-446655440000" + Just uuid <- pure $ U.fromText uuidStr + runTestEnv td defaultTransactionSettings $ do + runSQL_ . mkSQL $ ("SELECT '" `mappend` uuidStr `mappend` "' :: uuid") + uuid2 <- fetchOne fromSQL + assertEqual "UUID is decoded correctly" uuid uuid2 + + runQuery_ $ rawSQL " SELECT $1 :: text" (Identity uuid) + uuidStr2 <- fetchOne fromSQL + assertEqual "UUID is encoded correctly" uuidStr uuidStr2 + +integerTest :: TestData -> TestTree +integerTest td = testCase "Integer decoding from numeric works" + . runTestEnv td defaultTransactionSettings + . forM_ values + $ \n -> do + -- The server strips trailing zero base-10000 digit groups from the wire + -- representation of numeric, so values that are multiples of 10000 arrive + -- with fewer digits than their weight indicates. + runSQL_ . mkSQL $ "SELECT " <> showt n <> " :: numeric" + n' <- fetchOne fromSQL + assertEqual ("Integer" <+> show n <+> "is decoded correctly") n n' + + runQuery_ $ rawSQL "SELECT $1" (Identity n) + n'' <- fetchOne fromSQL + assertEqual ("Integer" <+> show n <+> "roundtrips correctly") n n'' + where + values :: [Integer] + values = + [ 0 + , 1 + , -1 + , 9999 + , 10000 + , -10000 + , 10001 + , 99990000 + , 100000000 + , 1000000000000 + , -1000000000000 + , 123400005678 + , 10 ^ (100 :: Int) + , negate $ 10 ^ (100 :: Int) + , 10 ^ (100 :: Int) + 1 + ] + +fractionalNumericTest :: TestData -> TestTree +fractionalNumericTest td = testCase + "Integer decoding from fractional numeric fails" + . runTestEnv td defaultTransactionSettings + $ do + runSQL_ "SELECT 3.14 :: numeric" + expectError @HPQTypesError "fractional numeric" (\_ -> pure ()) $ + fetchOne (fromSQL @Integer) + +xmlTest :: TestData -> TestTree +xmlTest td = testCase "Put and get XML value works" + . runTestEnv td defaultTransactionSettings + $ do + runSQL_ "SET CLIENT_ENCODING TO 'UTF8'" + let v = XML "somestringå" + runSQL_ "SELECT XML 'somestringå'" + v' <- fetchOne fromSQL + assertEqual "XML value correct" v v' + runSQL_ $ "SELECT" v + v'' <- fetchOne fromSQL + assertEqual "XML value correct" v v'' + runSQL_ "SET CLIENT_ENCODING TO 'latin-1'" + +intervalComparisonTest :: TestData -> TestTree +intervalComparisonTest td = testCase + "Eq and Ord of Interval match the comparison operators of the server" + . runTestEnv td defaultTransactionSettings + $ do + -- The comparison estimate converts months at 30 days and days at 24 + -- hours. + assertEqual "1 month equals 30 days" EQ $ compare (imonths 1) (idays 30) + assertEqual "1 day equals 24 hours" EQ $ compare (idays 1) (ihours 24) + assertEqual "Mixed signs cancel out" mempty $ imonths 1 <> idays (-30) + replicateM_ 100 $ do + a <- randomValue @Interval 100 + b <- randomValue @Interval 100 + runQuery_ $ rawSQL "SELECT $1 < $2, $1 = $2" (a, b) + (lt, eq) <- fetchOne ((,) <$> fromSQL @Bool <*> fromSQL @Bool) + let expected + | eq = EQ + | lt = LT + | otherwise = GT + assertEqual "Ordering matches the server" expected $ compare a b + +-- | 'Int' and 'Word' have no 'FromSQL' instances (their size is +-- architecture-dependent), so their encoding is checked by fetching the +-- values back as 'Int64' and 'Word64'. +intWordEncodingTest :: TestData -> TestTree +intWordEncodingTest td = testCase + "Int and Word parameters are encoded correctly" + . runTestEnv td defaultTransactionSettings + . replicateM_ 100 + $ do + int <- randomValue @Int 1000000 + word <- randomValue @Word 1000000 + runQuery_ $ rawSQL "SELECT $1, $2" (int, word) + result <- fetchOne ((,) <$> fromSQL @Int64 <*> fromSQL @Word64) + assertEqual "Values are correct" (fromIntegral int, fromIntegral word) result + +rangeTest :: TestData -> TestTree +rangeTest td = testCase "Range decoding works" $ do + runTestEnv td defaultTransactionSettings $ do + -- The first range is canonicalized by the server to [2,6). + runSQL_ $ + mconcat + [ "SELECT int4range(1, 5, '(]')" + , ", 'empty'::int4range" + , ", int4range(NULL, 5)" + , ", numrange(1.5, 2.5, '(]')" + , ", ARRAY['empty'::int8range, int8range(1, NULL)]" + ] + result <- + fetchOne $ + (,,,,) + <$> fromSQL @(Range Int32) + <*> fromSQL @(Range Int32) + <*> fromSQL @(Range Int32) + <*> fromSQL @(Range Scientific) + <*> fromSQL @[Range Int64] + assertEqual + "Result is correct" + ( Range (Incl 2) (Excl 6) + , Empty + , Range Inf (Excl 5) + , Range (Excl 1.5) (Incl 2.5) + , [Empty, Range (Incl 1) Inf] + ) + result From ddb7ec27839d60bb4fc44cec970ed6c41670dc35 Mon Sep 17 00:00:00 2001 From: Andrzej Rybczak Date: Tue, 28 Jul 2026 06:01:29 +0200 Subject: [PATCH 2/7] Vendor postgresql-binary and deal with its bugs The encoders and decoders of the binary wire format now live in Internal.Encoding and Internal.Decoding, derived from the postgresql-binary package (MIT licensed, attribution added to LICENSE) and adjusted where its behavior didn't suit us. The divergences are noted at their definitions; the one that prompted this is that the text encoders silently drop NUL characters, which turns a precise server side error into unreported data corruption. The Range type is vendored along with them, as it's part of the API of the range codecs. --- CHANGELOG.md | 14 +- LICENSE | 35 ++ hpqtypes.cabal | 5 +- src/Database/PostgreSQL/PQTypes.hs | 8 +- src/Database/PostgreSQL/PQTypes/Format.hs | 2 +- src/Database/PostgreSQL/PQTypes/FromSQL.hs | 10 +- .../PostgreSQL/PQTypes/Internal/Decoding.hs | 348 ++++++++++++++ .../PostgreSQL/PQTypes/Internal/Encoding.hs | 433 ++++++++++++++++++ .../PostgreSQL/PQTypes/Internal/RowDecoder.hs | 4 +- src/Database/PostgreSQL/PQTypes/Interval.hs | 4 +- src/Database/PostgreSQL/PQTypes/JSON.hs | 4 +- src/Database/PostgreSQL/PQTypes/Range.hs | 23 + src/Database/PostgreSQL/PQTypes/ToSQL.hs | 11 +- src/Database/PostgreSQL/PQTypes/XML.hs | 4 +- test/Test/Types.hs | 91 ++++ 15 files changed, 968 insertions(+), 28 deletions(-) create mode 100644 src/Database/PostgreSQL/PQTypes/Internal/Decoding.hs create mode 100644 src/Database/PostgreSQL/PQTypes/Internal/Encoding.hs create mode 100644 src/Database/PostgreSQL/PQTypes/Range.hs diff --git a/CHANGELOG.md b/CHANGELOG.md index a6b4bab..5478578 100644 --- a/CHANGELOG.md +++ b/CHANGELOG.md @@ -3,14 +3,15 @@ * Drop support for `aeson` < 2.0. * Remove the bundled `libpqtypes` C library. The library now executes queries with the asynchronous API of plain `libpq` and handles the binary transport - format with the `postgresql-binary` package. + format itself (the encoders and decoders are derived from the + `postgresql-binary` package). * Replace per-type format strings with type Oids: the `pqFormat`, `pqFormat0` and `pqVariables` methods of `PQFormat` are replaced by `pqOid` and `pqArrayOid` (constants for built-in types are available in `Database.PostgreSQL.PQTypes.Internal.Oid`). -* Change the type of `toSQL` to `t -> Maybe Encoding`, where `Encoding` comes - from `postgresql-binary` and `Nothing` represents NULL. The `PQDest` type - family and `ParamAllocator` are gone. +* Change the type of `toSQL` to `t -> Maybe Encoding`, where `Encoding` is an + encoded value in the binary wire format and `Nothing` represents NULL. The + `PQDest` type family and `ParamAllocator` are gone. * Change the type of `fromSQL` to `RowDecoder t`, a monadic parser that consumes consecutive fields of a query result. Decoders of compound results are built by composing decoders of their fields; the `PQBase` type family is gone. @@ -73,8 +74,9 @@ * Add support for range types: `FromSQL` and `ToSQL` instances for `Range` of `Int32`, `Int64`, `Scientific`, `Day`, `LocalTime` and `UTCTime`, mapped to `int4range`, `int8range`, `numrange`, `daterange`, `tsrange` and - `tstzrange` respectively. The `Range` and `Bound` types from - `postgresql-binary` are re-exported from `Database.PostgreSQL.PQTypes`. + `tstzrange` respectively. The `Range` and `Bound` types are defined in + `Database.PostgreSQL.PQTypes.Range` and re-exported from + `Database.PostgreSQL.PQTypes`. * Change the representation of `Interval` to mirror the wire format: three components (microseconds, days, months) of mutually independent duration. The type is now opaque; values are constructed with the `iyears`, diff --git a/LICENSE b/LICENSE index 88c8852..7264fe1 100644 --- a/LICENSE +++ b/LICENSE @@ -28,3 +28,38 @@ DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. + +-------------------------------------------------------------------------- + +The modules + + Database.PostgreSQL.PQTypes.Internal.Decoding + Database.PostgreSQL.PQTypes.Internal.Encoding + Database.PostgreSQL.PQTypes.Range + +are derived from the postgresql-binary package +(https://github.com/nikita-volkov/postgresql-binary), which is distributed +under the following terms: + +Copyright (c) 2014, Nikita Volkov + +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 AUTHORS OR COPYRIGHT +HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, +WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING +FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR +OTHER DEALINGS IN THE SOFTWARE. diff --git a/hpqtypes.cabal b/hpqtypes.cabal index d4a512d..c8989b0 100644 --- a/hpqtypes.cabal +++ b/hpqtypes.cabal @@ -81,6 +81,8 @@ library , Database.PostgreSQL.PQTypes.Internal.C.Interface , Database.PostgreSQL.PQTypes.Internal.C.Types , Database.PostgreSQL.PQTypes.Internal.Connection + , Database.PostgreSQL.PQTypes.Internal.Decoding + , Database.PostgreSQL.PQTypes.Internal.Encoding , Database.PostgreSQL.PQTypes.Internal.Error , Database.PostgreSQL.PQTypes.Internal.Error.Code , Database.PostgreSQL.PQTypes.Internal.Exception @@ -94,6 +96,7 @@ library , Database.PostgreSQL.PQTypes.Interval , Database.PostgreSQL.PQTypes.JSON , Database.PostgreSQL.PQTypes.Notification + , Database.PostgreSQL.PQTypes.Range , Database.PostgreSQL.PQTypes.SQL , Database.PostgreSQL.PQTypes.SQL.Class , Database.PostgreSQL.PQTypes.SQL.Raw @@ -108,13 +111,13 @@ library , aeson >= 2.0 , binary-parser >= 0.5 , bytestring >= 0.9 + , bytestring-strict-builder >= 0.4 , containers >= 0.5.0.0 , exceptions >= 0.9 , iproute >= 1.7 , lifted-base >= 0.2 , monad-control >= 1.0.3 , mtl >= 2.1 - , postgresql-binary >= 0.15 , resource-pool >= 0.4 , scientific >= 0.3.8.0 , stm >= 2.5.0.0 diff --git a/src/Database/PostgreSQL/PQTypes.hs b/src/Database/PostgreSQL/PQTypes.hs index 007ce85..74208d9 100644 --- a/src/Database/PostgreSQL/PQTypes.hs +++ b/src/Database/PostgreSQL/PQTypes.hs @@ -40,11 +40,6 @@ module Database.PostgreSQL.PQTypes , QueryResult , ntuples , nfields - -- PostgreSQL.Binary.Range - - -- * Ranges - , Range (..) - , Bound (..) -- * Other modules , module Data.Functor.Identity @@ -56,6 +51,7 @@ module Database.PostgreSQL.PQTypes , module Database.PostgreSQL.PQTypes.FromSQL , module Database.PostgreSQL.PQTypes.Interval , module Database.PostgreSQL.PQTypes.JSON + , module Database.PostgreSQL.PQTypes.Range , module Database.PostgreSQL.PQTypes.Notification , module Database.PostgreSQL.PQTypes.SQL , module Database.PostgreSQL.PQTypes.SQL.Class @@ -69,7 +65,6 @@ module Database.PostgreSQL.PQTypes ) where import Data.Functor.Identity -import PostgreSQL.Binary.Range (Bound (..), Range (..)) import Database.PostgreSQL.PQTypes.Class import Database.PostgreSQL.PQTypes.Cursor @@ -86,6 +81,7 @@ import Database.PostgreSQL.PQTypes.Internal.QueryResult import Database.PostgreSQL.PQTypes.Interval import Database.PostgreSQL.PQTypes.JSON import Database.PostgreSQL.PQTypes.Notification +import Database.PostgreSQL.PQTypes.Range import Database.PostgreSQL.PQTypes.SQL import Database.PostgreSQL.PQTypes.SQL.Class import Database.PostgreSQL.PQTypes.SQL.Raw diff --git a/src/Database/PostgreSQL/PQTypes/Format.hs b/src/Database/PostgreSQL/PQTypes/Format.hs index 689ca5a..ec432e6 100644 --- a/src/Database/PostgreSQL/PQTypes/Format.hs +++ b/src/Database/PostgreSQL/PQTypes/Format.hs @@ -15,9 +15,9 @@ import Data.Time import Data.UUID.Types import Data.Vector qualified as V import Data.Word -import PostgreSQL.Binary.Range (Range) import Database.PostgreSQL.PQTypes.Internal.Oid +import Database.PostgreSQL.PQTypes.Range (Range) ---------------------------------------- diff --git a/src/Database/PostgreSQL/PQTypes/FromSQL.hs b/src/Database/PostgreSQL/PQTypes/FromSQL.hs index 9eee418..1781e30 100644 --- a/src/Database/PostgreSQL/PQTypes/FromSQL.hs +++ b/src/Database/PostgreSQL/PQTypes/FromSQL.hs @@ -30,11 +30,11 @@ import Data.Vector qualified as V import Data.Word import GHC.Generics import GHC.TypeLits -import PostgreSQL.Binary.Decoding qualified as D -import PostgreSQL.Binary.Range (Range) import TextShow +import Database.PostgreSQL.PQTypes.Internal.Decoding qualified as D import Database.PostgreSQL.PQTypes.Internal.RowDecoder +import Database.PostgreSQL.PQTypes.Range (Range) -- | Class which represents \"from SQL type to Haskell type\" transformation. -- Decoding of compound values is a matter of monadically composing decoders @@ -242,6 +242,12 @@ instance FromSQL Bool where -- | Note that there is no instance for the @cidr@ type, which shares the -- wire format with @inet@, but has a different OID. +-- +-- /Warning:/ an @inet@ value is a host address with an optional netmask, +-- but 'IPRange' only retains the network part, so the host bits of the +-- address are lost: @\'10.0.0.5\/8\'::inet@ decodes to @10.0.0.0\/8@. The +-- same applies to encoding, as 'IPRange' cannot represent them in the first +-- place. instance FromSQL IPRange where fromSQL = decodeScalar D.inet diff --git a/src/Database/PostgreSQL/PQTypes/Internal/Decoding.hs b/src/Database/PostgreSQL/PQTypes/Internal/Decoding.hs new file mode 100644 index 0000000..3047d8e --- /dev/null +++ b/src/Database/PostgreSQL/PQTypes/Internal/Decoding.hs @@ -0,0 +1,348 @@ +-- | Decoders of the PostgreSQL binary wire format. +-- +-- Derived from the @postgresql-binary@ package by Nikita Volkov (MIT +-- licensed, see @LICENSE@), reduced to the types this library supports and +-- adjusted where its behavior didn't suit us. The divergences, each also +-- noted at its definition below: +-- +-- * The length prefix of a value inside a container is rejected when it's +-- below @-1@ (the value standing for NULL). Upstream passes it on to +-- @unsafeTake@ and @unsafeDrop@, which yields a 'BS.ByteString' of +-- negative length pointing before the start of its buffer. This concerns +-- every container decoder; here it's the bounds of the ranges. +-- +-- * 'float4' and 'float8' interpret the bit pattern with the casts from +-- "GHC.Float". Upstream coerces the value, which is undefined behavior and +-- reads the wrong bytes on a big-endian architecture. +-- +-- * 'jsonb_bytes' verifies the version byte of the value instead of +-- discarding it unchecked. +-- +-- * The time decoders assemble the values with the constructors of the +-- "Data.Time" and "Data.Fixed" types instead of coercing their +-- representations. +-- +-- * 'Value' is a newtype rather than an alias of the underlying parser, so +-- that the parser library doesn't leak into the public API of the library. +-- Custom decoders are built with 'fn' and 'refine'. +-- +-- Note that 'inet' keeps the upstream behavior of discarding the host bits +-- of an address, which the 'IP.IPRange' it decodes into cannot +-- represent anyway. +module Database.PostgreSQL.PQTypes.Internal.Decoding + ( -- * Decoding + Value + , valueParser + + -- ** Custom decoders + , fn + , refine + + -- * Numbers + , int + , float4 + , float8 + , numeric + + -- * Character types + , text_strict + , text_lazy + + -- * Byte arrays + , bytea_strict + , bytea_lazy + + -- * Date and time + , date + , time_int + , timestamp_int + , timestamptz_int + + -- * Miscellaneous + , bool + , uuid + , inet + + -- * JSON + , json_bytes + , json_ast + , jsonb_bytes + , jsonb_ast + + -- * Ranges + , int4range + , int8range + , numrange + , daterange + , tsrange_int + , tstzrange_int + ) where + +import BinaryParser qualified as BP +import Data.Aeson qualified as A +import Data.Bits +import Data.ByteString qualified as BS +import Data.ByteString.Lazy qualified as BSL +import Data.Fixed (Fixed (..), Pico) +import Data.IP qualified as IP +import Data.Int +import Data.Scientific qualified as S +import Data.Text qualified as T +import Data.Text.Encoding qualified as T +import Data.Text.Encoding.Error qualified as T +import Data.Text.Lazy qualified as TL +import Data.Text.Lazy.Encoding qualified as TL +import Data.Time +import Data.UUID.Types qualified as U +import Data.Vector qualified as V +import Data.Word +import GHC.Float (castWord32ToFloat, castWord64ToDouble) + +import Database.PostgreSQL.PQTypes.Range + +-- | Decoder of a single value from its payload in the PostgreSQL binary wire +-- format. +-- +-- Custom decoders are built with 'fn' and 'refine' on top of the ones +-- defined here, and composed with the 'Functor', 'Applicative' and 'Monad' +-- interfaces. +newtype Value a = Value (BP.BinaryParser a) + deriving newtype (Applicative, Functor, Monad) + +-- | Run a decoder against the payload of a value. +valueParser :: Value a -> BS.ByteString -> Either T.Text a +valueParser (Value parser) = BP.run parser + +-- | Define a decoder from a function parsing the whole payload. +fn :: (BS.ByteString -> Either T.Text a) -> Value a +fn f = Value $ BP.remainders >>= either BP.failure pure . f + +-- | Constrain an existing decoder with an additional check. +refine :: (a -> Either T.Text b) -> Value a -> Value b +refine f value = value >>= Value . either BP.failure pure . f + +---------------------------------------- +-- Helpers + +failure :: T.Text -> Value a +failure = Value . BP.failure + +-- | Read an integer of the given size in bytes, big endian. +intOfSize :: (Bits a, Num a) => Int -> Value a +intOfSize size = Value $ pack <$> BP.bytesOfSize size + where + pack = BS.foldl' (\n byte -> shiftL n 8 .|. fromIntegral byte) 0 + +-- | Read a length-prefixed payload with the given decoder, where a length of +-- @-1@ represents NULL. Used by the elements of the containers. +-- +-- Note that unlike upstream, lengths below @-1@ are rejected. Feeding one to +-- 'BP.sized' would pass it on to @unsafeTake@ and @unsafeDrop@, producing a +-- 'BS.ByteString' of negative length whose contents lie before the start of +-- the buffer. +onContent :: Value a -> Value (Maybe a) +onContent (Value decoder) = do + size <- intOfSize @Int32 4 + case compare size (-1) of + LT -> failure $ "Negative length of a value: " <> T.pack (show size) + EQ -> pure Nothing + GT -> Value . fmap Just . BP.sized (fromIntegral size) $ decoder + +nonNull :: Maybe a -> Value a +nonNull = maybe (failure "Unexpected NULL") pure + +---------------------------------------- +-- Numbers + +-- | Any integral type, decoded from the whole payload. +int :: (Bits a, Num a) => Value a +int = Value $ pack <$> BP.remainders + where + pack = BS.foldl' (\n byte -> shiftL n 8 .|. fromIntegral byte) 0 + +-- Note: the bit patterns are interpreted with the casts from "GHC.Float" +-- rather than by coercing the values, which is undefined behavior (it writes +-- the payload of a boxed value and assumes a little-endian layout). + +float4 :: Value Float +float4 = castWord32ToFloat <$> int + +float8 :: Value Double +float8 = castWord64ToDouble <$> int + +-- | The wire format is a sequence of base-10000 digit groups, most +-- significant first, along with the number of groups, the position of the +-- decimal point (in groups), the sign and the scale (which is not needed to +-- reconstruct the value). +numeric :: Value S.Scientific +numeric = do + groupCount <- intOfSize @Int 2 + pointIndex <- intOfSize @Int16 2 + signCode <- intOfSize @Word16 2 + -- Skip the scale. + Value $ BP.unitOfSize 2 + groups <- V.replicateM groupCount $ intOfSize @Word16 2 + sign <- case signCode of + 0x0000 -> pure id + 0x4000 -> pure negate + 0xc000 -> failure "NaN is not a valid numeric value" + _ -> failure $ "Unexpected numeric sign code: " <> T.pack (show signCode) + let coefficient = V.foldl' (\acc group -> acc * 10000 + fromIntegral group) 0 groups + exponent_ = (fromIntegral pointIndex + 1 - V.length groups) * 4 + pure $ S.scientific (sign coefficient) exponent_ + +---------------------------------------- +-- Character types + +text_strict :: Value T.Text +text_strict = fn $ either (Left . decodeError) Right . T.decodeUtf8' + +text_lazy :: Value TL.Text +text_lazy = fn $ either (Left . decodeError) Right . TL.decodeUtf8' . BSL.fromStrict + +decodeError :: T.UnicodeException -> T.Text +decodeError = \case + T.DecodeError err _ -> "Failed to decode the value in UTF-8: " <> T.pack err + err -> T.pack $ show err + +---------------------------------------- +-- Byte arrays + +bytea_strict :: Value BS.ByteString +bytea_strict = Value BP.remainders + +bytea_lazy :: Value BSL.ByteString +bytea_lazy = BSL.fromStrict <$> bytea_strict + +---------------------------------------- +-- Date and time + +-- Note: the time values are assembled with the constructors of the +-- "Data.Time" and "Data.Fixed" types rather than by coercing their +-- representations. + +-- | The inverse of the conversion the encoder does: the server counts days +-- from 2000-01-01. +postgresJulianToDay :: Integral a => a -> Day +postgresJulianToDay = ModifiedJulianDay . (+ 51544) . fromIntegral + +date :: Value Day +date = postgresJulianToDay <$> int @Int32 + +time_int :: Value TimeOfDay +time_int = microsToTimeOfDay <$> int + +timestamp_int :: Value LocalTime +timestamp_int = do + (day, micros) <- splitDay <$> int + pure $ LocalTime day (microsToTimeOfDay micros) + +timestamptz_int :: Value UTCTime +timestamptz_int = do + (day, micros) <- splitDay <$> int + pure . UTCTime day . picosecondsToDiffTime $ fromIntegral micros * 1000000 + +splitDay :: Int64 -> (Day, Int64) +splitDay micros = case micros `divMod` (1000000 * 60 * 60 * 24) of + (days, rest) -> (postgresJulianToDay days, rest) + +microsToTimeOfDay :: Int64 -> TimeOfDay +microsToTimeOfDay micros = TimeOfDay (fromIntegral hours) (fromIntegral minutes) seconds + where + (hours, afterHours) = micros `divMod` (1000000 * 60 * 60) + (minutes, afterMinutes) = afterHours `divMod` (1000000 * 60) + seconds = MkFixed (fromIntegral afterMinutes * 1000000) :: Pico + +---------------------------------------- +-- Miscellaneous + +bool :: Value Bool +bool = (== 1) <$> intOfSize @Word8 1 + +uuid :: Value U.UUID +uuid = U.fromWords <$> intOfSize 4 <*> intOfSize 4 <*> intOfSize 4 <*> intOfSize 4 + +-- | Note that an @inet@ value on the server is a host address with an +-- optional netmask, but 'IP.IPRange' only retains the network part, so the +-- host bits of the address are lost: @\'10.0.0.5\/8\'::inet@ decodes to +-- @10.0.0.0\/8@. +inet :: Value IP.IPRange +inet = do + family <- intOfSize @Word8 1 + maskLen <- intOfSize @Int 1 + -- Skip the is-cidr flag and the size of the address. + _isCidr <- intOfSize @Word8 1 + _size <- intOfSize @Word8 1 + case family of + -- AF_INET + 2 -> do + addr <- IP.toIPv4w <$> intOfSize 4 + pure . IP.IPv4Range $ IP.makeAddrRange addr maskLen + -- AF_INET6 + 3 -> do + addr <- + fmap IP.toIPv6w $ + (,,,) <$> intOfSize 4 <*> intOfSize 4 <*> intOfSize 4 <*> intOfSize 4 + pure . IP.IPv6Range $ IP.makeAddrRange addr maskLen + _ -> failure $ "Unknown address family: " <> T.pack (show family) + +---------------------------------------- +-- JSON + +-- | Decode a @json@ value with the given parser of its UTF-8 text. +json_bytes :: (BS.ByteString -> Either T.Text a) -> Value a +json_bytes = fn + +json_ast :: Value A.Value +json_ast = json_bytes decodeJson + +-- | Decode a @jsonb@ value with the given parser of its UTF-8 text. Note +-- that on the wire @jsonb@ is plain JSON text prefixed with a version +-- number. +jsonb_bytes :: (BS.ByteString -> Either T.Text a) -> Value a +jsonb_bytes parse = do + version <- intOfSize @Word8 1 + if version == 1 + then Value BP.remainders >>= Value . either BP.failure pure . parse + else failure $ "Unexpected jsonb version: " <> T.pack (show version) + +jsonb_ast :: Value A.Value +jsonb_ast = jsonb_bytes decodeJson + +decodeJson :: A.FromJSON a => BS.ByteString -> Either T.Text a +decodeJson = either (Left . T.pack) Right . A.eitherDecodeStrict' + +---------------------------------------- +-- Ranges + +-- | The wire format is a flags byte followed by the length-prefixed bounds +-- that are neither infinite nor absent. +range :: Value a -> Value (Range a) +range decodeBound = do + flags <- intOfSize @Word8 1 + let bound infiniteBit inclusiveBit + | testBit flags infiniteBit = pure Inf + | otherwise = + (if testBit flags inclusiveBit then Incl else Excl) + <$> (nonNull =<< onContent decodeBound) + if testBit flags 0 + then pure Empty + else Range <$> bound 3 1 <*> bound 4 2 + +int4range :: Value (Range Int32) +int4range = range int + +int8range :: Value (Range Int64) +int8range = range int + +numrange :: Value (Range S.Scientific) +numrange = range numeric + +daterange :: Value (Range Day) +daterange = range date + +tsrange_int :: Value (Range LocalTime) +tsrange_int = range timestamp_int + +tstzrange_int :: Value (Range UTCTime) +tstzrange_int = range timestamptz_int diff --git a/src/Database/PostgreSQL/PQTypes/Internal/Encoding.hs b/src/Database/PostgreSQL/PQTypes/Internal/Encoding.hs new file mode 100644 index 0000000..e66765b --- /dev/null +++ b/src/Database/PostgreSQL/PQTypes/Internal/Encoding.hs @@ -0,0 +1,433 @@ +-- | Encoders of the PostgreSQL binary wire format. +-- +-- Derived from the @postgresql-binary@ package by Nikita Volkov (MIT +-- licensed, see @LICENSE@), reduced to the types this library supports and +-- adjusted where its behavior didn't suit us. The divergences, each also +-- noted at its definition below: +-- +-- * 'text_strict' and 'text_lazy' encode the value verbatim. Upstream +-- silently drops NUL characters from it, which corrupts the value instead +-- of letting the server reject it (the server does so with @22021 +-- character_not_in_repertoire@). +-- +-- * 'float4' and 'float8' obtain the bit pattern with the casts from +-- "GHC.Float". Upstream coerces the value, which is undefined behavior and +-- produces the wrong bytes on a big-endian architecture. +-- +-- * 'numeric' rejects a value whose weight, scale or number of digit groups +-- doesn't fit the 16 bit fields of the header. Upstream lets them wrap +-- around, which silently encodes an entirely different number (@1e131072@ +-- used to arrive as @0@). +-- +-- * The time encoders take the values apart with the accessors of the +-- "Data.Time" and "Data.Fixed" types instead of coercing them to their +-- representations. +-- +-- * 'Encoding' is a newtype rather than an alias of the underlying builder, +-- and 'array' takes an 'Oid' rather than a bare 'Word32', so +-- that neither the builder library nor a raw OID leaks into the public +-- API of the library. +module Database.PostgreSQL.PQTypes.Internal.Encoding + ( -- * Encoding + Encoding + , encodingBytes + + -- * Arrays + , Array + , array + , encodingArray + , nullArray + , dimensionArray + + -- * Numbers + , int2_int16 + , int2_word16 + , int4_int32 + , int4_word32 + , int8_int64 + , int8_word64 + , float4 + , float8 + , numeric + + -- * Character types + , text_strict + , text_lazy + + -- * Byte arrays + , bytea_strict + , bytea_lazy + + -- * Date and time + , date + , time_int + , timestamp_int + , timestamptz_int + + -- * Miscellaneous + , bool + , uuid + , inet + + -- * JSON + , json_bytes + , json_bytes_lazy + , json_ast + , jsonb_bytes + , jsonb_bytes_lazy + , jsonb_ast + + -- * Ranges + , int4range + , int8range + , numrange + , daterange + , tsrange_int + , tstzrange_int + ) where + +import ByteString.StrictBuilder qualified as B +import Control.Exception (throw) +import Data.Aeson qualified as A +import Data.ByteString qualified as BS +import Data.ByteString.Lazy qualified as BSL +import Data.Fixed (Fixed (..)) +import Data.IP qualified as IP +import Data.Int +import Data.List qualified as L +import Data.Scientific qualified as S +import Data.Text qualified as T +import Data.Text.Encoding qualified as T +import Data.Text.Lazy qualified as TL +import Data.Text.Lazy.Encoding qualified as TL +import Data.Time +import Data.UUID.Types qualified as U +import Data.Word +import GHC.Float (castDoubleToWord64, castFloatToWord32) + +import Database.PostgreSQL.PQTypes.Internal.Error +import Database.PostgreSQL.PQTypes.Internal.Oid +import Database.PostgreSQL.PQTypes.Range + +-- | An encoded value, i.e. its payload in the PostgreSQL binary wire format +-- (without the length prefix, which is supplied out of band). +newtype Encoding = Encoding B.Builder + deriving newtype (Monoid, Semigroup) + +-- | Render an 'Encoding' as the bytes to be sent to the server. +encodingBytes :: Encoding -> BS.ByteString +encodingBytes (Encoding builder) = B.builderBytes builder + +---------------------------------------- +-- Helpers + +-- | Prefix a payload with its length, as the elements of arrays and the +-- bounds of ranges are represented on the wire. +sized :: Encoding -> Encoding +sized (Encoding payload) = + Encoding $ B.int32BE (fromIntegral $ B.builderLength payload) <> payload + +-- | The length prefix representing a NULL element. +null4 :: Encoding +null4 = int4_int32 (-1) + +---------------------------------------- +-- Arrays + +-- | An array under construction: its payload, the sizes of its dimensions +-- and whether any of its elements is NULL. +data Array = Array !Encoding ![Int32] !Bool + +-- | Turn an 'Array' into a value, given the OID of the type of its +-- innermost elements. +array :: Oid -> Array -> Encoding +array elemOid (Array payload dims nulls) = + mconcat + [ int4_int32 . fromIntegral $ length dims + , int4_word32 $ if nulls then 1 else 0 + , int4_word32 $ unOid elemOid + , foldMap dimension dims + , payload + ] + where + -- Every dimension is sent with a lower bound of 1. + dimension n = int4_int32 n <> int4_word32 1 + +-- | A single element of an array. +encodingArray :: Encoding -> Array +encodingArray value = Array (sized value) [] False + +-- | A NULL element of an array. +nullArray :: Array +nullArray = Array null4 [] True + +-- | An additional dimension of an array, given a way to fold the container +-- holding its elements. +dimensionArray :: (forall b. (b -> a -> b) -> b -> c -> b) -> (a -> Array) -> c -> Array +dimensionArray foldlElems elemArray input = Array payload (len : dims) nulls + where + (payload, dims, len, nulls) = foldlElems step (mempty, [], 0, False) input + + step (!accPayload, _, !accLen, !accNulls) x = + case elemArray x of + Array elemPayload elemDims elemNulls -> + ( accPayload <> elemPayload + , elemDims + , accLen + 1 + , accNulls || elemNulls + ) + +---------------------------------------- +-- Numbers + +int2_int16 :: Int16 -> Encoding +int2_int16 = Encoding . B.int16BE + +int2_word16 :: Word16 -> Encoding +int2_word16 = Encoding . B.word16BE + +int4_int32 :: Int32 -> Encoding +int4_int32 = Encoding . B.int32BE + +int4_word32 :: Word32 -> Encoding +int4_word32 = Encoding . B.word32BE + +int8_int64 :: Int64 -> Encoding +int8_int64 = Encoding . B.int64BE + +int8_word64 :: Word64 -> Encoding +int8_word64 = Encoding . B.word64BE + +-- Note: the bit patterns are obtained with the casts from "GHC.Float" rather +-- than by coercing the values, which is undefined behavior (it reads the +-- payload of a boxed value and assumes a little-endian layout). + +float4 :: Float -> Encoding +float4 = int4_word32 . castFloatToWord32 + +float8 :: Double -> Encoding +float8 = int8_word64 . castDoubleToWord64 + +-- | The wire format is a sequence of base-10000 digit groups, most +-- significant first, along with the number of groups, the position of the +-- decimal point (in groups), the sign and the scale. +-- +-- Note that the header fields are validated to fit their 16 bit wire +-- representation, which the upstream encoder doesn't do: a value with a +-- large enough exponent would otherwise wrap around and be stored as an +-- entirely different number. +numeric :: S.Scientific -> Encoding +numeric value + | groupCount > maxWord16 = tooLarge "number of digit groups" groupCount + | pointIndex > maxInt16 || pointIndex < minInt16 = tooLarge "weight" pointIndex + | scale > maxWord16 = tooLarge "scale" scale + | otherwise = + mconcat + [ int2_word16 $ fromIntegral groupCount + , int2_word16 $ fromIntegral pointIndex + , int2_word16 signCode + , int2_word16 $ fromIntegral scale + , foldMap int2_word16 groups + ] + where + coefficient = S.coefficient value + exponent_ = S.base10Exponent value + + -- Digit groups are aligned to multiples of four decimal digits, so the + -- coefficient is scaled up until the exponent is such a multiple. + (alignedCoefficient, alignedExponent) = case exponent_ `mod` 4 of + 0 -> (coefficient, exponent_) + n -> (coefficient * 10 ^ n, exponent_ - n) + + groups = digitGroups alignedCoefficient + groupCount = length groups + pointIndex = groupCount + (alignedExponent `div` 4) - 1 + scale = max 0 $ negate alignedExponent + signCode = if coefficient < 0 then 0x4000 else 0x0000 + + -- Decompose the absolute value into base-10000 digits, most significant + -- first. + digitGroups :: Integer -> [Word16] + digitGroups = + reverse . L.unfoldr (\n -> if n == 0 then Nothing else Just (swap $ n `divMod` 10000)) . abs + where + swap (d, m) = (fromIntegral m, d) + + maxWord16 = fromIntegral (maxBound :: Word16) + maxInt16 = fromIntegral (maxBound :: Int16) + minInt16 = fromIntegral (minBound :: Int16) + + tooLarge :: String -> Int -> a + tooLarge what n = + throw . HPQTypesError $ + "numeric: " + ++ what + ++ " (" + ++ show n + ++ ") of " + ++ show value + ++ " is outside the range representable by the wire format" + +---------------------------------------- +-- Character types + +-- Note: the bytes are passed through verbatim. The upstream encoders drop +-- NUL characters instead, which silently corrupts the value; the server +-- rejects them by itself with a clear error. + +text_strict :: T.Text -> Encoding +text_strict = bytea_strict . T.encodeUtf8 + +text_lazy :: TL.Text -> Encoding +text_lazy = bytea_lazy . TL.encodeUtf8 + +---------------------------------------- +-- Byte arrays + +bytea_strict :: BS.ByteString -> Encoding +bytea_strict = Encoding . B.bytes + +bytea_lazy :: BSL.ByteString -> Encoding +bytea_lazy = Encoding . B.lazyBytes + +---------------------------------------- +-- Date and time + +-- Note: the components of the time values are taken apart with the accessors +-- of the "Data.Time" and "Data.Fixed" types rather than by coercing them to +-- their representations. + +-- | Days since the PostgreSQL epoch (2000-01-01), which the server uses +-- internally instead of the Modified Julian Date. +dayToPostgresJulian :: Day -> Integer +dayToPostgresJulian = subtract 51544 . toModifiedJulianDay + +date :: Day -> Encoding +date = int4_int32 . fromIntegral . dayToPostgresJulian + +time_int :: TimeOfDay -> Encoding +time_int (TimeOfDay hours minutes seconds) = + int8_int64 $ + picosecondsToMicros seconds + + 1000000 * 60 * (fromIntegral minutes + 60 * fromIntegral hours) + where + picosecondsToMicros (MkFixed picos) = fromIntegral $ picos `div` 1000000 + +timestamp_int :: LocalTime -> Encoding +timestamp_int (LocalTime day time) = + int8_int64 $ + microsPerDay * fromIntegral (dayToPostgresJulian day) + + fromIntegral (diffTimeToPicoseconds (timeOfDayToTime time) `div` 1000000) + +timestamptz_int :: UTCTime -> Encoding +timestamptz_int (UTCTime day time) = + int8_int64 $ + microsPerDay * fromIntegral (dayToPostgresJulian day) + + fromIntegral (diffTimeToPicoseconds time `div` 1000000) + +microsPerDay :: Int64 +microsPerDay = 1000000 * 60 * 60 * 24 + +---------------------------------------- +-- Miscellaneous + +bool :: Bool -> Encoding +bool b = Encoding . B.word8 $ if b then 1 else 0 + +uuid :: U.UUID -> Encoding +uuid value = case U.toWords value of + (w1, w2, w3, w4) -> int4_word32 w1 <> int4_word32 w2 <> int4_word32 w3 <> int4_word32 w4 + +-- | Note that an @inet@ value on the server is a host address with an +-- optional netmask, but 'IP.IPRange' only retains the network part, so the +-- host bits of the address are lost (see the decoder for the other +-- direction). +inet :: IP.IPRange -> Encoding +inet = \case + IP.IPv4Range addrRange -> case IP.addrRangePair addrRange of + (addr, maskLen) -> header inetAddressFamily maskLen 4 <> int4_word32 (IP.fromIPv4w addr) + IP.IPv6Range addrRange -> case IP.addrRangePair addrRange of + (addr, maskLen) -> case IP.fromIPv6w addr of + (w1, w2, w3, w4) -> + header inet6AddressFamily maskLen 16 + <> int4_word32 w1 + <> int4_word32 w2 + <> int4_word32 w3 + <> int4_word32 w4 + where + -- Address family, netmask length, the is-cidr flag and the size of the + -- address that follows. + header family maskLen size = + Encoding $ + B.word8 family + <> B.word8 (fromIntegral maskLen) + <> B.word8 0 + <> B.word8 size + + inetAddressFamily = 2 -- AF_INET + inet6AddressFamily = 3 -- AF_INET6 + +---------------------------------------- +-- JSON + +json_bytes :: BS.ByteString -> Encoding +json_bytes = bytea_strict + +json_bytes_lazy :: BSL.ByteString -> Encoding +json_bytes_lazy = bytea_lazy + +json_ast :: A.Value -> Encoding +json_ast = bytea_lazy . A.encode + +-- The wire format of jsonb is its JSON text prefixed with a version number. + +jsonbVersion :: Encoding +jsonbVersion = Encoding $ B.word8 1 + +jsonb_bytes :: BS.ByteString -> Encoding +jsonb_bytes value = jsonbVersion <> bytea_strict value + +jsonb_bytes_lazy :: BSL.ByteString -> Encoding +jsonb_bytes_lazy value = jsonbVersion <> bytea_lazy value + +jsonb_ast :: A.Value -> Encoding +jsonb_ast value = jsonbVersion <> json_ast value + +---------------------------------------- +-- Ranges + +-- | The wire format is a flags byte followed by the length-prefixed bounds +-- that are neither infinite nor absent. +range :: (a -> Encoding) -> Range a -> Encoding +range encodeBound = \case + Empty -> flags 0x01 + Range Inf Inf -> flags 0x18 + Range (Excl l) (Excl u) -> flags 0x00 <> bound l <> bound u + Range (Incl l) (Excl u) -> flags 0x02 <> bound l <> bound u + Range (Excl l) (Incl u) -> flags 0x04 <> bound l <> bound u + Range (Incl l) (Incl u) -> flags 0x06 <> bound l <> bound u + Range (Excl l) Inf -> flags 0x10 <> bound l + Range (Incl l) Inf -> flags 0x12 <> bound l + Range Inf (Excl u) -> flags 0x08 <> bound u + Range Inf (Incl u) -> flags 0x0c <> bound u + where + flags = Encoding . B.word8 + bound = sized . encodeBound + +int4range :: Range Int32 -> Encoding +int4range = range int4_int32 + +int8range :: Range Int64 -> Encoding +int8range = range int8_int64 + +numrange :: Range S.Scientific -> Encoding +numrange = range numeric + +daterange :: Range Day -> Encoding +daterange = range date + +tsrange_int :: Range LocalTime -> Encoding +tsrange_int = range timestamp_int + +tstzrange_int :: Range UTCTime -> Encoding +tstzrange_int = range timestamptz_int diff --git a/src/Database/PostgreSQL/PQTypes/Internal/RowDecoder.hs b/src/Database/PostgreSQL/PQTypes/Internal/RowDecoder.hs index b5a39b2..ba97bd5 100644 --- a/src/Database/PostgreSQL/PQTypes/Internal/RowDecoder.hs +++ b/src/Database/PostgreSQL/PQTypes/Internal/RowDecoder.hs @@ -27,11 +27,11 @@ import Data.Text qualified as T import Data.Vector qualified as V import Foreign.C.Types import Foreign.Ptr -import PostgreSQL.Binary.Decoding qualified as D import Database.PostgreSQL.PQTypes.Format import Database.PostgreSQL.PQTypes.Internal.C.Interface import Database.PostgreSQL.PQTypes.Internal.C.Types +import Database.PostgreSQL.PQTypes.Internal.Decoding qualified as D import Database.PostgreSQL.PQTypes.Internal.Error import Database.PostgreSQL.PQTypes.Internal.Oid import Database.PostgreSQL.PQTypes.Internal.Utils @@ -215,7 +215,7 @@ decodeNullable (RowDecoder inner) = mkDecoder $ do pure $ Just a -- | Decode the next field using a value decoder from --- "PostgreSQL.Binary.Decoding", after verifying that the type of the field +-- "Database.PostgreSQL.PQTypes.Internal.Decoding", after verifying that the type of the field -- matches the expected one. decodeScalar :: forall a. PQFormat a => D.Value a -> RowDecoder a decodeScalar valueDec = withNextField $ \_srcRow -> \case diff --git a/src/Database/PostgreSQL/PQTypes/Interval.hs b/src/Database/PostgreSQL/PQTypes/Interval.hs index 07c1411..bfa8875 100644 --- a/src/Database/PostgreSQL/PQTypes/Interval.hs +++ b/src/Database/PostgreSQL/PQTypes/Interval.hs @@ -12,11 +12,11 @@ module Database.PostgreSQL.PQTypes.Interval import BinaryParser qualified as BP import Data.Int import Data.Semigroup qualified as SG -import PostgreSQL.Binary.Decoding qualified as D -import PostgreSQL.Binary.Encoding qualified as E import Database.PostgreSQL.PQTypes.Format import Database.PostgreSQL.PQTypes.FromSQL +import Database.PostgreSQL.PQTypes.Internal.Decoding qualified as D +import Database.PostgreSQL.PQTypes.Internal.Encoding qualified as E import Database.PostgreSQL.PQTypes.Internal.Oid import Database.PostgreSQL.PQTypes.ToSQL diff --git a/src/Database/PostgreSQL/PQTypes/JSON.hs b/src/Database/PostgreSQL/PQTypes/JSON.hs index aac8c92..e117b5e 100644 --- a/src/Database/PostgreSQL/PQTypes/JSON.hs +++ b/src/Database/PostgreSQL/PQTypes/JSON.hs @@ -10,11 +10,11 @@ import Data.Bifunctor import Data.ByteString.Char8 qualified as BS import Data.ByteString.Lazy.Char8 qualified as BSL import Data.Text qualified as T -import PostgreSQL.Binary.Decoding qualified as PD -import PostgreSQL.Binary.Encoding qualified as PE import Database.PostgreSQL.PQTypes.Format import Database.PostgreSQL.PQTypes.FromSQL +import Database.PostgreSQL.PQTypes.Internal.Decoding qualified as PD +import Database.PostgreSQL.PQTypes.Internal.Encoding qualified as PE import Database.PostgreSQL.PQTypes.Internal.Oid import Database.PostgreSQL.PQTypes.ToSQL diff --git a/src/Database/PostgreSQL/PQTypes/Range.hs b/src/Database/PostgreSQL/PQTypes/Range.hs new file mode 100644 index 0000000..bab6a75 --- /dev/null +++ b/src/Database/PostgreSQL/PQTypes/Range.hs @@ -0,0 +1,23 @@ +-- | Representation of the PostgreSQL range types. +module Database.PostgreSQL.PQTypes.Range + ( Range (..) + , Bound (..) + ) where + +-- | A range of values of type @a@, either empty or delimited by a pair of +-- bounds. +-- +-- Note that the server normalizes ranges over discrete types, so a fetched +-- value doesn't necessarily have the bounds it was created with, e.g. +-- @int4range(1, 5, \'(]\')@ comes back as @'Range' ('Incl' 2) ('Excl' 6)@. +data Range a + = Empty + | Range !(Bound a) !(Bound a) + deriving stock (Eq, Functor, Ord, Show) + +-- | One end of a 'Range': inclusive, exclusive or unbounded. +data Bound a + = Incl !a + | Excl !a + | Inf + deriving stock (Eq, Functor, Ord, Show) diff --git a/src/Database/PostgreSQL/PQTypes/ToSQL.hs b/src/Database/PostgreSQL/PQTypes/ToSQL.hs index 0c125c7..b154afb 100644 --- a/src/Database/PostgreSQL/PQTypes/ToSQL.hs +++ b/src/Database/PostgreSQL/PQTypes/ToSQL.hs @@ -20,12 +20,12 @@ import Data.Time import Data.UUID.Types qualified as U import Data.Vector qualified as V import Data.Word -import PostgreSQL.Binary.Encoding qualified as E -import PostgreSQL.Binary.Range (Range) import Database.PostgreSQL.PQTypes.Format +import Database.PostgreSQL.PQTypes.Internal.Encoding qualified as E import Database.PostgreSQL.PQTypes.Internal.Error import Database.PostgreSQL.PQTypes.Internal.Oid +import Database.PostgreSQL.PQTypes.Range (Range) -- | Query parameter in the PostgreSQL binary wire format: OID of its type -- along with the encoded value ('Nothing' represents SQL NULL). @@ -66,7 +66,7 @@ class PQFormat a => ToSQL a where -- 'Char' so that 'String' is encoded as @text@. This is why the 'ToSQL' -- instance for lists cannot define its methods directly. toSQLList :: [a] -> Maybe E.Encoding - toSQLList = Just . E.array (unOid $ arrayElemOid @a) . arrayElemList + toSQLList = Just . E.array (arrayElemOid @a) . arrayElemList -- | 'arrayElemOid' of @[a]@: passed through by default (an array is of -- the same type regardless of its number of dimensions), overridden by @@ -183,7 +183,7 @@ instance ToSQL a => ToSQL [a] where arrayElemDims = arrayElemDimsList @a instance ToSQL a => ToSQL (V.Vector a) where - toSQL = Just . E.array (unOid $ arrayElemOid @a) . arrayElem + toSQL = Just . E.array (arrayElemOid @a) . arrayElem arrayElemOid = arrayElemOid @a arrayElem v = case raggedDims (V.toList v) of Nothing -> E.dimensionArray V.foldl' (arrayElem @a) v @@ -296,6 +296,9 @@ instance ToSQL Bool where -- INET +-- | /Warning:/ 'IPRange' only holds the network part of an address, so the +-- host bits of an @inet@ value cannot be sent (the same applies to decoding, +-- see the @FromSQL@ instance). instance ToSQL IPRange where toSQL = Just . E.inet diff --git a/src/Database/PostgreSQL/PQTypes/XML.hs b/src/Database/PostgreSQL/PQTypes/XML.hs index b8843fb..d7025d7 100644 --- a/src/Database/PostgreSQL/PQTypes/XML.hs +++ b/src/Database/PostgreSQL/PQTypes/XML.hs @@ -3,11 +3,11 @@ module Database.PostgreSQL.PQTypes.XML ) where import Data.Text -import PostgreSQL.Binary.Decoding qualified as D -import PostgreSQL.Binary.Encoding qualified as E import Database.PostgreSQL.PQTypes.Format import Database.PostgreSQL.PQTypes.FromSQL +import Database.PostgreSQL.PQTypes.Internal.Decoding qualified as D +import Database.PostgreSQL.PQTypes.Internal.Encoding qualified as E import Database.PostgreSQL.PQTypes.Internal.Oid import Database.PostgreSQL.PQTypes.ToSQL diff --git a/test/Test/Types.hs b/test/Test/Types.hs index 2722013..85338b7 100644 --- a/test/Test/Types.hs +++ b/test/Test/Types.hs @@ -13,8 +13,10 @@ import Data.Aeson (Value) import Data.ByteString qualified as BS import Data.IP (IPRange) import Data.Int +import Data.List qualified as L import Data.Scientific import Data.Text qualified as T +import Data.Text.Lazy qualified as TL import Data.Time import Data.Typeable import Data.UUID.Types qualified as U @@ -22,10 +24,12 @@ import Data.Vector qualified as V import Data.Word import Test.QuickCheck import Test.Tasty +import Test.Tasty.HUnit qualified as HUnit import TextShow import Data.Monoid.Utils import Database.PostgreSQL.PQTypes +import Database.PostgreSQL.PQTypes.Internal.Decoding qualified as D import Test.Env import Test.QuickCheck.Arbitrary.Instances @@ -35,6 +39,9 @@ typesTests td = , integerTest td , fractionalNumericTest td , xmlTest td + , nulInTextTest td + , numericLimitsTest td + , rangeBoundLengthTest , intervalComparisonTest td , intWordEncodingTest td , rangeTest td @@ -245,6 +252,90 @@ intervalComparisonTest td = testCase | otherwise = GT assertEqual "Ordering matches the server" expected $ compare a b +-- | The header fields of a @numeric@ value are 16 bit wide, so a large +-- enough exponent doesn't fit. The upstream encoder these are derived from +-- lets such a value wrap around, which silently stores a different number +-- (@1e131072@ used to arrive as @0@). +numericLimitsTest :: TestData -> TestTree +numericLimitsTest td = testCase "Numeric values that don't fit the wire format are rejected" + . runTestEnv td defaultTransactionSettings + $ do + -- The largest weight and scale the format can represent still work. + roundtrips "largest weight" $ scientific 1 131068 + roundtrips "largest scale" $ scientific 1 (-16380) + rejected "weight" $ scientific 1 131072 + rejected "weight" $ scientific 1 200000 + rejected "scale" $ scientific 1 (-100000) + where + roundtrips what v = do + runQuery_ $ rawSQL "SELECT $1" (Identity v) + v' <- fetchOne fromSQL + assertEqual ("Value with the " ++ what ++ " roundtrips") v v' + + rejected what v = + expectError @HPQTypesError ("numeric " ++ what ++ " out of range") check + . runQuery_ + $ rawSQL "SELECT $1" (Identity v) + where + check (HPQTypesError msg) = + liftBase . assertBool ("Error message mentions the " ++ what ++ ": " ++ msg) $ + what `L.isInfixOf` msg + +-- | The length prefix of a value inside a container is signed, with @-1@ +-- standing for NULL. The upstream decoder these are derived from passes any +-- other negative length on to @unsafeTake@ / @unsafeDrop@, which yields a +-- 'BS.ByteString' of negative length pointing before its buffer. +rangeBoundLengthTest :: TestTree +rangeBoundLengthTest = testCase "Negative length of a range bound is rejected" $ do + HUnit.assertEqual + "Well-formed range decodes" + (Right $ Range (Incl 1) (Incl 5)) + (D.valueParser D.int4range wellFormed) + case D.valueParser D.int4range negativeLength of + Right r -> assertFailure $ "Malformed range decoded to " ++ show r + Left err -> + HUnit.assertBool ("Error mentions the length: " ++ T.unpack err) $ + "-24" `T.isInfixOf` err + where + -- Flags (lower and upper inclusive, neither infinite), then a bound + -- claiming a length of 0xffffffe8, i.e. -24. + negativeLength = BS.pack [0x06, 0xff, 0xff, 0xff, 0xe8, 0xde, 0xad, 0xbe, 0xef] + wellFormed = BS.pack [0x06, 0, 0, 0, 4, 0, 0, 0, 1, 0, 0, 0, 4, 0, 0, 0, 5] + +-- | The server rejects NUL characters in values of the character types, so +-- they need to be passed on verbatim for it to do so. The upstream encoders +-- the ones in "Database.PostgreSQL.PQTypes.Internal.Encoding" are derived +-- from silently drop such characters, which corrupts the value instead. +nulInTextTest :: TestData -> TestTree +nulInTextTest td = testCase "NUL characters in text values are rejected" + . runTestEnv td defaultTransactionSettings + $ do + rejected "Text" CharacterNotInRepertoire $ Identity ("a\NULb" :: T.Text) + rejected "lazy Text" CharacterNotInRepertoire $ Identity ("a\NULb" :: TL.Text) + rejected "String" CharacterNotInRepertoire $ Identity ("a\NULb" :: String) + rejected "array element" CharacterNotInRepertoire $ Identity ["a\NULb" :: T.Text] + rejected "String array element" CharacterNotInRepertoire $ Identity [["a\NULb" :: String]] + -- The XML parser rejects the character before the encoding check does. + rejected "XML" InvalidXmlContent . Identity . XML $ "x\NULy" + where + rejected :: (Show row, ToRow row) => String -> ErrorCode -> row -> TestEnv () + rejected what expected row = do + -- The receive function of the type of a parameter runs when the query + -- is bound, so the value doesn't need to be used by the query itself. + -- The savepoint keeps the transaction usable for the checks that follow. + eres <- try . withSavepoint "nul" . runQuery_ $ rawSQL "SELECT $1" row + liftBase $ case eres of + Left DBException {..} + | Just DetailedQueryError {..} <- cast dbeError -> + assertEqual + ("Unexpected error code (" ++ what ++ ")") + expected + qeErrorCode + | otherwise -> + assertFailure $ "Unexpected exception (" ++ what ++ "): " ++ show dbeError + Right () -> + assertFailure $ "NUL character wasn't rejected (" ++ what ++ ")" + -- | 'Int' and 'Word' have no 'FromSQL' instances (their size is -- architecture-dependent), so their encoding is checked by fetching the -- values back as 'Int64' and 'Word64'. From a2206c5125b39d6774030b92ccbaf6ee98010064 Mon Sep 17 00:00:00 2001 From: Andrzej Rybczak Date: Tue, 28 Jul 2026 06:01:29 +0200 Subject: [PATCH 3/7] Better handling of network types Map inet to (IP, Int) internally so that the netmask is carried alongside the address, which lets FromSQL IP reject values with host bits set instead of silently dropping them, and cidr to IPRange. --- CHANGELOG.md | 7 +++- src/Database/PostgreSQL/PQTypes/Format.hs | 10 +++-- src/Database/PostgreSQL/PQTypes/FromSQL.hs | 37 +++++++++++----- .../PostgreSQL/PQTypes/Internal/Decoding.hs | 33 +++++++-------- .../PostgreSQL/PQTypes/Internal/Encoding.hs | 39 +++++++++-------- .../PostgreSQL/PQTypes/Internal/Oid.hs | 7 ++++ src/Database/PostgreSQL/PQTypes/ToSQL.hs | 20 ++++++--- test/Test/QuickCheck/Arbitrary/Instances.hs | 16 ++++--- test/Test/Types.hs | 42 ++++++++++++++++++- 9 files changed, 150 insertions(+), 61 deletions(-) diff --git a/CHANGELOG.md b/CHANGELOG.md index 5478578..f61bbd6 100644 --- a/CHANGELOG.md +++ b/CHANGELOG.md @@ -69,8 +69,11 @@ * Add `FromSQL` and `ToSQL` instances for `Integer` and `Scientific` (mapped to `numeric`), `Word16`, `Word32` and `Word64`, plus a `ToSQL` instance for `Word` (for symmetry with `Int`). -* Add `FromSQL` and `ToSQL` instances for `IPRange` (from the `iproute` - package), mapped to the `inet` type. +* Add `FromSQL` and `ToSQL` instances for `IP` and `IPRange` (from the + `iproute` package), mapped to the `inet` and `cidr` types respectively. + Note that an `inet` value carries the length of its netmask alongside the + address, so it only decodes to a bare `IP` when the netmask covers the + whole address; otherwise decoding fails rather than dropping it. * Add support for range types: `FromSQL` and `ToSQL` instances for `Range` of `Int32`, `Int64`, `Scientific`, `Day`, `LocalTime` and `UTCTime`, mapped to `int4range`, `int8range`, `numrange`, `daterange`, `tsrange` and diff --git a/src/Database/PostgreSQL/PQTypes/Format.hs b/src/Database/PostgreSQL/PQTypes/Format.hs index ec432e6..fa7d8ce 100644 --- a/src/Database/PostgreSQL/PQTypes/Format.hs +++ b/src/Database/PostgreSQL/PQTypes/Format.hs @@ -6,7 +6,7 @@ module Database.PostgreSQL.PQTypes.Format import Data.ByteString.Char8 qualified as BS import Data.ByteString.Lazy.Char8 qualified as BSL -import Data.IP (IPRange) +import Data.IP (IP, IPRange) import Data.Int import Data.Scientific import Data.Text qualified as T @@ -180,12 +180,16 @@ instance PQFormat Bool where pqOid = boolOid pqArrayOid = boolArrayOid --- INET +-- INET / CIDR -instance PQFormat IPRange where +instance PQFormat IP where pqOid = inetOid pqArrayOid = inetArrayOid +instance PQFormat IPRange where + pqOid = cidrOid + pqArrayOid = cidrArrayOid + -- RANGES instance PQFormat (Range Int32) where diff --git a/src/Database/PostgreSQL/PQTypes/FromSQL.hs b/src/Database/PostgreSQL/PQTypes/FromSQL.hs index 1781e30..8c70390 100644 --- a/src/Database/PostgreSQL/PQTypes/FromSQL.hs +++ b/src/Database/PostgreSQL/PQTypes/FromSQL.hs @@ -19,7 +19,7 @@ module Database.PostgreSQL.PQTypes.FromSQL import Data.ByteString qualified as BS import Data.ByteString.Lazy qualified as BSL import Data.Char -import Data.IP (IPRange) +import Data.IP import Data.Int import Data.Scientific import Data.Text qualified as T @@ -240,16 +240,33 @@ instance FromSQL Bool where -- INET --- | Note that there is no instance for the @cidr@ type, which shares the --- wire format with @inet@, but has a different OID. --- --- /Warning:/ an @inet@ value is a host address with an optional netmask, --- but 'IPRange' only retains the network part, so the host bits of the --- address are lost: @\'10.0.0.5\/8\'::inet@ decodes to @10.0.0.0\/8@. The --- same applies to encoding, as 'IPRange' cannot represent them in the first --- place. +-- | An @inet@ value is a host address along with the length of its netmask, +-- so it only decodes to a bare 'IP' when the netmask covers the whole +-- address (as it does for a value entered without one). Otherwise decoding +-- fails rather than silently dropping the netmask, in the same way that +-- 'Integer' rejects a @numeric@ that isn't integral. +instance FromSQL IP where + fromSQL = decodeScalar . (`D.refine` D.inet) $ \(address, maskLen) -> + let width = case address of + IPv4 {} -> 32 + IPv6 {} -> 128 + in if maskLen == width + then Right address + else + Left $ + "expected an address with a /" + <> showt width + <> " netmask, got /" + <> showt maskLen + +-- | A @cidr@ value is a network address, i.e. one with no bits set to the +-- right of the netmask, which is exactly what 'IPRange' represents. instance FromSQL IPRange where - fromSQL = decodeScalar D.inet + fromSQL = decodeScalar $ toRange <$> D.inet + where + toRange (address, maskLen) = case address of + IPv4 addr -> IPv4Range $ makeAddrRange addr maskLen + IPv6 addr -> IPv6Range $ makeAddrRange addr maskLen -- RANGES diff --git a/src/Database/PostgreSQL/PQTypes/Internal/Decoding.hs b/src/Database/PostgreSQL/PQTypes/Internal/Decoding.hs index 3047d8e..7870852 100644 --- a/src/Database/PostgreSQL/PQTypes/Internal/Decoding.hs +++ b/src/Database/PostgreSQL/PQTypes/Internal/Decoding.hs @@ -26,9 +26,9 @@ -- that the parser library doesn't leak into the public API of the library. -- Custom decoders are built with 'fn' and 'refine'. -- --- Note that 'inet' keeps the upstream behavior of discarding the host bits --- of an address, which the 'IP.IPRange' it decodes into cannot --- represent anyway. +-- * 'inet' decodes the address and the length of its netmask, leaving it to +-- the caller to map that onto a Haskell type. Upstream decodes into +-- 'IP.IPRange', which silently discards the host bits of the address. module Database.PostgreSQL.PQTypes.Internal.Decoding ( -- * Decoding Value @@ -84,7 +84,7 @@ import Data.Bits import Data.ByteString qualified as BS import Data.ByteString.Lazy qualified as BSL import Data.Fixed (Fixed (..), Pico) -import Data.IP qualified as IP +import Data.IP import Data.Int import Data.Scientific qualified as S import Data.Text qualified as T @@ -262,29 +262,26 @@ bool = (== 1) <$> intOfSize @Word8 1 uuid :: Value U.UUID uuid = U.fromWords <$> intOfSize 4 <*> intOfSize 4 <*> intOfSize 4 <*> intOfSize 4 --- | Note that an @inet@ value on the server is a host address with an --- optional netmask, but 'IP.IPRange' only retains the network part, so the --- host bits of the address are lost: @\'10.0.0.5\/8\'::inet@ decodes to --- @10.0.0.0\/8@. -inet :: Value IP.IPRange +-- | An address along with the length of its netmask. This is the wire format +-- of both @inet@ and @cidr@, which differ only in a flag that is of no use +-- when decoding (and in their OIDs, which the caller checks): a @cidr@ value +-- is one with no bits set to the right of the netmask. +inet :: Value (IP, Int) inet = do family <- intOfSize @Word8 1 maskLen <- intOfSize @Int 1 -- Skip the is-cidr flag and the size of the address. _isCidr <- intOfSize @Word8 1 _size <- intOfSize @Word8 1 - case family of + address <- case family of -- AF_INET - 2 -> do - addr <- IP.toIPv4w <$> intOfSize 4 - pure . IP.IPv4Range $ IP.makeAddrRange addr maskLen + 2 -> IPv4 . toIPv4w <$> intOfSize 4 -- AF_INET6 - 3 -> do - addr <- - fmap IP.toIPv6w $ - (,,,) <$> intOfSize 4 <*> intOfSize 4 <*> intOfSize 4 <*> intOfSize 4 - pure . IP.IPv6Range $ IP.makeAddrRange addr maskLen + 3 -> + fmap (IPv6 . toIPv6w) $ + (,,,) <$> intOfSize 4 <*> intOfSize 4 <*> intOfSize 4 <*> intOfSize 4 _ -> failure $ "Unknown address family: " <> T.pack (show family) + pure (address, maskLen) ---------------------------------------- -- JSON diff --git a/src/Database/PostgreSQL/PQTypes/Internal/Encoding.hs b/src/Database/PostgreSQL/PQTypes/Internal/Encoding.hs index e66765b..2eea140 100644 --- a/src/Database/PostgreSQL/PQTypes/Internal/Encoding.hs +++ b/src/Database/PostgreSQL/PQTypes/Internal/Encoding.hs @@ -23,6 +23,10 @@ -- "Data.Time" and "Data.Fixed" types instead of coercing them to their -- representations. -- +-- * 'inet' takes the address and the length of its netmask, leaving it to +-- the caller to map a Haskell type onto that. Upstream takes an +-- 'IP.IPRange', which cannot carry the host bits of the address. +-- -- * 'Encoding' is a newtype rather than an alias of the underlying builder, -- and 'array' takes an 'Oid' rather than a bare 'Word32', so -- that neither the builder library nor a raw OID leaks into the public @@ -338,26 +342,27 @@ uuid :: U.UUID -> Encoding uuid value = case U.toWords value of (w1, w2, w3, w4) -> int4_word32 w1 <> int4_word32 w2 <> int4_word32 w3 <> int4_word32 w4 --- | Note that an @inet@ value on the server is a host address with an --- optional netmask, but 'IP.IPRange' only retains the network part, so the --- host bits of the address are lost (see the decoder for the other --- direction). -inet :: IP.IPRange -> Encoding -inet = \case - IP.IPv4Range addrRange -> case IP.addrRangePair addrRange of - (addr, maskLen) -> header inetAddressFamily maskLen 4 <> int4_word32 (IP.fromIPv4w addr) - IP.IPv6Range addrRange -> case IP.addrRangePair addrRange of - (addr, maskLen) -> case IP.fromIPv6w addr of - (w1, w2, w3, w4) -> - header inet6AddressFamily maskLen 16 - <> int4_word32 w1 - <> int4_word32 w2 - <> int4_word32 w3 - <> int4_word32 w4 +-- | An address along with the length of its netmask. This is the wire format +-- of both @inet@ and @cidr@; the flag distinguishing them is set from the +-- OID of the parameter, so it's always encoded as @inet@ here (the server +-- accepts that for a @cidr@ parameter as long as no bits are set to the +-- right of the netmask, which is what makes a value a @cidr@ in the first +-- place). +inet :: (IP.IP, Int) -> Encoding +inet (address, maskLen) = case address of + IP.IPv4 addr -> + header inetAddressFamily 4 <> int4_word32 (IP.fromIPv4w addr) + IP.IPv6 addr -> case IP.fromIPv6w addr of + (w1, w2, w3, w4) -> + header inet6AddressFamily 16 + <> int4_word32 w1 + <> int4_word32 w2 + <> int4_word32 w3 + <> int4_word32 w4 where -- Address family, netmask length, the is-cidr flag and the size of the -- address that follows. - header family maskLen size = + header family size = Encoding $ B.word8 family <> B.word8 (fromIntegral maskLen) diff --git a/src/Database/PostgreSQL/PQTypes/Internal/Oid.hs b/src/Database/PostgreSQL/PQTypes/Internal/Oid.hs index 83a697e..3198575 100644 --- a/src/Database/PostgreSQL/PQTypes/Internal/Oid.hs +++ b/src/Database/PostgreSQL/PQTypes/Internal/Oid.hs @@ -31,6 +31,8 @@ module Database.PostgreSQL.PQTypes.Internal.Oid , unknownOid , inetOid , inetArrayOid + , cidrOid + , cidrArrayOid , bpcharOid , bpcharArrayOid , varcharOid @@ -150,6 +152,10 @@ inetOid, inetArrayOid :: Oid inetOid = Oid 869 inetArrayOid = Oid 1041 +cidrOid, cidrArrayOid :: Oid +cidrOid = Oid 650 +cidrArrayOid = Oid 651 + bpcharOid, bpcharArrayOid :: Oid bpcharOid = Oid 1042 bpcharArrayOid = Oid 1014 @@ -260,6 +266,7 @@ builtinTypeNames = , (float4Oid, float4ArrayOid, "float4") , (float8Oid, float8ArrayOid, "float8") , (inetOid, inetArrayOid, "inet") + , (cidrOid, cidrArrayOid, "cidr") , (bpcharOid, bpcharArrayOid, "bpchar") , (varcharOid, varcharArrayOid, "varchar") , (dateOid, dateArrayOid, "date") diff --git a/src/Database/PostgreSQL/PQTypes/ToSQL.hs b/src/Database/PostgreSQL/PQTypes/ToSQL.hs index b154afb..54e970c 100644 --- a/src/Database/PostgreSQL/PQTypes/ToSQL.hs +++ b/src/Database/PostgreSQL/PQTypes/ToSQL.hs @@ -10,7 +10,7 @@ import Control.Exception (throw) import Data.ByteString qualified as B import Data.ByteString.Char8 qualified as BS import Data.ByteString.Lazy.Char8 qualified as BSL -import Data.IP (IPRange) +import Data.IP import Data.Int import Data.List qualified as L import Data.Scientific @@ -296,11 +296,21 @@ instance ToSQL Bool where -- INET --- | /Warning:/ 'IPRange' only holds the network part of an address, so the --- host bits of an @inet@ value cannot be sent (the same applies to decoding, --- see the @FromSQL@ instance). +-- | Sent as an @inet@ value whose netmask covers the whole address. +instance ToSQL IP where + toSQL address = Just $ E.inet (address, width) + where + width = case address of + IPv4 {} -> 32 + IPv6 {} -> 128 + instance ToSQL IPRange where - toSQL = Just . E.inet + toSQL = \case + IPv4Range range -> withRange IPv4 range + IPv6Range range -> withRange IPv6 range + where + withRange mkAddress range = case addrRangePair range of + (addr, maskLen) -> Just $ E.inet (mkAddress addr, maskLen) -- RANGES diff --git a/test/Test/QuickCheck/Arbitrary/Instances.hs b/test/Test/QuickCheck/Arbitrary/Instances.hs index 5a74f78..82d725b 100644 --- a/test/Test/QuickCheck/Arbitrary/Instances.hs +++ b/test/Test/QuickCheck/Arbitrary/Instances.hs @@ -218,15 +218,21 @@ instance Arbitrary ZonedTime where ---------------------------------------- +instance Arbitrary IP where + arbitrary = oneof [IPv4 <$> genIPv4, IPv6 <$> genIPv6] + instance Arbitrary IPRange where arbitrary = oneof - [ IPv4Range <$> (makeAddrRange <$> ipv4 <*> choose (0, 32)) - , IPv6Range <$> (makeAddrRange <$> ipv6 <*> choose (0, 128)) + [ IPv4Range <$> (makeAddrRange <$> genIPv4 <*> choose (0, 32)) + , IPv6Range <$> (makeAddrRange <$> genIPv6 <*> choose (0, 128)) ] - where - ipv4 = toIPv4 <$> vectorOf 4 (choose (0, 255)) - ipv6 = toIPv6 <$> vectorOf 8 (choose (0, 65535)) + +genIPv4 :: Gen IPv4 +genIPv4 = toIPv4 <$> vectorOf 4 (choose (0, 255)) + +genIPv6 :: Gen IPv6 +genIPv6 = toIPv6 <$> vectorOf 8 (choose (0, 65535)) ---------------------------------------- diff --git a/test/Test/Types.hs b/test/Test/Types.hs index 85338b7..2b61c4d 100644 --- a/test/Test/Types.hs +++ b/test/Test/Types.hs @@ -11,7 +11,7 @@ import Control.Monad.Base import Control.Monad.Catch import Data.Aeson (Value) import Data.ByteString qualified as BS -import Data.IP (IPRange) +import Data.IP (IP, IPRange) import Data.Int import Data.List qualified as L import Data.Scientific @@ -30,6 +30,7 @@ import TextShow import Data.Monoid.Utils import Database.PostgreSQL.PQTypes import Database.PostgreSQL.PQTypes.Internal.Decoding qualified as D +import Database.PostgreSQL.PQTypes.Internal.Oid import Test.Env import Test.QuickCheck.Arbitrary.Instances @@ -42,6 +43,7 @@ typesTests td = , nulInTextTest td , numericLimitsTest td , rangeBoundLengthTest + , inetTest td , intervalComparisonTest td , intWordEncodingTest td , rangeTest td @@ -74,6 +76,7 @@ typesTests td = , nullTest @[[Double]] td , nullTest @(V.Vector Int32) td , nullTest @(V.Vector (V.Vector Double)) td + , nullTest @IP td , nullTest @IPRange td , nullTest @(Range Int32) td , putGetTest @Int16 td 100 @@ -109,6 +112,7 @@ typesTests td = , putGetTest @(V.Vector Int32) td 1000 , putGetTest @(V.Vector (Maybe Int32)) td 1000 , putGetTest @(VMatrix Double) td 1000 + , putGetTest @IP td 100 , putGetTest @IPRange td 100 , putGetTest @(Range Int32) td 100 , putGetTest @(Range Int64) td 100 @@ -252,6 +256,42 @@ intervalComparisonTest td = testCase | otherwise = GT assertEqual "Ordering matches the server" expected $ compare a b +-- | @inet@ maps to 'IP' and @cidr@ to 'IPRange'. The wire format of an +-- @inet@ carries the host bits of the address along with the length of its +-- netmask, so a bare 'IP' can only represent the values whose netmask covers +-- the whole address. +inetTest :: TestData -> TestTree +inetTest td = testCase "inet maps to IP and cidr to IPRange" + . runTestEnv td defaultTransactionSettings + $ do + -- The host bits used to be discarded, turning this into 10.0.0.0/8. + runSQL_ "SELECT '10.0.0.5/8'::inet::text, '2001:db8::5/32'::inet::text" + addresses <- fetchOne ((,) <$> fromSQL @T.Text <*> fromSQL @T.Text) + assertEqual "Host bits survive on the server" ("10.0.0.5/8", "2001:db8::5/32") addresses + + -- A netmask narrower than the address is rejected rather than dropped. + runSQL_ "SELECT '10.0.0.5/8'::inet" + expectError @HPQTypesError "netmask on an IP" checkNetmask $ fetchOne (fromSQL @IP) + + -- A bare address has a netmask covering it, so it decodes. + runSQL_ "SELECT '10.0.0.5'::inet" + addr <- fetchOne $ fromSQL @IP + assertEqual "Bare address decodes" (read "10.0.0.5") addr + + -- The OIDs keep the two types apart in both directions. + runSQL_ "SELECT '10.0.0.0/8'::cidr" + expectError @TypeMismatch "cidr as IP" (checkOids inetOid cidrOid) $ fetchOne (fromSQL @IP) + runSQL_ "SELECT '10.0.0.5'::inet" + expectError @TypeMismatch "inet as IPRange" (checkOids cidrOid inetOid) $ + fetchOne (fromSQL @IPRange) + where + checkNetmask (HPQTypesError msg) = + liftBase . assertBool ("Error mentions the netmask: " ++ msg) $ + "/8" `L.isInfixOf` msg + checkOids expected delivered TypeMismatch {..} = do + assertEqual "Expected OID is correct" expected tmExpectedOid + assertEqual "Delivered OID is correct" delivered tmDeliveredOid + -- | The header fields of a @numeric@ value are 16 bit wide, so a large -- enough exponent doesn't fit. The upstream encoder these are derived from -- lets such a value wrap around, which silently stores a different number From 580c063156f1e23a8e227e0295f6f8707c45dec9 Mon Sep 17 00:00:00 2001 From: Andrzej Rybczak Date: Tue, 28 Jul 2026 06:01:39 +0200 Subject: [PATCH 4/7] Improve error reporting, add instances and update CI Assorted follow-ups to the rewrite: - fetchMaybe and fetchOne check the number of delivered rows before decoding any of them, so a result of the wrong size is reported as such rather than as whatever decoding its first row happens to produce, and fetchOne says that it expected exactly one row. - FromSQL instances for Int and Word are defined with TypeError, pointing at Int64 and Word64: their size is architecture dependent, so decoding them is not reliable. - Errors thrown from the on demand connection mode are no longer masked by the failure of the ROLLBACK ending the automatic transaction. - Interval gets a structural roundtrip test, PQFormat a note about newtype deriving not working when the Oid differs, and the haddocks are free of warnings. --- .github/workflows/fourmolu.yaml | 6 +-- .github/workflows/haskell-ci.yml | 18 +++---- .github/workflows/hlint.yaml | 2 +- CHANGELOG.md | 12 +++-- src/Data/Monoid/Utils.hs | 2 +- src/Database/PostgreSQL/PQTypes/Enum.hs | 13 ++--- src/Database/PostgreSQL/PQTypes/Fold.hs | 47 ++++++++++++------- src/Database/PostgreSQL/PQTypes/Format.hs | 12 +++++ src/Database/PostgreSQL/PQTypes/FromSQL.hs | 24 ++++++++++ .../PostgreSQL/PQTypes/Internal/Connection.hs | 6 +-- .../PostgreSQL/PQTypes/Internal/Decoding.hs | 6 +-- .../PostgreSQL/PQTypes/Internal/Encoding.hs | 8 ++-- .../PostgreSQL/PQTypes/Internal/Exception.hs | 2 +- .../PostgreSQL/PQTypes/Internal/Monad.hs | 1 + .../PostgreSQL/PQTypes/Internal/Oid.hs | 4 +- .../PQTypes/Internal/QueryResult.hs | 6 +-- .../PostgreSQL/PQTypes/Internal/RowDecoder.hs | 14 +++--- .../PostgreSQL/PQTypes/Internal/State.hs | 27 +++++++++-- src/Database/PostgreSQL/PQTypes/Interval.hs | 16 +++++++ src/Database/PostgreSQL/PQTypes/JSON.hs | 8 ++-- src/Database/PostgreSQL/PQTypes/Range.hs | 4 +- src/Database/PostgreSQL/PQTypes/SQL.hs | 10 ++-- src/Database/PostgreSQL/PQTypes/SQL/Class.hs | 4 +- src/Database/PostgreSQL/PQTypes/SQL/Raw.hs | 10 ++-- src/Database/PostgreSQL/PQTypes/ToSQL.hs | 2 +- .../PQTypes/Transaction/Settings.hs | 6 ++- src/Database/PostgreSQL/PQTypes/Utils.hs | 8 ++-- src/Database/PostgreSQL/PQTypes/XML.hs | 2 +- test/Test/Connection.hs | 35 +++++++++----- test/Test/QuickCheck/Arbitrary/Instances.hs | 10 ++++ test/Test/RowDecoder.hs | 23 +++++++++ test/Test/Types.hs | 8 ++-- 32 files changed, 246 insertions(+), 110 deletions(-) diff --git a/.github/workflows/fourmolu.yaml b/.github/workflows/fourmolu.yaml index 4730c86..12df8a0 100644 --- a/.github/workflows/fourmolu.yaml +++ b/.github/workflows/fourmolu.yaml @@ -4,7 +4,7 @@ jobs: format: runs-on: ubuntu-latest steps: - - uses: actions/checkout@v3 - - uses: haskell-actions/run-fourmolu@v10 + - uses: actions/checkout@v7 + - uses: haskell-actions/run-fourmolu@v13 with: - version: "0.15.0.0" + version: "0.19.0.1" diff --git a/.github/workflows/haskell-ci.yml b/.github/workflows/haskell-ci.yml index cba5f17..6123c00 100644 --- a/.github/workflows/haskell-ci.yml +++ b/.github/workflows/haskell-ci.yml @@ -8,9 +8,9 @@ # # For more information, see https://github.com/arybczak/haskell-ci # -# version: 0.19.20260424 +# version: 0.19.20260721 # -# REGENDATA ("0.19.20260424",["github","--config=cabal.haskell-ci","cabal.project"]) +# REGENDATA ("0.19.20260721",["github","--config=cabal.haskell-ci","cabal.project"]) # name: Haskell-CI on: @@ -84,8 +84,8 @@ jobs: chmod a+x "$HOME/.ghcup/bin/ghcup" - name: Install cabal-install run: | - "$HOME/.ghcup/bin/ghcup" install cabal 3.16.0.0 || (cat "$HOME"/.ghcup/logs/*.* && false) - echo "CABAL=$HOME/.ghcup/bin/cabal-3.16.0.0 -vnormal+nowrap" >> "$GITHUB_ENV" + "$HOME/.ghcup/bin/ghcup" install cabal 3.16.1.0 || (cat "$HOME"/.ghcup/logs/*.* && false) + echo "CABAL=$HOME/.ghcup/bin/cabal-3.16.1.0 -vnormal+nowrap" >> "$GITHUB_ENV" - name: Install GHC (GHCup) if: matrix.setup-method == 'ghcup' run: | @@ -138,9 +138,9 @@ jobs: repository hackage.haskell.org url: http://hackage.haskell.org/ EOF + if [ $((HCNUMVER >= 90800)) -ne 0 ] ; then echo "semaphore: True" >> $CABAL_CONFIG ; fi cat >> $CABAL_CONFIG <> cabal.project echo "package hpqtypes" >> cabal.project echo " ghc-options: -Werror=incomplete-patterns -Werror=incomplete-uni-patterns" >> cabal.project + if [ $((HCNUMVER < 90800)) -ne 0 ] ; then echo "package hpqtypes" >> cabal.project ; fi + if [ $((HCNUMVER < 90800)) -ne 0 ] ; then echo " ghc-options: -j4" >> cabal.project ; fi cat >> cabal.project < m -> [m] -> m mintercalate m = mconcat . L.intersperse m diff --git a/src/Database/PostgreSQL/PQTypes/Enum.hs b/src/Database/PostgreSQL/PQTypes/Enum.hs index a4d8f0d..3c4faf7 100644 --- a/src/Database/PostgreSQL/PQTypes/Enum.hs +++ b/src/Database/PostgreSQL/PQTypes/Enum.hs @@ -23,7 +23,7 @@ import Database.PostgreSQL.PQTypes.ToSQL -- | Encoding of an enum @a@ as a value of a base type @base@. -- --- Used by 'SQLEnum' and 'SQLEnumAsText' to derive SQL instances. +-- Used by t'SQLEnum' and t'SQLEnumAsText' to derive SQL instances. class (Ord base, Bounded a, Enum a) => EnumEncodingAs base a | a -> base where -- | Encode @a@ as the base type. encodeEnumAs :: a -> base @@ -103,9 +103,10 @@ instance ---------------------------------------- --- | A variant of 'SQLEnum' for enums encoded as text, in particular as values --- of actual PostgreSQL enum types ('SQLEnum' can't be used, because decoding --- requires an 'Enum' instance of the base type, which 'Text' doesn't have). +-- | A variant of t'SQLEnum' for enums encoded as text, in particular as values +-- of actual PostgreSQL enum types. t'SQLEnum' can't be used for them, because +-- decoding requires an 'Enum' instance of the base type, which 'Text' doesn't +-- have. -- -- Encoded values are sent with their type unspecified, so that the server -- infers it from the context, which makes them usable directly against both @@ -120,10 +121,10 @@ instance -- @... = ANY($1::my_enum_type[])@ (the cast is a genuine conversion, since -- the parameter is a @text[]@ value). -- --- Note that decoding is different from @'SQLEnum' a@ with an +-- Note that decoding is different from t'SQLEnum' @a@ with an -- @'EnumEncodingAs' 'Text' a@ instance: values are decoded with 'decodeEnum', -- which accepts both text and PostgreSQL enum types, and errors are reported --- as 'InvalidValue' with the list of valid labels, not 'RangeError'. +-- as t'InvalidValue' with the list of valid labels, not t'RangeError'. -- -- >>> :{ -- data Person = Alfred | Bertrand | Charles diff --git a/src/Database/PostgreSQL/PQTypes/Fold.hs b/src/Database/PostgreSQL/PQTypes/Fold.hs index 2f00602..f6a052c 100644 --- a/src/Database/PostgreSQL/PQTypes/Fold.hs +++ b/src/Database/PostgreSQL/PQTypes/Fold.hs @@ -18,7 +18,7 @@ import Database.PostgreSQL.PQTypes.Internal.Error import Database.PostgreSQL.PQTypes.Internal.QueryResult import Database.PostgreSQL.PQTypes.Utils --- | Get current 'QueryResult' or throw an exception if there isn't one. +-- | Get current t'QueryResult' or throw an exception if there isn't one. queryResult :: (HasCallStack, MonadDB m, MonadThrow m) => m QueryResult @@ -63,7 +63,11 @@ fetchMany :: (HasCallStack, MonadDB m) => RowDecoder a -> m [a] fetchMany dec = withFrozenCallStack $ foldrDB dec (\a acc -> pure $ a : acc) [] -- | Specialization of 'foldlDB' that fetches one or zero rows. If --- more rows are delivered, 'AffectedRowsMismatch' exception is thrown. +-- more rows are delivered, t'AffectedRowsMismatch' exception is thrown. +-- +-- Note that the number of rows is checked before any of them is decoded, so +-- a result of the wrong size is reported as such even if its rows don't +-- match the decoder either. fetchMaybe :: (HasCallStack, MonadDB m, MonadThrow m) => RowDecoder a @@ -71,26 +75,33 @@ fetchMaybe fetchMaybe dec = withFrozenCallStack $ do getQueryResult >>= \case Nothing -> pure Nothing - Just qr -> foldlImpl dec (go qr) Nothing qr - where - go _ Nothing a = pure $ Just a - go qr (Just _) _ = - throwDB - AffectedRowsMismatch - { rowsExpected = [(0, 1)] - , rowsDelivered = ntuples qr - } + Just qr -> case ntuples qr of + 0 -> pure Nothing + 1 -> foldlImpl dec (\_ a -> pure $ Just a) Nothing qr + rows -> + throwDB + AffectedRowsMismatch + { rowsExpected = [(0, 1)] + , rowsDelivered = rows + } --- | Specialization of 'fetchMaybe' that fetches exactly one row. If --- no row is delivered, 'AffectedRowsMismatch' exception is thrown. +-- | Specialization of 'foldlDB' that fetches exactly one row. If no row or +-- more rows are delivered, t'AffectedRowsMismatch' exception is thrown. +-- +-- Note that the number of rows is checked before any of them is decoded, so +-- a result of the wrong size is reported as such even if its rows don't +-- match the decoder either. fetchOne :: (HasCallStack, MonadDB m, MonadThrow m) => RowDecoder a -> m a fetchOne dec = withFrozenCallStack $ do - ma <- fetchMaybe dec - case ma of - Just a -> pure a - Nothing -> + getQueryResult >>= \case + Nothing -> throwMismatch 0 + Just qr -> case ntuples qr of + 1 -> foldlImpl dec (\_ a -> pure a) (error "unreachable") qr + rows -> throwMismatch rows + where + throwMismatch rows = throwDB AffectedRowsMismatch { rowsExpected = [(1, 1)] - , rowsDelivered = 0 + , rowsDelivered = rows } diff --git a/src/Database/PostgreSQL/PQTypes/Format.hs b/src/Database/PostgreSQL/PQTypes/Format.hs index fa7d8ce..9412dab 100644 --- a/src/Database/PostgreSQL/PQTypes/Format.hs +++ b/src/Database/PostgreSQL/PQTypes/Format.hs @@ -23,6 +23,18 @@ import Database.PostgreSQL.PQTypes.Range (Range) -- | Methods in this class are supposed to be used with the -- @TypeApplications@ extension. +-- +-- /Warning:/ the OIDs belong to the type rather than to any of its values, so +-- they don't survive a coercion. If an instance gives a type different OIDs +-- than the one it wraps, 'Database.PostgreSQL.PQTypes.ToSQL.ToSQL' and +-- 'Database.PostgreSQL.PQTypes.FromSQL.FromSQL' cannot be derived from it with +-- @GeneralizedNewtypeDeriving@ (nor @deriving via@ the wrapped type, which +-- amounts to the same thing for a newtype): the derived instances keep the +-- OIDs of the wrapped type, so decoding fails with +-- 'Database.PostgreSQL.PQTypes.Internal.Error.TypeMismatch' and arrays +-- are rejected by the server for having the wrong element type. Write the +-- instances out instead. Deriving them is only safe when the OIDs match, +-- which requires deriving this class along with them. class PQFormat a where -- | OID of the PostgreSQL type corresponding to @a@. pqOid :: Oid diff --git a/src/Database/PostgreSQL/PQTypes/FromSQL.hs b/src/Database/PostgreSQL/PQTypes/FromSQL.hs index 8c70390..cae1239 100644 --- a/src/Database/PostgreSQL/PQTypes/FromSQL.hs +++ b/src/Database/PostgreSQL/PQTypes/FromSQL.hs @@ -162,6 +162,30 @@ instance FromSQL Word32 where instance FromSQL Word64 where fromSQL = decodeScalar D.int +-- 'Int' and 'Word' can be sent (see their 'ToSQL' instances) but not +-- fetched. The instances below exist only to say so: without them the error +-- is the unhelpful \"no instance\" one, which reads like an oversight. + +instance + TypeError + ( Text "Int cannot be decoded, as its size is architecture-dependent: a value" + :$$: Text "that fits where it was stored need not fit where it is fetched." + :$$: Text "Decode the int8 as Int64 and narrow it explicitly." + ) + => FromSQL Int + where + fromSQL = error "unreachable" + +instance + TypeError + ( Text "Word cannot be decoded, as its size is architecture-dependent: a value" + :$$: Text "that fits where it was stored need not fit where it is fetched." + :$$: Text "Decode the int8 as Word64 and narrow it explicitly." + ) + => FromSQL Word + where + fromSQL = error "unreachable" + instance FromSQL Integer where fromSQL = decodeScalar . (`D.refine` D.numeric) $ \n -> case floatingOrInteger @Double n of diff --git a/src/Database/PostgreSQL/PQTypes/Internal/Connection.hs b/src/Database/PostgreSQL/PQTypes/Internal/Connection.hs index 4a059ab..1168b47 100644 --- a/src/Database/PostgreSQL/PQTypes/Internal/Connection.hs +++ b/src/Database/PostgreSQL/PQTypes/Internal/Connection.hs @@ -152,7 +152,7 @@ newtype ConnectionSource (cs :: [(Type -> Type) -> Constraint]) = ConnectionSour } -- | Default connection supplier. It establishes new database connection each --- time 'withConnection' is called. +-- time 'Database.PostgreSQL.PQTypes.Class.withConnection' is called. simpleSource :: ConnectionSettings -> ConnectionSource [MonadBase IO, MonadMask] @@ -192,7 +192,7 @@ poolSource cs mkPoolConfig = do -- | Low-level function for connecting to the database. Useful if one wants to -- implement custom connection source. -- --- /Warning:/ the 'Connection' needs to be explicitly destroyed with +-- /Warning:/ the t'Connection' needs to be explicitly destroyed with -- 'disconnect', otherwise there will be a resource leak. connect :: ConnectionSettings -> IO Connection connect ConnectionSettings {..} = mask $ \unmask -> do @@ -352,7 +352,7 @@ runPreparedQueryIO conn@Connection {..} (QueryName queryName) sql = do -- results, so that it can be used to run queries again afterwards. -- -- Any synchronous exception thrown during execution is wrapped in --- 'DBException' with the query attached as context. +-- t'DBException' with the query attached as context. runQueryImpl :: (HasCallStack, IsSQL sql) => Connection diff --git a/src/Database/PostgreSQL/PQTypes/Internal/Decoding.hs b/src/Database/PostgreSQL/PQTypes/Internal/Decoding.hs index 7870852..b5e4fb3 100644 --- a/src/Database/PostgreSQL/PQTypes/Internal/Decoding.hs +++ b/src/Database/PostgreSQL/PQTypes/Internal/Decoding.hs @@ -22,7 +22,7 @@ -- "Data.Time" and "Data.Fixed" types instead of coercing their -- representations. -- --- * 'Value' is a newtype rather than an alias of the underlying parser, so +-- * t'Value' is a newtype rather than an alias of the underlying parser, so -- that the parser library doesn't leak into the public API of the library. -- Custom decoders are built with 'fn' and 'refine'. -- @@ -278,8 +278,8 @@ inet = do 2 -> IPv4 . toIPv4w <$> intOfSize 4 -- AF_INET6 3 -> - fmap (IPv6 . toIPv6w) $ - (,,,) <$> intOfSize 4 <*> intOfSize 4 <*> intOfSize 4 <*> intOfSize 4 + IPv6 . toIPv6w + <$> ((,,,) <$> intOfSize 4 <*> intOfSize 4 <*> intOfSize 4 <*> intOfSize 4) _ -> failure $ "Unknown address family: " <> T.pack (show family) pure (address, maskLen) diff --git a/src/Database/PostgreSQL/PQTypes/Internal/Encoding.hs b/src/Database/PostgreSQL/PQTypes/Internal/Encoding.hs index 2eea140..3c57720 100644 --- a/src/Database/PostgreSQL/PQTypes/Internal/Encoding.hs +++ b/src/Database/PostgreSQL/PQTypes/Internal/Encoding.hs @@ -27,8 +27,8 @@ -- the caller to map a Haskell type onto that. Upstream takes an -- 'IP.IPRange', which cannot carry the host bits of the address. -- --- * 'Encoding' is a newtype rather than an alias of the underlying builder, --- and 'array' takes an 'Oid' rather than a bare 'Word32', so +-- * t'Encoding' is a newtype rather than an alias of the underlying builder, +-- and 'array' takes an t'Oid' rather than a bare 'Word32', so -- that neither the builder library nor a raw OID leaks into the public -- API of the library. module Database.PostgreSQL.PQTypes.Internal.Encoding @@ -118,7 +118,7 @@ import Database.PostgreSQL.PQTypes.Range newtype Encoding = Encoding B.Builder deriving newtype (Monoid, Semigroup) --- | Render an 'Encoding' as the bytes to be sent to the server. +-- | Render an t'Encoding' as the bytes to be sent to the server. encodingBytes :: Encoding -> BS.ByteString encodingBytes (Encoding builder) = B.builderBytes builder @@ -142,7 +142,7 @@ null4 = int4_int32 (-1) -- and whether any of its elements is NULL. data Array = Array !Encoding ![Int32] !Bool --- | Turn an 'Array' into a value, given the OID of the type of its +-- | Turn an t'Array' into a value, given the OID of the type of its -- innermost elements. array :: Oid -> Array -> Encoding array elemOid (Array payload dims nulls) = diff --git a/src/Database/PostgreSQL/PQTypes/Internal/Exception.hs b/src/Database/PostgreSQL/PQTypes/Internal/Exception.hs index 2aea7ec..6bf98b9 100644 --- a/src/Database/PostgreSQL/PQTypes/Internal/Exception.hs +++ b/src/Database/PostgreSQL/PQTypes/Internal/Exception.hs @@ -28,7 +28,7 @@ deriving stock instance Show DBException -- | Rethrow supplied exception enriched with given SQL. -- --- Asynchronous exceptions and exceptions already wrapped in 'DBException' +-- Asynchronous exceptions and exceptions already wrapped in t'DBException' -- are rethrown as they are. rethrowWithContext :: (HasCallStack, IsSQL sql) diff --git a/src/Database/PostgreSQL/PQTypes/Internal/Monad.hs b/src/Database/PostgreSQL/PQTypes/Internal/Monad.hs index db59c2d..09aaf45 100644 --- a/src/Database/PostgreSQL/PQTypes/Internal/Monad.hs +++ b/src/Database/PostgreSQL/PQTypes/Internal/Monad.hs @@ -1,6 +1,7 @@ module Database.PostgreSQL.PQTypes.Internal.Monad ( DBT_ (..) , DBT + , InnerDBT , runDBT , mapDBT ) where diff --git a/src/Database/PostgreSQL/PQTypes/Internal/Oid.hs b/src/Database/PostgreSQL/PQTypes/Internal/Oid.hs index 3198575..fcac30a 100644 --- a/src/Database/PostgreSQL/PQTypes/Internal/Oid.hs +++ b/src/Database/PostgreSQL/PQTypes/Internal/Oid.hs @@ -1,4 +1,4 @@ --- | The 'Oid' type along with OIDs of built-in PostgreSQL types. +-- | The t'Oid' type along with OIDs of built-in PostgreSQL types. module Database.PostgreSQL.PQTypes.Internal.Oid ( Oid (..) , unOid @@ -239,7 +239,7 @@ firstNormalOid = Oid 16384 unspecifiedOid :: Oid unspecifiedOid = Oid 0 --- | The name of the PostgreSQL type associated with a given 'Oid' of one of +-- | The name of the PostgreSQL type associated with a given t'Oid' of one of -- the built-in types defined in this module. pgTypeName :: Oid -> String pgTypeName oid diff --git a/src/Database/PostgreSQL/PQTypes/Internal/QueryResult.hs b/src/Database/PostgreSQL/PQTypes/Internal/QueryResult.hs index cdbb74d..bf04e14 100644 --- a/src/Database/PostgreSQL/PQTypes/Internal/QueryResult.hs +++ b/src/Database/PostgreSQL/PQTypes/Internal/QueryResult.hs @@ -81,9 +81,9 @@ foldlImpl dec f iacc qr = worker iacc 0 -- -- Note that the result needs to be forced right when the fold function is -- applied to it (the fold function itself is not obligated to force it, --- consider e.g. 'fetchMany'), otherwise unforced thunks retaining the whole --- query result would escape the fold and decoding errors would be deferred --- to wherever they're forced. +-- consider e.g. 'Database.PostgreSQL.PQTypes.Fold.fetchMany'), otherwise +-- unforced thunks retaining the whole query result would escape the fold and +-- decoding errors would be deferred to wherever they're forced. decodeRow :: HasCallStack => RowDecoder a -> QueryResult -> CInt -> a decodeRow dec QueryResult {qrSQL = SomeSQL ctx, ..} i = unsafeDupablePerformIO . withForeignPtr qrResult $ \res -> diff --git a/src/Database/PostgreSQL/PQTypes/Internal/RowDecoder.hs b/src/Database/PostgreSQL/PQTypes/Internal/RowDecoder.hs index ba97bd5..a9309b7 100644 --- a/src/Database/PostgreSQL/PQTypes/Internal/RowDecoder.hs +++ b/src/Database/PostgreSQL/PQTypes/Internal/RowDecoder.hs @@ -54,7 +54,7 @@ newtype RowDecoder a = RowDecoder (DecoderState -> IO (a, DecoderState)) ) via StateT DecoderState IO --- | Exceptions thrown with 'throwM' are wrapped in 'ConversionError' carrying +-- | Exceptions thrown with 'throwM' are wrapped in t'ConversionError' carrying -- the position of the most recently consumed field, like the errors thrown by -- the decoders of the fields themselves. This makes it the way to report errors -- detected after a field was decoded, e.g. by validation of the decoded value. @@ -83,7 +83,7 @@ instance MonadThrow RowDecoder where instance MonadFail RowDecoder where fail = throwM . HPQTypesError --- | Internal helper for defining decoders in terms of 'StateT'. +-- | Internal helper for defining decoders in terms of t'StateT'. mkDecoder :: StateT DecoderState IO a -> RowDecoder a mkDecoder = RowDecoder . runStateT @@ -106,8 +106,8 @@ data FieldSource = FieldSource } -- | A field source backed by a function that produces fields. Note that --- the strictness annotations of 'FieldSource' force only the function --- closures, so a 'Field' is only constructed when a decoder asks for it. +-- the strictness annotations of t'FieldSource' force only the function +-- closures, so a t'Field' is only constructed when a decoder asks for it. mkFieldSource :: Int -> Int -> (Int -> Field) -> FieldSource mkFieldSource srcRow n mkField = FieldSource @@ -191,7 +191,7 @@ runDecoderWith (RowDecoder dec) fs = do -- Note that on NULL exactly one field is consumed, hence the given decoder -- needs to consume exactly one field as well, which is the case for all -- decoders defined in this module. This is enforced: a decoder consuming a --- different number of fields results in 'RowLengthMismatch'. +-- different number of fields results in t'RowLengthMismatch'. decodeNullable :: RowDecoder a -> RowDecoder (Maybe a) decodeNullable (RowDecoder inner) = mkDecoder $ do DecoderState fs idx <- get @@ -296,7 +296,7 @@ decodeComposite inner = withNextField $ \srcRow -> \case -- array as a vector of vectors. -- -- Errors from element decoders carry the position of the offending element --- as the column of their 'ConversionError'. +-- as the column of their t'ConversionError'. decodeArray :: forall a. RowDecoder a -> RowDecoder (V.Vector a) decodeArray (RowDecoder inner) = withNextField $ \srcRow -> \case Field _ Nothing -> unexpectedNULL @@ -349,7 +349,7 @@ decodeArray (RowDecoder inner) = withNextField $ \srcRow -> \case -- Helpers -- | Consume the next field and process it. Any synchronous exception thrown --- while doing so is wrapped in 'ConversionError' with the position of the +-- while doing so is wrapped in t'ConversionError' with the position of the -- field attached. withNextField :: (Int -> Field -> IO a) -> RowDecoder a withNextField process = mkDecoder $ do diff --git a/src/Database/PostgreSQL/PQTypes/Internal/State.hs b/src/Database/PostgreSQL/PQTypes/Internal/State.hs index 102cfc2..a00a4ba 100644 --- a/src/Database/PostgreSQL/PQTypes/Internal/State.hs +++ b/src/Database/PostgreSQL/PQTypes/Internal/State.hs @@ -236,13 +236,30 @@ withConnection ConnectionData {..} action = do (takeConnection cdConnectionSource) (putConnection cdConnectionSource) ( \(conn, _cdata) -> - bracket_ - (liftBase . uninterruptibleMask_ $ runQueryIO @SQL conn "BEGIN READ ONLY") - (liftBase . uninterruptibleMask_ $ runQueryIO @SQL conn "ROLLBACK") - (action conn) + fmap fst + . generalBracket + (autoQuery conn "BEGIN READ ONLY") + ( \() -> \case + ExitCaseSuccess {} -> autoQuery conn "ROLLBACK" + -- If the action didn't succeed, propagate its original + -- exception: a failure of the ROLLBACK would otherwise + -- mask it. This is not hypothetical, as the action can + -- leave the connection in a state in which no query can + -- run, e.g. a copy mode entered by a COPY statement. + -- The connection is returned to its source as failed + -- either way, so it gets disposed of. + _ -> autoQuery conn "ROLLBACK" `catchSync` \_ -> pure () + ) + $ \() -> action conn ) Acquired _ _ conn _ -> action conn Finalized -> error "finalized connection" + where + -- The queries delimiting the automatic transaction are uninterruptible, as + -- interrupting one of them would leave the transaction status of the + -- connection unknown. + autoQuery conn sql = + liftBase . uninterruptibleMask_ . void $ runQueryIO @SQL conn sql initConnectionData :: (MonadBase IO m, MonadMask m) @@ -280,7 +297,7 @@ data DBState m = DBState , dbConnectionStats :: !ConnectionStats -- ^ Statistics associated with the session. , dbRestartPredicate :: !(Maybe RestartPredicate) - -- ^ Restart predicate from initial 'TransactionSettings'. + -- ^ Restart predicate from initial t'TransactionSettings'. , dbLastQuery :: !(BackendPid, SomeSQL) -- ^ Last SQL query that was executed along with ID of the server process -- attached to the session that executed it. diff --git a/src/Database/PostgreSQL/PQTypes/Interval.hs b/src/Database/PostgreSQL/PQTypes/Interval.hs index bfa8875..5d51553 100644 --- a/src/Database/PostgreSQL/PQTypes/Interval.hs +++ b/src/Database/PostgreSQL/PQTypes/Interval.hs @@ -1,5 +1,6 @@ module Database.PostgreSQL.PQTypes.Interval ( Interval + , sameComponents , iyears , imonths , idays @@ -63,6 +64,21 @@ instance Eq Interval where instance Ord Interval where compare a b = compare (intEstimate a) (intEstimate b) +-- | Check that two intervals consist of the same components, as opposed to +-- merely being equal. +-- +-- 'Eq' compares intervals the way the server's comparison operators do, so +-- it holds for values that the server nonetheless treats differently in +-- arithmetic: @'imonths' 1 == 'idays' 30@, yet adding the former to +-- @2024-01-31@ gives @2024-02-29@ and the latter @2024-03-01@. Use this to +-- tell such values apart, e.g. to check that a roundtrip through the +-- database preserved an interval exactly. +sameComponents :: Interval -> Interval -> Bool +sameComponents a b = + intMicroseconds a == intMicroseconds b + && intDays a == intDays b + && intMonths a == intMonths b + -- | Shows the components of the wire format (the cached estimate is -- omitted). instance Show Interval where diff --git a/src/Database/PostgreSQL/PQTypes/JSON.hs b/src/Database/PostgreSQL/PQTypes/JSON.hs index e117b5e..e1b8582 100644 --- a/src/Database/PostgreSQL/PQTypes/JSON.hs +++ b/src/Database/PostgreSQL/PQTypes/JSON.hs @@ -18,7 +18,7 @@ import Database.PostgreSQL.PQTypes.Internal.Encoding qualified as PE import Database.PostgreSQL.PQTypes.Internal.Oid import Database.PostgreSQL.PQTypes.ToSQL --- | Wrapper for (de)serializing underlying type as 'json'. +-- | Wrapper for (de)serializing underlying type as @json@. newtype JSON json = JSON {unJSON :: json} deriving stock (Eq, Functor, Ord, Show) @@ -46,7 +46,7 @@ instance ToSQL (JSON Value) where ---------------------------------------- --- | Wrapper for (de)serializing underlying type as 'jsonb'. +-- | Wrapper for (de)serializing underlying type as @jsonb@. newtype JSONB jsonb = JSONB {unJSONB :: jsonb} deriving stock (Eq, Functor, Ord, Show) @@ -76,7 +76,7 @@ instance ToSQL (JSONB Value) where -- | Helper for defining a 'FromSQL' instance for a type with a 'FromJSON' -- instance. Inspects 'pqOid' of the type to determine whether it's --- serialized as 'json' or 'jsonb' (the binary wire formats of the two +-- serialized as @json@ or @jsonb@ (the binary wire formats of the two -- differ). -- -- @since 1.9.1.0 @@ -91,7 +91,7 @@ aesonFromSQL = decodeScalar $ parser decodeValue -- | Helper for defining a 'ToSQL' instance for a type with a 'ToJSON' -- instance. Inspects 'pqOid' of the type to determine whether it's --- serialized as 'json' or 'jsonb' (the binary wire formats of the two +-- serialized as @json@ or @jsonb@ (the binary wire formats of the two -- differ). -- -- @since 1.9.1.0 diff --git a/src/Database/PostgreSQL/PQTypes/Range.hs b/src/Database/PostgreSQL/PQTypes/Range.hs index bab6a75..61389c5 100644 --- a/src/Database/PostgreSQL/PQTypes/Range.hs +++ b/src/Database/PostgreSQL/PQTypes/Range.hs @@ -9,13 +9,13 @@ module Database.PostgreSQL.PQTypes.Range -- -- Note that the server normalizes ranges over discrete types, so a fetched -- value doesn't necessarily have the bounds it was created with, e.g. --- @int4range(1, 5, \'(]\')@ comes back as @'Range' ('Incl' 2) ('Excl' 6)@. +-- @int4range(1, 5, \'(]\')@ comes back as @v'Range' ('Incl' 2) ('Excl' 6)@. data Range a = Empty | Range !(Bound a) !(Bound a) deriving stock (Eq, Functor, Ord, Show) --- | One end of a 'Range': inclusive, exclusive or unbounded. +-- | One end of a t'Range': inclusive, exclusive or unbounded. data Bound a = Incl !a | Excl !a diff --git a/src/Database/PostgreSQL/PQTypes/SQL.hs b/src/Database/PostgreSQL/PQTypes/SQL.hs index 8a344b4..8ad69a1 100644 --- a/src/Database/PostgreSQL/PQTypes/SQL.hs +++ b/src/Database/PostgreSQL/PQTypes/SQL.hs @@ -34,7 +34,7 @@ unSQL (SQL chunks) = F.toList chunks ---------------------------------------- --- | Construct 'SQL' from 'String'. +-- | Construct t'SQL' from 'String'. instance IsString SQL where fromString = mkSQL . T.pack @@ -64,15 +64,15 @@ instance Show SQL where ---------------------------------------- --- | Convert a 'Text' SQL string to the 'SQL' type. +-- | Convert a 'T.Text' SQL string to the t'SQL' type. mkSQL :: T.Text -> SQL mkSQL = SQL . S.singleton . SqlString --- | Embed parameter value inside 'SQL'. +-- | Embed parameter value inside t'SQL'. sqlParam :: (Show a, ToSQL a) => a -> SQL sqlParam = SQL . S.singleton . SqlParam --- | Embed parameter value inside existing 'SQL'. Example: +-- | Embed parameter value inside existing t'SQL'. Example: -- -- > f :: Int32 -> String -> SQL -- > f idx name = "SELECT foo FROM bar WHERE id =" idx <+> "AND name =" name @@ -83,7 +83,7 @@ infixr 7 ---------------------------------------- --- | Test whether an 'SQL' is empty. +-- | Test whether an t'SQL' is empty. isSqlEmpty :: SQL -> Bool isSqlEmpty (SQL chunks) = getAll $ F.foldMap (All . cmp) chunks where diff --git a/src/Database/PostgreSQL/PQTypes/SQL/Class.hs b/src/Database/PostgreSQL/PQTypes/SQL/Class.hs index a6cc7cc..6fa57c7 100644 --- a/src/Database/PostgreSQL/PQTypes/SQL/Class.hs +++ b/src/Database/PostgreSQL/PQTypes/SQL/Class.hs @@ -14,7 +14,7 @@ data SomeSQL = forall sql. IsSQL sql => SomeSQL sql -- | Class representing \"SQLness\" of a given type. class Show sql => IsSQL sql where - -- | Convert 'sql' to a C string containing the query (with parameters + -- | Convert @sql@ to a C string containing the query (with parameters -- represented by placeholders @$1@, @$2@, ...) along with the list of these -- parameters and pass them to the supplied continuation (usually for -- execution). @@ -25,7 +25,7 @@ class Show sql => IsSQL sql where ---------------------------------------- --- | Convert unsafely from 'String' to 'sql' (Note: reckless usage +-- | Convert unsafely from 'String' to @sql@ (Note: reckless usage -- of this function may introduce security vulnerabilities such -- as proneness to SQL injection attacks). unsafeSQL :: (IsSQL sql, IsString sql) => String -> sql diff --git a/src/Database/PostgreSQL/PQTypes/SQL/Raw.hs b/src/Database/PostgreSQL/PQTypes/SQL/Raw.hs index d167cf6..470503c 100644 --- a/src/Database/PostgreSQL/PQTypes/SQL/Raw.hs +++ b/src/Database/PostgreSQL/PQTypes/SQL/Raw.hs @@ -15,8 +15,8 @@ import Database.PostgreSQL.PQTypes.ToRow -- | Form of SQL query which is very close to the libpq representation, i.e. -- the query with placeholders @$1@, @$2@, ... along with a tuple of their --- values. Note that, in particular, 'RawSQL' () is isomorphic (modulo bottom) --- to 'Text'. +-- values. Note that, in particular, t'RawSQL' () is isomorphic (modulo bottom) +-- to 'T.Text'. data RawSQL row = RawSQL !T.Text !row deriving stock (Eq, Ord, Show) @@ -25,7 +25,7 @@ instance (Show row, ToRow row) => IsSQL (RawSQL row) where BS.useAsCString (T.encodeUtf8 query) $ \cquery -> execute cquery (toRow row) --- | Construct 'RawSQL' () from 'String'. +-- | Construct t'RawSQL' () from 'String'. instance IsString (RawSQL ()) where fromString = flip RawSQL () . T.pack @@ -38,10 +38,10 @@ instance Monoid (RawSQL ()) where mappend = (SG.<>) mconcat xs = RawSQL (mconcat $ fmap (\(RawSQL s ()) -> s) xs) () --- | Construct 'RawSQL' from 'Text' and a tuple of parameters. +-- | Construct t'RawSQL' from 'T.Text' and a tuple of parameters. rawSQL :: (Show row, ToRow row) => T.Text -> row -> RawSQL row rawSQL = RawSQL --- | Take query string out of 'RawSQL' (). +-- | Take query string out of t'RawSQL' (). unRawSQL :: RawSQL () -> T.Text unRawSQL (RawSQL s _) = s diff --git a/src/Database/PostgreSQL/PQTypes/ToSQL.hs b/src/Database/PostgreSQL/PQTypes/ToSQL.hs index 54e970c..63642b1 100644 --- a/src/Database/PostgreSQL/PQTypes/ToSQL.hs +++ b/src/Database/PostgreSQL/PQTypes/ToSQL.hs @@ -93,7 +93,7 @@ class PQFormat a => ToSQL a where -- -- Only the first branch is inspected, so as in the second example the -- result describes the other branches only if the value is rectangular; - -- 'raggedDims' uses it to check exactly that. + -- @raggedDims@ uses it to check exactly that. arrayElemDims :: Maybe (a -> [Int]) arrayElemDims = Nothing diff --git a/src/Database/PostgreSQL/PQTypes/Transaction/Settings.hs b/src/Database/PostgreSQL/PQTypes/Transaction/Settings.hs index 7172034..1fdace0 100644 --- a/src/Database/PostgreSQL/PQTypes/Transaction/Settings.hs +++ b/src/Database/PostgreSQL/PQTypes/Transaction/Settings.hs @@ -20,8 +20,10 @@ instance Show RestartPredicate where data TransactionSettings = TransactionSettings { tsRestartPredicate :: !(Maybe RestartPredicate) - -- ^ Defines behavior of 'withTransaction' in case exceptions thrown within - -- supplied monadic action are not caught and reach its body. + -- ^ Defines behavior of + -- 'Database.PostgreSQL.PQTypes.Transaction.withTransaction' in case + -- exceptions thrown within supplied monadic action are not caught and reach + -- its body. -- -- If set to 'Nothing', exceptions will be propagated as usual. -- diff --git a/src/Database/PostgreSQL/PQTypes/Utils.hs b/src/Database/PostgreSQL/PQTypes/Utils.hs index 638f68e..2380e9f 100644 --- a/src/Database/PostgreSQL/PQTypes/Utils.hs +++ b/src/Database/PostgreSQL/PQTypes/Utils.hs @@ -31,8 +31,8 @@ import Database.PostgreSQL.PQTypes.SQL import Database.PostgreSQL.PQTypes.SQL.Class import Database.PostgreSQL.PQTypes.SQL.Raw --- | When given 'DBException', throw it immediately. Otherwise --- wrap it in 'DBException' with the current query context first. +-- | When given t'DBException', throw it immediately. Otherwise +-- wrap it in t'DBException' with the current query context first. throwDB :: (HasCallStack, Exception e, MonadDB m, MonadThrow m) => e -> m a throwDB e = case fromException $ toException e of Just (dbe :: DBException) -> throwM dbe @@ -60,7 +60,7 @@ runQuery_ = withFrozenCallStack $ void . runQuery -- | Specialization of 'runQuery' that checks whether affected/returned -- number of rows is in range [0, 1] and returns appropriate 'Bool' value. --- Otherwise, 'AffectedRowsMismatch' exception is thrown. +-- Otherwise, t'AffectedRowsMismatch' exception is thrown. runQuery01 :: (HasCallStack, IsSQL sql, MonadDB m, MonadThrow m) => sql -> m Bool runQuery01 sql = withFrozenCallStack $ do n <- runQuery sql @@ -102,7 +102,7 @@ runPreparedQuery_ name = withFrozenCallStack $ void . runPreparedQuery name -- | Specialization of 'runPreparedQuery' that checks whether affected/returned -- number of rows is in range [0, 1] and returns appropriate 'Bool' value. --- Otherwise, 'AffectedRowsMismatch' exception is thrown. +-- Otherwise, t'AffectedRowsMismatch' exception is thrown. runPreparedQuery01 :: (HasCallStack, IsSQL sql, MonadDB m, MonadThrow m) => QueryName diff --git a/src/Database/PostgreSQL/PQTypes/XML.hs b/src/Database/PostgreSQL/PQTypes/XML.hs index d7025d7..96bac02 100644 --- a/src/Database/PostgreSQL/PQTypes/XML.hs +++ b/src/Database/PostgreSQL/PQTypes/XML.hs @@ -12,7 +12,7 @@ import Database.PostgreSQL.PQTypes.Internal.Oid import Database.PostgreSQL.PQTypes.ToSQL -- | Representation of SQL XML types as 'Text'. Users of hpqtypes may --- want to add conversion instances for their favorite XML type around 'XML'. +-- want to add conversion instances for their favorite XML type around t'XML'. newtype XML = XML {unXML :: Text} deriving stock (Eq, Ord, Read, Show) diff --git a/test/Test/Connection.hs b/test/Test/Connection.hs index 457e38e..c1e3b19 100644 --- a/test/Test/Connection.hs +++ b/test/Test/Connection.hs @@ -202,21 +202,32 @@ finalizationInterruptionTest td = testCase Nothing -> assertFailure "Forked thread deadlocked on the connection state MVar" copyNotSupportedTest :: TestData -> TestTree -copyNotSupportedTest td = testCase "COPY statements fail with an error" $ do - -- The failed COPY statement leaves the connection in a copy mode, making - -- it unusable for further queries, so run it on a dedicated connection. - eres <- try . runDBT copyCs defaultTransactionSettings $ do - runSQL_ "COPY (SELECT 1) TO STDOUT" - case eres of - Left DBException {dbeError = err} -> case fromException $ toException err of - Just (HPQTypesError msg) -> - assertBool ("Error message mentions COPY: " ++ msg) $ - "COPY" `T.isInfixOf` T.pack msg - Nothing -> assertFailure $ "Unexpected error: " ++ show err - Right () -> assertFailure "COPY statement didn't fail" +copyNotSupportedTest td = + testGroup + "COPY statements fail with an error" + [ check "in the acquire and hold mode" defaultTransactionSettings + , -- In the on demand mode the query runs in an automatic transaction whose + -- ROLLBACK fails as well, as the connection is in a copy mode. Check that + -- it doesn't mask the error of the COPY statement itself. + check "in the on demand mode" $ + defaultTransactionSettings {tsConnectionAcquisitionMode = AcquireOnDemand} + ] where ConnectionSource copyCs = simpleSource $ snd td + -- The failed COPY statement leaves the connection in a copy mode, making + -- it unusable for further queries, so run it on a dedicated connection. + check name ts = testCase name $ do + eres <- try . runDBT copyCs ts $ do + runSQL_ "COPY (SELECT 1) TO STDOUT" + case eres of + Left DBException {dbeError = err} -> case fromException $ toException err of + Just (HPQTypesError msg) -> + assertBool ("Error message mentions COPY: " ++ msg) $ + "COPY" `T.isInfixOf` T.pack msg + Nothing -> assertFailure $ "Unexpected error: " ++ show err + Right () -> assertFailure "COPY statement didn't fail" + onDemandTest :: TestData -> TestTree onDemandTest td = testCase "OnDemand mode works" . runTestEnv td ts $ do runSQL_ "SELECT a FROM test1_" diff --git a/test/Test/QuickCheck/Arbitrary/Instances.hs b/test/Test/QuickCheck/Arbitrary/Instances.hs index 82d725b..d99978a 100644 --- a/test/Test/QuickCheck/Arbitrary/Instances.hs +++ b/test/Test/QuickCheck/Arbitrary/Instances.hs @@ -82,6 +82,16 @@ instance Arbitrary Interval where , imicroseconds <$> choose (-172800000000, 172800000000) -- 2 days ] +-- | 'Interval' with structural equality. 'Eq' of 'Interval' compares the way +-- the server's operators do, so a roundtrip test using it can't see a change +-- of components that preserves the estimate (e.g. days folded into +-- microseconds, which the server treats differently in arithmetic). +newtype Interval0 = Interval0 Interval + deriving newtype (Arbitrary, FromSQL, PQFormat, Show, ToSQL) + +instance Eq Interval0 where + Interval0 a == Interval0 b = sameComponents a b + instance Arbitrary json => Arbitrary (JSON json) where arbitrary = JSON <$> arbitrary diff --git a/test/Test/RowDecoder.hs b/test/Test/RowDecoder.hs index 0ee5a00..b92650b 100644 --- a/test/Test/RowDecoder.hs +++ b/test/Test/RowDecoder.hs @@ -55,8 +55,31 @@ decoderErrorTest td = , tooFewColumnsConsumed , tooManyColumnsWanted , multiFieldNullableRejected + , rowCountCheckedFirst ] where + -- The number of rows is checked before any of them is decoded, so a + -- result of the wrong size is reported as such rather than as whatever + -- error decoding its first rows happens to produce. + rowCountCheckedFirst = testCase "Row count is checked before decoding" $ do + runTestEnv td defaultTransactionSettings $ do + runSQL_ "SELECT 1::int4 UNION ALL SELECT 2::int4" + expectError @AffectedRowsMismatch "two rows for fetchMaybe" (check [(0, 1)] 2) $ + fetchMaybe (fromSQL @Int32) + -- The rows don't match the decoder either, which used to be what got + -- reported. + expectError @AffectedRowsMismatch "two undecodable rows" (check [(0, 1)] 2) $ + fetchMaybe (fromSQL @Int64) + expectError @AffectedRowsMismatch "two rows for fetchOne" (check [(1, 1)] 2) $ + fetchOne (fromSQL @Int64) + -- A single row of the wrong type still reports the decoding error. + runSQL_ "SELECT 1::int4" + expectError @TypeMismatch "one row of the wrong type" (\_ -> pure ()) $ + fetchMaybe (fromSQL @Int64) + where + check expected delivered AffectedRowsMismatch {..} = do + assertEqual "Expected rows are correct" expected rowsExpected + assertEqual "Delivered rows are correct" delivered rowsDelivered typeMismatch = testCase "Type mismatch is detected" $ do runTestEnv td defaultTransactionSettings $ do runSQL_ "SELECT 1::int4" diff --git a/test/Test/Types.hs b/test/Test/Types.hs index 2b61c4d..cc0781c 100644 --- a/test/Test/Types.hs +++ b/test/Test/Types.hs @@ -98,7 +98,7 @@ typesTests td = , putGetTest @U.UUID td 1000 , putGetTest @(JSON Value0) td 50 , putGetTest @(JSONB Value0) td 50 - , putGetTest @Interval td 50 + , putGetTest @Interval0 td 50 , putGetTest @Day td 1000000 , putGetTest @TimeOfDay td 10000 , putGetTest @LocalTime td 500000 @@ -376,9 +376,9 @@ nulInTextTest td = testCase "NUL characters in text values are rejected" Right () -> assertFailure $ "NUL character wasn't rejected (" ++ what ++ ")" --- | 'Int' and 'Word' have no 'FromSQL' instances (their size is --- architecture-dependent), so their encoding is checked by fetching the --- values back as 'Int64' and 'Word64'. +-- | 'Int' and 'Word' cannot be decoded (their 'FromSQL' instances use +-- TypeError), so their encoding is checked by fetching the values back as +-- 'Int64' and 'Word64'. intWordEncodingTest :: TestData -> TestTree intWordEncodingTest td = testCase "Int and Word parameters are encoded correctly" From 22f8201b3c489601bf712752602e780ae42c2409 Mon Sep 17 00:00:00 2001 From: Andrzej Rybczak Date: Tue, 28 Jul 2026 06:01:39 +0200 Subject: [PATCH 5/7] Add a dedicated combinator for decoding arrays of scalars How an array of a type is decoded becomes a FromSQL method, fromSQLArray (with fromSQLList backing the list instance on top of it), so that an instance can supply something faster than the default decodeArray fromSQL. Scalar types override it with decodeScalarArray, which decodes the elements with a value decoder directly instead of running a full RowDecoder per element, and checks their type once for the whole array. Errors of the elements keep reporting their position as the column of a ConversionError, the way the elements of decodeArray do. --- CHANGELOG.md | 7 +- src/Database/PostgreSQL/PQTypes/FromSQL.hs | 109 +++++++++++++----- .../PostgreSQL/PQTypes/Internal/RowDecoder.hs | 62 ++++++++++ test/Test/Array.hs | 45 ++++++++ 4 files changed, 194 insertions(+), 29 deletions(-) diff --git a/CHANGELOG.md b/CHANGELOG.md index be64766..0ee8860 100644 --- a/CHANGELOG.md +++ b/CHANGELOG.md @@ -50,7 +50,12 @@ plain `fromSQL`. Multi-dimensional arrays are represented by nesting (mixed nesting of lists and `Vector`s works too). `String` keeps corresponding to `text` and `[String]` to an array of `text`. The - `Database.PostgreSQL.PQTypes.Array` module is gone. + `Database.PostgreSQL.PQTypes.Array` module is gone. Arrays are decoded by + the `fromSQLArray` method of `FromSQL` (with `fromSQLList` backing the list + instance on top of it), which defaults to `decodeArray fromSQL` and can be + overridden with a faster decoder; scalar types override it with the + dedicated `decodeScalarArray` combinator, which decodes the elements with a + value decoder directly. * Remove `ArrayItemError`; errors of array element decoders report the position of the offending element as the column of their `ConversionError` instead. diff --git a/src/Database/PostgreSQL/PQTypes/FromSQL.hs b/src/Database/PostgreSQL/PQTypes/FromSQL.hs index cae1239..4e9970d 100644 --- a/src/Database/PostgreSQL/PQTypes/FromSQL.hs +++ b/src/Database/PostgreSQL/PQTypes/FromSQL.hs @@ -10,6 +10,7 @@ module Database.PostgreSQL.PQTypes.FromSQL , decodeEnum , decodeNullable , decodeScalar + , decodeScalarArray -- ** Generic decoding , genericDecoder @@ -69,15 +70,29 @@ class FromSQL a where -- | Decode a value from the next field of the query result. fromSQL :: RowDecoder a - -- | Decoder used by the @'FromSQL' [a]@ instance. The default decodes a - -- PostgreSQL array of @a@; the only reason for this method to exist is to - -- allow 'String' to keep decoding text (see the 'Char' instance). Use - -- 'fromSQL' at the list type instead of calling this method directly. - fromSQLList :: RowDecoder [a] - fromSQLList = V.toList <$> decodeArray fromSQL + -- | Decoder of a PostgreSQL array of @a@, used by the @'FromSQL' + -- ('V.Vector' a)@ instance and through it by the @'FromSQL' [a]@ one. The + -- default decodes the elements with 'fromSQL'; scalars override it with + -- 'decodeScalarArray', which is faster. + -- + -- /Note:/ the method exists for instances to override, not for decoders to + -- call. Decode arrays with 'fromSQL'. + fromSQLArray :: RowDecoder (V.Vector a) + fromSQLArray = decodeArray fromSQL -- Inlined so that instances in other modules (in particular ones defined -- with 'genericDecoder') specialize the element decoder instead of -- calling the generically compiled default. + {-# INLINE fromSQLArray #-} + + -- | Decoder used by the @'FromSQL' [a]@ instance. The default hands over + -- to 'fromSQLArray'; the only reason for this method to exist separately + -- is to allow 'String' to decode text instead (see the 'Char' instance). + -- + -- /Note:/ as with 'fromSQLArray', the method exists for instances to + -- override, not for decoders to call. Decode lists with 'fromSQL'. + fromSQLList :: RowDecoder [a] + fromSQLList = V.toList <$> fromSQLArray + -- See 'fromSQLArray'. {-# INLINE fromSQLList #-} -- GENERIC DECODING @@ -134,33 +149,41 @@ instance FromSQL a => FromSQL [a] where fromSQL = fromSQLList instance FromSQL a => FromSQL (V.Vector a) where - fromSQL = decodeArray fromSQL + fromSQL = fromSQLArray -- NUMERICS instance FromSQL Int16 where fromSQL = decodeScalar D.int + fromSQLArray = decodeScalarArray D.int instance FromSQL Int32 where fromSQL = decodeScalar D.int + fromSQLArray = decodeScalarArray D.int instance FromSQL Int64 where fromSQL = decodeScalar D.int + fromSQLArray = decodeScalarArray D.int instance FromSQL Float where fromSQL = decodeScalar D.float4 + fromSQLArray = decodeScalarArray D.float4 instance FromSQL Double where fromSQL = decodeScalar D.float8 + fromSQLArray = decodeScalarArray D.float8 instance FromSQL Word16 where fromSQL = decodeScalar D.int + fromSQLArray = decodeScalarArray D.int instance FromSQL Word32 where fromSQL = decodeScalar D.int + fromSQLArray = decodeScalarArray D.int instance FromSQL Word64 where fromSQL = decodeScalar D.int + fromSQLArray = decodeScalarArray D.int -- 'Int' and 'Word' can be sent (see their 'ToSQL' instances) but not -- fetched. The instances below exist only to say so: without them the error @@ -187,13 +210,18 @@ instance fromSQL = error "unreachable" instance FromSQL Integer where - fromSQL = decodeScalar . (`D.refine` D.numeric) $ \n -> - case floatingOrInteger @Double n of - Left v -> Left $ "expected an integer, got " <> showt v - Right i -> Right i + fromSQL = decodeScalar integerValue + fromSQLArray = decodeScalarArray integerValue + +integerValue :: D.Value Integer +integerValue = (`D.refine` D.numeric) $ \n -> + case floatingOrInteger @Double n of + Left v -> Left $ "expected an integer, got " <> showt v + Right i -> Right i instance FromSQL Scientific where fromSQL = decodeScalar D.numeric + fromSQLArray = decodeScalarArray D.numeric -- CHAR @@ -214,40 +242,49 @@ instance FromSQL Char where instance FromSQL Word8 where fromSQL = decodeScalar singleByte + fromSQLArray = decodeScalarArray singleByte -- VARIABLE-LENGTH CHARACTER TYPES instance FromSQL T.Text where fromSQL = decodeScalar D.text_strict + fromSQLArray = decodeScalarArray D.text_strict instance FromSQL TL.Text where fromSQL = decodeScalar D.text_lazy + fromSQLArray = decodeScalarArray D.text_lazy instance FromSQL UUID where fromSQL = decodeScalar D.uuid + fromSQLArray = decodeScalarArray D.uuid -- BYTEA instance FromSQL BS.ByteString where fromSQL = decodeScalar D.bytea_strict + fromSQLArray = decodeScalarArray D.bytea_strict instance FromSQL BSL.ByteString where fromSQL = decodeScalar D.bytea_lazy + fromSQLArray = decodeScalarArray D.bytea_lazy -- DATE instance FromSQL Day where fromSQL = decodeScalar D.date + fromSQLArray = decodeScalarArray D.date -- TIME instance FromSQL TimeOfDay where fromSQL = decodeScalar D.time_int + fromSQLArray = decodeScalarArray D.time_int -- TIMESTAMP instance FromSQL LocalTime where fromSQL = decodeScalar D.timestamp_int + fromSQLArray = decodeScalarArray D.timestamp_int -- TIMESTAMPTZ @@ -256,11 +293,13 @@ instance FromSQL LocalTime where instance FromSQL UTCTime where fromSQL = decodeScalar D.timestamptz_int + fromSQLArray = decodeScalarArray D.timestamptz_int -- BOOL instance FromSQL Bool where fromSQL = decodeScalar D.bool + fromSQLArray = decodeScalarArray D.bool -- INET @@ -270,44 +309,58 @@ instance FromSQL Bool where -- fails rather than silently dropping the netmask, in the same way that -- 'Integer' rejects a @numeric@ that isn't integral. instance FromSQL IP where - fromSQL = decodeScalar . (`D.refine` D.inet) $ \(address, maskLen) -> - let width = case address of - IPv4 {} -> 32 - IPv6 {} -> 128 - in if maskLen == width - then Right address - else - Left $ - "expected an address with a /" - <> showt width - <> " netmask, got /" - <> showt maskLen + fromSQL = decodeScalar ipValue + fromSQLArray = decodeScalarArray ipValue + +ipValue :: D.Value IP +ipValue = (`D.refine` D.inet) $ \(address, maskLen) -> + let width = case address of + IPv4 {} -> 32 + IPv6 {} -> 128 + in if maskLen == width + then Right address + else + Left $ + "expected an address with a /" + <> showt width + <> " netmask, got /" + <> showt maskLen -- | A @cidr@ value is a network address, i.e. one with no bits set to the -- right of the netmask, which is exactly what 'IPRange' represents. instance FromSQL IPRange where - fromSQL = decodeScalar $ toRange <$> D.inet - where - toRange (address, maskLen) = case address of - IPv4 addr -> IPv4Range $ makeAddrRange addr maskLen - IPv6 addr -> IPv6Range $ makeAddrRange addr maskLen + fromSQL = decodeScalar ipRangeValue + fromSQLArray = decodeScalarArray ipRangeValue + +ipRangeValue :: D.Value IPRange +ipRangeValue = toRange <$> D.inet + where + toRange (address, maskLen) = case address of + IPv4 addr -> IPv4Range $ makeAddrRange addr maskLen + IPv6 addr -> IPv6Range $ makeAddrRange addr maskLen -- RANGES instance FromSQL (Range Int32) where fromSQL = decodeScalar D.int4range + fromSQLArray = decodeScalarArray D.int4range instance FromSQL (Range Int64) where fromSQL = decodeScalar D.int8range + fromSQLArray = decodeScalarArray D.int8range instance FromSQL (Range Scientific) where fromSQL = decodeScalar D.numrange + fromSQLArray = decodeScalarArray D.numrange instance FromSQL (Range Day) where fromSQL = decodeScalar D.daterange + fromSQLArray = decodeScalarArray D.daterange instance FromSQL (Range LocalTime) where fromSQL = decodeScalar D.tsrange_int + fromSQLArray = decodeScalarArray D.tsrange_int instance FromSQL (Range UTCTime) where fromSQL = decodeScalar D.tstzrange_int + fromSQLArray = decodeScalarArray D.tstzrange_int diff --git a/src/Database/PostgreSQL/PQTypes/Internal/RowDecoder.hs b/src/Database/PostgreSQL/PQTypes/Internal/RowDecoder.hs index a9309b7..f3d52d0 100644 --- a/src/Database/PostgreSQL/PQTypes/Internal/RowDecoder.hs +++ b/src/Database/PostgreSQL/PQTypes/Internal/RowDecoder.hs @@ -12,6 +12,7 @@ module Database.PostgreSQL.PQTypes.Internal.RowDecoder , decodeEnum , decodeNullable , decodeScalar + , decodeScalarArray ) where import BinaryParser qualified as BP @@ -345,6 +346,67 @@ decodeArray (RowDecoder inner) = withNextField $ \srcRow -> \case } pure a +-- | Decode the next field as a one-dimensional array of a scalar type, +-- using the given value decoder for its elements. +-- +-- Equivalent to @'decodeArray' ('decodeScalar' valueDec)@, except that the +-- elements are decoded with the value decoder directly, without the generic +-- machinery of 'decodeArray', so it's faster. The type of the elements is +-- checked once for the whole array rather than per element, which is equivalent +-- as they all share it. +-- +-- Errors of the elements report their position the same way 'decodeArray' +-- does, i.e. as the column of a t'ConversionError'. +decodeScalarArray :: forall a. PQFormat a => D.Value a -> RowDecoder (V.Vector a) +decodeScalarArray valueDec = withNextField $ \srcRow -> \case + Field _ Nothing -> unexpectedNULL + Field _ (Just value) -> do + ad <- getParseResult "decodeScalarArray" $ parseArray value + decodeArrayData srcRow ad + SubArray ad -> decodeArrayData srcRow ad + where + decodeArrayData srcRow ad = case ad.dims of + [] -> pure V.empty + [n] -> do + when (ad.elemOid /= pqOid @a) . E.throwIO $ + TypeMismatch + { tmExpectedOid = pqOid @a + , tmDeliveredOid = ad.elemOid + } + V.generateM n $ \i -> case ad.elems V.! i of + Nothing -> atElement srcRow i unexpectedNULL + Just value -> case D.valueParser valueDec value of + Right a -> pure a + Left err -> + atElement srcRow i . getParseResult "decodeScalarArray" $ Left err + -- 'decodeArray' would peel one dimension off and hand the rest to the + -- element decoder as a sub-array, which a scalar decoder rejects. The + -- error is reported the same way here, as the two are meant to be + -- interchangeable. + _ : rest -> + E.throwIO + ArrayDimensionMismatch + { arrDimExpected = 0 + , arrDimDelivered = length rest + } + + -- Attach the position of an element to the error of its decoder, which is + -- what the elements of 'decodeArray' get from 'withNextField'. Note that + -- the handler is installed on the branches that are already failing, so + -- decoding of the elements that succeed doesn't pay for it. + atElement :: Int -> Int -> IO b -> IO b + atElement srcRow i action = + action `catchSync` \(E.SomeException err) -> + E.throwIO + ConversionError + { convColumn = i + 1 + , convColumnName = "" + , convRow = srcRow + 1 + , convError = err + } +-- See the comment at 'decodeScalar'. +{-# INLINE decodeScalarArray #-} + ---------------------------------------- -- Helpers diff --git a/test/Test/Array.hs b/test/Test/Array.hs index bbb1af6..dab9bce 100644 --- a/test/Test/Array.hs +++ b/test/Test/Array.hs @@ -6,6 +6,8 @@ module Test.Array ) where import Control.Monad +import Control.Monad.Base +import Control.Monad.Catch import Data.ByteString qualified as BS import Data.Int import Data.Text qualified as T @@ -38,6 +40,7 @@ arrayDecoderTest td = , arrayOfNullableRecordsWorks , listInstanceWorks , vectorDecodingWorks + , elementErrorsCarryPosition , elementTypeMismatchFails , vectorElementTypeMismatchFails , elementOverconsumptionFails @@ -124,6 +127,48 @@ arrayDecoderTest td = ) result + -- The fast path for arrays of scalars ('decodeScalarArray', which every + -- built-in scalar type routes through) has to report the position of a + -- failing element just like the general one, otherwise there is no way to + -- tell which element of a large array is at fault. + elementErrorsCarryPosition = + testCase "Errors of array elements carry their position" $ do + runTestEnv td defaultTransactionSettings $ do + -- A value the element decoder rejects. + checkBothPaths + "non-integral numeric" + "'{1,2.5,3}'::numeric[]" + (fromSQL @[Integer]) + (decodeArray $ fromSQL @Integer) + -- A NULL element decoded as a type that doesn't admit one. + checkBothPaths + "NULL element" + "'{1,NULL,3}'::int4[]" + (fromSQL @[Int32]) + (decodeArray $ fromSQL @Int32) + where + checkBothPaths what sql fastDec generalDec = do + runSQL_ $ "SELECT" <+> sql + expectError @ConversionError (what <+> "(fast path)") checkPosition $ + fetchOne fastDec + runSQL_ $ "SELECT" <+> sql + expectError @ConversionError (what <+> "(general path)") checkPosition $ + fetchOne generalDec + + -- The array itself is the first column of the result and the offending + -- element is second in the array, so the error of the element is + -- wrapped in the error of the array field. + checkPosition ConversionError {convColumn = col, convRow = row, convError = err} = do + assertEqual "Column of the array is correct" 1 col + assertEqual "Row of the array is correct" 1 row + case fromException $ toException err of + Just ConversionError {convColumn = elemCol, convRow = elemRow} -> do + assertEqual "Position of the element is correct" 2 elemCol + assertEqual "Row of the element is correct" 1 elemRow + Nothing -> + liftBase . assertFailure $ + "Error of the element carries no position: " ++ show err + elementTypeMismatchFails = testCase "Type mismatch of array elements is detected" $ do runTestEnv td defaultTransactionSettings $ do runSQL_ "SELECT '{1,2}'::int4[]" From 85fccaa716089ace403266b340ecc3c2784ae29e Mon Sep 17 00:00:00 2001 From: Andrzej Rybczak Date: Tue, 28 Jul 2026 06:01:39 +0200 Subject: [PATCH 6/7] Add tests for query interruption Cover both that the execution of a query (plain or prepared) can be interrupted and that a query interrupted while it is still being sent is cut short rather than waited out, which is what requires the pending output to be flushed before cancellation is requested. --- test/Test/Connection.hs | 84 ++++++++++++++++++++++++++++++++++++++--- test/Test/Env.hs | 17 +++++---- 2 files changed, 87 insertions(+), 14 deletions(-) diff --git a/test/Test/Connection.hs b/test/Test/Connection.hs index c1e3b19..88c88c9 100644 --- a/test/Test/Connection.hs +++ b/test/Test/Connection.hs @@ -9,6 +9,7 @@ import Control.Exception (ErrorCall (..)) import Control.Monad import Control.Monad.Base import Control.Monad.Catch +import Data.ByteString qualified as BS import Data.Int import Data.Maybe import Data.Text qualified as T @@ -27,6 +28,8 @@ connectionTests td = , preparedStatementTest td , notifyTest td , queryInterruptionTest td + , largeQueryInterruptionTest td + , preparedQueryInterruptionTest td , syncExceptionInterruptionTest td , finalizationInterruptionTest td , copyNotSupportedTest td @@ -141,7 +144,10 @@ notifyTest td = testCase "Notifications work" . runTestEnv td defaultTransaction queryInterruptionTest :: TestData -> TestTree queryInterruptionTest td = testCase "Queries are interruptible" $ do let sleep = "SELECT pg_sleep(2)" - ints = sqlGenInts 5000000 + -- Both queries have to take substantially longer than the timeout + -- below, so that waiting one out is clearly distinguishable from + -- interrupting it. + ints = sqlGenInts 10000000 runTestEnv td defaultTransactionSettings . unsafeWithoutTransaction $ do testQuery id sleep testQuery id ints @@ -149,11 +155,77 @@ queryInterruptionTest td = testCase "Queries are interruptible" $ do testQuery (withSavepoint "ints") ints testQuery (withSavepoint "sleep") sleep where - testQuery m sql = - timeout 500000 (m $ runSQL_ sql) >>= \case - Just _ -> liftBase $ do - assertFailure $ "Query" <+> show sql <+> "wasn't interrupted in time" - Nothing -> pure () + testQuery m sql = do + (interrupted, elapsed) <- timed . timeout 500000 . m $ runSQL_ sql + when (isJust interrupted) . liftBase $ do + assertFailure $ "Query" <+> show sql <+> "wasn't interrupted in time" + -- Checking that the timeout fired is not enough: if execution doesn't + -- run in a thread of its own, the exception can only be delivered once + -- the blocking call returns, so the timeout would report an + -- interruption after having waited the whole query out. + liftBase . assertBool ("Query" <+> show sql <+> "was waited out") $ + elapsed < 1 + +-- | A query is interruptible not only while the server executes it, but also +-- while it is still on its way there, which is a separate matter: the server +-- discards a cancellation request that arrives before the query it is meant to +-- cancel, so the pending output has to be flushed before cancelling. Without +-- that, an exception arriving during the transmission of a large parameter +-- leaves the query running and the interrupted thread waiting it out. +-- +-- The parameter is large enough for its transmission to take substantially +-- longer than the round trip of a cancellation request, and the timeout is +-- short enough to fire in the middle of it. As the two race each other, the +-- query is run repeatedly to make hitting the window reliable. +largeQueryInterruptionTest :: TestData -> TestTree +largeQueryInterruptionTest td = + testCase "Queries are interruptible while being sent" + . runTestEnv td defaultTransactionSettings + . unsafeWithoutTransaction + $ do + let payload = BS.replicate (8 * 1024 * 1024) 65 + sql = "SELECT pg_sleep(2), length(" payload <+> ")" + replicateM_ 10 $ do + (interrupted, elapsed) <- timed . timeout 2000 $ runSQL_ sql + when (isJust interrupted) . liftBase $ + assertFailure "Query wasn't interrupted in time" + liftBase . assertBool "Query was waited out rather than cut short" $ + elapsed < 1 + -- Cancellation has to leave the connection in a state in which it can run + -- queries again. + runSQL_ "SELECT 1::int4" + n <- fetchOne (fromSQL @Int32) + assertEqual "Connection is usable after the interruption" 1 n + +-- | Execution of a prepared statement has to be interruptible just like that +-- of a regular query. Note that this is specifically about the execution: +-- preparation is deliberately not interruptible, so the statement is prepared +-- upfront to keep it out of the picture. +preparedQueryInterruptionTest :: TestData -> TestTree +preparedQueryInterruptionTest td = testCase "Prepared queries are interruptible" + . runTestEnv td defaultTransactionSettings + . unsafeWithoutTransaction + $ do + sleep 0 + (interrupted, elapsed) <- timed . timeout 500000 $ sleep 2 + when (isJust interrupted) . liftBase $ + assertFailure "Prepared query wasn't interrupted in time" + -- Checking that the timeout fired is not enough: if execution doesn't run + -- in a thread of its own, the exception can only be delivered once the + -- blocking call returns, so the timeout would report an interruption + -- after having waited the whole query out. + liftBase . assertBool "Prepared query was waited out rather than cut short" $ + elapsed < 1 + -- Cancellation has to leave the connection in a state in which it can run + -- queries again. + runSQL_ "SELECT 1::int4" + n <- fetchOne (fromSQL @Int32) + assertEqual "Connection is usable after the interruption" 1 n + where + -- The duration is a parameter so that both calls execute the same + -- statement, i.e. the second one finds it already prepared. + sleep :: Double -> TestEnv () + sleep n = runPreparedQuery_ "sleep" $ rawSQL "SELECT pg_sleep($1)" (Identity n) syncExceptionInterruptionTest :: TestData -> TestTree syncExceptionInterruptionTest td = testCase diff --git a/test/Test/Env.hs b/test/Test/Env.hs index a317273..997e794 100644 --- a/test/Test/Env.hs +++ b/test/Test/Env.hs @@ -7,7 +7,7 @@ module Test.Env , assertEqual , expectError , sqlGenInts - , _printTime + , timed -- * Re-exports , module Test.Tasty.HUnit @@ -18,7 +18,7 @@ import Control.Monad.Catch import Control.Monad.State qualified as S import Control.Monad.Trans.Control import Data.Int -import Data.Time +import GHC.Clock (getMonotonicTime) import System.Random import Test.QuickCheck import Test.QuickCheck.Gen @@ -108,10 +108,11 @@ sqlGenInts n = , ") SELECT n FROM ints" ] -_printTime :: MonadBase IO m => m a -> m a -_printTime m = do - t <- liftBase getCurrentTime +-- | Run an action, returning its result along with how long it took in +-- seconds. +timed :: MonadBase IO m => m a -> m (a, Double) +timed m = do + t1 <- liftBase getMonotonicTime res <- m - t' <- liftBase getCurrentTime - liftBase . putStrLn $ "Time: " ++ show (diffUTCTime t' t) - pure res + t2 <- liftBase getMonotonicTime + pure (res, t2 - t1) From fd5e5b98298668469ec848d8ae56a051bb3c25d6 Mon Sep 17 00:00:00 2001 From: Andrzej Rybczak Date: Tue, 28 Jul 2026 10:13:16 +0200 Subject: [PATCH 7/7] Request query cancellation until it takes effect MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit A single request is not enough: the server discards one that arrives before the backend started executing the query, as cancellation is only acted upon while a command is running. Nothing reports this — the request is acknowledged as received either way and a discarded one leaves no trace at all — so the only sign that one took effect is the query ending early. An interrupted thread could therefore end up waiting for the query to run to completion, which in particular defeated timeouts. The request is now repeated until the results show up, with the wait between repetitions bounded and the delay doubling from 50ms up to 400ms. The common case, where the exception arrives while the query is genuinely executing, is unaffected: the first request lands, the results become available within a round trip and nothing further is sent. --- CHANGELOG.md | 5 ++ .../PostgreSQL/PQTypes/Internal/Connection.hs | 66 +++++++++++++++++-- test/Test/Connection.hs | 23 +++++-- 3 files changed, 81 insertions(+), 13 deletions(-) diff --git a/CHANGELOG.md b/CHANGELOG.md index 0ee8860..c05f404 100644 --- a/CHANGELOG.md +++ b/CHANGELOG.md @@ -105,6 +105,11 @@ connection is encrypted. * Fix a bug in `connect` where interrupting it with an asynchronous exception could lead to a use-after-free of the buffer holding the connection string. +* Fix cancellation of a query interrupted by an asynchronous exception being + unreliable: the server discards a cancellation request that reaches it before + the backend started executing the query, which it doesn't report in any way, + so an interrupted thread could end up waiting for the query to run to + completion. The request is now repeated until the query ends. * Fix a bug in `changeAcquisitionModeTo` that led to holding on to an invalid connection object when committing a transaction during transition from the `AcquireAndHold` to `AcquireOnDemand` mode failed. diff --git a/src/Database/PostgreSQL/PQTypes/Internal/Connection.hs b/src/Database/PostgreSQL/PQTypes/Internal/Connection.hs index 1168b47..f468776 100644 --- a/src/Database/PostgreSQL/PQTypes/Internal/Connection.hs +++ b/src/Database/PostgreSQL/PQTypes/Internal/Connection.hs @@ -413,13 +413,7 @@ runQueryImpl Connection {..} sql execQuery = E.mask $ \restore -> attachQueryCon -- to use it will fail and it will be disposed of by its connection -- source. ignoreErrors $ flushOutput connPtr - -- Request cancellation of the query only if its results are not - -- already sitting in the input buffer, i.e. the server might still - -- be executing it. Note that the request cannot be sent before - -- flushing: until the query is fully transmitted, no command is - -- running, so the request would be ignored by the server. - busy <- c_PQisBusy connPtr - when (busy == 1) . void $ c_PQcancel connPtr + ignoreErrors requestCancellation -- Consume the results, so that the connection can be used again. ignoreErrors $ drainResults connPtr where @@ -427,6 +421,45 @@ runQueryImpl Connection {..} sql execQuery = E.mask $ \restore -> attachQueryCon -- uninterruptibleMask so the one we catch are necessarily synchronous. ignoreErrors m = m `E.catch` \(_ :: E.SomeException) -> pure () + -- Ask the server to cancel the query and wait until it reacts. + -- + -- Flushing the output above guarantees that the query was handed over + -- to the operating system, but not that the backend already read it, + -- and a request that arrives before the backend started executing the + -- query is discarded by the server (cancellation is only acted upon + -- while a command is running). Nothing reports that: the request is + -- acknowledged as received either way, and a discarded one leaves no + -- trace at all. The only sign that one took effect is the query ending + -- early, so the request is repeated until the results show up, which + -- is also why the waiting below is bounded. + -- + -- A request is not sent if the results are already sitting in the + -- input buffer, i.e. if the query is over anyway. + requestCancellation = do + busy <- c_PQisBusy connPtr + when (busy == 1) $ do + void $ c_PQcancel connPtr + awaitResults initialCancelDelay + + awaitResults delay = do + busy <- c_PQisBusy connPtr + when (busy == 1) $ do + waitReadableFor connPtr delay >>= \case + -- The server sent something, so the query is on its way to + -- being over: keep receiving without pestering it again. + True -> consumeInput connPtr >> awaitResults delay + -- Nothing arrived in time, so the request was most likely + -- discarded. Ask again, giving the server progressively more + -- time to respond, as the delay that matters here is how long + -- the backend needs to read the query, which depends on its + -- size and on how the server is reached. + False -> do + void $ c_PQcancel connPtr + awaitResults . min maxCancelDelay $ 2 * delay + + initialCancelDelay = 50 * 1000 -- 50 ms + maxCancelDelay = 400 * 1000 -- 400 ms + ---------------------------------------- -- Helpers @@ -553,6 +586,25 @@ waitForResult connPtr = do consumeInput connPtr waitForResult connPtr +-- | Wait until the connection socket becomes readable or the given number of +-- microseconds elapses, telling which of the two happened. +-- +-- Note that 'System.Timeout.timeout' is of no use for this, as the waiting +-- happens with asynchronous exceptions masked uninterruptibly, so the one it +-- interrupts the wait with could not be delivered. The timer is a thread of +-- its own for a similar reason 'registerDelay' is not used: the latter +-- requires the threaded runtime. +waitReadableFor :: Ptr PGconn -> Int -> IO Bool +waitReadableFor connPtr micros = do + fd <- getSocket connPtr + expiredVar <- newEmptyTMVarIO + void . forkIO $ do + threadDelay micros + atomically $ putTMVar expiredVar () + (waitRead, dropWaitRead) <- threadWaitReadSTM fd + atomically ((True <$ waitRead) `orElse` (False <$ takeTMVar expiredVar)) + `E.finally` dropWaitRead + -- | Consume the results of a cancelled query so that the connection can be -- used to run queries again. drainResults :: Ptr PGconn -> IO () diff --git a/test/Test/Connection.hs b/test/Test/Connection.hs index 88c88c9..b99b34f 100644 --- a/test/Test/Connection.hs +++ b/test/Test/Connection.hs @@ -174,23 +174,34 @@ queryInterruptionTest td = testCase "Queries are interruptible" $ do -- leaves the query running and the interrupted thread waiting it out. -- -- The parameter is large enough for its transmission to take substantially --- longer than the round trip of a cancellation request, and the timeout is --- short enough to fire in the middle of it. As the two race each other, the --- query is run repeatedly to make hitting the window reliable. +-- longer than the timeout below, so that the latter fires in the middle of it. +-- +-- Note that cancellation cannot be quicker than finishing the transmission, +-- hence the time it takes to send the parameter is measured rather than +-- assumed: it depends on how the server is reached (a local socket is orders +-- of magnitude faster than a connection to another host) and an interruption +-- that is as prompt as it can be would look like a stall next to a hardcoded +-- bound. largeQueryInterruptionTest :: TestData -> TestTree largeQueryInterruptionTest td = testCase "Queries are interruptible while being sent" . runTestEnv td defaultTransactionSettings . unsafeWithoutTransaction $ do - let payload = BS.replicate (8 * 1024 * 1024) 65 - sql = "SELECT pg_sleep(2), length(" payload <+> ")" + let payload = BS.replicate (4 * 1024 * 1024) 65 + sleepSeconds = 2 :: Double + sql = + "SELECT pg_sleep(" sleepSeconds <> "), length(" payload <> ")" + (_, sendTime) <- timed . runSQL_ $ "SELECT length(" payload <> ")" replicateM_ 10 $ do (interrupted, elapsed) <- timed . timeout 2000 $ runSQL_ sql when (isJust interrupted) . liftBase $ assertFailure "Query wasn't interrupted in time" + -- Waiting the query out would take the sleep above on top of the + -- transmission, so anything close to the latter alone means the query + -- was cancelled. liftBase . assertBool "Query was waited out rather than cut short" $ - elapsed < 1 + elapsed < sendTime + sleepSeconds / 2 -- Cancellation has to leave the connection in a state in which it can run -- queries again. runSQL_ "SELECT 1::int4"