c2p_module.c

/* :ts=4                            c2p_module.c
 *
 *    cp4 - Commodore C+4 emulator
 *    Copyright (C) 1998 Gáti Gergely
 *
 *    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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 *
 *    e-mail: gatig@dragon.klte.hu
 */
#ifndef C2P_MODULE_C
#define C2P_MODULE_C

#ifndef C2P_MODULE_H
 #include "c2p_module.h"
#endif

#define C2P_INTERFACE   (4)

#ifdef C2P_LOCALIZE

 #ifdef C2P_INFO
  #error If you define C2P_LOCALIZE, you must use minfo() instead of C2P_INFO.
 #endif

 #ifndef C2P_WANTSYSBASE
  #define C2P_WANTSYSBASE
 #endif

 #define C2P_CATALOGNAME    "cp4_" ## C2P_NAME ## ".catalog"

 #ifndef C2P_BUILTINLANGUAGE
  #define C2P_BUILTINLANGUAGE   "english"
 #endif

 #include <libraries/locale.h>
 #include <proto/locale.h>
 #include <proto/intuition.h>
 #include <proto/dos.h>

 void c2p_OpenCatalog(char **DefaultStrings);
 char *c2p_GetStr(long StringNum);
 void c2p_CloseCatalog(void);

 #define STR(n) c2p_GetStr(n)

 extern struct IntuitionBase *IntuitionBase;

 struct LocaleBase *LocaleBase;
 struct Catalog *c2p_Catalog=0L;
 static int c2p_NumberOfMessages=0;
 static char **c2p_DefaultStrings=0L;

#endif      // C2P_LOCALIZE

#ifdef C2P_INFO
 #warning C2P_INFO is obsolote, use minfo() instead.
#endif

#ifdef C2P_WANTSYSBASE
 #include <exec/types.h>
 #include <proto/exec.h>
#else
 #warning You have to define SysBase yourself.
#endif

#define SCRWIDTH    352
#define SCRHEIGHT   283
#define SCRSIZE     (SCRWIDTH*SCRHEIGHT)
#define NUMSCR      3
#define C2P_NOMSG   "\0"
#define C2P_NOMEM   "Not Enough Memory"
#define RET_ERROR   -2
#define RET_NEWWIN  -1
#define RET_OK      0
#define RET_DEBUG   1
#define RET_PREFS   2
#define RET_RESET   3
#define RET_HRESET  4
#define RET_QUIT    5

char *SAVEDS minit(ULONG scrmode, ULONG overscan, unsigned char *linedeltatab);
void SAVEDS mfree(void);
int SAVEDS mdo(unsigned char *chunky,unsigned char *delta,int numscreen);
int SAVEDS mdofull(unsigned char *chunky,int numscreen);
int SAVEDS mdont(void);
void SAVEDS msleep(void);
void SAVEDS mawake(void);
#ifndef C2P_INFO
 char *SAVEDS minfo(void);
#endif
#ifdef C2P_DIRECT
 struct direct_info *SAVEDS mlock(void);
 void SAVEDS munlock(REG(d0,struct direct_info *lock));
#endif

static char *SAVEDS iinit(ULONG sm, ULONG ov, unsigned char *ld);
static int SAVEDS idofull(unsigned char *chunky,unsigned char *delta,int numscreen);

static int DummyGetOptionInt(char *name,int defval);
static void DummyAddOptionInt(char *name,int value);
static char *DummyGetOptionStr(char *name,char *defval);
static void DummyAddOptionStr(char *name,char *value);

static int SAVEDS c2p_internal(int);

static struct c2pvec vec;

static ULONG c2p_sm;
static ULONG c2p_ov;
static unsigned char *c2p_ld;

#ifdef C2P_WANTSYSBASE
 struct ExecBase *SysBase;
#endif

#ifndef C2P_AUTHOR
 #define C2PI_COPYRIGHT ""
 #warning C2P_AUTHOR is not defined.
#else
 #define C2PI_COPYRIGHT " Copyright © by " ## C2P_AUTHOR
#endif

#ifdef __SASC
 #define C2P_VERSTAG "\0$VER:  " ## C2P_NAME ## " " ## C2P_VERSION ## "." ## C2P_REVISION ## " " ## __AMIGADATE__ ## "   " ## C2PI_COPYRIGHT
#else
 #ifndef C2P_DATE
  #define C2P_VERSTAG "\0$VER:  " ## C2P_NAME ## " " ## C2P_VERSION ## "." ## C2P_REVISION ## " (" ## __DATE__ ## ")" ## "   " ## C2PI_COPYRIGHT
 #else
  #define C2P_VERSTAG "\0$VER:  " ## C2P_NAME ## " " ## C2P_VERSION ## "." ## C2P_REVISION ## " (" ## C2P_DATE ## ")" ## "   " ## C2PI_COPYRIGHT
 #endif     // C2P_DATE
#endif      // __SASC
static char c2p_VersTag[]=C2P_VERSTAG;

struct c2pvec REGARGS SAVEDS *startup(REG(d0,unsigned long m)) {
static char iVer[]=C2P_VERSION;
static char iRev[]=C2P_REVISION;
static char iNam[]=C2P_NAME;
#ifdef C2P_AUTHOR
 static char iAut[]=C2P_AUTHOR;
#else
 static char iAut[]="???";
#endif
#ifdef C2P_INFO
 static char iInf[]=C2P_INFO;
#else
 static char *iInf=NULL;
#endif

    if(m!=C2P_MAGIC) return((struct c2pvec *)-1);
#ifdef C2P_WANTSYSBASE
    SysBase=*((struct ExecBase **)4L);
#endif
#ifndef C2P_INFO
    if(iInf==NULL) iInf=minfo();
#endif
    vec.c2p_Interface=C2P_INTERFACE;
    vec.c2p_init=iinit;
    vec.c2p_free=mfree;
    vec.c2p_do=mdo;
    vec.c2p_dofull=idofull;
    vec.c2p_sleep=msleep;
    vec.c2p_awake=mawake;
    vec.c2p_Info=iInf;
    vec.c2p_Author=iAut;
    vec.c2p_Version=iVer;
    vec.c2p_Revision=iRev;
    vec.c2p_Name=iNam;
    vec.c2p_Scr=NULL;
    vec.c2p_Win=NULL;
    vec.c2p_GetOptionInt=DummyGetOptionInt;
    vec.c2p_AddOptionInt=DummyAddOptionInt;
    vec.c2p_GetOptionStr=DummyGetOptionStr;
    vec.c2p_AddOptionStr=DummyAddOptionStr;
    vec.c2p_MsgList.lh_Head=(struct Node *)&vec.c2p_MsgList.lh_Tail;
    vec.c2p_MsgList.lh_Tail=NULL;
    vec.c2p_MsgList.lh_TailPred=(struct Node *)&vec.c2p_MsgList.lh_Head;
    vec.c2p_MsgList.lh_Type=0;
#ifdef C2P_BUFFERING
    vec.c2p_Buffering=C2P_BUFFERING;
    if(vec.c2p_Buffering<0||vec.c2p_Buffering>3) vec.c2p_Buffering=0;
#else
    vec.c2p_Buffering=0;
#endif
    vec.c2p_Speed=-1;
#ifdef C2P_NOSPEED
    vec.c2p_NoSpeed=1;
#else
    vec.c2p_NoSpeed=0;
#endif
    c2p_VersTag[0]='\0';
    vec.c2p_dont=mdont;
    vec.c2p_internal=c2p_internal;
#ifdef C2P_NORENDER
    vec.c2p_Render=0;
#else
    vec.c2p_Render=1;
#endif
    vec.c2p_Palette=NULL;
#ifndef C2P_NOBORDER
    vec.c2p_Border=1;
#else
    vec.c2p_Border=0;
#endif
#ifdef C2P_DIRECT
    vec.c2p_Direct=1;
    vec.c2p_lock=mlock;
    vec.c2p_unlock=munlock;
#else
    vec.c2p_Direct=0;
    vec.c2p_lock=0L;
    vec.c2p_unlock=0L;
#endif
    vec.c2p_Led=0;
    return(&vec);
} // startup()

static int SAVEDS idofull(unsigned char *chunky,unsigned char *delta,int numscreen) {
    return(mdofull(chunky,numscreen));
} // idofull()

static int DummyGetOptionInt(char *name,int defval) { return(-1); }
static void DummyAddOptionInt(char *name,int value) { return; }
static char *DummyGetOptionStr(char *name,char *defval) { return(NULL); }
static void DummyAddOptionStr(char *name,char *value) { return; }

static char *SAVEDS iinit(ULONG sm, ULONG ov, unsigned char *ld) {
    c2p_sm=sm;  c2p_ov=ov;  c2p_ld=ld;
    return(minit(sm,ov,ld));
}

/* Locale functions, if required
 */
#ifdef C2P_LOCALIZE

 static char *c2p_ShowLocReq(long StringNum) {
 static char nostr[]="***NOMSG";
 static struct EasyStruct es_req={
    sizeof(struct EasyStruct),
    0,
    "Locale error",
    "Can't find string number %ld",
    "Ok"
 };
 struct IntuitionBase *storeIntuiBase;
    storeIntuiBase=IntuitionBase;
    if(0L!=(IntuitionBase=(struct IntuitionBase *)OpenLibrary("intuition.library",36))) {
        EasyRequest(0L,&es_req,0L,(ULONG)StringNum);
        CloseLibrary((struct Library *)IntuitionBase);
    }
    IntuitionBase=storeIntuiBase;
    return(nostr);
 } // c2p_ShowLocReq()

 static void c2p_ShowReq(char *t,char *b) {
 static struct EasyStruct es_req={ sizeof(struct EasyStruct),0, 0L, 0L, "Ok" };
 struct IntuitionBase *storeIntuiBase;
    if(b==0L||t==0L) return;
    storeIntuiBase=IntuitionBase;
    if(0L!=(IntuitionBase=(struct IntuitionBase *)OpenLibrary("intuition.library",36))) {
        es_req.es_Title=t;
        es_req.es_TextFormat=b;
        EasyRequestArgs(0L,&es_req,0L,0L);
        CloseLibrary((struct Library *)IntuitionBase);
    }
    IntuitionBase=storeIntuiBase;
 } // c2p_ShowReq()

 void c2p_OpenCatalog(char *DefaultStrings[]) {
 static struct DosLibrary *DOSBase;
    long i;
    if((DOSBase=(struct DosLibrary *)OpenLibrary("dos.library",0L))) {
        Delay(4);
        CloseLibrary((struct Library *)DOSBase);
    }
    if(DefaultStrings==NULL) return;
    for(i=0;DefaultStrings[i]!=NULL;i++);
    c2p_DefaultStrings=DefaultStrings;
    c2p_NumberOfMessages=i-1;
    if(i==0) return;
    if(!LocaleBase) LocaleBase=(struct LocaleBase *)OpenLibrary("locale.library",37);
    if(LocaleBase!=0L&&c2p_Catalog==0L) {
        c2p_Catalog=OpenCatalog(0L,(char *)C2P_CATALOGNAME,
            OC_BuiltInLanguage, (unsigned long)C2P_BUILTINLANGUAGE,
            OC_Version, 0L,
            TAG_DONE,0L);
    }
 } // c2p_OpenCatalog()

 void c2p_CloseCatalog(void) {
    if(LocaleBase!=0L) CloseCatalog(c2p_Catalog);
    c2p_Catalog=0L;
    if(LocaleBase) CloseLibrary((struct Library *)LocaleBase);
    c2p_NumberOfMessages=0;
 } // c2p_CloseCatalog()

 char *c2p_GetStr(long StringNum) {
    char *rs=0L;
    if(StringNum>=0&&StringNum<=c2p_NumberOfMessages&&LocaleBase!=0L) rs=GetCatalogStr(c2p_Catalog,StringNum+1,c2p_DefaultStrings[StringNum]);
    else if(StringNum<=c2p_NumberOfMessages) rs=c2p_DefaultStrings[StringNum];
    else rs=c2p_ShowLocReq(StringNum);
    return(rs);
 } // c2p_GetStr()

 INLINE void c2p_strncpy(char *to,char *fr,int l) {
    while('\0'!=(*to++=*fr++)&&--l>=0);
 } // c2p_strncpy()

#endif          // C2P_LOCALE

static int SAVEDS c2p_internal(int f) {
    int r=0;

    switch(f) {
#ifdef C2P_LOCALIZE
        case C2PIF_MODLOCALE : {
            char *rs;
            c2p_CloseCatalog();
            mfree();
            if(NULL!=(rs=minit(c2p_sm,c2p_ov,c2p_ld))) {
                c2p_ShowReq("Fatal error",rs);
                r=RET_ERROR;
            }
        }
            break;
#endif
    }
    return(r);
} // c2p_internal()

#endif