dump.c 1.7 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061
  1. /* dump.c: Routines to dump the internal data to a file
  2. Copyright (C) 2003 Sebastian Reichelt
  3. This program is free software; you can redistribute it and/or modify
  4. it under the terms of the GNU General Public License as published by
  5. the Free Software Foundation; either version 2, or (at your option)
  6. any later version.
  7. This program is distributed in the hope that it will be useful,
  8. but WITHOUT ANY WARRANTY; without even the implied warranty of
  9. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  10. GNU General Public License for more details.
  11. You should have received a copy of the GNU General Public License
  12. along with this program; if not, write to the Free Software Foundation,
  13. Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
  14. #include "dump.h"
  15. #include <stdlib.h>
  16. #include <string.h>
  17. #define FixIndent \
  18. SIZE NewLen = (Indent ? strlen (Indent) : 0) + 2; \
  19. char NextIndent[NewLen+1]; \
  20. if (!Indent) \
  21. Indent = ""; \
  22. strcpy (NextIndent, Indent); \
  23. NextIndent [NewLen - 2] = ' '; \
  24. NextIndent [NewLen - 1] = ' '; \
  25. NextIndent [NewLen] = 0;
  26. void DumpArchive (FILE *File, const char *Indent, const ARCHIVE *Archive)
  27. {
  28. OBJECT_FILE *ObjectFile;
  29. FixIndent;
  30. for_each (ObjectFile, Archive->ObjectFiles)
  31. {
  32. if (ObjectFile->FileName)
  33. fprintf (File, "%s%s\n", Indent, ObjectFile->FileName);
  34. else
  35. fprintf (File, "%s(unnamed)\n", Indent);
  36. DumpObjectFile (File, NextIndent, ObjectFile);
  37. }
  38. }
  39. void DumpObjectFile (FILE *File, const char *Indent, const OBJECT_FILE *ObjectFile)
  40. {
  41. SYMBOL *Symbol;
  42. FixIndent;
  43. for_each (Symbol, ObjectFile->Symbols)
  44. {
  45. fprintf (File, "%s%s\n", Indent, Symbol->Name);
  46. }
  47. }