exp_ar.c 4.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143
  1. /* exp_ar.c: Routines to export an archive 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 "exp_ar.h"
  15. #include "../../formats/ar.h"
  16. #include <string.h>
  17. // Export the internal data structures into an archive file.
  18. BOOLEAN ExportArchiveFile (const ARCHIVE *Archive, EXP_FILE *File, BOOLEAN NoNames)
  19. {
  20. // Call this instead of sprintf to overwrite the terminating null character with a space.
  21. #define iprintf(str,fmt...) (str [sprintf (str, fmt)] = ' ')
  22. SYMBOL_TABLE *SymbolTable = Archive->SymbolTable;
  23. // Write the file header.
  24. ExportWrite (File, AR_FILE_HEADER_STRING, AR_FILE_HEADER_SIZE, 1);
  25. // Write the symbol table.
  26. if (SymbolTable)
  27. {
  28. AR_MEMBER_HEADER MemberHeader;
  29. // Fill the entire header with spaces.
  30. memset (&MemberHeader, ' ', sizeof (MemberHeader));
  31. MemberHeader.Name [0] = '/';
  32. // Insert the attributes
  33. iprintf (MemberHeader.Date, "%lu", (long) (StatGetModificationTime (Archive->FileStats)));
  34. iprintf (MemberHeader.UID, "%lu", (long) (StatGetUID (Archive->FileStats)));
  35. iprintf (MemberHeader.GID, "%lu", (long) (StatGetGID (Archive->FileStats)));
  36. iprintf (MemberHeader.Mode, "%lo", (long) (StatGetMode (Archive->FileStats)));
  37. iprintf (MemberHeader.Size, "%lu", (long) (SymbolTable->Size));
  38. memcpy (MemberHeader.Magic, AR_MEMBER_MAGIC, AR_MEMBER_MAGIC_SIZE);
  39. // Write the header.
  40. ExportWrite (File, &MemberHeader, AR_MEMBER_HEADER_SIZE, 1);
  41. // Write the data.
  42. {
  43. OFFSET CurSymbol;
  44. ExportWriteI4 (File, SymbolTable->SymbolCount);
  45. for (CurSymbol = 0; CurSymbol < SymbolTable->SymbolCount; CurSymbol++)
  46. {
  47. SYMBOL *Symbol = SymbolTable->Symbols [CurSymbol];
  48. if (Symbol)
  49. ExportWriteI4 (File, Symbol->Parent->ArMemberOffset);
  50. }
  51. for (CurSymbol = 0; CurSymbol < SymbolTable->SymbolCount; CurSymbol++)
  52. {
  53. SYMBOL *Symbol = SymbolTable->Symbols [CurSymbol];
  54. if (Symbol)
  55. ExportWrite (File, Symbol->Name, strlen (Symbol->Name) + 1, 1);
  56. }
  57. }
  58. // Write the padding.
  59. ExportFill (File, SymbolTable->ArMemberOffset + SymbolTable->ArMemberSize, AR_MEMBER_PADDING_CHAR);
  60. }
  61. // Write the members.
  62. {
  63. OBJECT_FILE *ObjectFile;
  64. OFFSET CurObjectFile = 1;
  65. for_each (ObjectFile, Archive->ObjectFiles)
  66. {
  67. AR_MEMBER_HEADER MemberHeader;
  68. // Fill the entire header with spaces.
  69. memset (&MemberHeader, ' ', sizeof (MemberHeader));
  70. if (NoNames)
  71. // Use an arbitrary name.
  72. iprintf (MemberHeader.Name, "fl%lu.o/", (long) CurObjectFile);
  73. else
  74. {
  75. SIZE NameLen;
  76. // Seach for the last slash.
  77. const char *Name = strrchr (ObjectFile->FileName, '/');
  78. // If none is found, use the last backslash instead.
  79. if (!Name)
  80. Name = strrchr (ObjectFile->FileName, '\\');
  81. // Use only the file name without a path.
  82. if (Name)
  83. Name++;
  84. else
  85. Name = ObjectFile->FileName;
  86. // Insert the name into the header.
  87. NameLen = strlen (Name);
  88. if (NameLen > AR_MEMBER_MAX_NAME_LENGTH)
  89. NameLen = AR_MEMBER_MAX_NAME_LENGTH;
  90. memcpy (MemberHeader.Name, Name, NameLen);
  91. MemberHeader.Name [NameLen] = '/';
  92. }
  93. // Insert the attributes
  94. iprintf (MemberHeader.Date, "%lu", (long) (StatGetModificationTime (ObjectFile->FileStats)));
  95. iprintf (MemberHeader.UID, "%lu", (long) (StatGetUID (ObjectFile->FileStats)));
  96. iprintf (MemberHeader.GID, "%lu", (long) (StatGetGID (ObjectFile->FileStats)));
  97. iprintf (MemberHeader.Mode, "%lo", (long) (StatGetMode (ObjectFile->FileStats)));
  98. iprintf (MemberHeader.Size, "%lu", (long) (ObjectFile->Size));
  99. memcpy (MemberHeader.Magic, AR_MEMBER_MAGIC, AR_MEMBER_MAGIC_SIZE);
  100. // Write the header.
  101. ExportWrite (File, &MemberHeader, AR_MEMBER_HEADER_SIZE, 1);
  102. // Write the data.
  103. ExportWrite (File, ObjectFile->Data, 1, ObjectFile->Size);
  104. // Write the padding.
  105. ExportFill (File, ObjectFile->ArMemberOffset + ObjectFile->ArMemberSize, AR_MEMBER_PADDING_CHAR);
  106. CurObjectFile++;
  107. }
  108. }
  109. return TRUE;
  110. }