(JU+20AD3): Apply new conventions for glyph granularity.
[chise/xemacs-chise.git] / netinstall / fromcwd.cc
1 /*
2  * Copyright (c) 2000, Red Hat, Inc.
3  *
4  *     This program is free software; you can redistribute it and/or modify
5  *     it under the terms of the GNU General Public License as published by
6  *     the Free Software Foundation; either version 2 of the License, or
7  *     (at your option) any later version.
8  *
9  *     A copy of the GNU General Public License can be found at
10  *     http://www.gnu.org/
11  *
12  * Written by DJ Delorie <dj@cygnus.com>
13  *
14  */
15
16 /* The purpose of this file is to handle the case where we're
17    installing from files that already exist in the current directory.
18    If a setup.ini file is present, we set the mirror site to "." and
19    pretend we're installing from the `internet' ;-) else we have to
20    find all the .tar.gz files, deduce their versions, and try to
21    compare versions in the case where the current directory contains
22    multiple versions of any given package.  We do *not* try to compare
23    versions with already installed packages; we always choose a
24    package in the current directory over one that's already installed
25    (otherwise, why would you have asked to install it?).  Note
26    that we search recursively. */
27
28 #include "win32.h"
29
30 #include <stdio.h>
31 #include <stdlib.h>
32 #include <io.h>
33 #include <ctype.h>
34 #ifndef WIN32_NATIVE
35 #include <unistd.h>
36 #endif
37
38 #include "ini.h"
39 #include "resource.h"
40 #include "concat.h"
41 #include "state.h"
42 #include "dialog.h"
43 #include "msg.h"
44 #include "find.h"
45 #include "version.h"
46
47 #include "port.h"
48
49 static int
50 is_test_version (char *v)
51 {
52   int i;
53   for (i=0; v[i] && isdigit (v[i]); i++) ;
54   return (i >= 6) ? 1 : 0;
55 }
56
57 char *
58 canonicalize_version (char *v)
59 {
60   static char nv[3][100];
61   static int idx = 0;
62   char *np, *dp;
63   int i;
64
65   idx = (idx+1) % 3;
66   np = nv[idx];
67
68   while (*v)
69     {
70       if (isdigit (*v))
71         {
72           for (dp=v; *dp && isdigit (*dp); dp++) ;
73           for (i=dp-v; i<12; i++)
74             *np++ = '0';
75           while (v < dp)
76             *np++ = *v++;
77         }
78       else
79         *np++ = *v++;
80     }
81   *np++ = 0;
82   return nv[idx];
83 }
84
85 static void
86 found_file (char *path, unsigned int fsize)
87 {
88   char base[_MAX_PATH], *ver;
89
90   int l = strlen (path);
91
92   if (strcmp (path + l - 7, ".tar.gz") != 0)
93     return;
94   if (strstr (path, "-src."))
95     return;
96   if (strstr (path, "-patch."))
97     return;
98
99   char *sl = strrchr (path, '/');
100   if (sl)
101     sl ++;
102   else
103     sl = path;
104   strcpy (base, sl);
105   base[strlen (base) - 7] = 0; /* remove .tar.gz */
106   for (ver=base; *ver; ver++)
107     if ((*ver == '-' || *ver == '_') && isdigit (ver[1]))
108       {
109         *ver++ = 0;
110         break;
111       }
112
113   Package *p = 0;
114   int i;
115
116   for (i=0; i<npackages; i++)
117     if (strcmp (package[i].name, base) == 0)
118       {
119         p = package + i;
120         break;
121       }
122   if (p == 0)
123       p = new_package (strdup (base));
124
125   int trust = is_test_version (ver) ? TRUST_TEST : TRUST_CURR;
126   if (!*ver)
127     trust = TRUST_PREV;
128
129   /* See if this version is older than what we have */
130   if (p->info[trust].version)
131     {
132       char *ov = canonicalize_version (p->info[trust].version);
133       char *nv = canonicalize_version (ver);
134       if (strcmp (ov, nv) > 0)
135         return;
136     }
137
138   l = strlen (base);
139   if (l >= 5 && strcmp (base + l - 5, "win32") == 0)
140     p->type = TY_NATIVE;
141   if (l >= 8 && strcmp (base + l - 8, "cygwin32") == 0)
142     p->type = TY_CYGWIN;
143
144   p->info[trust].version = strdup (ver);
145   p->info[trust].install = strdup (path);
146   p->info[trust].install_size = fsize;
147 }
148
149 void
150 do_fromcwd (HINSTANCE h)
151 {
152   if (_access ("./setup.ini", 0) == 0)
153     {
154       mirror_site = ".";
155       next_dialog = IDD_S_LOAD_INI;
156       return;
157     }
158
159   next_dialog = IDD_CHOOSE;
160
161   find (".", found_file);
162
163   // Now see about source tarballs
164   int i, t;
165   Package *p;
166   char srcpath[_MAX_PATH];
167   for (i=0; i<npackages; i++)
168     {
169       p = package+i;
170       for (t=TRUST_PREV; t<=TRUST_TEST; t++)
171         if (p->info[t].install)
172           {
173             strcpy (srcpath, p->info[t].install);
174             strcpy (srcpath + strlen (srcpath) - 7, "-src.tar.gz");
175             msg ("looking for %s", srcpath);
176
177             WIN32_FIND_DATA wfd;
178             HANDLE h = FindFirstFile (srcpath, &wfd);
179             if (h != INVALID_HANDLE_VALUE)
180               {
181                 msg("-- got it");
182                 FindClose (h);
183                 p->info[t].source = strdup (srcpath);
184                 p->info[t].source_size = wfd.nFileSizeLow;
185               }
186           }
187     }
188
189   return;
190 }