| Line 1... |
Line 1... |
| 1 |
/*
|
1 |
/*
|
| 2 |
* R : A Computer Language for Statistical Data Analysis
|
2 |
* R : A Computer Language for Statistical Data Analysis
|
| 3 |
* file dounzip.c
|
3 |
* file dounzip.c
|
| 4 |
* first part Copyright (C) 2002-2025 The R Core Team
|
4 |
* first part Copyright (C) 2002-2026 The R Core Team
|
| 5 |
* second part Copyright (C) 1998-2010 Gilles Vollant
|
5 |
* second part Copyright (C) 1998-2010 Gilles Vollant
|
| 6 |
*
|
6 |
*
|
| 7 |
* This program is free software; you can redistribute it and/or modify
|
7 |
* This program is free software; you can redistribute it and/or modify
|
| 8 |
* it under the terms of the GNU General Public License as published by
|
8 |
* it under the terms of the GNU General Public License as published by
|
| 9 |
* the Free Software Foundation; either version 2 of the License, or
|
9 |
* the Free Software Foundation; either version 2 of the License, or
|
| Line 329... |
Line 329... |
| 329 |
error("error %d with zipfile in unzGetCurrentFileInfo\n", err);
|
329 |
error("error %d with zipfile in unzGetCurrentFileInfo\n", err);
|
| 330 |
}
|
330 |
}
|
| 331 |
/* In theory at least bit 11 of the flag tells us that the
|
331 |
/* In theory at least bit 11 of the flag tells us that the
|
| 332 |
filename is in UTF-8, so FIXME */
|
332 |
filename is in UTF-8, so FIXME */
|
| 333 |
SET_STRING_ELT(names, i, mkChar(filename_inzip));
|
333 |
SET_STRING_ELT(names, i, mkChar(filename_inzip));
|
| 334 |
REAL(lengths)[i] = file_info.uncompressed_size;
|
334 |
REAL(lengths)[i] = (double) file_info.uncompressed_size;
|
| 335 |
snprintf(date, 50, "%d-%02d-%02d %02d:%02d",
|
335 |
snprintf(date, 50, "%d-%02d-%02d %02d:%02d",
|
| 336 |
file_info.tmu_date.tm_year,
|
336 |
file_info.tmu_date.tm_year,
|
| 337 |
file_info.tmu_date.tm_mon + 1,
|
337 |
file_info.tmu_date.tm_mon + 1,
|
| 338 |
file_info.tmu_date.tm_mday,
|
338 |
file_info.tmu_date.tm_mday,
|
| 339 |
file_info.tmu_date.tm_hour,
|
339 |
file_info.tmu_date.tm_hour,
|
The R Project SVN
R