Subversion Repositories pentevo

Rev

Blame | Last modification | View Log | Download | RSS feed

  1. /* plist.c */
  2. /*****************************************************************************/
  3. /* SPDX-License-Identifier: GPL-2.0-only OR GPL-3.0-only                     */
  4. /*                                                                           */
  5. /* AS-Portierung                                                             */
  6. /*                                                                           */
  7. /* Anzeige des Inhalts einer Code-Datei                                      */
  8. /*                                                                           */
  9. /*****************************************************************************/
  10.  
  11. #include "stdinc.h"
  12. #include <string.h>
  13.  
  14. #include "version.h"
  15. #include "be_le.h"
  16. #include "bpemu.h"
  17. #include "stringlists.h"
  18. #include "cmdarg.h"
  19. #include "msg_level.h"
  20. #include "nls.h"
  21. #include "nlmessages.h"
  22. #include "plist.rsc"
  23. #ifdef _USE_MSH
  24. # include "plist.msh"
  25. #endif
  26. #include "ioerrs.h"
  27. #include "strutil.h"
  28. #include "toolutils.h"
  29. #include "headids.h"
  30.  
  31. /* --------------------------------------------------------------- */
  32.  
  33. static unsigned num_files;
  34. LongWord Sums[SegCount];
  35.  
  36. /* --------------------------------------------------------------- */
  37.  
  38. static void ProcessSingle(const char *pFileName)
  39. {
  40.   FILE *ProgFile;
  41.   Byte Header, Segment, Gran, CPU;
  42.   const TFamilyDescr *FoundId;
  43.   int Ch;
  44.   Word Len, ID;
  45.   LongWord StartAdr;
  46.   Boolean HeadFnd;
  47.  
  48.   ProgFile = fopen(pFileName, OPENRDMODE);
  49.   if (!ProgFile)
  50.     ChkIO(pFileName);
  51.  
  52.   if (!Read2(ProgFile, &ID))
  53.     chk_wr_read_error(pFileName);
  54.   if (ID != FileMagic)
  55.     FormatError(pFileName, getmessage(Num_FormatInvHeaderMsg));
  56.  
  57.   if (num_files > 1)
  58.     printf("%s\n", pFileName);
  59.  
  60.   do
  61.   {
  62.     ReadRecordHeader(&Header, &CPU, &Segment, &Gran, pFileName, ProgFile);
  63.  
  64.     HeadFnd = False;
  65.  
  66.     if (num_files > 1)
  67.       printf("%s", Blanks(strlen(getmessage(Num_MessHeaderLine1F))));
  68.     if (Header == FileHeaderEnd)
  69.     {
  70.       if (fputs(getmessage(Num_MessGenerator), stdout) == EOF) ChkIO(OutName);
  71.       do
  72.       {
  73.         errno = 0; Ch = fgetc(ProgFile); ChkIO(pFileName);
  74.         if (Ch != EOF)
  75.         {
  76.           if (EOF == putchar(Ch)) ChkIO(OutName);
  77.         }
  78.       }
  79.       while (Ch != EOF);
  80.       chkio_printf(OutName, "\n");
  81.       HeadFnd = True;
  82.     }
  83.  
  84.     else if (Header == FileHeaderStartAdr)
  85.     {
  86.       if (!Read4(ProgFile, &StartAdr))
  87.         chk_wr_read_error(pFileName);
  88.       chkio_printf(OutName, "%s%08lX\n", getmessage(Num_MessEntryPoint), LoDWord(StartAdr));
  89.     }
  90.  
  91.     else if (Header == FileHeaderRelocInfo)
  92.     {
  93.       PRelocInfo RelocInfo;
  94.       PRelocEntry PEntry;
  95.       PExportEntry PExp;
  96.       int z;
  97.  
  98.       RelocInfo = ReadRelocInfo(ProgFile);
  99.       for (z = 0,  PEntry = RelocInfo->RelocEntries; z < RelocInfo->RelocCount; z++, PEntry++)
  100.         printf("%s  %08lX        %3d:%d(%c)     %c%s\n",
  101.                getmessage(Num_MessRelocInfo),
  102.                LoDWord(PEntry->Addr), RelocBitCnt(PEntry->Type) >> 3,
  103.                RelocBitCnt(PEntry->Type) & 7,
  104.                (PEntry->Type & RelocFlagBig) ? 'B' : 'L',
  105.                (PEntry->Type & RelocFlagSUB) ? '-' : '+', PEntry->Name);
  106.  
  107.       for (z = 0,  PExp = RelocInfo->ExportEntries; z < RelocInfo->ExportCount; z++, PExp++)
  108.         printf("%s  %08lX          %c          %s\n",
  109.                getmessage(Num_MessExportInfo),
  110.                LoDWord(PExp->Value),
  111.                (PExp->Flags & RelFlag_Relative) ? 'R' : ' ',
  112.                PExp->Name);
  113.  
  114.       DestroyRelocInfo(RelocInfo);
  115.     }
  116.  
  117.     else if ((Header == FileHeaderDataRec) || (Header == FileHeaderRDataRec)
  118.           || (Header == FileHeaderRelocRec) || (Header == FileHeaderRRelocRec))
  119.     {
  120.       errno = 0;
  121.       if (Magic != 0)
  122.         FoundId = NULL;
  123.       else
  124.         FoundId = FindFamilyById(CPU);
  125.       if (!FoundId)
  126.         chkio_printf(OutName, "\?\?\?=%02x        ", Header);
  127.       else
  128.         chkio_printf(OutName, "%-13s ", FoundId->Name);
  129.  
  130.       chkio_printf(OutName, "%-7s   ", SegNames[Segment]); ChkIO(OutName);
  131.  
  132.       if (!Read4(ProgFile, &StartAdr))
  133.         chk_wr_read_error(pFileName);
  134.       chkio_printf(OutName, "%08lX          ", LoDWord(StartAdr)); ChkIO(OutName);
  135.  
  136.       if (!Read2(ProgFile, &Len))
  137.         chk_wr_read_error(pFileName);
  138.       chkio_printf(OutName, "%04X       ", LoWord(Len));  ChkIO(OutName);
  139.  
  140.       if (Len != 0)
  141.         StartAdr += (Len / Gran) - 1;
  142.       else
  143.         StartAdr--;
  144.       chkio_printf(OutName, "%08lX\n", LoDWord(StartAdr));  ChkIO(OutName);
  145.  
  146.       Sums[Segment] += Len;
  147.  
  148.       if (ftell(ProgFile) + Len >= FileSize(ProgFile))
  149.         FormatError(pFileName, getmessage(Num_FormatInvRecordLenMsg));
  150.       else if (fseek(ProgFile, Len, SEEK_CUR) != 0)
  151.         ChkIO(pFileName);
  152.     }
  153.     else
  154.      SkipRecord(Header, pFileName, ProgFile);
  155.   }
  156.   while (Header != 0);
  157.  
  158.   errno = 0; fclose(ProgFile); ChkIO(pFileName);
  159.  
  160.   (void)HeadFnd;
  161. }
  162.  
  163. int main(int argc, char **argv)
  164. {
  165.   Word z;
  166.   Boolean FirstSeg;
  167.   as_cmd_results_t cmd_results;
  168.   char *p_file_name;
  169.  
  170.   nls_init();
  171.   if (!NLS_Initialize(&argc, argv))
  172.     exit(4);
  173.  
  174.   be_le_init();
  175.   bpemu_init();
  176.   strutil_init();
  177. #ifdef _USE_MSH
  178.   nlmessages_init_buffer(plist_msh_data, sizeof(plist_msh_data), MsgId1, MsgId2);
  179. #else
  180.   nlmessages_init_file("plist.msg", *argv, MsgId1, MsgId2); ioerrs_init(*argv);
  181. #endif
  182.   as_cmdarg_init(*argv);
  183.   msg_level_init();
  184.   toolutils_init(*argv);
  185.  
  186.   if (e_cmd_err == as_cmd_process(argc, argv, "PLISTCMD", &cmd_results))
  187.   {
  188.     fprintf(stderr, "%s%s\n", getmessage(cmd_results.error_arg_in_env ? Num_ErrMsgInvEnvParam : Num_ErrMsgInvParam), cmd_results.error_arg);
  189.     fprintf(stderr, "%s\n", getmessage(Num_ErrMsgProgTerm));
  190.     exit(1);
  191.   }
  192.  
  193.   if ((msg_level >= e_msg_level_verbose) || cmd_results.write_version_exit)
  194.   {
  195.     String Ver;
  196.  
  197.     as_snprintf(Ver, sizeof(Ver), "PLIST V%s", Version);
  198.     WrCopyRight(Ver);
  199.     chkio_printf(OutName, "\n");
  200.   }
  201.  
  202.   if (cmd_results.write_help_exit)
  203.   {
  204.     char *ph1, *ph2;
  205.  
  206.     chkio_printf(OutName, "%s%s%s\n", getmessage(Num_InfoMessHead1), as_cmdarg_get_executable_name(), getmessage(Num_InfoMessHead2));
  207.     for (ph1 = getmessage(Num_InfoMessHelp), ph2 = strchr(ph1, '\n'); ph2; ph1 = ph2 + 1, ph2 = strchr(ph1, '\n'))
  208.     {
  209.       *ph2 = '\0';
  210.       chkio_printf(OutName, "%s\n", ph1);
  211.       *ph2 = '\n';
  212.     }
  213.   }
  214.  
  215.   if (cmd_results.write_version_exit || cmd_results.write_help_exit)
  216.     exit(0);
  217.  
  218.   num_files = StringListCount(cmd_results.file_arg_list);
  219.   if (!num_files)
  220.   {
  221.     fprintf(stderr, "%s: %s\n", as_cmdarg_get_executable_name(), getmessage(Num_ErrMessNoInputFiles));
  222.     exit(1);
  223.   }
  224.  
  225.   chkio_printf(OutName, "%s%s\n", (num_files > 1) ? getmessage(Num_MessHeaderLine1F) : "", getmessage(Num_MessHeaderLine1));
  226.   chkio_printf(OutName, "%s%s\n", (num_files > 1) ? getmessage(Num_MessHeaderLine2F) : "", getmessage(Num_MessHeaderLine2));
  227.  
  228.   for (z = 0; z < SegCount; Sums[z++] = 0);
  229.  
  230.   while (True)
  231.   {
  232.     p_file_name = MoveAndCutStringListFirst(&cmd_results.file_arg_list);
  233.     if (!p_file_name)
  234.       break;
  235.     if (*p_file_name)
  236.     {
  237.       String exp_file_name;
  238.  
  239.       strmaxcpy(exp_file_name, p_file_name, sizeof(exp_file_name));
  240.       AddSuffix(exp_file_name, sizeof(exp_file_name), getmessage(Num_Suffix));
  241.       ProcessSingle(exp_file_name);
  242.     }
  243.     free(p_file_name);
  244.   }
  245.  
  246.   chkio_printf(OutName, "\n");
  247.   FirstSeg = True;
  248.   for (z = 0; z < SegCount; z++)
  249.     if ((z == SegCode) || Sums[z])
  250.     {
  251.       chkio_printf(OutName, "%s", FirstSeg ? getmessage(Num_MessSum1) : Blanks(strlen(getmessage(Num_MessSum1))));
  252.       chkio_printf(OutName, LongIntFormat, Sums[z]);
  253.       chkio_printf(OutName, "%s%s\n",
  254.                    getmessage((Sums[z] == 1) ? Num_MessSumSing : Num_MessSumPlur),
  255.                    SegNames[z]);
  256.       FirstSeg = False;
  257.     }
  258.  
  259.   return 0;
  260. }
  261.