#include <owl\owlpch.h>
#include <windows.h>
#include <stdio.h>
#include <string.h>
//#include <module.h>
//#include "palin.h"

extern "C"
int WINAPI _export onko_palindromi(LPSTR jono)
{
   int i,k,onko;

   for(i=0,k=strlen(jono);i<=strlen(jono);i++,k--) {
    if(jono[i]==jono[k-1]) onko=1;
    else {
    onko=0;
    break;
    }
    }
  return onko;
}

HINSTANCE DLL_G_hInstance; /* Globaalit muuttujat, joita mahd.tarvitaan.   */
//TModule *DLL_G_ResMod;

/***************************************************************************/
/* Siirrettävyys-aliohjelmat, jotta asioita ei tarvitse kirjoittaa moneen  */
/* paikkaan Win 3.1:stä ja Win32:sta varten erikseen.                      */
/***************************************************************************/
static int DLL_lib_init(HINSTANCE hInstance)
{
  DLL_G_hInstance = hInstance;
//  if ( !DLL_G_ResMod )
//    DLL_G_ResMod = new TModule(0,hInstance);
  return 1;
}

/***************************************************************************/
static int DLL_lib_end(void)
{
  return 1;
}

/***************************************************************************/
/*16*16*16*16*16*16*16*16*16*16*16*16*16*16*16*16*16*16*16*16*16*16*16*16***/
#ifndef __WIN32__

int WINAPI _export WEP(int bSystemExit)
{
#pragma argsused
  return DLL_lib_end();
}

int WINAPI LibMain(HINSTANCE hInstance, WORD wDataSeg, WORD wHeapSize,
                       LPSTR lpCmdLine)
{
#pragma argsused
  if ( wHeapSize > 0 ) UnlockData(0);
  return DLL_lib_init(hInstance);
}

/***************************************************************************/
/*32*32*32*32*32*32*32*32*32*32*32*32*32*32*32*32*32*32*32*32*32*32*32*32***/
#else /* 32-bit */

BOOL WINAPI DllEntryPoint(HINSTANCE hinstDll,DWORD fdwReason,LPVOID plvReserved)
{
#pragma argsused /* fdwReason = 0 lopetuksessa ja 1 aloituksessa */
  static int initialized = 0;
  switch( fdwReason ) {
    case DLL_THREAD_DETACH :
    case DLL_PROCESS_ATTACH:
      if ( !initialized ) {
        initialized = 1;
        return DLL_lib_init(hinstDll);
      }
    case DLL_PROCESS_DETACH:
      initialized = 0; return DLL_lib_end();
  }
  return 1;
}

#endif /* 32-bit */


/*
int main() {
int i;
i=onko_palindromi("kissa");
printf("\n%d",i);
i=onko_palindromi("saippuakauppias");
printf("\n%d",i);
i=onko_palindromi("sdasdasd");
printf("\n%d",i);
i=onko_palindromi("fff");
printf("\n%d",i);

return 0;
}
*/