/*

Directory Opus 4
Original GPL release version 4.12
Copyright 1993-2000 Jonathan Potter

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.

All users of Directory Opus 4 (including versions distributed
under the GPL) are entitled to upgrade to the latest version of
Directory Opus version 5 at a reduced price. Please see
http://www.gpsoft.com.au for more information.

The release of Directory Opus 4 under the GPL in NO WAY affects
the existing commercial status of Directory Opus 5.

*/

#include "iconinfo.h"
#include <proto/locale.h>

struct LocaleBase *LocaleBase = NULL;
struct Catalog *catalog = NULL;

/* prototypes */
void get_vis_info(struct VisInfo *vis,char *portname);
void setup_strings(void);
/* end of prototypes */

char FindKey(char *string)
{
  char key = 0, *c;

  if (c = strchr(string,'_'))
   {
    c++;
    if (*c) key = ToUpper(*c);
   }
  return key;
}
/// "GetString()"
STRPTR GetString(LONG stringNum)
 {
  STRPTR builtIn = NULL;

  if (catalog) builtIn = GetCatalogStr(catalog,stringNum,NULL);
  if (builtIn == NULL)
   {
    ULONG i = 0;

    for(; default_strings[i].string_id != stringNum; i++);
    builtIn = default_strings[i].string;
   }
  return(builtIn);
 }
///
/// "PrepareLocale()"
void PrepareLocale(void)
 {
  if (LocaleBase = (struct LocaleBase *)OpenLibrary("locale.library",38))
    if (catalog = OpenCatalogA(NULL,"DOpus_Icon.catalog",NULL))
     {
      int a;
      char c;

      for(a = 0; a < 6; a++) if (c = FindKey(GetString(STR_SCRIPT+a))) keys[a] = c;
       if (c = FindKey(GetString(STR_SKIP))) keys[KEY_SKIP] = c;
       if (c = FindKey(GetString(STR_CANCEL))) keys[KEY_CANCEL] = c;
     }
 }
///
/// "FreeLocale()"
void FreeLocale(void)
 {
  if (LocaleBase) CloseCatalog(catalog);
  CloseLibrary((struct Library *)LocaleBase);
 }
///

void main(argc,argv)
int argc;
char *argv[];
{
    struct VisInfo vis;
    char *dummy_args[16],*port,stringname[80];
    struct DOpusStartup *startup=NULL;
    int a,arg;
//    struct StringData stringdata;

    if (argc==0) {
        int arg;

        startup=(struct DOpusStartup *)argv;
        for (arg=0;arg<startup->wbstartup.sm_NumArgs && arg<16;arg++) {
            dummy_args[arg]=startup->wbstartup.sm_ArgList[arg].wa_Name;
            ++argc;
        }
        for (;arg<16;arg++) dummy_args[arg]=NULL;
        argv=dummy_args;
    }

    DOpusBase=NULL;

    if (argc<2 ||
        !(DOpusBase=(struct DOpusBase *)OpenLibrary("dopus.library",18)) ||
        !(IconBase=OpenLibrary("icon.library",0))) {
        if (DOpusBase) CloseLibrary((struct Library *)DOpusBase);
        _exit(0);
    }

    IntuitionBase=DOpusBase->IntuitionBase;
    GfxBase=DOpusBase->GfxBase;
    LayersBase=(struct Library *)DOpusBase->LayersBase;

    if (argc>2 && argv[1][0]=='&') {
        arg=2;
        port=&argv[1][1];
    }
    else {
        arg=1;
        port=NULL;
    }
    get_vis_info(&vis,port);

    PrepareLocale();
/*
    stringdata.default_table=default_strings;
    stringdata.string_count=STR_STRING_COUNT;
    stringdata.string_table=NULL;
    stringdata.string_buffer=NULL;
    stringdata.min_version=STRING_VERSION;

    if (vis.vi_language)
        lsprintf(stringname,"DOpus:Modules/S/DM_Icon_%s.STR",vis.vi_language);
    else stringname[0]=0;

    if (ReadStringFile(&stringdata,stringname)) {
        string_table=stringdata.string_table;
*/
        setup_strings();

        a=doiconinfo(&vis,argv[arg]);
        if (startup) startup->retcode=a;
/*    }
    FreeStringFile(&stringdata);
*/
    FreeLocale();

    CloseLibrary(IconBase);
    CloseLibrary((struct Library *)DOpusBase);
    _exit(0);
}

void get_vis_info(vis,portname)
struct VisInfo *vis;
char *portname;
{
    vis->vi_fg=1; vis->vi_bg=0;
    vis->vi_shine=2; vis->vi_shadow=1;
    vis->vi_font=NULL;
    vis->vi_screen=NULL;
    vis->vi_stringcol[0]=1; vis->vi_stringcol[1]=0;
    vis->vi_activestringcol[0]=1; vis->vi_activestringcol[1]=0;
    vis->vi_flags=VISF_8POINTFONT|VISF_WINDOW;
    vis->vi_language=NULL;

    if (dopus_message(DOPUSMSG_GETVIS,(APTR)vis,portname)) return;

    if (IntuitionBase->LibNode.lib_Version>35) {
        struct DrawInfo *drinfo;
        struct Screen *pub;

        if (pub=LockPubScreen(NULL)) {
            drinfo=GetScreenDrawInfo(pub);
            vis->vi_shine=drinfo->dri_Pens[SHINEPEN];
            vis->vi_shadow=drinfo->dri_Pens[SHADOWPEN];
            vis->vi_fg=drinfo->dri_Pens[TEXTPEN];
            vis->vi_bg=drinfo->dri_Pens[BACKGROUNDPEN];
            FreeScreenDrawInfo(pub,drinfo);
            UnlockPubScreen(NULL,pub);
        }
    }
}

dopus_message(cmd,data,portname)
int cmd;
APTR data;
char *portname;
{
    struct MsgPort *port,*replyport;
    struct DOpusMessage msg;

    Forbid();
    if (portname && portname[0] &&
        (port=FindPort(portname)) &&
        (replyport=LCreatePort(NULL,0))) {
        msg.msg.mn_Node.ln_Type=NT_MESSAGE;
        msg.msg.mn_Node.ln_Name=NULL;
        msg.msg.mn_ReplyPort=replyport;
        msg.msg.mn_Length=(UWORD)sizeof(struct DOpusMessage);
        msg.command=cmd;
        msg.data=data;
        PutMsg(port,(struct Message *)&msg);
        Permit();
        WaitPort(replyport);
        GetMsg(replyport);
        LDeletePort(replyport);
        return(1);
    }
    Permit();
    return(0);
}

void fill_out_req(req,vis)
struct RequesterBase *req;
struct VisInfo *vis;
{
    req->rb_fg=vis->vi_fg;
    req->rb_bg=vis->vi_bg;
    req->rb_shine=vis->vi_shine;
    req->rb_shadow=vis->vi_shadow;
    req->rb_font=vis->vi_font;
    req->rb_flags&=~RBF_WINDOWCENTER;
    if (vis->vi_screen) {
        if (vis->vi_flags&VISF_WINDOW) {
            req->rb_screen=((struct Window *)vis->vi_screen)->WScreen;
            req->rb_window=(struct Window *)vis->vi_screen;
            req->rb_flags|=RBF_WINDOWCENTER;
        }
        else req->rb_screen=vis->vi_screen;
    }
    else req->rb_screen=NULL;
}

struct Gadget *addreqgadgets(reqbase,gadgets)
struct RequesterBase *reqbase;
struct TagItem **gadgets;
{
    int gad;
    struct Gadget *gadget=NULL,*newgadget,*firstgadget;

    for (gad=0;;gad++) {
        if (!gadgets[gad]) break;
        if (!(newgadget=(struct Gadget *)
            AddRequesterObject(reqbase,gadgets[gad]))) return(NULL);
        if (gadget) gadget->NextGadget=newgadget;
        else firstgadget=newgadget;
        gadget=newgadget;
    }
    AddGadgets(reqbase->rb_window,firstgadget,NULL,gad,reqbase->rb_shine,reqbase->rb_shadow,1);
    return(firstgadget);
}

void fix_listview(reqbase,list)
struct RequesterBase *reqbase;
struct DOpusListView *list;
{
    list->window=reqbase->rb_window;
    list->flags|=DLVF_SLOW;
    list->sliderwidth=8;
    list->slidercol=reqbase->rb_fg;
    list->sliderbgcol=reqbase->rb_bg;
    list->textcol=reqbase->rb_fg;
    list->boxhi=reqbase->rb_shine;
    list->boxlo=reqbase->rb_shadow;
    list->arrowfg=reqbase->rb_fg;
    list->arrowbg=reqbase->rb_bg;
    list->itemfg=reqbase->rb_fg;
    list->itembg=reqbase->rb_bg;
}

void setup_strings()
{
    int a,b;

    for (a=0;a<5;a++)
        for (b=0;b<6;b++) specific_gadtext[a][b]=NULL;
    for (a=0;a<5;a++) specific_gadtext[0][a]=GetString(STR_BLOCKS+a);
    specific_gadtext[1][4]=GetString(STR_LAST_CHANGED);

    for (a=2;a<4;a++) {
        specific_gadtext[a][0]=GetString(STR_BLOCKS);
        specific_gadtext[a][1]=GetString(STR_BYTES);
        specific_gadtext[a][3]=GetString(STR_STACK);
        specific_gadtext[a][4]=GetString(STR_LAST_CHANGED);
    }

    specific_gadtext[4][4]=GetString(STR_LAST_CHANGED);

    for (a=0;a<8;a++) icon_type_names[a]=GetString(STR_DISK+a);
}