/**************/
/* autoldd2.c */
/****************************************************************************
**  PROGRAM: autoldd2  
**  PURPOSE: Autolaskuri mallina DDE-palvelimesta ja asiakkaasta.
**           Mahdollisuus kopioida leikekirjaan valmis viite.
**           Toinen ikkuna, johon saadaan DDE-asiakas.
**           Asiakas ikkunan linkit voidaan ottaa leikekirjasta
**           tai Edit-ikkunaan kirjoitetun linkin mukaan.
**           Yksinkertaistettu versio.
**  USAGE:
**           Esim EXCELissä kirjoitetaan kaava =AUTOLDDE|LKM!HA
**           Quattro Prossa kaava              @DDELINK([AUTOLDDE|LKM]"HA")
**           Tässä tapauksessa nämä kaavat voidaan kopoida automaattisesti
**           aktivoimalla joku laskurin nappula ja Edit/Copy
**           Sitten esim. taulukkolaskennassa Edit/Paste Link ja DDE-linkki
**           on valmis!
**           Asiakas ikkunan 2 pientä linkkikenttää saadaan aktivoimalla
**           jompikumpi niistä ja valitsemalla sen jälkeen Edit/Paste Link
**           Mikäli kumpikaan ei ole valittu tulee linkki aina isoon ikkunaan.
**           Ison ikkunan linkki saadaan myös edit-ikkunan tekstin mukaan
**           valitsemalla Edit/Do Edit Link.
**            
**  HUOM!
**           Toteutuksessa on molemmille ikkunoille laiskuuden vuoksi
**           sama menu.  Oikeassa ohjelmassa tämä ei ole suotavaa!
**           Mallissa palvelin toimii toisesta ikkunasta ja asiakas
**           toisesta.  Tarvittaessa molemmat voivat toimia samassa
**           ikkunassa!
**
**           Tämä malli toimii vain Windows 3.1:ssä, koska siinä on
**           käytetty read-only Edit-kenttiä.  Poistamalla read-only,
**           pitäisi toimia myös Win 3.0:ssa
**
**  Editor:  Vesa Lappalainen ( DDE-palvelin yleiskäytöiseksi+leikekirja)
**                            ( DDE-asiakas )
**           Kari Heikkilä    ( DDE-palvelin )
**
**           DDE palvelimen (server) vaatimat lisäykset merkitty ds
**           DDE asiakkaan  (client) vaatimat lisäykset merkitty dc
**
**    Projektiin tarvitaan
**      autoldde.c    - tämä tiedosto
**      autoldde.def  - moduulin määrittely
**      autoldde.rc   - resurssit
**      ddeser.c      - dde-palvelin
**      ddecli.c      - dde-asiakas
**      clipboard.c   - leikekirjan käsittely
**
****************************************************************************/
//#define MYGETDATA1             /* Jos palvelua varten funktio             */
#define MYGETDATA2             /* Jos palvelua varten funktio             */
//#define MYFUNC                  /* Jos oma funktio sn:n perusteella        */
#define SNLINK                  /* Jos linkkaus osataan tehdä sn:n perust. */
#define AUTOSERVER

#include <windows.h>            /* Tarvitaan kaikissa Windows C-ohjelmissa */
#include <string.h>
#include "ddeser.h"                                                  /* ds */
#include "ddecli.h"                                                  /* dc */
#include "autoldde.h"

#define WTITLE "Laskuri"
#define LASKUREITA 2

#define SERVICE "AutolDDE"                                           /* ds */
#define TOPIC   "Lkm"                                                /* ds */

static int laskurit[LASKUREITA] = {0,0};


static HWND hcWnd;                                                   /* ds */

#ifdef MYGETDATA1
static char *LkmItem[] = {"ha","ka"};                                /* ds */

#define MYGETDATA
/***************************************************************************/
int MikaLaskuri(char *item)
{
  int i;
  /* Etsitään, mitä laskuria pyydetty */
  for ( i=0; i < LASKUREITA; i++ )
    if ( strcmpi(item, LkmItem[i]) == 0 )
      return i;

  return -1;
}


/***************************************************************************/
char *MyGetData(char *topic, char *item, UINT wFmt, int query)
{                                                                    /* ds */
  static char s[10];
  int i;
  if ( wFmt != CF_TEXT ) return NULL;
  if ( strcmpi(topic,TOPIC) ) return NULL;

  i = MikaLaskuri(item);
  if  ( i < 0 ) return NULL;
  if  ( query ) return s;
  wsprintf(s,"%d\r\n",laskurit[i]);
  return s;
}
#endif

#ifdef MYGETDATA2
#define MYGETDATA
/***************************************************************************/
char *MyGetData(char *topic, char *item, UINT wFmt, int query)
{                                                                    /* ds */
  static char s[10];
  int i,summa=0;
  if ( wFmt != CF_TEXT ) return NULL;
  if ( strcmpi(topic,TOPIC) ) return NULL;
  if ( strcmpi(item,"sum") ) return NULL;
  if  ( query ) return s;

  for (i=0; i<LASKUREITA; i++) summa+=laskurit[i];
  wsprintf(s,"%d\r\n",summa);
  return s;
}
#endif

#ifdef MYFUNC
/***************************************************************************/
char *MyFunc(int n)
{                                                                    /* ds */
  static char s[10];
  int i;

  i = (n-HAL);
  if  ( i < 0 || LASKUREITA <= i ) return NULL;
  wsprintf(s,"%d\r\n",laskurit[i]);
  return s;
}
#endif

/***************************************************************************/
int UpdateData(HWND hWnd,int n,HDDEDATA hData,LONG size)             /* dc */
/* Tällä aliohjelmalla päivitetään näyttöön DDE-serverin ilmoittamat
** muutokset.  Aliohjelmaa ei tarvita, mikäli muutokset tulevat suoraan
** johonkin ikkunaan, jonka sisältö voidaan muuttaa SetWindowTextillä.
** Tässä tapauksessa aliohjelma on kirjoitettu mallin vuoksi.
*/
{
#pragma argsused
  char ddedata[100];
  HWND hswnd = GetDlgItem(hWnd,ID_LINK+n);
  DdeGetData(hData,ddedata,sizeof(ddedata),0);
  SetWindowText(hswnd,ddedata);
  return 0;
}


/***************************************************************************/
void ShowStatic(HWND hWnd, int value, int nr)
/* Aliohjelmalla tulostetaan Static ikkunaan numero                        */
{
  char s[20];
  HWND hswnd = GetDlgItem(hWnd,nr);
  wsprintf(s,"%d ",value);
  SetWindowText(hswnd,s);

#ifdef SNLINK
  InformDDEChangeSN(nr);                     /* Tarvit. jos autom. *//* ds */
#else
  InformDDEChange( TOPIC, LkmItem[nr-HAL] ); /* Tarvit. jos autom. *//* ds */
#endif
#ifdef MYGETDATA2
  InformDDEChange( TOPIC, "sum" );           /* Tarvit. jos autom. *//* ds */
#endif

}


/***************************************************************************/
void nollaa_laskurit(HWND hWnd,int laskurit[])
{
  int i;
  for (i=0; i<LASKUREITA; i++) ShowStatic(hWnd,laskurit[i] = 0,HAL+i);
}


/***************************************************************************/
BOOL CALLBACK _export MainWndProc(HWND hWnd, unsigned message,
                                  WORD wParam, LONG lParam)
{
#pragma argsused

  switch (message)  {
    case WM_COMMAND:
      switch (wParam) {
	case HA:             /* Painonappia painettu                       */
	case KA:
	  ShowStatic(hWnd,laskurit[wParam-HA]+=1,wParam-HA+HAL);
	  return TRUE;

	case NOLLAA:
	  nollaa_laskurit(hWnd,laskurit);
	  return TRUE;

	case IDM_EDIT_COPY: {/* Leikekirjaan se laskuri, jonka nappula akt.*/
	  int id = GetDlgCtrlID(GetFocus());   /* Mikä nappula aktiivinen? */
	  if (id < HA || HA+LASKUREITA-1 < id ) break;
#ifdef SNLINK
	  LinkToClipboardSN(hWnd,id-HA+HAL);                         /* ds */
#else
	  LinkToClipboard(hWnd,TOPIC,LkmItem[id-HA]);                /* ds */
#endif
	  return TRUE;
	 }

	case IDM_EDIT_PASTE_LINK: {                                  /* dc */
          int id = GetDlgCtrlID(GetFocus());
          if (ID_LINK<=id && id<=ID_LINK2 )  /* Tämä tarvitsee funktion    */
            LinkFromClipboard(id-ID_LINK,hcWnd,UpdateData,NULL,CF_TEXT);
          else                               /* Tämä toimii automaattisesti*/
            LinkFromClipboard(9,hcWnd,NULL,GetDlgItem(hcWnd,ID_AUTOLINK),CF_TEXT);
	  return TRUE;
         }

 	case IDM_EDIT_DO_EDIT_LINK: {                                /* dc */
          char link[50]; /* Otetaan edit-ikkunan teksti ja siitä linkki    */
          GetDlgItemText(hcWnd,ID_EDITLINK,link,sizeof(link));
          LinkFromText(8,hcWnd,NULL,GetDlgItem(hcWnd,ID_AUTOLINK),CF_TEXT,link);
          return TRUE;
         }

        case IDM_EDIT_RESET_CLIENT_LINKS:                            /* dc */
          CloseAllDDEClients();                                      /* dc */
          return TRUE;

 	case IDM_FILE_EXIT:
        case IDCANCEL:
	case EXIT:
	  PostQuitMessage(0);
	  return TRUE;

	default:
	  return FALSE;
      }

  }
  return FALSE;
}


/***************************************************************************/
int PASCAL WinMain(HANDLE hInstance, HANDLE hPrevInstance, LPSTR lpCmdLine,
                   int nCmdShow)
{
#pragma argsused
  MSG     msg;
  HACCEL  hAccel;
  FARPROC lProc;
  HWND    hWnd;                                                 

  lProc  = MakeProcInstance(MainWndProc,hInstance);
  hcWnd  = CreateDialog(hInstance,"Client",NULL,lProc);              /* dc */
  hWnd   = CreateDialog(hInstance,"LASKURI",NULL,lProc);
  hAccel = LoadAccelerators(hInstance,"PIKA");

  if ( !hWnd ) goto lopetus;

#ifdef MYGETDATA
  InitDDEServer(hInstance,SERVICE,MyGetData);                        /* ds */
#else
  InitDDEServer(hInstance,SERVICE,NULL);                             /* ds */
#endif
#ifdef MYFUNC
  AddService(TOPIC,"ha",CF_TEXT,HAL,MyFunc,hWnd);
  AddService(TOPIC,"ka",CF_TEXT,KAL,MyFunc,hWnd);
#endif
#ifdef AUTOSERVER
  AddService(TOPIC,"ha",CF_TEXT,HAL,NULL,hWnd);
  AddService(TOPIC,"ka",CF_TEXT,KAL,NULL,hWnd);
#endif

  while (GetMessage(&msg,NULL,NULL,NULL)) {
    if ( GetFocus() == hWnd ) /* Vain itse laskurissa pikanäppäimet! Miksi?*/
      if ( TranslateAccelerator(hWnd,hAccel,&msg) ) continue;
    if ( IsDialogMessage(hWnd,&msg)  )            continue;
    TranslateMessage(&msg);     /* Tulkitaan virtuaaliset näp. koodit      */
    DispatchMessage(&msg);      /* Lähetetään viesti ikkunalle             */
  }

  CloseDDEServer();                                                  /* ds */
  CloseAllDDEClients();                                              /* dc */

lopetus:
  FreeProcInstance(lProc);
  return 0;
}