#43 add capability to determine length of '#' special packfiles

[lsantil]

--- allegro-cvs-20050528/src/file.c 2005-05-06
20:05:56.000000000 -0700
+++ allegro-cvs-20050528-lsantil/src/file.c 2005-06-02
15:44:18.319386896 -0700
@@ -1406,7 +1406,46 @@
}
}

+/ get_executable_dat_length:
+ * If the executable had a packfile appended by
exedat ('#'), it tries to
+ * deteremine the length of that special packfile.
+ /
+long get_executable_dat_length( void )
+{
+ PACKFILE f;
+ char exe_name[1024];
+ long size;
+
+ / open the file /
+ get_executable_name(exe_name, sizeof(exe_name));
+
+ if (!ugetc(get_filename(exe_name))) {
+ allegro_errno = ENOENT;
+ return -1;
+ }
+
+ f = pack_fopen(exe_name, F_READ);
+ if (!f)
+ return -1;

• ASSERT(f->is_normal_packfile);
  +
• / seek to the end and check for the magic number /
• pack_fseek(f, f->normal.todo-8);
  +
• if (pack_mgetl(f) != F_EXE_MAGIC) {
• pack_fclose(f);
• *allegro_errno = ENOTDIR;
• return -1;
• }
  +
• size = pack_mgetl(f);
• size -= 8;
  +
• pack_fclose( f );
  +
• return( size );
  +}

/* packfile_password:
* Sets the password to be used by all future
read/write operations.

[lsantil]

GetExecutableDatLength Patch File