]>
cygwin.com Git - cygwin-apps/setup.git/blob - fromcwd.cc
2 * Copyright (c) 2000, Red Hat, Inc.
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.
9 * A copy of the GNU General Public License can be found at
12 * Written by DJ Delorie <dj@cygnus.com>
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. */
29 static const char *cvsid
=
47 #include "filemanip.h"
54 #include "package_db.h"
55 #include "package_meta.h"
56 #include "package_version.h"
57 #include "cygpackage.h"
60 is_test_version (char *v
)
63 for (i
= 0; v
[i
] && isdigit (v
[i
]); i
++);
64 return (i
>= 6) ? 1 : 0;
69 found_file (char *path
, unsigned int fsize
)
73 if (!parse_filename (path
, f
))
76 if (f
.what
.size() != 0)
80 packagemeta
&p
= db
.packages
.registerbykey (f
.pkg
);
81 packageversion
*pv
= new cygpackage (f
.pkg
);
82 ((cygpackage
*)pv
)->set_canonical_version (f
.ver
);
84 pv
->bin
.set_cached (String ("file://") + path
);
86 // patch or src, assume src until someone complains
87 pv
->src
.set_cached (String ("file://") + path
);
89 // check for a duplciate version FIXME make this a method or friend
93 for (size_t n
= 1; !merged
&& n
<= p
.versions
.number (); n
++)
94 if (!p
.versions
[n
]->Canonical_version().casecompare (pv
->Canonical_version()))
96 /* Copy the binary mirror across if this site claims to have an install */
97 if (pv
->bin
.sites
.number ())
98 p
.versions
[n
]->bin
.sites
.registerbykey (pv
->bin
.sites
[1]->key
);
100 if (pv
->src
.sites
.number ())
101 p
.versions
[n
]->src
.sites
.registerbykey (pv
->src
.sites
[1]->key
);
102 /* Copy the descriptions across */
103 if (pv
->SDesc ().size() && !p
.versions
[n
]->SDesc ().size())
104 p
.versions
[n
]->set_sdesc (pv
->SDesc ());
105 if (pv
->LDesc ().size() && !p
.versions
[n
]->LDesc ().size())
106 p
.versions
[n
]->set_ldesc (pv
->LDesc ());
114 // This is handled by the scan2 - there is no need for duplication - or is there?
116 int trust
= is_test_version (f
.ver
) ? TRUST_TEST
: TRUST_CURR
;
118 /* See if this version is older than what we have */
119 if (p
->info
[trust
].version
)
121 char *ov
= canonicalize_version (p
->info
[trust
].version
);
122 char *nv
= canonicalize_version (f
.ver
);
123 if (strcmp (ov
, nv
) > 0)
127 if (p
->info
[trust
].version
)
128 free (p
->info
[trust
].version
);
129 p
->info
[trust
].version
= _strdup (f
.ver
);
131 if (p
->info
[trust
].install
)
132 free (p
->info
[trust
].install
);
133 p
->info
[trust
].install
= _strdup (path
);
135 p
->info
[trust
].install_size
= fsize
;
139 static bool found_ini
;
142 check_ini (char *path
, unsigned int fsize
)
144 if (fsize
&& strstr (path
, "setup.ini"))
149 do_fromcwd (HINSTANCE h
, HWND owner
)
151 // Assume we won't find the INI file.
153 find (".", check_ini
);
156 // Found INI, load it.
157 next_dialog
= IDD_S_LOAD_INI
;
161 next_dialog
= IDD_CHOOSER
;
163 find (".", found_file
);
166 // Reinstate this FIXME: Replace obsolete structures first
167 // Now see about source tarballs
170 char srcpath
[_MAX_PATH
];
171 for (i
= 0; i
< npackages
; i
++)
174 /* For each version with a binary after running find */
175 for (t
= TRUST_PREV
; t
<= TRUST_TEST
; t
++)
176 if (p
->info
[t
].install
)
178 /* Is there a -src file too? */
179 int n
= find_tar_ext (p
->info
[t
].install
);
180 strcpy (srcpath
, p
->info
[t
].install
);
181 strcpy (srcpath
+ n
, "-src.tar.gz");
182 msg ("looking for %s", srcpath
);
185 HANDLE h
= FindFirstFile (srcpath
, &wfd
);
186 if (h
== INVALID_HANDLE_VALUE
)
188 strcpy (srcpath
+ n
, "-src.tar.bz2");
189 h
= FindFirstFile (srcpath
, &wfd
);
191 if (h
!= INVALID_HANDLE_VALUE
)
195 p
->info
[t
].source
= _strdup (srcpath
);
196 p
->info
[t
].source_size
= wfd
.nFileSizeLow
;
This page took 0.096359 seconds and 5 git commands to generate.