Changeset 3630 for trunk/tools

Timestamp:

May 29, 2000, 9:46:29 PM (25 years ago)

Author:

bird

Message:

Work in progress...

Location:

trunk/tools/dbginfo

Files:

• kHll.cpp (modified) (11 diffs)
• kHll.h (modified) (7 diffs)

trunk/tools/dbginfo/kHll.cpp

@@ -1 @@
-/* $Id: kHll.cpp,v 1.13 2000-05-27 02:15:41 bird Exp $
+/* $Id: kHll.cpp,v 1.14 2000-05-29 19:46:28 bird Exp $
  *
  * kHll - Implementation of the class kHll.
@@ -95 +95 @@
 
 /**
- * Loops thru the given list and call the dump function for each
+ * Loops thru the given list and call the dump method for each
  * node with the passed in parameters.
  * @param       ph          Dump file handle.
@@ -114 +114 @@
 
 
+/**
+ * Loops thru the given list and call the ida method for each
+ * node with the passed in parameters.
+ * !!!NOTE!!! THIS IS ONLY TO BE USED FOR YOUR OWN PROGRAMS!!!
+ * @param       pFile   Output file.
+ * @param       pEntry      Indent.
+ */
+void kHllBaseEntry::idaList(kFile *pFile, kHllBaseEntry *pEntry)
+{
+    /*
+     * Loop thru the list staring at pEntry and call ida for each entry.
+     */
+    while (pEntry != NULL)
+    {
+        pEntry->ida(pFile);
+        pEntry = (kHllBaseEntry*)pEntry->getNext();
+    }
+}
 
 
@@ -200 +218 @@
      * Dump public symbol entry
      */
-    fprintf(ph, "%*.s0x%04x:0x%08x  type:%04d(0x%04)  name: %.*s\n",
+    fprintf(ph, "%*.s0x%04x:0x%08x  type:%5d(0x%04x)  name: %.*s\n",
             cchIndent, "",
             pPubSym->iObject,
@@ -206 +224 @@
             pPubSym->iType,
             pPubSym->iType,
-            pPubSym->cchName, pPubSym->achName
+            pPubSym->cchName, &pPubSym->achName[0]
             );
 }
+
+
+/**
+ * Create IDC (IDA Pro) calls which adds info contained in the entry
+ * to the ida pro database.
+ * !!!NOTE!!! THIS IS ONLY TO BE USED FOR YOUR OWN PROGRAMS!!!
+ * @param       pFile   Output file.
+ */
+void            kHllPubSymEntry::ida(kFile *pFile) throw(int)
+{
+    #if 0
+    pFile->printf("    /* PubSym %.*s */\n",
+                  pPubSym->cchName, &pPubSym->achName[0]);
+    #endif
+    pFile->printf("    ea = SegByBase(%d) + 0x%08x; MakeName(ea, \"\"); MakeName(ea, \"%.*s\");\n",
+                  pPubSym->iObject,
+                  pPubSym->off,
+                  pPubSym->cchName, &pPubSym->achName[0]
+                  );
+}
+
+
+
+
 
 
@@ -383 +425 @@
 
 
+/**
+ * Create IDC (IDA Pro) calls which adds info contained in the entry
+ * to the ida pro database.
+ * !!!NOTE!!! THIS IS ONLY TO BE USED FOR YOUR OWN PROGRAMS!!!
+ * @param       pFile   Output file.
+ */
+void            kHllLineNumberChunk::ida(kFile *pFile) throw(int)
+{
+    pFile->printf("    /* Line number chunk */\n");
+}
+
+
+
+
 
 
@@ -624 +680 @@
 }
 
+
+/**
+ * Create IDC (IDA Pro) calls which adds info contained in the entry
+ * to the ida pro database.
+ * !!!NOTE!!! THIS IS ONLY TO BE USED FOR YOUR OWN PROGRAMS!!!
+ * @param       pFile   Output file.
+ */
+void            kHllSrcEntry::ida(kFile *pFile) throw(int)
+{
+    pFile->printf("    /* Source entry */\n");
+}
 
 
@@ -1059 +1126 @@
 
 
+/**
+ * Create IDC (IDA Pro) calls which adds info contained in the entry
+ * to the ida pro database.
+ * !!!NOTE!!! THIS IS ONLY TO BE USED FOR YOUR OWN PROGRAMS!!!
+ * @param       pFile   Output file.
+ */
+void            kHllModuleEntry::ida(kFile *pFile) throw(int)
+{
+    pFile->printf("    /* kHllModuleEntry */\n");
+
+    /*
+     * Write the sub-entries.
+     */
+    kHllBaseEntry::idaList(pFile, PublicSymbols.getFirst());
+    /*
+    kHllBaseEntry::dumpList(ph, 8, Types.getFirst());
+    kHllBaseEntry::dumpList(ph, 8, Symbols.getFirst());
+    kHllBaseEntry::dumpList(ph, 8, Source.getFirst());
+    */
+    Source.ida(pFile);
+}
 
 
@@ -1289 +1377 @@
                 if (paSegInfo != NULL)
                     free(paSegInfo);
-                fprintf(stderr, "Module directory entry: %s\n", szName);
                 break;
             }
 
-            case HLL_DE_PUBLICS:        /* Public symbols */
-                fprintf(stderr, "Publics directory entry\n");
-                break;
+
+            /*
+             * Public symbols
+             */
+            case HLL_DE_PUBLICS:
+            {
+                HLLPUBLICSYM  pubSym;
+
+                if (pCurMod == NULL || iCurMod != pDirEntry->iMod)
+                {
+                    fprintf(stderr, "hmm. iMod in public entry not equal to current module\n");
+                    break;
+                }
+
+                fprintf(stderr, "HLL_DE_PUBLICS\n");
+                pFile->set(pDirEntry->off + offHllHdr);
+                while (pFile->getPos() - pDirEntry->off - offHllHdr < pDirEntry->cb)
+                {
+                    pFile->read(&pubSym, sizeof(pubSym) - 1);
+                    pFile->read(szName, pubSym.cchName);
+                    szName[pubSym.cchName] = '\0';
+
+                    fprintf(stderr, "HLL_DE_PUBLICS\n");
+                    pCurMod->addPublicSymbol(szName,
+                                             pubSym.cchName,
+                                             pubSym.off,
+                                             pubSym.iObject,
+                                             (void*)pubSym.iType);
+                }
+            }
 
             case HLL_DE_TYPES:          /* Types */
@@ -1429 +1543 @@
             this, Modules.getCount());
 }
+
+
+/**
+ * Create IDC (IDA Pro) scripts which adds debuginfo to the ida pro database.
+ * !!!NOTE!!! THIS IS ONLY TO BE USED FOR YOUR OWN PROGRAMS!!!
+ * @param       pFile   Output file.
+ */
+void            kHll::ida(kFile *pFile) throw(int)
+{
+    pFile->printf("/* !!!NOTE!!! THIS IS ONLY TO BE USED FOR YOUR OWN PROGRAMS!!!*/\n"
+                  "#include <idc.idc>\n"
+                  "static main() {\n"
+                  "    auto ea;\n"
+                  );
+
+    kHllModuleEntry *   pMod =  Modules.getFirst();
+    while (pMod != NULL)
+    {
+        /* Dump it */
+        pMod->ida(pFile);
+
+        /* Next module */
+        pMod = (kHllModuleEntry*)pMod->getNext();
+    }
+
+    pFile->printf("}\n\n");
+}
+
 
 
@@ -1670 +1812 @@
     kHll *pHll;
 
-    /* read my self */
-    pHll = kHll::readLX(argv[0]);
+    /* read last argument */
+    pHll = kHll::readLX(argv[argc-1]);
     if (pHll)
     {
         printf("Successfully read %s\n", argv[0]);
         pHll->dump();
+        kFile kidc("dbg.idc", FALSE);
+        pHll->ida(&kidc);
     }
     argc = argc;

trunk/tools/dbginfo/kHll.h

@@ -1 @@
-/* $Id: kHll.h,v 1.8 2000-05-27 02:15:42 bird Exp $
+/* $Id: kHll.h,v 1.9 2000-05-29 19:46:29 bird Exp $
  *
  * kHll - Declarations of the class kHll.
@@ -46 +46 @@
     virtual void    dump(FILE *ph, int cchIndent) = 0;
     static  void    dumpList(FILE *ph, int cchIndent, kHllBaseEntry *pEntry);
+
+    /**
+     * Create IDC (IDA Pro) calls which adds info contained in the entry
+     * to the ida pro database.
+     * !!!NOTE!!! THIS IS ONLY TO BE USED FOR YOUR OWN PROGRAMS!!!
+     * @param       pFile   Output file.
+     */
+    virtual void    ida(kFile *pFile) throw(int) = 0;
+    static void     idaList(kFile *pFile, kHllBaseEntry *pEntry) throw(int);
 };
 
@@ -71 +80 @@
     int             write(FILE *phFile);
     void            dump(FILE *ph, int cchIndent);
+    void            ida(kFile *pFile) throw(int);
 };
 
@@ -100 +110 @@
     int             write(FILE *phFile);
     void            dump(FILE *ph, int cchIndent);
+    void            ida(kFile *pFile) throw(int);
 
     int             getSeg()    { return FirstEntry.hll04.iSeg; }
@@ -138 +149 @@
     int             write(FILE *phFile);
     void            dump(FILE *ph, int cchIndent);
+    void            ida(kFile *pFile) throw(int);
 };
 
@@ -232 +244 @@
      */
     void            dump(FILE *ph);
+    void            ida(kFile *pFile) throw(int);
 };
 
@@ -305 +318 @@
      */
     void                dump();
+    void                ida(kFile *pFile) throw(int);
 };