Mercurial > hg > index.cgi

annotate lwar/lwar.c @ 558:7fb2047ccdee

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Flag version number to indicate ongoing development
author William Astle <lost@l-w.ca>
date Fri, 08 Sep 2023 00:35:43 -0600
parents 45df37e81741
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization
lost@l-w.ca
parents:
diff changeset
1 /*
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization
lost@l-w.ca
parents:
diff changeset
2 lwar.c
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization
lost@l-w.ca
parents:
diff changeset
3 Copyright © 2009 William Astle
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization
lost@l-w.ca
parents:
diff changeset
4
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization
lost@l-w.ca
parents:
diff changeset
5 This file is part of LWAR.
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization
lost@l-w.ca
parents:
diff changeset
6
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization
lost@l-w.ca
parents:
diff changeset
7 LWAR is free software: you can redistribute it and/or modify it under the
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization
lost@l-w.ca
parents:
diff changeset
8 terms of the GNU General Public License as published by the Free Software
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization
lost@l-w.ca
parents:
diff changeset
9 Foundation, either version 3 of the License, or (at your option) any later
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization
lost@l-w.ca
parents:
diff changeset
10 version.
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization
lost@l-w.ca
parents:
diff changeset
11
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization
lost@l-w.ca
parents:
diff changeset
12 This program is distributed in the hope that it will be useful, but WITHOUT
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization
lost@l-w.ca
parents:
diff changeset
13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization
lost@l-w.ca
parents:
diff changeset
14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization
lost@l-w.ca
parents:
diff changeset
15 more details.
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization
lost@l-w.ca
parents:
diff changeset
16
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization
lost@l-w.ca
parents:
diff changeset
17 You should have received a copy of the GNU General Public License along with
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization
lost@l-w.ca
parents:
diff changeset
18 this program. If not, see <http://www.gnu.org/licenses/>.
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization
lost@l-w.ca
parents:
diff changeset
19
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization
lost@l-w.ca
parents:
diff changeset
20
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization
lost@l-w.ca
parents:
diff changeset
21 Implements the program startup code
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization
lost@l-w.ca
parents:
diff changeset
22
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization
lost@l-w.ca
parents:
diff changeset
23 */
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization
lost@l-w.ca
parents:
diff changeset
24
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization
lost@l-w.ca
parents:
diff changeset
25 #include <stdio.h>
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization
lost@l-w.ca
parents:
diff changeset
26 #include <stdlib.h>
427
45df37e81741 Add option to ignore paths when extracting or adding files with lwar
David Flamand <dlflamand@gmail.com>
parents: 386
diff changeset
27 #include <string.h>
0
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization
lost@l-w.ca
parents:
diff changeset
28 #include <sys/stat.h>
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization
lost@l-w.ca
parents:
diff changeset
29 #include <sys/types.h>
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization
lost@l-w.ca
parents:
diff changeset
30
9
6eed14cccac9 Switched lwar to lw_cmdline and brought in lwlib
lost@l-w.ca
parents: 0
diff changeset
31 #include <lw_alloc.h>
6eed14cccac9 Switched lwar to lw_cmdline and brought in lwlib
lost@l-w.ca
parents: 0
diff changeset
32
0
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization
lost@l-w.ca
parents:
diff changeset
33 #define __lwar_c_seen__
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization
lost@l-w.ca
parents:
diff changeset
34 #include "lwar.h"
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization
lost@l-w.ca
parents:
diff changeset
35
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization
lost@l-w.ca
parents:
diff changeset
36 typedef struct
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization
lost@l-w.ca
parents:
diff changeset
37 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization
lost@l-w.ca
parents:
diff changeset
38 FILE *f;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization
lost@l-w.ca
parents:
diff changeset
39 } arhandle_real;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization
lost@l-w.ca
parents:
diff changeset
40
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization
lost@l-w.ca
parents:
diff changeset
41 int debug_level = 0;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization
lost@l-w.ca
parents:
diff changeset
42 int operation = 0;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization
lost@l-w.ca
parents:
diff changeset
43 int nfiles = 0;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization
lost@l-w.ca
parents:
diff changeset
44 char *archive_file = NULL;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization
lost@l-w.ca
parents:
diff changeset
45 int mergeflag = 0;
427
45df37e81741 Add option to ignore paths when extracting or adding files with lwar
David Flamand <dlflamand@gmail.com>
parents: 386
diff changeset
46 int filename_flag = 0;
0
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization
lost@l-w.ca
parents:
diff changeset
47
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization
lost@l-w.ca
parents:
diff changeset
48 char **files = NULL;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization
lost@l-w.ca
parents:
diff changeset
49
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization
lost@l-w.ca
parents:
diff changeset
50 void add_file_name(char *fn)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization
lost@l-w.ca
parents:
diff changeset
51 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization
lost@l-w.ca
parents:
diff changeset
52 files = lw_realloc(files, sizeof(char *) * (nfiles + 1));
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization
lost@l-w.ca
parents:
diff changeset
53 files[nfiles] = fn;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization
lost@l-w.ca
parents:
diff changeset
54 nfiles++;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization
lost@l-w.ca
parents:
diff changeset
55 }
427
45df37e81741 Add option to ignore paths when extracting or adding files with lwar
David Flamand <dlflamand@gmail.com>
parents: 386
diff changeset
56
45df37e81741 Add option to ignore paths when extracting or adding files with lwar
David Flamand <dlflamand@gmail.com>
parents: 386
diff changeset
57 char *get_file_name(char *fn)
45df37e81741 Add option to ignore paths when extracting or adding files with lwar
David Flamand <dlflamand@gmail.com>
parents: 386
diff changeset
58 {
45df37e81741 Add option to ignore paths when extracting or adding files with lwar
David Flamand <dlflamand@gmail.com>
parents: 386
diff changeset
59 char *filename;
45df37e81741 Add option to ignore paths when extracting or adding files with lwar
David Flamand <dlflamand@gmail.com>
parents: 386
diff changeset
60 if (filename_flag != 0)
45df37e81741 Add option to ignore paths when extracting or adding files with lwar
David Flamand <dlflamand@gmail.com>
parents: 386
diff changeset
61 {
45df37e81741 Add option to ignore paths when extracting or adding files with lwar
David Flamand <dlflamand@gmail.com>
parents: 386
diff changeset
62 #ifdef _MSC_VER
45df37e81741 Add option to ignore paths when extracting or adding files with lwar
David Flamand <dlflamand@gmail.com>
parents: 386
diff changeset
63 filename = strrchr(fn, '\\');
45df37e81741 Add option to ignore paths when extracting or adding files with lwar
David Flamand <dlflamand@gmail.com>
parents: 386
diff changeset
64 #else
45df37e81741 Add option to ignore paths when extracting or adding files with lwar
David Flamand <dlflamand@gmail.com>
parents: 386
diff changeset
65 filename = strrchr(fn, '/');
45df37e81741 Add option to ignore paths when extracting or adding files with lwar
David Flamand <dlflamand@gmail.com>
parents: 386
diff changeset
66 #endif
45df37e81741 Add option to ignore paths when extracting or adding files with lwar
David Flamand <dlflamand@gmail.com>
parents: 386
diff changeset
67 if (filename != NULL)
45df37e81741 Add option to ignore paths when extracting or adding files with lwar
David Flamand <dlflamand@gmail.com>
parents: 386
diff changeset
68 return filename + 1;
45df37e81741 Add option to ignore paths when extracting or adding files with lwar
David Flamand <dlflamand@gmail.com>
parents: 386
diff changeset
69 }
45df37e81741 Add option to ignore paths when extracting or adding files with lwar
David Flamand <dlflamand@gmail.com>
parents: 386
diff changeset
70 return fn;
45df37e81741 Add option to ignore paths when extracting or adding files with lwar
David Flamand <dlflamand@gmail.com>
parents: 386
diff changeset
71 }