void amiga_init (char *dir)
{
if ((DefaultPubScreen = LockPubScreen (0)) == 0)
exit (1);
screen_ratio (DefaultPubScreen);
char prog_name[256];
static char font_name[MAXFONTPATH];
char *font_desc, *name_ptr;
static WORD pens[] =
{-1};
static struct TextAttr font =
{NULL, 0, FS_NORMAL, 0};
int window = 0;
if (Icon == NULL)
{
if (GetProgramName (prog_name, 256))
Icon = GetDiskObject (prog_name);
}
if (Icon)
{
if (FindToolType (Icon->do_ToolTypes, "WINDOW"))
window = 1;
if (font_desc = FindToolType (Icon->do_ToolTypes, "FONT"))
{
strcpy (font_name, font_desc);
if (name_ptr = strrchr (font_name, '/'))
{
font.ta_Name = font_name;
font.ta_YSize = atoi (name_ptr + 1);
strcpy (name_ptr, ".font");
}
}
if (font.ta_Name)
Font = OpenDiskFont (&font);
}
if (Font == NULL)
{
font.ta_Name = "topaz.font";
font.ta_YSize = 8;
Font = OpenFont (&font);
}
if (window == 0)
{
if ((Screen = OpenScreenTags (0,
SA_Pens, pens,
SA_DisplayID, GetVPModeID (&DefaultPubScreen->ViewPort),
SA_Overscan, OSCAN_TEXT,
SA_Depth, 2,
SA_Type, CUSTOMSCREEN | AUTOSCROLL,
SA_Font, &font,
SA_Title, TitleBar, TAG_DONE)) == 0)
exit (1);
}
if ((Window = OpenWindowTags (0,
WA_Left, 0,
WA_Top, Screen ? 2 : DefaultPubScreen->BarHeight + 1,
WA_Width, Screen ? Screen->Width : ScreenWidth,
WA_Height, Screen ? Screen->Height - 2 : ScreenHeight - DefaultPubScreen->BarHeight - 1,
WA_SmartRefresh, 1,
WA_NewLookMenus, 1,
WA_AutoAdjust, 1,
WA_Borderless, Screen ? 1 : 0,
WA_Backdrop, Screen ? 1 : 0,
WA_Activate, 1,
WA_CloseGadget, Screen ? 0 : 1,
WA_DragBar, Screen ? 0 : 1,
WA_DepthGadget, Screen ? 0 : 1,
WA_SizeGadget, Screen ? 0 : 1,
WA_SizeBBottom, Screen ? 0 : 1,
WA_Title, TitleBar,
WA_ScreenTitle, TitleBar,
WA_IDCMP, IDCMP_RAWKEY | IDCMP_VANILLAKEY | IDCMP_MENUPICK | IDCMP_CLOSEWINDOW | IDCMP_CHANGEWINDOW,
Screen ? WA_CustomScreen : WA_PubScreen, Screen ? Screen : DefaultPubScreen,
TAG_DONE)) == 0)
exit (1);
ThisProcess = (struct Process *)FindTask(0);
OldWindowPtr = ThisProcess->pr_WindowPtr;
ThisProcess->pr_WindowPtr = Window;
if ((Visual = GetVisualInfo (Window->WScreen, TAG_DONE)) == 0)
exit (1);
if ((Menus = CreateMenus (NewMenus, GTMN_NewLookMenus, TRUE, TAG_DONE)) == 0)
exit (1);
LayoutMenus (Menus, Visual, GTMN_NewLookMenus, TRUE, TAG_DONE);
SetMenuStrip (Window, Menus);
if ((GameReq = alloc_freq (dir)) == 0)
exit (1);
if ((SaveReq = alloc_freq (dir)) == 0)
exit (1);
if ((ScriptReq = alloc_freq (dir)) == 0)
exit (1);
RastPort = Window->RPort;
SetDrMd (RastPort, JAM2);
SetAPen (RastPort, 1);
SetBPen (RastPort, 0);
SetFont (RastPort, Font);
DisplayHeight = ((Window->Height - Window->BorderTop - Window->BorderBottom) / RastPort->TxHeight) - 1;
PreviousHeight = DisplayHeight;
reset_cursor ();
}
STRPTR GetDefInterfaceName(int argc, char **argv)
{
struct DiskObject *dobj;
struct WBStartup *wbs;
struct WBArg *wbarg;
STRPTR icname;
STRPTR iname;
if (argc == 0)
{
wbs = (struct WBStartup *)argv;
wbarg = wbs->sm_ArgList;
icname = wbarg[0].wa_Name;
CurrentDir(wbarg[0].wa_Lock);
}
else
icname = argv[0];
if( !(dobj = GetDiskObject(icname)) )
{
CurrentDir(NULL);
return(NULL);
}
iname = FindToolType(dobj->do_ToolTypes, "INTERFACE");
FreeDiskObject(dobj);
CurrentDir(NULL);
return(iname);
}
STRPTR ArgString(char **tt, STRPTR entry,STRPTR defaultstring)
{
STRPTR result;
if (tt && (result = FindToolType(tt,entry)))
return (result);
return (defaultstring);
}
LONG ArgInt(char **tt, STRPTR entry, LONG defaultval)
{
STRPTR result;
if (tt && (result = FindToolType(tt,entry)))
{
StrToLong(result,&defaultval);
}
return (defaultval);
}
CxObj *UserFilter(char **tt, STRPTR action_name, STRPTR default_descr)
/* tt - null-terminated (char *(*)[]) */
/* action_name - name of your semantic action */
/* default_descr - used if user doesn't provide */
{
STRPTR desc = NULL;
if (tt)
desc = FindToolType(tt,action_name);
return ( CxFilter((ULONG)(desc? desc: default_descr)));
}
wbmain (struct WBStartup *wbmsg)
{
char startdir[256];
char *dir;
strcpy (startdir, "");
if (Icon = GetDiskObject (wbmsg->sm_ArgList[0].wa_Name))
{
if (dir = FindToolType (Icon->do_ToolTypes, "DIR"))
strcpy (startdir, dir);
}
amiga_init (startdir);
newgame (0);
exit (0);
}
int main(int argc, char **argv)
{
LONG rc = RETURN_FAIL;
STRPTR filename,
commandLine = NULL,
ixWindow = DEFWINDOW;
LONG ixWait = 0,
ixStack = DEFSTACK;
BOOL ixUShell = DEFUSHELL;
BPTR oldlock = (BPTR)-1,
dirlock = (BPTR)-1,
window = NULL;
struct DiskObject *dobj = NULL;
D(bug("IconX argc %d\n", argc));
if (argc != 0)
{
displayMsg(ERROR_REQUIRED_ARG_MISSING);
goto exit;
}
struct WBStartup *startup = (struct WBStartup *) argv;
if (startup->sm_NumArgs < 2)
{
displayMsg(ERROR_REQUIRED_ARG_MISSING);
goto exit;
}
D(bug("[IconX] startup->sm_NumArgs: %d\n", startup->sm_NumArgs));
dirlock = startup->sm_ArgList[1].wa_Lock;
filename = startup->sm_ArgList[1].wa_Name;
oldlock = CurrentDir(dirlock);
/* query diskobject for tooltypes */
dobj = GetDiskObject(filename);
if (dobj == NULL)
{
struct EasyStruct es = {sizeof(struct EasyStruct), 0,
"Error", "IconX\nGetDiskObject failed for:\n%s", "OK"};
EasyRequest(0, &es, 0, filename);
goto exit;
}
if (dobj->do_Type == WBPROJECT)
{
const STRPTR *toolarray = (const STRPTR *)dobj->do_ToolTypes;
STRPTR s;
if ((s = FindToolType(toolarray, "WINDOW")))
{
ixWindow = s;
}
if ((s = FindToolType(toolarray, "STACK")))
{
ixStack = atol(s);
}
if ((s = FindToolType(toolarray, "USERSHELL")))
{
if (MatchToolValue(s, "NO"))
{
ixUShell = FALSE;
}
}
if ((s = FindToolType(toolarray, "WAIT")))
{
ixWait += atol(s) * 50;
}
if ((s = FindToolType(toolarray, "DELAY")))
{
ixWait += atol(s);
}
}
else
{
displayMsg(ERROR_OBJECT_WRONG_TYPE);
goto exit;
}
if (ixWait <= 0)
ixWait = DEFWAIT;
if (ixStack <= 4096)
ixStack = DEFSTACK;
D(bug("wait %d stack %d usershell %d window %s\n", ixWait, ixStack, ixUShell, ixWindow));
D(bug("Building command line\n"));
commandLine = BuildCommandLine(startup);
if (commandLine == NULL)
{
displayMsg(IoErr());
goto exit;
}
D(bug("[IconX] commandLine: '%s'\n", commandLine));
window = Open(ixWindow, MODE_OLDFILE);
if (window == NULL)
{
/* try to open default window */
window = Open(DEFWINDOW, MODE_OLDFILE);
}
if (window)
{
D(bug("[IconX] window ok\n"));
struct TagItem tags[] =
{
{ SYS_Asynch, FALSE },
{ SYS_Background, TRUE },
{ SYS_Input, (IPTR)window },
{ SYS_Output, (IPTR)NULL },
{ SYS_Error, (IPTR)NULL },
{ SYS_UserShell, ixUShell },
{ NP_StackSize, ixStack },
{ TAG_DONE, 0 }
};
rc = SystemTagList(commandLine, tags);
if (rc == -1)
{
displayMsg(IoErr());
rc = RETURN_FAIL;
}
}
else
{
displayMsg(IoErr());
goto exit;
}
Delay(ixWait);
rc = RETURN_OK;
exit:
Close(window);
FreeDiskObject(dobj);
if (oldlock != (BPTR)-1)
CurrentDir(oldlock);
return rc;
}
int main(int argc, char **argv) {
struct RDArgs *rdargs = NULL;
int i;
char pubscreen[32];
if(argc) {
rdargs=ReadArgs( TEMPLATE , (LONG *) &args, NULL);
SaveIcons = FALSE;
}
else {
struct WBStartup *WBenchMsg = (struct WBStartup *)argv;
struct WBArg *wbarg;
BPTR olddir;
struct DiskObject *dobj;
STRPTR* toolarray;
UBYTE *s;
SaveIcons = TRUE;
for(i=0, wbarg=WBenchMsg->sm_ArgList;
i < WBenchMsg->sm_NumArgs;
i++, wbarg++) {
olddir = (BPTR) -1;
if((wbarg->wa_Lock)&&(*wbarg->wa_Name))
olddir = CurrentDir(wbarg->wa_Lock);
if((*wbarg->wa_Name) && (dobj=GetDiskObject(wbarg->wa_Name))) {
toolarray = dobj->do_ToolTypes;
s = FindToolType(toolarray,"CREATEICONS");
if( s != NULL ) {
if( MatchToolValue(s,"NO") ||
MatchToolValue(s,"FALSE")) {
SaveIcons = FALSE;
}
}
s = (char *) FindToolType(toolarray,"PUBSCREEN");
if( s != NULL ) {
strncpy(pubscreen, s, sizeof pubscreen);
args.pubscreen = pubscreen;
}
s = (char *) FindToolType(toolarray,"ACTION");
if( s != NULL ) {
if(MatchToolValue(s,"EDIT")) {
args.edit = TRUE;
}
else if(MatchToolValue(s,"USE")) {
args.use = TRUE;
}
else if(MatchToolValue(s,"SAVE")) {
args.save = TRUE;
}
}
FreeDiskObject(dobj);
}
if((i>0)&&(*wbarg->wa_Name)) {
args.from = wbarg->wa_Name;
}
if(olddir != (BPTR) -1) {
CurrentDir(olddir); /* CD back where we were */
}
}
}
if(args.from == NULL) {
args.from = ENVFILE;
}
if(args.edit) {
args.use = FALSE;
args.save = FALSE;
}
if((SetSignal(0L,SIGBREAKF_CTRL_C) & SIGBREAKF_CTRL_C) == 0) {
if(Initialize()) {
NewSettings(args.from);
if((!args.use && !args.save) || args.edit) {
if(BuildGUI(args.pubscreen)) {
EventLoop();
}
CloseGUI();
}
if(args.use || args.save) {
SaveSettings(ENVFILE, UnitList);
}
if(args.save) {
SaveSettings(ENVARCFILE, UnitList);
}
}
}
if(rdargs) {
FreeArgs(rdargs);
}
FreeVec(Units);
FreeVec(Modes);
FreeVec(Outputs);
FreeVec(Inputs);
FreeList(ModeList);
FreeList(UnitList);
CleanUp();
return 0;
}
/*>ProcessToolTypes(void)
----------------------
Alters defaults based on icon tool types. Handles the following
tooltypes:
Size=<x> <y> Output dimensions
Offset=<x> <y> Output offset
HPGLMargin=<x> <y> HPGL paper margins
Title=<Font> <Size> Title font and size
XTitle=<Font> <Size> X-axis title font and size
YTitle=<Font> <Size> Y-axis title font and size
XLabel=<Font> <Size> X-axis label font and size
YLabel=<Font> <Size> Y-axis label font and size
Key=<Font> <Size> Key font and size
Extralabel=<Font> <Size> Extra label font and size
Hatching=ON|OFF Use hatching or shading
HatchControl=<thick> <space> Thickness and spacing of hatching
Pen0=<R> <G> <B> Pen colours
Pen1=<R> <G> <B>
Pen2=<R> <G> <B>
Pen3=<R> <G> <B>
DIR=<directory> Default directory
NOSHANGHAI Stops editor SHANGHAI under V2.0
AXISBOUNDS EPSF bounding box set to size given by paper
01.07.92 Original
02.07.92 Added pen colours. Also rebuilds windows if colours have been
set.
06.07.92 Added default directory.
04.08.92 Added NOSHANGHAI
15.09.92 Added AXISBOUNDS
*/
ProcessToolTypes(void)
{
struct DiskObject *DiskObj = NULL;
char *valptr,
string[80];
double value,
value2;
int ival1,
ival2,
ival3,
redowindows = FALSE;
if((DiskObj = (struct DiskObject *)
GetDiskObject(WBenchMsg->sm_ArgList->wa_Name)) != NULL)
{
/* Tooltype: Size=<x> <y> */
if((valptr = FindToolType(DiskObj->do_ToolTypes,"Size")) != NULL)
if(sscanf(valptr,"%lf %lf",&value,&value2) == 2)
{
output.xsize = value;
output.ysize = value2;
}
/* Tooltype: Offset=<x> <y> */
if((valptr = FindToolType(DiskObj->do_ToolTypes,"Offset")) != NULL)
if(sscanf(valptr,"%lf %lf",&value,&value2) == 2)
{
output.xoffset = value;
output.yoffset = value2;
}
/* Tooltype: HPGLMargin=<x> <y> */
if((valptr = FindToolType(DiskObj->do_ToolTypes,"HPGLMargin")) != NULL)
if(sscanf(valptr,"%lf %lf",&value,&value2) == 2)
{
output.xmargin = value;
output.ymargin = value2;
}
/* Tooltype: Title=<font> <size> */
if((valptr = FindToolType(DiskObj->do_ToolTypes,"Title")) != NULL)
if(sscanf(valptr,"%s %lf",string,&value) == 2)
{
strcpy(GTitle.PSFont,string);
GTitle.PSSize = value;
}
/* Tooltype: XAxTitle=<font> <size> */
if((valptr = FindToolType(DiskObj->do_ToolTypes,"XTitle")) != NULL)
if(sscanf(valptr,"%s %lf",string,&value) == 2)
{
strcpy(XTitle.PSFont,string);
XTitle.PSSize = value;
}
/* Tooltype: YAxTitle=<font> <size> */
if((valptr = FindToolType(DiskObj->do_ToolTypes,"YTitle")) != NULL)
if(sscanf(valptr,"%s %lf",string,&value) == 2)
{
strcpy(YTitle.PSFont,string);
YTitle.PSSize = value;
}
/* Tooltype: XLabel=<font> <size> */
if((valptr = FindToolType(DiskObj->do_ToolTypes,"XLabel")) != NULL)
if(sscanf(valptr,"%s %lf",string,&value) == 2)
{
strcpy(XLabel.PSFont,string);
XLabel.PSSize = value;
}
/* Tooltype: YLabel=<font> <size> */
if((valptr = FindToolType(DiskObj->do_ToolTypes,"YLabel")) != NULL)
if(sscanf(valptr,"%s %lf",string,&value) == 2)
{
strcpy(YLabel.PSFont,string);
YLabel.PSSize = value;
}
/* Tooltype: Key=<font> <size> */
if((valptr = FindToolType(DiskObj->do_ToolTypes,"Key")) != NULL)
if(sscanf(valptr,"%s %lf",string,&value) == 2)
{
strcpy(Defaults.KeyPSFont,string);
Defaults.KeyPSSize = value;
}
/* Tooltype: ExtraLabel=<font> <size> */
if((valptr = FindToolType(DiskObj->do_ToolTypes,"ExtraLabel")) != NULL)
if(sscanf(valptr,"%s %lf",string,&value) == 2)
{
strcpy(Defaults.LabelPSFont,string);
Defaults.LabelPSSize = value;
}
/* Tooltype: Hatching=ON|OFF */
if(MatchToolValue(FindToolType(DiskObj->do_ToolTypes,"Hatching"),"ON"))
output.hatching = TRUE;
if(MatchToolValue(FindToolType(DiskObj->do_ToolTypes,"Hatching"),"OFF"))
output.hatching = FALSE;
/* Tooltype: HatchControl=<thickness> <spacing> */
if((valptr = FindToolType(DiskObj->do_ToolTypes,"HatchControl")) != NULL)
if(sscanf(valptr,"%lf %lf",&value,&value2) == 2)
{
output.hatchthick = value;
output.hatchspace = value2;
}
/* Tooltype: Pen0=<R> <G> <B> */
if((valptr = FindToolType(DiskObj->do_ToolTypes,"Pen0")) != NULL)
if(sscanf(valptr,"%d %d %d",&ival1,&ival2,&ival3) == 3)
{
ival1 = RANGECHECK(ival1,0,15);
ival2 = RANGECHECK(ival2,0,15);
ival3 = RANGECHECK(ival3,0,15);
SetRGB4(&MyScreen->ViewPort,0,(UBYTE)ival1,(UBYTE)ival2,(UBYTE)ival3);
redowindows = TRUE;
}
/* Tooltype: Pen1=<R> <G> <B> */
if((valptr = FindToolType(DiskObj->do_ToolTypes,"Pen1")) != NULL)
if(sscanf(valptr,"%d %d %d",&ival1,&ival2,&ival3) == 3)
{
ival1 = RANGECHECK(ival1,0,15);
ival2 = RANGECHECK(ival2,0,15);
ival3 = RANGECHECK(ival3,0,15);
SetRGB4(&MyScreen->ViewPort,1,(UBYTE)ival1,(UBYTE)ival2,(UBYTE)ival3);
redowindows = TRUE;
}
/* Tooltype: Pen2=<R> <G> <B> */
if((valptr = FindToolType(DiskObj->do_ToolTypes,"Pen2")) != NULL)
if(sscanf(valptr,"%d %d %d",&ival1,&ival2,&ival3) == 3)
{
ival1 = RANGECHECK(ival1,0,15);
ival2 = RANGECHECK(ival2,0,15);
ival3 = RANGECHECK(ival3,0,15);
SetRGB4(&MyScreen->ViewPort,2,(UBYTE)ival1,(UBYTE)ival2,(UBYTE)ival3);
redowindows = TRUE;
}
/* Tooltype: Pen3=<R> <G> <B> */
if((valptr = FindToolType(DiskObj->do_ToolTypes,"Pen3")) != NULL)
if(sscanf(valptr,"%d %d %d",&ival1,&ival2,&ival3) == 3)
{
ival1 = RANGECHECK(ival1,0,15);
ival2 = RANGECHECK(ival2,0,15);
ival3 = RANGECHECK(ival3,0,15);
SetRGB4(&MyScreen->ViewPort,3,(UBYTE)ival1,(UBYTE)ival2,(UBYTE)ival3);
redowindows = TRUE;
}
/* Tooltype: DIR=<directory> */
if((valptr = FindToolType(DiskObj->do_ToolTypes,"DIR")) != NULL)
strcpy(Defaults.directory,valptr);
/* Tooltype: NOSHANGHAI */
if((valptr = FindToolType(DiskObj->do_ToolTypes,"NOSHANGHAI")) != NULL)
display.shanghai = FALSE;
/* Tooltype: AXISBOUNDS */
if((valptr = FindToolType(DiskObj->do_ToolTypes,"AXISBOUNDS")) != NULL)
output.fixbounds = FALSE;
FreeDiskObject(DiskObj);
/*
// if(redowindows)
// {
// FreeAllGadgets();
// BuildAllWindows();
// }
*/
}
return(0);
}
// Get icon for an object
void backdrop_get_icon(BackdropInfo *info,BackdropObject *object,short flags)
{
short x,y,border_x=0,border_y=0;
BOOL new_icon=1;
// Keeping icon?
if (flags&GETICON_KEEP) new_icon=0;
// Not AppIcon?
if (object->type!=BDO_APP_ICON && !(flags&GETICON_POS_ONLY))
{
BPTR lock=0,old=0;
// Already got icon?
if (object->icon && !(flags&GETICON_KEEP))
{
// Free icon remapping
RemapIcon(object->icon,(info->window)?info->window->WScreen:0,1);
// Free icon
FreeCachedDiskObject(object->icon);
object->icon=0;
// We'll be getting a new one
new_icon=1;
}
// Bad disk?
if (object->type==BDO_BAD_DISK)
{
// Get default disk
if (!object->icon && !(object->icon=GetCachedDefDiskObject(WBKICK)))
object->icon=GetCachedDefDiskObject(WBDISK);
}
// Default directory icon?
else
if (flags&GETICON_DEFDIR)
{
// Get default drawer icon
if (!object->icon) object->icon=GetCachedDefDiskObject(WBDRAWER);
}
// Get lock on directory
else
if (!(flags&GETICON_CD) || (lock=backdrop_icon_lock(object)))
{
// Go to icon directory
if (lock) old=CurrentDir(lock);
// Disk?
if (object->type==BDO_DISK)
{
// No icon already?
if (!object->icon)
{
BOOL ok=1;
Cfg_Filetype *type=0;
char name[256],*ptr;
// Find a filetype-defined icon
if (object->device_name &&
(type=filetype_identify(object->device_name,FTTYPE_ICON,0,0)))
{
// Copy icon path, strip .info
strcpy(name,type->icon_path);
if (ptr=isicon(name)) *ptr=0;
// Over-ride flag set in filetype?
if (type->type.flags&FILETYPEF_OVERRIDE)
{
// Try for filetype icon first
object->icon=GetCachedDiskObject(name,0);
}
}
// Don't have icon yet?
if (!object->icon)
{
// Is this a MSDOS disk?
if (object->misc_data==ID_MSDOS_DISK)
{
// See if icon actually exists
if (type && !(SetProtection("Disk.info",FIBF_ARCHIVE)) &&
IoErr()==ERROR_OBJECT_NOT_FOUND)
{
// We'll use default icon
ok=0;
}
}
// Get disk icon
if (ok)
object->icon=GetCachedDiskObject("Disk",0);
}
// Got icon?
if (object->icon)
{
// If it's a drawer icon, turn it into a disk
if (object->icon->do_Type==WBDRAWER)
object->icon->do_Type=WBDISK;
// Check it is for a disk
if (object->icon->do_Type!=WBDISK)
{
// It's not, free it and use default
FreeCachedDiskObject(object->icon);
object->icon=0;
}
}
// Still no icon? Get default
if (!object->icon && !(flags&GETICON_FAIL))
{
// Got type-defined?
if (type)
{
// Try for filetype icon
object->icon=GetCachedDiskObject(name,0);
}
// Still none? Get default
if (!object->icon)
object->icon=GetCachedDefDiskObject(WBDISK);
// Set fake flag
if (object->icon)
object->flags|=BDOF_FAKE_ICON;
}
}
}
// Left out or group
else
if (object->type==BDO_LEFT_OUT || object->type==BDO_GROUP)
{
// Try for icon
if (!object->icon)
{
short fake=0;
// Want real icon?
if (flags&GETICON_FAIL) object->icon=GetCachedDiskObject(object->name,0);
// Get default icon if fails
else object->icon=GetProperIcon(object->name,&fake,0);
// Ended up fake?
if (fake)
{
// Set flag
object->flags|=BDOF_FAKE_ICON;
}
}
// Got group icon?
if (object->icon && object->type==BDO_GROUP)
{
// Auto-open group?
if (FindToolType(object->icon->do_ToolTypes,"OPEN"))
object->flags|=BDOF_AUTO_OPEN;
}
}
// Had a lock?
if (lock)
{
// Got icon?
if (object->icon)
{
// Clear custom position flag
object->flags&=~BDOF_CUSTOM_POS;
#ifdef DISTINCT_OK
// Main desktop, distinct positions?
if (info->flags&BDIF_MAIN_DESKTOP &&
environment->env->desktop_flags&DESKTOPF_DISTINCT)
{
char path[256];
// Get icon path
if (desktop_icon_path(object,path,256,lock))
{
// See if position is available
if (desktop_find_icon(path,&object->custom_pos))
{
// Set "custom position" flag
object->flags|=BDOF_CUSTOM_POS;
}
}
}
#endif
}
// Restore current dir
CurrentDir(old);
// Unlock object lock
UnLock(lock);
}
}
// Failed to even get a lock; get default icon if a disk
else
if (object->type==BDO_DISK)
{
// Get default icon
if (!object->icon && (object->icon=GetCachedDefDiskObject(WBDISK)))
object->flags|=BDOF_FAKE_ICON;
}
}
// Got an icon?
if (object->icon)
{
// Ended up fake?
if (object->flags&BDOF_FAKE_ICON)
{
// Make sure default icon has no position
if (object->icon)
{
// Clear 'position ok' flag, set invalid position
SetIconFlags(object->icon,GetIconFlags(object->icon)&~ICONF_POSITION_OK);
SetIconPosition(object->icon,-1,-1);
object->icon->do_CurrentX=NO_ICON_POSITION;
object->icon->do_CurrentY=NO_ICON_POSITION;
}
}
// If this is a group, make sure icon is a drawer
if (object->type==BDO_GROUP)
object->icon->do_Type=WBDRAWER;
// Is it a new icon?
if (new_icon)
{
// Window open?
if (info->window)
{
// Remap the icon
RemapIcon(object->icon,info->window->WScreen,0);
// Set flag
object->flags|=BDOF_REMAPPED;
}
}
// Transparent icon?
if (!backdrop_icon_border(object))
{
border_x=0;
border_y=0;
}
else
{
border_x=ICON_BORDER_X;
border_y=ICON_BORDER_Y;
}
// No label?
if ((GetIconFlags(object->icon)&ICONF_NO_LABEL) && !(environment->env->desktop_flags&DESKTOPF_NO_NOLABELS))
object->flags|=BDOF_NO_LABEL;
else
object->flags&=~BDOF_NO_LABEL;
}
// No icon, or no size stuff?
if (!object->icon || flags&GETICON_NO_POS) return;
// Get masks
if (!(flags&GETICON_KEEP)) backdrop_get_masks(object);
// Get object size
object->pos.Width=object->icon->do_Gadget.Width;
object->pos.Height=object->icon->do_Gadget.Height;
// (Re)position?
if (!(flags&GETICON_SAVE_POS))
{
// No position initially
object->flags|=BDOF_NO_POSITION;
// Auto position?
if (object->flags&BDOF_AUTO_POSITION)
{
return;
}
// Custom position?
else
if (object->flags&(BDOF_CUSTOM_POS|BDOF_LEFTOUT_POS))
{
// Get custom position
x=(object->custom_pos>>16)&0xffff;
y=object->custom_pos&0xffff;
}
const char *fetch_filetype(const char *unix_path)
{
static char mimetype[50];
STRPTR ttype = NULL;
struct DiskObject *dobj = NULL;
BPTR lock = 0;
struct DataTypeHeader *dth = NULL;
struct DataType *dtn;
BOOL found = FALSE;
/* First try getting a tooltype "MIMETYPE" and use that as the MIME type. Will fail over
to default icons if the file doesn't have a real icon. */
if(dobj = GetIconTags(unix_path,ICONGETA_FailIfUnavailable,FALSE,
TAG_DONE))
{
ttype = FindToolType(dobj->do_ToolTypes, "MIMETYPE");
if(ttype)
{
strcpy(mimetype,ttype);
found = TRUE;
}
FreeDiskObject(dobj);
}
/* If that didn't work, have a go at guessing it using datatypes.library. This isn't
accurate - the base names differ from those used by MIME and it relies on the
user having a datatype installed which can handle the file. */
if(!found)
{
if (lock = Lock (unix_path, ACCESS_READ))
{
if (dtn = ObtainDataTypeA (DTST_FILE, (APTR)lock, NULL))
{
dth = dtn->dtn_Header;
switch(dth->dth_GroupID)
{
case GID_SYSTEM:
sprintf(mimetype,"application/%s",dth->dth_BaseName);
break;
case GID_TEXT:
case GID_DOCUMENT:
if(strcmp("ascii",dth->dth_BaseName)==0)
{
sprintf(mimetype,"text/plain",dth->dth_BaseName);
}
else if(strcmp("simplehtml",dth->dth_BaseName)==0)
{
sprintf(mimetype,"text/html",dth->dth_BaseName);
}
else
{
sprintf(mimetype,"text/%s",dth->dth_BaseName);
}
break;
case GID_SOUND:
case GID_INSTRUMENT:
case GID_MUSIC:
sprintf(mimetype,"audio/%s",dth->dth_BaseName);
break;
case GID_PICTURE:
sprintf(mimetype,"image/%s",dth->dth_BaseName);
break;
case GID_ANIMATION:
case GID_MOVIE:
sprintf(mimetype,"video/%s",dth->dth_BaseName);
break;
}
found = TRUE;
ReleaseDataType(dtn);
}
UnLock(lock);
}
}
if(!found) strcpy(mimetype,"text/html"); /* If all else fails */
//printf("%s: %s\n",unix_path,mimetype);
return mimetype;
}
void ami_init_mouse_pointers(void)
{
int i;
struct RastPort mouseptr;
struct DiskObject *dobj;
uint32 format = IDFMT_BITMAPPED;
int32 mousexpt=0,mouseypt=0;
InitRastPort(&mouseptr);
for(i=0;i<=AMI_LASTPOINTER;i++)
{
BPTR ptrfile = 0;
mouseptrbm[i] = NULL;
mouseptrobj[i] = NULL;
char ptrfname[1024];
#ifdef __amigaos4__
if(nsoption_bool(truecolour_mouse_pointers))
{
ami_get_theme_filename((char *)&ptrfname,ptrs32[i], false);
if(dobj = GetIconTags(ptrfname,ICONGETA_UseFriendBitMap,TRUE,TAG_DONE))
{
if(IconControl(dobj, ICONCTRLA_GetImageDataFormat, &format, TAG_DONE))
{
if(IDFMT_DIRECTMAPPED == format)
{
int32 width = 0, height = 0;
uint8* data = 0;
IconControl(dobj,
ICONCTRLA_GetWidth, &width,
ICONCTRLA_GetHeight, &height,
ICONCTRLA_GetImageData1, &data,
TAG_DONE);
if (width > 0 && width <= 64 && height > 0 && height <= 64 && data)
{
STRPTR tooltype;
if(tooltype = FindToolType(dobj->do_ToolTypes, "XOFFSET"))
mousexpt = atoi(tooltype);
if(tooltype = FindToolType(dobj->do_ToolTypes, "YOFFSET"))
mouseypt = atoi(tooltype);
if (mousexpt < 0 || mousexpt >= width)
mousexpt = 0;
if (mouseypt < 0 || mouseypt >= height)
mouseypt = 0;
static uint8 dummyPlane[64 * 64 / 8];
static struct BitMap dummyBitMap = { 64 / 8, 64, 0, 2, 0, { dummyPlane, dummyPlane, 0, 0, 0, 0, 0, 0 }, };
mouseptrobj[i] = NewObject(NULL, "pointerclass",
POINTERA_BitMap, &dummyBitMap,
POINTERA_XOffset, -mousexpt,
POINTERA_YOffset, -mouseypt,
POINTERA_WordWidth, (width + 15) / 16,
POINTERA_XResolution, POINTERXRESN_SCREENRES,
POINTERA_YResolution, POINTERYRESN_SCREENRESASPECT,
POINTERA_ImageData, data,
POINTERA_Width, width,
POINTERA_Height, height,
TAG_DONE);
}
}
}
}
}
#endif
if(!mouseptrobj[i])
{
ami_get_theme_filename(ptrfname,ptrs[i], false);
if(ptrfile = Open(ptrfname,MODE_OLDFILE))
{
int mx,my;
UBYTE *pprefsbuf = AllocVec(1061,MEMF_PRIVATE | MEMF_CLEAR);
Read(ptrfile,pprefsbuf,1061);
mouseptrbm[i]=AllocVec(sizeof(struct BitMap),MEMF_PRIVATE | MEMF_CLEAR);
InitBitMap(mouseptrbm[i],2,32,32);
mouseptrbm[i]->Planes[0] = AllocRaster(32,32);
mouseptrbm[i]->Planes[1] = AllocRaster(32,32);
mouseptr.BitMap = mouseptrbm[i];
for(my=0;my<32;my++)
{
for(mx=0;mx<32;mx++)
{
SetAPen(&mouseptr,pprefsbuf[(my*(33))+mx]-'0');
WritePixel(&mouseptr,mx,my);
}
}
mousexpt = ((pprefsbuf[1056]-'0')*10)+(pprefsbuf[1057]-'0');
mouseypt = ((pprefsbuf[1059]-'0')*10)+(pprefsbuf[1060]-'0');
mouseptrobj[i] = NewObject(NULL,"pointerclass",
POINTERA_BitMap,mouseptrbm[i],
POINTERA_WordWidth,2,
POINTERA_XOffset,-mousexpt,
POINTERA_YOffset,-mouseypt,
POINTERA_XResolution,POINTERXRESN_SCREENRES,
POINTERA_YResolution,POINTERYRESN_SCREENRESASPECT,
TAG_DONE);
FreeVec(pprefsbuf);
Close(ptrfile);
}
}
} // for
}
VOID __stdargs
__main( char *argstring )
{
static struct Args args;
LONG rev;
/* Get arguments if started from CLI */
if( !_WBenchMsg )
{
if( !( RDArgs = ReadArgs( TEMPLATE, ( IPTR * ) &args, NULL ) ) )
{
PrintFault( IoErr(), GetString( MSG_ERROR_ARGS ) );
__exit( 0 );
}
}
IntuiHook.h_Entry = ( HOOKFUNC ) IntuiMsgFunc;
// DefaultPrefs.Flags = 0;
DefaultPrefs.ReqDefaults[ RTPREF_OTHERREQ ].ReqPos = REQPOS_POINTER;
DefaultPrefs.ReqDefaults[ RTPREF_FILEREQ ].Size = 75;
DefaultPrefs.ReqDefaults[ RTPREF_FONTREQ ].Size =
DefaultPrefs.ReqDefaults[ RTPREF_SCREENMODEREQ ].Size =
DefaultPrefs.ReqDefaults[ RTPREF_VOLUMEREQ ].Size = 65;
DefaultPrefs.ReqDefaults[ RTPREF_FILEREQ ].ReqPos =
DefaultPrefs.ReqDefaults[ RTPREF_FONTREQ ].ReqPos =
DefaultPrefs.ReqDefaults[ RTPREF_SCREENMODEREQ ].ReqPos =
DefaultPrefs.ReqDefaults[ RTPREF_VOLUMEREQ ].ReqPos =
DefaultPrefs.ReqDefaults[ RTPREF_PALETTEREQ ].ReqPos = REQPOS_TOPLEFTSCR;
DefaultPrefs.ReqDefaults[ RTPREF_FILEREQ ].LeftOffset =
DefaultPrefs.ReqDefaults[ RTPREF_FONTREQ ].LeftOffset =
DefaultPrefs.ReqDefaults[ RTPREF_SCREENMODEREQ ].LeftOffset =
DefaultPrefs.ReqDefaults[ RTPREF_VOLUMEREQ ].LeftOffset =
DefaultPrefs.ReqDefaults[ RTPREF_PALETTEREQ ].LeftOffset =
DefaultPrefs.ReqDefaults[ RTPREF_OTHERREQ ].LeftOffset = 25;
DefaultPrefs.ReqDefaults[ RTPREF_FILEREQ ].TopOffset =
DefaultPrefs.ReqDefaults[ RTPREF_FONTREQ ].TopOffset =
DefaultPrefs.ReqDefaults[ RTPREF_SCREENMODEREQ ].TopOffset =
DefaultPrefs.ReqDefaults[ RTPREF_VOLUMEREQ ].TopOffset =
DefaultPrefs.ReqDefaults[ RTPREF_PALETTEREQ ].TopOffset =
DefaultPrefs.ReqDefaults[ RTPREF_OTHERREQ ].TopOffset = 18;
DefaultPrefs.ReqDefaults[ RTPREF_FILEREQ ].MinEntries = 10;
DefaultPrefs.ReqDefaults[ RTPREF_FONTREQ ].MinEntries =
DefaultPrefs.ReqDefaults[ RTPREF_SCREENMODEREQ ].MinEntries =
DefaultPrefs.ReqDefaults[ RTPREF_VOLUMEREQ ].MinEntries = 6;
DefaultPrefs.ReqDefaults[ RTPREF_FILEREQ ].MaxEntries = 50;
DefaultPrefs.ReqDefaults[ RTPREF_FONTREQ ].MaxEntries =
DefaultPrefs.ReqDefaults[ RTPREF_SCREENMODEREQ ].MaxEntries =
DefaultPrefs.ReqDefaults[ RTPREF_VOLUMEREQ ].MaxEntries = 10;
if( !( IntuitionBase = ( struct IntuitionBase * ) OpenLibrary( "intuition.library", 37 ) ) )
{
BPTR con;
if( ( con = Open( "CON:40/20/320/40/ReqTools 2.8", MODE_NEWFILE ) ) )
{
Write( con, "\nNeed OS 2.04 or better!\n", 25 );
Delay( 120L );
Close( con );
}
FreeExit( 0 );
}
InitLocale();
GfxBase = OpenLib( "graphics.library", 37 );
UtilityBase = OpenLib( "utility.library", 36 );
IconBase = OpenLib( "icon.library", 0 );
GadToolsBase = OpenLib( "gadtools.library", 37 );
ReqToolsBase = OpenLib( "reqtools.library", 38 );
rev = ReqToolsBase->LibNode.lib_Revision;
if( ( rev >= 693 && rev <= 811 ) || ( rev >= 347 && rev <= 363 ) )
{
LocEZReq( MSG_WRONG_REQTOOLS_VERSION, MSG_ABORT );
FreeExit( RETURN_FAIL );
}
if( rtLockPrefs()->PrefsSize != PREFSLEN )
{
LocEZReq( MSG_ALL_PREFS_NOT_SUPPORTED, MSG_OK );
}
rtUnlockPrefs();
if( _WBenchMsg )
{
struct WBArg *wbarg;
BPTR oldcd;
CreateIcons = TRUE;
wbarg = &_WBenchMsg->sm_ArgList[ 0 ];
oldcd = CurrentDir( wbarg->wa_Lock );
if( ( DiskObject = GetDiskObject( wbarg->wa_Name ) ) )
{
STRPTR str;
if( ( str = FindToolType( (UBYTE **)DiskObject->do_ToolTypes, "CREATEICONS" ) ) )
{
CreateIcons = Stricmp( str, "NO" );
}
if( ( str = FindToolType( (UBYTE **)DiskObject->do_ToolTypes, "SCREENFONT" ) ) )
{
UseScreenFont = Stricmp( str, "NO" );
}
if( ( str = FindToolType( (UBYTE **)DiskObject->do_ToolTypes, "PUBSCREEN" ) ) )
{
args.PubScreen = str;
}
}
CurrentDir( oldcd );
}
else
{
if( args.ScreenFont )
{
UseScreenFont = Stricmp( args.ScreenFont, "NO" );
}
}
if( !( FileReq = rtAllocRequestA( RT_FILEREQ, NULL ) ) )
{
FreeExit( RETURN_FAIL );
}
{
struct TagItem tags[] =
{
{RTFI_Dir , (IPTR)"Presets" },
{TAG_DONE }
};
rtChangeReqAttrA( FileReq, tags );
}
/* Get current prefs from ReqTools */
CopyMem( rtLockPrefs(), &RTPrefs, sizeof( struct ReqToolsPrefs ) );
rtUnlockPrefs();
/* If FROM was used load prefs from disk */
if( args.From )
{
if( !LoadConfig( args.From ) )
{
FreeExit( RETURN_ERROR );
}
}
WheelType = GetWheelType( RTPrefs.Flags );
if( !( Screen = LockPubScreen( args.PubScreen ) ) )
{
LocEZReq( MSG_COULDNT_LOCK_PUBSCREEN, MSG_ABORT );
FreeExit( RETURN_ERROR );
}
if( !( DrawInfo = GetScreenDrawInfo( Screen ) ) )
{
LocEZReq( MSG_ERROR_GETSCREENDRAWINFO, MSG_ABORT );
FreeExit( RETURN_ERROR );
}
if( !( VisualInfo = GetVisualInfoA( Screen, NULL ) ) )
{
LocEZReq( MSG_ERROR_GETVISUALINFO, MSG_ABORT );
FreeExit( RETURN_FAIL );
}
if( IntuitionBase->LibNode.lib_Version >= 39 )
{
Zoom[ 0 ] = Zoom[ 1 ] = 65535;
}
else
{
Zoom[ 1 ] = Screen->BarHeight + 1;
}
Zoom[ 2 ] = 250;
Zoom[ 3 ] = Screen->WBorTop + Screen->Font->ta_YSize + 1;
LocalizeMenus( NewMenu );
if( !( Menus = CreateMenusA( NewMenu, NULL ) ) )
{
LocEZReq( MSG_ERROR_MENUS, MSG_ABORT );
FreeExit( RETURN_FAIL );
}
LayoutMenus( Menus, VisualInfo,
GTMN_NewLookMenus, TRUE,
TAG_END );
if( !OpenGUI() )
{
LocEZReq( MSG_COULDNT_OPEN_WINDOW, MSG_ABORT );
FreeExit( RETURN_FAIL );
}
{
struct MenuItem *iconItem;
iconItem = ItemAddress( Menus, FULLMENUNUM( OPTIONS_MENU, SAVEICONS_ITEM, NOSUB ) );
if( !CreateIcons )
{
iconItem->Flags &= ~CHECKED;
}
}
CurrentReq = RTPREF_FILEREQ;
ReqDefs = &RTPrefs.ReqDefaults[ CurrentReq ];
LoopGUI();
FreeExit( 0 );
}
