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$\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 \r
  53 //******************************************************************************\r
  54 //    Entry\r
  55 //******************************************************************************\r
  56 \r
  57 BOOL __stdcall DllMain(HMODULE, DWORD fdwReason, void *)\r
  58 {\r
  59         switch (fdwReason)\r
  60         {\r
  61         case DLL_PROCESS_DETACH:\r
  62                 ::FreeLibrary(g_LibInfo.hLib);\r
  63                 break;\r
  64         }\r
  65         return TRUE;\r
  66 }\r
  67 \r
  68 wxDateTime FileTimeToWxDateTime(FILETIME * pft)\r
  69 {\r
  70         FILETIME ftLocal;\r
  71         SYSTEMTIME st;\r
  72         if (! ::FileTimeToLocalFileTime(pft, & ftLocal) || ! ::FileTimeToSystemTime(& ftLocal, & st))\r
  73         {\r
  74                 return (time_t) 0;\r
  75         }\r
  76         wxDateTime dt(st.wDay, wxDateTime::Month(st.wMonth - 1), st.wYear, st.wHour, st.wMinute, st.wSecond, st.wMilliseconds);\r
  77         return dt;\r
  78 }\r
  79 \r
  80 //******************************************************************************\r
  81 //    Callback Wrapper\r
  82 //******************************************************************************\r
  83 \r
  84 BOOL __stdcall CallbackProc(HWND, unsigned int _uMsg, unsigned int _uState, void * _lpEis)\r
  85 {\r
  86         if (_uMsg != ::RegisterWindowMessage((const wchar_t *) WM_ARCEXTRACT))\r
  87         {\r
  88                 // 独自仕様などに対する予備コード。\r
  89                 return TRUE;\r
  90         }\r
  91 \r
  92         // 構造体を初期化。\r
  93         TPI_PROCESSINFO piInfo;\r
  94         piInfo.eMessage = TPI_MESSAGE_STATUS;\r
  95 \r
  96         if (_lpEis != NULL)\r
  97         {\r
  98                 if ((g_LibInfo.fRunning && g_LibInfo.fCallback32bit) || (g_LibInfoAlt.fRunning && g_LibInfoAlt.fCallback32bit))\r
  99                 {\r
 100                         if ((g_LibInfo.fRunning && g_LibInfo.fUnicode) || (g_LibInfoAlt.fRunning && g_LibInfoAlt.fUnicode))\r
 101                         {\r
 102                                 // 初期化。\r
 103                                 EXTRACTINGINFOEXW * ex = (EXTRACTINGINFOEXW *) _lpEis;\r
 104 \r
 105                                 // EXTRACTINGINFOEXW -> TPI_FILEINFO変換。\r
 106                                 piInfo.fiInfo.dwCRC32           = ex->dwCRC;\r
 107                                 piInfo.fiInfo.tmModified.SetFromDOS(ex->wTime | (ex->wDate << 16));\r
 108                                 piInfo.fiInfo.nPackedSize      = ex->dwCompressedSize;\r
 109                                 piInfo.fiInfo.nUnpackedSize    = ex->exinfo.dwFileSize;\r
 110                                 piInfo.fiInfo.eOSType           = ex->eOSType;\r
 111                                 piInfo.fiInfo.wCompressRatio    = ex->wRatio;\r
 112                                 piInfo.fiInfo.szStoredName      = WC2String(ex->exinfo.szSourceFileName);\r
 113                                 piInfo.fiInfo.szMethod          = WC2String(ex->szMode);\r
 114 \r
 115                                 // EXTRACTINGINFOEXW -> TPI_PROCESSINFO変換。\r
 116                                 piInfo.nProcessedSize           = ex->exinfo.dwWriteSize;\r
 117                                 piInfo.fnDestination            = wxFileName(WC2String(ex->exinfo.szDestFileName));\r
 118                         }\r
 119                         else\r
 120                         {\r
 121                                 // 初期化。\r
 122                                 EXTRACTINGINFOEX * ex = (EXTRACTINGINFOEX *) _lpEis;\r
 123 \r
 124                                 // EXTRACTINGINFOEX -> TPI_FILEINFO変換。\r
 125                                 piInfo.fiInfo.dwCRC32           = ex->dwCRC;\r
 126                                 piInfo.fiInfo.tmModified.SetFromDOS(ex->wTime | (ex->wDate << 16));\r
 127                                 piInfo.fiInfo.nPackedSize      = ex->dwCompressedSize;\r
 128                                 piInfo.fiInfo.nUnpackedSize    = ex->exinfo.dwFileSize;\r
 129                                 piInfo.fiInfo.eOSType           = ex->eOSType;\r
 130                                 piInfo.fiInfo.wCompressRatio    = ex->wRatio;\r
 131                                 piInfo.fiInfo.szStoredName      = UTF82String(ex->exinfo.szSourceFileName);\r
 132                                 piInfo.fiInfo.szMethod          = UTF82String(ex->szMode);\r
 133 \r
 134                                 // EXTRACTINGINFOEX -> TPI_PROCESSINFO変換。\r
 135                                 piInfo.nProcessedSize           = ex->exinfo.dwWriteSize;\r
 136                                 piInfo.fnDestination            = wxFileName(UTF82String(ex->exinfo.szDestFileName));\r
 137                         }\r
 138                         piInfo.fiInfo.dwAttribute       = 0;\r
 139                 }\r
 140                 else\r
 141                 {\r
 142                         if ((g_LibInfo.fRunning && g_LibInfo.fUnicode) || (g_LibInfoAlt.fRunning && g_LibInfoAlt.fUnicode))\r
 143                         {\r
 144                                 // 初期化。\r
 145                                 EXTRACTINGINFOEX64W * ex = (EXTRACTINGINFOEX64W *) _lpEis;\r
 146 \r
 147                                 // EXTRACTINGINFOEX64W -> TPI_FILEINFO変換。\r
 148                                 piInfo.fiInfo.dwAttribute       = ex->dwAttributes;\r
 149                                 piInfo.fiInfo.dwCRC32           = ex->dwCRC;\r
 150                                 piInfo.fiInfo.tmAccess          = FileTimeToWxDateTime(& ex->ftAccessTime);\r
 151                                 piInfo.fiInfo.tmCreate          = FileTimeToWxDateTime(& ex->ftCreateTime);\r
 152                                 piInfo.fiInfo.tmModified        = FileTimeToWxDateTime(& ex->ftWriteTime);\r
 153                                 piInfo.fiInfo.nPackedSize       = ex->llCompressedSize;\r
 154                                 piInfo.fiInfo.nUnpackedSize     = ex->llFileSize;\r
 155                                 piInfo.fiInfo.eOSType           = ex->eOSType;\r
 156                                 piInfo.fiInfo.wCompressRatio    = ex->wRatio;\r
 157                                 piInfo.fiInfo.szStoredName      = WC2String(ex->exinfo.szSourceFileName);\r
 158                                 piInfo.fiInfo.szMethod          = WC2String(ex->szMode);\r
 159 \r
 160                                 // EXTRACTINGINFOEX64 -> TPI_PROCESSINFO変換。\r
 161                                 piInfo.nProcessedSize           = ex->llWriteSize;\r
 162                                 piInfo.fnDestination            = wxFileName(WC2String(ex->exinfo.szDestFileName));\r
 163                         }\r
 164                         else\r
 165                         {\r
 166                                 // 初期化。\r
 167                                 EXTRACTINGINFOEX64 * ex = (EXTRACTINGINFOEX64 *) _lpEis;\r
 168 \r
 169                                 // EXTRACTINGINFOEX64 -> TPI_FILEINFO変換。\r
 170                                 piInfo.fiInfo.dwAttribute       = ex->dwAttributes;\r
 171                                 piInfo.fiInfo.dwCRC32           = ex->dwCRC;\r
 172                                 piInfo.fiInfo.tmAccess          = FileTimeToWxDateTime(& ex->ftAccessTime);\r
 173                                 piInfo.fiInfo.tmCreate          = FileTimeToWxDateTime(& ex->ftCreateTime);\r
 174                                 piInfo.fiInfo.tmModified        = FileTimeToWxDateTime(& ex->ftWriteTime);\r
 175                                 piInfo.fiInfo.nPackedSize       = ex->llCompressedSize;\r
 176                                 piInfo.fiInfo.nUnpackedSize     = ex->llFileSize;\r
 177                                 piInfo.fiInfo.eOSType           = ex->eOSType;\r
 178                                 piInfo.fiInfo.wCompressRatio    = ex->wRatio;\r
 179                                 piInfo.fiInfo.szStoredName      = UTF82String(ex->exinfo.szSourceFileName);\r
 180                                 piInfo.fiInfo.szMethod          = UTF82String(ex->szMode);\r
 181 \r
 182                                 // EXTRACTINGINFOEX64 -> TPI_PROCESSINFO変換。\r
 183                                 piInfo.nProcessedSize           = ex->llWriteSize;\r
 184                                 piInfo.fnDestination            = wxFileName(UTF82String(ex->exinfo.szDestFileName));\r
 185                         }\r
 186                 }\r
 187                 piInfo.fiInfo.fnFileName        = wxFileName(piInfo.fiInfo.szStoredName);\r
 188         }\r
 189 \r
 190         // 数字の順でなく処理の順で並んでいることに注意。\r
 191         switch (_uState)\r
 192         {\r
 193         case ARCEXTRACT_OPEN:\r
 194                 // 当該書庫の処理を開始。\r
 195                 piInfo.eStatus = TPI_STATUS_OPENARCHIVE;\r
 196                 break;\r
 197         case 5:\r
 198                 // 当該ファイルの検索中。\r
 199                 piInfo.eStatus = TPI_STATUS_SEEKFILE;\r
 200                 break;\r
 201         case ARCEXTRACT_BEGIN:\r
 202                 // 当該ファイルの処理を開始。\r
 203                 piInfo.eStatus = TPI_STATUS_BEGINPROCESS;\r
 204                 break;\r
 205         case ARCEXTRACT_INPROCESS:\r
 206                 // 当該ファイルの処理を実行中。\r
 207                 piInfo.eStatus = TPI_STATUS_INPROCESS;\r
 208                 break;\r
 209         case 6:\r
 210                 // 当該ファイルの処理を終了。\r
 211                 piInfo.eStatus = TPI_STATUS_ENDPROCESS;\r
 212                 break;\r
 213         case 7:\r
 214                 // 当該書庫の検査中。\r
 215                 piInfo.eStatus = TPI_STATUS_TESTARCHIVE;\r
 216                 break;\r
 217         case ARCEXTRACT_COPY:\r
 218                 // 当該書庫の書き戻し中。\r
 219                 piInfo.eStatus = TPI_STATUS_COPYARCHIVE;\r
 220                 break;\r
 221         case ARCEXTRACT_END:\r
 222                 // 当該書庫の処理を終了。\r
 223                 piInfo.eStatus = TPI_STATUS_CLOSEARCHIVE;\r
 224                 break;\r
 225         }\r
 226 \r
 227         // コールバック関数に送信。\r
 228         if (g_prProc == NULL)\r
 229         {\r
 230                 return TRUE;\r
 231         }\r
 232 \r
 233         return g_prProc(TPI_NOTIFY_COMMON, & piInfo) != TPI_CALLBACK_CANCEL;\r
 234 }\r
 235 \r
 236 //******************************************************************************\r
 237 //    Inside Functions\r
 238 //******************************************************************************\r
 239 \r
 240 #define GetAPIAddress(name, unicode) GetProcAddress(g_LibInfo.hLib, (g_LibInfo.szPrefix + wxT(name) + ((unicode && g_LibInfo.fUnicode) ? wxT("W") : wxEmptyString)).char_str())\r
 241 #define GetAPIAddressAlt(name, unicode) GetProcAddress(g_LibInfoAlt.hLib, (g_LibInfoAlt.szPrefix + wxT(name) + ((unicode && g_LibInfoAlt.fUnicode) ? wxT("W") : wxEmptyString)).char_str())\r
 242 \r
 243 int ErrorCodeConvert(int nErrorCode)\r
 244 {\r
 245         switch (nErrorCode)\r
 246         {\r
 247         case 0:                     return TPI_ERROR_SUCCESS;\r
 248         case -1:                                        return TPI_ERROR_S_ENDOFDATA;\r
 249         case ERROR_DISK_SPACE:      return TPI_ERROR_IO_ARC_WRITE;\r
 250         case ERROR_READ_ONLY:       return TPI_ERROR_IO_FILE_WRITE;\r
 251         case ERROR_USER_SKIP:       return TPI_ERROR_D_SKIPPED;\r
 252         case ERROR_UNKNOWN_TYPE:    return TPI_ERROR_IO_MISC;\r
 253         case ERROR_METHOD:          return TPI_ERROR_ARC_UNSUPPORTED;\r
 254         case ERROR_PASSWORD_FILE:   return TPI_ERROR_ARC_ENCRYPTED;\r
 255         case ERROR_VERSION:         return TPI_ERROR_ARC_UNSUPPORTED;\r
 256         case ERROR_FILE_CRC:        return TPI_ERROR_ARC_BROKEN_SUM;\r
 257         case ERROR_FILE_OPEN:       return TPI_ERROR_IO_FILE_OPEN;\r
 258         case ERROR_MORE_FRESH:      return TPI_ERROR_IO_FILE_MISC;\r
 259         case ERROR_NOT_EXIST:       return TPI_ERROR_IO_FILE_ACCESS;\r
 260         case ERROR_ALREADY_EXIST:   return TPI_ERROR_IO_FILE_ACCESS;\r
 261         case ERROR_TOO_MANY_FILES:  return TPI_ERROR_IO_ARC_MISC;\r
 262         case ERROR_MAKEDIRECTORY:   return TPI_ERROR_IO_DIR_OPEN;\r
 263         case ERROR_CANNOT_WRITE:    return TPI_ERROR_IO_FILE_WRITE;\r
 264         case ERROR_HUFFMAN_CODE:    return TPI_ERROR_ARC_BROKEN_MISC;\r
 265         case ERROR_COMMENT_HEADER:  return TPI_ERROR_ARC_BROKEN_HEADER;\r
 266         case ERROR_HEADER_CRC:      return TPI_ERROR_ARC_BROKEN_SUM;\r
 267         case ERROR_HEADER_BROKEN:   return TPI_ERROR_ARC_BROKEN_HEADER;\r
 268         case ERROR_ARC_FILE_OPEN:   return TPI_ERROR_IO_ARC_OPEN;\r
 269         case ERROR_NOT_ARC_FILE:    return TPI_ERROR_D_UNSUPPORTED;\r
 270         case ERROR_CANNOT_READ:     return TPI_ERROR_IO_ARC_READ;\r
 271         case ERROR_FILE_STYLE:      return TPI_ERROR_D_UNSUPPORTED;\r
 272         case ERROR_COMMAND_NAME:    return TPI_ERROR_UNDEFINED;\r
 273         case ERROR_MORE_HEAP_MEMORY:return TPI_ERROR_D_OUTOFMEMORY;\r
 274         case ERROR_ENOUGH_MEMORY:   return TPI_ERROR_D_OUTOFMEMORY;\r
 275         case ERROR_ALREADY_RUNNING: return TPI_ERROR_UNDEFINED;\r
 276         case ERROR_USER_CANCEL:     return TPI_ERROR_D_SKIPPED;\r
 277         case ERROR_HARC_ISNOT_OPENED: return TPI_ERROR_D_PARAMETER;\r
 278         case ERROR_NOT_SEARCH_MODE: return TPI_ERROR_D_PARAMETER;\r
 279         case ERROR_NOT_SUPPORT:     return TPI_ERROR_U_USE_LIBRARY;\r
 280         case ERROR_TIME_STAMP:      return TPI_ERROR_UNDEFINED;\r
 281         case ERROR_TMP_OPEN:        return TPI_ERROR_IO_TMP_OPEN;\r
 282         case ERROR_LONG_FILE_NAME:  return TPI_ERROR_IO_FILE_ACCESS;\r
 283         case ERROR_ARC_READ_ONLY:   return TPI_ERROR_IO_ARC_ACCESS;\r
 284         case ERROR_SAME_NAME_FILE:  return TPI_ERROR_UNDEFINED;\r
 285         case ERROR_NOT_FIND_ARC_FILE: return TPI_ERROR_IO_ARC_NOTFOUND;\r
 286         case ERROR_RESPONSE_READ:   return TPI_ERROR_IO_MISC_READ;\r
 287         case ERROR_NOT_FILENAME:    return TPI_ERROR_IO_FILE_NOTFOUND;\r
 288         case ERROR_TMP_COPY:        return TPI_ERROR_IO_TMP_COPY;\r
 289         case ERROR_EOF:             return TPI_ERROR_ARC_BROKEN_SIZE;\r
 290         case ERROR_ADD_TO_LARC:     return TPI_ERROR_UNDEFINED;\r
 291         case ERROR_TMP_BACK_SPACE:  return TPI_ERROR_IO_TMP_MOVE;\r
 292         case ERROR_SHARING:         return TPI_ERROR_IO_FILE_ACCESS;\r
 293         case ERROR_NOT_FIND_FILE:   return TPI_ERROR_IO_NOTFOUND;\r
 294         case ERROR_LOG_FILE:        return TPI_ERROR_IO_MISC_WRITE;\r
 295         case ERROR_NO_DEVICE:       return TPI_ERROR_IO_FILE_ACCESS;\r
 296         case ERROR_GET_ATTRIBUTES:  return TPI_ERROR_IO_FILE_GETINFO;\r
 297         case ERROR_SET_ATTRIBUTES:  return TPI_ERROR_IO_FILE_SETINFO;\r
 298         case ERROR_GET_INFORMATION: return TPI_ERROR_IO_FILE_GETINFO;\r
 299         case ERROR_GET_POINT:       return TPI_ERROR_IO_FILE_POINT;\r
 300         case ERROR_SET_POINT:       return TPI_ERROR_IO_FILE_POINT;\r
 301         case ERROR_CONVERT_TIME:    return TPI_ERROR_UNDEFINED;\r
 302         case ERROR_GET_TIME:        return TPI_ERROR_IO_FILE_GETINFO;\r
 303         case ERROR_SET_TIME:        return TPI_ERROR_IO_FILE_SETINFO;\r
 304         case ERROR_CLOSE_FILE:      return TPI_ERROR_IO_FILE_CLOSE;\r
 305         case ERROR_HEAP_MEMORY:     return TPI_ERROR_D_USEMEMORY;\r
 306         case ERROR_HANDLE:          return TPI_ERROR_UNDEFINED;\r
 307         case ERROR_TIME_STAMP_RANGE:return TPI_ERROR_UNDEFINED;\r
 308         case ERROR_MAKE_ARCHIVE:    return TPI_ERROR_ARC_BROKEN_MISC;\r
 309         case ERROR_NOT_CONFIRM_NAME:return TPI_ERROR_ARC_BROKEN_HEADER;\r
 310         case ERROR_UNEXPECTED_EOF:  return TPI_ERROR_ARC_BROKEN_HEADER;\r
 311         case ERROR_INVALID_END_MARK:return TPI_ERROR_ARC_BROKEN_SIZE;\r
 312         case ERROR_INVOLVED_LZH:    return TPI_ERROR_ARC_BROKEN_MISC;\r
 313         case ERROR_NO_END_MARK:     return TPI_ERROR_ARC_BROKEN_SIZE;\r
 314         case ERROR_HDR_INVALID_SIZE:return TPI_ERROR_ARC_BROKEN_HEADER;\r
 315         case ERROR_UNKNOWN_LEVEL:   return TPI_ERROR_ARC_UNSUPPORTED;\r
 316         case ERROR_BROKEN_DATA:     return TPI_ERROR_ARC_BROKEN_MISC;\r
 317         case ERROR_INVALID_PATH:    return TPI_ERROR_ARC_DANGER;\r
 318         case ERROR_TOO_BIG:         return TPI_ERROR_IO_FILE_WRITE;\r
 319         case ERROR_EXECUTABLE_FILE: return TPI_ERROR_ARC_DANGER;\r
 320         case ERROR_INVALID_VALUE:   return TPI_ERROR_UNDEFINED;\r
 321         case ERROR_HDR_EXPLOIT:     return TPI_ERROR_ARC_DANGER;\r
 322         case ERROR_HDR_NO_CRC:      return TPI_ERROR_ARC_BROKEN_HEADER;\r
 323         case ERROR_HDR_NO_NAME:     return TPI_ERROR_ARC_BROKEN_HEADER;\r
 324         default:                    return TPI_ERROR_UNDEFINED;\r
 325         }\r
 326 }\r
 327 \r
 328 int CalSetCallbackProc(bool fAlt)\r
 329 {\r
 330         // 先にコールバック関数の設定を解除しておく。\r
 331         FARPROC fpProc;\r
 332         if (fAlt)\r
 333         {\r
 334                 fpProc = ::GetAPIAddressAlt("KillOwnerWindowEx64", false);\r
 335                 g_LibInfoAlt.fCallback32bit = fpProc == NULL;\r
 336                 if (g_LibInfoAlt.fCallback32bit)\r
 337                 {\r
 338                         fpProc = ::GetAPIAddressAlt("KillOwnerWindowEx", false);\r
 339                 }\r
 340         }\r
 341         else\r
 342         {\r
 343                 fpProc = ::GetAPIAddress("KillOwnerWindowEx64", false);\r
 344                 g_LibInfo.fCallback32bit = fpProc == NULL;\r
 345                 if (g_LibInfo.fCallback32bit)\r
 346                 {\r
 347                         fpProc = ::GetAPIAddress("KillOwnerWindowEx", false);\r
 348                 }\r
 349         }\r
 350         if (fpProc == NULL)\r
 351         {\r
 352                 return TPI_ERROR_U_USE_LIBRARY;\r
 353         }\r
 354         // エラーでも無視する。\r
 355         ((BOOL (__stdcall *)(HWND)) fpProc)(NULL);\r
 356 \r
 357         // 続いてコールバック関数の設定。\r
 358         if (fAlt)\r
 359         {\r
 360                 fpProc = ::GetAPIAddressAlt("SetOwnerWindowEx64", false);\r
 361                 g_LibInfoAlt.fCallback32bit = fpProc == NULL;\r
 362                 if (g_LibInfoAlt.fCallback32bit)\r
 363                 {\r
 364                         fpProc = ::GetAPIAddressAlt("SetOwnerWindowEx", true);\r
 365                 }\r
 366         }\r
 367         else\r
 368         {\r
 369                 fpProc = ::GetAPIAddress("SetOwnerWindowEx64", false);\r
 370                 g_LibInfo.fCallback32bit = fpProc == NULL;\r
 371                 if (g_LibInfo.fCallback32bit)\r
 372                 {\r
 373                         fpProc = ::GetAPIAddress("SetOwnerWindowEx", true);\r
 374                 }\r
 375         }\r
 376 \r
 377         return (fpProc == NULL || ! ((fAlt ? g_LibInfoAlt.fCallback32bit : g_LibInfo.fCallback32bit)\r
 378                 ? ((BOOL (__stdcall *)(HWND, ARCHIVERPROC *       )) fpProc)(NULL, (ARCHIVERPROC *) CallbackProc)\r
 379                 : ((BOOL (__stdcall *)(HWND, ARCHIVERPROC *, DWORD)) fpProc)(NULL, (ARCHIVERPROC *) CallbackProc, (fAlt ? g_LibInfoAlt.fUnicode : g_LibInfo.fUnicode) ? sizeof(EXTRACTINGINFOEX64W) : sizeof(EXTRACTINGINFOEX64))))\r
 380                 ? TPI_ERROR_U_USE_LIBRARY : TPI_ERROR_SUCCESS;\r
 381 }\r
 382 \r
 383 //******************************************************************************\r
 384 //    Functions\r
 385 //******************************************************************************\r
 386 \r
 387 #ifdef __cplusplus\r
 388 extern "C"\r
 389 {\r
 390 #endif\r
 391 \r
 392 int __stdcall GetPluginInformation\r
 393 (\r
 394         unsigned int _uInfoId,\r
 395         wxULongLong_t,\r
 396         void * _pPtr\r
 397 )\r
 398 {\r
 399         if (_pPtr == NULL)\r
 400         {\r
 401                 return TPI_ERROR_D_PARAMETER;\r
 402         }\r
 403         switch (_uInfoId)\r
 404         {\r
 405         case TPI_INFO_VERSION_MAJOR:\r
 406         case TPI_INFO_VERSION_MINOR:\r
 407                 * (int *) _pPtr = 0;\r
 408                 break;\r
 409         case TPI_INFO_VERSION_API:\r
 410                 * (int *) _pPtr = 2;\r
 411                 break;\r
 412         default:\r
 413                 return TPI_ERROR_D_UNSUPPORTED;\r
 414         }\r
 415         return TPI_ERROR_SUCCESS;\r
 416 }\r
 417 \r
 418 int __stdcall GetFormatInformation(TPI_FORMATINFO * _fiInfo, bool _bFirst)\r
 419 {\r
 420         static wxULongLong_t s_nFileId;\r
 421         wxStandardPaths p;\r
 422         wxXmlDocument config(wxPathOnly(p.GetExecutablePath()) + wxT("/lib/calLibrary.xml"));\r
 423         // 一気に先頭のライブラリの情報を取得。\r
 424         wxXmlNode * xmlLibrary = config.GetRoot()->GetChildren();\r
 425 \r
 426         if (_bFirst)\r
 427         {\r
 428                 // xml解析開始。\r
 429                 s_nFileId = 0;\r
 430         }\r
 431         else\r
 432         {\r
 433                 for (wxULongLong_t i = 0; i < s_nFileId && xmlLibrary != NULL; i++)\r
 434                 {\r
 435                         xmlLibrary = xmlLibrary->GetNext();\r
 436                 }\r
 437         }\r
 438 \r
 439         if (xmlLibrary == NULL || xmlLibrary->GetName() != wxT("library"))\r
 440         {\r
 441                 // データの終端に達した場合。\r
 442                 return TPI_ERROR_S_ENDOFDATA;\r
 443         }\r
 444 \r
 445         MakeFormatInfo(wxT("calLibrary"), _fiInfo, xmlLibrary, s_nFileId++);\r
 446 \r
 447         return TPI_ERROR_SUCCESS;\r
 448 }\r
 449 \r
 450 int __stdcall LoadPlugin\r
 451 (\r
 452         const wxString & _szArcName,\r
 453         wxULongLong_t _llTypeId\r
 454 )\r
 455 {\r
 456         // xml解析開始。\r
 457         wxStandardPaths p;\r
 458         wxXmlDocument config(wxPathOnly(p.GetExecutablePath()) + wxT("/lib/calLibrary.xml"));\r
 459         if (! config.IsOk())\r
 460         {\r
 461                 return TPI_ERROR_UNDEFINED;\r
 462         }\r
 463         // 一気に先頭のライブラリの情報を取得。\r
 464         wxXmlNode * xmlLibrary = config.GetRoot()->GetChildren();\r
 465 \r
 466         // 対象が存在するならば対応するライブラリを調査、\r
 467         // 対象が存在しないならば指示されたライブラリをロード。\r
 468         if (! ::wxFileExists(_szArcName))\r
 469         {\r
 470                 // 適当な位置まで移動。\r
 471                 for (g_LibInfo.nLibIndex = 0; g_LibInfo.nLibIndex < _llTypeId && xmlLibrary != NULL; g_LibInfo.nLibIndex++)\r
 472                 {\r
 473                         xmlLibrary = xmlLibrary->GetNext();\r
 474                 }\r
 475                 if (xmlLibrary == NULL || xmlLibrary->GetName() != wxT("library"))\r
 476                 {\r
 477                         // xml文法エラー。\r
 478                         return TPI_ERROR_UNDEFINED;\r
 479                 }\r
 480 \r
 481                 // ライブラリをロード。\r
 482                 g_LibInfo.hLib = ::LoadLibrary((const WCHAR *) xmlLibrary->GetAttribute(wxT("name"), wxEmptyString).c_str());\r
 483                 if (g_LibInfo.hLib == NULL)\r
 484                 {\r
 485                         return TPI_ERROR_U_LOAD_LIBRARY;\r
 486                 }\r
 487                 g_LibInfo.szPrefix = xmlLibrary->GetAttribute(wxT("prefix"), wxEmptyString);\r
 488                 g_LibInfo.fUnicode = xmlLibrary->GetAttribute(wxT("unicode"), wxT("0")) == wxT("1");\r
 489                 g_LibInfo.node = * xmlLibrary;\r
 490 \r
 491                 // 代替ライブラリもロード。ロードできなくてもエラーにはしない。\r
 492                 g_LibInfoAlt.szPrefix = xmlLibrary->GetAttribute(wxT("prefix-alt"), wxEmptyString);\r
 493                 g_LibInfoAlt.fUnicode = xmlLibrary->GetAttribute(wxT("unicode-alt"), wxT("0")) == wxT("1");\r
 494                 g_LibInfoAlt.hLib = ::LoadLibrary((const WCHAR *) xmlLibrary->GetAttribute(wxT("name-alt"), wxEmptyString).c_str());\r
 495 \r
 496                 return TPI_ERROR_SUCCESS;\r
 497         }\r
 498 \r
 499         // 無限ループに陥らないよう上限を設定。\r
 500         for (g_LibInfo.nLibIndex = 0; g_LibInfo.nLibIndex < 300 && xmlLibrary != NULL; g_LibInfo.nLibIndex++)\r
 501         {\r
 502                 // ライブラリをロード。\r
 503                 g_LibInfo.hLib = ::LoadLibrary((const WCHAR *) xmlLibrary->GetAttribute(wxT("name"), wxEmptyString).c_str());\r
 504                 if (g_LibInfo.hLib == NULL)\r
 505                 {\r
 506                         xmlLibrary = xmlLibrary->GetNext();\r
 507                         continue;\r
 508                 }\r
 509                 g_LibInfo.szPrefix = xmlLibrary->GetAttribute(wxT("prefix"), wxEmptyString);\r
 510                 g_LibInfo.fUnicode = xmlLibrary->GetAttribute(wxT("unicode"), wxT("0")) == wxT("1");\r
 511 \r
 512                 // 代替ライブラリもロード。ロードできなくてもエラーにはしない。\r
 513                 g_LibInfoAlt.szPrefix = xmlLibrary->GetAttribute(wxT("prefix-alt"), wxEmptyString);\r
 514                 g_LibInfoAlt.fUnicode = xmlLibrary->GetAttribute(wxT("unicode-alt"), wxT("0")) == wxT("1");\r
 515                 g_LibInfoAlt.hLib = ::LoadLibrary((const WCHAR *) xmlLibrary->GetAttribute(wxT("name-alt"), wxEmptyString).c_str());\r
 516                 g_LibInfo.node = * xmlLibrary;\r
 517 \r
 518                 // 書庫に対応しているかチェック。\r
 519                 if (CheckArchive(_szArcName, NULL) == TPI_ERROR_SUCCESS)\r
 520                 {\r
 521                         // 対応していれば処理を終了。\r
 522                         return TPI_ERROR_SUCCESS;\r
 523                 }\r
 524 \r
 525                 ::FreeLibrary(g_LibInfo.hLib);\r
 526                 xmlLibrary = xmlLibrary->GetNext();\r
 527         }\r
 528 \r
 529         return TPI_ERROR_U_LOAD_LIBRARY;\r
 530 }\r
 531 \r
 532 int __stdcall FreePlugin\r
 533 (\r
 534         void * // _pReserved\r
 535 )\r
 536 {\r
 537         ::FreeLibrary(g_LibInfo.hLib);\r
 538         ::FreeLibrary(g_LibInfoAlt.hLib);\r
 539         return TPI_ERROR_SUCCESS;\r
 540 }\r
 541 \r
 542 int __stdcall CheckArchive\r
 543 (\r
 544         const wxString & _szArcName,\r
 545         wxULongLong_t * _llFileCount\r
 546 )\r
 547 {\r
 548         // Unicodeモードに設定。\r
 549         FARPROC fpProc = ::GetAPIAddress("SetUnicodeMode", false);\r
 550         if (fpProc != NULL)\r
 551         {\r
 552                 ((BOOL (__stdcall *)(BOOL)) fpProc)(TRUE);\r
 553         }\r
 554 \r
 555         fpProc = ::GetAPIAddress("CheckArchive", true);\r
 556         if (fpProc == NULL)\r
 557         {\r
 558                 return TPI_ERROR_U_USE_LIBRARY;\r
 559         }\r
 560 \r
 561         if (! (g_LibInfo.fUnicode\r
 562                 ? ((BOOL (__stdcall *)(const wchar_t *, const int)) fpProc)(_szArcName.wchar_str(), 0)\r
 563                 : ((BOOL (__stdcall *)(const char    *, const int)) fpProc)(_szArcName.ToUTF8(),    0)\r
 564         ))\r
 565         {\r
 566                 return TPI_ERROR_D_UNSUPPORTED;\r
 567         }\r
 568 \r
 569         if (_llFileCount != NULL)\r
 570         {\r
 571                 fpProc = ::GetAPIAddress("GetFileCount", true);\r
 572                 if (fpProc == NULL)\r
 573                 {\r
 574                         return TPI_ERROR_U_USE_LIBRARY;\r
 575                 }\r
 576 \r
 577                 int nFileCount = g_LibInfo.fUnicode\r
 578                         ? ((int (__stdcall *)(const wchar_t *)) fpProc)(_szArcName.wchar_str())\r
 579                         : ((int (__stdcall *)(const char *)) fpProc)(_szArcName.ToUTF8());\r
 580                 if (nFileCount == -1)\r
 581                 {\r
 582                         return TPI_ERROR_ARC_UNSUPPORTED;\r
 583                 }\r
 584                 * _llFileCount = nFileCount;\r
 585         }\r
 586 \r
 587         return TPI_ERROR_SUCCESS;\r
 588 }\r
 589 \r
 590 int __stdcall OpenArchive\r
 591 (\r
 592         const wxString & _szArcName,\r
 593         void * * _hArchive\r
 594 )\r
 595 {\r
 596         FARPROC fpProc = ::GetAPIAddress("OpenArchive", true);\r
 597         if (fpProc == NULL)\r
 598         {\r
 599                 return TPI_ERROR_U_USE_LIBRARY;\r
 600         }\r
 601 \r
 602         * _hArchive = g_LibInfo.fUnicode\r
 603                 ? ((void * (__stdcall *)(const HWND, const wchar_t *, const DWORD)) fpProc)(NULL, _szArcName.wchar_str(), 0)\r
 604                 : ((void * (__stdcall *)(const HWND, const char    *, const DWORD)) fpProc)(NULL, _szArcName.ToUTF8(),  0);\r
 605         return _hArchive == NULL ? TPI_ERROR_UNDEFINED : TPI_ERROR_SUCCESS;\r
 606 }\r
 607 \r
 608 int __stdcall CloseArchive\r
 609 (\r
 610         void * _hArchive\r
 611 )\r
 612 {\r
 613         FARPROC fpProc = ::GetAPIAddress("CloseArchive", false);\r
 614         return fpProc == NULL ? TPI_ERROR_U_USE_LIBRARY : ErrorCodeConvert(((int (__stdcall *)(void *)) fpProc)(_hArchive));\r
 615 }\r
 616 \r
 617 int __stdcall GetFileInformation\r
 618 (\r
 619         void * _hArchive,\r
 620         TPI_FILEINFO * _fiInfo,\r
 621         bool _bFirst\r
 622 )\r
 623 {\r
 624         static wxULongLong_t s_nFileId;\r
 625         static FARPROC fpNext, fpAttr;\r
 626         int nErrorCode;\r
 627         INDIVIDUALINFO iiInfo;\r
 628         INDIVIDUALINFOW iiInfoW;\r
 629         memset(& iiInfo,  0, sizeof(iiInfo));\r
 630         memset(& iiInfoW, 0, sizeof(iiInfoW));\r
 631 \r
 632         if (_bFirst)\r
 633         {\r
 634                 s_nFileId = 0;\r
 635                 FARPROC fpProc = ::GetAPIAddress("FindFirst", true);\r
 636                 fpNext = ::GetAPIAddress("FindNext", true);\r
 637                 fpAttr = ::GetAPIAddress("GetAttribute", false);\r
 638                 if (fpProc == NULL)\r
 639                 {\r
 640                         return TPI_ERROR_U_USE_LIBRARY;\r
 641                 }\r
 642 \r
 643                 nErrorCode = g_LibInfo.fUnicode\r
 644                         ? ((int (__stdcall *)(void *, const wchar_t *, LPINDIVIDUALINFOW)) fpProc)(_hArchive, L"*", & iiInfoW)\r
 645                         : ((int (__stdcall *)(void *, const char *,    LPINDIVIDUALINFO))  fpProc)(_hArchive,  "*", & iiInfo);\r
 646         }\r
 647         else\r
 648         {\r
 649                 if (fpNext == NULL)\r
 650                 {\r
 651                         return TPI_ERROR_U_USE_LIBRARY;\r
 652                 }\r
 653 \r
 654                 nErrorCode = g_LibInfo.fUnicode\r
 655                         ? ((int (__stdcall *)(void *, LPINDIVIDUALINFOW)) fpNext)(_hArchive, & iiInfoW)\r
 656                         : ((int (__stdcall *)(void *, LPINDIVIDUALINFO))  fpNext)(_hArchive, & iiInfo);\r
 657         }\r
 658 \r
 659         nErrorCode = ErrorCodeConvert(nErrorCode);\r
 660         if (nErrorCode == TPI_ERROR_SUCCESS)\r
 661         {\r
 662                 _fiInfo->dwAttribute = (fpAttr == NULL) ? 0 : ((int (__stdcall *)(void *)) fpAttr)(_hArchive);\r
 663                 if (_fiInfo->dwAttribute == (unsigned) -1)\r
 664                 {\r
 665                         _fiInfo->dwAttribute = 0;\r
 666                 }\r
 667 \r
 668                 if (g_LibInfo.fUnicode)\r
 669                 {\r
 670                         _fiInfo->dwCRC32        = iiInfoW.dwCRC;\r
 671                         _fiInfo->eOSType        = iiInfoW.eOSType;\r
 672                         _fiInfo->nPackedSize    = iiInfoW.dwCompressedSize;\r
 673                         _fiInfo->nUnpackedSize  = iiInfoW.dwOriginalSize;\r
 674                         _fiInfo->tmModified.SetFromDOS(MAKELONG(iiInfoW.wTime, iiInfoW.wDate));\r
 675                         _fiInfo->szStoredName   = WC2String(iiInfoW.szFileName);\r
 676                         _fiInfo->szMethod       = WC2String(iiInfoW.szMode);\r
 677                         _fiInfo->wCompressRatio = iiInfoW.wRatio;\r
 678                 }\r
 679                 else\r
 680                 {\r
 681                         _fiInfo->dwCRC32        = iiInfo.dwCRC;\r
 682                         _fiInfo->eOSType        = iiInfo.eOSType;\r
 683                         _fiInfo->nPackedSize    = iiInfo.dwCompressedSize;\r
 684                         _fiInfo->nUnpackedSize  = iiInfo.dwOriginalSize;\r
 685                         _fiInfo->tmModified.SetFromDOS(MAKELONG(iiInfo.wTime, iiInfo.wDate));\r
 686                         _fiInfo->szStoredName   = UTF82String(iiInfo.szFileName);\r
 687                         _fiInfo->szMethod       = UTF82String(iiInfo.szMode);\r
 688                         _fiInfo->wCompressRatio = iiInfo.wRatio;\r
 689                 }\r
 690                 _fiInfo->nFileId        = s_nFileId++;\r
 691                 _fiInfo->fnFileName     = wxFileName(_fiInfo->szStoredName);\r
 692 //              _fiInfo->ftAccessTime   = 0;\r
 693 //              _fiInfo->ftCreateTime   = 0;\r
 694         }\r
 695 \r
 696         return nErrorCode;\r
 697 }\r
 698 \r
 699 int __stdcall GetArchiveInformation\r
 700 (\r
 701         void * _hArchive,\r
 702         TPI_ARCHIVEINFO * _aiInfo\r
 703 )\r
 704 {\r
 705         FARPROC fpProc = ::GetAPIAddress("GetArcFileName", true);\r
 706         if (fpProc != NULL)\r
 707         {\r
 708                 // TODO : ファイル名の文字数制限を撤廃。\r
 709                 wxString s;\r
 710                 if (g_LibInfo.fUnicode)\r
 711                 {\r
 712                         wchar_t sz[2049];\r
 713                         memset(sz, 0, sizeof(sz));\r
 714                         ((int (__stdcall *)(void *, wchar_t *, const int)) fpProc)(_hArchive, sz, 2048);\r
 715                         s = WC2String(sz);\r
 716                 }\r
 717                 else\r
 718                 {\r
 719                         char sz[2049];\r
 720                         memset(sz, 0, sizeof(sz));\r
 721                         ((int (__stdcall *)(void *, char *, const int)) fpProc)(_hArchive, sz, 2048);\r
 722                         s = UTF82String(sz);\r
 723                 }\r
 724                 _aiInfo->fnArchive = wxFileName(s);\r
 725         }\r
 726 \r
 727         fpProc = ::GetAPIAddress("GetArcFileSizeEx", false);\r
 728         if (fpProc != NULL)\r
 729         {\r
 730                 ((BOOL (__stdcall *)(void *, LONGLONG *)) fpProc)(_hArchive, (LONGLONG *) & _aiInfo->nFileSize);\r
 731         }\r
 732         else\r
 733         {\r
 734                 fpProc = ::GetAPIAddress("GetArcFileSize", false);\r
 735                 if (fpProc != NULL)\r
 736                 {\r
 737                         _aiInfo->nFileSize = ((DWORD (__stdcall *)(void *)) fpProc)(_hArchive);\r
 738                 }\r
 739         }\r
 740 \r
 741         fpProc = ::GetAPIAddress("GetArcOriginalSizeEx", false);\r
 742         if (fpProc != NULL)\r
 743         {\r
 744                 ((BOOL (__stdcall *)(void *, LONGLONG *)) fpProc)(_hArchive, (LONGLONG *) & _aiInfo->nUnpackedSize);\r
 745         }\r
 746         else\r
 747         {\r
 748                 fpProc = ::GetAPIAddress("GetArcOriginalSize", false);\r
 749                 if (fpProc != NULL)\r
 750                 {\r
 751                         _aiInfo->nUnpackedSize = ((DWORD (__stdcall *)(void *)) fpProc)(_hArchive);\r
 752                 }\r
 753         }\r
 754 \r
 755         fpProc = ::GetAPIAddress("GetArcCompressedSizeEx", false);\r
 756         if (fpProc != NULL)\r
 757         {\r
 758                 ((BOOL (__stdcall *)(void *, LONGLONG *)) fpProc)(_hArchive, (LONGLONG *) & _aiInfo->nPackedSize);\r
 759         }\r
 760         else\r
 761         {\r
 762                 fpProc = ::GetAPIAddress("GetArcCompressedSize", false);\r
 763                 if (fpProc != NULL)\r
 764                 {\r
 765                         _aiInfo->nPackedSize = ((DWORD (__stdcall *)(void *)) fpProc)(_hArchive);\r
 766                 }\r
 767         }\r
 768 \r
 769         fpProc = ::GetAPIAddress("GetArcReadSizeEx", false);\r
 770         if (fpProc != NULL)\r
 771         {\r
 772                 ((BOOL (__stdcall *)(void *, LONGLONG *)) fpProc)(_hArchive, (LONGLONG *) & _aiInfo->nReadSize);\r
 773         }\r
 774         else\r
 775         {\r
 776                 fpProc = ::GetAPIAddress("GetArcReadSize", false);\r
 777                 if (fpProc != NULL)\r
 778                 {\r
 779                         _aiInfo->nReadSize = ((DWORD (__stdcall *)(void *)) fpProc)(_hArchive);\r
 780                 }\r
 781         }\r
 782 \r
 783         fpProc = ::GetAPIAddress("GetArcRatio", false);\r
 784         if (fpProc != NULL)\r
 785         {\r
 786                 _aiInfo->wCompressRatio = ((WORD (__stdcall *)(void *)) fpProc)(_hArchive);\r
 787         }\r
 788 \r
 789         FILETIME ft;\r
 790         fpProc = ::GetAPIAddress("GetArcAccessTimeEx", false);\r
 791         if (fpProc != NULL)\r
 792         {\r
 793                 ((BOOL (__stdcall *)(void *, FILETIME *)) fpProc)(_hArchive, & ft);\r
 794                 _aiInfo->tmAccess = FileTimeToWxDateTime(& ft);\r
 795         }\r
 796 \r
 797         fpProc = ::GetAPIAddress("GetArcCreatedTimeEx", false);\r
 798         if (fpProc != NULL)\r
 799         {\r
 800                 ((BOOL (__stdcall *)(void *, FILETIME *)) fpProc)(_hArchive, & ft);\r
 801                 _aiInfo->tmCreate = FileTimeToWxDateTime(& ft);\r
 802         }\r
 803 \r
 804         fpProc = ::GetAPIAddress("GetArcWriteTimeEx", false);\r
 805         if (fpProc != NULL)\r
 806         {\r
 807                 ((BOOL (__stdcall *)(void *, FILETIME *)) fpProc)(_hArchive, & ft);\r
 808                 _aiInfo->tmModified = FileTimeToWxDateTime(& ft);\r
 809         }\r
 810 \r
 811         fpProc = ::GetAPIAddress("GetArcOSType", false);\r
 812         if (fpProc != NULL)\r
 813         {\r
 814                 _aiInfo->eOSType = ((UINT (__stdcall *)(void *)) fpProc)(_hArchive);\r
 815         }\r
 816 \r
 817         fpProc = ::GetAPIAddress("IsSFXFile", false);\r
 818         _aiInfo->fSFX = fpProc != NULL && ((int (__stdcall *)(void *)) fpProc)(_hArchive) > 0;\r
 819 \r
 820         // 形式に関する情報を取得。\r
 821         MakeFormatInfo(wxT("calLibrary"), & _aiInfo->fiInfo, & g_LibInfo.node, 0);\r
 822 \r
 823         return TPI_ERROR_SUCCESS;\r
 824 }\r
 825 \r
 826 int __stdcall Command\r
 827 (\r
 828         wxULongLong_t _eCommand,\r
 829         TPI_SWITCHES * _swInfo,\r
 830         const wxString & _szArcName,\r
 831         const wxArrayString & _szFiles\r
 832 )\r
 833 {\r
 834         // xmlからコマンドラインを取得。\r
 835         wxString szPath, szCommandLine;\r
 836 \r
 837         // APIアドレス取得。\r
 838         g_LibInfoAlt.fRunning\r
 839                 = g_LibInfo.node.GetAttribute(\r
 840                         _eCommand == TPI_COMMAND_CREATE  ? wxT("create-alt") :\r
 841                         _eCommand == TPI_COMMAND_ADD     ? wxT("add-alt") :\r
 842                         _eCommand == TPI_COMMAND_EXTRACT ? wxT("extract-alt") : \r
 843                         _eCommand == TPI_COMMAND_DELETE  ? wxT("delete-alt") : \r
 844                         _eCommand == TPI_COMMAND_UPDATE  ? wxT("update-alt") : \r
 845                         _eCommand == TPI_COMMAND_TEST    ? wxT("test-alt") : \r
 846                         _eCommand == TPI_COMMAND_REPAIR  ? wxT("repair-alt") : \r
 847                         _eCommand == TPI_COMMAND_MOVE    ? wxT("move-alt") : \r
 848                         _eCommand == TPI_COMMAND_SFX     ? wxT("sfx-alt") : \r
 849                         _eCommand == TPI_COMMAND_UNSFX   ? wxT("unsfx-alt") : wxEmptyString, & szCommandLine);\r
 850         g_LibInfo.fRunning\r
 851                 = g_LibInfo.node.GetAttribute(\r
 852                         _eCommand == TPI_COMMAND_CREATE  ? wxT("create") :\r
 853                         _eCommand == TPI_COMMAND_ADD     ? wxT("add") :\r
 854                         _eCommand == TPI_COMMAND_EXTRACT ? wxT("extract") : \r
 855                         _eCommand == TPI_COMMAND_DELETE  ? wxT("delete") : \r
 856                         _eCommand == TPI_COMMAND_UPDATE  ? wxT("update") : \r
 857                         _eCommand == TPI_COMMAND_TEST    ? wxT("test") : \r
 858                         _eCommand == TPI_COMMAND_REPAIR  ? wxT("repair") : \r
 859                         _eCommand == TPI_COMMAND_MOVE    ? wxT("move") : \r
 860                         _eCommand == TPI_COMMAND_SFX     ? wxT("sfx") : \r
 861                         _eCommand == TPI_COMMAND_UNSFX   ? wxT("unsfx") : wxEmptyString, & szCommandLine);\r
 862 \r
 863         FARPROC fpProc =\r
 864                 g_LibInfo.fRunning    ? ::GetAPIAddress(   "", true) :\r
 865                 g_LibInfoAlt.fRunning ? ::GetAPIAddressAlt("", true) : NULL;\r
 866         if (fpProc == NULL || szCommandLine.IsEmpty())\r
 867         {\r
 868                 return TPI_ERROR_U_USE_LIBRARY;\r
 869         }\r
 870 \r
 871         // コマンドライン・レスポンスファイル作成。\r
 872         wxString\r
 873                 szResponceFileName = MakeResponceFile(_szFiles, g_LibInfo.node.GetAttribute(wxT("quote-resp"), wxT("1")) == wxT("1")),\r
 874                 szCommandLineSend  = MakeCommandLineSend(szCommandLine, _szArcName, _swInfo, _szFiles, szResponceFileName);\r
 875 \r
 876         // コマンドライン実行。\r
 877         int nErrorCode;\r
 878         wxString szOutput;\r
 879         if ((g_LibInfo.fRunning && g_LibInfo.fUnicode) || (g_LibInfoAlt.fRunning && g_LibInfoAlt.fUnicode))\r
 880         {\r
 881                 wchar_t szTmpOut[2049];\r
 882                 nErrorCode = ((int (__stdcall *)(const HWND, const wchar_t *, wchar_t *, DWORD)) fpProc)(NULL, szCommandLineSend.wchar_str(), szTmpOut, 2048);\r
 883                 szOutput = WC2String(szTmpOut);\r
 884         }\r
 885         else\r
 886         {\r
 887                 char szTmpOut[2049];\r
 888                 nErrorCode = ((int (__stdcall *)(const HWND, const char *, char *, DWORD)) fpProc)(NULL, szCommandLineSend.ToUTF8(), szTmpOut, 2048);\r
 889                 szOutput = UTF82String(szTmpOut);\r
 890         }\r
 891 \r
 892         // レスポンスファイル削除。\r
 893         ::wxRemoveFile(szResponceFileName);\r
 894 \r
 895         if (nErrorCode != 0)\r
 896         {\r
 897                 ::wxLogError(L"Error :\n%x\n\nCommandLine:\n%s\n\nOutput:\n%s", nErrorCode, szCommandLineSend.c_str(), szOutput.c_str());\r
 898         }\r
 899         return ErrorCodeConvert(nErrorCode);\r
 900 }\r
 901 \r
 902 int __stdcall SetCallbackProc\r
 903 (\r
 904         TPI_PROC _prArcProc\r
 905 )\r
 906 {\r
 907         // ポインタを保存。\r
 908         if (_prArcProc == NULL)\r
 909         {\r
 910                 return TPI_ERROR_D_PARAMETER;\r
 911         }\r
 912         g_prProc = * _prArcProc;\r
 913 \r
 914         // コールバック関数を設定。\r
 915         CalSetCallbackProc(true);\r
 916         return CalSetCallbackProc(false);\r
 917 }\r
 918 \r
 919 #ifdef __cplusplus\r
 920 }\r
 921 #endif\r