/**************************************************************************/
/*                                                                        */
/*  MIconInfo    -   Ruft unter OS3.0 WBInfo() auf      Version 1.0r001   */
/*                                                                        */
/*  ©1994 Boris Jakubaschk    Entwicklungszeit: 28.05.1994 - 28.05.1994   */
/*                                                                        */
/*  Idee und erste Version in E programmiert von Lionel Vintenat          */
/*                                                                        */
/**************************************************************************/

#include <exec/types.h>
#include <exec/libraries.h>
#include <intuition/intuition.h>
#include <clib/exec_protos.h>
#include <clib/intuition_protos.h>
#include <clib/dos_protos.h>
#include <dos/dos.h>
#include <workbench/workbench.h>
#include <string.h>

main( int argc, char *argv[])
   {
   struct Library *WbBase;
   struct Screen  *Scr;
   char Path[130];
   char FileName[30];
   char *a;
   BPTR FL;

   if (WbBase = OpenLibrary( "workbench.library", 39 ))
       {
       if (argc>1)
           {
           a = FilePart( argv[1] );
           strcpy( Path, argv[1] );
           Path[a-argv[1]]='\0';
           strcpy( FileName, a );
           if ((strlen(FileName)>5)
            && (stricmp( FileName+strlen(FileName)-5, ".info" )==0))
               FileName[strlen(FileName)-5] = '\0';
           if (FL = Lock( Path, ACCESS_READ ))
               {
               if (Scr = LockPubScreen( 0 ))
                   {
                   WBInfo( FL, FileName, Scr );
                   UnlockPubScreen( NULL, Scr );
                   };
               UnLock( FL );
               };
           };
       CloseLibrary( WbBase );
       };
   }