use warnings;
use strict;

use Inline C => Config =>
				LIBS => '-lfmodex';

use Inline C => << 'TEST';

#include "fmod.h"
#include "fmod_errors.h"
#include <windows.h>
#include <stdio.h>
#include <conio.h>

int playstream(char * name)
{
    FMOD_SYSTEM      *system;
    FMOD_SOUND       *sound1, *sound2, *sound3;
    FMOD_CHANNEL     *channel = 0;
    FMOD_RESULT       result;
    int               key;
    unsigned int      version;

    /*
        Create a System object and initialize.
    */
    result = FMOD_System_Create(&system);
    ERRCHECK(result);

    result = FMOD_System_GetVersion(system, &version);
    ERRCHECK(result);

    if (version < FMOD_VERSION)
    {
        printf("Error!  You are using an old version of FMOD %08x.  This program requires %08x\n", version, FMOD_VERSION);
        return 0;
    }

    result = FMOD_System_Init(system, 32, FMOD_INIT_NORMAL, NULL);
    ERRCHECK(result);

    result = FMOD_System_CreateSound(system, "../media/drumloop.wav", FMOD_HARDWARE | FMOD_LOOP_OFF, 0, &sound1);
    ERRCHECK(result);

    result = FMOD_Sound_SetMode(sound1, FMOD_LOOP_OFF);
    ERRCHECK(result);

    result = FMOD_System_CreateSound(system, "../media/survey.mp3", FMOD_SOFTWARE, 0, &sound2);
    ERRCHECK(result);

    result = FMOD_System_CreateSound(system, "../media/swish.wav", FMOD_HARDWARE, 0, &sound3);
    ERRCHECK(result);

    printf("===================================================================\n");
    printf("PlaySound Example.  Copyright (c) Firelight Technologies 2004-2005.\n");
    printf("===================================================================\n");
    printf("\n");
    printf("Press '1' to play a mono sound using hardware mixing\n");
    printf("Press '2' to play a mono sound using software mixing\n");
    printf("Press '3' to play a stereo sound using hardware mixing\n");
    printf("Press 'Esc' to quit\n");
    printf("\n");

    /*
        Main loop.
    */
    do
    {
        if (kbhit())
        {
            key = getch();

            switch (key)
            {
                case '1' :
                {
                    result = FMOD_System_PlaySound(system, FMOD_CHANNEL_FREE, sound1, 0, &channel);
                    ERRCHECK(result);
                    break;
                }
                case '2' :
                {
                    result = FMOD_System_PlaySound(system, FMOD_CHANNEL_FREE, sound2, 0, &channel);
                    ERRCHECK(result);
                    break;
                }
                case '3' :
                {
                    result = FMOD_System_PlaySound(system, FMOD_CHANNEL_FREE, sound3, 0, &channel);
                    ERRCHECK(result);
                    break;
                }
            }
        }

        FMOD_System_Update(system);

        {
            unsigned int ms = 0;
            unsigned int lenms = 0;
            int          playing = 0;
            int          paused = 0;
            int          channelsplaying = 0;

            if (channel)
            {
                FMOD_SOUND *currentsound = 0;

                result = FMOD_Channel_IsPlaying(channel, &playing);
                if ((result != FMOD_OK) && (result != FMOD_ERR_INVALID_HANDLE) && (result != FMOD_ERR_CHANNEL_STOLEN))
                {
                    ERRCHECK(result);
                }

                result = FMOD_Channel_GetPaused(channel, &paused);
                if ((result != FMOD_OK) && (result != FMOD_ERR_INVALID_HANDLE) && (result != FMOD_ERR_CHANNEL_STOLEN))
                {
                    ERRCHECK(result);
                }

                result = FMOD_Channel_GetPosition(channel, &ms, FMOD_TIMEUNIT_MS);
                if ((result != FMOD_OK) && (result != FMOD_ERR_INVALID_HANDLE) && (result != FMOD_ERR_CHANNEL_STOLEN))
                {
                    ERRCHECK(result);
                }

                FMOD_Channel_GetCurrentSound(channel, &currentsound);
                if (currentsound)
                {
                    result = FMOD_Sound_GetLength(currentsound, &lenms, FMOD_TIMEUNIT_MS);
                    if ((result != FMOD_OK) && (result != FMOD_ERR_INVALID_HANDLE) && (result != FMOD_ERR_CHANNEL_STOLEN))
                    {
                        ERRCHECK(result);
                    }
                }
            }

            result = FMOD_Sound_GetLength(sound1, &lenms, FMOD_TIMEUNIT_MS);
            if ((result != FMOD_OK) && (result != FMOD_ERR_INVALID_HANDLE) && (result != FMOD_ERR_CHANNEL_STOLEN))
            {
                ERRCHECK(result);
            }

            FMOD_System_GetChannelsPlaying(system, &channelsplaying);

            printf("Time %02d:%02d:%02d/%02d:%02d:%02d : %s : Channels Playing %2d\r", ms / 1000 / 60, ms / 1000 % 60, ms / 10 % 100, lenms / 1000 / 60, lenms / 1000 % 60, lenms / 10 % 100, paused ? "Paused " : playing ? "Playing" : "Stopped", channelsplaying);
        }

        Sleep(10);

    } while (key != 27);

    printf("\n");

    /*
        Shut down
    */
    result = FMOD_Sound_Release(sound1);
    ERRCHECK(result);
    result = FMOD_Sound_Release(sound2);
    ERRCHECK(result);
    result = FMOD_Sound_Release(sound3);
    ERRCHECK(result);
    result = FMOD_System_Close(system);
    ERRCHECK(result);
    result = FMOD_System_Release(system);
    ERRCHECK(result);

    return 0;
}

TEST

##</code><code>##

Microsoft (R) Program Maintenance Utility   Version 6.00.8168.0
Copyright (C) Microsoft Corp 1988-1998. All rights reserved.

        C:\Perl\bin\perl.exe C:\Perl\lib\ExtUtils\xsubpp  -typemap C:\Perl\lib\E
xtUtils\typemap  main_pl_0e98.xs > main_pl_0e98.xsc && C:\Perl\bin\perl.exe -MEx
tUtils::Command -e mv main_pl_0e98.xsc main_pl_0e98.c
        cl -c  -IC:/test  -nologo -GF -W3 -MD -Zi -DNDEBUG -O1 -DWIN32 -D_CONSOL
E -DNO_STRICT -DHAVE_DES_FCRYPT -DNO_HASH_SEED -DUSE_SITECUSTOMIZE -DPERL_IMPLIC
IT_CONTEXT -DPERL_IMPLICIT_SYS -DUSE_PERLIO -DPERL_MSVCRT_READFIX -MD -Zi -DNDEB
UG -O1    -DVERSION=\"0.00\"  -DXS_VERSION=\"0.00\"  "-IC:\Perl\lib\CORE"   main
_pl_0e98.c
main_pl_0e98.c
main_pl_0e98.xs(25) : warning C4013: 'ERRCHECK' undefined; assuming extern retur
ning int
Running Mkbootstrap for main_pl_0e98 ()
        C:\Perl\bin\perl.exe -MExtUtils::Command -e chmod 644 main_pl_0e98.bs
        C:\Perl\bin\perl.exe -MExtUtils::Mksymlists  -e "Mksymlists('NAME'=>\"ma
in_pl_0e98\", 'DLBASE' => 'main_pl_0e98', 'DL_FUNCS' => {  }, 'FUNCLIST' => [],
'IMPORTS' => {  }, 'DL_VARS' => []);"
        link -out:blib\arch\auto\main_pl_0e98\main_pl_0e98.dll -dll -nologo -nod
efaultlib -debug -opt:ref,icf  -libpath:"C:\Perl\lib\CORE"  -machine:x86 main_pl
_0e98.obj   C:\Perl\lib\CORE\perl58.lib "C:\Program Files\Microsoft Visual Studi
o\VC98\lib\oldnames.lib" "C:\Program Files\Microsoft Visual Studio\VC98\lib\kern
el32.lib" "C:\Program Files\Microsoft Visual Studio\VC98\lib\user32.lib" "C:\Pro
gram Files\Microsoft Visual Studio\VC98\lib\gdi32.lib" "C:\Program Files\Microso
ft Visual Studio\VC98\lib\winspool.lib" "C:\Program Files\Microsoft Visual Studi
o\VC98\lib\comdlg32.lib" "C:\Program Files\Microsoft Visual Studio\VC98\lib\adva
pi32.lib" "C:\Program Files\Microsoft Visual Studio\VC98\lib\shell32.lib" "C:\Pr
ogram Files\Microsoft Visual Studio\VC98\lib\ole32.lib" "C:\Program Files\Micros
oft Visual Studio\VC98\lib\oleaut32.lib" "C:\Program Files\Microsoft Visual Stud
io\VC98\lib\netapi32.lib" "C:\Program Files\Microsoft Visual Studio\VC98\lib\uui
d.lib" "C:\Program Files\Microsoft Visual Studio\VC98\lib\ws2_32.lib" "C:\Progra
m Files\Microsoft Visual Studio\VC98\lib\mpr.lib" "C:\Program Files\Microsoft Vi
sual Studio\VC98\lib\winmm.lib" "C:\Program Files\Microsoft Visual Studio\VC98\l
ib\version.lib" "C:\Program Files\Microsoft Visual Studio\VC98\lib\odbc32.lib" "
C:\Program Files\Microsoft Visual Studio\VC98\lib\odbccp32.lib" "C:\Program File
s\Microsoft Visual Studio\VC98\lib\msvcrt.lib" -def:main_pl_0e98.def
   Creating library blib\arch\auto\main_pl_0e98\main_pl_0e98.lib and object blib
\arch\auto\main_pl_0e98\main_pl_0e98.exp
main_pl_0e98.obj : error LNK2001: unresolved external symbol _FMOD_System_Releas
e@4
main_pl_0e98.obj : error LNK2001: unresolved external symbol _FMOD_System_Close@
4
main_pl_0e98.obj : error LNK2001: unresolved external symbol _FMOD_Sound_Release
@4
main_pl_0e98.obj : error LNK2001: unresolved external symbol _FMOD_System_GetCha
nnelsPlaying@8
main_pl_0e98.obj : error LNK2001: unresolved external symbol _FMOD_Sound_GetLeng
th@12
main_pl_0e98.obj : error LNK2001: unresolved external symbol _FMOD_Channel_GetCu
rrentSound@8
main_pl_0e98.obj : error LNK2001: unresolved external symbol _FMOD_Channel_GetPo
sition@12
main_pl_0e98.obj : error LNK2001: unresolved external symbol _FMOD_Channel_GetPa
used@8
main_pl_0e98.obj : error LNK2001: unresolved external symbol _FMOD_Channel_IsPla
ying@8
main_pl_0e98.obj : error LNK2001: unresolved external symbol _FMOD_System_Update
@4
main_pl_0e98.obj : error LNK2001: unresolved external symbol _FMOD_System_PlaySo
und@20
main_pl_0e98.obj : error LNK2001: unresolved external symbol _FMOD_Sound_SetMode
@8
main_pl_0e98.obj : error LNK2001: unresolved external symbol _FMOD_System_Create
Sound@20
main_pl_0e98.obj : error LNK2001: unresolved external symbol _FMOD_System_Init@1
6
main_pl_0e98.obj : error LNK2001: unresolved external symbol _FMOD_System_GetVer
sion@8
main_pl_0e98.obj : error LNK2001: unresolved external symbol _ERRCHECK
main_pl_0e98.obj : error LNK2001: unresolved external symbol _FMOD_System_Create
@4
blib\arch\auto\main_pl_0e98\main_pl_0e98.dll : fatal error LNK1120: 17 unresolve
d externals
NMAKE : fatal error U1077: 'link' : return code '0x460'
Stop.