ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng)/ProfitPress-MegaCDROM2.B6I/MISC/OS2/IMPLIST.ZIP/IMPLIST.C

C/C++ Source or Header | 1991-07-28 | 7.0 KB | 270 lines

/*
 *
 * SYNOPSIS
 *
 *    implist pathname
 *
 *
 *
 * DESCRIPTION
 *
 *     IMPLIST  Will list exported function names and cardinal numbers
 *    from a xxx.lib file on OS/2 1.2 and 1.3.  The lib file may be one
 *    supplied by the compiler vendor such as OS2.LIB or it can be created
 *    from any xxx.DLL by using the IMPLIB utility, such as supplied by
 *    the MICROSOFT C compiler:  implib  xxx.LIB  xxx.DLL .
 *
 *
 *    Aside from simple informational purposes, IMPLIST is intended to build
 *    a simple sequential database of exported function names and cardinal
 *    numbers which can be used by IMPFILT to add the name information to the
 *    output of the MICROSOFT EXEHDR utility.  This can be helpful when
 *    reverse engineering a software component such as PSTAT.EXE.
 *
 *
 * COMPILATION
 *
 *    See implist.mak for a simple makefile to be used with NMAKE.
 *
 * AUTHOR
 *
 *     Stephen L. Reed, Stephen Reed Software.
 *
 *
 *         NET:        [e-mail]
 *         BIX:        sreed
 *         COMPUSERVE: 70401,3342
 *
 *
 *         Your comments are appreciated!
 *
 *
 * COPYRIGHT
 *
 *    Copyright (c) 1990-91  Stephen L. Reed.  All rights reserved.
 *
 *    Redistribution and use in source and binary forms are permitted
 *    provided that the above copyright notice and this paragraph are
 *    duplicated in all such forms and that any documentation,
 *    advertising materials, and other materials related to such
 *    distribution and use acknowledge that the software was developed
 *    by Stephen L. Reed.
 *
 *    THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
 *    IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
 *    WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
 *
 */


#include    <stdio.h>             /* Library I/O routines.    */
#include    <stdlib.h>            /* Library common routines. */
#include    <string.h>            /* Library string routines. */

#define     INCL_BASE
#include    <os2.h>

#include    "SYMTYPES.H"

PCHAR             ErrTxt1           = "Usage: IMPLIST implib-path" ;

CHAR              szImpLib [ 20 ]   = "" ;
FILE *            hfImpLib ;

USHORT            cInternalNameLen  = 0 ;
UCHAR             szInternalName [ 50 ] ;

USHORT            cExternalNameLen  = 0 ;
UCHAR             szExternalName [ 50 ] ;

USHORT            cDllNameLen       = 0 ;
UCHAR             szDllName [ 50 ] ;

USHORT            usOrdinal         = 0 ;

USHORT            i ;
USHORT            cBytes            = 0 ;
SHORT             sChar ;
SHORT             sChar1 ;
SHORT             sChar2 ;
SHORT             sChar3 ;
SHORT             sChar4 ;
SHORT             sChar5 ;
SHORT             sChar6 ;
SHORT             sChar7 ;
SHORT             sChar8 ;

SHORT             sLo               = 0 ;
SHORT             sHi               = 0 ;


USHORT            usStatus          = 0 ;



/*------------------------------------------------------------*/
/* Main function.                                             */
/*------------------------------------------------------------*/

main ( USHORT argc, PCHAR argv [] )
   {

   if ( argc < 2 )
      {
      printf ( "%s\n", ErrTxt1 ) ;
      DosExit ( 1, 1 ) ;
      }

   if ( strlen ( argv [ 1 ] ) < 2 )
      {
      printf ( "%s\n", ErrTxt1 ) ;
      DosExit ( 1, 1 ) ;
      }

   strcpy ( szImpLib, argv [ 1 ] ) ;

   hfImpLib = fopen ( szImpLib, "rb" ) ;

   if ( ! hfImpLib )
      {
      printf ( "\nError - Cannot open %s file\n\n", szImpLib ) ;

      DosExit ( 1, 1 ) ;
      }

   for ( i  = 0 ; i < 8 ; i++ )
      sChar = fgetc ( hfImpLib ) ;

   for ( ; ; )
      {
      sChar1   = fgetc ( hfImpLib ) ;
      sChar2   = fgetc ( hfImpLib ) ;
      sChar3   = fgetc ( hfImpLib ) ;
      sChar4   = fgetc ( hfImpLib ) ;
      sChar5   = fgetc ( hfImpLib ) ;
      sChar6   = fgetc ( hfImpLib ) ;
      sChar7   = fgetc ( hfImpLib ) ;
      sChar8   = fgetc ( hfImpLib ) ;

      cBytes   = 8 ;


               /*---------------------------------------------*/
               /* Parse the identifying character string      */
               /* which proceeds the internal name.           */
               /*---------------------------------------------*/

      for ( ; ; )
         {

         if (( sChar1 == 0 ) &&
             ( sChar2 == 0 ) &&
             ( sChar3 == 0 ) &&
             ( sChar4 == 0x80 ) &&
             ( sChar7 > 0 ) &&
             ( sChar7 < 40 ) &&
             ( sChar8 >= 'A' ) &&
             ( sChar8 <= 'Z' ))
            break ;

         if ( cBytes > 500 )
            DosExit ( EXIT_PROCESS, 0 ) ;

         sChar1   = sChar2 ;
         sChar2   = sChar3 ;
         sChar3   = sChar4 ;
         sChar4   = sChar5 ;
         sChar5   = sChar6 ;
         sChar6   = sChar7 ;
         sChar7   = sChar8 ;
         sChar8   = fgetc ( hfImpLib ) ;

         cBytes++ ;
         }

               /*---------------------------------------------*/
               /* Parse the function internal name.           */
               /*---------------------------------------------*/

      cInternalNameLen     = sChar7 ;
      szInternalName [ 0 ] = ( UCHAR ) sChar8 ;

      for ( i  = 1 ; i < cInternalNameLen ; i++ )
         {
         szInternalName [ i ] = ( UCHAR ) fgetc ( hfImpLib ) ;

         cBytes++ ;
         }

      szInternalName [ i ] = '\0' ;

      for ( i  = 0 ; i < 8 ; i++ )
         {
         sChar = fgetc ( hfImpLib ) ;

         cBytes++ ;
         }

               /*---------------------------------------------*/
               /* Parse the function external name.           */
               /*---------------------------------------------*/

      cExternalNameLen  = fgetc ( hfImpLib ) ;

      cBytes++ ;

      for ( i  = 0 ; i < cExternalNameLen ; i++ )
         {
         szExternalName [ i ] = ( UCHAR ) fgetc ( hfImpLib ) ;

         cBytes++ ;
         }

      szExternalName [ i ] = '\0' ;


               /*---------------------------------------------*/
               /* Parse the function DLL cardinal name.       */
               /*---------------------------------------------*/

      cDllNameLen          = fgetc ( hfImpLib ) ;

      cBytes++ ;

      for ( i  = 0 ; i < cDllNameLen ; i++ )
         {
         szDllName [ i ]   = ( UCHAR ) fgetc ( hfImpLib ) ;

         cBytes++ ;
         }

      szDllName [ i ]   = '\0' ;

      sLo               = fgetc ( hfImpLib ) ;

      cBytes++ ;

      sHi               = fgetc ( hfImpLib ) ;

      cBytes++ ;

      usOrdinal         = MAKEUSHORT ( sLo, sHi ) ;

      printf (
         "%-32s %s.%u\n",
         szExternalName,
         szDllName,
         usOrdinal ) ;

      }

               /* Suppress warning message.                   */
   return ( 0 ) ;

   }           /* End of main function.                       */