diff --git a/CocXlsxTool/CocXlsxTool.pro b/CocXlsxTool/CocXlsxTool.pro deleted file mode 100644 index 7ca812fb..00000000 --- a/CocXlsxTool/CocXlsxTool.pro +++ /dev/null @@ -1,46 +0,0 @@ -#------------------------------------------------- -# -# Project created by QtCreator 2018-04-10T22:12:33 -# -#------------------------------------------------- - -QT += core gui -RC_ICONS += icon.ico - -greaterThan(QT_MAJOR_VERSION, 4): QT += widgets - -TARGET = CocXlsxTool -TEMPLATE = app - -# The following define makes your compiler emit warnings if you use -# any feature of Qt which has been marked as deprecated (the exact warnings -# depend on your compiler). Please consult the documentation of the -# deprecated API in order to know how to port your code away from it. -DEFINES += QT_DEPRECATED_WARNINGS - -# You can also make your code fail to compile if you use deprecated APIs. -# In order to do so, uncomment the following line. -# You can also select to disable deprecated APIs only up to a certain version of Qt. -#DEFINES += QT_DISABLE_DEPRECATED_BEFORE=0x060000 # disables all the APIs deprecated before Qt 6.0.0 - - -SOURCES += \ - main.cpp \ - mainwindow.cpp \ - unzip.cpp \ - zip.cpp - -HEADERS += \ - mainwindow.h \ - rapidxml.hpp \ - rapidxml_iterators.hpp \ - rapidxml_print.hpp \ - rapidxml_utils.hpp \ - unzip.h \ - zip.h - -FORMS += \ - mainwindow.ui - -RESOURCES += \ - icon.qrc diff --git a/CocXlsxTool/icon.ico b/CocXlsxTool/icon.ico deleted file mode 100644 index bfd54253..00000000 Binary files a/CocXlsxTool/icon.ico and /dev/null differ diff --git a/CocXlsxTool/icon.qrc b/CocXlsxTool/icon.qrc deleted file mode 100644 index 4ef429f4..00000000 --- a/CocXlsxTool/icon.qrc +++ /dev/null @@ -1,5 +0,0 @@ - - - icon.ico - - diff --git a/CocXlsxTool/main.cpp b/CocXlsxTool/main.cpp deleted file mode 100644 index 07aa4dbe..00000000 --- a/CocXlsxTool/main.cpp +++ /dev/null @@ -1,16 +0,0 @@ -#include "mainwindow.h" -#include - -char* drag_file_path = NULL; - -int main(int argc, char *argv[]) -{ - if (argc >= 2) - drag_file_path = argv[1]; - - QApplication a(argc, argv); - MainWindow w; - w.show(); - - return a.exec(); -} diff --git a/CocXlsxTool/mainwindow.cpp b/CocXlsxTool/mainwindow.cpp deleted file mode 100644 index 2e1a06d8..00000000 --- a/CocXlsxTool/mainwindow.cpp +++ /dev/null @@ -1,1566 +0,0 @@ -#include "mainwindow.h" -#include "ui_mainwindow.h" -#include -#include -#include -#include -#include -#include - -#include -#include -#include - -#include "zip.h" -#include "unzip.h" -#include "rapidxml_print.hpp" - -#pragma comment(lib,"shlwapi.lib") - -#define ENABLE_EXPORT_SEPARATELY 0 -#define ENABLE_IMPORT 0 - -extern char* drag_file_path; - -using namespace rapidxml; - -wchar_t* GetErrorTips(); -wchar_t* Utf8ToWchar(char* utf8_str); -char* WcharToUtf8(wchar_t* unicode_str); -int GetPropertyFromXlsx(wchar_t* file_path, Ui::MainWindow *ui); -int SetPropertyToXlsx(wchar_t* file_path, wchar_t* templet_string, Ui::MainWindow *ui); - -wchar_t name[32]; - -const char* name_r = "D3"; - -char property_list_1[][5][16] = { -{ "R3","T3","V3","V4","" }, -{ "R5","T5","V5","V6","" }, -{ "R7","T7","V7","V8","" }, -{ "X3","Z3","AB3","AB4","" }, -{ "X5","Z5","AB5","AB6","" }, -{ "X7","Z7","AB7","AB8","" }, -{ "AD3","AF3","AH3","AH4","" }, -{ "AD5","AF5","AH5","AH6","" }, - -{ "B10","F10","","","" }, -{ "K10","O10","","","" }, -{ "S10","W10","","","" }, -{ "AA10","AE10","","","" }, - -{ "C15","Q15","S15","U15","K15" }, -{ "C16","Q16","S16","U16","K16" }, -{ "C17","Q17","S17","U17","K17" }, -{ "C18","Q18","S18","U18","K18" }, -{ "E19","Q19","S19","U19","K19" }, -{ "E20","Q20","S20","U20","K20" }, -{ "E21","Q21","S21","U21","K21" }, -{ "C22","Q22","S22","U22","K22" }, -{ "C23","Q23","S23","U23","K23" }, -{ "C24","Q24","S24","U24","K24" }, -{ "C25","Q25","S25","U25","K25" }, -{ "C26","Q26","S26","U26","K26" }, -{ "C27","Q27","S27","U27","K27" }, -{ "C28","Q28","S28","U28","K28" }, -{ "C29","Q29","S29","U29","K29" }, -{ "C30","Q30","S30","U30","K30" }, -{ "C31","Q31","S31","U31","K31" }, -{ "C32","Q32","S32","U32","K32" }, -{ "E33","Q33","S33","U33","K33" }, -{ "E34","Q34","S34","U34","K34" }, -{ "E35","Q35","S35","U35","K35" }, -{ "E36","Q36","S36","U36","K36" }, -{ "E37","Q37","S37","U37","K37" }, -{ "E38","Q38","S38","U38","K38" }, -{ "C39","Q39","S39","U39","K39" }, -{ "C40","Q40","S40","U40","K40" }, -{ "C41","Q41","S41","U41","K41" }, -{ "C42","Q42","S42","U42","K42" }, -{ "E43","Q43","S43","U43","K43" }, -{ "E44","Q44","S44","U44","K44" }, -{ "E45","Q45","S45","U45","K45" }, -{ "E46","Q46","S46","U46","K56" }, - -{ "X15","AK15","AM15","AO15","AE15" }, -{ "X16","AK16","AM16","AO16","AE16" }, -{ "X17","AK17","AM17","AO17","AE17" }, -{ "X18","AK18","AM18","AO18","AE18" }, -{ "X19","AK19","AM19","AO19","AE19" }, -{ "X20","AK20","AM20","AO20","AE20" }, -{ "X21","AK21","AM21","AO21","AE21" }, -{ "X22","AK22","AM22","AO22","AE22" }, -{ "X23","AK23","AM23","AO23","AE23" }, -{ "X24","AK24","AM24","AO24","AE24" }, -{ "X25","AK25","AM25","AO25","AE25" }, -{ "Z26","AK26","AM26","AO26","AE26" }, -{ "X27","AK27","AM27","AO27","AE27" }, -{ "X28","AK28","AM28","AO28","AE28" }, -{ "X29","AK29","AM29","AO29","AE29" }, -{ "Z30","AK30","AM30","AO30","AE30" }, -{ "Z31","AK31","AM31","AO31","AE31" }, -{ "Z32","AK32","AM32","AO32","AE32" }, -{ "X33","AK33","AM33","AO33","AE33" }, -{ "X34","AK34","AM34","AO34","AE34" }, -{ "X35","AK35","AM35","AO35","AE35" }, -{ "Z36","AK36","AM36","AO36","AE36" }, -{ "Z37","AK37","AM37","AO37","AE37" }, -{ "X38","AK38","AM38","AO38","AE38" }, -{ "X39","AK39","AM39","AO39","AE39" }, -{ "X40","AK40","AM40","AO40","AE40" }, -{ "Z41","AK41","AM41","AO41","AE41" }, -{ "Z42","AK42","AM42","AO42","AE42" }, -{ "X43","AK43","AM43","AO43","AE43" }, -{ "X44","AK44","AM44","AO44","AE44" }, -{ "X45","AK45","AM45","AO45","AE45" }, -{ "X46","AK46","AM15","AO15","AE15" } -}; - -char property_list_2[][5][16] = { -{ "Q3","S3","U3","U4","" }, -{ "Q5","S5","U5","U6","" }, -{ "Q7","S7","U7","U8","" }, -{ "W3","Y3","AA3","AA4","" }, -{ "W5","Y5","AA5","AA6","" }, -{ "W7","Y7","AA7","AA8","" }, -{ "AC3","AE3","AG3","AG4","" }, -{ "AC5","AE5","AG5","AG6","" }, - -{ "B10","F10","","","" }, -{ "J10","N10","","","" }, -{ "R10","V10","","","" }, -{ "Z10","AD10","","","" }, - -{ "C15","P15","R15","T15","J15" }, -{ "C16","P16","R16","T16","J16" }, -{ "C17","P17","R17","T17","J17" }, -{ "C18","P18","R18","T18","J18" }, -{ "E19","P19","R19","T19","J19" }, -{ "E20","P20","R20","T20","J20" }, -{ "E21","P21","R21","T21","J21" }, -{ "C22","P22","R22","T22","J22" }, -{ "C23","P23","R23","T23","J23" }, -{ "C24","P24","R24","T24","J24" }, -{ "C25","P25","R25","T25","J25" }, -{ "C26","P26","R26","T26","J26" }, -{ "C27","P27","R27","T27","J27" }, -{ "C28","P28","R28","T28","J28" }, -{ "C29","P29","R29","T29","J29" }, -{ "C30","P30","R30","T30","J30" }, -{ "C31","P31","R31","T31","J31" }, -{ "C32","P32","R32","T32","J32" }, -{ "E33","P33","R33","T33","J33" }, -{ "E34","P34","R34","T34","J34" }, -{ "E35","P35","R35","T35","J35" }, -{ "E36","P36","R36","T36","J36" }, -{ "E37","P37","R37","T37","J37" }, -{ "E38","P38","R38","T38","J38" }, -{ "C39","P39","R39","T39","J39" }, -{ "C40","P40","R40","T40","J40" }, -{ "C41","P41","R41","T41","J41" }, -{ "C42","P42","R42","T42","J42" }, -{ "E43","P43","R43","T43","J43" }, -{ "E44","P44","R44","T44","J44" }, -{ "E45","P45","R45","T45","J45" }, -{ "E46","P46","R46","T46","J56" }, - -{ "W15","AJ15","AL15","AN15","AD15" }, -{ "W16","AJ16","AL16","AN16","AD16" }, -{ "W17","AJ17","AL17","AN17","AD17" }, -{ "W18","AJ18","AL18","AN18","AD18" }, -{ "W19","AJ19","AL19","AN19","AD19" }, -{ "W20","AJ20","AL20","AN20","AD20" }, -{ "W21","AJ21","AL21","AN21","AD21" }, -{ "W22","AJ22","AL22","AN22","AD22" }, -{ "W23","AJ23","AL23","AN23","AD23" }, -{ "W24","AJ24","AL24","AN24","AD24" }, -{ "W25","AJ25","AL25","AN25","AD25" }, -{ "Y26","AJ26","AL26","AN26","AD26" }, -{ "W27","AJ27","AL27","AN27","AD27" }, -{ "W28","AJ28","AL28","AN28","AD28" }, -{ "W29","AJ29","AL29","AN29","AD29" }, -{ "Y30","AJ30","AL30","AN30","AD30" }, -{ "Y31","AJ31","AL31","AN31","AD31" }, -{ "Y32","AJ32","AL32","AN32","AD32" }, -{ "W33","AJ33","AL33","AN33","AD33" }, -{ "W34","AJ34","AL34","AN34","AD34" }, -{ "W35","AJ35","AL35","AN35","AD35" }, -{ "Y36","AJ36","AL36","AN36","AD36" }, -{ "W37","AJ37","AL37","AN37","AD37" }, -{ "W38","AJ38","AL38","AN38","AD38" }, -{ "W39","AJ39","AL39","AN39","AD39" }, -{ "Y40","AJ40","AL40","AN40","AD40" }, -{ "W41","AJ41","AL41","AN41","AD41" }, -{ "W42","AJ42","AL42","AN42","AD42" }, -{ "W43","AJ43","AL43","AN43","AD43" }, -{ "W44","AJ44","AL44","AN44","AD44" }, -{ "W45","AJ45","AL45","AN45","AD45" }, -{ "W46","AJ46","AL15","AN15","AD15" } -}; - -typedef struct _PropertyNode -{ - int flag; - char* n_r; - wchar_t name[32]; - char* v_r; - wchar_t value[6]; - char* h_r; - wchar_t hard[6]; - char* d_r; - wchar_t difficult[6]; - char* g_r; - wchar_t grow[6]; -}PropertyNode; - - -MainWindow::MainWindow(QWidget *parent) : - QMainWindow(parent), - ui(new Ui::MainWindow) -{ - ui->setupUi(this); - - this->setWindowTitle(QString::fromWCharArray(L"骰娘模板格式生成工具")); - this->setWindowIcon(QIcon(":/new/prefix1/icon.ico")); - - ui->textEdit->setReadOnly(!FALSE); - ui->textEdit_2->setReadOnly(!FALSE); - ui->textEdit_2->setVisible(FALSE); - ui->pushButton_export->setEnabled(FALSE); - ui->pushButton_import->setEnabled(FALSE); - ui->checkBox->setEnabled(FALSE); - ui->checkBox_2->setEnabled(FALSE); - - - if (drag_file_path) ui->lineEdit->setText(QString::fromLocal8Bit(drag_file_path)); -} - -MainWindow::~MainWindow() -{ - delete ui; -} - -void EnableWidget(Ui::MainWindow *ui, int flag) -{ - ui->lineEdit->setEnabled(flag); - ui->pushButton->setEnabled(flag); - ui->pushButton_export->setEnabled(flag); - ui->textEdit->setEnabled(flag); -#if ENABLE_EXPORT_SEPARATELY - ui->checkBox_2->setEnabled(flag); - ui->textEdit_2->setEnabled(flag); -#endif -#if ENABLE_IMPORT - ui->checkBox->setEnabled(flag); - ui->pushButton_import->setEnabled(flag); -#endif -} - -void MainWindow::on_pushButton_clicked() -{ - QString fileName = QFileDialog::getOpenFileName(this, QString::fromWCharArray(L"打开人物卡") - , NULL, QString::fromWCharArray(L"人物表格 (*.xlsx)")); - ui->lineEdit->setText(fileName); -} - -void MainWindow::on_lineEdit_textChanged(const QString &arg1) -{ - wchar_t* file_path = Utf8ToWchar(arg1.toUtf8().data()); - int flag = FALSE; - - wchar_t* c = wcsrchr(file_path, L'.'); - if (c && !wcsicmp(c, L".xlsx")) - flag = 1; - - if (flag) - flag = PathFileExists(file_path); - free(file_path); - - if (flag) - { - ui->textEdit->clear(); - ui->textEdit_2->clear(); - } - ui->textEdit->setReadOnly(!flag); - ui->pushButton_export->setEnabled(flag); -#if ENABLE_EXPORT_SEPARATELY - ui->checkBox_2->setEnabled(flag); - ui->textEdit_2->setReadOnly(!flag); -#endif -#if ENABLE_IMPORT - ui->pushButton_import->setEnabled(flag); - ui->checkBox->setEnabled(flag); -#endif -} - -void MainWindow::on_pushButton_export_clicked() -{ - EnableWidget(ui, FALSE); - wchar_t* file_path = Utf8ToWchar(ui->lineEdit->text().toUtf8().data()); - ui->textEdit->clear(); - ui->statusBar->setStyleSheet("color:black"); - GetPropertyFromXlsx(file_path, ui); - free(file_path); - EnableWidget(ui, TRUE); -} - -void MainWindow::on_pushButton_import_clicked() -{ - EnableWidget(ui, FALSE); - wchar_t* file_path = Utf8ToWchar(ui->lineEdit->text().toUtf8().data()); - wchar_t* templet_string = Utf8ToWchar(ui->textEdit->toPlainText().toUtf8().data()); - ui->textEdit->clear(); - ui->statusBar->setStyleSheet("color:black"); - ui->checkBox_2->setChecked(FALSE); - SetPropertyToXlsx(file_path, templet_string, ui); - free(templet_string); - free(file_path); - EnableWidget(ui, TRUE); -} - - -void MainWindow::dragEnterEvent(QDragEnterEvent *e) -{ - if (e->mimeData()->hasFormat("text/uri-list")) - e->acceptProposedAction(); -} - -void MainWindow::dropEvent(QDropEvent *e) -{ - QList urls = e->mimeData()->urls(); - if (urls.isEmpty()) - return; - - QString fileName = urls.first().toLocalFile(); - - if (!fileName.isEmpty()) - ui->lineEdit->setText(fileName); -} - - - -int SetPropertyToXlsx(wchar_t* file_path, wchar_t* templet_string, Ui::MainWindow *ui) -{ - - wchar_t info_string[4096]; - - wchar_t* unit_pointer = templet_string; - PropertyNode import_list[128] = {}; - - while (unit_pointer != (wchar_t*)2) - { - wchar_t* unit_separater = wcschr(unit_pointer, '|'); - if (unit_separater) *unit_separater = 0; - unit_separater++; - - wchar_t* unit_value_string = wcschr(unit_pointer, ':'); - if (!unit_value_string) unit_value_string = wcschr(unit_pointer, ':'); - if (!unit_value_string) { unit_pointer = unit_separater; continue; } - - *unit_value_string = 0; - unit_value_string++; - - wchar_t* unit_name_string = unit_pointer; - while (wchar_t* p = wcschr(unit_name_string, ' ')) wcscpy_s(p, wcslen(p) + 1, p + 1); - while (wchar_t* p = wcschr(unit_value_string, ' ')) wcscpy_s(p, wcslen(p) + 1, p + 1); - - if (wcslen(unit_name_string) >= 31) { unit_pointer = unit_separater; continue; } - if (wcslen(unit_value_string) >= 31) { unit_pointer = unit_separater; continue; } - - for (int i = 0; i < 128; i++) - { - if (!import_list[i].name[0]) - { - wcscpy_s(import_list[i].name, unit_name_string); - wcscpy_s(import_list[i].value, unit_value_string); - break; - } - } - - unit_pointer = unit_separater; - } - - swprintf_s(info_string, L"正在解析 %s", file_path); - ui->statusBar->showMessage(QString::fromWCharArray(info_string)); - - HANDLE handle_file = CreateFile(file_path, GENERIC_READ, - FILE_SHARE_READ | FILE_SHARE_WRITE, NULL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL); - - if (handle_file == INVALID_HANDLE_VALUE) - { - ui->statusBar->setStyleSheet("color:red"); - swprintf_s(info_string, L"无法打开 \"%s\" : %s", file_path, GetLastError() ? GetErrorTips() : L"未知原因."); - ui->statusBar->showMessage(QString::fromWCharArray(info_string)); - return 1; - } - - LARGE_INTEGER file_size = {}; - GetFileSizeEx(handle_file, &file_size); - - if (file_size.QuadPart <= 0) - { - ui->statusBar->setStyleSheet("color:red"); - swprintf_s(info_string, L"\"%s\" 是空的", file_path); - ui->statusBar->showMessage(QString::fromWCharArray(info_string)); - CloseHandle(handle_file); - return 1; - } - - void* zip_buf = malloc((size_t)file_size.QuadPart); - - DWORD read_size = 0; - if (!ReadFile(handle_file, zip_buf, (DWORD)file_size.QuadPart, &read_size, NULL) || read_size != file_size.QuadPart) - { - ui->statusBar->setStyleSheet("color:red"); - swprintf_s(info_string, L"无法读取 \"%s\" : %s", file_path, GetLastError() ? GetErrorTips() : L"未知原因."); - ui->statusBar->showMessage(QString::fromWCharArray(info_string)); - free(zip_buf); - CloseHandle(handle_file); - return 1; - } - - CloseHandle(handle_file); - - HZIP old_hz = OpenZip(zip_buf, read_size, 0); - ZIPENTRY ze; - int index; - - swprintf_s(info_string, L"正在检查文件正确性"); - ui->statusBar->showMessage(QString::fromWCharArray(info_string)); - - FindZipItem(old_hz, L"xl/worksheets/sheet1.xml", true, &index, &ze); - if (index == -1) - { - ui->statusBar->setStyleSheet("color:red"); - swprintf_s(info_string, L"xlxs解析错误,没有找到 xl/worksheets/sheet1.xml"); - ui->statusBar->showMessage(QString::fromWCharArray(info_string)); - CloseZip(old_hz); - free(zip_buf); - return 1; - } - char *sheet_xml_buf = (char*)malloc(ze.unc_size + 8); - memset(sheet_xml_buf, 0, ze.unc_size + 8); - UnzipItem(old_hz, index, sheet_xml_buf, ze.unc_size); - - FindZipItem(old_hz, L"xl/sharedStrings.xml", true, &index, &ze); - if (index == -1) - { - ui->statusBar->setStyleSheet("color:red"); - swprintf_s(info_string, L"xlxs解析错误,没有找到 xl/sharedStrings.xml"); - ui->statusBar->showMessage(QString::fromWCharArray(info_string)); - CloseZip(old_hz); - free(sheet_xml_buf); - free(zip_buf); - return 1; - } - char *sharedStrings_xml_buf = (char*)malloc(ze.unc_size + 8); - memset(sharedStrings_xml_buf, 0, ze.unc_size + 8); - UnzipItem(old_hz, index, sharedStrings_xml_buf, ze.unc_size); - - - PropertyNode info[76] = {}; - - xml_document<> sheet_doc; - xml_node<> *worksheet_node = NULL; - xml_node<> *sheetData_node = NULL; - xml_document<> sharedStrings_doc; - xml_node<> *sst_node = NULL; - HZIP new_hz = {}; - - sheet_doc.parse<0>(sheet_xml_buf); - sharedStrings_doc.parse<0>(sharedStrings_xml_buf); - - swprintf_s(info_string, L"正在检查XML正确性"); - ui->statusBar->showMessage(QString::fromWCharArray(info_string)); - - worksheet_node = sheet_doc.first_node("worksheet"); - if (!worksheet_node) - { - ui->statusBar->setStyleSheet("color:red"); - swprintf_s(info_string, L"xml解析错误,没有找到 sheet1->worksheet"); - ui->statusBar->showMessage(QString::fromWCharArray(info_string)); - free(sheet_xml_buf); free(sharedStrings_xml_buf); CloseZip(old_hz); free(zip_buf); return 1; - } - - sheetData_node = worksheet_node->first_node("sheetData"); - if (!sheetData_node) - { - ui->statusBar->setStyleSheet("color:red"); - swprintf_s(info_string, L"xml解析错误,没有找到 sheet1->worksheet->sheetData"); - ui->statusBar->showMessage(QString::fromWCharArray(info_string)); - free(sheet_xml_buf); free(sharedStrings_xml_buf); CloseZip(old_hz); free(zip_buf); return 1; - } - - if (!sheetData_node->first_node("row")) - { - ui->statusBar->setStyleSheet("color:red"); - swprintf_s(info_string, L"xml解析错误,没有找到 sheet1->worksheet->sheetData->row"); - ui->statusBar->showMessage(QString::fromWCharArray(info_string)); - free(sheet_xml_buf); free(sharedStrings_xml_buf); CloseZip(old_hz); free(zip_buf); return 1; - } - - sst_node = sharedStrings_doc.first_node("sst"); - if (!sheetData_node) - { - ui->statusBar->setStyleSheet("color:red"); - swprintf_s(info_string, L"xml解析错误,没有找到 sharedStrings->sst"); - ui->statusBar->showMessage(QString::fromWCharArray(info_string)); - free(sheet_xml_buf); free(sharedStrings_xml_buf); CloseZip(old_hz); free(zip_buf); return 1; - } - - if (!sst_node->first_node("si")) - { - ui->statusBar->setStyleSheet("color:red"); - swprintf_s(info_string, L"xml解析错误,没有找到 sharedStrings->si"); - ui->statusBar->showMessage(QString::fromWCharArray(info_string)); - free(sheet_xml_buf); free(sharedStrings_xml_buf); CloseZip(old_hz); free(zip_buf); return 1; - } - - - swprintf_s(info_string, L"正在识别表格"); - ui->statusBar->showMessage(QString::fromWCharArray(info_string)); - - int use_list_1 = 0; - - for (xml_node<> * row_node = sheetData_node->first_node("row"); row_node; row_node = row_node->next_sibling()) - { - for (xml_node<> * c_node = row_node->first_node("c"); c_node; c_node = c_node->next_sibling()) - { - xml_attribute<> * r_attr = c_node->first_attribute("r"); - - - if (!strcmp("O59", r_attr->value())) - { - - xml_node<> * v_node = c_node->first_node("v"); - if (!v_node || !v_node->value()) - continue; - - r_attr = c_node->first_attribute("t"); - - if (r_attr && r_attr->value()[0] == 's') - { - - int si_index = 0; - sscanf_s(v_node->value(), "%d", &si_index); - - xml_node<> *si_node = sst_node->first_node("si"); - - for (int i = 0; i < si_index && si_node; i++) - si_node = si_node->next_sibling(); - - - if (si_node) - { - xml_node<> *r_node = si_node->first_node("r"); - - for (xml_node<> *t_node = r_node ? r_node->first_node("t") : si_node->first_node("t"); - t_node; t_node = t_node->next_sibling()) - { - wchar_t* value_string = Utf8ToWchar(t_node->value()); - if (!wcscmp(L"货币:", value_string)) - use_list_1 = 1; - - free(value_string); - } - } - - } - else - { - - wchar_t* value_string = Utf8ToWchar(v_node->value()); - if (!wcscmp(L"货币:", value_string)) - use_list_1 = 1; - - free(value_string); - } - - continue; - } - } - } - - if (use_list_1) - { - for (int i = 0; i < 72; i++) - { - info[i].n_r = property_list_1[i][0]; - info[i].v_r = property_list_1[i][1]; - info[i].h_r = property_list_1[i][2]; - info[i].d_r = property_list_1[i][3]; - info[i].g_r = property_list_1[i][4]; - } - } - else - { - for (int i = 0; i < 72; i++) - { - info[i].n_r = property_list_2[i][0]; - info[i].v_r = property_list_2[i][1]; - info[i].h_r = property_list_2[i][2]; - info[i].d_r = property_list_2[i][3]; - info[i].g_r = property_list_2[i][4]; - } - } - - swprintf_s(info_string, L"正在解析XML"); - ui->statusBar->showMessage(QString::fromWCharArray(info_string)); - - for (xml_node<> * row_node = sheetData_node->first_node("row"); row_node; row_node = row_node->next_sibling()) - { - for (xml_node<> * c_node = row_node->first_node("c"); c_node; c_node = c_node->next_sibling()) - { - xml_attribute<> * r_attr = c_node->first_attribute("r"); - for (int i = 0; i < 72; i++) - { - if (!strcmp(info[i].n_r, r_attr->value())) - { - - xml_node<> * v_node = c_node->first_node("v"); - if (!v_node || !v_node->value()) - break; - - r_attr = c_node->first_attribute("t"); - - - if (r_attr && r_attr->value()[0] == 's') - { - - int si_index = 0; - sscanf_s(v_node->value(), "%d", &si_index); - - xml_node<> *si_node = sst_node->first_node("si"); - - for (int i = 0; i < si_index && si_node; i++) - si_node = si_node->next_sibling(); - - - if (si_node) - { - xml_node<> *r_node = si_node->first_node("r"); - - for (xml_node<> *t_node = r_node ? r_node->first_node("t") : si_node->first_node("t"); - t_node; t_node = t_node->next_sibling()) - { - wchar_t* value_string = Utf8ToWchar(t_node->value()); - - while (wchar_t* p = wcschr(value_string, L'\r')) wcscpy_s(p, wcslen(p) + 1, p + 1); - while (wchar_t* p = wcschr(value_string, L'\n')) wcscpy_s(p, wcslen(p) + 1, p + 1); - while (wchar_t* p = wcschr(value_string, L' ')) wcscpy_s(p, wcslen(p) + 1, p + 1); - while (wchar_t* p = wcschr(value_string, L'Ω')) wcscpy_s(p, wcslen(p) + 1, p + 1); - for (wchar_t* p = value_string; *p; p++) - { - if ((*p >= L'a' && *p <= L'z') || (*p >= L'A' && *p <= L'z')) - { - wcscpy_s(p, wcslen(p) + 1, p + 1); - p--; - } - } - - wcscat_s(info[i].name, value_string); - - free(value_string); - } - } - - } - else - { - - wchar_t* value_string = Utf8ToWchar(v_node->value()); - - while (wchar_t* p = wcschr(value_string, L'\r')) wcscpy_s(p, wcslen(p) + 1, p + 1); - while (wchar_t* p = wcschr(value_string, L'\n')) wcscpy_s(p, wcslen(p) + 1, p + 1); - while (wchar_t* p = wcschr(value_string, L' ')) wcscpy_s(p, wcslen(p) + 1, p + 1); - while (wchar_t* p = wcschr(value_string, L'Ω')) wcscpy_s(p, wcslen(p) + 1, p + 1); - for (wchar_t* p = value_string; *p; p++) - { - if ((*p >= L'a' && *p <= L'z') || (*p >= L'A' && *p <= L'z')) - { - wcscpy_s(p, wcslen(p) + 1, p + 1); - p--; - } - } - - wcscpy_s(info[i].name, value_string); - - free(value_string); - } - - for (int j = 0; j < 128; j++) - { - if (!wcscmp(info[i].name, import_list[j].name)) - { - wcscpy_s(info[i].value, import_list[j].value); - int new_value = 0; - swscanf_s(import_list[j].value, L"%d", &new_value); - - swprintf_s(info[i].hard, L"%d", new_value / 2); - swprintf_s(info[i].difficult, L"%d", new_value / 5); - - import_list[j].flag = 1; - break; - } - } - - break; - } - } - } - } - - for (xml_node<> * row_node = sheetData_node->first_node("row"); row_node; row_node = row_node->next_sibling()) - { - for (xml_node<> * c_node = row_node->first_node("c"); c_node; c_node = c_node->next_sibling()) - { - xml_attribute<> * r_attr = c_node->first_attribute("r"); - for (int i = 0; i < 72; i++) - { - if (!strcmp(info[i].v_r, r_attr->value())) - { - r_attr = c_node->first_attribute("t"); - xml_node<> * v_node = c_node->first_node("v"); - - if (v_node && v_node->value()) - { - for (int j = 0; j < 128; j++) - { - if (!wcscmp(info[i].name, import_list[j].name)) - { - wchar_t* value_string = Utf8ToWchar(v_node->value()); - - wchar_t* decimal_point = wcschr(value_string, L'.'); - if (decimal_point) - *decimal_point = 0; - - int old_value = 0; - int new_value = 0; - - swscanf_s(value_string, L"%d", &old_value); - swscanf_s(import_list[j].value, L"%d", &new_value); - - if (new_value != old_value) - swprintf_s(info[i].grow, L"%d", new_value - old_value); - - free(value_string); - break; - } - } - - } - break; - } - } - } - } - - for (xml_node<> * row_node = sheetData_node->first_node("row"); row_node; row_node = row_node->next_sibling()) - { - for (xml_node<> * c_node = row_node->first_node("c"); c_node; c_node = c_node->next_sibling()) - { - xml_attribute<> * r_attr = c_node->first_attribute("r"); - for (int i = 0; i < 72; i++) - { - if (!strcmp(info[i].g_r, r_attr->value()) && info[i].grow[0]) - { - r_attr = c_node->first_attribute("t"); - xml_node<> * v_node = c_node->first_node("v"); - - if (v_node && v_node->value()) - { - wchar_t* value_string = Utf8ToWchar(v_node->value()); - - wchar_t* decimal_point = wcschr(value_string, L'.'); - if (decimal_point) - *decimal_point = 0; - - int old_value = 0; - int new_value = 0; - - swscanf_s(value_string, L"%d", &old_value); - swscanf_s(info[i].grow, L"%d", &new_value); - - swprintf_s(info[i].grow, L"%d", new_value + old_value); - - free(value_string); - break; - } - break; - } - } - } - } - - swprintf_s(info_string, L"正在导入数据"); - ui->statusBar->showMessage(QString::fromWCharArray(info_string)); - - for (xml_node<> * row_node = sheetData_node->first_node("row"); row_node; row_node = row_node->next_sibling()) - { - for (xml_node<> * c_node = row_node->first_node("c"); c_node; c_node = c_node->next_sibling()) - { - xml_attribute<> * r_attr = c_node->first_attribute("r"); - for (int i = 0; i < 72; i++) - { - if (!strcmp(info[i].v_r, r_attr->value()) && info[i].value[0]) - { - xml_node<> * v_node = c_node->first_node("v"); - char* value_string = WcharToUtf8(info[i].value); - xml_node<> *new_node = sheet_doc.allocate_node(node_element, sheet_doc.allocate_string("v") - , sheet_doc.allocate_string(value_string)); - - c_node->insert_node(0, new_node); - if (v_node) c_node->remove_node(v_node); - - free(value_string); - break; - } - else if (!strcmp(info[i].h_r, r_attr->value()) && info[i].value[0]) - { - xml_node<> * v_node = c_node->first_node("v"); - char* value_string = WcharToUtf8(info[i].hard); - xml_node<> *new_node = sheet_doc.allocate_node(node_element, sheet_doc.allocate_string("v") - , sheet_doc.allocate_string(value_string)); - - c_node->insert_node(0, new_node); - if (v_node) c_node->remove_node(v_node); - - free(value_string); - break; - } - else if (!strcmp(info[i].d_r, r_attr->value()) && info[i].value[0]) - { - xml_node<> * v_node = c_node->first_node("v"); - char* value_string = WcharToUtf8(info[i].difficult); - xml_node<> *new_node = sheet_doc.allocate_node(node_element, sheet_doc.allocate_string("v") - , sheet_doc.allocate_string(value_string)); - - c_node->insert_node(0, new_node); - if (v_node) c_node->remove_node(v_node); - - free(value_string); - break; - } - else if (!strcmp(info[i].g_r, r_attr->value()) && info[i].value[0] && info[i].grow[0]) - { - xml_node<> * v_node = c_node->first_node("v"); - char* value_string = WcharToUtf8(info[i].grow); - xml_node<> *new_node = sheet_doc.allocate_node(node_element, sheet_doc.allocate_string("v") - , sheet_doc.allocate_string(value_string)); - - c_node->insert_node(0, new_node); - if (v_node) c_node->remove_node(v_node); - - free(value_string); - break; - } - } - } - } - - - swprintf_s(info_string, L"正在写入新的表格"); - ui->statusBar->showMessage(QString::fromWCharArray(info_string)); - - unsigned long new_zip_size = read_size * 2; - new_hz = CreateZip(0, new_zip_size, 0); - - - char* buffer = (char*)malloc(1024 * 1024); // You are responsible for making the buffer large enough! - char *end = print(buffer, sheet_doc, 0); // end contains pointer to character after last printed character - *end = 0; // Add string terminator after XML - ZipAdd(new_hz, L"xl/worksheets/sheet1.xml", buffer, strlen(buffer)); - free(buffer); - - ze = {}; - GetZipItem(old_hz, -1, &ze); - int numitems = ze.index; - for (int zi = 0; zi < numitems; zi++) - { - ZIPENTRY ze; - GetZipItem(old_hz, zi, &ze); // fetch individual details - - if (!wcscmp(ze.name, L"xl/worksheets/sheet1.xml")) - continue; - - char *ibuf = (char*)malloc(ze.unc_size); - UnzipItem(old_hz, zi, ibuf, ze.unc_size); // e.g. the item's name. - ZipAdd(new_hz, ze.name, ibuf, ze.unc_size); - free(ibuf); - } - - ZipGetMemory(new_hz, (void**)&buffer, &new_zip_size); - - if (ui->checkBox->isChecked()) - { - wchar_t new_file_path[MAX_PATH] = {}; - wcscpy_s(new_file_path, file_path); - wcscat_s(new_file_path, L".bak"); - if (!MoveFile(file_path, new_file_path)) - { - ui->statusBar->setStyleSheet("color:red"); - if (PathFileExists(new_file_path)) - swprintf_s(info_string, L"无法移动 \"%s\" 至 \"%s\" : 存在备份文件", file_path, new_file_path); - else - swprintf_s(info_string, L"无法移动 \"%s\" 至 \"%s\" : %s", file_path, new_file_path, GetLastError() ? GetErrorTips() : L"未知原因."); - ui->statusBar->showMessage(QString::fromWCharArray(info_string)); - free(sheet_xml_buf); free(sharedStrings_xml_buf); CloseZip(old_hz); return 1; - } - } - else - { - if (!DeleteFile(file_path)) - { - ui->statusBar->setStyleSheet("color:red"); - swprintf_s(info_string, L"无法删除 \"%s\" : %s", file_path, GetLastError() ? GetErrorTips() : L"未知原因."); - ui->statusBar->showMessage(QString::fromWCharArray(info_string)); - free(sheet_xml_buf); free(sharedStrings_xml_buf); CloseZip(old_hz); return 1; - } - } - - handle_file = CreateFile(file_path, GENERIC_WRITE, 0, 0, CREATE_NEW, FILE_ATTRIBUTE_NORMAL, 0); - if (handle_file == INVALID_HANDLE_VALUE) - { - ui->statusBar->setStyleSheet("color:red"); - swprintf_s(info_string, L"无法打开 \"%s\" : %s", file_path, GetLastError() ? GetErrorTips() : L"未知原因."); - ui->statusBar->showMessage(QString::fromWCharArray(info_string)); - free(sheet_xml_buf); - free(sharedStrings_xml_buf); - CloseZip(old_hz); - CloseZip(new_hz); - return 1; - } - DWORD writ; WriteFile(handle_file, buffer, new_zip_size, &writ, 0); - CloseHandle(handle_file); - - free(sheet_xml_buf); - free(sharedStrings_xml_buf); - - CloseZip(old_hz); - free(zip_buf); - - CloseZip(new_hz); - - for (int i = 0; i < 128; i++) - if (!import_list[i].flag && import_list[i].name[0] && - wcscmp(import_list[i].name, L"初始生命") && - wcscmp(import_list[i].name, L"初始理智") && - wcscmp(import_list[i].name, L"初始幸运") && - wcscmp(import_list[i].name, L"初始魔法")) - { - swprintf_s(info_string, L"[%s]没有被导入,请确认表格中存在此技能", import_list[i].name); - ui->textEdit->append(QString::fromWCharArray(info_string)); - } - - swprintf_s(info_string, L"导入完成"); - ui->statusBar->showMessage(QString::fromWCharArray(info_string)); - - return 0; -} - - - - - - - - - - - - - - - - - - - - - - - - - - - -int GetPropertyFromXlsx(wchar_t* file_path, Ui::MainWindow *ui) -{ - ui->statusBar->setStyleSheet("color:black"); - name[0] = 0; - - wchar_t info_string[4096]; - - swprintf_s(info_string, L"正在解析 %s", file_path); - ui->statusBar->showMessage(QString::fromWCharArray(info_string)); - - HANDLE handle_file = CreateFile(file_path, GENERIC_READ, - FILE_SHARE_READ | FILE_SHARE_WRITE, NULL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL); - - if (handle_file == INVALID_HANDLE_VALUE) - { - ui->statusBar->setStyleSheet("color:red"); - swprintf_s(info_string, L"无法打开 \"%s\" : %s", file_path, GetLastError() ? GetErrorTips() : L"未知原因."); - ui->statusBar->showMessage(QString::fromWCharArray(info_string)); - return 1; - } - - LARGE_INTEGER file_size = {}; - GetFileSizeEx(handle_file, &file_size); - - if (file_size.QuadPart <= 0) - { - ui->statusBar->setStyleSheet("color:red"); - swprintf_s(info_string, L"\"%s\" 是空的", file_path); - ui->statusBar->showMessage(QString::fromWCharArray(info_string)); - CloseHandle(handle_file); - return 1; - } - - void* zip_buf = malloc((size_t)file_size.QuadPart); - - DWORD read_size = 0; - if (!ReadFile(handle_file, zip_buf, (DWORD)file_size.QuadPart, &read_size, NULL) || read_size != file_size.QuadPart) - { - ui->statusBar->setStyleSheet("color:red"); - swprintf_s(info_string, L"无法读取 \"%s\" : %s", file_path, GetLastError() ? GetErrorTips() : L"未知原因."); - ui->statusBar->showMessage(QString::fromWCharArray(info_string)); - free(zip_buf); - CloseHandle(handle_file); - return 1; - } - - CloseHandle(handle_file); - - HZIP hz = OpenZip(zip_buf, read_size, 0); - ZIPENTRY ze; - int index; - - - swprintf_s(info_string, L"正在检查表格正确性"); - ui->statusBar->showMessage(QString::fromWCharArray(info_string)); - - - FindZipItem(hz, L"xl/worksheets/sheet1.xml", true, &index, &ze); - if (index == -1) - { - ui->statusBar->setStyleSheet("color:red"); - swprintf_s(info_string, L"xlxs解析错误,没有找到 xl/worksheets/sheet1.xml"); - ui->statusBar->showMessage(QString::fromWCharArray(info_string)); - CloseZip(hz); - free(zip_buf); - return 1; - } - - char *sheet_xml_buf = (char*)malloc(ze.unc_size + 8); - memset(sheet_xml_buf, 0, ze.unc_size + 8); - UnzipItem(hz, index, sheet_xml_buf, ze.unc_size); - - FindZipItem(hz, L"xl/sharedStrings.xml", true, &index, &ze); - if (index == -1) - { - ui->statusBar->setStyleSheet("color:red"); - swprintf_s(info_string, L"xlxs解析错误,没有找到 xl/sharedStrings.xml"); - ui->statusBar->showMessage(QString::fromWCharArray(info_string)); - CloseZip(hz); - free(sheet_xml_buf); - free(zip_buf); - return 1; - } - char *sharedStrings_xml_buf = (char*)malloc(ze.unc_size + 8); - memset(sharedStrings_xml_buf, 0, ze.unc_size + 8); - UnzipItem(hz, index, sharedStrings_xml_buf, ze.unc_size); - - CloseZip(hz); - free(zip_buf); - - PropertyNode info[76] = {}; - - xml_document<> sheet_doc; - xml_node<> *worksheet_node = NULL; - xml_node<> *sheetData_node = NULL; - xml_document<> sharedStrings_doc; - xml_node<> *sst_node = NULL; - - - sheet_doc.parse<0>(sheet_xml_buf); - sharedStrings_doc.parse<0>(sharedStrings_xml_buf); - - - swprintf_s(info_string, L"正在检查XML正确性"); - ui->statusBar->showMessage(QString::fromWCharArray(info_string)); - - worksheet_node = sheet_doc.first_node("worksheet"); - if (!worksheet_node) - { - ui->statusBar->setStyleSheet("color:red"); - swprintf_s(info_string, L"xml解析错误,没有找到 sheet1->worksheet"); - ui->statusBar->showMessage(QString::fromWCharArray(info_string)); - free(sheet_xml_buf); free(sharedStrings_xml_buf); return 1; - } - - sheetData_node = worksheet_node->first_node("sheetData"); - if (!sheetData_node) - { - ui->statusBar->setStyleSheet("color:red"); - swprintf_s(info_string, L"xml解析错误,没有找到 sheet1->worksheet->sheetData"); - ui->statusBar->showMessage(QString::fromWCharArray(info_string)); - free(sheet_xml_buf); free(sharedStrings_xml_buf); return 1; - } - - if (!sheetData_node->first_node("row")) { - ui->statusBar->setStyleSheet("color:red"); - swprintf_s(info_string, L"xml解析错误,没有找到 sheet1->worksheet->sheetData->row"); - ui->statusBar->showMessage(QString::fromWCharArray(info_string)); - free(sheet_xml_buf); free(sharedStrings_xml_buf); return 1; - } - - sst_node = sharedStrings_doc.first_node("sst"); - if (!sheetData_node) - { - ui->statusBar->setStyleSheet("color:red"); - swprintf_s(info_string, L"xml解析错误,没有找到 sharedStrings->sst"); - ui->statusBar->showMessage(QString::fromWCharArray(info_string)); - free(sheet_xml_buf); free(sharedStrings_xml_buf); return 1; - } - - if (!sst_node->first_node("si")) - { - ui->statusBar->setStyleSheet("color:red"); - swprintf_s(info_string, L"xml解析错误,没有找到 sharedStrings->si"); - ui->statusBar->showMessage(QString::fromWCharArray(info_string)); - free(sheet_xml_buf); free(sharedStrings_xml_buf); return 1; - } - - - swprintf_s(info_string, L"正在识别表格"); - ui->statusBar->showMessage(QString::fromWCharArray(info_string)); - - int use_list_1 = 0; - - for (xml_node<> * row_node = sheetData_node->first_node("row"); row_node; row_node = row_node->next_sibling()) - { - for (xml_node<> * c_node = row_node->first_node("c"); c_node; c_node = c_node->next_sibling()) - { - xml_attribute<> * r_attr = c_node->first_attribute("r"); - - - if (!strcmp("O59", r_attr->value())) - { - - xml_node<> * v_node = c_node->first_node("v"); - if (!v_node || !v_node->value()) - continue; - - r_attr = c_node->first_attribute("t"); - - if (r_attr && r_attr->value()[0] == 's') - { - - int si_index = 0; - sscanf_s(v_node->value(), "%d", &si_index); - - xml_node<> *si_node = sst_node->first_node("si"); - - for (int i = 0; i < si_index && si_node; i++) - si_node = si_node->next_sibling(); - - - if (si_node) - { - xml_node<> *r_node = si_node->first_node("r"); - - for (xml_node<> *t_node = r_node ? r_node->first_node("t") : si_node->first_node("t"); - t_node; t_node = t_node->next_sibling()) - { - wchar_t* value_string = Utf8ToWchar(t_node->value()); - - if (!wcscmp(L"货币:", value_string)) - use_list_1 = 1; - - free(value_string); - } - } - - } - else - { - - wchar_t* value_string = Utf8ToWchar(v_node->value()); - - if (!wcscmp(L"货币:", value_string)) - use_list_1 = 1; - - free(value_string); - } - - continue; - } - } - } - - if (use_list_1) - { - for (int i = 0; i < 72; i++) - { - info[i].n_r = property_list_1[i][0]; - info[i].v_r = property_list_1[i][1]; - } - } - else - { - for (int i = 0; i < 72; i++) - { - info[i].n_r = property_list_2[i][0]; - info[i].v_r = property_list_2[i][1]; - } - } - - - - - swprintf_s(info_string, L"正在解析XML"); - ui->statusBar->showMessage(QString::fromWCharArray(info_string)); - - for (xml_node<> * row_node = sheetData_node->first_node("row"); row_node; row_node = row_node->next_sibling()) - { - for (xml_node<> * c_node = row_node->first_node("c"); c_node; c_node = c_node->next_sibling()) - { - xml_attribute<> * r_attr = c_node->first_attribute("r"); - - - if (!strcmp(name_r, r_attr->value())) - { - - xml_node<> * v_node = c_node->first_node("v"); - if (!v_node || !v_node->value()) - continue; - - r_attr = c_node->first_attribute("t"); - - if (r_attr && r_attr->value()[0] == 's') - { - - int si_index = 0; - sscanf_s(v_node->value(), "%d", &si_index); - - xml_node<> *si_node = sst_node->first_node("si"); - - for (int i = 0; i < si_index && si_node; i++) - si_node = si_node->next_sibling(); - - - if (si_node) - { - xml_node<> *r_node = si_node->first_node("r"); - - for (xml_node<> *t_node = r_node ? r_node->first_node("t") : si_node->first_node("t"); - t_node; t_node = t_node->next_sibling()) - { - wchar_t* value_string = Utf8ToWchar(t_node->value()); - - while (wchar_t* p = wcschr(value_string, L'\r')) wcscpy_s(p, wcslen(p) + 1, p + 1); - while (wchar_t* p = wcschr(value_string, L'\n')) wcscpy_s(p, wcslen(p) + 1, p + 1); - while (wchar_t* p = wcschr(value_string, L' ')) wcscpy_s(p, wcslen(p) + 1, p + 1); - while (wchar_t* p = wcschr(value_string, L'Ω')) wcscpy_s(p, wcslen(p) + 1, p + 1); - for (wchar_t* p = value_string; *p; p++) - { - if ((*p >= L'a' && *p <= L'z') || (*p >= L'A' && *p <= L'z')) - { - wcscpy_s(p, wcslen(p) + 1, p + 1); - p--; - } - } - - wcscat_s(name, value_string); - - free(value_string); - } - } - - } - else - { - - wchar_t* value_string = Utf8ToWchar(v_node->value()); - - while (wchar_t* p = wcschr(value_string, L'\r')) wcscpy_s(p, wcslen(p) + 1, p + 1); - while (wchar_t* p = wcschr(value_string, L'\n')) wcscpy_s(p, wcslen(p) + 1, p + 1); - while (wchar_t* p = wcschr(value_string, L' ')) wcscpy_s(p, wcslen(p) + 1, p + 1); - while (wchar_t* p = wcschr(value_string, L'Ω')) wcscpy_s(p, wcslen(p) + 1, p + 1); - for (wchar_t* p = value_string; *p; p++) - { - if ((*p >= L'a' && *p <= L'z') || (*p >= L'A' && *p <= L'z')) - { - wcscpy_s(p, wcslen(p) + 1, p + 1); - p--; - } - } - - wcscpy_s(name, value_string); - - free(value_string); - } - - continue; - } - - for (int i = 0; i < 72; i++) - { - if (!strcmp(info[i].n_r, r_attr->value())) - { - - xml_node<> * v_node = c_node->first_node("v"); - if (!v_node || !v_node->value()) - break; - - r_attr = c_node->first_attribute("t"); - - - if (r_attr && r_attr->value()[0] == 's') - { - - int si_index = 0; - sscanf_s(v_node->value(), "%d", &si_index); - - xml_node<> *si_node = sst_node->first_node("si"); - - for (int i = 0; i < si_index && si_node; i++) - si_node = si_node->next_sibling(); - - - if (si_node) - { - xml_node<> *r_node = si_node->first_node("r"); - - for (xml_node<> *t_node = r_node ? r_node->first_node("t") : si_node->first_node("t"); - t_node; t_node = t_node->next_sibling()) - { - wchar_t* value_string = Utf8ToWchar(t_node->value()); - - while (wchar_t* p = wcschr(value_string, L'\r')) wcscpy_s(p, wcslen(p) + 1, p + 1); - while (wchar_t* p = wcschr(value_string, L'\n')) wcscpy_s(p, wcslen(p) + 1, p + 1); - while (wchar_t* p = wcschr(value_string, L' ')) wcscpy_s(p, wcslen(p) + 1, p + 1); - while (wchar_t* p = wcschr(value_string, L'Ω')) wcscpy_s(p, wcslen(p) + 1, p + 1); - for (wchar_t* p = value_string; *p; p++) - { - if ((*p >= L'a' && *p <= L'z') || (*p >= L'A' && *p <= L'z')) - { - wcscpy_s(p, wcslen(p) + 1, p + 1); - p--; - } - } - - wcscat_s(info[i].name, value_string); - - free(value_string); - } - } - - } - else - { - - wchar_t* value_string = Utf8ToWchar(v_node->value()); - - while (wchar_t* p = wcschr(value_string, L'\r')) wcscpy_s(p, wcslen(p) + 1, p + 1); - while (wchar_t* p = wcschr(value_string, L'\n')) wcscpy_s(p, wcslen(p) + 1, p + 1); - while (wchar_t* p = wcschr(value_string, L' ')) wcscpy_s(p, wcslen(p) + 1, p + 1); - while (wchar_t* p = wcschr(value_string, L'Ω')) wcscpy_s(p, wcslen(p) + 1, p + 1); - for (wchar_t* p = value_string; *p; p++) - { - if ((*p >= L'a' && *p <= L'z') || (*p >= L'A' && *p <= L'z')) - { - wcscpy_s(p, wcslen(p) + 1, p + 1); - p--; - } - } - - wcscpy_s(info[i].name, value_string); - - free(value_string); - } - - break; - } - else if (!strcmp(info[i].v_r, r_attr->value())) - { - r_attr = c_node->first_attribute("t"); - xml_node<> * v_node = c_node->first_node("v"); - - if (v_node && v_node->value()) - { - wchar_t* value_string = Utf8ToWchar(v_node->value()); - - wchar_t* decimal_point = wcschr(value_string, L'.'); - if (decimal_point) - *decimal_point = 0; - - wcscpy_s(info[i].value, value_string); - - free(value_string); - } - break; - } - } - - - } - } - - free(sheet_xml_buf); - free(sharedStrings_xml_buf); - - - swprintf_s(info_string, L"正在导出数据"); - ui->statusBar->showMessage(QString::fromWCharArray(info_string)); - - wcscpy_s(info[72].name, L"初始生命"); - for (int i = 0; i < 72; i++) - if (!wcscmp(info[i].name, L"生命")) - wcscpy_s(info[72].value, info[i].value); - - wcscpy_s(info[73].name, L"初始理智"); - for (int i = 0; i < 72; i++) - if (!wcscmp(info[i].name, L"理智")) - wcscpy_s(info[73].value, info[i].value); - - wcscpy_s(info[74].name, L"初始幸运"); - for (int i = 0; i < 72; i++) - if (!wcscmp(info[i].name, L"幸运")) - wcscpy_s(info[74].value, info[i].value); - - wcscpy_s(info[75].name, L"初始魔法"); - for (int i = 0; i < 72; i++) - if (!wcscmp(info[i].name, L"魔法")) - wcscpy_s(info[75].value, info[i].value); - - if (!ui->checkBox_2->isChecked()) - { - int separater_flag = 0; - for (int i = 0; i < 76; i++) - { - if (info[i].name[0] != 0 && info->value[0] != 0) - { - if (!separater_flag) - { - swprintf_s(info_string, L".st "); - ui->textEdit->moveCursor(QTextCursor::End); - ui->textEdit->insertPlainText(QString::fromWCharArray(info_string)); - separater_flag = 1; - } - else - { - swprintf_s(info_string, L"|"); - ui->textEdit->moveCursor(QTextCursor::End); - ui->textEdit->insertPlainText(QString::fromWCharArray(info_string)); - } - swprintf_s(info_string, L"%s:%s", info[i].name, info[i].value); - ui->textEdit->moveCursor(QTextCursor::End); - ui->textEdit->insertPlainText(QString::fromWCharArray(info_string)); - } - } - } - else - { - int separater_flag = 0; - for (int i = 0; i < 38; i++) - { - if (info[i].name[0] != 0 && info->value[0] != 0) - { - if (!separater_flag) - { - swprintf_s(info_string, L".st "); - ui->textEdit->moveCursor(QTextCursor::End); - ui->textEdit->insertPlainText(QString::fromWCharArray(info_string)); - separater_flag = 1; - } - else - { - swprintf_s(info_string, L"|"); - ui->textEdit->moveCursor(QTextCursor::End); - ui->textEdit->insertPlainText(QString::fromWCharArray(info_string)); - } - swprintf_s(info_string, L"%s:%s", info[i].name, info[i].value); - ui->textEdit->moveCursor(QTextCursor::End); - ui->textEdit->insertPlainText(QString::fromWCharArray(info_string)); - } - } - separater_flag = 0; - for (int i = 38; i < 76; i++) - { - if (info[i].name[0] != 0 && info->value[0] != 0) - { - if (!separater_flag) - { - swprintf_s(info_string, L".st "); - ui->textEdit_2->moveCursor(QTextCursor::End); - ui->textEdit_2->insertPlainText(QString::fromWCharArray(info_string)); - separater_flag = 1; - } - else - { - swprintf_s(info_string, L"|"); - ui->textEdit_2->moveCursor(QTextCursor::End); - ui->textEdit_2->insertPlainText(QString::fromWCharArray(info_string)); - } - swprintf_s(info_string, L"%s:%s", info[i].name, info[i].value); - ui->textEdit_2->moveCursor(QTextCursor::End); - ui->textEdit_2->insertPlainText(QString::fromWCharArray(info_string)); - } - } - } - - swprintf_s(info_string, L"解析完成"); - ui->statusBar->showMessage(QString::fromWCharArray(info_string)); - - return 0; - -} - - -wchar_t* GetErrorTips() -{ - void* err_msg = NULL; - static wchar_t ret_info[256]; - - int langid = MAKELANGID(LANG_CHINESE, SUBLANG_CHINESE_SIMPLIFIED); - - if (!FormatMessage(FORMAT_MESSAGE_ALLOCATE_BUFFER | FORMAT_MESSAGE_FROM_SYSTEM | FORMAT_MESSAGE_IGNORE_INSERTS, - NULL, GetLastError(), langid, (wchar_t*)&err_msg, 0, NULL)) return NULL; - wcscpy_s(ret_info, _countof(ret_info), (wchar_t*)err_msg); - LocalFree(err_msg); - - while (wchar_t* p = wcschr(ret_info, L'\r'))wcscpy_s(p, wcslen(p) + 1, p + 1); - while (wchar_t* p = wcschr(ret_info, L'\n')) wcscpy_s(p, wcslen(p) + 1, p + 1); - while (wchar_t* p = wcschr(ret_info, L'.')) wcscpy_s(p, wcslen(p) + 1, p + 1); - while (wchar_t* p = wcschr(ret_info, L':')) wcscpy_s(p, wcslen(p) + 1, p + 1); - - return ret_info; - -} - - -wchar_t* Utf8ToWchar(char* utf8_str) -{ - int wchar_len = MultiByteToWideChar(CP_UTF8, NULL, utf8_str, -1, NULL, 0); - wchar_t* unicode_str = (wchar_t*)malloc(sizeof(wchar_t)*wchar_len); - MultiByteToWideChar(CP_UTF8, NULL, utf8_str, -1, unicode_str, wchar_len);; - return unicode_str; -} - -char* WcharToUtf8(wchar_t* unicode_str) -{ - int utf8_len = WideCharToMultiByte(CP_UTF8, NULL, unicode_str, -1, NULL, 0, NULL, NULL); - char *utf8_str = (char*)malloc(sizeof(char)*utf8_len); - WideCharToMultiByte(CP_UTF8, NULL, unicode_str, -1, utf8_str, utf8_len, NULL, NULL); - return utf8_str; -} - -void MainWindow::on_checkBox_2_clicked(bool checked) -{ - ui->textEdit_2->setVisible(checked); - ui->textEdit->clear(); - ui->textEdit_2->clear(); - ui->pushButton_import->setEnabled(!checked); -} diff --git a/CocXlsxTool/mainwindow.h b/CocXlsxTool/mainwindow.h deleted file mode 100644 index 90e748bb..00000000 --- a/CocXlsxTool/mainwindow.h +++ /dev/null @@ -1,37 +0,0 @@ -#ifndef MAINWINDOW_H -#define MAINWINDOW_H - -#include - -namespace Ui { -class MainWindow; -} - -class MainWindow : public QMainWindow -{ - Q_OBJECT - -public: - explicit MainWindow(QWidget *parent = 0); - ~MainWindow(); - -protected: - void dragEnterEvent(QDragEnterEvent *e); - void dropEvent(QDropEvent *e); - -private slots: - void on_pushButton_clicked(); - - void on_lineEdit_textChanged(const QString &arg1); - - void on_pushButton_export_clicked(); - - void on_pushButton_import_clicked(); - - void on_checkBox_2_clicked(bool checked); - -private: - Ui::MainWindow *ui; -}; - -#endif // MAINWINDOW_H diff --git a/CocXlsxTool/mainwindow.ui b/CocXlsxTool/mainwindow.ui deleted file mode 100644 index e7865a02..00000000 --- a/CocXlsxTool/mainwindow.ui +++ /dev/null @@ -1,153 +0,0 @@ - - - MainWindow - - - - 0 - 0 - 537 - 498 - - - - true - - - MainWindow - - - - - - - 从表格导出 - - - - - - - Qt::Horizontal - - - - 40 - 20 - - - - - - - - 导入至表格 - - - - - - - Qt::Horizontal - - - - 40 - 20 - - - - - - - - Qt::Horizontal - - - - 40 - 20 - - - - - - - - Qt::Horizontal - - - - 40 - 20 - - - - - - - - false - - - <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN" "http://www.w3.org/TR/REC-html40/strict.dtd"> -<html><head><meta name="qrichtext" content="1" /><style type="text/css"> -p, li { white-space: pre-wrap; } -</style></head><body style=" font-family:'SimSun'; font-size:9pt; font-weight:400; font-style:normal;"> -<p style="-qt-paragraph-type:empty; margin-top:0px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px;"><br /></p></body></html> - - - - - - - 备份表格 - - - true - - - - - - - 分段导入 - - - - - - - - - 打开表格: - - - - - - - false - - - - - - - 选择文件 - - - - - - - - - - - - - - - - diff --git a/CocXlsxTool/rapidxml.hpp b/CocXlsxTool/rapidxml.hpp deleted file mode 100644 index ae91e081..00000000 --- a/CocXlsxTool/rapidxml.hpp +++ /dev/null @@ -1,2596 +0,0 @@ -#ifndef RAPIDXML_HPP_INCLUDED -#define RAPIDXML_HPP_INCLUDED - -// Copyright (C) 2006, 2009 Marcin Kalicinski -// Version 1.13 -// Revision $DateTime: 2009/05/13 01:46:17 $ -//! \file rapidxml.hpp This file contains rapidxml parser and DOM implementation - -// If standard library is disabled, user must provide implementations of required functions and typedefs -#if !defined(RAPIDXML_NO_STDLIB) - #include // For std::size_t - #include // For assert - #include // For placement new -#endif - -// On MSVC, disable "conditional expression is constant" warning (level 4). -// This warning is almost impossible to avoid with certain types of templated code -#ifdef _MSC_VER - #pragma warning(push) - #pragma warning(disable:4127) // Conditional expression is constant -#endif - -/////////////////////////////////////////////////////////////////////////// -// RAPIDXML_PARSE_ERROR - -#if defined(RAPIDXML_NO_EXCEPTIONS) - -#define RAPIDXML_PARSE_ERROR(what, where) { parse_error_handler(what, where); assert(0); } - -namespace rapidxml -{ - //! When exceptions are disabled by defining RAPIDXML_NO_EXCEPTIONS, - //! this function is called to notify user about the error. - //! It must be defined by the user. - //!

- //! This function cannot return. If it does, the results are undefined. - //!

- //! A very simple definition might look like that: - //!
-    //! void %rapidxml::%parse_error_handler(const char *what, void *where)
-    //! {
-    //!     std::cout << "Parse error: " << what << "\n";
-    //!     std::abort();
-    //! }
-    //! 
- //! \param what Human readable description of the error. - //! \param where Pointer to character data where error was detected. - void parse_error_handler(const char *what, void *where); -} - -#else - -#include // For std::exception - -#define RAPIDXML_PARSE_ERROR(what, where) throw parse_error(what, where) - -namespace rapidxml -{ - - //! Parse error exception. - //! This exception is thrown by the parser when an error occurs. - //! Use what() function to get human-readable error message. - //! Use where() function to get a pointer to position within source text where error was detected. - //!

- //! If throwing exceptions by the parser is undesirable, - //! it can be disabled by defining RAPIDXML_NO_EXCEPTIONS macro before rapidxml.hpp is included. - //! This will cause the parser to call rapidxml::parse_error_handler() function instead of throwing an exception. - //! This function must be defined by the user. - //!

- //! This class derives from std::exception class. - class parse_error: public std::exception - { - - public: - - //! Constructs parse error - parse_error(const char *what, void *where) - : m_what(what) - , m_where(where) - { - } - - //! Gets human readable description of error. - //! \return Pointer to null terminated description of the error. - virtual const char *what() const throw() - { - return m_what; - } - - //! Gets pointer to character data where error happened. - //! Ch should be the same as char type of xml_document that produced the error. - //! \return Pointer to location within the parsed string where error occured. - template - Ch *where() const - { - return reinterpret_cast(m_where); - } - - private: - - const char *m_what; - void *m_where; - - }; -} - -#endif - -/////////////////////////////////////////////////////////////////////////// -// Pool sizes - -#ifndef RAPIDXML_STATIC_POOL_SIZE - // Size of static memory block of memory_pool. - // Define RAPIDXML_STATIC_POOL_SIZE before including rapidxml.hpp if you want to override the default value. - // No dynamic memory allocations are performed by memory_pool until static memory is exhausted. - #define RAPIDXML_STATIC_POOL_SIZE (64 * 1024) -#endif - -#ifndef RAPIDXML_DYNAMIC_POOL_SIZE - // Size of dynamic memory block of memory_pool. - // Define RAPIDXML_DYNAMIC_POOL_SIZE before including rapidxml.hpp if you want to override the default value. - // After the static block is exhausted, dynamic blocks with approximately this size are allocated by memory_pool. - #define RAPIDXML_DYNAMIC_POOL_SIZE (64 * 1024) -#endif - -#ifndef RAPIDXML_ALIGNMENT - // Memory allocation alignment. - // Define RAPIDXML_ALIGNMENT before including rapidxml.hpp if you want to override the default value, which is the size of pointer. - // All memory allocations for nodes, attributes and strings will be aligned to this value. - // This must be a power of 2 and at least 1, otherwise memory_pool will not work. - #define RAPIDXML_ALIGNMENT sizeof(void *) -#endif - -namespace rapidxml -{ - // Forward declarations - template class xml_node; - template class xml_attribute; - template class xml_document; - - //! Enumeration listing all node types produced by the parser. - //! Use xml_node::type() function to query node type. - enum node_type - { - node_document, //!< A document node. Name and value are empty. - node_element, //!< An element node. Name contains element name. Value contains text of first data node. - node_data, //!< A data node. Name is empty. Value contains data text. - node_cdata, //!< A CDATA node. Name is empty. Value contains data text. - node_comment, //!< A comment node. Name is empty. Value contains comment text. - node_declaration, //!< A declaration node. Name and value are empty. Declaration parameters (version, encoding and standalone) are in node attributes. - node_doctype, //!< A DOCTYPE node. Name is empty. Value contains DOCTYPE text. - node_pi //!< A PI node. Name contains target. Value contains instructions. - }; - - /////////////////////////////////////////////////////////////////////// - // Parsing flags - - //! Parse flag instructing the parser to not create data nodes. - //! Text of first data node will still be placed in value of parent element, unless rapidxml::parse_no_element_values flag is also specified. - //! Can be combined with other flags by use of | operator. - //!

- //! See xml_document::parse() function. - const int parse_no_data_nodes = 0x1; - - //! Parse flag instructing the parser to not use text of first data node as a value of parent element. - //! Can be combined with other flags by use of | operator. - //! Note that child data nodes of element node take precendence over its value when printing. - //! That is, if element has one or more child data nodes and a value, the value will be ignored. - //! Use rapidxml::parse_no_data_nodes flag to prevent creation of data nodes if you want to manipulate data using values of elements. - //!

- //! See xml_document::parse() function. - const int parse_no_element_values = 0x2; - - //! Parse flag instructing the parser to not place zero terminators after strings in the source text. - //! By default zero terminators are placed, modifying source text. - //! Can be combined with other flags by use of | operator. - //!

- //! See xml_document::parse() function. - const int parse_no_string_terminators = 0x4; - - //! Parse flag instructing the parser to not translate entities in the source text. - //! By default entities are translated, modifying source text. - //! Can be combined with other flags by use of | operator. - //!

- //! See xml_document::parse() function. - const int parse_no_entity_translation = 0x8; - - //! Parse flag instructing the parser to disable UTF-8 handling and assume plain 8 bit characters. - //! By default, UTF-8 handling is enabled. - //! Can be combined with other flags by use of | operator. - //!

- //! See xml_document::parse() function. - const int parse_no_utf8 = 0x10; - - //! Parse flag instructing the parser to create XML declaration node. - //! By default, declaration node is not created. - //! Can be combined with other flags by use of | operator. - //!

- //! See xml_document::parse() function. - const int parse_declaration_node = 0x20; - - //! Parse flag instructing the parser to create comments nodes. - //! By default, comment nodes are not created. - //! Can be combined with other flags by use of | operator. - //!

- //! See xml_document::parse() function. - const int parse_comment_nodes = 0x40; - - //! Parse flag instructing the parser to create DOCTYPE node. - //! By default, doctype node is not created. - //! Although W3C specification allows at most one DOCTYPE node, RapidXml will silently accept documents with more than one. - //! Can be combined with other flags by use of | operator. - //!

- //! See xml_document::parse() function. - const int parse_doctype_node = 0x80; - - //! Parse flag instructing the parser to create PI nodes. - //! By default, PI nodes are not created. - //! Can be combined with other flags by use of | operator. - //!

- //! See xml_document::parse() function. - const int parse_pi_nodes = 0x100; - - //! Parse flag instructing the parser to validate closing tag names. - //! If not set, name inside closing tag is irrelevant to the parser. - //! By default, closing tags are not validated. - //! Can be combined with other flags by use of | operator. - //!

- //! See xml_document::parse() function. - const int parse_validate_closing_tags = 0x200; - - //! Parse flag instructing the parser to trim all leading and trailing whitespace of data nodes. - //! By default, whitespace is not trimmed. - //! This flag does not cause the parser to modify source text. - //! Can be combined with other flags by use of | operator. - //!

- //! See xml_document::parse() function. - const int parse_trim_whitespace = 0x400; - - //! Parse flag instructing the parser to condense all whitespace runs of data nodes to a single space character. - //! Trimming of leading and trailing whitespace of data is controlled by rapidxml::parse_trim_whitespace flag. - //! By default, whitespace is not normalized. - //! If this flag is specified, source text will be modified. - //! Can be combined with other flags by use of | operator. - //!

- //! See xml_document::parse() function. - const int parse_normalize_whitespace = 0x800; - - // Compound flags - - //! Parse flags which represent default behaviour of the parser. - //! This is always equal to 0, so that all other flags can be simply ored together. - //! Normally there is no need to inconveniently disable flags by anding with their negated (~) values. - //! This also means that meaning of each flag is a negation of the default setting. - //! For example, if flag name is rapidxml::parse_no_utf8, it means that utf-8 is enabled by default, - //! and using the flag will disable it. - //!

- //! See xml_document::parse() function. - const int parse_default = 0; - - //! A combination of parse flags that forbids any modifications of the source text. - //! This also results in faster parsing. However, note that the following will occur: - //!
    - //!
  • names and values of nodes will not be zero terminated, you have to use xml_base::name_size() and xml_base::value_size() functions to determine where name and value ends
  • - //!
  • entities will not be translated
  • - //!
  • whitespace will not be normalized
  • - //!
- //! See xml_document::parse() function. - const int parse_non_destructive = parse_no_string_terminators | parse_no_entity_translation; - - //! A combination of parse flags resulting in fastest possible parsing, without sacrificing important data. - //!

- //! See xml_document::parse() function. - const int parse_fastest = parse_non_destructive | parse_no_data_nodes; - - //! A combination of parse flags resulting in largest amount of data being extracted. - //! This usually results in slowest parsing. - //!

- //! See xml_document::parse() function. - const int parse_full = parse_declaration_node | parse_comment_nodes | parse_doctype_node | parse_pi_nodes | parse_validate_closing_tags; - - /////////////////////////////////////////////////////////////////////// - // Internals - - //! \cond internal - namespace internal - { - - // Struct that contains lookup tables for the parser - // It must be a template to allow correct linking (because it has static data members, which are defined in a header file). - template - struct lookup_tables - { - static const unsigned char lookup_whitespace[256]; // Whitespace table - static const unsigned char lookup_node_name[256]; // Node name table - static const unsigned char lookup_text[256]; // Text table - static const unsigned char lookup_text_pure_no_ws[256]; // Text table - static const unsigned char lookup_text_pure_with_ws[256]; // Text table - static const unsigned char lookup_attribute_name[256]; // Attribute name table - static const unsigned char lookup_attribute_data_1[256]; // Attribute data table with single quote - static const unsigned char lookup_attribute_data_1_pure[256]; // Attribute data table with single quote - static const unsigned char lookup_attribute_data_2[256]; // Attribute data table with double quotes - static const unsigned char lookup_attribute_data_2_pure[256]; // Attribute data table with double quotes - static const unsigned char lookup_digits[256]; // Digits - static const unsigned char lookup_upcase[256]; // To uppercase conversion table for ASCII characters - }; - - // Find length of the string - template - inline std::size_t measure(const Ch *p) - { - const Ch *tmp = p; - while (*tmp) - ++tmp; - return tmp - p; - } - - // Compare strings for equality - template - inline bool compare(const Ch *p1, std::size_t size1, const Ch *p2, std::size_t size2, bool case_sensitive) - { - if (size1 != size2) - return false; - if (case_sensitive) - { - for (const Ch *end = p1 + size1; p1 < end; ++p1, ++p2) - if (*p1 != *p2) - return false; - } - else - { - for (const Ch *end = p1 + size1; p1 < end; ++p1, ++p2) - if (lookup_tables<0>::lookup_upcase[static_cast(*p1)] != lookup_tables<0>::lookup_upcase[static_cast(*p2)]) - return false; - } - return true; - } - } - //! \endcond - - /////////////////////////////////////////////////////////////////////// - // Memory pool - - //! This class is used by the parser to create new nodes and attributes, without overheads of dynamic memory allocation. - //! In most cases, you will not need to use this class directly. - //! However, if you need to create nodes manually or modify names/values of nodes, - //! you are encouraged to use memory_pool of relevant xml_document to allocate the memory. - //! Not only is this faster than allocating them by using new operator, - //! but also their lifetime will be tied to the lifetime of document, - //! possibly simplyfing memory management. - //!

- //! Call allocate_node() or allocate_attribute() functions to obtain new nodes or attributes from the pool. - //! You can also call allocate_string() function to allocate strings. - //! Such strings can then be used as names or values of nodes without worrying about their lifetime. - //! Note that there is no free() function -- all allocations are freed at once when clear() function is called, - //! or when the pool is destroyed. - //!

- //! It is also possible to create a standalone memory_pool, and use it - //! to allocate nodes, whose lifetime will not be tied to any document. - //!

- //! Pool maintains RAPIDXML_STATIC_POOL_SIZE bytes of statically allocated memory. - //! Until static memory is exhausted, no dynamic memory allocations are done. - //! When static memory is exhausted, pool allocates additional blocks of memory of size RAPIDXML_DYNAMIC_POOL_SIZE each, - //! by using global new[] and delete[] operators. - //! This behaviour can be changed by setting custom allocation routines. - //! Use set_allocator() function to set them. - //!

- //! Allocations for nodes, attributes and strings are aligned at RAPIDXML_ALIGNMENT bytes. - //! This value defaults to the size of pointer on target architecture. - //!

- //! To obtain absolutely top performance from the parser, - //! it is important that all nodes are allocated from a single, contiguous block of memory. - //! Otherwise, cache misses when jumping between two (or more) disjoint blocks of memory can slow down parsing quite considerably. - //! If required, you can tweak RAPIDXML_STATIC_POOL_SIZE, RAPIDXML_DYNAMIC_POOL_SIZE and RAPIDXML_ALIGNMENT - //! to obtain best wasted memory to performance compromise. - //! To do it, define their values before rapidxml.hpp file is included. - //! \param Ch Character type of created nodes. - template - class memory_pool - { - - public: - - //! \cond internal - typedef void *(alloc_func)(std::size_t); // Type of user-defined function used to allocate memory - typedef void (free_func)(void *); // Type of user-defined function used to free memory - //! \endcond - - //! Constructs empty pool with default allocator functions. - memory_pool() - : m_alloc_func(0) - , m_free_func(0) - { - init(); - } - - //! Destroys pool and frees all the memory. - //! This causes memory occupied by nodes allocated by the pool to be freed. - //! Nodes allocated from the pool are no longer valid. - ~memory_pool() - { - clear(); - } - - //! Allocates a new node from the pool, and optionally assigns name and value to it. - //! If the allocation request cannot be accomodated, this function will throw std::bad_alloc. - //! If exceptions are disabled by defining RAPIDXML_NO_EXCEPTIONS, this function - //! will call rapidxml::parse_error_handler() function. - //! \param type Type of node to create. - //! \param name Name to assign to the node, or 0 to assign no name. - //! \param value Value to assign to the node, or 0 to assign no value. - //! \param name_size Size of name to assign, or 0 to automatically calculate size from name string. - //! \param value_size Size of value to assign, or 0 to automatically calculate size from value string. - //! \return Pointer to allocated node. This pointer will never be NULL. - xml_node *allocate_node(node_type type, - const Ch *name = 0, const Ch *value = 0, - std::size_t name_size = 0, std::size_t value_size = 0) - { - void *memory = allocate_aligned(sizeof(xml_node)); - xml_node *node = new(memory) xml_node(type); - if (name) - { - if (name_size > 0) - node->name(name, name_size); - else - node->name(name); - } - if (value) - { - if (value_size > 0) - node->value(value, value_size); - else - node->value(value); - } - return node; - } - - //! Allocates a new attribute from the pool, and optionally assigns name and value to it. - //! If the allocation request cannot be accomodated, this function will throw std::bad_alloc. - //! If exceptions are disabled by defining RAPIDXML_NO_EXCEPTIONS, this function - //! will call rapidxml::parse_error_handler() function. - //! \param name Name to assign to the attribute, or 0 to assign no name. - //! \param value Value to assign to the attribute, or 0 to assign no value. - //! \param name_size Size of name to assign, or 0 to automatically calculate size from name string. - //! \param value_size Size of value to assign, or 0 to automatically calculate size from value string. - //! \return Pointer to allocated attribute. This pointer will never be NULL. - xml_attribute *allocate_attribute(const Ch *name = 0, const Ch *value = 0, - std::size_t name_size = 0, std::size_t value_size = 0) - { - void *memory = allocate_aligned(sizeof(xml_attribute)); - xml_attribute *attribute = new(memory) xml_attribute; - if (name) - { - if (name_size > 0) - attribute->name(name, name_size); - else - attribute->name(name); - } - if (value) - { - if (value_size > 0) - attribute->value(value, value_size); - else - attribute->value(value); - } - return attribute; - } - - //! Allocates a char array of given size from the pool, and optionally copies a given string to it. - //! If the allocation request cannot be accomodated, this function will throw std::bad_alloc. - //! If exceptions are disabled by defining RAPIDXML_NO_EXCEPTIONS, this function - //! will call rapidxml::parse_error_handler() function. - //! \param source String to initialize the allocated memory with, or 0 to not initialize it. - //! \param size Number of characters to allocate, or zero to calculate it automatically from source string length; if size is 0, source string must be specified and null terminated. - //! \return Pointer to allocated char array. This pointer will never be NULL. - Ch *allocate_string(const Ch *source = 0, std::size_t size = 0) - { - assert(source || size); // Either source or size (or both) must be specified - if (size == 0) - size = internal::measure(source) + 1; - Ch *result = static_cast(allocate_aligned(size * sizeof(Ch))); - if (source) - for (std::size_t i = 0; i < size; ++i) - result[i] = source[i]; - return result; - } - - //! Clones an xml_node and its hierarchy of child nodes and attributes. - //! Nodes and attributes are allocated from this memory pool. - //! Names and values are not cloned, they are shared between the clone and the source. - //! Result node can be optionally specified as a second parameter, - //! in which case its contents will be replaced with cloned source node. - //! This is useful when you want to clone entire document. - //! \param source Node to clone. - //! \param result Node to put results in, or 0 to automatically allocate result node - //! \return Pointer to cloned node. This pointer will never be NULL. - xml_node *clone_node(const xml_node *source, xml_node *result = 0) - { - // Prepare result node - if (result) - { - result->remove_all_attributes(); - result->remove_all_nodes(); - result->type(source->type()); - } - else - result = allocate_node(source->type()); - - // Clone name and value - result->name(source->name(), source->name_size()); - result->value(source->value(), source->value_size()); - - // Clone child nodes and attributes - for (xml_node *child = source->first_node(); child; child = child->next_sibling()) - result->append_node(clone_node(child)); - for (xml_attribute *attr = source->first_attribute(); attr; attr = attr->next_attribute()) - result->append_attribute(allocate_attribute(attr->name(), attr->value(), attr->name_size(), attr->value_size())); - - return result; - } - - //! Clears the pool. - //! This causes memory occupied by nodes allocated by the pool to be freed. - //! Any nodes or strings allocated from the pool will no longer be valid. - void clear() - { - while (m_begin != m_static_memory) - { - char *previous_begin = reinterpret_cast
(align(m_begin))->previous_begin; - if (m_free_func) - m_free_func(m_begin); - else - delete[] m_begin; - m_begin = previous_begin; - } - init(); - } - - //! Sets or resets the user-defined memory allocation functions for the pool. - //! This can only be called when no memory is allocated from the pool yet, otherwise results are undefined. - //! Allocation function must not return invalid pointer on failure. It should either throw, - //! stop the program, or use longjmp() function to pass control to other place of program. - //! If it returns invalid pointer, results are undefined. - //!

- //! User defined allocation functions must have the following forms: - //!
- //!
void *allocate(std::size_t size); - //!
void free(void *pointer); - //!

- //! \param af Allocation function, or 0 to restore default function - //! \param ff Free function, or 0 to restore default function - void set_allocator(alloc_func *af, free_func *ff) - { - assert(m_begin == m_static_memory && m_ptr == align(m_begin)); // Verify that no memory is allocated yet - m_alloc_func = af; - m_free_func = ff; - } - - private: - - struct header - { - char *previous_begin; - }; - - void init() - { - m_begin = m_static_memory; - m_ptr = align(m_begin); - m_end = m_static_memory + sizeof(m_static_memory); - } - - char *align(char *ptr) - { - std::size_t alignment = ((RAPIDXML_ALIGNMENT - (std::size_t(ptr) & (RAPIDXML_ALIGNMENT - 1))) & (RAPIDXML_ALIGNMENT - 1)); - return ptr + alignment; - } - - char *allocate_raw(std::size_t size) - { - // Allocate - void *memory; - if (m_alloc_func) // Allocate memory using either user-specified allocation function or global operator new[] - { - memory = m_alloc_func(size); - assert(memory); // Allocator is not allowed to return 0, on failure it must either throw, stop the program or use longjmp - } - else - { - memory = new char[size]; -#ifdef RAPIDXML_NO_EXCEPTIONS - if (!memory) // If exceptions are disabled, verify memory allocation, because new will not be able to throw bad_alloc - RAPIDXML_PARSE_ERROR("out of memory", 0); -#endif - } - return static_cast(memory); - } - - void *allocate_aligned(std::size_t size) - { - // Calculate aligned pointer - char *result = align(m_ptr); - - // If not enough memory left in current pool, allocate a new pool - if (result + size > m_end) - { - // Calculate required pool size (may be bigger than RAPIDXML_DYNAMIC_POOL_SIZE) - std::size_t pool_size = RAPIDXML_DYNAMIC_POOL_SIZE; - if (pool_size < size) - pool_size = size; - - // Allocate - std::size_t alloc_size = sizeof(header) + (2 * RAPIDXML_ALIGNMENT - 2) + pool_size; // 2 alignments required in worst case: one for header, one for actual allocation - char *raw_memory = allocate_raw(alloc_size); - - // Setup new pool in allocated memory - char *pool = align(raw_memory); - header *new_header = reinterpret_cast
(pool); - new_header->previous_begin = m_begin; - m_begin = raw_memory; - m_ptr = pool + sizeof(header); - m_end = raw_memory + alloc_size; - - // Calculate aligned pointer again using new pool - result = align(m_ptr); - } - - // Update pool and return aligned pointer - m_ptr = result + size; - return result; - } - - char *m_begin; // Start of raw memory making up current pool - char *m_ptr; // First free byte in current pool - char *m_end; // One past last available byte in current pool - char m_static_memory[RAPIDXML_STATIC_POOL_SIZE]; // Static raw memory - alloc_func *m_alloc_func; // Allocator function, or 0 if default is to be used - free_func *m_free_func; // Free function, or 0 if default is to be used - }; - - /////////////////////////////////////////////////////////////////////////// - // XML base - - //! Base class for xml_node and xml_attribute implementing common functions: - //! name(), name_size(), value(), value_size() and parent(). - //! \param Ch Character type to use - template - class xml_base - { - - public: - - /////////////////////////////////////////////////////////////////////////// - // Construction & destruction - - // Construct a base with empty name, value and parent - xml_base() - : m_name(0) - , m_value(0) - , m_parent(0) - { - } - - /////////////////////////////////////////////////////////////////////////// - // Node data access - - //! Gets name of the node. - //! Interpretation of name depends on type of node. - //! Note that name will not be zero-terminated if rapidxml::parse_no_string_terminators option was selected during parse. - //!

- //! Use name_size() function to determine length of the name. - //! \return Name of node, or empty string if node has no name. - Ch *name() const - { - return m_name ? m_name : nullstr(); - } - - //! Gets size of node name, not including terminator character. - //! This function works correctly irrespective of whether name is or is not zero terminated. - //! \return Size of node name, in characters. - std::size_t name_size() const - { - return m_name ? m_name_size : 0; - } - - //! Gets value of node. - //! Interpretation of value depends on type of node. - //! Note that value will not be zero-terminated if rapidxml::parse_no_string_terminators option was selected during parse. - //!

- //! Use value_size() function to determine length of the value. - //! \return Value of node, or empty string if node has no value. - Ch *value() const - { - return m_value ? m_value : nullstr(); - } - - //! Gets size of node value, not including terminator character. - //! This function works correctly irrespective of whether value is or is not zero terminated. - //! \return Size of node value, in characters. - std::size_t value_size() const - { - return m_value ? m_value_size : 0; - } - - /////////////////////////////////////////////////////////////////////////// - // Node modification - - //! Sets name of node to a non zero-terminated string. - //! See \ref ownership_of_strings. - //!

- //! Note that node does not own its name or value, it only stores a pointer to it. - //! It will not delete or otherwise free the pointer on destruction. - //! It is reponsibility of the user to properly manage lifetime of the string. - //! The easiest way to achieve it is to use memory_pool of the document to allocate the string - - //! on destruction of the document the string will be automatically freed. - //!

- //! Size of name must be specified separately, because name does not have to be zero terminated. - //! Use name(const Ch *) function to have the length automatically calculated (string must be zero terminated). - //! \param name Name of node to set. Does not have to be zero terminated. - //! \param size Size of name, in characters. This does not include zero terminator, if one is present. - void name(const Ch *name, std::size_t size) - { - m_name = const_cast(name); - m_name_size = size; - } - - //! Sets name of node to a zero-terminated string. - //! See also \ref ownership_of_strings and xml_node::name(const Ch *, std::size_t). - //! \param name Name of node to set. Must be zero terminated. - void name(const Ch *name) - { - this->name(name, internal::measure(name)); - } - - //! Sets value of node to a non zero-terminated string. - //! See \ref ownership_of_strings. - //!

- //! Note that node does not own its name or value, it only stores a pointer to it. - //! It will not delete or otherwise free the pointer on destruction. - //! It is reponsibility of the user to properly manage lifetime of the string. - //! The easiest way to achieve it is to use memory_pool of the document to allocate the string - - //! on destruction of the document the string will be automatically freed. - //!

- //! Size of value must be specified separately, because it does not have to be zero terminated. - //! Use value(const Ch *) function to have the length automatically calculated (string must be zero terminated). - //!

- //! If an element has a child node of type node_data, it will take precedence over element value when printing. - //! If you want to manipulate data of elements using values, use parser flag rapidxml::parse_no_data_nodes to prevent creation of data nodes by the parser. - //! \param value value of node to set. Does not have to be zero terminated. - //! \param size Size of value, in characters. This does not include zero terminator, if one is present. - void value(const Ch *value, std::size_t size) - { - m_value = const_cast(value); - m_value_size = size; - } - - //! Sets value of node to a zero-terminated string. - //! See also \ref ownership_of_strings and xml_node::value(const Ch *, std::size_t). - //! \param value Vame of node to set. Must be zero terminated. - void value(const Ch *value) - { - this->value(value, internal::measure(value)); - } - - /////////////////////////////////////////////////////////////////////////// - // Related nodes access - - //! Gets node parent. - //! \return Pointer to parent node, or 0 if there is no parent. - xml_node *parent() const - { - return m_parent; - } - - protected: - - // Return empty string - static Ch *nullstr() - { - static Ch zero = Ch('\0'); - return &zero; - } - - Ch *m_name; // Name of node, or 0 if no name - Ch *m_value; // Value of node, or 0 if no value - std::size_t m_name_size; // Length of node name, or undefined of no name - std::size_t m_value_size; // Length of node value, or undefined if no value - xml_node *m_parent; // Pointer to parent node, or 0 if none - - }; - - //! Class representing attribute node of XML document. - //! Each attribute has name and value strings, which are available through name() and value() functions (inherited from xml_base). - //! Note that after parse, both name and value of attribute will point to interior of source text used for parsing. - //! Thus, this text must persist in memory for the lifetime of attribute. - //! \param Ch Character type to use. - template - class xml_attribute: public xml_base - { - - friend class xml_node; - - public: - - /////////////////////////////////////////////////////////////////////////// - // Construction & destruction - - //! Constructs an empty attribute with the specified type. - //! Consider using memory_pool of appropriate xml_document if allocating attributes manually. - xml_attribute() - { - } - - /////////////////////////////////////////////////////////////////////////// - // Related nodes access - - //! Gets document of which attribute is a child. - //! \return Pointer to document that contains this attribute, or 0 if there is no parent document. - xml_document *document() const - { - if (xml_node *node = this->parent()) - { - while (node->parent()) - node = node->parent(); - return node->type() == node_document ? static_cast *>(node) : 0; - } - else - return 0; - } - - //! Gets previous attribute, optionally matching attribute name. - //! \param name Name of attribute to find, or 0 to return previous attribute regardless of its name; this string doesn't have to be zero-terminated if name_size is non-zero - //! \param name_size Size of name, in characters, or 0 to have size calculated automatically from string - //! \param case_sensitive Should name comparison be case-sensitive; non case-sensitive comparison works properly only for ASCII characters - //! \return Pointer to found attribute, or 0 if not found. - xml_attribute *previous_attribute(const Ch *name = 0, std::size_t name_size = 0, bool case_sensitive = true) const - { - if (name) - { - if (name_size == 0) - name_size = internal::measure(name); - for (xml_attribute *attribute = m_prev_attribute; attribute; attribute = attribute->m_prev_attribute) - if (internal::compare(attribute->name(), attribute->name_size(), name, name_size, case_sensitive)) - return attribute; - return 0; - } - else - return this->m_parent ? m_prev_attribute : 0; - } - - //! Gets next attribute, optionally matching attribute name. - //! \param name Name of attribute to find, or 0 to return next attribute regardless of its name; this string doesn't have to be zero-terminated if name_size is non-zero - //! \param name_size Size of name, in characters, or 0 to have size calculated automatically from string - //! \param case_sensitive Should name comparison be case-sensitive; non case-sensitive comparison works properly only for ASCII characters - //! \return Pointer to found attribute, or 0 if not found. - xml_attribute *next_attribute(const Ch *name = 0, std::size_t name_size = 0, bool case_sensitive = true) const - { - if (name) - { - if (name_size == 0) - name_size = internal::measure(name); - for (xml_attribute *attribute = m_next_attribute; attribute; attribute = attribute->m_next_attribute) - if (internal::compare(attribute->name(), attribute->name_size(), name, name_size, case_sensitive)) - return attribute; - return 0; - } - else - return this->m_parent ? m_next_attribute : 0; - } - - private: - - xml_attribute *m_prev_attribute; // Pointer to previous sibling of attribute, or 0 if none; only valid if parent is non-zero - xml_attribute *m_next_attribute; // Pointer to next sibling of attribute, or 0 if none; only valid if parent is non-zero - - }; - - /////////////////////////////////////////////////////////////////////////// - // XML node - - //! Class representing a node of XML document. - //! Each node may have associated name and value strings, which are available through name() and value() functions. - //! Interpretation of name and value depends on type of the node. - //! Type of node can be determined by using type() function. - //!

- //! Note that after parse, both name and value of node, if any, will point interior of source text used for parsing. - //! Thus, this text must persist in the memory for the lifetime of node. - //! \param Ch Character type to use. - template - class xml_node: public xml_base - { - - public: - - /////////////////////////////////////////////////////////////////////////// - // Construction & destruction - - //! Constructs an empty node with the specified type. - //! Consider using memory_pool of appropriate document to allocate nodes manually. - //! \param type Type of node to construct. - xml_node(node_type type) - : m_type(type) - , m_first_node(0) - , m_first_attribute(0) - { - } - - /////////////////////////////////////////////////////////////////////////// - // Node data access - - //! Gets type of node. - //! \return Type of node. - node_type type() const - { - return m_type; - } - - /////////////////////////////////////////////////////////////////////////// - // Related nodes access - - //! Gets document of which node is a child. - //! \return Pointer to document that contains this node, or 0 if there is no parent document. - xml_document *document() const - { - xml_node *node = const_cast *>(this); - while (node->parent()) - node = node->parent(); - return node->type() == node_document ? static_cast *>(node) : 0; - } - - //! Gets first child node, optionally matching node name. - //! \param name Name of child to find, or 0 to return first child regardless of its name; this string doesn't have to be zero-terminated if name_size is non-zero - //! \param name_size Size of name, in characters, or 0 to have size calculated automatically from string - //! \param case_sensitive Should name comparison be case-sensitive; non case-sensitive comparison works properly only for ASCII characters - //! \return Pointer to found child, or 0 if not found. - xml_node *first_node(const Ch *name = 0, std::size_t name_size = 0, bool case_sensitive = true) const - { - if (name) - { - if (name_size == 0) - name_size = internal::measure(name); - for (xml_node *child = m_first_node; child; child = child->next_sibling()) - if (internal::compare(child->name(), child->name_size(), name, name_size, case_sensitive)) - return child; - return 0; - } - else - return m_first_node; - } - - //! Gets last child node, optionally matching node name. - //! Behaviour is undefined if node has no children. - //! Use first_node() to test if node has children. - //! \param name Name of child to find, or 0 to return last child regardless of its name; this string doesn't have to be zero-terminated if name_size is non-zero - //! \param name_size Size of name, in characters, or 0 to have size calculated automatically from string - //! \param case_sensitive Should name comparison be case-sensitive; non case-sensitive comparison works properly only for ASCII characters - //! \return Pointer to found child, or 0 if not found. - xml_node *last_node(const Ch *name = 0, std::size_t name_size = 0, bool case_sensitive = true) const - { - assert(m_first_node); // Cannot query for last child if node has no children - if (name) - { - if (name_size == 0) - name_size = internal::measure(name); - for (xml_node *child = m_last_node; child; child = child->previous_sibling()) - if (internal::compare(child->name(), child->name_size(), name, name_size, case_sensitive)) - return child; - return 0; - } - else - return m_last_node; - } - - //! Gets previous sibling node, optionally matching node name. - //! Behaviour is undefined if node has no parent. - //! Use parent() to test if node has a parent. - //! \param name Name of sibling to find, or 0 to return previous sibling regardless of its name; this string doesn't have to be zero-terminated if name_size is non-zero - //! \param name_size Size of name, in characters, or 0 to have size calculated automatically from string - //! \param case_sensitive Should name comparison be case-sensitive; non case-sensitive comparison works properly only for ASCII characters - //! \return Pointer to found sibling, or 0 if not found. - xml_node *previous_sibling(const Ch *name = 0, std::size_t name_size = 0, bool case_sensitive = true) const - { - assert(this->m_parent); // Cannot query for siblings if node has no parent - if (name) - { - if (name_size == 0) - name_size = internal::measure(name); - for (xml_node *sibling = m_prev_sibling; sibling; sibling = sibling->m_prev_sibling) - if (internal::compare(sibling->name(), sibling->name_size(), name, name_size, case_sensitive)) - return sibling; - return 0; - } - else - return m_prev_sibling; - } - - //! Gets next sibling node, optionally matching node name. - //! Behaviour is undefined if node has no parent. - //! Use parent() to test if node has a parent. - //! \param name Name of sibling to find, or 0 to return next sibling regardless of its name; this string doesn't have to be zero-terminated if name_size is non-zero - //! \param name_size Size of name, in characters, or 0 to have size calculated automatically from string - //! \param case_sensitive Should name comparison be case-sensitive; non case-sensitive comparison works properly only for ASCII characters - //! \return Pointer to found sibling, or 0 if not found. - xml_node *next_sibling(const Ch *name = 0, std::size_t name_size = 0, bool case_sensitive = true) const - { - assert(this->m_parent); // Cannot query for siblings if node has no parent - if (name) - { - if (name_size == 0) - name_size = internal::measure(name); - for (xml_node *sibling = m_next_sibling; sibling; sibling = sibling->m_next_sibling) - if (internal::compare(sibling->name(), sibling->name_size(), name, name_size, case_sensitive)) - return sibling; - return 0; - } - else - return m_next_sibling; - } - - //! Gets first attribute of node, optionally matching attribute name. - //! \param name Name of attribute to find, or 0 to return first attribute regardless of its name; this string doesn't have to be zero-terminated if name_size is non-zero - //! \param name_size Size of name, in characters, or 0 to have size calculated automatically from string - //! \param case_sensitive Should name comparison be case-sensitive; non case-sensitive comparison works properly only for ASCII characters - //! \return Pointer to found attribute, or 0 if not found. - xml_attribute *first_attribute(const Ch *name = 0, std::size_t name_size = 0, bool case_sensitive = true) const - { - if (name) - { - if (name_size == 0) - name_size = internal::measure(name); - for (xml_attribute *attribute = m_first_attribute; attribute; attribute = attribute->m_next_attribute) - if (internal::compare(attribute->name(), attribute->name_size(), name, name_size, case_sensitive)) - return attribute; - return 0; - } - else - return m_first_attribute; - } - - //! Gets last attribute of node, optionally matching attribute name. - //! \param name Name of attribute to find, or 0 to return last attribute regardless of its name; this string doesn't have to be zero-terminated if name_size is non-zero - //! \param name_size Size of name, in characters, or 0 to have size calculated automatically from string - //! \param case_sensitive Should name comparison be case-sensitive; non case-sensitive comparison works properly only for ASCII characters - //! \return Pointer to found attribute, or 0 if not found. - xml_attribute *last_attribute(const Ch *name = 0, std::size_t name_size = 0, bool case_sensitive = true) const - { - if (name) - { - if (name_size == 0) - name_size = internal::measure(name); - for (xml_attribute *attribute = m_last_attribute; attribute; attribute = attribute->m_prev_attribute) - if (internal::compare(attribute->name(), attribute->name_size(), name, name_size, case_sensitive)) - return attribute; - return 0; - } - else - return m_first_attribute ? m_last_attribute : 0; - } - - /////////////////////////////////////////////////////////////////////////// - // Node modification - - //! Sets type of node. - //! \param type Type of node to set. - void type(node_type type) - { - m_type = type; - } - - /////////////////////////////////////////////////////////////////////////// - // Node manipulation - - //! Prepends a new child node. - //! The prepended child becomes the first child, and all existing children are moved one position back. - //! \param child Node to prepend. - void prepend_node(xml_node *child) - { - assert(child && !child->parent() && child->type() != node_document); - if (first_node()) - { - child->m_next_sibling = m_first_node; - m_first_node->m_prev_sibling = child; - } - else - { - child->m_next_sibling = 0; - m_last_node = child; - } - m_first_node = child; - child->m_parent = this; - child->m_prev_sibling = 0; - } - - //! Appends a new child node. - //! The appended child becomes the last child. - //! \param child Node to append. - void append_node(xml_node *child) - { - assert(child && !child->parent() && child->type() != node_document); - if (first_node()) - { - child->m_prev_sibling = m_last_node; - m_last_node->m_next_sibling = child; - } - else - { - child->m_prev_sibling = 0; - m_first_node = child; - } - m_last_node = child; - child->m_parent = this; - child->m_next_sibling = 0; - } - - //! Inserts a new child node at specified place inside the node. - //! All children after and including the specified node are moved one position back. - //! \param where Place where to insert the child, or 0 to insert at the back. - //! \param child Node to insert. - void insert_node(xml_node *where, xml_node *child) - { - assert(!where || where->parent() == this); - assert(child && !child->parent() && child->type() != node_document); - if (where == m_first_node) - prepend_node(child); - else if (where == 0) - append_node(child); - else - { - child->m_prev_sibling = where->m_prev_sibling; - child->m_next_sibling = where; - where->m_prev_sibling->m_next_sibling = child; - where->m_prev_sibling = child; - child->m_parent = this; - } - } - - //! Removes first child node. - //! If node has no children, behaviour is undefined. - //! Use first_node() to test if node has children. - void remove_first_node() - { - assert(first_node()); - xml_node *child = m_first_node; - m_first_node = child->m_next_sibling; - if (child->m_next_sibling) - child->m_next_sibling->m_prev_sibling = 0; - else - m_last_node = 0; - child->m_parent = 0; - } - - //! Removes last child of the node. - //! If node has no children, behaviour is undefined. - //! Use first_node() to test if node has children. - void remove_last_node() - { - assert(first_node()); - xml_node *child = m_last_node; - if (child->m_prev_sibling) - { - m_last_node = child->m_prev_sibling; - child->m_prev_sibling->m_next_sibling = 0; - } - else - m_first_node = 0; - child->m_parent = 0; - } - - //! Removes specified child from the node - // \param where Pointer to child to be removed. - void remove_node(xml_node *where) - { - assert(where && where->parent() == this); - assert(first_node()); - if (where == m_first_node) - remove_first_node(); - else if (where == m_last_node) - remove_last_node(); - else - { - where->m_prev_sibling->m_next_sibling = where->m_next_sibling; - where->m_next_sibling->m_prev_sibling = where->m_prev_sibling; - where->m_parent = 0; - } - } - - //! Removes all child nodes (but not attributes). - void remove_all_nodes() - { - for (xml_node *node = first_node(); node; node = node->m_next_sibling) - node->m_parent = 0; - m_first_node = 0; - } - - //! Prepends a new attribute to the node. - //! \param attribute Attribute to prepend. - void prepend_attribute(xml_attribute *attribute) - { - assert(attribute && !attribute->parent()); - if (first_attribute()) - { - attribute->m_next_attribute = m_first_attribute; - m_first_attribute->m_prev_attribute = attribute; - } - else - { - attribute->m_next_attribute = 0; - m_last_attribute = attribute; - } - m_first_attribute = attribute; - attribute->m_parent = this; - attribute->m_prev_attribute = 0; - } - - //! Appends a new attribute to the node. - //! \param attribute Attribute to append. - void append_attribute(xml_attribute *attribute) - { - assert(attribute && !attribute->parent()); - if (first_attribute()) - { - attribute->m_prev_attribute = m_last_attribute; - m_last_attribute->m_next_attribute = attribute; - } - else - { - attribute->m_prev_attribute = 0; - m_first_attribute = attribute; - } - m_last_attribute = attribute; - attribute->m_parent = this; - attribute->m_next_attribute = 0; - } - - //! Inserts a new attribute at specified place inside the node. - //! All attributes after and including the specified attribute are moved one position back. - //! \param where Place where to insert the attribute, or 0 to insert at the back. - //! \param attribute Attribute to insert. - void insert_attribute(xml_attribute *where, xml_attribute *attribute) - { - assert(!where || where->parent() == this); - assert(attribute && !attribute->parent()); - if (where == m_first_attribute) - prepend_attribute(attribute); - else if (where == 0) - append_attribute(attribute); - else - { - attribute->m_prev_attribute = where->m_prev_attribute; - attribute->m_next_attribute = where; - where->m_prev_attribute->m_next_attribute = attribute; - where->m_prev_attribute = attribute; - attribute->m_parent = this; - } - } - - //! Removes first attribute of the node. - //! If node has no attributes, behaviour is undefined. - //! Use first_attribute() to test if node has attributes. - void remove_first_attribute() - { - assert(first_attribute()); - xml_attribute *attribute = m_first_attribute; - if (attribute->m_next_attribute) - { - attribute->m_next_attribute->m_prev_attribute = 0; - } - else - m_last_attribute = 0; - attribute->m_parent = 0; - m_first_attribute = attribute->m_next_attribute; - } - - //! Removes last attribute of the node. - //! If node has no attributes, behaviour is undefined. - //! Use first_attribute() to test if node has attributes. - void remove_last_attribute() - { - assert(first_attribute()); - xml_attribute *attribute = m_last_attribute; - if (attribute->m_prev_attribute) - { - attribute->m_prev_attribute->m_next_attribute = 0; - m_last_attribute = attribute->m_prev_attribute; - } - else - m_first_attribute = 0; - attribute->m_parent = 0; - } - - //! Removes specified attribute from node. - //! \param where Pointer to attribute to be removed. - void remove_attribute(xml_attribute *where) - { - assert(first_attribute() && where->parent() == this); - if (where == m_first_attribute) - remove_first_attribute(); - else if (where == m_last_attribute) - remove_last_attribute(); - else - { - where->m_prev_attribute->m_next_attribute = where->m_next_attribute; - where->m_next_attribute->m_prev_attribute = where->m_prev_attribute; - where->m_parent = 0; - } - } - - //! Removes all attributes of node. - void remove_all_attributes() - { - for (xml_attribute *attribute = first_attribute(); attribute; attribute = attribute->m_next_attribute) - attribute->m_parent = 0; - m_first_attribute = 0; - } - - private: - - /////////////////////////////////////////////////////////////////////////// - // Restrictions - - // No copying - xml_node(const xml_node &); - void operator =(const xml_node &); - - /////////////////////////////////////////////////////////////////////////// - // Data members - - // Note that some of the pointers below have UNDEFINED values if certain other pointers are 0. - // This is required for maximum performance, as it allows the parser to omit initialization of - // unneded/redundant values. - // - // The rules are as follows: - // 1. first_node and first_attribute contain valid pointers, or 0 if node has no children/attributes respectively - // 2. last_node and last_attribute are valid only if node has at least one child/attribute respectively, otherwise they contain garbage - // 3. prev_sibling and next_sibling are valid only if node has a parent, otherwise they contain garbage - - node_type m_type; // Type of node; always valid - xml_node *m_first_node; // Pointer to first child node, or 0 if none; always valid - xml_node *m_last_node; // Pointer to last child node, or 0 if none; this value is only valid if m_first_node is non-zero - xml_attribute *m_first_attribute; // Pointer to first attribute of node, or 0 if none; always valid - xml_attribute *m_last_attribute; // Pointer to last attribute of node, or 0 if none; this value is only valid if m_first_attribute is non-zero - xml_node *m_prev_sibling; // Pointer to previous sibling of node, or 0 if none; this value is only valid if m_parent is non-zero - xml_node *m_next_sibling; // Pointer to next sibling of node, or 0 if none; this value is only valid if m_parent is non-zero - - }; - - /////////////////////////////////////////////////////////////////////////// - // XML document - - //! This class represents root of the DOM hierarchy. - //! It is also an xml_node and a memory_pool through public inheritance. - //! Use parse() function to build a DOM tree from a zero-terminated XML text string. - //! parse() function allocates memory for nodes and attributes by using functions of xml_document, - //! which are inherited from memory_pool. - //! To access root node of the document, use the document itself, as if it was an xml_node. - //! \param Ch Character type to use. - template - class xml_document: public xml_node, public memory_pool - { - - public: - - //! Constructs empty XML document - xml_document() - : xml_node(node_document) - { - } - - //! Parses zero-terminated XML string according to given flags. - //! Passed string will be modified by the parser, unless rapidxml::parse_non_destructive flag is used. - //! The string must persist for the lifetime of the document. - //! In case of error, rapidxml::parse_error exception will be thrown. - //!

- //! If you want to parse contents of a file, you must first load the file into the memory, and pass pointer to its beginning. - //! Make sure that data is zero-terminated. - //!

- //! Document can be parsed into multiple times. - //! Each new call to parse removes previous nodes and attributes (if any), but does not clear memory pool. - //! \param text XML data to parse; pointer is non-const to denote fact that this data may be modified by the parser. - template - void parse(Ch *text) - { - assert(text); - - // Remove current contents - this->remove_all_nodes(); - this->remove_all_attributes(); - - // Parse BOM, if any - parse_bom(text); - - // Parse children - while (1) - { - // Skip whitespace before node - skip(text); - if (*text == 0) - break; - - // Parse and append new child - if (*text == Ch('<')) - { - ++text; // Skip '<' - if (xml_node *node = parse_node(text)) - this->append_node(node); - } - else - RAPIDXML_PARSE_ERROR("expected <", text); - } - - } - - //! Clears the document by deleting all nodes and clearing the memory pool. - //! All nodes owned by document pool are destroyed. - void clear() - { - this->remove_all_nodes(); - this->remove_all_attributes(); - memory_pool::clear(); - } - - private: - - /////////////////////////////////////////////////////////////////////// - // Internal character utility functions - - // Detect whitespace character - struct whitespace_pred - { - static unsigned char test(Ch ch) - { - return internal::lookup_tables<0>::lookup_whitespace[static_cast(ch)]; - } - }; - - // Detect node name character - struct node_name_pred - { - static unsigned char test(Ch ch) - { - return internal::lookup_tables<0>::lookup_node_name[static_cast(ch)]; - } - }; - - // Detect attribute name character - struct attribute_name_pred - { - static unsigned char test(Ch ch) - { - return internal::lookup_tables<0>::lookup_attribute_name[static_cast(ch)]; - } - }; - - // Detect text character (PCDATA) - struct text_pred - { - static unsigned char test(Ch ch) - { - return internal::lookup_tables<0>::lookup_text[static_cast(ch)]; - } - }; - - // Detect text character (PCDATA) that does not require processing - struct text_pure_no_ws_pred - { - static unsigned char test(Ch ch) - { - return internal::lookup_tables<0>::lookup_text_pure_no_ws[static_cast(ch)]; - } - }; - - // Detect text character (PCDATA) that does not require processing - struct text_pure_with_ws_pred - { - static unsigned char test(Ch ch) - { - return internal::lookup_tables<0>::lookup_text_pure_with_ws[static_cast(ch)]; - } - }; - - // Detect attribute value character - template - struct attribute_value_pred - { - static unsigned char test(Ch ch) - { - if (Quote == Ch('\'')) - return internal::lookup_tables<0>::lookup_attribute_data_1[static_cast(ch)]; - if (Quote == Ch('\"')) - return internal::lookup_tables<0>::lookup_attribute_data_2[static_cast(ch)]; - return 0; // Should never be executed, to avoid warnings on Comeau - } - }; - - // Detect attribute value character - template - struct attribute_value_pure_pred - { - static unsigned char test(Ch ch) - { - if (Quote == Ch('\'')) - return internal::lookup_tables<0>::lookup_attribute_data_1_pure[static_cast(ch)]; - if (Quote == Ch('\"')) - return internal::lookup_tables<0>::lookup_attribute_data_2_pure[static_cast(ch)]; - return 0; // Should never be executed, to avoid warnings on Comeau - } - }; - - // Insert coded character, using UTF8 or 8-bit ASCII - template - static void insert_coded_character(Ch *&text, unsigned long code) - { - if (Flags & parse_no_utf8) - { - // Insert 8-bit ASCII character - // Todo: possibly verify that code is less than 256 and use replacement char otherwise? - text[0] = static_cast(code); - text += 1; - } - else - { - // Insert UTF8 sequence - if (code < 0x80) // 1 byte sequence - { - text[0] = static_cast(code); - text += 1; - } - else if (code < 0x800) // 2 byte sequence - { - text[1] = static_cast((code | 0x80) & 0xBF); code >>= 6; - text[0] = static_cast(code | 0xC0); - text += 2; - } - else if (code < 0x10000) // 3 byte sequence - { - text[2] = static_cast((code | 0x80) & 0xBF); code >>= 6; - text[1] = static_cast((code | 0x80) & 0xBF); code >>= 6; - text[0] = static_cast(code | 0xE0); - text += 3; - } - else if (code < 0x110000) // 4 byte sequence - { - text[3] = static_cast((code | 0x80) & 0xBF); code >>= 6; - text[2] = static_cast((code | 0x80) & 0xBF); code >>= 6; - text[1] = static_cast((code | 0x80) & 0xBF); code >>= 6; - text[0] = static_cast(code | 0xF0); - text += 4; - } - else // Invalid, only codes up to 0x10FFFF are allowed in Unicode - { - RAPIDXML_PARSE_ERROR("invalid numeric character entity", text); - } - } - } - - // Skip characters until predicate evaluates to true - template - static void skip(Ch *&text) - { - Ch *tmp = text; - while (StopPred::test(*tmp)) - ++tmp; - text = tmp; - } - - // Skip characters until predicate evaluates to true while doing the following: - // - replacing XML character entity references with proper characters (' & " < > &#...;) - // - condensing whitespace sequences to single space character - template - static Ch *skip_and_expand_character_refs(Ch *&text) - { - // If entity translation, whitespace condense and whitespace trimming is disabled, use plain skip - if (Flags & parse_no_entity_translation && - !(Flags & parse_normalize_whitespace) && - !(Flags & parse_trim_whitespace)) - { - skip(text); - return text; - } - - // Use simple skip until first modification is detected - skip(text); - - // Use translation skip - Ch *src = text; - Ch *dest = src; - while (StopPred::test(*src)) - { - // If entity translation is enabled - if (!(Flags & parse_no_entity_translation)) - { - // Test if replacement is needed - if (src[0] == Ch('&')) - { - switch (src[1]) - { - - // & ' - case Ch('a'): - if (src[2] == Ch('m') && src[3] == Ch('p') && src[4] == Ch(';')) - { - *dest = Ch('&'); - ++dest; - src += 5; - continue; - } - if (src[2] == Ch('p') && src[3] == Ch('o') && src[4] == Ch('s') && src[5] == Ch(';')) - { - *dest = Ch('\''); - ++dest; - src += 6; - continue; - } - break; - - // " - case Ch('q'): - if (src[2] == Ch('u') && src[3] == Ch('o') && src[4] == Ch('t') && src[5] == Ch(';')) - { - *dest = Ch('"'); - ++dest; - src += 6; - continue; - } - break; - - // > - case Ch('g'): - if (src[2] == Ch('t') && src[3] == Ch(';')) - { - *dest = Ch('>'); - ++dest; - src += 4; - continue; - } - break; - - // < - case Ch('l'): - if (src[2] == Ch('t') && src[3] == Ch(';')) - { - *dest = Ch('<'); - ++dest; - src += 4; - continue; - } - break; - - // &#...; - assumes ASCII - case Ch('#'): - if (src[2] == Ch('x')) - { - unsigned long code = 0; - src += 3; // Skip &#x - while (1) - { - unsigned char digit = internal::lookup_tables<0>::lookup_digits[static_cast(*src)]; - if (digit == 0xFF) - break; - code = code * 16 + digit; - ++src; - } - insert_coded_character(dest, code); // Put character in output - } - else - { - unsigned long code = 0; - src += 2; // Skip &# - while (1) - { - unsigned char digit = internal::lookup_tables<0>::lookup_digits[static_cast(*src)]; - if (digit == 0xFF) - break; - code = code * 10 + digit; - ++src; - } - insert_coded_character(dest, code); // Put character in output - } - if (*src == Ch(';')) - ++src; - else - RAPIDXML_PARSE_ERROR("expected ;", src); - continue; - - // Something else - default: - // Ignore, just copy '&' verbatim - break; - - } - } - } - - // If whitespace condensing is enabled - if (Flags & parse_normalize_whitespace) - { - // Test if condensing is needed - if (whitespace_pred::test(*src)) - { - *dest = Ch(' '); ++dest; // Put single space in dest - ++src; // Skip first whitespace char - // Skip remaining whitespace chars - while (whitespace_pred::test(*src)) - ++src; - continue; - } - } - - // No replacement, only copy character - *dest++ = *src++; - - } - - // Return new end - text = src; - return dest; - - } - - /////////////////////////////////////////////////////////////////////// - // Internal parsing functions - - // Parse BOM, if any - template - void parse_bom(Ch *&text) - { - // UTF-8? - if (static_cast(text[0]) == 0xEF && - static_cast(text[1]) == 0xBB && - static_cast(text[2]) == 0xBF) - { - text += 3; // Skup utf-8 bom - } - } - - // Parse XML declaration ( - xml_node *parse_xml_declaration(Ch *&text) - { - // If parsing of declaration is disabled - if (!(Flags & parse_declaration_node)) - { - // Skip until end of declaration - while (text[0] != Ch('?') || text[1] != Ch('>')) - { - if (!text[0]) - RAPIDXML_PARSE_ERROR("unexpected end of data", text); - ++text; - } - text += 2; // Skip '?>' - return 0; - } - - // Create declaration - xml_node *declaration = this->allocate_node(node_declaration); - - // Skip whitespace before attributes or ?> - skip(text); - - // Parse declaration attributes - parse_node_attributes(text, declaration); - - // Skip ?> - if (text[0] != Ch('?') || text[1] != Ch('>')) - RAPIDXML_PARSE_ERROR("expected ?>", text); - text += 2; - - return declaration; - } - - // Parse XML comment (' - return 0; // Do not produce comment node - } - - // Remember value start - Ch *value = text; - - // Skip until end of comment - while (text[0] != Ch('-') || text[1] != Ch('-') || text[2] != Ch('>')) - { - if (!text[0]) - RAPIDXML_PARSE_ERROR("unexpected end of data", text); - ++text; - } - - // Create comment node - xml_node *comment = this->allocate_node(node_comment); - comment->value(value, text - value); - - // Place zero terminator after comment value - if (!(Flags & parse_no_string_terminators)) - *text = Ch('\0'); - - text += 3; // Skip '-->' - return comment; - } - - // Parse DOCTYPE - template - xml_node *parse_doctype(Ch *&text) - { - // Remember value start - Ch *value = text; - - // Skip to > - while (*text != Ch('>')) - { - // Determine character type - switch (*text) - { - - // If '[' encountered, scan for matching ending ']' using naive algorithm with depth - // This works for all W3C test files except for 2 most wicked - case Ch('['): - { - ++text; // Skip '[' - int depth = 1; - while (depth > 0) - { - switch (*text) - { - case Ch('['): ++depth; break; - case Ch(']'): --depth; break; - case 0: RAPIDXML_PARSE_ERROR("unexpected end of data", text); - } - ++text; - } - break; - } - - // Error on end of text - case Ch('\0'): - RAPIDXML_PARSE_ERROR("unexpected end of data", text); - - // Other character, skip it - default: - ++text; - - } - } - - // If DOCTYPE nodes enabled - if (Flags & parse_doctype_node) - { - // Create a new doctype node - xml_node *doctype = this->allocate_node(node_doctype); - doctype->value(value, text - value); - - // Place zero terminator after value - if (!(Flags & parse_no_string_terminators)) - *text = Ch('\0'); - - text += 1; // skip '>' - return doctype; - } - else - { - text += 1; // skip '>' - return 0; - } - - } - - // Parse PI - template - xml_node *parse_pi(Ch *&text) - { - // If creation of PI nodes is enabled - if (Flags & parse_pi_nodes) - { - // Create pi node - xml_node *pi = this->allocate_node(node_pi); - - // Extract PI target name - Ch *name = text; - skip(text); - if (text == name) - RAPIDXML_PARSE_ERROR("expected PI target", text); - pi->name(name, text - name); - - // Skip whitespace between pi target and pi - skip(text); - - // Remember start of pi - Ch *value = text; - - // Skip to '?>' - while (text[0] != Ch('?') || text[1] != Ch('>')) - { - if (*text == Ch('\0')) - RAPIDXML_PARSE_ERROR("unexpected end of data", text); - ++text; - } - - // Set pi value (verbatim, no entity expansion or whitespace normalization) - pi->value(value, text - value); - - // Place zero terminator after name and value - if (!(Flags & parse_no_string_terminators)) - { - pi->name()[pi->name_size()] = Ch('\0'); - pi->value()[pi->value_size()] = Ch('\0'); - } - - text += 2; // Skip '?>' - return pi; - } - else - { - // Skip to '?>' - while (text[0] != Ch('?') || text[1] != Ch('>')) - { - if (*text == Ch('\0')) - RAPIDXML_PARSE_ERROR("unexpected end of data", text); - ++text; - } - text += 2; // Skip '?>' - return 0; - } - } - - // Parse and append data - // Return character that ends data. - // This is necessary because this character might have been overwritten by a terminating 0 - template - Ch parse_and_append_data(xml_node *node, Ch *&text, Ch *contents_start) - { - // Backup to contents start if whitespace trimming is disabled - if (!(Flags & parse_trim_whitespace)) - text = contents_start; - - // Skip until end of data - Ch *value = text, *end; - if (Flags & parse_normalize_whitespace) - end = skip_and_expand_character_refs(text); - else - end = skip_and_expand_character_refs(text); - - // Trim trailing whitespace if flag is set; leading was already trimmed by whitespace skip after > - if (Flags & parse_trim_whitespace) - { - if (Flags & parse_normalize_whitespace) - { - // Whitespace is already condensed to single space characters by skipping function, so just trim 1 char off the end - if (*(end - 1) == Ch(' ')) - --end; - } - else - { - // Backup until non-whitespace character is found - while (whitespace_pred::test(*(end - 1))) - --end; - } - } - - // If characters are still left between end and value (this test is only necessary if normalization is enabled) - // Create new data node - if (!(Flags & parse_no_data_nodes)) - { - xml_node *data = this->allocate_node(node_data); - data->value(value, end - value); - node->append_node(data); - } - - // Add data to parent node if no data exists yet - if (!(Flags & parse_no_element_values)) - if (*node->value() == Ch('\0')) - node->value(value, end - value); - - // Place zero terminator after value - if (!(Flags & parse_no_string_terminators)) - { - Ch ch = *text; - *end = Ch('\0'); - return ch; // Return character that ends data; this is required because zero terminator overwritten it - } - - // Return character that ends data - return *text; - } - - // Parse CDATA - template - xml_node *parse_cdata(Ch *&text) - { - // If CDATA is disabled - if (Flags & parse_no_data_nodes) - { - // Skip until end of cdata - while (text[0] != Ch(']') || text[1] != Ch(']') || text[2] != Ch('>')) - { - if (!text[0]) - RAPIDXML_PARSE_ERROR("unexpected end of data", text); - ++text; - } - text += 3; // Skip ]]> - return 0; // Do not produce CDATA node - } - - // Skip until end of cdata - Ch *value = text; - while (text[0] != Ch(']') || text[1] != Ch(']') || text[2] != Ch('>')) - { - if (!text[0]) - RAPIDXML_PARSE_ERROR("unexpected end of data", text); - ++text; - } - - // Create new cdata node - xml_node *cdata = this->allocate_node(node_cdata); - cdata->value(value, text - value); - - // Place zero terminator after value - if (!(Flags & parse_no_string_terminators)) - *text = Ch('\0'); - - text += 3; // Skip ]]> - return cdata; - } - - // Parse element node - template - xml_node *parse_element(Ch *&text) - { - // Create element node - xml_node *element = this->allocate_node(node_element); - - // Extract element name - Ch *name = text; - skip(text); - if (text == name) - RAPIDXML_PARSE_ERROR("expected element name", text); - element->name(name, text - name); - - // Skip whitespace between element name and attributes or > - skip(text); - - // Parse attributes, if any - parse_node_attributes(text, element); - - // Determine ending type - if (*text == Ch('>')) - { - ++text; - parse_node_contents(text, element); - } - else if (*text == Ch('/')) - { - ++text; - if (*text != Ch('>')) - RAPIDXML_PARSE_ERROR("expected >", text); - ++text; - } - else - RAPIDXML_PARSE_ERROR("expected >", text); - - // Place zero terminator after name - if (!(Flags & parse_no_string_terminators)) - element->name()[element->name_size()] = Ch('\0'); - - // Return parsed element - return element; - } - - // Determine node type, and parse it - template - xml_node *parse_node(Ch *&text) - { - // Parse proper node type - switch (text[0]) - { - - // <... - default: - // Parse and append element node - return parse_element(text); - - // (text); - } - else - { - // Parse PI - return parse_pi(text); - } - - // (text); - } - break; - - // (text); - } - break; - - // (text); - } - - } // switch - - // Attempt to skip other, unrecognized node types starting with ')) - { - if (*text == 0) - RAPIDXML_PARSE_ERROR("unexpected end of data", text); - ++text; - } - ++text; // Skip '>' - return 0; // No node recognized - - } - } - - // Parse contents of the node - children, data etc. - template - void parse_node_contents(Ch *&text, xml_node *node) - { - // For all children and text - while (1) - { - // Skip whitespace between > and node contents - Ch *contents_start = text; // Store start of node contents before whitespace is skipped - skip(text); - Ch next_char = *text; - - // After data nodes, instead of continuing the loop, control jumps here. - // This is because zero termination inside parse_and_append_data() function - // would wreak havoc with the above code. - // Also, skipping whitespace after data nodes is unnecessary. - after_data_node: - - // Determine what comes next: node closing, child node, data node, or 0? - switch (next_char) - { - - // Node closing or child node - case Ch('<'): - if (text[1] == Ch('/')) - { - // Node closing - text += 2; // Skip '(text); - if (!internal::compare(node->name(), node->name_size(), closing_name, text - closing_name, true)) - RAPIDXML_PARSE_ERROR("invalid closing tag name", text); - } - else - { - // No validation, just skip name - skip(text); - } - // Skip remaining whitespace after node name - skip(text); - if (*text != Ch('>')) - RAPIDXML_PARSE_ERROR("expected >", text); - ++text; // Skip '>' - return; // Node closed, finished parsing contents - } - else - { - // Child node - ++text; // Skip '<' - if (xml_node *child = parse_node(text)) - node->append_node(child); - } - break; - - // End of data - error - case Ch('\0'): - RAPIDXML_PARSE_ERROR("unexpected end of data", text); - - // Data node - default: - next_char = parse_and_append_data(node, text, contents_start); - goto after_data_node; // Bypass regular processing after data nodes - - } - } - } - - // Parse XML attributes of the node - template - void parse_node_attributes(Ch *&text, xml_node *node) - { - // For all attributes - while (attribute_name_pred::test(*text)) - { - // Extract attribute name - Ch *name = text; - ++text; // Skip first character of attribute name - skip(text); - if (text == name) - RAPIDXML_PARSE_ERROR("expected attribute name", name); - - // Create new attribute - xml_attribute *attribute = this->allocate_attribute(); - attribute->name(name, text - name); - node->append_attribute(attribute); - - // Skip whitespace after attribute name - skip(text); - - // Skip = - if (*text != Ch('=')) - RAPIDXML_PARSE_ERROR("expected =", text); - ++text; - - // Add terminating zero after name - if (!(Flags & parse_no_string_terminators)) - attribute->name()[attribute->name_size()] = 0; - - // Skip whitespace after = - skip(text); - - // Skip quote and remember if it was ' or " - Ch quote = *text; - if (quote != Ch('\'') && quote != Ch('"')) - RAPIDXML_PARSE_ERROR("expected ' or \"", text); - ++text; - - // Extract attribute value and expand char refs in it - Ch *value = text, *end; - const int AttFlags = Flags & ~parse_normalize_whitespace; // No whitespace normalization in attributes - if (quote == Ch('\'')) - end = skip_and_expand_character_refs, attribute_value_pure_pred, AttFlags>(text); - else - end = skip_and_expand_character_refs, attribute_value_pure_pred, AttFlags>(text); - - // Set attribute value - attribute->value(value, end - value); - - // Make sure that end quote is present - if (*text != quote) - RAPIDXML_PARSE_ERROR("expected ' or \"", text); - ++text; // Skip quote - - // Add terminating zero after value - if (!(Flags & parse_no_string_terminators)) - attribute->value()[attribute->value_size()] = 0; - - // Skip whitespace after attribute value - skip(text); - } - } - - }; - - //! \cond internal - namespace internal - { - - // Whitespace (space \n \r \t) - template - const unsigned char lookup_tables::lookup_whitespace[256] = - { - // 0 1 2 3 4 5 6 7 8 9 A B C D E F - 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 1, 0, 0, // 0 - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, // 1 - 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, // 2 - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, // 3 - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, // 4 - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, // 5 - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, // 6 - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, // 7 - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, // 8 - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, // 9 - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, // A - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, // B - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, // C - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, // D - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, // E - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 // F - }; - - // Node name (anything but space \n \r \t / > ? \0) - template - const unsigned char lookup_tables::lookup_node_name[256] = - { - // 0 1 2 3 4 5 6 7 8 9 A B C D E F - 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 1, 1, 0, 1, 1, // 0 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 1 - 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, // 2 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, // 3 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 4 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 5 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 6 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 7 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 8 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 9 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // A - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // B - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // C - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // D - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // E - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 // F - }; - - // Text (i.e. PCDATA) (anything but < \0) - template - const unsigned char lookup_tables::lookup_text[256] = - { - // 0 1 2 3 4 5 6 7 8 9 A B C D E F - 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 0 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 1 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 2 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, // 3 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 4 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 5 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 6 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 7 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 8 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 9 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // A - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // B - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // C - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // D - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // E - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 // F - }; - - // Text (i.e. PCDATA) that does not require processing when ws normalization is disabled - // (anything but < \0 &) - template - const unsigned char lookup_tables::lookup_text_pure_no_ws[256] = - { - // 0 1 2 3 4 5 6 7 8 9 A B C D E F - 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 0 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 1 - 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 2 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, // 3 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 4 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 5 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 6 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 7 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 8 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 9 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // A - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // B - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // C - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // D - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // E - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 // F - }; - - // Text (i.e. PCDATA) that does not require processing when ws normalizationis is enabled - // (anything but < \0 & space \n \r \t) - template - const unsigned char lookup_tables::lookup_text_pure_with_ws[256] = - { - // 0 1 2 3 4 5 6 7 8 9 A B C D E F - 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 1, 1, 0, 1, 1, // 0 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 1 - 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 2 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, // 3 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 4 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 5 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 6 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 7 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 8 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 9 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // A - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // B - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // C - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // D - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // E - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 // F - }; - - // Attribute name (anything but space \n \r \t / < > = ? ! \0) - template - const unsigned char lookup_tables::lookup_attribute_name[256] = - { - // 0 1 2 3 4 5 6 7 8 9 A B C D E F - 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 1, 1, 0, 1, 1, // 0 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 1 - 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, // 2 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, // 3 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 4 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 5 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 6 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 7 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 8 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 9 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // A - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // B - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // C - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // D - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // E - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 // F - }; - - // Attribute data with single quote (anything but ' \0) - template - const unsigned char lookup_tables::lookup_attribute_data_1[256] = - { - // 0 1 2 3 4 5 6 7 8 9 A B C D E F - 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 0 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 1 - 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, // 2 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 3 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 4 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 5 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 6 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 7 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 8 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 9 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // A - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // B - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // C - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // D - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // E - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 // F - }; - - // Attribute data with single quote that does not require processing (anything but ' \0 &) - template - const unsigned char lookup_tables::lookup_attribute_data_1_pure[256] = - { - // 0 1 2 3 4 5 6 7 8 9 A B C D E F - 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 0 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 1 - 1, 1, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, // 2 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 3 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 4 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 5 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 6 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 7 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 8 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 9 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // A - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // B - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // C - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // D - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // E - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 // F - }; - - // Attribute data with double quote (anything but " \0) - template - const unsigned char lookup_tables::lookup_attribute_data_2[256] = - { - // 0 1 2 3 4 5 6 7 8 9 A B C D E F - 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 0 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 1 - 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 2 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 3 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 4 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 5 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 6 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 7 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 8 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 9 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // A - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // B - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // C - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // D - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // E - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 // F - }; - - // Attribute data with double quote that does not require processing (anything but " \0 &) - template - const unsigned char lookup_tables::lookup_attribute_data_2_pure[256] = - { - // 0 1 2 3 4 5 6 7 8 9 A B C D E F - 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 0 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 1 - 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 2 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 3 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 4 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 5 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 6 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 7 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 8 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 9 - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // A - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // B - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // C - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // D - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // E - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 // F - }; - - // Digits (dec and hex, 255 denotes end of numeric character reference) - template - const unsigned char lookup_tables::lookup_digits[256] = - { - // 0 1 2 3 4 5 6 7 8 9 A B C D E F - 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255, // 0 - 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255, // 1 - 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255, // 2 - 0, 1, 2, 3, 4, 5, 6, 7, 8, 9,255,255,255,255,255,255, // 3 - 255, 10, 11, 12, 13, 14, 15,255,255,255,255,255,255,255,255,255, // 4 - 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255, // 5 - 255, 10, 11, 12, 13, 14, 15,255,255,255,255,255,255,255,255,255, // 6 - 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255, // 7 - 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255, // 8 - 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255, // 9 - 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255, // A - 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255, // B - 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255, // C - 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255, // D - 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255, // E - 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255 // F - }; - - // Upper case conversion - template - const unsigned char lookup_tables::lookup_upcase[256] = - { - // 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, A B C D E F - 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, // 0 - 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, // 1 - 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, // 2 - 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, // 3 - 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, // 4 - 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, // 5 - 96, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, // 6 - 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 123,124,125,126,127, // 7 - 128,129,130,131,132,133,134,135,136,137,138,139,140,141,142,143, // 8 - 144,145,146,147,148,149,150,151,152,153,154,155,156,157,158,159, // 9 - 160,161,162,163,164,165,166,167,168,169,170,171,172,173,174,175, // A - 176,177,178,179,180,181,182,183,184,185,186,187,188,189,190,191, // B - 192,193,194,195,196,197,198,199,200,201,202,203,204,205,206,207, // C - 208,209,210,211,212,213,214,215,216,217,218,219,220,221,222,223, // D - 224,225,226,227,228,229,230,231,232,233,234,235,236,237,238,239, // E - 240,241,242,243,244,245,246,247,248,249,250,251,252,253,254,255 // F - }; - } - //! \endcond - -} - -// Undefine internal macros -#undef RAPIDXML_PARSE_ERROR - -// On MSVC, restore warnings state -#ifdef _MSC_VER - #pragma warning(pop) -#endif - -#endif diff --git a/CocXlsxTool/rapidxml_iterators.hpp b/CocXlsxTool/rapidxml_iterators.hpp deleted file mode 100644 index 52ebc298..00000000 --- a/CocXlsxTool/rapidxml_iterators.hpp +++ /dev/null @@ -1,174 +0,0 @@ -#ifndef RAPIDXML_ITERATORS_HPP_INCLUDED -#define RAPIDXML_ITERATORS_HPP_INCLUDED - -// Copyright (C) 2006, 2009 Marcin Kalicinski -// Version 1.13 -// Revision $DateTime: 2009/05/13 01:46:17 $ -//! \file rapidxml_iterators.hpp This file contains rapidxml iterators - -#include "rapidxml.hpp" - -namespace rapidxml -{ - - //! Iterator of child nodes of xml_node - template - class node_iterator - { - - public: - - typedef typename xml_node value_type; - typedef typename xml_node &reference; - typedef typename xml_node *pointer; - typedef std::ptrdiff_t difference_type; - typedef std::bidirectional_iterator_tag iterator_category; - - node_iterator() - : m_node(0) - { - } - - node_iterator(xml_node *node) - : m_node(node->first_node()) - { - } - - reference operator *() const - { - assert(m_node); - return *m_node; - } - - pointer operator->() const - { - assert(m_node); - return m_node; - } - - node_iterator& operator++() - { - assert(m_node); - m_node = m_node->next_sibling(); - return *this; - } - - node_iterator operator++(int) - { - node_iterator tmp = *this; - ++this; - return tmp; - } - - node_iterator& operator--() - { - assert(m_node && m_node->previous_sibling()); - m_node = m_node->previous_sibling(); - return *this; - } - - node_iterator operator--(int) - { - node_iterator tmp = *this; - ++this; - return tmp; - } - - bool operator ==(const node_iterator &rhs) - { - return m_node == rhs.m_node; - } - - bool operator !=(const node_iterator &rhs) - { - return m_node != rhs.m_node; - } - - private: - - xml_node *m_node; - - }; - - //! Iterator of child attributes of xml_node - template - class attribute_iterator - { - - public: - - typedef typename xml_attribute value_type; - typedef typename xml_attribute &reference; - typedef typename xml_attribute *pointer; - typedef std::ptrdiff_t difference_type; - typedef std::bidirectional_iterator_tag iterator_category; - - attribute_iterator() - : m_attribute(0) - { - } - - attribute_iterator(xml_node *node) - : m_attribute(node->first_attribute()) - { - } - - reference operator *() const - { - assert(m_attribute); - return *m_attribute; - } - - pointer operator->() const - { - assert(m_attribute); - return m_attribute; - } - - attribute_iterator& operator++() - { - assert(m_attribute); - m_attribute = m_attribute->next_attribute(); - return *this; - } - - attribute_iterator operator++(int) - { - attribute_iterator tmp = *this; - ++this; - return tmp; - } - - attribute_iterator& operator--() - { - assert(m_attribute && m_attribute->previous_attribute()); - m_attribute = m_attribute->previous_attribute(); - return *this; - } - - attribute_iterator operator--(int) - { - attribute_iterator tmp = *this; - ++this; - return tmp; - } - - bool operator ==(const attribute_iterator &rhs) - { - return m_attribute == rhs.m_attribute; - } - - bool operator !=(const attribute_iterator &rhs) - { - return m_attribute != rhs.m_attribute; - } - - private: - - xml_attribute *m_attribute; - - }; - -} - -#endif diff --git a/CocXlsxTool/rapidxml_print.hpp b/CocXlsxTool/rapidxml_print.hpp deleted file mode 100644 index 7a6ac51c..00000000 --- a/CocXlsxTool/rapidxml_print.hpp +++ /dev/null @@ -1,421 +0,0 @@ -#ifndef RAPIDXML_PRINT_HPP_INCLUDED -#define RAPIDXML_PRINT_HPP_INCLUDED - -// Copyright (C) 2006, 2009 Marcin Kalicinski -// Version 1.13 -// Revision $DateTime: 2009/05/13 01:46:17 $ -//! \file rapidxml_print.hpp This file contains rapidxml printer implementation - -#include "rapidxml.hpp" - -// Only include streams if not disabled -#ifndef RAPIDXML_NO_STREAMS - #include - #include -#endif - -namespace rapidxml -{ - - /////////////////////////////////////////////////////////////////////// - // Printing flags - - const int print_no_indenting = 0x1; //!< Printer flag instructing the printer to suppress indenting of XML. See print() function. - - /////////////////////////////////////////////////////////////////////// - // Internal - - //! \cond internal - namespace internal - { - - /////////////////////////////////////////////////////////////////////////// - // Internal character operations - - // Copy characters from given range to given output iterator - template - inline OutIt copy_chars(const Ch *begin, const Ch *end, OutIt out) - { - while (begin != end) - *out++ = *begin++; - return out; - } - - // Copy characters from given range to given output iterator and expand - // characters into references (< > ' " &) - template - inline OutIt copy_and_expand_chars(const Ch *begin, const Ch *end, Ch noexpand, OutIt out) - { - while (begin != end) - { - if (*begin == noexpand) - { - *out++ = *begin; // No expansion, copy character - } - else - { - switch (*begin) - { - case Ch('<'): - *out++ = Ch('&'); *out++ = Ch('l'); *out++ = Ch('t'); *out++ = Ch(';'); - break; - case Ch('>'): - *out++ = Ch('&'); *out++ = Ch('g'); *out++ = Ch('t'); *out++ = Ch(';'); - break; - case Ch('\''): - *out++ = Ch('&'); *out++ = Ch('a'); *out++ = Ch('p'); *out++ = Ch('o'); *out++ = Ch('s'); *out++ = Ch(';'); - break; - case Ch('"'): - *out++ = Ch('&'); *out++ = Ch('q'); *out++ = Ch('u'); *out++ = Ch('o'); *out++ = Ch('t'); *out++ = Ch(';'); - break; - case Ch('&'): - *out++ = Ch('&'); *out++ = Ch('a'); *out++ = Ch('m'); *out++ = Ch('p'); *out++ = Ch(';'); - break; - default: - *out++ = *begin; // No expansion, copy character - } - } - ++begin; // Step to next character - } - return out; - } - - // Fill given output iterator with repetitions of the same character - template - inline OutIt fill_chars(OutIt out, int n, Ch ch) - { - for (int i = 0; i < n; ++i) - *out++ = ch; - return out; - } - - // Find character - template - inline bool find_char(const Ch *begin, const Ch *end) - { - while (begin != end) - if (*begin++ == ch) - return true; - return false; - } - - /////////////////////////////////////////////////////////////////////////// - // Internal printing operations - - // Print node - template - inline OutIt print_node(OutIt out, const xml_node *node, int flags, int indent) - { - // Print proper node type - switch (node->type()) - { - - // Document - case node_document: - out = print_children(out, node, flags, indent); - break; - - // Element - case node_element: - out = print_element_node(out, node, flags, indent); - break; - - // Data - case node_data: - out = print_data_node(out, node, flags, indent); - break; - - // CDATA - case node_cdata: - out = print_cdata_node(out, node, flags, indent); - break; - - // Declaration - case node_declaration: - out = print_declaration_node(out, node, flags, indent); - break; - - // Comment - case node_comment: - out = print_comment_node(out, node, flags, indent); - break; - - // Doctype - case node_doctype: - out = print_doctype_node(out, node, flags, indent); - break; - - // Pi - case node_pi: - out = print_pi_node(out, node, flags, indent); - break; - - // Unknown - default: - assert(0); - break; - } - - // If indenting not disabled, add line break after node - if (!(flags & print_no_indenting)) - *out = Ch('\n'), ++out; - - // Return modified iterator - return out; - } - - // Print children of the node - template - inline OutIt print_children(OutIt out, const xml_node *node, int flags, int indent) - { - for (xml_node *child = node->first_node(); child; child = child->next_sibling()) - out = print_node(out, child, flags, indent); - return out; - } - - // Print attributes of the node - template - inline OutIt print_attributes(OutIt out, const xml_node *node) - { - for (xml_attribute *attribute = node->first_attribute(); attribute; attribute = attribute->next_attribute()) - { - if (attribute->name() && attribute->value()) - { - // Print attribute name - *out = Ch(' '), ++out; - out = copy_chars(attribute->name(), attribute->name() + attribute->name_size(), out); - *out = Ch('='), ++out; - // Print attribute value using appropriate quote type - if (find_char(attribute->value(), attribute->value() + attribute->value_size())) - { - *out = Ch('\''), ++out; - out = copy_and_expand_chars(attribute->value(), attribute->value() + attribute->value_size(), Ch('"'), out); - *out = Ch('\''), ++out; - } - else - { - *out = Ch('"'), ++out; - out = copy_and_expand_chars(attribute->value(), attribute->value() + attribute->value_size(), Ch('\''), out); - *out = Ch('"'), ++out; - } - } - } - return out; - } - - // Print data node - template - inline OutIt print_data_node(OutIt out, const xml_node *node, int flags, int indent) - { - assert(node->type() == node_data); - if (!(flags & print_no_indenting)) - out = fill_chars(out, indent, Ch('\t')); - out = copy_and_expand_chars(node->value(), node->value() + node->value_size(), Ch(0), out); - return out; - } - - // Print data node - template - inline OutIt print_cdata_node(OutIt out, const xml_node *node, int flags, int indent) - { - assert(node->type() == node_cdata); - if (!(flags & print_no_indenting)) - out = fill_chars(out, indent, Ch('\t')); - *out = Ch('<'); ++out; - *out = Ch('!'); ++out; - *out = Ch('['); ++out; - *out = Ch('C'); ++out; - *out = Ch('D'); ++out; - *out = Ch('A'); ++out; - *out = Ch('T'); ++out; - *out = Ch('A'); ++out; - *out = Ch('['); ++out; - out = copy_chars(node->value(), node->value() + node->value_size(), out); - *out = Ch(']'); ++out; - *out = Ch(']'); ++out; - *out = Ch('>'); ++out; - return out; - } - - // Print element node - template - inline OutIt print_element_node(OutIt out, const xml_node *node, int flags, int indent) - { - assert(node->type() == node_element); - - // Print element name and attributes, if any - if (!(flags & print_no_indenting)) - out = fill_chars(out, indent, Ch('\t')); - *out = Ch('<'), ++out; - out = copy_chars(node->name(), node->name() + node->name_size(), out); - out = print_attributes(out, node); - - // If node is childless - if (node->value_size() == 0 && !node->first_node()) - { - // Print childless node tag ending - *out = Ch('/'), ++out; - *out = Ch('>'), ++out; - } - else - { - // Print normal node tag ending - *out = Ch('>'), ++out; - - // Test if node contains a single data node only (and no other nodes) - xml_node *child = node->first_node(); - if (!child) - { - // If node has no children, only print its value without indenting - out = copy_and_expand_chars(node->value(), node->value() + node->value_size(), Ch(0), out); - } - else if (child->next_sibling() == 0 && child->type() == node_data) - { - // If node has a sole data child, only print its value without indenting - out = copy_and_expand_chars(child->value(), child->value() + child->value_size(), Ch(0), out); - } - else - { - // Print all children with full indenting - if (!(flags & print_no_indenting)) - *out = Ch('\n'), ++out; - out = print_children(out, node, flags, indent + 1); - if (!(flags & print_no_indenting)) - out = fill_chars(out, indent, Ch('\t')); - } - - // Print node end - *out = Ch('<'), ++out; - *out = Ch('/'), ++out; - out = copy_chars(node->name(), node->name() + node->name_size(), out); - *out = Ch('>'), ++out; - } - return out; - } - - // Print declaration node - template - inline OutIt print_declaration_node(OutIt out, const xml_node *node, int flags, int indent) - { - // Print declaration start - if (!(flags & print_no_indenting)) - out = fill_chars(out, indent, Ch('\t')); - *out = Ch('<'), ++out; - *out = Ch('?'), ++out; - *out = Ch('x'), ++out; - *out = Ch('m'), ++out; - *out = Ch('l'), ++out; - - // Print attributes - out = print_attributes(out, node); - - // Print declaration end - *out = Ch('?'), ++out; - *out = Ch('>'), ++out; - - return out; - } - - // Print comment node - template - inline OutIt print_comment_node(OutIt out, const xml_node *node, int flags, int indent) - { - assert(node->type() == node_comment); - if (!(flags & print_no_indenting)) - out = fill_chars(out, indent, Ch('\t')); - *out = Ch('<'), ++out; - *out = Ch('!'), ++out; - *out = Ch('-'), ++out; - *out = Ch('-'), ++out; - out = copy_chars(node->value(), node->value() + node->value_size(), out); - *out = Ch('-'), ++out; - *out = Ch('-'), ++out; - *out = Ch('>'), ++out; - return out; - } - - // Print doctype node - template - inline OutIt print_doctype_node(OutIt out, const xml_node *node, int flags, int indent) - { - assert(node->type() == node_doctype); - if (!(flags & print_no_indenting)) - out = fill_chars(out, indent, Ch('\t')); - *out = Ch('<'), ++out; - *out = Ch('!'), ++out; - *out = Ch('D'), ++out; - *out = Ch('O'), ++out; - *out = Ch('C'), ++out; - *out = Ch('T'), ++out; - *out = Ch('Y'), ++out; - *out = Ch('P'), ++out; - *out = Ch('E'), ++out; - *out = Ch(' '), ++out; - out = copy_chars(node->value(), node->value() + node->value_size(), out); - *out = Ch('>'), ++out; - return out; - } - - // Print pi node - template - inline OutIt print_pi_node(OutIt out, const xml_node *node, int flags, int indent) - { - assert(node->type() == node_pi); - if (!(flags & print_no_indenting)) - out = fill_chars(out, indent, Ch('\t')); - *out = Ch('<'), ++out; - *out = Ch('?'), ++out; - out = copy_chars(node->name(), node->name() + node->name_size(), out); - *out = Ch(' '), ++out; - out = copy_chars(node->value(), node->value() + node->value_size(), out); - *out = Ch('?'), ++out; - *out = Ch('>'), ++out; - return out; - } - - } - //! \endcond - - /////////////////////////////////////////////////////////////////////////// - // Printing - - //! Prints XML to given output iterator. - //! \param out Output iterator to print to. - //! \param node Node to be printed. Pass xml_document to print entire document. - //! \param flags Flags controlling how XML is printed. - //! \return Output iterator pointing to position immediately after last character of printed text. - template - inline OutIt print(OutIt out, const xml_node &node, int flags = 0) - { - return internal::print_node(out, &node, flags, 0); - } - -#ifndef RAPIDXML_NO_STREAMS - - //! Prints XML to given output stream. - //! \param out Output stream to print to. - //! \param node Node to be printed. Pass xml_document to print entire document. - //! \param flags Flags controlling how XML is printed. - //! \return Output stream. - template - inline std::basic_ostream &print(std::basic_ostream &out, const xml_node &node, int flags = 0) - { - print(std::ostream_iterator(out), node, flags); - return out; - } - - //! Prints formatted XML to given output stream. Uses default printing flags. Use print() function to customize printing process. - //! \param out Output stream to print to. - //! \param node Node to be printed. - //! \return Output stream. - template - inline std::basic_ostream &operator <<(std::basic_ostream &out, const xml_node &node) - { - return print(out, node); - } - -#endif - -} - -#endif diff --git a/CocXlsxTool/rapidxml_utils.hpp b/CocXlsxTool/rapidxml_utils.hpp deleted file mode 100644 index 37c29535..00000000 --- a/CocXlsxTool/rapidxml_utils.hpp +++ /dev/null @@ -1,122 +0,0 @@ -#ifndef RAPIDXML_UTILS_HPP_INCLUDED -#define RAPIDXML_UTILS_HPP_INCLUDED - -// Copyright (C) 2006, 2009 Marcin Kalicinski -// Version 1.13 -// Revision $DateTime: 2009/05/13 01:46:17 $ -//! \file rapidxml_utils.hpp This file contains high-level rapidxml utilities that can be useful -//! in certain simple scenarios. They should probably not be used if maximizing performance is the main objective. - -#include "rapidxml.hpp" -#include -#include -#include -#include - -namespace rapidxml -{ - - //! Represents data loaded from a file - template - class file - { - - public: - - //! Loads file into the memory. Data will be automatically destroyed by the destructor. - //! \param filename Filename to load. - file(const char *filename) - { - using namespace std; - - // Open stream - basic_ifstream stream(filename, ios::binary); - if (!stream) - throw runtime_error(string("cannot open file ") + filename); - stream.unsetf(ios::skipws); - - // Determine stream size - stream.seekg(0, ios::end); - size_t size = stream.tellg(); - stream.seekg(0); - - // Load data and add terminating 0 - m_data.resize(size + 1); - stream.read(&m_data.front(), static_cast(size)); - m_data[size] = 0; - } - - //! Loads file into the memory. Data will be automatically destroyed by the destructor - //! \param stream Stream to load from - file(std::basic_istream &stream) - { - using namespace std; - - // Load data and add terminating 0 - stream.unsetf(ios::skipws); - m_data.assign(istreambuf_iterator(stream), istreambuf_iterator()); - if (stream.fail() || stream.bad()) - throw runtime_error("error reading stream"); - m_data.push_back(0); - } - - //! Gets file data. - //! \return Pointer to data of file. - Ch *data() - { - return &m_data.front(); - } - - //! Gets file data. - //! \return Pointer to data of file. - const Ch *data() const - { - return &m_data.front(); - } - - //! Gets file data size. - //! \return Size of file data, in characters. - std::size_t size() const - { - return m_data.size(); - } - - private: - - std::vector m_data; // File data - - }; - - //! Counts children of node. Time complexity is O(n). - //! \return Number of children of node - template - inline std::size_t count_children(xml_node *node) - { - xml_node *child = node->first_node(); - std::size_t count = 0; - while (child) - { - ++count; - child = child->next_sibling(); - } - return count; - } - - //! Counts attributes of node. Time complexity is O(n). - //! \return Number of attributes of node - template - inline std::size_t count_attributes(xml_node *node) - { - xml_attribute *attr = node->first_attribute(); - std::size_t count = 0; - while (attr) - { - ++count; - attr = attr->next_attribute(); - } - return count; - } - -} - -#endif diff --git a/CocXlsxTool/unzip.cpp b/CocXlsxTool/unzip.cpp deleted file mode 100644 index b9e32c50..00000000 --- a/CocXlsxTool/unzip.cpp +++ /dev/null @@ -1,4165 +0,0 @@ -#define _CRT_SECURE_NO_WARNINGS - -#include -#include -#include -#include -#include -#include "unzip.h" - - -// THIS FILE is almost entirely based upon code by Jean-loup Gailly -// and Mark Adler. It has been modified by Lucian Wischik. -// The modifications were: incorporate the bugfixes of 1.1.4, allow -// unzipping to/from handles/pipes/files/memory, encryption, unicode, -// a windowsish api, and putting everything into a single .cpp file. -// The original code may be found at http://www.gzip.org/zlib/ -// The original copyright text follows. -// -// -// -// zlib.h -- interface of the 'zlib' general purpose compression library -// version 1.1.3, July 9th, 1998 -// -// Copyright (C) 1995-1998 Jean-loup Gailly and Mark Adler -// -// This software is provided 'as-is', without any express or implied -// warranty. In no event will the authors be held liable for any damages -// arising from the use of this software. -// -// Permission is granted to anyone to use this software for any purpose, -// including commercial applications, and to alter it and redistribute it -// freely, subject to the following restrictions: -// -// 1. The origin of this software must not be misrepresented; you must not -// claim that you wrote the original software. If you use this software -// in a product, an acknowledgment in the product documentation would be -// appreciated but is not required. -// 2. Altered source versions must be plainly marked as such, and must not be -// misrepresented as being the original software. -// 3. This notice may not be removed or altered from any source distribution. -// -// Jean-loup Gailly Mark Adler -// jloup@gzip.org madler@alumni.caltech.edu -// -// -// The data format used by the zlib library is described by RFCs (Request for -// Comments) 1950 to 1952 in the files ftp://ds.internic.net/rfc/rfc1950.txt -// (zlib format), rfc1951.txt (deflate format) and rfc1952.txt (gzip format). -// -// -// The 'zlib' compression library provides in-memory compression and -// decompression functions, including integrity checks of the uncompressed -// data. This version of the library supports only one compression method -// (deflation) but other algorithms will be added later and will have the same -// stream interface. -// -// Compression can be done in a single step if the buffers are large -// enough (for example if an input file is mmap'ed), or can be done by -// repeated calls of the compression function. In the latter case, the -// application must provide more input and/or consume the output -// (providing more output space) before each call. -// -// The library also supports reading and writing files in gzip (.gz) format -// with an interface similar to that of stdio. -// -// The library does not install any signal handler. The decoder checks -// the consistency of the compressed data, so the library should never -// crash even in case of corrupted input. -// -// for more info about .ZIP format, see ftp://ftp.cdrom.com/pub/infozip/doc/appnote-970311-iz.zip -// PkWare has also a specification at ftp://ftp.pkware.com/probdesc.zip - -#define ZIP_HANDLE 1 -#define ZIP_FILENAME 2 -#define ZIP_MEMORY 3 - - -#define zmalloc(len) malloc(len) - -#define zfree(p) free(p) - -/* -void *zmalloc(unsigned int len) -{ char *buf = new char[len+32]; - for (int i=0; i<16; i++) - { buf[i]=i; - buf[len+31-i]=i; - } - *((unsigned int*)buf) = len; - char c[1000]; wsprintf(c,"malloc 0x%lx - %lu",buf+16,len); - OutputDebugString(c); - return buf+16; -} - -void zfree(void *buf) -{ char c[1000]; wsprintf(c,"free 0x%lx",buf); - OutputDebugString(c); - char *p = ((char*)buf)-16; - unsigned int len = *((unsigned int*)p); - bool blown=false; - for (int i=0; i<16; i++) - { char lo = p[i]; - char hi = p[len+31-i]; - if (hi!=i || (lo!=i && i>4)) blown=true; - } - if (blown) - { OutputDebugString("BLOWN!!!"); - } - delete[] p; -} -*/ - - -typedef struct tm_unz_s -{ unsigned int tm_sec; // seconds after the minute - [0,59] - unsigned int tm_min; // minutes after the hour - [0,59] - unsigned int tm_hour; // hours since midnight - [0,23] - unsigned int tm_mday; // day of the month - [1,31] - unsigned int tm_mon; // months since January - [0,11] - unsigned int tm_year; // years - [1980..2044] -} tm_unz; - - -// unz_global_info structure contain global data about the ZIPfile -typedef struct unz_global_info_s -{ unsigned long number_entry; // total number of entries in the central dir on this disk - unsigned long size_comment; // size of the global comment of the zipfile -} unz_global_info; - -// unz_file_info contain information about a file in the zipfile -typedef struct unz_file_info_s -{ unsigned long version; // version made by 2 bytes - unsigned long version_needed; // version needed to extract 2 bytes - unsigned long flag; // general purpose bit flag 2 bytes - unsigned long compression_method; // compression method 2 bytes - unsigned long dosDate; // last mod file date in Dos fmt 4 bytes - unsigned long crc; // crc-32 4 bytes - unsigned long compressed_size; // compressed size 4 bytes - unsigned long uncompressed_size; // uncompressed size 4 bytes - unsigned long size_filename; // filename length 2 bytes - unsigned long size_file_extra; // extra field length 2 bytes - unsigned long size_file_comment; // file comment length 2 bytes - unsigned long disk_num_start; // disk number start 2 bytes - unsigned long internal_fa; // internal file attributes 2 bytes - unsigned long external_fa; // external file attributes 4 bytes - tm_unz tmu_date; -} unz_file_info; - - -#define UNZ_OK (0) -#define UNZ_END_OF_LIST_OF_FILE (-100) -#define UNZ_ERRNO (Z_ERRNO) -#define UNZ_EOF (0) -#define UNZ_PARAMERROR (-102) -#define UNZ_BADZIPFILE (-103) -#define UNZ_INTERNALERROR (-104) -#define UNZ_CRCERROR (-105) -#define UNZ_PASSWORD (-106) - - - - - - - -#define ZLIB_VERSION "1.1.3" - - -// Allowed flush values; see deflate() for details -#define Z_NO_FLUSH 0 -#define Z_SYNC_FLUSH 2 -#define Z_FULL_FLUSH 3 -#define Z_FINISH 4 - - -// compression levels -#define Z_NO_COMPRESSION 0 -#define Z_BEST_SPEED 1 -#define Z_BEST_COMPRESSION 9 -#define Z_DEFAULT_COMPRESSION (-1) - -// compression strategy; see deflateInit2() for details -#define Z_FILTERED 1 -#define Z_HUFFMAN_ONLY 2 -#define Z_DEFAULT_STRATEGY 0 - -// Possible values of the data_type field -#define Z_BINARY 0 -#define Z_ASCII 1 -#define Z_UNKNOWN 2 - -// The deflate compression method (the only one supported in this version) -#define Z_DEFLATED 8 - -// for initializing zalloc, zfree, opaque -#define Z_NULL 0 - -// case sensitivity when searching for filenames -#define CASE_SENSITIVE 1 -#define CASE_INSENSITIVE 2 - - -// Return codes for the compression/decompression functions. Negative -// values are errors, positive values are used for special but normal events. -#define Z_OK 0 -#define Z_STREAM_END 1 -#define Z_NEED_DICT 2 -#define Z_ERRNO (-1) -#define Z_STREAM_ERROR (-2) -#define Z_DATA_ERROR (-3) -#define Z_MEM_ERROR (-4) -#define Z_BUF_ERROR (-5) -#define Z_VERSION_ERROR (-6) - - - -// Basic data types -typedef unsigned char Byte; // 8 bits -typedef unsigned int uInt; // 16 bits or more -typedef unsigned long uLong; // 32 bits or more -typedef void *voidpf; -typedef void *voidp; -typedef long z_off_t; - - - - - - - - - - - - -typedef voidpf (*alloc_func) (voidpf opaque, uInt items, uInt size); -typedef void (*free_func) (voidpf opaque, voidpf address); - -struct internal_state; - -typedef struct z_stream_s { - Byte *next_in; // next input byte - uInt avail_in; // number of bytes available at next_in - uLong total_in; // total nb of input bytes read so far - - Byte *next_out; // next output byte should be put there - uInt avail_out; // remaining free space at next_out - uLong total_out; // total nb of bytes output so far - - char *msg; // last error message, NULL if no error - struct internal_state *state; // not visible by applications - - alloc_func zalloc; // used to allocate the internal state - free_func zfree; // used to free the internal state - voidpf opaque; // private data object passed to zalloc and zfree - - int data_type; // best guess about the data type: ascii or binary - uLong adler; // adler32 value of the uncompressed data - uLong reserved; // reserved for future use -} z_stream; - -typedef z_stream *z_streamp; - - -// The application must update next_in and avail_in when avail_in has -// dropped to zero. It must update next_out and avail_out when avail_out -// has dropped to zero. The application must initialize zalloc, zfree and -// opaque before calling the init function. All other fields are set by the -// compression library and must not be updated by the application. -// -// The opaque value provided by the application will be passed as the first -// parameter for calls of zalloc and zfree. This can be useful for custom -// memory management. The compression library attaches no meaning to the -// opaque value. -// -// zalloc must return Z_NULL if there is not enough memory for the object. -// If zlib is used in a multi-threaded application, zalloc and zfree must be -// thread safe. -// -// The fields total_in and total_out can be used for statistics or -// progress reports. After compression, total_in holds the total size of -// the uncompressed data and may be saved for use in the decompressor -// (particularly if the decompressor wants to decompress everything in -// a single step). -// - - -// basic functions - -const char *zlibVersion (); -// The application can compare zlibVersion and ZLIB_VERSION for consistency. -// If the first character differs, the library code actually used is -// not compatible with the zlib.h header file used by the application. -// This check is automatically made by inflateInit. - - - - - - -int inflate (z_streamp strm, int flush); -// -// inflate decompresses as much data as possible, and stops when the input -// buffer becomes empty or the output buffer becomes full. It may some -// introduce some output latency (reading input without producing any output) -// except when forced to flush. -// -// The detailed semantics are as follows. inflate performs one or both of the -// following actions: -// -// - Decompress more input starting at next_in and update next_in and avail_in -// accordingly. If not all input can be processed (because there is not -// enough room in the output buffer), next_in is updated and processing -// will resume at this point for the next call of inflate(). -// -// - Provide more output starting at next_out and update next_out and avail_out -// accordingly. inflate() provides as much output as possible, until there -// is no more input data or no more space in the output buffer (see below -// about the flush parameter). -// -// Before the call of inflate(), the application should ensure that at least -// one of the actions is possible, by providing more input and/or consuming -// more output, and updating the next_* and avail_* values accordingly. -// The application can consume the uncompressed output when it wants, for -// example when the output buffer is full (avail_out == 0), or after each -// call of inflate(). If inflate returns Z_OK and with zero avail_out, it -// must be called again after making room in the output buffer because there -// might be more output pending. -// -// If the parameter flush is set to Z_SYNC_FLUSH, inflate flushes as much -// output as possible to the output buffer. The flushing behavior of inflate is -// not specified for values of the flush parameter other than Z_SYNC_FLUSH -// and Z_FINISH, but the current implementation actually flushes as much output -// as possible anyway. -// -// inflate() should normally be called until it returns Z_STREAM_END or an -// error. However if all decompression is to be performed in a single step -// (a single call of inflate), the parameter flush should be set to -// Z_FINISH. In this case all pending input is processed and all pending -// output is flushed; avail_out must be large enough to hold all the -// uncompressed data. (The size of the uncompressed data may have been saved -// by the compressor for this purpose.) The next operation on this stream must -// be inflateEnd to deallocate the decompression state. The use of Z_FINISH -// is never required, but can be used to inform inflate that a faster routine -// may be used for the single inflate() call. -// -// If a preset dictionary is needed at this point (see inflateSetDictionary -// below), inflate sets strm-adler to the adler32 checksum of the -// dictionary chosen by the compressor and returns Z_NEED_DICT; otherwise -// it sets strm->adler to the adler32 checksum of all output produced -// so far (that is, total_out bytes) and returns Z_OK, Z_STREAM_END or -// an error code as described below. At the end of the stream, inflate() -// checks that its computed adler32 checksum is equal to that saved by the -// compressor and returns Z_STREAM_END only if the checksum is correct. -// -// inflate() returns Z_OK if some progress has been made (more input processed -// or more output produced), Z_STREAM_END if the end of the compressed data has -// been reached and all uncompressed output has been produced, Z_NEED_DICT if a -// preset dictionary is needed at this point, Z_DATA_ERROR if the input data was -// corrupted (input stream not conforming to the zlib format or incorrect -// adler32 checksum), Z_STREAM_ERROR if the stream structure was inconsistent -// (for example if next_in or next_out was NULL), Z_MEM_ERROR if there was not -// enough memory, Z_BUF_ERROR if no progress is possible or if there was not -// enough room in the output buffer when Z_FINISH is used. In the Z_DATA_ERROR -// case, the application may then call inflateSync to look for a good -// compression block. -// - - -int inflateEnd (z_streamp strm); -// -// All dynamically allocated data structures for this stream are freed. -// This function discards any unprocessed input and does not flush any -// pending output. -// -// inflateEnd returns Z_OK if success, Z_STREAM_ERROR if the stream state -// was inconsistent. In the error case, msg may be set but then points to a -// static string (which must not be deallocated). - - // Advanced functions - -// The following functions are needed only in some special applications. - - - - - -int inflateSetDictionary (z_streamp strm, - const Byte *dictionary, - uInt dictLength); -// -// Initializes the decompression dictionary from the given uncompressed byte -// sequence. This function must be called immediately after a call of inflate -// if this call returned Z_NEED_DICT. The dictionary chosen by the compressor -// can be determined from the Adler32 value returned by this call of -// inflate. The compressor and decompressor must use exactly the same -// dictionary. -// -// inflateSetDictionary returns Z_OK if success, Z_STREAM_ERROR if a -// parameter is invalid (such as NULL dictionary) or the stream state is -// inconsistent, Z_DATA_ERROR if the given dictionary doesn't match the -// expected one (incorrect Adler32 value). inflateSetDictionary does not -// perform any decompression: this will be done by subsequent calls of -// inflate(). - - -int inflateSync (z_streamp strm); -// -// Skips invalid compressed data until a full flush point can be found, or until all -// available input is skipped. No output is provided. -// -// inflateSync returns Z_OK if a full flush point has been found, Z_BUF_ERROR -// if no more input was provided, Z_DATA_ERROR if no flush point has been found, -// or Z_STREAM_ERROR if the stream structure was inconsistent. In the success -// case, the application may save the current current value of total_in which -// indicates where valid compressed data was found. In the error case, the -// application may repeatedly call inflateSync, providing more input each time, -// until success or end of the input data. - - -int inflateReset (z_streamp strm); -// This function is equivalent to inflateEnd followed by inflateInit, -// but does not free and reallocate all the internal decompression state. -// The stream will keep attributes that may have been set by inflateInit2. -// -// inflateReset returns Z_OK if success, or Z_STREAM_ERROR if the source -// stream state was inconsistent (such as zalloc or state being NULL). -// - - - -// checksum functions -// These functions are not related to compression but are exported -// anyway because they might be useful in applications using the -// compression library. - -uLong adler32 (uLong adler, const Byte *buf, uInt len); -// Update a running Adler-32 checksum with the bytes buf[0..len-1] and -// return the updated checksum. If buf is NULL, this function returns -// the required initial value for the checksum. -// An Adler-32 checksum is almost as reliable as a CRC32 but can be computed -// much faster. Usage example: -// -// uLong adler = adler32(0L, Z_NULL, 0); -// -// while (read_buffer(buffer, length) != EOF) { -// adler = adler32(adler, buffer, length); -// } -// if (adler != original_adler) error(); - -uLong ucrc32 (uLong crc, const Byte *buf, uInt len); -// Update a running crc with the bytes buf[0..len-1] and return the updated -// crc. If buf is NULL, this function returns the required initial value -// for the crc. Pre- and post-conditioning (one's complement) is performed -// within this function so it shouldn't be done by the application. -// Usage example: -// -// uLong crc = crc32(0L, Z_NULL, 0); -// -// while (read_buffer(buffer, length) != EOF) { -// crc = crc32(crc, buffer, length); -// } -// if (crc != original_crc) error(); - - - - -const char *zError (int err); -int inflateSyncPoint (z_streamp z); -const uLong *get_crc_table (void); - - - -typedef unsigned char uch; -typedef uch uchf; -typedef unsigned short ush; -typedef ush ushf; -typedef unsigned long ulg; - - - -const char * const z_errmsg[10] = { // indexed by 2-zlib_error -"need dictionary", // Z_NEED_DICT 2 -"stream end", // Z_STREAM_END 1 -"", // Z_OK 0 -"file error", // Z_ERRNO (-1) -"stream error", // Z_STREAM_ERROR (-2) -"data error", // Z_DATA_ERROR (-3) -"insufficient memory", // Z_MEM_ERROR (-4) -"buffer error", // Z_BUF_ERROR (-5) -"incompatible version",// Z_VERSION_ERROR (-6) -""}; - - -#define ERR_MSG(err) z_errmsg[Z_NEED_DICT-(err)] - -#define ERR_RETURN(strm,err) \ - return (strm->msg = (char*)ERR_MSG(err), (err)) -// To be used only when the state is known to be valid - - // common constants - - -#define STORED_BLOCK 0 -#define STATIC_TREES 1 -#define DYN_TREES 2 -// The three kinds of block type - -#define MIN_MATCH 3 -#define MAX_MATCH 258 -// The minimum and maximum match lengths - -#define PRESET_DICT 0x20 // preset dictionary flag in zlib header - - // target dependencies - -#define OS_CODE 0x0b // Window 95 & Windows NT - - - - // functions - -#define zmemzero(dest, len) memset(dest, 0, len) - -// Diagnostic functions -#define LuAssert(cond,msg) -#define LuTrace(x) -#define LuTracev(x) -#define LuTracevv(x) -#define LuTracec(c,x) -#define LuTracecv(c,x) - - -typedef uLong (*check_func) (uLong check, const Byte *buf, uInt len); -voidpf zcalloc (voidpf opaque, unsigned items, unsigned size); -void zcfree (voidpf opaque, voidpf ptr); - -#define ZALLOC(strm, items, size) \ - (*((strm)->zalloc))((strm)->opaque, (items), (size)) -#define ZFREE(strm, addr) (*((strm)->zfree))((strm)->opaque, (voidpf)(addr)) - -//void ZFREE(z_streamp strm,voidpf addr) -//{ *((strm)->zfree))((strm)->opaque, addr); -//} - -#define TRY_FREE(s, p) {if (p) ZFREE(s, p);} - - - - -// Huffman code lookup table entry--this entry is four bytes for machines -// that have 16-bit pointers (e.g. PC's in the small or medium model). - - -typedef struct inflate_huft_s inflate_huft; - -struct inflate_huft_s { - union { - struct { - Byte Exop; // number of extra bits or operation - Byte Bits; // number of bits in this code or subcode - } what; - uInt pad; // pad structure to a power of 2 (4 bytes for - } word; // 16-bit, 8 bytes for 32-bit int's) - uInt base; // literal, length base, distance base, or table offset -}; - -// Maximum size of dynamic tree. The maximum found in a long but non- -// exhaustive search was 1004 huft structures (850 for length/literals -// and 154 for distances, the latter actually the result of an -// exhaustive search). The actual maximum is not known, but the -// value below is more than safe. -#define MANY 1440 - -int inflate_trees_bits ( - uInt *, // 19 code lengths - uInt *, // bits tree desired/actual depth - inflate_huft * *, // bits tree result - inflate_huft *, // space for trees - z_streamp); // for messages - -int inflate_trees_dynamic ( - uInt, // number of literal/length codes - uInt, // number of distance codes - uInt *, // that many (total) code lengths - uInt *, // literal desired/actual bit depth - uInt *, // distance desired/actual bit depth - inflate_huft * *, // literal/length tree result - inflate_huft * *, // distance tree result - inflate_huft *, // space for trees - z_streamp); // for messages - -int inflate_trees_fixed ( - uInt *, // literal desired/actual bit depth - uInt *, // distance desired/actual bit depth - const inflate_huft * *, // literal/length tree result - const inflate_huft * *, // distance tree result - z_streamp); // for memory allocation - - - - - -struct inflate_blocks_state; -typedef struct inflate_blocks_state inflate_blocks_statef; - -inflate_blocks_statef * inflate_blocks_new ( - z_streamp z, - check_func c, // check function - uInt w); // window size - -int inflate_blocks ( - inflate_blocks_statef *, - z_streamp , - int); // initial return code - -void inflate_blocks_reset ( - inflate_blocks_statef *, - z_streamp , - uLong *); // check value on output - -int inflate_blocks_free ( - inflate_blocks_statef *, - z_streamp); - -void inflate_set_dictionary ( - inflate_blocks_statef *s, - const Byte *d, // dictionary - uInt n); // dictionary length - -int inflate_blocks_sync_point ( - inflate_blocks_statef *s); - - - - -struct inflate_codes_state; -typedef struct inflate_codes_state inflate_codes_statef; - -inflate_codes_statef *inflate_codes_new ( - uInt, uInt, - const inflate_huft *, const inflate_huft *, - z_streamp ); - -int inflate_codes ( - inflate_blocks_statef *, - z_streamp , - int); - -void inflate_codes_free ( - inflate_codes_statef *, - z_streamp ); - - - - -typedef enum { - IBM_TYPE, // get type bits (3, including end bit) - IBM_LENS, // get lengths for stored - IBM_STORED, // processing stored block - IBM_TABLE, // get table lengths - IBM_BTREE, // get bit lengths tree for a dynamic block - IBM_DTREE, // get length, distance trees for a dynamic block - IBM_CODES, // processing fixed or dynamic block - IBM_DRY, // output remaining window bytes - IBM_DONE, // finished last block, done - IBM_BAD} // got a data error--stuck here -inflate_block_mode; - -// inflate blocks semi-private state -struct inflate_blocks_state { - - // mode - inflate_block_mode mode; // current inflate_block mode - - // mode dependent information - union { - uInt left; // if STORED, bytes left to copy - struct { - uInt table; // table lengths (14 bits) - uInt index; // index into blens (or border) - uInt *blens; // bit lengths of codes - uInt bb; // bit length tree depth - inflate_huft *tb; // bit length decoding tree - } trees; // if DTREE, decoding info for trees - struct { - inflate_codes_statef - *codes; - } decode; // if CODES, current state - } sub; // submode - uInt last; // true if this block is the last block - - // mode independent information - uInt bitk; // bits in bit buffer - uLong bitb; // bit buffer - inflate_huft *hufts; // single malloc for tree space - Byte *window; // sliding window - Byte *end; // one byte after sliding window - Byte *read; // window read pointer - Byte *write; // window write pointer - check_func checkfn; // check function - uLong check; // check on output - -}; - - -// defines for inflate input/output -// update pointers and return -#define UPDBITS {s->bitb=b;s->bitk=k;} -#define UPDIN {z->avail_in=n;z->total_in+=(uLong)(p-z->next_in);z->next_in=p;} -#define UPDOUT {s->write=q;} -#define UPDATE {UPDBITS UPDIN UPDOUT} -#define LEAVE {UPDATE return inflate_flush(s,z,r);} -// get bytes and bits -#define LOADIN {p=z->next_in;n=z->avail_in;b=s->bitb;k=s->bitk;} -#define NEEDBYTE {if(n)r=Z_OK;else LEAVE} -#define NEXTBYTE (n--,*p++) -#define NEEDBITS(j) {while(k<(j)){NEEDBYTE;b|=((uLong)NEXTBYTE)<>=(j);k-=(j);} -// output bytes -#define WAVAIL (uInt)(qread?s->read-q-1:s->end-q) -#define LOADOUT {q=s->write;m=(uInt)WAVAIL;m;} -#define WRAP {if(q==s->end&&s->read!=s->window){q=s->window;m=(uInt)WAVAIL;}} -#define FLUSH {UPDOUT r=inflate_flush(s,z,r); LOADOUT} -#define NEEDOUT {if(m==0){WRAP if(m==0){FLUSH WRAP if(m==0) LEAVE}}r=Z_OK;} -#define OUTBYTE(a) {*q++=(Byte)(a);m--;} -// load local pointers -#define LOAD {LOADIN LOADOUT} - -// masks for lower bits (size given to avoid silly warnings with Visual C++) -// And'ing with mask[n] masks the lower n bits -const uInt inflate_mask[17] = { - 0x0000, - 0x0001, 0x0003, 0x0007, 0x000f, 0x001f, 0x003f, 0x007f, 0x00ff, - 0x01ff, 0x03ff, 0x07ff, 0x0fff, 0x1fff, 0x3fff, 0x7fff, 0xffff -}; - -// copy as much as possible from the sliding window to the output area -int inflate_flush (inflate_blocks_statef *, z_streamp, int); - -int inflate_fast (uInt, uInt, const inflate_huft *, const inflate_huft *, inflate_blocks_statef *, z_streamp ); - - - -const uInt fixed_bl = 9; -const uInt fixed_bd = 5; -const inflate_huft fixed_tl[] = { - {{{96,7}},256}, {{{0,8}},80}, {{{0,8}},16}, {{{84,8}},115}, - {{{82,7}},31}, {{{0,8}},112}, {{{0,8}},48}, {{{0,9}},192}, - {{{80,7}},10}, {{{0,8}},96}, {{{0,8}},32}, {{{0,9}},160}, - {{{0,8}},0}, {{{0,8}},128}, {{{0,8}},64}, {{{0,9}},224}, - {{{80,7}},6}, {{{0,8}},88}, {{{0,8}},24}, {{{0,9}},144}, - {{{83,7}},59}, {{{0,8}},120}, {{{0,8}},56}, {{{0,9}},208}, - {{{81,7}},17}, {{{0,8}},104}, {{{0,8}},40}, {{{0,9}},176}, - {{{0,8}},8}, {{{0,8}},136}, {{{0,8}},72}, {{{0,9}},240}, - {{{80,7}},4}, {{{0,8}},84}, {{{0,8}},20}, {{{85,8}},227}, - {{{83,7}},43}, {{{0,8}},116}, {{{0,8}},52}, {{{0,9}},200}, - {{{81,7}},13}, {{{0,8}},100}, {{{0,8}},36}, {{{0,9}},168}, - {{{0,8}},4}, {{{0,8}},132}, {{{0,8}},68}, {{{0,9}},232}, - {{{80,7}},8}, {{{0,8}},92}, {{{0,8}},28}, {{{0,9}},152}, - {{{84,7}},83}, {{{0,8}},124}, {{{0,8}},60}, {{{0,9}},216}, - {{{82,7}},23}, {{{0,8}},108}, {{{0,8}},44}, {{{0,9}},184}, - {{{0,8}},12}, {{{0,8}},140}, {{{0,8}},76}, {{{0,9}},248}, - {{{80,7}},3}, {{{0,8}},82}, {{{0,8}},18}, {{{85,8}},163}, - {{{83,7}},35}, {{{0,8}},114}, {{{0,8}},50}, {{{0,9}},196}, - {{{81,7}},11}, {{{0,8}},98}, {{{0,8}},34}, {{{0,9}},164}, - {{{0,8}},2}, {{{0,8}},130}, {{{0,8}},66}, {{{0,9}},228}, - {{{80,7}},7}, {{{0,8}},90}, {{{0,8}},26}, {{{0,9}},148}, - {{{84,7}},67}, {{{0,8}},122}, {{{0,8}},58}, {{{0,9}},212}, - {{{82,7}},19}, {{{0,8}},106}, {{{0,8}},42}, {{{0,9}},180}, - {{{0,8}},10}, {{{0,8}},138}, {{{0,8}},74}, {{{0,9}},244}, - {{{80,7}},5}, {{{0,8}},86}, {{{0,8}},22}, {{{192,8}},0}, - {{{83,7}},51}, {{{0,8}},118}, {{{0,8}},54}, {{{0,9}},204}, - {{{81,7}},15}, {{{0,8}},102}, {{{0,8}},38}, {{{0,9}},172}, - {{{0,8}},6}, {{{0,8}},134}, {{{0,8}},70}, {{{0,9}},236}, - {{{80,7}},9}, {{{0,8}},94}, {{{0,8}},30}, {{{0,9}},156}, - {{{84,7}},99}, {{{0,8}},126}, {{{0,8}},62}, {{{0,9}},220}, - {{{82,7}},27}, {{{0,8}},110}, {{{0,8}},46}, {{{0,9}},188}, - {{{0,8}},14}, {{{0,8}},142}, {{{0,8}},78}, {{{0,9}},252}, - {{{96,7}},256}, {{{0,8}},81}, {{{0,8}},17}, {{{85,8}},131}, - {{{82,7}},31}, {{{0,8}},113}, {{{0,8}},49}, {{{0,9}},194}, - {{{80,7}},10}, {{{0,8}},97}, {{{0,8}},33}, {{{0,9}},162}, - {{{0,8}},1}, {{{0,8}},129}, {{{0,8}},65}, {{{0,9}},226}, - {{{80,7}},6}, {{{0,8}},89}, {{{0,8}},25}, {{{0,9}},146}, - {{{83,7}},59}, {{{0,8}},121}, {{{0,8}},57}, {{{0,9}},210}, - {{{81,7}},17}, {{{0,8}},105}, {{{0,8}},41}, {{{0,9}},178}, - {{{0,8}},9}, {{{0,8}},137}, {{{0,8}},73}, {{{0,9}},242}, - {{{80,7}},4}, {{{0,8}},85}, {{{0,8}},21}, {{{80,8}},258}, - {{{83,7}},43}, {{{0,8}},117}, {{{0,8}},53}, {{{0,9}},202}, - {{{81,7}},13}, {{{0,8}},101}, {{{0,8}},37}, {{{0,9}},170}, - {{{0,8}},5}, {{{0,8}},133}, {{{0,8}},69}, {{{0,9}},234}, - {{{80,7}},8}, {{{0,8}},93}, {{{0,8}},29}, {{{0,9}},154}, - {{{84,7}},83}, {{{0,8}},125}, {{{0,8}},61}, {{{0,9}},218}, - {{{82,7}},23}, {{{0,8}},109}, {{{0,8}},45}, {{{0,9}},186}, - {{{0,8}},13}, {{{0,8}},141}, {{{0,8}},77}, {{{0,9}},250}, - {{{80,7}},3}, {{{0,8}},83}, {{{0,8}},19}, {{{85,8}},195}, - {{{83,7}},35}, {{{0,8}},115}, {{{0,8}},51}, {{{0,9}},198}, - {{{81,7}},11}, {{{0,8}},99}, {{{0,8}},35}, {{{0,9}},166}, - {{{0,8}},3}, {{{0,8}},131}, {{{0,8}},67}, {{{0,9}},230}, - {{{80,7}},7}, {{{0,8}},91}, {{{0,8}},27}, {{{0,9}},150}, - {{{84,7}},67}, {{{0,8}},123}, {{{0,8}},59}, {{{0,9}},214}, - {{{82,7}},19}, {{{0,8}},107}, {{{0,8}},43}, {{{0,9}},182}, - {{{0,8}},11}, {{{0,8}},139}, {{{0,8}},75}, {{{0,9}},246}, - {{{80,7}},5}, {{{0,8}},87}, {{{0,8}},23}, {{{192,8}},0}, - {{{83,7}},51}, {{{0,8}},119}, {{{0,8}},55}, {{{0,9}},206}, - {{{81,7}},15}, {{{0,8}},103}, {{{0,8}},39}, {{{0,9}},174}, - {{{0,8}},7}, {{{0,8}},135}, {{{0,8}},71}, {{{0,9}},238}, - {{{80,7}},9}, {{{0,8}},95}, {{{0,8}},31}, {{{0,9}},158}, - {{{84,7}},99}, {{{0,8}},127}, {{{0,8}},63}, {{{0,9}},222}, - {{{82,7}},27}, {{{0,8}},111}, {{{0,8}},47}, {{{0,9}},190}, - {{{0,8}},15}, {{{0,8}},143}, {{{0,8}},79}, {{{0,9}},254}, - {{{96,7}},256}, {{{0,8}},80}, {{{0,8}},16}, {{{84,8}},115}, - {{{82,7}},31}, {{{0,8}},112}, {{{0,8}},48}, {{{0,9}},193}, - {{{80,7}},10}, {{{0,8}},96}, {{{0,8}},32}, {{{0,9}},161}, - {{{0,8}},0}, {{{0,8}},128}, {{{0,8}},64}, {{{0,9}},225}, - {{{80,7}},6}, {{{0,8}},88}, {{{0,8}},24}, {{{0,9}},145}, - {{{83,7}},59}, {{{0,8}},120}, {{{0,8}},56}, {{{0,9}},209}, - {{{81,7}},17}, {{{0,8}},104}, {{{0,8}},40}, {{{0,9}},177}, - {{{0,8}},8}, {{{0,8}},136}, {{{0,8}},72}, {{{0,9}},241}, - {{{80,7}},4}, {{{0,8}},84}, {{{0,8}},20}, {{{85,8}},227}, - {{{83,7}},43}, {{{0,8}},116}, {{{0,8}},52}, {{{0,9}},201}, - {{{81,7}},13}, {{{0,8}},100}, {{{0,8}},36}, {{{0,9}},169}, - {{{0,8}},4}, {{{0,8}},132}, {{{0,8}},68}, {{{0,9}},233}, - {{{80,7}},8}, {{{0,8}},92}, {{{0,8}},28}, {{{0,9}},153}, - {{{84,7}},83}, {{{0,8}},124}, {{{0,8}},60}, {{{0,9}},217}, - {{{82,7}},23}, {{{0,8}},108}, {{{0,8}},44}, {{{0,9}},185}, - {{{0,8}},12}, {{{0,8}},140}, {{{0,8}},76}, {{{0,9}},249}, - {{{80,7}},3}, {{{0,8}},82}, {{{0,8}},18}, {{{85,8}},163}, - {{{83,7}},35}, {{{0,8}},114}, {{{0,8}},50}, {{{0,9}},197}, - {{{81,7}},11}, {{{0,8}},98}, {{{0,8}},34}, {{{0,9}},165}, - {{{0,8}},2}, {{{0,8}},130}, {{{0,8}},66}, {{{0,9}},229}, - {{{80,7}},7}, {{{0,8}},90}, {{{0,8}},26}, {{{0,9}},149}, - {{{84,7}},67}, {{{0,8}},122}, {{{0,8}},58}, {{{0,9}},213}, - {{{82,7}},19}, {{{0,8}},106}, {{{0,8}},42}, {{{0,9}},181}, - {{{0,8}},10}, {{{0,8}},138}, {{{0,8}},74}, {{{0,9}},245}, - {{{80,7}},5}, {{{0,8}},86}, {{{0,8}},22}, {{{192,8}},0}, - {{{83,7}},51}, {{{0,8}},118}, {{{0,8}},54}, {{{0,9}},205}, - {{{81,7}},15}, {{{0,8}},102}, {{{0,8}},38}, {{{0,9}},173}, - {{{0,8}},6}, {{{0,8}},134}, {{{0,8}},70}, {{{0,9}},237}, - {{{80,7}},9}, {{{0,8}},94}, {{{0,8}},30}, {{{0,9}},157}, - {{{84,7}},99}, {{{0,8}},126}, {{{0,8}},62}, {{{0,9}},221}, - {{{82,7}},27}, {{{0,8}},110}, {{{0,8}},46}, {{{0,9}},189}, - {{{0,8}},14}, {{{0,8}},142}, {{{0,8}},78}, {{{0,9}},253}, - {{{96,7}},256}, {{{0,8}},81}, {{{0,8}},17}, {{{85,8}},131}, - {{{82,7}},31}, {{{0,8}},113}, {{{0,8}},49}, {{{0,9}},195}, - {{{80,7}},10}, {{{0,8}},97}, {{{0,8}},33}, {{{0,9}},163}, - {{{0,8}},1}, {{{0,8}},129}, {{{0,8}},65}, {{{0,9}},227}, - {{{80,7}},6}, {{{0,8}},89}, {{{0,8}},25}, {{{0,9}},147}, - {{{83,7}},59}, {{{0,8}},121}, {{{0,8}},57}, {{{0,9}},211}, - {{{81,7}},17}, {{{0,8}},105}, {{{0,8}},41}, {{{0,9}},179}, - {{{0,8}},9}, {{{0,8}},137}, {{{0,8}},73}, {{{0,9}},243}, - {{{80,7}},4}, {{{0,8}},85}, {{{0,8}},21}, {{{80,8}},258}, - {{{83,7}},43}, {{{0,8}},117}, {{{0,8}},53}, {{{0,9}},203}, - {{{81,7}},13}, {{{0,8}},101}, {{{0,8}},37}, {{{0,9}},171}, - {{{0,8}},5}, {{{0,8}},133}, {{{0,8}},69}, {{{0,9}},235}, - {{{80,7}},8}, {{{0,8}},93}, {{{0,8}},29}, {{{0,9}},155}, - {{{84,7}},83}, {{{0,8}},125}, {{{0,8}},61}, {{{0,9}},219}, - {{{82,7}},23}, {{{0,8}},109}, {{{0,8}},45}, {{{0,9}},187}, - {{{0,8}},13}, {{{0,8}},141}, {{{0,8}},77}, {{{0,9}},251}, - {{{80,7}},3}, {{{0,8}},83}, {{{0,8}},19}, {{{85,8}},195}, - {{{83,7}},35}, {{{0,8}},115}, {{{0,8}},51}, {{{0,9}},199}, - {{{81,7}},11}, {{{0,8}},99}, {{{0,8}},35}, {{{0,9}},167}, - {{{0,8}},3}, {{{0,8}},131}, {{{0,8}},67}, {{{0,9}},231}, - {{{80,7}},7}, {{{0,8}},91}, {{{0,8}},27}, {{{0,9}},151}, - {{{84,7}},67}, {{{0,8}},123}, {{{0,8}},59}, {{{0,9}},215}, - {{{82,7}},19}, {{{0,8}},107}, {{{0,8}},43}, {{{0,9}},183}, - {{{0,8}},11}, {{{0,8}},139}, {{{0,8}},75}, {{{0,9}},247}, - {{{80,7}},5}, {{{0,8}},87}, {{{0,8}},23}, {{{192,8}},0}, - {{{83,7}},51}, {{{0,8}},119}, {{{0,8}},55}, {{{0,9}},207}, - {{{81,7}},15}, {{{0,8}},103}, {{{0,8}},39}, {{{0,9}},175}, - {{{0,8}},7}, {{{0,8}},135}, {{{0,8}},71}, {{{0,9}},239}, - {{{80,7}},9}, {{{0,8}},95}, {{{0,8}},31}, {{{0,9}},159}, - {{{84,7}},99}, {{{0,8}},127}, {{{0,8}},63}, {{{0,9}},223}, - {{{82,7}},27}, {{{0,8}},111}, {{{0,8}},47}, {{{0,9}},191}, - {{{0,8}},15}, {{{0,8}},143}, {{{0,8}},79}, {{{0,9}},255} - }; -const inflate_huft fixed_td[] = { - {{{80,5}},1}, {{{87,5}},257}, {{{83,5}},17}, {{{91,5}},4097}, - {{{81,5}},5}, {{{89,5}},1025}, {{{85,5}},65}, {{{93,5}},16385}, - {{{80,5}},3}, {{{88,5}},513}, {{{84,5}},33}, {{{92,5}},8193}, - {{{82,5}},9}, {{{90,5}},2049}, {{{86,5}},129}, {{{192,5}},24577}, - {{{80,5}},2}, {{{87,5}},385}, {{{83,5}},25}, {{{91,5}},6145}, - {{{81,5}},7}, {{{89,5}},1537}, {{{85,5}},97}, {{{93,5}},24577}, - {{{80,5}},4}, {{{88,5}},769}, {{{84,5}},49}, {{{92,5}},12289}, - {{{82,5}},13}, {{{90,5}},3073}, {{{86,5}},193}, {{{192,5}},24577} - }; - - - - - - - -// copy as much as possible from the sliding window to the output area -int inflate_flush(inflate_blocks_statef *s,z_streamp z,int r) -{ - uInt n; - Byte *p; - Byte *q; - - // local copies of source and destination pointers - p = z->next_out; - q = s->read; - - // compute number of bytes to copy as far as end of window - n = (uInt)((q <= s->write ? s->write : s->end) - q); - if (n > z->avail_out) n = z->avail_out; - if (n && r == Z_BUF_ERROR) r = Z_OK; - - // update counters - z->avail_out -= n; - z->total_out += n; - - // update check information - if (s->checkfn != Z_NULL) - z->adler = s->check = (*s->checkfn)(s->check, q, n); - - // copy as far as end of window - if (n!=0) // check for n!=0 to avoid waking up CodeGuard - { memcpy(p, q, n); - p += n; - q += n; - } - - // see if more to copy at beginning of window - if (q == s->end) - { - // wrap pointers - q = s->window; - if (s->write == s->end) - s->write = s->window; - - // compute bytes to copy - n = (uInt)(s->write - q); - if (n > z->avail_out) n = z->avail_out; - if (n && r == Z_BUF_ERROR) r = Z_OK; - - // update counters - z->avail_out -= n; - z->total_out += n; - - // update check information - if (s->checkfn != Z_NULL) - z->adler = s->check = (*s->checkfn)(s->check, q, n); - - // copy - if (n!=0) {memcpy(p,q,n); p+=n; q+=n;} - } - - // update pointers - z->next_out = p; - s->read = q; - - // done - return r; -} - - - - - - -// simplify the use of the inflate_huft type with some defines -#define exop word.what.Exop -#define bits word.what.Bits - -typedef enum { // waiting for "i:"=input, "o:"=output, "x:"=nothing - START, // x: set up for LEN - LEN, // i: get length/literal/eob next - LENEXT, // i: getting length extra (have base) - DIST, // i: get distance next - DISTEXT, // i: getting distance extra - COPY, // o: copying bytes in window, waiting for space - LIT, // o: got literal, waiting for output space - WASH, // o: got eob, possibly still output waiting - END, // x: got eob and all data flushed - BADCODE} // x: got error -inflate_codes_mode; - -// inflate codes private state -struct inflate_codes_state { - - // mode - inflate_codes_mode mode; // current inflate_codes mode - - // mode dependent information - uInt len; - union { - struct { - const inflate_huft *tree; // pointer into tree - uInt need; // bits needed - } code; // if LEN or DIST, where in tree - uInt lit; // if LIT, literal - struct { - uInt get; // bits to get for extra - uInt dist; // distance back to copy from - } copy; // if EXT or COPY, where and how much - } sub; // submode - - // mode independent information - Byte lbits; // ltree bits decoded per branch - Byte dbits; // dtree bits decoder per branch - const inflate_huft *ltree; // literal/length/eob tree - const inflate_huft *dtree; // distance tree - -}; - - -inflate_codes_statef *inflate_codes_new( -uInt bl, uInt bd, -const inflate_huft *tl, -const inflate_huft *td, // need separate declaration for Borland C++ -z_streamp z) -{ - inflate_codes_statef *c; - - if ((c = (inflate_codes_statef *) - ZALLOC(z,1,sizeof(struct inflate_codes_state))) != Z_NULL) - { - c->mode = START; - c->lbits = (Byte)bl; - c->dbits = (Byte)bd; - c->ltree = tl; - c->dtree = td; - LuTracev((stderr, "inflate: codes new\n")); - } - return c; -} - - -int inflate_codes(inflate_blocks_statef *s, z_streamp z, int r) -{ - uInt j; // temporary storage - const inflate_huft *t; // temporary pointer - uInt e; // extra bits or operation - uLong b; // bit buffer - uInt k; // bits in bit buffer - Byte *p; // input data pointer - uInt n; // bytes available there - Byte *q; // output window write pointer - uInt m; // bytes to end of window or read pointer - Byte *f; // pointer to copy strings from - inflate_codes_statef *c = s->sub.decode.codes; // codes state - - // copy input/output information to locals (UPDATE macro restores) - LOAD - - // process input and output based on current state - for(;;) switch (c->mode) - { // waiting for "i:"=input, "o:"=output, "x:"=nothing - case START: // x: set up for LEN -#ifndef SLOW - if (m >= 258 && n >= 10) - { - UPDATE - r = inflate_fast(c->lbits, c->dbits, c->ltree, c->dtree, s, z); - LOAD - if (r != Z_OK) - { - c->mode = r == Z_STREAM_END ? WASH : BADCODE; - break; - } - } -#endif // !SLOW - c->sub.code.need = c->lbits; - c->sub.code.tree = c->ltree; - c->mode = LEN; - case LEN: // i: get length/literal/eob next - j = c->sub.code.need; - NEEDBITS(j) - t = c->sub.code.tree + ((uInt)b & inflate_mask[j]); - DUMPBITS(t->bits) - e = (uInt)(t->exop); - if (e == 0) // literal - { - c->sub.lit = t->base; - LuTracevv((stderr, t->base >= 0x20 && t->base < 0x7f ? - "inflate: literal '%c'\n" : - "inflate: literal 0x%02x\n", t->base)); - c->mode = LIT; - break; - } - if (e & 16) // length - { - c->sub.copy.get = e & 15; - c->len = t->base; - c->mode = LENEXT; - break; - } - if ((e & 64) == 0) // next table - { - c->sub.code.need = e; - c->sub.code.tree = t + t->base; - break; - } - if (e & 32) // end of block - { - LuTracevv((stderr, "inflate: end of block\n")); - c->mode = WASH; - break; - } - c->mode = BADCODE; // invalid code - z->msg = (char*)"invalid literal/length code"; - r = Z_DATA_ERROR; - LEAVE - case LENEXT: // i: getting length extra (have base) - j = c->sub.copy.get; - NEEDBITS(j) - c->len += (uInt)b & inflate_mask[j]; - DUMPBITS(j) - c->sub.code.need = c->dbits; - c->sub.code.tree = c->dtree; - LuTracevv((stderr, "inflate: length %u\n", c->len)); - c->mode = DIST; - case DIST: // i: get distance next - j = c->sub.code.need; - NEEDBITS(j) - t = c->sub.code.tree + ((uInt)b & inflate_mask[j]); - DUMPBITS(t->bits) - e = (uInt)(t->exop); - if (e & 16) // distance - { - c->sub.copy.get = e & 15; - c->sub.copy.dist = t->base; - c->mode = DISTEXT; - break; - } - if ((e & 64) == 0) // next table - { - c->sub.code.need = e; - c->sub.code.tree = t + t->base; - break; - } - c->mode = BADCODE; // invalid code - z->msg = (char*)"invalid distance code"; - r = Z_DATA_ERROR; - LEAVE - case DISTEXT: // i: getting distance extra - j = c->sub.copy.get; - NEEDBITS(j) - c->sub.copy.dist += (uInt)b & inflate_mask[j]; - DUMPBITS(j) - LuTracevv((stderr, "inflate: distance %u\n", c->sub.copy.dist)); - c->mode = COPY; - case COPY: // o: copying bytes in window, waiting for space - f = q - c->sub.copy.dist; - while (f < s->window) // modulo window size-"while" instead - f += s->end - s->window; // of "if" handles invalid distances - while (c->len) - { - NEEDOUT - OUTBYTE(*f++) - if (f == s->end) - f = s->window; - c->len--; - } - c->mode = START; - break; - case LIT: // o: got literal, waiting for output space - NEEDOUT - OUTBYTE(c->sub.lit) - c->mode = START; - break; - case WASH: // o: got eob, possibly more output - if (k > 7) // return unused byte, if any - { - //Assert(k < 16, "inflate_codes grabbed too many bytes") - k -= 8; - n++; - p--; // can always return one - } - FLUSH - if (s->read != s->write) - LEAVE - c->mode = END; - case END: - r = Z_STREAM_END; - LEAVE - case BADCODE: // x: got error - r = Z_DATA_ERROR; - LEAVE - default: - r = Z_STREAM_ERROR; - LEAVE - } -} - - -void inflate_codes_free(inflate_codes_statef *c,z_streamp z) -{ ZFREE(z, c); - LuTracev((stderr, "inflate: codes free\n")); -} - - - -// infblock.c -- interpret and process block types to last block -// Copyright (C) 1995-1998 Mark Adler -// For conditions of distribution and use, see copyright notice in zlib.h - -//struct inflate_codes_state {int dummy;}; // for buggy compilers - - - -// Table for deflate from PKZIP's appnote.txt. -const uInt border[] = { // Order of the bit length code lengths - 16, 17, 18, 0, 8, 7, 9, 6, 10, 5, 11, 4, 12, 3, 13, 2, 14, 1, 15}; - -// -// Notes beyond the 1.93a appnote.txt: -// -// 1. Distance pointers never point before the beginning of the output stream. -// 2. Distance pointers can point back across blocks, up to 32k away. -// 3. There is an implied maximum of 7 bits for the bit length table and -// 15 bits for the actual data. -// 4. If only one code exists, then it is encoded using one bit. (Zero -// would be more efficient, but perhaps a little confusing.) If two -// codes exist, they are coded using one bit each (0 and 1). -// 5. There is no way of sending zero distance codes--a dummy must be -// sent if there are none. (History: a pre 2.0 version of PKZIP would -// store blocks with no distance codes, but this was discovered to be -// too harsh a criterion.) Valid only for 1.93a. 2.04c does allow -// zero distance codes, which is sent as one code of zero bits in -// length. -// 6. There are up to 286 literal/length codes. Code 256 represents the -// end-of-block. Note however that the static length tree defines -// 288 codes just to fill out the Huffman codes. Codes 286 and 287 -// cannot be used though, since there is no length base or extra bits -// defined for them. Similarily, there are up to 30 distance codes. -// However, static trees define 32 codes (all 5 bits) to fill out the -// Huffman codes, but the last two had better not show up in the data. -// 7. Unzip can check dynamic Huffman blocks for complete code sets. -// The exception is that a single code would not be complete (see #4). -// 8. The five bits following the block type is really the number of -// literal codes sent minus 257. -// 9. Length codes 8,16,16 are interpreted as 13 length codes of 8 bits -// (1+6+6). Therefore, to output three times the length, you output -// three codes (1+1+1), whereas to output four times the same length, -// you only need two codes (1+3). Hmm. -//10. In the tree reconstruction algorithm, Code = Code + Increment -// only if BitLength(i) is not zero. (Pretty obvious.) -//11. Correction: 4 Bits: # of Bit Length codes - 4 (4 - 19) -//12. Note: length code 284 can represent 227-258, but length code 285 -// really is 258. The last length deserves its own, short code -// since it gets used a lot in very redundant files. The length -// 258 is special since 258 - 3 (the min match length) is 255. -//13. The literal/length and distance code bit lengths are read as a -// single stream of lengths. It is possible (and advantageous) for -// a repeat code (16, 17, or 18) to go across the boundary between -// the two sets of lengths. - - -void inflate_blocks_reset(inflate_blocks_statef *s, z_streamp z, uLong *c) -{ - if (c != Z_NULL) - *c = s->check; - if (s->mode == IBM_BTREE || s->mode == IBM_DTREE) - ZFREE(z, s->sub.trees.blens); - if (s->mode == IBM_CODES) - inflate_codes_free(s->sub.decode.codes, z); - s->mode = IBM_TYPE; - s->bitk = 0; - s->bitb = 0; - s->read = s->write = s->window; - if (s->checkfn != Z_NULL) - z->adler = s->check = (*s->checkfn)(0L, (const Byte *)Z_NULL, 0); - LuTracev((stderr, "inflate: blocks reset\n")); -} - - -inflate_blocks_statef *inflate_blocks_new(z_streamp z, check_func c, uInt w) -{ - inflate_blocks_statef *s; - - if ((s = (inflate_blocks_statef *)ZALLOC - (z,1,sizeof(struct inflate_blocks_state))) == Z_NULL) - return s; - if ((s->hufts = - (inflate_huft *)ZALLOC(z, sizeof(inflate_huft), MANY)) == Z_NULL) - { - ZFREE(z, s); - return Z_NULL; - } - if ((s->window = (Byte *)ZALLOC(z, 1, w)) == Z_NULL) - { - ZFREE(z, s->hufts); - ZFREE(z, s); - return Z_NULL; - } - s->end = s->window + w; - s->checkfn = c; - s->mode = IBM_TYPE; - LuTracev((stderr, "inflate: blocks allocated\n")); - inflate_blocks_reset(s, z, Z_NULL); - return s; -} - - -int inflate_blocks(inflate_blocks_statef *s, z_streamp z, int r) -{ - uInt t; // temporary storage - uLong b; // bit buffer - uInt k; // bits in bit buffer - Byte *p; // input data pointer - uInt n; // bytes available there - Byte *q; // output window write pointer - uInt m; // bytes to end of window or read pointer - - // copy input/output information to locals (UPDATE macro restores) - LOAD - - // process input based on current state - for(;;) switch (s->mode) - { - case IBM_TYPE: - NEEDBITS(3) - t = (uInt)b & 7; - s->last = t & 1; - switch (t >> 1) - { - case 0: // stored - LuTracev((stderr, "inflate: stored block%s\n", - s->last ? " (last)" : "")); - DUMPBITS(3) - t = k & 7; // go to byte boundary - DUMPBITS(t) - s->mode = IBM_LENS; // get length of stored block - break; - case 1: // fixed - LuTracev((stderr, "inflate: fixed codes block%s\n", - s->last ? " (last)" : "")); - { - uInt bl, bd; - const inflate_huft *tl, *td; - - inflate_trees_fixed(&bl, &bd, &tl, &td, z); - s->sub.decode.codes = inflate_codes_new(bl, bd, tl, td, z); - if (s->sub.decode.codes == Z_NULL) - { - r = Z_MEM_ERROR; - LEAVE - } - } - DUMPBITS(3) - s->mode = IBM_CODES; - break; - case 2: // dynamic - LuTracev((stderr, "inflate: dynamic codes block%s\n", - s->last ? " (last)" : "")); - DUMPBITS(3) - s->mode = IBM_TABLE; - break; - case 3: // illegal - DUMPBITS(3) - s->mode = IBM_BAD; - z->msg = (char*)"invalid block type"; - r = Z_DATA_ERROR; - LEAVE - } - break; - case IBM_LENS: - NEEDBITS(32) - if ((((~b) >> 16) & 0xffff) != (b & 0xffff)) - { - s->mode = IBM_BAD; - z->msg = (char*)"invalid stored block lengths"; - r = Z_DATA_ERROR; - LEAVE - } - s->sub.left = (uInt)b & 0xffff; - b = k = 0; // dump bits - LuTracev((stderr, "inflate: stored length %u\n", s->sub.left)); - s->mode = s->sub.left ? IBM_STORED : (s->last ? IBM_DRY : IBM_TYPE); - break; - case IBM_STORED: - if (n == 0) - LEAVE - NEEDOUT - t = s->sub.left; - if (t > n) t = n; - if (t > m) t = m; - memcpy(q, p, t); - p += t; n -= t; - q += t; m -= t; - if ((s->sub.left -= t) != 0) - break; - LuTracev((stderr, "inflate: stored end, %lu total out\n", - z->total_out + (q >= s->read ? q - s->read : - (s->end - s->read) + (q - s->window)))); - s->mode = s->last ? IBM_DRY : IBM_TYPE; - break; - case IBM_TABLE: - NEEDBITS(14) - s->sub.trees.table = t = (uInt)b & 0x3fff; - // remove this section to workaround bug in pkzip - if ((t & 0x1f) > 29 || ((t >> 5) & 0x1f) > 29) - { - s->mode = IBM_BAD; - z->msg = (char*)"too many length or distance symbols"; - r = Z_DATA_ERROR; - LEAVE - } - // end remove - t = 258 + (t & 0x1f) + ((t >> 5) & 0x1f); - if ((s->sub.trees.blens = (uInt*)ZALLOC(z, t, sizeof(uInt))) == Z_NULL) - { - r = Z_MEM_ERROR; - LEAVE - } - DUMPBITS(14) - s->sub.trees.index = 0; - LuTracev((stderr, "inflate: table sizes ok\n")); - s->mode = IBM_BTREE; - case IBM_BTREE: - while (s->sub.trees.index < 4 + (s->sub.trees.table >> 10)) - { - NEEDBITS(3) - s->sub.trees.blens[border[s->sub.trees.index++]] = (uInt)b & 7; - DUMPBITS(3) - } - while (s->sub.trees.index < 19) - s->sub.trees.blens[border[s->sub.trees.index++]] = 0; - s->sub.trees.bb = 7; - t = inflate_trees_bits(s->sub.trees.blens, &s->sub.trees.bb, - &s->sub.trees.tb, s->hufts, z); - if (t != Z_OK) - { - r = t; - if (r == Z_DATA_ERROR) - { - ZFREE(z, s->sub.trees.blens); - s->mode = IBM_BAD; - } - LEAVE - } - s->sub.trees.index = 0; - LuTracev((stderr, "inflate: bits tree ok\n")); - s->mode = IBM_DTREE; - case IBM_DTREE: - while (t = s->sub.trees.table, - s->sub.trees.index < 258 + (t & 0x1f) + ((t >> 5) & 0x1f)) - { - inflate_huft *h; - uInt i, j, c; - - t = s->sub.trees.bb; - NEEDBITS(t) - h = s->sub.trees.tb + ((uInt)b & inflate_mask[t]); - t = h->bits; - c = h->base; - if (c < 16) - { - DUMPBITS(t) - s->sub.trees.blens[s->sub.trees.index++] = c; - } - else // c == 16..18 - { - i = c == 18 ? 7 : c - 14; - j = c == 18 ? 11 : 3; - NEEDBITS(t + i) - DUMPBITS(t) - j += (uInt)b & inflate_mask[i]; - DUMPBITS(i) - i = s->sub.trees.index; - t = s->sub.trees.table; - if (i + j > 258 + (t & 0x1f) + ((t >> 5) & 0x1f) || - (c == 16 && i < 1)) - { - ZFREE(z, s->sub.trees.blens); - s->mode = IBM_BAD; - z->msg = (char*)"invalid bit length repeat"; - r = Z_DATA_ERROR; - LEAVE - } - c = c == 16 ? s->sub.trees.blens[i - 1] : 0; - do { - s->sub.trees.blens[i++] = c; - } while (--j); - s->sub.trees.index = i; - } - } - s->sub.trees.tb = Z_NULL; - { - uInt bl, bd; - inflate_huft *tl, *td; - inflate_codes_statef *c; - - bl = 9; // must be <= 9 for lookahead assumptions - bd = 6; // must be <= 9 for lookahead assumptions - t = s->sub.trees.table; - t = inflate_trees_dynamic(257 + (t & 0x1f), 1 + ((t >> 5) & 0x1f), - s->sub.trees.blens, &bl, &bd, &tl, &td, - s->hufts, z); - if (t != Z_OK) - { - if (t == (uInt)Z_DATA_ERROR) - { - ZFREE(z, s->sub.trees.blens); - s->mode = IBM_BAD; - } - r = t; - LEAVE - } - LuTracev((stderr, "inflate: trees ok\n")); - if ((c = inflate_codes_new(bl, bd, tl, td, z)) == Z_NULL) - { - r = Z_MEM_ERROR; - LEAVE - } - s->sub.decode.codes = c; - } - ZFREE(z, s->sub.trees.blens); - s->mode = IBM_CODES; - case IBM_CODES: - UPDATE - if ((r = inflate_codes(s, z, r)) != Z_STREAM_END) - return inflate_flush(s, z, r); - r = Z_OK; - inflate_codes_free(s->sub.decode.codes, z); - LOAD - LuTracev((stderr, "inflate: codes end, %lu total out\n", - z->total_out + (q >= s->read ? q - s->read : - (s->end - s->read) + (q - s->window)))); - if (!s->last) - { - s->mode = IBM_TYPE; - break; - } - s->mode = IBM_DRY; - case IBM_DRY: - FLUSH - if (s->read != s->write) - LEAVE - s->mode = IBM_DONE; - case IBM_DONE: - r = Z_STREAM_END; - LEAVE - case IBM_BAD: - r = Z_DATA_ERROR; - LEAVE - default: - r = Z_STREAM_ERROR; - LEAVE - } -} - - -int inflate_blocks_free(inflate_blocks_statef *s, z_streamp z) -{ - inflate_blocks_reset(s, z, Z_NULL); - ZFREE(z, s->window); - ZFREE(z, s->hufts); - ZFREE(z, s); - LuTracev((stderr, "inflate: blocks freed\n")); - return Z_OK; -} - - - -// inftrees.c -- generate Huffman trees for efficient decoding -// Copyright (C) 1995-1998 Mark Adler -// For conditions of distribution and use, see copyright notice in zlib.h -// - - - -extern const char inflate_copyright[] = - " inflate 1.1.3 Copyright 1995-1998 Mark Adler "; -// If you use the zlib library in a product, an acknowledgment is welcome -// in the documentation of your product. If for some reason you cannot -// include such an acknowledgment, I would appreciate that you keep this -// copyright string in the executable of your product. - - - -int huft_build ( - uInt *, // code lengths in bits - uInt, // number of codes - uInt, // number of "simple" codes - const uInt *, // list of base values for non-simple codes - const uInt *, // list of extra bits for non-simple codes - inflate_huft **,// result: starting table - uInt *, // maximum lookup bits (returns actual) - inflate_huft *, // space for trees - uInt *, // hufts used in space - uInt * ); // space for values - -// Tables for deflate from PKZIP's appnote.txt. -const uInt cplens[31] = { // Copy lengths for literal codes 257..285 - 3, 4, 5, 6, 7, 8, 9, 10, 11, 13, 15, 17, 19, 23, 27, 31, - 35, 43, 51, 59, 67, 83, 99, 115, 131, 163, 195, 227, 258, 0, 0}; - // see note #13 above about 258 -const uInt cplext[31] = { // Extra bits for literal codes 257..285 - 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 2, 2, 2, 2, - 3, 3, 3, 3, 4, 4, 4, 4, 5, 5, 5, 5, 0, 112, 112}; // 112==invalid -const uInt cpdist[30] = { // Copy offsets for distance codes 0..29 - 1, 2, 3, 4, 5, 7, 9, 13, 17, 25, 33, 49, 65, 97, 129, 193, - 257, 385, 513, 769, 1025, 1537, 2049, 3073, 4097, 6145, - 8193, 12289, 16385, 24577}; -const uInt cpdext[30] = { // Extra bits for distance codes - 0, 0, 0, 0, 1, 1, 2, 2, 3, 3, 4, 4, 5, 5, 6, 6, - 7, 7, 8, 8, 9, 9, 10, 10, 11, 11, - 12, 12, 13, 13}; - -// -// Huffman code decoding is performed using a multi-level table lookup. -// The fastest way to decode is to simply build a lookup table whose -// size is determined by the longest code. However, the time it takes -// to build this table can also be a factor if the data being decoded -// is not very long. The most common codes are necessarily the -// shortest codes, so those codes dominate the decoding time, and hence -// the speed. The idea is you can have a shorter table that decodes the -// shorter, more probable codes, and then point to subsidiary tables for -// the longer codes. The time it costs to decode the longer codes is -// then traded against the time it takes to make longer tables. -// -// This results of this trade are in the variables lbits and dbits -// below. lbits is the number of bits the first level table for literal/ -// length codes can decode in one step, and dbits is the same thing for -// the distance codes. Subsequent tables are also less than or equal to -// those sizes. These values may be adjusted either when all of the -// codes are shorter than that, in which case the longest code length in -// bits is used, or when the shortest code is *longer* than the requested -// table size, in which case the length of the shortest code in bits is -// used. -// -// There are two different values for the two tables, since they code a -// different number of possibilities each. The literal/length table -// codes 286 possible values, or in a flat code, a little over eight -// bits. The distance table codes 30 possible values, or a little less -// than five bits, flat. The optimum values for speed end up being -// about one bit more than those, so lbits is 8+1 and dbits is 5+1. -// The optimum values may differ though from machine to machine, and -// possibly even between compilers. Your mileage may vary. -// - - -// If BMAX needs to be larger than 16, then h and x[] should be uLong. -#define BMAX 15 // maximum bit length of any code - -int huft_build( -uInt *b, // code lengths in bits (all assumed <= BMAX) -uInt n, // number of codes (assumed <= 288) -uInt s, // number of simple-valued codes (0..s-1) -const uInt *d, // list of base values for non-simple codes -const uInt *e, // list of extra bits for non-simple codes -inflate_huft * *t, // result: starting table -uInt *m, // maximum lookup bits, returns actual -inflate_huft *hp, // space for trees -uInt *hn, // hufts used in space -uInt *v) // working area: values in order of bit length -// Given a list of code lengths and a maximum table size, make a set of -// tables to decode that set of codes. Return Z_OK on success, Z_BUF_ERROR -// if the given code set is incomplete (the tables are still built in this -// case), or Z_DATA_ERROR if the input is invalid. -{ - - uInt a; // counter for codes of length k - uInt c[BMAX+1]; // bit length count table - uInt f; // i repeats in table every f entries - int g; // maximum code length - int h; // table level - register uInt i; // counter, current code - register uInt j; // counter - register int k; // number of bits in current code - int l; // bits per table (returned in m) - uInt mask; // (1 << w) - 1, to avoid cc -O bug on HP - register uInt *p; // pointer into c[], b[], or v[] - inflate_huft *q; // points to current table - struct inflate_huft_s r; // table entry for structure assignment - inflate_huft *u[BMAX]; // table stack - register int w; // bits before this table == (l * h) - uInt x[BMAX+1]; // bit offsets, then code stack - uInt *xp; // pointer into x - int y; // number of dummy codes added - uInt z; // number of entries in current table - - - // Generate counts for each bit length - p = c; -#define C0 *p++ = 0; -#define C2 C0 C0 C0 C0 -#define C4 C2 C2 C2 C2 - C4; p; // clear c[]--assume BMAX+1 is 16 - p = b; i = n; - do { - c[*p++]++; // assume all entries <= BMAX - } while (--i); - if (c[0] == n) // null input--all zero length codes - { - *t = (inflate_huft *)Z_NULL; - *m = 0; - return Z_OK; - } - - - // Find minimum and maximum length, bound *m by those - l = *m; - for (j = 1; j <= BMAX; j++) - if (c[j]) - break; - k = j; // minimum code length - if ((uInt)l < j) - l = j; - for (i = BMAX; i; i--) - if (c[i]) - break; - g = i; // maximum code length - if ((uInt)l > i) - l = i; - *m = l; - - - // Adjust last length count to fill out codes, if needed - for (y = 1 << j; j < i; j++, y <<= 1) - if ((y -= c[j]) < 0) - return Z_DATA_ERROR; - if ((y -= c[i]) < 0) - return Z_DATA_ERROR; - c[i] += y; - - - // Generate starting offsets into the value table for each length - x[1] = j = 0; - p = c + 1; xp = x + 2; - while (--i) { // note that i == g from above - *xp++ = (j += *p++); - } - - - // Make a table of values in order of bit lengths - p = b; i = 0; - do { - if ((j = *p++) != 0) - v[x[j]++] = i; - } while (++i < n); - n = x[g]; // set n to length of v - - - // Generate the Huffman codes and for each, make the table entries - x[0] = i = 0; // first Huffman code is zero - p = v; // grab values in bit order - h = -1; // no tables yet--level -1 - w = -l; // bits decoded == (l * h) - u[0] = (inflate_huft *)Z_NULL; // just to keep compilers happy - q = (inflate_huft *)Z_NULL; // ditto - z = 0; // ditto - - // go through the bit lengths (k already is bits in shortest code) - for (; k <= g; k++) - { - a = c[k]; - while (a--) - { - // here i is the Huffman code of length k bits for value *p - // make tables up to required level - while (k > w + l) - { - h++; - w += l; // previous table always l bits - - // compute minimum size table less than or equal to l bits - z = g - w; - z = z > (uInt)l ? l : z; // table size upper limit - if ((f = 1 << (j = k - w)) > a + 1) // try a k-w bit table - { // too few codes for k-w bit table - f -= a + 1; // deduct codes from patterns left - xp = c + k; - if (j < z) - while (++j < z) // try smaller tables up to z bits - { - if ((f <<= 1) <= *++xp) - break; // enough codes to use up j bits - f -= *xp; // else deduct codes from patterns - } - } - z = 1 << j; // table entries for j-bit table - - // allocate new table - if (*hn + z > MANY) // (note: doesn't matter for fixed) - return Z_DATA_ERROR; // overflow of MANY - u[h] = q = hp + *hn; - *hn += z; - - // connect to last table, if there is one - if (h) - { - x[h] = i; // save pattern for backing up - r.bits = (Byte)l; // bits to dump before this table - r.exop = (Byte)j; // bits in this table - j = i >> (w - l); - r.base = (uInt)(q - u[h-1] - j); // offset to this table - u[h-1][j] = r; // connect to last table - } - else - *t = q; // first table is returned result - } - - // set up table entry in r - r.bits = (Byte)(k - w); - if (p >= v + n) - r.exop = 128 + 64; // out of values--invalid code - else if (*p < s) - { - r.exop = (Byte)(*p < 256 ? 0 : 32 + 64); // 256 is end-of-block - r.base = *p++; // simple code is just the value - } - else - { - r.exop = (Byte)(e[*p - s] + 16 + 64);// non-simple--look up in lists - r.base = d[*p++ - s]; - } - - // fill code-like entries with r - f = 1 << (k - w); - for (j = i >> w; j < z; j += f) - q[j] = r; - - // backwards increment the k-bit code i - for (j = 1 << (k - 1); i & j; j >>= 1) - i ^= j; - i ^= j; - - // backup over finished tables - mask = (1 << w) - 1; // needed on HP, cc -O bug - while ((i & mask) != x[h]) - { - h--; // don't need to update q - w -= l; - mask = (1 << w) - 1; - } - } - } - - - // Return Z_BUF_ERROR if we were given an incomplete table - return y != 0 && g != 1 ? Z_BUF_ERROR : Z_OK; -} - - -int inflate_trees_bits( -uInt *c, // 19 code lengths -uInt *bb, // bits tree desired/actual depth -inflate_huft * *tb, // bits tree result -inflate_huft *hp, // space for trees -z_streamp z) // for messages -{ - int r; - uInt hn = 0; // hufts used in space - uInt *v; // work area for huft_build - - if ((v = (uInt*)ZALLOC(z, 19, sizeof(uInt))) == Z_NULL) - return Z_MEM_ERROR; - r = huft_build(c, 19, 19, (uInt*)Z_NULL, (uInt*)Z_NULL, - tb, bb, hp, &hn, v); - if (r == Z_DATA_ERROR) - z->msg = (char*)"oversubscribed dynamic bit lengths tree"; - else if (r == Z_BUF_ERROR || *bb == 0) - { - z->msg = (char*)"incomplete dynamic bit lengths tree"; - r = Z_DATA_ERROR; - } - ZFREE(z, v); - return r; -} - - -int inflate_trees_dynamic( -uInt nl, // number of literal/length codes -uInt nd, // number of distance codes -uInt *c, // that many (total) code lengths -uInt *bl, // literal desired/actual bit depth -uInt *bd, // distance desired/actual bit depth -inflate_huft * *tl, // literal/length tree result -inflate_huft * *td, // distance tree result -inflate_huft *hp, // space for trees -z_streamp z) // for messages -{ - int r; - uInt hn = 0; // hufts used in space - uInt *v; // work area for huft_build - - // allocate work area - if ((v = (uInt*)ZALLOC(z, 288, sizeof(uInt))) == Z_NULL) - return Z_MEM_ERROR; - - // build literal/length tree - r = huft_build(c, nl, 257, cplens, cplext, tl, bl, hp, &hn, v); - if (r != Z_OK || *bl == 0) - { - if (r == Z_DATA_ERROR) - z->msg = (char*)"oversubscribed literal/length tree"; - else if (r != Z_MEM_ERROR) - { - z->msg = (char*)"incomplete literal/length tree"; - r = Z_DATA_ERROR; - } - ZFREE(z, v); - return r; - } - - // build distance tree - r = huft_build(c + nl, nd, 0, cpdist, cpdext, td, bd, hp, &hn, v); - if (r != Z_OK || (*bd == 0 && nl > 257)) - { - if (r == Z_DATA_ERROR) - z->msg = (char*)"oversubscribed distance tree"; - else if (r == Z_BUF_ERROR) { - z->msg = (char*)"incomplete distance tree"; - r = Z_DATA_ERROR; - } - else if (r != Z_MEM_ERROR) - { - z->msg = (char*)"empty distance tree with lengths"; - r = Z_DATA_ERROR; - } - ZFREE(z, v); - return r; - } - - // done - ZFREE(z, v); - return Z_OK; -} - - - - - -int inflate_trees_fixed( -uInt *bl, // literal desired/actual bit depth -uInt *bd, // distance desired/actual bit depth -const inflate_huft * * tl, // literal/length tree result -const inflate_huft * *td, // distance tree result -z_streamp ) // for memory allocation -{ - *bl = fixed_bl; - *bd = fixed_bd; - *tl = fixed_tl; - *td = fixed_td; - return Z_OK; -} - - -// inffast.c -- process literals and length/distance pairs fast -// Copyright (C) 1995-1998 Mark Adler -// For conditions of distribution and use, see copyright notice in zlib.h -// - - -//struct inflate_codes_state {int dummy;}; // for buggy compilers - - -// macros for bit input with no checking and for returning unused bytes -#define GRABBITS(j) {while(k<(j)){b|=((uLong)NEXTBYTE)<avail_in-n;c=(k>>3)>3:c;n+=c;p-=c;k-=c<<3;} - -// Called with number of bytes left to write in window at least 258 -// (the maximum string length) and number of input bytes available -// at least ten. The ten bytes are six bytes for the longest length/ -// distance pair plus four bytes for overloading the bit buffer. - -int inflate_fast( -uInt bl, uInt bd, -const inflate_huft *tl, -const inflate_huft *td, // need separate declaration for Borland C++ -inflate_blocks_statef *s, -z_streamp z) -{ - const inflate_huft *t; // temporary pointer - uInt e; // extra bits or operation - uLong b; // bit buffer - uInt k; // bits in bit buffer - Byte *p; // input data pointer - uInt n; // bytes available there - Byte *q; // output window write pointer - uInt m; // bytes to end of window or read pointer - uInt ml; // mask for literal/length tree - uInt md; // mask for distance tree - uInt c; // bytes to copy - uInt d; // distance back to copy from - Byte *r; // copy source pointer - - // load input, output, bit values - LOAD - - // initialize masks - ml = inflate_mask[bl]; - md = inflate_mask[bd]; - - // do until not enough input or output space for fast loop - do { // assume called with m >= 258 && n >= 10 - // get literal/length code - GRABBITS(20) // max bits for literal/length code - if ((e = (t = tl + ((uInt)b & ml))->exop) == 0) - { - DUMPBITS(t->bits) - LuTracevv((stderr, t->base >= 0x20 && t->base < 0x7f ? - "inflate: * literal '%c'\n" : - "inflate: * literal 0x%02x\n", t->base)); - *q++ = (Byte)t->base; - m--; - continue; - } - for (;;) { - DUMPBITS(t->bits) - if (e & 16) - { - // get extra bits for length - e &= 15; - c = t->base + ((uInt)b & inflate_mask[e]); - DUMPBITS(e) - LuTracevv((stderr, "inflate: * length %u\n", c)); - - // decode distance base of block to copy - GRABBITS(15); // max bits for distance code - e = (t = td + ((uInt)b & md))->exop; - for (;;) { - DUMPBITS(t->bits) - if (e & 16) - { - // get extra bits to add to distance base - e &= 15; - GRABBITS(e) // get extra bits (up to 13) - d = t->base + ((uInt)b & inflate_mask[e]); - DUMPBITS(e) - LuTracevv((stderr, "inflate: * distance %u\n", d)); - - // do the copy - m -= c; - r = q - d; - if (r < s->window) // wrap if needed - { - do { - r += s->end - s->window; // force pointer in window - } while (r < s->window); // covers invalid distances - e = (uInt) (s->end - r); - if (c > e) - { - c -= e; // wrapped copy - do { - *q++ = *r++; - } while (--e); - r = s->window; - do { - *q++ = *r++; - } while (--c); - } - else // normal copy - { - *q++ = *r++; c--; - *q++ = *r++; c--; - do { - *q++ = *r++; - } while (--c); - } - } - else /* normal copy */ - { - *q++ = *r++; c--; - *q++ = *r++; c--; - do { - *q++ = *r++; - } while (--c); - } - break; - } - else if ((e & 64) == 0) - { - t += t->base; - e = (t += ((uInt)b & inflate_mask[e]))->exop; - } - else - { - z->msg = (char*)"invalid distance code"; - UNGRAB - UPDATE - return Z_DATA_ERROR; - } - }; - break; - } - if ((e & 64) == 0) - { - t += t->base; - if ((e = (t += ((uInt)b & inflate_mask[e]))->exop) == 0) - { - DUMPBITS(t->bits) - LuTracevv((stderr, t->base >= 0x20 && t->base < 0x7f ? - "inflate: * literal '%c'\n" : - "inflate: * literal 0x%02x\n", t->base)); - *q++ = (Byte)t->base; - m--; - break; - } - } - else if (e & 32) - { - LuTracevv((stderr, "inflate: * end of block\n")); - UNGRAB - UPDATE - return Z_STREAM_END; - } - else - { - z->msg = (char*)"invalid literal/length code"; - UNGRAB - UPDATE - return Z_DATA_ERROR; - } - }; - } while (m >= 258 && n >= 10); - - // not enough input or output--restore pointers and return - UNGRAB - UPDATE - return Z_OK; -} - - - - - - -// crc32.c -- compute the CRC-32 of a data stream -// Copyright (C) 1995-1998 Mark Adler -// For conditions of distribution and use, see copyright notice in zlib.h - -// @(#) $Id$ - - - - - - -// Table of CRC-32's of all single-byte values (made by make_crc_table) -const uLong crc_table[256] = { - 0x00000000L, 0x77073096L, 0xee0e612cL, 0x990951baL, 0x076dc419L, - 0x706af48fL, 0xe963a535L, 0x9e6495a3L, 0x0edb8832L, 0x79dcb8a4L, - 0xe0d5e91eL, 0x97d2d988L, 0x09b64c2bL, 0x7eb17cbdL, 0xe7b82d07L, - 0x90bf1d91L, 0x1db71064L, 0x6ab020f2L, 0xf3b97148L, 0x84be41deL, - 0x1adad47dL, 0x6ddde4ebL, 0xf4d4b551L, 0x83d385c7L, 0x136c9856L, - 0x646ba8c0L, 0xfd62f97aL, 0x8a65c9ecL, 0x14015c4fL, 0x63066cd9L, - 0xfa0f3d63L, 0x8d080df5L, 0x3b6e20c8L, 0x4c69105eL, 0xd56041e4L, - 0xa2677172L, 0x3c03e4d1L, 0x4b04d447L, 0xd20d85fdL, 0xa50ab56bL, - 0x35b5a8faL, 0x42b2986cL, 0xdbbbc9d6L, 0xacbcf940L, 0x32d86ce3L, - 0x45df5c75L, 0xdcd60dcfL, 0xabd13d59L, 0x26d930acL, 0x51de003aL, - 0xc8d75180L, 0xbfd06116L, 0x21b4f4b5L, 0x56b3c423L, 0xcfba9599L, - 0xb8bda50fL, 0x2802b89eL, 0x5f058808L, 0xc60cd9b2L, 0xb10be924L, - 0x2f6f7c87L, 0x58684c11L, 0xc1611dabL, 0xb6662d3dL, 0x76dc4190L, - 0x01db7106L, 0x98d220bcL, 0xefd5102aL, 0x71b18589L, 0x06b6b51fL, - 0x9fbfe4a5L, 0xe8b8d433L, 0x7807c9a2L, 0x0f00f934L, 0x9609a88eL, - 0xe10e9818L, 0x7f6a0dbbL, 0x086d3d2dL, 0x91646c97L, 0xe6635c01L, - 0x6b6b51f4L, 0x1c6c6162L, 0x856530d8L, 0xf262004eL, 0x6c0695edL, - 0x1b01a57bL, 0x8208f4c1L, 0xf50fc457L, 0x65b0d9c6L, 0x12b7e950L, - 0x8bbeb8eaL, 0xfcb9887cL, 0x62dd1ddfL, 0x15da2d49L, 0x8cd37cf3L, - 0xfbd44c65L, 0x4db26158L, 0x3ab551ceL, 0xa3bc0074L, 0xd4bb30e2L, - 0x4adfa541L, 0x3dd895d7L, 0xa4d1c46dL, 0xd3d6f4fbL, 0x4369e96aL, - 0x346ed9fcL, 0xad678846L, 0xda60b8d0L, 0x44042d73L, 0x33031de5L, - 0xaa0a4c5fL, 0xdd0d7cc9L, 0x5005713cL, 0x270241aaL, 0xbe0b1010L, - 0xc90c2086L, 0x5768b525L, 0x206f85b3L, 0xb966d409L, 0xce61e49fL, - 0x5edef90eL, 0x29d9c998L, 0xb0d09822L, 0xc7d7a8b4L, 0x59b33d17L, - 0x2eb40d81L, 0xb7bd5c3bL, 0xc0ba6cadL, 0xedb88320L, 0x9abfb3b6L, - 0x03b6e20cL, 0x74b1d29aL, 0xead54739L, 0x9dd277afL, 0x04db2615L, - 0x73dc1683L, 0xe3630b12L, 0x94643b84L, 0x0d6d6a3eL, 0x7a6a5aa8L, - 0xe40ecf0bL, 0x9309ff9dL, 0x0a00ae27L, 0x7d079eb1L, 0xf00f9344L, - 0x8708a3d2L, 0x1e01f268L, 0x6906c2feL, 0xf762575dL, 0x806567cbL, - 0x196c3671L, 0x6e6b06e7L, 0xfed41b76L, 0x89d32be0L, 0x10da7a5aL, - 0x67dd4accL, 0xf9b9df6fL, 0x8ebeeff9L, 0x17b7be43L, 0x60b08ed5L, - 0xd6d6a3e8L, 0xa1d1937eL, 0x38d8c2c4L, 0x4fdff252L, 0xd1bb67f1L, - 0xa6bc5767L, 0x3fb506ddL, 0x48b2364bL, 0xd80d2bdaL, 0xaf0a1b4cL, - 0x36034af6L, 0x41047a60L, 0xdf60efc3L, 0xa867df55L, 0x316e8eefL, - 0x4669be79L, 0xcb61b38cL, 0xbc66831aL, 0x256fd2a0L, 0x5268e236L, - 0xcc0c7795L, 0xbb0b4703L, 0x220216b9L, 0x5505262fL, 0xc5ba3bbeL, - 0xb2bd0b28L, 0x2bb45a92L, 0x5cb36a04L, 0xc2d7ffa7L, 0xb5d0cf31L, - 0x2cd99e8bL, 0x5bdeae1dL, 0x9b64c2b0L, 0xec63f226L, 0x756aa39cL, - 0x026d930aL, 0x9c0906a9L, 0xeb0e363fL, 0x72076785L, 0x05005713L, - 0x95bf4a82L, 0xe2b87a14L, 0x7bb12baeL, 0x0cb61b38L, 0x92d28e9bL, - 0xe5d5be0dL, 0x7cdcefb7L, 0x0bdbdf21L, 0x86d3d2d4L, 0xf1d4e242L, - 0x68ddb3f8L, 0x1fda836eL, 0x81be16cdL, 0xf6b9265bL, 0x6fb077e1L, - 0x18b74777L, 0x88085ae6L, 0xff0f6a70L, 0x66063bcaL, 0x11010b5cL, - 0x8f659effL, 0xf862ae69L, 0x616bffd3L, 0x166ccf45L, 0xa00ae278L, - 0xd70dd2eeL, 0x4e048354L, 0x3903b3c2L, 0xa7672661L, 0xd06016f7L, - 0x4969474dL, 0x3e6e77dbL, 0xaed16a4aL, 0xd9d65adcL, 0x40df0b66L, - 0x37d83bf0L, 0xa9bcae53L, 0xdebb9ec5L, 0x47b2cf7fL, 0x30b5ffe9L, - 0xbdbdf21cL, 0xcabac28aL, 0x53b39330L, 0x24b4a3a6L, 0xbad03605L, - 0xcdd70693L, 0x54de5729L, 0x23d967bfL, 0xb3667a2eL, 0xc4614ab8L, - 0x5d681b02L, 0x2a6f2b94L, 0xb40bbe37L, 0xc30c8ea1L, 0x5a05df1bL, - 0x2d02ef8dL -}; - -const uLong * get_crc_table() -{ return (const uLong *)crc_table; -} - -#define CRC_DO1(buf) crc = crc_table[((int)crc ^ (*buf++)) & 0xff] ^ (crc >> 8); -#define CRC_DO2(buf) CRC_DO1(buf); CRC_DO1(buf); -#define CRC_DO4(buf) CRC_DO2(buf); CRC_DO2(buf); -#define CRC_DO8(buf) CRC_DO4(buf); CRC_DO4(buf); - -uLong ucrc32(uLong crc, const Byte *buf, uInt len) -{ if (buf == Z_NULL) return 0L; - crc = crc ^ 0xffffffffL; - while (len >= 8) {CRC_DO8(buf); len -= 8;} - if (len) do {CRC_DO1(buf);} while (--len); - return crc ^ 0xffffffffL; -} - - - -// ============================================================= -// some decryption routines -#define CRC32(c, b) (crc_table[((int)(c)^(b))&0xff]^((c)>>8)) -void Uupdate_keys(unsigned long *keys, char c) -{ keys[0] = CRC32(keys[0],c); - keys[1] += keys[0] & 0xFF; - keys[1] = keys[1]*134775813L +1; - keys[2] = CRC32(keys[2], keys[1] >> 24); -} -char Udecrypt_byte(unsigned long *keys) -{ unsigned temp = ((unsigned)keys[2] & 0xffff) | 2; - return (char)(((temp * (temp ^ 1)) >> 8) & 0xff); -} -char zdecode(unsigned long *keys, char c) -{ c^=Udecrypt_byte(keys); - Uupdate_keys(keys,c); - return c; -} - - - -// adler32.c -- compute the Adler-32 checksum of a data stream -// Copyright (C) 1995-1998 Mark Adler -// For conditions of distribution and use, see copyright notice in zlib.h - -// @(#) $Id$ - - -#define BASE 65521L // largest prime smaller than 65536 -#define NMAX 5552 -// NMAX is the largest n such that 255n(n+1)/2 + (n+1)(BASE-1) <= 2^32-1 - -#define AD_DO1(buf,i) {s1 += buf[i]; s2 += s1;} -#define AD_DO2(buf,i) AD_DO1(buf,i); AD_DO1(buf,i+1); -#define AD_DO4(buf,i) AD_DO2(buf,i); AD_DO2(buf,i+2); -#define AD_DO8(buf,i) AD_DO4(buf,i); AD_DO4(buf,i+4); -#define AD_DO16(buf) AD_DO8(buf,0); AD_DO8(buf,8); - -// ========================================================================= -uLong adler32(uLong adler, const Byte *buf, uInt len) -{ - unsigned long s1 = adler & 0xffff; - unsigned long s2 = (adler >> 16) & 0xffff; - int k; - - if (buf == Z_NULL) return 1L; - - while (len > 0) { - k = len < NMAX ? len : NMAX; - len -= k; - while (k >= 16) { - AD_DO16(buf); - buf += 16; - k -= 16; - } - if (k != 0) do { - s1 += *buf++; - s2 += s1; - } while (--k); - s1 %= BASE; - s2 %= BASE; - } - return (s2 << 16) | s1; -} - - - -// zutil.c -- target dependent utility functions for the compression library -// Copyright (C) 1995-1998 Jean-loup Gailly. -// For conditions of distribution and use, see copyright notice in zlib.h -// @(#) $Id$ - - - - - - -const char * zlibVersion() -{ - return ZLIB_VERSION; -} - -// exported to allow conversion of error code to string for compress() and -// uncompress() -const char * zError(int err) -{ return ERR_MSG(err); -} - - - - -voidpf zcalloc (voidpf opaque, unsigned items, unsigned size) -{ - if (opaque) items += size - size; // make compiler happy - return (voidpf)calloc(items, size); -} - -void zcfree (voidpf opaque, voidpf ptr) -{ - zfree(ptr); - if (opaque) return; // make compiler happy -} - - - -// inflate.c -- zlib interface to inflate modules -// Copyright (C) 1995-1998 Mark Adler -// For conditions of distribution and use, see copyright notice in zlib.h - -//struct inflate_blocks_state {int dummy;}; // for buggy compilers - -typedef enum { - IM_METHOD, // waiting for method byte - IM_FLAG, // waiting for flag byte - IM_DICT4, // four dictionary check bytes to go - IM_DICT3, // three dictionary check bytes to go - IM_DICT2, // two dictionary check bytes to go - IM_DICT1, // one dictionary check byte to go - IM_DICT0, // waiting for inflateSetDictionary - IM_BLOCKS, // decompressing blocks - IM_CHECK4, // four check bytes to go - IM_CHECK3, // three check bytes to go - IM_CHECK2, // two check bytes to go - IM_CHECK1, // one check byte to go - IM_DONE, // finished check, done - IM_BAD} // got an error--stay here -inflate_mode; - -// inflate private state -struct internal_state { - - // mode - inflate_mode mode; // current inflate mode - - // mode dependent information - union { - uInt method; // if IM_FLAGS, method byte - struct { - uLong was; // computed check value - uLong need; // stream check value - } check; // if CHECK, check values to compare - uInt marker; // if IM_BAD, inflateSync's marker bytes count - } sub; // submode - - // mode independent information - int nowrap; // flag for no wrapper - uInt wbits; // log2(window size) (8..15, defaults to 15) - inflate_blocks_statef - *blocks; // current inflate_blocks state - -}; - -int inflateReset(z_streamp z) -{ - if (z == Z_NULL || z->state == Z_NULL) - return Z_STREAM_ERROR; - z->total_in = z->total_out = 0; - z->msg = Z_NULL; - z->state->mode = z->state->nowrap ? IM_BLOCKS : IM_METHOD; - inflate_blocks_reset(z->state->blocks, z, Z_NULL); - LuTracev((stderr, "inflate: reset\n")); - return Z_OK; -} - -int inflateEnd(z_streamp z) -{ - if (z == Z_NULL || z->state == Z_NULL || z->zfree == Z_NULL) - return Z_STREAM_ERROR; - if (z->state->blocks != Z_NULL) - inflate_blocks_free(z->state->blocks, z); - ZFREE(z, z->state); - z->state = Z_NULL; - LuTracev((stderr, "inflate: end\n")); - return Z_OK; -} - - -int inflateInit2(z_streamp z) -{ const char *version = ZLIB_VERSION; int stream_size = sizeof(z_stream); - if (version == Z_NULL || version[0] != ZLIB_VERSION[0] || stream_size != sizeof(z_stream)) return Z_VERSION_ERROR; - - int w = -15; // MAX_WBITS: 32K LZ77 window. - // Warning: reducing MAX_WBITS makes minigzip unable to extract .gz files created by gzip. - // The memory requirements for deflate are (in bytes): - // (1 << (windowBits+2)) + (1 << (memLevel+9)) - // that is: 128K for windowBits=15 + 128K for memLevel = 8 (default values) - // plus a few kilobytes for small objects. For example, if you want to reduce - // the default memory requirements from 256K to 128K, compile with - // make CFLAGS="-O -DMAX_WBITS=14 -DMAX_MEM_LEVEL=7" - // Of course this will generally degrade compression (there's no free lunch). - // - // The memory requirements for inflate are (in bytes) 1 << windowBits - // that is, 32K for windowBits=15 (default value) plus a few kilobytes - // for small objects. - - // initialize state - if (z == Z_NULL) return Z_STREAM_ERROR; - z->msg = Z_NULL; - if (z->zalloc == Z_NULL) - { - z->zalloc = zcalloc; - z->opaque = (voidpf)0; - } - if (z->zfree == Z_NULL) z->zfree = zcfree; - if ((z->state = (struct internal_state *) - ZALLOC(z,1,sizeof(struct internal_state))) == Z_NULL) - return Z_MEM_ERROR; - z->state->blocks = Z_NULL; - - // handle undocumented nowrap option (no zlib header or check) - z->state->nowrap = 0; - if (w < 0) - { - w = - w; - z->state->nowrap = 1; - } - - // set window size - if (w < 8 || w > 15) - { - inflateEnd(z); - return Z_STREAM_ERROR; - } - z->state->wbits = (uInt)w; - - // create inflate_blocks state - if ((z->state->blocks = - inflate_blocks_new(z, z->state->nowrap ? Z_NULL : adler32, (uInt)1 << w)) - == Z_NULL) - { - inflateEnd(z); - return Z_MEM_ERROR; - } - LuTracev((stderr, "inflate: allocated\n")); - - // reset state - inflateReset(z); - return Z_OK; -} - - - -#define IM_NEEDBYTE {if(z->avail_in==0)return r;r=f;} -#define IM_NEXTBYTE (z->avail_in--,z->total_in++,*z->next_in++) - -int inflate(z_streamp z, int f) -{ - int r; - uInt b; - - if (z == Z_NULL || z->state == Z_NULL || z->next_in == Z_NULL) - return Z_STREAM_ERROR; - f = f == Z_FINISH ? Z_BUF_ERROR : Z_OK; - r = Z_BUF_ERROR; - for (;;) switch (z->state->mode) - { - case IM_METHOD: - IM_NEEDBYTE - if (((z->state->sub.method = IM_NEXTBYTE) & 0xf) != Z_DEFLATED) - { - z->state->mode = IM_BAD; - z->msg = (char*)"unknown compression method"; - z->state->sub.marker = 5; // can't try inflateSync - break; - } - if ((z->state->sub.method >> 4) + 8 > z->state->wbits) - { - z->state->mode = IM_BAD; - z->msg = (char*)"invalid window size"; - z->state->sub.marker = 5; // can't try inflateSync - break; - } - z->state->mode = IM_FLAG; - case IM_FLAG: - IM_NEEDBYTE - b = IM_NEXTBYTE; - if (((z->state->sub.method << 8) + b) % 31) - { - z->state->mode = IM_BAD; - z->msg = (char*)"incorrect header check"; - z->state->sub.marker = 5; // can't try inflateSync - break; - } - LuTracev((stderr, "inflate: zlib header ok\n")); - if (!(b & PRESET_DICT)) - { - z->state->mode = IM_BLOCKS; - break; - } - z->state->mode = IM_DICT4; - case IM_DICT4: - IM_NEEDBYTE - z->state->sub.check.need = (uLong)IM_NEXTBYTE << 24; - z->state->mode = IM_DICT3; - case IM_DICT3: - IM_NEEDBYTE - z->state->sub.check.need += (uLong)IM_NEXTBYTE << 16; - z->state->mode = IM_DICT2; - case IM_DICT2: - IM_NEEDBYTE - z->state->sub.check.need += (uLong)IM_NEXTBYTE << 8; - z->state->mode = IM_DICT1; - case IM_DICT1: - IM_NEEDBYTE; r; - z->state->sub.check.need += (uLong)IM_NEXTBYTE; - z->adler = z->state->sub.check.need; - z->state->mode = IM_DICT0; - return Z_NEED_DICT; - case IM_DICT0: - z->state->mode = IM_BAD; - z->msg = (char*)"need dictionary"; - z->state->sub.marker = 0; // can try inflateSync - return Z_STREAM_ERROR; - case IM_BLOCKS: - r = inflate_blocks(z->state->blocks, z, r); - if (r == Z_DATA_ERROR) - { - z->state->mode = IM_BAD; - z->state->sub.marker = 0; // can try inflateSync - break; - } - if (r == Z_OK) - r = f; - if (r != Z_STREAM_END) - return r; - r = f; - inflate_blocks_reset(z->state->blocks, z, &z->state->sub.check.was); - if (z->state->nowrap) - { - z->state->mode = IM_DONE; - break; - } - z->state->mode = IM_CHECK4; - case IM_CHECK4: - IM_NEEDBYTE - z->state->sub.check.need = (uLong)IM_NEXTBYTE << 24; - z->state->mode = IM_CHECK3; - case IM_CHECK3: - IM_NEEDBYTE - z->state->sub.check.need += (uLong)IM_NEXTBYTE << 16; - z->state->mode = IM_CHECK2; - case IM_CHECK2: - IM_NEEDBYTE - z->state->sub.check.need += (uLong)IM_NEXTBYTE << 8; - z->state->mode = IM_CHECK1; - case IM_CHECK1: - IM_NEEDBYTE - z->state->sub.check.need += (uLong)IM_NEXTBYTE; - - if (z->state->sub.check.was != z->state->sub.check.need) - { - z->state->mode = IM_BAD; - z->msg = (char*)"incorrect data check"; - z->state->sub.marker = 5; // can't try inflateSync - break; - } - LuTracev((stderr, "inflate: zlib check ok\n")); - z->state->mode = IM_DONE; - case IM_DONE: - return Z_STREAM_END; - case IM_BAD: - return Z_DATA_ERROR; - default: - return Z_STREAM_ERROR; - } -} - - - - - -// unzip.c -- IO on .zip files using zlib -// Version 0.15 beta, Mar 19th, 1998, -// Read unzip.h for more info - - - - -#define UNZ_BUFSIZE (16384) -#define UNZ_MAXFILENAMEINZIP (256) -#define SIZECENTRALDIRITEM (0x2e) -#define SIZEZIPLOCALHEADER (0x1e) - - - - -const char unz_copyright[] = " unzip 0.15 Copyright 1998 Gilles Vollant "; - -// unz_file_info_interntal contain internal info about a file in zipfile -typedef struct unz_file_info_internal_s -{ - uLong offset_curfile;// relative offset of local header 4 bytes -} unz_file_info_internal; - - -typedef struct -{ bool is_handle; // either a handle or memory - bool canseek; - // for handles: - HANDLE h; bool herr; unsigned long initial_offset; bool mustclosehandle; - // for memory: - void *buf; unsigned int len,pos; // if it's a memory block -} LUFILE; - - -LUFILE *lufopen(void *z,unsigned int len,DWORD flags,ZRESULT *err) -{ if (flags!=ZIP_HANDLE && flags!=ZIP_FILENAME && flags!=ZIP_MEMORY) {*err=ZR_ARGS; return NULL;} - // - HANDLE h=0; bool canseek=false; *err=ZR_OK; - bool mustclosehandle=false; - if (flags==ZIP_HANDLE||flags==ZIP_FILENAME) - { if (flags==ZIP_HANDLE) - { HANDLE hf = z; - h=hf; mustclosehandle=false; -#ifdef DuplicateHandle - BOOL res = DuplicateHandle(GetCurrentProcess(),hf,GetCurrentProcess(),&h,0,FALSE,DUPLICATE_SAME_ACCESS); - if (!res) mustclosehandle=true; -#endif - } - else - { h=CreateFile((const TCHAR*)z,GENERIC_READ,FILE_SHARE_READ,NULL,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,NULL); - if (h==INVALID_HANDLE_VALUE) {*err=ZR_NOFILE; return NULL;} - mustclosehandle=true; - } - // test if we can seek on it. We can't use GetFileType(h)==FILE_TYPE_DISK since it's not on CE. - DWORD res = SetFilePointer(h,0,0,FILE_CURRENT); - canseek = (res!=0xFFFFFFFF); - } - LUFILE *lf = new LUFILE; - if (flags==ZIP_HANDLE||flags==ZIP_FILENAME) - { lf->is_handle=true; lf->mustclosehandle=mustclosehandle; - lf->canseek=canseek; - lf->h=h; lf->herr=false; - lf->initial_offset=0; - if (canseek) lf->initial_offset = SetFilePointer(h,0,NULL,FILE_CURRENT); - } - else - { lf->is_handle=false; - lf->canseek=true; - lf->mustclosehandle=false; - lf->buf=z; lf->len=len; lf->pos=0; lf->initial_offset=0; - } - *err=ZR_OK; - return lf; -} - - -int lufclose(LUFILE *stream) -{ if (stream==NULL) return EOF; - if (stream->mustclosehandle) CloseHandle(stream->h); - delete stream; - return 0; -} - -int luferror(LUFILE *stream) -{ if (stream->is_handle && stream->herr) return 1; - else return 0; -} - -long int luftell(LUFILE *stream) -{ if (stream->is_handle && stream->canseek) return SetFilePointer(stream->h,0,NULL,FILE_CURRENT)-stream->initial_offset; - else if (stream->is_handle) return 0; - else return stream->pos; -} - -int lufseek(LUFILE *stream, long offset, int whence) -{ if (stream->is_handle && stream->canseek) - { if (whence==SEEK_SET) SetFilePointer(stream->h,stream->initial_offset+offset,0,FILE_BEGIN); - else if (whence==SEEK_CUR) SetFilePointer(stream->h,offset,NULL,FILE_CURRENT); - else if (whence==SEEK_END) SetFilePointer(stream->h,offset,NULL,FILE_END); - else return 19; // EINVAL - return 0; - } - else if (stream->is_handle) return 29; // ESPIPE - else - { if (whence==SEEK_SET) stream->pos=offset; - else if (whence==SEEK_CUR) stream->pos+=offset; - else if (whence==SEEK_END) stream->pos=stream->len+offset; - return 0; - } -} - - -size_t lufread(void *ptr,size_t size,size_t n,LUFILE *stream) -{ unsigned int toread = (unsigned int)(size*n); - if (stream->is_handle) - { DWORD red; BOOL res = ReadFile(stream->h,ptr,toread,&red,NULL); - if (!res) stream->herr=true; - return red/size; - } - if (stream->pos+toread > stream->len) toread = stream->len-stream->pos; - memcpy(ptr, (char*)stream->buf + stream->pos, toread); DWORD red = toread; - stream->pos += red; - return red/size; -} - - - - -// file_in_zip_read_info_s contain internal information about a file in zipfile, -// when reading and decompress it -typedef struct -{ - char *read_buffer; // internal buffer for compressed data - z_stream stream; // zLib stream structure for inflate - - uLong pos_in_zipfile; // position in byte on the zipfile, for fseek - uLong stream_initialised; // flag set if stream structure is initialised - - uLong offset_local_extrafield;// offset of the local extra field - uInt size_local_extrafield;// size of the local extra field - uLong pos_local_extrafield; // position in the local extra field in read - - uLong crc32; // crc32 of all data uncompressed - uLong crc32_wait; // crc32 we must obtain after decompress all - uLong rest_read_compressed; // number of byte to be decompressed - uLong rest_read_uncompressed;//number of byte to be obtained after decomp - LUFILE* file; // io structore of the zipfile - uLong compression_method; // compression method (0==store) - uLong byte_before_the_zipfile;// byte before the zipfile, (>0 for sfx) - bool encrypted; // is it encrypted? - unsigned long keys[3]; // decryption keys, initialized by unzOpenCurrentFile - int encheadleft; // the first call(s) to unzReadCurrentFile will read this many encryption-header bytes first - char crcenctest; // if encrypted, we'll check the encryption buffer against this -} file_in_zip_read_info_s; - - -// unz_s contain internal information about the zipfile -typedef struct -{ - LUFILE* file; // io structore of the zipfile - unz_global_info gi; // public global information - uLong byte_before_the_zipfile;// byte before the zipfile, (>0 for sfx) - uLong num_file; // number of the current file in the zipfile - uLong pos_in_central_dir; // pos of the current file in the central dir - uLong current_file_ok; // flag about the usability of the current file - uLong central_pos; // position of the beginning of the central dir - - uLong size_central_dir; // size of the central directory - uLong offset_central_dir; // offset of start of central directory with respect to the starting disk number - - unz_file_info cur_file_info; // public info about the current file in zip - unz_file_info_internal cur_file_info_internal; // private info about it - file_in_zip_read_info_s* pfile_in_zip_read; // structure about the current file if we are decompressing it -} unz_s, *unzFile; - - -int unzStringFileNameCompare (const char* fileName1,const char* fileName2,int iCaseSensitivity); -// Compare two filename (fileName1,fileName2). - -z_off_t unztell (unzFile file); -// Give the current position in uncompressed data - -int unzeof (unzFile file); -// return 1 if the end of file was reached, 0 elsewhere - -int unzGetLocalExtrafield (unzFile file, voidp buf, unsigned len); -// Read extra field from the current file (opened by unzOpenCurrentFile) -// This is the local-header version of the extra field (sometimes, there is -// more info in the local-header version than in the central-header) -// -// if buf==NULL, it return the size of the local extra field -// -// if buf!=NULL, len is the size of the buffer, the extra header is copied in -// buf. -// the return value is the number of bytes copied in buf, or (if <0) -// the error code - - - -// =========================================================================== -// Read a byte from a gz_stream; update next_in and avail_in. Return EOF -// for end of file. -// IN assertion: the stream s has been sucessfully opened for reading. - -int unzlocal_getByte(LUFILE *fin,int *pi) -{ unsigned char c; - int err = (int)lufread(&c, 1, 1, fin); - if (err==1) - { *pi = (int)c; - return UNZ_OK; - } - else - { if (luferror(fin)) return UNZ_ERRNO; - else return UNZ_EOF; - } -} - - -// =========================================================================== -// Reads a long in LSB order from the given gz_stream. Sets -int unzlocal_getShort (LUFILE *fin,uLong *pX) -{ - uLong x ; - int i; - int err; - - err = unzlocal_getByte(fin,&i); - x = (uLong)i; - - if (err==UNZ_OK) - err = unzlocal_getByte(fin,&i); - x += ((uLong)i)<<8; - - if (err==UNZ_OK) - *pX = x; - else - *pX = 0; - return err; -} - -int unzlocal_getLong (LUFILE *fin,uLong *pX) -{ - uLong x ; - int i; - int err; - - err = unzlocal_getByte(fin,&i); - x = (uLong)i; - - if (err==UNZ_OK) - err = unzlocal_getByte(fin,&i); - x += ((uLong)i)<<8; - - if (err==UNZ_OK) - err = unzlocal_getByte(fin,&i); - x += ((uLong)i)<<16; - - if (err==UNZ_OK) - err = unzlocal_getByte(fin,&i); - x += ((uLong)i)<<24; - - if (err==UNZ_OK) - *pX = x; - else - *pX = 0; - return err; -} - - -// My own strcmpi / strcasecmp -int strcmpcasenosensitive_internal (const char* fileName1,const char *fileName2) -{ - for (;;) - { - char c1=*(fileName1++); - char c2=*(fileName2++); - if ((c1>='a') && (c1<='z')) - c1 -= (char)0x20; - if ((c2>='a') && (c2<='z')) - c2 -= (char)0x20; - if (c1=='\0') - return ((c2=='\0') ? 0 : -1); - if (c2=='\0') - return 1; - if (c1c2) - return 1; - } -} - - - - -// -// Compare two filename (fileName1,fileName2). -// If iCaseSenisivity = 1, comparision is case sensitivity (like strcmp) -// If iCaseSenisivity = 2, comparision is not case sensitivity (like strcmpi or strcasecmp) -// -int unzStringFileNameCompare (const char*fileName1,const char*fileName2,int iCaseSensitivity) -{ if (iCaseSensitivity==1) return strcmp(fileName1,fileName2); - else return strcmpcasenosensitive_internal(fileName1,fileName2); -} - -#define BUFREADCOMMENT (0x400) - - -// Locate the Central directory of a zipfile (at the end, just before -// the global comment). Lu bugfix 2005.07.26 - returns 0xFFFFFFFF if not found, -// rather than 0, since 0 is a valid central-dir-location for an empty zipfile. -uLong unzlocal_SearchCentralDir(LUFILE *fin) -{ if (lufseek(fin,0,SEEK_END) != 0) return 0xFFFFFFFF; - uLong uSizeFile = luftell(fin); - - uLong uMaxBack=0xffff; // maximum size of global comment - if (uMaxBack>uSizeFile) uMaxBack = uSizeFile; - - unsigned char *buf = (unsigned char*)zmalloc(BUFREADCOMMENT+4); - if (buf==NULL) return 0xFFFFFFFF; - uLong uPosFound=0xFFFFFFFF; - - uLong uBackRead = 4; - while (uBackReaduMaxBack) uBackRead = uMaxBack; - else uBackRead+=BUFREADCOMMENT; - uReadPos = uSizeFile-uBackRead ; - uReadSize = ((BUFREADCOMMENT+4) < (uSizeFile-uReadPos)) ? (BUFREADCOMMENT+4) : (uSizeFile-uReadPos); - if (lufseek(fin,uReadPos,SEEK_SET)!=0) break; - if (lufread(buf,(uInt)uReadSize,1,fin)!=1) break; - for (i=(int)uReadSize-3; (i--)>=0;) - { if (((*(buf+i))==0x50) && ((*(buf+i+1))==0x4b) && ((*(buf+i+2))==0x05) && ((*(buf+i+3))==0x06)) - { uPosFound = uReadPos+i; break; - } - } - if (uPosFound!=0) break; - } - if (buf) zfree(buf); - return uPosFound; -} - - -int unzGoToFirstFile (unzFile file); -int unzCloseCurrentFile (unzFile file); - -// Open a Zip file. -// If the zipfile cannot be opened (file don't exist or in not valid), return NULL. -// Otherwise, the return value is a unzFile Handle, usable with other unzip functions -unzFile unzOpenInternal(LUFILE *fin) -{ if (fin==NULL) return NULL; - if (unz_copyright[0]!=' ') {lufclose(fin); return NULL;} - - int err=UNZ_OK; - unz_s us; - uLong central_pos,uL; - central_pos = unzlocal_SearchCentralDir(fin); - if (central_pos==0xFFFFFFFF) err=UNZ_ERRNO; - if (lufseek(fin,central_pos,SEEK_SET)!=0) err=UNZ_ERRNO; - // the signature, already checked - if (unzlocal_getLong(fin,&uL)!=UNZ_OK) err=UNZ_ERRNO; - // number of this disk - uLong number_disk; // number of the current dist, used for spanning ZIP, unsupported, always 0 - if (unzlocal_getShort(fin,&number_disk)!=UNZ_OK) err=UNZ_ERRNO; - // number of the disk with the start of the central directory - uLong number_disk_with_CD; // number the the disk with central dir, used for spaning ZIP, unsupported, always 0 - if (unzlocal_getShort(fin,&number_disk_with_CD)!=UNZ_OK) err=UNZ_ERRNO; - // total number of entries in the central dir on this disk - if (unzlocal_getShort(fin,&us.gi.number_entry)!=UNZ_OK) err=UNZ_ERRNO; - // total number of entries in the central dir - uLong number_entry_CD; // total number of entries in the central dir (same than number_entry on nospan) - if (unzlocal_getShort(fin,&number_entry_CD)!=UNZ_OK) err=UNZ_ERRNO; - if ((number_entry_CD!=us.gi.number_entry) || (number_disk_with_CD!=0) || (number_disk!=0)) err=UNZ_BADZIPFILE; - // size of the central directory - if (unzlocal_getLong(fin,&us.size_central_dir)!=UNZ_OK) err=UNZ_ERRNO; - // offset of start of central directory with respect to the starting disk number - if (unzlocal_getLong(fin,&us.offset_central_dir)!=UNZ_OK) err=UNZ_ERRNO; - // zipfile comment length - if (unzlocal_getShort(fin,&us.gi.size_comment)!=UNZ_OK) err=UNZ_ERRNO; - if ((central_pos+fin->initial_offsetinitial_offset - (us.offset_central_dir+us.size_central_dir); - us.central_pos = central_pos; - us.pfile_in_zip_read = NULL; - fin->initial_offset = 0; // since the zipfile itself is expected to handle this - - unz_s *s = (unz_s*)zmalloc(sizeof(unz_s)); - *s=us; - unzGoToFirstFile((unzFile)s); - return (unzFile)s; -} - - - -// Close a ZipFile opened with unzipOpen. -// If there is files inside the .Zip opened with unzipOpenCurrentFile (see later), -// these files MUST be closed with unzipCloseCurrentFile before call unzipClose. -// return UNZ_OK if there is no problem. -int unzClose (unzFile file) -{ - unz_s* s; - if (file==NULL) - return UNZ_PARAMERROR; - s=(unz_s*)file; - - if (s->pfile_in_zip_read!=NULL) - unzCloseCurrentFile(file); - - lufclose(s->file); - if (s) zfree(s); // unused s=0; - return UNZ_OK; -} - - -// Write info about the ZipFile in the *pglobal_info structure. -// No preparation of the structure is needed -// return UNZ_OK if there is no problem. -int unzGetGlobalInfo (unzFile file,unz_global_info *pglobal_info) -{ - unz_s* s; - if (file==NULL) - return UNZ_PARAMERROR; - s=(unz_s*)file; - *pglobal_info=s->gi; - return UNZ_OK; -} - - -// Translate date/time from Dos format to tm_unz (readable more easilty) -void unzlocal_DosDateToTmuDate (uLong ulDosDate, tm_unz* ptm) -{ - uLong uDate; - uDate = (uLong)(ulDosDate>>16); - ptm->tm_mday = (uInt)(uDate&0x1f) ; - ptm->tm_mon = (uInt)((((uDate)&0x1E0)/0x20)-1) ; - ptm->tm_year = (uInt)(((uDate&0x0FE00)/0x0200)+1980) ; - - ptm->tm_hour = (uInt) ((ulDosDate &0xF800)/0x800); - ptm->tm_min = (uInt) ((ulDosDate&0x7E0)/0x20) ; - ptm->tm_sec = (uInt) (2*(ulDosDate&0x1f)) ; -} - -// Get Info about the current file in the zipfile, with internal only info -int unzlocal_GetCurrentFileInfoInternal (unzFile file, - unz_file_info *pfile_info, - unz_file_info_internal - *pfile_info_internal, - char *szFileName, - uLong fileNameBufferSize, - void *extraField, - uLong extraFieldBufferSize, - char *szComment, - uLong commentBufferSize); - -int unzlocal_GetCurrentFileInfoInternal (unzFile file, unz_file_info *pfile_info, - unz_file_info_internal *pfile_info_internal, char *szFileName, - uLong fileNameBufferSize, void *extraField, uLong extraFieldBufferSize, - char *szComment, uLong commentBufferSize) -{ - unz_s* s; - unz_file_info file_info; - unz_file_info_internal file_info_internal; - int err=UNZ_OK; - uLong uMagic; - long lSeek=0; - - if (file==NULL) - return UNZ_PARAMERROR; - s=(unz_s*)file; - if (lufseek(s->file,s->pos_in_central_dir+s->byte_before_the_zipfile,SEEK_SET)!=0) - err=UNZ_ERRNO; - - - // we check the magic - if (err==UNZ_OK) - if (unzlocal_getLong(s->file,&uMagic) != UNZ_OK) - err=UNZ_ERRNO; - else if (uMagic!=0x02014b50) - err=UNZ_BADZIPFILE; - - if (unzlocal_getShort(s->file,&file_info.version) != UNZ_OK) - err=UNZ_ERRNO; - - if (unzlocal_getShort(s->file,&file_info.version_needed) != UNZ_OK) - err=UNZ_ERRNO; - - if (unzlocal_getShort(s->file,&file_info.flag) != UNZ_OK) - err=UNZ_ERRNO; - - if (unzlocal_getShort(s->file,&file_info.compression_method) != UNZ_OK) - err=UNZ_ERRNO; - - if (unzlocal_getLong(s->file,&file_info.dosDate) != UNZ_OK) - err=UNZ_ERRNO; - - unzlocal_DosDateToTmuDate(file_info.dosDate,&file_info.tmu_date); - - if (unzlocal_getLong(s->file,&file_info.crc) != UNZ_OK) - err=UNZ_ERRNO; - - if (unzlocal_getLong(s->file,&file_info.compressed_size) != UNZ_OK) - err=UNZ_ERRNO; - - if (unzlocal_getLong(s->file,&file_info.uncompressed_size) != UNZ_OK) - err=UNZ_ERRNO; - - if (unzlocal_getShort(s->file,&file_info.size_filename) != UNZ_OK) - err=UNZ_ERRNO; - - if (unzlocal_getShort(s->file,&file_info.size_file_extra) != UNZ_OK) - err=UNZ_ERRNO; - - if (unzlocal_getShort(s->file,&file_info.size_file_comment) != UNZ_OK) - err=UNZ_ERRNO; - - if (unzlocal_getShort(s->file,&file_info.disk_num_start) != UNZ_OK) - err=UNZ_ERRNO; - - if (unzlocal_getShort(s->file,&file_info.internal_fa) != UNZ_OK) - err=UNZ_ERRNO; - - if (unzlocal_getLong(s->file,&file_info.external_fa) != UNZ_OK) - err=UNZ_ERRNO; - - if (unzlocal_getLong(s->file,&file_info_internal.offset_curfile) != UNZ_OK) - err=UNZ_ERRNO; - - lSeek+=file_info.size_filename; - if ((err==UNZ_OK) && (szFileName!=NULL)) - { - uLong uSizeRead ; - if (file_info.size_filename0) && (fileNameBufferSize>0)) - if (lufread(szFileName,(uInt)uSizeRead,1,s->file)!=1) - err=UNZ_ERRNO; - lSeek -= uSizeRead; - } - - - if ((err==UNZ_OK) && (extraField!=NULL)) - { - uLong uSizeRead ; - if (file_info.size_file_extrafile,lSeek,SEEK_CUR)==0) - lSeek=0; - else - err=UNZ_ERRNO; - if ((file_info.size_file_extra>0) && (extraFieldBufferSize>0)) - if (lufread(extraField,(uInt)uSizeRead,1,s->file)!=1) - err=UNZ_ERRNO; - lSeek += file_info.size_file_extra - uSizeRead; - } - else - lSeek+=file_info.size_file_extra; - - - if ((err==UNZ_OK) && (szComment!=NULL)) - { - uLong uSizeRead ; - if (file_info.size_file_commentfile,lSeek,SEEK_CUR)==0) - {} // unused lSeek=0; - else - err=UNZ_ERRNO; - if ((file_info.size_file_comment>0) && (commentBufferSize>0)) - if (lufread(szComment,(uInt)uSizeRead,1,s->file)!=1) - err=UNZ_ERRNO; - //unused lSeek+=file_info.size_file_comment - uSizeRead; - } - else {} //unused lSeek+=file_info.size_file_comment; - - if ((err==UNZ_OK) && (pfile_info!=NULL)) - *pfile_info=file_info; - - if ((err==UNZ_OK) && (pfile_info_internal!=NULL)) - *pfile_info_internal=file_info_internal; - - return err; -} - - - -// Write info about the ZipFile in the *pglobal_info structure. -// No preparation of the structure is needed -// return UNZ_OK if there is no problem. -int unzGetCurrentFileInfo (unzFile file, unz_file_info *pfile_info, - char *szFileName, uLong fileNameBufferSize, void *extraField, uLong extraFieldBufferSize, - char *szComment, uLong commentBufferSize) -{ return unzlocal_GetCurrentFileInfoInternal(file,pfile_info,NULL,szFileName,fileNameBufferSize, - extraField,extraFieldBufferSize, szComment,commentBufferSize); -} - - -// Set the current file of the zipfile to the first file. -// return UNZ_OK if there is no problem -int unzGoToFirstFile (unzFile file) -{ - int err; - unz_s* s; - if (file==NULL) return UNZ_PARAMERROR; - s=(unz_s*)file; - s->pos_in_central_dir=s->offset_central_dir; - s->num_file=0; - err=unzlocal_GetCurrentFileInfoInternal(file,&s->cur_file_info, - &s->cur_file_info_internal, - NULL,0,NULL,0,NULL,0); - s->current_file_ok = (err == UNZ_OK); - return err; -} - - -// Set the current file of the zipfile to the next file. -// return UNZ_OK if there is no problem -// return UNZ_END_OF_LIST_OF_FILE if the actual file was the latest. -int unzGoToNextFile (unzFile file) -{ - unz_s* s; - int err; - - if (file==NULL) - return UNZ_PARAMERROR; - s=(unz_s*)file; - if (!s->current_file_ok) - return UNZ_END_OF_LIST_OF_FILE; - if (s->num_file+1==s->gi.number_entry) - return UNZ_END_OF_LIST_OF_FILE; - - s->pos_in_central_dir += SIZECENTRALDIRITEM + s->cur_file_info.size_filename + - s->cur_file_info.size_file_extra + s->cur_file_info.size_file_comment ; - s->num_file++; - err = unzlocal_GetCurrentFileInfoInternal(file,&s->cur_file_info, - &s->cur_file_info_internal, - NULL,0,NULL,0,NULL,0); - s->current_file_ok = (err == UNZ_OK); - return err; -} - - -// Try locate the file szFileName in the zipfile. -// For the iCaseSensitivity signification, see unzStringFileNameCompare -// return value : -// UNZ_OK if the file is found. It becomes the current file. -// UNZ_END_OF_LIST_OF_FILE if the file is not found -int unzLocateFile (unzFile file, const char *szFileName, int iCaseSensitivity) -{ - unz_s* s; - int err; - - - uLong num_fileSaved; - uLong pos_in_central_dirSaved; - - - if (file==NULL) - return UNZ_PARAMERROR; - - if (strlen(szFileName)>=UNZ_MAXFILENAMEINZIP) - return UNZ_PARAMERROR; - - s=(unz_s*)file; - if (!s->current_file_ok) - return UNZ_END_OF_LIST_OF_FILE; - - num_fileSaved = s->num_file; - pos_in_central_dirSaved = s->pos_in_central_dir; - - err = unzGoToFirstFile(file); - - while (err == UNZ_OK) - { - char szCurrentFileName[UNZ_MAXFILENAMEINZIP+1]; - unzGetCurrentFileInfo(file,NULL, - szCurrentFileName,sizeof(szCurrentFileName)-1, - NULL,0,NULL,0); - if (unzStringFileNameCompare(szCurrentFileName,szFileName,iCaseSensitivity)==0) - return UNZ_OK; - err = unzGoToNextFile(file); - } - - s->num_file = num_fileSaved ; - s->pos_in_central_dir = pos_in_central_dirSaved ; - return err; -} - - -// Read the local header of the current zipfile -// Check the coherency of the local header and info in the end of central -// directory about this file -// store in *piSizeVar the size of extra info in local header -// (filename and size of extra field data) -int unzlocal_CheckCurrentFileCoherencyHeader (unz_s *s,uInt *piSizeVar, - uLong *poffset_local_extrafield, uInt *psize_local_extrafield) -{ - uLong uMagic,uData,uFlags; - uLong size_filename; - uLong size_extra_field; - int err=UNZ_OK; - - *piSizeVar = 0; - *poffset_local_extrafield = 0; - *psize_local_extrafield = 0; - - if (lufseek(s->file,s->cur_file_info_internal.offset_curfile + s->byte_before_the_zipfile,SEEK_SET)!=0) - return UNZ_ERRNO; - - - if (err==UNZ_OK) - if (unzlocal_getLong(s->file,&uMagic) != UNZ_OK) - err=UNZ_ERRNO; - else if (uMagic!=0x04034b50) - err=UNZ_BADZIPFILE; - - if (unzlocal_getShort(s->file,&uData) != UNZ_OK) - err=UNZ_ERRNO; -// else if ((err==UNZ_OK) && (uData!=s->cur_file_info.wVersion)) -// err=UNZ_BADZIPFILE; - if (unzlocal_getShort(s->file,&uFlags) != UNZ_OK) - err=UNZ_ERRNO; - - if (unzlocal_getShort(s->file,&uData) != UNZ_OK) - err=UNZ_ERRNO; - else if ((err==UNZ_OK) && (uData!=s->cur_file_info.compression_method)) - err=UNZ_BADZIPFILE; - - if ((err==UNZ_OK) && (s->cur_file_info.compression_method!=0) && - (s->cur_file_info.compression_method!=Z_DEFLATED)) - err=UNZ_BADZIPFILE; - - if (unzlocal_getLong(s->file,&uData) != UNZ_OK) // date/time - err=UNZ_ERRNO; - - if (unzlocal_getLong(s->file,&uData) != UNZ_OK) // crc - err=UNZ_ERRNO; - else if ((err==UNZ_OK) && (uData!=s->cur_file_info.crc) && - ((uFlags & 8)==0)) - err=UNZ_BADZIPFILE; - - if (unzlocal_getLong(s->file,&uData) != UNZ_OK) // size compr - err=UNZ_ERRNO; - else if ((err==UNZ_OK) && (uData!=s->cur_file_info.compressed_size) && - ((uFlags & 8)==0)) - err=UNZ_BADZIPFILE; - - if (unzlocal_getLong(s->file,&uData) != UNZ_OK) // size uncompr - err=UNZ_ERRNO; - else if ((err==UNZ_OK) && (uData!=s->cur_file_info.uncompressed_size) && - ((uFlags & 8)==0)) - err=UNZ_BADZIPFILE; - - - if (unzlocal_getShort(s->file,&size_filename) != UNZ_OK) - err=UNZ_ERRNO; - else if ((err==UNZ_OK) && (size_filename!=s->cur_file_info.size_filename)) - err=UNZ_BADZIPFILE; - - *piSizeVar += (uInt)size_filename; - - if (unzlocal_getShort(s->file,&size_extra_field) != UNZ_OK) - err=UNZ_ERRNO; - *poffset_local_extrafield= s->cur_file_info_internal.offset_curfile + - SIZEZIPLOCALHEADER + size_filename; - *psize_local_extrafield = (uInt)size_extra_field; - - *piSizeVar += (uInt)size_extra_field; - - return err; -} - - - - - -// Open for reading data the current file in the zipfile. -// If there is no error and the file is opened, the return value is UNZ_OK. -int unzOpenCurrentFile (unzFile file, const char *password) -{ - int err; - int Store; - uInt iSizeVar; - unz_s* s; - file_in_zip_read_info_s* pfile_in_zip_read_info; - uLong offset_local_extrafield; // offset of the local extra field - uInt size_local_extrafield; // size of the local extra field - - if (file==NULL) - return UNZ_PARAMERROR; - s=(unz_s*)file; - if (!s->current_file_ok) - return UNZ_PARAMERROR; - - if (s->pfile_in_zip_read != NULL) - unzCloseCurrentFile(file); - - if (unzlocal_CheckCurrentFileCoherencyHeader(s,&iSizeVar, - &offset_local_extrafield,&size_local_extrafield)!=UNZ_OK) - return UNZ_BADZIPFILE; - - pfile_in_zip_read_info = (file_in_zip_read_info_s*)zmalloc(sizeof(file_in_zip_read_info_s)); - if (pfile_in_zip_read_info==NULL) - return UNZ_INTERNALERROR; - - pfile_in_zip_read_info->read_buffer=(char*)zmalloc(UNZ_BUFSIZE); - pfile_in_zip_read_info->offset_local_extrafield = offset_local_extrafield; - pfile_in_zip_read_info->size_local_extrafield = size_local_extrafield; - pfile_in_zip_read_info->pos_local_extrafield=0; - - if (pfile_in_zip_read_info->read_buffer==NULL) - { - if (pfile_in_zip_read_info!=0) zfree(pfile_in_zip_read_info); //unused pfile_in_zip_read_info=0; - return UNZ_INTERNALERROR; - } - - pfile_in_zip_read_info->stream_initialised=0; - - if ((s->cur_file_info.compression_method!=0) && (s->cur_file_info.compression_method!=Z_DEFLATED)) - { // unused err=UNZ_BADZIPFILE; - } - Store = s->cur_file_info.compression_method==0; - - pfile_in_zip_read_info->crc32_wait=s->cur_file_info.crc; - pfile_in_zip_read_info->crc32=0; - pfile_in_zip_read_info->compression_method = s->cur_file_info.compression_method; - pfile_in_zip_read_info->file=s->file; - pfile_in_zip_read_info->byte_before_the_zipfile=s->byte_before_the_zipfile; - - pfile_in_zip_read_info->stream.total_out = 0; - - if (!Store) - { - pfile_in_zip_read_info->stream.zalloc = (alloc_func)0; - pfile_in_zip_read_info->stream.zfree = (free_func)0; - pfile_in_zip_read_info->stream.opaque = (voidpf)0; - - err=inflateInit2(&pfile_in_zip_read_info->stream); - if (err == Z_OK) - pfile_in_zip_read_info->stream_initialised=1; - // windowBits is passed < 0 to tell that there is no zlib header. - // Note that in this case inflate *requires* an extra "dummy" byte - // after the compressed stream in order to complete decompression and - // return Z_STREAM_END. - // In unzip, i don't wait absolutely Z_STREAM_END because I known the - // size of both compressed and uncompressed data - } - pfile_in_zip_read_info->rest_read_compressed = s->cur_file_info.compressed_size ; - pfile_in_zip_read_info->rest_read_uncompressed = s->cur_file_info.uncompressed_size ; - pfile_in_zip_read_info->encrypted = (s->cur_file_info.flag&1)!=0; - bool extlochead = (s->cur_file_info.flag&8)!=0; - if (extlochead) pfile_in_zip_read_info->crcenctest = (char)((s->cur_file_info.dosDate>>8)&0xff); - else pfile_in_zip_read_info->crcenctest = (char)(s->cur_file_info.crc >> 24); - pfile_in_zip_read_info->encheadleft = (pfile_in_zip_read_info->encrypted?12:0); - pfile_in_zip_read_info->keys[0] = 305419896L; - pfile_in_zip_read_info->keys[1] = 591751049L; - pfile_in_zip_read_info->keys[2] = 878082192L; - for (const char *cp=password; cp!=0 && *cp!=0; cp++) Uupdate_keys(pfile_in_zip_read_info->keys,*cp); - - pfile_in_zip_read_info->pos_in_zipfile = - s->cur_file_info_internal.offset_curfile + SIZEZIPLOCALHEADER + - iSizeVar; - - pfile_in_zip_read_info->stream.avail_in = (uInt)0; - - s->pfile_in_zip_read = pfile_in_zip_read_info; - - return UNZ_OK; -} - - -// Read bytes from the current file. -// buf contain buffer where data must be copied -// len the size of buf. -// return the number of byte copied if somes bytes are copied (and also sets *reached_eof) -// return 0 if the end of file was reached. (and also sets *reached_eof). -// return <0 with error code if there is an error. (in which case *reached_eof is meaningless) -// (UNZ_ERRNO for IO error, or zLib error for uncompress error) -int unzReadCurrentFile (unzFile file, voidp buf, unsigned len, bool *reached_eof) -{ int err=UNZ_OK; - uInt iRead = 0; - if (reached_eof!=0) *reached_eof=false; - - unz_s *s = (unz_s*)file; - if (s==NULL) return UNZ_PARAMERROR; - - file_in_zip_read_info_s* pfile_in_zip_read_info = s->pfile_in_zip_read; - if (pfile_in_zip_read_info==NULL) return UNZ_PARAMERROR; - if ((pfile_in_zip_read_info->read_buffer == NULL)) return UNZ_END_OF_LIST_OF_FILE; - if (len==0) return 0; - - pfile_in_zip_read_info->stream.next_out = (Byte*)buf; - pfile_in_zip_read_info->stream.avail_out = (uInt)len; - - if (len>pfile_in_zip_read_info->rest_read_uncompressed) - { pfile_in_zip_read_info->stream.avail_out = (uInt)pfile_in_zip_read_info->rest_read_uncompressed; - } - - while (pfile_in_zip_read_info->stream.avail_out>0) - { if ((pfile_in_zip_read_info->stream.avail_in==0) && (pfile_in_zip_read_info->rest_read_compressed>0)) - { uInt uReadThis = UNZ_BUFSIZE; - if (pfile_in_zip_read_info->rest_read_compressedrest_read_compressed; - if (uReadThis == 0) {if (reached_eof!=0) *reached_eof=true; return UNZ_EOF;} - if (lufseek(pfile_in_zip_read_info->file, pfile_in_zip_read_info->pos_in_zipfile + pfile_in_zip_read_info->byte_before_the_zipfile,SEEK_SET)!=0) return UNZ_ERRNO; - if (lufread(pfile_in_zip_read_info->read_buffer,uReadThis,1,pfile_in_zip_read_info->file)!=1) return UNZ_ERRNO; - pfile_in_zip_read_info->pos_in_zipfile += uReadThis; - pfile_in_zip_read_info->rest_read_compressed-=uReadThis; - pfile_in_zip_read_info->stream.next_in = (Byte*)pfile_in_zip_read_info->read_buffer; - pfile_in_zip_read_info->stream.avail_in = (uInt)uReadThis; - // - if (pfile_in_zip_read_info->encrypted) - { char *buf = (char*)pfile_in_zip_read_info->stream.next_in; - for (unsigned int i=0; ikeys,buf[i]); - } - } - - unsigned int uDoEncHead = pfile_in_zip_read_info->encheadleft; - if (uDoEncHead>pfile_in_zip_read_info->stream.avail_in) uDoEncHead=pfile_in_zip_read_info->stream.avail_in; - if (uDoEncHead>0) - { char bufcrc=pfile_in_zip_read_info->stream.next_in[uDoEncHead-1]; - pfile_in_zip_read_info->rest_read_uncompressed-=uDoEncHead; - pfile_in_zip_read_info->stream.avail_in -= uDoEncHead; - pfile_in_zip_read_info->stream.next_in += uDoEncHead; - pfile_in_zip_read_info->encheadleft -= uDoEncHead; - if (pfile_in_zip_read_info->encheadleft==0) - { if (bufcrc!=pfile_in_zip_read_info->crcenctest) return UNZ_PASSWORD; - } - } - - if (pfile_in_zip_read_info->compression_method==0) - { uInt uDoCopy,i ; - if (pfile_in_zip_read_info->stream.avail_out < pfile_in_zip_read_info->stream.avail_in) - { uDoCopy = pfile_in_zip_read_info->stream.avail_out ; - } - else - { uDoCopy = pfile_in_zip_read_info->stream.avail_in ; - } - for (i=0;istream.next_out+i) = *(pfile_in_zip_read_info->stream.next_in+i); - pfile_in_zip_read_info->crc32 = ucrc32(pfile_in_zip_read_info->crc32,pfile_in_zip_read_info->stream.next_out,uDoCopy); - pfile_in_zip_read_info->rest_read_uncompressed-=uDoCopy; - pfile_in_zip_read_info->stream.avail_in -= uDoCopy; - pfile_in_zip_read_info->stream.avail_out -= uDoCopy; - pfile_in_zip_read_info->stream.next_out += uDoCopy; - pfile_in_zip_read_info->stream.next_in += uDoCopy; - pfile_in_zip_read_info->stream.total_out += uDoCopy; - iRead += uDoCopy; - if (pfile_in_zip_read_info->rest_read_uncompressed==0) {if (reached_eof!=0) *reached_eof=true;} - } - else - { uLong uTotalOutBefore,uTotalOutAfter; - const Byte *bufBefore; - uLong uOutThis; - int flush=Z_SYNC_FLUSH; - uTotalOutBefore = pfile_in_zip_read_info->stream.total_out; - bufBefore = pfile_in_zip_read_info->stream.next_out; - // - err=inflate(&pfile_in_zip_read_info->stream,flush); - // - uTotalOutAfter = pfile_in_zip_read_info->stream.total_out; - uOutThis = uTotalOutAfter-uTotalOutBefore; - pfile_in_zip_read_info->crc32 = ucrc32(pfile_in_zip_read_info->crc32,bufBefore,(uInt)(uOutThis)); - pfile_in_zip_read_info->rest_read_uncompressed -= uOutThis; - iRead += (uInt)(uTotalOutAfter - uTotalOutBefore); - if (err==Z_STREAM_END || pfile_in_zip_read_info->rest_read_uncompressed==0) - { if (reached_eof!=0) *reached_eof=true; - return iRead; - } - if (err!=Z_OK) break; - } - } - - if (err==Z_OK) return iRead; - return err; -} - - -// Give the current position in uncompressed data -z_off_t unztell (unzFile file) -{ - unz_s* s; - file_in_zip_read_info_s* pfile_in_zip_read_info; - if (file==NULL) - return UNZ_PARAMERROR; - s=(unz_s*)file; - pfile_in_zip_read_info=s->pfile_in_zip_read; - - if (pfile_in_zip_read_info==NULL) - return UNZ_PARAMERROR; - - return (z_off_t)pfile_in_zip_read_info->stream.total_out; -} - - -// return 1 if the end of file was reached, 0 elsewhere -int unzeof (unzFile file) -{ - unz_s* s; - file_in_zip_read_info_s* pfile_in_zip_read_info; - if (file==NULL) - return UNZ_PARAMERROR; - s=(unz_s*)file; - pfile_in_zip_read_info=s->pfile_in_zip_read; - - if (pfile_in_zip_read_info==NULL) - return UNZ_PARAMERROR; - - if (pfile_in_zip_read_info->rest_read_uncompressed == 0) - return 1; - else - return 0; -} - - - -// Read extra field from the current file (opened by unzOpenCurrentFile) -// This is the local-header version of the extra field (sometimes, there is -// more info in the local-header version than in the central-header) -// if buf==NULL, it return the size of the local extra field that can be read -// if buf!=NULL, len is the size of the buffer, the extra header is copied in buf. -// the return value is the number of bytes copied in buf, or (if <0) the error code -int unzGetLocalExtrafield (unzFile file,voidp buf,unsigned len) -{ - unz_s* s; - file_in_zip_read_info_s* pfile_in_zip_read_info; - uInt read_now; - uLong size_to_read; - - if (file==NULL) - return UNZ_PARAMERROR; - s=(unz_s*)file; - pfile_in_zip_read_info=s->pfile_in_zip_read; - - if (pfile_in_zip_read_info==NULL) - return UNZ_PARAMERROR; - - size_to_read = (pfile_in_zip_read_info->size_local_extrafield - - pfile_in_zip_read_info->pos_local_extrafield); - - if (buf==NULL) - return (int)size_to_read; - - if (len>size_to_read) - read_now = (uInt)size_to_read; - else - read_now = (uInt)len ; - - if (read_now==0) - return 0; - - if (lufseek(pfile_in_zip_read_info->file, pfile_in_zip_read_info->offset_local_extrafield + pfile_in_zip_read_info->pos_local_extrafield,SEEK_SET)!=0) - return UNZ_ERRNO; - - if (lufread(buf,(uInt)size_to_read,1,pfile_in_zip_read_info->file)!=1) - return UNZ_ERRNO; - - return (int)read_now; -} - -// Close the file in zip opened with unzipOpenCurrentFile -// Return UNZ_CRCERROR if all the file was read but the CRC is not good -int unzCloseCurrentFile (unzFile file) -{ - int err=UNZ_OK; - - unz_s* s; - file_in_zip_read_info_s* pfile_in_zip_read_info; - if (file==NULL) - return UNZ_PARAMERROR; - s=(unz_s*)file; - pfile_in_zip_read_info=s->pfile_in_zip_read; - - if (pfile_in_zip_read_info==NULL) - return UNZ_PARAMERROR; - - - if (pfile_in_zip_read_info->rest_read_uncompressed == 0) - { - if (pfile_in_zip_read_info->crc32 != pfile_in_zip_read_info->crc32_wait) - err=UNZ_CRCERROR; - } - - - if (pfile_in_zip_read_info->read_buffer!=0) - { void *buf = pfile_in_zip_read_info->read_buffer; - zfree(buf); - pfile_in_zip_read_info->read_buffer=0; - } - pfile_in_zip_read_info->read_buffer = NULL; - if (pfile_in_zip_read_info->stream_initialised) - inflateEnd(&pfile_in_zip_read_info->stream); - - pfile_in_zip_read_info->stream_initialised = 0; - if (pfile_in_zip_read_info!=0) zfree(pfile_in_zip_read_info); // unused pfile_in_zip_read_info=0; - - s->pfile_in_zip_read=NULL; - - return err; -} - - -// Get the global comment string of the ZipFile, in the szComment buffer. -// uSizeBuf is the size of the szComment buffer. -// return the number of byte copied or an error code <0 -int unzGetGlobalComment (unzFile file, char *szComment, uLong uSizeBuf) -{ //int err=UNZ_OK; - unz_s* s; - uLong uReadThis ; - if (file==NULL) return UNZ_PARAMERROR; - s=(unz_s*)file; - uReadThis = uSizeBuf; - if (uReadThis>s->gi.size_comment) uReadThis = s->gi.size_comment; - if (lufseek(s->file,s->central_pos+22,SEEK_SET)!=0) return UNZ_ERRNO; - if (uReadThis>0) - { *szComment='\0'; - if (lufread(szComment,(uInt)uReadThis,1,s->file)!=1) return UNZ_ERRNO; - } - if ((szComment != NULL) && (uSizeBuf > s->gi.size_comment)) *(szComment+s->gi.size_comment)='\0'; - return (int)uReadThis; -} - - - - - -int unzOpenCurrentFile (unzFile file, const char *password); -int unzReadCurrentFile (unzFile file, void *buf, unsigned len); -int unzCloseCurrentFile (unzFile file); - - -typedef unsigned __int32 lutime_t; // define it ourselves since we don't include time.h - -FILETIME timet2filetime(const lutime_t t) -{ LONGLONG i = Int32x32To64(t,10000000) + 116444736000000000; - FILETIME ft; - ft.dwLowDateTime = (DWORD) i; - ft.dwHighDateTime = (DWORD)(i >>32); - return ft; -} - -FILETIME dosdatetime2filetime(WORD dosdate,WORD dostime) -{ // date: bits 0-4 are day of month 1-31. Bits 5-8 are month 1..12. Bits 9-15 are year-1980 - // time: bits 0-4 are seconds/2, bits 5-10 are minute 0..59. Bits 11-15 are hour 0..23 - SYSTEMTIME st; - st.wYear = (WORD)(((dosdate>>9)&0x7f) + 1980); - st.wMonth = (WORD)((dosdate>>5)&0xf); - st.wDay = (WORD)(dosdate&0x1f); - st.wHour = (WORD)((dostime>>11)&0x1f); - st.wMinute = (WORD)((dostime>>5)&0x3f); - st.wSecond = (WORD)((dostime&0x1f)*2); - st.wMilliseconds = 0; - FILETIME ft; SystemTimeToFileTime(&st,&ft); - return ft; -} - - - -class TUnzip -{ public: - TUnzip(const char *pwd) : uf(0), unzbuf(0), currentfile(-1), czei(-1), password(0) {if (pwd!=0) {password=new char[strlen(pwd)+1]; strcpy(password,pwd);}} - ~TUnzip() {if (password!=0) delete[] password; password=0; if (unzbuf!=0) delete[] unzbuf; unzbuf=0;} - - unzFile uf; int currentfile; ZIPENTRY cze; int czei; - char *password; - char *unzbuf; // lazily created and destroyed, used by Unzip - TCHAR rootdir[MAX_PATH]; // includes a trailing slash - - ZRESULT Open(void *z,unsigned int len,DWORD flags); - ZRESULT Get(int index,ZIPENTRY *ze); - ZRESULT Find(const TCHAR *name,bool ic,int *index,ZIPENTRY *ze); - ZRESULT Unzip(int index,void *dst,unsigned int len,DWORD flags); - ZRESULT SetUnzipBaseDir(const TCHAR *dir); - ZRESULT Close(); -}; - - -ZRESULT TUnzip::Open(void *z,unsigned int len,DWORD flags) -{ if (uf!=0 || currentfile!=-1) return ZR_NOTINITED; - // -#ifdef GetCurrentDirectory - GetCurrentDirectory(MAX_PATH,rootdir); -#else - _tcscpy(rootdir,_T("\\")); -#endif - TCHAR lastchar = rootdir[_tcslen(rootdir)-1]; - if (lastchar!='\\' && lastchar!='/') _tcscat(rootdir,_T("\\")); - // - if (flags==ZIP_HANDLE) - { // test if we can seek on it. We can't use GetFileType(h)==FILE_TYPE_DISK since it's not on CE. - DWORD res = SetFilePointer(z,0,0,FILE_CURRENT); - bool canseek = (res!=0xFFFFFFFF); - if (!canseek) return ZR_SEEK; - } - ZRESULT e; LUFILE *f = lufopen(z,len,flags,&e); - if (f==NULL) return e; - uf = unzOpenInternal(f); - if (uf==0) return ZR_NOFILE; - return ZR_OK; -} - -ZRESULT TUnzip::SetUnzipBaseDir(const TCHAR *dir) -{ _tcscpy(rootdir,dir); - TCHAR lastchar = rootdir[_tcslen(rootdir)-1]; - if (lastchar!='\\' && lastchar!='/') _tcscat(rootdir,_T("\\")); - return ZR_OK; -} - -ZRESULT TUnzip::Get(int index,ZIPENTRY *ze) -{ if (index<-1 || index>=(int)uf->gi.number_entry) return ZR_ARGS; - if (currentfile!=-1) unzCloseCurrentFile(uf); currentfile=-1; - if (index==czei && index!=-1) {memcpy(ze,&cze,sizeof(ZIPENTRY)); return ZR_OK;} - if (index==-1) - { ze->index = uf->gi.number_entry; - ze->name[0]=0; - ze->attr=0; - ze->atime.dwLowDateTime=0; ze->atime.dwHighDateTime=0; - ze->ctime.dwLowDateTime=0; ze->ctime.dwHighDateTime=0; - ze->mtime.dwLowDateTime=0; ze->mtime.dwHighDateTime=0; - ze->comp_size=0; - ze->unc_size=0; - return ZR_OK; - } - if (index<(int)uf->num_file) unzGoToFirstFile(uf); - while ((int)uf->num_filefile,offset,SEEK_SET)!=0) return ZR_READ; - unsigned char *extra = new unsigned char[extralen]; - if (lufread(extra,1,(uInt)extralen,uf->file)!=extralen) {delete[] extra; return ZR_READ;} - // - ze->index=uf->num_file; - TCHAR tfn[MAX_PATH]; -#ifdef UNICODE - MultiByteToWideChar(CP_UTF8,0,fn,-1,tfn,MAX_PATH); -#else - strcpy(tfn,fn); -#endif - // As a safety feature: if the zip filename had sneaky stuff - // like "c:\windows\file.txt" or "\windows\file.txt" or "fred\..\..\..\windows\file.txt" - // then we get rid of them all. That way, when the programmer does UnzipItem(hz,i,ze.name), - // it won't be a problem. (If the programmer really did want to get the full evil information, - // then they can edit out this security feature from here). - // In particular, we chop off any prefixes that are "c:\" or "\" or "/" or "[stuff]\.." or "[stuff]/.." - const TCHAR *sfn=tfn; - for (;;) - { if (sfn[0]!=0 && sfn[1]==':') {sfn+=2; continue;} - if (sfn[0]=='\\') {sfn++; continue;} - if (sfn[0]=='/') {sfn++; continue;} - const TCHAR *c; - c=_tcsstr(sfn,_T("\\..\\")); if (c!=0) {sfn=c+4; continue;} - c=_tcsstr(sfn,_T("\\../")); if (c!=0) {sfn=c+4; continue;} - c=_tcsstr(sfn,_T("/../")); if (c!=0) {sfn=c+4; continue;} - c=_tcsstr(sfn,_T("/..\\")); if (c!=0) {sfn=c+4; continue;} - break; - } - _tcscpy(ze->name, sfn); - - - // zip has an 'attribute' 32bit value. Its lower half is windows stuff - // its upper half is standard unix stat.st_mode. We'll start trying - // to read it in unix mode - unsigned long a = ufi.external_fa; - bool isdir = (a&0x40000000)!=0; - bool readonly= (a&0x00800000)==0; - //bool readable= (a&0x01000000)!=0; // unused - //bool executable=(a&0x00400000)!=0; // unused - bool hidden=false, system=false, archive=true; - // but in normal hostmodes these are overridden by the lower half... - int host = ufi.version>>8; - if (host==0 || host==7 || host==11 || host==14) - { readonly= (a&0x00000001)!=0; - hidden= (a&0x00000002)!=0; - system= (a&0x00000004)!=0; - isdir= (a&0x00000010)!=0; - archive= (a&0x00000020)!=0; - } - ze->attr=0; - if (isdir) ze->attr |= FILE_ATTRIBUTE_DIRECTORY; - if (archive) ze->attr|=FILE_ATTRIBUTE_ARCHIVE; - if (hidden) ze->attr|=FILE_ATTRIBUTE_HIDDEN; - if (readonly) ze->attr|=FILE_ATTRIBUTE_READONLY; - if (system) ze->attr|=FILE_ATTRIBUTE_SYSTEM; - ze->comp_size = ufi.compressed_size; - ze->unc_size = ufi.uncompressed_size; - // - WORD dostime = (WORD)(ufi.dosDate&0xFFFF); - WORD dosdate = (WORD)((ufi.dosDate>>16)&0xFFFF); - FILETIME ftd = dosdatetime2filetime(dosdate,dostime); - FILETIME ft; LocalFileTimeToFileTime(&ftd,&ft); - ze->atime=ft; ze->ctime=ft; ze->mtime=ft; - // the zip will always have at least that dostime. But if it also has - // an extra header, then we'll instead get the info from that. - unsigned int epos=0; - while (epos+4mtime = timet2filetime(mtime); - } - if (hasatime) - { lutime_t atime = ((extra[epos+0])<<0) | ((extra[epos+1])<<8) |((extra[epos+2])<<16) | ((extra[epos+3])<<24); - epos+=4; - ze->atime = timet2filetime(atime); - } - if (hasctime) - { lutime_t ctime = ((extra[epos+0])<<0) | ((extra[epos+1])<<8) |((extra[epos+2])<<16) | ((extra[epos+3])<<24); - epos+=4; - ze->ctime = timet2filetime(ctime); - } - break; - } - // - if (extra!=0) delete[] extra; - memcpy(&cze,ze,sizeof(ZIPENTRY)); czei=index; - return ZR_OK; -} - -ZRESULT TUnzip::Find(const TCHAR *tname,bool ic,int *index,ZIPENTRY *ze) -{ char name[MAX_PATH]; -#ifdef UNICODE - WideCharToMultiByte(CP_UTF8,0,tname,-1,name,MAX_PATH,0,0); -#else - strcpy(name,tname); -#endif - int res = unzLocateFile(uf,name,ic?CASE_INSENSITIVE:CASE_SENSITIVE); - if (res!=UNZ_OK) - { if (index!=0) *index=-1; - if (ze!=NULL) {ZeroMemory(ze,sizeof(ZIPENTRY)); ze->index=-1;} - return ZR_NOTFOUND; - } - if (currentfile!=-1) unzCloseCurrentFile(uf); currentfile=-1; - int i = (int)uf->num_file; - if (index!=NULL) *index=i; - if (ze!=NULL) - { ZRESULT zres = Get(i,ze); - if (zres!=ZR_OK) return zres; - } - return ZR_OK; -} - -void EnsureDirectory(const TCHAR *rootdir, const TCHAR *dir) -{ if (rootdir!=0 && GetFileAttributes(rootdir)==0xFFFFFFFF) CreateDirectory(rootdir,0); - if (*dir==0) return; - const TCHAR *lastslash=dir, *c=lastslash; - while (*c!=0) {if (*c=='/' || *c=='\\') lastslash=c; c++;} - const TCHAR *name=lastslash; - if (lastslash!=dir) - { TCHAR tmp[MAX_PATH]; memcpy(tmp,dir,sizeof(TCHAR)*(lastslash-dir)); - tmp[lastslash-dir]=0; - EnsureDirectory(rootdir,tmp); - name++; - } - TCHAR cd[MAX_PATH]; *cd=0; if (rootdir!=0) _tcscpy(cd,rootdir); _tcscat(cd,dir); - if (GetFileAttributes(cd)==0xFFFFFFFF) CreateDirectory(cd,NULL); -} - - - -ZRESULT TUnzip::Unzip(int index,void *dst,unsigned int len,DWORD flags) -{ if (flags!=ZIP_MEMORY && flags!=ZIP_FILENAME && flags!=ZIP_HANDLE) return ZR_ARGS; - if (flags==ZIP_MEMORY) - { if (index!=currentfile) - { if (currentfile!=-1) unzCloseCurrentFile(uf); currentfile=-1; - if (index>=(int)uf->gi.number_entry) return ZR_ARGS; - if (index<(int)uf->num_file) unzGoToFirstFile(uf); - while ((int)uf->num_file0) return ZR_MORE; - if (res==UNZ_PASSWORD) return ZR_PASSWORD; - return ZR_FLATE; - } - // otherwise we're writing to a handle or a file - if (currentfile!=-1) unzCloseCurrentFile(uf); currentfile=-1; - if (index>=(int)uf->gi.number_entry) return ZR_ARGS; - if (index<(int)uf->num_file) unzGoToFirstFile(uf); - while ((int)uf->num_file0) {DWORD writ; BOOL bres=WriteFile(h,unzbuf,res,&writ,NULL); if (!bres) {haderr=ZR_WRITE; break;}} - if (reached_eof) break; - if (res==0) {haderr=ZR_FLATE; break;} - } - if (!haderr) SetFileTime(h,&ze.ctime,&ze.atime,&ze.mtime); // may fail if it was a pipe - if (flags!=ZIP_HANDLE) CloseHandle(h); - unzCloseCurrentFile(uf); - if (haderr!=0) return haderr; - return ZR_OK; -} - -ZRESULT TUnzip::Close() -{ if (currentfile!=-1) unzCloseCurrentFile(uf); currentfile=-1; - if (uf!=0) unzClose(uf); uf=0; - return ZR_OK; -} - - - - - -ZRESULT lasterrorU=ZR_OK; - -unsigned int FormatZipMessageU(ZRESULT code, TCHAR *buf,unsigned int len) -{ if (code==ZR_RECENT) code=lasterrorU; - const TCHAR *msg=_T("unknown zip result code"); - switch (code) - { case ZR_OK: msg=_T("Success"); break; - case ZR_NODUPH: msg=_T("Culdn't duplicate handle"); break; - case ZR_NOFILE: msg=_T("Couldn't create/open file"); break; - case ZR_NOALLOC: msg=_T("Failed to allocate memory"); break; - case ZR_WRITE: msg=_T("Error writing to file"); break; - case ZR_NOTFOUND: msg=_T("File not found in the zipfile"); break; - case ZR_MORE: msg=_T("Still more data to unzip"); break; - case ZR_CORRUPT: msg=_T("Zipfile is corrupt or not a zipfile"); break; - case ZR_READ: msg=_T("Error reading file"); break; - case ZR_PASSWORD: msg=_T("Correct password required"); break; - case ZR_ARGS: msg=_T("Caller: faulty arguments"); break; - case ZR_PARTIALUNZ: msg=_T("Caller: the file had already been partially unzipped"); break; - case ZR_NOTMMAP: msg=_T("Caller: can only get memory of a memory zipfile"); break; - case ZR_MEMSIZE: msg=_T("Caller: not enough space allocated for memory zipfile"); break; - case ZR_FAILED: msg=_T("Caller: there was a previous error"); break; - case ZR_ENDED: msg=_T("Caller: additions to the zip have already been ended"); break; - case ZR_ZMODE: msg=_T("Caller: mixing creation and opening of zip"); break; - case ZR_NOTINITED: msg=_T("Zip-bug: internal initialisation not completed"); break; - case ZR_SEEK: msg=_T("Zip-bug: trying to seek the unseekable"); break; - case ZR_MISSIZE: msg=_T("Zip-bug: the anticipated size turned out wrong"); break; - case ZR_NOCHANGE: msg=_T("Zip-bug: tried to change mind, but not allowed"); break; - case ZR_FLATE: msg=_T("Zip-bug: an internal error during flation"); break; - } - unsigned int mlen=(unsigned int)_tcslen(msg); - if (buf==0 || len==0) return mlen; - unsigned int n=mlen; if (n+1>len) n=len-1; - _tcsncpy(buf,msg,n); buf[n]=0; - return mlen; -} - - -typedef struct -{ DWORD flag; - TUnzip *unz; -} TUnzipHandleData; - -HZIP OpenZipInternal(void *z,unsigned int len,DWORD flags, const char *password) -{ TUnzip *unz = new TUnzip(password); - lasterrorU = unz->Open(z,len,flags); - if (lasterrorU!=ZR_OK) {delete unz; return 0;} - TUnzipHandleData *han = new TUnzipHandleData; - han->flag=1; han->unz=unz; return (HZIP)han; -} -HZIP OpenZipHandle(HANDLE h, const char *password) {return OpenZipInternal((void*)h,0,ZIP_HANDLE,password);} -HZIP OpenZip(const TCHAR *fn, const char *password) {return OpenZipInternal((void*)fn,0,ZIP_FILENAME,password);} -HZIP OpenZip(void *z,unsigned int len, const char *password) {return OpenZipInternal(z,len,ZIP_MEMORY,password);} - - -ZRESULT GetZipItem(HZIP hz, int index, ZIPENTRY *ze) -{ ze->index=0; *ze->name=0; ze->unc_size=0; - if (hz==0) {lasterrorU=ZR_ARGS;return ZR_ARGS;} - TUnzipHandleData *han = (TUnzipHandleData*)hz; - if (han->flag!=1) {lasterrorU=ZR_ZMODE;return ZR_ZMODE;} - TUnzip *unz = han->unz; - lasterrorU = unz->Get(index,ze); - return lasterrorU; -} - -ZRESULT FindZipItem(HZIP hz, const TCHAR *name, bool ic, int *index, ZIPENTRY *ze) -{ if (hz==0) {lasterrorU=ZR_ARGS;return ZR_ARGS;} - TUnzipHandleData *han = (TUnzipHandleData*)hz; - if (han->flag!=1) {lasterrorU=ZR_ZMODE;return ZR_ZMODE;} - TUnzip *unz = han->unz; - lasterrorU = unz->Find(name,ic,index,ze); - return lasterrorU; -} - -ZRESULT UnzipItemInternal(HZIP hz, int index, void *dst, unsigned int len, DWORD flags) -{ if (hz==0) {lasterrorU=ZR_ARGS;return ZR_ARGS;} - TUnzipHandleData *han = (TUnzipHandleData*)hz; - if (han->flag!=1) {lasterrorU=ZR_ZMODE;return ZR_ZMODE;} - TUnzip *unz = han->unz; - lasterrorU = unz->Unzip(index,dst,len,flags); - return lasterrorU; -} -ZRESULT UnzipItemHandle(HZIP hz, int index, HANDLE h) {return UnzipItemInternal(hz,index,(void*)h,0,ZIP_HANDLE);} -ZRESULT UnzipItem(HZIP hz, int index, const TCHAR *fn) {return UnzipItemInternal(hz,index,(void*)fn,0,ZIP_FILENAME);} -ZRESULT UnzipItem(HZIP hz, int index, void *z,unsigned int len) {return UnzipItemInternal(hz,index,z,len,ZIP_MEMORY);} - -ZRESULT SetUnzipBaseDir(HZIP hz, const TCHAR *dir) -{ if (hz==0) {lasterrorU=ZR_ARGS;return ZR_ARGS;} - TUnzipHandleData *han = (TUnzipHandleData*)hz; - if (han->flag!=1) {lasterrorU=ZR_ZMODE;return ZR_ZMODE;} - TUnzip *unz = han->unz; - lasterrorU = unz->SetUnzipBaseDir(dir); - return lasterrorU; -} - - -ZRESULT CloseZipU(HZIP hz) -{ if (hz==0) {lasterrorU=ZR_ARGS;return ZR_ARGS;} - TUnzipHandleData *han = (TUnzipHandleData*)hz; - if (han->flag!=1) {lasterrorU=ZR_ZMODE;return ZR_ZMODE;} - TUnzip *unz = han->unz; - lasterrorU = unz->Close(); - delete unz; - delete han; - return lasterrorU; -} - -bool IsZipHandleU(HZIP hz) -{ if (hz==0) return false; - TUnzipHandleData *han = (TUnzipHandleData*)hz; - return (han->flag==1); -} - - diff --git a/CocXlsxTool/unzip.h b/CocXlsxTool/unzip.h deleted file mode 100644 index 70d3ad3c..00000000 --- a/CocXlsxTool/unzip.h +++ /dev/null @@ -1,214 +0,0 @@ -#ifndef _unzip_H -#define _unzip_H - -// UNZIPPING functions -- for unzipping. -// This file is a repackaged form of extracts from the zlib code available -// at www.gzip.org/zlib, by Jean-Loup Gailly and Mark Adler. The original -// copyright notice may be found in unzip.cpp. The repackaging was done -// by Lucian Wischik to simplify and extend its use in Windows/C++. Also -// encryption and unicode filenames have been added. - - -#ifndef _zip_H -DECLARE_HANDLE(HZIP); -#endif -// An HZIP identifies a zip file that has been opened - -typedef DWORD ZRESULT; -// return codes from any of the zip functions. Listed later. - -typedef struct -{ int index; // index of this file within the zip - TCHAR name[MAX_PATH]; // filename within the zip - DWORD attr; // attributes, as in GetFileAttributes. - FILETIME atime,ctime,mtime;// access, create, modify filetimes - long comp_size; // sizes of item, compressed and uncompressed. These - long unc_size; // may be -1 if not yet known (e.g. being streamed in) -} ZIPENTRY; - - -HZIP OpenZip(const TCHAR *fn, const char *password); -HZIP OpenZip(void *z,unsigned int len, const char *password); -HZIP OpenZipHandle(HANDLE h, const char *password); -// OpenZip - opens a zip file and returns a handle with which you can -// subsequently examine its contents. You can open a zip file from: -// from a pipe: OpenZipHandle(hpipe_read,0); -// from a file (by handle): OpenZipHandle(hfile,0); -// from a file (by name): OpenZip("c:\\test.zip","password"); -// from a memory block: OpenZip(bufstart, buflen,0); -// If the file is opened through a pipe, then items may only be -// accessed in increasing order, and an item may only be unzipped once, -// although GetZipItem can be called immediately before and after unzipping -// it. If it's opened in any other way, then full random access is possible. -// Note: pipe input is not yet implemented. -// Note: zip passwords are ascii, not unicode. -// Note: for windows-ce, you cannot close the handle until after CloseZip. -// but for real windows, the zip makes its own copy of your handle, so you -// can close yours anytime. - -ZRESULT GetZipItem(HZIP hz, int index, ZIPENTRY *ze); -// GetZipItem - call this to get information about an item in the zip. -// If index is -1 and the file wasn't opened through a pipe, -// then it returns information about the whole zipfile -// (and in particular ze.index returns the number of index items). -// Note: the item might be a directory (ze.attr & FILE_ATTRIBUTE_DIRECTORY) -// See below for notes on what happens when you unzip such an item. -// Note: if you are opening the zip through a pipe, then random access -// is not possible and GetZipItem(-1) fails and you can't discover the number -// of items except by calling GetZipItem on each one of them in turn, -// starting at 0, until eventually the call fails. Also, in the event that -// you are opening through a pipe and the zip was itself created into a pipe, -// then then comp_size and sometimes unc_size as well may not be known until -// after the item has been unzipped. - -ZRESULT FindZipItem(HZIP hz, const TCHAR *name, bool ic, int *index, ZIPENTRY *ze); -// FindZipItem - finds an item by name. ic means 'insensitive to case'. -// It returns the index of the item, and returns information about it. -// If nothing was found, then index is set to -1 and the function returns -// an error code. - -ZRESULT UnzipItem(HZIP hz, int index, const TCHAR *fn); -ZRESULT UnzipItem(HZIP hz, int index, void *z,unsigned int len); -ZRESULT UnzipItemHandle(HZIP hz, int index, HANDLE h); -// UnzipItem - given an index to an item, unzips it. You can unzip to: -// to a pipe: UnzipItemHandle(hz,i, hpipe_write); -// to a file (by handle): UnzipItemHandle(hz,i, hfile); -// to a file (by name): UnzipItem(hz,i, ze.name); -// to a memory block: UnzipItem(hz,i, buf,buflen); -// In the final case, if the buffer isn't large enough to hold it all, -// then the return code indicates that more is yet to come. If it was -// large enough, and you want to know precisely how big, GetZipItem. -// Note: zip files are normally stored with relative pathnames. If you -// unzip with ZIP_FILENAME a relative pathname then the item gets created -// relative to the current directory - it first ensures that all necessary -// subdirectories have been created. Also, the item may itself be a directory. -// If you unzip a directory with ZIP_FILENAME, then the directory gets created. -// If you unzip it to a handle or a memory block, then nothing gets created -// and it emits 0 bytes. -ZRESULT SetUnzipBaseDir(HZIP hz, const TCHAR *dir); -// if unzipping to a filename, and it's a relative filename, then it will be relative to here. -// (defaults to current-directory). - - -ZRESULT CloseZip(HZIP hz); -// CloseZip - the zip handle must be closed with this function. - -unsigned int FormatZipMessage(ZRESULT code, TCHAR *buf,unsigned int len); -// FormatZipMessage - given an error code, formats it as a string. -// It returns the length of the error message. If buf/len points -// to a real buffer, then it also writes as much as possible into there. - - -// These are the result codes: -#define ZR_OK 0x00000000 // nb. the pseudo-code zr-recent is never returned, -#define ZR_RECENT 0x00000001 // but can be passed to FormatZipMessage. -// The following come from general system stuff (e.g. files not openable) -#define ZR_GENMASK 0x0000FF00 -#define ZR_NODUPH 0x00000100 // couldn't duplicate the handle -#define ZR_NOFILE 0x00000200 // couldn't create/open the file -#define ZR_NOALLOC 0x00000300 // failed to allocate some resource -#define ZR_WRITE 0x00000400 // a general error writing to the file -#define ZR_NOTFOUND 0x00000500 // couldn't find that file in the zip -#define ZR_MORE 0x00000600 // there's still more data to be unzipped -#define ZR_CORRUPT 0x00000700 // the zipfile is corrupt or not a zipfile -#define ZR_READ 0x00000800 // a general error reading the file -#define ZR_PASSWORD 0x00001000 // we didn't get the right password to unzip the file -// The following come from mistakes on the part of the caller -#define ZR_CALLERMASK 0x00FF0000 -#define ZR_ARGS 0x00010000 // general mistake with the arguments -#define ZR_NOTMMAP 0x00020000 // tried to ZipGetMemory, but that only works on mmap zipfiles, which yours wasn't -#define ZR_MEMSIZE 0x00030000 // the memory size is too small -#define ZR_FAILED 0x00040000 // the thing was already failed when you called this function -#define ZR_ENDED 0x00050000 // the zip creation has already been closed -#define ZR_MISSIZE 0x00060000 // the indicated input file size turned out mistaken -#define ZR_PARTIALUNZ 0x00070000 // the file had already been partially unzipped -#define ZR_ZMODE 0x00080000 // tried to mix creating/opening a zip -// The following come from bugs within the zip library itself -#define ZR_BUGMASK 0xFF000000 -#define ZR_NOTINITED 0x01000000 // initialisation didn't work -#define ZR_SEEK 0x02000000 // trying to seek in an unseekable file -#define ZR_NOCHANGE 0x04000000 // changed its mind on storage, but not allowed -#define ZR_FLATE 0x05000000 // an internal error in the de/inflation code - - - - - -// e.g. -// -// SetCurrentDirectory("c:\\docs\\stuff"); -// HZIP hz = OpenZip("c:\\stuff.zip",0); -// ZIPENTRY ze; GetZipItem(hz,-1,&ze); int numitems=ze.index; -// for (int i=0; i -#include -#include -#include "zip.h" - - -// THIS FILE is almost entirely based upon code by info-zip. -// It has been modified by Lucian Wischik. The modifications -// were a complete rewrite of the bit of code that generates the -// layout of the zipfile, and support for zipping to/from memory -// or handles or pipes or pagefile or diskfiles, encryption, unicode. -// The original code may be found at http://www.info-zip.org -// The original copyright text follows. -// -// -// -// This is version 1999-Oct-05 of the Info-ZIP copyright and license. -// The definitive version of this document should be available at -// ftp://ftp.cdrom.com/pub/infozip/license.html indefinitely. -// -// Copyright (c) 1990-1999 Info-ZIP. All rights reserved. -// -// For the purposes of this copyright and license, "Info-ZIP" is defined as -// the following set of individuals: -// -// Mark Adler, John Bush, Karl Davis, Harald Denker, Jean-Michel Dubois, -// Jean-loup Gailly, Hunter Goatley, Ian Gorman, Chris Herborth, Dirk Haase, -// Greg Hartwig, Robert Heath, Jonathan Hudson, Paul Kienitz, David Kirschbaum, -// Johnny Lee, Onno van der Linden, Igor Mandrichenko, Steve P. Miller, -// Sergio Monesi, Keith Owens, George Petrov, Greg Roelofs, Kai Uwe Rommel, -// Steve Salisbury, Dave Smith, Christian Spieler, Antoine Verheijen, -// Paul von Behren, Rich Wales, Mike White -// -// This software is provided "as is," without warranty of any kind, express -// or implied. In no event shall Info-ZIP or its contributors be held liable -// for any direct, indirect, incidental, special or consequential damages -// arising out of the use of or inability to use this software. -// -// Permission is granted to anyone to use this software for any purpose, -// including commercial applications, and to alter it and redistribute it -// freely, subject to the following restrictions: -// -// 1. Redistributions of source code must retain the above copyright notice, -// definition, disclaimer, and this list of conditions. -// -// 2. Redistributions in binary form must reproduce the above copyright -// notice, definition, disclaimer, and this list of conditions in -// documentation and/or other materials provided with the distribution. -// -// 3. Altered versions--including, but not limited to, ports to new operating -// systems, existing ports with new graphical interfaces, and dynamic, -// shared, or static library versions--must be plainly marked as such -// and must not be misrepresented as being the original source. Such -// altered versions also must not be misrepresented as being Info-ZIP -// releases--including, but not limited to, labeling of the altered -// versions with the names "Info-ZIP" (or any variation thereof, including, -// but not limited to, different capitalizations), "Pocket UnZip," "WiZ" -// or "MacZip" without the explicit permission of Info-ZIP. Such altered -// versions are further prohibited from misrepresentative use of the -// Zip-Bugs or Info-ZIP e-mail addresses or of the Info-ZIP URL(s). -// -// 4. Info-ZIP retains the right to use the names "Info-ZIP," "Zip," "UnZip," -// "WiZ," "Pocket UnZip," "Pocket Zip," and "MacZip" for its own source and -// binary releases. -// - - -typedef unsigned char uch; // unsigned 8-bit value -typedef unsigned short ush; // unsigned 16-bit value -typedef unsigned long ulg; // unsigned 32-bit value -typedef size_t extent; // file size -typedef unsigned Pos; // must be at least 32 bits -typedef unsigned IPos; // A Pos is an index in the character window. Pos is used only for parameter passing - -#ifndef EOF -#define EOF (-1) -#endif - - -// Error return values. The values 0..4 and 12..18 follow the conventions -// of PKZIP. The values 4..10 are all assigned to "insufficient memory" -// by PKZIP, so the codes 5..10 are used here for other purposes. -#define ZE_MISS -1 // used by procname(), zipbare() -#define ZE_OK 0 // success -#define ZE_EOF 2 // unexpected end of zip file -#define ZE_FORM 3 // zip file structure error -#define ZE_MEM 4 // out of memory -#define ZE_LOGIC 5 // internal logic error -#define ZE_BIG 6 // entry too large to split -#define ZE_NOTE 7 // invalid comment format -#define ZE_TEST 8 // zip test (-T) failed or out of memory -#define ZE_ABORT 9 // user interrupt or termination -#define ZE_TEMP 10 // error using a temp file -#define ZE_READ 11 // read or seek error -#define ZE_NONE 12 // nothing to do -#define ZE_NAME 13 // missing or empty zip file -#define ZE_WRITE 14 // error writing to a file -#define ZE_CREAT 15 // couldn't open to write -#define ZE_PARMS 16 // bad command line -#define ZE_OPEN 18 // could not open a specified file to read -#define ZE_MAXERR 18 // the highest error number - - -// internal file attribute -#define UNKNOWN (-1) -#define BINARY 0 -#define ASCII 1 - -#define BEST -1 // Use best method (deflation or store) -#define STORE 0 // Store method -#define DEFLATE 8 // Deflation method - -#define CRCVAL_INITIAL 0L - -// MSDOS file or directory attributes -#define MSDOS_HIDDEN_ATTR 0x02 -#define MSDOS_DIR_ATTR 0x10 - -// Lengths of headers after signatures in bytes -#define LOCHEAD 26 -#define CENHEAD 42 -#define ENDHEAD 18 - -// Definitions for extra field handling: -#define EB_HEADSIZE 4 /* length of a extra field block header */ -#define EB_LEN 2 /* offset of data length field in header */ -#define EB_UT_MINLEN 1 /* minimal UT field contains Flags byte */ -#define EB_UT_FLAGS 0 /* byte offset of Flags field */ -#define EB_UT_TIME1 1 /* byte offset of 1st time value */ -#define EB_UT_FL_MTIME (1 << 0) /* mtime present */ -#define EB_UT_FL_ATIME (1 << 1) /* atime present */ -#define EB_UT_FL_CTIME (1 << 2) /* ctime present */ -#define EB_UT_LEN(n) (EB_UT_MINLEN + 4 * (n)) -#define EB_L_UT_SIZE (EB_HEADSIZE + EB_UT_LEN(3)) -#define EB_C_UT_SIZE (EB_HEADSIZE + EB_UT_LEN(1)) - - -// Macros for writing machine integers to little-endian format -#define PUTSH(a,f) {char _putsh_c=(char)((a)&0xff); wfunc(param,&_putsh_c,1); _putsh_c=(char)((a)>>8); wfunc(param,&_putsh_c,1);} -#define PUTLG(a,f) {PUTSH((a) & 0xffff,(f)) PUTSH((a) >> 16,(f))} - - -// -- Structure of a ZIP file -- -// Signatures for zip file information headers -#define LOCSIG 0x04034b50L -#define CENSIG 0x02014b50L -#define ENDSIG 0x06054b50L -#define EXTLOCSIG 0x08074b50L - - -#define MIN_MATCH 3 -#define MAX_MATCH 258 -// The minimum and maximum match lengths - - -#define WSIZE (0x8000) -// Maximum window size = 32K. If you are really short of memory, compile -// with a smaller WSIZE but this reduces the compression ratio for files -// of size > WSIZE. WSIZE must be a power of two in the current implementation. -// - -#define MIN_LOOKAHEAD (MAX_MATCH+MIN_MATCH+1) -// Minimum amount of lookahead, except at the end of the input file. -// See deflate.c for comments about the MIN_MATCH+1. -// - -#define MAX_DIST (WSIZE-MIN_LOOKAHEAD) -// In order to simplify the code, particularly on 16 bit machines, match -// distances are limited to MAX_DIST instead of WSIZE. -// - - -#define ZIP_HANDLE 1 -#define ZIP_FILENAME 2 -#define ZIP_MEMORY 3 -#define ZIP_FOLDER 4 - - - -// =========================================================================== -// Constants -// - -#define MAX_BITS 15 -// All codes must not exceed MAX_BITS bits - -#define MAX_BL_BITS 7 -// Bit length codes must not exceed MAX_BL_BITS bits - -#define LENGTH_CODES 29 -// number of length codes, not counting the special END_BLOCK code - -#define LITERALS 256 -// number of literal bytes 0..255 - -#define END_BLOCK 256 -// end of block literal code - -#define L_CODES (LITERALS+1+LENGTH_CODES) -// number of Literal or Length codes, including the END_BLOCK code - -#define D_CODES 30 -// number of distance codes - -#define BL_CODES 19 -// number of codes used to transfer the bit lengths - - -#define STORED_BLOCK 0 -#define STATIC_TREES 1 -#define DYN_TREES 2 -// The three kinds of block type - -#define LIT_BUFSIZE 0x8000 -#define DIST_BUFSIZE LIT_BUFSIZE -// Sizes of match buffers for literals/lengths and distances. There are -// 4 reasons for limiting LIT_BUFSIZE to 64K: -// - frequencies can be kept in 16 bit counters -// - if compression is not successful for the first block, all input data is -// still in the window so we can still emit a stored block even when input -// comes from standard input. (This can also be done for all blocks if -// LIT_BUFSIZE is not greater than 32K.) -// - if compression is not successful for a file smaller than 64K, we can -// even emit a stored file instead of a stored block (saving 5 bytes). -// - creating new Huffman trees less frequently may not provide fast -// adaptation to changes in the input data statistics. (Take for -// example a binary file with poorly compressible code followed by -// a highly compressible string table.) Smaller buffer sizes give -// fast adaptation but have of course the overhead of transmitting trees -// more frequently. -// - I can't count above 4 -// The current code is general and allows DIST_BUFSIZE < LIT_BUFSIZE (to save -// memory at the expense of compression). Some optimizations would be possible -// if we rely on DIST_BUFSIZE == LIT_BUFSIZE. -// - -#define REP_3_6 16 -// repeat previous bit length 3-6 times (2 bits of repeat count) - -#define REPZ_3_10 17 -// repeat a zero length 3-10 times (3 bits of repeat count) - -#define REPZ_11_138 18 -// repeat a zero length 11-138 times (7 bits of repeat count) - -#define HEAP_SIZE (2*L_CODES+1) -// maximum heap size - - -// =========================================================================== -// Local data used by the "bit string" routines. -// - -#define Buf_size (8 * 2*sizeof(char)) -// Number of bits used within bi_buf. (bi_buf may be implemented on -// more than 16 bits on some systems.) - -// Output a 16 bit value to the bit stream, lower (oldest) byte first -#define PUTSHORT(state,w) \ -{ if (state.bs.out_offset >= state.bs.out_size-1) \ - state.flush_outbuf(state.param,state.bs.out_buf, &state.bs.out_offset); \ - state.bs.out_buf[state.bs.out_offset++] = (char) ((w) & 0xff); \ - state.bs.out_buf[state.bs.out_offset++] = (char) ((ush)(w) >> 8); \ -} - -#define PUTBYTE(state,b) \ -{ if (state.bs.out_offset >= state.bs.out_size) \ - state.flush_outbuf(state.param,state.bs.out_buf, &state.bs.out_offset); \ - state.bs.out_buf[state.bs.out_offset++] = (char) (b); \ -} - -// DEFLATE.CPP HEADER - -#define HASH_BITS 15 -// For portability to 16 bit machines, do not use values above 15. - -#define HASH_SIZE (unsigned)(1<= HASH_BITS - -#define max_insert_length max_lazy_match -// Insert new strings in the hash table only if the match length -// is not greater than this length. This saves time but degrades compression. -// max_insert_length is used only for compression levels <= 3. - - - -const int extra_lbits[LENGTH_CODES] // extra bits for each length code - = {0,0,0,0,0,0,0,0,1,1,1,1,2,2,2,2,3,3,3,3,4,4,4,4,5,5,5,5,0}; - -const int extra_dbits[D_CODES] // extra bits for each distance code - = {0,0,0,0,1,1,2,2,3,3,4,4,5,5,6,6,7,7,8,8,9,9,10,10,11,11,12,12,13,13}; - -const int extra_blbits[BL_CODES]// extra bits for each bit length code - = {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,3,7}; - -const uch bl_order[BL_CODES] = {16,17,18,0,8,7,9,6,10,5,11,4,12,3,13,2,14,1,15}; -// The lengths of the bit length codes are sent in order of decreasing -// probability, to avoid transmitting the lengths for unused bit length codes. - - -typedef struct config { - ush good_length; // reduce lazy search above this match length - ush max_lazy; // do not perform lazy search above this match length - ush nice_length; // quit search above this match length - ush max_chain; -} config; - -// Values for max_lazy_match, good_match, nice_match and max_chain_length, -// depending on the desired pack level (0..9). The values given below have -// been tuned to exclude worst case performance for pathological files. -// Better values may be found for specific files. -// - -const config configuration_table[10] = { -// good lazy nice chain - {0, 0, 0, 0}, // 0 store only - {4, 4, 8, 4}, // 1 maximum speed, no lazy matches - {4, 5, 16, 8}, // 2 - {4, 6, 32, 32}, // 3 - {4, 4, 16, 16}, // 4 lazy matches */ - {8, 16, 32, 32}, // 5 - {8, 16, 128, 128}, // 6 - {8, 32, 128, 256}, // 7 - {32, 128, 258, 1024}, // 8 - {32, 258, 258, 4096}};// 9 maximum compression */ - -// Note: the deflate() code requires max_lazy >= MIN_MATCH and max_chain >= 4 -// For deflate_fast() (levels <= 3) good is ignored and lazy has a different meaning. - - - - - - - -// Data structure describing a single value and its code string. -typedef struct ct_data { - union { - ush freq; // frequency count - ush code; // bit string - } fc; - union { - ush dad; // father node in Huffman tree - ush len; // length of bit string - } dl; -} ct_data; - -typedef struct tree_desc { - ct_data *dyn_tree; // the dynamic tree - ct_data *static_tree; // corresponding static tree or NULL - const int *extra_bits; // extra bits for each code or NULL - int extra_base; // base index for extra_bits - int elems; // max number of elements in the tree - int max_length; // max bit length for the codes - int max_code; // largest code with non zero frequency -} tree_desc; - - - - -class TTreeState -{ public: - TTreeState(); - - ct_data dyn_ltree[HEAP_SIZE]; // literal and length tree - ct_data dyn_dtree[2*D_CODES+1]; // distance tree - ct_data static_ltree[L_CODES+2]; // the static literal tree... - // ... Since the bit lengths are imposed, there is no need for the L_CODES - // extra codes used during heap construction. However the codes 286 and 287 - // are needed to build a canonical tree (see ct_init below). - ct_data static_dtree[D_CODES]; // the static distance tree... - // ... (Actually a trivial tree since all codes use 5 bits.) - ct_data bl_tree[2*BL_CODES+1]; // Huffman tree for the bit lengths - - tree_desc l_desc; - tree_desc d_desc; - tree_desc bl_desc; - - ush bl_count[MAX_BITS+1]; // number of codes at each bit length for an optimal tree - - int heap[2*L_CODES+1]; // heap used to build the Huffman trees - int heap_len; // number of elements in the heap - int heap_max; // element of largest frequency - // The sons of heap[n] are heap[2*n] and heap[2*n+1]. heap[0] is not used. - // The same heap array is used to build all trees. - - uch depth[2*L_CODES+1]; - // Depth of each subtree used as tie breaker for trees of equal frequency - - uch length_code[MAX_MATCH-MIN_MATCH+1]; - // length code for each normalized match length (0 == MIN_MATCH) - - uch dist_code[512]; - // distance codes. The first 256 values correspond to the distances - // 3 .. 258, the last 256 values correspond to the top 8 bits of - // the 15 bit distances. - - int base_length[LENGTH_CODES]; - // First normalized length for each code (0 = MIN_MATCH) - - int base_dist[D_CODES]; - // First normalized distance for each code (0 = distance of 1) - - uch far l_buf[LIT_BUFSIZE]; // buffer for literals/lengths - ush far d_buf[DIST_BUFSIZE]; // buffer for distances - - uch flag_buf[(LIT_BUFSIZE/8)]; - // flag_buf is a bit array distinguishing literals from lengths in - // l_buf, and thus indicating the presence or absence of a distance. - - unsigned last_lit; // running index in l_buf - unsigned last_dist; // running index in d_buf - unsigned last_flags; // running index in flag_buf - uch flags; // current flags not yet saved in flag_buf - uch flag_bit; // current bit used in flags - // bits are filled in flags starting at bit 0 (least significant). - // Note: these flags are overkill in the current code since we don't - // take advantage of DIST_BUFSIZE == LIT_BUFSIZE. - - ulg opt_len; // bit length of current block with optimal trees - ulg static_len; // bit length of current block with static trees - - ulg cmpr_bytelen; // total byte length of compressed file - ulg cmpr_len_bits; // number of bits past 'cmpr_bytelen' - - ulg input_len; // total byte length of input file - // input_len is for debugging only since we can get it by other means. - - ush *file_type; // pointer to UNKNOWN, BINARY or ASCII -// int *file_method; // pointer to DEFLATE or STORE -}; - -TTreeState::TTreeState() -{ tree_desc a = {dyn_ltree, static_ltree, extra_lbits, LITERALS+1, L_CODES, MAX_BITS, 0}; l_desc = a; - tree_desc b = {dyn_dtree, static_dtree, extra_dbits, 0, D_CODES, MAX_BITS, 0}; d_desc = b; - tree_desc c = {bl_tree, NULL, extra_blbits, 0, BL_CODES, MAX_BL_BITS, 0}; bl_desc = c; - last_lit=0; - last_dist=0; - last_flags=0; -} - - - -class TBitState -{ public: - - int flush_flg; - // - unsigned bi_buf; - // Output buffer. bits are inserted starting at the bottom (least significant - // bits). The width of bi_buf must be at least 16 bits. - int bi_valid; - // Number of valid bits in bi_buf. All bits above the last valid bit - // are always zero. - char *out_buf; - // Current output buffer. - unsigned out_offset; - // Current offset in output buffer. - // On 16 bit machines, the buffer is limited to 64K. - unsigned out_size; - // Size of current output buffer - ulg bits_sent; // bit length of the compressed data only needed for debugging??? -}; - - - - - - - -class TDeflateState -{ public: - TDeflateState() {window_size=0;} - - uch window[2L*WSIZE]; - // Sliding window. Input bytes are read into the second half of the window, - // and move to the first half later to keep a dictionary of at least WSIZE - // bytes. With this organization, matches are limited to a distance of - // WSIZE-MAX_MATCH bytes, but this ensures that IO is always - // performed with a length multiple of the block size. Also, it limits - // the window size to 64K, which is quite useful on MSDOS. - // To do: limit the window size to WSIZE+CBSZ if SMALL_MEM (the code would - // be less efficient since the data would have to be copied WSIZE/CBSZ times) - Pos prev[WSIZE]; - // Link to older string with same hash index. To limit the size of this - // array to 64K, this link is maintained only for the last 32K strings. - // An index in this array is thus a window index modulo 32K. - Pos head[HASH_SIZE]; - // Heads of the hash chains or NIL. If your compiler thinks that - // HASH_SIZE is a dynamic value, recompile with -DDYN_ALLOC. - - ulg window_size; - // window size, 2*WSIZE except for MMAP or BIG_MEM, where it is the - // input file length plus MIN_LOOKAHEAD. - - long block_start; - // window position at the beginning of the current output block. Gets - // negative when the window is moved backwards. - - int sliding; - // Set to false when the input file is already in memory - - unsigned ins_h; // hash index of string to be inserted - - unsigned int prev_length; - // Length of the best match at previous step. Matches not greater than this - // are discarded. This is used in the lazy match evaluation. - - unsigned strstart; // start of string to insert - unsigned match_start; // start of matching string - int eofile; // flag set at end of input file - unsigned lookahead; // number of valid bytes ahead in window - - unsigned max_chain_length; - // To speed up deflation, hash chains are never searched beyond this length. - // A higher limit improves compression ratio but degrades the speed. - - unsigned int max_lazy_match; - // Attempt to find a better match only when the current match is strictly - // smaller than this value. This mechanism is used only for compression - // levels >= 4. - - unsigned good_match; - // Use a faster search when the previous match is longer than this - - int nice_match; // Stop searching when current match exceeds this -}; - -typedef __int64 lutime_t; // define it ourselves since we don't include time.h - -typedef struct iztimes { - lutime_t atime,mtime,ctime; -} iztimes; // access, modify, create times - -typedef struct zlist { - ush vem, ver, flg, how; // See central header in zipfile.c for what vem..off are - ulg tim, crc, siz, len; - extent nam, ext, cext, com; // offset of ext must be >= LOCHEAD - ush dsk, att, lflg; // offset of lflg must be >= LOCHEAD - ulg atx, off; - char name[MAX_PATH]; // File name in zip file - char *extra; // Extra field (set only if ext != 0) - char *cextra; // Extra in central (set only if cext != 0) - char *comment; // Comment (set only if com != 0) - char iname[MAX_PATH]; // Internal file name after cleanup - char zname[MAX_PATH]; // External version of internal name - int mark; // Marker for files to operate on - int trash; // Marker for files to delete - int dosflag; // Set to force MSDOS file attributes - struct zlist far *nxt; // Pointer to next header in list -} TZipFileInfo; - - -struct TState; -typedef unsigned (*READFUNC)(TState &state, char *buf,unsigned size); -typedef unsigned (*FLUSHFUNC)(void *param, const char *buf, unsigned *size); -typedef unsigned (*WRITEFUNC)(void *param, const char *buf, unsigned size); -struct TState -{ void *param; - int level; bool seekable; - READFUNC readfunc; FLUSHFUNC flush_outbuf; - TTreeState ts; TBitState bs; TDeflateState ds; - const char *err; -}; - - - - - - - - - -void Assert(TState &state,bool cond, const char *msg) -{ if (cond) return; - state.err=msg; -} -void __cdecl Trace(const char *x, ...) {va_list paramList; va_start(paramList, x); paramList; va_end(paramList);} -void __cdecl Tracec(bool ,const char *x, ...) {va_list paramList; va_start(paramList, x); paramList; va_end(paramList);} - - - -// =========================================================================== -// Local (static) routines in this file. -// - -void init_block (TState &); -void pqdownheap (TState &,ct_data *tree, int k); -void gen_bitlen (TState &,tree_desc *desc); -void gen_codes (TState &state,ct_data *tree, int max_code); -void build_tree (TState &,tree_desc *desc); -void scan_tree (TState &,ct_data *tree, int max_code); -void send_tree (TState &state,ct_data *tree, int max_code); -int build_bl_tree (TState &); -void send_all_trees (TState &state,int lcodes, int dcodes, int blcodes); -void compress_block (TState &state,ct_data *ltree, ct_data *dtree); -void set_file_type (TState &); -void send_bits (TState &state, int value, int length); -unsigned bi_reverse (unsigned code, int len); -void bi_windup (TState &state); -void copy_block (TState &state,char *buf, unsigned len, int header); - - -#define send_code(state, c, tree) send_bits(state, tree[c].fc.code, tree[c].dl.len) -// Send a code of the given tree. c and tree must not have side effects - -// alternatively... -//#define send_code(state, c, tree) -// { if (state.verbose>1) fprintf(stderr,"\ncd %3d ",(c)); -// send_bits(state, tree[c].fc.code, tree[c].dl.len); } - -#define d_code(dist) ((dist) < 256 ? state.ts.dist_code[dist] : state.ts.dist_code[256+((dist)>>7)]) -// Mapping from a distance to a distance code. dist is the distance - 1 and -// must not have side effects. dist_code[256] and dist_code[257] are never used. - -#define Max(a,b) (a >= b ? a : b) -/* the arguments must not have side effects */ - -/* =========================================================================== - * Allocate the match buffer, initialize the various tables and save the - * location of the internal file attribute (ascii/binary) and method - * (DEFLATE/STORE). - */ -void ct_init(TState &state, ush *attr) -{ - int n; /* iterates over tree elements */ - int bits; /* bit counter */ - int length; /* length value */ - int code; /* code value */ - int dist; /* distance index */ - - state.ts.file_type = attr; - //state.ts.file_method = method; - state.ts.cmpr_bytelen = state.ts.cmpr_len_bits = 0L; - state.ts.input_len = 0L; - - if (state.ts.static_dtree[0].dl.len != 0) return; /* ct_init already called */ - - /* Initialize the mapping length (0..255) -> length code (0..28) */ - length = 0; - for (code = 0; code < LENGTH_CODES-1; code++) { - state.ts.base_length[code] = length; - for (n = 0; n < (1< dist code (0..29) */ - dist = 0; - for (code = 0 ; code < 16; code++) { - state.ts.base_dist[code] = dist; - for (n = 0; n < (1<>= 7; /* from now on, all distances are divided by 128 */ - for ( ; code < D_CODES; code++) { - state.ts.base_dist[code] = dist << 7; - for (n = 0; n < (1<<(extra_dbits[code]-7)); n++) { - state.ts.dist_code[256 + dist++] = (uch)code; - } - } - Assert(state,dist == 256, "ct_init: 256+dist != 512"); - - /* Construct the codes of the static literal tree */ - for (bits = 0; bits <= MAX_BITS; bits++) state.ts.bl_count[bits] = 0; - n = 0; - while (n <= 143) state.ts.static_ltree[n++].dl.len = 8, state.ts.bl_count[8]++; - while (n <= 255) state.ts.static_ltree[n++].dl.len = 9, state.ts.bl_count[9]++; - while (n <= 279) state.ts.static_ltree[n++].dl.len = 7, state.ts.bl_count[7]++; - while (n <= 287) state.ts.static_ltree[n++].dl.len = 8, state.ts.bl_count[8]++; - /* fc.codes 286 and 287 do not exist, but we must include them in the - * tree construction to get a canonical Huffman tree (longest code - * all ones) - */ - gen_codes(state,(ct_data *)state.ts.static_ltree, L_CODES+1); - - /* The static distance tree is trivial: */ - for (n = 0; n < D_CODES; n++) { - state.ts.static_dtree[n].dl.len = 5; - state.ts.static_dtree[n].fc.code = (ush)bi_reverse(n, 5); - } - - /* Initialize the first block of the first file: */ - init_block(state); -} - -/* =========================================================================== - * Initialize a new block. - */ -void init_block(TState &state) -{ - int n; /* iterates over tree elements */ - - /* Initialize the trees. */ - for (n = 0; n < L_CODES; n++) state.ts.dyn_ltree[n].fc.freq = 0; - for (n = 0; n < D_CODES; n++) state.ts.dyn_dtree[n].fc.freq = 0; - for (n = 0; n < BL_CODES; n++) state.ts.bl_tree[n].fc.freq = 0; - - state.ts.dyn_ltree[END_BLOCK].fc.freq = 1; - state.ts.opt_len = state.ts.static_len = 0L; - state.ts.last_lit = state.ts.last_dist = state.ts.last_flags = 0; - state.ts.flags = 0; state.ts.flag_bit = 1; -} - -#define SMALLEST 1 -/* Index within the heap array of least frequent node in the Huffman tree */ - - -/* =========================================================================== - * Remove the smallest element from the heap and recreate the heap with - * one less element. Updates heap and heap_len. - */ -#define pqremove(tree, top) \ -{\ - top = state.ts.heap[SMALLEST]; \ - state.ts.heap[SMALLEST] = state.ts.heap[state.ts.heap_len--]; \ - pqdownheap(state,tree, SMALLEST); \ -} - -/* =========================================================================== - * Compares to subtrees, using the tree depth as tie breaker when - * the subtrees have equal frequency. This minimizes the worst case length. - */ -#define smaller(tree, n, m) \ - (tree[n].fc.freq < tree[m].fc.freq || \ - (tree[n].fc.freq == tree[m].fc.freq && state.ts.depth[n] <= state.ts.depth[m])) - -/* =========================================================================== - * Restore the heap property by moving down the tree starting at node k, - * exchanging a node with the smallest of its two sons if necessary, stopping - * when the heap property is re-established (each father smaller than its - * two sons). - */ -void pqdownheap(TState &state,ct_data *tree, int k) -{ - int v = state.ts.heap[k]; - int j = k << 1; /* left son of k */ - int htemp; /* required because of bug in SASC compiler */ - - while (j <= state.ts.heap_len) { - /* Set j to the smallest of the two sons: */ - if (j < state.ts.heap_len && smaller(tree, state.ts.heap[j+1], state.ts.heap[j])) j++; - - /* Exit if v is smaller than both sons */ - htemp = state.ts.heap[j]; - if (smaller(tree, v, htemp)) break; - - /* Exchange v with the smallest son */ - state.ts.heap[k] = htemp; - k = j; - - /* And continue down the tree, setting j to the left son of k */ - j <<= 1; - } - state.ts.heap[k] = v; -} - -/* =========================================================================== - * Compute the optimal bit lengths for a tree and update the total bit length - * for the current block. - * IN assertion: the fields freq and dad are set, heap[heap_max] and - * above are the tree nodes sorted by increasing frequency. - * OUT assertions: the field len is set to the optimal bit length, the - * array bl_count contains the frequencies for each bit length. - * The length opt_len is updated; static_len is also updated if stree is - * not null. - */ -void gen_bitlen(TState &state,tree_desc *desc) -{ - ct_data *tree = desc->dyn_tree; - const int *extra = desc->extra_bits; - int base = desc->extra_base; - int max_code = desc->max_code; - int max_length = desc->max_length; - ct_data *stree = desc->static_tree; - int h; /* heap index */ - int n, m; /* iterate over the tree elements */ - int bits; /* bit length */ - int xbits; /* extra bits */ - ush f; /* frequency */ - int overflow = 0; /* number of elements with bit length too large */ - - for (bits = 0; bits <= MAX_BITS; bits++) state.ts.bl_count[bits] = 0; - - /* In a first pass, compute the optimal bit lengths (which may - * overflow in the case of the bit length tree). - */ - tree[state.ts.heap[state.ts.heap_max]].dl.len = 0; /* root of the heap */ - - for (h = state.ts.heap_max+1; h < HEAP_SIZE; h++) { - n = state.ts.heap[h]; - bits = tree[tree[n].dl.dad].dl.len + 1; - if (bits > max_length) bits = max_length, overflow++; - tree[n].dl.len = (ush)bits; - /* We overwrite tree[n].dl.dad which is no longer needed */ - - if (n > max_code) continue; /* not a leaf node */ - - state.ts.bl_count[bits]++; - xbits = 0; - if (n >= base) xbits = extra[n-base]; - f = tree[n].fc.freq; - state.ts.opt_len += (ulg)f * (bits + xbits); - if (stree) state.ts.static_len += (ulg)f * (stree[n].dl.len + xbits); - } - if (overflow == 0) return; - - Trace("\nbit length overflow\n"); - /* This happens for example on obj2 and pic of the Calgary corpus */ - - /* Find the first bit length which could increase: */ - do { - bits = max_length-1; - while (state.ts.bl_count[bits] == 0) bits--; - state.ts.bl_count[bits]--; /* move one leaf down the tree */ - state.ts.bl_count[bits+1] += (ush)2; /* move one overflow item as its brother */ - state.ts.bl_count[max_length]--; - /* The brother of the overflow item also moves one step up, - * but this does not affect bl_count[max_length] - */ - overflow -= 2; - } while (overflow > 0); - - /* Now recompute all bit lengths, scanning in increasing frequency. - * h is still equal to HEAP_SIZE. (It is simpler to reconstruct all - * lengths instead of fixing only the wrong ones. This idea is taken - * from 'ar' written by Haruhiko Okumura.) - */ - for (bits = max_length; bits != 0; bits--) { - n = state.ts.bl_count[bits]; - while (n != 0) { - m = state.ts.heap[--h]; - if (m > max_code) continue; - if (tree[m].dl.len != (ush)bits) { - Trace("code %d bits %d->%d\n", m, tree[m].dl.len, bits); - state.ts.opt_len += ((long)bits-(long)tree[m].dl.len)*(long)tree[m].fc.freq; - tree[m].dl.len = (ush)bits; - } - n--; - } - } -} - -/* =========================================================================== - * Generate the codes for a given tree and bit counts (which need not be - * optimal). - * IN assertion: the array bl_count contains the bit length statistics for - * the given tree and the field len is set for all tree elements. - * OUT assertion: the field code is set for all tree elements of non - * zero code length. - */ -void gen_codes (TState &state, ct_data *tree, int max_code) -{ - ush next_code[MAX_BITS+1]; /* next code value for each bit length */ - ush code = 0; /* running code value */ - int bits; /* bit index */ - int n; /* code index */ - - /* The distribution counts are first used to generate the code values - * without bit reversal. - */ - for (bits = 1; bits <= MAX_BITS; bits++) { - next_code[bits] = code = (ush)((code + state.ts.bl_count[bits-1]) << 1); - } - /* Check that the bit counts in bl_count are consistent. The last code - * must be all ones. - */ - Assert(state,code + state.ts.bl_count[MAX_BITS]-1 == (1<< ((ush) MAX_BITS)) - 1, - "inconsistent bit counts"); - Trace("\ngen_codes: max_code %d ", max_code); - - for (n = 0; n <= max_code; n++) { - int len = tree[n].dl.len; - if (len == 0) continue; - /* Now reverse the bits */ - tree[n].fc.code = (ush)bi_reverse(next_code[len]++, len); - - //Tracec(tree != state.ts.static_ltree, "\nn %3d %c l %2d c %4x (%x) ", n, (isgraph(n) ? n : ' '), len, tree[n].fc.code, next_code[len]-1); - } -} - -/* =========================================================================== - * Construct one Huffman tree and assigns the code bit strings and lengths. - * Update the total bit length for the current block. - * IN assertion: the field freq is set for all tree elements. - * OUT assertions: the fields len and code are set to the optimal bit length - * and corresponding code. The length opt_len is updated; static_len is - * also updated if stree is not null. The field max_code is set. - */ -void build_tree(TState &state,tree_desc *desc) -{ - ct_data *tree = desc->dyn_tree; - ct_data *stree = desc->static_tree; - int elems = desc->elems; - int n, m; /* iterate over heap elements */ - int max_code = -1; /* largest code with non zero frequency */ - int node = elems; /* next internal node of the tree */ - - /* Construct the initial heap, with least frequent element in - * heap[SMALLEST]. The sons of heap[n] are heap[2*n] and heap[2*n+1]. - * heap[0] is not used. - */ - state.ts.heap_len = 0, state.ts.heap_max = HEAP_SIZE; - - for (n = 0; n < elems; n++) { - if (tree[n].fc.freq != 0) { - state.ts.heap[++state.ts.heap_len] = max_code = n; - state.ts.depth[n] = 0; - } else { - tree[n].dl.len = 0; - } - } - - /* The pkzip format requires that at least one distance code exists, - * and that at least one bit should be sent even if there is only one - * possible code. So to avoid special checks later on we force at least - * two codes of non zero frequency. - */ - while (state.ts.heap_len < 2) { - int newcp = state.ts.heap[++state.ts.heap_len] = (max_code < 2 ? ++max_code : 0); - tree[newcp].fc.freq = 1; - state.ts.depth[newcp] = 0; - state.ts.opt_len--; if (stree) state.ts.static_len -= stree[newcp].dl.len; - /* new is 0 or 1 so it does not have extra bits */ - } - desc->max_code = max_code; - - /* The elements heap[heap_len/2+1 .. heap_len] are leaves of the tree, - * establish sub-heaps of increasing lengths: - */ - for (n = state.ts.heap_len/2; n >= 1; n--) pqdownheap(state,tree, n); - - /* Construct the Huffman tree by repeatedly combining the least two - * frequent nodes. - */ - do { - pqremove(tree, n); /* n = node of least frequency */ - m = state.ts.heap[SMALLEST]; /* m = node of next least frequency */ - - state.ts.heap[--state.ts.heap_max] = n; /* keep the nodes sorted by frequency */ - state.ts.heap[--state.ts.heap_max] = m; - - /* Create a new node father of n and m */ - tree[node].fc.freq = (ush)(tree[n].fc.freq + tree[m].fc.freq); - state.ts.depth[node] = (uch) (Max(state.ts.depth[n], state.ts.depth[m]) + 1); - tree[n].dl.dad = tree[m].dl.dad = (ush)node; - /* and insert the new node in the heap */ - state.ts.heap[SMALLEST] = node++; - pqdownheap(state,tree, SMALLEST); - - } while (state.ts.heap_len >= 2); - - state.ts.heap[--state.ts.heap_max] = state.ts.heap[SMALLEST]; - - /* At this point, the fields freq and dad are set. We can now - * generate the bit lengths. - */ - gen_bitlen(state,(tree_desc *)desc); - - /* The field len is now set, we can generate the bit codes */ - gen_codes (state,(ct_data *)tree, max_code); -} - -/* =========================================================================== - * Scan a literal or distance tree to determine the frequencies of the codes - * in the bit length tree. Updates opt_len to take into account the repeat - * counts. (The contribution of the bit length codes will be added later - * during the construction of bl_tree.) - */ -void scan_tree (TState &state,ct_data *tree, int max_code) -{ - int n; /* iterates over all tree elements */ - int prevlen = -1; /* last emitted length */ - int curlen; /* length of current code */ - int nextlen = tree[0].dl.len; /* length of next code */ - int count = 0; /* repeat count of the current code */ - int max_count = 7; /* max repeat count */ - int min_count = 4; /* min repeat count */ - - if (nextlen == 0) max_count = 138, min_count = 3; - tree[max_code+1].dl.len = (ush)-1; /* guard */ - - for (n = 0; n <= max_code; n++) { - curlen = nextlen; nextlen = tree[n+1].dl.len; - if (++count < max_count && curlen == nextlen) { - continue; - } else if (count < min_count) { - state.ts.bl_tree[curlen].fc.freq = (ush)(state.ts.bl_tree[curlen].fc.freq + count); - } else if (curlen != 0) { - if (curlen != prevlen) state.ts.bl_tree[curlen].fc.freq++; - state.ts.bl_tree[REP_3_6].fc.freq++; - } else if (count <= 10) { - state.ts.bl_tree[REPZ_3_10].fc.freq++; - } else { - state.ts.bl_tree[REPZ_11_138].fc.freq++; - } - count = 0; prevlen = curlen; - if (nextlen == 0) { - max_count = 138, min_count = 3; - } else if (curlen == nextlen) { - max_count = 6, min_count = 3; - } else { - max_count = 7, min_count = 4; - } - } -} - -/* =========================================================================== - * Send a literal or distance tree in compressed form, using the codes in - * bl_tree. - */ -void send_tree (TState &state, ct_data *tree, int max_code) -{ - int n; /* iterates over all tree elements */ - int prevlen = -1; /* last emitted length */ - int curlen; /* length of current code */ - int nextlen = tree[0].dl.len; /* length of next code */ - int count = 0; /* repeat count of the current code */ - int max_count = 7; /* max repeat count */ - int min_count = 4; /* min repeat count */ - - /* tree[max_code+1].dl.len = -1; */ /* guard already set */ - if (nextlen == 0) max_count = 138, min_count = 3; - - for (n = 0; n <= max_code; n++) { - curlen = nextlen; nextlen = tree[n+1].dl.len; - if (++count < max_count && curlen == nextlen) { - continue; - } else if (count < min_count) { - do { send_code(state, curlen, state.ts.bl_tree); } while (--count != 0); - - } else if (curlen != 0) { - if (curlen != prevlen) { - send_code(state, curlen, state.ts.bl_tree); count--; - } - Assert(state,count >= 3 && count <= 6, " 3_6?"); - send_code(state,REP_3_6, state.ts.bl_tree); send_bits(state,count-3, 2); - - } else if (count <= 10) { - send_code(state,REPZ_3_10, state.ts.bl_tree); send_bits(state,count-3, 3); - - } else { - send_code(state,REPZ_11_138, state.ts.bl_tree); send_bits(state,count-11, 7); - } - count = 0; prevlen = curlen; - if (nextlen == 0) { - max_count = 138, min_count = 3; - } else if (curlen == nextlen) { - max_count = 6, min_count = 3; - } else { - max_count = 7, min_count = 4; - } - } -} - -/* =========================================================================== - * Construct the Huffman tree for the bit lengths and return the index in - * bl_order of the last bit length code to send. - */ -int build_bl_tree(TState &state) -{ - int max_blindex; /* index of last bit length code of non zero freq */ - - /* Determine the bit length frequencies for literal and distance trees */ - scan_tree(state,(ct_data *)state.ts.dyn_ltree, state.ts.l_desc.max_code); - scan_tree(state,(ct_data *)state.ts.dyn_dtree, state.ts.d_desc.max_code); - - /* Build the bit length tree: */ - build_tree(state,(tree_desc *)(&state.ts.bl_desc)); - /* opt_len now includes the length of the tree representations, except - * the lengths of the bit lengths codes and the 5+5+4 bits for the counts. - */ - - /* Determine the number of bit length codes to send. The pkzip format - * requires that at least 4 bit length codes be sent. (appnote.txt says - * 3 but the actual value used is 4.) - */ - for (max_blindex = BL_CODES-1; max_blindex >= 3; max_blindex--) { - if (state.ts.bl_tree[bl_order[max_blindex]].dl.len != 0) break; - } - /* Update opt_len to include the bit length tree and counts */ - state.ts.opt_len += 3*(max_blindex+1) + 5+5+4; - Trace("\ndyn trees: dyn %ld, stat %ld", state.ts.opt_len, state.ts.static_len); - - return max_blindex; -} - -/* =========================================================================== - * Send the header for a block using dynamic Huffman trees: the counts, the - * lengths of the bit length codes, the literal tree and the distance tree. - * IN assertion: lcodes >= 257, dcodes >= 1, blcodes >= 4. - */ -void send_all_trees(TState &state,int lcodes, int dcodes, int blcodes) -{ - int rank; /* index in bl_order */ - - Assert(state,lcodes >= 257 && dcodes >= 1 && blcodes >= 4, "not enough codes"); - Assert(state,lcodes <= L_CODES && dcodes <= D_CODES && blcodes <= BL_CODES, - "too many codes"); - Trace("\nbl counts: "); - send_bits(state,lcodes-257, 5); - /* not +255 as stated in appnote.txt 1.93a or -256 in 2.04c */ - send_bits(state,dcodes-1, 5); - send_bits(state,blcodes-4, 4); /* not -3 as stated in appnote.txt */ - for (rank = 0; rank < blcodes; rank++) { - Trace("\nbl code %2d ", bl_order[rank]); - send_bits(state,state.ts.bl_tree[bl_order[rank]].dl.len, 3); - } - Trace("\nbl tree: sent %ld", state.bs.bits_sent); - - send_tree(state,(ct_data *)state.ts.dyn_ltree, lcodes-1); /* send the literal tree */ - Trace("\nlit tree: sent %ld", state.bs.bits_sent); - - send_tree(state,(ct_data *)state.ts.dyn_dtree, dcodes-1); /* send the distance tree */ - Trace("\ndist tree: sent %ld", state.bs.bits_sent); -} - -/* =========================================================================== - * Determine the best encoding for the current block: dynamic trees, static - * trees or store, and output the encoded block to the zip file. This function - * returns the total compressed length (in bytes) for the file so far. - */ -ulg flush_block(TState &state,char *buf, ulg stored_len, int eof) -{ - ulg opt_lenb, static_lenb; /* opt_len and static_len in bytes */ - int max_blindex; /* index of last bit length code of non zero freq */ - - state.ts.flag_buf[state.ts.last_flags] = state.ts.flags; /* Save the flags for the last 8 items */ - - /* Check if the file is ascii or binary */ - if (*state.ts.file_type == (ush)UNKNOWN) set_file_type(state); - - /* Construct the literal and distance trees */ - build_tree(state,(tree_desc *)(&state.ts.l_desc)); - Trace("\nlit data: dyn %ld, stat %ld", state.ts.opt_len, state.ts.static_len); - - build_tree(state,(tree_desc *)(&state.ts.d_desc)); - Trace("\ndist data: dyn %ld, stat %ld", state.ts.opt_len, state.ts.static_len); - /* At this point, opt_len and static_len are the total bit lengths of - * the compressed block data, excluding the tree representations. - */ - - /* Build the bit length tree for the above two trees, and get the index - * in bl_order of the last bit length code to send. - */ - max_blindex = build_bl_tree(state); - - /* Determine the best encoding. Compute first the block length in bytes */ - opt_lenb = (state.ts.opt_len+3+7)>>3; - static_lenb = (state.ts.static_len+3+7)>>3; - state.ts.input_len += stored_len; /* for debugging only */ - - Trace("\nopt %lu(%lu) stat %lu(%lu) stored %lu lit %u dist %u ", - opt_lenb, state.ts.opt_len, static_lenb, state.ts.static_len, stored_len, - state.ts.last_lit, state.ts.last_dist); - - if (static_lenb <= opt_lenb) opt_lenb = static_lenb; - - // Originally, zip allowed the file to be transformed from a compressed - // into a stored file in the case where compression failed, there - // was only one block, and it was allowed to change. I've removed this - // possibility since the code's cleaner if no changes are allowed. - //if (stored_len <= opt_lenb && eof && state.ts.cmpr_bytelen == 0L - // && state.ts.cmpr_len_bits == 0L && state.seekable) - //{ // && state.ts.file_method != NULL - // // Since LIT_BUFSIZE <= 2*WSIZE, the input data must be there: - // Assert(state,buf!=NULL,"block vanished"); - // copy_block(state,buf, (unsigned)stored_len, 0); // without header - // state.ts.cmpr_bytelen = stored_len; - // Assert(state,false,"unimplemented *state.ts.file_method = STORE;"); - // //*state.ts.file_method = STORE; - //} - //else - if (stored_len+4 <= opt_lenb && buf != (char*)NULL) { - /* 4: two words for the lengths */ - /* The test buf != NULL is only necessary if LIT_BUFSIZE > WSIZE. - * Otherwise we can't have processed more than WSIZE input bytes since - * the last block flush, because compression would have been - * successful. If LIT_BUFSIZE <= WSIZE, it is never too late to - * transform a block into a stored block. - */ - send_bits(state,(STORED_BLOCK<<1)+eof, 3); /* send block type */ - state.ts.cmpr_bytelen += ((state.ts.cmpr_len_bits + 3 + 7) >> 3) + stored_len + 4; - state.ts.cmpr_len_bits = 0L; - - copy_block(state,buf, (unsigned)stored_len, 1); /* with header */ - } - else if (static_lenb == opt_lenb) { - send_bits(state,(STATIC_TREES<<1)+eof, 3); - compress_block(state,(ct_data *)state.ts.static_ltree, (ct_data *)state.ts.static_dtree); - state.ts.cmpr_len_bits += 3 + state.ts.static_len; - state.ts.cmpr_bytelen += state.ts.cmpr_len_bits >> 3; - state.ts.cmpr_len_bits &= 7L; - } - else { - send_bits(state,(DYN_TREES<<1)+eof, 3); - send_all_trees(state,state.ts.l_desc.max_code+1, state.ts.d_desc.max_code+1, max_blindex+1); - compress_block(state,(ct_data *)state.ts.dyn_ltree, (ct_data *)state.ts.dyn_dtree); - state.ts.cmpr_len_bits += 3 + state.ts.opt_len; - state.ts.cmpr_bytelen += state.ts.cmpr_len_bits >> 3; - state.ts.cmpr_len_bits &= 7L; - } - Assert(state,((state.ts.cmpr_bytelen << 3) + state.ts.cmpr_len_bits) == state.bs.bits_sent, "bad compressed size"); - init_block(state); - - if (eof) { - // Assert(state,input_len == isize, "bad input size"); - bi_windup(state); - state.ts.cmpr_len_bits += 7; /* align on byte boundary */ - } - Trace("\n"); - - return state.ts.cmpr_bytelen + (state.ts.cmpr_len_bits >> 3); -} - -/* =========================================================================== - * Save the match info and tally the frequency counts. Return true if - * the current block must be flushed. - */ -int ct_tally (TState &state,int dist, int lc) -{ - state.ts.l_buf[state.ts.last_lit++] = (uch)lc; - if (dist == 0) { - /* lc is the unmatched char */ - state.ts.dyn_ltree[lc].fc.freq++; - } else { - /* Here, lc is the match length - MIN_MATCH */ - dist--; /* dist = match distance - 1 */ - Assert(state,(ush)dist < (ush)MAX_DIST && - (ush)lc <= (ush)(MAX_MATCH-MIN_MATCH) && - (ush)d_code(dist) < (ush)D_CODES, "ct_tally: bad match"); - - state.ts.dyn_ltree[state.ts.length_code[lc]+LITERALS+1].fc.freq++; - state.ts.dyn_dtree[d_code(dist)].fc.freq++; - - state.ts.d_buf[state.ts.last_dist++] = (ush)dist; - state.ts.flags |= state.ts.flag_bit; - } - state.ts.flag_bit <<= 1; - - /* Output the flags if they fill a byte: */ - if ((state.ts.last_lit & 7) == 0) { - state.ts.flag_buf[state.ts.last_flags++] = state.ts.flags; - state.ts.flags = 0, state.ts.flag_bit = 1; - } - /* Try to guess if it is profitable to stop the current block here */ - if (state.level > 2 && (state.ts.last_lit & 0xfff) == 0) { - /* Compute an upper bound for the compressed length */ - ulg out_length = (ulg)state.ts.last_lit*8L; - ulg in_length = (ulg)state.ds.strstart-state.ds.block_start; - int dcode; - for (dcode = 0; dcode < D_CODES; dcode++) { - out_length += (ulg)state.ts.dyn_dtree[dcode].fc.freq*(5L+extra_dbits[dcode]); - } - out_length >>= 3; - Trace("\nlast_lit %u, last_dist %u, in %ld, out ~%ld(%ld%%) ", - state.ts.last_lit, state.ts.last_dist, in_length, out_length, - 100L - out_length*100L/in_length); - if (state.ts.last_dist < state.ts.last_lit/2 && out_length < in_length/2) return 1; - } - return (state.ts.last_lit == LIT_BUFSIZE-1 || state.ts.last_dist == DIST_BUFSIZE); - /* We avoid equality with LIT_BUFSIZE because of wraparound at 64K - * on 16 bit machines and because stored blocks are restricted to - * 64K-1 bytes. - */ -} - -/* =========================================================================== - * Send the block data compressed using the given Huffman trees - */ -void compress_block(TState &state,ct_data *ltree, ct_data *dtree) -{ - unsigned dist; /* distance of matched string */ - int lc; /* match length or unmatched char (if dist == 0) */ - unsigned lx = 0; /* running index in l_buf */ - unsigned dx = 0; /* running index in d_buf */ - unsigned fx = 0; /* running index in flag_buf */ - uch flag = 0; /* current flags */ - unsigned code; /* the code to send */ - int extra; /* number of extra bits to send */ - - if (state.ts.last_lit != 0) do { - if ((lx & 7) == 0) flag = state.ts.flag_buf[fx++]; - lc = state.ts.l_buf[lx++]; - if ((flag & 1) == 0) { - send_code(state,lc, ltree); /* send a literal byte */ - } else { - /* Here, lc is the match length - MIN_MATCH */ - code = state.ts.length_code[lc]; - send_code(state,code+LITERALS+1, ltree); /* send the length code */ - extra = extra_lbits[code]; - if (extra != 0) { - lc -= state.ts.base_length[code]; - send_bits(state,lc, extra); /* send the extra length bits */ - } - dist = state.ts.d_buf[dx++]; - /* Here, dist is the match distance - 1 */ - code = d_code(dist); - Assert(state,code < D_CODES, "bad d_code"); - - send_code(state,code, dtree); /* send the distance code */ - extra = extra_dbits[code]; - if (extra != 0) { - dist -= state.ts.base_dist[code]; - send_bits(state,dist, extra); /* send the extra distance bits */ - } - } /* literal or match pair ? */ - flag >>= 1; - } while (lx < state.ts.last_lit); - - send_code(state,END_BLOCK, ltree); -} - -/* =========================================================================== - * Set the file type to ASCII or BINARY, using a crude approximation: - * binary if more than 20% of the bytes are <= 6 or >= 128, ascii otherwise. - * IN assertion: the fields freq of dyn_ltree are set and the total of all - * frequencies does not exceed 64K (to fit in an int on 16 bit machines). - */ -void set_file_type(TState &state) -{ - int n = 0; - unsigned ascii_freq = 0; - unsigned bin_freq = 0; - while (n < 7) bin_freq += state.ts.dyn_ltree[n++].fc.freq; - while (n < 128) ascii_freq += state.ts.dyn_ltree[n++].fc.freq; - while (n < LITERALS) bin_freq += state.ts.dyn_ltree[n++].fc.freq; - *state.ts.file_type = (ush)(bin_freq > (ascii_freq >> 2) ? BINARY : ASCII); -} - - -/* =========================================================================== - * Initialize the bit string routines. - */ -void bi_init (TState &state,char *tgt_buf, unsigned tgt_size, int flsh_allowed) -{ - state.bs.out_buf = tgt_buf; - state.bs.out_size = tgt_size; - state.bs.out_offset = 0; - state.bs.flush_flg = flsh_allowed; - - state.bs.bi_buf = 0; - state.bs.bi_valid = 0; - state.bs.bits_sent = 0L; -} - -/* =========================================================================== - * Send a value on a given number of bits. - * IN assertion: length <= 16 and value fits in length bits. - */ -void send_bits(TState &state,int value, int length) -{ - Assert(state,length > 0 && length <= 15, "invalid length"); - state.bs.bits_sent += (ulg)length; - /* If not enough room in bi_buf, use (bi_valid) bits from bi_buf and - * (Buf_size - bi_valid) bits from value to flush the filled bi_buf, - * then fill in the rest of (value), leaving (length - (Buf_size-bi_valid)) - * unused bits in bi_buf. - */ - state.bs.bi_buf |= (value << state.bs.bi_valid); - state.bs.bi_valid += length; - if (state.bs.bi_valid > (int)Buf_size) { - PUTSHORT(state,state.bs.bi_buf); - state.bs.bi_valid -= Buf_size; - state.bs.bi_buf = (unsigned)value >> (length - state.bs.bi_valid); - } -} - -/* =========================================================================== - * Reverse the first len bits of a code, using straightforward code (a faster - * method would use a table) - * IN assertion: 1 <= len <= 15 - */ -unsigned bi_reverse(unsigned code, int len) -{ - register unsigned res = 0; - do { - res |= code & 1; - code >>= 1, res <<= 1; - } while (--len > 0); - return res >> 1; -} - -/* =========================================================================== - * Write out any remaining bits in an incomplete byte. - */ -void bi_windup(TState &state) -{ - if (state.bs.bi_valid > 8) { - PUTSHORT(state,state.bs.bi_buf); - } else if (state.bs.bi_valid > 0) { - PUTBYTE(state,state.bs.bi_buf); - } - if (state.bs.flush_flg) { - state.flush_outbuf(state.param,state.bs.out_buf, &state.bs.out_offset); - } - state.bs.bi_buf = 0; - state.bs.bi_valid = 0; - state.bs.bits_sent = (state.bs.bits_sent+7) & ~7; -} - -/* =========================================================================== - * Copy a stored block to the zip file, storing first the length and its - * one's complement if requested. - */ -void copy_block(TState &state, char *block, unsigned len, int header) -{ - bi_windup(state); /* align on byte boundary */ - - if (header) { - PUTSHORT(state,(ush)len); - PUTSHORT(state,(ush)~len); - state.bs.bits_sent += 2*16; - } - if (state.bs.flush_flg) { - state.flush_outbuf(state.param,state.bs.out_buf, &state.bs.out_offset); - state.bs.out_offset = len; - state.flush_outbuf(state.param,block, &state.bs.out_offset); - } else if (state.bs.out_offset + len > state.bs.out_size) { - Assert(state,false,"output buffer too small for in-memory compression"); - } else { - memcpy(state.bs.out_buf + state.bs.out_offset, block, len); - state.bs.out_offset += len; - } - state.bs.bits_sent += (ulg)len<<3; -} - - - - - - - - -/* =========================================================================== - * Prototypes for functions. - */ - -void fill_window (TState &state); -ulg deflate_fast (TState &state); - -int longest_match (TState &state,IPos cur_match); - - -/* =========================================================================== - * Update a hash value with the given input byte - * IN assertion: all calls to to UPDATE_HASH are made with consecutive - * input characters, so that a running hash key can be computed from the - * previous key instead of complete recalculation each time. - */ -#define UPDATE_HASH(h,c) (h = (((h)< 0 if the input file is already read or - * mmap'ed in the window[] array, 0 otherwise. In the first case, - * window_size is sufficient to contain the whole input file plus - * MIN_LOOKAHEAD bytes (to avoid referencing memory beyond the end - * of window[] when looking for matches towards the end). - */ -void lm_init (TState &state, int pack_level, ush *flags) -{ - register unsigned j; - - Assert(state,pack_level>=1 && pack_level<=8,"bad pack level"); - - /* Do not slide the window if the whole input is already in memory - * (window_size > 0) - */ - state.ds.sliding = 0; - if (state.ds.window_size == 0L) { - state.ds.sliding = 1; - state.ds.window_size = (ulg)2L*WSIZE; - } - - /* Initialize the hash table (avoiding 64K overflow for 16 bit systems). - * prev[] will be initialized on the fly. - */ - state.ds.head[HASH_SIZE-1] = NIL; - memset((char*)state.ds.head, NIL, (unsigned)(HASH_SIZE-1)*sizeof(*state.ds.head)); - - /* Set the default configuration parameters: - */ - state.ds.max_lazy_match = configuration_table[pack_level].max_lazy; - state.ds.good_match = configuration_table[pack_level].good_length; - state.ds.nice_match = configuration_table[pack_level].nice_length; - state.ds.max_chain_length = configuration_table[pack_level].max_chain; - if (pack_level <= 2) { - *flags |= FAST; - } else if (pack_level >= 8) { - *flags |= SLOW; - } - /* ??? reduce max_chain_length for binary files */ - - state.ds.strstart = 0; - state.ds.block_start = 0L; - - j = WSIZE; - j <<= 1; // Can read 64K in one step - state.ds.lookahead = state.readfunc(state, (char*)state.ds.window, j); - - if (state.ds.lookahead == 0 || state.ds.lookahead == (unsigned)EOF) { - state.ds.eofile = 1, state.ds.lookahead = 0; - return; - } - state.ds.eofile = 0; - /* Make sure that we always have enough lookahead. This is important - * if input comes from a device such as a tty. - */ - if (state.ds.lookahead < MIN_LOOKAHEAD) fill_window(state); - - state.ds.ins_h = 0; - for (j=0; j= 1 - */ -// For 80x86 and 680x0 and ARM, an optimized version is in match.asm or -// match.S. The code is functionally equivalent, so you can use the C version -// if desired. Which I do so desire! -int longest_match(TState &state,IPos cur_match) -{ - unsigned chain_length = state.ds.max_chain_length; /* max hash chain length */ - register uch far *scan = state.ds.window + state.ds.strstart; /* current string */ - register uch far *match; /* matched string */ - register int len; /* length of current match */ - int best_len = state.ds.prev_length; /* best match length so far */ - IPos limit = state.ds.strstart > (IPos)MAX_DIST ? state.ds.strstart - (IPos)MAX_DIST : NIL; - /* Stop when cur_match becomes <= limit. To simplify the code, - * we prevent matches with the string of window index 0. - */ - - // The code is optimized for HASH_BITS >= 8 and MAX_MATCH-2 multiple of 16. - // It is easy to get rid of this optimization if necessary. - Assert(state,HASH_BITS>=8 && MAX_MATCH==258,"Code too clever"); - - - - register uch far *strend = state.ds.window + state.ds.strstart + MAX_MATCH; - register uch scan_end1 = scan[best_len-1]; - register uch scan_end = scan[best_len]; - - /* Do not waste too much time if we already have a good match: */ - if (state.ds.prev_length >= state.ds.good_match) { - chain_length >>= 2; - } - - Assert(state,state.ds.strstart <= state.ds.window_size-MIN_LOOKAHEAD, "insufficient lookahead"); - - do { - Assert(state,cur_match < state.ds.strstart, "no future"); - match = state.ds.window + cur_match; - - /* Skip to next match if the match length cannot increase - * or if the match length is less than 2: - */ - if (match[best_len] != scan_end || - match[best_len-1] != scan_end1 || - *match != *scan || - *++match != scan[1]) continue; - - /* The check at best_len-1 can be removed because it will be made - * again later. (This heuristic is not always a win.) - * It is not necessary to compare scan[2] and match[2] since they - * are always equal when the other bytes match, given that - * the hash keys are equal and that HASH_BITS >= 8. - */ - scan += 2, match++; - - /* We check for insufficient lookahead only every 8th comparison; - * the 256th check will be made at strstart+258. - */ - do { - } while (*++scan == *++match && *++scan == *++match && - *++scan == *++match && *++scan == *++match && - *++scan == *++match && *++scan == *++match && - *++scan == *++match && *++scan == *++match && - scan < strend); - - Assert(state,scan <= state.ds.window+(unsigned)(state.ds.window_size-1), "wild scan"); - - len = MAX_MATCH - (int)(strend - scan); - scan = strend - MAX_MATCH; - - - if (len > best_len) { - state.ds.match_start = cur_match; - best_len = len; - if (len >= state.ds.nice_match) break; - scan_end1 = scan[best_len-1]; - scan_end = scan[best_len]; - } - } while ((cur_match = state.ds.prev[cur_match & WMASK]) > limit - && --chain_length != 0); - - return best_len; -} - - - -#define check_match(state,start, match, length) -// or alternatively... -//void check_match(TState &state,IPos start, IPos match, int length) -//{ // check that the match is indeed a match -// if (memcmp((char*)state.ds.window + match, -// (char*)state.ds.window + start, length) != EQUAL) { -// fprintf(stderr, -// " start %d, match %d, length %d\n", -// start, match, length); -// error("invalid match"); -// } -// if (state.verbose > 1) { -// fprintf(stderr,"\\[%d,%d]", start-match, length); -// do { fprintf(stdout,"%c",state.ds.window[start++]); } while (--length != 0); -// } -//} - -/* =========================================================================== - * Fill the window when the lookahead becomes insufficient. - * Updates strstart and lookahead, and sets eofile if end of input file. - * - * IN assertion: lookahead < MIN_LOOKAHEAD && strstart + lookahead > 0 - * OUT assertions: strstart <= window_size-MIN_LOOKAHEAD - * At least one byte has been read, or eofile is set; file reads are - * performed for at least two bytes (required for the translate_eol option). - */ -void fill_window(TState &state) -{ - register unsigned n, m; - unsigned more; /* Amount of free space at the end of the window. */ - - do { - more = (unsigned)(state.ds.window_size - (ulg)state.ds.lookahead - (ulg)state.ds.strstart); - - /* If the window is almost full and there is insufficient lookahead, - * move the upper half to the lower one to make room in the upper half. - */ - if (more == (unsigned)EOF) { - /* Very unlikely, but possible on 16 bit machine if strstart == 0 - * and lookahead == 1 (input done one byte at time) - */ - more--; - - /* For MMAP or BIG_MEM, the whole input file is already in memory so - * we must not perform sliding. We must however call (*read_buf)() in - * order to compute the crc, update lookahead and possibly set eofile. - */ - } else if (state.ds.strstart >= WSIZE+MAX_DIST && state.ds.sliding) { - - /* By the IN assertion, the window is not empty so we can't confuse - * more == 0 with more == 64K on a 16 bit machine. - */ - memcpy((char*)state.ds.window, (char*)state.ds.window+WSIZE, (unsigned)WSIZE); - state.ds.match_start -= WSIZE; - state.ds.strstart -= WSIZE; /* we now have strstart >= MAX_DIST: */ - - state.ds.block_start -= (long) WSIZE; - - for (n = 0; n < HASH_SIZE; n++) { - m = state.ds.head[n]; - state.ds.head[n] = (Pos)(m >= WSIZE ? m-WSIZE : NIL); - } - for (n = 0; n < WSIZE; n++) { - m = state.ds.prev[n]; - state.ds.prev[n] = (Pos)(m >= WSIZE ? m-WSIZE : NIL); - /* If n is not on any hash chain, prev[n] is garbage but - * its value will never be used. - */ - } - more += WSIZE; - } - if (state.ds.eofile) return; - - /* If there was no sliding: - * strstart <= WSIZE+MAX_DIST-1 && lookahead <= MIN_LOOKAHEAD - 1 && - * more == window_size - lookahead - strstart - * => more >= window_size - (MIN_LOOKAHEAD-1 + WSIZE + MAX_DIST-1) - * => more >= window_size - 2*WSIZE + 2 - * In the MMAP or BIG_MEM case (not yet supported in gzip), - * window_size == input_size + MIN_LOOKAHEAD && - * strstart + lookahead <= input_size => more >= MIN_LOOKAHEAD. - * Otherwise, window_size == 2*WSIZE so more >= 2. - * If there was sliding, more >= WSIZE. So in all cases, more >= 2. - */ - Assert(state,more >= 2, "more < 2"); - - n = state.readfunc(state, (char*)state.ds.window+state.ds.strstart+state.ds.lookahead, more); - - if (n == 0 || n == (unsigned)EOF) { - state.ds.eofile = 1; - } else { - state.ds.lookahead += n; - } - } while (state.ds.lookahead < MIN_LOOKAHEAD && !state.ds.eofile); -} - -/* =========================================================================== - * Flush the current block, with given end-of-file flag. - * IN assertion: strstart is set to the end of the current match. - */ -#define FLUSH_BLOCK(state,eof) \ - flush_block(state,state.ds.block_start >= 0L ? (char*)&state.ds.window[(unsigned)state.ds.block_start] : \ - (char*)NULL, (long)state.ds.strstart - state.ds.block_start, (eof)) - -/* =========================================================================== - * Processes a new input file and return its compressed length. This - * function does not perform lazy evaluation of matches and inserts - * new strings in the dictionary only for unmatched strings or for short - * matches. It is used only for the fast compression options. - */ -ulg deflate_fast(TState &state) -{ - IPos hash_head = NIL; /* head of the hash chain */ - int flush; /* set if current block must be flushed */ - unsigned match_length = 0; /* length of best match */ - - state.ds.prev_length = MIN_MATCH-1; - while (state.ds.lookahead != 0) { - /* Insert the string window[strstart .. strstart+2] in the - * dictionary, and set hash_head to the head of the hash chain: - */ - if (state.ds.lookahead >= MIN_MATCH) - INSERT_STRING(state.ds.strstart, hash_head); - - /* Find the longest match, discarding those <= prev_length. - * At this point we have always match_length < MIN_MATCH - */ - if (hash_head != NIL && state.ds.strstart - hash_head <= MAX_DIST) { - /* To simplify the code, we prevent matches with the string - * of window index 0 (in particular we have to avoid a match - * of the string with itself at the start of the input file). - */ - /* Do not look for matches beyond the end of the input. - * This is necessary to make deflate deterministic. - */ - if ((unsigned)state.ds.nice_match > state.ds.lookahead) state.ds.nice_match = (int)state.ds.lookahead; - match_length = longest_match (state,hash_head); - /* longest_match() sets match_start */ - if (match_length > state.ds.lookahead) match_length = state.ds.lookahead; - } - if (match_length >= MIN_MATCH) { - check_match(state,state.ds.strstart, state.ds.match_start, match_length); - - flush = ct_tally(state,state.ds.strstart-state.ds.match_start, match_length - MIN_MATCH); - - state.ds.lookahead -= match_length; - - /* Insert new strings in the hash table only if the match length - * is not too large. This saves time but degrades compression. - */ - if (match_length <= state.ds.max_insert_length - && state.ds.lookahead >= MIN_MATCH) { - match_length--; /* string at strstart already in hash table */ - do { - state.ds.strstart++; - INSERT_STRING(state.ds.strstart, hash_head); - /* strstart never exceeds WSIZE-MAX_MATCH, so there are - * always MIN_MATCH bytes ahead. - */ - } while (--match_length != 0); - state.ds.strstart++; - } else { - state.ds.strstart += match_length; - match_length = 0; - state.ds.ins_h = state.ds.window[state.ds.strstart]; - UPDATE_HASH(state.ds.ins_h, state.ds.window[state.ds.strstart+1]); - Assert(state,MIN_MATCH==3,"Call UPDATE_HASH() MIN_MATCH-3 more times"); - } - } else { - /* No match, output a literal byte */ - flush = ct_tally (state,0, state.ds.window[state.ds.strstart]); - state.ds.lookahead--; - state.ds.strstart++; - } - if (flush) FLUSH_BLOCK(state,0), state.ds.block_start = state.ds.strstart; - - /* Make sure that we always have enough lookahead, except - * at the end of the input file. We need MAX_MATCH bytes - * for the next match, plus MIN_MATCH bytes to insert the - * string following the next match. - */ - if (state.ds.lookahead < MIN_LOOKAHEAD) fill_window(state); - } - return FLUSH_BLOCK(state,1); /* eof */ -} - -/* =========================================================================== - * Same as above, but achieves better compression. We use a lazy - * evaluation for matches: a match is finally adopted only if there is - * no better match at the next window position. - */ -ulg deflate(TState &state) -{ - IPos hash_head = NIL; /* head of hash chain */ - IPos prev_match; /* previous match */ - int flush; /* set if current block must be flushed */ - int match_available = 0; /* set if previous match exists */ - register unsigned match_length = MIN_MATCH-1; /* length of best match */ - - if (state.level <= 3) return deflate_fast(state); /* optimized for speed */ - - /* Process the input block. */ - while (state.ds.lookahead != 0) { - /* Insert the string window[strstart .. strstart+2] in the - * dictionary, and set hash_head to the head of the hash chain: - */ - if (state.ds.lookahead >= MIN_MATCH) - INSERT_STRING(state.ds.strstart, hash_head); - - /* Find the longest match, discarding those <= prev_length. - */ - state.ds.prev_length = match_length, prev_match = state.ds.match_start; - match_length = MIN_MATCH-1; - - if (hash_head != NIL && state.ds.prev_length < state.ds.max_lazy_match && - state.ds.strstart - hash_head <= MAX_DIST) { - /* To simplify the code, we prevent matches with the string - * of window index 0 (in particular we have to avoid a match - * of the string with itself at the start of the input file). - */ - /* Do not look for matches beyond the end of the input. - * This is necessary to make deflate deterministic. - */ - if ((unsigned)state.ds.nice_match > state.ds.lookahead) state.ds.nice_match = (int)state.ds.lookahead; - match_length = longest_match (state,hash_head); - /* longest_match() sets match_start */ - if (match_length > state.ds.lookahead) match_length = state.ds.lookahead; - - /* Ignore a length 3 match if it is too distant: */ - if (match_length == MIN_MATCH && state.ds.strstart-state.ds.match_start > TOO_FAR){ - /* If prev_match is also MIN_MATCH, match_start is garbage - * but we will ignore the current match anyway. - */ - match_length = MIN_MATCH-1; - } - } - /* If there was a match at the previous step and the current - * match is not better, output the previous match: - */ - if (state.ds.prev_length >= MIN_MATCH && match_length <= state.ds.prev_length) { - unsigned max_insert = state.ds.strstart + state.ds.lookahead - MIN_MATCH; - check_match(state,state.ds.strstart-1, prev_match, state.ds.prev_length); - flush = ct_tally(state,state.ds.strstart-1-prev_match, state.ds.prev_length - MIN_MATCH); - - /* Insert in hash table all strings up to the end of the match. - * strstart-1 and strstart are already inserted. - */ - state.ds.lookahead -= state.ds.prev_length-1; - state.ds.prev_length -= 2; - do { - if (++state.ds.strstart <= max_insert) { - INSERT_STRING(state.ds.strstart, hash_head); - /* strstart never exceeds WSIZE-MAX_MATCH, so there are - * always MIN_MATCH bytes ahead. - */ - } - } while (--state.ds.prev_length != 0); - state.ds.strstart++; - match_available = 0; - match_length = MIN_MATCH-1; - - if (flush) FLUSH_BLOCK(state,0), state.ds.block_start = state.ds.strstart; - - } else if (match_available) { - /* If there was no match at the previous position, output a - * single literal. If there was a match but the current match - * is longer, truncate the previous match to a single literal. - */ - if (ct_tally (state,0, state.ds.window[state.ds.strstart-1])) { - FLUSH_BLOCK(state,0), state.ds.block_start = state.ds.strstart; - } - state.ds.strstart++; - state.ds.lookahead--; - } else { - /* There is no previous match to compare with, wait for - * the next step to decide. - */ - match_available = 1; - state.ds.strstart++; - state.ds.lookahead--; - } -// Assert(state,strstart <= isize && lookahead <= isize, "a bit too far"); - - /* Make sure that we always have enough lookahead, except - * at the end of the input file. We need MAX_MATCH bytes - * for the next match, plus MIN_MATCH bytes to insert the - * string following the next match. - */ - if (state.ds.lookahead < MIN_LOOKAHEAD) fill_window(state); - } - if (match_available) ct_tally (state,0, state.ds.window[state.ds.strstart-1]); - - return FLUSH_BLOCK(state,1); /* eof */ -} - - - - - - - - - - - - -int putlocal(struct zlist far *z, WRITEFUNC wfunc,void *param) -{ // Write a local header described by *z to file *f. Return a ZE_ error code. - PUTLG(LOCSIG, f); - PUTSH(z->ver, f); - PUTSH(z->lflg, f); - PUTSH(z->how, f); - PUTLG(z->tim, f); - PUTLG(z->crc, f); - PUTLG(z->siz, f); - PUTLG(z->len, f); - PUTSH(z->nam, f); - PUTSH(z->ext, f); - size_t res = (size_t)wfunc(param, z->iname, (unsigned int)z->nam); - if (res!=z->nam) return ZE_TEMP; - if (z->ext) - { res = (size_t)wfunc(param, z->extra, (unsigned int)z->ext); - if (res!=z->ext) return ZE_TEMP; - } - return ZE_OK; -} - -int putextended(struct zlist far *z, WRITEFUNC wfunc, void *param) -{ // Write an extended local header described by *z to file *f. Returns a ZE_ code - PUTLG(EXTLOCSIG, f); - PUTLG(z->crc, f); - PUTLG(z->siz, f); - PUTLG(z->len, f); - return ZE_OK; -} - -int putcentral(struct zlist far *z, WRITEFUNC wfunc, void *param) -{ // Write a central header entry of *z to file *f. Returns a ZE_ code. - PUTLG(CENSIG, f); - PUTSH(z->vem, f); - PUTSH(z->ver, f); - PUTSH(z->flg, f); - PUTSH(z->how, f); - PUTLG(z->tim, f); - PUTLG(z->crc, f); - PUTLG(z->siz, f); - PUTLG(z->len, f); - PUTSH(z->nam, f); - PUTSH(z->cext, f); - PUTSH(z->com, f); - PUTSH(z->dsk, f); - PUTSH(z->att, f); - PUTLG(z->atx, f); - PUTLG(z->off, f); - if ((size_t)wfunc(param, z->iname, (unsigned int)z->nam) != z->nam || - (z->cext && (size_t)wfunc(param, z->cextra, (unsigned int)z->cext) != z->cext) || - (z->com && (size_t)wfunc(param, z->comment, (unsigned int)z->com) != z->com)) - return ZE_TEMP; - return ZE_OK; -} - - -int putend(int n, ulg s, ulg c, extent m, char *z, WRITEFUNC wfunc, void *param) -{ // write the end of the central-directory-data to file *f. - PUTLG(ENDSIG, f); - PUTSH(0, f); - PUTSH(0, f); - PUTSH(n, f); - PUTSH(n, f); - PUTLG(s, f); - PUTLG(c, f); - PUTSH(m, f); - // Write the comment, if any - if (m && wfunc(param, z, (unsigned int)m) != m) return ZE_TEMP; - return ZE_OK; -} - - - - - - -const ulg crc_table[256] = { - 0x00000000L, 0x77073096L, 0xee0e612cL, 0x990951baL, 0x076dc419L, - 0x706af48fL, 0xe963a535L, 0x9e6495a3L, 0x0edb8832L, 0x79dcb8a4L, - 0xe0d5e91eL, 0x97d2d988L, 0x09b64c2bL, 0x7eb17cbdL, 0xe7b82d07L, - 0x90bf1d91L, 0x1db71064L, 0x6ab020f2L, 0xf3b97148L, 0x84be41deL, - 0x1adad47dL, 0x6ddde4ebL, 0xf4d4b551L, 0x83d385c7L, 0x136c9856L, - 0x646ba8c0L, 0xfd62f97aL, 0x8a65c9ecL, 0x14015c4fL, 0x63066cd9L, - 0xfa0f3d63L, 0x8d080df5L, 0x3b6e20c8L, 0x4c69105eL, 0xd56041e4L, - 0xa2677172L, 0x3c03e4d1L, 0x4b04d447L, 0xd20d85fdL, 0xa50ab56bL, - 0x35b5a8faL, 0x42b2986cL, 0xdbbbc9d6L, 0xacbcf940L, 0x32d86ce3L, - 0x45df5c75L, 0xdcd60dcfL, 0xabd13d59L, 0x26d930acL, 0x51de003aL, - 0xc8d75180L, 0xbfd06116L, 0x21b4f4b5L, 0x56b3c423L, 0xcfba9599L, - 0xb8bda50fL, 0x2802b89eL, 0x5f058808L, 0xc60cd9b2L, 0xb10be924L, - 0x2f6f7c87L, 0x58684c11L, 0xc1611dabL, 0xb6662d3dL, 0x76dc4190L, - 0x01db7106L, 0x98d220bcL, 0xefd5102aL, 0x71b18589L, 0x06b6b51fL, - 0x9fbfe4a5L, 0xe8b8d433L, 0x7807c9a2L, 0x0f00f934L, 0x9609a88eL, - 0xe10e9818L, 0x7f6a0dbbL, 0x086d3d2dL, 0x91646c97L, 0xe6635c01L, - 0x6b6b51f4L, 0x1c6c6162L, 0x856530d8L, 0xf262004eL, 0x6c0695edL, - 0x1b01a57bL, 0x8208f4c1L, 0xf50fc457L, 0x65b0d9c6L, 0x12b7e950L, - 0x8bbeb8eaL, 0xfcb9887cL, 0x62dd1ddfL, 0x15da2d49L, 0x8cd37cf3L, - 0xfbd44c65L, 0x4db26158L, 0x3ab551ceL, 0xa3bc0074L, 0xd4bb30e2L, - 0x4adfa541L, 0x3dd895d7L, 0xa4d1c46dL, 0xd3d6f4fbL, 0x4369e96aL, - 0x346ed9fcL, 0xad678846L, 0xda60b8d0L, 0x44042d73L, 0x33031de5L, - 0xaa0a4c5fL, 0xdd0d7cc9L, 0x5005713cL, 0x270241aaL, 0xbe0b1010L, - 0xc90c2086L, 0x5768b525L, 0x206f85b3L, 0xb966d409L, 0xce61e49fL, - 0x5edef90eL, 0x29d9c998L, 0xb0d09822L, 0xc7d7a8b4L, 0x59b33d17L, - 0x2eb40d81L, 0xb7bd5c3bL, 0xc0ba6cadL, 0xedb88320L, 0x9abfb3b6L, - 0x03b6e20cL, 0x74b1d29aL, 0xead54739L, 0x9dd277afL, 0x04db2615L, - 0x73dc1683L, 0xe3630b12L, 0x94643b84L, 0x0d6d6a3eL, 0x7a6a5aa8L, - 0xe40ecf0bL, 0x9309ff9dL, 0x0a00ae27L, 0x7d079eb1L, 0xf00f9344L, - 0x8708a3d2L, 0x1e01f268L, 0x6906c2feL, 0xf762575dL, 0x806567cbL, - 0x196c3671L, 0x6e6b06e7L, 0xfed41b76L, 0x89d32be0L, 0x10da7a5aL, - 0x67dd4accL, 0xf9b9df6fL, 0x8ebeeff9L, 0x17b7be43L, 0x60b08ed5L, - 0xd6d6a3e8L, 0xa1d1937eL, 0x38d8c2c4L, 0x4fdff252L, 0xd1bb67f1L, - 0xa6bc5767L, 0x3fb506ddL, 0x48b2364bL, 0xd80d2bdaL, 0xaf0a1b4cL, - 0x36034af6L, 0x41047a60L, 0xdf60efc3L, 0xa867df55L, 0x316e8eefL, - 0x4669be79L, 0xcb61b38cL, 0xbc66831aL, 0x256fd2a0L, 0x5268e236L, - 0xcc0c7795L, 0xbb0b4703L, 0x220216b9L, 0x5505262fL, 0xc5ba3bbeL, - 0xb2bd0b28L, 0x2bb45a92L, 0x5cb36a04L, 0xc2d7ffa7L, 0xb5d0cf31L, - 0x2cd99e8bL, 0x5bdeae1dL, 0x9b64c2b0L, 0xec63f226L, 0x756aa39cL, - 0x026d930aL, 0x9c0906a9L, 0xeb0e363fL, 0x72076785L, 0x05005713L, - 0x95bf4a82L, 0xe2b87a14L, 0x7bb12baeL, 0x0cb61b38L, 0x92d28e9bL, - 0xe5d5be0dL, 0x7cdcefb7L, 0x0bdbdf21L, 0x86d3d2d4L, 0xf1d4e242L, - 0x68ddb3f8L, 0x1fda836eL, 0x81be16cdL, 0xf6b9265bL, 0x6fb077e1L, - 0x18b74777L, 0x88085ae6L, 0xff0f6a70L, 0x66063bcaL, 0x11010b5cL, - 0x8f659effL, 0xf862ae69L, 0x616bffd3L, 0x166ccf45L, 0xa00ae278L, - 0xd70dd2eeL, 0x4e048354L, 0x3903b3c2L, 0xa7672661L, 0xd06016f7L, - 0x4969474dL, 0x3e6e77dbL, 0xaed16a4aL, 0xd9d65adcL, 0x40df0b66L, - 0x37d83bf0L, 0xa9bcae53L, 0xdebb9ec5L, 0x47b2cf7fL, 0x30b5ffe9L, - 0xbdbdf21cL, 0xcabac28aL, 0x53b39330L, 0x24b4a3a6L, 0xbad03605L, - 0xcdd70693L, 0x54de5729L, 0x23d967bfL, 0xb3667a2eL, 0xc4614ab8L, - 0x5d681b02L, 0x2a6f2b94L, 0xb40bbe37L, 0xc30c8ea1L, 0x5a05df1bL, - 0x2d02ef8dL -}; - -#define CRC32(c, b) (crc_table[((int)(c) ^ (b)) & 0xff] ^ ((c) >> 8)) -#define DO1(buf) crc = CRC32(crc, *buf++) -#define DO2(buf) DO1(buf); DO1(buf) -#define DO4(buf) DO2(buf); DO2(buf) -#define DO8(buf) DO4(buf); DO4(buf) - -ulg crc32(ulg crc, const uch *buf, extent len) -{ if (buf==NULL) return 0L; - crc = crc ^ 0xffffffffL; - while (len >= 8) {DO8(buf); len -= 8;} - if (len) do {DO1(buf);} while (--len); - return crc ^ 0xffffffffL; // (instead of ~c for 64-bit machines) -} - - -void update_keys(unsigned long *keys, char c) -{ keys[0] = CRC32(keys[0],c); - keys[1] += keys[0] & 0xFF; - keys[1] = keys[1]*134775813L +1; - keys[2] = CRC32(keys[2], keys[1] >> 24); -} -char decrypt_byte(unsigned long *keys) -{ unsigned temp = ((unsigned)keys[2] & 0xffff) | 2; - return (char)(((temp * (temp ^ 1)) >> 8) & 0xff); -} -char zencode(unsigned long *keys, char c) -{ int t=decrypt_byte(keys); - update_keys(keys,c); - return (char)(t^c); -} - - - - - - - -bool HasZipSuffix(const TCHAR *fn) -{ const TCHAR *ext = fn+_tcslen(fn); - while (ext>fn && *ext!='.') ext--; - if (ext==fn && *ext!='.') return false; - if (_tcsicmp(ext,_T(".Z"))==0) return true; - if (_tcsicmp(ext,_T(".zip"))==0) return true; - if (_tcsicmp(ext,_T(".zoo"))==0) return true; - if (_tcsicmp(ext,_T(".arc"))==0) return true; - if (_tcsicmp(ext,_T(".lzh"))==0) return true; - if (_tcsicmp(ext,_T(".arj"))==0) return true; - if (_tcsicmp(ext,_T(".gz"))==0) return true; - if (_tcsicmp(ext,_T(".tgz"))==0) return true; - return false; -} - - -lutime_t filetime2timet(const FILETIME ft) -{ __int64 i = *(__int64*)&ft; - return (lutime_t)((i-116444736000000000)/10000000); -} - -void filetime2dosdatetime(const FILETIME ft, WORD *dosdate,WORD *dostime) -{ // date: bits 0-4 are day of month 1-31. Bits 5-8 are month 1..12. Bits 9-15 are year-1980 - // time: bits 0-4 are seconds/2, bits 5-10 are minute 0..59. Bits 11-15 are hour 0..23 - SYSTEMTIME st; FileTimeToSystemTime(&ft,&st); - *dosdate = (WORD)(((st.wYear-1980)&0x7f) << 9); - *dosdate |= (WORD)((st.wMonth&0xf) << 5); - *dosdate |= (WORD)((st.wDay&0x1f)); - *dostime = (WORD)((st.wHour&0x1f) << 11); - *dostime |= (WORD)((st.wMinute&0x3f) << 5); - *dostime |= (WORD)((st.wSecond*2)&0x1f); -} - - -ZRESULT GetFileInfo(HANDLE hf, ulg *attr, long *size, iztimes *times, ulg *timestamp) -{ // The handle must be a handle to a file - // The date and time is returned in a long with the date most significant to allow - // unsigned integer comparison of absolute times. The attributes have two - // high bytes unix attr, and two low bytes a mapping of that to DOS attr. - //struct stat s; int res=stat(fn,&s); if (res!=0) return false; - // translate windows file attributes into zip ones. - BY_HANDLE_FILE_INFORMATION bhi; BOOL res=GetFileInformationByHandle(hf,&bhi); - if (!res) return ZR_NOFILE; - DWORD fa=bhi.dwFileAttributes; ulg a=0; - // Zip uses the lower word for its interpretation of windows stuff - if (fa&FILE_ATTRIBUTE_READONLY) a|=0x01; - if (fa&FILE_ATTRIBUTE_HIDDEN) a|=0x02; - if (fa&FILE_ATTRIBUTE_SYSTEM) a|=0x04; - if (fa&FILE_ATTRIBUTE_DIRECTORY)a|=0x10; - if (fa&FILE_ATTRIBUTE_ARCHIVE) a|=0x20; - // It uses the upper word for standard unix attr, which we manually construct - if (fa&FILE_ATTRIBUTE_DIRECTORY)a|=0x40000000; // directory - else a|=0x80000000; // normal file - a|=0x01000000; // readable - if (fa&FILE_ATTRIBUTE_READONLY) {} else a|=0x00800000; // writeable - // now just a small heuristic to check if it's an executable: - DWORD red, hsize=GetFileSize(hf,NULL); if (hsize>40) - { SetFilePointer(hf,0,NULL,FILE_BEGIN); unsigned short magic; ReadFile(hf,&magic,sizeof(magic),&red,NULL); - SetFilePointer(hf,36,NULL,FILE_BEGIN); unsigned long hpos; ReadFile(hf,&hpos,sizeof(hpos),&red,NULL); - if (magic==0x54AD && hsize>hpos+4+20+28) - { SetFilePointer(hf,hpos,NULL,FILE_BEGIN); unsigned long signature; ReadFile(hf,&signature,sizeof(signature),&red,NULL); - if (signature==IMAGE_DOS_SIGNATURE || signature==IMAGE_OS2_SIGNATURE - || signature==IMAGE_OS2_SIGNATURE_LE || signature==IMAGE_NT_SIGNATURE) - { a |= 0x00400000; // executable - } - } - } - // - if (attr!=NULL) *attr = a; - if (size!=NULL) *size = hsize; - if (times!=NULL) - { // lutime_t is 32bit number of seconds elapsed since 0:0:0GMT, Jan1, 1970. - // but FILETIME is 64bit number of 100-nanosecs since Jan1, 1601 - times->atime = filetime2timet(bhi.ftLastAccessTime); - times->mtime = filetime2timet(bhi.ftLastWriteTime); - times->ctime = filetime2timet(bhi.ftCreationTime); - } - if (timestamp!=NULL) - { WORD dosdate,dostime; - filetime2dosdatetime(bhi.ftLastWriteTime,&dosdate,&dostime); - *timestamp = (WORD)dostime | (((DWORD)dosdate)<<16); - } - return ZR_OK; -} - - - - - - - - -class TZip -{ public: - TZip(const char *pwd) : hfout(0),mustclosehfout(false),hmapout(0),zfis(0),obuf(0),hfin(0),writ(0),oerr(false),hasputcen(false),ooffset(0),encwriting(false),encbuf(0),password(0), state(0) {if (pwd!=0 && *pwd!=0) {password=new char[strlen(pwd)+1]; strcpy(password,pwd);}} - ~TZip() {if (state!=0) delete state; state=0; if (encbuf!=0) delete[] encbuf; encbuf=0; if (password!=0) delete[] password; password=0;} - - // These variables say about the file we're writing into - // We can write to pipe, file-by-handle, file-by-name, memory-to-memmapfile - char *password; // keep a copy of the password - HANDLE hfout; // if valid, we'll write here (for files or pipes) - bool mustclosehfout; // if true, we are responsible for closing hfout - HANDLE hmapout; // otherwise, we'll write here (for memmap) - unsigned ooffset; // for hfout, this is where the pointer was initially - ZRESULT oerr; // did a write operation give rise to an error? - unsigned writ; // how far have we written. This is maintained by Add, not write(), to avoid confusion over seeks - bool ocanseek; // can we seek? - char *obuf; // this is where we've locked mmap to view. - unsigned int opos; // current pos in the mmap - unsigned int mapsize; // the size of the map we created - bool hasputcen; // have we yet placed the central directory? - bool encwriting; // if true, then we'll encrypt stuff using 'keys' before we write it to disk - unsigned long keys[3]; // keys are initialised inside Add() - char *encbuf; // if encrypting, then this is a temporary workspace for encrypting the data - unsigned int encbufsize; // (to be used and resized inside write(), and deleted in the destructor) - // - TZipFileInfo *zfis; // each file gets added onto this list, for writing the table at the end - TState *state; // we use just one state object per zip, because it's big (500k) - - ZRESULT Create(void *z,unsigned int len,DWORD flags); - static unsigned sflush(void *param,const char *buf, unsigned *size); - static unsigned swrite(void *param,const char *buf, unsigned size); - unsigned int write(const char *buf,unsigned int size); - bool oseek(unsigned int pos); - ZRESULT GetMemory(void **pbuf, unsigned long *plen); - ZRESULT Close(); - - // some variables to do with the file currently being read: - // I haven't done it object-orientedly here, just put them all - // together, since OO didn't seem to make the design any clearer. - ulg attr; iztimes times; ulg timestamp; // all open_* methods set these - bool iseekable; long isize,ired; // size is not set until close() on pips - ulg crc; // crc is not set until close(). iwrit is cumulative - HANDLE hfin; bool selfclosehf; // for input files and pipes - const char *bufin; unsigned int lenin,posin; // for memory - // and a variable for what we've done with the input: (i.e. compressed it!) - ulg csize; // compressed size, set by the compression routines - // and this is used by some of the compression routines - char buf[16384]; - - - ZRESULT open_file(const TCHAR *fn); - ZRESULT open_handle(HANDLE hf,unsigned int len); - ZRESULT open_mem(void *src,unsigned int len); - ZRESULT open_dir(); - static unsigned sread(TState &s,char *buf,unsigned size); - unsigned read(char *buf, unsigned size); - ZRESULT iclose(); - - ZRESULT ideflate(TZipFileInfo *zfi); - ZRESULT istore(); - - ZRESULT Add(const TCHAR *odstzn, void *src,unsigned int len, DWORD flags); - ZRESULT AddCentral(); - -}; - - - -ZRESULT TZip::Create(void *z,unsigned int len,DWORD flags) -{ if (hfout!=0 || hmapout!=0 || obuf!=0 || writ!=0 || oerr!=ZR_OK || hasputcen) return ZR_NOTINITED; - // - if (flags==ZIP_HANDLE) - { HANDLE hf = (HANDLE)z; - hfout=hf; mustclosehfout=false; -#ifdef DuplicateHandle - BOOL res = DuplicateHandle(GetCurrentProcess(),hf,GetCurrentProcess(),&hfout,0,FALSE,DUPLICATE_SAME_ACCESS); - if (res) mustclosehandle=true; -#endif - // now we have hfout. Either we duplicated the handle and we close it ourselves - // (while the caller closes h themselves), or we couldn't duplicate it. - DWORD res = SetFilePointer(hfout,0,0,FILE_CURRENT); - ocanseek = (res!=0xFFFFFFFF); - if (ocanseek) ooffset=res; else ooffset=0; - return ZR_OK; - } - else if (flags==ZIP_FILENAME) - { const TCHAR *fn = (const TCHAR*)z; - hfout = CreateFile(fn,GENERIC_WRITE,0,NULL,CREATE_ALWAYS,FILE_ATTRIBUTE_NORMAL,NULL); - if (hfout==INVALID_HANDLE_VALUE) {hfout=0; return ZR_NOFILE;} - ocanseek=true; - ooffset=0; - mustclosehfout=true; - return ZR_OK; - } - else if (flags==ZIP_MEMORY) - { unsigned int size = len; - if (size==0) return ZR_MEMSIZE; - if (z!=0) obuf=(char*)z; - else - { hmapout = CreateFileMapping(INVALID_HANDLE_VALUE,NULL,PAGE_READWRITE,0,size,NULL); - if (hmapout==NULL) return ZR_NOALLOC; - obuf = (char*)MapViewOfFile(hmapout,FILE_MAP_ALL_ACCESS,0,0,size); - if (obuf==0) {CloseHandle(hmapout); hmapout=0; return ZR_NOALLOC;} - } - ocanseek=true; - opos=0; mapsize=size; - return ZR_OK; - } - else return ZR_ARGS; -} - -unsigned TZip::sflush(void *param,const char *buf, unsigned *size) -{ // static - if (*size==0) return 0; - TZip *zip = (TZip*)param; - unsigned int writ = zip->write(buf,*size); - if (writ!=0) *size=0; - return writ; -} -unsigned TZip::swrite(void *param,const char *buf, unsigned size) -{ // static - if (size==0) return 0; - TZip *zip=(TZip*)param; return zip->write(buf,size); -} -unsigned int TZip::write(const char *buf,unsigned int size) -{ const char *srcbuf=buf; - if (encwriting) - { if (encbuf!=0 && encbufsize=mapsize) {oerr=ZR_MEMSIZE; return 0;} - memcpy(obuf+opos, srcbuf, size); - opos+=size; - return size; - } - else if (hfout!=0) - { DWORD writ; WriteFile(hfout,srcbuf,size,&writ,NULL); - return writ; - } - oerr=ZR_NOTINITED; return 0; -} - -bool TZip::oseek(unsigned int pos) -{ if (!ocanseek) {oerr=ZR_SEEK; return false;} - if (obuf!=0) - { if (pos>=mapsize) {oerr=ZR_MEMSIZE; return false;} - opos=pos; - return true; - } - else if (hfout!=0) - { SetFilePointer(hfout,pos+ooffset,NULL,FILE_BEGIN); - return true; - } - oerr=ZR_NOTINITED; return 0; -} - -ZRESULT TZip::GetMemory(void **pbuf, unsigned long *plen) -{ // When the user calls GetMemory, they're presumably at the end - // of all their adding. In any case, we have to add the central - // directory now, otherwise the memory we tell them won't be complete. - if (!hasputcen) AddCentral(); hasputcen=true; - if (pbuf!=NULL) *pbuf=(void*)obuf; - if (plen!=NULL) *plen=writ; - if (obuf==NULL) return ZR_NOTMMAP; - return ZR_OK; -} - -ZRESULT TZip::Close() -{ // if the directory hadn't already been added through a call to GetMemory, - // then we do it now - ZRESULT res=ZR_OK; if (!hasputcen) res=AddCentral(); hasputcen=true; - if (obuf!=0 && hmapout!=0) UnmapViewOfFile(obuf); obuf=0; - if (hmapout!=0) CloseHandle(hmapout); hmapout=0; - if (hfout!=0 && mustclosehfout) CloseHandle(hfout); hfout=0; mustclosehfout=false; - return res; -} - - - - -ZRESULT TZip::open_file(const TCHAR *fn) -{ hfin=0; bufin=0; selfclosehf=false; crc=CRCVAL_INITIAL; isize=0; csize=0; ired=0; - if (fn==0) return ZR_ARGS; - HANDLE hf = CreateFile(fn,GENERIC_READ,FILE_SHARE_READ,NULL,OPEN_EXISTING,0,NULL); - if (hf==INVALID_HANDLE_VALUE) return ZR_NOFILE; - ZRESULT res = open_handle(hf,0); - if (res!=ZR_OK) {CloseHandle(hf); return res;} - selfclosehf=true; - return ZR_OK; -} -ZRESULT TZip::open_handle(HANDLE hf,unsigned int len) -{ hfin=0; bufin=0; selfclosehf=false; crc=CRCVAL_INITIAL; isize=0; csize=0; ired=0; - if (hf==0 || hf==INVALID_HANDLE_VALUE) return ZR_ARGS; - DWORD res = SetFilePointer(hfout,0,0,FILE_CURRENT); - if (res!=0xFFFFFFFF) - { ZRESULT res = GetFileInfo(hf,&attr,&isize,×,×tamp); - if (res!=ZR_OK) return res; - SetFilePointer(hf,0,NULL,FILE_BEGIN); // because GetFileInfo will have screwed it up - iseekable=true; hfin=hf; - return ZR_OK; - } - else - { attr= 0x80000000; // just a normal file - isize = -1; // can't know size until at the end - if (len!=0) isize=len; // unless we were told explicitly! - iseekable=false; - SYSTEMTIME st; GetLocalTime(&st); - FILETIME ft; SystemTimeToFileTime(&st,&ft); - WORD dosdate,dostime; filetime2dosdatetime(ft,&dosdate,&dostime); - times.atime = filetime2timet(ft); - times.mtime = times.atime; - times.ctime = times.atime; - timestamp = (WORD)dostime | (((DWORD)dosdate)<<16); - hfin=hf; - return ZR_OK; - } -} -ZRESULT TZip::open_mem(void *src,unsigned int len) -{ hfin=0; bufin=(const char*)src; selfclosehf=false; crc=CRCVAL_INITIAL; ired=0; csize=0; ired=0; - lenin=len; posin=0; - if (src==0 || len==0) return ZR_ARGS; - attr= 0x80000000; // just a normal file - isize = len; - iseekable=true; - SYSTEMTIME st; GetLocalTime(&st); - FILETIME ft; SystemTimeToFileTime(&st,&ft); - WORD dosdate,dostime; filetime2dosdatetime(ft,&dosdate,&dostime); - times.atime = filetime2timet(ft); - times.mtime = times.atime; - times.ctime = times.atime; - timestamp = (WORD)dostime | (((DWORD)dosdate)<<16); - return ZR_OK; -} -ZRESULT TZip::open_dir() -{ hfin=0; bufin=0; selfclosehf=false; crc=CRCVAL_INITIAL; isize=0; csize=0; ired=0; - attr= 0x41C00010; // a readable writable directory, and again directory - isize = 0; - iseekable=false; - SYSTEMTIME st; GetLocalTime(&st); - FILETIME ft; SystemTimeToFileTime(&st,&ft); - WORD dosdate,dostime; filetime2dosdatetime(ft,&dosdate,&dostime); - times.atime = filetime2timet(ft); - times.mtime = times.atime; - times.ctime = times.atime; - timestamp = (WORD)dostime | (((DWORD)dosdate)<<16); - return ZR_OK; -} - -unsigned TZip::sread(TState &s,char *buf,unsigned size) -{ // static - TZip *zip = (TZip*)s.param; - return zip->read(buf,size); -} - -unsigned TZip::read(char *buf, unsigned size) -{ if (bufin!=0) - { if (posin>=lenin) return 0; // end of input - ulg red = lenin-posin; - if (red>size) red=size; - memcpy(buf, bufin+posin, red); - posin += red; - ired += red; - crc = crc32(crc, (uch*)buf, red); - return red; - } - else if (hfin!=0) - { DWORD red; - BOOL ok = ReadFile(hfin,buf,size,&red,NULL); - if (!ok) return 0; - ired += red; - crc = crc32(crc, (uch*)buf, red); - return red; - } - else {oerr=ZR_NOTINITED; return 0;} -} - -ZRESULT TZip::iclose() -{ if (selfclosehf && hfin!=0) CloseHandle(hfin); hfin=0; - bool mismatch = (isize!=-1 && isize!=ired); - isize=ired; // and crc has been being updated anyway - if (mismatch) return ZR_MISSIZE; - else return ZR_OK; -} - - - -ZRESULT TZip::ideflate(TZipFileInfo *zfi) -{ if (state==0) state=new TState(); - // It's a very big object! 500k! We allocate it on the heap, because PocketPC's - // stack breaks if we try to put it all on the stack. It will be deleted lazily - state->err=0; - state->readfunc=sread; state->flush_outbuf=sflush; - state->param=this; state->level=8; state->seekable=iseekable; state->err=NULL; - // the following line will make ct_init realise it has to perform the init - state->ts.static_dtree[0].dl.len = 0; - // Thanks to Alvin77 for this crucial fix: - state->ds.window_size=0; - // I think that covers everything that needs to be initted. - // - bi_init(*state,buf, sizeof(buf), TRUE); // it used to be just 1024-size, not 16384 as here - ct_init(*state,&zfi->att); - lm_init(*state,state->level, &zfi->flg); - ulg sz = deflate(*state); - csize=sz; - ZRESULT r=ZR_OK; if (state->err!=NULL) r=ZR_FLATE; - return r; -} - -ZRESULT TZip::istore() -{ ulg size=0; - for (;;) - { unsigned int cin=read(buf,16384); if (cin<=0 || cin==(unsigned int)EOF) break; - unsigned int cout = write(buf,cin); if (cout!=cin) return ZR_MISSIZE; - size += cin; - } - csize=size; - return ZR_OK; -} - - - - - -bool has_seeded=false; -ZRESULT TZip::Add(const TCHAR *odstzn, void *src,unsigned int len, DWORD flags) -{ if (oerr) return ZR_FAILED; - if (hasputcen) return ZR_ENDED; - - // if we use password encryption, then every isize and csize is 12 bytes bigger - int passex=0; if (password!=0 && flags!=ZIP_FOLDER) passex=12; - - // zip has its own notion of what its names should look like: i.e. dir/file.stuff - TCHAR dstzn[MAX_PATH]; _tcscpy(dstzn,odstzn); - if (*dstzn==0) return ZR_ARGS; - TCHAR *d=dstzn; while (*d!=0) {if (*d=='\\') *d='/'; d++;} - bool isdir = (flags==ZIP_FOLDER); - bool needs_trailing_slash = (isdir && dstzn[_tcslen(dstzn)-1]!='/'); - int method=DEFLATE; if (isdir || HasZipSuffix(dstzn)) method=STORE; - - // now open whatever was our input source: - ZRESULT openres; - if (flags==ZIP_FILENAME) openres=open_file((const TCHAR*)src); - else if (flags==ZIP_HANDLE) openres=open_handle((HANDLE)src,len); - else if (flags==ZIP_MEMORY) openres=open_mem(src,len); - else if (flags==ZIP_FOLDER) openres=open_dir(); - else return ZR_ARGS; - if (openres!=ZR_OK) return openres; - - // A zip "entry" consists of a local header (which includes the file name), - // then the compressed data, and possibly an extended local header. - - // Initialize the local header - TZipFileInfo zfi; zfi.nxt=NULL; - strcpy(zfi.name,""); -#ifdef UNICODE - WideCharToMultiByte(CP_UTF8,0,dstzn,-1,zfi.iname,MAX_PATH,0,0); -#else - strcpy(zfi.iname,dstzn); -#endif - zfi.nam=strlen(zfi.iname); - if (needs_trailing_slash) {strcat(zfi.iname,"/"); zfi.nam++;} - strcpy(zfi.zname,""); - zfi.extra=NULL; zfi.ext=0; // extra header to go after this compressed data, and its length - zfi.cextra=NULL; zfi.cext=0; // extra header to go in the central end-of-zip directory, and its length - zfi.comment=NULL; zfi.com=0; // comment, and its length - zfi.mark = 1; - zfi.dosflag = 0; - zfi.att = (ush)BINARY; - zfi.vem = (ush)0xB17; // 0xB00 is win32 os-code. 0x17 is 23 in decimal: zip 2.3 - zfi.ver = (ush)20; // Needs PKUNZIP 2.0 to unzip it - zfi.tim = timestamp; - // Even though we write the header now, it will have to be rewritten, since we don't know compressed size or crc. - zfi.crc = 0; // to be updated later - zfi.flg = 8; // 8 means 'there is an extra header'. Assume for the moment that we need it. - if (password!=0 && !isdir) zfi.flg=9; // and 1 means 'password-encrypted' - zfi.lflg = zfi.flg; // to be updated later - zfi.how = (ush)method; // to be updated later - zfi.siz = (ulg)(method==STORE && isize>=0 ? isize+passex : 0); // to be updated later - zfi.len = (ulg)(isize); // to be updated later - zfi.dsk = 0; - zfi.atx = attr; - zfi.off = writ+ooffset; // offset within file of the start of this local record - // stuff the 'times' structure into zfi.extra - - // nb. apparently there's a problem with PocketPC CE(zip)->CE(unzip) fails. And removing the following block fixes it up. - char xloc[EB_L_UT_SIZE]; zfi.extra=xloc; zfi.ext=EB_L_UT_SIZE; - char xcen[EB_C_UT_SIZE]; zfi.cextra=xcen; zfi.cext=EB_C_UT_SIZE; - xloc[0] = 'U'; - xloc[1] = 'T'; - xloc[2] = EB_UT_LEN(3); // length of data part of e.f. - xloc[3] = 0; - xloc[4] = EB_UT_FL_MTIME | EB_UT_FL_ATIME | EB_UT_FL_CTIME; - xloc[5] = (char)(times.mtime); - xloc[6] = (char)(times.mtime >> 8); - xloc[7] = (char)(times.mtime >> 16); - xloc[8] = (char)(times.mtime >> 24); - xloc[9] = (char)(times.atime); - xloc[10] = (char)(times.atime >> 8); - xloc[11] = (char)(times.atime >> 16); - xloc[12] = (char)(times.atime >> 24); - xloc[13] = (char)(times.ctime); - xloc[14] = (char)(times.ctime >> 8); - xloc[15] = (char)(times.ctime >> 16); - xloc[16] = (char)(times.ctime >> 24); - memcpy(zfi.cextra,zfi.extra,EB_C_UT_SIZE); - zfi.cextra[EB_LEN] = EB_UT_LEN(1); - - - // (1) Start by writing the local header: - int r = putlocal(&zfi,swrite,this); - if (r!=ZE_OK) {iclose(); return ZR_WRITE;} - writ += 4 + LOCHEAD + (unsigned int)zfi.nam + (unsigned int)zfi.ext; - if (oerr!=ZR_OK) {iclose(); return oerr;} - - // (1.5) if necessary, write the encryption header - keys[0]=305419896L; - keys[1]=591751049L; - keys[2]=878082192L; - for (const char *cp=password; cp!=0 && *cp!=0; cp++) update_keys(keys,*cp); - // generate some random bytes - if (!has_seeded) srand(GetTickCount()^(unsigned long)GetDesktopWindow()); - char encbuf[12]; for (int i=0; i<12; i++) encbuf[i]=(char)((rand()>>7)&0xff); - encbuf[11] = (char)((zfi.tim>>8)&0xff); - for (int ei=0; ei<12; ei++) encbuf[ei]=zencode(keys,encbuf[ei]); - if (password!=0 && !isdir) {swrite(this,encbuf,12); writ+=12;} - - //(2) Write deflated/stored file to zip file - ZRESULT writeres=ZR_OK; - encwriting = (password!=0 && !isdir); // an object member variable to say whether we write to disk encrypted - if (!isdir && method==DEFLATE) writeres=ideflate(&zfi); - else if (!isdir && method==STORE) writeres=istore(); - else if (isdir) csize=0; - encwriting = false; - iclose(); - writ += csize; - if (oerr!=ZR_OK) return oerr; - if (writeres!=ZR_OK) return ZR_WRITE; - - // (3) Either rewrite the local header with correct information... - bool first_header_has_size_right = (zfi.siz==csize+passex); - zfi.crc = crc; - zfi.siz = csize+passex; - zfi.len = isize; - if (ocanseek && (password==0 || isdir)) - { zfi.how = (ush)method; - if ((zfi.flg & 1) == 0) zfi.flg &= ~8; // clear the extended local header flag - zfi.lflg = zfi.flg; - // rewrite the local header: - if (!oseek(zfi.off-ooffset)) return ZR_SEEK; - if ((r = putlocal(&zfi, swrite,this)) != ZE_OK) return ZR_WRITE; - if (!oseek(writ)) return ZR_SEEK; - } - else - { // (4) ... or put an updated header at the end - if (zfi.how != (ush) method) return ZR_NOCHANGE; - if (method==STORE && !first_header_has_size_right) return ZR_NOCHANGE; - if ((r = putextended(&zfi, swrite,this)) != ZE_OK) return ZR_WRITE; - writ += 16L; - zfi.flg = zfi.lflg; // if flg modified by inflate, for the central index - } - if (oerr!=ZR_OK) return oerr; - - // Keep a copy of the zipfileinfo, for our end-of-zip directory - char *cextra = new char[zfi.cext]; memcpy(cextra,zfi.cextra,zfi.cext); zfi.cextra=cextra; - TZipFileInfo *pzfi = new TZipFileInfo; memcpy(pzfi,&zfi,sizeof(zfi)); - if (zfis==NULL) zfis=pzfi; - else {TZipFileInfo *z=zfis; while (z->nxt!=NULL) z=z->nxt; z->nxt=pzfi;} - return ZR_OK; -} - -ZRESULT TZip::AddCentral() -{ // write central directory - int numentries = 0; - ulg pos_at_start_of_central = writ; - //ulg tot_unc_size=0, tot_compressed_size=0; - bool okay=true; - for (TZipFileInfo *zfi=zfis; zfi!=NULL; ) - { if (okay) - { int res = putcentral(zfi, swrite,this); - if (res!=ZE_OK) okay=false; - } - writ += 4 + CENHEAD + (unsigned int)zfi->nam + (unsigned int)zfi->cext + (unsigned int)zfi->com; - //tot_unc_size += zfi->len; - //tot_compressed_size += zfi->siz; - numentries++; - // - TZipFileInfo *zfinext = zfi->nxt; - if (zfi->cextra!=0) delete[] zfi->cextra; - delete zfi; - zfi = zfinext; - } - ulg center_size = writ - pos_at_start_of_central; - if (okay) - { int res = putend(numentries, center_size, pos_at_start_of_central+ooffset, 0, NULL, swrite,this); - if (res!=ZE_OK) okay=false; - writ += 4 + ENDHEAD + 0; - } - if (!okay) return ZR_WRITE; - return ZR_OK; -} - - - - - -ZRESULT lasterrorZ=ZR_OK; - -unsigned int FormatZipMessageZ(ZRESULT code, char *buf,unsigned int len) -{ if (code==ZR_RECENT) code=lasterrorZ; - const char *msg="unknown zip result code"; - switch (code) - { case ZR_OK: msg="Success"; break; - case ZR_NODUPH: msg="Culdn't duplicate handle"; break; - case ZR_NOFILE: msg="Couldn't create/open file"; break; - case ZR_NOALLOC: msg="Failed to allocate memory"; break; - case ZR_WRITE: msg="Error writing to file"; break; - case ZR_NOTFOUND: msg="File not found in the zipfile"; break; - case ZR_MORE: msg="Still more data to unzip"; break; - case ZR_CORRUPT: msg="Zipfile is corrupt or not a zipfile"; break; - case ZR_READ: msg="Error reading file"; break; - case ZR_ARGS: msg="Caller: faulty arguments"; break; - case ZR_PARTIALUNZ: msg="Caller: the file had already been partially unzipped"; break; - case ZR_NOTMMAP: msg="Caller: can only get memory of a memory zipfile"; break; - case ZR_MEMSIZE: msg="Caller: not enough space allocated for memory zipfile"; break; - case ZR_FAILED: msg="Caller: there was a previous error"; break; - case ZR_ENDED: msg="Caller: additions to the zip have already been ended"; break; - case ZR_ZMODE: msg="Caller: mixing creation and opening of zip"; break; - case ZR_NOTINITED: msg="Zip-bug: internal initialisation not completed"; break; - case ZR_SEEK: msg="Zip-bug: trying to seek the unseekable"; break; - case ZR_MISSIZE: msg="Zip-bug: the anticipated size turned out wrong"; break; - case ZR_NOCHANGE: msg="Zip-bug: tried to change mind, but not allowed"; break; - case ZR_FLATE: msg="Zip-bug: an internal error during flation"; break; - } - unsigned int mlen=(unsigned int)strlen(msg); - if (buf==0 || len==0) return mlen; - unsigned int n=mlen; if (n+1>len) n=len-1; - strncpy(buf,msg,n); buf[n]=0; - return mlen; -} - - - -typedef struct -{ DWORD flag; - TZip *zip; -} TZipHandleData; - - -HZIP CreateZipInternal(void *z,unsigned int len,DWORD flags, const char *password) -{ TZip *zip = new TZip(password); - lasterrorZ = zip->Create(z,len,flags); - if (lasterrorZ!=ZR_OK) {delete zip; return 0;} - TZipHandleData *han = new TZipHandleData; - han->flag=2; han->zip=zip; return (HZIP)han; -} -HZIP CreateZipHandle(HANDLE h, const char *password) {return CreateZipInternal(h,0,ZIP_HANDLE,password);} -HZIP CreateZip(const TCHAR *fn, const char *password) {return CreateZipInternal((void*)fn,0,ZIP_FILENAME,password);} -HZIP CreateZip(void *z,unsigned int len, const char *password) {return CreateZipInternal(z,len,ZIP_MEMORY,password);} - - -ZRESULT ZipAddInternal(HZIP hz,const TCHAR *dstzn, void *src,unsigned int len, DWORD flags) -{ if (hz==0) {lasterrorZ=ZR_ARGS;return ZR_ARGS;} - TZipHandleData *han = (TZipHandleData*)hz; - if (han->flag!=2) {lasterrorZ=ZR_ZMODE;return ZR_ZMODE;} - TZip *zip = han->zip; - lasterrorZ = zip->Add(dstzn,src,len,flags); - return lasterrorZ; -} -ZRESULT ZipAdd(HZIP hz,const TCHAR *dstzn, const TCHAR *fn) {return ZipAddInternal(hz,dstzn,(void*)fn,0,ZIP_FILENAME);} -ZRESULT ZipAdd(HZIP hz,const TCHAR *dstzn, void *src,unsigned int len) {return ZipAddInternal(hz,dstzn,src,len,ZIP_MEMORY);} -ZRESULT ZipAddHandle(HZIP hz,const TCHAR *dstzn, HANDLE h) {return ZipAddInternal(hz,dstzn,h,0,ZIP_HANDLE);} -ZRESULT ZipAddHandle(HZIP hz,const TCHAR *dstzn, HANDLE h, unsigned int len) {return ZipAddInternal(hz,dstzn,h,len,ZIP_HANDLE);} -ZRESULT ZipAddFolder(HZIP hz,const TCHAR *dstzn) {return ZipAddInternal(hz,dstzn,0,0,ZIP_FOLDER);} - - - -ZRESULT ZipGetMemory(HZIP hz, void **buf, unsigned long *len) -{ if (hz==0) {if (buf!=0) *buf=0; if (len!=0) *len=0; lasterrorZ=ZR_ARGS;return ZR_ARGS;} - TZipHandleData *han = (TZipHandleData*)hz; - if (han->flag!=2) {lasterrorZ=ZR_ZMODE;return ZR_ZMODE;} - TZip *zip = han->zip; - lasterrorZ = zip->GetMemory(buf,len); - return lasterrorZ; -} - -ZRESULT CloseZipZ(HZIP hz) -{ if (hz==0) {lasterrorZ=ZR_ARGS;return ZR_ARGS;} - TZipHandleData *han = (TZipHandleData*)hz; - if (han->flag!=2) {lasterrorZ=ZR_ZMODE;return ZR_ZMODE;} - TZip *zip = han->zip; - lasterrorZ = zip->Close(); - delete zip; - delete han; - return lasterrorZ; -} - -bool IsZipHandleZ(HZIP hz) -{ if (hz==0) return false; - TZipHandleData *han = (TZipHandleData*)hz; - return (han->flag==2); -} - diff --git a/CocXlsxTool/zip.h b/CocXlsxTool/zip.h deleted file mode 100644 index 083895ec..00000000 --- a/CocXlsxTool/zip.h +++ /dev/null @@ -1,203 +0,0 @@ -#ifndef _zip_H -#define _zip_H - - -// ZIP functions -- for creating zip files -// This file is a repackaged form of the Info-Zip source code available -// at www.info-zip.org. The original copyright notice may be found in -// zip.cpp. The repackaging was done by Lucian Wischik to simplify and -// extend its use in Windows/C++. Also to add encryption and unicode. - - -#ifndef _unzip_H -DECLARE_HANDLE(HZIP); -#endif -// An HZIP identifies a zip file that is being created - -typedef DWORD ZRESULT; -// return codes from any of the zip functions. Listed later. - - - -HZIP CreateZip(const TCHAR *fn, const char *password); -HZIP CreateZip(void *buf,unsigned int len, const char *password); -HZIP CreateZipHandle(HANDLE h, const char *password); -// CreateZip - call this to start the creation of a zip file. -// As the zip is being created, it will be stored somewhere: -// to a pipe: CreateZipHandle(hpipe_write); -// in a file (by handle): CreateZipHandle(hfile); -// in a file (by name): CreateZip("c:\\test.zip"); -// in memory: CreateZip(buf, len); -// or in pagefile memory: CreateZip(0, len); -// The final case stores it in memory backed by the system paging file, -// where the zip may not exceed len bytes. This is a bit friendlier than -// allocating memory with new[]: it won't lead to fragmentation, and the -// memory won't be touched unless needed. That means you can give very -// large estimates of the maximum-size without too much worry. -// As for the password, it lets you encrypt every file in the archive. -// (This api doesn't support per-file encryption.) -// Note: because pipes don't allow random access, the structure of a zipfile -// created into a pipe is slightly different from that created into a file -// or memory. In particular, the compressed-size of the item cannot be -// stored in the zipfile until after the item itself. (Also, for an item added -// itself via a pipe, the uncompressed-size might not either be known until -// after.) This is not normally a problem. But if you try to unzip via a pipe -// as well, then the unzipper will not know these things about the item until -// after it has been unzipped. Therefore: for unzippers which don't just write -// each item to disk or to a pipe, but instead pre-allocate memory space into -// which to unzip them, then either you have to create the zip not to a pipe, -// or you have to add items not from a pipe, or at least when adding items -// from a pipe you have to specify the length. -// Note: for windows-ce, you cannot close the handle until after CloseZip. -// but for real windows, the zip makes its own copy of your handle, so you -// can close yours anytime. - - -ZRESULT ZipAdd(HZIP hz,const TCHAR *dstzn, const TCHAR *fn); -ZRESULT ZipAdd(HZIP hz,const TCHAR *dstzn, void *src,unsigned int len); -ZRESULT ZipAddHandle(HZIP hz,const TCHAR *dstzn, HANDLE h); -ZRESULT ZipAddHandle(HZIP hz,const TCHAR *dstzn, HANDLE h, unsigned int len); -ZRESULT ZipAddFolder(HZIP hz,const TCHAR *dstzn); -// ZipAdd - call this for each file to be added to the zip. -// dstzn is the name that the file will be stored as in the zip file. -// The file to be added to the zip can come -// from a pipe: ZipAddHandle(hz,"file.dat", hpipe_read); -// from a file: ZipAddHandle(hz,"file.dat", hfile); -// from a filen: ZipAdd(hz,"file.dat", "c:\\docs\\origfile.dat"); -// from memory: ZipAdd(hz,"subdir\\file.dat", buf,len); -// (folder): ZipAddFolder(hz,"subdir"); -// Note: if adding an item from a pipe, and if also creating the zip file itself -// to a pipe, then you might wish to pass a non-zero length to the ZipAddHandle -// function. This will let the zipfile store the item's size ahead of the -// compressed item itself, which in turn makes it easier when unzipping the -// zipfile from a pipe. - -ZRESULT ZipGetMemory(HZIP hz, void **buf, unsigned long *len); -// ZipGetMemory - If the zip was created in memory, via ZipCreate(0,len), -// then this function will return information about that memory block. -// buf will receive a pointer to its start, and len its length. -// Note: you can't add any more after calling this. - -ZRESULT CloseZip(HZIP hz); -// CloseZip - the zip handle must be closed with this function. - -unsigned int FormatZipMessage(ZRESULT code, TCHAR *buf,unsigned int len); -// FormatZipMessage - given an error code, formats it as a string. -// It returns the length of the error message. If buf/len points -// to a real buffer, then it also writes as much as possible into there. - - - -// These are the result codes: -#define ZR_OK 0x00000000 // nb. the pseudo-code zr-recent is never returned, -#define ZR_RECENT 0x00000001 // but can be passed to FormatZipMessage. -// The following come from general system stuff (e.g. files not openable) -#define ZR_GENMASK 0x0000FF00 -#define ZR_NODUPH 0x00000100 // couldn't duplicate the handle -#define ZR_NOFILE 0x00000200 // couldn't create/open the file -#define ZR_NOALLOC 0x00000300 // failed to allocate some resource -#define ZR_WRITE 0x00000400 // a general error writing to the file -#define ZR_NOTFOUND 0x00000500 // couldn't find that file in the zip -#define ZR_MORE 0x00000600 // there's still more data to be unzipped -#define ZR_CORRUPT 0x00000700 // the zipfile is corrupt or not a zipfile -#define ZR_READ 0x00000800 // a general error reading the file -// The following come from mistakes on the part of the caller -#define ZR_CALLERMASK 0x00FF0000 -#define ZR_ARGS 0x00010000 // general mistake with the arguments -#define ZR_NOTMMAP 0x00020000 // tried to ZipGetMemory, but that only works on mmap zipfiles, which yours wasn't -#define ZR_MEMSIZE 0x00030000 // the memory size is too small -#define ZR_FAILED 0x00040000 // the thing was already failed when you called this function -#define ZR_ENDED 0x00050000 // the zip creation has already been closed -#define ZR_MISSIZE 0x00060000 // the indicated input file size turned out mistaken -#define ZR_PARTIALUNZ 0x00070000 // the file had already been partially unzipped -#define ZR_ZMODE 0x00080000 // tried to mix creating/opening a zip -// The following come from bugs within the zip library itself -#define ZR_BUGMASK 0xFF000000 -#define ZR_NOTINITED 0x01000000 // initialisation didn't work -#define ZR_SEEK 0x02000000 // trying to seek in an unseekable file -#define ZR_NOCHANGE 0x04000000 // changed its mind on storage, but not allowed -#define ZR_FLATE 0x05000000 // an internal error in the de/inflation code - - - - - - -// e.g. -// -// (1) Traditional use, creating a zipfile from existing files -// HZIP hz = CreateZip("c:\\simple1.zip",0); -// ZipAdd(hz,"znsimple.bmp", "c:\\simple.bmp"); -// ZipAdd(hz,"znsimple.txt", "c:\\simple.txt"); -// CloseZip(hz); -// -// (2) Memory use, creating an auto-allocated mem-based zip file from various sources -// HZIP hz = CreateZip(0,100000, 0); -// // adding a conventional file... -// ZipAdd(hz,"src1.txt", "c:\\src1.txt"); -// // adding something from memory... -// char buf[1000]; for (int i=0; i<1000; i++) buf[i]=(char)(i&0x7F); -// ZipAdd(hz,"file.dat", buf,1000); -// // adding something from a pipe... -// HANDLE hread,hwrite; CreatePipe(&hread,&hwrite,NULL,0); -// HANDLE hthread = CreateThread(0,0,ThreadFunc,(void*)hwrite,0,0); -// ZipAdd(hz,"unz3.dat", hread,1000); // the '1000' is optional. -// WaitForSingleObject(hthread,INFINITE); -// CloseHandle(hthread); CloseHandle(hread); -// ... meanwhile DWORD WINAPI ThreadFunc(void *dat) -// { HANDLE hwrite = (HANDLE)dat; -// char buf[1000]={17}; -// DWORD writ; WriteFile(hwrite,buf,1000,&writ,NULL); -// CloseHandle(hwrite); -// return 0; -// } -// // and now that the zip is created, let's do something with it: -// void *zbuf; unsigned long zlen; ZipGetMemory(hz,&zbuf,&zlen); -// HANDLE hfz = CreateFile("test2.zip",GENERIC_WRITE,0,0,CREATE_ALWAYS,FILE_ATTRIBUTE_NORMAL,0); -// DWORD writ; WriteFile(hfz,zbuf,zlen,&writ,NULL); -// CloseHandle(hfz); -// CloseZip(hz); -// -// (3) Handle use, for file handles and pipes -// HANDLE hzread,hzwrite; CreatePipe(&hzread,&hzwrite,0,0); -// HANDLE hthread = CreateThread(0,0,ZipReceiverThread,(void*)hzread,0,0); -// HZIP hz = CreateZipHandle(hzwrite,0); -// // ... add to it -// CloseZip(hz); -// CloseHandle(hzwrite); -// WaitForSingleObject(hthread,INFINITE); -// CloseHandle(hthread); -// ... meanwhile DWORD WINAPI ZipReceiverThread(void *dat) -// { HANDLE hread = (HANDLE)dat; -// char buf[1000]; -// while (true) -// { DWORD red; ReadFile(hread,buf,1000,&red,NULL); -// // ... and do something with this zip data we're receiving -// if (red==0) break; -// } -// CloseHandle(hread); -// return 0; -// } - - - -// Now we indulge in a little skullduggery so that the code works whether -// the user has included just zip or both zip and unzip. -// Idea: if header files for both zip and unzip are present, then presumably -// the cpp files for zip and unzip are both present, so we will call -// one or the other of them based on a dynamic choice. If the header file -// for only one is present, then we will bind to that particular one. -ZRESULT CloseZipZ(HZIP hz); -unsigned int FormatZipMessageZ(ZRESULT code, char *buf,unsigned int len); -bool IsZipHandleZ(HZIP hz); -#ifdef _unzip_H -#undef CloseZip -#define CloseZip(hz) (IsZipHandleZ(hz)?CloseZipZ(hz):CloseZipU(hz)) -#else -#define CloseZip CloseZipZ -#define FormatZipMessage FormatZipMessageZ -#endif - - - -#endif diff --git a/Dice/CardDeck.cpp b/Dice/CardDeck.cpp index 94cb55c0..857e89e0 100644 --- a/Dice/CardDeck.cpp +++ b/Dice/CardDeck.cpp @@ -18,13 +18,15 @@ namespace CardDeck //class Deck {}; std::map> mPublicDeck{ {"Ӳ",{"",""}}, - {"ɫ",{" / Hakurei Reimu","ħɳ / Kirisame Marisa"," / SinGyoku","ħ / Mima"," / Kikuri"," / Konngara","Ļħ / YuugenMagan","˹ / Elis"," / Sariel","ү / Genjii"," / Rika"," / Meira","ħɳ / Marisa","Flowerս / Furawasensha","а / ibiruai sigma"," / Ellen","Сü / Kotohime","ȡȱ / Kana Anaberal"," / Asakura Rikako","׺ǧٺ / Kitashirakawa Chiyuri"," / Okazaki Yumemi","ţ佴 / Mimichan"," / Ru~koto"," / Ma maru chi","ո / Sokuratesu"," / Orange"," / Kurumi","/ Elliy"," / Yuka"," / Mugetu"," / Gengetu"," / Sara","¶/ Luize","˿ / Alice","ѩ / Yuki"," / Mai"," / Yumeko"," / Shinki","¶ / Rumia"," / Daiyousei","¶ŵ / Cirno"," / Hoan Meirin","Сħ / Koakuma","ŵټ / Patchouli Knowledge","ʮҹDҹ / Izayoi Sakuya","ǡ˹/ Remilia Scarlet","ܽ¶˹/ Flandre Scarlet"," / Satsuki Rin","ë / gedama","ٵ١/ Letty Whiterock"," / Chen","˿ / Alice Margatroid"," / Lily White","¶ķ / Lunasa Prismriver","÷¶ķ / Merlin Prismriver","򿨡ķ / Lyrica Prismriver"," / Konpaku Youmu"," / Saigyouji Yuyuko"," / Yakumo Ran"," / Yakumo Yukari"," / Konpaku Youki","ķ / Leira Prismriver"," / Ibuki Suika","¶ذ͸ / Wriggle Nightbug","˹櫡 / Mystia Lorelei","ϰ / Kamishirasawa Keine","ᦵ / Inaba Tewi","ɡ꼻Ժ / Reisen Udongein Inaba"," / Yagokoro Eirin","ɽҹ / Houraisan Kaguya","ԭú / Huziwara no Mokou"," / Syameimaru Aya","÷÷ / Medicine Melancholy"," / Kazami Yuka","СҰVС / Onozuka Komachi","ļӳǶ / Shikieiki Yamaxanadu","ᄇҶ / Aki Shizuha"," / Aki Minoriko","ɽ / Kagiyama Hina","ӳǺȡ / Kawasiro Nitori","Ȯߗ / Inubashiri Momizi"," / Kochiya Sanae"," / Yasaka Kanako","ʸ / Moriya Suwako","¾ / Nagae Iku"," / Hinanawi Tenshi","˹ / Kisume","ڹɽŮ / Kurodani Yamame","ˮ¶ / Mizuhashi Parsee"," / Hoshiguma Yugi","ؾ / Komeiji Satori","è / Kaenbyou Rin","· / Reiuzi Utsuho"," / Komeiji Koishi","ʬ Թ鸽 / Zombie Fairy"," / Nazrin","Сɡ / Tatara Kogasa","ƾһ & ɽ / Kumoi Ichirin & Unzan","ɴˮ / Captain Murasa Minamitsu"," / Toramaru Syou","ʥ / Hiziri Byakuren","w / Houjuu Nue"," / Myouren"," / Oo-Namazu","̫Ǿ / Taisai Sei-kun","̫ʦ / Daidarabotchi"," / Hisoutensoku","̩ / Titania","ż / Goliath Doll","Ĺ / ļ / Himekaidou Hatate","Ĺ/ Kasodani Kyouko","ŷ/ Miyako Yoshika"," / Seiga NyanNyan","Թ / Soga no Toziko","ﲿ /Mononobe no Futo","϶ / Toyosatomimi no Miko","Ҫl / Hutatsuiwa Mamizou"," / Hata no Kokoro","غʤ / Hata no Kawakatsu","ؼ / Wakasagihime"," / Sekibanki","ȪӰ / Imaizumi Kagerou","ʮ / Tsukumo Benben","ʮŰ / Tsukumo Yatsuhashi","а / Kijin Seija"," / Sukuna Shinmyoumaru","ܥ׹ / Horikawa Raiko"," / Usami Sumireko"," / Seiran"," / Ringo","䡤 / Doremy Sweet","ϡ̽Ů / Kisin Sagume","ͶƤ˿ / Clownpiece"," / Junko","տǡ˹ / Hecatia Lapislazuli","ŮԷ / Yorigami Jyoon","Է / Yorigami Shion"," / Eternity Larva","ϻ / Sakata Nemuno","Ұ / Komano Aunn","ʸ³ / Yatadera Narumi"," / Nishida Satono"," / Teireida Mai","Ħ / Matara Okina","ɭ֮ / Morichika Rinnosuke"," / Tokiko","ˮ̡Ů/ Kawauso no Shoujyo","ɣ׶ / Sunny Milk","¶¶ / Lunar Child","˹ / Star Sapphire","·ἧ / Watatsuki no Toyohime"," / Watatsuki no Yorihime","ɶ / Reisen","ﰢ / Hieda no Akyuu","ľ / Ibarakasen","С / Motoori Kosuzu"," / The Fortune-teller"," / Usami Renko","갬¶򡤺ն / Maribel Hearn÷ / Merry"}}, + {"Ա",{"","Ů"}}, {"żʾ",{"01 𣺲ҪűȽϺõIJҾ硢⡢ѡǣҪ˽֮ûбİ취","02 DZڸӲпӡΪ˲ظĹȥаıҪ","03 壺ʲôͻȻãDz˰ǣǸݶ벻ĻDZǿ˷ˡ","04 ż㱻ʲôƶšʹšš˽ȥĻҲ޷֪ڵжǷԼ־","05 ˣ㷸޷޷ԭµܻĻҲ޷ϴˡ","06 ɥ ʧǰʧȥʲôֱҲûѰءͼ䣬ǡģҪʲô","07 ʲôҪĶûǸɲУżҪʲôҲ벻Ҳż","08 תڵ͹ȥȫDzͬˡӦûԼڻصȥ¡","09 ϣ Ӧ֪ʲôҪ顣鷨ʦ˵ǼΪҪܡܰǸȡĻ","00 ůӡϲáʱ⡣Ҹӣֻл룬ҲҪһ"}}, {"ż",{"01 Ƭ дʱƬµҸƬǰƬҲ˵","02 ϵƾɵ𻵵ǵ顣һһ顣ֻûκ֡","03 ССIJ СèѻIJߣΪʲôĶΪDzįɡ","04 Ĵʲô˵IJǹȥԼIJѾʹõһ֣ԡ","05 С Сӡ۶궼ϧʹߡ㲻ϲӳԼӳĶҲǷdzҪġ","06 ż ɰżڵһ֪ﻵż","07 ɰIJޡǾ˳õսҲ","08 Ʒ ָһ࣬ƯΡֻǣֻмֵĻ","09 ԷڻҰзֵģ鶫ӡǵҪװЩʲôҲ֪","00 ôı䣬֯Ǽ·еĿɰҲ䡣㣬Ҳò䡣"}}, {"żƬ",{"01 \nȷʵɫģǵǦɫ֪ޱϴ̿գĴȻȴѾ޷ټˡ","02 ĸ \nбůӵļ䣬ļǵĸ׵֡ݺֶ޷ǸӵůȴƺšҪӵIJǼ䣬ʵڵǸ","03 \nǵ촽ĴСǵʲôʱ򡢺ʲô˽ӵһɶˣµֻĴഥĸоЩǣ᲻˭ĴҲͬأ","04 \nСʲôĴѰӰܱ֣ܱ֡㾡šƺʲô𽥿˴šȻ㡭","05 Ѫ \nһɢζʺѪ֮СĸĴɢ䡣˭أ˭һУΪʲôһѵ˵","06 \nվ֮СעµˮסΧľɫȲǺɫҲǿᣬֻǽʪеˮѡȻܣȴҲеʮֻ","07 \nΧÿһ˶ԶԶЦš㲻֪ԼʲôΪʲôЦ֪ԼټĿ⣬IJ뱻ڵĻǶ¡","08 Ц \nĵЦݣdzҸЦݡĸЦݴԺи֡˭ЦأҪ˵ģ˵ģǾӳԼЦݵĻٺòˡȻ֪˭ģЦǣơ","09 \nʲյһšȷǷźԼ״̵ϵȴ벻ŵݡǷŵдЩʲôأĸҪ֮˼أ˵","10 ֮ Ӱ\n޴ĺӰȫ壬˷dzп飬ֻҪ;ͷҪѿˡޣԣޱǸӰӣһѹļһд","11 ԰\nʢĻ԰֯ڣһ߳һɢƬ֮еʱӹɵҸڣżҲǼ֮С","12 \n㻹ǵøǿ׳˫ۺϺĴС㻹ǵԼ屻˫ӵĸоȻ˫ֱ۵һѾˣǷůȴ֧ġ","13 ֮ \nɬȴ۵֮ġȻѾ޷֮ˣǷȴСֻļ⣬ǷҲ","14 \nиһԲԭ£㻳޾ʽÿ춼Զͣ¡ѹԼҲ˰ɣԶǼһһҲɹˡҪǼһҲһζ","15 \nȻ֪ôģһ׸衣֮Ҳ߳ʱҲ΢ıһ¸ʡȻֻһ׸裬˵ҲҪĶ","16 \nĵ졣ϸỬ͡ɫ޵ˮɵĵ⡣ѾҲҲ˰ɣˣҲҪٴƷζ","17 \nȼյĻӵΧһСҡҷĻ֮УȴϿֲһϣǻһȼʹаڵϣյĶôϡ١","18 \nʱ򣬱ټС뻮ָֻ΢һѪҲ޿󳳴֡ڵǵСˣķҲ","19 ɫ \nɫķ䡢ҩע䡢۵ǡϸֱۣ˫ȣȻȴ޷ж㣬Ȼȴõɵ㣬˵һ߲š","20 ɫ լ ۡ\nǷһĿֲĺɫլۡһһεظԺСȻﲻܽģеȴͲסԼĺġȥ֮󡭡֮벻ˡ","21 \nդªĴ̣ÿյĿʹDZȥ˳ĵѾȥĽ죬Ҳܹоʲô˵ļȻΪõɣȴҲվֻdzľż˵Զʹž","22 \nҹŹâºǣ㻹ǵùȥҹաȥҹôڵҹȴֻʣºڰǸۺڰжôҲоʵ˫ۣ֮еˡ","23 Ů\nһλŮȻֻݣǵĹϵȴˣЦݻСǰģҲͬЦݵĻǡ","24 \nһκζҪdzdzϧıǵʲôأһӵеġǸDZ˽һġ","25 \nʲôˡҶܱˣ˻˳أŹĴƬģģĿǸҪ֮˵ġ","26 \nټѡˣǷdzdzֵľۻ䣬ӹɵҸʱ⡣ʵ̫Ҹˣֻ˵ʵIJʵ̫ڲпᡣ","27 \nȷʵµСԼΪΪĸ׵ĸж㲻ֻǸŮ𣿻˵ͷԺڵDzͬ","28 Ȯ\nȻ࣬ȴҲҪļˡǺӵĽͷëƤĴУ֣һСС","29 \nӺܸߺܸߵĵط¸ӡѾDzõϵķ羰ˣԼܹз̤һ֮ôأķ","30 \nȻȴҲůòҸĵճһܳԶע⵽ʱѾ塢ˡ׷ʲôˣ","31 \nDZƻûļ䡣⵽˺ɵŰ޺ŭ䣬ȻڷһС㵽˽Ҳһûб䡣δҲһһκϣ","32 л \n˺˺Ҫˣ֪ҪǸȴһ䱧Ǹû˵ڡע⵽ʱѾˣ»˹ǸһҲġǸ˵ǸҪǸ","33 \nв˼ħֽƬֻҪҪĶȫܻǸֵȷǣǮֶεռΪǸļֵﻹǸء","34 ȥ\nǰһˡ˵ǷdzdzҪڵ㼴ʹҲжǷҲͬ飿","35 \n˻Ĺ羰ɳ档ǸطȻѾϣȴС޷ȴҪ羰Ҳıܷۡ","36 Ը\nûʵֵԸDzǾҪʵֲŸãÿʱᴫʹܻãôܻءǣѾ벻ǸԸʲôˡ","37 ˮ\nˮУޱ峺ˮӾ𣿻DZˮֻͶˮԾΣˮ㶼еĹϵֻҪˮУ;÷dzҸ","38 ֯ \nڱ֯ʲôΪ˭أʲôأΧ׻ëءָǵҪαֻ֯Ҫëߺ֯룬Ҳܱʲôɡ","39 x\nôлҲΪˣллֿҲû˵طĻһ仰һǡǸ˾˭ʲôأ","40 ζ \nϲϻˡϲֲϲʩʡϲˮϲŪ㣬ǵdzζͻݵķҷֻɳʯϣѾҲҲ","41 \nĴڱΪ񡱣ֻҪĻܹõҸڵҸҸĻҲΪϰɡ","42 ʦ\nڰ塢ӡ̨һվֻŬѧϰصǸ䰡ںηأڡӺδأ","43 \nůı֮УԺڳ֮˯˸˵ûбҸˡ֮еıůģ֮磬ôأ","44 ױ ̨\nŬӳھеԼƯƯġһͿϿںʱ򣬱任ո·͵ʱ򡢸ոտʼױʱ򡭡ǣڵȴһֻ˵ֻһ洦ɼż","45 ̨\n̨ϵ־صɴ۾첻֪ʲôˣвѪҽˣŹâӽˡƤƤ","46 \nʲôһֱ㡣ĸоϻеޱȿֲǾ˭ʲôһ㶼֪棬棡","47 \nüʺüʰôңΪʲôҶôҸЦأüʺüʰǸʱȻҸԼҲüʡ","48 \n̫ˣҶ˺㡣ֻҪССķͺˣҪȥ档Ǽ˻DZǿȻÿ°ص","49 ϴ ԡ\nůˮͷԡʱĺ߳ϴһ谡ڵ壬ˮȫİɣֻ̾ϢŶȹÿһ졣","50 ǹ \nͻȻıʲôսǰһȣתͷȥȻ㡭벻ˡڵÿ춼Ƶı","51 ͼ \n鱾ŵĶǶô죬ѧϰǶô졣֪ʶ䲢ǼֵȴͬڼֵԳһļžռ䣬ȥ֮","52 \n˵˻ѣ˭㶼ţ˭㶼޷šڵĻȻ֪ҪβɣȻ֪㡭","53 \nһֱdzįһֱһˣϣܵõѡȻкܶ飬ȴܹεѡΪǵĴڣȹȥá","54 \nÿ춼ǸѾֱߣҪҲѾǵˡȻֻܺ߳ҪһǸĻָܼҪӡ","55 ѩ\nǵðɫıƬҡҷŴǽеһжô׸ѩڵֻкɫĻңɫѩѾҲ˰ɡ","56 \nϲ塣DzƴսǸӿֵػ塣ƣͲʹҲɳ壬˶Ļĸоأ","57 ˫ \nһ룬Ǻͬһ쵮ͬݵĺӡ֮Ų˼ϵܶԷʲô֪ԣУҲ֪Լһη","58 \nСʵ̫ˣӷŷֻСڵ㣬ҲDZⲻ֮еСû˻㣬Ҳŷأ","59 ż\nɰżˣֵֽķˡˣÿļ䡣ϸĻڵ㲻Ǹż𣿡","60 \nȻѾDz⵽ʲôļ䡣Ȼ䣬ȴڵĵطһֱŴ⡣٣ڵﲢǸ⡣","61 ռ \nռƵļ䣬ʲôΪȷƣһǣڴҸδĻɡףǣֻ˵˵ѣȴ֧Ҫ","62 ǣ \nʲôǣ֡ȻǵöԷ˭Ǵܴ̤ʵİĸСֻҪָഥܹĵĻǾڵĻǣְɡֻDZ֣Ҳܵů","63 \nųԲԵĶļ䡣ѾʧȥʳеʹӺö˺׽ʲôԺԺԣԼҲԡˣǸʱѵ","64 \n⵽ļ䣬ظ衣˺÷飬ΨǴӣɰڲֻҪЩʲôӿš㻽Ķ϶Щһûʲô","65 \nſɰ·ȻDzݣֻҪ뵽ҪӳھеǼ·չʾʲô˿ûȸԾǣ봩˭أǼ·أ","66 \n³׼ˡ߲ˡ鼦ƬȻһʼʲôҲˡǷ˵ʲôζȴǵˡģóô","67 \nֻΪ鲻ûһʱͶǸС¡һΧס۸ȭߣͷͷ֮ġǸʱÿİ","68 \nһδɵĻܻĻһᱻҳ޵ģǾõˡǣǵһѾ벻ˡDZҪġ","69 \nĻ壬ļȾɫڲǶ԰ǶԿֵĿ֮С㵽ڣҲʹǣ壬ܲأ","70 \nأ㱻ʲô׷ϣŻŲ·ܡߵֽҵػ˺ķѡЩһDz߰Щһ˺Ƭ","71 \ndzߡȻѹɣȴû취뿪ѡӴ©ijСȻ˯ŵȴѵԺĸоǣûЩ","72 \nǵúѵޱ߼ʵĶԻʱСǼһϲǸˡй飬ʲôĵǸʱ򡭡ֻҪͻĽˮ","73 ʬ \n㰧ʲô˵ǰȥȴ벻˭ˡǣǸ˵ʬʼжΪǸ˸㣬Ǹ˵ֺϮˡ","74 Ϸ\nҹϷʲôϷΪʲôϷ㶼ѾǵˣֻһֱһֱŻļ䣬ֻв뿪䣬Ҳ˯ļ䡣","75 \nʲôѪҺͷֻࣿŵĻֻŵĻ䣿ǸʲôˡǸ˵õҲ¶ЦݡǮȥȥʲôأ","76 Ŭ \nŬѧϰȡĺóɼĻû취չʾˣû취չʾˡһǴȫһǴôĻûС˿ֵ","77 ʱ \nҸҸð溦ҸʧΪξҸ㻹ǵƻõҸʱ⣬ȴֻǣǵáѡ","78 \n㱻СֽŵDZģַ΢΢ů⡣ȻʶȴϱǡѾû취ˣҲȫС","79 \nȥָĶųһһεȷԼǮޱȿֵĹʱ䣬Ǹʱ˭أֻʱĿ֡","80 ԰\nͼһһ𡢻˵һأǹȤֵģ԰ļ䡣ͷ׵ʩdzҸǡһ쾿ȥأĺۼ","81 \nССͥԺɫΡӲĺ衢桢̸ֵЦΪŮе䡣ǸȻŮ֮ġ","82 \nκ˵ܣΪǷdz¡dz߳ܡܱ֪顣ǰԼԼܣ˭֪أ","83 \nŻ䡣ʩʡˮ桢Ȼ󻨶ڿţʵȻdzܳʱĹȴļоšǸأ","84 \n˲ʲôļ䡣ֵֵӰӡëȻĹӰǸʱĿֲڽͯ΢ЦΪڵ㣬ѾΪ˹ȥµĶ","85 \nڸ¥ڳУ˽һ˵С硣棬Ǹֻ֮СDzҲܵصıҪأ","86 \nѾ޷ٺǸˡȥһdzdzҪˡȻڻ벻˭һΪֻǸ˵飬Բǵġ","87 \nŲ֪С˵ʫ裬дʲôµļ䡣ǸдԼĹֻҪܹһһȫġ","88 \nиĸ磬һֱ˵ҪˣҲˡǣֵݶ벻ֻҪͿ϶ġ","89 ʧ\nһɢˡʲôIJֻ֪һ߿һǻʶĵ·ʶĵطﶼһƬڣΧDzʶˡˣǸʱҲڡ","90 \nİIJˣɫɳ̲Ŀ֮Ĵ󺣣ʱԾˮ棬֮еĴ󺣡Ҳһкģ֮dzĴ","91 ս \nΪӱսĴ䡣ĴǷ׷ɵӵͱըʧȥֻ֪ãšѷڵ˷ɽС֡","92 Ū \nҪˡһֻ˯˶ѣѹģһѹġΪѾȥΪ˶ѹİɣǸ˯أ","93 ҩ\nҪҩҪҩҪˣҪˣҪˣҲҪˣ㣬ҩҪأҵĻ","94 \nˣˡȥӣȥijӣرޡرֶһֱסڲֶķڡ","95 \nݺֶ벻ǣҪˡʵ̫ˣкһһǣָ֮ڣǸܺúõذϢĻ̫ˡ","96 \n˵ˡȻ벻ǾĻԣһij˱ƭˣƭȥˡԷһֱҲ֪࣬ٴĻǸĻ","97 \nѾˣǺʵġǸʱ粻ͬһ硭Ȼͱǿ˳ǵģĻӦȥǸŶԡ","98 ɱ ¾ ʹ\n㱻˽̵ҪɱˡԴ˲˿ʣΪֹѾ֪ٴεظɱ¡ֻҪɱܱˡڵ磬ֻҪһֱһֱɱ¾ȥܹõ˰ɣ","99 ʦ\n΢ǵһġǼһǼһлȻԡǼһ˵ڵ㲻ֻ߶ѣ","00 ս \n㾿վأΪԹߣ֤ս֪ʶͼ䡣׷˶кͲҾ磬Ȼģģģȷʵ˽⡣"}}, + {"ż",{"01\nޱȼҵĶ⡣ɵĻãԷһһе淳ˡ\n񣺵жʶ ּһҪǻͺˡ\nսУδе˵ĹȫĶ֮ڵĻеIJλ˵һѡ","02ռ\nԶԷмҵĶռֻԼĶ뽻κˡdzƲϰа\n񣺶ռ嶯 ۾Ư\nսʼʱսʱԷѡһƻ","03桿\nԣDZҪĴڡûǸ˵Ļʲô\n׶ ˵Ļаú¡\nжֵ 2 㡣","04ִš\nǸ˵뿪Ǹ˵߾ǾڵĵطֿԶֿ\n׷ټ һֱ㡣һֱ\nսʼʱսʱ 1 ״̬ĻҪ","05顿\nֻҪǸ˾͸еѹ뱻ǸᣬҲŲ۾Ǻ߰\nΪ Ǹ˲ĻһôûС\nսʼʱսʱѡһƻ","06Կ\nֻǸˣޣֻǾѡԶž\n񣺹ʣ ұȽ㣬㣬ð\nսʼʱսʱѡһ 1 ״̬ĻҪ","07顿\nΪǺҪˡֻҪΪõѣʲôõġ\n񣺹 ûˣûϵҲһӴ\nϷʱ𻵲ĻƻIJֱĿͬΪֹ","08\nǸ̫ˣҪûİĻһʲô\nʱ Ҫ뿪ңҪұģ\nսУֻҪĶڲͬ򣬾ͲԡƶЧĶ⣬ƶܽԼĶΪĿꡣ","09㽡\nӵķȡ㽵ĶǸе̬\n ƭˣ˲Ų˵Ǽٻɣƭҵģ\nսУֻҪĶͬ򣬾ͲԡƶЧĶ⣬ƶܽԼĶΪĿꡣ","10\nͶԷһͬĴڣʲôиֻҪǸһ𣬾ܾ\nɹ дӺ͵ϮɣDzģ\nнжֵ 1"}}, {"Ӣ츳",{"츳1 춨ʱһ","츳2 Ȼظÿ3HP","츳3 谵Ӿ ҹ춨Ѷȵȼҹʱijͷ","츳4 ׿ ʼ춨ʱһ׷ʱ","츳5 춨ʱһijij","츳6 ǧ Ի5ƴЧӼܳͷ","츳7 ǿ Ի10ʹͶҩ˺Ч롣","츳8 Ի10һյ5˺","츳9 ˷ 춨ʱһ","츳10 Ȼ춨ʱһ","츳1 ᶨ ӹࡢĿòҴ˻ʬʧ","츳2 ۲ Իʧ","츳3 ־ ־춨ʱһ","츳4 һĿʮ Ķ鼮񻰵伮ʱ;ѵʱ롣","츳5 ѧ ˽Ի֣Լ춨ʱһ","츳6 ħ׺ ѧϰѵʱ룻ʩ춨ʱһ","츳7 Ŀ ܹס¼ϸڣ֪ʶ()춨ʱһ","츳8 ѧ ѧʼܵһרξѧʡѪѧʡѧʣҪüְܷҵȤ","츳9 ܾ һܣͨ顢ռýӦ£ҪüְܷҵȤ","츳10 Ƕı ܹѸУ춨ʱһ","ս츳1 䲻 ᱻͻϮ","ս츳2 רע ڸУԻ10ö˺ȡͽֹ+1D3+1D6","ս츳3 װ ѡһʹøͬһغװijͷ","ս츳4 ӦǹеѰʱʧȥᡣ","ս츳5 Ŀ ׼ͽСĿ(-2)ʱijͷ׼սеĿʱijͷ","ս츳6 ׿ ʹսʱɫΪ+1","ս츳7 ڸУԻ10ٽһι","ս츳8 һսУԻ10Ѳڡ","ս츳9 ׼ غִʱʹδ׼ýΪ+50DEX","ս츳10 ǹר ǹijͷ","츳1 ɷ пż춨ʱһѶȵȼ߻һжϡ","츳2 Ϸʼʱһߣ漼","츳3 ظʱͶһ1D10","츳4 ֪ʶ Ϸʼʱ10³񻰼ܡ","츳5 漼 漼Ʒ漼","츳6 밵Ӱ DZм춨ʱһѶȵȼ߻һжϡĿδܲڱ¶֮ǰԽͻϮ","츳7 ܹɽ вͻееά޺͵ά޼춨ʱһѶȵȼ߻һжϡ","츳8 ϷʼʱһֻɿĶ飬èģѱ޼춨ʱһ","츳9 αװʦ װ()춨ʱԻ10һʹøǴӱ𴦷ģͼαװѧ춨ΪѶȡ","츳10 ׼ ҪĶƺֱߣԻ10ˣ˼춨ڸҵõĵߣֵͲȡ"}}, {"Աְҵ",{"ʦ","ӼԱ","Ա-ϷԱ","Ա-ӰԱ","̽","ҽŵ䣩","ѵʦ","ѧңԭ","Ŷ","ѧңԭ","ʦ","","Ժ","˶Ա","ңԭ","Ʊ","","","ͽ","ȭ֡ˤ","ܼҡ͡Ů","ְԱ","Աӹʦִ","ڿ/ִͣ","ţ","","ﷸ-̿","ﷸ-нٷ","ﷸ-֡ͽ","ﷸ-","ﷸ-թʦ","ﷸ-ﷸ","ﷸ-Ůŵ䣩","ﷸ-ﷷ","ﷸ-","ﷸ-˽","ﷸ-","","ʦִ","ʦ","ҵߣԭ","DZˮԱ","ҽԭ","","˾-˽˾","˾-˾","˾-⳵˾","༭","Ա","ʦ","","̽ռңŵ䣩","ũ","̽Ա","Ա","פ","ҽ","ͽ","ڰ-ڰϴ","ڰ-","ʿŮ","","ӻ","(ԭ)-","(ԭ)-ͨѶ","","ʵ","-","-ľ","-","ʦ","ͼݹԱԭ","ʦ","","ʿ","ɽ","ݹԱ","ּ","ʿ","ѧ","м","ѧ","ҩʦ","Ӱʦ-Ӱʦ","Ӱʦ-Ӱ","Ա-Ա","Ա-ؼԱŵ䣩","(ԭ)-̽","(ԭ)-Ѳ","˽̽","ڣԭ","Խ","Թ","ѧ","ѧҡѧ","оԱ","Ա-Ա","Ա-񴬺Ա","Ա","ѧ","","ϰ","ʿ½սʿ","","ѧʵϰ","Ա","Ա","ʦ","","","칤-ְԱ","칤-и߲Ա","","Ա"}}, - {"ú",{"ѡһ(D)Ǻŵ","(D):׷[1D3*10+10],6׼,30ʼEDUֵ,40Ժʼɼֵ","ŵ: 40꿪ʼɼֵĹΪ50꿪ʼ","׻(D):STR,CON,SIZ,DEX,POW,APPеһ3㡣ʱ졿ֵ[1D4-1],ʱܵյĻܵ1ϵHP˺׻Ⱥк۲ܱɫĿ⿴","ƾж(D):CON-1STR,DEX,POW,APPһ1㡣Ϊ˱ҪͨһSAN CHECK,ԱܻѰƾӱʵ",":ױŵDZʱһֱܹʱ졿ߡ״̬","ͬ:ͶһD100=[d100]ͬ˵/ͳֵƵ(D100ijԽܹԽͬ);ޡ","˫:Աʹһֶֻܵǹֵijͷ","ᶯ(D):ܺͶйʱܳɹʼ[1D6*5]㡣",":,д֮ӡINT*5%","˶:˶ϵܻüֵ=ѡһ+30%,ѡܸ+20%,ѡܸ+10%","ҹǿ:ɽӾسͷֻг˵һ롣","׸(D):Աҵȴûܴﵽ˵ڴ,̡߲ܽڽϵܻܿӰ[1D3*10]%","쵼:POW+[1D2],ϵ+INT*5%",":ȭߡá+[1D4*5]%,ÿغϿԽΡȭߡá,ɹʱ+1˺","׾(D):ʧܵļʱͨ2,Ҵʧʱܻѡ","ղؼ:ԱռӲ,,,Ʒ,ʯ,Ŷ֮İá","ϰ(D):ʧȥһ֡ͶһD6=[d6]1~2=,3~4=,5=ͷ(ͶD6=[d6],1~3=۾,4~6=),6=ԼѡʧȥŵĻDEX-3STRCON-1,MOVEֻг˵һ,˶ϵ-25%ʧȥĻSTR-1,DEX-2,еIJϵ-15%,ʹܵơʧȥ۾Ļ졿ͻܵȫ-35%,Ͷһˡ,ʧܵĻAPP-[1D2]ʧȥĻAPP-[1D3],ȺͶйصļȫ-30%","Ͷ,ѡһΪ","Ͷ,ҺKPѡһ","Ͷһ,Ǹ:(D)ʱ,ҿٶѡһáû(D)ʱ,ұͬʱѡһ(D)","(D):Ա,ħŮ,ʦ,ԭסʩ,ЧͬаۡĻKPKPҲԾ","ڰ(D):Աаһ,,ʳ,ѪͳͶһD100=[d100],Խ,ѪͳҲԽɲ","ϰ(D):[1D4*5]%","֢(D):Ա֢(֢,ʧ,÷,˵),֢ԵԱɶӰ,Ҳʧȥ1CON,񻯵ĻʧȥֵͶһD100=[d100]ʣ,ԽԽ","¥(D):Աо޴˺ۻε,APPټ[1D4]Ӱ졣ԽϵҲҲӰ졾(ʧȥAPP)*5%","ƺ:׺ƾΪش, POTֵֻ˵һ롣","ӥ:졿[2D3*5]%","(D):жԵԱĵ˴,ͶһD100=[d100]˵/,ֵԽԽӡ;ޡ","ó:+50%սɹ+5%˺[1D2]ױƻ(и;ö),ֵбһߵƷʡ","ұ:Աӵл滭,鼮,,ҾߵȾи߼ֵıҲģ׷ӵıijˡ",":DEX+1ͶһD6=[d6],1~4ʱMOVE+1,5~6ʱMOVE+2","ͽ(D?):һΡˡɹĻԱá(INT+POW)*2%ġIJܡʧܵĻֻСINTPOW*1%ļֵ,ʲ[1D6*10]%,ҵԱIJʱҪͨһSAN CHECKܿԼ","ó:á(INTEDU)*5%ġ()ܡ",":+[2D3*5]%",":ѧ+ [2D3*5]%","Ӧ:Ͷ1D6=[d6]1~3=DEX+1,4~5=DEX+2,6=DEX+3","ʹ:ܺͶйʱ[1D6*5+5]ļֵ,,ʻ,ضIJ,DZеȡ","ûǿѡ⼼(ɶѡ)ܼ[3D20]㼼ֵܼ","Լѡһ","Ͷ,ҺKPѡһ","̰(D):ԵԱ˵Ǯϡκ״¶ȿǽǮΪƭҲ,ƭҲԱ","̾:SAN-[1D10],ҺKPԱ趨һ(ʧȥ,Ѫ׵ı)","(D):ҺKP,ԱضĹ,ֻڽ̾ɵķСԱӴȺʱֳ⡣","Ҫ׳:CON+[1D3]",":׷˵ϲ(ʳ,Ʒ,,װ,,Ҿߵ)Ϊ˷[1D4*10+20]%ʲͨһˡ,ʧܵĻΪַݵʧȥ1STR,CON,INT,POW,DEXAPP",":[]+[(1D6+1)*10]%","׳嶯(D):вǺʵж򡣸ҪͨһġСʹͷ侲",":ѡһA)С+10%,ÿʱװ߷һЩװõB)IJϵܻüֵ,ֻѡһܵĻ+30%,ѡ2ܸ+20%,3+10%","(D):SAN-[1D8]ҺKPԱһϰ","ؿԱ:Աijһƪ˽ķdzϸ(:,·,ҵ,ס,ʷ)ӦӦΪijһߵũ֮ĽСķΧƪϸԱ֪ͨʶߡС֪","־ǿ:POW+[1D3],sanҲöӦ",":APP+[1D3],ԽйصĽ漼+[1D3*10]%","и߶Ʋ:Աӵij־о޴ֵĶ(:ֻ,,,ɽ,ص)ЩҪԱѺܴʱ;ҺKPҪصľ","ѧ:ԱʹԲͨҲпܺͶɹĽ,һܡѧҡ,ڼֵΪINTEDU*1%","ʧ:Աʧٺܾõļ,пܻģеdz(:ֵ//,ں,ݴߵ)","ҳ:ԱԼļ,,,ܼķΧһǡԸҲʹԼΧȺʱ10%ļֵ","ħ:ѧϰʱֻҪһʱ,ɹҲӡINT*1%","Ȼû쵫ְҵֵö[3D20]ļܵ㡣","Լѡһ","Ȼû,ǵԱijֽΪͨ2","ħ:KPԸԱһħ(ɱĸħ,ٻרõ,ռƷ,POWȵ)ԱҪ֪ߵϸҪͨһPOW*1ļ","(ǹ,ǹԼǹѡһ):ѡ+[2D3*5]%","ϴ:ԱƵıΪ,ͨЩŶ(ﷸ,ŵĶ֮)ģںʵ¡ˡܻᱻΪԭһ(˵,ԱΪijЩɻ˵ķʷ,,ͨթƭõIJƸȨݻ)","Ԥ:ͨһСԱͿԵ֪[1D6+1]СʱȷжĽ,ij,缶,ʱȵȡ","۵ǿȹ(D):APP+1,ǵԱΪԼ˶ѴĽǮ򻪹ķκʲ롣",":ԱӵкģйصҪ鼮ϻĸӡ(:־,ħ鼮,ʷ,ʥ,ħ,ͼȵ)KPԾߵʺͼֵ","(D):SAN-[1D6]Աӵдӿֲľ(,ս,ֲӽٳ,ȵ)ΪܸԱijֳõӰ(̶ͨȵĿֲ֢״,ľϰ)","¶:ԱΪļ˶,߲֪Լļ˭",":Ա׷ӻһԼܡֵΪ[1D4]*INT%","Ұ:,Ȼʷ,׷١[2D3*5+5]%[2D3*5+5]%[2D3*5+5]%","а:ģеdzijλɫԵԱ㽡KPλɫ,ΪʲôԼк̶ֳȡ","Ļ(D):Աɫ㽡KPϲ˭,ΪʲôԼ̶ֳȡ","(D):Ա,ԭ鴤,Ť֢״һΡˡ,ʧܵĻ[1D2]DEX1APP",":Ա˵(,ħ,,)ҺKP۾ݲʧȥ[1D6]SANֵ","(D):λԱô˵Ҳ̫˵㡣һΡˡ,ʧܵĻͶһD6=[d6],1~3 CON-1,4~6 APP-1","˵:Ȱ˵+[2D3*5+5]%",":Ա,èࡣ","Ȼû⼼ܻ[3D20]㼼ܵ㡣","Ͷһ,Ǹ:(D)ʱ,ҿٶѡһáû(D)ʱ,ұͬʱѡһ(D)","Ȼûְҵֵ[3D20]㼼ܵ㡣","ֲ֢/(D):Աֲ֢״߷֢״ο6׼֢״,ѡҪ֢״֢״ԴĿֲƷʱ,SAN CHECKʧ,ôԱ޷ԼĿֲ߱Ȼ","Ȩ/׼/ҵλ:Ա,û»ij̶ֳȵȨͶD100=[d100],ԽȨԽҵλӰ,ελij,ӵλԶӵеľҲ˵á+25%ϸKP","ǰľ:ҿѡá(INTEDU)*5%ְҵܵ","Ԥ֪:KP,ϷһһԤδΡŻҪһPOW*3ļξûбʵıҪ,ξмľʮֲֿĻôʧȥһЩSANֵ(ʵмͬʧȥSANֵ10%)ʧܵĻһôԤԡ",":Աʲ2[][1D4*5]%Աҵܳɹ,ߵԱ,Ȩ»ǹ¡",":ӴijЩʱ(ߵִijطʱ),ͨһPOW*1ļ,ɹĻԿӵƷ/طĹȥȷKP1D6MPΪþҲʧȥSANֵ(ġԤ֪Ρ,ʧͨ10%)","̸:̸+[2D4*5]%Աŷdz,ͨ»ѵ,͵˵ĵ,׬һѵIJ͵Ҳǿܵġ","ļ:ԱͨһINT*4%ļĻ,ܻһЩȫ,һ˵еļܡ,񶷼,ʻ֮,KP","췢:Աһͷȼһĺ췢,dz(ûЧ)","(D?):һΡˡɹĻԱ(趨),ԱԼڵĴ/еĽϵܻ15%ļֵˡʧܵĻԱü,еĽϵ-15%KPҲԾͨõҵ","׷:ԱԼܵ˲ĴҶԵԼֶܵĶбΪҺKP۾˵ͶһD100=[D100]˵ǿȺ͵Աֲܵij̶ȡ","˺:һΡˡɹĻ˺ûӰԱ,ӢҲ˵ʧܵĻʧȥ[1D3]APP,ϵҲ[1D3*5]%","ѧľ:С+5%ѡһ˼༼+30%ѡ2˼ϵ+20%˼ϵ+10%","(D?):Աžܸ߱˵ܡԱھӿܻЩҲ˵ԱǸﷸ,,֮Ҳ˵ҺKP","ܽ:Ա,ܻǹû,Ǿޱʮ,־,ʦ,֮һԱǵҽѧо֮ķ/ı֯һԱ","ѧ:EDU+[1D3],˻õļֵ","ɵĹȥ/(D):ԱȥһЩ˻ɵ(,͵˵),¹ijЩشСеĽϵܼ[1D3*10]%","Ͷһ,Ǹ:(D)ʱ,ҿٶѡһáû(D)ʱ,ұͬʱѡһ(D)","Ͷβ","Ͷ,ҺKPѡһ","(D):CON-[1D3]","ַ:[ǯ]ӡDEX*5%,͵Իħʱʹá","ٻ(D):MOVE-1","ʧȥ(D):̽Ϊ,Ա,,ڽ̻߹ȥķ¼ԭʧȥϵλΪӰ,ԱܼɻʱеĽϵܼ[1D4*10]%ࡣӰҺKP","Ԫ:ԱáINT*5ļܵӵʿְҵϡ","֪ʶ:KP!ԱԻ֪[1D3]ġSANֵ[1D6]㡣","С(D):ԱѪҺѪͻо岻,ʧȥSANֵҲΪԭ޷ͨѪֳ",":ԱܵʵеѪѪӰ졣ѪѪʱSANʧΪСֵ,ʹŰij(˺ѵ,ɱʬ)Ҳֻͨһ롣","ȹţҪǿ:STR+[1D3]","(D):ԱŲ,Ż,ʽ޴Ȼʱͨʧ1SANֵ,ʹԭʧ¿ܱʧ1㡣","ͬ:Աѡһϵ+30%ѡ+20%,Ȼѡһ+10%","İ:ԱΪһЩԵӵһԼʵԼЭߡKPЭߵӰ(ɿD100)D100ҲƵʡ","IJƲ:ԱһԼ֪IJƲĻ»֮ġܻһ,ݻҵɿD100ȥ̶ֵȡ","(D):STR-[1D3]","۾(D):ԱҪ嶫۾һˡ,ɹĻ۾ֻڶ߽оϸʱҪʧܵĻڼ˶ʱож۾ĻӾļܼ[1D3*10]%(ͷʹ˳ɹҲһ)",":Աġá+10%,Ǹòʿ(Ů)","(D):Ա[10+2D3]ꡣEDUɡ1/2+2,DEX+1,STR,CON,APPһ+1ҺKP,Աɺͼסһ,ְҵҲҪ","ѡһ","Ͷ,ѡһ"}}, + {"Ա",{"{}{}{}\n˼{˼}\nҪ֮ˣ{Ҫ֮}\nҪ֮ɣ{Ҫ֮}\nǷ֮أ{Ƿ֮}\n֮{֮}\nص㣺{Աص}"}}, + {"ú",{"ѡһ(D)Ǻŵ","(D):׷[1D3*10+10],6׼,30ʼEDUֵ,40Ժʼɼֵ","ŵ: 40꿪ʼɼֵĹΪ50꿪ʼ","׻(D):STR,CON,SIZ,DEX,POW,APPеһ3㡣ʱ졿ֵ[1D4-1],ʱܵյĻܵ1ϵHP˺׻Ⱥк۲ܱɫĿ⿴","ƾж(D):CON-1STR,DEX,POW,APPһ1㡣Ϊ˱ҪͨһSAN CHECK,ԱܻѰƾӱʵ",":ױŵDZʱһֱܹʱ졿ߡ״̬","ͬ:ͶһD100=[d100]ͬ˵/ͳֵƵ(D100ijԽܹԽͬ);ޡ","˫:Աʹһֶֻܵǹֵijͷ","ᶯ(D):ܺͶйʱܳɹʼ[1D6*5]㡣",":,д֮ӡINT*5%","˶:˶ϵܻüֵ=ѡһ+30%,ѡܸ+20%,ѡܸ+10%","ҹǿ:ɽӾسͷֻг˵һ롣","׸(D):Աҵȴûܴﵽ˵ڴ,̡߲ܽڽϵܻܿӰ[1D3*10]%","쵼:POW+[1D2],ϵ+INT*5%",":ȭߡá+[1D4*5]%,ÿغϿԽΡȭߡá,ɹʱ+1˺","׾(D):ʧܵļʱͨ2,Ҵʧʱܻѡ","ղؼ:ԱռӲ,,,Ʒ,ʯ,Ŷ֮İá","ϰ(D):ʧȥһ֡ͶһD6=[d6]1~2=,3~4=,5=ͷ(ͶD6=[d6],1~3=۾,4~6=),6=ԼѡʧȥŵĻDEX-3STRCON-1,MOVEֻг˵һ,˶ϵ-25%ʧȥĻSTR-1,DEX-2,еIJϵ-15%,ʹܵơʧȥ۾Ļ졿ͻܵȫ-35%,Ͷһˡ,ʧܵĻAPP-[1D2]ʧȥĻAPP-[1D3],ȺͶйصļȫ-30%","Ͷ,ѡһΪ","Ͷ,ҺKPѡһ","Ͷһ,Ǹ:(D)ʱ,ҿٶѡһáû(D)ʱ,ұͬʱѡһ(D)","(D):Ա,ħŮ,ʦ,ԭסʩ,ЧͬаۡĻKPKPҲԾ","ڰ(D):Աаһ,,ʳ,ѪͳͶһD100=[d100],Խ,ѪͳҲԽɲ","ϰ(D):[1D4*5]%","֢(D):Ա֢(֢,ʧ,÷,˵),֢ԵԱɶӰ,Ҳʧȥ1CON,񻯵ĻʧȥֵͶһD100=[d100]ʣ,ԽԽ","¥(D):Աо޴˺ۻε,APPټ[1D4]Ӱ졣ԽϵҲҲӰ졾(ʧȥAPP)*5%","ƺ:׺ƾΪش, POTֵֻ˵һ롣","ӥ:졿[2D3*5]%","(D):жԵԱĵ˴,ͶһD100=[d100]˵/,ֵԽԽӡ;ޡ","ó:+50%սɹ+5%˺[1D2]ױƻ(и;ö),ֵбһߵƷʡ","ұ:Աӵл滭,鼮,,ҾߵȾи߼ֵıҲģ׷ӵıijˡ",":DEX+1ͶһD6=[d6],1~4ʱMOVE+1,5~6ʱMOVE+2","ͽ(D?):һΡˡɹĻԱá(INT+POW)*2%ġIJܡʧܵĻֻСINTPOW*1%ļֵ,ʲ[1D6*10]%,ҵԱIJʱҪͨһSAN CHECKܿԼ","ó:á(INTEDU)*5%ġ()ܡ",":+[2D3*5]%",":ѧ+ [2D3*5]%","Ӧ:Ͷ1D6=[d6]1~3=DEX+1,4~5=DEX+2,6=DEX+3","ʹ:ܺͶйʱ[1D6*5+5]ļֵ,,ʻ,ضIJ,DZеȡ","ûǿѡ⼼(ɶѡ)ܼ[3D20]㼼ֵܼ","Լѡһ","Ͷ,ҺKPѡһ","̰(D):ԵԱ˵Ǯϡκ״¶ȿǽǮΪƭҲ,ƭҲԱ","̾:SAN-[1D10],ҺKPԱ趨һ(ʧȥ,Ѫ׵ı)","(D):ҺKP,ԱضĹ,ֻڽ̾ɵķСԱӴȺʱֳ⡣","Ҫ׳:CON+[1D3]",":׷˵ϲ(ʳ,Ʒ,,װ,,Ҿߵ)Ϊ˷[1D4*10+20]%ʲͨһˡ,ʧܵĻΪַݵʧȥ1STR,CON,INT,POW,DEXAPP",":[]+[(1D6+1)*10]%","׳嶯(D):вǺʵж򡣸ҪͨһġСʹͷ侲",":ѡһA)С+10%,ÿʱװ߷һЩװõB)IJϵܻüֵ,ֻѡһܵĻ+30%,ѡ2ܸ+20%,3+10%","(D):SAN-[1D8]ҺKPԱһϰ","ؿԱ:Աijһƪ˽ķdzϸ(:,·,ҵ,ס,ʷ)ӦӦΪijһߵũ֮ĽСķΧƪϸԱ֪ͨʶߡС֪","־ǿ:POW+[1D3],sanҲöӦ",":APP+[1D3],ԽйصĽ漼+[1D3*10]%","и߶Ʋ:Աӵij־о޴ֵĶ(:ֻ,,,ɽ,ص)ЩҪԱѺܴʱ;ҺKPҪصľ","ѧ:ԱʹԲͨҲпܺͶɹĽ,һܡѧҡ,ڼֵΪINTEDU*1%","ʧ:Աʧٺܾõļ,пܻģеdz(:ֵ//,ں,ݴߵ)","ҳ:ԱԼļ,,,ܼķΧһǡԸҲʹԼΧȺʱ10%ļֵ","ħ:ѧϰʱֻҪһʱ,ɹҲӡINT*1%","Ȼû쵫ְҵֵö[3D20]ļܵ㡣","Լѡһ","Ȼû,ǵԱijֽΪͨ2","ħ:KPԸԱһħ(ɱĸħ,ٻרõ,ռƷ,POWȵ)ԱҪ֪ߵϸҪͨһPOW*1ļ","(ǹ,ǹԼǹѡһ):ѡ+[2D3*5]%","ϴ:ԱƵıΪ,ͨЩŶ(ﷸ,ŵĶ֮)ģںʵ¡ˡܻᱻΪԭһ(˵,ԱΪijЩɻ˵ķʷ,,ͨթƭõIJƸȨݻ)","Ԥ:ͨһСԱͿԵ֪[1D6+1]СʱȷжĽ,ij,缶,ʱȵȡ","۵ǿȹ(D):APP+1,ǵԱΪԼ˶ѴĽǮ򻪹ķκʲ롣",":ԱӵкģйصҪ鼮ϻĸӡ(:־,ħ鼮,ʷ,ʥ,ħ,ͼȵ)KPԾߵʺͼֵ","(D):SAN-[1D6]Աӵдӿֲľ(,ս,ֲӽٳ,ȵ)ΪܸԱijֳõӰ(̶ͨȵĿֲ֢״,ľϰ)","¶:ԱΪļ˶,߲֪Լļ˭",":Ա׷ӻһԼܡֵΪ[1D4]*INT%","Ұ:,Ȼʷ,׷١[2D3*5+5]%[2D3*5+5]%[2D3*5+5]%","а:ģеdzijλɫԵԱ㽡KPλɫ,ΪʲôԼк̶ֳȡ","Ļ(D):Աɫ㽡KPϲ˭,ΪʲôԼ̶ֳȡ","(D):Ա,ԭ鴤,Ť֢״һΡˡ,ʧܵĻ[1D2]DEX1APP",":Ա˵(,ħ,,)ҺKP۾ݲʧȥ[1D6]SANֵ","(D):λԱô˵Ҳ̫˵㡣һΡˡ,ʧܵĻͶһD6=[d6],1~3 CON-1,4~6 APP-1","˵:Ȱ˵+[2D3*5+5]%",":Ա,èࡣ","Ȼû⼼ܻ[3D20]㼼ܵ㡣","Ͷһ,Ǹ:(D)ʱ,ҿٶѡһáû(D)ʱ,ұͬʱѡһ(D)","Ȼûְҵֵ[3D20]㼼ܵ㡣","ֲ֢/(D):Աֲ֢״߷֢״ο6׼֢״,ѡҪ֢״֢״ԴĿֲƷʱ,SAN CHECKʧ,ôԱ޷ԼĿֲ߱Ȼ","Ȩ/׼/ҵλ:Ա,û»ij̶ֳȵȨͶD100=[d100],ԽȨԽҵλӰ,ελij,ӵλԶӵеľҲ˵á+25%ϸKP","ǰľ:ҿѡá(INTEDU)*5%ְҵܵ","Ԥ֪:KP,ϷһһԤδΡŻҪһPOW*3ļξûбʵıҪ,ξмľʮֲֿĻôʧȥһЩSANֵ(ʵмͬʧȥSANֵ10%)ʧܵĻһôԤԡ",":Աʲ2[][1D4*5]%Աҵܳɹ,ߵԱ,Ȩ»ǹ¡",":ӴijЩʱ(ߵִijطʱ),ͨһPOW*1ļ,ɹĻԿӵƷ/طĹȥȷKP1D6MPΪþҲʧȥSANֵ(ġԤ֪Ρ,ʧͨ10%)","̸:̸+[2D4*5]%Աŷdz,ͨ»ѵ,͵˵ĵ,׬һѵIJ͵Ҳǿܵġ","ļ:ԱͨһINT*4%ļĻ,ܻһЩȫ,һ˵еļܡ,񶷼,ʻ֮,KP","췢:Աһͷȼһĺ췢,dz(ûЧ)","(D?):һΡˡɹĻԱ(趨),ԱԼڵĴ/еĽϵܻ15%ļֵˡʧܵĻԱü,еĽϵ-15%KPҲԾͨõҵ","׷:ԱԼܵ˲ĴҶԵԼֶܵĶбΪҺKP۾˵ͶһD100=[D100]˵ǿȺ͵Աֲܵij̶ȡ","˺:һΡˡɹĻ˺ûӰԱ,ӢҲ˵ʧܵĻʧȥ[1D3]APP,ϵҲ[1D3*5]%","ѧľ:С+5%ѡһ˼༼+30%ѡ2˼ϵ+20%˼ϵ+10%","(D?):Աžܸ߱˵ܡԱھӿܻЩҲ˵ԱǸﷸ,,֮Ҳ˵ҺKP","ܽ:Ա,ܻǹû,Ǿޱʮ,־,ʦ,֮һԱǵҽѧо֮ķ/ı֯һԱ","ѧ:EDU+[1D3],˻õļֵ","ɵĹȥ/(D):ԱȥһЩ˻ɵ(,͵˵),¹ijЩشСеĽϵܼ[1D3*10]%","Ͷһ,Ǹ:(D)ʱ,ҿٶѡһáû(D)ʱ,ұͬʱѡһ(D)","Ͷβ","Ͷ,ҺKPѡһ","(D):CON-[1D3]","ַ:ǯӡDEX*5%,͵Իħʱʹá","ٻ(D):MOVE-1","ʧȥ(D):̽Ϊ,Ա,,ڽ̻߹ȥķ¼ԭʧȥϵλΪӰ,ԱܼɻʱеĽϵܼ[1D4*10]%ࡣӰҺKP","Ԫ:ԱáINT*5ļܵӵʿְҵϡ","֪ʶ:KP!ԱԻ֪[1D3]ġSANֵ[1D6]㡣","С(D):ԱѪҺѪͻо岻,ʧȥSANֵҲΪԭ޷ͨѪֳ",":ԱܵʵеѪѪӰ졣ѪѪʱSANʧΪСֵ,ʹŰij(˺ѵ,ɱʬ)Ҳֻͨһ롣","ȹţҪǿ:STR+[1D3]","(D):ԱŲ,Ż,ʽ޴Ȼʱͨʧ1SANֵ,ʹԭʧ¿ܱʧ1㡣","ͬ:Աѡһϵ+30%ѡ+20%,Ȼѡһ+10%","İ:ԱΪһЩԵӵһԼʵԼЭߡKPЭߵӰ(ɿD100)D100ҲƵʡ","IJƲ:ԱһԼ֪IJƲĻ»֮ġܻһ,ݻҵɿD100ȥ̶ֵȡ","(D):STR-[1D3]","۾(D):ԱҪ嶫۾һˡ,ɹĻ۾ֻڶ߽оϸʱҪʧܵĻڼ˶ʱож۾ĻӾļܼ[1D3*10]%(ͷʹ˳ɹҲһ)",":Աġá+10%,Ǹòʿ(Ů)","(D):Ա[10+2D3]ꡣEDUɡ1/2+2,DEX+1,STR,CON,APPһ+1ҺKP,Աɺͼסһ,ְҵҲҪ","ѡһ","Ͷ,ѡһ"}}, {"",{"ʵ","Ӣ","׾","","˵","","","ݵ","","","ҫ۵","","","ƣ","ֵ","ơƶ","ͷ","","ŵ","ϡõ","׳","԰׵","","ƽӹ","ֹ۵","غɫ","","Ű","","ƻ","׳","ε","","","ٶ۵",""}}, {"˼",{"һλܡɳ졢Үջһ","ϵۡᶨߣߣߣ","ѧܣѧ꣡㽫ѡ֮һۣѧ̫̽","עӦϵͳȻڣ","ŻܽһԱ繲ûᣬŮЭߣ","ỵˣ㽫ΪĻ顣Ӧն֮ǣ綾Ʒӣ","Ȼڡռлޣ","ϲΡ籣صɵ","Ǯҵѣҽ߾ȫȡܿһС̰ģȡģģ","ѡ/ߡŮȨ˶ˣƽңȨ"}}, {"Ҫ֮",{"ĸףףĸ","游ĸ游","ֵܡãѪãѪԵã","ӡӻŮ","һ롣żδ򣬰ˣ","λָܵˡָüܺ͸ˡѧУʦʦף","÷ͬѧھӣѱȾ","ˡżӢۡȻҲδӰǣμңּҡ","ϷеһλԱ顣ѡ","ϷһΣУáѯ"}}, @@ -48,9 +50,6 @@ namespace CardDeck {"amgcؼ1",{"1װ(+1Ӧ)","2ѵ(+1STR/AGI)","3ǿ","4(+1MAG)","5ר츳(+1)","6(+1AGI)","7ǿ(+1MAG)","8αװ(+1LCK)","9Ѫħ(+1AGI/MAG)","10ﱳ(+1LCK)","11άǿ(+1VIT)","12ǿװ(+1VIT)","13(+1VIT)","14","15ħ(+1STR/VIT)","16ʦ(+1MAG)","17˫(+1AGI)","18(+1MAG)","19ʱ̾(+1AGI)","20(+1STR/MAG)"}}, {"amgcؼ2",{"1Ԫ(+1)","2(+1LCK)","3ѡ֮(+1LCK)","4ͨ","5Ԫס","6(+AGI/MAG/LCK)","7ܷ⻷(+1VIT)","8(+1LCK)","9Ӣ۾(+1)","10(+1LCK)","11ش󱳰(+1VIT)","12Ȼɳ(+1VIT)","13(+1LCK)","14ϳת(+1LCK)","15(+1LCK)","16ħ(+1)","17ƿ(+1)","18̬","19ط(-1VIT,+1,+1)","20˫(+1)"}}, {"amgcؼ3",{"1ܽ(+1VIT)","2(+1MAG)","3(+1Ӧ)","4ˮһս(+1VIT)","5ʱ","6˳(+1LCK)","7ǿ(+1VIT)","8ר(+1VIT)","9С(+1)","10仯(+1AGI/MAG)","11໤(+1MAG)","12(+1MAG)","13ж","14˫(+1)","15Կ(+1LCK)","16ͼ(+1LCK)","17ս(+1LCK)","18ǽͶ(+1MAG)","19(+1)","20ҳ(+1AGI)"}}, - {"齫",{"һ","һ","һͲ","","","Ͳ","","","Ͳ","","","Ͳ","","","Ͳ","","","Ͳ","","","Ͳ","","","Ͳ","","","Ͳ","","","","","","","","һ","һ","һͲ","","","Ͳ","","","Ͳ","","","Ͳ","","","Ͳ","","","Ͳ","","","Ͳ","","","Ͳ","","","Ͳ","","","","","","","","һ","һ","һͲ","","","Ͳ","","","Ͳ","","","Ͳ","","","Ͳ","","","Ͳ","","","Ͳ","","","Ͳ","","","Ͳ","","","","","","","","һ","һ","һͲ","","","Ͳ","","","Ͳ","","","Ͳ","","","Ͳ","","","Ͳ","","","Ͳ","","","Ͳ","","","Ͳ","","","","","","",""}}, - {"˿˻ɫ",{"","","Ƭ","÷"}}, - {"˿",{"A","2","3","4","5","6","7","8","9","10","J","Q","K","A","2","3","4","5","6","7","8","9","10","J","Q","K","ƬA","Ƭ2","Ƭ3","Ƭ4","Ƭ5","Ƭ6","Ƭ7","Ƭ8","Ƭ9","Ƭ10","ƬJ","ƬQ","ƬK","÷A","÷2","÷3","÷4","÷5","÷6","÷7","÷8","÷9","÷10","÷J","÷Q","÷K","","С"}}, {"",{"0","1ħʦ","2Ů˾","3Ů","4ʵ","5̻","6","7ս","8","9","10֮","11","12","13","14","15ħ","16","17","18","19̫","20","21"}}, {"",{"λ","λ"}}, {"ռ",{"{}"}}, @@ -61,8 +60,9 @@ namespace CardDeck {"Сʮ",{"\nȥ{} {%}\n(){} {%}\n(){} {%}\nδ{} {%}"}}, {"â",{"\n{} {%}\n״{} {%}\nδ{} {%}\nԲߣ{} {%}\n⣺{} {%}\n̬ȣ{} {%}\n{} {%}"}}, {"ʮ",{"\n״{} {%}\nϰ{} {%}\n״{} {%}\n{} {%}\nȥ״{} {%}\nδչ{} {%}\n״{} {%}\nΧ{} {%}\nϣ־壺{} {%}\nս{} {%}"}}, -{"Ա",{"{}\n˼{˼}\nҪ֮ˣ{Ҫ֮}\nҪ֮ɣ{Ҫ֮}\nǷ֮أ{Ƿ֮}\n֮{֮}\nص㣺{Աص}"}} }; + // + std::map> mReplyDeck{}; //Ⱥƶ std::map> mGroupDeck; //Ⱥʱƶ @@ -74,46 +74,14 @@ namespace CardDeck std::map PublicComplexDeck{ //{"Ա","{}\n˼{˼}\nҪ֮ˣ{Ҫ֮}\nҪ֮ɣ{Ҫ֮}\nǷ֮أ{Ƿ֮}\n֮{֮}\nص㣺{Աص}"} }; - //ȡƶ - int loadDeck(std::string strLoc, std::map> &deck) { - ifstream fin(strLoc); - if (fin) { - json j; - fin >> j; - for (json::iterator it = j.begin(); it != j.end(); ++it) - { - long long llID = stoll(it.key()); - std::vector card = {}; - for (auto iit : it.value()) { - card.push_back(UTF8toGBK(iit)); - } - deck[llID]= card; - } - fin.close(); - } - return 0; - } - //汸ƶ - int saveDeck(std::string strLoc, std::map> deck) { - if (deck.empty())return 0; - ofstream fout(strLoc); - if (fout) { - json j; - for (auto it : deck) { - j[to_string(it.first)] = GBKtoUTF8(it.second); - } - fout << j; - fout.close(); - } - return 0; - } + //0δҵ;1;2Ȼ int findDeck(std::string strDeckName) { std::string strDeck; if (mPublicDeck.count(strDeckName)) { return 1; } - else if (isdigit(strDeckName[0]) && strDeckName.length() < 3 || strDeckName == "100") { + else if (isdigit(static_cast(strDeckName[0])) && strDeckName.length() < 3 || strDeckName == "100") { return 2; } return 0; @@ -138,19 +106,19 @@ namespace CardDeck strReply = TempDeck[ans]; if(!isBack)TempDeck.erase(TempDeck.begin() + ans); } - while (strReply.find('{') != std::string::npos) { - int lq = strReply.find('{'); - int rq = strReply.find('}'); + int intCnt = 0; + while (strReply.find('{', intCnt) != std::string::npos) { + int lq = strReply.find('{',intCnt); + int rq = strReply.find('}',lq); + if (rq == std::string::npos)break; + intCnt = rq; bool isTmpBack = false; string strTempName = strReply.substr(lq + 1, rq - lq - 1); if (strTempName[0] == '%') { isTmpBack = true; strTempName = strTempName.substr(1); } - if (mPublicDeck.count(strTempName) == 0) { - strReply += "\n"+ strTempName +"?δ֪ƶ"; - break; - } + if (mPublicDeck.count(strTempName) == 0) continue; else if (TempDeckList.count(strTempName)==0|| TempDeckList[strTempName].empty()) { TempDeckList[strTempName] = mPublicDeck[strTempName]; } diff --git a/Dice/CardDeck.h b/Dice/CardDeck.h index f7975af8..878b14a5 100644 --- a/Dice/CardDeck.h +++ b/Dice/CardDeck.h @@ -13,6 +13,7 @@ namespace CardDeck { extern std::map> mPublicDeck; + extern std::map> mReplyDeck; //Ⱥƶ extern std::map> mGroupDeck; //Ⱥʱƶ @@ -22,8 +23,6 @@ namespace CardDeck //˽ʱƶ extern std::map> mPrivateDeckTmp; extern std::map PublicComplexDeck; - int loadDeck(std::string strLoc, std::map> &deck); - int saveDeck(std::string strLoc, std::map> deck); int findDeck(std::string strDeckName); std::string drawCard(std::vector &TempDeck,bool boolBack=false); std::string drawCard(std::string strDeckName, bool boolBack = false); diff --git a/Dice/Dice.cpp b/Dice/Dice.cpp index 0e13afd3..c386bc4d 100644 --- a/Dice/Dice.cpp +++ b/Dice/Dice.cpp @@ -34,6 +34,7 @@ #include #include "APPINFO.h" +#include "jsonio.h" #include "RandomGenerator.h" #include "RD.h" #include "CQEVE_ALL.h" @@ -92,7 +93,7 @@ void dataBackUp() { //MasterQQ if (!boolStandByMe) { ofstream ofstreamMaster(strFileLoc + "Master.RDconf", ios::out | ios::trunc); - ofstreamMaster << masterQQ << std::endl << boolMasterMode << std::endl << boolDisabledGlobal << std::endl << boolDisabledMeGlobal << std::endl << boolPreserve << std::endl << boolDisabledJrrpGlobal << std::endl << boolNoDiscuss << std::endl; + ofstreamMaster << masterQQ << std::endl << boolMasterMode << std::endl << boolConsole["DisabledGlobal"] << std::endl << boolConsole["DisabledMe"] << std::endl << boolConsole["Private"] << std::endl << boolConsole["DisabledJrrp"] << std::endl << boolConsole["LeaveDiscuss"] << std::endl; ofstreamMaster << ClockToWork.first << " " << ClockToWork.second << endl << ClockOffWork.first << " " << ClockOffWork.second << endl; ofstreamMaster.close(); @@ -100,7 +101,7 @@ void dataBackUp() { //ݹԱб ofstream ofstreamAdmin(strFileLoc + "AdminQQ.RDconf"); for (auto it : AdminQQ) { - ofstreamAdmin << it; + ofstreamAdmin << it << std::endl; } ofstreamAdmin.close(); //ݼشб @@ -109,6 +110,7 @@ void dataBackUp() { if (it.first)ofstreamMonitorList << it.first << " " << it.second << std::endl; } ofstreamMonitorList.close(); + saveJMap(strFileLoc + "boolConsole.json", boolConsole); //ݸԻ ofstream ofstreamPersonalMsg(strFileLoc + "PersonalMsg.RDconf", ios::out | ios::trunc); for (auto it = PersonalMsg.begin(); it != PersonalMsg.end(); ++it) @@ -166,13 +168,6 @@ void dataBackUp() { ofstreamBlackQQ << it << std::endl; } ofstreamBlackQQ.close(); - //б - ofstream ofstreamDiscussList(strFileLoc + "DiscussList.map", ios::out | ios::trunc); - for (auto it : DiscussList) - { - ofstreamDiscussList << it.first << "\n" << it.second << std::endl; - } - ofstreamDiscussList.close(); //б ofstream ofstreamLastMsgList(strFileLoc + "LastMsgList.MYmap", ios::out | ios::trunc); for (auto it : mLastMsgList) @@ -195,10 +190,11 @@ void dataBackUp() { } ofstreamDefaultCOC.close(); //濨 - CardDeck::saveDeck(strFileLoc + "GroupDeck.json", CardDeck::mGroupDeck); - CardDeck::saveDeck(strFileLoc + "GroupDeckTmp.json", CardDeck::mGroupDeckTmp); - CardDeck::saveDeck(strFileLoc + "PrivateDeck.json", CardDeck::mPrivateDeck); - CardDeck::saveDeck(strFileLoc + "PrivateDeckTmp.json", CardDeck::mPrivateDeckTmp); + saveJMap(strFileLoc + "GroupDeck.json", CardDeck::mGroupDeck); + saveJMap(strFileLoc + "GroupDeckTmp.json", CardDeck::mGroupDeckTmp); + saveJMap(strFileLoc + "PrivateDeck.json", CardDeck::mPrivateDeck); + saveJMap(strFileLoc + "PrivateDeckTmp.json", CardDeck::mPrivateDeckTmp); + saveJMap(strFileLoc + "ReplyDeck.json", CardDeck::mReplyDeck); } EVE_Enable(eventEnable) { @@ -210,6 +206,8 @@ EVE_Enable(eventEnable) msgSendThread.detach(); thread threadConsoleTimer(ConsoleTimer); threadConsoleTimer.detach(); + thread threadWarning(warningHandler); + threadWarning.detach(); strFileLoc = getAppDirectory(); /* * ƴ洢-ȡ @@ -219,7 +217,7 @@ EVE_Enable(eventEnable) ifstream ifstreamMaster(strFileLoc + "Master.RDconf"); if (ifstreamMaster) { - ifstreamMaster >> masterQQ >> boolMasterMode >> boolDisabledGlobal >> boolDisabledMeGlobal >> boolPreserve >> boolDisabledJrrpGlobal >> boolNoDiscuss + ifstreamMaster >> masterQQ >> boolMasterMode >> boolConsole["DisabledGlobal"] >> boolConsole["DisabledMe"] >> boolConsole["Private"] >> boolConsole["DisabledJrrp"] >> boolConsole["LeaveDiscuss"] >> ClockToWork.first >> ClockToWork.second >> ClockOffWork.first >> ClockOffWork.second; } ifstreamMaster.close(); @@ -246,12 +244,14 @@ EVE_Enable(eventEnable) for (auto it : AdminQQ) { MonitorList.insert({ it ,Private }); } - MonitorList.insert({ 624807593 ,Group }); - MonitorList.insert({ 941980833 ,Group }); MonitorList.insert({ 863062599 ,Group }); MonitorList.insert({ 192499947 ,Group }); + MonitorList.insert({ 754494359 ,Group }); } ifstreamMonitorList.close(); + //ȡboolConsole + loadJMap(strFileLoc + "boolConsole.json", boolConsole); + getDiceList(); ifstream ifstreamCharacterProp(strFileLoc + "CharacterProp.RDconf"); if (ifstreamCharacterProp) { @@ -493,18 +493,6 @@ EVE_Enable(eventEnable) } } ifstreamBlackQQ.close(); - //ȡб - ifstream ifstreamDiscussList(strFileLoc + "DiscussList.map"); - if (ifstreamDiscussList) - { - long long llDiscuss; - time_t tNow; - while (ifstreamDiscussList >> llDiscuss >> tNow) - { - DiscussList[llDiscuss]=tNow; - } - } - ifstreamDiscussList.close(); //ȡб ifstream ifstreamLastMsgList(strFileLoc + "LastMsgList.MYmap"); if (ifstreamLastMsgList) @@ -564,10 +552,13 @@ EVE_Enable(eventEnable) GlobalMsg[it.first] = strMsg; } //ȡ - CardDeck::loadDeck(strFileLoc + "GroupDeck.json",CardDeck::mGroupDeck); - CardDeck::loadDeck(strFileLoc + "GroupDeckTmp.json", CardDeck::mGroupDeckTmp); - CardDeck::loadDeck(strFileLoc + "PrivateDeck.json", CardDeck::mPrivateDeck); - CardDeck::loadDeck(strFileLoc + "PrivateDeckTmp.json", CardDeck::mPrivateDeckTmp); + loadJMap(strFileLoc + "GroupDeck.json",CardDeck::mGroupDeck); + loadJMap(strFileLoc + "GroupDeckTmp.json", CardDeck::mGroupDeckTmp); + loadJMap(strFileLoc + "PrivateDeck.json", CardDeck::mPrivateDeck); + loadJMap(strFileLoc + "PrivateDeckTmp.json", CardDeck::mPrivateDeckTmp); + loadJMap(strFileLoc + "PublicDeck.json", CardDeck::mPublicDeck); + loadJMap(strFileLoc + "ExternDeck.json", CardDeck::mPublicDeck); + loadJMap(strFileLoc + "ReplyDeck.json", CardDeck::mReplyDeck); //ȡģʽ ifstream ifstreamStandByMe(strFileLoc + "StandByMe.RDconf"); if (ifstreamStandByMe) @@ -613,6 +604,7 @@ EVE_GroupMsg_EX(eventGroupMsg) if (eve.isAnonymous())return; if (eve.isSystem()) { if (eve.message.find("Ա") != string::npos&&eve.message.find(to_string(getLoginQQ())) != string::npos) { + string strNow = printSTime(stNow); long long fromQQ; int intAuthCnt = 0; string strAuthList; @@ -627,24 +619,24 @@ EVE_GroupMsg_EX(eventGroupMsg) intAuthCnt++; } } - if (BlackQQ.count(fromQQ) == 0) { - BlackQQ.insert(fromQQ); - AddMsgToQueue(format(GlobalMsg["strBlackQQAddNoticeReason"], { "Ⱥڽ" + GlobalMsg["strSelfName"] }), fromQQ); - } - string strMsg = "Ⱥ\"" + getGroupList()[eve.fromGroup] + "\"(" + to_string(eve.fromGroup) + ")," + eve.message + "\nȺ" + getStrangerInfo(fromQQ).nick + "(" + to_string(fromQQ) + "),йԱ" + to_string(intAuthCnt) + "" + strAuthList; + //ܷȺ + bool isOwner = intAuthCnt == 0 || getGroupMemberInfo(eve.fromGroup, getLoginQQ()).permissions == 2; + string strNote = strNow + "" + printGroup(eve.fromGroup) + "," + eve.message; + if (boolConsole["BannedBanOwner"]||isOwner)addBlackQQ(fromQQ, strNote); + string strMsg = strNote + "\nȺ" + printQQ(fromQQ)+",йԱ" + to_string(intAuthCnt) + "" + strAuthList; if (mGroupInviter.count(eve.fromGroup)) { long long llInviter = mGroupInviter[eve.fromGroup]; strMsg += "\nȺߣ" + printQQ(llInviter); - if (BlackQQ.count(llInviter) == 0) { - BlackQQ.insert(llInviter); - AddMsgToQueue(format(GlobalMsg["strBlackQQAddNoticeReason"], { "ε" + GlobalMsg["strSelfName"] }), llInviter); - } + if (boolConsole["BannedBanInviter"])addBlackQQ(llInviter, "ε"); } NotifyMonitor(strMsg); BlackGroup.insert(eve.fromGroup); if (WhiteGroup.count(eve.fromGroup))WhiteGroup.erase(eve.fromGroup); - //setGroupLeave(eve.fromGroup); - string strInfo = "{\"LoginQQ\":\"" + to_string(getLoginQQ()) + "\",\"fromGroup\":" + to_string(eve.fromGroup) + "\",\"Type\":\"banned\",\"fromQQ\":\"" + to_string(fromQQ) + "\""; + if (boolConsole["BannedLeave"])setGroupLeave(eve.fromGroup); + while (strNote.find('\"') != string::npos)strNote.replace(strNote.find('\"'), 1, "\'"); + string strWarning = "!warning{\n\"fromGroup\":" + to_string(eve.fromGroup) + ",\n\"type\":\"ban\",\n\"time\":\"" + strNow + "\",\n\"DiceMaid\":" + to_string(getLoginQQ()) + ",\n\"masterQQ\":" + to_string(masterQQ) + ",\n\"note\":\"" + strNote + "\"\n}"; + if (isOwner)strWarning = "!warning{\n\"fromGroup\":" + to_string(eve.fromGroup) + "\",\n\"type\":\"ban\",\n\"fromQQ\":\"" + to_string(fromQQ) + "\",\n\"time\":\"" + printSTime(stNow) + "\",\n\"DiceMaid\":\"" + to_string(getLoginQQ()) + "\",\n\"masterQQ\":\"" + to_string(masterQQ) + "\",\n\"note\":\"" + eve.message + "\"\n}"; + NotifyMonitor(strWarning); } else return; } @@ -657,17 +649,18 @@ EVE_GroupMsg_EX(eventGroupMsg) EVE_DiscussMsg_EX(eventDiscussMsg) { time_t tNow = time(NULL); - if (boolNoDiscuss) { + if (boolConsole["LeaveDiscuss"]) { AddMsgToQueue(GlobalMsg["strNoDiscuss"], eve.fromDiscuss, Discuss); Sleep(1000); setDiscussLeave(eve.fromDiscuss); return; } - if (eve.isSystem()) { - NotifyMonitor("" + to_string(eve.fromDiscuss) + "У" + eve.message); - return; + if (BlackQQ.count(eve.fromQQ)) { + string strMsg = "ֺû" + printQQ(eve.fromQQ) + "ԶִȺ"; + AddMsgToQueue(strMsg, eve.fromDiscuss, Discuss); + Sleep(1000); + sendAdmin(printChat({ eve.fromDiscuss,Discuss }) + strMsg); } - DiscussList[eve.fromDiscuss] = tNow; FromMsg Msg(eve.message, eve.fromDiscuss, Discuss, eve.fromQQ); if (Msg.DiceFilter())eve.message_block(); Msg.FwdMsg(eve.message); @@ -706,11 +699,24 @@ EVE_System_GroupMemberIncrease(eventGroupMemberIncrease) } AddMsgToQueue(strReply, fromGroup, Group); } + if (beingOperateQQ != getLoginQQ() && BlackQQ.count(beingOperateQQ)) { + string strNote = printGroup(fromGroup) + "ֺû" + printQQ(beingOperateQQ) + "Ⱥ"; + if (WhiteGroup.count(fromGroup))strNote += "ȺڰУ"; + else if (getGroupMemberInfo(fromGroup, getLoginQQ()).permissions > 1)strNote += "ȺȨޣ"; + else if (boolConsole["LeaveBlackQQ"]) { + AddMsgToQueue("ֺû" + printQQ(beingOperateQQ) + "Ⱥ,ԤȺ", Group); + strNote += "Ⱥ"; + Sleep(100); + setGroupLeave(fromGroup); + } + sendAdmin(strNote); + } else if(beingOperateQQ == getLoginQQ()){ if (BlackGroup.count(fromGroup)) { AddMsgToQueue(GlobalMsg["strBlackGroup"], fromGroup, Group); + setGroupLeave(fromGroup); } - else if (boolPreserve&&WhiteGroup.count(fromGroup)==0) + else if (boolConsole["Private"]&&WhiteGroup.count(fromGroup)==0) { //СȺƹûϰ if (fromQQ == masterQQ || WhiteQQ.count(fromQQ) || getGroupMemberInfo(fromGroup, masterQQ).QQID == masterQQ) { WhiteGroup.insert(fromGroup); @@ -734,29 +740,34 @@ EVE_System_GroupMemberIncrease(eventGroupMemberIncrease) EVE_System_GroupMemberDecrease(eventGroupMemberDecrease) { if (beingOperateQQ == getLoginQQ()) { + string strNow = printSTime(stNow); mLastMsgList.erase({ fromGroup ,Group }); - string strMsg = printQQ(fromQQ) + "" + GlobalMsg["strSelfName"] + "ƳȺ" + to_string(fromGroup) + ""; + string strNote = strNow + " " + printQQ(fromQQ) + "" + GlobalMsg["strSelfName"] + "ƳȺ" + to_string(fromGroup); if (mGroupInviter.count(fromGroup)) { long long llInviter = mGroupInviter[fromGroup]; - strMsg += "\nȺߣ" + printQQ(llInviter); - if (BlackQQ.count(llInviter) == 0) { - BlackQQ.insert(llInviter); - AddMsgToQueue(format(GlobalMsg["strBlackQQAddNoticeReason"], { "ε" + GlobalMsg["strSelfName"] }), llInviter); - } - } - NotifyMonitor(strMsg); - if (WhiteQQ.count(fromQQ)) { - WhiteQQ.erase(fromQQ); + strNote += ",Ⱥߣ" + printQQ(llInviter); + if (boolConsole["BannedBanInviter"])addBlackQQ(llInviter, strNote); } - if (BlackQQ.count(fromQQ) == 0) { - BlackQQ.insert(fromQQ); - AddMsgToQueue(format(GlobalMsg["strBlackQQAddNoticeReason"], { "Ƴ" + GlobalMsg["strSelfName"] }), fromQQ); + if (WhiteGroup.count(fromGroup)) { + WhiteGroup.erase(fromGroup); } + BlackGroup.insert(fromGroup); + while (strNote.find('\"') != string::npos)strNote.replace(strNote.find('\"'), 1, "\'"); + string strWarning = "!warning{\n\"fromGroup\":" + to_string(fromGroup) + ",\n\"type\":\"kick\",\n\"fromQQ\":" + to_string(fromQQ) + ",\n\"time\":\"" + strNow + "\",\n\"DiceMaid\":" + to_string(beingOperateQQ) + ",\n\"masterQQ\":" + to_string(masterQQ) + ",\n\"note\":\"" + strNote + "\"\n}"; + NotifyMonitor(strWarning); + addBlackQQ(fromQQ, strNote, strWarning); + } + else if (mDiceList.count(beingOperateQQ) && subType == 2) { + string strNow = printSTime(stNow); + string strNote = strNow + " " + printQQ(fromQQ) + "" + printQQ(beingOperateQQ) + "ƳȺ" + to_string(fromGroup); + while (strNote.find('\"') != string::npos)strNote.replace(strNote.find('\"'), 1, "\'"); + string strWarning = "!warning{\n\"fromGroup\":" + to_string(fromGroup) + ",\n\"type\":\"kick\",\n\"fromQQ\":" + to_string(fromQQ) + ",\n\"time\":\"" + strNow + "\",\n\"DiceMaid\":" + to_string(beingOperateQQ) + ",\n\"masterQQ\":" + to_string(masterQQ) + ",\n\"note\":\"" + strNote + "\"\n}"; + NotifyMonitor(strWarning); if (WhiteGroup.count(fromGroup)) { WhiteGroup.erase(fromGroup); } BlackGroup.insert(fromGroup); - string strInfo = "{\"LoginQQ\":\"" + to_string(getLoginQQ()) + "\",\"fromGroup\":" + to_string(fromGroup) + "\",\"Type\":\"kicked\",\"fromQQ\":\"" + to_string(fromQQ) + "\""; + addBlackQQ(fromQQ, strNote, strWarning); } return 0; } @@ -784,7 +795,7 @@ EVE_Request_AddGroup(eventGroupInvited) { setGroupAddRequest(responseFlag, 2, 1, ""); mGroupInviter[fromGroup] = fromQQ; } - else if (boolPreserve) { + else if (boolConsole["Private"]) { strMsg += "\nѾܾǰ˽ģʽ"; setGroupAddRequest(responseFlag, 2, 2, ""); } diff --git a/Dice/Dice.vcxproj b/Dice/Dice.vcxproj index d30c121d..040a4f9e 100644 --- a/Dice/Dice.vcxproj +++ b/Dice/Dice.vcxproj @@ -261,6 +261,7 @@ + diff --git a/Dice/Dice.vcxproj.filters b/Dice/Dice.vcxproj.filters index 5c2ba640..28dad614 100644 --- a/Dice/Dice.vcxproj.filters +++ b/Dice/Dice.vcxproj.filters @@ -218,6 +218,9 @@ 头文件 + + 头文件 + diff --git a/Dice/DiceConsole.cpp b/Dice/DiceConsole.cpp index 3d8336f1..7d005982 100644 --- a/Dice/DiceConsole.cpp +++ b/Dice/DiceConsole.cpp @@ -22,10 +22,14 @@ */ #pragma once #include +#include +#include #include "DiceConsole.h" #include "GlobalVar.h" #include "MsgFormat.h" #include "NameStorage.h" +#include "DiceNetwork.h" +#include "jsonio.h" using namespace std; using namespace CQ; @@ -33,18 +37,14 @@ using namespace CQ; long long masterQQ = 0; set AdminQQ = {}; set MonitorList = {}; - //ȫ־Ĭ - bool boolDisabledGlobal = false; - //ȫֽ.me - bool boolDisabledMeGlobal = false; - //ȫֽ.jrrp - bool boolDisabledJrrpGlobal = false; - //˽ģʽ - bool boolPreserve = false; - // - bool boolNoDiscuss = false; - //Ϣ¼ - std::map DiscussList; +std::mapboolConsole = { {"DisabledGlobal",false}, +{"DisabledMe",false},{"DisabledJrrp",false},{"DisabledDeck",true},{"DisabledDraw",false},{"DisabledSend",true}, +{"Private",false},{"LeaveDiscuss",false}, +{"LeaveBlackQQ",true},{"AllowStranger",true}, +{"BannedBanOwner",true},{"BannedLeave",false},{"BannedBanInviter",true}, +{"KickedBanInviter",true} }; +//б +std::map mDiceList; //Ⱥ std::map mGroupInviter; //Ի @@ -76,7 +76,9 @@ std::map mGroupInviter; strClock += to_string(clock.second); return strClock; } - +std::string printSTime(SYSTEMTIME st){ + return to_string(st.wYear) + "/" + to_string(st.wMonth) + "/" + to_string(st.wDay) + " " + to_string(st.wHour) + ":" + to_string(st.wMinute) + ":" + to_string(st.wSecond); +} //ӡûdzQQ string printQQ(long long llqq) { return getStrangerInfo(llqq).nick + "(" + to_string(llqq) + ")"; @@ -101,6 +103,16 @@ std::map mGroupInviter; } return ""; } +//ȡб +void getDiceList() { + std::string list; + if (!Network::GET("shiki.stringempty.xyz", "/DiceList", 80, list)) + { + sendAdmin(("ȡбʱ: \n" + list).c_str(), 0); + return; + } + readJson(list, mDiceList); +} void sendAdmin(std::string strMsg, long long fromQQ) { string strName = fromQQ ? getName(fromQQ) : ""; if(AdminQQ.count(fromQQ)) { @@ -111,41 +123,164 @@ std::map mGroupInviter; } } else { - AddMsgToQueue(strMsg, masterQQ); + masterQQ == fromQQ ? AddMsgToQueue(strMsg, masterQQ) : AddMsgToQueue(strName + strMsg, masterQQ); for (auto it : AdminQQ) { AddMsgToQueue(strName + strMsg, it); } } } - void NotifyMonitor(std::string strMsg) { +void NotifyMonitor(std::string strMsg) { if (!boolMasterMode)return; for (auto it : MonitorList) { AddMsgToQueue(strMsg, it.first, it.second); + Sleep(1000); + } + } +//ûѲȺ +void checkBlackQQ(long long llQQ, std::string strWarning) { + map GroupList = getGroupList(); + string strNotice; + int intCnt = 0; + for (auto eachGroup : GroupList) { + if (getGroupMemberInfo(eachGroup.first, llQQ).QQID == llQQ) { + strNotice += "\n" + printGroup(eachGroup.first); + if (getGroupMemberInfo(eachGroup.first, llQQ).permissions < getGroupMemberInfo(eachGroup.first, getLoginQQ()).permissions) { + strNotice += "ԷȺȨ޽ϵ"; + } + else if (getGroupMemberInfo(eachGroup.first, llQQ).permissions > getGroupMemberInfo(eachGroup.first, getLoginQQ()).permissions) { + AddMsgToQueue(strWarning, eachGroup.first, Group); + AddMsgToQueue("Ա" + printQQ(llQQ) + "\n" + GlobalMsg["strSelfName"] + "ԤȺ", eachGroup.first, Group); + strNotice += "ԷȺȨ޽ϸߣȺ"; + Sleep(1000); + setGroupLeave(eachGroup.first); + } + else if (WhiteGroup.count(eachGroup.first)) { + strNotice += "Ⱥڰ"; + } + else if (boolConsole["LeaveBlackQQ"]) { + AddMsgToQueue(strWarning, eachGroup.first, Group); + AddMsgToQueue("Ա" + printQQ(llQQ) + "\n" + GlobalMsg["strSelfName"] + "ԤȺ", eachGroup.first, Group); + strNotice += "Ⱥ"; + Sleep(1000); + setGroupLeave(eachGroup.first); + } + else + AddMsgToQueue(strWarning, eachGroup.first, Group); + intCnt++; } } - //׼ʱ + if (intCnt) { + strNotice = "" + printQQ(llQQ) + "ͬȺ" + to_string(intCnt) + "" + strNotice; + sendAdmin(strNotice); + } +} +//û +void addBlackQQ(long long llQQ, std::string strReason, std::string strNotice) { + if (llQQ == masterQQ || AdminQQ.count(llQQ) || llQQ == getLoginQQ())return; + if (WhiteQQ.count(llQQ))WhiteQQ.erase(llQQ); + if (BlackQQ.count(llQQ) == 0) { + BlackQQ.insert(llQQ); + strReason.empty() ? AddMsgToQueue(GlobalMsg["strBlackQQAddNotice"], llQQ) + : AddMsgToQueue(format(GlobalMsg["strBlackQQAddNoticeReason"], { strReason }), llQQ); + } + checkBlackQQ(llQQ, strNotice); +} +struct fromMsg { + string strMsg; + long long fromQQ = 0; + long long fromGroup = 0; + fromMsg() = default; + fromMsg(string strMsg, long long QQ, long long Group) :strMsg(strMsg), fromQQ(QQ), fromGroup(Group) {}; +}; +// ϢͶ +std::queue warningQueue; +// ϢͶ +mutex warningMutex; +void AddWarning(const string& msg, long long DiceQQ, long long fromGroup) +{ + lock_guard lock_queue(warningMutex); + warningQueue.emplace(msg, DiceQQ, fromGroup); +} +void warningHandler() { + while (Enabled) + { + fromMsg warning; + { + lock_guard lock_queue(warningMutex); + if (!warningQueue.empty()) + { + warning = warningQueue.front(); + warningQueue.pop(); + } + } + if (!warning.strMsg.empty()) { + long long blackQQ, blackGroup; + string type, time, note; + nlohmann::json jInfo; + try { + jInfo = nlohmann::json::parse(GBKtoUTF8(warning.strMsg)); + jInfo.count("fromQQ") ? blackQQ = jInfo["fromQQ"] : blackQQ = 0; + jInfo.count("fromGroup") ? blackGroup = jInfo["fromGroup"] : blackGroup = 0; + jInfo.count("type") ? type = readJKey(jInfo["type"]) : type = "Unknown"; + //jInfo.count("time") ? time = readJKey(jInfo["time"]) : time = "Unknown"; + jInfo.count("note") ? note = readJKey(jInfo["note"]) : note = ""; + } + catch (...) { + continue; + } + if (type != "ban" && type != "kick" || (!blackGroup || BlackGroup.count(blackGroup)) && (!blackQQ || BlackQQ.count(blackQQ))) { + continue; + } + string strWarning = "!warning" + warning.strMsg; + if (warning.fromQQ != masterQQ || !AdminQQ.count(warning.fromQQ))sendAdmin("" + printQQ(warning.fromQQ) + strWarning); + if (blackGroup) { + if (!BlackGroup.count(blackGroup)) { + BlackGroup.insert(blackGroup); + sendAdmin("֪ͨ" + GlobalMsg["strSelfName"] + "" + printGroup(blackGroup) + "Ⱥ", warning.fromQQ); + } + if (getGroupList().count(blackGroup)) { + if (blackGroup != warning.fromGroup)AddMsgToQueue(strWarning, blackGroup, Group); + setGroupLeave(blackGroup); + } + } + if (blackQQ) { + if (!BlackQQ.count(blackQQ))sendAdmin("֪ͨ" + GlobalMsg["strSelfName"] + "" + printQQ(blackQQ) + "û", warning.fromQQ); + addBlackQQ(blackQQ, note, strWarning); + } + } + else + { + this_thread::sleep_for(chrono::milliseconds(20)); + } + } +} +//׼ʱ void ConsoleTimer() { while (Enabled) { GetLocalTime(&stNow); //ʱ䶯 if (stTmp.wMinute != stNow.wMinute) { stTmp = stNow; - if (stNow.wHour == ClockOffWork.first&&stNow.wMinute == ClockOffWork.second && !boolDisabledGlobal) { - boolDisabledGlobal = true; + if (stNow.wHour == ClockOffWork.first&&stNow.wMinute == ClockOffWork.second && !boolConsole["DisabledGlobal"]) { + boolConsole["DisabledGlobal"] = true; NotifyMonitor(GlobalMsg["strSelfName"] + GlobalMsg["strClockOffWork"]); } - if (stNow.wHour == ClockToWork.first&&stNow.wMinute == ClockToWork.second&&boolDisabledGlobal) { - boolDisabledGlobal = false; + if (stNow.wHour == ClockToWork.first&&stNow.wMinute == ClockToWork.second&&boolConsole["DisabledGlobal"]) { + boolConsole["DisabledGlobal"] = false; NotifyMonitor(GlobalMsg["strSelfName"] + GlobalMsg["strClockToWork"]); } + if (stNow.wHour == 5 && stNow.wMinute == 0) { + getDiceList(); + clearGroup("black"); + } } - Sleep(10000); + Sleep(100); } } //һ - int clearGroup(string strPara,long long) { + int clearGroup(string strPara,long long fromQQ) { int intCnt=0; string strReply; map GroupList=getGroupList(); @@ -158,17 +293,33 @@ std::map mGroupInviter; intCnt++; } } - strReply = "ɸȺȨȺ" + to_string(intCnt) + ""; + strReply = GlobalMsg["strSelfName"] + "ɸȺȨȺ" + to_string(intCnt) + ""; sendAdmin(strReply); } - else if (isdigit(strPara[0])) { + else if (isdigit(static_cast(strPara[0]))) { int intDayLim = stoi(strPara); string strDayLim = to_string(intDayLim); time_t tNow = time(NULL);; + for (auto eachChat : mLastMsgList) { + if (eachChat.first.second == Private)continue; + int intDay = (int)(tNow - eachChat.second) / 86400; + if (intDay > intDayLim) { + strReply += printChat(eachChat.first) + ":" + to_string(intDay) + "\n"; + AddMsgToQueue(format(GlobalMsg["strOverdue"], { GlobalMsg["strSelfName"], to_string(intDay) }), eachChat.first.first, eachChat.first.second); + Sleep(100); + if (eachChat.first.second == Group) { + setGroupLeave(eachChat.first.first); + if (GroupList.count(eachChat.first.first))GroupList.erase(eachChat.first.first); + } + else setDiscussLeave(eachChat.first.first); + mLastMsgList.erase(eachChat.first); + intCnt++; + } + } for (auto eachGroup : GroupList) { int intDay = (int)(tNow - getGroupMemberInfo(eachGroup.first, getLoginQQ()).LastMsgTime)/86400; if (intDay > intDayLim) { - strReply += "Ⱥ(" + to_string(eachGroup.first) + "):" + to_string(intDay) + "\n"; + strReply += printGroup(eachGroup.first) + ":" + to_string(intDay) + "\n"; AddMsgToQueue(format(GlobalMsg["strOverdue"], { GlobalMsg["strSelfName"], to_string(intDay) }), eachGroup.first, Group); Sleep(10); setGroupLeave(eachGroup.first); @@ -176,20 +327,52 @@ std::map mGroupInviter; intCnt++; } } - for (auto eachDiscuss : DiscussList) { - int intDay = (int)(tNow - eachDiscuss.second) / 86400; - if (intDay > intDayLim){ - strReply += "(" + to_string(eachDiscuss.first) + "):" + to_string(intDay) + "\n"; - AddMsgToQueue(format(GlobalMsg["strOverdue"], { GlobalMsg["strSelfName"], to_string(intDay) }), eachDiscuss.first, Group); - Sleep(10); - setDiscussLeave(eachDiscuss.first); - DiscussList.erase(eachDiscuss.first); - mLastMsgList.erase({ eachDiscuss.first ,Discuss }); - intCnt++; + strReply += GlobalMsg["strSelfName"] + "ɸDZˮ" + strDayLim + "Ⱥ" + to_string(intCnt) + ""; + AddMsgToQueue(strReply,masterQQ); + } + else if (strPara == "black") { + for (auto eachGroup : GroupList) { + if (BlackGroup.count(eachGroup.first)) { + AddMsgToQueue(GlobalMsg["strBlackGroup"], eachGroup.first, Group); + strReply += "\n" + printGroup(eachGroup.first) + "" + "Ⱥ"; + Sleep(100); + setGroupLeave(eachGroup.first); + } + vector MemberList = getGroupMemberList(eachGroup.first); + for (auto eachQQ : MemberList) { + if (BlackQQ.count(eachQQ.QQID)) { + if (getGroupMemberInfo(eachGroup.first, eachQQ.QQID).permissions < getGroupMemberInfo(eachGroup.first, getLoginQQ()).permissions) { + continue; + } + else if (getGroupMemberInfo(eachGroup.first, eachQQ.QQID).permissions > getGroupMemberInfo(eachGroup.first, getLoginQQ()).permissions) { + AddMsgToQueue("ֺԱ" + printQQ(eachQQ.QQID) + "\n" + GlobalMsg["strSelfName"] + "ԤȺ", eachGroup.first, Group); + strReply += "\n" + printGroup(eachGroup.first) + "" + printQQ(eachQQ.QQID) + "ԷȺȨ޽ϸ"; + Sleep(100); + setGroupLeave(eachGroup.first); + intCnt++; + break; + } + else if (WhiteGroup.count(eachGroup.first)) { + continue; + } + else if (boolConsole["LeaveBlackQQ"]) { + AddMsgToQueue("ֺԱ" + printQQ(eachQQ.QQID) + "\n" + GlobalMsg["strSelfName"] + "ԤȺ", eachGroup.first, Group); + strReply += "\n" + printGroup(eachGroup.first) + "" + printQQ(eachQQ.QQID); + Sleep(100); + setGroupLeave(eachGroup.first); + intCnt++; + break; + } + } } } - strReply += "ɸDZˮ" + strDayLim + "Ⱥ" + to_string(intCnt) + ""; - AddMsgToQueue(strReply,masterQQ); + if (intCnt) { + strReply = GlobalMsg["strSelfName"] + "ѰȺ" + to_string(intCnt) + "" + strReply; + sendAdmin(strReply); + } + else if (fromQQ) { + sendAdmin(GlobalMsg["strSelfName"] + "δȺ"); + } } else if (strPara == "preserve") { for (auto eachGroup : GroupList) { @@ -201,11 +384,11 @@ std::map mGroupInviter; intCnt++; } } - strReply = "ɸȺ" + to_string(intCnt) + ""; + strReply = GlobalMsg["strSelfName"] + "ɸȺ" + to_string(intCnt) + ""; sendAdmin(strReply); } else - AddMsgToQueue("޷ʶɸѡ",masterQQ); + AddMsgToQueue("޷ʶɸѡ", fromQQ); return intCnt; } @@ -222,38 +405,39 @@ EVE_Menu(eventClearGroup30) { return 0; } EVE_Menu(eventGlobalSwitch) { - if (boolDisabledGlobal) { - boolDisabledGlobal = false; + if (boolConsole["DisabledGlobal"]) { + boolConsole["DisabledGlobal"] = false; MessageBoxA(nullptr, "ѽĬ", "ȫֿ", MB_OK | MB_ICONINFORMATION); } else { - boolDisabledGlobal = true; + boolConsole["DisabledGlobal"] = true; MessageBoxA(nullptr, "ȫ־Ĭ", "ȫֿ", MB_OK | MB_ICONINFORMATION); } return 0; } EVE_Request_AddFriend(eventAddFriend) { - if (masterQQ&&boolMasterMode) { - string strMsg = "ԣ" + printQQ(fromQQ) + ","; - if (BlackQQ.count(fromQQ)) { - strMsg += "ѾܾûںУ"; - setFriendAddRequest(responseFlag, 2, ""); - } - else if (WhiteQQ.count(fromQQ)) { - strMsg += "ͬ⣨ûڰУ"; - setFriendAddRequest(responseFlag, 1, ""); - } - else if (boolPreserve) { - strMsg += "Ѿܾǰ˽ģʽ"; - setFriendAddRequest(responseFlag, 2, ""); - } - else { - strMsg += "ͬ"; - setFriendAddRequest(responseFlag, 1, ""); - } - sendAdmin(strMsg); + string strMsg = "ԣ" + printQQ(fromQQ); + if (BlackQQ.count(fromQQ)) { + strMsg += "ѾܾûںУ"; + setFriendAddRequest(responseFlag, 2, ""); + } + else if (WhiteQQ.count(fromQQ)) { + strMsg += "ͬ⣨ûڰУ"; + setFriendAddRequest(responseFlag, 1, ""); + GlobalMsg["strAddFriendWhiteQQ"].empty() ? AddMsgToQueue(GlobalMsg["strAddFriend"], fromQQ) + : AddMsgToQueue(GlobalMsg["strAddFriendWhiteQQ"], fromQQ); + } + else if (boolConsole["Private"]&& !boolConsole["AllowStranger"]) { + strMsg += "Ѿܾǰ˽ģʽ"; + setFriendAddRequest(responseFlag, 2, ""); + } + else { + strMsg += "ͬ"; + setFriendAddRequest(responseFlag, 1, ""); + AddMsgToQueue(GlobalMsg["strAddFriend"], fromQQ); } + sendAdmin(strMsg); return 1; } diff --git a/Dice/DiceConsole.h b/Dice/DiceConsole.h index 69b2c29e..3cdd8ff1 100644 --- a/Dice/DiceConsole.h +++ b/Dice/DiceConsole.h @@ -21,18 +21,10 @@ extern std::set AdminQQ; //شб extern std::set> MonitorList; - //ȫȺĬ - extern bool boolDisabledGlobal; - //ȫֽ.ME - extern bool boolDisabledMeGlobal; - //ȫֽ.jrrp - extern bool boolDisabledJrrpGlobal; - //ռģʽMasterڵȺ - extern bool boolPreserve; - //Զ˳һ - extern bool boolNoDiscuss; - //Ϣ¼ - extern std::map DiscussList; + //ȫֿ + extern std::mapboolConsole; + //б + extern std::map mDiceList; //Ի extern std::map PersonalMsg; //botoffȺ @@ -47,6 +39,8 @@ extern std::set WhiteQQ; //û extern std::set BlackQQ; + //ȡб + void getDiceList(); //֪ͨԱ void sendAdmin(std::string strMsg, long long fromQQ = 0); //֪ͨش @@ -68,9 +62,16 @@ //°ʱ extern std::pair ClockOffWork; std::string printClock(std::pair clock); + std::string printSTime(SYSTEMTIME st); std::string printQQ(long long); std::string printGroup(long long); std::string printChat(chatType); +//ûȺ +void checkBlackQQ(long long, std::string strWarning = ""); +//û +void addBlackQQ(long long, std::string strReason = "", std::string strNotice = ""); +void AddWarning(const std::string& msg, long long DiceQQ, long long fromGroup); +void warningHandler(); extern void ConsoleTimer(); #endif /*Dice_Console*/ diff --git a/Dice/DiceEvent.h b/Dice/DiceEvent.h index fd3051f3..484a7e9f 100644 --- a/Dice/DiceEvent.h +++ b/Dice/DiceEvent.h @@ -90,6 +90,7 @@ class FromMsg { } } else { + if(!isMaster)AddMsgToQueue(strName + strMsg, masterQQ); for (auto it : AdminQQ) { AddMsgToQueue(strName + strMsg, it); } @@ -111,34 +112,47 @@ class FromMsg { } } int AdminEvent(string strOption) { - if (strOption == "delete") { - AdminNotify("ѾԱȨޡ"); - MonitorList.erase({ fromQQ,Private }); - AdminQQ.erase(fromQQ); - return 1; - } - else if (strOption == "state") { - string strReply = getLoginNick(); - strReply = strReply + "ĵǰ" + "\n" + if (strOption == "state") { + strReply = GlobalMsg["strSelfName"] + "ĵǰ" + "\n" + + "Master" + printQQ(masterQQ) + "\n" + (ClockToWork.first < 24 ? "ʱ" + printClock(ClockToWork) + "\n" : "") + (ClockOffWork.first < 24 ? "ʱر" + printClock(ClockOffWork) + "\n" : "") - + (boolPreserve ? "˽ģʽ" : "ģʽ") + "\n" - + (boolNoDiscuss ? "" : "") + "\n" - + "ȫֿأ" + (boolDisabledGlobal ? "" : "") + "\n" - + "ȫ.meأ" + (boolDisabledMeGlobal ? "" : "") + "\n" - + "ȫ.jrrpأ" + (boolDisabledJrrpGlobal ? "" : "") + "\n" - + "Ⱥ" + to_string(getGroupList().size()) + "\n" - + (DiscussList.size() ? "м¼" + to_string(DiscussList.size()) + "\n" : "") + + (boolConsole["Private"] ? "˽ģʽ" : "ģʽ") + "\n" + + (boolConsole["LeaveDiscuss"] ? "" : "") + "\n" + + "ȫֿأ" + (boolConsole["DisabledGlobal"] ? "" : "") + "\n" + + "ȫ.meأ" + (boolConsole["DisabledMe"] ? "" : "") + "\n" + + "ȫ.jrrpأ" + (boolConsole["DisabledJrrp"] ? "" : ""); + if (isAdmin) strReply += "\nȺ" + to_string(getGroupList().size()) + "\n" + "û" + to_string(BlackQQ.size()) + "\n" + "Ⱥ" + to_string(BlackGroup.size()) + "\n" + "û" + to_string(WhiteQQ.size()) + "\n" + "Ⱥ" + to_string(WhiteGroup.size()); - reply(strReply); + reply(); + return 1; + } + if (!isAdmin) { + reply(GlobalMsg["strNotAdmin"]); + return -1; + } + if (boolConsole.count(strOption)) { + string strBool = readDigit(); + if (strBool.empty())boolConsole[strOption] ? reply("ǰ") : reply("ǰر"); + else { + bool isOn = stoi(strBool); + boolConsole[strOption] = isOn; + isOn ? AdminNotify("ѿ" + strOption) : AdminNotify("ѹر" + strOption); + } + return 1; + } + else if (strOption == "delete") { + AdminNotify("ѾԱȨޡ"); + MonitorList.erase({ fromQQ,Private }); + AdminQQ.erase(fromQQ); return 1; } else if (strOption == "on") { - if (boolDisabledGlobal) { - boolDisabledGlobal = false; + if (boolConsole["DisabledGlobal"]) { + boolConsole["DisabledGlobal"] = false; AdminNotify("ȫֿ" + GlobalMsg["strSelfName"]); } else { @@ -147,18 +161,28 @@ class FromMsg { return 1; } else if (strOption == "off") { - if (boolDisabledGlobal) { + if (boolConsole["DisabledGlobal"]) { reply(GlobalMsg["strSelfName"] + "ѾĬ"); } else { - boolDisabledGlobal = true; + boolConsole["DisabledGlobal"] = true; AdminNotify("ȫֹر" + GlobalMsg["strSelfName"]); } return 1; } + else if (strOption == "dicelist") + { + getDiceList(); + strReply = "ǰб"; + for (auto it : mDiceList) { + strReply += "\n" + printQQ(it.first); + } + reply(); + return 1; + } else if (strOption == "meon") { - if (boolDisabledMeGlobal) { - boolDisabledMeGlobal = false; + if (boolConsole["DisabledMe"]) { + boolConsole["DisabledMe"] = false; AdminNotify("" + GlobalMsg["strSelfName"] + "ȫ.me"); } else { @@ -167,18 +191,18 @@ class FromMsg { return 1; } else if (strOption == "meoff") { - if (boolDisabledMeGlobal) { + if (boolConsole["DisabledMe"]) { reply(GlobalMsg["strSelfName"] + "ѽ.me"); } else { - boolDisabledMeGlobal = true; + boolConsole["DisabledMe"] = true; AdminNotify("" + GlobalMsg["strSelfName"] + "ȫֽ.me"); } return 1; } else if (strOption == "jrrpon") { - if (boolDisabledMeGlobal) { - boolDisabledMeGlobal = false; + if (boolConsole["DisabledMe"]) { + boolConsole["DisabledMe"] = false; AdminNotify("" + GlobalMsg["strSelfName"] + "ȫ.jrrp"); } else { @@ -187,18 +211,18 @@ class FromMsg { return 1; } else if (strOption == "jrrpoff") { - if (boolDisabledMeGlobal) { + if (boolConsole["DisabledMe"]) { reply(GlobalMsg["strSelfName"] + "ѽ.jrrp"); } else { - boolDisabledMeGlobal = true; + boolConsole["DisabledMe"] = true; AdminNotify("" + GlobalMsg["strSelfName"] + "ȫֽ.jrrp"); } return 1; } else if (strOption == "discusson") { - if (boolNoDiscuss) { - boolNoDiscuss = false; + if (boolConsole["LeaveDiscuss"]) { + boolConsole["LeaveDiscuss"] = false; AdminNotify("ѹرԶ˳"); } else { @@ -207,28 +231,28 @@ class FromMsg { return 1; } else if (strOption == "discussoff") { - if (boolNoDiscuss) { + if (boolConsole["LeaveDiscuss"]) { reply(GlobalMsg["strSelfName"] + "ѿԶ˳"); } else { - boolNoDiscuss = true; + boolConsole["LeaveDiscuss"] = true; AdminNotify("ѿԶ˳"); } return 1; } else if (strOption == "only") { - if (boolPreserve) { + if (boolConsole["Private"]) { reply(GlobalMsg["strSelfName"] + "ѳΪ˽"); } else { - boolPreserve = true; + boolConsole["Private"] = true; AdminNotify("ѽ" + GlobalMsg["strSelfName"] + "Ϊ˽á"); } return 1; } else if (strOption == "public") { - if (boolPreserve) { - boolPreserve = false; + if (boolConsole["Private"]) { + boolConsole["Private"] = false; AdminNotify("ѽ" + GlobalMsg["strSelfName"] + "Ϊá"); } else { @@ -319,14 +343,13 @@ class FromMsg { long long llTargetID = readID(); if (strOption == "dismiss") { WhiteGroup.erase(llTargetID); - if (getGroupList().count(llTargetID) && setGroupLeave(llTargetID)) { + if (getGroupList().count(llTargetID) && setGroupLeave(llTargetID) == 0) { mLastMsgList.erase({ llTargetID ,Group }); AdminNotify("" + GlobalMsg["strSelfName"] + "˳Ⱥ" + to_string(llTargetID) + ""); } else if (llTargetID > 1000000000 && setDiscussLeave(llTargetID) == 0) { mLastMsgList.erase({ llTargetID ,Discuss }); AdminNotify("" + GlobalMsg["strSelfName"] + "˳" + to_string(llTargetID) + ""); - DiscussList.erase(llTargetID); } else { reply(GlobalMsg["strGroupGetErr"]); @@ -477,10 +500,8 @@ class FromMsg { reply(printQQ(llTargetID) + "Ѽ" + GlobalMsg["strSelfName"] + "ĺ!"); } else { - BlackQQ.insert(llTargetID); + addBlackQQ(llTargetID, strReason); AdminNotify("ѽ" + printQQ(llTargetID) + ""); - strReason.empty() ? AddMsgToQueue(GlobalMsg["strBlackQQAddNotice"], llTargetID) - : AddMsgToQueue(format(GlobalMsg["strBlackQQAddNoticeReason"], { strReason }), llTargetID); } } } while (llTargetID = readID()); @@ -492,14 +513,14 @@ class FromMsg { } } int MasterSet() { - std::string strOption = readPara(); + std::string strOption = readUntilSpace(); if (strOption.empty()) { reply("ʲôô" + getName(fromQQ)); return -1; } if (strOption == "groupclr") { std::string strPara = readRest(); - int intGroupCnt = clearGroup(strPara); + int intGroupCnt = clearGroup(strPara, fromQQ); return 1; } else if (strOption == "delete") { @@ -552,7 +573,8 @@ class FromMsg { else return AdminEvent(strOption); return 0; } - bool DiceReply() { + int DiceReply() { + if (strMsg[0] != '.')return 0; intMsgCnt++ ; int intT = (int)fromType; while (isspace(static_cast(strMsg[intMsgCnt]))) @@ -584,7 +606,7 @@ class FromMsg { setDiscussLeave(fromGroup); mLastMsgList.erase(fromChat); } - else if (getGroupMemberInfo(fromGroup, fromQQ).permissions >= 2) + else if (isAuth) { if (!GlobalMsg["strDismiss"].empty())reply(GlobalMsg["strDismiss"]); setGroupLeave(fromGroup); @@ -597,7 +619,15 @@ class FromMsg { } return 1; } - if (strLowerMessage.substr(intMsgCnt, 6) == "master"&&boolMasterMode) { + else if (strLowerMessage.substr(intMsgCnt, 7) == "warning") { + if (isAdmin || mDiceList.count(fromQQ)) { + intMsgCnt += 7; + AddWarning(readRest(), fromQQ, fromGroup); + return 1; + } + else return 0; + } + else if (strLowerMessage.substr(intMsgCnt, 6) == "master"&&boolMasterMode) { intMsgCnt += 6; if (masterQQ == 0) { masterQQ = fromQQ; @@ -636,8 +666,9 @@ class FromMsg { { if (Command == "on") { - if (fromType == Group) { - if (getGroupMemberInfo(fromGroup, fromQQ).permissions >= 2) + if (boolConsole["DisabledGlobal"])reply(GlobalMsg["strGlobalOff"]); + else if (fromType == Group) { + if (isAuth) { if (DisabledGroup.count(fromGroup)) { @@ -669,7 +700,7 @@ class FromMsg { else if (Command == "off") { if (fromType == Group) { - if (getGroupMemberInfo(fromGroup, fromQQ).permissions >= 2) + if (isAuth) { if (!DisabledGroup.count(fromGroup)) { @@ -705,19 +736,15 @@ class FromMsg { } return 1; } - if (boolDisabledGlobal && (!isAdmin || !isCalled)) { + if (boolConsole["DisabledGlobal"] && (!isAdmin || !isCalled)) { if (intT == PrivateT)reply(GlobalMsg["strGlobalOff"]); return 1; } - if (!isCalled && (intT == GroupT && DisabledGroup.count(fromGroup)))return 0; - if (!isCalled && (intT == DiscussT && DisabledDiscuss.count(fromGroup)))return 0; - if (strLowerMessage.substr(intMsgCnt, 7) == "helpdoc") + if (!isCalled && (intT == GroupT && DisabledGroup.count(fromGroup)))return 1; + if (!isCalled && (intT == DiscussT && DisabledDiscuss.count(fromGroup)))return 1; + if (strLowerMessage.substr(intMsgCnt, 7) == "helpdoc"&&isAdmin) { intMsgCnt += 7; - if (!isMaster) { - reply(GlobalMsg["strNotMaster"]); - return true; - } while (strMsg[intMsgCnt] == ' ') intMsgCnt++; if (intMsgCnt == strMsg.length()) { @@ -856,7 +883,7 @@ class FromMsg { intMsgCnt += 7; while (isspace(static_cast(strLowerMessage[intMsgCnt]))) intMsgCnt++; - if (getGroupMemberInfo(fromGroup, fromQQ).permissions >= 2) + if (isAuth) { string strWelcomeMsg = strMsg.substr(intMsgCnt); if (strWelcomeMsg.empty()) @@ -927,7 +954,7 @@ class FromMsg { else if (strLowerMessage.substr(intMsgCnt, 5) == "admin") { intMsgCnt += 5; - if(isAdmin)return AdminEvent(readPara()); + return AdminEvent(readUntilSpace()); } else if (strLowerMessage.substr(intMsgCnt, 5) == "coc7d" || strLowerMessage.substr(intMsgCnt, 4) == "cocd") { @@ -953,13 +980,7 @@ class FromMsg { intMsgCnt += 5; while (isspace(static_cast(strLowerMessage[intMsgCnt]))) intMsgCnt++; - string Command; - while (intMsgCnt != strLowerMessage.length() && !isdigit(static_cast(strLowerMessage[intMsgCnt])) && !isspace( - static_cast(strLowerMessage[intMsgCnt]))) - { - Command += strLowerMessage[intMsgCnt]; - intMsgCnt++; - } + string Command=readPara(); string strReply; if (Command == "state") { time_t tNow = time(NULL); @@ -976,11 +997,12 @@ class FromMsg { } strReply += getGroupList()[fromGroup] + "Ⱥ״:\n" + "Ⱥ:" + to_string(fromGroup) + "\n" - + GlobalMsg["strSelfName"] + "ڱȺ״̬" + (DisabledGroup.count(fromGroup) ? "" : "") + (boolDisabledGlobal ? "ȫ־ĬУ" : "") + "\n" - + ".me" + (DisabledMEGroup.count(fromGroup) ? "" : "") + (boolDisabledMeGlobal ? "ȫֽУ" : "") + "\n" - + ".jrrp" + (DisabledJRRPGroup.count(fromGroup) ? "" : "") + (boolDisabledJrrpGlobal ? "ȫֽУ" : "") + "\n" + + GlobalMsg["strSelfName"] + "ڱȺ״̬" + (DisabledGroup.count(fromGroup) ? "" : "") + (boolConsole["DisabledGlobal"] ? "ȫ־ĬУ" : "") + "\n" + + ".me" + (DisabledMEGroup.count(fromGroup) ? "" : "") + (boolConsole["DisabledMe"] ? "ȫֽУ" : "") + "\n" + + ".jrrp" + (DisabledJRRPGroup.count(fromGroup) ? "" : "") + (boolConsole["DisabledJrrp"] ? "ȫֽУ" : "") + "\n" + (DisabledHELPGroup.count(fromGroup) ? "ѽ.help\n" : "") + (DisabledOBGroup.count(fromGroup) ? "ѽԹģʽ\n" : "") + + "COC棺" + (mDefaultCOC.count({ fromGroup,Group }) ? to_string(mDefaultCOC[{ fromGroup, Group }])+"\n" : "δ\n") + (mGroupInviter.count(fromGroup) ? "" + printQQ(mGroupInviter[fromGroup]) + "\n" : "") + "Ⱥӭ:" + (WelcomeMsg.count(fromGroup) ? "" : "δ") + (sInact.size() ? "\n30첻ԾȺԱ" + to_string(sInact.size()) : ""); @@ -998,25 +1020,13 @@ class FromMsg { reply(GlobalMsg["strSelfPermissionErr"]); return 1; } - while (isspace(static_cast(strLowerMessage[intMsgCnt]))) - intMsgCnt++; - string QQNum; - if (strLowerMessage.substr(intMsgCnt, 10) == "[cq:at,qq=") { - intMsgCnt += 10; - while (isdigit(strLowerMessage[intMsgCnt])) { - QQNum += strLowerMessage[intMsgCnt]; - intMsgCnt++; - } - intMsgCnt++; - } - else while (isdigit(strLowerMessage[intMsgCnt])) { - QQNum += strLowerMessage[intMsgCnt]; - intMsgCnt++; - } - while (isspace(static_cast(strLowerMessage[intMsgCnt]))) - intMsgCnt++; if (Command == "ban") { + string QQNum = readDigit(); + if (QQNum.empty()) { + reply(GlobalMsg["strQQIDEmpty"]); + return -1; + } long long llMemberQQ = stoll(QQNum); GroupMemberInfo Member = getGroupMemberInfo(fromGroup, llMemberQQ); if (Member.QQID == llMemberQQ) @@ -1025,10 +1035,10 @@ class FromMsg { reply(GlobalMsg["strSelfPermissionErr"]); return 1; } - string strMainDice; - while (isdigit(strLowerMessage[intMsgCnt]) || (strLowerMessage[intMsgCnt]) == 'd' || (strLowerMessage[intMsgCnt]) == '+' || (strLowerMessage[intMsgCnt]) == '-') { - strMainDice += strLowerMessage[intMsgCnt]; - intMsgCnt++; + string strMainDice = readDice(); + if (strMainDice.empty()) { + reply(GlobalMsg["strValueErr"]); + return -1; } const int intDefaultDice = DefaultDice.count(fromQQ) ? DefaultDice[fromQQ] : 100; RD rdMainDice(strMainDice, intDefaultDice); @@ -1044,6 +1054,33 @@ class FromMsg { } return 1; } + else if (strLowerMessage.substr(intMsgCnt, 5) == "reply") { + intMsgCnt += 5; + if (!isAdmin) { + reply(GlobalMsg["strNotAdmin"]); + return -1; + } + string strReplyName = readUntilSpace(); + vector *Deck = NULL; + if (strReplyName.empty()) { + reply(GlobalMsg["strParaEmpty"]); + return -1; + } + else { + CardDeck::mReplyDeck[strReplyName] = {}; + Deck = &CardDeck::mReplyDeck[strReplyName]; + } + while (intMsgCnt != strMsg.length()) { + string item = readItem(); + if(!item.empty())Deck->push_back(item); + } + if (Deck->empty()) { + reply(format(GlobalMsg["strReplyDel"], { strReplyName })); + CardDeck::mReplyDeck.erase(strReplyName); + } + else reply(format(GlobalMsg["strReplySet"], { strReplyName })); + return 1; +} else if (strLowerMessage.substr(intMsgCnt, 5) == "rules") { intMsgCnt += 5; @@ -1120,6 +1157,11 @@ class FromMsg { return 1; } else if (strLowerMessage.substr(intMsgCnt, 4) == "deck") { + if (!isAdmin&&boolConsole["DisabledDeck"]) + { + reply(GlobalMsg["strDisabledDeckGlobal"]); + return 1; + } intMsgCnt += 4; readSkipSpace(); string strPara = readPara(); @@ -1239,7 +1281,7 @@ class FromMsg { } while (intMsgCnt != strMsg.length()) { string item = readItem(); - DeckPro->push_back(item); + if (!item.empty())DeckPro->push_back(item); } reply(GlobalMsg["strDeckProNew"]); return 1; @@ -1247,6 +1289,11 @@ class FromMsg { } else if (strLowerMessage.substr(intMsgCnt, 4) == "draw") { + if (!isAdmin&&boolConsole["DisabledDraw"]) + { + reply(GlobalMsg["strDisabledDrawGlobal"]); + return 1; + } intMsgCnt += 4; while (isspace(static_cast(strLowerMessage[intMsgCnt]))) intMsgCnt++; @@ -1320,7 +1367,7 @@ class FromMsg { } else if (strLowerMessage.substr(intMsgCnt, 4) == "jrrp") { - if (boolDisabledJrrpGlobal) { + if (boolConsole["DisabledJrrp"]) { reply(GlobalMsg["strDisabledJrrpGlobal"]); return 1; } @@ -1426,8 +1473,8 @@ class FromMsg { } else if (strLowerMessage.substr(intMsgCnt, 4) == "link") { intMsgCnt += 4; - if (!isMaster) { - reply(GlobalMsg["strNotMaster"]); + if (!isAdmin) { + reply(GlobalMsg["strNotAdmin"]); return true; } isLinkOrder = true; @@ -1618,14 +1665,15 @@ class FromMsg { if (!masterQQ || !boolMasterMode) { reply(GlobalMsg["strSendMsgInvalid"]); } + else if (boolConsole["DisabledSend"]) { + reply(GlobalMsg["strDisabledSendGlobal"]); + } else if (intMsgCnt == strMsg.length()) { reply(GlobalMsg["strSendMsgEmpty"]); } else { - string strFwd = ""; - if (fromType == Group)strFwd += "Ⱥ(" + to_string(fromGroup) + ")"; - if (fromType == Discuss)strFwd += "(" + to_string(fromGroup) + ")"; - strFwd += getStrangerInfo(fromQQ).nick + "(" + to_string(fromQQ) + "):"; + string strFwd = "" + printChat(fromChat); + if (fromType == Private)strFwd += printQQ(fromQQ); if (masterQQ == fromQQ)strFwd.clear(); strFwd += readRest(); sendAdmin(strFwd); @@ -1770,8 +1818,8 @@ class FromMsg { string strMessage = strMsg.substr(intMsgCnt); if (strMessage == "NULL")strMessage = ""; EditedMsg[strName] = strMessage; - GlobalMsg[strName] = (strName == "strHlpMsg") ? Dice_Short_Ver + "\n" + strMsg : strMessage; - AdminNotify("Զ" + strName + "ı"); + GlobalMsg[strName] = (strName == "strHlpMsg") ? Dice_Short_Ver + "\n" + strMessage : strMessage; + isMaster ? reply("Զ" + strName + "ı") : AdminNotify("Զ" + strName + "ı"); } } else { @@ -1905,7 +1953,7 @@ class FromMsg { } else if (strLowerMessage.substr(intMsgCnt, 2) == "me") { - if (boolDisabledMeGlobal) + if (!isAdmin&&boolConsole["DisabledMe"]) { reply(GlobalMsg["strDisabledMeGlobal"]); return 1; @@ -2385,7 +2433,7 @@ class FromMsg { else if (strLowerMessage.substr(intMsgCnt, 2) == "ri"&&intT) { intMsgCnt += 2; - while (isspace(static_cast(strLowerMessage[intMsgCnt])))intMsgCnt++; + readSkipSpace(); string strinit = "D20"; if (strLowerMessage[intMsgCnt] == '+' || strLowerMessage[intMsgCnt] == '-') { @@ -2393,23 +2441,16 @@ class FromMsg { intMsgCnt++; while (isspace(static_cast(strLowerMessage[intMsgCnt])))intMsgCnt++; } - else if (isdigit(static_cast(strLowerMessage[intMsgCnt]))) - strinit += '+'; - while (isdigit(static_cast(strLowerMessage[intMsgCnt]))) - { - strinit += strLowerMessage[intMsgCnt]; - intMsgCnt++; - } - while (isspace(static_cast(strLowerMessage[intMsgCnt]))) - { - intMsgCnt++; + else if (isRollDice()){ + strinit = readDice(); } + readSkipSpace(); string strname = strMsg.substr(intMsgCnt); if (strname.empty()) strname = strNickName; else strname = strip(strname); - RD initdice(strinit); + RD initdice(strinit, 20); const int intFirstTimeRes = initdice.Roll(); if (intFirstTimeRes == Value_Err) { @@ -2702,18 +2743,15 @@ class FromMsg { while (isspace(static_cast(strLowerMessage[intMsgCnt])) || strLowerMessage[intMsgCnt] == '|')intMsgCnt++; continue; } - string strSkillVal; - while (isdigit(static_cast(strLowerMessage[intMsgCnt]))) - { - strSkillVal += strLowerMessage[intMsgCnt]; - intMsgCnt++; - } + string strSkillVal = readDigit(); if (strSkillName.empty() || strSkillVal.empty() || strSkillVal.length() > 3) { boolError = true; break; } - CharacterProp[SourceType(fromQQ, GroupT, fromGroup)][strSkillName] = stoi(strSkillVal); + int intSkillVal = stoi(strSkillVal); + if (!SkillDefaultVal.count(strSkillName) || SkillDefaultVal[strSkillName] != intSkillVal)CharacterProp[SourceType(fromQQ, GroupT, fromGroup)][strSkillName] = intSkillVal; + else if (CharacterProp[SourceType(fromQQ, GroupT, fromGroup)].count(strSkillName))CharacterProp[SourceType(fromQQ, GroupT, fromGroup)].erase(strSkillName); while (isspace(static_cast(strLowerMessage[intMsgCnt])) || strLowerMessage[intMsgCnt] == '|')intMsgCnt++; } if (boolError) @@ -3276,6 +3314,14 @@ class FromMsg { } return 0; } + int CustomReply(){ + string strKey = readRest(); + if (CardDeck::mReplyDeck.count(strKey)) { + reply(CardDeck::drawCard(CardDeck::mReplyDeck[strKey], true)); + return 1; + } + else return 0; + } //жǷӦ bool DiceFilter() { init(strMsg); @@ -3289,18 +3335,23 @@ class FromMsg { strMsg = strMsg.substr(strAt.length()); isCalled = true; } + else if (strMsg.substr(0, 14) == "[CQ:at,qq=all]") { + strMsg = strMsg.substr(14); + isCalled = true; + } else { return false; } } init2(strMsg); - if (strMsg[0] != '.')return 0; + if (strMsg[0] != '.'&&CardDeck::mReplyDeck.count(strMsg) == 0)return 0; if (fromType == Private) isCalled = true; isMaster = fromQQ == masterQQ && boolMasterMode; isAdmin = isMaster || AdminQQ.count(fromQQ); isAuth = isAdmin || fromType != Group || getGroupMemberInfo(fromGroup, fromQQ).permissions > 1; - return DiceReply(); + if (DiceReply())return 1; + else return CustomReply(); } private: @@ -3312,16 +3363,26 @@ class FromMsg { bool isLinkOrder = false; //ո void readSkipSpace() { - while (isspace(strLowerMessage[intMsgCnt]))intMsgCnt++; + while (isspace(static_cast(strLowerMessage[intMsgCnt])))intMsgCnt++; + } + string readUntilSpace() { + string strPara; + readSkipSpace(); + while (!isspace(static_cast(strLowerMessage[intMsgCnt])) && intMsgCnt != strLowerMessage.length()) { + strPara += strMsg[intMsgCnt]; + intMsgCnt++; + } + return strPara; } string readRest() { + readSkipSpace(); return strMsg.substr(intMsgCnt); } //ȡ(ͳһСд) string readPara() { string strPara; - while (isspace(strLowerMessage[intMsgCnt]))intMsgCnt++; - while (!isspace(strLowerMessage[intMsgCnt]) && !isdigit(strLowerMessage[intMsgCnt]) && (strLowerMessage[intMsgCnt] != '-') && (strLowerMessage[intMsgCnt] != '+') && intMsgCnt != strLowerMessage.length()) { + while (isspace(static_cast(strLowerMessage[intMsgCnt])))intMsgCnt++; + while (!isspace(static_cast(strLowerMessage[intMsgCnt])) && !isdigit(static_cast(strLowerMessage[intMsgCnt])) && (strLowerMessage[intMsgCnt] != '-') && (strLowerMessage[intMsgCnt] != '+') && intMsgCnt != strLowerMessage.length()) { strPara += strLowerMessage[intMsgCnt]; intMsgCnt++; } @@ -3330,11 +3391,12 @@ class FromMsg { //ȡ string readDigit() { string strMum; - while (!isdigit(strMsg[intMsgCnt]) && intMsgCnt != strMsg.length())intMsgCnt++; - while (isdigit(strMsg[intMsgCnt])) { + while (!isdigit(static_cast(strMsg[intMsgCnt])) && intMsgCnt != strMsg.length())intMsgCnt++; + while (isdigit(static_cast(strMsg[intMsgCnt]))) { strMum += strMsg[intMsgCnt]; intMsgCnt++; } + if (strMsg[intMsgCnt] == ']')intMsgCnt++; return strMum; } //ȡȺ @@ -3343,10 +3405,24 @@ class FromMsg { if (strGroup.empty()) return 0; return stoll(strGroup); } + //Ƿɿʽ + bool isRollDice() { + readSkipSpace(); + if (isdigit(static_cast(strLowerMessage[intMsgCnt])) + || strLowerMessage[intMsgCnt] == 'd' || strLowerMessage[intMsgCnt] == 'k' + || strLowerMessage[intMsgCnt] == 'p' || strLowerMessage[intMsgCnt] == 'b' + || strLowerMessage[intMsgCnt] == 'f' + || strLowerMessage[intMsgCnt] == '+' || strLowerMessage[intMsgCnt] == '-' + || strLowerMessage[intMsgCnt] == 'a' + || strLowerMessage[intMsgCnt] == 'x' || strLowerMessage[intMsgCnt] == '*') { + return true; + } + else return false; + } //ȡʽ string readDice(){ string strDice; - while (isspace(strLowerMessage[intMsgCnt]))intMsgCnt++; + while (isspace(static_cast(strLowerMessage[intMsgCnt])))intMsgCnt++; while (isdigit(static_cast(strLowerMessage[intMsgCnt])) || strLowerMessage[intMsgCnt] == 'd' || strLowerMessage[intMsgCnt] == 'k' || strLowerMessage[intMsgCnt] == 'p' || strLowerMessage[intMsgCnt] == 'b' @@ -3355,7 +3431,7 @@ class FromMsg { || strLowerMessage[intMsgCnt] == 'a' || strLowerMessage[intMsgCnt] == 'x' || strLowerMessage[intMsgCnt] == '*') { - strDice += strLowerMessage[intMsgCnt]; + strDice += strMsg[intMsgCnt]; intMsgCnt++; } return strDice; @@ -3384,8 +3460,8 @@ class FromMsg { //ȡ string readItem() { string strMum; - while (isspace(strMsg[intMsgCnt]) || strMsg[intMsgCnt] == '|')intMsgCnt++; - while (!isspace(strMsg[intMsgCnt]) && strMsg[intMsgCnt] != '|'&& intMsgCnt != strMsg.length()) { + while (isspace(static_cast(strMsg[intMsgCnt])) || strMsg[intMsgCnt] == '|')intMsgCnt++; + while (strMsg[intMsgCnt] != '|'&& intMsgCnt != strMsg.length()) { strMum += strMsg[intMsgCnt]; intMsgCnt++; } diff --git a/Dice/DiceUpdate.cpp b/Dice/DiceUpdate.cpp index 25dc13de..e7664b78 100644 --- a/Dice/DiceUpdate.cpp +++ b/Dice/DiceUpdate.cpp @@ -32,8 +32,8 @@ EVE_Menu(eventDiceUpdate) { std::string ver; - if (!Network::GET("shiki.stringempty.xyz", "/DiceVer", 80, ver)) - { + //if (!Network::GET("api.kokona.tech", "/getExpVer", 5555, ver) && !Network::GET("shiki.stringempty.xyz", "/DiceVer", 80, ver)) { + if (!Network::GET("shiki.stringempty.xyz", "/DiceVer", 80, ver)) { MessageBoxA(nullptr, ("ʱ: \n" + ver).c_str(), "Dice!´", MB_OK | MB_ICONWARNING); return -1; } @@ -67,6 +67,7 @@ EVE_Menu(eventDiceUpdate) filePath = filePath.substr(0, filePath.find_last_of("\\")) + "\\app\\com.w4123.dice.cpk"; std::string fileContent; + //if (!Network::GET("api.kokona.tech", "/getExpDice", 5555, fileContent) && !Network::GET("shiki.stringempty.xyz", "/download/com.w4123.dice.cpk", 80, fileContent)) if (!Network::GET("shiki.stringempty.xyz", "/download/com.w4123.dice.cpk", 80, fileContent)) { MessageBoxA(nullptr, ("°汾ļʧ! ״̬! Ϣ: " + fileContent).c_str(), "Dice!´", MB_OK | MB_ICONERROR); diff --git a/Dice/EncodingConvert.cpp b/Dice/EncodingConvert.cpp index 8b219e22..05490fc6 100644 --- a/Dice/EncodingConvert.cpp +++ b/Dice/EncodingConvert.cpp @@ -24,6 +24,7 @@ #include #include #include +#include std::string GBKtoUTF8(const std::string& strGBK) { @@ -38,7 +39,14 @@ std::string GBKtoUTF8(const std::string& strGBK) delete[] str2; return strOutUTF8; } - +std::vector GBKtoUTF8(const std::vector &strGBK) +{ + std::vector vOutUTF8; + for (auto it : strGBK) { + vOutUTF8.push_back(GBKtoUTF8(it)); + } + return vOutUTF8; +} std::string UTF8toGBK(const std::string& strUTF8) { int len = MultiByteToWideChar(CP_UTF8, 0, strUTF8.c_str(), -1, nullptr, 0); @@ -52,7 +60,14 @@ std::string UTF8toGBK(const std::string& strUTF8) delete[] wszGBK; return strTemp; } - +std::vector UTF8toGBK(const std::vector &vUTF8) +{ + std::vector vOutGBK; + for (auto it : vUTF8) { + vOutGBK.push_back(UTF8toGBK(it)); + } + return vOutGBK; +} unsigned char ToHex(const unsigned char x) { return x > 9 ? x + 55 : x + 48; diff --git a/Dice/EncodingConvert.h b/Dice/EncodingConvert.h index 95a30bc0..7782a881 100644 --- a/Dice/EncodingConvert.h +++ b/Dice/EncodingConvert.h @@ -24,8 +24,19 @@ #ifndef DICE_ENCODING_CONVERT #define DICE_ENCODING_CONVERT #include +#include std::string GBKtoUTF8(const std::string& strGBK); +std::vector GBKtoUTF8(const std::vector &strGBK); +template +T GBKtoUTF8(T TGBK) { + return TGBK; +} std::string UTF8toGBK(const std::string& strUTF8); +std::vector UTF8toGBK(const std::vector &strUTF8); +template +T UTF8toGBK(T TUTF8) { + return TUTF8; +} std::string UrlEncode(const std::string& str); std::string UrlDecode(const std::string& str); #endif /*DICE_ENCODING_CONVERT*/ diff --git a/Dice/GlobalVar.cpp b/Dice/GlobalVar.cpp index 6e16fd5a..b07dd98b 100644 --- a/Dice/GlobalVar.cpp +++ b/Dice/GlobalVar.cpp @@ -35,8 +35,8 @@ CQ::logger DiceLogger("Dice!"); * ޸Dice_Build, Dice_Ver_Without_BuildDiceRequestHeaderԼDice_Ver * ޸Dice_Short_VerDice_Full_VerԴﵽ汾Զ */ -const unsigned short Dice_Build = 543; -const std::string Dice_Ver_Without_Build = "2.3.8Express7"; +const unsigned short Dice_Build = 547; +const std::string Dice_Ver_Without_Build = "2.3.8Express8"; const std::string DiceRequestHeader = "Dice/2.3.8"; const std::string Dice_Ver = Dice_Ver_Without_Build + "(" + std::to_string(Dice_Build) + ")"; const std::string Dice_Short_Ver = "Dice! by Shiki.Ver " + Dice_Ver; @@ -64,6 +64,9 @@ const std::string Dice_Full_Ver = Dice_Short_Ver + " [UNKNOWN COMPILER]" std::map GlobalMsg { + {"strParaEmpty","Ϊա"}, //͵ܻظ + {"strReplySet","ؼ{0}Ļظ"}, + {"strReplyDel","ؼ{0}Ļظ"}, {"strStModify","Ѽ¼{0}Ա仯:"}, //ڼֵ仯ʱʹôı {"strStDetail","{0}ԣ"}, //ʱʹôı(ʱ) {"strStValEmpty","δ¼{0}ԭֵ"}, //{0}Ϊ @@ -106,7 +109,8 @@ std::map GlobalMsg {"strLinkWarning","Դʱţ֤ܷͨ"}, {"strLinkNotFound","ʱҪͨ򲻿״ĵطˡ"}, {"strNotMaster","㲻DZ˵masterʲô"}, - {"strDismiss", ""}, + {"strNotAdmin","㲻DZ˵ĹԱ"}, + {"strDismiss", ""}, //.dismissȺǰĻִ {"strHlpSet","Ϊ{0}ô"}, {"strHlpReset","{0}ĴӦúĬϴ"}, {"strHlpNameEmpty","MasterҪԶʲôѽ"}, @@ -130,6 +134,7 @@ std::map GlobalMsg {"strObExit","ɹ˳Թģʽ!"}, {"strObEnterAlready","ѾԹģʽ!"}, {"strObExitAlready","ûмԹģʽ!"}, + {"strQQIDEmpty","QQŲΪա"}, {"strGroupIDEmpty","ȺŲΪա"}, {"strBlackGroup", "ȺںУϵmaster"}, {"strBotOn","ɹ!"}, @@ -169,6 +174,9 @@ std::map GlobalMsg {"strMEDisabledErr", "ԱڴȺн.me!"}, {"strDisabledMeGlobal", "ˡṩ.me"}, {"strDisabledJrrpGlobal", "ˡṩ.jrrp"}, + {"strDisabledDeckGlobal", "ˡṩ.deck"}, + {"strDisabledDrawGlobal", "ˡṩ.draw"}, + {"strDisabledSendGlobal", "ˡṩ.send"}, {"strHELPDisabledErr", "ԱڴȺн.help!"}, {"strNameDelErr", "û,޷ɾ!"}, {"strValueErr", "ʽ!"}, @@ -217,6 +225,13 @@ std::map GlobalMsg {"strPreserve", "˽˽ã"}, {"strJrrp", "{0}Ʒֵ: {1}"}, {"strJrrpErr", "JRRPȡʧ! Ϣ: \n{0}"}, + { "strAddFriendWhiteQQ","" }, //ǿգûӺʱظ˾ + { "strAddFriend", R"(ӭʹñˣ +.helpЭ ȷϷЭ +.helpָ 鿴ָб +.help趨 ȷ趨 +.help 鿴Դĵ +ʹ÷ĬѾͬЭ)" }, //ͬӺʱⷢ͵ {"strAddGroup", R"(ӭʹñˣ ʹ.dismiss QQţλ ʹȺ .bot on/off QQţλ //ر @@ -224,7 +239,7 @@ std::map GlobalMsg .helpָ 鿴ָб .help趨 ȷ趨 .help 鿴Դĵ -ǧ뵱ȻΪ˺ͱһ)" }, +ȺĬΪͬЭ)" }, {"strSelfName", ""}, {"strBotMsg", "\nʹ.help 鿴˸"}, {"strHlpMsg" , Dice_Short_Ver + "\n" + @@ -240,7 +255,7 @@ std::map GlobalMsg std::map EditedMsg; std::map HelpDoc = { -{"","543.st仯ֵ\n542.deck\n541̨ޣͬ\n540Ԥִı\n539Żؼ\n537.send\n535˿ɱɳ춨\n533.rc/ra\n532ϢתܣǰMasterרã\n528.helpܣӲ"}, +{"","547ָ\n546б\n545Զdeck\n544̨\n543.st仯ֵ\n542.deck\n541̨ޣͬ\n540Ԥִı\n539Żؼ\n537.send\n535˿ɱɳ춨"}, {"Э","0.ЭShiki(DeathJudgementThe World)ķЭ顣㿴仰ζMasterӦĬЭ飬ע⡣\n1.ʹȺĶЭΪͬⲢŵشЭ飬ʹ.dismissƳ\n2.ԡƳˢȶIJΪЩΪﱻƲõķաӦʹ.bot on/off\n3.ĬΪȵõȺͬ⣬ԶͬȺ롣ʹΪʱδԤеΡ\n4.ֹڶIJΥΪ\n5.dzƵ޷ԤпΪܻұܾṩ\n6.ڼԼʽԭ޷֤100%ʱȶУܲʱͣάᣬӦἰʱ֪ͨͨ½⡣ʱͣﲻκӦʶӰȺڻ״̬ȻֹΪ\n7.ΥЭΪォֹûȺṩ񣬲¼ṩ˿ṩЭ̣ղöȨڷṩ\n8.ЭʱпܸĶעϢǩռ䡢ٷȺȴﶯ̬\n9.ṩȫѵģӭͶʳ\n10.սȨṩС"}, {"","鿴Դ:https://github.com/w4123/Dice/tree/Shiki\n:https://github.com/w4123/Dice/releases\nٷĵ:https://www.stringempty.xyz\nż¼ɫ:https://logpainter.kokona.tech"}, {"趨","Master\n.meʹãֹ\n.jrrpʹã\n봦ƣǽ\nʹã\nƳƣȺͲ\nԷƣĬȺȺ\nˢƣ\nΣ\nܣ\n\nٷȺ941980833\n˽Ⱥ192499947"}, @@ -296,8 +311,9 @@ std::map HelpDoc = { {"ǿ춨","&en"}, {"en","ɳ춨.en []([ֵ])(([ʧܳɳֵ]/)[ɹɳֵ])\nѾ.stʱʡIJ\n.en 60 +1D10 ǿ\t//ӳɹʱɳֵ\n.en +1D3/1D10˳ɳ\t//│ʱɳֵԶ\nɱɳֵԼӼſͷƼӼ"}, {"","&draw"}, -{"draw","ƣ.draw [ƶ] ([])\t//鵽ƲŻأܳƶ\nǰƶӲ/ɫ/齫/˿˻ɫ/˿\nԱְҵ/Ա/Ӣ츳/ú//˼/Ҫ֮/Ҫ֮/Ƿ֮/֮/Աص/ʱ֢״/֢ܽ״/־֢״/֢״/\nӪ/޻ɫ/ðյ/\nżʾ/ż/żƬ/\nAMGC/AMGC/AMGCר/AMGC/AMGCװ/AMGC/AMGCؼ1/AMGCؼ2/AMGCؼ3\n///ռ//ʥ/Ҫ/Сʮ/â/ʮ\n.helpλ+򣩿ɻȡƽ"}, +{"draw","ƣ.draw [ƶ] ([])\t//鵽ƲŻأܳƶ\nǰƶѣӲ/Ա/\nԱְҵ/Ա/Ӣ츳/ú//˼/Ҫ֮/Ҫ֮/Ƿ֮/֮/Աص/ʱ֢״/֢ܽ״/־֢״/֢״/\nӪ/޻ɫ/ðյ/\nżʾ/ż/żƬ/ż/\nAMGC/AMGC/AMGCר/AMGC/AMGCװ/AMGC/AMGCؼ1/AMGCؼ2/AMGCؼ3\n///ռ//ʥ/Ҫ/Сʮ/â/ʮ\n.helpλ+򣩿ɻȡƽ\nmaster.helpչƶ"}, {"ȹ","&ri"}, +{"չƶ","˴չʾmasterӵƶ"}, {"ri","ȹȺ޶.ri([ֵ])([dz])\n.ri -1 ijpc\t//Զȹб\n.ri +5 boss"}, {"ȹб","&init"}, {"init","ȹб\n.init\t//鿴ȹб\n.init clr\t//ȹб"}, diff --git a/Dice/Jsonio.h b/Dice/Jsonio.h new file mode 100644 index 00000000..0688abe0 --- /dev/null +++ b/Dice/Jsonio.h @@ -0,0 +1,84 @@ +#pragma once +#include +#include +#include +#include "json.hpp" +#include "EncodingConvert.h" + +template +typename std::enable_if::value, T>::type readJKey(std::string strJson) { + return UTF8toGBK(strJson); +} +template +typename std::enable_if::value, T>::type readJKey(std::string strJson) { + return stoll(strJson); +} + +template +int readJson(std::string strJson, std::map &mapTmp) { + nlohmann::json j; + int intCnt; + try { + j = nlohmann::json::parse(strJson); + for (nlohmann::json::iterator it = j.begin(); it != j.end(); ++it) + { + T1 tKey = readJKey(it.key()); + T2 tVal = it.value(); + tVal = UTF8toGBK(tVal); + mapTmp[tKey] = tVal; + intCnt++; + } + } + catch (...) { + return -1; + } + return intCnt; +} + +template +int loadJMap(std::string strLoc, std::map &mapTmp) { + std::ifstream fin(strLoc); + if (fin) { + nlohmann::json j; + try { + fin >> j; + for (nlohmann::json::iterator it = j.begin(); it != j.end(); ++it) + { + T1 tKey = readJKey(it.key()); + T2 tVal = it.value(); + tVal = UTF8toGBK(tVal); + mapTmp[tKey] = tVal; + } + } + catch (...) { + fin.close(); + return -1; + } + } + fin.close(); + return 0; +} + +template +std::string writeJKey(typename std::enable_if::value, T>::type strJson) { + return GBKtoUTF8(strJson); +} +template +std::string writeJKey(typename std::enable_if::value, T>::type llJson) { + return std::to_string(llJson); +} + +template +int saveJMap(std::string strLoc, std::map mapTmp) { + if (mapTmp.empty())return 0; + std::ofstream fout(strLoc); + if (fout) { + nlohmann::json j; + for (auto it : mapTmp) { + j[writeJKey(it.first)] = GBKtoUTF8(it.second); + } + fout << j; + fout.close(); + } + return 0; +} \ No newline at end of file diff --git a/Dice/RD.h b/Dice/RD.h index d1498f4e..26678811 100644 --- a/Dice/RD.h +++ b/Dice/RD.h @@ -88,7 +88,7 @@ class RD if (intTmpResOnce >= AddDiceVal) AddNum++; } - if (intCnt > 9)sort(vintTmpRes.end() - intCnt, vintTmpRes.end()); + if (intCnt > 10)sort(vintTmpRes.end() - intCnt, vintTmpRes.end()); intDiceCnt = AddNum; } if (boolNegative) @@ -276,7 +276,7 @@ class RD intTotal -= intTmpRes * intMultiplier; else intTotal += intTmpRes * intMultiplier; - if (vintTmpRes.size() > 9)sort(vintTmpRes.begin(), vintTmpRes.end()); + if (vintTmpRes.size() > 20)sort(vintTmpRes.begin(), vintTmpRes.end()); vvintRes.push_back(vintTmpRes); vintRes.push_back(intTmpRes * intMultiplier); return 0; @@ -317,7 +317,7 @@ class RD else intTotal += intTmpRes * intMultiplier; vintRes.push_back(intTmpRes); - if (vintTmpRes.size() > 9)sort(vintTmpRes.begin(), vintTmpRes.end()); + if (vintTmpRes.size() > 20)sort(vintTmpRes.begin(), vintTmpRes.end()); vvintRes.push_back(vintTmpRes); return 0; } diff --git a/Dice/RDConstant.h b/Dice/RDConstant.h index 50bbf3b8..a778126b 100644 --- a/Dice/RDConstant.h +++ b/Dice/RDConstant.h @@ -99,6 +99,7 @@ static std::map SkillNameReplace = { {"", ""}, {"ǹ", "ǹ"}, {"", "캽"}, + {"", ""}, {"", "ʻ"}, {"ʻ", "ʻ"}, {"ʻ()", "ʻ"}, diff --git a/Dice/app.json b/Dice/app.json index 22b87db4..62341ff8 100644 --- a/Dice/app.json +++ b/Dice/app.json @@ -2,8 +2,8 @@ "ret": 1, "apiver": 9, "name": "Dice!", - "version": "2.3.8Express7", - "version_id": 543, + "version": "2.3.8Express8", + "version_id": 547, "author": "w4123溯洄 Shiki", "description": "跑团用骰子 本程序使用AGPLv3开源协议授权 Copyright (c) 2018-2019 w4123溯洄 Shiki", "event": [ @@ -101,7 +101,7 @@ } ], "auth": [ - 20, //取好友列表 getFriendList + //20, //取好友列表 getFriendList 101, //发送群消息 sendGroupMsg 103, //发送讨论组消息 sendDiscussMsg 106, //发送私聊消息 sendPrivateMsg