Mercurial > hg > xemacs-beta
annotate netinstall/nio-ie5.cc @ 1330:4542b72c005e
[xemacs-hg @ 2003-03-01 07:25:26 by ben]
build patch
Makefile.in.in: Move src deletions to src/Makefile.in.in.
dump-paths.el, dumped-lisp.el: Delete. Combine stuff into setup-paths.el.
find-paths.el: Removed.
Make this file contain generic routines only. Move stuff to
compute Emacs roots to setup-paths.el.
startup.el: Removed.
Move these variables into setup-paths.el.
setup-paths.el, startup.el: Removed.
Combine all high-level code for computing the paths into
setup-paths.el. Create new function startup-find-load-path to
encapsulate all logic for computing `load-path'. Eliminate
invocation-directory and invocation-name parameters since
there is no point (false generality) -- the code references
other globals, which cannot be specified. Eliminate some code
duplicated between setup-paths.el and startup.el. Clean up
the debug-paths code and output load-path in addition.
Add logic to paths-emacs-root-p to support separated source
and build trees.
loadup.el, make-docfile.el, update-elc-2.el, update-elc.el: Rewrite to allow for separated source and build trees, as may occur
in MS Windows.
NOTE TO BUILD HACKERS:
loadup.el, make-docfile.el, update-elc.el and update-elc-2.el made two
assumptions that are no longer correct:
(1) The source and build trees are in the same place.
(2) They can make assumptions about where `.' is.
These files now compute the locations of the source and build
roots at the top of the file. *ALL* constant file names or path
snippets must now be made absolute using expand-file-name and one
of these roots.
dumped-lisp.el, packages.el: Removed.
Remove some unused lists of Lisp files. packages-hardcoded-lisp
(empty, in any case) moved to dumped-lisp.el.
startup.el: When a compiled init file is out-of-date wrt the uncompiled
version, load the uncompiled version and issue a nasty warning.
update-elc-2.el: Force touching of auto-autoloads files when REBUILD_AUTOLOADS
was set.
update-elc.el: Fix code that checks whether dumping is necessary to check against
xemacs.dmp, not xemacs.exe, when Unix and pdump.
lwlib-Xm.c: Fix compile warning.
README, config.inc.samp, xemacs.mak: -- Major reorganization and cleanup.
-- Add support for separated build tree and source tree.
-- Delete all support for X Windows building, since it's
totally bit-rotten and will never be fixed up. Instruct
people to use Cygwin if they want such support.
make-build-dir: New script to create a skeleton build tree for use with
separated build and source tree compilation.
m/acorn.h, m/alliant-2800.h, m/alliant.h, m/altos.h, m/amdahl.h, m/arm.h, m/att3b.h, m/aviion.h, m/clipper.h, m/cnvrgnt.h, m/convex.h, m/cydra5.h, m/delta.h, m/delta88k.h, m/dpx2.h, m/elxsi.h, m/ews4800r.h, m/gould.h, m/hp800.h, m/hp9000s300.h, m/i860.h, m/ibmps2-aix.h, m/ibmrs6000.h, m/ibmrt-aix.h, m/ibmrt.h, m/intel386.h, m/iris4d.h, m/iris5d.h, m/iris6d.h, m/irist.h, m/m68k.h, m/masscomp.h, m/mg1.h, m/mips-nec.h, m/mips-siemens.h, m/mips.h, m/nh3000.h, m/nh4000.h, m/ns32000.h, m/plexus.h, m/powerpc.h, m/sequent-ptx.h, m/sequent.h, m/sgi-challenge.h, m/stride.h, m/tad68k.h, m/targon31.h, m/tekxd88.h, m/template.h, m/tower32.h, m/tower32v3.h, m/ustation.h, m/wicat.h, m/xps100.h, data.c, doc.c, editfns.c, emacs.c, lrecord.h, ntheap.c, process-unix.c, sysdep.c, unexec.c: Delete all support for bit-rotten CANNOT_DUMP. Just use pdump.
Makefile.in.in: Lots o' cleanup. Use names like LISP, SRC instead of
lispdir, srcdir, for consistency with xemacs.mak and the
conventions in the rest of the file. Eliminate use of ${...}
in favor of $(...), to make it easier to move code between
this file and xemacs.mak. Fix dependency handling wrt
NEEDTODUMP to eliminate problems some people (e.g. Vin) have
been seeing with non-GNU makes. Write a long section about
the subtle but oh-so-important differences in dependency
processing between nmake, make, and GNU make. Add
unicode-encapsulate target, from xemacs.mak.
chartab.c, lrecord.h: Fix crash due to attempt to free objects across dump/undump.
| author | ben |
|---|---|
| date | Sat, 01 Mar 2003 07:25:56 +0000 |
| parents | ce0b3f2eff35 |
| children |
| rev | line source |
|---|---|
| 448 | 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 manage internet downloads using the | |
| 17 Internet Explorer version 5 DLLs. To use this method, the user | |
| 18 must already have installed and configured IE5. This module is | |
| 19 called from netio.cc, which is called from geturl.cc */ | |
| 20 | |
| 21 #include "win32.h" | |
| 22 | |
| 23 #include "resource.h" | |
| 24 #include "state.h" | |
| 25 #include "dialog.h" | |
| 26 #include "msg.h" | |
| 27 #include "netio.h" | |
| 28 #include "nio-ie5.h" | |
| 29 | |
| 30 static HINTERNET internet = 0; | |
| 31 | |
| 32 NetIO_IE5::NetIO_IE5 (char *_url) | |
| 33 : NetIO (_url) | |
| 34 { | |
| 35 int resend = 0; | |
| 36 | |
| 37 if (internet == 0) | |
| 38 { | |
| 39 HINSTANCE h = LoadLibrary ("wininet.dll"); | |
| 40 if (!h) | |
| 41 { | |
| 42 note (IDS_WININET); | |
| 43 connection = 0; | |
| 44 return; | |
| 45 } | |
| 46 InternetAttemptConnect (0); | |
| 47 internet = InternetOpen ("Cygwin Setup", INTERNET_OPEN_TYPE_PRECONFIG, | |
| 48 NULL, NULL, 0); | |
| 49 } | |
| 50 | |
| 51 DWORD flags = | |
| 52 INTERNET_FLAG_DONT_CACHE | | |
| 53 INTERNET_FLAG_KEEP_CONNECTION | | |
| 54 INTERNET_FLAG_PRAGMA_NOCACHE | | |
| 55 INTERNET_FLAG_RELOAD | | |
| 56 INTERNET_FLAG_EXISTING_CONNECT | | |
| 57 INTERNET_FLAG_PASSIVE; | |
| 58 | |
| 59 connection = InternetOpenUrl (internet, url, NULL, 0, flags, 0); | |
| 60 | |
| 61 try_again: | |
| 62 | |
| 63 if (net_user && net_passwd) | |
| 64 { | |
| 65 InternetSetOption (connection, INTERNET_OPTION_USERNAME, | |
| 66 net_user, strlen (net_user)); | |
| 67 InternetSetOption (connection, INTERNET_OPTION_PASSWORD, | |
| 68 net_passwd, strlen (net_passwd)); | |
| 69 } | |
| 70 | |
| 71 if (net_proxy_user && net_proxy_passwd) | |
| 72 { | |
| 73 InternetSetOption (connection, INTERNET_OPTION_PROXY_USERNAME, | |
| 74 net_proxy_user, strlen (net_proxy_user)); | |
| 75 InternetSetOption (connection, INTERNET_OPTION_PROXY_PASSWORD, | |
| 76 net_proxy_passwd, strlen (net_proxy_passwd)); | |
| 77 } | |
| 78 | |
| 79 if (resend) | |
| 80 if (!HttpSendRequest (connection, 0, 0, 0, 0)) | |
| 81 connection = 0; | |
| 82 | |
| 83 if (!connection) | |
| 84 { | |
| 85 if (GetLastError () == ERROR_INTERNET_EXTENDED_ERROR) | |
| 86 { | |
| 87 char buf[2000]; | |
| 88 DWORD e, l=sizeof (buf); | |
| 89 InternetGetLastResponseInfo (&e, buf, &l); | |
| 90 MessageBox (0, buf, "Internet Error", 0); | |
| 91 } | |
| 92 } | |
| 93 | |
| 94 DWORD type, type_s; | |
| 95 type_s = sizeof (type); | |
| 96 InternetQueryOption (connection, INTERNET_OPTION_HANDLE_TYPE, | |
| 97 &type, &type_s); | |
| 98 | |
| 99 switch (type) | |
| 100 { | |
| 101 case INTERNET_HANDLE_TYPE_HTTP_REQUEST: | |
| 102 case INTERNET_HANDLE_TYPE_CONNECT_HTTP: | |
| 103 type_s = sizeof (DWORD); | |
| 104 if (HttpQueryInfo (connection, | |
| 105 HTTP_QUERY_STATUS_CODE | HTTP_QUERY_FLAG_NUMBER, | |
| 106 &type, &type_s, NULL)) | |
| 107 { | |
| 108 if (type == 401) /* authorization required */ | |
| 109 { | |
| 110 flush_io(); | |
| 111 get_auth (); | |
| 112 resend = 1; | |
| 113 goto try_again; | |
| 114 } | |
| 115 else if (type == 407) /* proxy authorization required */ | |
| 116 { | |
| 117 flush_io(); | |
| 118 get_proxy_auth (); | |
| 119 resend = 1; | |
| 120 goto try_again; | |
| 121 } | |
| 122 else if (type >= 300) | |
| 123 { | |
| 124 connection = 0; | |
| 125 return; | |
| 126 } | |
| 127 } | |
| 128 } | |
| 129 } | |
| 130 | |
| 131 void | |
| 132 NetIO_IE5::flush_io () | |
| 133 { | |
| 134 DWORD actual = 0; | |
| 135 char buf[1024]; | |
| 136 do { | |
| 137 InternetReadFile (connection, buf, 1024, &actual); | |
| 138 } while (actual > 0); | |
| 139 } | |
| 140 | |
| 141 NetIO_IE5::~NetIO_IE5 () | |
| 142 { | |
| 143 if (connection) | |
| 144 InternetCloseHandle (connection); | |
| 145 } | |
| 146 | |
| 147 int | |
| 148 NetIO_IE5::ok () | |
| 149 { | |
| 150 return (connection == NULL) ? 0 : 1; | |
| 151 } | |
| 152 | |
| 153 int | |
| 154 NetIO_IE5::read (char *buf, int nbytes) | |
| 155 { | |
| 156 DWORD actual; | |
| 157 if (InternetReadFile (connection, buf, nbytes, &actual)) | |
| 158 return actual; | |
| 159 return -1; | |
| 160 } |