Skip to Content

We no longer are tied to using Microsoft’s Visual C++ compiler for building Michael Peppler’s Perl Module DBD::Sybase 1.15 for ActiveState Perl (Windows 32bit)!

We need to make a few changes to SAP Sybase’s Openclient though. Don’t worry, the changes are only needed to build the module. I used Sybase Openclient 15.7 ESD 7 but you should be able to use any 15.7 version of Openclient with minimal changes.

%SYBASE%\%SYBASE_OCS%\include\csconfig.h differences:

$ diff csconfig.h.old csconfig.h

58a59,63

> /* Load MinGW specific definitions */

> #if defined(__MINGW32__)

> #include “_mingw.h”

> #endif /* __MINGW32__ */

>

74c79

< #if ((SYB_MSC_VER >= 800)  || defined(__BORLANDC__))

> #if ((SYB_MSC_VER >= 800)  || defined(__BORLANDC__)) || defined(__MINGW32__)

84c89

< #else /* ((SYB_MSC_VER >= 800) || defined(__BORLANDC__)) */

> #else /* ((SYB_MSC_VER >= 800) || defined(__BORLANDC__)) || defined(__MINGW32__) */

94c99

< #endif /* ((SYB_MSC_VER >= 800) || defined(__BORLANDC__)) */

> #endif /* ((SYB_MSC_VER >= 800) || defined(__BORLANDC__)) || defined(__MINGW32__) */

%SYBASE%\%SYBASE_OCS%\include\sybfront.h differences:

$ diff sybfront.h.old sybfront.h

162c162

< #if !defined(_MSC_VER) && !defined(__BORLANDC__)

> #if !defined(_MSC_VER) && !defined(__BORLANDC__) && !defined(__MINGW32__)

180c180

< #if !defined(_MSC_VER) && !defined(__BORLANDC__)

> #if !defined(_MSC_VER) && !defined(__BORLANDC__) && !defined(__MINGW32__)

We now need to copy the *.lib files in %SYBASE%\%SYBASE_OCS%\lib appending “.a” in place of the “.lib” suffix:

 

libs

Don’t you think SAP Sybase should add the changes above to OpenClient? I think so. Let your SAP Representative know!

 

Now we’re ready to build the module!

U:\build\DBD-Sybase-1.15>perl Makefile.PL

Set up gcc environment – 3.4.5 (mingw-vista special r3)

Sybase OpenClient 15.7 found.

By default DBD::Sybase 1.05 and later use the ‘CHAINED’ mode (where available)

when ‘AutoCommit’ is turned off. Versions 1.04 and older instead managed

the transactions explicitly with a ‘BEGIN TRAN’ before the first DML

statement. Using the ‘CHAINED’ mode is preferable as it is the way that

Sybase implements AutoCommit handling for both its ODBC and JDBC drivers.

Use ‘CHAINED’ mode by default (Y/N) [Y]:

The DBD::Sybase module need access to a Sybase server to run the tests.

To clear an entry please enter ‘undef’

Sybase server to use (default: SYBASE): test_svr

User ID to log in to Sybase (default: sa):

Password (default: undef):

Sybase database to use on sd02 (default: undef): tempdb

* Writing login information, including password, to file PWD.

Checking if your kit is complete…

Looks good

Warning (mostly harmless): No library found for -llibsybtcl.lib

Warning (mostly harmless): No library found for -llibsybcomn.lib

Warning (mostly harmless): No library found for -llibsybintl.lib

Multiple copies of Driver.xst found in: C:/Perl/site/lib/auto/DBI/ C:/Perl/lib/auto/DBI/ at Makefile.PL line 80.

Using DBI 1.63 (for perl 5.016003 on MSWin32-x86-multi-thread) installed in C:/Perl/site/lib/auto/DBI/

Generating a dmake-style Makefile

Writing Makefile for DBD::Sybase

Writing MYMETA.yml and MYMETA.json

So far so good, so let’s continue with compiling and building the module:

U:\build\DBD-Sybase-1.15>dmake

dmake.exe:  makefile:  line 454:  Warning: — Macro `BOOTSTRAP’ redefined after use

cp dbd-sybase.pod blib\lib\DBD\dbd-sybase.pod

cp Sybase.pm blib\lib\DBD\Sybase.pm

C:\Perl\bin\perl.exe -p -e “s/~DRIVER~/Sybase/g” C:\Perl\site\lib\auto\DBI\Driver.xst > Sybase.xsi

C:\Perl\bin\perl.exe C:\Perl\site\lib\ExtUtils\xsubpp  -typemap C:\Perl\lib\ExtUtils\typemap  Sybase.xs > Sybase.xsc && C:\Perl\bin\perl.exe -MExtUtil

s::Command -e mv — Sybase.xsc Sybase.c

C:\Perl\site\bin\gcc.exe -c  -IC:\Sybase/OCS-15_0/include -IC:/Perl/site/lib/auto/DBI   -DNDEBUG -DWIN32 -D_CONSOLE -DNO_STRICT -DPERL_TEXTMODE_SCRIPT

S -DUSE_SITECUSTOMIZE -DPERL_IMPLICIT_CONTEXT -DPERL_IMPLICIT_SYS -DUSE_PERLIO -D_USE_32BIT_TIME_T -DHASATTRIBUTE -fno-strict-aliasing -mms-bitfields

-O2       -DVERSION=\”1.15\”    -DXS_VERSION=\”1.15\”  “-IC:\Perl\lib\CORE”   Sybase.c

C:\Perl\site\bin\gcc.exe -c  -IC:\Sybase/OCS-15_0/include -IC:/Perl/site/lib/auto/DBI   -DNDEBUG -DWIN32 -D_CONSOLE -DNO_STRICT -DPERL_TEXTMODE_SCRIPT

S -DUSE_SITECUSTOMIZE -DPERL_IMPLICIT_CONTEXT -DPERL_IMPLICIT_SYS -DUSE_PERLIO -D_USE_32BIT_TIME_T -DHASATTRIBUTE -fno-strict-aliasing -mms-bitfields

-O2       -DVERSION=\”1.15\”    -DXS_VERSION=\”1.15\”  “-IC:\Perl\lib\CORE”   dbdimp.c

dbdimp.c: In function `syb_st_execute’:

dbdimp.c:3906: warning: passing arg 2 of `ct_results’ from incompatible pointer type

dbdimp.c:3930: warning: passing arg 5 of `ct_bind’ from incompatible pointer type

Running Mkbootstrap for DBD::Sybase ()

C:\Perl\bin\perl.exe -MExtUtils::Command -e chmod — 644 Sybase.bs

C:\Perl\bin\perl.exe -MExtUtils::Mksymlists \

     -e “Mksymlists(‘NAME’=>\”DBD::Sybase\”, ‘DLBASE’ => ‘Sybase’, ‘DL_FUNCS’ => {  }, ‘FUNCLIST’ => [], ‘IMPORTS’ => {  }, ‘DL_VARS’ => []);”

Set up gcc environment – 3.4.5 (mingw-vista special r3)

C:\Perl\site\bin\dlltool.exe –def Sybase.def –output-exp dll.exp

C:\Perl\site\bin\g++.exe -o blib\arch\auto\DBD\Sybase\Sybase.dll -Wl,–base-file -Wl,dll.base -LC:\Sybase/OCS-15_0/lib -mdll -L”C:\Perl\lib\CORE” Syba

se.o    dbdimp.o   C:\Perl\lib\CORE\perl516.lib C:\Sybase\OCS-15_0\lib\libsybct.lib C:\Sybase\OCS-15_0\lib\libsybcs.lib C:\Sybase\OCS-15_0\lib\libsybb

lk.lib C:\Perl\site\lib\auto\MinGW\lib\libm.a C:\Perl\site\lib\auto\MinGW\lib\libkernel32.a C:\Perl\site\lib\auto\MinGW\lib\libuser32.a C:\Perl\site\l

ib\auto\MinGW\lib\libgdi32.a C:\Perl\site\lib\auto\MinGW\lib\libwinspool.a C:\Perl\site\lib\auto\MinGW\lib\libcomdlg32.a C:\Perl\site\lib\auto\MinGW\l

ib\libadvapi32.a C:\Perl\site\lib\auto\MinGW\lib\libshell32.a C:\Perl\site\lib\auto\MinGW\lib\libole32.a C:\Perl\site\lib\auto\MinGW\lib\liboleaut32.a

C:\Perl\site\lib\auto\MinGW\lib\libnetapi32.a C:\Perl\site\lib\auto\MinGW\lib\libuuid.a C:\Perl\site\lib\auto\MinGW\lib\libws2_32.a C:\Perl\site\lib\

auto\MinGW\lib\libmpr.a C:\Perl\site\lib\auto\MinGW\lib\libwinmm.a C:\Perl\site\lib\auto\MinGW\lib\libversion.a C:\Perl\site\lib\auto\MinGW\lib\libodb

c32.a C:\Perl\site\lib\auto\MinGW\lib\libodbccp32.a C:\Perl\site\lib\auto\MinGW\lib\libcomctl32.a C:\Perl\site\lib\auto\MinGW\lib\libmsvcrt.a dll.exp

C:\Perl\site\bin\dlltool.exe –def Sybase.def –base-file dll.base –output-exp dll.exp

C:\Perl\site\bin\g++.exe -o blib\arch\auto\DBD\Sybase\Sybase.dll -LC:\Sybase/OCS-15_0/lib -mdll -L”C:\Perl\lib\CORE” Sybase.o   dbdimp.o   C:\Perl\lib

\CORE\perl516.lib C:\Sybase\OCS-15_0\lib\libsybct.lib C:\Sybase\OCS-15_0\lib\libsybcs.lib C:\Sybase\OCS-15_0\lib\libsybblk.lib C:\Perl\site\lib\auto\M

inGW\lib\libm.a C:\Perl\site\lib\auto\MinGW\lib\libkernel32.a C:\Perl\site\lib\auto\MinGW\lib\libuser32.a C:\Perl\site\lib\auto\MinGW\lib\libgdi32.a C

:\Perl\site\lib\auto\MinGW\lib\libwinspool.a C:\Perl\site\lib\auto\MinGW\lib\libcomdlg32.a C:\Perl\site\lib\auto\MinGW\lib\libadvapi32.a C:\Perl\site\

lib\auto\MinGW\lib\libshell32.a C:\Perl\site\lib\auto\MinGW\lib\libole32.a C:\Perl\site\lib\auto\MinGW\lib\liboleaut32.a C:\Perl\site\lib\auto\MinGW\l

ib\libnetapi32.a C:\Perl\site\lib\auto\MinGW\lib\libuuid.a C:\Perl\site\lib\auto\MinGW\lib\libws2_32.a C:\Perl\site\lib\auto\MinGW\lib\libmpr.a C:\Per

l\site\lib\auto\MinGW\lib\libwinmm.a C:\Perl\site\lib\auto\MinGW\lib\libversion.a C:\Perl\site\lib\auto\MinGW\lib\libodbc32.a C:\Perl\site\lib\auto\Mi

nGW\lib\libodbccp32.a C:\Perl\site\lib\auto\MinGW\lib\libcomctl32.a C:\Perl\site\lib\auto\MinGW\lib\libmsvcrt.a dll.exp

C:\Perl\bin\perl.exe -MExtUtils::Command -e chmod — 755 blib\arch\auto\DBD\Sybase\Sybase.dll

Now, you might be thinking that since it compiled it should be good huh? Nah, we test things here!

U:\build\DBD-Sybase-1.15>dmake test

dmake.exe:  makefile:  line 454:  Warning: — Macro `BOOTSTRAP’ redefined after use

C:\Perl\bin\perl.exe “-MExtUtils::Command::MM” “-MTest::Harness” “-e” “undef *Test::Harness::Switches; test_harness(0, ‘blib\lib’, ‘blib\arch’)” t/*.t

t/autocommit.t .. ok

t/base.t …….. ok

t/exec.t …….. ok

t/fail.t …….. ok

t/login.t ……. 1/6 DBD::Sybase::db ping failed: ct_cmd_alloc failed at t/login.t line 32.

t/login.t ……. ok

t/main.t …….. ok

t/multi_sth.t … ok

t/nsql.t …….. ok

t/place.t ……. ok

t/thread.t …… skipped: this DBD::Sybase not configured to support iThreads

t/utf8.t …….. ok

t/xblk.t …….. ok

t/xblob.t ……. ok

All tests successful.

Files=13, Tests=242, 17 wallclock secs ( 0.16 usr +  0.22 sys =  0.37 CPU)

Result: PASS

No major issues so we’re ready to build ActiveState’s PPD file and get it ready distribute:

 

U:\build\DBD-Sybase-1.15>dmake ppd

dmake.exe:  makefile:  line 454:  Warning: — Macro `BOOTSTRAP’ redefined after use

Zip the blib directory and name it “DBD-Sybase-1.15.zip”. Create a new directory named “MSWin32-x86-multi-thread-5.16″ and copy the zip file into it.

You need to tell PPM where to find the zip file. The PPD file is simply an XML document, so we can just update the codebase:

<softpkg NAME=”DBD-Sybase” VERSION=”1.15″>

    <abstract>DBI driver for Sybase datasources</abstract>

    <author>Michael Peppler (mpeppler@peppler.org)</author>

    <implementation>

        <architecture NAME=”MSWin32-x86-multi-thread-5.16″></architecture>

        <codebase HREF=”MSWin32-x86-multi-thread-5.16\DBD-Sybase-1.15.zip”></codebase>

    </implementation>

</softpkg>

Let’s test that it actually installs using ActiveState’s PPM:

U:\build\DBD-Sybase-1.15>ppm install DBD-Sybase.ppd

Unpacking DBD-Sybase-1.15…done

Generating HTML for DBD-Sybase-1.15…done

Updating files in site area…done

   5 files installed

We only need to zip up the PPD and the MSWin32-x86-multi-thread-5.16 directory listed in the PPD. It is now ready to distribute. How you do it is entirely up to you.  Get the DBD::Sybase 1.15 for ActiveState Perl!

For ActiveState Perl 64bit, you will need to use Microsoft Visual Studio. However, since the support of 64bit Perl on Windows by ActiveState is rather poor, I would recommend using the 32bit version instead.

To report this post you need to login first.

1 Comment

You must be Logged on to comment or reply to a post.

  1. Matthew Persico

    Since Strawberry Perl is also MinGW-based, I applied these updates and installed DBD-Sybase under Strawberry. It seems to work there too: all the tests passed. I have two questions:

    1) Does the PPM packaging include the .a copies? If not, do you have to make .a copies on any machine to which you might install the DBD-Sybase PPM? I’m trying to figure out what I have to bundle when I distribute Strawberry from the build machine.

    2) The folks at the Strawberry project were surprised that this worked. They suggested:

    Given libclient.dll:

    1/ run:

    gendef – libclient.dll > libclient.def

    2/ run:

    dlltool -D libclient.dll -d libclient.def -k -l libclient.a

    Now you have corresponding libclient.a

    Both gendef and dlltool are bundled with strawberry perl.

    Any idea why they think that a straight copy wouldn’t work?

    (0) 

Leave a Reply