src/plugin/calLibrary/calLibrary.cpp

   1 /*******************************************************************************\r
   2   TPI - flexible but useless plug-in framework.\r
   3   Copyright (C) 2002-2009 Silky\r
   4 \r
   5   This library is free software; you can redistribute it and/or modify it under\r
   6   the terms of the GNU Lesser General Public License as published by the Free\r
   7   Software Foundation; either version 2.1 of the License, or (at your option)\r
   8   any later version.\r
   9 \r
  10   This library is distributed in the hope that it will be useful, but WITHOUT\r
  11   ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or \r
  12   FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General Public License\r
  13   for more details.\r
  14 \r
  15   You should have received a copy of the GNU Lesser General Public License along\r
  16   with this library; if not, write to the Free Software Foundation, Inc.,\r
  17   51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA\r
  18 \r
  19   $Id: calLibrary.cpp,v 1.23 2009/09/27 13:44:12 sirakaba Exp $\r
  20 *******************************************************************************/\r
  21 \r
  22 //******************************************************************************\r
  23 //    Includes\r
  24 //******************************************************************************\r
  25 \r
  26 #include "../../common/header/plugin.h"\r
  27 #include "../../common/header/plugin-extra.h"\r
  28 #include "../../common/library/library.h"\r
  29 #include <wx/dynlib.h>\r
  30 #include <wx/config.h>\r
  31 #include <wx/stdpaths.h>\r
  32 #include <wx/xml/xml.h>\r
  33 #include <windows.h>\r
  34 #include "calLibrary.h"\r
  35 \r
  36 //******************************************************************************\r
  37 //    Global varients\r
  38 //******************************************************************************\r
  39 \r
  40 struct g_LibInfo\r
  41 {\r
  42         HMODULE hLib;\r
  43         wxString szPrefix;\r
  44         int nLibIndex;\r
  45         wxXmlNode node;\r
  46         bool fUnicode;\r
  47         bool fCallback32bit;\r
  48         bool fRunning;\r
  49 }       g_LibInfo, g_LibInfoAlt;\r
  50 \r
  51 TPI_PROC g_prProc;\r
  52 bool g_fExistUnicodeMode;\r
  53 \r
  54 //******************************************************************************\r
  55 //    Entry\r
  56 //******************************************************************************\r
  57 \r
  58 #ifdef __LINUX__\r
  59 void __attribute__((destructor)) Detach(void)\r
  60 {\r
  61         ::FreeLibrary(g_LibInfo.hLib);\r
  62         ::FreeLibrary(g_LibInfo.hLibAlt);\r
  63 }\r
  64 #else\r
  65 BOOL __stdcall DllMain(HMODULE, DWORD fdwReason, void *)\r
  66 {\r
  67         switch (fdwReason)\r
  68         {\r
  69         case DLL_PROCESS_DETACH:\r
  70                 ::FreeLibrary(g_LibInfo.hLib);\r
  71                 break;\r
  72         }\r
  73         return TRUE;\r
  74 }\r
  75 #endif\r
  76 \r
  77 wxDateTime FileTimeToWxDateTime(FILETIME * pft)\r
  78 {\r
  79 #ifdef __WINDOWS__\r
  80         FILETIME ftLocal;\r
  81         SYSTEMTIME st;\r
  82         if (! ::FileTimeToLocalFileTime(pft, & ftLocal) || ! ::FileTimeToSystemTime(& ftLocal, & st))\r
  83         {\r
  84                 return (time_t) 0;\r
  85         }\r
  86         wxDateTime dt(st.wDay, wxDateTime::Month(st.wMonth - 1), st.wYear, st.wHour, st.wMinute, st.wSecond, st.wMilliseconds);\r
  87         return dt;\r
  88 #else\r
  89     return (time_t) 0;\r
  90 #endif\r
  91 }\r
  92 \r
  93 //******************************************************************************\r
  94 //    Callback Wrapper\r
  95 //******************************************************************************\r
  96 \r
  97 BOOL __stdcall CallbackProc(HWND, unsigned int _uMsg, unsigned int _uState, void * _lpEis)\r
  98 {\r
  99         if (_uMsg != ::RegisterWindowMessage((const wchar_t *) WM_ARCEXTRACT))\r
 100         {\r
 101                 // \93Æ\8e©\8ed\97l\82È\82Ç\82É\91Î\82·\82é\97\\94õ\83R\81[\83h\81B\r
 102                 return TRUE;\r
 103         }\r
 104 \r
 105         // \8d\\91¢\91Ì\82ð\8f\89\8aú\89»\81B\r
 106         TPI_PROCESSINFO piInfo;\r
 107         piInfo.uMessage = TPI_MESSAGE_STATUS;\r
 108 \r
 109         if (_lpEis != NULL)\r
 110         {\r
 111                 if ((g_LibInfo.fRunning && g_LibInfo.fCallback32bit) || (g_LibInfoAlt.fRunning && g_LibInfoAlt.fCallback32bit))\r
 112                 {\r
 113                         if ((g_LibInfo.fRunning && g_LibInfo.fUnicode) || (g_LibInfoAlt.fRunning && g_LibInfoAlt.fUnicode))\r
 114                         {\r
 115                                 // \8f\89\8aú\89»\81B\r
 116                                 EXTRACTINGINFOEXW * ex = (EXTRACTINGINFOEXW *) _lpEis;\r
 117 \r
 118                                 // EXTRACTINGINFOEXW -> TPI_FILEINFO\95Ï\8a·\81B\r
 119                                 piInfo.fiInfo.dwCRC32           = ex->dwCRC;\r
 120                                 piInfo.fiInfo.tmModified.SetFromDOS(ex->wTime | (ex->wDate << 16));\r
 121                                 piInfo.fiInfo.llPackedSize      = ex->dwCompressedSize;\r
 122                                 piInfo.fiInfo.llUnpackedSize    = ex->exinfo.dwFileSize;\r
 123                                 piInfo.fiInfo.uOSType           = ex->uOSType;\r
 124                                 piInfo.fiInfo.wCompressRatio    = ex->wRatio;\r
 125                                 piInfo.fiInfo.szStoredName      = WC2String(ex->exinfo.szSourceFileName);\r
 126                                 piInfo.fiInfo.szMethod          = WC2String(ex->szMode);\r
 127 \r
 128                                 // EXTRACTINGINFOEXW -> TPI_PROCESSINFO\95Ï\8a·\81B\r
 129                                 piInfo.llProcessedSize          = ex->exinfo.dwWriteSize;\r
 130                                 piInfo.fnDestination            = wxFileName(WC2String(ex->exinfo.szDestFileName));\r
 131                         }\r
 132                         else\r
 133                         {\r
 134                                 // \8f\89\8aú\89»\81B\r
 135                                 EXTRACTINGINFOEX * ex = (EXTRACTINGINFOEX *) _lpEis;\r
 136 \r
 137                                 // EXTRACTINGINFOEX -> TPI_FILEINFO\95Ï\8a·\81B\r
 138                                 piInfo.fiInfo.dwCRC32           = ex->dwCRC;\r
 139                                 piInfo.fiInfo.tmModified.SetFromDOS(ex->wTime | (ex->wDate << 16));\r
 140                                 piInfo.fiInfo.llPackedSize      = ex->dwCompressedSize;\r
 141                                 piInfo.fiInfo.llUnpackedSize    = ex->exinfo.dwFileSize;\r
 142                                 piInfo.fiInfo.uOSType           = ex->uOSType;\r
 143                                 piInfo.fiInfo.wCompressRatio    = ex->wRatio;\r
 144                                 piInfo.fiInfo.szStoredName      = UTF82String(ex->exinfo.szSourceFileName);\r
 145                                 piInfo.fiInfo.szMethod          = UTF82String(ex->szMode);\r
 146 \r
 147                                 // EXTRACTINGINFOEX -> TPI_PROCESSINFO\95Ï\8a·\81B\r
 148                                 piInfo.llProcessedSize          = ex->exinfo.dwWriteSize;\r
 149                                 piInfo.fnDestination            = wxFileName(UTF82String(ex->exinfo.szDestFileName));\r
 150                         }\r
 151                         piInfo.fiInfo.dwAttribute       = 0;\r
 152                 }\r
 153                 else\r
 154                 {\r
 155                         if ((g_LibInfo.fRunning && g_LibInfo.fUnicode) || (g_LibInfoAlt.fRunning && g_LibInfoAlt.fUnicode))\r
 156                         {\r
 157                                 // \8f\89\8aú\89»\81B\r
 158                                 EXTRACTINGINFOEX64W * ex = (EXTRACTINGINFOEX64W *) _lpEis;\r
 159 \r
 160                                 // EXTRACTINGINFOEX64W -> TPI_FILEINFO\95Ï\8a·\81B\r
 161                                 piInfo.fiInfo.dwAttribute       = ex->dwAttributes;\r
 162                                 piInfo.fiInfo.dwCRC32           = ex->dwCRC;\r
 163                                 piInfo.fiInfo.tmAccess          = FileTimeToWxDateTime(& ex->ftAccessTime);\r
 164                                 piInfo.fiInfo.tmCreate          = FileTimeToWxDateTime(& ex->ftCreateTime);\r
 165                                 piInfo.fiInfo.tmModified        = FileTimeToWxDateTime(& ex->ftWriteTime);\r
 166                                 piInfo.fiInfo.llPackedSize      = ex->llCompressedSize;\r
 167                                 piInfo.fiInfo.llUnpackedSize    = ex->llFileSize;\r
 168                                 piInfo.fiInfo.uOSType           = ex->uOSType;\r
 169                                 piInfo.fiInfo.wCompressRatio    = ex->wRatio;\r
 170                                 piInfo.fiInfo.szStoredName      = WC2String(ex->exinfo.szSourceFileName);\r
 171                                 piInfo.fiInfo.szMethod          = WC2String(ex->szMode);\r
 172 \r
 173                                 // EXTRACTINGINFOEX64 -> TPI_PROCESSINFO\95Ï\8a·\81B\r
 174                                 piInfo.llProcessedSize          = ex->llWriteSize;\r
 175                                 piInfo.fnDestination            = wxFileName(WC2String(ex->exinfo.szDestFileName));\r
 176                         }\r
 177                         else\r
 178                         {\r
 179                                 // \8f\89\8aú\89»\81B\r
 180                                 EXTRACTINGINFOEX64 * ex = (EXTRACTINGINFOEX64 *) _lpEis;\r
 181 \r
 182                                 // EXTRACTINGINFOEX64 -> TPI_FILEINFO\95Ï\8a·\81B\r
 183                                 piInfo.fiInfo.dwAttribute       = ex->dwAttributes;\r
 184                                 piInfo.fiInfo.dwCRC32           = ex->dwCRC;\r
 185                                 piInfo.fiInfo.tmAccess          = FileTimeToWxDateTime(& ex->ftAccessTime);\r
 186                                 piInfo.fiInfo.tmCreate          = FileTimeToWxDateTime(& ex->ftCreateTime);\r
 187                                 piInfo.fiInfo.tmModified        = FileTimeToWxDateTime(& ex->ftWriteTime);\r
 188                                 piInfo.fiInfo.llPackedSize      = ex->llCompressedSize;\r
 189                                 piInfo.fiInfo.llUnpackedSize    = ex->llFileSize;\r
 190                                 piInfo.fiInfo.uOSType           = ex->uOSType;\r
 191                                 piInfo.fiInfo.wCompressRatio    = ex->wRatio;\r
 192                                 piInfo.fiInfo.szStoredName      = UTF82String(ex->exinfo.szSourceFileName);\r
 193                                 piInfo.fiInfo.szMethod          = UTF82String(ex->szMode);\r
 194 \r
 195                                 // EXTRACTINGINFOEX64 -> TPI_PROCESSINFO\95Ï\8a·\81B\r
 196                                 piInfo.llProcessedSize          = ex->llWriteSize;\r
 197                                 piInfo.fnDestination            = wxFileName(UTF82String(ex->exinfo.szDestFileName));\r
 198                         }\r
 199                 }\r
 200                 piInfo.fiInfo.fnFileName        = wxFileName(piInfo.fiInfo.szStoredName);\r
 201         }\r
 202 \r
 203         // \90\94\8e\9a\82Ì\8f\87\82Å\82È\82\8f\88\97\9d\82Ì\8f\87\82Å\95À\82ñ\82Å\82¢\82é\82±\82Æ\82É\92\8d\88Ó\81B\r
 204         switch (_uState)\r
 205         {\r
 206         case ARCEXTRACT_OPEN:\r
 207                 // \93\96\8aY\8f\91\8cÉ\82Ì\8f\88\97\9d\82ð\8aJ\8en\81B\r
 208                 piInfo.uStatus = TPI_STATUS_OPENARCHIVE;\r
 209                 break;\r
 210         case 5:\r
 211                 // \93\96\8aY\83t\83@\83C\83\8b\82Ì\8c\9f\8dõ\92\86\81B\r
 212                 piInfo.uStatus = TPI_STATUS_SEEKFILE;\r
 213                 break;\r
 214         case ARCEXTRACT_BEGIN:\r
 215                 // \93\96\8aY\83t\83@\83C\83\8b\82Ì\8f\88\97\9d\82ð\8aJ\8en\81B\r
 216                 piInfo.uStatus = TPI_STATUS_BEGINPROCESS;\r
 217                 break;\r
 218         case ARCEXTRACT_INPROCESS:\r
 219                 // \93\96\8aY\83t\83@\83C\83\8b\82Ì\8f\88\97\9d\82ð\8eÀ\8ds\92\86\81B\r
 220                 piInfo.uStatus = TPI_STATUS_INPROCESS;\r
 221                 break;\r
 222         case 6:\r
 223                 // \93\96\8aY\83t\83@\83C\83\8b\82Ì\8f\88\97\9d\82ð\8fI\97¹\81B\r
 224                 piInfo.uStatus = TPI_STATUS_ENDPROCESS;\r
 225                 break;\r
 226         case 7:\r
 227                 // \93\96\8aY\8f\91\8cÉ\82Ì\8c\9f\8d¸\92\86\81B\r
 228                 piInfo.uStatus = TPI_STATUS_TESTARCHIVE;\r
 229                 break;\r
 230         case ARCEXTRACT_COPY:\r
 231                 // \93\96\8aY\8f\91\8cÉ\82Ì\8f\91\82«\96ß\82µ\92\86\81B\r
 232                 piInfo.uStatus = TPI_STATUS_COPYARCHIVE;\r
 233                 break;\r
 234         case ARCEXTRACT_END:\r
 235                 // \93\96\8aY\8f\91\8cÉ\82Ì\8f\88\97\9d\82ð\8fI\97¹\81B\r
 236                 piInfo.uStatus = TPI_STATUS_CLOSEARCHIVE;\r
 237                 break;\r
 238         }\r
 239 \r
 240         // \83R\81[\83\8b\83o\83b\83N\8aÖ\90\94\82É\91\97\90M\81B\r
 241         if (g_prProc == NULL)\r
 242         {\r
 243                 return TRUE;\r
 244         }\r
 245 \r
 246         return g_prProc(TPI_NOTIFY_COMMON, & piInfo) != TPI_CALLBACK_CANCEL;\r
 247 }\r
 248 \r
 249 //******************************************************************************\r
 250 //    Inside Functions\r
 251 //******************************************************************************\r
 252 \r
 253 #define GetAPIAddress(name, unicode) GetProcAddress(g_LibInfo.hLib, (g_LibInfo.szPrefix + wxT(name) + ((unicode && g_LibInfo.fUnicode) ? wxT("W") : wxEmptyString)).char_str())\r
 254 #define GetAPIAddressAlt(name, unicode) GetProcAddress(g_LibInfoAlt.hLib, (g_LibInfoAlt.szPrefix + wxT(name) + ((unicode && g_LibInfoAlt.fUnicode) ? wxT("W") : wxEmptyString)).char_str())\r
 255 \r
 256 int CalErrorCodeConvert(int nCalErrorCode)\r
 257 {\r
 258         switch (nCalErrorCode)\r
 259         {\r
 260         case 0:                     return TPI_ERROR_SUCCESS;\r
 261         case ERROR_DISK_SPACE:      return TPI_ERROR_IO_ARC_WRITE;\r
 262         case ERROR_READ_ONLY:       return TPI_ERROR_IO_FILE_WRITE;\r
 263         case ERROR_USER_SKIP:       return TPI_ERROR_D_SKIPPED;\r
 264         case ERROR_UNKNOWN_TYPE:    return TPI_ERROR_IO_MISC;\r
 265         case ERROR_METHOD:          return TPI_ERROR_ARC_UNSUPPORTED;\r
 266         case ERROR_PASSWORD_FILE:   return TPI_ERROR_ARC_ENCRYPTED;\r
 267         case ERROR_VERSION:         return TPI_ERROR_ARC_UNSUPPORTED;\r
 268         case ERROR_FILE_CRC:        return TPI_ERROR_ARC_BROKEN_SUM;\r
 269         case ERROR_FILE_OPEN:       return TPI_ERROR_IO_FILE_OPEN;\r
 270         case ERROR_MORE_FRESH:      return TPI_ERROR_IO_FILE_MISC;\r
 271         case ERROR_NOT_EXIST:       return TPI_ERROR_IO_FILE_ACCESS;\r
 272         case ERROR_ALREADY_EXIST:   return TPI_ERROR_IO_FILE_ACCESS;\r
 273         case ERROR_TOO_MANY_FILES:  return TPI_ERROR_IO_ARC_MISC;\r
 274         case ERROR_MAKEDIRECTORY:   return TPI_ERROR_IO_DIR_OPEN;\r
 275         case ERROR_CANNOT_WRITE:    return TPI_ERROR_IO_FILE_WRITE;\r
 276         case ERROR_HUFFMAN_CODE:    return TPI_ERROR_ARC_BROKEN_MISC;\r
 277         case ERROR_COMMENT_HEADER:  return TPI_ERROR_ARC_BROKEN_HEADER;\r
 278         case ERROR_HEADER_CRC:      return TPI_ERROR_ARC_BROKEN_SUM;\r
 279         case ERROR_HEADER_BROKEN:   return TPI_ERROR_ARC_BROKEN_HEADER;\r
 280         case ERROR_ARC_FILE_OPEN:   return TPI_ERROR_IO_ARC_OPEN;\r
 281         case ERROR_NOT_ARC_FILE:    return TPI_ERROR_D_UNSUPPORTED;\r
 282         case ERROR_CANNOT_READ:     return TPI_ERROR_IO_ARC_READ;\r
 283         case ERROR_FILE_STYLE:      return TPI_ERROR_D_UNSUPPORTED;\r
 284         case ERROR_COMMAND_NAME:    return TPI_ERROR_UNDEFINED;\r
 285         case ERROR_MORE_HEAP_MEMORY:return TPI_ERROR_D_OUTOFMEMORY;\r
 286         case ERROR_ENOUGH_MEMORY:   return TPI_ERROR_D_OUTOFMEMORY;\r
 287         case ERROR_ALREADY_RUNNING: return TPI_ERROR_UNDEFINED;\r
 288         case ERROR_USER_CANCEL:     return TPI_ERROR_D_SKIPPED;\r
 289         case ERROR_HARC_ISNOT_OPENED: return TPI_ERROR_D_PARAMETER;\r
 290         case ERROR_NOT_SEARCH_MODE: return TPI_ERROR_D_PARAMETER;\r
 291         case ERROR_NOT_SUPPORT:     return TPI_ERROR_U_USE_LIBRARY;\r
 292         case ERROR_TIME_STAMP:      return TPI_ERROR_UNDEFINED;\r
 293         case ERROR_TMP_OPEN:        return TPI_ERROR_IO_TMP_OPEN;\r
 294         case ERROR_LONG_FILE_NAME:  return TPI_ERROR_IO_FILE_ACCESS;\r
 295         case ERROR_ARC_READ_ONLY:   return TPI_ERROR_IO_ARC_ACCESS;\r
 296         case ERROR_SAME_NAME_FILE:  return TPI_ERROR_UNDEFINED;\r
 297         case ERROR_NOT_FIND_ARC_FILE: return TPI_ERROR_IO_ARC_NOTFOUND;\r
 298         case ERROR_RESPONSE_READ:   return TPI_ERROR_IO_MISC_READ;\r
 299         case ERROR_NOT_FILENAME:    return TPI_ERROR_IO_FILE_NOTFOUND;\r
 300         case ERROR_TMP_COPY:        return TPI_ERROR_IO_TMP_COPY;\r
 301         case ERROR_EOF:             return TPI_ERROR_ARC_BROKEN_SIZE;\r
 302         case ERROR_ADD_TO_LARC:     return TPI_ERROR_UNDEFINED;\r
 303         case ERROR_TMP_BACK_SPACE:  return TPI_ERROR_IO_TMP_MOVE;\r
 304         case ERROR_SHARING:         return TPI_ERROR_IO_FILE_ACCESS;\r
 305         case ERROR_NOT_FIND_FILE:   return TPI_ERROR_IO_NOTFOUND;\r
 306         case ERROR_LOG_FILE:        return TPI_ERROR_IO_MISC_WRITE;\r
 307         case ERROR_NO_DEVICE:       return TPI_ERROR_IO_FILE_ACCESS;\r
 308         case ERROR_GET_ATTRIBUTES:  return TPI_ERROR_IO_FILE_GETINFO;\r
 309         case ERROR_SET_ATTRIBUTES:  return TPI_ERROR_IO_FILE_SETINFO;\r
 310         case ERROR_GET_INFORMATION: return TPI_ERROR_IO_FILE_GETINFO;\r
 311         case ERROR_GET_POINT:       return TPI_ERROR_IO_FILE_POINT;\r
 312         case ERROR_SET_POINT:       return TPI_ERROR_IO_FILE_POINT;\r
 313         case ERROR_CONVERT_TIME:    return TPI_ERROR_UNDEFINED;\r
 314         case ERROR_GET_TIME:        return TPI_ERROR_IO_FILE_GETINFO;\r
 315         case ERROR_SET_TIME:        return TPI_ERROR_IO_FILE_SETINFO;\r
 316         case ERROR_CLOSE_FILE:      return TPI_ERROR_IO_FILE_CLOSE;\r
 317         case ERROR_HEAP_MEMORY:     return TPI_ERROR_D_USEMEMORY;\r
 318         case ERROR_HANDLE:          return TPI_ERROR_UNDEFINED;\r
 319         case ERROR_TIME_STAMP_RANGE:return TPI_ERROR_UNDEFINED;\r
 320         case ERROR_MAKE_ARCHIVE:    return TPI_ERROR_ARC_BROKEN_MISC;\r
 321         case ERROR_NOT_CONFIRM_NAME:return TPI_ERROR_ARC_BROKEN_HEADER;\r
 322         case ERROR_UNEXPECTED_EOF:  return TPI_ERROR_ARC_BROKEN_HEADER;\r
 323         case ERROR_INVALID_END_MARK:return TPI_ERROR_ARC_BROKEN_SIZE;\r
 324         case ERROR_INVOLVED_LZH:    return TPI_ERROR_ARC_BROKEN_MISC;\r
 325         case ERROR_NO_END_MARK:     return TPI_ERROR_ARC_BROKEN_SIZE;\r
 326         case ERROR_HDR_INVALID_SIZE:return TPI_ERROR_ARC_BROKEN_HEADER;\r
 327         case ERROR_UNKNOWN_LEVEL:   return TPI_ERROR_ARC_UNSUPPORTED;\r
 328         case ERROR_BROKEN_DATA:     return TPI_ERROR_ARC_BROKEN_MISC;\r
 329         case ERROR_INVALID_PATH:    return TPI_ERROR_ARC_DANGER;\r
 330         case ERROR_TOO_BIG:         return TPI_ERROR_IO_FILE_WRITE;\r
 331         case ERROR_EXECUTABLE_FILE: return TPI_ERROR_ARC_DANGER;\r
 332         case ERROR_INVALID_VALUE:   return TPI_ERROR_UNDEFINED;\r
 333         case ERROR_HDR_EXPLOIT:     return TPI_ERROR_ARC_DANGER;\r
 334         case ERROR_HDR_NO_CRC:      return TPI_ERROR_ARC_BROKEN_HEADER;\r
 335         case ERROR_HDR_NO_NAME:     return TPI_ERROR_ARC_BROKEN_HEADER;\r
 336         default:                    return TPI_ERROR_UNDEFINED;\r
 337         }\r
 338 }\r
 339 \r
 340 int CalSetCallbackProc(bool fAlt)\r
 341 {\r
 342         // \90æ\82É\83R\81[\83\8b\83o\83b\83N\8aÖ\90\94\82Ì\90Ý\92è\82ð\89ð\8f\9c\82µ\82Ä\82¨\82\81B\r
 343         FARPROC fpProc;\r
 344         if (fAlt)\r
 345         {\r
 346                 fpProc = ::GetAPIAddressAlt("KillOwnerWindowEx64", false);\r
 347                 g_LibInfoAlt.fCallback32bit = fpProc == NULL;\r
 348                 if (g_LibInfoAlt.fCallback32bit)\r
 349                 {\r
 350                         fpProc = ::GetAPIAddressAlt("KillOwnerWindowEx", false);\r
 351                 }\r
 352         }\r
 353         else\r
 354         {\r
 355                 fpProc = ::GetAPIAddress("KillOwnerWindowEx64", false);\r
 356                 g_LibInfo.fCallback32bit = fpProc == NULL;\r
 357                 if (g_LibInfo.fCallback32bit)\r
 358                 {\r
 359                         fpProc = ::GetAPIAddress("KillOwnerWindowEx", false);\r
 360                 }\r
 361         }\r
 362         if (fpProc == NULL)\r
 363         {\r
 364                 return TPI_ERROR_U_USE_LIBRARY;\r
 365         }\r
 366         // \83G\83\89\81[\82Å\82à\96³\8e\8b\82·\82é\81B\r
 367         ((BOOL (__stdcall *)(HWND)) fpProc)(NULL);\r
 368 \r
 369         // \91±\82¢\82Ä\83R\81[\83\8b\83o\83b\83N\8aÖ\90\94\82Ì\90Ý\92è\81B\r
 370         if (fAlt)\r
 371         {\r
 372                 fpProc = ::GetAPIAddressAlt("SetOwnerWindowEx64", false);\r
 373                 g_LibInfoAlt.fCallback32bit = fpProc == NULL;\r
 374                 if (g_LibInfoAlt.fCallback32bit)\r
 375                 {\r
 376                         fpProc = ::GetAPIAddressAlt("SetOwnerWindowEx", true);\r
 377                 }\r
 378         }\r
 379         else\r
 380         {\r
 381                 fpProc = ::GetAPIAddress("SetOwnerWindowEx64", false);\r
 382                 g_LibInfo.fCallback32bit = fpProc == NULL;\r
 383                 if (g_LibInfo.fCallback32bit)\r
 384                 {\r
 385                         fpProc = ::GetAPIAddress("SetOwnerWindowEx", true);\r
 386                 }\r
 387         }\r
 388 \r
 389         return (fpProc == NULL || ! ((fAlt ? g_LibInfoAlt.fCallback32bit : g_LibInfo.fCallback32bit)\r
 390                 ? ((BOOL (__stdcall *)(HWND, ARCHIVERPROC *       )) fpProc)(NULL, (ARCHIVERPROC *) CallbackProc)\r
 391                 : ((BOOL (__stdcall *)(HWND, ARCHIVERPROC *, DWORD)) fpProc)(NULL, (ARCHIVERPROC *) CallbackProc, (fAlt ? g_LibInfoAlt.fUnicode : g_LibInfo.fUnicode) ? sizeof(EXTRACTINGINFOEX64W) : sizeof(EXTRACTINGINFOEX64))))\r
 392                 ? TPI_ERROR_U_USE_LIBRARY : TPI_ERROR_SUCCESS;\r
 393 }\r
 394 \r
 395 //******************************************************************************\r
 396 //    Functions\r
 397 //******************************************************************************\r
 398 \r
 399 #ifdef __cplusplus\r
 400 extern "C"\r
 401 {\r
 402 #endif\r
 403 \r
 404 int __stdcall GetPluginInformation\r
 405 (\r
 406         unsigned int _uInfoId,\r
 407         wxULongLong,\r
 408         void * _pPtr\r
 409 )\r
 410 {\r
 411         if (_pPtr == NULL)\r
 412         {\r
 413                 return TPI_ERROR_D_PARAMETER;\r
 414         }\r
 415         switch (LOWORD(_uInfoId))\r
 416         {\r
 417         case TPI_INFO_VERSION_MAJOR:\r
 418         case TPI_INFO_VERSION_MINOR:\r
 419                 * (int *) _pPtr = 0;\r
 420                 break;\r
 421         case TPI_INFO_VERSION_API:\r
 422                 * (int *) _pPtr = 2;\r
 423                 break;\r
 424         default:\r
 425                 return TPI_ERROR_D_UNSUPPORTED;\r
 426         }\r
 427         return TPI_ERROR_SUCCESS;\r
 428 }\r
 429 \r
 430 int __stdcall GetFormatInformation(TPI_FORMATINFO * _fiInfo, bool _bFirst)\r
 431 {\r
 432         static unsigned int s_uFileID;\r
 433         wxStandardPaths p;\r
 434         wxXmlDocument config(wxPathOnly(p.GetExecutablePath()) + wxT("/lib/calLibrary.xml"));\r
 435         // \88ê\8bC\82É\90æ\93ª\82Ì\83\89\83C\83u\83\89\83\8a\82Ì\8fî\95ñ\82ð\8eæ\93¾\81B\r
 436         wxXmlNode * xmlLibrary = config.GetRoot()->GetChildren();\r
 437 \r
 438         if (_bFirst)\r
 439         {\r
 440                 // xml\89ð\90Í\8aJ\8en\81B\r
 441                 s_uFileID = 0;\r
 442         }\r
 443         else\r
 444         {\r
 445                 for (unsigned int i = 0; i < s_uFileID && xmlLibrary != NULL; i++)\r
 446                 {\r
 447                         xmlLibrary = xmlLibrary->GetNext();\r
 448                 }\r
 449         }\r
 450 \r
 451         if (xmlLibrary == NULL || xmlLibrary->GetName() != wxT("library"))\r
 452         {\r
 453                 // xml\95¶\96@\83G\83\89\81[\81B\r
 454                 return TPI_ERROR_UNDEFINED;\r
 455         }\r
 456 \r
 457         MakeFormatInfo(wxT("calLibrary"), _fiInfo, xmlLibrary, s_uFileID++);\r
 458 \r
 459         return TPI_ERROR_SUCCESS;\r
 460 }\r
 461 \r
 462 int __stdcall LoadPlugin\r
 463 (\r
 464         const wxString & _szArcName,\r
 465         wxULongLong _llSubOption\r
 466 )\r
 467 {\r
 468         // xml\89ð\90Í\8aJ\8en\81B\r
 469         wxStandardPaths p;\r
 470         wxXmlDocument config(wxPathOnly(p.GetExecutablePath()) + wxT("/lib/calLibrary.xml"));\r
 471         if (! config.IsOk())\r
 472         {\r
 473                 return TPI_ERROR_UNDEFINED;\r
 474         }\r
 475         // \88ê\8bC\82É\90æ\93ª\82Ì\83\89\83C\83u\83\89\83\8a\82Ì\8fî\95ñ\82ð\8eæ\93¾\81B\r
 476         wxXmlNode * xmlLibrary = config.GetRoot()->GetChildren();\r
 477 \r
 478         // \91Î\8fÛ\82ª\91¶\8dÝ\82·\82é\82È\82ç\82Î\91Î\89\9e\82·\82é\83\89\83C\83u\83\89\83\8a\82ð\92²\8d¸\81A\r
 479         // \91Î\8fÛ\82ª\91¶\8dÝ\82µ\82È\82¢\82È\82ç\82Î\8ew\8e¦\82³\82ê\82½\83\89\83C\83u\83\89\83\8a\82ð\83\8d\81[\83h\81B\r
 480         if (! ::wxFileExists(_szArcName))\r
 481         {\r
 482                 // \93K\93\96\82È\88Ê\92u\82Ü\82Å\88Ú\93®\81B\r
 483                 for (g_LibInfo.nLibIndex = 0; g_LibInfo.nLibIndex < _llSubOption && xmlLibrary != NULL; g_LibInfo.nLibIndex++)\r
 484                 {\r
 485                         xmlLibrary = xmlLibrary->GetNext();\r
 486                 }\r
 487                 if (xmlLibrary == NULL || xmlLibrary->GetName() != wxT("library"))\r
 488                 {\r
 489                         // xml\95¶\96@\83G\83\89\81[\81B\r
 490                         return TPI_ERROR_UNDEFINED;\r
 491                 }\r
 492                 g_LibInfo.node = * xmlLibrary;\r
 493 \r
 494                 // \83\89\83C\83u\83\89\83\8a\82ð\83\8d\81[\83h\81B\r
 495                 g_LibInfo.hLib = ::LoadLibrary((const WCHAR *) xmlLibrary->GetPropVal(wxT("name"), wxEmptyString).c_str());\r
 496                 if (g_LibInfo.hLib == NULL)\r
 497                 {\r
 498                         return TPI_ERROR_U_LOAD_LIBRARY;\r
 499                 }\r
 500                 g_LibInfo.szPrefix = xmlLibrary->GetPropVal(wxT("prefix"), wxEmptyString);\r
 501                 g_LibInfo.fUnicode = xmlLibrary->GetPropVal(wxT("unicode"), wxT("0")) == wxT("1");\r
 502 \r
 503                 // \91ã\91Ö\83\89\83C\83u\83\89\83\8a\82à\83\8d\81[\83h\81B\83\8d\81[\83h\82Å\82«\82È\82\82Ä\82à\83G\83\89\81[\82É\82Í\82µ\82È\82¢\81B\r
 504                 g_LibInfoAlt.szPrefix = xmlLibrary->GetPropVal(wxT("prefix-alt"), wxEmptyString);\r
 505                 g_LibInfoAlt.fUnicode = xmlLibrary->GetPropVal(wxT("unicode-alt"), wxT("0")) == wxT("1");\r
 506                 g_LibInfoAlt.hLib = ::LoadLibrary((const WCHAR *) xmlLibrary->GetPropVal(wxT("name-alt"), wxEmptyString).c_str());\r
 507 \r
 508                 return TPI_ERROR_SUCCESS;\r
 509         }\r
 510 \r
 511         // \96³\8cÀ\83\8b\81[\83v\82É\8a×\82ç\82È\82¢\82æ\82¤\8fã\8cÀ\82ð\90Ý\92è\81B\r
 512         for (g_LibInfo.nLibIndex = 0; g_LibInfo.nLibIndex < 300 && xmlLibrary != NULL; g_LibInfo.nLibIndex++)\r
 513         {\r
 514                 // \83\89\83C\83u\83\89\83\8a\82ð\83\8d\81[\83h\81B\r
 515                 g_LibInfo.hLib = ::LoadLibrary((const WCHAR *) xmlLibrary->GetPropVal(wxT("name"), wxEmptyString).c_str());\r
 516                 if (g_LibInfo.hLib == NULL)\r
 517                 {\r
 518                         xmlLibrary = xmlLibrary->GetNext();\r
 519                         continue;\r
 520                 }\r
 521                 g_LibInfo.szPrefix = xmlLibrary->GetPropVal(wxT("prefix"), wxEmptyString);\r
 522                 g_LibInfo.fUnicode = xmlLibrary->GetPropVal(wxT("unicode"), wxT("0")) == wxT("1");\r
 523 \r
 524                 // \91ã\91Ö\83\89\83C\83u\83\89\83\8a\82à\83\8d\81[\83h\81B\83\8d\81[\83h\82Å\82«\82È\82\82Ä\82à\83G\83\89\81[\82É\82Í\82µ\82È\82¢\81B\r
 525                 g_LibInfoAlt.szPrefix = xmlLibrary->GetPropVal(wxT("prefix-alt"), wxEmptyString);\r
 526                 g_LibInfoAlt.fUnicode = xmlLibrary->GetPropVal(wxT("unicode-alt"), wxT("0")) == wxT("1");\r
 527                 g_LibInfoAlt.hLib = ::LoadLibrary((const WCHAR *) xmlLibrary->GetPropVal(wxT("name-alt"), wxEmptyString).c_str());\r
 528                 g_LibInfo.node = * xmlLibrary;\r
 529 \r
 530                 // \8f\91\8cÉ\82É\91Î\89\9e\82µ\82Ä\82¢\82é\82©\83`\83F\83b\83N\81B\r
 531                 if (CheckArchive(_szArcName, NULL) == TPI_ERROR_SUCCESS)\r
 532                 {\r
 533                         // \91Î\89\9e\82µ\82Ä\82¢\82ê\82Î\8f\88\97\9d\82ð\8fI\97¹\81B\r
 534                         return TPI_ERROR_SUCCESS;\r
 535                 }\r
 536 \r
 537                 ::FreeLibrary(g_LibInfo.hLib);\r
 538                 xmlLibrary = xmlLibrary->GetNext();\r
 539         }\r
 540 \r
 541         return TPI_ERROR_U_LOAD_LIBRARY;\r
 542 }\r
 543 \r
 544 int __stdcall FreePlugin\r
 545 (\r
 546         void * // _pReserved\r
 547 )\r
 548 {\r
 549         ::FreeLibrary(g_LibInfo.hLib);\r
 550         ::FreeLibrary(g_LibInfoAlt.hLib);\r
 551         return TPI_ERROR_SUCCESS;\r
 552 }\r
 553 \r
 554 int __stdcall CheckArchive\r
 555 (\r
 556         const wxString & _szArcName,\r
 557         int * _nFileCount\r
 558 )\r
 559 {\r
 560         // Unicode\83\82\81[\83h\82É\90Ý\92è\81B\r
 561         FARPROC fpProc = ::GetAPIAddress("SetUnicodeMode", false);\r
 562         g_fExistUnicodeMode = fpProc != NULL;\r
 563         if (g_fExistUnicodeMode)\r
 564         {\r
 565                 ((BOOL (__stdcall *)(BOOL)) fpProc)(TRUE);\r
 566         }\r
 567 \r
 568         fpProc = ::GetAPIAddress("CheckArchive", true);\r
 569         if (fpProc == NULL)\r
 570         {\r
 571                 return TPI_ERROR_U_USE_LIBRARY;\r
 572         }\r
 573 \r
 574         if (! (g_LibInfo.fUnicode\r
 575                 ? ((BOOL (__stdcall *)(const wchar_t *, const int)) fpProc)(_szArcName.wchar_str(), 0)\r
 576                 : ((BOOL (__stdcall *)(const char    *, const int)) fpProc)(_szArcName.ToUTF8(),    0)\r
 577         ))\r
 578         {\r
 579                 return TPI_ERROR_D_UNSUPPORTED;\r
 580         }\r
 581 \r
 582         if (_nFileCount != NULL)\r
 583         {\r
 584                 fpProc = ::GetAPIAddress("GetFileCount", true);\r
 585                 if (fpProc == NULL)\r
 586                 {\r
 587                         return TPI_ERROR_U_USE_LIBRARY;\r
 588                 }\r
 589 \r
 590                 * _nFileCount = g_LibInfo.fUnicode\r
 591                         ? ((int (__stdcall *)(const wchar_t *)) fpProc)(_szArcName.wchar_str())\r
 592                         : ((int (__stdcall *)(const char *)) fpProc)(_szArcName.ToUTF8());\r
 593                 if (* _nFileCount == -1)\r
 594                 {\r
 595                         return TPI_ERROR_ARC_UNSUPPORTED;\r
 596                 }\r
 597         }\r
 598 \r
 599         return TPI_ERROR_SUCCESS;\r
 600 }\r
 601 \r
 602 int __stdcall OpenArchive\r
 603 (\r
 604         const wxString & _szArcName,\r
 605         void * * _hArchive\r
 606 )\r
 607 {\r
 608         FARPROC fpProc = ::GetAPIAddress("OpenArchive", true);\r
 609         if (fpProc == NULL)\r
 610         {\r
 611                 return TPI_ERROR_U_USE_LIBRARY;\r
 612         }\r
 613 \r
 614         * _hArchive = g_LibInfo.fUnicode\r
 615                 ? ((void * (__stdcall *)(const HWND, const wchar_t *, const DWORD)) fpProc)(NULL, _szArcName.wchar_str(), 0)\r
 616                 : ((void * (__stdcall *)(const HWND, const char    *, const DWORD)) fpProc)(NULL, _szArcName.ToUTF8(),  0);\r
 617         return _hArchive == NULL ? TPI_ERROR_UNDEFINED : TPI_ERROR_SUCCESS;\r
 618 }\r
 619 \r
 620 int __stdcall CloseArchive\r
 621 (\r
 622         void * _hArchive\r
 623 )\r
 624 {\r
 625         FARPROC fpProc = ::GetAPIAddress("CloseArchive", false);\r
 626         return fpProc == NULL ? TPI_ERROR_U_USE_LIBRARY : CalErrorCodeConvert(((int (__stdcall *)(void *)) fpProc)(_hArchive));\r
 627 }\r
 628 \r
 629 int __stdcall GetFileInformation\r
 630 (\r
 631         void * _hArchive,\r
 632         TPI_FILEINFO * _fiInfo,\r
 633         bool _bFirst\r
 634 )\r
 635 {\r
 636         static unsigned int s_uFileID;\r
 637         static FARPROC fpNext, fpAttr;\r
 638         int nResult;\r
 639         INDIVIDUALINFO iiInfo;\r
 640         INDIVIDUALINFOW iiInfoW;\r
 641         memset(& iiInfo,  0, sizeof(iiInfo));\r
 642         memset(& iiInfoW, 0, sizeof(iiInfoW));\r
 643 \r
 644         if (_bFirst)\r
 645         {\r
 646                 s_uFileID = 0;\r
 647                 FARPROC fpProc = ::GetAPIAddress("FindFirst", true);\r
 648                 fpNext = ::GetAPIAddress("FindNext", true);\r
 649                 fpAttr = ::GetAPIAddress("GetAttribute", false);\r
 650                 if (fpProc == NULL)\r
 651                 {\r
 652                         return TPI_ERROR_U_USE_LIBRARY;\r
 653                 }\r
 654 \r
 655                 nResult = g_LibInfo.fUnicode\r
 656                         ? ((int (__stdcall *)(void *, const wchar_t *, LPINDIVIDUALINFOW)) fpProc)(_hArchive, L"*", & iiInfoW)\r
 657                         : ((int (__stdcall *)(void *, const char *,    LPINDIVIDUALINFO))  fpProc)(_hArchive,  "*", & iiInfo);\r
 658         }\r
 659         else\r
 660         {\r
 661                 if (fpNext == NULL)\r
 662                 {\r
 663                         return TPI_ERROR_U_USE_LIBRARY;\r
 664                 }\r
 665 \r
 666                 nResult = g_LibInfo.fUnicode\r
 667                         ? ((int (__stdcall *)(void *, LPINDIVIDUALINFOW)) fpNext)(_hArchive, & iiInfoW)\r
 668                         : ((int (__stdcall *)(void *, LPINDIVIDUALINFO))  fpNext)(_hArchive, & iiInfo);\r
 669         }\r
 670 \r
 671         nResult = CalErrorCodeConvert(nResult);\r
 672         if (nResult == TPI_ERROR_SUCCESS)\r
 673         {\r
 674                 _fiInfo->dwAttribute = (fpAttr == NULL) ? 0 : ((int (__stdcall *)(void *)) fpAttr)(_hArchive);\r
 675                 if ((signed) _fiInfo->dwAttribute == -1)\r
 676                 {\r
 677                         _fiInfo->dwAttribute = 0;\r
 678                 }\r
 679 \r
 680                 if (g_LibInfo.fUnicode)\r
 681                 {\r
 682                         _fiInfo->dwCRC32        = iiInfoW.dwCRC;\r
 683                         _fiInfo->uOSType        = iiInfoW.uOSType;\r
 684                         _fiInfo->llPackedSize   = iiInfoW.dwCompressedSize;\r
 685                         _fiInfo->llUnpackedSize = iiInfoW.dwOriginalSize;\r
 686                         _fiInfo->tmModified.SetFromDOS(MAKELONG(iiInfoW.wTime, iiInfoW.wDate));\r
 687                         _fiInfo->szStoredName   = WC2String(iiInfoW.szFileName);\r
 688                         _fiInfo->szMethod       = WC2String(iiInfoW.szMode);\r
 689                         _fiInfo->wCompressRatio = iiInfoW.wRatio;\r
 690                 }\r
 691                 else\r
 692                 {\r
 693                         _fiInfo->dwCRC32        = iiInfo.dwCRC;\r
 694                         _fiInfo->uOSType        = iiInfo.uOSType;\r
 695                         _fiInfo->llPackedSize   = iiInfo.dwCompressedSize;\r
 696                         _fiInfo->llUnpackedSize = iiInfo.dwOriginalSize;\r
 697                         _fiInfo->tmModified.SetFromDOS(MAKELONG(iiInfo.wTime, iiInfo.wDate));\r
 698                         _fiInfo->szStoredName   = UTF82String(iiInfo.szFileName);\r
 699                         _fiInfo->szMethod       = UTF82String(iiInfo.szMode);\r
 700                         _fiInfo->wCompressRatio = iiInfo.wRatio;\r
 701                 }\r
 702                 _fiInfo->llFileID       = s_uFileID++;\r
 703                 _fiInfo->fnFileName     = wxFileName(_fiInfo->szStoredName);\r
 704 //              _fiInfo->ftAccessTime   = 0;\r
 705 //              _fiInfo->ftCreateTime   = 0;\r
 706         }\r
 707 \r
 708         return nResult;\r
 709 }\r
 710 \r
 711 int __stdcall GetArchiveInformation\r
 712 (\r
 713         void * _hArchive,\r
 714         TPI_ARCHIVEINFO * _aiInfo\r
 715 )\r
 716 {\r
 717         FARPROC fpProc = ::GetAPIAddress("GetArcFileName", true);\r
 718         if (fpProc != NULL)\r
 719         {\r
 720                 // TODO : \83t\83@\83C\83\8b\96¼\82Ì\95¶\8e\9a\90\94\90§\8cÀ\82ð\93P\94p\81B\r
 721                 wxString s;\r
 722                 if (g_LibInfo.fUnicode)\r
 723                 {\r
 724                         wchar_t sz[2049];\r
 725                         ((int (__stdcall *)(void *, wchar_t *, const int)) fpProc)(_hArchive, sz, 2048);\r
 726                         s = WC2String(sz);\r
 727                 }\r
 728                 else\r
 729                 {\r
 730                         char sz[2049];\r
 731                         ((int (__stdcall *)(void *, char *, const int)) fpProc)(_hArchive, sz, 2048);\r
 732                         s = UTF82String(sz);\r
 733                 }\r
 734                 _aiInfo->fnArchive = wxFileName(s);\r
 735         }\r
 736 \r
 737         fpProc = ::GetAPIAddress("GetArcFileSizeEx", false);\r
 738         if (fpProc != NULL)\r
 739         {\r
 740                 ((BOOL (__stdcall *)(void *, LONGLONG *)) fpProc)(_hArchive, (LONGLONG *) & _aiInfo->llFileSize);\r
 741         }\r
 742         else\r
 743         {\r
 744                 fpProc = ::GetAPIAddress("GetArcFileSize", false);\r
 745                 if (fpProc != NULL)\r
 746                 {\r
 747                         _aiInfo->llFileSize = ((DWORD (__stdcall *)(void *)) fpProc)(_hArchive);\r
 748                 }\r
 749         }\r
 750 \r
 751         fpProc = ::GetAPIAddress("GetArcOriginalSizeEx", false);\r
 752         if (fpProc != NULL)\r
 753         {\r
 754                 ((BOOL (__stdcall *)(void *, LONGLONG *)) fpProc)(_hArchive, (LONGLONG *) & _aiInfo->llUnpackedSize);\r
 755         }\r
 756         else\r
 757         {\r
 758                 fpProc = ::GetAPIAddress("GetArcOriginalSize", false);\r
 759                 if (fpProc != NULL)\r
 760                 {\r
 761                         _aiInfo->llUnpackedSize = ((DWORD (__stdcall *)(void *)) fpProc)(_hArchive);\r
 762                 }\r
 763         }\r
 764 \r
 765         fpProc = ::GetAPIAddress("GetArcCompressedSizeEx", false);\r
 766         if (fpProc != NULL)\r
 767         {\r
 768                 ((BOOL (__stdcall *)(void *, LONGLONG *)) fpProc)(_hArchive, (LONGLONG *) & _aiInfo->llPackedSize);\r
 769         }\r
 770         else\r
 771         {\r
 772                 fpProc = ::GetAPIAddress("GetArcCompressedSize", false);\r
 773                 if (fpProc != NULL)\r
 774                 {\r
 775                         _aiInfo->llPackedSize = ((DWORD (__stdcall *)(void *)) fpProc)(_hArchive);\r
 776                 }\r
 777         }\r
 778 \r
 779         fpProc = ::GetAPIAddress("GetArcReadSizeEx", false);\r
 780         if (fpProc != NULL)\r
 781         {\r
 782                 ((BOOL (__stdcall *)(void *, LONGLONG *)) fpProc)(_hArchive, (LONGLONG *) & _aiInfo->llReadSize);\r
 783         }\r
 784         else\r
 785         {\r
 786                 fpProc = ::GetAPIAddress("GetArcReadSize", false);\r
 787                 if (fpProc != NULL)\r
 788                 {\r
 789                         _aiInfo->llReadSize = ((DWORD (__stdcall *)(void *)) fpProc)(_hArchive);\r
 790                 }\r
 791         }\r
 792 \r
 793         fpProc = ::GetAPIAddress("GetArcRatio", false);\r
 794         if (fpProc != NULL)\r
 795         {\r
 796                 _aiInfo->wCompressRatio = ((WORD (__stdcall *)(void *)) fpProc)(_hArchive);\r
 797         }\r
 798 \r
 799         FILETIME ft;\r
 800         fpProc = ::GetAPIAddress("GetArcAccessTimeEx", false);\r
 801         if (fpProc != NULL)\r
 802         {\r
 803                 ((BOOL (__stdcall *)(void *, FILETIME *)) fpProc)(_hArchive, & ft);\r
 804                 _aiInfo->tmAccess = FileTimeToWxDateTime(& ft);\r
 805         }\r
 806 \r
 807         fpProc = ::GetAPIAddress("GetArcCreatedTimeEx", false);\r
 808         if (fpProc != NULL)\r
 809         {\r
 810                 ((BOOL (__stdcall *)(void *, FILETIME *)) fpProc)(_hArchive, & ft);\r
 811                 _aiInfo->tmCreate = FileTimeToWxDateTime(& ft);\r
 812         }\r
 813 \r
 814         fpProc = ::GetAPIAddress("GetArcWriteTimeEx", false);\r
 815         if (fpProc != NULL)\r
 816         {\r
 817                 ((BOOL (__stdcall *)(void *, FILETIME *)) fpProc)(_hArchive, & ft);\r
 818                 _aiInfo->tmModified = FileTimeToWxDateTime(& ft);\r
 819         }\r
 820 \r
 821         fpProc = ::GetAPIAddress("GetArcOSType", false);\r
 822         if (fpProc != NULL)\r
 823         {\r
 824                 _aiInfo->uOSType = ((UINT (__stdcall *)(void *)) fpProc)(_hArchive);\r
 825         }\r
 826 \r
 827         fpProc = ::GetAPIAddress("IsSFXFile", false);\r
 828         if (fpProc != NULL)\r
 829         {\r
 830                 _aiInfo->nSFXType = ((int (__stdcall *)(void *)) fpProc)(_hArchive);\r
 831         }\r
 832         if (fpProc == NULL || _aiInfo->nSFXType < 0)\r
 833         {\r
 834                 // \83G\83\89\81[\82Ì\8fê\8d\87\82Í\82Æ\82è\82 \82¦\82¸\92Ê\8fí\82Ì\8f\91\8cÉ\82Æ\82Ý\82È\82·\81B\r
 835                 _aiInfo->nSFXType = 0;\r
 836         }\r
 837 \r
 838         // \8c`\8e®\82É\8aÖ\82·\82é\8fî\95ñ\82ð\8eæ\93¾\81B\r
 839         MakeFormatInfo(wxT("calLibrary"), & _aiInfo->fiInfo, & g_LibInfo.node, 0);\r
 840 \r
 841         return TPI_ERROR_SUCCESS;\r
 842 }\r
 843 \r
 844 int __stdcall Command\r
 845 (\r
 846         unsigned int _uCommand,\r
 847         TPI_SWITCHES * _swInfo,\r
 848         const wxString & _szArcName,\r
 849         const wxArrayString & _szFiles\r
 850 )\r
 851 {\r
 852         // Ini\82©\82ç\83R\83}\83\93\83h\83\89\83C\83\93\82ð\8eæ\93¾\81B\r
 853         wxString szPath, szCommandLine;\r
 854 \r
 855         // API\83A\83h\83\8c\83X\8eæ\93¾\81B\r
 856         g_LibInfoAlt.fRunning\r
 857                 = g_LibInfo.node.GetPropVal(\r
 858                         _uCommand == TPI_COMMAND_ADD     ? wxT("add-alt") :\r
 859                         _uCommand == TPI_COMMAND_EXTRACT ? wxT("extract-alt") : \r
 860                         _uCommand == TPI_COMMAND_DELETE  ? wxT("delete-alt") : \r
 861                         _uCommand == TPI_COMMAND_UPDATE  ? wxT("update-alt") : \r
 862                         _uCommand == TPI_COMMAND_TEST    ? wxT("test-alt") : \r
 863                         _uCommand == TPI_COMMAND_REPAIR  ? wxT("repair-alt") : \r
 864                         _uCommand == TPI_COMMAND_MOVE    ? wxT("move-alt") : \r
 865                         _uCommand == TPI_COMMAND_SFX     ? wxT("sfx-alt") : \r
 866                         _uCommand == TPI_COMMAND_UNSFX   ? wxT("unsfx-alt") : wxEmptyString, & szCommandLine);\r
 867         g_LibInfo.fRunning\r
 868                 = g_LibInfo.node.GetPropVal(\r
 869                         _uCommand == TPI_COMMAND_ADD     ? wxT("add") :\r
 870                         _uCommand == TPI_COMMAND_EXTRACT ? wxT("extract") : \r
 871                         _uCommand == TPI_COMMAND_DELETE  ? wxT("delete") : \r
 872                         _uCommand == TPI_COMMAND_UPDATE  ? wxT("update") : \r
 873                         _uCommand == TPI_COMMAND_TEST    ? wxT("test") : \r
 874                         _uCommand == TPI_COMMAND_REPAIR  ? wxT("repair") : \r
 875                         _uCommand == TPI_COMMAND_MOVE    ? wxT("move") : \r
 876                         _uCommand == TPI_COMMAND_SFX     ? wxT("sfx") : \r
 877                         _uCommand == TPI_COMMAND_UNSFX   ? wxT("unsfx") : wxEmptyString, & szCommandLine);\r
 878 \r
 879         FARPROC fpProc =\r
 880                 g_LibInfo.fRunning    ? ::GetAPIAddress(   "", true) :\r
 881                 g_LibInfoAlt.fRunning ? ::GetAPIAddressAlt("", true) : NULL;\r
 882         if (fpProc == NULL || szCommandLine.IsEmpty())\r
 883         {\r
 884                 return TPI_ERROR_U_USE_LIBRARY;\r
 885         }\r
 886 \r
 887         // \83R\83}\83\93\83h\83\89\83C\83\93\81E\83\8c\83X\83|\83\93\83X\83t\83@\83C\83\8b\8dì\90¬\81B\r
 888         wxString\r
 889                 szResponceFileName = MakeResponceFile(_szFiles, g_LibInfo.node.GetPropVal(wxT("quote-resp"), wxT("1")) == wxT("1")),\r
 890                 szCommandLineSend  = MakeCommandLineSend(szCommandLine, _szArcName, _swInfo, _szFiles, szResponceFileName);\r
 891 \r
 892         // \83R\83}\83\93\83h\83\89\83C\83\93\8eÀ\8ds\81B\r
 893         int nErrorCode;\r
 894         wxString szOutput;\r
 895         if ((g_LibInfo.fRunning && g_LibInfo.fUnicode) || (g_LibInfoAlt.fRunning && g_LibInfoAlt.fUnicode))\r
 896         {\r
 897                 wchar_t szTmpOut[2049];\r
 898                 nErrorCode = ((int (__stdcall *)(const HWND, const wchar_t *, wchar_t *, DWORD)) fpProc)(NULL, szCommandLineSend.wchar_str(), szTmpOut, 2048);\r
 899                 szOutput = WC2String(szTmpOut);\r
 900         }\r
 901         else\r
 902         {\r
 903                 char szTmpOut[2049];\r
 904                 nErrorCode = ((int (__stdcall *)(const HWND, const char *, char *, DWORD)) fpProc)(NULL, szCommandLineSend.ToUTF8(), szTmpOut, 2048);\r
 905                 szOutput = UTF82String(szTmpOut);\r
 906         }\r
 907 \r
 908         // \83\8c\83X\83|\83\93\83X\83t\83@\83C\83\8b\8dí\8f\9c\81B\r
 909         ::wxRemoveFile(szResponceFileName);\r
 910 \r
 911         if (nErrorCode != 0)\r
 912         {\r
 913 #ifdef __LINUX__\r
 914                 ::wxMessageBox(wxString::Format(wxT("Error :\n%x\n\nCommandLine:\n%s\n\nOutput:\n%s"), nErrorCode, szCommandLineSend.c_str(), szOutput.c_str()));\r
 915 #else\r
 916                 MessageBox(NULL, wxString::Format(wxT("Error :\n%x\n\nCommandLine:\n%s\n\nOutput:\n%s"), nErrorCode, szCommandLineSend.c_str(), szOutput.c_str()), NULL, 0);\r
 917 #endif\r
 918         }\r
 919         return CalErrorCodeConvert(nErrorCode);\r
 920 }\r
 921 \r
 922 int __stdcall SetCallbackProc\r
 923 (\r
 924         TPI_PROC _prArcProc\r
 925 )\r
 926 {\r
 927         // \83|\83C\83\93\83^\82ð\95Û\91¶\81B\r
 928         if (_prArcProc == NULL)\r
 929         {\r
 930                 return TPI_ERROR_D_PARAMETER;\r
 931         }\r
 932         g_prProc = * _prArcProc;\r
 933 \r
 934         // \83R\81[\83\8b\83o\83b\83N\8aÖ\90\94\82ð\90Ý\92è\81B\r
 935         CalSetCallbackProc(true);\r
 936         return CalSetCallbackProc(false);\r
 937 }\r
 938 \r
 939 #ifdef __cplusplus\r
 940 }\r
 941 #endif\r