The CDPD Public Domain Collection for CDTV 3/CDPDIII.bin/pd/programming/gnuc/library/rcs/_wb_parse.c,v

Text File | 1992-08-09 | 4.4 KB | 196 lines

head    1.2;
access;
symbols
    version39-41:1.1;
locks;
comment    @ *  @;


1.2
date    92.08.09.20.42.46;    author amiga;    state Exp;
branches;
next    1.1;

1.1
date    92.05.14.19.55.40;    author mwild;    state Exp;
branches;
next    ;


desc
@provide WB specific startup to ixemul programs
@


1.2
log
@get rid of some warnings
@
text
@/*
 *  This file is part of ixemul.library for the Amiga.
 *  Copyright (C) 1991, 1992  Markus M. Wild
 *
 *  This library is free software; you can redistribute it and/or
 *  modify it under the terms of the GNU Library General Public
 *  License as published by the Free Software Foundation; either
 *  version 2 of the License, or (at your option) any later version.
 *
 *  This library 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
 *  Library General Public License for more details.
 *
 *  You should have received a copy of the GNU Library General Public
 *  License along with this library; if not, write to the Free
 *  Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 *
 *  $Id: _wb_parse.c,v 1.1 1992/05/14 19:55:40 mwild Exp $
 *
 *  $Log: _wb_parse.c,v $
 *  Revision 1.1  1992/05/14  19:55:40  mwild
 *  Initial revision
 *
 */

/*
 * Originally written by Olaf "Olsen" Barthel. Thanks Olsen!
 * I left his indentation style...
 */

#define KERNEL
#include "ixemul.h"

#include <workbench/workbench.h>
#include <workbench/startup.h>

#define BASE_EXT_DECL
#define BASE_PAR_DECL  void *iconbase,
#define BASE_PAR_DECL0 void *iconbase
#define BASE_NAME      iconbase
#include <inline/icon.h>

    /* wb_parse():
     *
     *    A more or less decent rewrite of Manx' original
     *    wb_parse() routine which will do the following:
     *
     *    - if open_wb_window is zero no console window
     *      will be opened.
     *
     *    - if default_wb_window points to a valid string
     *      it will be used to open the window.
     *
     *    - if everything fails, read the icon file,
     *      scan it for a "WINDOW" tool type and take
     *      the corresponding tool type entry string
     *      (somewhat primitive if compared to the Macintosh
     *      way of doing it...).
     *
     *    This routine will return TRUE if it was able to
     *    open an output file, FALSE otherwise.
     */

int
_wb_parse(struct Process *ThisProcess,struct WBStartup *WBenchMsg,
      char *default_wb_window)
{
  void  *iconbase;
  char    *WindowName    = NULL;
  int    fd = -1;

        /* Are we to open a console window? */

    if(default_wb_window != (char *)-1)
    {

            /* Any special name preference? */

        if(default_wb_window)
            WindowName = default_wb_window;
        else
        {
                /* Do we have a valid tool window? */

            if(WBenchMsg -> sm_ToolWindow)
                WindowName = WBenchMsg -> sm_ToolWindow;
            else
            {
                    /* Open icon.library. */

                if(iconbase = OpenLibrary("icon.library",0))
                {
                    struct DiskObject *Icon;

                        /* Try to load the icon file. */

                    if(Icon = GetDiskObject(iconbase, WBenchMsg -> sm_ArgList[0] . wa_Name))
                    {
                            /* Look for a "WINDOW" tool type. */

                        WindowName = (u_char *) FindToolType(iconbase, (u_char **) Icon -> do_ToolTypes, "WINDOW");
                        if (WindowName)
                            WindowName = strdup (WindowName);

                        FreeDiskObject(iconbase, Icon);
                    }

                    CloseLibrary(iconbase);
                }
            }
        }

            /* Are we to open a file? */

        if (WindowName)
          fd = syscall (SYS_open, WindowName, 2);
        if (fd != -1)
          {
            /* this fd "should" be 0, since we didn't open any files
             * till now when running under workbench */
            if (fd != 0)
                ix_panic ("_wb_parse: first opened fd != 0!");

            ThisProcess -> pr_ConsoleTask    = u.u_ofile[fd]->f_fh->fh_Type;
            syscall (SYS_dup2, fd, 2);
            /* now dup() the descriptor to cover an additional descriptor,
             * so that by closing 0-2 pr_ConsoleTask doesn't vanish yet */
            syscall (SYS_dup2, fd, NOFILE-1);
                syscall (SYS_close, fd);


            fd = syscall (SYS_open, "*", 0);
            if (fd != -1)
              ThisProcess -> pr_CIS        = CTOBPTR (u.u_ofile[fd]->f_fh);

            fd = syscall (SYS_open, "*", 1);
              ThisProcess -> pr_COS        = CTOBPTR (u.u_ofile[fd]->f_fh);

            return 1;
          }
    }

    return(FALSE);
}
@


1.1
log
@Initial revision
@
text
@d19 1
a19 1
 *  $Id$
d21 4
a24 1
 *  $Log$
d28 1
a28 1
 * Originally written by Olaf Barthel. Thanks Olaf!
d102 1
a102 1
                        WindowName = FindToolType(iconbase, Icon -> do_ToolTypes,"WINDOW");
@