home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 7 / FreshFishVol7.bin / bbs / gnu / emacs-18.59-diffs.lha / GNU / src / diffs / emacs-18.59.diffs
Text File  |  1994-09-07  |  1MB  |  36,476 lines
  1. diff -rc --new-file emacs-18.59/Product-Info /gnu/src/amiga/emacs-18.59/Product-Info
  2. *** emacs-18.59/Product-Info    Thu Jan  1 00:00:00 1970
  3. --- /gnu/src/amiga/emacs-18.59/Product-Info    Tue Jul 12 17:05:44 1994
  4. ***************
  5. *** 0 ****
  6. --- 1,62 ----
  7. + .name
  8. + emacs
  9. + .fullname
  10. + GNU Emacs editor
  11. + .type
  12. + Text Editing
  13. + .short
  14. + GNU Emacs editor
  15. + .description
  16. + GNU Emacs is the GNU incarnation of the advanced, self-documenting,
  17. + customizable, extensible real-time display editor Emacs. (The `G' in
  18. + `GNU' is not silent.)
  19. + 
  20. + We say that Emacs is a "display" editor because normally the text
  21. + being edited is visible on the screen and is updated automatically as
  22. + you type your commands.
  23. + 
  24. + We call it a "real-time" editor because the display is updated very
  25. + frequently, usually after each character or pair of characters you
  26. + type.  This minimizes the amount of information you must keep in your
  27. + head as you edit.
  28. + 
  29. + We call Emacs advanced because it provides facilities that go beyond
  30. + simple insertion and deletion: filling of text; automatic indentation
  31. + of programs; viewing two or more files at once; and dealing in terms
  32. + of characters, words, lines, sentences, paragraphs, and pages, as well
  33. + as expressions and comments in several different programming
  34. + languages.  It is much easier to type one command meaning "go to the
  35. + end of the paragraph" than to find that spot with simple cursor keys.
  36. + 
  37. + "Self-documenting" means that at any time you can type a special
  38. + character, `Control-h', to find out what your options are.  You can
  39. + also use it to find out what any command does, or to find all the
  40. + commands that pertain to a topic.
  41. + 
  42. + "Customizable" means that you can change the definitions of Emacs
  43. + commands in little ways.  For example, if you use a programming
  44. + language in which comments start with `<**' and end with `**>', you
  45. + can tell the Emacs comment manipulation commands to use those strings.
  46. + Another sort of customization is rearrangement of the command set.
  47. + For example, if you prefer the four basic cursor motion commands (up,
  48. + down, left and right) on keys in a diamond pattern on the keyboard,
  49. + you can have it.
  50. + 
  51. + "Extensible" means that you can go beyond simple customization and
  52. + write entirely new commands, programs in the Lisp language to be run
  53. + by Emacs's own Lisp interpreter.  Emacs is an "on-line extensible"
  54. + system, which means that it is divided into many functions that call
  55. + each other, any of which can be redefined in the middle of an editing
  56. + session.  Any part of Emacs can be replaced without making a separate
  57. + copy of all of Emacs.  Most of the editing commands of Emacs are
  58. + written in Lisp already; the few exceptions could have been written in
  59. + Lisp but are written in C for efficiency.  Although only a programmer
  60. + can write an extension, anybody can use it afterward.
  61. + .version
  62. + 18.59
  63. + .author
  64. + Richard Stallman
  65. + .distribution
  66. + GNU Public License
  67. + .described-by
  68. + Fred Fish (fnf@amigalib.com)
  69. diff -rc --new-file emacs-18.59/amiga/README /gnu/src/amiga/emacs-18.59/amiga/README
  70. *** emacs-18.59/amiga/README    Thu Jan  1 00:00:00 1970
  71. --- /gnu/src/amiga/emacs-18.59/amiga/README    Tue Jul 12 10:00:08 1994
  72. ***************
  73. *** 0 ****
  74. --- 1,11 ----
  75. + This version of emacs is still built with SAS C.  It also requires
  76. + David Gay's unix emulation library, which can be found in the unix
  77. + subdirectory here.  You may have to go through some contortions to
  78. + recompile it though.
  79. + 
  80. + The files in amiga-extra are various things I received in the emacs
  81. + distribution from David Gay, but didn't have any time to examine
  82. + very closely, so they are stuck there in limbo for the time being.
  83. + 
  84. + -Fred  ><>
  85. +  12-Jul-94
  86. diff -rc --new-file emacs-18.59/amiga/amiga-extra/INSTALL.AMIGA /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/INSTALL.AMIGA
  87. *** emacs-18.59/amiga/amiga-extra/INSTALL.AMIGA    Thu Jan  1 00:00:00 1970
  88. --- /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/INSTALL.AMIGA    Sun May  9 18:19:06 1993
  89. ***************
  90. *** 0 ****
  91. --- 1,58 ----
  92. + DON'T FORGET: This version of Emacs REQUIRES AMIGADOS V2.04 !!
  93. + 
  94. + If you are updating from a previous version, the following steps apply:
  95. + - You must redefine your GNUEMACS: assign (the name of the directory
  96. +   has changed from emacs-18.58 to emacs-18.59).
  97. + - You should make sure you are using the lisp files (*.el and *.elc) which
  98. +   come with this release, as several of them have changed.
  99. + 
  100. + New users should do the following (assuming you are in the emacs-18.59
  101. + directory):
  102. + 
  103. + 1. Copy amiga/.emacs, amiga/.emacs-menu.menu, amiga/.emacs-menu.el to s:
  104. + 2. Copy amiga/c/#? to somewhere in your path.
  105. + 3. Add an assign GNUEMACS: <wherever you've put the emacs directory> to 
  106. +    your User-Startup.
  107. + 4. Install Matt Dillon's fifo.library and fifo: handler if you want to use
  108. +    external processes (This can be found on Fish disks). If you have any
  109. +    problems, try a version at least as recent as that on Fish Disk 588.
  110. + 5. Define various environment variables (these all have defaults, so this
  111. +    isn't absolutely necessary, except for ESHELL) :
  112. + 
  113. +      USER     - a username (a la Unix) (default "user")
  114. +      USERNAME - your full name (default same as $USER)
  115. +      HOME     - your "home" directory (This is the directory refered to
  116. +         by ~/<file>, and where the .emacs file is looked for)
  117. +         (default "s:").
  118. +      HOSTNAME - a name for your system (default "amiga")
  119. +      ESHELL   - where to find an unix-like shell (no default). By unix-like
  120. +         I mean that it should not open a window to get its input.
  121. +         The only tested value for this is GNUEMACS:etc/sh.
  122. + 
  123. +    For instance, I have the following values:
  124. +      USER: dgay, USERNAME: David E. Gay, HOSTNAME: owl,
  125. +      ESHELL: gnuemacs:etc/sh
  126. + 
  127. + 6. If you want to check that emacs is working, type 
  128. +  
  129. +   assign gnuemacs: ""
  130. +   emacs
  131. + 
  132. +    If all goes well, emacs should open a window. If you get
  133. +      memacs: Unknown command
  134. +    you have an alias for emacs. Try editing s:Shell-Startup and removing it.
  135. + 
  136. +    If you get
  137. +      emacs: file is not executable
  138. +    try typing
  139. +      protect <wherever you put the commands from step 2>/emacs +s
  140. + 
  141. +    And finally, if you get
  142. +      wrong number of arguments
  143. +      if failed returncode 10
  144. +    make sure that you have getstack in your path
  145. + 
  146. + 7. If you are going to use emacs over a serial line, you must install 
  147. +    the termcap file, which comes with the source version. To do so, type:
  148. + 
  149. +      join gnuemacs:etc/termcap.ucb gnuemacs:etc/termcap.amiga as s:termcap
  150. diff -rc --new-file emacs-18.59/amiga/amiga-extra/amiga/.emacs /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/.emacs
  151. *** emacs-18.59/amiga/amiga-extra/amiga/.emacs    Thu Jan  1 00:00:00 1970
  152. --- /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/.emacs    Sun Sep 20 10:06:40 1992
  153. ***************
  154. *** 0 ****
  155. --- 1 ----
  156. + ;; Put your configuration commands here.
  157. diff -rc --new-file emacs-18.59/amiga/amiga-extra/amiga/.emacs-menu.el /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/.emacs-menu.el
  158. *** emacs-18.59/amiga/amiga-extra/amiga/.emacs-menu.el    Thu Jan  1 00:00:00 1970
  159. --- /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/.emacs-menu.el    Sat May 16 13:53:06 1992
  160. ***************
  161. *** 0 ****
  162. --- 1 ----
  163. + (amiga-menus-set (quote (("Project" (("Open     C-x C-f" (call-interactively (quote find-file)) 79) ("Save     C-x C-s" (call-interactively (quote save-buffer)) 83) ("Save As  C-x C-w" (call-interactively (quote write-file)) 87) nil ("Quit     C-x C-c" (call-interactively (quote save-buffers-kill-emacs)) 81))) ("Edit" (("Undo            C-_" (call-interactively (quote undo)) 85) nil ("Mark            C-@" (call-interactively (quote set-mark-command)) 77) ("Cut             C-w" (call-interactively (quote kill-region)) 88) ("Copy            M-w" (call-interactively (quote copy-region-as-kill)) 67) ("Paste           C-y" (call-interactively (quote yank)) 86) ("Paste Previous  M-y" (call-interactively (quote yank-pop)) nil))) ("Search" (("Find Forward      C-s" (call-interactively (quote isearch-forward)) 70) ("Find Backward     C-r" (call-interactively (quote isearch-backward)) 66) nil ("Find Fwd Regexp   M-C-s" (call-interactively (quote isearch-forward-regexp)) nil) ("Find Bwd Regexp" (call-interactively (quote isearch-backward-regexp)) nil) nil ("Query Replace     M-%" (call-interactively (quote query-replace)) 82) ("Query Rpl Regexp" (call-interactively (quote query-replace-regexp)) nil))) ("Window" (("Split       C-x 2" (call-interactively (quote split-window-vertically)) 50) ("Split H     C-x 5" (call-interactively (quote split-window-horizontally)) nil) nil ("One Window  C-x 1" (call-interactively (quote delete-other-windows)) 49) ("Delete      C-x 0" (call-interactively (quote delete-window)) 48) nil ("Enlarge     C-x ^" (call-interactively (quote enlarge-window)) 69) ("Next        C-x o" (call-interactively (quote other-window)) 78))) ("Buffers" (("List    C-x C-b" (call-interactively (quote list-buffers)) nil) ("Change  C-x b" (call-interactively (quote switch-to-buffer)) nil) ("Kill    C-x k" (call-interactively (quote kill-buffer)) nil))) ("Help" (("Tutorial          C-h t" (call-interactively (quote help-with-tutorial)) 84) ("Information       C-h i" (call-interactively (quote info)) 72) nil ("Where Is Command  C-h w" (call-interactively (quote where-is)) nil) ("What Is Command   C-h f" (call-interactively (quote describe-function)) nil) ("What Is Key       C-h k" (call-interactively (quote describe-key)) nil) ("Apropos           C-h a" (call-interactively (quote command-apropos)) nil))))))
  164. \ No newline at end of file
  165. diff -rc --new-file emacs-18.59/amiga/amiga-extra/amiga/.emacs-menu.menu /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/.emacs-menu.menu
  166. *** emacs-18.59/amiga/amiga-extra/amiga/.emacs-menu.menu    Thu Jan  1 00:00:00 1970
  167. --- /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/.emacs-menu.menu    Sat May 16 13:52:44 1992
  168. ***************
  169. *** 0 ****
  170. --- 1,38 ----
  171. + (("Project" ("Open" find-file ?O)
  172. +         ("Save" save-buffer ?S)
  173. +         ("Save As" write-file ?W)
  174. +         ()
  175. +         ("Quit" save-buffers-kill-emacs ?Q))
  176. +  ("Edit" ("Undo" undo ?U)
  177. +          ()
  178. +      ("Mark" set-mark-command ?M)
  179. +      ("Cut" kill-region ?X)
  180. +      ("Copy" copy-region-as-kill ?C)
  181. +      ("Paste" yank ?V)
  182. +      ("Paste Previous" yank-pop))
  183. +  ("Search" ("Find Forward" isearch-forward ?F)
  184. +        ("Find Backward" isearch-backward ?B)
  185. +        ()
  186. +        ("Find Fwd Regexp" isearch-forward-regexp)
  187. +        ("Find Bwd Regexp" isearch-backward-regexp)
  188. +        ()
  189. +        ("Query Replace" query-replace ?R)
  190. +        ("Query Rpl Regexp" query-replace-regexp))
  191. +  ("Window" ("Split" split-window-vertically ?2)
  192. +        ("Split H" split-window-horizontally)
  193. +        ()
  194. +        ("One Window" delete-other-windows ?1)
  195. +        ("Delete" delete-window ?0)
  196. +        ()
  197. +        ("Enlarge" enlarge-window ?E)
  198. +        ("Next" other-window ?N))
  199. +  ("Buffers" ("List" list-buffers)
  200. +         ("Change" switch-to-buffer)
  201. +         ("Kill" kill-buffer))
  202. +  ("Help" ("Tutorial" help-with-tutorial ?T)
  203. +          ("Information" info ?H)
  204. +      ()
  205. +      ("Where Is Command" where-is)
  206. +      ("What Is Command" describe-function)
  207. +      ("What Is Key" describe-key)
  208. +      ("Apropos" command-apropos)))
  209. diff -rc --new-file emacs-18.59/amiga/amiga-extra/amiga/amiga.doc /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/amiga.doc
  210. *** emacs-18.59/amiga/amiga-extra/amiga/amiga.doc    Thu Jan  1 00:00:00 1970
  211. --- /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/amiga.doc    Wed Sep 29 22:42:40 1993
  212. ***************
  213. *** 0 ****
  214. --- 1,605 ----
  215. + 1. Introduction
  216. + ---------------
  217. + 
  218. + Emacs is a powerful, but sometimes cryptic, editor. In this Amiga
  219. + version, I have tried to make it easier to use with menus, mouse
  220. + support and arrow key support, but it still requires some getting used
  221. + to. I would recommend starting with the tutorial, which can be started
  222. + from the Help menu (if it is missing, you didn't install emacs
  223. + correctly. Check that the file s:.emacs-menu.el exists) or from the
  224. + keyboard by typing Control-H and then t.
  225. + 
  226. + This file only describes the Amiga specific features of emacs, and it
  227. + assumes a working knowledge of emacs. For more documentation you can
  228. + consult the emacs help (Information in the Help menu, or C-h i) or
  229. + read the emacs manual (which is the same document in a printed form).
  230. + This manual can be bought from the
  231. + 
  232. +      Free Software Foundation
  233. +      675 Mass Ave
  234. +      Cambridge, MA 02139
  235. +      USA
  236. + 
  237. + See the file gnuemacs:etc/DISTRIB for more information (you can type
  238. + C-h C-d to view it).
  239. + 
  240. + To install emacs, read the file INSTALLATION.
  241. + 
  242. + 
  243. + 2. Changes since the last version
  244. + ---------------------------------
  245. + 
  246. + Several features have been added since v1.26:
  247. + 
  248. + - based on emacs 18.59 instead of 18.58
  249. + - changes contributed by Christian E. Hopps: new AREXX code, enhancements
  250. + to the screen routines (more flexibility, read window & screen size,
  251. + ...).
  252. + - amiga-iconify is now a toggle (to allow deiconification from AREXX).
  253. + - the infamous 'vfork: not enough memory' message is now more explicit :-)
  254. + - miscellaneous bug fixes
  255. + 
  256. + 3. Using emacs in a window
  257. + --------------------------
  258. + 
  259. + Emacs runs in a window on the Workbench (this can be changed). It
  260. + basically works like just any other version of GNU Emacs, using the
  261. + same keys, etc. It uses the standard amiga keymap, but with some strange
  262. + modifications:
  263. + 
  264. + o The left alt key is stolen as a meta key for emacs. This means you can't use
  265. + it to enter accents. However, the right alt key remains untouched. Hence
  266. + 'left alt-f e' moves forward one word and inserts an e, while
  267. + 'right alt-f e' inserts an e acute. In the rest of the text, the meta key
  268. + always means the 'left alt' key.
  269. + 
  270. + o C-space is always mapped to C-@, the set-mark command, for convenience.
  271. + 
  272. + o The backspace key always sends DEL (delete previous character in emacs),
  273. + and DEL sends C-d (delete character under cursor). If you don't like this, 
  274. + add the line
  275. +     (setq amiga-remap-bsdel nil)
  276. + to your .emacs file (in s:).
  277. + 
  278. + o Keypad keys are prefixed with C-x C-^ K (so 0 generates C-x C-^ K 0).
  279. + Normally, C-x C-^ K is a do-nothing operation, so the keypad keys just
  280. + insert the usual character. If you want to redefine the keypad keys, you
  281. + must do the following:
  282. + 
  283. +   (global-set-key "\C-x\C-^K" (make-sparse-keymap))
  284. +   (global-set-key "\C-x\C-^K0" '<function for key 0>)
  285. +   (global-set-key "\C-x\C-^K1" '<function for key 0>)
  286. +   ...
  287. + 
  288. + Once you have redefined one key, you must define all of them (as C-x C-^ K
  289. + is no longer a do-nothing command). If you still want a keypad to insert
  290. + its usual character, you can use (for +)
  291. + 
  292. +   (global-set-key "\C-x\C-^K+" 'self-insert-command)
  293. + 
  294. + Even with this, the numeric keypad will not work with the incremental
  295. + search function. The only way past that is to disable the C-x C-^ K
  296. + prefix, with the following code:
  297. + 
  298. +   (setq amiga-remap-numeric-keypad nil)
  299. + 
  300. + (and you will then not be able to redefine the keypad keys).
  301. + 
  302. + o The sequences for function & arrow keys are the standard Amiga ones, 
  303. + except that the initial character (CSI, code 155) is replaced by
  304. + C-x C-^. For example, F1 is C-x C-^ 0 ~. You can always find the 
  305. + characters generated by a key by pressing it, and then executing
  306. + M-x view-lossage. This displays the last 100 characters seen by emacs. So
  307. + to define F1 to be view-lossage you would add
  308. + 
  309. +   (global-set-key "\C-x\C-^0~" 'view-lossage)
  310. + 
  311. + to s:.emacs (trying to define F1 interactively with M-x global-set-key
  312. + will fail ...).
  313. + 
  314. + 
  315. + There are several extra features:
  316. + 
  317. + a) Mouse support, similar to the X-Windows version.
  318. + 
  319. + You can position the cursor with the left mouse button. Other possibilites are:
  320. + 
  321. + action            result
  322. + ------------------------------
  323. + shift-left button    set mark at mouse position
  324. + control-left button    cut between point and mouse position
  325. + meta-left button    copy between point and mouse position
  326. + middle button        paste
  327. + shift-middle button    iconify emacs window (double click to deiconify)
  328. + 
  329. + Some of the control, meta, etc combinations may be stolen by Intuition or
  330. + commodities programs, so don't be surprised if they don't all work.
  331. + 
  332. + All of these actions may be redefined (this is emacs after all!), see the
  333. + file lisp/amiga-mouse.el for details (you will need to learn lisp if you don't
  334. + already know it ...) [Note: this file is not included in the binary only
  335. + distribution, you will need the source code version].
  336. + 
  337. + b) Clipboard
  338. + 
  339. + At first glance, emacs uses the Amiga clipboard, ie it cuts to the
  340. + clipboard and pastes from it (via the menu operations or the C-w
  341. + (kill-region), M-w (copy-region-as-kill) & C-y (yank) commands).
  342. + 
  343. + Things are actually complicated by emacs use of a "kill ring" (ie it
  344. + remembers the last 30 things cut. The M-y (yank-pop, menu command
  345. + Paste Previous) allows you to recover old cuts):
  346. + 
  347. + - When you cut (or copy) something in emacs it is placed in the
  348. + clipboard.
  349. + 
  350. + - When you paste (yank) something in emacs, it checks the clipboard to
  351. + see if it contains anything new. If so, it pastes that.
  352. + 
  353. + [Note: It also checks the clipboard when you cut something, and saves
  354. + that in the kill-ring if necessary]
  355. + 
  356. + All this effort is used to make the clipboard appear to operate
  357. + transparently in emacs.
  358. + 
  359. + c) Window
  360. + 
  361. + By default, emacs runs in a window on the workbench screen using the
  362. + system default font and the standard colours. All this can be changed:
  363. + 
  364. + o The font can be specified with the -fn <font> <size> option when you
  365. + run emacs. You can also use the amiga-set-font command interactively,
  366. + or add a line like
  367. +    (amiga-set-font "topaz" 11)
  368. + to your s:.emacs file. The font must be non-proportional.
  369. + 
  370. + o The window size and screen can be changed with the
  371. + amiga-set-geometry function. It takes 4, 5 or 6 parameters, the (x,y)
  372. + position of the window and its (width,height). The 5th optional
  373. + parameter specifies the screen: a string gives the name of a public
  374. + screen, t stands for the default public screen (normally the
  375. + workbench) and nil means keep the same screen. Finally, if the 6th
  376. + parameter is present and not nil, a backdrop window is used.
  377. + 
  378. + For example, the lisp code
  379. +   (amiga-set-geometry 0 0 640 400)
  380. + resizes the emacs window to 640x400. If the screen would be too small
  381. + given the current font (there must be room for 11x4 characters), the
  382. + change is refused.
  383. + 
  384. + Michael Kaiser has contributed a simple public screen creation
  385. + utility: gnuemacs:amiga/contrib/kaiser/pub is a program that creates
  386. + a public screen called "EmacsPublicScreen".
  387. + 
  388. + o The foreground & background colours can be changed with the 
  389. + amiga-set-foreground-color & amiga-set-background-color commands. You
  390. + specify the pen and not the actual colour (from 0 to 7 only,
  391. + because of restrictions in console.device).
  392. + 
  393. + o The inverse text & fill colours can be specified with
  394. + amiga-set-inverse-text-pen and amiga-set-inverse-fill-pen. The
  395. + choices are also pens 0 to 7, or 8 for reverse.
  396. + 
  397. + o The emacs window can be iconified (onto the workbench) with the
  398. + amiga-iconify command. This is bound to shift-middle button on a 3
  399. + button mouse, and to C-z (which is normally bound to suspend-emacs,
  400. + which doesn't work on the Amiga).
  401. + 
  402. + To deiconify emacs, double click on the icon.
  403. + 
  404. + Emacs will continue to answer to ARexx commands while iconified. The
  405. + variable amiga-emacs-iconfied is set to 't' while emacs is iconified,
  406. + 'nil' the rest of the time.  You can test this, eg to make sure that
  407. + emacs is not iconified before reading some user input. If you wish to
  408. + deiconify emacs from arexx, simply call (amiga-iconify) again (it is a
  409. + toggle).
  410. + 
  411. + You can specify the position for the icon with (amiga-set-icon-pos x
  412. + y), or get the default position with (amiga-set-icon-pos nil nil).
  413. + 
  414. + If you use the functions described above in s:.emacs, they will take 
  415. + effect before emacs's window is opened. This will avoid the nasty
  416. + visual effects of the previous version.
  417. + 
  418. + o You can manipulate the emacs window with amiga-activate-window,
  419. + amiga-window-to-front and amiga-window-to-back.
  420. + 
  421. + o You can get the window and screen size with (amiga-get-window-geometry)
  422. + and (amiga-get-screen-geometry). The iconified status is now returned 
  423. + by amiga-get-window-geometry instead of the amiga-emacs-iconified variable.
  424. + 
  425. + d) Menus
  426. + 
  427. + If you have installed emacs correctly (see the INSTALLATION file), it
  428. + will startup with some menus containing some useful basic
  429. + functions (the layout was inspired from that of TurboText, another
  430. + good editor which has the disadvantage of being more expensive than
  431. + emacs ...). Alongside each item is the emacs key sequence which
  432. + invokes that function, if any.
  433. + 
  434. + Using the Menu Help functionality of AmigaDOS 2.04, you can get help
  435. + on any menu item by highlighting it with the mouse and pressing the
  436. + Help key [This is easier if you're left handed :-)].
  437. + 
  438. + The menus are not fixed, they are defined by the s:.emacs-menu.el file
  439. + (which isn't human-readable). To modify them, edit s:.emacs-menu.menu.
  440. + This contains a lisp-like (but quite legible even for lisp-haters)
  441. + representation of the menus, which you can modify by adding items or
  442. + menus. The format should be obvious (just make sure that closing
  443. + brackets correspond to the correct opening ones, emacs always shows
  444. + the corresponding '(' when you type a ')'. Also the last bracket
  445. + should correspond with the first).
  446. + 
  447. + When you have finished your changes, type C-c C-c. This will save your
  448. + menus, and then generate a .el file from them (this takes several
  449. + seconds even on an A3000. Be patient). Then save the resulting file.
  450. + To have the new menus take effect immediately, type M-C-x while in the
  451. + .el file.
  452. + 
  453. + Enterprising lisp programmers can customise the menus even more by
  454. + modifying the functions amiga-menus-dispatch and/or amiga-menus-help
  455. + in lisp/amiga-mouse.el. This code basically receives a (menu-number
  456. + menu-item-number) list and must take the appropriate action
  457. + (currently, execute the command associated with that particular menu
  458. + item). The lack of comments will surely not deter these audacious
  459. + pionneers ...
  460. + 
  461. + e) Command line options
  462. + 
  463. + Beyond the standard emacs command line options (for which
  464. + documentation tends to be rather sketchy, not to say missing), you can
  465. + also use:
  466. + 
  467. + -prealloc <n>: Reserve n bytes of memory for emacs exclusively. This
  468. + option *must* be the first on the command line. On the A3000, chip
  469. + memory can't be used for emacs (the details are complicated ...), so
  470. + you will run out of memory sooner than expected. This option allows
  471. + you to reserve some for emacs before it gets eaten by other programs.
  472. + 
  473. + -fn <font> <size>: Set the font that emacs uses, like the
  474. + amiga-set-font command (see section c, on windows). Note that there
  475. + must be enough room for 11x4 characters in the standard 640x200
  476. + window. So avoid fonts bigger than 40 points ...
  477. + 
  478. + -nw: Don't use a window, use a serial port. See part 3, Using Emacs
  479. + over a serial line.
  480. + 
  481. + f) ARexx
  482. + 
  483. + [The ARexx interface has been rewritten for this version by Christian
  484. + E. Hopps]
  485. + 
  486. + Emacs has a full ARexx interface. It can execute scripts and commands
  487. + synchronously (waiting for the result) or asynchronously, and has an
  488. + ARexx port from which it accepts commands. 
  489. + 
  490. + To execute a script, use the amiga-arexx-do-command command.  This
  491. + asks for the script file name (the default extension is .elx). If you
  492. + just want to execute a simple ARexx command, you can prefix those
  493. + commands with C-u and specify the string to execute.
  494. + 
  495. + From lisp, you can use
  496. +   (amiga-arexx-send-command "<file>" nil) for a script, and
  497. +   (amiga-arexx-send-command "<commands>" t) for direct execution.
  498. + (and the same for amiga-arexx-do-command). The result of
  499. + amiga-arexx-send-command is an integer that can be passed to
  500. + amiga-arexx-wait-command to wait for the completion of the script or
  501. + command. It can also be used with amiga-arexx-check-command to check
  502. + if the script has finished. For example:
  503. + 
  504. +   (let ((arexx-id (amiga-send-command "start-fun" nil)))
  505. +     ... do something here ...
  506. +     ; and wait for arexx script to end
  507. +     (amiga-arexx-wait-command arexx-id))
  508. + 
  509. + amiga-arexx-wait-command returns the result of the script/command.
  510. + 
  511. + amiga-arexx-do-command-with-results is like amiga-arexx-do-command,
  512. + but it returns the result of the script/command.
  513. + 
  514. + Emacs's ARexx port accepts commands in lisp, and is usually called
  515. + EMACS1 (if you run emacs twice simulatenously, the second one will
  516. + have EMACS2, and so on). For example (from a shell),
  517. + 
  518. +   rx "address EMACS1 '(beginning-of-buffer)'"
  519. + 
  520. + will set point to the beginning of the buffer.
  521. + 
  522. + ARexx commands are only processed at certain times, so be careful how
  523. + you design your applications. These are:
  524. + 
  525. + o While waiting for commands from the keyboard (ie when emacs is
  526. + idle or iconified).
  527. + o While processing a synchronous (amiga-arexx-do-command) script or
  528. + waiting for a script to terminate with amiga-arexx-wait-command.
  529. + o When the amiga-arexx-process function is called.
  530. + 
  531. + They also affect the user visible state by default (ie calling
  532. + beginning-of-buffer as above modifies the user's position). Avoid
  533. + sending random commands at random times, or use save-excursion.
  534. + 
  535. + As usual, all this behaviour can be modified to some extent. Look in
  536. + amiga-init.el for details [The source code is the documentation...].
  537. + 
  538. + There are a few arexx examples in the amiga/contrib directory.
  539. + 
  540. + g) Workbench support
  541. + 
  542. + Beyond iconification (see the section on the emacs window), emacs 
  543. + supports a number of features for Workbench users:
  544. + 
  545. + - emacs can be run from the Workbench, by all the usual methods
  546. +   (double clicking on the tool, double clicking on a project which
  547. +   has temacs as its default tool, etc). All the projects that are
  548. +   passed to temacs will be loaded (if they are files), or listed 
  549. +   with dired (if they are directories).
  550. + 
  551. + - icons can be dropped in emacs's window, the corresponding file
  552. +   or directory will be loaded or listed.
  553. + 
  554. + - icons can be created for files that are saved. This is the default
  555. +   when emacs is run from the workbench. This is controlled by the
  556. +   amiga-create-icons variable: if you always want icons to be
  557. +   created, add
  558. + 
  559. +     (setq amiga-create-icons t)
  560. + 
  561. +   to s:.emacs, or
  562. + 
  563. +     (setq amiga-create-icons nil)
  564. + 
  565. +   if you never want them.
  566. + 
  567. + h) external processes
  568. + 
  569. + This version of emacs fully supports synchronous (used to get the
  570. + result of ls for dired, for instance) and asynchronous (as in the
  571. + 'shell' command) processes. However, it requires Matt Dillon's
  572. + 'fifo.device' and 'fifo:' devices to function. See the INSTALLATION
  573. + file for details.
  574. + 
  575. + This allows full support for all emacs functions which call external
  576. + programs, providing that said programs exist on the Amiga. The
  577. + following work:
  578. +   compile (for SAS C 5.10b, with a few occasional problems)
  579. +   grep
  580. +   shell (but see the discussions below)
  581. +   display-time
  582. +   dired
  583. +   list-directory
  584. +   sort-...
  585. + 
  586. + The compile command sometimes has problems finding file names in the
  587. + error messages, and tries to read the current directory instead. If
  588. + you are patient, it moves on to the next file.
  589. + 
  590. + Because of differences between AmigaDOS & Unix, sending signals (eg
  591. + interrupt, kill) to processes is not very reliable. The following
  592. + points must be kept in mind:
  593. + 
  594. + - In some unlikely cases, the appropriate process to signal won't be 
  595. +   found. 
  596. + - The stop-process & continue-process functions don't work.
  597. + - interrupt-process & quit-process send a ctrl-c & ctrl-d to the
  598. +   process and all its children (probably).
  599. + - kill-process also sends a ctrl-c & ctrl-d. It then pretends that
  600. +   the process has died.
  601. + 
  602. + All input sent to a process after an end-of-file is ignored. The process
  603. + just sees an endless sequence of end-of-files. This is most visible with
  604. + the shell command, where if you send an end-of-file to a program (eg type)
  605. + with C-c C-d, the shell will exit. The bug is in fifo.device, not in emacs.
  606. + 
  607. + The input & output of processes run inside emacs look like interactive
  608. + files (which allows, for instance, shells to run correctly). However, this
  609. + confuses some programs which expect all interactive files to be Amiga
  610. + consoles and causes them to crash. Several versions of ls suffer from this
  611. + problem (they run into problems while trying to get the window size).
  612. + 
  613. + amiga-process-stack-size is the size of the stack for new processes. If it
  614. + is 0 (the default), emacs's stack size is used.
  615. + 
  616. + 
  617. + 4. Using emacs over a serial line
  618. + ---------------------------------
  619. + 
  620. + To use emacs over a serial port, you must do:
  621. + 
  622. +   setenv TERM <terminal type> (eg vt100)
  623. +   emacs -nw
  624. + 
  625. + The setenv line can be put in your User-Startup, so as to avoid typing
  626. + it every time.
  627. + 
  628. + Emacs cannot simply guess how your terminal works from its name, it
  629. + needs a description of it. This is found in a termcap file, which
  630. + emacs looks for in s:termcap. If you didn't install this file with emacs,
  631. + you can do so by typing (in a CLI):
  632. + 
  633. +   join gnuemacs:etc/termcap.ucb gnuemacs:etc/termcap.amiga as s:termcap
  634. + 
  635. + [Note: These files only come with the source version]
  636. + 
  637. + The -nw prevents the use of a window.
  638. + 
  639. + If you have several serial ports, you can type
  640. + 
  641. +   emacs -dev ser2.device 2 -nw
  642. + 
  643. + to use port 2 of device ser2.device. Use of the -dev option still requires the
  644. + -nw.
  645. + 
  646. + These options (-dev & -nw) *must* be specified at the start of the
  647. + command line.
  648. + 
  649. + The descriptions of the Clipboard, the command line options and the
  650. + ARexx port in part 2 above also apply to use over a serial port.
  651. + 
  652. + 
  653. + 5. Redumping emacs [This section for expert users only]
  654. + -------------------------------------------------------
  655. + 
  656. + Enterprising users may want to change the lisp files which are loaded
  657. + into the Emacs dump file. The procedure for doing this is very similar
  658. + to that with the Unix version, except that the amount of pure storage
  659. + can be changed without recompiling emacs. This will allow users
  660. + without SAS C v5.10b to still make such changes.
  661. + 
  662. + The necessary lisp files are only included in the source distribution,
  663. + so you will have to get that first. Once that is available, that you
  664. + have made all your changes (eg adding some extra files to be dumped),
  665. + use the following sequence to redump emacs:
  666. + 
  667. +   cd gnuemacs:etc
  668. +   stack 20000
  669. +   /temacs -pure <n> -malloc <m> -nl -batch -l loadup dump
  670. + 
  671. + The -pure <n> and -malloc <m> options should only be necessary if you
  672. + add extra files to be dumped, see below how to choose values for n &
  673. + m. The above order for the parameters must be preserved. Specifying
  674. + dump without -nl & -batch will have unpredicatable consequences.
  675. + 
  676. + Once all the files are loaded, a new copy of gnuemacs:etc/EMACS-DATA
  677. + will be saved, and all should work correctly. If you get one of the
  678. + following messages:
  679. + 
  680. +   Pure Lisp storage exhausted
  681. + 
  682. +   Emacs dump: ran out of memory for malloc.
  683. + 
  684. + read the following description of the -pure & -malloc options:
  685. + 
  686. + When emacs is dumped, it saves (amongst other things) the copies of
  687. + two zones of memory, called the pure storage area and the malloc hunk.
  688. + These contain an internal representation of the lisp code, so the more
  689. + code you include in a dumped emacs, the bigger these need to be. The
  690. + default sizes of these are reasonable sizes for the standard lisp code
  691. + which is dumped, but you will probably need to increase them if you
  692. + add some more lisp modules. The best way to find the new values for n
  693. + (size of pure area) and m (size of the malloc hunk), is to run the
  694. + command
  695. + 
  696. +   cd gnuemacs:etc
  697. +   stack 20000
  698. +   /temacs -pure 200000 -malloc 200000 -nl -batch -l loadup dump
  699. + 
  700. + (these sizes should be largely sufficient, but if you still get one of
  701. + the two error messages above, increase them). Then run emacs as usual,
  702. + and look at the values of the 2 lisp variables
  703. + 
  704. +      pure-bytes-used
  705. + and  amiga-malloc-bytes-used
  706. + 
  707. + pure-bytes used contains the minimum value for n, and
  708. + amiga-malloc-bytes-used the minimum value for m. Add 1000 to these for
  709. + luck to get values for n and m, and redump emacs using these.
  710. + 
  711. + For those who are into modifying the C source, the default values are
  712. + 130000 for n (see DEF_PURESIZE in s-amiga.h) and 92000 for m (see
  713. + MALLOC_HUNK_SIZE in amiga.h).
  714. + 
  715. + 6. Source
  716. + ---------
  717. + 
  718. + Source for emacs and all the programs included with it should be
  719. + obtainable from the same place as this file. If not, please send me
  720. + mail (if you are on the Internet) and I will provide the missing
  721. + pieces. Specifically, there should be:
  722. + 
  723. + - The emacs sources
  724. + - Sources for the 'unix library' needed to compile emacs
  725. + - Source for the programs in the c directory (ls, sort, rmdir, grep).
  726. + This consists of the GNU fileutils, textutils and grep packages.
  727. + 
  728. + Distributing the binary without these packages is a violation of
  729. + the GNU General Public License (see the file COPYRIGHT in the etc
  730. + directory) under which emacs is distributed.
  731. + 
  732. + 7. Thanks & Problems
  733. + --------------------
  734. + 
  735. + I would like to thank the following people for their help while porting
  736. + emacs:
  737. + 
  738. + - Mark D. Henning for the early port of emacs. He's the person who got
  739. + emacs working on the Amiga ...
  740. + - Christian E. Hopps for enhancements to the screen display code, a
  741. + rewrite of the AREXX code, testing and useful suggestions.
  742. + - All the beta testers and people who contributed useful utilities (see
  743. + the amiga/contrib directory):
  744. +   Jean-Marc Vandel
  745. +   Philippe Morel
  746. +   Jukka Partanen
  747. +   Michael Witbrock
  748. +   Tero Manninen
  749. +   Alan Bair
  750. +   Hugh D. Gamble
  751. +   Tapio Heiskanen
  752. +   Teddy Wang
  753. +   Richard McGowen
  754. +   Keith Hanlan
  755. +   Carsten Heyl
  756. +   Anders Lindgren
  757. +   Michel Schinz
  758. +   Hans-Joachim Widmaier
  759. +   Michael Kaiser
  760. + 
  761. + Please send any bug reports, enhancement requests, etc to:
  762. + 
  763. + Post:                E-mail:
  764. + David Gay            dgay@di.epfl.ch
  765. + 19 Chemin de la Source
  766. + CH-1296 Coppet
  767. + Vaud
  768. + Switzerland
  769. + 
  770. + 8. Ordering Information
  771. + -----------------------
  772. + 
  773. + I can provide a complete copy of my development directory, which
  774. + includes:
  775. + 
  776. + o the standard emacs-18.59 files
  777. + o modified and new lisp files
  778. + o Amiga-specific source, as text and in RCS format (highlighting the
  779. + changes from a standard unix distribution, and the different versions).
  780. + o assorted lisp packages hacked for the Amiga (I will be posting some
  781. + of these in due course):
  782. +   - a tags-like access to the 2.0 autodocs (you must already have a
  783. +     copy of these ...)
  784. +   - gnus (a news reader) for use with Matt Dillon's uucp package. 
  785. +   - getris, a tetris clone for emacs
  786. + 
  787. + All these as a tar file on a QIC-150 tape, for $200 (the same price as
  788. + the FSF, so as not to undercut them), or 300SF. This price is valid
  789. + until the 31st December 1993, and includes shipping by surface mail.
  790. + 
  791. + Please send all orders, by postal mail, to
  792. + 
  793. +   David Gay
  794. +   19 Chemin de la Source
  795. +   CH-1296 Coppet
  796. +   Vaud
  797. +   Switzerland
  798. + 
  799. +   Tel: +(41)-22 776 35 81 [Evenings, Central European Time]
  800. +   Fax: +(41)-22 776 70 58
  801. + 
  802. + Include with your order:
  803. + - A cheque, in dollars or Swiss francs.
  804. + - Your *complete* address (don't forget the country, etc).
  805. + - A phone or fax number so I can contact you if I have any problems.
  806. + 
  807. + I will be glad to include, on request, and with full source, some
  808. + other pieces of software I have written:
  809. + - An HP11 calculator (this is an update to the version available on
  810. + fish disks, with some bug fixes and 2.0 specific features).
  811. + - A scheme compiler for the Amiga, still in an alpha state.
  812. + - A fortune cookie program, including 1 megabyte of cookies (merged
  813. + from various sources).
  814. + 
  815. + 
  816. + Dvaid Gay
  817. + dgay@di.epfl.ch
  818. + Ecole Polytechnique Federale de Lausanne - Switzerland
  819. + Laboratoire d'Informatique Technique
  820. diff -rc --new-file emacs-18.59/amiga/amiga-extra/amiga/announce1.28 /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/announce1.28
  821. *** emacs-18.59/amiga/amiga-extra/amiga/announce1.28    Thu Jan  1 00:00:00 1970
  822. --- /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/announce1.28    Thu Sep 30 19:48:52 1993
  823. ***************
  824. *** 0 ****
  825. --- 1,39 ----
  826. + GNU Emacs 18.59, Amiga RELEASE 1.28
  827. + -----------------------------------
  828. + 
  829. + Emacs is a very powerful, but sometimes cryptic, text editor. Its basic
  830. + features are similar to those of the MEmacs editor which comes with 
  831. + AmigaDOS (in the Tools directory), but has numerous other facilities:
  832. + - unlimited undo.
  833. + - language specific editing, with automatic (re)indentation.
  834. + - a dialect of lisp as extension language, leading to extreme 
  835. +   reconfigurability.
  836. + - abbreviations for commonly typed words.
  837. + - complete on-line manual.
  838. + - powerful search & replace facilities (including wildcards).
  839. + 
  840. + In this Amiga version, I have tried to make it easier to use with menus, 
  841. + mouse, clipboard, rexx and workbench support.
  842. + 
  843. + This version (1.28) is an update on version 1.26. It tracks the update
  844. + from GNU Emacs 18.58 to 18.59.
  845. + 
  846. + System requirements:
  847. + - AmigaDOS 2.04
  848. + - At least 2MB of memory (emacs uses about 750k + memory for the files
  849. +   being edited).
  850. + - 2.5MB of free disk space for the binary version, 8MB for the 
  851. +   source version (but you can remove some of the files once it has been
  852. +   installed).
  853. + - Emacs works with a 68000 (A500,A2000), but is a bit slow. It is very
  854. +   pleasant to use with a 68030/25MHz ...
  855. + 
  856. + This port was originally based on that of Mark Henning (gnuemacs
  857. + v1.10), but after having made rather extensive modifications, added
  858. + numerous features and updated it to Emacs 18.59, I decided to
  859. + release it myself. 
  860. + 
  861. + David Gay
  862. + dgay@di.epfl.ch
  863. + Ecole Polytechnique Federale de Lausanne, Switzerland.
  864. + Laboratoire d'Informatique Technique.
  865. diff -rc --new-file emacs-18.59/amiga/amiga-extra/amiga/c/emacs /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/c/emacs
  866. *** emacs-18.59/amiga/amiga-extra/amiga/c/emacs    Thu Jan  1 00:00:00 1970
  867. --- /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/c/emacs    Sun May  9 18:16:16 1993
  868. ***************
  869. *** 0 ****
  870. --- 1,26 ----
  871. + .key a1,a2,a3,a4,a5,a6,a7,a8,a9
  872. + .bra {                                       
  873. + .ket }   
  874. + ; Startup script for GNU Emacs                                    
  875. + ; Make sure the FIFO handler is ready        
  876. + assign >NIL: FIFO: exists                    
  877. + if warn                                      
  878. +   if exists L:fifo-handler                   
  879. +     echo "Starting fifo-handler"             
  880. +     run <NIL: >NIL: L:fifo-handler           
  881. +   else                                       
  882. +     echo "Cannot find L:fifo-handler."       
  883. +     echo "External processes will not work." 
  884. +   endif                                      
  885. + endif                                        
  886. + ; Increase the stack size as needed          
  887. + set stack=`getstack`
  888. + if not $stack gt 40000 val
  889. +   stack 40000
  890. + endif
  891. + ; Invoke GNU Emacs
  892. + run gnuemacs:temacs {a1} {a2} {a3} {a4} {a5} {a6} {a7} {a8} {a9}
  893. + ; Restore the previous stack size                                       
  894. + stack $stack
  895. + unset stack
  896. + 
  897. diff -rc --new-file emacs-18.59/amiga/amiga-extra/amiga/c/etags.uue /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/c/etags.uue
  898. *** emacs-18.59/amiga/amiga-extra/amiga/c/etags.uue    Thu Jan  1 00:00:00 1970
  899. --- /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/c/etags.uue    Tue Jul 12 10:34:45 1994
  900. ***************
  901. *** 0 ****
  902. --- 1,610 ----
  903. + begin 666 etags
  904. + M```#\P`````````"``````````$``!B&```"^P```^D``!B&2.=^_B1()`!)
  905. + M^0`````L>``$1_D```=`<@`@/````2M@`B;!4<C__"E/!W`I3@=H)FX!%"`K
  906. + M`*QG#.6(($`@*``TY8A@!B`/D*L`.B(/DH`&@0```(`I00=$L*P&B&14("P&
  907. + MB`:`````@"E`!Y`B/``!``%.KO\Z2H!G``'2*4`'C"(`!H````"`*4`'1-"L
  908. + M!H@,;@`D`!1M&"E`!X@I00>$DJP'D$'L!X`@@4ZN_21@`BY`0JP';'``(CP`
  909. + M`#``3J[^SB9N`11#^@&*<`!.KOW8*4`+Y&8&<&1@``#F*6L`F`=D2JL`K&<`
  910. + M`'X@:P"LT<C1R")H`!#3R=/)(`)R`!(9*4D'=-"!7H`"0/_\*4`'?$CG0$`B
  911. + M/``!``%.KO\Z3-\"`DJ`9@AP%"\`9P`!%B!`*4`'>"`"4X#4@1&R```@`E."
  912. + M4<C_]A&\`"`@`E."$;P`(B`"$;$@`"`!4<K_^!"\`"(O"&!*0>L`7$ZN_H!!
  913. + MZP!<3J[^C"E`!VPO`"1`("H`)&<8+&P+Y"!`(B@``$ZN_Z`I0`=D(@!.KO^"
  914. + M(&P';"\(2&P'0"!H`"0I:``$!W1.ND=P3KHRNG``8`0@+P`$)&P'<"4`+'@`
  915. + M!`QN`"0`%&T22JP'@&<,0>P'@%FL!XA.KOTD+DH@+`=<9P0@0$Z03KI'2$ZZ
  916. + M1UP@+`>09PPB;`>,+'@`!$ZN_RY*K`=L9R`L;`OD(BP'9&<$3J[_IBQX``1.
  917. + MKO]\(FP';$ZN_H9@$BQX``0@+`=\9P@B;`=X3J[_+B)L"^1.KOYB(!],WW]^
  918. + M3G5D;W,N;&EB<F%R>0`@#Y!\`'2PK`=$90!*^)[\`&1(YP<4+B\`?"IO`(!Z
  919. + M`"E5"B9P`2E``#IP`;Z`;P`!$B!M``1R+;(09@`!!BP`(&T`!")(T\9*$6<`
  920. + M`.[1QA`02(!(P')"D(%G-EF`9T!R&Y"!9TA9@&=,4X!G3G(.D(%G``"44X!G
  921. + M``"44X!G``">4X!G``"24X!G``"@8```N!E\`#\`!$*L`#I@``"6&7P`+P`$
  922. + M0JP`.F```(A2K``B8```@%*L`#I@>$J%;Q8O+`HF2'H#&DAL!M!.NE#@3^\`
  923. + M#&!R4H53AUB-<`&^@&\((&T`!$H09A8O+`HF2'H#%$AL!M!.NE"V3^\`#&!(
  924. + M*6T`!``&8#)2K``F8"92K``J0JP`.F`<4JP`+F`64JP`,E*L`#9"K``Z8`A2
  925. + MK``V0JP`.E*&8`#_"%.'6(U@`/[J<`&^@&X<+RP*)DAZ`N)(;`;03KI06$AX
  926. + M``%.ND]Z3^\`$$JL``9F$D'Z`OA*K``Z9P1!^@+H*4@`!F$`!6!(;`HV80`@
  927. + MYDAL"CYA`"#>4$]*K``Z9T1!^@+22JP`(F<$0?H"QB\(+RP`!DZZ5_I03RE`
  928. + M"BYF)"\L"B9(>@*P2&P&T$ZZ3^@NK``&3KHD\DAX``%.ND\"3^\`$'`!*4``
  929. + M'B`L`!ZPAVQ,(@#E@29U&``O"V$`!=!83TJL`#IG,"\L"C)A``\6+H`O"TAZ
  930. + M`F8O+`HN3KI/F"ZL"C)A``KZ+JP*,F$`">I/[P`00JP*,E*L`!Y@K$JL`#IG
  931. + M$"\L"BY.NE7"0I=.NDZ06$]*K``V9Q`O+`HR80`*P$*73KI.>EA/2JP`*F=&
  932. + M?`&\AVP\2'H"#B\L``9.NC[X(`;E@"ZU"``O+``&2'H!_$AO`"1.NDZP2&\`
  933. + M*$ZZ38A(>@'B3KHHW$_O`!Q2AF#`4JP`(D'Z`;Q*K``B9P1!^@&P+P@O+``&
  934. + M3KI6Y%!/*4`*+F8D+RP`!DAZ`9I(;`;03KI.TBZL``9.NB/<2'@``4ZZ3>Q/
  935. + M[P`0+RP*,F$`"B`NK`HN3KI5!%A/2JP`*F<@(&P`!B\(+PA(>@&*2&\`($ZZ
  936. + M3B1(;P`D3KI,_$_O`!1"ITZZ3:I83TS?*.#>_`!D3G4@#`D*```@"0HB)R,H
  937. + M*5M=>WT]+2LE*B\F?%Y^(3P^.RPN.C\``$%"0T1%1D=(24I+3$U.3U!14E-4
  938. + M55976%E:7V%B8V1E9F=H:6IK;&UN;W!Q<G-T=79W>'EZ)```04)#1$5&1TA)
  939. + M2DM,34Y/4%%24U155E=865I?86)C9&5F9VAI:FML;6YO<'%R<W1U=G=X>7HD
  940. + M,#$R,S0U-C<X.0``+#L``"5S.B`M9B!F;&%G(&UA>2!O;FQY(&)E(&=I=F5N
  941. + M(&]N8V4*`"5S.B`M9B!F;&%G(&UU<W0@8F4@9F]L;&]W960@8GD@82!F:6QE
  942. + M;F%M90H`57-A9V4Z("5S(%LM0D9A971U=W9X72!;+68@;W5T9FEL95T@9FEL
  943. + M92`N+BX*`%1!1U,``'1A9W,``&$`=P`E<SH@```,"B5S+"5D"@``3U1!1U,`
  944. + M96=R97`@/B5S("UV("<))7,))R!/5$%'4P!C.G-O<G0@9G)O;2`E<R!T;R`E
  945. + M<P``<@!T97@`875X`&)B;`!L`&5L``!L<W``;&ES<```8VP``&-L:7-P`'-M
  946. + M``!S8VT`<V-H96UE``!T`'-C:`!330``4T--`"5S.B!T;V\@;6%N>2!E;G1R
  947. + M:65S('1O('-O<G0*`&UA:6X``$T````E<R0`)2XU,',`)7,Z($1U<&QI8V%T
  948. + M92!E;G1R>2!I;B!F:6QE("5S+"!L:6YE("5D.B`E<PH``%-E8V]N9"!E;G1R
  949. + M>2!I9VYO<F5D"@`E<SH@1'5P;&EC871E(&5N=')Y(&EN(&9I;&5S("5S(&%N
  950. + M9"`E<SH@)7,@*%=A<FYI;F<@;VYL>2D*```E<R5C)60L)60*```E<PDE<PD`
  951. + M`"5D```E<R`E<R`E9`H`)2TQ-G,E-&0@)2TQ-G,@)7,*``!D969I;F4``'1Y
  952. + M<&5D968`<W1R=6-T``!U;FEO;@!E;G5M``!$148`:6YT96=E<@!R96%L``!L
  953. + M;V=I8V%L`&-O;7!L97@`8VAA<F%C=&5R`&1O=6)L90``<')E8VES:6]N`&9U
  954. + M;F-T:6]N``!S=6)R;W5T:6YE``!P<F]G<F%M`'!R;V-E9'5R90`Z8VAA<'1E
  955. + M<CIS96-T:6]N.G-U8G-E8W1I;VXZ<W5B<W5B<V5C=&EO;CIE<6YO.FQA8F5L
  956. + M.G)E9CIC:71E.F)I8FET96TZ='EP96]U=`!415A404=3``H`=FER='5A;"!M
  957. + M96UO<GD@97AH875S=&5D``"_[`=$90!$($CG`01^`'!_OH!L,'``0>P)%A&`
  958. + M>`!![`B7$8!X`$'L"!@1@'@`0>P'F1&`>`!![`F5$;P``7@`4H=@RBIL``H0
  959. + M%6<2$@!(@4'L!YD1O``!$`!2C6#J*FP`#A`59Q(2`$B!0>P(&!&\``$0`%*-
  960. + M8.HJ;``6$!5G$A(`2(%![`B7$;P``1``4HU@ZBIL`!(0%6<2$@!(@4'L"181
  961. + MO``!$`!2C6#J*FP`&A`59Q`2`$B!0>P)E4(P$`!2C6#L&6P'HP>9&6P((@@8
  962. + M&6P)(`D6&6P(H0B7&6P)GPF53-\@@$YU(`^0?``,L*P'1&4`0S)(YP`4*F\`
  963. + M#$AZ_-8O#4ZZ4<103RE`"BIF'B\L"B9(>OQZ2&P&T$ZZ2;(NC4ZZ'KY/[P`,
  964. + M8``"7"\-80`;3BE`"B)(>``N+PUA`!NF3^\`#"9`(`MG4D'K``%(>OR&+PA.
  965. + MND,B4$]*@&<H0>L``4AZ_'8O"$ZZ0PY03TJ`9Q1!ZP`!2'K\9B\(3KI"^E!/
  966. + M2H!F%B\L"BIA`!:4+JP**DZZ3Y!83V```>P@"V<``)!!ZP`!2'K\.B\(3KI"
  967. + MRE!/2H!G9$'K``%(>OPH+PA.ND*V4$]*@&=00>L``4AZ_!@O"$ZZ0J)03TJ`
  968. + M9SQ!ZP`!2'K\""\(3KI"CE!/2H!G*$'K``%(>OOZ+PA.ND)Z4$]*@&<40>L`
  969. + M`4AZ^^HO"$ZZ0F903TJ`9A8O+`HJ80`2L"ZL"BI.ND[\6$]@``%8(`MG``#Z
  970. + M0>L``4AZ^\`O"$ZZ0C903TJ`9P``T$'K``%(>ONN+PA.ND(@4$]*@&<``+I!
  971. + MZP`!2'K[G"\(3KI""E!/2H!G``"D0>L``4AZ^XXO"$ZZ0?103TJ`9P``CD'K
  972. + M``%(>OMZ+PA.ND'>4$]*@&=X0>L``4AZ^VHO"$ZZ0<I03TJ`9V1!ZP`!2'K[
  973. + M6B\(3KI!ME!/2H!G4'!ML"O__V8@<&.P*__^9AAP<[`K__UF$$'K``$O"&$`
  974. + M`*)83TJ`9BAP3;`K__]F-'!#L"O__F8L<%.P*__]9B1!ZP`!+PAA``!Z6$]*
  975. + M@&<4+RP**F$`$O@NK`HJ3KI-_%A/8%@@"V=&$"L``7)CL`%G/')HL`%G-G)Y
  976. + ML`%G,$HK``)F*B\L"BIA``W@6$]*@&<,+RP**DZZ3<)83V`>0J="IR\L"BI.
  977. + MNDLJ3^\`#&$`!S0O+`HJ3KI-HEA/3-\H`$YUO^P'1&4`0)(O#2IO``@0%6<0
  978. + M<C"P`6T&<CFP`6_P<`!@`G`!*E].=2`/D'P`1+"L!T1E`$!DGOP`.$CG#Q0H
  979. + M+P!H*B\`9"PO`&`>+P!;2'@`($ZZ0PQ83R9`(`MF,B\L"B9(>OHJ2&P&T$ZZ
  980. + M1M8NK`HR80`"."ZL"C)A``$H0JP*,DAX`"!A`!HV3^\`$"9`2JP`.F9J2JP`
  981. + M-F9D2'KZ#B\O`%A.ND!&4$]*@&922'@`+R\L"B)A`!B@4$\J0$J`9@8J;`HB
  982. + M8`)2C4AZ^>@O#4AZ^>!A`!E<2'@`+B\`+T``8&$`&'1/[P`4*D`@#6<(2BT`
  983. + M`F8"0A4@;P!,+T@`5"\O`%1A`!?L6$\F@"=L"B(`!!='``@G10`*)T0`#I'(
  984. + M)T@`'"=(`!A*K``Z9PHB;P!<0C%H`&`Z2JP`-F8T+R\`7$ZZ/V183W(RL(%L
  985. + M!D'Z^69@!$'Z^60O+P!<+PA(;P`A3KI%<$_O``Q![P`9+T@`7"\O`%QA`!=Z
  986. + M6$\G0``22JP*,F8(($LI2`HR8`PO+`HR+PMA```^4$],WRCPWOP`.$YU(`]9
  987. + M0+"L!T1E`#[J+PTJ;P`((`UG%B\M`!QAY"Z-3KI`,%A/($TJ:``88.8J7TYU
  988. + M(`^0?``8L*P'1&4`/KA(YP$4)F\`%"IO`!`O$R\53KH^^%!/+@!*K``Z9G1*
  989. + MAV9P(&T`!")K``2SR&8R2JP`+F8``)`O%2\L"A8O""\L"B9(>OB:2&P&T$ZZ
  990. + M111(>OB\2&P&T$ZZ10A/[P`@8&1**P`69B1*K``N9AXO%2\K``0O+0`$+RP*
  991. + M)DAZ^*9(;`;03KI$W$_O`!@7?``!`!9@,DJ':A@@*P`89PPO`"\-80#_4%!/
  992. + M8!PG30`88!8@*P`<9PPO`"\-80#_.%!/8`0G30`<3-\H@$YU(`^0?``8L*P'
  993. + M1&4`/>!(YR`4*F\`$"`-9P`#Y"\M`!AAWEA/2JP`.F<D+RT`#B\M``I(>`!_
  994. + M+RT`$DAZ^%@O+`HN3KI$4D_O`!A@``.H2JP`-F8``U8O+0`$+Q5(>OA"+RP*
  995. + M+DZZ1#!/[P`02BT`"&<``K`@;`HN""@``0`;9W!2J``,(&P*+B`H``RPJ``4
  996. + M;CXB2"!I``12J0`$$"P`!!"`<@JP`68>(&P*+@@H``8`&V<2+PA.NDE@6$\0
  997. + M+``$<@`2`&`($"P`!'(`$@!@'B!L"BY3J``,$"P`!$B`2,`O+`HN+P!.ND00
  998. + M4$\B`&`6$"P`!$B`2,`O+`HN+P!.ND/X4$\B`"!L"BX(*``!`!MG6E*H``P@
  999. + M;`HN("@`#+"H`!1N,")((&D`!%*I``1P7A"`<@JP`688(&P*+@@H``8`&V<,
  1000. + M+PA.NDC06$]P7F`"<%Y@%B!L"BY3J``,+RP*+DAX`%Y.ND.24$]@#B\L"BY(
  1001. + M>`!>3KI#@E!/)FT`$A`39P`!#G)<L`%G"!0L``2P`F9P(&P*+@@H``$`&V=6
  1002. + M4J@`#"!L"BX@*``,L*@`%&XL(F@`!%*H``02@7`*L@!F&"!L"BX(*``&`!MG
  1003. + M#"\(3KI(2%A/<%Q@`G!<8!8@;`HN4Z@`#"\L"BY(>`!<3KI#"E!/8`XO+`HN
  1004. + M2'@`7$ZZ0OI03R!L"BX(*``!`!MG:%*H``P@;`HN("@`#+"H`!1N.")((&D`
  1005. + M!%*I``00$Q"`<@JP`68<(&P*+@@H``8`&V<0+PA.ND?46$\0$W(`$@!@!A`3
  1006. + M<@`2`&`<(&P*+E.H``P0$TB`2,`O+`HN+P!.ND**4$\B`&`4$!-(@$C`+RP*
  1007. + M+B\`3KI"=%!/(@!2BV``_O`@;`HN""@``0`;9VY2J``,(&P*+B`H``RPJ``4
  1008. + M;CPB:``$4J@`!!`L``02@'(*L`%F'B!L"BX(*``&`!MG$B\(3KI'1EA/$"P`
  1009. + M!'(`$@!@"!`L``1R`!(`8!X@;`HN4Z@`#!`L``1(@$C`+RP*+B\`3KI!]E!/
  1010. + M(@!@+!`L``1(@$C`+RP*+B\`3KI!WE!/(@!@%"\M``I(>O6`+RP*+DZZ069/
  1011. + M[P`,(&P*+@@H``$`&V=84J@`#"!L"BX@*``,L*@`%&XN(D@@:0`$4JD`!'`*
  1012. + M$("P`&88(&P*+@@H``8`&V<,+PA.ND:B6$]P"F`"<`I@%B!L"BY3J``,+RP*
  1013. + M+DAX``I.ND%D4$]@6B\L"BY(>``*3KI!5%!/8$I*K``R9R9P/]"M``IR0$ZZ
  1014. + M.3XO`"\M``0O%4AZ].9(;`:N3KI`R$_O`!1@'B\M`!(O+0`$+RT`"B\52'KT
  1015. + MT$AL!JY.ND"H3^\`&"\M`!QA`/P&6$],WR@$3G4@#UE`L*P'1&4`.=Y(YP,$
  1016. + M*F\`$'X`(`UG4B\M`!AAX"X`+JT`'&'8WH`NK0`23KHYR%A/5H#>@"PM``I*
  1017. + MAF<.4H<@!G(*3KHXK"P`8.XL+0`.2H9F`E*'2H9G#E*'(`9R"DZZ.)`L`&#N
  1018. + M(`=,WR#`3G4@#Y!\`CRPK`=$90`Y:I[\`B1(YR<T0JP*%D*L"AHD;`HZ0A)"
  1019. + MK`>4?``@!AH`(@4900>80J\"/$*L``!"+`H4'T``'Q]!`!X@;`HJ""@`!``;
  1020. + M9@`"Z!X:2(=(QV8H*6P*&@H>4JP*%B\(2&P*-F$`$)903U*`T:P*&B1L"CI"
  1021. + MK`>40BP'F'!<OH!F,!X:2(=(QV8B*6P*&@H>4JP*%B\L"BI(;`HV80`07E!/
  1022. + M4H#1K`H:)&P*.GX@8``!'$H&9TYP*KZ`9@`!$!X:2(=(QW`JOH!F`F#R2H=F
  1023. + M)BEL"AH*'E*L"A8O+`HJ2&P*-F$`$!A03U*`T:P*&B1L"CI"K`>4<"^^@&8`
  1024. + M`-!\`&```,I*!6<.<"*^@&8`_S!Z`&``_RI*+P`?9Q!P)[Z`9@#_'$(O`!]@
  1025. + M`/\4(`=R(I"!9QI3@&<V68!G&%&`9QYR3)"!9SY5@&=08```@'H!8`#^[!]\
  1026. + M``$`'V``_N)P*K`29@#^VE**?`%@`/[2(&P*.E*(M<AF`/[&<`$I0`>48`#^
  1027. + MO'`"L*P``&8&<`,I0```4J\"/&``_J8@;`HZ4HBUR&8(<``O0`(\8`13KP(\
  1028. + M2J\"/&8`_HAP`["L``!F`/Y^<`0I0```8`#^="`O`CQF``%&2@5F``%`2@9F
  1029. + M``$Z$BP'F$H!9@`!,$HO`!YG``$20>P(&$HP>`!G``#X(&P*.B(*)`&4K`HZ
  1030. + M+TH`+"]L"A8`*"]L"AX`)"\`2&\`/"\-2&\`."]"`$`O2`!$80`!#$_O`!`D
  1031. + M;P`L+T``(&<``*H@+P`D(BP*'K*`9U0O`&$``]P@+`I"D*\`."!-T<`@"R(-
  1032. + MD(%2@"Z`+PA(;P!$3KHW;B`+(@V0@4'O`$G1P$(0+J\`,"\O`#0O`B\L"D(O
  1033. + M+P!02&\`6&$`]F)/[P`@8$`@"R(-D(%2@"\`+P%(;P!$3KHW+"`+(@V0@4'O
  1034. + M`$G1P$(0+J\`,"\O`#0O`B\L"CHO+P!02&\`6&$`]B!/[P`@("\`.!E`!YA"
  1035. + M+P`>*DI3C6`D0>P(ETHP>`!G&E*+8!9![`D62C!X`&<,)DI3BRI+'WP``0`>
  1036. + M<#N^@&8`_2!P!+"L``!F`/T60JP``&``_0Y,WRSDWOP")$YU(`^0?``0L*P'
  1037. + M1&4`-B193TCG+Q0N+P`P*F\`)"95<`$@;P`L((`<*___>`!*K`>49D80!DB`
  1038. + M0>P'F4HP``!G;AP;2@9F["!L"BH(*``$`!MF7"EL"AH*'E*L"A8O"$AL"C9A
  1039. + M``U<4$]2@-&L"AHF;`HZ0JP'E&"Z4JP'E"`L!Y1R!+"!;!Q5@&8D2'@`!DAZ
  1040. + M\'XO+P`P3KHUO$_O``Q*@&<,&7P``0>8>`%@``(H2JP`)F<T2'@`!TAZ\%PO
  1041. + M+P`P3KHUDD_O``Q*@&8<(&\`*!`H``=(@$'L"!A*,```9PAP`2E```!@P'`!
  1042. + ML*P``&8``)!(>``&2'KP)B\O`#!.NC543^\`#$J`9A0@;P`H$"@`!DB`0>P(
  1043. + M&$HP``!F6$AX``5(>O`"+R\`,$ZZ-2A/[P`,2H!F%"!O`"@0*``%2(!![`@8
  1044. + M2C```&8L2'@`!$AZ[]PO+P`P3KHT_$_O``Q*@&8>(&\`*!`H``1(@$'L"!A*
  1045. + M,```9PIP`BE```!@`/\J<`*PK```9@IP`RE```!@`/\8<`&PK```9@IR!"E!
  1046. + M``!@`/\&<@.RK```9@I*AV8&=`0I0@``=`2TK```9@X@;P`L0I`O0``<8``!
  1047. + M"DJL!Y1F("\!2'KO7"\O`#!.NC1V3^\`#$J`9@IP`1E`"A1@`/ZX2BP*%&<.
  1048. + M0BP*%'`!+T``'&```-!P*+P`9@#^G'H`'!MP*;P`9V)*!F8P(&P**@@H``0`
  1049. + M&V92*6P*&@H>4JP*%B\(2&P*-F$`"X903U*`T:P*&B9L"CI"K`>4$`9(@$'L
  1050. + M"19*,```9@9P+[P`9@12!6"L$`9(@$'L!YE*,```9IY*!6::8`#^,!P;$`9(
  1051. + M@$'L!YE*,```9S9*!F;L(&P**@@H``0`&V8F*6P*&@H>4JP*%B\(2&P*-F$`
  1052. + M"Q103U*`T:P*&B9L"CI"K`>48+H0!DB`0>P)E1(P``!(@4C!+T$`'"!+4X@J
  1053. + MB$J$9@I*KP`<9P1P`6`"<`!,WRCT6$].=2`/D'P`#+"L!T1E`#,R2.<#`"XO
  1054. + M``PO+`HJ3KH]"BP`0I<O!R\L"BI.NCV,+JP**DAL"CYA``J80I<O!B\L"BI.
  1055. + MNCUT3^\`&$S?`,!.=2`/44"PK`=$90`RYB\-*F\`"$*L"A9"K`H:0JP*2@@M
  1056. + M``0`&V8``<92K`H6*6P*&@H>+PU(;`HV80`*1E!/4H#1K`H:(&P*.BE("D80
  1057. + M$'(EL`%F!%*L"D8@;`I&$!!(@$C`0^P%A0@Q``,(`&<&4JP*1F#D(&P*1A`0
  1058. + M2@!GH$B`2,``0``@<F.0@6=64X!G=%N`9PQ7@&<V78!G'&```*Q(>NU480`!
  1059. + M3EA/2H!G``"<80`!A&```)1(>NU$80`!-EA/2H!G``"$80`!;&!\2'KM-&$`
  1060. + M`2!83TJ`9VYA``%88&A(>NTH80`!#%A/2H!F#DAZ[2)A``#^6$]*@&=,80`!
  1061. + M-F!&2'KM&&$``.I83TJ`9S@@;`I&$!!(@$C`0^P%A0@Q``,(`&<&4JP*1F#D
  1062. + M(&P*1A`02@!G`/[F2'KLZF$``+183TJ`9P#^UB!L"D80$$B`2,!#[`6%"#$`
  1063. + M`P@`9P92K`I&8.0@;`I&$!!*`&<`_JY(@$C``$``(')FD(%G#G(*D(%G.%>`
  1064. + M9QQ@`/Z22'KLH&$``&!83TJ`9P#^@F$``1Y@`/YZ2'KLDF$``$A83TJ`9P#^
  1065. + M:F$``09@`/YB2'KLAF$``#!83TJ`9PAA``#P8`#^3$AZ['AA```:6$]*@&<`
  1066. + M_CQA``#88`#^-"`L"DHJ7TYUO^P'1&4`,/9(YP$$*F\`#'X`$!5G&`(`_]\@
  1067. + M;`I&T<=RW\(0L`%F!E*-4H=@Y$H59@C?K`I&<`%@`G``3-\@@$YUO^P'1&4`
  1068. + M,+0@;`I&$!!(@$C`0^P%A0@Q``,(`&<&4JP*1F#D(&P*1A`0<BJP`6964JP*
  1069. + M1B!L"D80$$B`2,!#[`6%"#$``P@`9P92K`I&8.0@;`I&$!!(@$C`0^P%A0@Q
  1070. + M``((`&8&4ZP*1F`:4JP*1B!L"D80$$B`2,!![`6%"#```@@`9N9.=2`/D'P"
  1071. + M&+"L!T1E`#`FGOP"`$CG`00@;`I&$!!(@$C`0^P%A0@Q``,(`&<&4JP*1F#D
  1072. + M(&P*1A`02@!G``"82(!(P'(#0^P%A<(Q"`!*`68.$!!R7[`!9P9R)+`!9G9+
  1073. + MZ``!$!5G,DB`2,!R`T'L!87",`@`2@%F'!`52(!(P`@P``((`&8.$!5R7[`!
  1074. + M9P9R)+`!9@12C6#*'A5"%2\L"D9(;P`,3KHP)!J'(`V0K`HZ4H`NK`H>+RP*
  1075. + M%B\`+RP*.DAX``%(;P`@80#N^%*L"DI/[P`<3-\@@-[\`@!.=2`/44"PK`=$
  1076. + M90`O2B\-*F\`"$*L"A9"K`H:0JP*2@@M``0`&V8``*!2K`H6*6P*&@H>+PU(
  1077. + M;`HV80`&JE!/4H#1K`H:*6P*.@I&(&P*1A`0<BBP`6;($"@``7)$L`%G!G)D
  1078. + ML`%FN!`H``)R1;`!9P9R9;`!9J@0*``#<D:P`6<&<F:P`6:8(&P*1A`02(!(
  1079. + MP$/L!84(,0`#"`!F!E*L"D9@Y"!L"D80$$B`2,!#[`6%"#$``P@`9P92K`I&
  1080. + M8.1A```*8`#_6BI?3G4@#Y!\`ABPK`=$90`N?I[\`@!(YP$$(&P*1A`02@!G
  1081. + M5$OH``$0%6<0<BBP`6<*<B"P`6<$4HU@[!X50A4O+`I&2&\`#$ZZ+MP:AR`-
  1082. + MD*P*.E*`+JP*'B\L"A8O`"\L"CI(>``!2&\`(&$`[;!2K`I*3^\`'$S?((#>
  1083. + M_`(`3G4@#U%`L*P'1&4`+@(O#2IO``A"K`H60JP*&D*L"DH(+0`$`!MF``%0
  1084. + M4JP*%BEL"AH*'B\-2&P*-F$`!6)03U*`T:P*&BEL"CH*1B!L"D80$'(HL`%F
  1085. + M=A`H``%R1+`!9P9R9+`!9F80*``"<D6P`6<&<F6P`696$"@``W)&L`%G!G)F
  1086. + ML`%F1B!L"D80$$B`2,!#[`6%"#$``P@`9@92K`I&8.0@;`I&$!!G'DB`2,!#
  1087. + M[`6%"#$``P@`9@@0$'(HL`%F!E*L"D9@VF$``+`@;`I&$!!R*+`!9@#_1A`H
  1088. + M``%R4[`!9PAR<[`!9@#_-!`H``)R1;`!9PAR9;`!9@#_(A`H``-R5+`!9PAR
  1089. + M=+`!9@#_$!`H``1R(;`!9P:P`68`_P`0*``%2(!(P$'L!84(,``#"`!G`/[J
  1090. + M(&P*1A`02(!(P$/L!84(,0`#"`!F!E*L"D9@Y"!L"D80$$B`2,!#[`6%"#$`
  1091. + M`P@`9P92K`I&8.1A```*8`#^JBI?3G4@#Y!\`ABPK`=$90`LAI[\`@!(YP$$
  1092. + M(&P*1A`02@!G9$OH``$0%6<@<BBP`6<:<BFP`6<42(!(P$'L!84(,``#"`!F
  1093. + M!%*-8-P>%4(5+RP*1DAO``Q.NBS4&H<@#9"L"CI2@"ZL"AXO+`H6+P`O+`HZ
  1094. + M2'@``4AO`"!A`.NH4JP*2D_O`!Q,WR"`WOP"`$YU(`]10+"L!T1E`"OZ2.<A
  1095. + M%"IO`!1"K`H60JP*&D*L"DHO#6$``*Y83TJL`#YF$B\L`$)(>N>&80`!5E!/
  1096. + M*4``/@@M``0`&V8``(12K`H6*6P*&@H>+PU(;`HV80`#.%!/4H#1K`H:(&P*
  1097. + M.BE("D8F2!`L`$9(@$C`+P`O+`I&80`$<E!/*4`*1F>V4JP*1B!L"D9*$&>J
  1098. + M(`@B`"0+DH+3K`H>)D`O"V$``FY83RX`2H=KOB`'YX`@;``^T<`O*``$+PMA
  1099. + M``'*4$]@`/]V3-\HA$YU(`^0?``,L*P'1&4`*R9(YP,$*F\`$'P`""T````;
  1100. + M9RA3K0`(;18(+0`-`!YF#B!M``12K0`$<``0$&`(+PU.NC-R6$\N`&`*+PU.
  1101. + MNC-F6$\N`"`'4H!G)'`EOH!F!'P!8+9P"KZ`9@1\`&"L2H9FJ'!<OH!G!G`A
  1102. + MOH!FG'!<OH!F%!E\`%P`1AE\`'L`1QE\`'T`2&`2&7P`(0!&&7P`/`!'&7P`
  1103. + M/@!(0J="IR\-3KHT^D_O``Q,WR#`3G4@#Y!\`!2PK`=$90`J:E%/2.<C%"\O
  1104. + M`"!.NC`L6$\J0"`-9@8J;P`D8!1(>N1F+R\`*"\-80`#VD_O``PJ0'X!)DT@
  1105. + M"V<>2'@`.B\+80`#%E!/)D`@2R`(9^A2BTH39^)2AV#>(`=2@"(`YX$O`6$`
  1106. + M!"Q83WP`+T``&$H59W9(>``Z+PUA``+>4$\F0"`+9@PO#4ZZ*?)83R9-U\`@
  1107. + M"R(-D(%*@&\T)`;G@B\`+P%A``)&(&\`("&`*``@!N>`+K`(`"]``!Q.NBF^
  1108. + M4$\@;P`8(B\`%"&`&`12ADH39P9+ZP`!8)8@!N>`(&\`&$*P"`!"L`@$("\`
  1109. + M&$S?*,103TYU(`^0?`(8L*P'1&4`*6J>_`(`2.<!%"XO`A0J;P(0)DW7QTH5
  1110. + M9U@0$V<*L"P`2&<$4HM@\B`+(@V0@2\`+P%(;P`43KHIIB`+(@V0@4'O`!C1
  1111. + MP$(0+JP*.DZZ*2PNK`H>+RP*%B\`+RP*.DAX``%(;P`H80#HDE*L"DI/[P`@
  1112. + M3-\H@-[\`@!.=2`/D'P`#+"L!T1E`"CB2.<!!"IO``Q^`"`'YX`@;``^(DC3
  1113. + MP"`I``1*@&\B(`?G@-'`+R@`!"\-+Q!.NBC63^\`#$J`9@0@!V`&4H=@RG#_
  1114. + M3-\@@$YU(`]90+"L!T1E`"B.+PTJ;P`(<&30@"J`+P!A``*B*T``!%A/*E].
  1115. + M=2`/D'P`#+"L!T1E`"AD64](YP$V*F\`(")O`!P@:0`$)D@B2RQO`!S3UB1)
  1116. + M+T@`%`@M````&V<H4ZT`"&T6""T`#0`>9@X@;0`$4JT`!'``$!!@""\-3KHP
  1117. + MF%A/+@!@"B\-3KHPC%A/+@"WRF8X(&\`'"`0(@#2@2"!+P$O+P`880`"2E!/
  1118. + M(@`@;P`<DJ@`!-?!($`B0"QO`!S3UB1)+4``!"]``!1*AVL&<`J^@&8$0A-@
  1119. + M""`'%L!@`/]V(`N0KP`43-]L@%A/3G4@#U%`L*P'1&4`)YPO#2IO``@O#4ZZ
  1120. + M)Z`N@"\-80``"%!/*E].=2`/D'P`#+"L!T1E`"=T2.<!%"XO`!0J;P`0(`=2
  1121. + M@"\`80`!A"9`+H<O#2\+3KHGQD(S>`!/[P`,(`M,WRB`3G6_[`=$90`G.DCG
  1122. + M`10>+P`7*F\`$)?+$!6P!V8")DT@35*-2A!F\"`+3-\H@$YUO^P'1&4`)PQ(
  1123. + MYP$$'B\`$RIO``P0%;`'9@0@#6`*($U2C4H09NYP`$S?((!.=2`/44"PK`=$
  1124. + M90`FVDCG`!0F;P`0*F\`#"\++PUA```42'@``4ZZ+))/[P`,3-\H`$YU(`^0
  1125. + M?``,L*P'1&4`)J9(YP`4)F\`$"IO``PO+`HF2'K?_$AL!M!.NBTT+HLO#4AL
  1126. + M!M!.NBTH2'KB.$AL!M!.NBT<3^\`'$S?*`!.=2`/D'P`#+"L!T1E`"9:64](
  1127. + MYP<4)F\`("IO`!PO#4ZZ)E8N`"Z+3KHF3BP`+J\`*$ZZ)D0J`"`'T(;0A5*`
  1128. + M+H!A``!*+HTO`"]``!Q.NB:P(&\`'-''+HLO"$ZZ)J(@;P`@T<?1QBZO`#`O
  1129. + M"$ZZ)I`@;P`D(DC3Q]/&T\5"$4_O`!`@"$S?*.!83TYU(`]10+"L!T1E`"70
  1130. + M2.<#`"XO``PO!TZZ*(I83RP`2H9F#$*G2'KA=&$`_LQ03R`&3-\`P$YU(`]1
  1131. + M0+"L!T1E`"6:2.<#!"XO`!0J;P`0+P<O#4ZZ)EI03RP`2H9F"DAZX3IA`/Z2
  1132. + M6$\@!DS?(,!.=0``2.<@,B!O`!A#[P`<1?H`'"9O`!0D"RQY````!$ZN_?8@
  1133. + M"Y""3-],!$YU%L!.=0``(&\`!")O``A93TCG,S8J2'X`(&P+>"PH`.`O20`@
  1134. + M2H9F($JL!VQF&D'L`&0B""0\```#[2QL"^1.KO_B+`!G`GX!2H9G-B(&0>P`
  1135. + M;B0(0>P'="8(+&P+Y$ZN_IXB!B0-)B\`($ZN_IXB!G0*3J[^R$J'9U@B!DZN
  1136. + M_]Q@4"!L"W@F:`"X,'S__[?(9T!#[`!T<"4L>``$3J[]V"1`2H!G+"EL!W0`
  1137. + M6"E-`%PO"B!++$I#[`!0E<HF;P`D3J[]M$S?!``B2BQX``1.KOYB3-]LS%A/
  1138. + M3G4@;P`$0^\`"&``_RH@;P`$0^\`"&$`_QYP%$[Z*B```"!O``2>_`!42.<X
  1139. + M%BI((`UG)$H59R`@34H89OQ3B)'-(@AP`B!-3KH;IG`"(@!![`"(3KH;FB`L
  1140. + M"YQO$K"L!6)N#.6`0>P$QB9P"`!@+%*`9B0B+`=(=`!![P`;)@AX42QL"^1.
  1141. + MKOXL2D!G!"9#8`I'[`",8`1'[`"0($M*&&;\4XB1RR((<`(@2TZZ&T)P`G(!
  1142. + M0>P`I$ZZ&S9,WV@<WOP`5$YU2.<`!G`(<@`L>``$3J[_.BI`2H!F!'``8"Y"
  1143. + MK0`$2'@`*'``+P!R`4'L`*B3R<%!3KH>CE!/*H!F#")-<`A.KO\N<`!@`B`-
  1144. + M3-]@`$YU(&\`!$CG``8J2"`-9Q@@36$``!X@54ZZ'M(B37`(+'@`!$ZN_RY,
  1145. + MWV``3G4@;P`$2.<`!BI(2JT`!&<4(E4L>``$3J[^(")53J[^)D*M``1,WV``
  1146. + M3G4@;P`$(%`B:``.<``0*0`/<@'AH2`!3G4@;P`$("\`""(O``Q(YP,&+`$N
  1147. + M`"I(8:I*AV8$2H9G'B)5(T<`("-&`"0S?``)`!PL>``$3J[^,G`!*T``!$S?
  1148. + M8,!.=2!O``1(YP`&*DA*K0`$9QPB52QX``1.KOXL2D!G#B)53J[^)D*M``1P
  1149. + M`6`"<`!,WV``3G4O#B`L"X0B`$A!0D'2@"`L"WBS@"E`"E1"K`I80^P`O'``
  1150. + M+'@`!$ZN_=@I0`I0</].KOZV2(!(P"E``+A*K`I09PA*@&L$<`%@`G``*4`*
  1151. + M7"Q?3G4O#B`L`+AK""QX``1.KOZP("P*4&<*(D`L>``$3J[^8BQ?3G4@+P`$
  1152. + M44](YP,`+@!.N@4H(`=.N@&02H!G*")`(&D`'')`Y8G"D2](``P@`2!I``0B
  1153. + M;P`,3I$L`"`'3KH!2"`&8`)P_TS?`,!03TYU("\`!"\'+A]@K@``(&\`!"`O
  1154. + M``@B;P`,+V\`$``$+V\`%``(+V\`&``,+V\`'``0+V\`(``4+V\`)``844](
  1155. + MYP<4+@!([P,``!1\`"IL"F!@%DJM``1F"C!\``$K2``$8`Q2AMK\`"2\K`ID
  1156. + M;>0@+`IDO(!F>'(*TZP*9"`L"F0B`.>!TH#E@2`!3KHCZ"I`2H!F#'`,*4`+
  1157. + MG'#_8```CG#VT*P*9"(`YX'2@.6!(&P*8")-8`(2V%.!9/H@+`I@9P8@0$ZZ
  1158. + M(D(I30I@>O;:K`ID(`7G@-"%Y8#;P)?+*TL`!%*%VOP`)+JL"F1M\"`&YX#0
  1159. + MAN6`(&P*8"&O`!0(!"&'"``AKP`8"`A+[P`@(9T(#"&="!`AG0@42^\`+"&=
  1160. + M"!@AG0@<(9T(("`&3-\HX%!/3G4@+P`$(@!K%K*L"F1L$"`!YX#0@>6`(&P*
  1161. + M8$*P"`1.=2`O``1(YP$$+@!K'KZL"F1L&"`'YX#0A^6`*FP*8-O`2JT`!&<$
  1162. + M(`U@"'`)*4`+G'``3-\@@$YU("P*9$YU```@+P`$64\N@$'L`-`@"%A/3G4@
  1163. + M;P`$64\NB$'L`-`@"%A/3G4@+`#03G4``"!O``193TCG(P(B"'3^+&P+Y$ZN
  1164. + M_ZPO0``09SHN+`N<3KK_JBP`8!Y(;P`02'@(!2\&3KH-!$_O``Q*@&8(*4<+
  1165. + MG'``8!)3AFS>(B\`$"QL"^1.KO^F</],WT#$6$].=2!O``1(YR$&*DA.N@*^
  1166. + M(@TL;`OD3J[_N$J`9P1P`&!03J[_?"X`<F_2@;"!9B`B#70`3J[_1DJ`9PXB
  1167. + M#4ZN_[A*@&<$(`)@*$ZN_WPN`'!ET("^@&8.($UA`/]*2H!F!'``8`P@!TZZ
  1168. + M&`PI0`N<</],WV"$3G4``"`O``193RZ`("P+=&<.($!.NOQB2H!G!'(!8`)R
  1169. + M`"`!6$].=2`O``1R`"!L"W1.^OP(3KK[/"E`"W1F"DAL`/!.NOIV6$\@;`MT
  1170. + M3KK[S(&L"FA.=2!L"W1.^OMH".P`#`IJ3G4@+P`$"```#%;`1`!(@$C`3G4(
  1171. + M[``-"FI.=2`O``0(```-5L!$`$B`2,!.=4ZZ&,)P`"!L"]00*``/<@'AH8.L
  1172. + M"FA.=4[Z&10@+P`$64](YP$6+T``$'X`8"X@+0`43KH8:B9`2H!G%$JK`!1F
  1173. + M#GX!<`$G0``4)VT`&``8(DUP'"QX``1.KO\N(&P+U"QX``1.KOZ,*D!*@&;`
  1174. + M(`=,WVB`6$].=2`O``1(YP\$+@!P`>^@+`!P";Z`9@9P`$ZZ"Q`@+`MLP(9G
  1175. + M!HVL"W!@>BH&1H7+K`MP2H=K9G`@OH!L8"`'YX!![`IL*G`(`#!\``&[R&8L
  1176. + M(`=5@&<44X!G$'(-D(%G/%F`9SA1@&<T8`I(;`$(3KKY-%A/<`!.N@JR8"`@
  1177. + M#6<<(`?G@"@&0>P*;(BP"`2)K`ML(`=.E4:$R:P+;"`L"W#`AF:*3-\@\$YU
  1178. + M("\`!"\.(BP*:(*`<``L>``$3J[^SBQ?3G4@+P`$+PXB`"`L"FB`@2QX``1.
  1179. + MKO["+%].=2`O``1(YP,`+@!\`&$`_A!*@&<(?`%P#F$`_PP@!V$`_F)*@&<(
  1180. + M?`%P`F$`_OH@!V$`_FI*@&<(?`%P`V$`_N@@!V$`_H9*@&<(?`%P%&$`_M8@
  1181. + M!DS?`,!.=2`O``0O!RE`!TQP""X?8`#^O'``80#_8&"08/9(YP$4?@!+[`IL
  1182. + M-GP``2J+0JT`!%*'4(UP(+Z`;?!"K`MP0JP+;$*L"FAA`/W480#]ZF$`_:),
  1183. + MWRB`8`#]^&$`_;A@`/X(``!(;`$<3KKX#EA/3G4@+P`$+PU.NA\D*D!*@&8"
  1184. + M8>(@#2I?3G4@;P`$("\`""\+3KH=&"9`2H!F`F'&(`LF7TYU(&\`!"\-*D@@
  1185. + M#68$2^P!)B!-2AAF_%.(D<T@"%*`3KH>V"!`2H!F!'``8`@B2!+=9OP@""I?
  1186. + M3G593TCG`S1^`'P`(&P+>"9H`-!@+$HK``AF)#`\!0#`:P`.9AI2AR!K``H@
  1187. + M"$H89OQ3B)'`(`C<@-RK`!14AB932I-FT"`'4H#E@-"&80#_2BE`"Y#EAR!`
  1188. + M(D#3QT7I``0O0``49@I![`$8*4@+D&!6(&P+>"IH`-!@0DHM``AF.C`\!0#`
  1189. + M;0`.9C`F;0`*+BT`%"!O`!0@RB](`!1@`A3;2A-F^A3\`#TF;0`08`(4VR`'
  1190. + M4X=*@&;V0AHJ54J59KH@;P`40I!,WRS`6$].=2!O``0@+P`(+PTJ2"J`0JT`
  1191. + M!.6`80#^M"M```@J7TYU(&\`!")O``@@+P`,2.<B-"9)*DA*@&<*($MA`/["
  1192. + M)$!@`B1+(`IG/B(5)"T`!+2!;2(L`=R&=!#2@KR!;0(B!BJ!(`'E@"!M``A.
  1193. + MNAN6*T``"&<21^T`!"(34IOE@2!;(8H8`'`!3-\L1$YU(&\`!")O``@@+P`,
  1194. + M89)*@&8$80#^&DYU(&\`!")O``A(YP`4)DDJ2"`M``30JP`$L)5O$M"`*H#E
  1195. + M@"!M``AA`/X:*T``""(M``3E@2!M``C1P2`K``0B`.6!(FL`"&`"$-E3@63Z
  1196. + MT:T`!"!K``A,WR@`3OH;AB!O``0B;P`(+V\`#``$("\`$"(O`!193TCG`C0L
  1197. + M`2I))$@O2``02H!G1%.`9PI3@&<``+9@``#T4X9G(B`O`!@B#9"!(&\`$$(P
  1198. + M"``@02)O`!!@`A+84X!D^F```,Y![`$H(F\`$!+89OQ@``"^)F\`&&!N<%RP
  1199. + M%69F2BT``6=@5(UP`;R`9@84_`!A8%0@!E6`9D80+?__2(!(P'(CD(%G+E6`
  1200. + M9RI5@&<F4X!G(E.`9QY3@&<:<A60@6<4<AR0@6<.58!G"G(?D(%G!%6`9@04
  1201. + M_``G%.W__V`(%.W__V`"%-V[RV6.8$`F;P`88#9P*K`59BY*+0`!9RA4C1`M
  1202. + M__](@$C`<F60@6<,<@F0@68,%/P`"F`.%/P`&V`(%.W__V`"%-V[RV7&0A),
  1203. + MWRQ`6$].=9[\`2Q(YS\V*F\!6"!L!V@,:``E`!1D"DAX`!1.NLTN6$]"K`:H
  1204. + M<`$I0`:D*4`&RG`"*4`&QBE`!NPI?````(0&Z)/)+'@`!$ZN_MHI0`MX3KKU
  1205. + M`"E`"WQF"DAL`2I.NO0Z6$\@;`M\3KKUD"E`"X`L;`M\(%8L:``4*4X+C$'O
  1206. + M`3!.KO^^*6\!,`N$3KKU^$ZZ^ZP@;`MX("@`K&<0Y8`B0"(I`#3E@2E!"XA@
  1207. + M!BEH`(0+B$H59@``Z$'L`4(B""0\```#[BQL"^1.KO_B+`!![`%((@A.KO_B
  1208. + M+@!![`%.(@A.KO_B*@!*AF<(2H=G!$J%9B)*AF<&(@9.KO_<2H=G!B('3J[_
  1209. + MW$J%9P8B!4ZN_]QA`/MR<`$O`"\%+P`O!R(&P4%.N@VV(&P';"`H`!Q![P%8
  1210. + M80#\GD_O`!!\`'X`8%`B;`=L(&D`)"`P>`!G/B(`0^\`,"0)=D#EBRQL"^1.
  1211. + MKOYN2H!G)B)L!VP@:0`DT<<@*``$9P@B`B0`3J[\CG`!0>\!2$/O`#!A`/S8
  1212. + M4H90AR!L!VR\J``<;:9@``+&+&P+Y$ZN_\HH`$ZN_\0J`'X`(&P+>"PH`.!F
  1213. + M*'X!0>P!5"(()#P```/M3J[_XBP`9A)![`%6(@A.KO_B+`!F!&$`^J0O!R\&
  1214. + M<``O`"\%(@3!04ZZ#.AP`4'O`5AA`/O6(#P```4:80#ZCB!`,7P$```2+T``
  1215. + M/'!`Y8AA`/IZ3^\`$'Y`Y8\O0`$X8`)2C1`52(!(P$'L!84(,``#"`!F[!`5
  1216. + M9P`"$'(BL`%F,%*-)DU@$'`JL!5F"$HM``%G`E*-4HT0%6<&<B*P`6;F)$T0
  1217. + M%7(BL`%F`E*-?`)@4G`GL!5F(%*-)DU@`E*-$!5G!G(GL`%F]"1-<">P%68"
  1218. + M4HU\`6`L)DU@$'!<L!5F"$HM``%G`E*-4HT0%6<02(!(P$'L!84(,``#"`!G
  1219. + MW"1-?``@2RH*FHL@!5*`+T@`*&$`^;@F0$JO`4QF("`%($LB;P`H3KH6@$(S
  1220. + M6`!P`$'O`4@B2V$`^V)@`/\HVH5R$-J!NH=O%"!O`3A.NA<Z(`5A`/EX+@4O
  1221. + M0`$X+PH@!G(!($LB;P`L80#[L%A/(@LD+P$X)@<L;`OD3J[\N"H`;!!"$B\O
  1222. + M`"A(;`%<3KKQ0E!/2H5F(B\*(`9R`"!+(F\`+&$`^W9P`$'O`4PB2V$`^NI8
  1223. + M3V``_JYZ`2!O`"Q"J``(0B@`$4(H`!`O"B`&<@(@2R)O`"QA`/M"<!!![P%`
  1224. + M80#Z*%A/(@LD+P`L+&P+Y$ZN_,I@*'H`(F\`+-+\`1AP`4'O`3QA`/HF2H!F
  1225. + M!'AG8!(B+P`L+&P+Y$ZN_,0H`$J$9](B+P`L+&P+Y$ZN_+YP=-"`N(!G"DAL
  1226. + M`7!.NO"26$]*A6<B+PH@!G(`($LB;P`L80#ZQG``0>\!3")+80#Z.EA/8`#]
  1227. + M_B`O`4`@;P%$3KH13$'O`4A#[P$\80#Z,"!+3KH6!&``_=P@;P$X3KH5^"!O
  1228. + M`"Q.NA7P80#XF$'L`8I.N@P<*4``T&8(0>P!D"E(`-!![`&63KH,!BE``.1F
  1229. + M!BEL`-``Y$'L`:!.N@OR*4``Z&8(0>P!IBE(`.A![`&J3KH+W"E``.QF"$'L
  1230. + M`;`I2`#L0>P!N$ZZ"\8I0`N49@A![`'"*4@+E"`O`4P@;P%0(FP+D$ZZ*+1P
  1231. + M`$ZZ&>),WVS\WOP!+$YU```@+P`$2.<#`"X`2JP+F&<$(`=@8'P`(`<"@```
  1232. + M`21G`GP("`<`!V<$`$8`!0@'``1G!`C&``((!P`!9P0(Q@``"`<``V<$",8`
  1233. + M`0@'``!G!`C&``8@!W))P(%R0+"!9@0`1@!""`<`"6<$",8`!2`&"D``#TS?
  1234. + M`,!.=2`O``1(YP8`+`!*K`N89P@@!@)`#_]@7GH`"D8`#P@&``-G!'I)Y8T@
  1235. + M!G(%P(%;@&8$",4`!P@&``)G!`C%``0(!@``9P0(Q0`!(`9R0L"!9P0(Q0`&
  1236. + M"`8``6<$",4``P@&``9G!`C%```(!@`%9P0(Q0`)(`5,WP!@3G4``$CG`P!.
  1237. + MNO+B+@!\`&`*+P9.NO%*6$]2AKR';?),WP#`3G4@+P`$+P<N`&'43KKPODZZ
  1238. + M]EP@;`M\3KKO?"\'3KK''EA/+A].=2`O``0O!RX?8-0``"`O``0B+P`((&\`
  1239. + M#%%/2.<#)"P!+@`J2$ZZ]=@@!TZZ\D!*@&<:(D`@:0`@+T@`%"`&(&D`!")-
  1240. + M)&\`%$Z28`)P_TS?),!03TYU``">_``,2.<O-BIO`#1^`\ZO`#A\`2!L"W@F
  1241. + M:`"X*CP```/L3KKU@DJ'9PIP`KZ`9P1R`&`"<@$O00`H<`&^@&<(58=G!'``
  1242. + M8`)P`2]``"P@34/L`<A.N@[22H!F!GC_8``!5G#_(&P+>"%``+@B#73^+&P+
  1243. + MY$ZN_ZPN`"!L"W@A2P"X2H!F>"QL"^1.KO]\3KH*P"P`("P'2'(N1@&P@6<$
  1244. + M2H!F"GX!*CP```/N8!8@!E6`9@P(+P`(`#IG!'`!8`)P`"X`2H=G+'P`""\`
  1245. + M"``Z9QP(+P`/`#IG!G@"8```V"`O`#Q.NOV&*`!@``#*>/]@``#$*48+G'#_
  1246. + M8``!1$*G<@(L;`OD)`].KO\<W_P````$)$!*@&<,(@<D"DZN_YI*@&86(`IG
  1247. + M"'(")`I.KO\63KH+&'#_8``!""@J`'1R`B0*3J[_%B('3J[_IG!0Z8C`KP`X
  1248. + M#(````4`9@QP$2E`"YQP_V```-I*KP`H9P8(!``#9@Q*KP`L9Q((!``"9PQP
  1249. + M#2E`"YQP_V```+8(+P`)`#IG(B(-)#P```/N3J[_XDJ`9P@B`$ZN_]Q@"DZZ
  1250. + M"IQP_V```(P(+P`(`#IG!"`%8`8@/````^TD`"(-+&P+Y$ZN_^(J`&8(3KH*
  1251. + M<'#_8&`(+P`)`#IF!$J&9@0L!&`"?/]^`$JO`"AG`GX!2J\`+&<$",<``0@O
  1252. + M``,`.V<$",<``R\'(`4B!DZZ!9Y83RX`;!QP_R!L"W@A0`"X(@4L;`OD3J[_
  1253. + MW"!L"W@A2P"X(`=,WVSTWOP`#$YU(&\`!"\O``PO+P`,+PAA`/VF3^\`#$YU
  1254. + M``">_``,2-<!`W#_WOP`#$YU44](UP,`4$].=4CG,`(B$$HH``UG!'``8!PD
  1255. + M"28`+&P+Y$ZN_]8B`%*`9@A.N@FH</]@`B`!3-]`#$YU44](YS\V+@`J22)(
  1256. + M+!$O1@`H+T@`+$HI``UG!G``8```C$HI``QG9B9-U\=Z`&!8)$U@`E**M<MD
  1257. + M!G`*L!)F]+?*9@0H"F`&0>H``2@(F(TB+P`H)`TF!"QL"^1.KO_0+`!2@&8(
  1258. + M3KH),G#_8#[:AK:&9C9+Z@`!GH9P`$ZZ\=Q.NO(,2H!F(DJ'9J1@'"(&)`TF
  1259. + M!RQL"^1.KO_0*@!2@&8(3KH(]G#_8`(@!4S?;/Q03TYU64](YSX"+!`O00`8
  1260. + M2B@`#6<$<`!@4E.!)@$B!B0`+&P+Y$ZN_[XJ`$ZN_WPH`%*%9P1*A&<.(`1.
  1261. + MN@>R*4`+G'#_8"0B!G0`)@).KO^^+`!2@&<$2H1G#B`$3KH'D"E`"YQP_V`"
  1262. + M(`9,WT!\6$].=9[\`0!(YS\&+@`J2"P5*BT`""`M``1G"B(`+&P+Y$ZN_Z88
  1263. + M+0`-2(1(Q"!-3KH/PDJ$9P1P`&!$(@9![P`@)`AV0.6++&P+Y$ZN_F@H`$J'
  1264. + M9@HB!DZN_]Q*@&<:2H1G$G#_NH!G#"(")`5.KO]&2H!G!'``8`9.N@?^</],
  1265. + MWV#\WOP!`$YU("\`!$CG(`(B`'0`+&P+Y$ZN_S1.KO]\="Y&`K""5\%$`4B!
  1266. + M2,$@`4S?0`1.=2`O``0@;P`((F\`#)[\`!!(YS<6+@`F22I(?`!AN$J`9GPB
  1267. + M!W0!+&P+Y$ZN_E9*@&=L(@=![`'0)`AV!$ZN_]!9@&92(@<D/```)Q!.KO\T
  1268. + M2H!G0B('0>\`("0(=A!.KO_6<@FP@6\N<)NP+P`@9B9![P`E(@@D"TZN_-`J
  1269. + M`$'O`";1P"(()`U.KOS04H!G!E*%9P)\`2('=`!.KOY6(`9,WVCLWOP`$$YU
  1270. + M("\`!"(O``B>_`(02.<_!BX`</\O0`(H+T$`)"('=`!V`2QL"^1.KO^^+T``
  1271. + M("('3J[_OBP`3J[_?"H`+T`"+&8``,(H+P`D(@<D!';_3J[^.+""9@``KKR"
  1272. + M;```GBH$FH8H!2`$<@%(02QX``1.KO\Z*D!*@&9J<@)(04ZN_RCBB"H`#(4`
  1273. + M``(`;1`@!7(!2$%.KO\Z*D!*@&9&>D#GC4OO`"@P/`'_<@!![P`H$,%1R/_\
  1274. + M8"RXA6\$(`5@`B`$)@!.NN^P(@<D#2QL"^1.KO_0L(-G"DZN_WPO0`(L8`:8
  1275. + M@TJ$;M!![P`HL<UG#")-(`4L>``$3J[_+BHO`BQF!$*O`B@L+P`@O*\`)&P.
  1276. + M(@<D!G;_+&P+Y$ZN_[XL+P(H9PH@!4ZZ!/@I0`N<(`9,WV#\WOP"$$YUGOP!
  1277. + M"$CG-Q8N`"9)*D@L%4HM``UF``$8(`<$@```!`!G(`2````$`&=*4X!G6%.`
  1278. + M9UQ3@&=>4X!G9E.`9VQ@``#N2BT`#&<F(`9![P$D0^\!(&$`_=9*@&<4("\!
  1279. + M)#=```(@+P$@-H!P`&```,IP&6```+XB!BQL"^1.KO\H)H!P`&```+(FAG``
  1280. + M8```JG``8```I"`&(A-A`/XV8```F"M3``AP`&```(XJ$TJM``1F#B(5+&P+
  1281. + MY$ZN_HPK0``$("T`!&=B)``B!2QL"^1.KOY<2H!F4B(&0>\`("0(=D#EBTZN
  1282. + M_FA*@&<^(@5.KO^F(BT`!$ZN_Z8B!DZN_]PB`G0`3J[_1AM\``$`#2J"*T(`
  1283. + M!$'O`"`B""QL"^1.KO^X2H!G!"`"8`Y.N@2V8`9P%BE`"YQP_TS?:.S>_`$(
  1284. + M3G4@+P`$(B\`""]O``P`!$CG#P8J+P`<+`$N`'`.3KH-:"I`2H!F"G`,*4`+
  1285. + MG'#_8$Y#U2+'0IDBQD(M``TB!RQL"^1.KO\H&T``#$AZ_G1(>OO:2'K[9DAZ
  1286. + M^JY(>OIX2'KZ:B`%($U#^OI23KKHXD_O`!@H`&P&($U.N@N@(`1,WV#P3G4@
  1287. + M+P`$(B\`""]O``P`!"]O`!``""]O`!0`#"]O`!@`$$CG#0`H+P`4*B\`$"X`
  1288. + M<`!*@68$<$#EB`!```$O`"`'<O]A`/]&6$]*@&9`<`!*A&8$<$#EB`!```(O
  1289. + M`"`%<O]A`/\H6$]3@&8B<`!*KP`<9@1P0.6(`$```B\`("\`''+_80#_!EA/
  1290. + M58!G$$'L`=8O2``03-\`L$[ZY41,WP"P3G4@;P`$(F\`"$CG(18F22I(3KKL
  1291. + MQ"(-)`LL;`OD3J[_LDJ`9P1P`&!L3J[_?"X`<C1&`;"!9E(B`DZN_[A*@&<.
  1292. + M(@U.KO^R2H!G!'``8$9.KO]\+@!R;]*!L(%F+"("=`!.KO]&2H!G&B(+3J[_
  1293. + MN$J`9Q`B#20+3J[_LDJ`9P1P`&`23J[_?"X`(`=.N@'T*4`+G'#_3-]HA$YU
  1294. + M```@+P`$(&\`""(O``Q93TCG`S0L`2X`*DA.NNP@(`=.NNB()D!*@&=$""L`
  1295. + M`0`#9S8(*P`#``-G%B!K`!@O2``4<`!R`B!K``0B;P`43I$@:P`4+T@`%"`&
  1296. + M(&L`!")-)&\`%$Z28`AP#2E`"YQP_TS?+,!83TYU("\`!"!O``@B+P`,2.<#
  1297. + M!$S?(,!@@"!O``2>_`!`2.<[%BI(3KKKGB`-9U)*%6=.(@U![P`@)`AV0'@`
  1298. + M+&P+Y$ZN_'8N`&TV3J[_?"P`4H!.N@K\)D!*@&<DOH9G%"8&4H,B#20+3J[\
  1299. + M=DJ`;Q`@`F`.($(B2Q+89OP@"V`"<`!,WVC<WOP`0$YU("\`!"(O``@O;P`,
  1300. + M``113TCG!P`J+P`8+`$N`$ZZZQP@!TZZYX1*@&<:(D`@:0`8+T@`$"`&(@4@
  1301. + M:0`$(F\`$$Z18`)P_TS?`.!03TYU("\`!"(O``@O;P`,``1(YP<`*B\`$"]%
  1302. + M`!!,WP#@8*```"`O``0@;P`((B\`#%E/2.<#-"P!+@`J2$ZZZK`@!TZZYQ@F
  1303. + M0$J`9R8(*P````-G&"!K`!`O2``4(`8@:P`$(DTD;P`43I)@"'`-*4`+G'#_
  1304. + M3-\LP%A/3G4@+P`$(&\`""(O``Q(YP,$3-\@P&">```@+P`$*4`'2$J`9P``
  1305. + MAG)GD(%G``""58!G``"`<@F0@6=\4X!G>%.`9W13@&=P4X!G;%.`9VA3@&=H
  1306. + M4X!G:')1D(%G9E.`9V93@&=F4X!G9E.`9V93@&=F58!G9E.`9V93@&=F4X!G
  1307. + M9E6`9V93@&=F4X!G9E.`9V93@&=F4X!G9E6`9V93@&=F4X!G9E.`9V9@:'``
  1308. + M8&9P#&!B<`M@7G`68%IP!V!6<`A@4G`08$YP$6!*<`)@1G`"8$)P%F`^<`=@
  1309. + M.G`68#9P)&`R<!9@+G`68"IP'F`F<!)@(G`E8!YP)F`:<!-@%G`68!)P'&`.
  1310. + M<`U@"G`-8`9P#6`"</].=2\.+&P+Y$ZN_WQA`/[Z*4`+G"Q?3G4@;P`$2.<`
  1311. + M!BI((DTL>``$3J[_!"!-3-]@`$[Z!T@@+P`$2.<!!"X`*FP+J&`.("T`#+"'
  1312. + M9@0@#6`(*E5*E6;N<`!,WR"`3G5(YR`"0>P+J$ZZ&7(@+`MX(BP+A"0`LX("
  1313. + M@@!___\I0@ND4H(I0@N@+P$O`$AL!6A(;`NT3KK@'D_O`!`L>``$3J[]9BE`
  1314. + M"]AG$'``0>P+M$ZZ&88I0`O49@I(;`5V3KKA!%A/3-]`!$YU+PX@+`O89PH@
  1315. + M0"QX``1.KOU@2JP+U&<X+'@`!$ZN_WQ@#")(<!PL>``$3J[_+B!L"]0L>``$
  1316. + M3J[^C"!`2H!FXB!L"]1.NAC@+'@`!$ZN_W8L7TYU```@;P`$("\`""(O``PB
  1317. + M;P`0+V\`%``$+V\`&``(64](YP\V*"\`+"HO`"@L`2X`*DDO2``@+'@`!$ZN
  1318. + M_68F0$J`9S`@2R`$3J[]<B1`2H!G(B`-9P@E30`H)44`)"!O`"`@!R)*(@9.
  1319. + MKOY$2@!F!"`*8!8@"F<&($I.KOUL(`MG!B!+3KH83'``3-]L\%A/3G4@;P`$
  1320. + M2.<`!BI((`UG&")-+'@`!$ZN_CX@;0`.3KH8(B!-3J[];$S?8`!.=5E/0?D`
  1321. + M````+HAG""!Y_____$Z06$].=5E/0?D`````+HAG""!Y_____$Z06$].=4CG
  1322. + M`Q<J;`O<8!0F57`4T*T`!")-+'@`!$ZN_RXJ2R`-9NA"K`O<8$PJ;`OH<)S0
  1323. + MK`=$)D`@+0`$*4`+Z"EM``@'1"XM`!A*@&8>(&P':`QH`"0`%&42($\L"$'M
  1324. + M``PL>``$3J[])"Y&(DL@!RQX``1.KO\N2JP+Z&:N3-_HP$YU(&\`!")O``@@
  1325. + M4")1$!BP&68$2@!F]I`A2(!(P$YU(&\`!"`O``A#^O_@<@1.^@>N(&\`!")O
  1326. + M``@@+P`,2H!O"A(0$-$2P5.`9O9.=2!O``0B;P`(<`!R`!`8$AD,``!A;0H,
  1327. + M``!Z;@0$```@#`$`86T*#`$`>FX$!`$`()"!9@1*`6;43G4``"`O``@@;P`$
  1328. + M3E7_]")/<@I.N@(T!D$`,!+!2H!F\"`)$.&_R6;Z0A"0CTY=3G4``"`O``@@
  1329. + M;P`$3E7_]")/(@`"00`'!D$`,!+!YHAF\"`)$.&_R6;Z0A"0CTY=3G4``#`Q
  1330. + M,C,T-38W.#EA8F-D968@+P`((&\`!%%/(D\R``)!``\2^Q#<Z(AF\B`)$.&_
  1331. + MR6;Z0A"0B5!/3G4``"!O``0B;P`(2.<P("1(<@`@`28!#!``*V<(#!``+68$
  1332. + M=@%22!`8!```,&T:#```"6X4)`'E@=*"TH%*`V8$TH!@XI*`8-XB@2`(D(I3
  1333. + M@$S?!`Q.=2!O``0O#2I(""T``P`;9C`@+`;T3KH$SBM```0K0``09@IP#"E`
  1334. + M"YQP_V`6*VP&]``4<//!K0`80JT`#$*M``AP`"I?3G4``"!O``1(YR`4*D@F
  1335. + M36`@<``0$T'L!84(,``!"`!G"G(`$@!T()*"8`1R`!(`%L%*$V;<(`U,WR@$
  1336. + M3G4``)[\`%!(YS$V0_H`A'``+'@`!$ZN_=@J0$J`9@9P%$ZZ[I9^`"!L!W0>
  1337. + M*/__(`=#[P`<8`(2V%.`9/I"-W@<0>\`'"E(!PQ#[`<41^P'*"Q-D<B5RG``
  1338. + M(@!T?=2"=BA.KOZD<!1.NNY03-]LC-[\`%!.=2HJ(%-T86-K($]V97)F;&]W
  1339. + M("HJ``!%6$E4``!I;G1U:71I;VXN;&EB<F%R>0!*@&H``!Y$@$J!:@``#$2!
  1340. + M80``($2!3G5A```81(!$@4YU2H%J```,1(%A```&1(!.=2\"2$$T`68``")(
  1341. + M0$A!2$(T`&<```:$P3`"2$`T`(3!,`)(0C(")!].=2\#=A`,00"`9```!N&9
  1342. + M44,,00@`9```!NF964,,02``9```!N6954-*06L```;CF5-#-`#FJ$A"0D+F
  1343. + MJDA#@,$V`#`"-`-(0<3!D()D```&4T/0@7(`,@-(0^>X2$#!028?)!].=0``
  1344. + M2.=P`"0`9R!*@68$0H!@&"8`QL%(0L3!2$)"0M:"2$'`P4A`0D#0@TS?``Y.
  1345. + M=0``("P'<`1``?0N0$[Z_F```"!O``0@"$H89OQ32)'`(`A.=0``(&\`!")O
  1346. + M``@@+P`,2H!G$%.`$ABR&68,2@%G!%.`:O)P`$YU;@1P_TYU<`%.=0``(&\`
  1347. + M!")O``@2&+(99@A*`6;V<`!.=6X$</].=7`!3G4B;P`((&\`!"`O``PB"&`$
  1348. + M$-EG"%.`9/A@!D(84X!D^B`!3G4B;P`((&\`!"`($-EF_$YU(F\`""!O``0@
  1349. + M+P`,(@A*@&\6L<EE#-/`T<`1(5.`9OI@!A#94X!F^B`!3G4@;P`$("\`"$CG
  1350. + M`Q0N`"I(9A(@#68$<`!@:"!-3KH`;G``8%X@#68*(`=,WRC`3OH!R"9-58LP
  1351. + M/'__P%-(P.6`+``($P`/9PP,:X``__YF!"PK__(@!TZZ`:`F0$J`9@1P`&`>
  1352. + MO(=C!"`'8`(@!B!-(DM@`A+84X!D^B!-3KH`#B`+3-\HP$YU(&\`!"`(9@).
  1353. + M=5F`2.<\,B(L"]QF#BE\````%@N<3-],/$YU(D&P@6\2)`'4J0`$!H(````4
  1354. + ML()L`F`((BD``&?48.`F`0:#````$+"#;<9G$B1#0H(T*@`":[KEBM:"6(-@
  1355. + MZ"1`-"H``&JJ"*H`!P``0H,V*@`"`D-__^6+2FH``FM`1_(X!$IK``!K-D*$
  1356. + M."L``@)$?__EC-B#6(3DC%B#2FL``FH$`$2``#5$``)K$BH$Y8PT,D@$`D*`
  1357. + M`(I"-85(!$*$."H``&=,Y8Q$A$?R2/Q*:P``:SY"A#@K``+EC$*%.BH``@)%
  1358. + M?__EC=B%6(18@^2,2FH``FH$`$2``#=$``)K$BH$Y8PT,T@$`D*``(I"-X5(
  1359. + M!->I``@F*0`$MJP%@&X,MJD`"&8Z2JD``&<T("P+W"!`LH!F#"EI```+W&`0
  1360. + M(&@``+*H``!F]B%I`````"`I``0&@````!0L>``$3J[_+DS?3#Q.=2`O``1*
  1361. + M@&8,*7P````6"YQP`$YU2.<^,E:``H#____\#(```?_\;@``N+"L!8!N``"P
  1362. + M)BP+W&<``*@B0["I``AN,B(L"^"RJ0`,9BA%Z0`02E)K$$*$."H``@)$?__E
  1363. + MC+"$;QI"A#@J``)K".6,1?)(!&#<)BD``&=F(D-@O@CJ``<``$?R"`1"A;"$
  1364. + M9SPL!)R`689F!"`$8##DCDIJ``)J!`!&@``J`.2--T8``C=%```U10`">@1*
  1365. + M1FL.-#)(!`)"@`",0C6&2`0F*0`(EH"6A2-#``@@"EB`3-],?$YU*@"PK`6`
  1366. + M:@0@+`6`*``&@````!0B+`O@+'@`!$ZN_SI*@&8**7P````,"YQ@S")`1>D`
  1367. + M$"-L"]P``"E)"]PC1``$(VP+X``,)@26A6<H68-G)"-#``A'\E@$-7R`````
  1368. + MY(TU10`"-T4``.2+`$.``#=#``)@%$*I``@U?(````#DC`!$@``U1``"(`I8
  1369. + M@$S?3'Q.=2!O``0@+P`((B\`#")O`!!93TCG#S8L`2X`*D@O20`@<`&^@&,`
  1370. + M`+(F3=?&(`=5@&8D+PLO#2!-(DLL;P`H3I903TJ`;P``DB`&($TB2TZZ^"!@
  1371. + M``"$(`?BB"(&3KK[-B)-T\`@!B!-3KKX!B1->@!X`6`J+PTO"R!+(DTL;P`H
  1372. + M3I903TJ`:A)2A=7&M<MG"B`&($LB2DZZ]]C7QE*$N(=ETK7-9PH@!B!-(DI.
  1373. + MNO?")F\`("`%(@8@32)+80#_4B!*T<8@!Y"%4X`B!B)+3-]L\%B/8`#_.DS?
  1374. + M;/!83TYU(&\`!)[\`!A(YS<6*DA^`"9X``0@#68&<`%@``"$+&P+Y$ZN_\0L
  1375. + M`&840?H`?B(()#P```/N3J[_XBP`?@$,:P`D`!1E+"]\@```(0`@3J[_RD?O
  1376. + M`"0FP";\@```(B;&0ILB#4'O`"`D"$ZN_:(J`&`B(@TF!G0`3J[_(DJ`9A).
  1377. + MKO]\*4`'2'+_*4$+G"H`8`(J`DJ'9P8B!DZN_]P@!4S?:.S>_``83G5.24PZ
  1378. + M``!.^O'*3OKQPB`O``1(YP$$+@`J;`<\8`@@;0`$3I`J52`-9O1+[`:,<`;`
  1379. + MK0`858!F&"`M``20K0`09PXB+0`<(&T`$,%!3KKQ`"!-*E`@#6;6(`=,WR"`
  1380. + M3OKF_"`O``0@;P`(0]!2F2!14ID0@$YU44\@;P`,0I<O2``$2&\`%"\O`!1!
  1381. + M^O_>0^\`"$ZZ#/H@;P`,0A!03R`74$].=0``("\`!"!O``@O#2(`*DA2E4/M
  1382. + M``@@$5*1&X$(#"`9#(````(`;11![0`,(FT`!'(!P4%.N@1@0JT`""I?3G6>
  1383. + M_`(,+PTJ;P(40J\`#$*O``0O30`(2&\"'"\O`AQ!^O^J0^\`#$ZZ#()03R`O
  1384. + M``QG$$'O`!`B;P`(<@'!04ZZ!!8(+0`%`!MF"`@M``0`&V<$</]@!"`O``0J
  1385. + M7][\`@Q.=2`O``0@;P`(64](YP,$+@`J2'P`'T``#W)!TH'"K0`89@P([0`%
  1386. + M`!MP_V```4!P,\"M`!A5@&=0<$Q&`,"M`!AR0-*!L(%F#`CM``$`&T*M``Q@
  1387. + M-`@M``4`&V<&</]@``$,<&Y&`,"M`!AR;D8!L(%F#`CM``$`&T*M``Q@"G``
  1388. + M*T``#&```.8@+0`,L*T`%&PR(&T`!%*M``0@!Q"`4JT`#`@M``8`&V<.<@J^
  1389. + M@68(($U.N@1P+`!*AF<``*H@!F```*H(+0`"`!MG+D*M``P@+0`<0>\`#W(!
  1390. + M3KKO+"P`4H!F"`CM``4`&V!R(`93@&=L".T`!``;8&1*K0`49B`@34ZZ]=Q*
  1391. + M@&<*".T`!0`;</]@6'``*T``#"MM`!``!"`M``RPK0`4;0@@34ZZ`_8L``CM
  1392. + M``$`&R!M``12K0`$(`<0@%*M``P(+0`&`!MG#G(*OH%F""!-3KH#RBP`2H9G
  1393. + M!"`&8`9R`!('(`%,WR#`6$].=2!O``193TCG`00J2$'L!HR[R&9$0>P&KDZZ
  1394. + M`Y8(+0`-`!IG-"`M`!Q![P`+<@%.NN_4+@!O"GX`'B\`"V```2!*AV8(".T`
  1395. + M!``;8`8([0`%`!M^_V```0A3K0`(;1`@;0`$4JT`!'``$!!@``#T<#/`K0`8
  1396. + M4X!G-'!<1@#`K0`8<D#2@;"!9A0([0```!L(+0`$`!MG%G#_8```QD*M``@(
  1397. + M[0`%`!MP_V```+8(+0`"`!MG1D*M``A^`!XM`"!*AV<(0BT`(&```)8@+0`<
  1398. + M0>\`"W(!3KKO+BX`;PA^`!XO``M@>DJ'9@@([0`$`!M@!@CM``4`&W[_8&1*
  1399. + MK0`49A0@34ZZ]&A*@&<*".T`!0`;</]@3"!M`!`K2``$("T`'"(M`!0@;0`0
  1400. + M3KKNVBM```@N`&\24ZT`""!M``12K0`$?@`>$&`82H=F"`CM``0`&V`*".T`
  1401. + M!0`;0JT`"'[_(`=,WR"`6$].=2!O``1(YP<4*DA^`"`M`!AF"G()*4$+G'#_
  1402. + M8&X@/```@`+`K0`8#(```(`"9@@@34ZZ`A9^`4AX``$@+0`<<@!.NNWL6$\L
  1403. + M`$H'9CP(+0`/`!IG(B9M``0J+0`(8!!R"K(;5\!$`$B`2@!G`E.&(`53A4J`
  1404. + M9N@(+0`!`!MG!MRM``Q@!)RM``@@!DS?*.!.=2!O``0@+P`((B\`#$CG`P0L
  1405. + M`2X`*D@(+0`!`!MG!B!-3KH!EB`&4X!F"B!-3KK_1MZ`?``K;0`0``1"K0`,
  1406. + M0JT`"$(M`"`(+0`'`!MG!G#\P:T`&"\&("T`'"('3KKM0%A/4H!F!'#_8`AP
  1407. + MS\&M`!AP`$S?(,!.=2!O``0@+P`((B\`#")O`!!93TCG#Q`L`2X`)DDO2``4
  1408. + M(`8B!TZZ]+HJ`'@`2H=G!$J&9@9P`&```/QP,,"K`!AF"G!!T(#`JP`89@P(
  1409. + MZP`%`!MP`&```-YP,\"K`!A5@&=0<$Q&`,"K`!AR0-*!L(%F#`CK``$`&T*K
  1410. + M``Q@-`@K``4`&V<&<`!@``"J<&Y&`,"K`!AR;D8!L(%F#`CK``$`&T*K``Q@
  1411. + M"D*K``QP`&```(1*JP`49DP(*P`"`!MF1"!+3KKR.$J`9SH(ZP`%`!MP`&!@
  1412. + M(&\`%!`8(FL`!!*`4JL`!%*K``Q3A5*$+T@`%'(*L`%F#@@K``8`&V<&($M.
  1413. + MN@`^("L`#+"K`!1L!$J%;L)*A6\6($M.N@`F("L`'"(%(&\`%$ZZZOS8@"`$
  1414. + M(@=.NO,<3-\(\%A/3G4@;P`$2.<!!"I((`UG``"@<$'0@,"M`!AF+"!M`!!#
  1415. + M[0`$(LA"F4(M`"!P`"+`""T`!P`;9P8(K0```!L(K0`$`!M@``"*2JT`%&=$
  1416. + M("T`#&H&<@`K00`,("T`#&<H(BT`'"!M`!#!04ZZZGXN`%*`9@@([0`%`!M@
  1417. + M#+ZM``QG!@CM``0`&RMM`!``!$*M``QP,,"M`!AF$@@M``<`&V<&</S!K0`8
  1418. + M<`!@)'#_8"!^`$OL!HQ*K0`89PP@36$`_T9*@&<"?O\J52`-9N@@!TS?((!.
  1419. + M=2!O``1(YP$$*DA^`"`-9P8@+0`89@1P_V!`""T``0`;9P@@34ZZ_PHN`'`,
  1420. + MP*T`&&8.2JT`%&<((&T`$$ZZ]")"K0`8("T`'$ZZT,92AV<$2H!G!'#_8`)P
  1421. + M`$S?((!.=2!O``0B;P`(+V\`#``$64](YP\4)F\`("I)+T@`&'X`+"P&^'H`
  1422. + M2JL`&&<&($M.NO]T<``0+0`!<BN0@6<@<C:0@6<&4X!G!&`@?`!R*[(M``)7
  1423. + MP$0`2(!(P"H`8`QZ`7!AL"T``F8"?`!P`!`5<F&0@6<,<A&0@6<:6X!G)&`V
  1424. + M2H56P'(!D@``00$(C(%^0.&/8"A*A5;`<@"2`)(`C(%@&DJ%5L!R`9(``$$!
  1425. + M``!!`@",@6`&<`!@``"`+RP&_"\&+R\`($ZZWW1/[P`,*`!2@&8$<`!@8DJ%
  1426. + M9P8(QP`'8#!P`!`5<F&0@6<,<A&0@6<:6X!G&F`:",<``4AX``(@!'(`3KKI
  1427. + ML%A/8`9^`6`"?@((!@`/9@0(QP`/D<A+ZP`0*L@JR"=$`!PG2``$)T@`#"=(
  1428. + M``@JQR`+3-\H\%A/3G4``"!O``0B;P`(44](YP`42.\#```(2^P&C&`$)DTJ
  1429. + M4R`-9P9*K0`89O(@#68><").NO/X*D!*@&8$<`!@'B!-)HAP(7(`$,%1R/_\
  1430. + M+PT@;P`,(F\`$$ZZ_G183TS?*`!03TYU```@;P`$(F\`""]O``P`!"]O`!``
  1431. + M")[\`#1(YR\V)F\`8"IO`%Q([P,``"Q"+P`[0B\`.D(O`#E"+P`X'WP`(``W
  1432. + M0J\`5'#_+T``4$(O`#9^`'P`1>\`/&!*<``@;P`L$!!R()"!9R)7@&<F48!G
  1433. + M$E6`9P97@&<B8#(??``!`#M@'A]\``$`.F`6'WP``0`Y8`X??``!`#A@!A]\
  1434. + M`#``-U*O`"P@;P`L2A!FKG`!L"\`.V8&'WP`(``W<BH@;P`LLA!F'BQO`#`B
  1435. + M5EB6(A$O00!4;`A$KP!4'T``.U*O`"Q@#$/O`%1.NNVNT:\`+"!O`"P0$'(N
  1436. + ML`%F1E*O`"QP*B!O`"RP$&8<(F\`,"!16)$@$"]``%!L!G#_+T``4%*O`"Q@
  1437. + M%D/O`%!.NNUL*@!F!D*O`%!@!-NO`"P??``@`#=P`"!O`"P0$'),D(%G%'(<
  1438. + MD(%G!EF`9PI@$A]\``(`-F`&'WP``0`V4J\`+"!O`"Q2B")O`"P0$7(`$@`?
  1439. + M0``D+T@`)G!0DH!G``$048%G``$<<`N2@&<``=!3@6=06X%G3%N!9R)3@6<`
  1440. + M`0)3@6<``.I7@6<``8!5@6<``/!7@6<``.I@``&X)&\`,'`"L"\`-F8.(%)8
  1441. + MDB)0(!,R@&```DH@4EB2(E`BDV```CXB;P`P(%%8D2@0:@1^`42$2H=G#$7O
  1442. + M`#T??``M`#Q@(DHO`#IG#$7O`#T??``K`#Q@$$HO`#EG#$7O`#T??``@`#Q\
  1443. + M`2`$($I.NNO"*@`@+P!09@9*A&<``>0@+P!0:@9R`2]!`%`H+P!0F(5O'"!*
  1444. + MT<0@!2)*3KKO2'(P($I@`A#!4X1D^BHO`%#<A2`%4X!F``$$$!*P+P`W9@``
  1445. + M^DJO`%!F``#R0A)@``#L("\`4&H&<`@O0`!0'WP``0`V<`*P+P`V9A`B;P`P
  1446. + M(%%8D2`0>``X`&`*(F\`,"!16)$H$!`O`"1R=;`!9P#_6G)OL`%F'DHO`#AG
  1447. + M#$7O`#T??``P`#Q\`2`$($I.NNLR8`#_/DHO`#AG$A]\`#``/$7O`#X??`!X
  1448. + M`#U\`B`$($I.NNM.*@`(+P`%`"1F`/\40>\`/$ZZZ_Y@`/\((F\`,"!16)$D
  1449. + M4"`*9@1%^@#R($I*&&;\4XB1RBH(("\`4&L$L(5O!"]%`%`L+P!08"!\`2)O
  1450. + M`#`@45B1(!`?0``\0B\`/6`&<`!@``"L1>\`/"`O`%2PAFP(<@`O00!48`2=
  1451. + MKP!42B\`.V<>8`AP`!`:($M.E5.&;/1@!B!+<"!.E5.O`%1L]&!J2H=F#$HO
  1452. + M`#EF!DHO`#IG1A`2<B"P`6<,="NP`F<&="VP`F8R2H9K+K(O`#=F$F`*<``0
  1453. + M+P`W($M.E5.O`%1L\'``$!H@2TZ54X9@"G``$"\`-R!+3I53KP!4;/!@"'``
  1454. + M$!H@2TZ54X9L]"`O`"9,WVSTWOP`-$YU```@;P`$(F\`""]O``P`!"]O`!``
  1455. + M")[\``Q(YP`4)DDJ2"]O`!P`$&`X<"6P+P`,9B8@;P`8L!!F!E*O`!A@&"\+
  1456. + M+PU#[P`83KK[E%!/2H!G!B]``!A@"G``$"\`#"!+3I4@;P`8$!@?0``,+T@`
  1457. + M&$H`9K9,WR@`WOP`#$YU(&\`!""(6)!"J``$(4@`"$YU```@;P`$2.<`!BI(
  1458. + M2JT`"F<*(DTL>``$3J[^F!M\`/\`"'#_*T``%'``$"T`#RQX``1.KOZP(DUP
  1459. + M(DZN_RY,WV``3G4``"!O``0@+P`(2.<#%BX`*DAP_RQX``1.KOZV'`!(ADC&
  1460. + M(`92@&8$<`!@8'`B(CP``0`!3J[_.B9`2H!F""`&3J[^L&!$0>L`"B#-%T<`
  1461. + M"1=\``0`"$(8$,:3R4ZN_MHG0``0(`UG"")+3J[^GF`:0>L`&"=(`!1!ZP`4
  1462. + M)T@`'$*K`!@7?``"`"`@"TS?:,!.=2\(+P!.N0```F!03TYU``````/L````
  1463. + M`0```````&(.`````@````$````4````"@````````/R```#Z@```=``````
  1464. + M+P`````````%G```!:(```7"```%^@``!CP`````````````````````````
  1465. + M``````````````````````````C,7'M]````3VL``````!0`````````````
  1466. + M``````!,8V]N<V]L93H``"5S.B```&EN='5I=&EO;BYL:6)R87)Y````.B``
  1467. + M`#0R``!5;FMN;W=N(&5R<F]R(&-O9&4```H```!T:6UE<BYD979I8V4`````
  1468. + M_____V9I9F\N;&EB<F%R>0```````````````````,P``0```````````,X`
  1469. + M``````````````!&86EL960@=&\@8W)E871E('1I;65R``!U<V5R(&EN=&5R
  1470. + M<G5P=````````$YO(&UE;6]R>0```&$`1F%I;&5D('1O(&-R96%T92!T:6UE
  1471. + M<@``3DE,.@``3DE,.@``3DE,.@``*@!.24PZ``!);G9A;&ED('=I;&1C87)D
  1472. + M("5S`$5R<F]R(&5X<&%N9&EN9R!A<F=U;65N=',`55-%4@``=7-E<@``55-%
  1473. + M4DY!344``$A/344``',Z``!32$5,3`!B:6XZ<V@``$A/4U1.04U%``!A;6EG
  1474. + M80!.24PZ`````)LP('$``$9A:6QE9"!T;R!I;FET:6%L:7-E($DO3P``86UI
  1475. + M9V$@<W!E8VEF:6,@97)R;W(``````?!5;FMN;W=N(&5R<F]R`&YO="!O=VYE
  1476. + M<@!N;R!S=6-H(&9I;&4@;W(@9&ER96-T;W)Y`&YO('-U8V@@<')O8V5S<P!I
  1477. + M;G1E<G)U<'1E9"!S>7-T96T@8V%L;`!I+V\@97)R;W(`;F\@<W5C:"!D979I
  1478. + M8V4@;W(@861D<F5S<P!A<F=U;65N="!L:7-T('1O;R!L;VYG``!E>&5C(&9O
  1479. + M<FUA="!E<G)O<@!B860@9FEL92!N=6UB97(`;F\@8VAI;&0@<')O8V5S<P``
  1480. + M;F\@;6]R92!P<F]C97-S97,`;F]T(&5N;W5G:"!M96UO<GD`<&5R;6ES<VEO
  1481. + M;B!D96YI960`8F%D(&%D9')E<W,`8FQO8VL@9&5V:6-E(')E<75I<F5D`&UO
  1482. + M=6YT(&1E=FEC97,@8G5S>0``9FEL92!E>&ES=',`8W)O<W,M9&5V:6-E(&QI
  1483. + M;FL`;F\@<W5C:"!D979I8V4``&YO="!A(&1I<F5C=&]R>0!I<R!A(&1I<F5C
  1484. + M=&]R>0``:6YV86QI9"!A<F=U;65N=```9FEL92!T86)L92!O=F5R9FQO=P!T
  1485. + M;V\@;6%N>2!O<&5N(&9I;&5S`&YO="!A('1Y<&5W<FET97(``'1E>'0@9FEL
  1486. + M92!B=7-Y``!F:6QE('1O;R!B:6<``&YO('-P86-E(&QE9G0@;VX@9&5V:6-E
  1487. + M`&EL;&5G86P@<V5E:P``<F5A9"UO;FQY(&9I;&4@<WES=&5M`'1O;R!M86YY
  1488. + M(&QI;FMS``!B<F]K96X@<&EP90!M871H(&%R9W5M96YT`')E<W5L="!T;V\@
  1489. + M;&%R9V4``$DO3R!S=')E86T@96UP='D``&9I;&4@;F%M92!T;V\@;&]N9P``
  1490. + M9&ER96-T;W)Y(&YO="!E;7!T>0!T;V\@;6%N>2!S;V9T(&QI;FMS("AL;V]P
  1491. + M/RD````""@```A@```(B```"/````DP```)D```";@```H@```*@```"L@``
  1492. + M`L(```+4```"Y@```O@```,*```#%@```RP```-````#3````UX```-N```#
  1493. + M?@```XX```.@```#M````\@```/:```#Z@```_@```00```$'@``!#0```1$
  1494. + M```$4```!%X```1P```$@@``!)8```2J````)@``9&]O<BXE;'@N)6QX``!.
  1495. + M;R!M96UO<GD```!````@("`@("`@("`H*"@H*"`@("`@("`@("`@("`@("`@
  1496. + M($@0$!`0$!`0$!`0$!`0$!"$A(2$A(2$A(2$$!`0$!`0$(&!@8&!@0$!`0$!
  1497. + M`0$!`0$!`0$!`0$!`0$!$!`0$!`0@H*"@H*"`@("`@("`@("`@("`@("`@("
  1498. + M`@(0$!`0(```````````````````````````````````````````````````
  1499. + M````````````````````````````````````````````````````````````
  1500. + M````````````````````````````````````````````````````````````
  1501. + M```````/H```!JX```````````````````````````````````````````;0
  1502. + M````````````````````````````````````````````````````````````
  1503. + M```````````````````````````````"````@``````-__\````.``X`````
  1504. + M``````````#__P````0`!````````$Q"```'`/__````!``$````````3%@`
  1505. + M`````````````^P````(````````!S0```<@````0@```!H````6````$@``
  1506. + M``X````*````+@````$```<D```&K@``!HP```5>```%6@``!58```52```%
  1507. + M3@``!4H```5&```%0@``!3X```4Z```%-@``!3(```4N```%*@``!28```4B
  1508. + M```%'@``!1H```46```%$@``!0X```4*```%!@``!0(```3^```$^@``!/8`
  1509. + M``3R```$[@``!.H```3F```$X@``!-X```3:```$U@``!-(```3.```$R@``
  1510. + :!,8```(&````X````-0```!@`````````_+:
  1511. + `
  1512. + end
  1513. diff -rc --new-file emacs-18.59/amiga/amiga-extra/amiga/c/getstack.uue /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/c/getstack.uue
  1514. *** emacs-18.59/amiga/amiga-extra/amiga/c/getstack.uue    Thu Jan  1 00:00:00 1970
  1515. --- /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/c/getstack.uue    Tue Jul 12 10:35:07 1994
  1516. ***************
  1517. *** 0 ****
  1518. --- 1,8 ----
  1519. + begin 666 getstack
  1520. + M```#\P`````````!```````````````G```#Z0```"=93TCG(!Y)^0````"3
  1521. + MR2QX``1.KO[:*D!#^@!P<"4L>``$3J[]V"9`2H!G-B(M`*SE@2]!`!0@;P`4
  1522. + M(B@`-.6!+P%!^@!2(@@L2R0/3J[\1D_O``0B2RQX``1.KOYB<`!@`G`43-]X
  1523. + M!%A/3G4D5D52.B!G971S=&%C:R`Q+C`@*#(Q+C,N.3,I``!D;W,N;&EB<F%R
  1524. + ,>0`E;&0*``````/R
  1525. + `
  1526. + end
  1527. diff -rc --new-file emacs-18.59/amiga/amiga-extra/amiga/c/grep.uue /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/c/grep.uue
  1528. *** emacs-18.59/amiga/amiga-extra/amiga/c/grep.uue    Thu Jan  1 00:00:00 1970
  1529. --- /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/c/grep.uue    Tue Jul 12 10:35:27 1994
  1530. ***************
  1531. *** 0 ****
  1532. --- 1,1028 ----
  1533. + begin 666 grep
  1534. + M```#\P`````````"``````````$``"F2```+:@```^D``"F22.=^_B1()`!)
  1535. + M^0`````L>``$1_D```QX<@`@/```"$Q@`B;!4<C__"E/#*@I3@R@)FX!%"`K
  1536. + M`*QG#.6(($`@*``TY8A@!B`/D*L`.B(/DH`&@0```(`I00Q\L*P+P&14("P+
  1537. + MP`:`````@"E`#,@B/``!``%.KO\Z2H!G``'2*4`,Q"(`!H````"`*4`,?-"L
  1538. + M"\`,;@`D`!1M&"E`#,`I00R\DJP,R$'L#+@@@4ZN_21@`BY`0JP,I'``(CP`
  1539. + M`#``3J[^SB9N`11#^@&*<`!.KOW8*4`ME&8&<&1@``#F*6L`F`R<2JL`K&<`
  1540. + M`'X@:P"LT<C1R")H`!#3R=/)(`)R`!(9*4D,K-"!7H`"0/_\*4`,M$CG0$`B
  1541. + M/``!``%.KO\Z3-\"`DJ`9@AP%"\`9P`!%B!`*4`,L"`"4X#4@1&R```@`E."
  1542. + M4<C_]A&\`"`@`E."$;P`(B`"$;$@`"`!4<K_^!"\`"(O"&!*0>L`7$ZN_H!!
  1543. + MZP!<3J[^C"E`#*0O`"1`("H`)&<8+&PME"!`(B@``$ZN_Z`I0`R<(@!.KO^"
  1544. + M(&P,I"\(2&P,>"!H`"0I:``$#*Q.N@"R3KIM_G``8`0@+P`$)&P,J"4`+'@`
  1545. + M!`QN`"0`%&T22JP,N&<,0>P,N%FL#,!.KOTD+DH@+`R49P0@0$Z03KH`;$ZZ
  1546. + M`'0@+`S(9PPB;`S$+'@`!$ZN_RY*K`RD9R`L;"V4(BP,G&<$3J[_IBQX``1.
  1547. + MKO]\(FP,I$ZN_H9@$BQX``0@+`RT9P@B;`RP3J[_+B)L+91.KOYB(!],WW]^
  1548. + M3G5D;W,N;&EB<F%R>0!.^0``A1A.^0``A0!.^0``ADQP82`/44"PK`Q\90`N
  1549. + MY"\-("\`#"(O``@O`"\!3KHNS%!/*D!*@&8*2&P``$ZZ7?!83R`-*E].=2`/
  1550. + MD'P`$+"L#'QE`"ZL2.<!!"XO``PO!TZZ+J0J0$J'5L!$`$B`2,!(>``]2&P`
  1551. + M&DAL`!(O`$ZZ+IA/[P`4(`UF"DAL`"!.NEV>6$\@#4S?((!.=2`/D'P`$+"L
  1552. + M#'QE`"Y82.<!$"XO`!`@;P`,+P<O"$ZZ+F@F0$J'5L!$`$B`2,!(>`!*2&P`
  1553. + M.DAL`#(O`$ZZ+CY/[P`8(`MF"DAL`$!.NEU$6$\@"TS?"(!.=;_L#'QE`"X$
  1554. + M+P(@+P`((&\`#"0`<A_$@7(!Y:'JB.6`(#`(`,"!)!].=;_L#'QE`"W:+P(@
  1555. + M+P`((&\`#"(`ZHGE@70?P()T`>&BA;`8`"0?3G6_[`Q\90`MLB\"("\`""!O
  1556. + M``PB`.J)Y8%T'\""=`'AHD:"Q;`8`"0?3G6_[`Q\90`MB$CG`Q0F;P`8*F\`
  1557. + M%'X`?``GM6@`:`!2AUB&<`B^@&7P3-\HP$YUO^P,?&4`+5H@;P`$<!]R`!#!
  1558. + M4<C__$YUO^P,?&4`+4)(YP$0)F\`#'X`1IM2AW`(OH!E]DS?"(!.=;_L#'QE
  1559. + M`"T@2.<#%"9O`!@J;P`4?@!\`"`U:`"PLV@`9P1P`&`,4H=8AG`(OH!EZ'`!
  1560. + M3-\HP$YU(`]10+"L#'QE`"SD2.<#!"IO`!!^`'P`8!HB;!$D(%'1QB\(+PUA
  1561. + MH%!/2H!F=%*'<"#<@"!L$22^J``$;=P@;!$D("@`!+"H``AM.&`.(&P1)"(H
  1562. + M``C2@2%!``@@;!$D("@`!+"H``ALY"!L$20B*``(ZX$O`2\080#^$%!/(&P1
  1563. + M)""`(&P1)%*H``0@!^N`(FP1)"!1T<`O""\-80#^PE!/(`=,WR#`3G6_[`Q\
  1564. + M90`L/B\'(B\`#"XO``AP`2E`$2PI1Q$H*4$1,"X?3G4@#Y!\`"BPK`Q\90`L
  1565. + M%)[\`"!(YS\$2JP1/&8&</]@``9>2^P1."!5$!@JR'X`'@!3G2E($3@@!W(*
  1566. + MD(%G``-.<AJ0@6<``(Q9@&<``TQ3@&<``V13@&<``MI3@&<``NY7@&<``VYR
  1567. + M$9"!9P`"HG(<D(%G``.:4X!G``$:58!G#'(>D(%G``+H8``%;@@L``41*V8>
  1568. + M2JP10&<`!5X(+``#$2MG#B!L$3A3B+'L$31F``5(0JP10`@L``,1*V<*(#P`
  1569. + M``$#8``%N"`\```!`F``!:X(+``%$2MF``"@("P1/&<``)@(+``#$2MF``4,
  1570. + M""P``!$K9QA*@&\0(&P1.!(0="FR`F8$=@%@)G8`8")R`;"!;QH@;!$X%!!V
  1571. + M7+0#9@X8*``!=BFX`V8$=@%@`G8`2H-F1@@L``$1*V<82H!O$"!L$3@2$'1\
  1572. + ML@)F!'8!8"1V`&`@<@&P@6\6<%P@;!$XL!!F#'!\L"@``68$<`%@`G``)@!*
  1573. + M@V<`!(`(+``#$2MG"B`\```!!6``!/1P0>6(8``$[$JL$3QF"DAL`&9.NEFN
  1574. + M6$]+[!$X(%40&"K(?@`>`%.=*4@1."`'<BB0@6<``3)3@&<``3I5@&<``0Q=
  1575. + M@&=.4X!G2E.`9T93@&="4X!G/E.`9SI3@&<V4X!G,E.`9RY7@&<^58!G2%.`
  1576. + M9P``SE>`9UAR%9"!9V!R"Y"!9T!R%9"!9U1;@&<``,I@``/:0JP10'`!*4`1
  1577. + M1"`\```!`6``!$Q"K!%`(#P```$&8``$/D*L$4`@/````0=@``0P0JP10'!"
  1578. + MY8A@``0D0JP10"`\```!"6``!!9(;P`<80#\4%A/?`!P?[R`8AAP!T'L"KW`
  1579. + M,&@`9PQ(;P`<+P9A`/NP4$]2A@R&```!`&W8<%>^@&8*2&\`'&$`_"Y83T*L
  1580. + M$4!P`2E`$41(;P`<80#\=`:````!$5A/8``#M`@L``(1*V<``R1@0`@L``(1
  1581. + M*V<``QA@<@@L``$1*V8``PQ@``"(""P``!$K9@`"_F```*0(+```$2MF``+P
  1582. + M8```M`@L``(1*V8``N((+``%$2MF"$JL$41G``+2(#P```$*8``#3@@L``41
  1583. + M*V8(2JP11&<``K@@/````0M@``,T""P``A$K9@`"I`@L``41*V8(2JP11&<`
  1584. + M`I1P0^6(8``#$@@L``$1*V<``H)P`2E`$4!"K!%$(#P```$.8``"]`@L``01
  1585. + M*V;D8``"8@@L```1*V<``EAP`2E`$4!"K!%$(#P```$/8``"R@@L```1*V<`
  1586. + M`CI"K!%`<`$I0!%$<$3EB&```JY(;P`<80#ZZ$AO`"!A`/KX2&\`)$AX``IA
  1587. + M`/I\0JP10'`!*4`11$AO`"QA`/LT!H````$13^\`%&```G)(;P`<80#ZK%A/
  1588. + M2JP1/&8*2&P`B$ZZ5RI83TOL$3@@51`8*LA^`!X`4YTI2!$X<%Z^@&8H2JP1
  1589. + M/&8*2&P`I$ZZ5P!83TOL$3@@51`8*LA^`!X`4YU\`2E($3A@`GP`2JP1/&8*
  1590. + M2&P`P$ZZ5M983TOL$3@@51`8*LAZ`!H`4YTI2!$X<"VZ@&8``,!*K!$\9@I(
  1591. + M;`#<3KI6JEA/2^P1."!5$!@JR'H`&@!3G2E($3A@;DAO`!PO!V$`^7I03TJL
  1592. + M$3!G6G!_OH!B*$OL"KW;QP@5``!G'`@5``!G""`'<B#0@6`"(`=(;P`<+P!A
  1593. + M`/E&8"J^@&(H2^P*O=O'"!4``6<<"!4``6<((`=R()"!8`(@!TAO`!PO`&$`
  1594. + M^1I03U*'OH5OCDJL$3QF"DAL`/A.NE826$]+[!$X(%40&"K(?@`>`%.=*4@1
  1595. + M.&!N2&\`'"\'80#XXE!/2JP1,&=:<'^^@&(H2^P*O=O'"!4``&<<"!4``&<(
  1596. + M(`=R(-"!8`(@!TAO`!PO`&$`^*Y@*KZ`8BA+[`J]V\<(%0`!9QP(%0`!9P@@
  1597. + M!W(@D(%@`B`'2&\`'"\`80#X@E!/+@5P7;Z`9@#^HDJ&9PI(;P`<80#Y`EA/
  1598. + M0JP10'`!*4`11$AO`!QA`/E(!H````$16$]@``"(0JP10'`!*4`11$JL$3!G
  1599. + M='!_OH!B;DOL"KW;QW`#P!5G8DAO`!QA`/B@6$\(%0``9Q((%0``9P@@!W(@
  1600. + MT(%@`B`'+@!(;P`<+P=A`/?\4$]![`J]"#```7@`9P@@!W(@D(%@`B`'2&\`
  1601. + M'"\`80#WVDAO`"1A`/C$!H````$13^\`#&`"(`=,WR#\WOP`($YU(`]10+"L
  1602. + M#'QE`'[$+P<N+P`((&P1)"`H`!"PJ``4;3Q@#B!L$20B*``4TH$A00`4(&P1
  1603. + M)"`H`!"PJ``4;.0@;!$D(B@`%.6!+P$O*``,80#VY%!/(&P1)"%```P@;!$D
  1604. + M(B@`$%*H`!#E@2)L$20@:0`,(`<A@!@`!(````$`9R9R"I"!9R13@&<@4X!G
  1605. + M'%.`9P93@&<"8`93K!%,8`P@;!$D4J@`'%*L$4P@+!%,(&P1)+"H`!AO!"%`
  1606. + M`!@N'TYU(`]90+"L#'QE`'X$("P12&L(#(````$`;4`,@````1%L.`R````!
  1607. + M`6<P#(````$"9R@,@````01G(`R````!!F<8#(````$'9Q`,@````0AG"`R`
  1608. + M```!"682+P!A`/[B80#X5EA/*4`12&`\#(````$/9BIA`/A"*4`12&$``*P,
  1609. + MK````1`12&<*2&P!!DZZ4W983V$`^"(I0!%(8`I(>`$`80#^G%A/3G4@#UE`
  1610. + ML*P,?&4`?5IA`/](8!(O+!%(80#^?F$`]_)83RE`$4@@+!%(#(````$*9^(,
  1611. + M@````0MGV@R````!#&?23G4@#UE`L*P,?&4`?1AAL&`,8:Q(>`$-80#^/%A/
  1612. + M("P12`R````!$&<4#(````$.9PP,@````05G!$J`:M1.=2`/64"PK`Q\90!\
  1613. + MVF&T8!1A`/=\*4`12&&H2'@!#F$`_?983PRL```!#A%(9^).=2`/64"PK`Q\
  1614. + M90!\JDCG`!0@+P`0)F\`%"!O``PI2Q$D2^P1/"K`<`$JP$*=*4@1-"E($3A*
  1615. + MK!$L9@I(;`$43KI2;%A/80#W&"EK`!@13"E`$4@,@````0-F($AX`0)A`/V&
  1616. + M80#V^BE`$4AA`/]D2'@!#6$`_7)03V`$80#_5`RL```!!1%(9AI(>`$$80#]
  1617. + M6$AX`0UA`/U080#VQ%!/*4`12'#_L*P12&<*2&P!*$ZZ4?Q83W#_D*L`("\`
  1618. + M80#]*$AX`0UA`/T@4$]*JP`@9PI(>`$.80#]$%A/4JL`($S?*`!.=;_L#'QE
  1619. + M`'O*2.<#%"9O`!@J;P`4?@!\`&`0(%/1QB)5T\8@V2#94H=0AKZM``1MZB=M
  1620. + M``0`!$S?*,!.=2`/D'P`$+"L#'QE`'N(GOP`$$CG!S8J;P`X?@!\`"HM``1@
  1621. + M!%*'4(:^A6P,(%71QB`O`#"PD&7L("T`!+Z`;!PB!^>!(%71P29((B\`,+*3
  1622. + M9@HB+P`T@ZL`!&!`0>\`,$/O`"0BV"+84JT`!"P'YX9@)"!5(DC3QD7O`!PL
  1623. + M2BS9+-E2A]'&0^\`)"Q)(-X@WB+:(MI0AKZM``1MUDS?;.#>_``03G4@#UE`
  1624. + ML*P,?&4`>N193TCG+S9^`'P`(&\`-$*H``1Z`$*O`"1@``"`)E/7Q2@O`"0D
  1625. + M4M7$(A(D$[2!4L!$`$B`2,`B+0`$YX$J5=O!2H!G$"!O`#12J``$4H<JVRK;
  1626. + M8$12AE"O`"2TDF0.(&\`-%*H``0JVBK:8"Y2ARK;*ML@;P`T(B@`!%*H``3G
  1627. + M@2!O`#0F4-?!+&\`,"I6V\0@+0`$@:L`!%"%)F\`+"IO`#0D;P`POJL`!&P(
  1628. + MO*H`!&T`_VHH!^>$8!HB+0`$4JT`!%*'(%/1Q.>!(E73P2+8(MA0A+ZK``1M
  1629. + MX"X&YX=@&B(M``12K0`$4H8@4M''YX$B5=/!(M@BV%"'O*H`!&W@3-]L]%A/
  1630. + M3G6_[`Q\90!YU$CG!P0J;P`<?@!\`"HM``1@$"!5("\`%+"P:`!G"%*'4(:^
  1631. + MA6WL("T`!+Z`;"!3K0`$+`?GAF`0(%71QD/H``@@V2#94H=0AKZM``1MZDS?
  1632. + M(.!.=2`/D'P`)+"L#'QE`'ERGOP`'$CG/S9-[P!,)EXJ;P!(?`!*GE;`<@"2
  1633. + M`"]!`#Q*GE;`=`"4`'@`*BL`!'X`+T(`,&`0(%/1QR`0T*@`!+&&4H10A[B%
  1634. + M;>P@!G@`?``B+0`H+T``."]!`#1@="1M`"35QKZ29F0@*P`$(BH`"+*`9E@2
  1635. + M*@`,2(%(P;J!9DP2*@`-2(%(P20O`#"T@68\?@!X`"HK``1@'B!3T<0B:@`$
  1636. + MT\0@*``$L*D`!&8.(!"PD68(4H=0A+Z%;=XH+P!`OJL`!&8&(`1@``'J4H1P
  1637. + M%-R`+T0`0"XO`#@J+P`\N*\`-&T`_WH@+0`HL*T`+&TR8`HB+0`LTH$K00`L
  1638. + M("T`*+"M`"QL["`M`"PB`.6!TH#E@2\!+RT`)&$`\+Q03RM``"0@!.6`T(3E
  1639. + M@"@`)&T`)-7$)(<B*P`$YX$O`6$`\$0E0``$(&T`)-'$0^@`!"Z)+PMA`/Q,
  1640. + M4$\@;0`DT<1-Z``,',4B+P`P',%"'D(H``]"J``0>@!^`"PO`$!@``$H(E/3
  1641. + MQR(1Y8$D;0`,(#(8`&H``.XH*0`$(B\`/%;!=`"4`90!6()R`28!Y:/&A&<6
  1642. + M("\`,%;`=@"6`)8`)`'GHL2$9@``@B`O`#Q6P'8`E@"6`%B#)`'GHL2$9Q8@
  1643. + M+P`P5L!V`)8`E@!2@R0!YZ+$A&94("\`/%;`=@"6`)8`6H,D`>>BQ(1G%"`O
  1644. + M`#!6P'8`E@"6`"0!YZ+$A&8J2J\`/%;"=@"6`I8"6H,D`>>BQ(1G)DJO`#!6
  1645. + MPG8`E@*6`E*#YZ'"A&<2)`;E@M2&Y8(L;0`DW<*)+@`/(`;E@-"&Y8`B;0`D
  1646. + MT\!*J0`09C8L4R0V>`#E@BQM``PC=B@``!!@(@R````!`68:(`;E@-"&Y8`@
  1647. + M;0`DT<`1?`#_``\1?``!``Y2A5"'NJL`!&T`_M12K0`H(`9,WVS\WOP`'$YU
  1648. + M(`^0?``DL*P,?&4`=J:>_``<2.<'-BIO`$`B+0`0Y8$O`6$`[J!83WX`)D`O
  1649. + M0``<8`1"FU*'OJT`$&WV?@!@``$L+`?GAB13U<8B$N6!)FT`#"`S&``,@```
  1650. + M`0!M``$,#(````$!9P`!`@R````!$6P``/@@2D/O`"@BV"+8+V\`+``T(F\`
  1651. + M/"!1T<9-[P`@+-@LV"\)3>\`))[\``@B3W`'$MY1R/_\80#\+D_O``PB+P`H
  1652. + MY8$F;P`<U\%*DV<&4X=@``"F<@$F@2(O`"CE@2!M``S1P2`0!(````$";40,
  1653. + M@`````AL/-!`,#L`!D[[``0`#@`P`!(`,``6`!P`(@`H<#!@&'!08!1P>="`
  1654. + M8!!P>M"`8`IP>]"`8`1P!D8`P:\`-'X`?``J+P`HYX4D;P`\8"@B4R]Q:```
  1655. + M,"\*0^\`-)[\``@L3W`''-E1R/_\80#YS$_O``Q2AU"&)FT`,-?%OJL`!&W,
  1656. + M?O]2AR9O`#R^JP`$;0#^S"\O`!Q.NG:86$],WVS@WOP`'$YU(`^0?`!4L*P,
  1657. + M?&4`=1J>_`!$2.</-BIO`&@K;P!L`#0B+0`8Y8$O`6$`[0XB+0`8Y8$N@2]`
  1658. + M`&0O0``T80#L^B(M`!SG@2Z!+T``8"]``#!A`.SF(BT`'.>!($`B0-/!(BT`
  1659. + M&.6!+H$O0``L+TD`7&$`[,8B+0`<YX$N@2]``%@O0``H80#LLB(M`!SG@2!`
  1660. + M(D#3P2(M`!#E@2Z!+T``)"])`%1A`.R26$\D0'X`)D!@!$*;4H>^K0`0;?8B
  1661. + M+0`<YX$O`6$`['(O0`!$2'@`""\M`!!A`.PL3^\`#"M``#!^`"]*`#1\`&``
  1662. + M`T`J;P!4(`?E@"!K``P@,`@`!(````$`9R!R"I"!9P``[%.`9SA3@&<T4X!G
  1663. + M``$`4X!G``)68``"D'`!(&\`8"#`0^T`!$*5+&\`7$*>+T@`8"])`%0O3@!<
  1664. + M8``"W"!O`%PO:/_\`$PO;P!8`$AZ`"IO`%!@``"*(A7G@2!K`##1P4AO`$`O
  1665. + M"$AO`%!A`/C`3^\`#"(5Y8$@+P!$4X"PLA@`;3Y@!B(3TH$F@2(5Y8$F2M?!
  1666. + M("\`1%.`L)-LZ"`5(@#G@2)O`&@F:0`PU\'E@"`R"`#G@"\`+Q-A`.O&4$\F
  1667. + M@"9O`&@B%>>!(&L`,-'!+PA(;P!$80#W=%!/4H50C2!O`%2ZJ/_\;0#_;B`'
  1668. + MY8`@:P`,#+````$,"`!G``(:<`$@;P!@(4#__&```@P@;P!<+VC__`!,+V\`
  1669. + M6`!(>@`B+?_\YX$J;P!0V\%@``"*(A7G@2!K`##1P4AO`$`O"$AO`%!A`/?H
  1670. + M3^\`#"(5Y8$@+P!$4X"PLA@`;3Y@!B(3TH$F@2(5Y8$F2M?!("\`1%.`L)-L
  1671. + MZ"`5(@#G@2)O`&@F:0`PU\'E@"`R"`#G@"\`+Q-A`.KN4$\F@"9O`&@B%>>!
  1672. + M(&L`,-'!+PA(;P!$80#VG%!/4H50C2!O`%2ZJ/_X;0#_;B9O`&`J;P!<2JO_
  1673. + M^&<*("W__-&M__A@"B(M__SG@=.O`%@@35F(*F\`5"](`%Q*J__\9PH@+?_\
  1674. + MT:W_^&`^(BW_^.>!)F\`4-?!*BW__%.%*`7GA&`2(&\`4-'$(DO3Q"+8(MA3
  1675. + MA5&$2H5JZB(M__CG@=.O`%`K;?_\__A9C29O`&`O30!42JO__&<*2JO_^&<$
  1676. + M<`%@`G``)T#_^%F++TL`8&```+!-[P!<(%8@*/_\T:C_^%F>("W__-&M__A9
  1677. + MC29>+TT`5$JK__QF"DJK__AF!'``8`)P`2=`__A9BR]+`&!@<"`'Y8`@:P`,
  1678. + MT<`,D````0%7P$0`2(!(P")O`&`BP$'M``1P`2J`+&\`7"S`4:\`6$OO`%!1
  1679. + MG2('*L@@;P!0(($O20!@(ETB@7(`1@$A00`$(T$`!"!O`#0@@"9K`##7QDAX
  1680. + M``@O3@!@80#I'%A/)H!2AUBO`#10AB9O`&B^JP`0;0#\N'X`?`!Z`&!Z*FL`
  1681. + M#"`U:``,@````0!M$`R````!`6<(#(````$1;50@:P`PT<5(;P!`+PAA`/3J
  1682. + M+HM(;P!(80#Y_D_O``PF:P`PU\4@+P!$(BL`!+*`;`[G@"\`+Q-A`.CV4$\F
  1683. + M@"9O`&@@:P`PT<4O"$AO`$1A`/2H4$]2AUB&4(6^JP`0;8!"KP!$?@`F;P!8
  1684. + M*F\`7&`L($M#[P`X(M@BV$AO`$!#[P`\GOP`""Q/<`<<V5'(__QA`/2B3^\`
  1685. + M#%*'4(N^K?_\;<XJ;P!H+PU(;P!$80#Y:%!/?`!^`"HO`$0F;P!`8!IP,,"K
  1686. + M``1R8-*!PJL`!.2)LH!G`GP!4H=0B[Z%;>)P`2M``"Q"K0`H2'@`%&$`Y^PK
  1687. + M0``D0I<O!DAO`$@O#6$`]DHNKP!`3KIQ)"ZO`#Q.NG$<+J\`.$ZZ<10NKP`T
  1688. + M3KIQ#"ZO`#!.NG$$+HI.NG#^+J\`4$ZZ</9/[P`03-]L\-[\`$1.=2`/D'PH
  1689. + MS+"L#'QE`&]VGOPHO$CG+S9"KP#<2JP-#&8^<`$I0`T,?`!P?[R`8AAP!T'L
  1690. + M"KW`,&@`9PQ(;`S,+P9A`.@J4$]2A@R&```!`&W82&P,[$AX``IA`.@24$](
  1691. + M;P"T80#HB%A/0J\`6$*O`#A+[P#@0>\@X"`O*.0B`.6!TH#E@21O*.@O00`D
  1692. + M+T@`,&```P(@:P`$T>\`.$/O`-0BV"+8(B\`U.6!)FH`#"`S&`!K%`R````!
  1693. + M`&P,2&\`M"\`80#GJ&`@#(````$1;0`"O`2````!$>N`(%+1P$AO`+0O"&$`
  1694. + MY]A03R`O`-AR`$8!L(%G``#V(&H`)-'&2B@`#%;!=`"4`90!6H)R`>6AP(%F
  1695. + M#DAO`+1(>``*80#G=E!/)FH`)-?&2BL`#%;`<@"2`)(`6(%P`>.@(B\`V,*`
  1696. + M9AY\`'X`0>\`M$/L#.P@,7@`P;!X`%*&6(=P"+R`9>9**P`-5L!R`)(`D@!2
  1697. + M@7`!XZ`B+P#8PH!F('P`?@!![P"T0^P,S"`Q>`!&@,&P>`!2AEB'<`B\@&7D
  1698. + M2BL`#5;`<@"2`)(`<`'CH"(O`-C"@&8>?`!^`$'O`+1#[`S,(#%X`,&P>`!2
  1699. + MAEB'<`B\@&7F?`!'[P"T8`12AEB+<`B\@&0$2I-G\E&&9P`!HGH`1>\`X"]-
  1700. + M`$`O;P`P`#Q+[R#@8``!*B(O`-3E@2)O*.@F:0`,(#,8`&L8#(````$`;!`O
  1701. + M"B\`80#F'%!/2H!G``#V>`!\`'X`0>\`D$/O`+0@,7@`P+)X`"&`>`!G`G@!
  1702. + M4H98AW`(O(!EWDJ$9P``R$*O`+!"KP!L?`!^`$?O`+37QR@3*C)X`$'O`'`@
  1703. + M!$:`P(4A@'@`9P9P`2]``&Q&A<B%)H1G!G`!+T``L%*&6(=P"+R`9<8L+P#<
  1704. + M2J\`;&=6)F\`0"\+2&\`=&$`Y@0NBDAO`)AA`.7Z(&\H]"(H`!SG@2Z!80#D
  1705. + MP"!O`$@@@"Z(+PUA`/#03^\`$%*&+T8`W$'K`"!0KP`\<"#1KP`T4*\`,"](
  1706. + M`$`B+0`$4JT`!.>!(%71P4/O`-0@V2#9*B\`5$JO`+!G%E*%U/P`(%"-+T4`
  1707. + M5"PO`-RZAFT`_LPJ;P`T)&\HZ+J&9D8O#4AO`+AA`.5P2&\`O&$`Y98B*@`<
  1708. + MYX$N@6$`Y#)/[P`,(&\`,""`<@$A00`$(E!-[P#4(MXBWE*&VOP`(%"O`#`O
  1709. + M1@#<4J\`6%"O`#@O30`T+"\`)"9J`"37QB`O`%BPJP`(;0#\Z"(J`!SG@2\!
  1710. + M80#CW"]``&@B*@`<YX$N@6$`X\Q83WP`*F\H["]``"A*J@`T9P``Z'H`0J\`
  1711. + M7"1J`"0H*@`(?@!@."9J``37QW`PP*L`!')@TH'"JP`$Y(FR@&<">@%P`\"K
  1712. + M``1R#,*K``3DB;*`9P9P`2]``%Q2AE"'O(1MQ$AO`&1(:@`$80#O?"9O*/!P
  1713. + M`"Z`+P!(;P!P+PMA`/&Z3^\`%"@`2H5G&$*G2'@``4AO`&PO"V$`\:!/[P`0
  1714. + M*@!@`BH$2J\`7&<82'@``4*G2&\`;"\+80#Q@$_O`!`N`&`"+@1\`"9-<`J\
  1715. + M@&8$)H5@&'!_O(!B$'`'0>P*O<`P:`!G!":'8`(FA%*&6(L,A@```0!MTF`0
  1716. + M)DUP_R;`4H8,A@```0!M\D*O`%A%[R#@0>\`X"](`"Q@``(:0J\`:'H`>`!@
  1717. + M4'P`?@!@+B!3T<=#[P!,(M@BV$AO`&1#[P!0GOP`""Q/<`<<V5'(__QA`.[2
  1718. + M3^\`#%*&4(<@4B(P2`#G@2)O*.@F:0`PU\&\JP`$;;I2A5"$NJH`!&VJ)F\H
  1719. + MZ$JK`#1G1'P`?@!@-"!K`"0B:``$T\=![P!$(-D@V4AO`&1#[P!(GOP`""Q/
  1720. + M<`<<V5'(__QA`.YL3^\`#%*&4(<@:P`DO*@`"&W">@`O+P`L2'@`"F$`XJ!0
  1721. + M3TJ`9RI\`"XO`&@F;P!D8!IP,,"K``1R8-*!PJL`!.2)LH!G`GH!4H90B[R'
  1722. + M;>)X`'X`?``F;P`L(#-H`$'L#,S`L&@`9@I2AUB&<`B^@&7H<`B^@&0H?``N
  1723. + M+P!H)F\`9&`8<`/`JP`$<@S"JP`$Y(FR@&<">`%2AE"+O(=MY"9O*.AP`"\`
  1724. + M+P!(;P!L+PMA`._.3^\`$"P`+T``)$J%9QI"ITAX``%(;P!L+PMA`.^P3^\`
  1725. + M$"]``&!@!"]&`&!*A&<82'@``4*G2&\`;"\+80#OCD_O`!`J`&`"*@9"KP!4
  1726. + M)F\`+'@`8%Q^`'`![Z`D$\2`9SXL!-R'<@J\@68*Y88KKP!@:`!@*G)_O(%B
  1727. + M%'('0>P*O<(P:`!G".6&*X5H`&`0#(8```$`;`CEABNO`"1H`%*'<""^@&6P
  1728. + M4J\`5%B+<"#8@`RO````"`!499I2KP!84(IP(-&O`"PN+P#<("\`6+"';0#]
  1729. + MW'P`1^\@X&`,+Q-.NFG,6$]2AE"+O(=M\"\O`&1.NFFZ+J\`+$ZZ:;)83TS?
  1730. + M;/3>_"B\3G4@#Y!\`!2PK`Q\90!H-%%/2.<_-"IO`#0H+P`P#*T```0``#QM
  1731. + M2'P`>@!@-B!M`$`@,%@`9PXO`$ZZ:6I83R!M`$!@%B!M`$@@,%@`9Q`O`$ZZ
  1732. + M:5)83R!M`$A"L%@`4H98A;RM`#AMQ'``*T``/%*M`#PL!.6&(`8B;0!,0K$(
  1733. + M`"($Y8'2A.6!)FT`)-?!+T``*"]!`"04*P`,5L)V`)8"E@):@W0!YZ(6*P`/
  1734. + MQ`-G(!0K``U6PG``D`*0`G0!X:+$`V<,(FT`3-/&".D``@`#$"L`#%;`=`"4
  1735. + M`)0`6()P`28`Y:,4*P`/Q@)G(A8K``U6PW(`D@.2`U*!)@#CH\8"9PPB;0!,
  1736. + MT\8(Z0`!``-**P`,5L%T`)0!E`%8@B(`Y:$4*P`/P@)G'DHK``U6P78`E@&6
  1737. + M`>>@Q`!G#"!M`$S1Q@CH`````TAX!`!A`-\&)D`N@"\-+P1A`/=F3^\`#'X`
  1738. + M)$M@``"J("T`."(2LH!M``":*@!@"B(M`#C2@2M!`#@@$K"M`#AL[B(M`#A2
  1739. + M@>6!+P$O+0!$80#?#BM``$0@0$/H``0K20!`(BT`..6!+H$O+0!(80#>\"M`
  1740. + M`$@B+0`XY8$N@2\M`$QA`-[<*T``3"(M`#CE@2Z!+RT`4&$`WLA/[P`4*T``
  1741. + M4"@M`#@L!>6&8!0@;0!`0K!H`%*%(&T`2$*P:`!8AKJ$;>A2AUB*#(<```$`
  1742. + M;0#_4"(O`"@@;0!0(:L`*!@`</\G0``H(&T`)-'O`"1**``/9P8@;0!(8`0@
  1743. + M;0!`(8L8`$S?+/Q03TYU(`]10+"L#'QE`&7F+PTJ;P`(<`$K0``X0JT`/$AX
  1744. + M``1(>``"80#=IBM``$0@0$/H``0K20!`2'@`!"\M`#AA`-V,*T``2"(M`#CE
  1745. + M@2Z!80#=LBM``$PB+0`XY8$N@6$`W:(K0`!0+HU"IV$`_41/[P`4*E].=2`/
  1746. + M44"PK`Q\90!E<$CG#S9*K!$09CQP`2E`$1!^`$OL#1!P"KZ`9@1P!&`8<'^^
  1747. + M@&(0<`=![`J]P#!X`&<$<`)@`G`!*H!2AUB-#(<```$`;=`J;P`D2JT`.&8(
  1748. + M+PUA`/\J6$]\`"9O`"@D;0!`(&\`+!"\``H@!N6`*G((`"`-9SAP`!`;2,#E
  1749. + M@"HU"``@!>6`*G((`"`-9QIP`!`;2,#E@"PU"``@!N6`*G((`"`-9M!@!B`&
  1750. + M+`4J`$J&:VP@;P`LM\AB9"@&Y80L;P`D*FX`2-O$2I5G4G``$!-(P"X`Y8<B
  1751. + M;@!,(#%(`$/L#1#`L7@`9R@J;P`X(`UG'"`&Y8#0AN6`(FX`)-/`2BD`#F<&
  1752. + M<`$J@&`"0I4@"V!P*@92BR)5+#%X`&``_TXJ;P`L2J\`-&<2M\UB#G`*L"O_
  1753. + M_V8&(&\`-%*0M\UE!'``8#XJ;P`D2H9K$B\-+P9A`/O>4$\D;0!`8`#_$'`*
  1754. + ML"O__V862J\`,&<0(`7E@"!M`%`L,`@`8`#^\GP`8`#^[$S?;/!.=2`/64"P
  1755. + MK`Q\90!CWB\-*F\`"'`!*T``"$AX`"!A`-O<*H!"K0`$<`$K0``42'@`!&$`
  1756. + MV\@K0``,0JT`($*M`!Q"K0`80JT`$$*M`#1"K0`X4$\J7TYU(`^0?``,L*P,
  1757. + M?&4`8X9(YP<T+"\`*"XO`"`F;P`D*F\`'$JL$3!G``"^+P=.NF9L6$\D0$J`
  1758. + M9@I(;`$V3KHY3%A/0JP1,'H`8$@@3='%$!!R?[`!;C9(@$C`0^P*O0@Q```(
  1759. + M`&<F$!!(@$C`"#$```@`9PP0$$B`2,!R(-"!8`80$$B`2,`5@%@`8`05D%@`
  1760. + M4H6ZAV6T+PMA`/\00JL`AD(K`%0NBR\'+PIA`.8R+HI.NF1$+HMA``3^+H8O
  1761. + M"V$`[:QP`2E`$3`NBV$`_MXNBR\'+PUA`.8(+H8O"V$`[8Y/[P`<8"(O"V$`
  1762. + M_L`NBR\'+PUA`.7J+HMA``2\+H8O"V$`[6I/[P`03-\LX$YU(`]90+"L#'QE
  1763. + M`&)Z2.<#!"IO`!`O%4ZZ8]`NK0`,3KICR%A/?@!\`&`6(&T`)-'&+R@`!$ZZ
  1764. + M8[)83U*'<!3<@+ZM`"AMY"\M`"1.NF.<6$]^`'P`8!8@;0`P(#!H`&<(+P!.
  1765. + MNF.$6$]2AU"&OJT`$&WD+RT`,$ZZ8W!83WX`?`!@*"!M`$`@,&@`9P@O`$ZZ
  1766. + M8UA@$"!M`$@@,&@`9P@O`$ZZ8T983U*'6(:^K0`X;=(O+0!$3KIC,BZM`$A.
  1767. + MNF,J6$\@;0!0+T@`$$S?(,!.^F,8(`]10+"L#'QE`&&H2.<#%"IO`!@F;P`4
  1768. + M(`UF!'``8`P@34H89OQ3B)'-(`@N`"`+9@1\`&`02H=G/B!+2AAF_%.(D<LL
  1769. + M""`+9@Q2AR\'3KID:EA/8!`@!M"'4H`O`"\+3KIB+%!/)D`@"V<,(`UG""!+
  1770. + MT<80W6;\(`M,WRC`3G4@#U%`L*P,?&4`82@@;P`$+PA"IV$`_VI03TYU(`^0
  1771. + M?``,L*P,?&4`80I(YP$4*F\`%"!-2AAF_%.(D<TN""9O`!!@&"\'+PTO"TZZ
  1772. + M82)/[P`,2H!F!"`+8`A2BTH39N1P`$S?*(!.=2`/64"PK`Q\90!@P"!O``0@
  1773. + M"&<(+PA.NF(66$].=2`/64"PK`Q\90!@HDCG`!0J;P`,(`UG$B9-8`HO$TZZ
  1774. + M8?!83T*;2I-F\DS?*`!.=2`/44"PK`Q\90!@<DCG!S0N+P`D*F\`'"`-9@9P
  1775. + M`&```*HO+P`@80#_(EA/)D!*@&8,+PUAFEA/<`!@``".0C-X`'P`)$U@'B\+
  1776. + M+Q)A`/\84$]*@&<,+PM.NF&&6$\@#6!H4H98BDJ29MYZ`"`&Y8`D3=7`8"@O
  1777. + M%2\+80#^ZE!/2H!F!E*%6(U@%"\53KIA4EA/4X99BKR%9P@JDD*22I5FU"(&
  1778. + M5('E@2\!+R\`($ZZ8*A03R!`2H!F!'``8`SEAB&+:`!"L&@$(`A,WRS@3G4@
  1779. + M#Y!\``RPK`Q\90!?H$CG`S0J;P`8(`UG!DJO`!QF!G``8```@$AX``1.NF*(
  1780. + M6$\F0$J`9@1P`&!J0I,D36!>?@`0$DB`2,`O`"\O`"!.NE^`8"A\`6`"4H80
  1781. + M,F@`9P:P-6@`9_*\AV\"+@80$DB`2,`O`$AM``%.NE]64$\J0"`-9M!*AV<4
  1782. + M+P<O"B\+80#^H$_O``PF0$J`9P92BDH29IX@"TS?+,!.=2`/D'P`#+"L#'QE
  1783. + M`%[V2.<`-"9O`!0J;P`0(`UG!"`+9@1P`&`L)$M@(B!2(`A*&&;\4XB1P"\(
  1784. + M+P`O#6$`_DA/[P`,*D!*@&<&6(I*DF;:(`U,WRP`3G4@#Y!\``RPK`Q\90!>
  1785. + MGEE/2.<`-"IO`!0@#6<&2J\`&&8$<`!@;$AX``1.NF&&6$\F0$J`9@1P`&!8
  1786. + M0I,D36!(*F\`&&`X+Q4O$F$`_K)03R1`2H!F#"\+80#]I%A/<`!@,"\*+PMA
  1787. + M`/]`)D`NBF$`_8Y03R`+9@1P`&`66(TD;P`,2I5FP%B*+TH`#$J29K`@"TS?
  1788. + M+`!83TYU(`]90+"L#'QE`%X&2.<`)"IO``P@;0`$(FT`""1M``Q"$D(10A`@
  1789. + M52](``Q,WR0`8`#],B`/D'P`(+"L#'QE`%W0GOP`%$CG/S8F;P!`0JL`AD(K
  1790. + M`%0B*P`04H'I@2\!3KI@MEA/*D`O0``L9P`$6B1-?@!@%$'L$10B32+8(M@B
  1791. + MV"+84H?:_``0OJL`$&_F?@`J2F!H2'@`!$ZZ8'PJ@$AX``).NF!R*T``!$AX
  1792. + M``).NF!F*T``"$AX``).NF!:3^\`$"M```PB%6<``X(D+0`$9P`#>B8M``AG
  1793. + M``-R2H!G``-L(&T`!")M``@L0$(60A%"$"!50I!2A]K\`!"^JP`0;Y)![`%$
  1794. + M0J\`-$*O`#`O2``X8``#*"!M``S1[P`P+A`F;P`L(`=2@&<``7H$@````0%G
  1795. + M4%.`9TQ3@&=(4X!G``,,4X!G/E.`9P`#`E.`9S13@&<P4X!G+%.`9RA3@&<P
  1796. + M4X!G+%.`9P`!*%.`9P`!?%.`9S)3@&<``M13@&<``LY@``)0+PIA`/YV6$]@
  1797. + M``*BM<MC``*XE/P`$"\*80#^8%A/8``"C$'K`""UR&4``IXF2I;\`!"4_``@
  1798. + M(&H`#")K``P0&+`99@9*`&;V9P8@:@`,0A!^`"IJ``1@`E*'$#5X`&<*(&L`
  1799. + M!+`P>`!G[B!J``1",'@`(&H`""`(2AAF_%.(D<`J""!K``@@"$H89OQ3B)'`
  1800. + M*`@N!;Z(;P(N!'P`8"`@!)"&(&L`"-'`(`60AB)J``C3P!`I__^P*/__9@92
  1801. + MAKR';=Q^`&`4(&H`"")((`60AM"'$[`(`'@`4H>^AFWH(&H`"$(P>``O$R\2
  1802. + M80#\]%!/*D!*@&<``=(O$F$`^N(NDDZZ7.Q83R2-8``!HK7+8P`!N)3\`!`@
  1803. + M:@`,0A!@``&.0>L`$+7(9@`!H'X`1>P!1&`D(%4@"$H89OQ3B)'`+`@@2DH8
  1804. + M9OQ3B)'*O(AC!B!3)'!X`%B'*E/;QTJ59M0O2@`X8``!9$'K`""UR&4``5HF
  1805. + M2I;\`!"4_``@+Q,O$F$`_`A03R2`9P`!0"IJ``A*%6=2(&L`!$H09THO#6$`
  1806. + M^;I83RI`2H!G``$@+RL`!"\-80#Y)E!/*D!*@&<``0P@34H89OQ3B)'-+P@O
  1807. + M#2\280#Z/B2`+HU.NEP63^\`#$J29P``YB!J``Q*$&<6+RL`!"\J``1A`/CB
  1808. + M4$\E0``$9P``R"!K``Q*$&8&(&H`"$(0+RL`""\J``AA`/B^4$\E0``(9P``
  1809. + MI"!J``Q*$&<<*FL`#$H59Q0O#2\(80#XG%!/)4``#&9F8```@$(08%YP_[Z`
  1810. + M;71*AV=P#(<```$1;0HO"F$`_!983V!"+PIA`/P,2^H`#"!51^H`!");+%,<
  1811. + MAQ*'$(<@52)J``0L6T(N``%"*0`!0B@``4AX``$O'2\280#Y;$_O`!`D@&<<
  1812. + MU/P`$%*O`#18KP`P*F\`0"`O`#2PK0`0;0#\S"IO`$!(>``Q+R\`/$AM`%1.
  1813. + MNEH\3^\`#$(M`(5![0!4(DA*&6;\4XF3R"M)`(9^`"9O`"PD2V`L+Q)A`/C:
  1814. + M+I)A`/BV+JH`!&$`^*XNJ@`(80#XIBZJ``QA`/B>6$]2A]3\`!"^K0`0;\XO
  1815. + M2P!`3-]L_-[\`!1.^EJN3-]L_-[\`!1.=0``3OD``(UH3OD``(J83OD``(V@
  1816. + M3OD``(J\3OD``(K43OD``*7H3OD``(O\3OD``(MT3OD``(LD<&$@#Y!\``RP
  1817. + MK`Q\90!8^$JL`4AF.C`\`/]R`$'L$5`0P5'(__QP&7(!0>P1L1#!4<C__'`9
  1818. + M0>P1D1#!4<C__'`)0>P1@!#!4<C__"E!`4A.=;_L#'QE`%BN(B\`!"`L`4PI
  1819. + M00%,3G4@#Y!\`-2PK`Q\90!8DI[\`,1(YS<V*F\`]"95)&\`["!*T>\`\")M
  1820. + M`!!"KP#D0J\`X$*O`-PO2P#83>\`.'X!0BT`%"](`"@O20`L+TX`-&$`_TA*
  1821. + MK0`$9@`(.'`<*T``!"(59PPO`"\!3KI9#E!/8`@O`$ZZ6S!83RJ`2H!G``AR
  1822. + M)D`O2P#88``("'#VT*T`!"(+DI6R@&]X($TJ4`RH``$````$9P`(1"!O`/0B
  1823. + M*``$TH$A00`$#($``0``;PAP`4A`(4``!"\H``0O$$ZZ6*I03R!O`/0@@&<`
  1824. + M"!:0C2P`U\8J;P#@(`UG!MO&+TT`X"IO`-P@#6<&V\8O30#<W:\`V"IO`.0@
  1825. + M#6<&V\8O30#D(&\`*+'*9P`'QGP`'!HJ;P`L(`UG""!-T<9\`!P0(`9R"I"!
  1826. + M9P`$&G(:D(%G1EF`9P`#\E.`9P`#^E.`9P`!1E.`9P`!-E>`9P`"3G(1D(%G
  1827. + M``$H<AR0@6<``L93@&<``_Q5@&<``,QR'I"!9P`#X&``!H8J;P`H""P``P%/
  1828. + M9S((+``%`4]F!K7-9@`&;"IO`.`@#6<0+PM(>``$+PUA``=03^\`#$*O`.!P
  1829. + M`Q;`8``&T+7-9W00$G(*L`%G;`@L``4!3V9D""P```%/9PYT*;`"5\%$`4B!
  1830. + M2,%@&')<L`%F#A0J``%V*;0#9@1V`6`"=@`B`TJ!9C((+``!`4]G#G1\L`)7
  1831. + MP40!2(%(P6`6<ERP`68,<'RP*@`!9@1P`6`"<``B`$J!9P`%T!;\``-@``90
  1832. + M2J\`W&<2<`JP*O_^9PH(+``%`4]G``6P""P``P%/9R`@;P#L4HBUR&<*""P`
  1833. + M!0%/9P`%E'`"%L`O2P#88``&$!;\``)@``8(""P``@%/9@`%=DJO`-QF"@@L
  1834. + M``4!3V<`!69"+P`S0B\`,G(KO(%6P$0`2("!+P`S=#^\@E;`1`!(@($O`#(@
  1835. + M;P`HL<I7P$0`2(!(P"P`9F1*AF8`!@!\`!P:(`UG"")-T\9\`!P1<"J\@&>V
  1836. + M""P``@%/9@B\@6>JO()GI@@L``(!3V<N<%R\@&8HL<IG``7&>@`:&B`-9P@@
  1837. + M3='%>@`:$+J!9PBZ@F<$58I@""P%8`#_<E.**F\`W"`-9P`%2DHO`#)G%B!-
  1838. + M2&C__4AX``<O"V$`!:1/[P`,5HM+ZP`#+PLO#2\O`.1(>``%80`%PD_O`!!"
  1839. + MKP#D)DU*+P`S9@`%""!O`-PO"TAH``8O"$AX``AA``6<3^\`$%:+8``$ZB!+
  1840. + M4HL0O``)+T@`W&``!-H@32I0#*@``0````1G``4D(&\`]"(H``32@2%!``0,
  1841. + M@0`!``!O"'`!2$`A0``$+R@`!"\03KI5BE!/(&\`]""`9P`$]I"-+`#7QBIO
  1842. + M`.`@#6<&V\8O30#@*F\`W"`-9P;;QB]-`-S=KP#8*F\`Y"`-9P;;QB]-`.0J
  1843. + M;P#T(`N0E7+=TJT`!+"!;@#_=B!+2^@``2](`-QP7K`29@P@2R9-$+P`"U**
  1844. + M8`@@2R9-$+P`"B!*%OP`("](`"1P'W(`(DL2P5'(__PJ;P`L(&\`*+'*9P`$
  1845. + M5'P`'!H@#6<((DW3QGP`'!%P7;R`9@HB;P`D4HFSRF9L<"VP$F9.<%VP*@`!
  1846. + M9T:QRF<`!"!+Z@`!L<UG``061>T``7H`&A4J;P`L(`UG("!-T<5Z`!H08!8@
  1847. + M!N:((@9T!\*"=`$F`N.CAS,(`%*&O(5CYF""(`;FB'0'S()T`>VBA3,(`&``
  1848. + M_W!3*___$"O__V\*2(!(P$HS"/]G[!`K__](@-;`8``#7@@L```!3V8``.I@
  1849. + M``+(""P```%/9@`!5&```KH(+``$`4]F``'*8``"K`@L``$!3V8``;Q@``*>
  1850. + M(&\`*+'*5\!$`$B`2,`L`&8``TY*AF8``UI\`!P:(`9R)Y"!9P`"(E.`9P``
  1851. + MA%.`9P``]E6`9P`"4%V`9P`"$E.`9P`"#%.`9P`"!E.`9P`"`%.`9P`!^E.`
  1852. + M9P`!]%.`9P`![E.`9P`!Z%.`9P`!XE>`9P`!K%6`9P`!KE.`9P`""%>`9P`!
  1853. + MLG(5D(%G``&"<@F0@6<``:I5@&<``91R%9"!9P`!7%N`9P`!`F```>0(+```
  1854. + M`4]F``':*F\`-$'O`-BQS6<``K)P"KZ`;`X@2Q"\``Q4BR`'$4```2!+(DT@
  1855. + M"RQO`/20EB*`6(U'Z0`(("\`X&<&D)92@&`"<``J@":'4H=#ZP`(("\`V)"6
  1856. + M)T``!$*O`.!"KP#<)D@O2P#8+TD`-&```?X(+````4]F``%B*F\`-$'O`#BQ
  1857. + MS6<``BY9C2)O`/0@4='5+T@`V"`O`.!G$"\+2'@`!"\`80`"-D_O``P@+?_\
  1858. + M<@JP@6P0($L0O``-5(L@+?_\$4```5&-0J\`X"`59PXB;P#T(E'3P%.)+TD`
  1859. + MX%F-+&\`]")6T]4O30`T+TD`W&```7H(+``!`4]F``#>+PM(:P`&+R\`X$AX
  1860. + M``5A``(&3^\`$$*O`.1+ZP`#)F\`X"`+9Q`O#4AX``0O"V$``:Y/[P`,1^T`
  1861. + M`T*O`-PO2P#8+TT`X&```28@2U*+$+P`%"](`-Q@``$6($M2BQ"\`!4O2`#<
  1862. + M8``!!A;\`!9@``#^%OP`%V```/86_``88```[A;\`!E@``#F%OP`$F```-X6
  1863. + M_``38```UBH&<#":@+J'9$(J;P`T48U@"B`5L(5G-)K\`!!![P`XN\AB[B!+
  1864. + M$+P`#E2+$44``2](`-Q@``">""P``@%/9@#ZF"`-9P;;QGP`'!4J;P#D(`UG
  1865. + M8A`52(`@3=#`0^@``;/+9E)R?[`!9TP0$G(JL`%G1')>L`%G/@@L``(!3V<>
  1866. + M<ERP`684$BH``70KL@)G!G8_L@-F!'(!8!AR`&`4<BNP`6<*<C^P`6<$<`!@
  1867. + M`G`!(@!*@6<:+TL`W'`!(&\`W!"`2^L``2]-`.14BW(`&H$6QE(5*F\`]+7O
  1868. + M`"AF`/?P)&\`X"`*9Q`O"TAX``0O"F$``%)/[P`,0>\`.")O`#2SR&82(`N0
  1869. + ME2M```AP`&`J0>P!4&`B0>P!;&`<0>P!>F`60>P!B&`00>P!K&`*0>P!OF`$
  1870. + M0>P!VB`(3-]L[-[\`,1.=;_L#'QE`$^62.<A%!XO`!LF;P`<*F\`%$/5$L=!
  1871. + M[0`#(`N0B"(`=`!&`L*"$L'@@!+`3-\HA$YU(`^0?``,L*P,?&4`3UA(YP$T
  1872. + M'B\`%RIO`!@F;P`@5HLD;P`@8`93BU.*%I*US6;V$`=(@$C`+TT`%"]``!A,
  1873. + MWRR`8(0@#Y!\`5BPK`Q\90!/%)[\`4Q(YS$V*F\!;"9M``PD52!*T>T`"")M
  1874. + M`!!-[P`H+T@`("])`!PO3@`D,#P`_W(`+$L<P5'(__P;?``!`!1"+0`58``"
  1875. + MUB!O`""QRF8.(&\!;!%\``$`%6```L8J;P`<<``0&E.`;0`"G`R`````&6P`
  1876. + M`I+00#`[``9.^P`$`#`"F@!:`(H!!`"*`(H`B@%(`;`"!@$T`30!.@*:`IH"
  1877. + MF@*:`IH!<`&0`IH"F@*:`IH@#6<6<``0*@`!<@`2-0``=`$7@A``8``"/'``
  1878. + M$"H``1>\``$``&```BP@#6<.<``0+0`*<@$7@0``8`9P`1=```HJ;P%L<`&P
  1879. + M+0`59P`"!AM\``(`%6```?P@;P%L$7P``0`5$"H``4B`2,#A@'(`$A(D`78`
  1880. + M1@/$@]2`(`)2@"!*T<!%Z``!2H)N``'><`6P$F8``=80*@`"2(!(P.&`<@`2
  1881. + M*@`!PH/2@%*!($K1P47H``(J;P`D0>\`*+'-9P`!JB!5L<IF``&B68TO30`D
  1882. + M8``!F"!*5(I8KP`D$"@``4B`2,#A@'(`$A`D`78`1@/$@]2`T<)#Z``"+&\`
  1883. + M)"R)8``!:%**8``!8G`!(&\!;!%``!470``*?@!P"KZ`9P87O``!>`!2APR'
  1884. + M```!`&WJ(&\!;$HH`!5G``$:8``!,GX`<`%![!%0L#!X`&8$%X!X`%*'#(<`
  1885. + M``$`;>9@``#V?@!P`4'L$5"P,'@`9P07@'@`4H<,AP```0!MYF```-9+Z@`!
  1886. + M<``0$B(`YX$N`5.')&\`'&`X(`=R"$ZZ2]!P`20`XZ(@!W((3KI+PA(U"`#"
  1887. + M`F<8(`IG#G``$#)X`'(!%X$``&`&%[P``7@`4X=*AVK$8```@'``$!(N`.>'
  1888. + M8!H@#6<.<``0-7@`<@$7@0``8`87O``!>`!2APR'```!`&W>2^H``7``$!(B
  1889. + M`.>!+@%3AR1O`!Q@."`'<@A.NDM.<`$D`..B(`=R"$ZZ2T`2-0@`P@)F&"`*
  1890. + M9PYP`!`R>`!R`1>!``!@!A>\``%X`%.'2H=JQ"IO`"1![P`HL<UG$"!-68@D
  1891. + M52](`"0@"F8`_2A,WVR,WOP!3$YU(`^0?``DL*P,?&4`2]HO!R`O`!@B+P`4
  1892. + M+B\`$"!O``PB;P`(+P<O+P`@+P`O`2\'+PAP`"\`+P`O"6$```I/[P`D+A].
  1893. + M=2`/D'P`++"L#'QE`$N4GOP`#$CG+S0J+P!(+"\`1"XO`#@J;P`P)FT`#"1M
  1894. + M`!`H!]BO`$`O1``D(@MG#DHM`!1F""\-80#\.EA/("T`"&\4(%5P$K`09@Q*
  1895. + MA6\(2H9N``$^>@$@"V<``-*\A&P``,QP`;`M`!5G``#"2H5O8G@`+T4`(+R'
  1896. + M;`XB!M*%LH=M!B@%F(?8AKR';0@@;P`\D<=@!"!O`#31QBI((@IG'&`"4X6Z
  1897. + MA&\B<``0'7(`$C(``$HS$`!GZF`04X6ZA&\*<``0'4HS``!G\-RO`""<A6!:
  1898. + MO(=M$B`&D(<@;P`\$C`(`!]!`"M@#"!O`#00,&@`'T``*W#_P"\`*R(*9QAR
  1899. + M`!(`=``4,A``2C,@`%?!1`%(@4C!8!)R`!(`2C,0`%?`1`!(@$C`(@!*@69,
  1900. + M*"\`)"IO`#!*A6L.N(9F"B`+9P9*+0`59THO+P!0+R\`4"\&+R\`3"\O`$PO
  1901. + M!R\O`$PO#6$``'9/[P`@2H!K#%2`9@1P_F`>(`9@&DJ%9Q1*A6\(4X52AF``
  1902. + M_M!2A5.&8`#^R'#_3-\L]-[\``Q.=2`/D'P`(+"L#'QE`$GJ("\`$"(O``P@
  1903. + M;P`((F\`!"\!+R\`&"\`+P$O"'``+P`O`"\)80``"$_O`"!.=2`/D'P#++"L
  1904. + M#'QE`$FNGOP#'$CG/S8N+P-0+"\#6"HO`V0L;P-((%8O2`-`T>X`"")N`!!-
  1905. + M[P"P+T@`/$'O`S`D;P-,2^\`I"K(+TD`,"K.*LY*AF80($HL!Y7*+TH#3'X`
  1906. + M+T@#5"I*V\<@329O`U0L2]W&+T@`-"].`#BZAVX.($K1Q2]+`S@O2`,\8`XO
  1907. + M30,\($O1Q9''+T@#.'H`2^\`5#1\__\JRE*%<`JZ@&7V*B\#7+J';@X@;P-,
  1908. + MT<4O;P,\`S!@#"!+T<61QR]O`S@#,"](`S0F;P-`)&\#-"IO`S"W[P`\9@``
  1909. + MU"9O`V`J+P-<(`MG``"F)H6[[P,\9@PB"I*O`TPG00`H8`P@"I"O`U30AR=`
  1910. + M`"AX`4?O`%@P?/__+T@`+"!++`3EAB)3+&\`++W)9@QP_R)O`V`C@&@`8$Q'
  1911. + M[P!\U\8B3]+\`$I*,4@`9P@B$Y*O`TQ@""(3DJ\#5-*'(F\#8".!:``F2"!/
  1912. + MT/P`0$HP2`!G#"(3DJ\#3".!:"A@#"`3D*\#5-"'(X!H*%*$6(MP"KB`;8J[
  1913. + M[P,\9@P@"I"O`TR0A6``!]P@"I"O`U30AY"%8``'SB!+0^@``29O`SAP`!`0
  1914. + M+TD#0%.`;0`'9`R`````&6P`!UK00#`[``9.^P`$!M0"7@)T!$@"L@1$`U`$
  1915. + M<@&6`<P!S``P`&@`H`=,!TP'3`:L!K@&7`:,!9P%\@38!3H@;P-`<``0$$C`
  1916. + M(@#E@4/O`'S3P2**4J\#0+OO`SQ7P$0`2(!(P'(`$A`@3]#\`$H1@!``8`#^
  1917. + MAB!O`T!P`!`02,`B`.6!0^\`5-/!(HI2KP-`N^\#/%?`1`!(@$C`<@`2$"!/
  1918. + MT/P`0!&`$`!@`/Y.>``@;P-`&!@@!.6`0^\`?"9Q"``O2`-`($_0_`!*$C!(
  1919. + M`")/TOP`0+(Q2`!F"D'O`%31P")08`0B;P,\)$E@'B!O`SBQRF<:(`3E@$'O
  1920. + M`%31P"I(M=5G"B9O`U0D5;?*9]XJ;P,TM\IF&F``_>`@;P,X(F\#,+/(9P`&
  1921. + M.BIO`U0O2`,PN^\#,&?D*B\#,"(-FH$@"B0+D(*Z@&\"*@`@+P`P9Q(O`"\%
  1922. + M+P(O`6$`!EI/[P`08!P@!2!-(D)R`$J`9PX2&)(99@13@&;V2(%(P2`!2H!F
  1923. + M``7>($W1Q=?%+T@#-&``_WJ[RV<`!<HD;P-4*DLO30,PM<UG[$OJ``$F;P`P
  1924. + M(`MG$"]-`S1P`!`2<@`2,P``8`HO30,T<``0$B(`<`JR@&8`_29@``6*>`!P
  1925. + M"R!O`T"P*/__9A1X`6`0N\MG``5R)&\#5"I++TT#,+7-9^PJ;P`P(`UG#'``
  1926. + M$!)Z`!HU``!@!'H`&A(J;P-`<``0%2(`YX&Z@6PH(`5R"$ZZ1+QP`20`XZ(@
  1927. + M!7((3KI$KA(U"`'"`F<*2H17Q$0$2(1(Q'``$!52@"!-T<`O2`-`2H1G``4`
  1928. + M0>H``6``_(RU[P-,9P#\B'`*L"K__V8`!.9@`/QZ(&\`.+'*9P#\<+7O`#1F
  1929. + M%DJ&9PYP"B!O`U2P$&<$<@!@$G(!8`YR"K(25\!$`$B`2,`B`$J!9P`$J&``
  1930. + M_#PJ;P"D)F\`J+?-9EHJ#9JO`*SDA2(L`>S2@;J!;P9P_F``!,HH!=B$(`3E
  1931. + M@"\`3KHC;"I`(@7E@2Z!+R\`L"\`3KI%C$_O``PB"Y*O`*SD@>6!)DW7P2`$
  1932. + MY8`@3='`+TT`K"](`*0@;P-`5*\#0!`H``%(@$C`X8!R`!(0)`%V`$8#Q(/4
  1933. + M@-'"0^@``B:)0>L`""=*``0O2`"H8`#[GB!O`T`0*``!2(!(P.&`<O_"$'0`
  1934. + M%`'4@"H"1>@``BI*)F\`/&`"4HV[RV<.$!5R#;`!9_)R#+`!9^R[RV<``)@0
  1935. + M%7(!L`%G"'0#L`)F``".5P!F!'`*8`9P`!`M``(H`"I*V\40+0`#L`%F$G(`
  1936. + M$BT`!;*$9PAR!A5!__U@7G(*L`%G!G(+L`%F4G(+L`%7P$0`2(!(P"H`<``0
  1937. + M+0`$YX"X@&PN(`1R"$ZZ0N)P`>.@'T``*"`$<@A.ND+2$B\`*!0U"`7$`6<*
  1938. + M2H57Q40%2(5(Q4J%9@9P!A5`__T@2E6(+T@#0'`&L"C__V<($7P`!/__8`11
  1939. + MKP"H(&\#0!`H``%(@$C`X8!R`!(0=`!&`L*"TH!2@='!0^@``2])`T!@`/I\
  1940. + M*F\`I"1O`*BUS69()F\`K"H-FHODA2@%V(0@!.6`+P!.NB&Z*D`B!>6!+H$O
  1941. + M"R\`3KI#W$_O``P@"I"+Y(#E@"1-U<`@!.6`($W1P"]-`*PO2`"D0I)!Z@`(
  1942. + M0JH`!"](`*A@`/]R(&\#3+'*9P#Z#"!O`#BQRF<`^@(J;P`TM<UF!DJ&9P#Y
  1943. + M]+7-9@IP`"!O`U00$&`$<``0$G0!0>P14+0P"`!7P40!2(%(P7``$"K__[0P
  1944. + M``!7PD0"2()(PK2!9P`"(&``^;0@;P-,L<IG``(2(&\`.+'*9P`"""IO`#2U
  1945. + MS68&2H9G``'ZM<UF"G``(&\#5!`08`1P`!`2=`%![!%0M#`(`%?!1`%(@4C!
  1946. + M<``0*O__M#```%?"1`)(@DC"M(%G`/E68``!NB!O`#BQRF<``;`J;P`TM<UF
  1947. + M!DJ&9P`!HKO*9@8@;P-48`(@2G``$!!R`4'L$5"R,```9@`!A+7O`TQG`/D4
  1948. + M<``0*O__<@%![!%0LC```&<``6A@`/C\(&\#3+'*9P`!6G``$"K__W(!0>P1
  1949. + M4+(P``!F``%&(&\`.+'*9P#XU"IO`#2US68&2H9G`/C&M<UF"G``(&\#5!`0
  1950. + M8`1P`!`2<@%![!%0LC`(`&<``0Y@`/BBN\MG``$$)&\#5"I++TT#,+7-9^Q!
  1951. + MZ@`!<``0$B](`S1![!%02C```&8`^'9@``#:N\MG``#4)&\#5"I++TT#,+7-
  1952. + M9^Q!Z@`!<``0$B](`S1![!%02C```&<`^$9@``"JM>\#3&8``*)@`/@V(&\`
  1953. + M.+'*9P#X++7O`#1F``",2H9F``"&8`#X&GH`(&\#0!H8+T@#0$JO`#!G2&`.
  1954. + MN\MG:"1O`U0J2R]-`S"US6?N<``0&B!O`#`4,```(F\#0+095L%$`4B!+TD#
  1955. + M0$H!9CI3A6;88"R[RV<P)&\#5"I++TT#,+7-9^X2&B!O`T"R&%;`1`!(@"](
  1956. + M`T!*`&8,4X5FXB]*`S1@`/>:*F\`J"!O`*RQS6<\2JW_^&8(48TO30"H8.8@
  1957. + M;?_\(DU1B2]1`T`O2`,T+TD`J+'O`TQE`/=DL>\`-&(`]UPO;P,\`S!@`/=2
  1958. + M</],WVS\WOP#'$YUO^P,?&4`0")(YR$T+B\`("IO`"0F;P`8)&\`'&`8<``0
  1959. + M&G(`$AL4-1``M#4``&<$<`%@"%.'2H=FY'``3-\LA$YU(`^0?``,L*P,?&4`
  1960. + M/]HO#2IO``@@#682("P24&8(0>P!\"`(8%QP`&!82JP24&8X2'@`R$ZZ0KA8
  1961. + M3RE`$E!F"$'L`A`@"&`Z*7P```#($E1(>`$`3KI"F%A/*4`27&8(0>P"(B`(
  1962. + M8!H@34H89OQ3B)'-2&P24"\(+PUA`.;,3^\`#"I?3G4@#Y!\`!BPK`Q\90`_
  1963. + M5")O``0@24H89OQ3B)')<``O`"\(+P`O""\)2&P24&$`\TQ*@%K!1`%(@4C!
  1964. + M3^\`&"`!3G4``+_L#'QE`#\62.<!!"XO`!`J;P`,8!`0%4B`2,"PAV8$(`U@
  1965. + M"%*-2A5F['``3-\@@$YUO^P,?&4`/N1(YP,4+B\`'"9O`!@J;P`4?`!@"!>U
  1966. + M:`!H`%*&O(=M]$S?*,!.=2`/D'P`#+"L#'QE`#ZP2.<!%"IO`!`N+!)TGJP2
  1967. + M<.6'+P=.NAT6)D`B+!)PY8$@3='!+H<O`"\(89@@+!)T(@#E@2!-T<$B+!)P
  1968. + MY8$B3=/!(BP".)*`Y8$N@2\)+PAA`/]R(BP2<-*L`CB2K!)TY8';P2Z'+PTO
  1969. + M"V$`_U@@+`(X2^P2<"(=TH"2E4_O`!PJP"E!$G!,WRB`3G4@#Y!\`"2PK`Q\
  1970. + M90`^%I[\`!!(YS\T*F\`1$*L`C1*K`(X9E1P`2E``CA"K!)H*4`2<"E`$G0@
  1971. + M;P!`$A!T+;("9@QT`BE"$FQ2KP!`8"IT*[("9@I"K!)L4J\`0&`:2&P"0$ZZ
  1972. + M0QY83TJ`9P9"K!)L8`9P`2E`$FPN+P`X2JP2:&<*(&P2:$H09@`!7'`!L*P2
  1973. + M;&9R("P2="(L$G"R@&<2L*P".&<,+R\`/&$`_KI83V`,(BP".+"!9P0I01)P
  1974. + M(BP"..6!)F\`/-?!8`92K`(X6(L@+`(XL(=L)"!+)%`0$G(ML`%F"")02BD`
  1975. + M`680(@UGVG(KL`%FU$HJ``%GSB`L`C@I0!)T("P".+Z`9U#E@$AL`E`@;P!`
  1976. + M+S`(`$ZZ/7!03TJ`9CA2K`(X("P2="(L$G"R@&<2L*P".&<,+R\`/&$`_B18
  1977. + M3V`,LH!F""`L`C@I0!)P(`<I0`(X*4`2="`L`CBPAV86("P2<"(L$G2R@&<$
  1978. + M*4`".'#_8``$9"(L`CCE@2!O`#PD<!@`%!)V+;0#9@HB<!@`2BD``68NNOP`
  1979. + M`&<,=BNT`V8&2BH``68<2JP2;&8&</]@``0F4JP"."EP&``"-'`!8``$%E**
  1980. + M(`UG#!`2<BVP`68$=`%@`G0`(DK3PBE)$F@@#6<``M(@+`(X(@#E@2!O`#PD
  1981. + M<!@`$!)T+;`"9A`@<!@`M"@``6<.2J\`3&8(<BNP`68``J(D;!)H0J\`+'P`
  1982. + M0J\`*&`"4HH0$F<&<CVP`6;T+TT`,'H`8&(@"I"L$F@O`"\L$F@@;P`X+Q!.
  1983. + MNCP*3^\`#$J`9CPN"IZL$F@@;P`P+Q!.NCO&6$^^@&82(&\`,"@%<`$O0``L
  1984. + M+T@`*&`D2J\`*&8,(&\`,"@%+T@`*&`"?`%P$-&O`#!2A2!O`#!*D&:62H9G
  1985. + M1$JO`"QF/DJL`CQG("(L`CCE@2!O`#PO,!@`+Q!(;`)42&P,"$ZZ0:!/[P`0
  1986. + M+RP2:$ZZ.U+1K!)H4JP".%A/<#]@``+N+B\`.$JO`"AG``$:4JP".$H29W@@
  1987. + M;P`H2J@`!&<,0^H``2E)`C1@``#`2JP"/&=((BP"..6!(F\`/"1Q&/QP+;`J
  1988. + M``%F%B\0+Q%(;`)R2&P,"$ZZ02Y/[P`08!P0$DB`2,`O$"\`+Q%(;`*@2&P,
  1989. + M"$ZZ01!/[P`4+RP2:$ZZ.L+1K!)H6$]P/V```F)P`2!O`"BPJ``$9E`B+`(X
  1990. + MLH=L$E*L`CCE@2!O`#PI<!@``C1@-DJL`CQG'.6!(&\`/"\P&/PO$$AL`LY(
  1991. + M;`P(3KI`M$_O`!`O+!)H3KHZ9M&L$FA83W`_8``"!B\L$FA.NCI26$_1K!)H
  1992. + M)&\`2"`*9P(DA"!O`"@@*``(9PXB*``,($`@@7``8``!UB!O`"@@*``,8``!
  1993. + MRDJO`$QG-B(L`CCE@2!O`#PD<!@`<"VP*@`!9R!P*[`29QH@;!)H$!!(@$C`
  1994. + M+P`O+P!$80#ZO%!/2H!F:DJL`CQG3"(L`CCE@2!O`#PD<!@`<"VP*@`!9A@O
  1995. + M+!)H+Q!(;`+T2&P,"$ZZ/_9/[P`08!X0$DB`2,`O+!)H+P`O$$AL`Q1(;`P(
  1996. + M3KH_UD_O`!0O+!)H3KHYB-&L$FA2K`(X6$]P/V```21+[!)H(%40&"J('T``
  1997. + M)TB`2,`O`"\O`$0JR&$`^BY03R1`(&P2:$H09@12K`(X(`IG"A`O`"=R.K`!
  1998. + M9E)*K`(\9T80+P`G<B"P`6T&<G^P`6T:2(!(P"\`(&\`0"\02&P#-$AL#`A.
  1999. + MNC]08!A(@$C`+P`@;P!`+Q!(;`-B2&P,"$ZZ/S9/[P`0<#]@``"6<#JP*@`!
  2000. + M9@``A+`J``)F'B!L$F@0$&<**4@"-%*L`CA@!$*L`C23R2E)$FA@7B!L$FA*
  2001. + M$&<**4@"-%*L`CA@2"`L`CBPAV8N2JP"/&<@$"\`)TB`2,`O`"!O`$`O$$AL
  2002. + M`X)(;`P(3KH^PD_O`!!P/Q]``"=@$E*L`C@B`.6!(&\`/"EP&``"-$*L$F@0
  2003. + M+P`G2(!(P$S?+/S>_``03G4@#Y!\`!BPK`Q\90`X+B`O``0@;P`,(F\`"$*G
  2004. + M0J="IR\(+PDO`&$`^?!/[P`83G4``"`/D'P`$+"L#'QE`#?\*7P``"``$I!P
  2005. + M8.^(+P`I0!*(3KHZ[EA/*4`2@&8J(BPM3.6!0>P)_B\P&``O+!)\2&P#K$AL
  2006. + M#`A.NCX22'@``DZZ/1Q/[P`43G4@#Y!\`!2PK`Q\90`WI$CG)A0L+P`8("P2
  2007. + MB)"&L*P2D&)@8!0B+!*(TH$D+!*0U((I01*(*4(2D"`L$HB0AK"L$I!CX"\L
  2008. + M$H@O+!*`3KHX/E!/*4`2@&8J(BPM3.6!0>P)_B\P&``O+!)\2&P#R$AL#`A.
  2009. + MNCV.2'@``DZZ/)A/[P`4("P2A"(L$HS2@)*&*@8J;!*`)DW7P)?&*4$2C&`"
  2010. + M&ML@!5.%2H!F]BE&$H1*K!*<9P1P`&!\(&P2@-'L$H0O+!*0+P@O+!*43KHL
  2011. + MX$_O``PL`&PV0>P$`"`L$IAG`B!`(BPM3.6!0^P)_B\Q&``O""\L$GQ(;`/D
  2012. + M2&P,"$ZZ/0)/[P`4<`$I0!)X2H9F'B`L$H1O&'(*(&P2@+(P"/]G#'P!=`$I
  2013. + M0A*<$8$(`-VL$H0@!DS?*&1.=2`/D'P`#+"L#'QE`#9J2.<'!"PO`!PN+P`8
  2014. + M*F\`%'H`2JP2M&<44H5R"K(=5L!$`$B`2,!F\&```.(@+!*89QY*K!*L9AAR
  2015. + M.DJ&9@)R+2\!+P!(;`0(3KH]!$_O``Q*K!*H9R)P.DJ&9@)P+2(-DJP2@-*L
  2016. + M$HPO`"\!2&P$#DZZ/-Q/[P`,2JP2L&<8<#I*AF8"<"TO`"\'2&P$%$ZZ/+Y/
  2017. + M[P`,4H4(+``!#`%G3%*L"_(@+`ORL*P+^FXF(&P+ZE*L"^H0%1"`<@JP`68^
  2018. + M""P`!@P!9S9(;`OF3KI`XEA/8"I3K`OR$!5(@$C`2&P+YB\`3KH\LE!/8!(0
  2019. + M%4B`2,!(;`OF+P!.NCR>4$]R"K(=5L!$`$B`2,!FBD*L$VPI31-H(`5,WR#@
  2020. + M3G4@#Y!\`)BPK`Q\90`U0)[\`'A(YR\T?@!\`'`!+T``E'H`0J\`A$*L$VQ@
  2021. + M``24)FP2@-?L$H1@`E.+M^P2@&,(<`JP*___9O`@2R](`"@B;!*`M\EF""XL
  2022. + M$H1@``1D$!,I21-HT\8J22]-`(@H+P"4'T``+&```O0D2V`"4XJUS6,(<`JP
  2023. + M*O__9O(@2BI+)F\`*"](`"2[RV0.<@JR'5;`1`!(@$C`9NX@32](`"Y*KP"0
  2024. + M9P``XGH`+`V<BE.&8```QB`&D(5(;P`T+P`O!2\&+PI(;!-23KKHCD_O`!@N
  2025. + M`%*`9P``J"`O`%R0ARH`2JP2O&<,2H=F``"4NH9F``".2JP2N&<``)!@=$J'
  2026. + M;R00,GC_<G^P`6(0=``4`'`'0>P*O<`P*`!F6A`R>/]T7[`"9U#:A[J&;%X0
  2027. + M,E@`<G^P`6(0<@`2`'`'0>P*O<`P&`!F"A`R6`!R7[`!9CH@!5.`+P!(;P`X
  2028. + M+P<O!B\*0J="ITAL$U).NNH<3^\`("H`2H5NB"H'4H6ZAF\`_SB[RV8``=I@
  2029. + M``'X+B\`C"HO`(0F;P"(2JP2P&8``,12AR]'`(Q@%B`$4H1"IR\`+PMA`/T8
  2030. + M3^\`#-?`4X5*A6<$M\IEXBHL$J1@%K7L$VAC"E.*<`JP*O__9O!3KP"44X5*
  2031. + MA6\&M>P3:&+@2JP2I&8&2JP2H&<B2JP2M&8<2JP$&F862JP3;&8&M>P3:&,*
  2032. + M2&P$'DZZ+<183T*L!!HJ;P`D8!@@+P"44J\`E$*G+P`O"F$`_)A/[P`,U<"U
  2033. + MS67D("\`E%*O`)1(>``!+P`O"F$`_'I/[P`,+VP2H`"$8```[+?*9B)*A6\6
  2034. + M4X5"IR\O`)@O"B]%`)!A`/Q23^\`#%*O`)1@``#&M<MC``"\*DLJ+!*D8!2[
  2035. + M[!-H8PI3C7`*L"W__V;P4X13A;OL$VAC!$J%9N)*K!*D9@9*K!*@9R)*K!*T
  2036. + M9AQ*K`0:9A9*K!-L9@:[[!-H8PI(;`0J3KHL_%A/0JP$&F`4(`12A$*G+P`O
  2037. + M#6$`^]A/[P`,V\"[RV7H8!A2AR`$4H1(>``!+P`O#6$`^[I/[P`,V\"[RF7D
  2038. + M+T<`C$JL$J!G&D*G+R\`F"\*80#[FD_O``P@+!*@4X`O0`"$4J\`E&`$3KHI
  2039. + M("@O`)0J;P`N+TT`B"9O`"B[RV<B2&\`D$AO`)A"IR\++PU(;!+(80`'^$_O
  2040. + M`!@F0$J`9@#\[BIO`"@:KP`L*B\`C"9O`(A*K!+`9BXN+P"$8!H@!%*$0J<O
  2041. + M`"\+80#[(D_O``S7P%.'+T<`A+?-9```MDJ'9MQ@``"NN\MC``"H)$LN+!*D
  2042. + M8!2U[!-H8PI3BG`*L"K__V;P4X13A[7L$VAC!$J'9N)*K!*D9@9*K!*@9R)*
  2043. + MK!*T9AQ*K`0:9A9*K!-L9@:U[!-H8PI(;`0V3KHKOEA/0JP$&F`4(`12A$*G
  2044. + M+P`O"F$`^II/[P`,U<"URV7H8!A2A2`$4H1(>``!+P`O"F$`^GQ/[P`,U<"U
  2045. + MS67D+VP2H`"$?``B#9*L$H`N+!*$GH%@1"XL$J0D36`0M>P3:&,*4XIP"K`J
  2046. + M__]F\+7L$VAC""`'4X=*@&;B+`TB"IR!(`&0K!*`+BP2A)Z`LJP3:&,&<`$I
  2047. + M0!-L+T4`C"\'80#XU%A/2H!N`/M>(`5,WRSTWOP`>$YU(`^0?``,L*P,?&4`
  2048. + M,&(O+!)\2&P$0DAL#`A.NC:D2'@``DZZ-:Y/[P`03G4@#Y!\`2BPK`Q\90`P
  2049. + M-I[\`11(YR\T+B\!.$*O`3";S9?+?`!Z`$*O`2PD;P$\2'@`+R\23KHP,%!/
  2050. + M2H!G#"!`0^@``2E)$GQ@!"E2$GQ"K`(\8``"*B`$<C"0@6<``*93@&<``*!3
  2051. + M@&<``)I3@&<``)13@&<``(Y3@&<``(A3@&<``()3@&=\4X!G>%.`9W1=@&=H
  2052. + M58!G``"84X!G``"Z4X!G``#<<A.0@6<``.)R#)"!9P``[E.`9P``\E6`9P``
  2053. + M^%.`9P`!`E6`9P`!#%.`9P`!$%>`9P`!7%6`9P`!8%N`9P`!8E>`9P`!9%.`
  2054. + M9P`!9E.`9P`!:&```6QA`/[68``!?$/L$J`@$2(`Y8'2@-*!TH1P,)*`(L$B
  2055. + M&20!Y8+4@=2"U(24@"E"$J1@``%02&P2H$AL!-0O+`(T3KHTO$_O``Q*@&<(
  2056. + M("P2H&H``3!A`/Z"8``!*$AL$J1(;`38+RP"-$ZZ-)1/[P`,2H!G""`L$J1J
  2057. + M``$(80#^6F```0!P`BE`$J0I0!*@8```\DAL!)M(;`3<2&P,"$ZZ-/A@``#:
  2058. + M<`$I0!*H8```U'P!<`$I0!*T8```R"`+9P1A`/X6*FP"-&```+@@#6<$80#^
  2059. + M!B9L`C1@``"H<`$I0!*L8```GG`!+T`!,'@`0>P*O0@P``!(`&<>"#```$@`
  2060. + M9P@@!'(@T(%@`B`$($_0_``L$8!(`&`,(`0@3]#\`"P1@`@`4H0,A````0!M
  2061. + MP$'O`"PI2!-B8$IZ`7`!*4`2M&!`<`$I0!*P8#AP`2E`$K1@,'`!*4`2P&`H
  2062. + M<`$I0!*X8"!P`2E`$KQ@&"\L$GQ(;`3@2&P,"$ZZ-"!A`/U<3^\`#$AL!+0O
  2063. + M"B\'3KKU@$_O``PH`%*`9@#]PB\O`3!(>``4+T8`,"]%`"Q.NJ@@2'@`%$ZZ
  2064. + MU-Y/[P`,(`MG``#$2&P$_"\+3KH[/E!/)$!\0.6.>@!*@&8L(BPM3.6!0>P)
  2065. + M_B\P&``O"R\L$GQ(;`3^2&P,"$ZZ,Z)(>``"3KHRK$_O`!A(>`$`3KHP1%A/
  2066. + M8!H@15*%(@@;A!@`NH9F#MR&+P8O#4ZZ+?Q03RI`""H````;9R93J@`(;18(
  2067. + M*@`-`!YF#B!J``12J@`$<``0$&`2+PI.NC666$]@""\*3KHUC%A/*`!2@&:H
  2068. + M+PI.NCCV6$]*A6\*<`JP-5C_9@)3A2P%8#(@#68B("P".+"';01A`/Q((BP"
  2069. + M.%*L`CCE@2IR&``@34H89OQ@!B!-2AAF_%.(D<TL"$JL$KAF"$JL$KQG``".
  2070. + M(`9R,M"!+P!.NB^"6$\F0$JL$KAG#$'L!0HB2Q+89OQ@"D'L!1XB2Q+89OP@
  2071. + M2TH89OQ3B)'+*`@@"")+T\`O!B\-+PE.NBSN3^\`#-B&)$O5Q$JL$KAG#$'L
  2072. + M!2(B2A+89OQ@"D'L!38B2A+89OP@2DH89OQ3B)'*V(A(>``!2&P2R"\$+PM.
  2073. + MNLAJ8!!(>``!2&P2R"\&+PU.NLA83^\`$$AL$U(O!B\-3KK3/$_O``Q*@&<(
  2074. + M+P!A``'$6$]*K!*P9F)*K!+`9EP@+!-.9QYR,K"!9QA"ITAL$QQ.NBO,4$]%
  2075. + M[!,<U>P33K"*9P9"K!+$8#)"$DAL!3I.NB!*6$]*@&<.2&P3'$AL!41.NB9(
  2076. + M4$\O+P$P2&P3'&$``R903W`!*4`2Q"`'D*P".'("L(%L!G`!*4`2K&$`\T0L
  2077. + M+P`H*B\`)+ZL`CAO``#.)&\!/&```+I"K!*<0JP2C"(L`CA2K`(XY8$@<A@`
  2078. + M<``O`"\`+P@I2!*83KH8ND_O``PI0!*4:BXB+"U,Y8%![`G^+S`8`"\L$I@O
  2079. + M+!)\2&P%5DAL#`A.NC$T3^\`%'`!*4`2>&!:80#UAB@`9P9P`2]``2PO+!*4
  2080. + M3KH'4%A/2H9G*$JL$JQF%"\$+RP2F$AL!6).NB5V3^\`#&`D+P1(;`5J3KHE
  2081. + M9E!/8!9*A6<22H1G#B\L$IA(;`5N3KHE3E!/("P".+"';0#_0&`R80#U("@`
  2082. + M9P9P`2]``2Q*AF<.+P1(;`5R3KHE)%!/8!)*A6<.2H1G"DAL!79.NB386$]*
  2083. + MK!)X9PI(>``"3KHOE%A/2J\!+&<(0J=.NB^&6$](>``!3KHO?%A/<`%,WRST
  2084. + MWOP!%$YU(`^0?``0L*P,?&4`*?P@;P`$+P@O+!)\2&P%@$AL#`A.NC`XWOP`
  2085. + M$'`"+T``!$[Z+SP@#Y!\`!RPK`Q\90`IREE/2.<!-"XO`"0J;P`<)DTD;P`@
  2086. + M2JP2Q&9J1^\`'";-)LHFQTS?+(!8CT[ZQ"(F2BIO`!Q@`E.+M\UC!G`*L!-F
  2087. + M]"I*)&\`(&`"4HV[RF0&<`JP%6;T4HT0%4(5+R\`+"\O`"PO!R\-+PLO+P`L
  2088. + M'T``*$ZZP]I/[P`8&J\`$$J`9A@F32`*D(TO`"\+80``%%!/)$!*@&:6<`!,
  2089. + MWRR`6$].=2`/64"PK`Q\90`I'%E/2.<"-"PO`!PJ;P`8("PK^+"&;@``MB9-
  2090. + MU\8@+"OX(@#E@;R!;PH@2Y'!+T@`$&`$+TT`$"1-U<!3BBIO`!!@(-7&<``0
  2091. + M$DC`Y8!#[!-PU?$(`'``$!)(P"(`Y8'5\1@`M<UD&'``$!)(P"(`Y8%![!-P
  2092. + M+#`8`&;(8`)2BK7+9!1P`!`22,`B`.6!0>P3<$JP&`!FYK?*9S(L+"OX4X8J
  2093. + M2E.&;1A3C7``$!5![!=P$C```$/L&'"R,6@`9^1*AFL&4HI@`/]V(`I@`G``
  2094. + M3-\L0%A/3G4@#Y!\``RPK`Q\90`H.$CG+A0L+P`@*F\`'"!-2AAF_%.(D<TI
  2095. + M2"OX2H9G4GH`*`A@1B9-U\40$TB`2,!![`J]"#````@`9QX(,```"`!G#!`3
  2096. + M2(!(P'(@T(%@#A`U6`!(@$C`8`00-5@`2(!(P$'L&'`1@%@`4H6ZA&VV8!(O
  2097. + M+"OX+PU(;!AP3KHH:D_O``QZ`$OL$W`H+"OX*L0@!4'L%W`1@`@`4H4,A0``
  2098. + M`0!MZGH`*"PK^%.$8")P`$'L&'`0,%@`2,`B`.6!("PK^)"%4X!![!-P(8`8
  2099. + M`%*%NH1MVDOL&&_;["OX<``0%4C`Y8!![!-P0K`(`$J&9P``I'P`8$)'[!AP
  2100. + M<``0,V@`0>P*O0@P``$(`&<J"#```0@`9PIR`!(`=""2@F`$<@`2`"`!Y8`B
  2101. + M+"OXDH93@4'L$W`A@0@`4H:\A&VZ<``0%4'L"KT(,``!"`!G(`@P``$(`&<*
  2102. + M<@`2`'0@DH)@!'(`$@#E@4'L$W!"L!@`?$%![`J]"#```&@`9P@@!G(@T(%@
  2103. + M`B`&0>P7<!&`:`!2AG!:O(!OVDS?*'1.=0``2.<@,B!O`!A#[P`<1?H`'"9O
  2104. + M`!0D"RQY````!$ZN_?8@"Y""3-],!$YU%L!.=0``3KH'O"`L+51.=0``(&\`
  2105. + M!")O``A93TCG,S8J2'X`(&PM*"PH`.`O20`@2H9F($JL#*1F&D'L!:`B""QL
  2106. + M+90D/````^U.KO_B+`!G`GX!2H9G-B(&0>P%JB0(0>P,K"8(+&PME$ZN_IXB
  2107. + M!B0-)B\`($ZN_IXB!G0*3J[^R$J'9U@B!DZN_]Q@4"!L+2@F:`"X,'S__[?(
  2108. + M9T!#[`6P<"4L>``$3J[]V"1`2H!G+"EL#*P%E"E-!9@O"B!++$I#[`6,E<HF
  2109. + M;P`D3J[]M$S?!``B2BQX``1.KOYB3-]LS%A/3G4@;P`$0^\`"&$`_RI.=2!O
  2110. + M``1#[P`(80#_''`43KHJUDYU``!(YP`&<`AR`"QX``1.KO\Z*D!*@&8$<`!@
  2111. + M+D*M``1(>``H<``O`$'L!<1R`9/)P4%.NA[^4$\J@&8,(DUP"$ZN_RYP`&`"
  2112. + M(`U,WV``3G4@;P`$2.<`!BI((`UG&"!-80``'B!53KH?0B)-<`@L>``$3J[_
  2113. + M+DS?8`!.=2!O``1(YP`&*DA*K0`$9Q0B52QX``1.KOX@(E5.KOXF0JT`!$S?
  2114. + M8`!.=2!O``0@4")H``YP`!`I``]R`>&A(`%.=2!O``0@+P`((B\`#$CG`P8L
  2115. + M`2X`*DAAJDJ'9@1*AF<>(E4C1P`@(T8`)#-\``D`'"QX``1.KOXR<`$K0``$
  2116. + M3-]@P$YU(&\`!$CG``8J2$JM``1G'")5+'@`!$ZN_BQ*0&<.(E5.KOXF0JT`
  2117. + M!'`!8`)P`$S?8`!.=2\.("PM-"(`2$%"0=*`("PM*+.`*4`L`$*L+`1#[`78
  2118. + M<``L>``$3J[]V"E`*_QP_TZN_K9(@$C`*4`%U$JL*_QG"$J`:P1P`6`"<``I
  2119. + M0"P(+%].=2\.("P%U&L(+'@`!$ZN_K`@+"O\9PHB0"QX``1.KOYB+%].=2`O
  2120. + M``113TCG`P`N`$ZZ!0`@!TZZ`9!*@&<H(D`@:0`<<D#EB<*1+T@`#"`!(&D`
  2121. + M!")O``Q.D2P`(`=.N@%((`9@`G#_3-\`P%!/3G4@+P`$+P<N'V"N```@;P`$
  2122. + M("\`"")O``PO;P`0``0O;P`4``@O;P`8``PO;P`<`!`O;P`@`!0O;P`D`!A1
  2123. + M3TCG!Q0N`$CO`P``%'P`*FPL#&`62JT`!&8*,'P``2M(``1@#%*&VOP`)+RL
  2124. + M+!!MY"`L+!"\@&9X<@K3K"P0("PL$"(`YX'2@.6!(`%.NB7P*D!*@&8,<`PI
  2125. + M0"U,</]@``".</;0K"P0(@#G@=*`Y8$@;"P,(DU@`A+84X%D^B`L+`QG!B!`
  2126. + M3KHD$BE-+`QZ]MJL+!`@!>>`T(7E@-O`E\LK2P`$4H7:_``DNJPL$&WP(`;G
  2127. + M@-"&Y8`@;"P,(:\`%`@$(8<(`"&O`!@("$OO`"`AG0@,(9T($"&="!1+[P`L
  2128. + M(9T(&"&="!PAG0@@(`9,WRC@4$].=2`O``0B`&L6LJPL$&P0(`'G@-"!Y8`@
  2129. + M;"P,0K`(!$YU("\`!$CG`00N`&L>OJPL$&P8(`?G@-"'Y8`J;"P,V\!*K0`$
  2130. + M9P0@#6`(<`DI0"U,<`!,WR"`3G4@+"P03G4``"`O``193RZ`0>P%["`(6$].
  2131. + M=2!O``193RZ(0>P%["`(6$].=2`L!>Q.=0``64]*K`8>9@Q![P`#*4@&'F'N
  2132. + M8!9![P`#(FP&'K/(9`1P`6`"</\I0"P46$].=5E/2.<!%"XO`!1*K"P49@)A
  2133. + MP"IL!B)@+B`L+!1O#$'O``\B;0`$L\AB$$J`:AQ![P`/(FT`!+/(9!`F52\-
  2134. + M3KHBIEA/*DL@#6;.*4T&(DJ'9@1P`&`B4(<O!TZZ)"X@0""L!B)#[P`3(4D`
  2135. + M!$/H``A83RE`!B(@"4S?*(!83TYU```@+P`$64\N@"`L+21G#B!`3KK\BDJ`
  2136. + M9P1R`6`"<@`@`5A/3G4@+P`$(&PM)'(`3OK\,$ZZ^V0I0"TD9@I(;`8H3KK[
  2137. + M0%A/(&PM)$ZZ^_2!K"P83G4@;"TD3OK[D`CL``PL&DYU("\`!`@```Q6P$0`
  2138. + M2(!(P$YU".P`#2P:3G4@+P`$"```#5;`1`!(@$C`3G5.NAE6<``@;"V$$"@`
  2139. + M#W(!X:&#K"P83G5.^AFH("\`!%E/2.<!%B]``!!^`&`N("T`%$ZZ&/XF0$J`
  2140. + M9Q1*JP`49@Y^`7`!)T``%"=M`!@`&")-<!PL>``$3J[_+B!L+80L>``$3J[^
  2141. + MC"I`2H!FP"`'3-]H@%A/3G4@+P`$2.</!"X`<`'OH"P`<`F^@&8&<`!.N@L4
  2142. + M("PM',"&9P:-K"T@8'HJ!D:%RZPM($J':V9P(+Z`;&`@!^>`0>PL'"IP"``P
  2143. + M?``!N\AF+"`'58!G%%.`9Q!R#9"!9SQ9@&<X48!G-&`*2&P&0$ZZ^?Q83W``
  2144. + M3KH*MF`@(`UG'"`'YX`H!D'L+!R(L`@$B:PM'"`'3I5&A,FL+1P@+"T@P(9F
  2145. + MBDS?(/!.=2`O``0O#B(L+!B"@'``+'@`!$ZN_LXL7TYU("\`!"\.(@`@+"P8
  2146. + M@($L>``$3J[^PBQ?3G4@+P`$2.<#`"X`?`!A`/X02H!G"'P!<`YA`/\,(`=A
  2147. + M`/YB2H!G"'P!<`)A`/[Z(`=A`/YJ2H!G"'P!<`-A`/[H(`=A`/Z&2H!G"'P!
  2148. + M<!1A`/[6(`9,WP#`3G4@+P`$+P<I0`R$<`@N'V``_KQP`&$`_V!@D&#V2.<!
  2149. + M%'X`2^PL'#9\``$JBT*M``12AU"-<""^@&WP0JPM($*L+1Q"K"P880#]U&$`
  2150. + M_>IA`/VB3-\H@&``_?AA`/VX8`#^"```2&P&5$ZZ^-A83TYU("\`!"\-3KHA
  2151. + M5"I`2H!F`F'B(`TJ7TYU(&\`!"`O``@O"TZZ'Q`F0$J`9@)AQB`+)E].=2!O
  2152. + M``0O#2I((`UF!$OL!EX@34H89OQ3B)'-(`A2@$ZZ(0@@0$J`9@1P`&`((D@2
  2153. + MW6;\(`@J7TYU64](YP,T?@!\`"!L+2@F:`#08"Q**P`(9B0P/`4`P&L`#F8:
  2154. + M4H<@:P`*(`A*&&;\4XB1P"`(W(#<JP`45(8F4TJ39M`@!U*`Y8#0AF$`_THI
  2155. + M0"U`Y8<@0")`T\=%Z0`$+T``%&8*0>P&4"E(+4!@5B!L+2@J:`#08$)*+0`(
  2156. + M9CHP/`4`P&T`#F8P)FT`"BXM`!0@;P`4(,HO2``48`(4VTH39OH4_``])FT`
  2157. + M$&`"%-L@!U.'2H!F]D(:*E5*E6:Z(&\`%$*03-\LP%A/3G4@;P`$("\`""\-
  2158. + M*D@J@$*M``3E@&$`_K0K0``(*E].=2!O``0B;P`(("\`#$CG(C0F22I(2H!G
  2159. + M"B!+80#^PB1`8`(D2R`*9SXB%20M``2T@6TB+`'<AG00TH*\@6T"(@8J@2`!
  2160. + MY8`@;0`(3KH=CBM```AG$D?M``0B$U*;Y8$@6R&*&`!P`4S?+$1.=2!O``0B
  2161. + M;P`(("\`#&&22H!F!&$`_AI.=2!O``0B;P`(2.<`%"9)*D@@+0`$T*L`!+"5
  2162. + M;Q+0@"J`Y8`@;0`(80#^&BM```@B+0`$Y8$@;0`(T<$@*P`$(@#E@2)K``A@
  2163. + M`A#94X%D^M&M``0@:P`(3-\H`$[Z'7X@;P`$(F\`""]O``P`!"`O`!`B+P`4
  2164. + M64](YP(T+`$J221(+T@`$$J`9T13@&<*4X!G``"V8```]%.&9R(@+P`8(@V0
  2165. + M@2!O`!!",`@`($$B;P`08`(2V%.`9/I@``#.0>P&8")O`!`2V&;\8```OB9O
  2166. + M`!A@;G!<L!5F9DHM``%G8%2-<`&\@&8&%/P`86!4(`95@&9&$"W__TB`2,!R
  2167. + M(Y"!9RY5@&<J58!G)E.`9R)3@&<>4X!G&G(5D(%G%'(<D(%G#E6`9PIR'Y"!
  2168. + M9P15@&8$%/P`)Q3M__]@"!3M__]@`A3=N\MECF!`)F\`&&`V<"JP%68N2BT`
  2169. + M`6<H5(T0+?__2(!(P')ED(%G#'()D(%F#!3\``I@#A3\`!M@"!3M__]@`A3=
  2170. + MN\MEQD(23-\L0%A/3G6>_`$L2.<_-BIO`5@@;`R@#&@`)0`49`I(>``43KJ1
  2171. + MZEA/0JP+X'`!*4`+W"E`#`)P`BE`"_XI0`PD*7P```"$#""3R2QX``1.KO[:
  2172. + M*4`M*$ZZ]2@I0"TL9@I(;`9B3KKU!%A/(&PM+$ZZ];@I0"TP+&PM+"!6+&@`
  2173. + M%"E.+3Q![P$P3J[_OBEO`3`M-$ZZ]B!.NONL(&PM*"`H`*QG$.6`(D`B*0`T
  2174. + MY8$I02TX8`8I:`"$+3A*%68``.A![`9Z(@@L;"V4)#P```/N3J[_XBP`0>P&
  2175. + M@"((3J[_XBX`0>P&AB((3J[_XBH`2H9G"$J'9P1*A68B2H9G!B(&3J[_W$J'
  2176. + M9P8B!TZN_]Q*A6<&(@5.KO_<80#[<G`!+P`O!2\`+P<B!L%!3KH-;"!L#*0@
  2177. + M*``<0>\!6&$`_)Y/[P`0?`!^`&!0(FP,I"!I`"0@,'@`9SXB`$/O`#`D"2QL
  2178. + M+91V0.6+3J[^;DJ`9R8B;`RD(&D`)-''("@`!&<((@(D`$ZN_(Y![P%(0^\`
  2179. + M,'`!80#\V%*&4(<@;`RDO*@`'&VF8``"S"QL+91.KO_**`!.KO_$*@!^`"!L
  2180. + M+2@L*`#@9BA^`4'L!HPB""0\```#[4ZN_^(L`&820>P&CB((3J[_XBP`9@1A
  2181. + M`/JD+P<O!G``+P`O!2($P4%.N@R>0>\!6'`!80#[UB`\```%&F$`^HX@0#%\
  2182. + M!```$B]``#QP0.6(80#Z>D_O`!!^0.6/+T`!.&`"4HT0%4B`2,!![`J]"#``
  2183. + M`P@`9NP0%6<``A9R(K`!9C!2C29-8!!P*K`59@A*+0`!9P)2C5*-$!5G!G(B
  2184. + ML`%FYB1-$!5R(K`!9@)2C7P"8%1P)[`59B!2C29-8`)2C1`59P9R)[`!9O0D
  2185. + M37`GL!5F`E*-?`%@+B9-8!!P7+`59@A*+0`!9P)2C5*-$!5G$G(@L`%G#'(*
  2186. + ML`%G!G()L`%FVB1-?``@2RH*FHL@!5*`+T@`*&$`^;8F0$JO`4QF("`%($LB
  2187. + M;P`H3KH8AD(S6`!![P%((DMP`&$`^V!@`/\FVH5R$-J!NH=O%"!O`3A.NADP
  2188. + M(`5A`/EV+@4O0`$X+PH@!B!+(F\`+'(!80#[KEA/(@LD+P$X)@<L;"V43J[\
  2189. + MN"H`;!!"$B\O`"A(;`:43KKR"E!/2H5F(B\*(`8@2R)O`"QR`&$`^W1![P%,
  2190. + M(DMP`&$`^NA83V``_JQZ`2!O`"Q"J``(0B@`$4(H`!`O"B`&($LB;P`L<@)A
  2191. + M`/M`0>\!0'`080#Z)EA/(@LD+P`L+&PME$ZN_,HH`&8\8"IZ`")O`"S2_`$8
  2192. + M0>\!/'`!80#Z($J`9@1X9V`2(B\`+"QL+91.KOS$*`!*A&?2(B\`+"QL+91.
  2193. + MKOR^<'30@+B`9PI(;`:H3KKQ5EA/2H5G(B\*(`8@2R)O`"QR`&$`^L!![P%,
  2194. + M(DMP`&$`^C183V``_?@@+P%`(&\!1$ZZ$OI![P%(0^\!/&$`^BH@2TZZ%_9@
  2195. + M`/W6(&\!.$ZZ%^H@;P`L3KH7XF$`^))![`;"3KH+,BE`!>QF"$'L!L@I2`7L
  2196. + M0>P&SDZZ"QPI0`8`9@8I;`7L!@!![`;83KH+""E`!@1F"$'L!MXI2`8$0>P&
  2197. + MXDZZ"O(I0`8(9@A![`;H*4@&"$'L!O!.N@K<*4`M1&8(0>P&^BE(+40@+P%,
  2198. + M(&\!4")L+4!.NC$Z<`!.NAM<3-]L_-[\`2Q.=2`O``1(YP,`+@!*K"U(9P0@
  2199. + M!V!@?``@!P*````!)&<"?`@(!P`'9P0`1@`%"`<`!&<$",8``@@'``%G!`C&
  2200. + M```(!P`#9P0(Q@`!"`<``&<$",8`!B`'<DG`@7)`L(%F!`!&`$((!P`)9P0(
  2201. + MQ@`%(`8*0``/3-\`P$YU("\`!$CG!@`L`$JL+4AG""`&`D`/_V!>>@`*1@`/
  2202. + M"`8``V<$>DGEC2`&<@7`@5N`9@0(Q0`'"`8``F<$",4`!`@&``!G!`C%``$@
  2203. + M!G)"P(%G!`C%``8(!@`!9P0(Q0`#"`8`!F<$",4```@&``5G!`C%``D@!4S?
  2204. + M`&!.=0``2.<#`$ZZ\P8N`'P`8`HO!DZZ\6Y83U*&O(=M\DS?`,!.=2`O``0O
  2205. + M!RX`8=1.NO#B3KKV6"!L+2Q.NN^@+P=.NHO66$\N'TYU("\`!"\'+A]@U```
  2206. + MGOP`#$CG+S8J;P`T?@/.KP`X?`$@;"TH)F@`N"H\```#[$ZZ]<I*AV<*<`*^
  2207. + M@&<$<@!@`G(!+T$`*'`!OH!G"%6'9P1P`&`"<`$O0``L($U#[`<`3KH0SDJ`
  2208. + M9@9X_V```51P_R!L+2@A0`"X(@TL;"V4=/Y.KO^L+@`@;"TH(4L`N$J`9G@L
  2209. + M;"V43J[_?$ZZ"B0L`"`L#(!R+D8!L(%G!$J`9@I^`2H\```#[F`6(`95@&8,
  2210. + M""\`"``Z9P1P`6`"<``N`$J'9RQ\``@O``@`.F<<""\`#P`Z9P9X`F```-8@
  2211. + M+P`\3KK]TB@`8```R'C_8```PBE&+4QP_V```4)"IRQL+91R`B0/3J[_'$_O
  2212. + M``0D0$J`9PPB!R0*3J[_FDJ`9A8@"F<()`IR`DZN_Q9.N@I^</]@``$(*"H`
  2213. + M="0*<@).KO\6(@=.KO^F<%#IB,"O`#@,@```!0!F#'`1*4`M3'#_8```VDJO
  2214. + M`"AG!@@$``-F#$JO`"QG$@@$``)G#'`-*4`M3'#_8```M@@O``D`.F<B(@TD
  2215. + M/````^Y.KO_B2H!G""(`3J[_W&`*3KH*`G#_8```C`@O``@`.F<$(`5@!B`\
  2216. + M```#[20`(@TL;"V43J[_XBH`9@A.N@G6</]@8`@O``D`.F8$2H9F!"P$8`)\
  2217. + M_WX`2J\`*&<"?@%*KP`L9P0(QP`!""\``P`[9P0(QP`#+P<@!2(&3KH%GEA/
  2218. + M+@!L''#_(&PM*"%``+@B!2QL+91.KO_<(&PM*"%+`+@@!TS?;/3>_``,3G4@
  2219. + M;P`$+R\`#"\O``PO"&$`_:A/[P`,3G6>_``,2-<!`W#_WOP`#$YU44](UP,`
  2220. + M4$].=4CG,`(B$$HH``UG!'``8!PD"28`+&PME$ZN_]8B`%*`9@A.N@D0</]@
  2221. + M`B`!3-]`#$YU44](YS\V+@`J229(+!,O1@`H+T@`+$HK``UG!G``8```C$HK
  2222. + M``QG9B9-U\=Z`&!8)$U@`E**M<MD!G`*L!)F]+?*9@0H"F`&0>H``2@(F(TB
  2223. + M+P`H)`TF!"QL+91.KO_0+`!2@&8(3KH(FG#_8#[:AK:&9C9+Z@`!GH9P`$ZZ
  2224. + M\BA.NO)82H!F(DJ'9J1@'"(&)`TF!RQL+91.KO_0*@!2@&8(3KH(7G#_8`(@
  2225. + M!4S?;/Q03TYU64](YS\"+@`L$"]!`!Q**``-9P1P`&!24X$F`2(&)`<L;"V4
  2226. + M3J[_OBH`3J[_?"@`4H5G!$J$9PX@!$ZZ!Q@I0"U,</]@)"(&=``F`DZN_[XL
  2227. + M`%*`9P1*A&<.(`1.N@;V*4`M3'#_8`(@!DS?0/Q83TYUGOP!`$CG/P8N`"I(
  2228. + M+!4J+0`(("T`!&<*(@`L;"V43J[_IA@M``U(A$C$($U.NA($2H1G!'``8$0B
  2229. + M!D'O`"`D""QL+91V0.6+3J[^:"@`2H=F"B(&3J[_W$J`9QI*A&<2</^Z@&<,
  2230. + M(@(D!4ZN_T9*@&<$<`!@!DZZ!V1P_TS?8/S>_`$`3G4@+P`$2.<@`B(`+&PM
  2231. + ME'0`3J[_-$ZN_WQT+D8"L()7P40!2(%(P2`!3-]`!$YU("\`!"!O``@B;P`,
  2232. + MGOP`$$CG-Q8N`"9)*DA\`&&X2H!F?"('+&PME'0!3J[^5DJ`9VPB!T'L!P@D
  2233. + M"'8$3J[_T%F`9E(B!R0\```G$$ZN_S1*@&="(@=![P`@)`AV$$ZN_]9R";"!
  2234. + M;RYPF[`O`"!F)D'O`"4B""0+3J[\T"H`0>\`)M'`(@@D#4ZN_-!2@&<&4H5G
  2235. + M`GP!(@=T`$ZN_E8@!DS?:.S>_``03G4@+P`$(B\`")[\`A!(YS\&+@!P_R]`
  2236. + M`B@O00`D(@<L;"V4=`!V`4ZN_[XO0``@(@=.KO^^+`!.KO]\*@`O0`(L9@``
  2237. + MPB@O`"0B!R0$=O].KOXXL()F``"NO()L``">*@2:AB@%(`1R`4A!+'@`!$ZN
  2238. + M_SHJ0$J`9FIR`DA!3J[_*.*(*@`,A0```@!M$"`%<@%(04ZN_SHJ0$J`9D9Z
  2239. + M0.>-2^\`*#`\`?]R`$'O`"@0P5'(__Q@++B%;P0@!6`"(`0F`$ZZ[_HB!R0-
  2240. + M+&PME$ZN_]"P@V<*3J[_?"]``BQ@!IB#2H1NT$'O`"BQS6<,(DT@!2QX``1.
  2241. + MKO\N*B\"+&8$0J\"*"PO`""\KP`D;`XB!R0&+&PME';_3J[_OBPO`BAG"B`%
  2242. + M3KH$7BE`+4P@!DS?8/S>_`(03G6>_`$(2.<W%BX`)DDJ2"P52BT`#68``1@@
  2243. + M!P2````$`&<@!(````0`9TI3@&=84X!G7%.`9UY3@&=F4X!G;&```.Y*+0`,
  2244. + M9R8@!D'O`21#[P$@80#]UDJ`9Q0@+P$D-T```B`O`2`V@'``8```RG`98```
  2245. + MOB(&+&PME$ZN_R@F@'``8```LB:&<`!@``"J<`!@``"D(`8B$V$`_C9@``"8
  2246. + M*U,`"'``8```CBH32JT`!&8.(A4L;"V43J[^C"M```0@+0`$9V(D`"(%+&PM
  2247. + ME$ZN_EQ*@&92(@9![P`@)`AV0.6+3J[^:$J`9SXB!4ZN_Z8B+0`$3J[_IB(&
  2248. + M3J[_W"("=`!.KO]&&WP``0`-*H(K0@`$0>\`("((+&PME$ZN_[A*@&<$(`)@
  2249. + M#DZZ!!Q@!G`6*4`M3'#_3-]H[-[\`0A.=2`O``0B+P`(+V\`#``$2.</!BHO
  2250. + M`!PL`2X`<`Y.N@_B*D!*@&8*<`PI0"U,</]@3D/5(L="F2+&0BT`#2('+&PM
  2251. + ME$ZN_R@;0``,2'K^=$AZ^]I(>OMD2'KZK$AZ^G9(>OIH(`4@34/Z^E!.NNE4
  2252. + M3^\`&"@`;`8@34ZZ#>(@!$S?8/!.=2`O``0B+P`(+V\`#``$+V\`$``(+V\`
  2253. + M%``,+V\`&``02.<-`"@O`!0J+P`0+@!P`$J!9@1P0.6(`$```2\`(`=R_V$`
  2254. + M_T983TJ`9D!P`$J$9@1P0.6(`$```B\`(`5R_V$`_RA83U.`9B)P`$JO`!QF
  2255. + M!'!`Y8@`0``"+P`@+P`<<O]A`/\&6$]5@&<00>P'#B](`!!,WP"P3OKF6$S?
  2256. + M`+!.=0``("\`!"!O``@B+P`,64](YP,T+`$N`"I(3KKM!"`'3KKIE"9`2H!G
  2257. + M1`@K``$``V<V""L``P`#9Q8@:P`8+T@`%"!K``1P`'("(F\`%$Z1(&L`%"](
  2258. + M`!0@!B!K``0B321O`!1.DF`(<`TI0"U,</],WRS`6$].=2`O``0@;P`((B\`
  2259. + M#$CG`P1,WR#`8(`@;P`$GOP`0$CG.Q8J2$ZZ[((@#6=22A5G3B(-0>\`("0(
  2260. + M+&PME'9`>`!.KOQV+@!M-DZN_WPL`%*`3KH.$"9`2H!G)+Z&9Q0F!E*#(@TD
  2261. + M"TZN_'9*@&\0(`)@#B!"(DL2V&;\(`M@`G``3-]HW-[\`$!.=2`O``0B+P`(
  2262. + M+V\`#``$44](YP<`*B\`&"P!+@!.NNP`(`=.NNB02H!G&B)`(&D`&"](`!`@
  2263. + M!B(%(&D`!")O`!!.D6`"</],WP#@4$].=2`O``0B+P`(+V\`#``$2.<'`"HO
  2264. + M`!`O10`03-\`X&"@```@+P`$(&\`""(O``Q93TCG`S0L`2X`*DA.NNN4(`=.
  2265. + MNN@D)D!*@&<F""L````#9Q@@:P`0+T@`%"`&(&L`!")-)&\`%$Z28`AP#2E`
  2266. + M+4QP_TS?+,!83TYU("\`!"!O``@B+P`,2.<#!$S?(,!@G@``("\`!"E`#(!*
  2267. + M@&<``(9R9Y"!9P``@E6`9P``@'()D(%G?%.`9WA3@&=T4X!G<%.`9VQ3@&=H
  2268. + M4X!G:%.`9VAR49"!9V93@&=F4X!G9E.`9V93@&=F4X!G9E6`9V93@&=F4X!G
  2269. + M9E.`9V95@&=F4X!G9E.`9V93@&=F4X!G9E.`9V95@&=F4X!G9E.`9V93@&=F
  2270. + M8&AP`&!F<`Q@8G`+8%YP%F!:<`=@5G`(8%)P$&!.<!%@2G`"8$9P`F!"<!9@
  2271. + M/G`'8#IP%F`V<"1@,G`68"YP%F`J<!Y@)G`28")P)6`><"9@&G`38!9P%F`2
  2272. + M<!Q@#G`-8`IP#6`&<`U@`G#_3G4O#BQL+91.KO]\80#^^BE`+4PL7TYU3KKJ
  2273. + M*$ZZ\^).NN)B<@9.^@#R```@;P`$("\`"%E/2.<!%BX`+T@`$"!O`!`J4&!D
  2274. + M<`VP+0`(9EH@+0"L9P;E@"!`8`*1R"9(("T`G+"'9S0@+0"@L(=G+"`M`."P
  2275. + MAV<D(`MG+B`K`!RPAV<8("L`(+"'9Q`@*P`XL(=G""`K`#"PAV8.(DUP8.^(
  2276. + M+'@`!$ZN_KPJ54J59IA,WVB`6$].=2`O``0B+P`(2.<!`BX`(`%3@&<,4X!G
  2277. + M"%.`9P1=@&8L+'@`!$ZN_WP@;`R@T/P!EB`'80#_2"!L#*#0_`&D(`=A`/\Z
  2278. + M3J[_=G``8`AP%BE`+4QP_TS?0(!.=2`O``0B+P`(2.<&!"P!*@!.NND>2H5J
  2279. + M`D2%NJPM5&8.2H9G!B`&3KKGPG``8$@@!4ZZ`&XJ0$J`9P9*K0`49PIP`RE`
  2280. + M+4QP_V`L(`9G*"(M`!#!06$`_U@B`'`)O(!F%'(!*T$`%"M``!AP%$ZZYWQP
  2281. + M`&`"(`%,WR!@3G4``"!O``1(YP`&*D@B32QX``1.KO\$($U,WV``3OH(K"`O
  2282. + M``1(YP$$+@`J;"U88`X@+0`,L(=F!"`-8`@J54J59NYP`$S?((!.=4CG(`)!
  2283. + M["U83KHA:B`L+2@B+"TT)`"S@@*"`'___RE"+512@BE"+5`O`2\`2&P*H$AL
  2284. + M+61.NN!&3^\`$"QX``1.KOUF*4`MB&<00>PM9'``3KHA?BE`+81F"DAL"JY.
  2285. + MNN$Z6$],WT`$3G5(YP`&("PMB&<*($`L>``$3J[]8$JL+81G."QX``1.KO]\
  2286. + M8`PB37`<+'@`!$ZN_RX@;"V$+'@`!$ZN_HPJ0$J`9N(@;"V$3KH@UBQX``1.
  2287. + MKO]V3-]@`$YU```@;P`$("\`""(O``PB;P`0+V\`%``$+V\`&``(64](YP\V
  2288. + M*"\`+"HO`"@L`2X`*DDO2``@+'@`!$ZN_68F0$J`9S`@2R`$3J[]<B1`2H!G
  2289. + M(B`-9P@E30`H)44`)"!O`"`@!R)*(@9.KOY$2@!F!"`*8!8@"F<&($I.KOUL
  2290. + M(`MG!B!+3KH@0'``3-]L\%A/3G4@;P`$2.<`!BI((`UG&")-+'@`!$ZN_CX@
  2291. + M;0`.3KH@%B!-3J[];$S?8`!.=5E/0?D`````+HAG""!Y_____$Z06$].=5E/
  2292. + M0?D`````+HAG""!Y_____$Z06$].=4CG`P0J;P`0($U*&&;\4XB1S2X(8`H@
  2293. + M!D'L"^9.N@R"?``<'4J&9NY![`OF3KH0AB`'3-\@P$YUGOP`$$CG!Q1^`$OO
  2294. + M`"Q@``":<"6P+P`49@``@"!O`"A2KP`H$!!R`!(`'T``%7!DDH!G.G`,DH!G
  2295. + M#E>!9P9;@6<&8$0F76`T+!U'[P`>>@<@!G(/P(%!^@!XT<`6D%.+Z(93A4J%
  2296. + M:NA"+P`?8`H@'4'O`!=.N@(:1^\`%R\+3KK_2%A/WH!@(E*'<``0+P`50>P+
  2297. + MYDZZ"])@$%*'<``0+P`40>P+YDZZ"\`@;P`H4J\`*!`0'T``%&8`_UA![`OF
  2298. + M3KH/NB`'3-\HX-[\`!!.=3`Q,C,T-38W.#E!0D-$148`````2.<#%RIL+8Q@
  2299. + M%"95<!30K0`$(DTL>``$3J[_+BI+(`UFZ$*L+8Q@3"IL+9APG-"L#'PF0"`M
  2300. + M``0I0"V8*6T`"`Q\+BT`&$J`9AX@;`R@#&@`)``491(@3RP(0>T`#"QX``1.
  2301. + MKOTD+D8B2R`'+'@`!$ZN_RY*K"V89JY,W^C`3G4@;P`$(F\`""!0(E$0&+`9
  2302. + M9@1*`&;VD"%(@$C`3G4@;P`$("\`"$/Z_^!R!$[Z""H@;P`$(F\`""`O``Q*
  2303. + M@&\*$A`0T1+!4X!F]DYU(&\`!")O``AP`'(`$!@2&0P``&%M"@P``'IN!`0`
  2304. + M`"`,`0!A;0H,`0!Z;@0$`0`@D(%F!$H!9M1.=0``("\`""!O``1.5?_T(D]R
  2305. + M"DZZ`G`&00`P$L%*@&;P(`D0X;_)9OI"$)"/3EU.=0``("\`""!O``1.5?_T
  2306. + M(D\B``)!``<&00`P$L'FB&;P(`D0X;_)9OI"$)"/3EU.=0``,#$R,S0U-C<X
  2307. + M.6%B8V1E9B`O``@@;P`$44\B3S(``D$`#Q+[$-SHB&;R(`D0X;_)9OI"$)")
  2308. + M4$].=0``("\`""!O``0O"$J`3E7_]")/;`80_``M1(!R"DZZ`<@&00`P$L%*
  2309. + M@&;P$.&_R6;Z0A`@"$Y=D)].=0``(&\`!")O``A(YS`@)$AR`"`!)@$,$``K
  2310. + M9P@,$``M9@1V`5)($!@$```P;1H,```);A0D`>6!TH+2@4H#9@32@&#BDH!@
  2311. + MWB*!(`B0BE.`3-\$#$YU(&\`!"\-*D@(+0`#`!MF,"`L#"Q.N@4.*T``!"M`
  2312. + M`!!F"G`,*4`M3'#_8!8K;`PL`!1P\\&M`!A"K0`,0JT`"'``*E].=0``(&\`
  2313. + M!$CG(!0J2"9-8"!P`!`30>P*O0@P``$(`&<*<@`2`'0@DH)@!'(`$@`6P4H3
  2314. + M9MP@#4S?*`1.=0``GOP`4$CG,39#^@"$<``L>``$3J[]V"I`2H!F!G`43KKL
  2315. + MJGX`(&P,K!XH__\@!T/O`!Q@`A+84X!D^D(W>!Q![P`<*4@,1$/L#$Q'[`Q@
  2316. + M+$V1R)7*<``B`'1]U()V*$ZN_J1P%$ZZ[&1,WVR,WOP`4$YU*BH@4W1A8VL@
  2317. + M3W9E<F9L;W<@*BH``$58250``&EN='5I=&EO;BYL:6)R87)Y`$J`:@``'D2`
  2318. + M2H%J```,1(%A```@1(%.=6$``!A$@$2!3G5*@6H```Q$@6$```9$@$YU+P)(
  2319. + M030!9@``(DA`2$%(0C0`9P``!H3!,`)(0#0`A,$P`DA",@(D'TYU+P-V$`Q!
  2320. + M`(!D```&X9E10PQ!"`!D```&Z9E90PQ!(`!D```&Y9E50TI!:P``!N.94T,T
  2321. + M`.:H2$)"0N:J2$.`P38`,`(T`TA!Q,&0@F0```930]"!<@`R`TA#Y[A(0,%!
  2322. + M)A\D'TYU``!(YW``)`!G($J!9@1"@&`8)@#&P4A"Q,%(0D)"UH)(0<#!2$!"
  2323. + M0-"#3-\`#DYU```@+`RH!$`!]"Y`3OK^8```(&\`!"`(2AAF_%-(D<`@"$YU
  2324. + M```@;P`$("\`"+`09PA*&&;X<`!.=2`(3G4@;P`$(F\`""`O``Q*@&<04X`2
  2325. + M&+(99@Q*`6<$4X!J\G``3G5N!'#_3G5P`4YU```@;P`$(F\`"!(8LAEF"$H!
  2326. + M9O9P`$YU;@1P_TYU<`%.=2)O``@@;P`$("\`#"((8`00V6<(4X!D^&`&0AA3
  2327. + M@&3Z(`%.=2)O``@@;P`$("\`#"((2H!O%K')90S3P-'`$2%3@&;Z8`80V5.`
  2328. + M9OH@`4YU(&\`!"`O``A(YP,4+@`J2&82(`UF!'``8&@@34ZZ`&YP`&!>(`UF
  2329. + M"B`'3-\HP$[Z`@`F356+,#Q__\!32,#E@"P`"!,`#V<,#&N``/_^9@0L*__R
  2330. + M(`=.N@'8)D!*@&8$<`!@'KR'8P0@!V`"(`8@32)+8`(2V%.`9/H@34ZZ``X@
  2331. + M"TS?*,!.=2!O``0@"&8"3G59@$CG/#(B+"V,9@XI?````!8M3$S?3#Q.=2)!
  2332. + ML(%O$B0!U*D`!`:"````%+"";`)@""(I``!GU&#@)@$&@P```!"P@VW&9Q(D
  2333. + M0T*"-"H``FNZY8K6@EB#8.@D0#0J``!JJ@BJ``<``$*#-BH``@)#?__EBTIJ
  2334. + M``)K0$?R.`1*:P``:S9"A#@K``("1'__Y8S8@UB$Y(Q8@TIK``)J!`!$@``U
  2335. + M1``":Q(J!.6,-#)(!`)"@`"*0C6%2`1"A#@J``!G3.6,1(1'\DC\2FL``&L^
  2336. + M0H0X*P`"Y8Q"A3HJ``("17__Y8W8A5B$6(/DC$IJ``)J!`!$@``W1``":Q(J
  2337. + M!.6,-#-(!`)"@`"*0C>%2`37J0`()BD`!+:L"KAN#+:I``AF.DJI``!G-"`L
  2338. + M+8P@0+*`9@PI:0``+8Q@$"!H``"RJ```9O8A:0`````@*0`$!H`````4+'@`
  2339. + M!$ZN_RY,WTP\3G4@+P`$(B\`"$CG#`1.NOSR*@!.N@`H*D!*@&8$<`!@$'@`
  2340. + M8`9"-4@`4H2XA67V(`U,WR`P3G4``"`O``1*@&8,*7P````6+4QP`$YU2.<^
  2341. + M,E:``H#____\#(```?_\;@``N+"L"KAN``"P)BPMC&<``*@B0["I``AN,B(L
  2342. + M+9"RJ0`,9BA%Z0`02E)K$$*$."H``@)$?__EC+"$;QI"A#@J``)K".6,1?)(
  2343. + M!&#<)BD``&=F(D-@O@CJ``<``$?R"`1"A;"$9SPL!)R`689F!"`$8##DCDIJ
  2344. + M``)J!`!&@``J`.2--T8``C=%```U10`">@1*1FL.-#)(!`)"@`",0C6&2`0F
  2345. + M*0`(EH"6A2-#``@@"EB`3-],?$YU*@"PK`JX:@0@+`JX*``&@````!0B+"V0
  2346. + M+'@`!$ZN_SI*@&8**7P````,+4Q@S")`1>D`$"-L+8P``"E)+8PC1``$(VPM
  2347. + MD``,)@26A6<H68-G)"-#``A'\E@$-7R`````Y(TU10`"-T4``.2+`$.``#=#
  2348. + M``)@%$*I``@U?(````#DC`!$@``U1``"(`I8@$S?3'Q.=2!O``0@+P`((B\`
  2349. + M#")O`!!93TCG#S8L`2X`*D@O20`@<`&^@&,``+(F3=?&(`=5@&8D+PLO#2!-
  2350. + M(DLL;P`H3I903TJ`;P``DB`&($TB2TZZ]Z1@``"$(`?BB"(&3KKZ]B)-T\`@
  2351. + M!B!-3KKWBB1->@!X`6`J+PTO"R!+(DTL;P`H3I903TJ`:A)2A=7&M<MG"B`&
  2352. + M($LB2DZZ]US7QE*$N(=ETK7-9PH@!B!-(DI.NO=&)F\`("`%(@8@32)+80#_
  2353. + M4B!*T<8@!Y"%4X`B!B)+3-]L\%B/8`#_.DS?;/!83TYU3OKO9D[Z[UX@+P`$
  2354. + M2.<!!"X`*FP,=&`((&T`!$Z0*E4@#6;T2^P+Q'`&P*T`&%6`9A@@+0`$D*T`
  2355. + M$&<.(BT`'"!M`!#!04ZZ[IP@32I0(`UFUB`'3-\@@$[ZY8`@;P`$0JPMG"E(
  2356. + M+:!(;P`,+R\`#$AL+9Q!^@`00_H`+$ZZ$K1/[P`,3G5#["V<4IEP`"!1$!@B
  2357. + MB'+_(LA*@&<"(@`@`4YU("\`!%E/+H!3K"V<4ZPMH%A/3G4``"`O``0@;P`(
  2358. + M+PTB`"I(4I5#[0`((!%2D1N!"`P@&0R````"`&T40>T`#")M``1R`<%!3KH#
  2359. + MU$*M``@J7TYUGOP"#"\-*F\"%$*O``Q"KP`$+TT`"$AO`APO+P(<0?K_JD/O
  2360. + M``Q.NA-V4$\@+P`,9Q!![P`0(F\`"'(!P4%.N@.*""T`!0`;9@@(+0`$`!MG
  2361. + M!'#_8`0@+P`$*E_>_`(,3G4O#2(`*DA#U5*9(!%2D1N!"`@@&0R````"`&T2
  2362. + M0>T`"$/L"^9R`4ZZ`T!"K0`$*E].=9[\`@A"KP`$0I=(;P(0+R\"$$'Z_[I#
  2363. + M[P`(3KH2[E!/("\`!&<00>\`"$/L"^9R`<%!3KH#`G`PP*P+_F<$</]@`B`7
  2364. + MWOP""$YU("\`!"!O``A93TCG`P0N`"I(?``?0``/<D'2@<*M`!AF#`CM``4`
  2365. + M&W#_8``!0'`SP*T`&%6`9U!P3$8`P*T`&')`TH&P@68,".T``0`;0JT`#&`T
  2366. + M""T`!0`;9P9P_V```0QP;D8`P*T`&')N1@&P@68,".T``0`;0JT`#&`*<``K
  2367. + M0``,8```YB`M``RPK0`4;#(@;0`$4JT`!"`'$(!2K0`,""T`!@`;9PYR"KZ!
  2368. + M9@@@34ZZ`V@L`$J&9P``JB`&8```J@@M``(`&V<N0JT`#"`M`!Q![P`/<@%.
  2369. + MNNPT+`!2@&8(".T`!0`;8'(@!E.`9VP([0`$`!M@9$JM`!1F("!-3KKUN$J`
  2370. + M9PH([0`%`!MP_V!8<``K0``,*VT`$``$("T`#+"M`!1M""!-3KH"[BP`".T`
  2371. + M`0`;(&T`!%*M``0@!Q"`4JT`#`@M``8`&V<.<@J^@68(($U.N@+"+`!*AF<$
  2372. + M(`9@!G(`$@<@`4S?(,!83TYU(&\`!%E/2.<!!"I(0>P+Q+O(9D1![`OF3KH"
  2373. + MC@@M``T`&F<T("T`'$'O``MR`4ZZ[-PN`&\*?@`>+P`+8``!($J'9@@([0`$
  2374. + M`!M@!@CM``4`&W[_8``!"%.M``AM$"!M``12K0`$<``0$&```/1P,\"M`!A3
  2375. + M@&<T<%Q&`,"M`!AR0-*!L(%F%`CM````&P@M``0`&V<6</]@``#&0JT`"`CM
  2376. + M``4`&W#_8```M@@M``(`&V=&0JT`"'X`'BT`($J'9PA"+0`@8```EB`M`!Q!
  2377. + M[P`+<@%.NNPV+@!O"'X`'B\`"V!Z2H=F"`CM``0`&V`&".T`!0`;?O]@9$JM
  2378. + M`!1F%"!-3KKT1$J`9PH([0`%`!MP_V!,(&T`$"M(``0@+0`<(BT`%"!M`!!.
  2379. + MNNOB*T``""X`;Q)3K0`((&T`!%*M``1^`!X08!A*AV8(".T`!``;8`H([0`%
  2380. + M`!M"K0`(?O\@!TS?((!83TYU(&\`!"`O``@B+P`,(F\`$%E/2.</$"P!+@`F
  2381. + M22](`!0@!B('3KKUGBH`>`!*AV<$2H9F!G``8```_'`PP*L`&&8*<$'0@,"K
  2382. + M`!AF#`CK``4`&W``8```WG`SP*L`&%6`9U!P3$8`P*L`&')`TH&P@68,".L`
  2383. + M`0`;0JL`#&`T""L`!0`;9P9P`&```*IP;D8`P*L`&')N1@&P@68,".L``0`;
  2384. + M0JL`#&`*0JL`#'``8```A$JK`!1F3`@K``(`&V9$($M.NO,<2H!G.@CK``4`
  2385. + M&W``8&`@;P`4$!@B:P`$$H!2JP`$4JL`#%.%4H0O2``4<@JP`68.""L`!@`;
  2386. + M9P8@2TZZ`#X@*P`,L*L`%&P$2H5NPDJ%;Q8@2TZZ`"8@*P`<(@4@;P`43KKI
  2387. + M#-B`(`0B!TZZ]`!,WPCP6$].=2!O``1(YP$$*D@@#6<``*!P0="`P*T`&&8L
  2388. + M(&T`$$/M``0BR$*90BT`('``(L`(+0`'`!MG!@BM````&PBM``0`&V```(I*
  2389. + MK0`49T0@+0`,:@9R`"M!``P@+0`,9R@B+0`<(&T`$,%!3KKHCBX`4H!F"`CM
  2390. + M``4`&V`,OJT`#&<&".T`!``;*VT`$``$0JT`#'`PP*T`&&82""T`!P`;9P9P
  2391. + M_,&M`!AP`&`D</]@('X`2^P+Q$JM`!AG#"!-80#_1DJ`9P)^_RI5(`UFZ"`'
  2392. + M3-\@@$YU(&\`!$CG`00J2'X`(`UG!B`M`!AF!'#_8$`(+0`!`!MG""!-3KK_
  2393. + M"BX`<`S`K0`89@Y*K0`49P@@;0`03KKU#D*M`!@@+0`<3KK/XE*'9P1*@&<$
  2394. + M</]@`G``3-\@@$YU(&\`!")O``@O;P`,``193TCG#Q0F;P`@*DDO2``8?@`L
  2395. + M+`PP>@!*JP`89P8@2TZZ_W1P`!`M``%R*Y"!9R!R-I"!9P93@&<$8"!\`'(K
  2396. + MLBT``E?`1`!(@$C`*@!@#'H!<&&P+0`"9@)\`'``$!5R89"!9PQR$9"!9QI;
  2397. + M@&<D8#9*A5;`<@&2``!!`0B,@7Y`X8]@*$J%5L!R`)(`D@",@6`:2H56P'(!
  2398. + MD@``00$``$$"`(R!8`9P`&```(`O+`PT+P8O+P`@3KK>($_O``PH`%*`9@1P
  2399. + M`&!B2H5G!@C'``=@,'``$!5R89"!9PQR$9"!9QI;@&<:8!H(QP`!2'@``B`$
  2400. + M<@!.NN?`6$]@!GX!8`)^`@@&``]F!`C'``^1R$OK`!`JR"K()T0`'"=(``0G
  2401. + M2``,)T@`""K'(`M,WRCP6$].=0``(&\`!")O``A13TCG`!1([P,```A+[`O$
  2402. + M8`0F32I3(`UG!DJM`!AF\B`-9AYP(DZZ]1PJ0$J`9@1P`&`>($TFB'`A<@`0
  2403. + MP5'(__PO#2!O``PB;P`03KK^=%A/3-\H`%!/3G4``"!O``0B;P`(+V\`#``$
  2404. + M+V\`$``(+V\`%``,+V\`&``0GOP`&$CG#S8F;P!$*DDO2``D)&\`2'X`?`!Z
  2405. + M`"`+9P9P`22`8`)"DG``(&\`)!`00>P*O0@P``((`&<P<`\@;P`DP!A(@$C`
  2406. + M(@?E@=*'TH'2@"X!+T@`)'``(&\`)!`00>P*O0@P``((`&;0(&\`)!`0<FRP
  2407. + M`6<4<FBP`68(4J\`)'P!8`QR3+`!9@92KP`D>@$O1@`P+T4`-$Z5*``@;P`D
  2408. + M$!!R8[`!9QYR;K`!9QAR6[`!9Q)@!$Z5*`!![`J]"#```T@`9O!P_[B`9@P@
  2409. + M;P!`((1P`&``!11P`"!O`"00$')8D(%G``'P5X!G``-D48!G``+T4X!G``#:
  2410. + M6X!G7EN`9R)3@&<``6)3@&<``;I7@&<``PY5@&<``)I7@&<``;A@``2V<``D
  2411. + M@"(+9P`$L"1O`#Q*AF802H5F#"!3(A)3@2"!8``$F"X24X<D4TJ&9P8TAV``
  2412. + M!(@DAV``!()Z`$J'9P9P`;Z`;QYP+;B`9P9R*[B!9A*X@&8$</]@`G``*@!.
  2413. + ME2@`4X=P,+B`9G!.E2@`0>P*O0@P``$(`&<((`1R()"!8`(@!')8L(%F``#4
  2414. + M8``!,'H`<"VX@&<&<BNX@68\N(!F!'#_8`)P`"H`3I4H`&`J>@!*AV<&<`&^
  2415. + M@&\><"VX@&<&<BNX@682N(!F!'#_8`)P`"H`3I4H`%.'0>P*O0@P``)(`&8,
  2416. + M(&\`0""$<`!@``/8?``@!'(/P($B!N6!TH;2@=*`+`%.E2@`4X=G#$'L"KT(
  2417. + M,``"2`!FVB`+9P`#G$J%:@)$AB132J\`-&<&)(9@``.(2J\`,&<&-(9@``-\
  2418. + M)(9@``-V<#"X@&T&<#>X@&\,(&\`0""$<`!@``-L?``@!'('P('GAMR`3I4H
  2419. + M`%.'9PQP,+B`;09P-[B`;^(@"V<``S@D4TJO`#1G!B2&8``#*DJO`#!G!C2&
  2420. + M8``#'B2&8``#&$J'9@)^"$*O`#!P`2]``#1Z`7`MN(!F!GK_3I4H`"1O`$`O
  2421. + M10`@0>P*O0@P``=(`&8()(1P`&```NPJ!$Z5*`!*AV<&<`*^@&\P<#"Z@&8J
  2422. + M<'BX@&<&<%BX@&8>3I4H`$'L"KT(,``'"`!F""2$<`!@``*R?`!3AV!H2H=G
  2423. + M!G`!OH!O+$7L"KW5Q0@2``)G!BP%<#"<@`@2``!G!BP%<#><@`@2``%G.BP%
  2424. + M<%><@&`R?`!@+NF&"!(``F<((`1R,)"!C(`($@``9P@@!'(WD(&,@`@2``%G
  2425. + M!G)7F(&,A$Z5*`!3AV<,1>P*O=7$"!(`!V;"(`MG``(@("\`(&H"1(8D4TJO
  2426. + M`#1G!B2&8``""DJO`#!G!C2&8``!_B2&8``!^"`+9QX@4U*3(`00@&`43I4H
  2427. + M`%*`9Q`@"V<((%-2DR`$$(!3AV[H</^X@&8``=`@;P!`((1P`&```<P@"V<&
  2428. + M(%-2DQ"$3I4H`%*`9Q!3AV<,0>P*O0@P``-(`&?>(`MG``&6(%-"$&```8Y2
  2429. + MKP`D<%X@;P`DL!!F#'P!4J\`)"!O`"1@`GP`+T@`+'!=L!!F'E*O`"1@&"!O
  2430. + M`"1*$&8,(F\`0"*$<`!@``%<4J\`)'!=(&\`)+`09MY*AF<``+`O;P`L`"A\
  2431. + M`&!X(&\`*!`0<BVP`69"2H9G/D7H``$B;P`DL\IG,BQ*>@`:$B].`"B\A6,&
  2432. + M(`8L!2H`N(9E0+B%8CP@"V<$(%-"$"!O`$`@A$'I``%@``#N<@`2`+*$9AHB
  2433. + M"V<$(E-"$2)O`$`BA")O`"12B2`)8```SGP`'!!2KP`H(&\`*+'O`"1F`/]^
  2434. + M(`MG!B!34I,0A$Z5*`!2@&<&4X=F`/]<(%-"$&```(PO;P`L`"A\`&!,(&\`
  2435. + M*!`0<BVP`68L2H9G*$7H``$B;P`DL\IG'")*>@`:$B])`"B\A6,&(`8L!2H`
  2436. + MN(9E!+B%8RA\`"!O`"@<$'``$!"PA&<84J\`*"!O`"BQ[P`D9JH@"V<F(%-"
  2437. + M$&`@(`MG!B!34I,0A$Z5*`!2@&<$4X=F@"!30A!@!'``8`X@;P!`((0@;P`D
  2438. + M4H@@"$S?;/#>_``83G4``"!O``0B;P`(+V\`#``$+V\`$``(GOP`-$CG+S8F
  2439. + M;P!@*F\`7$CO`P``+$(O`#M"+P`Z0B\`.4(O`#@??``@`#="KP!4</\O0`!0
  2440. + M0B\`-GX`?`!%[P`\8$IP`"!O`"P0$'(@D(%G(E>`9R91@&<258!G!E>`9R)@
  2441. + M,A]\``$`.V`>'WP``0`Z8!8??``!`#E@#A]\``$`.&`&'WP`,``W4J\`+"!O
  2442. + M`"Q*$&:N<`&P+P`[9@8??``@`#=R*B!O`"RR$&8>+&\`,")66)8B$2]!`%1L
  2443. + M"$2O`%0?0``[4J\`+&`,0^\`5$ZZZ'K1KP`L(&\`+!`0<BZP`69&4J\`+'`J
  2444. + M(&\`++`09APB;P`P(%%8D2`0+T``4&P&</\O0`!04J\`+&`60^\`4$ZZZ#@J
  2445. + M`&8&0J\`4&`$VZ\`+!]\`"``-W``(&\`+!`0<DR0@6<4<AR0@6<&68!G"F`2
  2446. + M'WP``@`V8`8??``!`#92KP`L(&\`+%*((F\`+!`1<@`2`!]``"0O2``F<%"2
  2447. + M@&<``1!1@6<``1QP"Y*`9P`!T%.!9U!;@6=,6X%G(E.!9P`!`E.!9P``ZE>!
  2448. + M9P`!@%6!9P``\%>!9P``ZF```;@D;P`P<`*P+P`V9@X@4EB2(E`@$S*`8``"
  2449. + M2B!26)(B4"*38``"/B)O`#`@45B1*!!J!'X!1(1*AV<,1>\`/1]\`"T`/&`B
  2450. + M2B\`.F<,1>\`/1]\`"L`/&`02B\`.6<,1>\`/1]\`"``/'P!(`0@2DZZYE(J
  2451. + M`"`O`%!F!DJ$9P`!Y"`O`%!J!G(!+T$`4"@O`%"8A6\<($K1Q"`%(DI.NNH<
  2452. + M<C`@2F`"$,%3A&3Z*B\`4-R%(`53@&8``000$K`O`#=F``#Z2J\`4&8``/)"
  2453. + M$F```.P@+P!0:@9P""]``%`??``!`#9P`K`O`#9F$")O`#`@45B1(!!X`#@`
  2454. + M8`HB;P`P(%%8D2@0$"\`)')UL`%G`/]:<F^P`68>2B\`.&<,1>\`/1]\`#``
  2455. + M/'P!(`0@2DZZY<)@`/\^2B\`.&<2'WP`,``\1>\`/A]\`'@`/7P"(`0@2DZZ
  2456. + MY=XJ``@O``4`)&8`_Q1![P`\3KKFRF``_P@B;P`P(%%8D210(`IF!$7Z`/(@
  2457. + M2DH89OQ3B)'**@@@+P!0:P2PA6\$+T4`4"PO`%!@('P!(F\`,"!16)$@$!]`
  2458. + M`#Q"+P`]8`9P`&```*Q%[P`\("\`5+"&;`AR`"]!`%1@!)VO`%1*+P`[9QY@
  2459. + M"'``$!H@2TZ54X9L]&`&($MP($Z54Z\`5&ST8&I*AV8,2B\`.68&2B\`.F=&
  2460. + M$!)R(+`!9PQT*[`"9P9T+;`"9C)*AFLNLB\`-V828`IP`!`O`#<@2TZ54Z\`
  2461. + M5&SP<``0&B!+3I53AF`*<``0+P`W($M.E5.O`%1L\&`(<``0&B!+3I53AFST
  2462. + M("\`)DS?;/3>_``T3G4``"!O``0B;P`(+V\`#``$+V\`$``(+V\`%``,GOP`
  2463. + M#$CG`S0J2"])`!1^`"9O`"Q@``$@0J\`&'P`(&\`*!P8)&\`%"](`"A#[`J]
  2464. + M"#$``V@`9@``VG`EO(!F``"H<"6P$&8@4J\`*$Z5+`!![`J]"#```V@`9O!P
  2465. + M);R`9P``U&```-IP*B!O`"BP$&<&)$M8BV`&E<I2KP`H0J\`'$AO`!@O"DAO
  2466. + M`"0O+P`P(&\`.")-3KKU'D_O`!`D0$J`5L%$`4B!2,$L`6<$+TH`*"`O`!QR
  2467. + M_["!9A!*AF<$WJ\`&$J';G@@`6!V("\`'&<,<@`2`"`!(&\`%$Z0(`IG7MZO
  2468. + M`!A@3DZ5+T``'"!O`!Q#[`J](`@(,0`#"`!FZ"`O`!R\@&<N<@`2`"`!3I)@
  2469. + M+DZ5+T``'"!O`!Q#[`J](`@(,0`#"`!FZ"`O`!QR`!(`(`%.DB!O`"A*$&8`
  2470. + M_MH@!TS?+,#>_``,3G4``"!O``0B;P`(+V\`#``$+V\`$``(GOP`#$CG`!0F
  2471. + M22I(+V\`'``08#AP);`O``QF)B!O`!BP$&8&4J\`&&`8+PLO#4/O`!A.NOHL
  2472. + M4$]*@&<&+T``&&`*<``0+P`,($M.E2!O`!@0&!]```PO2``82@!FMDS?*`#>
  2473. + M_``,3G4@;P`$((A8D$*H``0A2``(3G4``"!O``1(YP`&*DA*K0`*9PHB32QX
  2474. + M``1.KOZ8&WP`_P`(</\K0``4<``0+0`/+'@`!$ZN_K`B37`B3J[_+DS?8`!.
  2475. + M=0``(&\`!"`O``A(YP,6+@`J2'#_+'@`!$ZN_K8<`$B&2,8@!E*`9@1P`&!@
  2476. + M<"(B/``!``%.KO\Z)D!*@&8((`9.KOZP8$1!ZP`*(,T71P`)%WP`!``(0A@0
  2477. + MQI/)3J[^VB=``!`@#6<((DM.KOZ>8!I!ZP`8)T@`%$'K`!0G2``<0JL`&!=\
  2478. + M``(`("`+3-]HP$YU+P@O`$ZY``!:5E!/3G4``"`O``0@;P`((F\`#"(O`!!*
  2479. + M@&8:+P$O"2\(2'H`%$AL#`A.NNK>WOP`%$[ZVZQ.=4%S<V5R=&EO;B`H)7,I
  2480. + M(&9A:6QE9"!I;B!F:6QE("5S(&%T(&QI;F4@)60*`````````^P````-````
  2481. + M````I=X``#&.```Q<```,78``#&"```QB```,7P``#%J```Q7@``,60```)N
  2482. + M```"8@```F@````"`````0```!0````*`````````_(```/J```#'DUE;6]R
  2483. + M>2!E>&AA=7-T960``&X@(3T@,```9&9A+F,`365M;W)Y(&5X:&%U<W1E9```
  2484. + M;B`A/2`P``!D9F$N8P!-96UO<GD@97AH875S=&5D``!5;F9I;FES:&5D(%P@
  2485. + M<75O=&4``%5N9FEN:7-H960@7"!Q=6]T90``56YB86QA;F-E9"!;``!5;F)A
  2486. + M;&%N8V5D(%L``%5N8F%L86YC960@6P``56YB86QA;F-E9"!;``!5;F)A;&%N
  2487. + M8V5D(%L``%5N8F%L86YC960@6P``56YB86QA;F-E9"!;``!5;F)A;&%N8V5D
  2488. + M(%L``%5N8F%L86YC960@6P``56YB86QA;F-E9"!;``!5;F)A;&%N8V5D("@`
  2489. + M`$YO('-Y;G1A>"!S<&5C:69I960`56YB86QA;F-E9"`I``!O=70@;V8@;65M
  2490. + M;W)Y`````````````````$EN=F%L:60@<F5G=6QA<B!E>'!R97-S:6]N``!5
  2491. + M;FUA=&-H960@7"@``%5N;6%T8VAE9"!<*0``4')E;6%T=7)E(&5N9"!O9B!R
  2492. + M96=U;&%R(&5X<')E<W-I;VX`3F5S=&EN9R!T;V\@9&5E<```4F5G=6QA<B!E
  2493. + M>'!R97-S:6]N('1O;R!B:6<``$UE;6]R>2!E>&AA=7-T960`````!]!.;R!P
  2494. + M<F5V:6]U<R!R96=U;&%R(&5X<')E<W-I;VX``$UE;6]R>2!E>&AA=7-T960`
  2495. + M`$UE;6]R>2!E>&AA=7-T960``````````````````5!/4TE83%E?0T]24D5#
  2496. + M5``M+0``)7,Z(&]P=&EO;B!@)7,G(&ES(&%M8FEG=6]U<PH`)7,Z(&]P=&EO
  2497. + M;B!@+2TE<R<@9&]E<VXG="!A;&QO=R!A;B!A<F=U;65N=`H``"5S.B!O<'1I
  2498. + M;VX@8"5C)7,G(&1O97-N)W0@86QL;W<@86X@87)G=6UE;G0*```E<SH@;W!T
  2499. + M:6]N(&`E<R<@<F5Q=6ER97,@86X@87)G=6UE;G0*`"5S.B!U;G)E8V]G;FEZ
  2500. + M960@;W!T:6]N(&`M+25S)PH`)7,Z('5N<F5C;V=N:7IE9"!O<'1I;VX@8"5C
  2501. + M)7,G"@`E<SH@=6YR96-O9VYI>F5D(&]P=&EO;BP@8VAA<F%C=&5R(&-O9&4@
  2502. + M,"5O"@``)7,Z('5N<F5C;V=N:7IE9"!O<'1I;VX@8"TE8R<*```E<SH@;W!T
  2503. + M:6]N(&`M)6,G(')E<75I<F5S(&%N(&%R9W5M96YT"@`````E<SH@365M;W)Y
  2504. + M(&5X:&%U<W1E9"`H)7,I"@``)7,Z($UE;6]R>2!E>&AA=7-T960@*"5S*0H`
  2505. + M`"5S.B!R96%D(&]N("5S(&9A:6QE9"`H)7,I"@`\<W1D:6X^`"5S)6,``"5D
  2506. + M)6,``"5D)6,```````$M+2TM+2TM+2TM"@`M+2TM+2TM+2TM"@`M+2TM+2TM
  2507. + M+2TM"@!5<V%G93H@)7,@6RU#5F)C:&EL;G-V=WA=(%LM;G5M72!;+4$@;G5M
  2508. + M72!;+4(@;G5M72!;+68@9FEL95T*("`@("`@(%LM95T@97AP<B!;9FEL92XN
  2509. + M+ET*`$=.52!E/V=R97`L('9E<G-I;VX@,2XV```P,3(S-#4V-S@Y03I".D-6
  2510. + M8F-E.F8Z:&EL;G-V=W@``"5D```E9```)7,*`"5S.B!G971O<'0H,RD@;&5T
  2511. + M(&]N92!B>2$*``!R`"5S.B`E<SH@)7,*`%PH7EQ\6UY!+5IA+7I?75PI7"@`
  2512. + M7EPH`%PI7"A;7D$M6F$M>E]=7'PD7"D`7"DD`$U54U1$14)51P!M=7-T(&AA
  2513. + M=F4Z("(E<R(*```E<SH@)7,Z("5S"@`E<SHE9`H``"5D"@`E<PH`)60*`#QS
  2514. + M=&1I;CX*```E<SH@)7,*`$]K```````4```````````````````%B&-O;G-O
  2515. + M;&4Z```E<SH@``!I;G1U:71I;VXN;&EB<F%R>0```'1I;65R+F1E=FEC90``
  2516. + M``#_____9FEF;RYL:6)R87)Y```````````````````%Z``!```````````%
  2517. + MZ@```````````````$`H(REA;&QO8V$N8PDQ+C$```````````````!&86EL
  2518. + M960@=&\@8W)E871E('1I;65R``!U<V5R(&EN=&5R<G5P=````````$YO(&UE
  2519. + M;6]R>0```&$`1F%I;&5D('1O(&-R96%T92!T:6UE<@``3DE,.@``3DE,.@``
  2520. + M3DE,.@``*@!.24PZ``!);G9A;&ED('=I;&1C87)D("5S`$5R<F]R(&5X<&%N
  2521. + M9&EN9R!A<F=U;65N=',`55-%4@``=7-E<@``55-%4DY!344``$A/344``',Z
  2522. + M``!32$5,3`!B:6XZ<V@``$A/4U1.04U%``!A;6EG80!.24PZ`````)LP('$`
  2523. + M`$9A:6QE9"!T;R!I;FET:6%L:7-E($DO3P``86UI9V$@<W!E8VEF:6,@97)R
  2524. + M;W(`````!RA5;FMN;W=N(&5R<F]R`&YO="!O=VYE<@!N;R!S=6-H(&9I;&4@
  2525. + M;W(@9&ER96-T;W)Y`&YO('-U8V@@<')O8V5S<P!I;G1E<G)U<'1E9"!S>7-T
  2526. + M96T@8V%L;`!I+V\@97)R;W(`;F\@<W5C:"!D979I8V4@;W(@861D<F5S<P!A
  2527. + M<F=U;65N="!L:7-T('1O;R!L;VYG``!E>&5C(&9O<FUA="!E<G)O<@!B860@
  2528. + M9FEL92!N=6UB97(`;F\@8VAI;&0@<')O8V5S<P``;F\@;6]R92!P<F]C97-S
  2529. + M97,`;F]T(&5N;W5G:"!M96UO<GD`<&5R;6ES<VEO;B!D96YI960`8F%D(&%D
  2530. + M9')E<W,`8FQO8VL@9&5V:6-E(')E<75I<F5D`&UO=6YT(&1E=FEC97,@8G5S
  2531. + M>0``9FEL92!E>&ES=',`8W)O<W,M9&5V:6-E(&QI;FL`;F\@<W5C:"!D979I
  2532. + M8V4``&YO="!A(&1I<F5C=&]R>0!I<R!A(&1I<F5C=&]R>0``:6YV86QI9"!A
  2533. + M<F=U;65N=```9FEL92!T86)L92!O=F5R9FQO=P!T;V\@;6%N>2!O<&5N(&9I
  2534. + M;&5S`&YO="!A('1Y<&5W<FET97(``'1E>'0@9FEL92!B=7-Y``!F:6QE('1O
  2535. + M;R!B:6<``&YO('-P86-E(&QE9G0@;VX@9&5V:6-E`&EL;&5G86P@<V5E:P``
  2536. + M<F5A9"UO;FQY(&9I;&4@<WES=&5M`'1O;R!M86YY(&QI;FMS``!B<F]K96X@
  2537. + M<&EP90!M871H(&%R9W5M96YT`')E<W5L="!T;V\@;&%R9V4``$DO3R!S=')E
  2538. + M86T@96UP='D``&9I;&4@;F%M92!T;V\@;&]N9P``9&ER96-T;W)Y(&YO="!E
  2539. + M;7!T>0!T;V\@;6%N>2!S;V9T(&QI;FMS("AL;V]P/RD````'0@``!U````=:
  2540. + M```'=```!X0```><```'I@``!\````?8```'Z@``!_H```@,```('@``"#``
  2541. + M``A"```(3@``"&0```AX```(A```")8```BF```(M@``",8```C8```([```
  2542. + M"0````D2```)(@``"3````E(```)5@``"6P```E\```)B```"98```FH```)
  2543. + MN@``"<X```GB````)@``9&]O<BXE;'@N)6QX``!.;R!M96UO<GD```!````@
  2544. + M("`@("`@("`H*"@H*"`@("`@("`@("`@("`@("`@($@0$!`0$!`0$!`0$!`0
  2545. + M$!"$A(2$A(2$A(2$$!`0$!`0$(&!@8&!@0$!`0$!`0$!`0$!`0$!`0$!`0$!
  2546. + M$!`0$!`0@H*"@H*"`@("`@("`@("`@("`@("`@("`@(0$!`0(```````````
  2547. + M````````````````````````````````````````````````````````````
  2548. + M````````````````````````````````````````````````````````````
  2549. + M```````````````````````````````````````````````/H```"^8`````
  2550. + M``````````````````````````````````````P(````````````````````
  2551. + M````````````````````````````````````````````````````````````
  2552. + M```````````"````@``````-__\````.``X```````````````#__P````0`
  2553. + M!````````(EV```,./__````!``$````````B8P``````````````^P````"
  2554. + M````````#&P```Q8````+@````$```Q<```+Y@``"\0```J6```*D@``"HX`
  2555. + M``J*```*A@``"H(```I^```*>@``"G8```IR```*;@``"FH```IF```*8@``
  2556. + M"EX```I:```*5@``"E(```I.```*2@``"D8```I"```*/@``"CH```HV```*
  2557. + M,@``"BX```HJ```*)@``"B(```H>```*&@``"A8```H2```*#@``"@H```H&
  2558. + @```*`@``"?X```<^```%_```!?````6<`````````_(2
  2559. + `
  2560. + end
  2561. diff -rc --new-file emacs-18.59/amiga/amiga-extra/amiga/c/ls.uue /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/c/ls.uue
  2562. *** emacs-18.59/amiga/amiga-extra/amiga/c/ls.uue    Thu Jan  1 00:00:00 1970
  2563. --- /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/c/ls.uue    Tue Jul 12 10:35:38 1994
  2564. ***************
  2565. *** 0 ****
  2566. --- 1,929 ----
  2567. + begin 666 ls
  2568. + M```#\P`````````"``````````$``".[```$S````^D``".[2.=^_B1()`!)
  2569. + M^0`````L>``$+P)(YP#@)FX!%"(K`*QG#.6)($$B*``TY8E@!B(/DJL`.G0`
  2570. + M(#P``"H@LJP0[&0((BP0[-"!=`$F02(\``$``4ZN_SI*@&8(3-\'!&```D`@
  2571. + M0"1`(D`@/```!&>9_``````@W%.`9OH@'&<.($G1W-70((HD25.`8/`H2=G\
  2572. + M`````"E\```J(!'H3-\'`"E.$<1*`DS?``1([(``$<QG2"`,!(``````!H``
  2573. + M`"H@T*P0["(`!(````"`#&X`)``4;1@I0!'D*4$1X)*L$.Q![!'<((%.KOTD
  2574. + M8`(N0"`L$.PO0``$T:P1Z"(/DHL&@0```(`I01&@0JP1R'``(CP``#``3J[^
  2575. + MSB9N`11#^@&(<`!.KOW8*4`J%&8&<&1@``#F*6L`F!'`2JL`K&<``'X@:P"L
  2576. + MT<C1R")H`!#3R=/)(`)R`!(9*4D1T-"!7H`"0/_\*4`1V$CG0$`B/``!``%.
  2577. + MKO\Z3-\"`DJ`9@AP%"\`9P`!!"!`*4`1U"`"4X#4@1&R```@`E."4<C_]A&\
  2578. + M`"`@`E."$;P`(B`"$;$@`"`!4<K_^!"\`"(O"&!*0>L`7$ZN_H!!ZP!<3J[^
  2579. + MC"E`$<@O`"1`("H`)&<8+&PJ%"!`(B@``$ZN_Z`I0!'`(@!.KO^"(&P1R"\(
  2580. + M2&P1G"!H`"0I:``$$=!.NG:83KHV*G``8`0@+P`$)&P1S"4`+'@`!`QN`"0`
  2581. + M%&T22JP1W&<,0>P1W%FL$>1.KOTD+DH@+!&X9P0@0$Z03KIV<$ZZ=Z!*K!'(
  2582. + M9R`L;"H4(BP1P&<$3J[_IBQX``1.KO]\(FP1R$ZN_H9@$BQX``0@+!'89P@B
  2583. + M;!'43J[_+B)L*A1.KOYB("P1Z"),D_P`````3J[_+B`?3-]_?DYU9&]S+FQI
  2584. + M8G)A<GD````@#Y!\``RPK!&@90![>$CG`Q`N+P`0)F\`%$*L$FQP`4*L$?Q"
  2585. + MIRE`$F`I0!)<3KI<Z"E3$>PNBR\'*4`2`&$``<Q03RP`2JP2=&<:+RP'GDAL
  2586. + M`]Y(;!$T3KHA[D*73KHB!D_O``Q*K!)P9P1A`"&@("P2%'(#L(%G+%F`9RA*
  2587. + MK!((9R)*K!(T9AQ*K!(X9A9*K!(L9A!*K!(D9@I*K!(P9@1P`&`"<`%R9"E!
  2588. + M$?1(>"`(*4`2:$ZZ9GA"K!'X*4`1\&$`"!I83[R';`1"K!)<(`;E@-?`8!1(
  2589. + M;`/B2'@``2\;80`(3$_O``Q2AKR';>A*K!)<9RA*K!(\9Q9(;`/F2'@``4AL
  2590. + M`^1A``@F3^\`#&`,0J=(;`/H80`%EE!/2JP1^&<680`-\$JL$CQF#$*G2&P#
  2591. + MZF$`#')03TJL$?AG:&$`$/A*K!'\9P``K`@L``$1+6=$4JP1'B`L$1ZPK!$F
  2592. + M;B(@;!$64JP1%A"\``H(+``&$2UG``"`2&P1$DZZ(-983V!R4ZP1'DAL$1)(
  2593. + M>``*3KH@R%!/8%Y(;!$22'@`"DZZ(+A03V!.2JP1_&=((&P1_$JH``AF/D*L
  2594. + M$F!@."9L$?PI:P`($?PO*P`$+Q-A``4R+I-.NGM*4$\@*P`$9P@O`$ZZ>SQ8
  2595. + M3R\+3KI[-%A/<`$I0!)@2JP1_&;"("P2;"]``!!,WPC`3OI_%B`/D'P`'+"L
  2596. + M$:!E`'EL44](YR,4+B\`("IO`"1"K!)00JP23$AX``%.NEHB6$]*@&<.<`(I
  2597. + M0!((<`$I0!)08`IP`4*L$E`I0!((1^P2#$*;0IM"K!(80JP2($*L$B1(;`/L
  2598. + M)L!.NGYR2H!7P40!2(%(P4?L$BQ"FT*;0IM'[!(X0IM"FT*;0JP21$*L$DA"
  2599. + MK!)42&P#_"E!$BA.NGX\4$]*@&<*+P!.NGXT6$]@`G!02&\`%$AX!`!(>``!
  2600. + M*4`29$ZZ./I/[P`,4H!G#C`O`!9G"'(`,@`I01)D2&P$!$ZZ??A83TJ`9PHO
  2601. + M`$ZZ??!83V`"<`B7RRE`$EA@``-^(`9*@&<``W9R"I"!9P`"P%.`9P`"\%.`
  2602. + M9P`#(%.`9P`#4'(DD(%G``*<<A"0@6<``<Q3@&<``=!3@&<``>!7@&<``>13
  2603. + M@&<``>A5@&<``>Q7@&<``?15@&<``?A7@&<``?Y3@&<``@I3@&<``@Y3@&<`
  2604. + M`A)3@&<``CI7@&<``CQR"9"!9VY3@&=X4X!G``""4X!G``"&58!G``"*4X!G
  2605. + M``+<58!G``"N58!G``"R4X!G``"V4X!G``"X4X!G``"\58!G``#`4X!G``#$
  2606. + M4X!G``#,4X!G``#04X!G``#44X!G``#858!G``#<4X!G``$$8``"AG`!*4`2
  2607. + M1"E`$D!@``)\<`$I0!),0JP24&```FYP`2E`$@Q@``)D<`$I0!(\8``"6G`!
  2608. + M0JP2%"E`$D0I0!)`2JP2"&84+P!.NE@26$]*@%;!=`&4`2E"$@A"K!(D8``"
  2609. + M*G`!*4`2,&```B!P`2E`$BA@``(60JP2"&```@YP!"E`$@A@``($<`$I0!(@
  2610. + M8``!^G`"*4`2+&```?!P`2E`$E!"K!),8``!XG`!*4`2&&```=AP`2E`$B1@
  2611. + M``'.<`,I0!(48``!Q'`"*4`2#&```;HO+`Y43KI\%%A/*4`29'(!L(%L``&D
  2612. + M+RP.5$AL!#)"IR\!3KIO*D_O`!!@``&,<`,I0!((8``!@G`!*4`20&```7A(
  2613. + M;`1*80`#,$AL!$YA``,H4$]@``%B<`(I0!((8``!6'`!*4`2+&```4YP`2E`
  2614. + M$AQ@``%$+RP.5&$``OQ83V```39P`2E`$C1@``$L0JP23$*L$E!@``$@<`%"
  2615. + MK!)0*4`23"E`$E1@``$.<`$I0!(X8``!!'`$*4`2%&```/HO+`Y43KI[5%A/
  2616. + M*4`26'(!L(%L``#D+RP.5$AL!%)"IR\!3KIN:D_O`!!@``#,0JP2%&```,1P
  2617. + M`BE`$A1@``"Z<`$I0!((8```L$AL`VXO+`Y43KIO*E!/+`!L%B\&+RP.5$AL
  2618. + M!&A.NF^(80`<%$_O``SEAD'L`X(I<&@`$A1@>$AL`[(O+`Y43KIN]%!/+`!L
  2619. + M%B\&+RP.5$AL!').NF]280`;WD_O``SEAD'L`\HI<&@`$@Q@0DAL`Q8O+`Y4
  2620. + M3KINOE!/+`!L%B\&+RP.5$AL!'Q.NF\<80`;J$_O``SEAD'L`S8I<&@`$@A@
  2621. + M#'`!*4`4T&`$80`;BB\+2&P!!$AL!`PO#2\'3KICND_O`!0L`%*`9@#\:"`L
  2622. + M#EA,WRC$4$].=2`/64"PK!&@90!TRDCG`!0J;P`02'@`#$ZZ8&8F0"!`(6P1
  2623. + M_``(+J\`$"E`$?Q.NF`<6$\F@"`-9PXO#4ZZ8`Y83R=```1@!$*K``1,WR@`
  2624. + M3G4@#Y!\`!"PK!&@90!T=DCG`30J;P`4?@!"K"FL+PU.NA]06$\F0$J`9AXO
  2625. + M#4AL!(@O+"FL0J=.NFSB<`$I0!)L3^\`$&```/AA``&28!XO"F$``2!83TJ`
  2626. + M9Q(O#4*G2&H`#&$``<I/[P`,WH`O"TZZ(#)83R1`2H!FU"\+3KH?XF$`!Y)8
  2627. + M3TJL$CAG#$AX``$O#6$`!A)03TJL$F!G("1O`!@@"F<,+PI(;`203KINI&`*
  2628. + M+PU(;`263KINF%!/2JP2"&<&2JP2)&<,+P=(;`2<3KIZME!/2JP1^&<$80`*
  2629. + M6DJL$?QG6`@L``$1+6="4JP1'B`L$1ZPK!$F;B`@;!$64JP1%A"\``H(+``&
  2630. + M$2UG+DAL$1).NGV@6$]@(E.L$1Y(;!$22'@`"DZZ>MQ03V`.2&P1$DAX``I.
  2631. + MNGK,4$],WRR`3G4@#UE`L*P1H&4`<S0O#2IO``A(>``(3KI>TB!`((TA;!)(
  2632. + M``183RE`$D@J7TYU(`^0?``,L*P1H&4`<P1(YP`4*F\`#"9L$DA@&DAX``1(
  2633. + M;0`,+Q-.NEAL3^\`#$J`9S(F:P`$(`MFXDJL$D1F'G`NL"T`#&862JP20&<4
  2634. + M$BT`#6<.L@!F!DHM``YG!'`!8`)P`$S?*`!.=2`/64"PK!&@90!RG$CG`P!^
  2635. + M`'P`8"8@;!'P+S!H`$ZZ=")83R!L$?`@,&A&9P@O`$ZZ=!!83U*'<%+<@+ZL
  2636. + M$?AMU$*L$?AP!"E`$@1,WP#`3G4@#Y!\`%2PK!&@90!R2)[\`$1(YP8V+"\`
  2637. + M9"IO`&`D;P!H("P1]"(L$?BR@&8H(@#2@2`!Y8"0@="`D('G@-"!T(`O`"\L
  2638. + M$?`I01'T3KI=[%!/*4`1\"`L$?@B`.6!DH#2@9*`YX'2@-*!)FP1\-?!0JL`
  2639. + M1D*K`$I*AF8(2JP2:&<``MA*%6<22'@`.DAM``%.NG(&4$]*@&8$2A)F!"9-
  2640. + M8#`@34H89OQ3B)'-(@@@2DH89OQ3B)'*THA4@2\!3KHDSB9`+HTO"B\`80`7
  2641. + MND_O``P@+!'X(@#E@9*`TH&2@.>!TH#2@2!L$?#1P47H``1*K!(T9S@O"B\+
  2642. + M3KH:&E!/*@!L-B`L$?@B`.6!DH#2@9*`YX'2@-*!(&P1\-'!2&@`!"\+3KH:
  2643. + M*%!/*@!@#"\*+PM.NAH:4$\J`$J%:B`O"TAL!*8O+"FL0J=.NFF@<`$I0!)L
  2644. + M3^\`$'``8``"$"`L$?@B`.6!DH#2@9*`YX'2@-*!)&P1\-7!(#P``/``P*H`
  2645. + M#`R```"@`&8``09*AF8(2JP2"&8``/HO"B\+80`!V"`L$?@B`.6!DH#2@9*`
  2646. + MYX'2@-*!(&P1\"ZP&$8O"V$``B)/[P`,)D!*@&<``+A*AF<&2JP2"&8(2JP2
  2647. + M+&<``*9(;P`:+PM.NADN4$]*@&8``)1*AF=P2JP2"&=J(#P``/``P*\`(@R`
  2648. + M``!``&982JP2/&8D($TJ2R`L$?@B`.6!DH#2@9*`YX'2@-*!(FP1\"9Q&$8C
  2649. + MB!A&("P1^"(`Y8&2@-*!DH#G@=*`TH$B;!'PT\%-Z0`$0^\`&G(/+-E1R?_\
  2650. + M/-E@'B`L$?@B`.6!DH#2@9*`YX'2@-*!(&P1\"&O`"(82B`+9P@O"TZZ<618
  2651. + M3R`L$?@B`.6!DH#2@9*`YX'2@-*!)FP1\-?!*CP``/``RJL`#`R%``"@`&8&
  2652. + M0JL`3F`D#(4``$``9A9*AF<*2JP2/&8$<`)@"G`!)T``3F`&<`,G0`!.(#P`
  2653. + M``'_T*L`&G)`YXE.NFYJ+`!*K!(H9PP@!E*`:@)2@.*`8`(@!BP`#(```"<0
  2654. + M;1`,K`````42!&P&<`4I0!($#(8``8:@;1`,K`````82!&P&<`8I0!($#(8`
  2655. + M#T)`;10,K`````<2!&P*<`<I0!($8`)\`"\-3KI:;":`4JP1^%A/(`9,WVQ@
  2656. + MWOP`1$YU(`^0?``0L*P1H&4`;M)(YP$T)F\`&"IO`!0N*P`:(`=2@"\`3KI:
  2657. + M9"1`+H<O`"\-3KHA$$_O``PN`&PB+PU(;`2J+RPIK$*G3KIG+'`!*4`2;"Z*
  2658. + M3KIP)$_O`!!@"$(R>``G2@!&3-\L@$YU(`^0?``,L*P1H&4`;F9(YS$V)F\`
  2659. + M)"IO`"`@"V8$<`!@;DAX`"\O#4ZZ;FQ03R1`2H!F#DAX`#HO#4ZZ;EI03R1`
  2660. + M(`IF#"]+`"!,WVR,3OI9FBX*GHU2AR!+2AAF_%.(D<LF!]:(4H,O`TZZ6;(D
  2661. + M0"('(D!@`A+=4X%D^D(R>``B"B0++&PJ%$ZN_(Y83R`*3-]LC$YU(`^0?``,
  2662. + ML*P1H&4`;=!(YP\T+B\`)"IO`"`@34H89OQ3B)'-+`A4ABHL$?A3A2@%Y828
  2663. + MA=B$F(7GA-B%V(1@``"B)FP1\-?$("L`3G(!L(%G!E6`9@``ADJ'9PPO$V$`
  2664. + M`,983TJ`9W0F;!'PU\0D4W`OL!)G!$H59@XO*P!&+Q-A`/B&4$]@/B!*2AAF
  2665. + M_%.(D<H@"-"&+P!.NECN)D`@;!'P+K!(`"\-+P!A`!-B(&P1\"ZP2$8O"V$`
  2666. + M^$XNBTZZ;KA/[P`0<`(@;!'PL+!(3F8*+S!(`$ZZ;J!83U.%<*[8@$J%:@#_
  2667. + M7'P`>@`J;!'P)DU@(G`"L*T`3F<44H4@32)+<!,BV%'(__PRV-;\`%)2AMK\
  2668. + M`%*\K!'X;=@I11'X3-\L\$YU(`]10+"L$:!E`&RL+PTJ;P`(2'@`+R\-3KIL
  2669. + MP%!/2H!G!B!`2^@``7`NL!5F%!(M``%G"K(`9@I*+0`"9@1P`&`"<`$J7TYU
  2670. + M(`^0?``0L*P1H&4`;&(O#2`L$A0,@`````5D``"*T$`P.P`&3OL`!`"2`$P`
  2671. + M7``(`&P@+!(,2H!G&E.`9P93@&<B8&)!^@!Z2JP2&&=60?H`BF!00?H`GDJL
  2672. + M$AAG1D'Z`*Y@0$'Z`,)*K!(89P1!^@#2*DA@,$'Z`1A*K!(89R1!^@$X8!Y!
  2673. + M^@%<2JP2&&<40?H!\F`.0?H`Q$JL$AAG!$'Z`-0J2"\-2'@`4B\L$?@O+!'P
  2674. + M3KIP-$_O`!`J7TYUO^P1H&4`:Z@@;P`((F\`!"`H`"Z0J0`N3G6_[!&@90!K
  2675. + MCB!O``@B;P`$("D`+I"H`"Y.=;_L$:!E`&MT(&\`"")O``0@*``FD*D`)DYU
  2676. + MO^P1H&4`:UH@;P`((F\`!"`I`":0J``F3G6_[!&@90!K0"!O``@B;P`$("@`
  2677. + M'I"I`!Y.=;_L$:!E`&LF(&\`"")O``0@*0`>D*@`'DYUO^P1H&4`:PP@;P`(
  2678. + M(F\`!"`H`!J0J0`:3G6_[!&@90!J\B!O``@B;P`$("D`&I"H`!I.=2`/44"P
  2679. + MK!&@90!JU")O``@@;P`$(%`B41`8L!EF!$H`9O:0(4B`2,!.=2`/44"PK!&@
  2680. + M90!JJB!O``@B;P`$(%`B41`8L!EF!$H`9O:0(4B`2,!.=2`/44"PK!&@90!J
  2681. + M@$CG`38J;P`82'@`+B\53KIJDB9`2'@`+B!O`"@O$$ZZ:H)/[P`0)$`@"V8>
  2682. + M(`IF&B!5+&\`'")6$!BP&68$2@!F]I`A2(!(P&!$(`MF!'#_8#P@"F8$<`%@
  2683. + M-"!+(DH0&+`99@1*`&;VD"%(@$C`+@!F&B!5+&\`'")6$!BP&68$2@!F]I`A
  2684. + M2(!(P&`"(`=,WVR`3G4@#U%`L*P1H&4`:>!(YP$V*F\`'$AX`"XO%4ZZ:?(F
  2685. + M0$AX`"X@;P`D+Q!.NFGB3^\`$"1`(`MF'B`*9AH@52QO`!@B5A`8L!EF!$H`
  2686. + M9O:0(4B`2,!@1"`+9@1P_V`\(`IF!'`!8#0@2R)*$!BP&68$2@!F]I`A2(!(
  2687. + MP"X`9AH@52QO`!@B5A`8L!EF!$H`9O:0(4B`2,!@`B`'3-]L@$YU(`]10+"L
  2688. + M$:!E`&E`2.<#`"`L$@@,@`````5D``$@T$`P.P`&3OL`!`":``@`A`",`)1^
  2689. + M`'P`8&P@;!'PT<8O"&$`!EY83P@L``$1+6="4JP1'B`L$1ZPK!$F;B`@;!$6
  2690. + M4JP1%A"\``H(+``&$2UG+DAL$1).NG,(6$]@(E.L$1Y(;!$22'@`"DZZ<$10
  2691. + M3V`.2&P1$DAX``I.NG`T4$]2AW!2W("^K!'X;8Y@``"080`)4&```(AA``JR
  2692. + M8```@&$`#"!@>'X`?`!@;"!L$?#1QB\(80``;EA/""P``1$M9T)2K!$>("P1
  2693. + M'K"L$29N("!L$192K!$6$+P`"@@L``81+6<N2&P1$DZZ<G983V`B4ZP1'DAL
  2694. + M$1)(>``*3KIOLE!/8`Y(;!$22'@`"DZZ;Z)03U*'<%+<@+ZL$?AMCDS?`,!.
  2695. + M=2`/D'P`3+"L$:!E`&?\GOP`0$CG(00J;P!02&\`."\M``Q.NEXH4$]"+P!"
  2696. + M("P2#$J`9Q)3@&<&4X!G$F`6+VT`+@`,8`XO;0`F``Q@!B]M`!X`#$AO``Q.
  2697. + MNCN.6$\@0$/O`!`2V&;\2JP2$&<&0B\`*&`P(#P`[4X`T*\`#"(L$@"R@&X.
  2698. + M(#S___'PT*\`#+*`;`Q![P`C0^\`&Q+89OQ"+P`@2JP2,&<.+RT`"$AL!*Y.
  2699. + MNFY:4$]*K!(D9SH@/````?_0K0`:<D#GB4ZZ9D8N`$JL$BAG#"`'4H!J`E*`
  2700. + MXH!@`B`'+P`O+!($2&P$M$ZZ;AQ/[P`,<``P+0`0+P!(;P`\2&P$NDZZ;@1/
  2701. + M[P`,2JP2(&<2<``P+0`2+P!(;`3"3KIMZF`8<``P+0`2+P!.NE,>6$\O`$AL
  2702. + M!,A.NFW04$]*K!(<9C)*K!(@9Q)P`#`M`!0O`$AL!-!.NFVR8!AP`#`M`!0O
  2703. + M`$ZZ5"A83R\`2&P$UDZZ;9A03R`\``#P`,"M``P,@```(`!G"`R```!@`&8B
  2704. + M("T`%B(`X(ET`$8"PH+`@B\`+P%(;`3>3KIM8$_O``Q@#B\M`!I(;`3H3KIM
  2705. + M3E!/0>\`%$JL$A!G!$'O`!`O"$AL!.Y.NF#^+I5A``!24$]*K0!.9BY*K0!&
  2706. + M9SA(;!$22&P$\DZZ;5XNK0!&80``,%!/2JP2+&<<+RT`2F$``]183V`02JP2
  2707. + M+&<*+RT`#&$``\)83TS?((3>_`!`3G4@#Y!\``RPK!&@90!EREE/+PTJ;P`,
  2708. + M2JP25&<``K0(+``!$2UG-%*L$1X@+!$>L*P1)FX0(&P1%E*L$180O``B8``"
  2709. + MCE.L$1Y(;!$22'@`(DZZ;0A03V```GA(;!$22'@`(DZZ;/903V```F9*K!),
  2710. + M9P`!+'``$"\`!%&`9SQ3@&=44X!G)E6`9UI3@&<Z<A.0@6=>58!G:'(ZD(%F
  2711. + M<$AL!/A.NE_*6$]@``(F2&P$_$ZZ7[Q83V```AA(;`4`3KI?KEA/8``""DAL
  2712. + M!01.NE^@6$]@``'\2&P%"$ZZ7Y)83V```>Y(;`4,3KI?A%A/8``!X$AL!1!.
  2713. + MNE]V6$]@``'22&P%%$ZZ7VA83V```<00+P`$<B"P`6-R<G^P`61L""P``1$M
  2714. + M9U!2K!$>(BP1'K*L$29N*B!L$192K!$6$(!R"K`!9@`!C`@L``81+6<``8)(
  2715. + M;!$23KINM%A/8``!=%.L$1YR`!(`2&P1$B\!3KIK[%!/8``!7'(`$@!(;!$2
  2716. + M+P%.NFO84$]@``%(<@`2`"\!2&P%&$ZZ:T903V```300+P`$<B"P`65R<G^P
  2717. + M`61L""P``1$M9U!2K!$>(BP1'K*L$29N*B!L$192K!$6$(!R"K`!9@``_`@L
  2718. + M``81+6<``/)(;!$23KIN)%A/8```Y%.L$1YR`!(`2&P1$B\!3KIK7%!/8```
  2719. + MS'(`$@!(;!$2+P%.NFM(4$]@``"X2JP24&9J""P``1$M9U!2K!$>("P1'K"L
  2720. + M$29N*B!L$192K!$6$"\`!!"`<@JP`68``(8(+``&$2UG?$AL$1).NFVP6$]@
  2721. + M<%.L$1YP`!`O``1(;!$2+P!.NFKH4$]@6'(`$@!(;!$2+P%.NFK64$]@1@@L
  2722. + M``$1+6<P4JP1'B`L$1ZPK!$F;@X@;!$64JP1%A"\`#]@(E.L$1Y(;!$22'@`
  2723. + M/TZZ:IY03V`.2&P1$DAX`#].NFJ.4$\0'1]```1F`/V42JP25&=&""P``1$M
  2724. + M9S!2K!$>("P1'K"L$29N#B!L$192K!$6$+P`(F`B4ZP1'DAL$1)(>``B3KIJ
  2725. + M2%!/8`Y(;!$22'@`(DZZ:CA03RI?6$].=2`/D'P`#+"L$:!E`&*>2.<!!"IO
  2726. + M``Q*K!(P9PXO+0`(2&P%'DZZ:8I03TJL$B1G.B`\```!_]"M`!IR0.>)3KIA
  2727. + M=BX`2JP2*&<,(`=2@&H"4H#B@&`"(`<O`"\L$@1(;`4D3KII3$_O``PO%6$`
  2728. + M_&983TJL$BQG"B\M``QA```*6$],WR"`3G4@#U%`L*P1H&4`8AA(YR,`+B\`
  2729. + M$"P'`H8``/``#(8``$``9D8(+``!$2UG,%*L$1X@+!$>L*P1)FX.(&P1%E*L
  2730. + M$180O``O8")3K!$>2&P1$DAX`"].NFE04$]@#DAL$1)(>``O3KII0%!/#(8`
  2731. + M`*``9D8(+``!$2UG,%*L$1X@+!$>L*P1)FX.(&P1%E*L$180O`!`8")3K!$>
  2732. + M2&P1$DAX`$!.NFD"4$]@#DAL$1)(>`!`3KIH\E!/#(8``!``9D8(+``!$2UG
  2733. + M,%*L$1X@+!$>L*P1)FX.(&P1%E*L$180O`!\8")3K!$>2&P1$DAX`'Q.NFBT
  2734. + M4$]@#DAL$1)(>`!\3KIHI%!/#(8``,``9D8(+``!$2UG,%*L$1X@+!$>L*P1
  2735. + M)FX.(&P1%E*L$180O``]8")3K!$>2&P1$DAX`#U.NFAF4$]@#DAL$1)(>``]
  2736. + M3KIH5E!/#(8``(``9FIP`;"L$BQF8B(L%-!G#`@'``9F$`@'``%G"DJ!9DQT
  2737. + M2<Z"9T8(+``!$2UG,%*L$1XB+!$>LJP1)FX.(&P1%E*L$180O``J8")3K!$>
  2738. + M2&P1$DAX`"I.NF?T4$]@#DAL$1)(>``J3KIGY%!/3-\`Q$YU(`]90+"L$:!E
  2739. + M`&!,64](YP,4*F\`&"95?@!*K!(P9P)^!TJL$B1G"B`'T*P2!"X`4H=*K!)4
  2740. + M9UY4AV!:2JP23&=2$"\`$$B`2,!1@&<@4X!G'%.`9QA5@&<44X!G$'(3D(%G
  2741. + M"E6`9PIR.I"!9A)4AV`D2JP25&<$5(=@&E*'8!80+P`0<B"P`6T&<G^P`6T$
  2742. + M6(=@`E*'$!L?0``09IX@+!(L9UXL/```\`#,K0`,#(8``(``9BI3@&9(("P4
  2743. + MT&<0""T`!@`/9A0(+0`!``]G#$J`9BYP2<"M``QG)E*'8"(,A@``0`!G&`R&
  2744. + M``"@`&<0#(8``!``9P@,A@``P`!F`E*'(`=,WRC`6$].=2`/D'P`&+"L$:!E
  2745. + M`%\^GOP`$$CG#P!^`'H`?`!@&B!L$?#1QB\(80#^S%A/L(=O`BX`4H5P4MR`
  2746. + MNJP1^&W@5(<O1P`8("P29"(O`!A.NEX(+@!F`GX!("P1^"('3KI=^"]``!`@
  2747. + M+!'X(@=.NEWJ2H%6P$0`2(!(P"(O`!#2@$*O`!PO00`48```RBP%>``@!>6`
  2748. + MD(70@)"%YX#0A="`*@`@!^6`D(?0@)"'YX#0A]"`+T``$"!L$?#1Q2\(80#[
  2749. + MXB!L$?#1Q2Z(80#^*EA/+@#<KP`4VJ\`$+RL$?AL&"`'T(0N!-ZO`!@O!R\`
  2750. + M80`#HE!/*`=@O@@L``$1+6="4JP1'B`L$1ZPK!$F;B`@;!$64JP1%A"\``H(
  2751. + M+``&$2UG+DAL$1).NFA86$]@(E.L$1Y(;!$22'@`"DZZ99103V`.2&P1$DAX
  2752. + M``I.NF6$4$]2KP`<+B\`%"HO`!RZAVT`_RQ,WP#PWOP`$$YU(`^0?``0L*P1
  2753. + MH&4`7=113TCG#P!^`'H`?`!@&B!L$?#1QB\(80#]9%A/L(=O`BX`4H5P4MR`
  2754. + MNJP1^&W@5(<O1P`0("P29"(O`!!.NER@+T``%&8&<`$O0``4>@!^`'P`>`!@
  2755. + M``"J2H9G``""(`8B+P`43KI<>$J!9EP(+``!$2UG0E*L$1X@+!$>L*P1)FX@
  2756. + M(&P1%E*L$180O``*""P`!A$M9RY(;!$23KIG:EA/8")3K!$>2&P1$DAX``I.
  2757. + MNF2F4$]@#DAL$1)(>``*3KIDEE!/>@!@%B`'T(4N!=ZO`!`O!R\`80`"0%!/
  2758. + M*@<@;!'PT<0O"&$`^D`@;!'PT<0NB&$`_(A83RX`4H9P4MB`O*P1^&T`_U((
  2759. + M+``!$2UG0E*L$1X@+!$>L*P1)FX@(&P1%E*L$180O``*""P`!A$M9RY(;!$2
  2760. + M3KIFSEA/8")3K!$>2&P1$DAX``I.NF0*4$]@#DAL$1)(>``*3KIC^E!/3-\`
  2761. + M\%!/3G4@#U%`L*P1H&4`7&!(YP\`?@!\`&```30J!R@&Y828AMB$F(;GA-B&
  2762. + MV(0@;!'PT<0O"&$`^^!83]Z`4H:\K!'X;`)4ATJ%9V"^K!)D;5H(+``!$2UG
  2763. + M0E*L$1X@+!$>L*P1)FX@(&P1%E*L$180O``*""P`!A$M9RY(;!$23KIF(%A/
  2764. + M8")3K!$>2&P1$DAX``I.NF-<4$]@#DAL$1)(>``*3KIC3%!/GH4@;!'PT<0O
  2765. + M"&$`^0Y83[RL$?AL``".""P``1$M9S!2K!$>("P1'K"L$29N#B!L$192K!$6
  2766. + M$+P`+&`B4ZP1'DAL$1)(>``L3KIB_E!/8`Y(;!$22'@`+$ZZ8NY03P@L``$1
  2767. + M+6<P4JP1'B`L$1ZPK!$F;@X@;!$64JP1%A"\`"!@(E.L$1Y(;!$22'@`($ZZ
  2768. + M8KA03V`.2&P1$DAX`"!.NF*H4$^\K!'X;0#^R`@L``$1+6="4JP1'B`L$1ZP
  2769. + MK!$F;B`@;!$64JP1%A"\``H(+``&$2UG+DAL$1).NF4<6$]@(E.L$1Y(;!$2
  2770. + M2'@`"DZZ8EA03V`.2&P1$DAX``I.NF)(4$],WP#P3G4@#Y!\``RPK!&@90!:
  2771. + MKEE/2.<#`"PO`!0N+P`08```P"`'(BP26$ZZ69XO0``((`8B+!)83KI9D+"O
  2772. + M``AO6`@L``$1+6<P4JP1'B`L$1ZPK!$F;@X@;!$64JP1%A"\``E@(E.L$1Y(
  2773. + M;!$22'@`"4ZZ8<Y03V`.2&P1$DAX``E.NF&^4$\@!R(L$EA.NEDZWJP26)Z!
  2774. + M8$@(+``!$2UG,%*L$1X@+!$>L*P1)FX.(&P1%E*L$180O``@8")3K!$>2&P1
  2775. + M$DAX`"!.NF%V4$]@#DAL$1)(>``@3KIA9E!/4H>^AFT`_SY,WP#`6$].=;_L
  2776. + M$:!E`%G(2.<@-"9O`!PJ;P`4)&\`&'`NL!)F#B!O`!A**``!9R1@`AK:2A)F
  2777. + M^K7O`!AC%A`J__]R+[`!9PQT.K`"9P8:P6`"&MM*$V;Z0A5,WRP$3G4@#Y!\
  2778. + M``RPK!&@90!9:B\L$>Q(;`4J2&P1-$ZZ7\Q(;`942&P1-$ZZ7\!(>``!3KI>
  2779. + MXD_O`!A.=0``3OD``(2J3OD``(.83OD``(AL3OD``(6\3OD``(.<3OD``(/4
  2780. + M3OD``(6(3OD``(4^3OD``(*T<&%(YR`R(&\`&$/O`!Q%^@`<)F\`%"0++'D`
  2781. + M```$3J[]]B`+D(),WTP$3G46P$YU```@;P`$("\`"")O``PO;P`0``193TCG
  2782. + M(30N`"9O`!PJ2"1)+TD`%&`"&MI*$F<$4X=N]K7O`!1C&A`J__]R+[`!9Q!T
  2783. + M.K`"9PI3AV\&&L%@`AK;2A-G!%.';O9"%4J'7L!$`$B`2,!,WRR$6$].=2`O
  2784. + M``0@;P`((F\`#%E/2.<G-BX`*D@O20`@2JP3?&<``/X@;!-\)F@`#$ZZ!0XB
  2785. + M*P`$LH!F``#H(&P3@$AH`"Q!["BL(E-P`$8`80#_6%A/2H!G``#*0>PHK")-
  2786. + M$!BP&68``+Q*`&;T9@``M$J'9A`@;!.`("@`&'(#L(%G``"@(&P3@"`H`!AR
  2787. + M_+"!9P19@&8^(FP3?"(1+&PJ%$ZN_X(L`"!L$X#0_``L(@AT_DZN_ZPJ`&<2
  2788. + M(@5![!)X)`A.KO^:(@5.KO^F(@9.KO^"8`8I:``@$G@@;!.`*6@`!!+X*6@`
  2789. + M"!+T0^@`#$7L$OPDV239)-D@;!.`*6@`&!)\*6@`'!+L+R\`("\K`1@@34/L
  2790. + M$GAP`$ZZ-FA03W`!8`)P`$S?;.183TYU(&\`!")O``A(YP`4)DDJ2$ZZ#5X@
  2791. + M32)+<`!A`/[(2H!G!'``8`P@32)+3-\H`$[Z-SQ,WR@`3G4@;P`$(F\`"$CG
  2792. + M`!0F22I(3KH-)B!-(DMP`6$`_I!*@&9P2'@`_TAL**PO#4ZZ"3Q/[P`,2H!J
  2793. + M#"!-(DM,WR@`3OHV\DO30IU"JP`2<`$W0``.0FL`$"=\```"```R-T``#$*K
  2794. + M`#9!["BL(DA*&6;\4XF3R"=)`!9"G2`\#PP_`"=``"(G0``:)T``*BK\``"A
  2795. + M_W``3-\H`$YU(&\`!%E/2.<`%"](``@@;P`(*F@!#&`*)E4@34ZZ5^XJ2R`-
  2796. + M9O),WR@`6$].=2!O``2>_``02.<@-BI()FT`#$/K`0PO2``<+TD`("!+8;1"
  2797. + MK!-\0JL!#$*M``0@%>6`($`G:``,`1A!ZP`(+T@`&&```)Y!ZP`0(DA*&6;\
  2798. + M4XF3R"`)D<C0_``L<@`R`-*(4H%T`#0!/T``%C]!`!0@`DZZ6-8D0$J`9@9P
  2799. + M#&```)Q-TD*>(&\`(""*+U``("SK`(@LZP"$0>L`C$/J``PBV"+8(M@E:P`,
  2800. + M`!@E:P!\`!Q+Z@`@.V\`%``$.V\`%@`&(&\`'"`H``12J``$*T``"$'J`"Q#
  2801. + MZP`0$-EF_"JK``@J;P`<(A4D+P`8+&PJ%$ZN_Y1*@&8`_TXG:P$,`1!"K0`$
  2802. + M+&PJ%$ZN_WQR=-*!L(%F!'`!8`I.NC?0*4`IK'``3-]L!-[\`!!.=2!O``19
  2803. + M3TCG(#8O2``4<!!.NE@,*D!P1^6(3KI8`B9`(&\`%"`(2AAF_%.(D<`@"%*`
  2804. + M3KI7ZB1`3KH+"B`-9P``@B`*9WP@"V=X*TL`#"M\```!'``(D<@G2`$0)T@!
  2805. + M#"=(`10FBB!O`!04V&;\3KH!=B=```0B+P`4+&PJ%'3^3J[_K"J`9R)!ZP`(
  2806. + M(@`D""QL*A1.KO^:2H!G#B!-80#^.$J`9Q0@#6`^+&PJ%$ZN_WQ.NC<**4`I
  2807. + MK"!-80``-F`D<`PI0"FL(`UG!B!-3KI5XB`*9P8@2DZZ5=@@"V<&($M.NE7.
  2808. + M<`!,WVP$6$].=2!O``1(YP`6*D@F;0`,3KH*1$*L$WP@2V$`_:`@4TZZ5:(@
  2809. + M%6<*(@`L;"H43J[_IB!M``Q.NE6,($U,WV@`3OI5@B!O``193TCG`S0O2``4
  2810. + M(&\`%"IH``R7RTZZ"?A*K0$49R1^`"1M`0P@;P`4+"@`!&`$4H<D4KZ&;`0@
  2811. + M"F;T*TH!$$*M`10@+0$09R(F0-;\`"`I;P`4$WQ%[0$0(%(I2!.`(%(DT"!O
  2812. + M`!12J``$(`M,WRS`6$].=2!O``0O#2I(3KH)D"`M``0J7TYU(&\`!"`O``A(
  2813. + MYP$4+@`J2"9M``Q.N@EP<`$G0`$4*T<`!$S?*(!.=4CG`0(L;"H4<@!.KO^"
  2814. + M+@`B`$ZN_X(@!TS?0(!.=0``(&\`!")O``A93TCG,S8J2'X`(&P4L"PH`.`O
  2815. + M20`@2H9F($JL$<AF&D'L![PB""QL*A0D/````^U.KO_B+`!G`GX!2H9G-B(&
  2816. + M0>P'QB0(0>P1T"8(+&PJ%$ZN_IXB!B0-)B\`($ZN_IXB!G0*3J[^R$J'9U@B
  2817. + M!DZN_]Q@4"!L%+`F:`"X,'S__[?(9T!#[`?,<"4L>``$3J[]V"1`2H!G+"EL
  2818. + M$=`'L"E-![0O"B!++$I#[`>HE<HF;P`D3J[]M$S?!``B2BQX``1.KOYB3-]L
  2819. + MS%A/3G4@;P`$0^\`"&$`_RI.=2!O``1#[P`(80#_''`43KI7NDYU``!(YP`&
  2820. + M<`AR`"QX``1.KO\Z*D!*@&8$<`!@+D*M``1(>``H<``O`$'L!^!R`9/)P4%.
  2821. + MNC;&4$\J@&8,(DUP"$ZN_RYP`&`"(`U,WV``3G4@;P`$2.<`!BI((`UG&"!-
  2822. + M80``'B!53KHW"B)-<`@L>``$3J[_+DS?8`!.=2!O``1(YP`&*DA*K0`$9Q0B
  2823. + M52QX``1.KOX@(E5.KOXF0JT`!$S?8`!.=2!O``0@4")H``YP`!`I``]R`>&A
  2824. + M(`%.=2!O``0@+P`((B\`#$CG`P8L`2X`*DAAJDJ'9@1*AF<>(E4C1P`@(T8`
  2825. + M)#-\``D`'"QX``1.KOXR<`$K0``$3-]@P$YU(&\`!$CG``8J2$JM``1G'")5
  2826. + M+'@`!$ZN_BQ*0&<.(E5.KOXF0JT`!'`!8`)P`$S?8`!.=2\.("P4O"(`2$%"
  2827. + M0=*`("P4L+.`*4`3B$*L$XQ#[`?T<``L>``$3J[]V"E`$X1P_TZN_K9(@$C`
  2828. + M*4`'\$JL$X1G"$J`:P1P`6`"<``I0!.0+%].=2\.("P'\&L(+'@`!$ZN_K`@
  2829. + M+!.$9PHB0"QX``1.KOYB+%].=2`O``113TCG`P`N`$ZZ!HP@!TZZ`9!*@&<H
  2830. + M(D`@:0`<<D#EB<*1+T@`#"`!(&D`!")O``Q.D2P`(`=.N@%((`9@`G#_3-\`
  2831. + MP%!/3G4@+P`$+P<N'V"N```@;P`$("\`"")O``PO;P`0``0O;P`4``@O;P`8
  2832. + M``PO;P`<`!`O;P`@`!0O;P`D`!A13TCG!Q0N`$CO`P``%'P`*FP3E&`62JT`
  2833. + M!&8*,'P``2M(``1@#%*&VOP`)+RL$YAMY"`L$YB\@&9X<@K3K!.8("P3F"(`
  2834. + MYX'2@.6!(`%.NE*<*D!*@&8,<`PI0"FL</]@``".</;0K!.8(@#G@=*`Y8$@
  2835. + M;!.4(DU@`A+84X%D^B`L$Y1G!B!`3KI0]BE-$Y1Z]MJL$Y@@!>>`T(7E@-O`
  2836. + ME\LK2P`$4H7:_``DNJP3F&WP(`;G@-"&Y8`@;!.4(:\`%`@$(8<(`"&O`!@(
  2837. + M"$OO`"`AG0@,(9T($"&="!1+[P`L(9T(&"&="!PAG0@@(`9,WRC@4$].=2`O
  2838. + M``0B`&L6LJP3F&P0(`'G@-"!Y8`@;!.40K`(!$YU("\`!$CG`00N`&L>OJP3
  2839. + MF&P8(`?G@-"'Y8`J;!.4V\!*K0`$9P0@#6`(<`DI0"FL<`!,WR"`3G4@+!.8
  2840. + M3G4``"!O``1(YP`&*D@L;!3$3J[_O@:5#PP_`'``3-]@`$YU("\`!"!O``A9
  2841. + M3P2`#PP_`"(\``%1@"Z`3KI-6B"`(!<B/``!48!.NDU,(`$N@7(\3KI-0B%`
  2842. + M``0@%W(\3KI--B`!Y8"0@>>`T('0@"%```A83TYU(&\`!%E/2.<@!$O0(!TB
  2843. + M`.F!DH`@`>>`T($B`.6!TH#O@2`=)`#I@I2`Y8(@'2]!``AR,DZZ3.K0@M"O
  2844. + M``@&@`\,/P!,WR`$6$].=2`O``193RZ`0>P(""`(6$].=2!O``193RZ(0>P(
  2845. + M""`(6$].=2`L"`A.=0``(&\`!")O``@@+P`,64](YS\V+@`J2"])`"B7RTZZ
  2846. + M`[`B#20++&PJ%$ZN_7XF0"("3J[]>"`+9@9.NC$(8%XD;P`H0A(J!U*%(A,D
  2847. + M*P`$)@TH"BQL*A1.KOY*2H!G&"(+3J[]>$H29@1P`F`L+P1.NDT\6$]@*$ZN
  2848. + M_WPL`'(R1@&P@68(""L``0`+9I0B"TZN_7@@!DZZ+[(I0"FL</],WVS\6$].
  2849. + M=0``64]*K`@Z9@Q![P`#*4@(.F'N8!9![P`#(FP(.K/(9`1P`6`"</\I0!.<
  2850. + M6$].=5E/2.<!%"XO`!1*K!.<9@)AP"IL"#Y@+B`L$YQO#$'O``\B;0`$L\AB
  2851. + M$$J`:AQ![P`/(FT`!+/(9!`F52\-3KI.(EA/*DL@#6;.*4T(/DJ'9@1P`&`B
  2852. + M4(<O!TZZ3W(@0""L"#Y#[P`3(4D`!$/H``A83RE`"#X@"4S?*(!83TYU```@
  2853. + M+P`$64\N@$'L"%H@"%A/3G4@;P`$64\NB$'L"%H@"%A/3G4@+P`$64\N@"`L
  2854. + M%*QG#B!`3KKZ_DJ`9P1R`6`"<@`@`5A/3G4@+P`$(&P4K'(`3OKZI$ZZ^=@I
  2855. + M0!2L9@I(;`AH3KKYM%A/(&P4K$ZZ^FB!K!.@3G4@;!2L3OKZ!`CL``P3HDYU
  2856. + M("\`!`@```Q6P$0`2(!(P$YU".P`#1.B3G4@+P`$"```#5;`1`!(@$C`3G5.
  2857. + MNB^2<``@;"GD$"@`#W(!X:&#K!.@3G5.^B_D("\`!%E/2.<!%B]``!!^`&`N
  2858. + M("T`%$ZZ+SHF0$J`9Q1*JP`49@Y^`7`!)T``%"=M`!@`&")-<!PL>``$3J[_
  2859. + M+B!L*>0L>``$3J[^C"I`2H!FP"`'3-]H@%A/3G4@+P`$2.</!"X`<`'OH"P`
  2860. + M<`F^@&8&<`!.N@L4("P4I,"&9P:-K!2H8'HJ!D:%RZP4J$J':V9P(+Z`;&`@
  2861. + M!^>`0>P3I"IP"``P?``!N\AF+"`'58!G%%.`9Q!R#9"!9SQ9@&<X48!G-&`*
  2862. + M2&P(@$ZZ^'!83W``3KH*MF`@(`UG'"`'YX`H!D'L$Z2(L`@$B:P4I"`'3I5&
  2863. + MA,FL%*0@+!2HP(9FBDS?(/!.=2`O``0O#B(L$Z""@'``+'@`!$ZN_LXL7TYU
  2864. + M("\`!"\.(@`@+!.@@($L>``$3J[^PBQ?3G4@+P`$2.<#`"X`?`!A`/X02H!G
  2865. + M"'P!<`YA`/\,(`=A`/YB2H!G"'P!<`)A`/[Z(`=A`/YJ2H!G"'P!<`-A`/[H
  2866. + M(`=A`/Z&2H!G"'P!<!1A`/[6(`9,WP#`3G4@+P`$+P<I0!&H<`@N'V``_KQP
  2867. + M`&$`_V!@D&#V2.<!%'X`2^P3I#9\``$JBT*M``12AU"-<""^@&WP0JP4J$*L
  2868. + M%*1"K!.@80#]U&$`_>IA`/VB3-\H@&``_?AA`/VX8`#^"```2&P(E$ZZ]TQ8
  2869. + M3TYU("\`!"\-3KI,="I`2H!F`F'B(`TJ7TYU(&\`!"`O``@O"TZZ2F@F0$J`
  2870. + M9@)AQB`+)E].=2!O``0O#2I((`UF!$OL")X@34H89OQ3B)'-(`A2@$ZZ3"@@
  2871. + M0$J`9@1P`&`((D@2W6;\(`@J7TYU64](YP,T?@!\`"!L%+`F:`#08"Q**P`(
  2872. + M9B0P/`4`P&L`#F8:4H<@:P`*(`A*&&;\4XB1P"`(W(#<JP`45(8F4TJ39M`@
  2873. + M!U*`Y8#0AF$`_THI0!3(Y8<@0")`T\=%Z0`$+T``%&8*0>P(D"E(%,A@5B!L
  2874. + M%+`J:`#08$)*+0`(9CHP/`4`P&T`#F8P)FT`"BXM`!0@;P`4(,HO2``48`(4
  2875. + MVTH39OH4_``])FT`$&`"%-L@!U.'2H!F]D(:*E5*E6:Z(&\`%$*03-\LP%A/
  2876. + M3G4@;P`$("\`""\-*D@J@$*M``3E@&$`_K0K0``(*E].=2!O``0B;P`(("\`
  2877. + M#$CG(C0F22I(2H!G"B!+80#^PB1`8`(D2R`*9SXB%20M``2T@6TB+`'<AG00
  2878. + MTH*\@6T"(@8J@2`!Y8`@;0`(3KI(YBM```AG$D?M``0B$U*;Y8$@6R&*&`!P
  2879. + M`4S?+$1.=2!O``0B;P`(("\`#&&22H!F!&$`_AI.=2!O``0B;P`(2.<`%"9)
  2880. + M*D@@+0`$T*L`!+"5;Q+0@"J`Y8`@;0`(80#^&BM```@B+0`$Y8$@;0`(T<$@
  2881. + M*P`$(@#E@2)K``A@`A#94X%D^M&M``0@:P`(3-\H`$[Z2-8@;P`$(F\`""]O
  2882. + M``P`!"`O`!`B+P`464](YP(T+`$J221(+T@`$$J`9T13@&<*4X!G``"V8```
  2883. + M]%.&9R(@+P`8(@V0@2!O`!!",`@`($$B;P`08`(2V%.`9/I@``#.0>P(H")O
  2884. + M`!`2V&;\8```OB9O`!A@;G!<L!5F9DHM``%G8%2-<`&\@&8&%/P`86!4(`95
  2885. + M@&9&$"W__TB`2,!R(Y"!9RY5@&<J58!G)E.`9R)3@&<>4X!G&G(5D(%G%'(<
  2886. + MD(%G#E6`9PIR'Y"!9P15@&8$%/P`)Q3M__]@"!3M__]@`A3=N\MECF!`)F\`
  2887. + M&&`V<"JP%68N2BT``6<H5(T0+?__2(!(P')ED(%G#'()D(%F#!3\``I@#A3\
  2888. + M`!M@"!3M__]@`A3=N\MEQD(23-\L0%A/3G6>_`$L2.<_-BIO`5@@;!'$#&@`
  2889. + M)0`49`I(>``43KK)OEA/0JP1#'`!*4`1""E`$2YP`BE`$2HI0!%0*7P```"$
  2890. + M$4R3R2QX``1.KO[:*4`4L$ZZ\YPI0!2T9@I(;`BB3KKS>%A/(&P4M$ZZ]"PI
  2891. + M0!2X+&P4M"!6+&@`%"E.%,1![P$P3J[_OBEO`3`4O$ZZ])1.NONL(&P4L"`H
  2892. + M`*QG$.6`(D`B*0`TY8$I013`8`8I:`"$%,!*%68``.A![`BZ(@@L;"H4)#P`
  2893. + M``/N3J[_XBP`0>P(P"((3J[_XBX`0>P(QB((3J[_XBH`2H9G"$J'9P1*A68B
  2894. + M2H9G!B(&3J[_W$J'9P8B!TZN_]Q*A6<&(@5.KO_<80#[<G`!+P`O!2\`+P<B
  2895. + M!L%!3KHC6"!L$<@@*``<0>\!6&$`_)Y/[P`0?`!^`&!0(FP1R"!I`"0@,'@`
  2896. + M9SXB`$/O`#`D"2QL*A1V0.6+3J[^;DJ`9R8B;!'((&D`)-''("@`!&<((@(D
  2897. + M`$ZN_(Y![P%(0^\`,'`!80#\V%*&4(<@;!'(O*@`'&VF8``"S"QL*A1.KO_*
  2898. + M*`!.KO_$*@!^`"!L%+`L*`#@9BA^`4'L",PB""0\```#[4ZN_^(L`&820>P(
  2899. + MSB((3J[_XBP`9@1A`/JD+P<O!G``+P`O!2($P4%.NB**0>\!6'`!80#[UB`\
  2900. + M```%&F$`^HX@0#%\!```$B]``#QP0.6(80#Z>D_O`!!^0.6/+T`!.&`"4HT0
  2901. + M%4B`2,!![`_I"#```P@`9NP0%6<``A9R(K`!9C!2C29-8!!P*K`59@A*+0`!
  2902. + M9P)2C5*-$!5G!G(BL`%FYB1-$!5R(K`!9@)2C7P"8%1P)[`59B!2C29-8`)2
  2903. + MC1`59P9R)[`!9O0D37`GL!5F`E*-?`%@+B9-8!!P7+`59@A*+0`!9P)2C5*-
  2904. + M$!5G$G(@L`%G#'(*L`%G!G()L`%FVB1-?``@2RH*FHL@!5*`+T@`*&$`^;8F
  2905. + M0$JO`4QF("`%($LB;P`H3KI#WD(S6`!![P%((DMP`&$`^V!@`/\FVH5R$-J!
  2906. + MNH=O%"!O`3A.ND2((`5A`/EV+@4O0`$X+PH@!B!+(F\`+'(!80#[KEA/(@LD
  2907. + M+P$X)@<L;"H43J[\N"H`;!!"$B\O`"A(;`C43KKP?E!/2H5F(B\*(`8@2R)O
  2908. + M`"QR`&$`^W1![P%,(DMP`&$`^NA83V``_JQZ`2!O`"Q"J``(0B@`$4(H`!`O
  2909. + M"B`&($LB;P`L<@)A`/M`0>\!0'`080#Z)EA/(@LD+P`L+&PJ%$ZN_,HH`&8\
  2910. + M8"IZ`")O`"S2_`$80>\!/'`!80#Z($J`9@1X9V`2(B\`+"QL*A1.KOS$*`!*
  2911. + MA&?2(B\`+"QL*A1.KOR^<'30@+B`9PI(;`CH3KKOREA/2H5G(B\*(`8@2R)O
  2912. + M`"QR`&$`^L!![P%,(DMP`&$`^C183V``_?@@+P%`(&\!1$ZZ/AI![P%(0^\!
  2913. + M/&$`^BH@2TZZ0TY@`/W6(&\!.$ZZ0T(@;P`L3KI#.F$`^))![`D"3KHC5BE`
  2914. + M"`AF"$'L"0@I2`@(0>P)#DZZ(T`I0`@<9@8I;`@("!Q![`D83KHC+"E`""!F
  2915. + M"$'L"1XI2`@@0>P)(DZZ(Q8I0`@D9@A![`DH*4@()$'L"3!.NB,`*4`4S&8(
  2916. + M0>P).BE(%,P@+P%,(&\!4")L%,A.NE&^<`!.ND:T3-]L_-[\`2Q.=2`O``1(
  2917. + MYP,`+@!*K!309P0@!V!@?``@!P*````!)&<"?`@(!P`'9P0`1@`%"`<`!&<$
  2918. + M",8``@@'``%G!`C&```(!P`#9P0(Q@`!"`<``&<$",8`!B`'<DG`@7)`L(%F
  2919. + M!`!&`$((!P`)9P0(Q@`%(`8*0``/3-\`P$YU("\`!$CG!@`L`$JL%-!G""`&
  2920. + M`D`/_V!>>@`*1@`/"`8``V<$>DGEC2`&<@7`@5N`9@0(Q0`'"`8``F<$",4`
  2921. + M!`@&``!G!`C%``$@!G)"P(%G!`C%``8(!@`!9P0(Q0`#"`8`!F<$",4```@&
  2922. + M``5G!`C%``D@!4S?`&!.=0``2.<#`$ZZ\7HN`'P`8`HO!DZZ[^)83U*&O(=M
  2923. + M\DS?`,!.=2`O``0O!RX`8=1.NN]63KKV6"!L%+1.NNX4+P=.NL.J6$\N'TYU
  2924. + M("\`!"\'+A]@U```("\`!"(O``@@;P`,44](YP,D+`$N`"I(3KKUU"`'3KKP
  2925. + MV$J`9QHB0"!I`"`O2``4(`8@:0`$(DTD;P`43I)@`G#_3-\DP%!/3G4``)[\
  2926. + M``Q(YR\V*F\`-'X#SJ\`.'P!(&P4L"9H`+@J/````^Q.NO5^2H=G"G`"OH!G
  2927. + M!'(`8`)R`2]!`"AP`;Z`9PA5AV<$<`!@`G`!+T``+"!-0^P)0$ZZ.Z)*@&8&
  2928. + M>/]@``%4</\@;!2P(4``N"(-+&PJ%'3^3J[_K"X`(&P4L"%+`+A*@&9X+&PJ
  2929. + M%$ZN_WQ.NB&,+``@+!&D<BY&`;"!9P1*@&8*?@$J/````^Y@%B`&58!F#`@O
  2930. + M``@`.F<$<`%@`G``+@!*AV<L?``(+P`(`#IG'`@O``\`.F<&>`)@``#6("\`
  2931. + M/$ZZ_88H`&```,AX_V```,(I1BFL</]@``%"0J<L;"H4<@(D#TZN_QQ/[P`$
  2932. + M)$!*@&<,(@<D"DZN_YI*@&86(`IG""0*<@).KO\63KHAYG#_8``!""@J`'0D
  2933. + M"G("3J[_%B('3J[_IG!0Z8C`KP`X#(````4`9@QP$2E`*:QP_V```-I*KP`H
  2934. + M9P8(!``#9@Q*KP`L9Q((!``"9PQP#2E`*:QP_V```+8(+P`)`#IG(B(-)#P`
  2935. + M``/N3J[_XDJ`9P@B`$ZN_]Q@"DZZ(6IP_V```(P(+P`(`#IG!"`%8`8@/```
  2936. + M`^TD`"(-+&PJ%$ZN_^(J`&8(3KHA/G#_8&`(+P`)`#IF!$J&9@0L!&`"?/]^
  2937. + M`$JO`"AG`GX!2J\`+&<$",<``0@O``,`.V<$",<``R\'(`4B!DZZ&SY83RX`
  2938. + M;!QP_R!L%+`A0`"X(@4L;"H43J[_W"!L%+`A2P"X(`=,WVSTWOP`#$YU(&\`
  2939. + M!"\O``PO+P`,+PAA`/VH3^\`#$YU(&\`!$CG.`!P_\`H``-R`!(`</_`*``"
  2940. + M=``4`'#_P"@``78`%@!P_\`0>``8`.&$B(/AA(B"X82(@2`$3-\`'$YU2.<C
  2941. + M-$OL%49![`ED1>P)5"3(0>P):"3(0JP)8$*:?@`L+!5.1^P<D&`\("L`!"(`
  2942. + MY8$@3='K``A#Z`?J1>P)5"6)&`!*@&<&<`$I0`E@2H=G!DJK``1F""`31(`I
  2943. + M0`E<4H?6_``0OH9MP'X`+"P52F`Z<``B!P:!```%V!`U&`!(P.F`($TB``:!
  2944. + M```'4M'U&``&@```!TXD-0@`Y8)#Z`?J1>P)5"6)*`!2A[Z&;<),WRS$3G4@
  2945. + M;P`$(F\`")[\"BA(YSLV+T@`*"])`"P@"&8(3>P);"].`"AP.B!O`"BP$&8$
  2946. + M4J\`*"!O`"AP.DZZ/"I*@&9.<`HB`"!O`"@@"$H89OQ3B)'`THA2@7!!LH!E
  2947. + M!G#_8``"3$'L"7A#[P`Q$MAF_$'O`#%#[`F$3KH\5$'O`#$B;P`H3KH\2$'O
  2948. + M`#$O2``H0J<O+P`L3KK^6E!/+@!2@&8&</]@``(((`=![P!R(CP```G:3KH>
  2949. + M`"P`(`=.NNM$2H!F!G`LO(!D!G#_8``!X$'O`(IA`/XX+@!![P".80#^+BIO
  2950. + M`"PJ@$'O`))A`/X@*T``!$'O`)9A`/X4*T``"$'O`)IA`/X(*T``#"(5:S!T
  2951. + M,K*";BHF+0`(;R1X"K:$;AXH+0`$:Q@,A````7)N$$J`:PRP@FX(MH=G"DJ'
  2952. + M9P9P_V```6K2@>6!("T`""0`U(+4@-2"("T`!"8`Y8/6@-:"UJT`#-:!UH=P
  2953. + M+-:`O(-D!G#_8``!.$?O`)Y\`"1-8!`@2V$`_8@E0``06(M2AEB*O*T`!&WJ
  2954. + M?`!@(!`;(@8&@0``!=@;@!@`<@`2`+*M``AM!G#_8```]E*&O*T`!&W:?`!!
  2955. + M[0=*)$@O2``D8$H@2V$`_3HD@$OK``40*P`$<@`2`"5!``1G"E.!9P9P_V``
  2956. + M`+Q'[0`!$!5R`!(`)4$`"&T**F\`++*M``QO!G#_8```G%*&U/P`$+RM``AM
  2957. + ML'P`8`X@!@:````'ZAN;"`!2AKRM``QM["`&!H````?J0C4(`'P`VOP('F`>
  2958. + M($MA`/R^*H!%ZP`$($IA`/RR*T``!$?J``12AE"-(&\`++R0;=I\`"1O`"0J
  2959. + M;P`L8"A*AV8&0JH`#&`8$!M(@$C`)4``#'(!L(%G"$J`9P1P_V`.4H;4_``0
  2960. + MO*T`"&W2<`!,WVS<WOP**$YU(&\`!%E/+PTJ2&`"4HT0%1]```1G)DB`2,!!
  2961. + M[`_I"#```@@`9A80+P`$<BRP`6<,<BVP`6<&<BNP`6;0(`TJ7UA/3G4@;P`$
  2962. + M(F\`""`O``PB+P`064](YP<4+`$N`"9)*D@@#6<2$!5(@$C`0>P/Z0@P``((
  2963. + M`&8$<`!@2GH`8"(0+P`42(!(P"(%Y8'2A=*!TH`J`7`PFH"ZAF\$<`!@)E*-
  2964. + M$!4?0``49Q!(@$C`0>P/Z0@P``((`&;&NH=L!'``8`0FA2`-3-\HX%A/3G4@
  2965. + M;P`$(F\`"%E/2.<`%"9)0^\`"'``<AAA`/]L*D!*@&8$<`!@:B`O``@B`.F!
  2966. + MDH`@`>F`D('I@":`<#JP%69.0>T``4/O``AP`'([80#_."I`2H!F!'``8#8@
  2967. + M+P`((@#I@9*`Y8'3DW`ZL!5F($'M``%#[P`(<`!R.V$`_PHJ0$J`9@1P`&`(
  2968. + M("\`"-&3(`U,WR@`6$].=2!O``0B;P`(64](YP$4*DDO2``,$!!R+;`!9@A^
  2969. + M`5*O``Q@,$B`2,!![`_I"#```@@`9AAR*R!O``RR&%?`1`!(@$C`+T@`#$J`
  2970. + M9P1^`&`$<`!@'"!O``PB36$`_Q0F0$J`9@1P`&`(2H=G`D25(`M,WRB`6$].
  2971. + M=2!O``0B;P`(GOP`#$CG`"0J22](`!!P2K`09BA"E4/H``%![0`$+T@`#"!)
  2972. + M(F\`#'`!(CP```%M80#^/"]``!!@``"T<$VP$&9\<`(J@$/H``%![0`,+T@`
  2973. + M#"!)(F\`#'`!<@QA`/X0(D!*@&8&<`!@``#`1>D``7`NL!%G!G``8```L$'M
  2974. + M``@B2"!*<`%R!6$`_>0B0$J`9@9P`&```)1%Z0`!<"ZP$6<&<`!@``"$0>T`
  2975. + M!")(($IP`'(&80#]N"]``!!@,!`02(!(P$/L#^D(,0`""`!G&G`!*H!#[0`$
  2976. + M<``B/````6UA`/V,+T``$&`$<`!@/"`O`!!F!'``8#)P+R!O`!"P$&8<0^@`
  2977. + M`4'M`!`O2``,($DB;P`,80#]VB]``!!@""M\```<(``0("\`$$S?)`#>_``,
  2978. + M3G4@+P`$(B\`""!O``PO;P`0``2>_``D2.<_%"I(*@`N`20'=@/$@R]``#@O
  2979. + M00`\2H)F#"`'<F1.NC4<2H%F$B`'<F3EB4ZZ-0Y*@6<$<`!@`G`!+``@%4J`
  2980. + M9PQ3@&=(4X!G9F```7X@+0`$(@!3@20!U(+4@28"Z8.6@B0#Z8*4@^^"+@7>
  2981. + M@B]'`$!*AF<``51R/+"!;0`!3`:'``%1@"]'`$!@``$^("T`!"(`TH'2@"0!
  2982. + MZ8*4@2("Z8&2@N^!VH$O10!`8``!'"@%?@`J+0`,4X4@!M"`T(;I@$?L"8;7
  2983. + MP"]``"!@&B`;(@#2@=*`)`'I@I2!(@+I@9*"[X'8@5*'OH5MXBXO`#PO1``D
  2984. + M(BT`#'0"LH)N!B8'4X-@`B8'(`-R9$ZZ-#`B`-*!2H!J`E:`Y(`O0``L(`,O
  2985. + M00`P<F1.NC04(`%J`E:`Y(!V"=:M``PO0``T(`,O00`H<@Q.NC/V4H$@`>>`
  2986. + MD('0@)"!T(!5@'(*3KHSX$?O`"C0F]"O`#30FY";4H!R!TZZ,\HN`6H"7H<L
  2987. + M+0`$G(=J`EZ&>@$H+0`(8!PN!EZ'(BT`#.6!0>P)@M'O`""^L!@`;`@L!U*%
  2988. + MNH1MX"`&T(#0AB(`Z8&2@"`!Z8"0@>^`(B\`)-*`+T$`0"`O`$#0K0`0T*\`
  2989. + M2$S?*/S>_``D3G4@;P`$(F\`""`O``R>_`!82.<_-BI(+$U'[P`T)L`FR";)
  2990. + M+TX`,$J`9QP@"$H89OQ3B)'`+`@B"-.O`#AP,[*`91Q\,F`880#ZJBP`G(TO
  2991. + M0``X<@.\@6P&</]@``-Z+T8`+"!O`#A*$&8&</]@``-H0^\`=&$`^^8O0``X
  2992. + M9@9P_V```U0F;P`\0>P)[B)+80#WL"X`9P)"DR!O`#A*$&<``KXJ2"](`'QA
  2993. + M`/I((@"2C2]``#@O00!X=@.R@VP&</]@``,4(&\`.!`09R!R++`!9QIR.[`!
  2994. + M9Q1#[P!P80#[?B]``#AF%'#_8``"["`\___Q\-"O`'0O0`!P(&\`.!`0<BRP
  2995. + M`6<(<CNP`68``5A#Z``!($E#[P!<80#[NBI`2H!F!G#_8``"L$7M``%P++`5
  2996. + M9P9P_V```J`@2D/O`$AA`/N4+T``.&8&</]@``**(&\`.$H09P9P_V```GP@
  2997. + M2W`"(4``""%\````B``$("\`<$2`3>@'2BS`<`$LP%*&+,8@+P!T1(!-Z`=:
  2998. + M+,!"GD*>UOP`$$7H!=AZ`"P\```'LB!*+R\`="](`"P@!2(&0>\`8&$`_&8N
  2999. + M`"ZO`'0@!2(&0>\`3&$`_%183R@`2^H``D7K``B^@&\:($L@A'`!(F\`*!*`
  3000. + M)DHA1P`$)$U"*0`!8!@@2R"'(F\`*$(1)DHA1``$)$T3?``!``$@!G(#P(%F
  3001. + M#"`&<F1.NC%$2H%F$B`&<F3EB4ZZ,39*@6<$<`!@`G`!(@#E@4'L">8@,!@`
  3002. + M(@#2@=*`)@'I@Y:!)`/I@I2#[X+:@E*&#(8```?U;P#_0F```1P@;P`X2A!G
  3003. + M!G#_8``!9DJ'9P9P_V```5QX`'P`>@!"KP!$?@`J2V!P2JT'3F<^("\`1"('
  3004. + MZ8$D+P!P!H$```=*)C,8`-:"+T,`1$J&9PJP@V<&</]@``$<1((K0@=*("\`
  3005. + M+%*`*T`'4GP!8"8@!2(O`'0J+0=*VH%*A&<*L(5G!G#_8```[D2!*T$'2D*M
  3006. + M!U)X`5*'VOP`$+ZK``AMBDJ&9P1*A&8&</]@``#(?`!^`"I+*"\`1&`Z<``B
  3007. + M!P:!```%V!`S&`!(P.F`($O1P$/H!THO20!`2H9G"DJI``QF!"`$8`(@!=&M
  3008. + M`!`L*0`$4H=8C;ZK``1MP&`@<`!R`2=!``@G0``$)"\`=$2"3>L'2BS"+,`L
  3009. + MP"]``'@J;P`\+B\`+"`'4H`K0``,+"\`>&<(T(92@"M```QR,["!8P1P_V`P
  3010. + MVOP'ZB`'($TB;P`P3KHQ;"!-T<=+Z``!0A!*AF<0(`8@32)O`'Q.NC%20C5H
  3011. + M`'``3-]L_-[\`%A.=2!O``0O#2I(0>P)2")-80#T4$J`9PQ![`E((DUP`6$`
  3012. + M_`PJ7TYU+PU![`GZ3KH2"BI`2H!F!BI?8```7'`!*4`HHDH59AY"K!5&0JP5
  3013. + M2D*L')!"K!R80>P)2$/L'3`2V&;\8"P@34/L%49A`//T2H!G'G`ZL!5G$"!-
  3014. + M0^P51G``80#[JDJ`9PA![!5&80#_=BI?8`#S#G`!*4`HHD/L%4:1R&$`\[Q*
  3015. + M@&<(0>P51F$`_U1@`/+N(&\`!"`O``@B;P`,GOP`$$CG`Q0J24CO`0$`$"!O
  3016. + M`!0O4``82JPHHF8$80#_1$JL%4IG"B`O`!BPK!56;"!^`$?L%49@$%*'UOP`
  3017. + M$+ZL%4YM!'X`8#)*JP=.9NI@*GX!1^P52BPL%4I@#B`O`!BPJP`0;0A2AUB+
  3018. + MOH9M[D/L%4;3QWX`'BD%U^F'0>P<D-''+PTO2``@(!!![P`<0^P51F$``,(@
  3019. + M;P`@(B@`!"M!`"#E@4'L'3`B;P`@T>D`"$/L"50CB!@`*T@`*%A/3-\HP-[\
  3020. + M`!!.=2!O``1#[!34<`!A`/\J0>P4U"`(3G4@;P`$("\`"")O``Q(YP$4+@`F
  3021. + M22I(2JPHIF8.<`$I0"BF0>P>]&$`_CHO"R`'($U#[![T80``0EA/2H=G!D'L
  3022. + M"@)@!$'L)MXG2``H3-\H@$YU(&\`!$/L%0!P`&&N0>P5`"`(3G4@;P`$("\`
  3023. + M"")O``PO;P`0``2>_``,2.</-"X`)F\`+"I(?`!Z`"@1(`3G@"])`"#3P$7I
  3024. + M"!Y@0"]*`"0@%;"2;38@;P`DL)!F*$J$9@8@*``$;AKGA"(H``0B;P`@!H0`
  3025. + M``@:LK%(`&X$<`!@`G`!*@`L*``$8`93A%&*;+H@%2(\``%1@$ZZ+.PH`"`5
  3026. + M(CP``5&`3KHLWM*'DH8L`6`(!H8``5&`4X1*AFOT8`@$A@`!48!2A`R&``%1
  3027. + M@&SP(`8B/```#A!.NBRL)T``""`&(CP```X03KHLG"`!+T$`''(\3KHLD"=`
  3028. + M``0@+P`<<CQ.NBR")H%*A6<"4I,@!%B`<@=.NBQP)T$`&&P$7JL`&"P\```'
  3029. + MLDJ$:T`@!G(#P(%F#"`&<F1.NBQ,2H%F$B`&<F3EB4ZZ+#Y*@6<$<`!@`G`!
  3030. + M*@`B`.6!1>P)YB`R&`"X@&U`4H:8@&#`4X8@!G(#P(%F#"`&<F1.NBP*2H%F
  3031. + M$B`&<F3EB4ZZ*_Q*@6<$<`!@`G`!*@#E@$'L">;8L`@`2H1KQ@2&```';"=&
  3032. + M`!0G1``<(`70@-"%Z8!%[`F&U<!"JP`08`XB*P`0Y8&8LA@`4JL`$"(K`!#E
  3033. + M@;BR&`!LYE*$)T0`#$*K`"`G1P`D3-\L\-[\``Q.=2!O``0O#2I(("T`&"(`
  3034. + MTH'2@$'L"@;1P2`M`!`B`-*!TH!#[`H;T\$@/```!VS0K0`4+P`O%2\M``0O
  3035. + M+0`(+RT`#"\)+PA(;`I`2&P5+$ZZ,C1/[P`D0>P5+"`(*E].=2!O``0O#6$`
  3036. + M_3@@0"I?8)0@;P`$(F\`""`O``PO!RX`(!&PAVT4(@=.NBL"T9`@$2('3KHJ
  3037. + M^"*!8"I*@&HF4Y#?D6P@(!%$@"('3KHJX"(0DH!3@2"!(!%$@"('3KHJSIZ!
  3038. + M(H<N'TYU(&\`!")O``A(YP$4)DDJ2"XM`!2>JP`49BPN+0`0GJL`$&8B+BT`
  3039. + M#)ZK``QF&"XM``B>JP`(9@XN+0`$GJL`!&8$+A6>DR`'3-\H@$YU(&\`!")O
  3040. + M``@@+P`,+V\`$``$GOP`<$CG/S0N`"IO`)@O20`L0I4O2``H0^\`7'`*(MA1
  3041. + MR/_\("\`7'(^L(%L!$J`:@Y![P!@0^\`7'`\80#_%D'O`&1#[P!@<#QA`/\(
  3042. + M0>\`:$/O`&1P&&$`_OI![P!P0^\`;'`,80#^[&!,("\`<%.O`'`&@```!VLB
  3043. + M`'0#PH)F"G)D3KHIWDJ!9AH@/```!VS0KP!P<F3EB4ZZ*<A*@6<$<`!@`G`!
  3044. + M(@#E@4'L">8@,!@`T:\`:"`O`&AOKBP\```';-RO`'`@!G(#P(%F#"`&<F1.
  3045. + MNBF.2H%F$B`&<F3EB4ZZ*8!*@6<$<`!@`G`!)"\`;.6")@#6@]:`Z8-![`F&
  3046. + MT<,L,"@`("\`:+"&;QI'[P!HG9M2DPR;````#&V>0J\`;%*O`'!@E"`O`%Q"
  3047. + MKP!<>@!R`2]!`(@O0``D4H4@+P"(T(`O0`"(("\`B&[N("\`B&H$<`!@!'`!
  3048. + MZZ`O0`"(2&\`,"\'2&\`D"!O`#A.D$'O`#Q#[P!H80#^+$_O``PH`&<N(`53
  3049. + MA4J`:@9P_V```1!*A6H&4Z\`B&#$<`'KH"P`2H1O!IVO`(A@M-VO`(A@KB`O
  3050. + M`'QK``#$(B\`4+*`9P``ND'Z^>(B;P`LL\AF!D'L%49@!$'L'O1\`"9(+T@`
  3051. + MD&```(@@*P=.L*\`?&9V>@`D;P"08&0@*@=.L*\`?&=4(`7I@"(O`(@@;P"0
  3052. + M!H````=*TK`(`)*K!THO00",2&\`,"\'2&\`E"!O`#A.D$'O`#Q#[P!H80#]
  3053. + M;$_O``Q*@&82("\`4+"O`'QF""]O`(P`B&`F4H74_``0(&\`D+JH``AMDE*&
  3054. + MUOP`$"!O`)"\J``(;0#_<'#_8"0@+P`DT:\`B"\O`"@O!TAO`)`@;P`X3I!P
  3055. + M`2J`3^\`#"`O`(A,WRS\WOP`<$YU(&\`!")O``@@+P`,GOP`#$CG!S0N`"I(
  3056. + M+TD`&`RM`````0`@;P9P`2M``"!(;P`<(`<@36$`_1Y83RP`2J\`'&8&("T`
  3057. + M(&H&(`9@``#&0?KXKB)O`!BSR&8&0>P51F`$0>P>]'P`)D@O2``@8```EB`K
  3058. + M!TZPK0`@9@``A'H`)&\`(&!P("T`("(J!TZR@&=>(`7I@"(5(&\`(`:````'
  3059. + M2M*P"`"2JP=**H%*K0`@5\!$`$B`2,`K0``@2&\`'"`'($TB;P`<80#\C%A/
  3060. + M2J\`'&9`(!60J@=*T*L'2BJ`2JT`(%?`1`!(@$C`*T``(%*%U/P`$"!O`""Z
  3061. + MJ``(;892AM;\`!`@;P`@O*@`"&T`_V)P_TS?+.#>_``,3G4@;P`$+PU#^O?:
  3062. + M<``J7V``_N!*K"BB9@1A`/<L3G4``)[\``Q(UP$#</_>_``,3G513TC7`P!0
  3063. + M3TYU2.<P`B(02B@`#6<$<`!@'"0))@`L;"H43J[_UB(`4H!F"$ZZ"MAP_V`"
  3064. + M(`%,WT`,3G513TCG/S8N`"I))D@L$R]&`"@O2``L2BL`#6<&<`!@``",2BL`
  3065. + M#&=F)DW7QWH`8%@D36`"4HJURV0&<`JP$F;TM\IF!"@*8`9!Z@`!*`B8C2(O
  3066. + M`"@D#28$+&PJ%$ZN_]`L`%*`9@A.N@IB</]@/MJ&MH9F-DOJ``&>AG``3KK<
  3067. + M/$ZZW&Q*@&8B2H=FI&`<(@8D#28'+&PJ%$ZN_]`J`%*`9@A.N@HF</]@`B`%
  3068. + M3-]L_%!/3G593TCG/P(N`"P0+T$`'$HH``UG!'``8%)3@28!(@8D!RQL*A1.
  3069. + MKO^^*@!.KO]\*`!2A6<$2H1G#B`$3KH(X"E`*:QP_V`D(@9T`"8"3J[_OBP`
  3070. + M4H!G!$J$9PX@!$ZZ"+XI0"FL</]@`B`&3-]`_%A/3G6>_`$`2.<_!BX`*D@L
  3071. + M%2HM``@@+0`$9PHB`"QL*A1.KO^F&"T`#4B$2,0@34ZZ)W!*A&<$<`!@1"(&
  3072. + M0>\`("0(+&PJ%'9`Y8M.KOYH*`!*AV8*(@9.KO_<2H!G&DJ$9Q)P_[J`9PPB
  3073. + M`B0%3J[_1DJ`9P1P`&`&3KH)+'#_3-]@_-[\`0!.=2`O``1(YR`"(@`L;"H4
  3074. + M=`!.KO\T3J[_?'0N1@*P@E?!1`%(@4C!(`%,WT`$3G4@+P`$(&\`"")O``R>
  3075. + M_``02.<W%BX`)DDJ2'P`8;A*@&9\(@<L;"H4=`%.KOY62H!G;"('0>P*:"0(
  3076. + M=@1.KO_068!F4B(')#P``"<03J[_-$J`9T(B!T'O`"`D"'803J[_UG()L(%O
  3077. + M+G";L"\`(&8F0>\`)2(()`M.KOS0*@!![P`FT<`B""0-3J[\T%*`9P92A6<"
  3078. + M?`$B!W0`3J[^5B`&3-]H[-[\`!!.=2`O``0B+P`(GOP"$$CG/P8N`'#_+T`"
  3079. + M*"]!`"0B!RQL*A1T`'8!3J[_OB]``"`B!TZN_[XL`$ZN_WPJ`"]``BQF``#"
  3080. + M*"\`)"(')`1V_TZN_CBP@F8``*Z\@FP``)XJ!)J&*`4@!'(!2$$L>``$3J[_
  3081. + M.BI`2H!F:G("2$%.KO\HXH@J``R%```"`&T0(`5R`4A!3J[_.BI`2H!F1GI`
  3082. + MYXU+[P`H,#P!_W(`0>\`*!#!4<C__&`LN(5O!"`%8`(@!"8`3KK:#B(')`TL
  3083. + M;"H43J[_T+"#9PI.KO]\+T`"+&`&F(-*A&[00>\`*+'-9PPB32`%+'@`!$ZN
  3084. + M_RXJ+P(L9@1"KP(H+"\`(+RO`"1L#B(')`8L;"H4=O].KO^^+"\"*&<*(`5.
  3085. + MN@8F*4`IK"`&3-]@_-[\`A!.=9[\`0A(YS<6+@`F22I(+!5*+0`-9@`!&"`'
  3086. + M!(````0`9R`$@```!`!G2E.`9UA3@&=<4X!G7E.`9V93@&=L8```[DHM``QG
  3087. + M)B`&0>\!)$/O`2!A`/W62H!G%"`O`20W0``"("\!(#:`<`!@``#*<!E@``"^
  3088. + M(@8L;"H43J[_*":`<`!@``"R)H9P`&```*IP`&```*0@!B(380#^-F```)@K
  3089. + M4P`(<`!@``".*A-*K0`$9@XB%2QL*A1.KOZ,*T``!"`M``1G8B0`(@4L;"H4
  3090. + M3J[^7$J`9E(B!D'O`"`D"'9`Y8M.KOYH2H!G/B(%3J[_IB(M``1.KO^F(@9.
  3091. + MKO_<(@)T`$ZN_T8;?``!``TJ@BM"``1![P`@(@@L;"H43J[_N$J`9P0@`F`.
  3092. + M3KH%Y&`&<!8I0"FL</],WVCLWOP!"$YU("\`!"(O``@O;P`,``1(YP\&*B\`
  3093. + M'"P!+@!P#DZZ)18J0$J`9@IP#"E`*:QP_V!.0]4BQT*9(L9"+0`-(@<L;"H4
  3094. + M3J[_*!M```Q(>OYT2'K[VDAZ^V1(>OJL2'KZ=DAZ^F@@!2!-0_KZ4$ZZT=Q/
  3095. + M[P`8*`!L!B!-3KHC3B`$3-]@\$YU("\`!"(O``@O;P`,``0O;P`0``@O;P`4
  3096. + M``PO;P`8`!!(YPT`*"\`%"HO`!`N`'``2H%F!'!`Y8@`0``!+P`@!W+_80#_
  3097. + M1EA/2H!F0'``2H1F!'!`Y8@`0``"+P`@!7+_80#_*%A/4X!F(G``2J\`'&8$
  3098. + M<$#EB`!```(O`"`O`!QR_V$`_P983U6`9Q!![`IN+T@`$$S?`+!.^L[@3-\`
  3099. + ML$YU```@;P`$(F\`""]O``P`!"`O`!`O;P`4``A(YP<T+@`D;P`@)DDJ2"PK
  3100. + M`'0DKP`<0JH`$G`!-4``#D)J`!`E?````@``,C5```PE:P"``#8@*P!\9A`B
  3101. + M*P`$;PHE?```"```%F`$)4``%B53``1!ZP"$3KK2?B5``"(E0``:)4``*B`K
  3102. + M``1:@&<^58!G4%F`9T!5@&9F(`UG'$AX`/](;"BL+PU.NM+`3^\`#"H`;P8E
  3103. + M10`68`@E?````0``%B5\``"@```(8$HE?```$```"&!`)7P``$````A\`&`T
  3104. + M2I-F$$HK``AF"B5\```@```(8"`E?```@```"&`6("L`!&\&<$#AB&`&(#P`
  3105. + M`(``)4``"$J'9P)\`"`&3KK?7(&J``A,WRS@3G4@;P`$(F\`"%E/2.<C%BI(
  3106. + M?@`O20`80J<L;"H4<@(D#TZN_QQ/[P`$)D!*@&=0(@UT_DZN_ZPN`&=$(@<D
  3107. + M"TZN_YI*@&<X(@=.KO\N2H!7QD0&2(9(QDJ`9P8B`$ZN_Z8@!^6`+R\`&"!`
  3108. + M+R@`#")"(`8@36$`_GQ03WP`8`Y\_TZN_WQ.N@(`*4`IK$J'9P8B!TZN_Z8@
  3109. + M"V<()`MR`DZN_Q8@!DS?:,183TYU```@+P`$64\O!RX`3KK54DAO``1(>`@`
  3110. + M+P=.NM]63^\`#$J`9P1P`&`$("\`!"X?6$].=0``("\`!"!O``@B+P`,64](
  3111. + MYP,T+`$N`"I(3KK5$"`'3KK0%"9`2H!G1`@K``$``V<V""L``P`#9Q8@:P`8
  3112. + M+T@`%"!K``1P`'("(F\`%$Z1(&L`%"](`!0@!B!K``0B321O`!1.DF`(<`TI
  3113. + M0"FL</],WRS`6$].=2`O``0@;P`((B\`#$CG`P1,WR#`8(`@;P`$44\O#2I(
  3114. + M0>\`!$ZZS]A*@&H$</]@#B`-9P8@+P`$*H`@+P`$*E]03TYU```@;P`$GOP`
  3115. + M0$CG.Q8J2$ZZU%X@#6=22A5G3B(-0>\`("0(+&PJ%'9`>`!.KOQV+@!M-DZN
  3116. + M_WPL`%*`3KHA#"9`2H!G)+Z&9Q0F!E*#(@TD"TZN_'9*@&\0(`)@#B!"(DL2
  3117. + MV&;\(`M@`G``3-]HW-[\`$!.=2`O``0@;P`((B\`#%E/2.<#-"P!+@`J2$ZZ
  3118. + MT^`@!TZZSN0F0$J`9R8(*P````-G&"!K`!`O2``4(`8@:P`$(DTD;P`43I)@
  3119. + M"'`-*4`IK'#_3-\LP%A/3G4@+P`$(&\`""(O``Q(YP,$3-\@P&">```@+P`$
  3120. + M*4`1I$J`9P``AG)GD(%G``""58!G``"`<@F0@6=\4X!G>%.`9W13@&=P4X!G
  3121. + M;%.`9VA3@&=H4X!G:')1D(%G9E.`9V93@&=F4X!G9E.`9V93@&=F58!G9E.`
  3122. + M9V93@&=F4X!G9E6`9V93@&=F4X!G9E.`9V93@&=F4X!G9E6`9V93@&=F4X!G
  3123. + M9E.`9V9@:'``8&9P#&!B<`M@7G`68%IP!V!6<`A@4G`08$YP$6!*<`)@1G`"
  3124. + M8$)P%F`^<`=@.G`68#9P)&`R<!9@+G`68"IP'F`F<!)@(G`E8!YP)F`:<!-@
  3125. + M%G`68!)P'&`.<`U@"G`-8`9P#6`"</].=2\.+&PJ%$ZN_WQA`/[Z*4`IK"Q?
  3126. + M3G4@;P`$2.<`!BI((DTL>``$3J[_!"!-3-]@`$[Z'<@@+P`$2.<!!"X`*FPI
  3127. + MN&`.("T`#+"'9@0@#6`(*E5*E6;N<`!,WR"`3G5(YR`"0>PIN$ZZ*[(@+!2P
  3128. + M(BP4O"0`LX("@@!___\I0BFT4H(I0BFP+P$O`$AL#@!(;"G$3KK"PD_O`!`L
  3129. + M>``$3J[]9BE`*>AG$$'L*<1P`$ZZ*\8I0"GD9@I(;`X.3KK)<EA/3-]`!$YU
  3130. + M2.<`!B`L*>AG"B!`+'@`!$ZN_6!*K"GD9S@L>``$3J[_?&`,(DUP'"QX``1.
  3131. + MKO\N(&PIY"QX``1.KOZ,*D!*@&;B(&PIY$ZZ*QXL>``$3J[_=DS?8`!.=0``
  3132. + M(&\`!"`O``@B+P`,(F\`$"]O`!0`!"]O`!@`"%E/2.</-B@O`"PJ+P`H+`$N
  3133. + M`"I)+T@`("QX``1.KOUF)D!*@&<P($L@!$ZN_7(D0$J`9R(@#6<()4T`*"5%
  3134. + M`"0@;P`@(`<B2B(&3J[^1$H`9@0@"F`6(`IG!B!*3J[];"`+9P8@2TZZ*HAP
  3135. + M`$S?;/!83TYU(&\`!$CG``8J2"`-9Q@B32QX``1.KOX^(&T`#DZZ*EX@34ZN
  3136. + M_6Q,WV``3G4@#Y!\`!RPK!&@90`:<)[\`!!(YR<4+B\`-"IO`#`O;P`L`"0O
  3137. + M30`@8``%C@@'``1G,A`O`!E(@$C`1^P/Z=?`"!,``&<>"!,``&<.$"\`&4B`
  3138. + M2,!R(-"!8!(0+P`92(!(P&`($"\`&4B`2,`L`!`&2(!(P'(JD(%G``$(<A60
  3139. + M@6<0<AR0@6<``EA3@&=*8``$TB!O`"`0$&<`!4X(!P``9PH0$'(OL`%G``4^
  3140. + M"`<``F<`!0)P+K`09@`$^K'-9P`%*`@'``!G``3L<"^P*/__9@`$XF``!1((
  3141. + M!P`!9DP@;P`D$!@?0``8+T@`)`@'``1G+DB`2,!'[`_IU\`($P``9QX($P``
  3142. + M9PX0+P`82(!(P'(@T(%@$A`O`!A(@$C`8`@0+P`82(!(P"P`"`<`!&<X(&\`
  3143. + M(!`02(!(P$?L#^G7P`@3``!G(@@3``!G$"!O`"`0$$B`2,!R(-"!8!8@;P`@
  3144. + M$!!(@$C`8`H@;P`@$!!(@$C`$@9(@4C!L(%G``0X8``$:`@'``)G('`N(&\`
  3145. + M(+`09A:QS6<`!%((!P``9PIP+[`H__]G``1"(&\`)!P88"X(!P``9PX@;P`@
  3146. + M$!!R+[`!9P`$)G`_O`!F"B!O`"!*$&<`!!8@;P`D'!A2KP`@+T@`)'`_O`!G
  3147. + MR'`JO`!GPDH&9@9P`&```_0(!P`!9@YP7+P`9@@@;P`D$!!@`A`&2(!(P!]`
  3148. + M`!@(!P`$9RY(@$C`2^P/Z=O`"!4``&<>"!4``&<.$"\`&$B`2,!R(-"!8!(0
  3149. + M+P`82(!(P&`($"\`&$B`2,`J;P`D4XT?0``88'9P6[P`9TP(!P`$9S`@;P`@
  3150. + M$!!(@$C`1^P/Z=?`"!,``&<:"!,``&<,$!!(@$C`<B#0@6`2$!!(@$C`8`H@
  3151. + M;P`@$!!(@$C`$B\`&$B!2,&P@68@(`<"0/_[+P`O+P`D+PUA`/U`3^\`#$J`
  3152. + M9@9P`&```QQ2KP`@(&\`($H09H)@``,*(&\`(!`09P`#``@'``)G''`NL!!F
  3153. + M%K'-9P`"[@@'``!G"G`OL"C__V<``MX@;P`D$!!R(;`!9PIR7K`!9P1P`&`"
  3154. + M<`$J`&<$4J\`)"!O`"0<&"](`"0?1@`?"`<``684<%R\`&8.(&\`)!(8'T$`
  3155. + M'R](`"0(!P`$9S(0+P`?2(!(P$?L#^G7P`@3``!G'@@3``!G#A`O`!](@$C`
  3156. + M<B#0@6`2$"\`'TB`2,!@"!`O`!](@$C`'T``&A]``!Y*!F<``D@@;P`D$!@?
  3157. + M0``8+T@`)`@'``1G+DB`2,!'[`_IU\`($P``9QX($P``9PX0+P`82(!(P'(@
  3158. + MT(%@$A`O`!A(@$C`8`@0+P`82(!(P"P`"`<``&<(<"^\`&<``>YP+;P`9GAP
  3159. + M7;`09W(2&!]!`!XO2``D"`<``680=%RR`F8*%!@?0@`>+T@`)!(O`!YG``&Z
  3160. + M"`<`!&<N2(%(P4?L#^G7P0@3``!G'@@3``!G#A`O`!Y(@$C`<B#0@6`2$"\`
  3161. + M'DB`2,!@"!`O`!Y(@$C`(&\`)!P8'T``'B](`"0(!P`$9S@@;P`@$!!(@$C`
  3162. + M1^P/Z=?`"!,``&<B"!,``&<0(F\`(!`12(!(P'(@T(%@%B)O`"`0$4B`2,!@
  3163. + M"B!O`"`0$$B`2,`2+P`:2(%(P;"!;50(!P`$9S@@;P`@$!!(@$C`1^P/Z=?`
  3164. + M"!,``&<B"!,``&<0(&\`(!`02(!(P'(@T(%@%B!O`"`0$$B`2,!@"B!O`"`0
  3165. + M$$B`2,`2+P`>2(%(P;"!;S)P7;P`9@#^#DJ%9@``AF```+9*!F<``+`@;P`D
  3166. + M'!@O2``D"`<``68*<%R\`&8$4J\`)'!=O`!FVDJ%9U9@``"("`<`!&<X(&\`
  3167. + M(!`02(!(P$?L#^G7P`@3``!G(@@3``!G$"!O`"`0$$B`2,!R(-"!8!8@;P`@
  3168. + M$!!(@$C`8`H@;P`@$!!(@$C`$@9(@4C!LH!F-%*O`"`@;P`D$!@?0``9+T@`
  3169. + M)$H`9@#Z8B!O`"`0$&8$<`!@$@@'``-G"G`OL!!F!'``8`)P`4S?*.3>_``0
  3170. + M3G4@#U%`L*P1H&4`%'XO#2IO``@@34H89OQ3B)'-(`A2@"\`3KH`$")`$MUF
  3171. + M_%A/*E].=0``(`^0?``,L*P1H&4`%$@O#2`O``@O`$ZZ%T183RI`2H!F$DAL
  3172. + M#AA"ITAX``).N@R^3^\`#"`-*E].=2`/D'P`#+"L$:!E`!0.2.<!%"XO`!0F
  3173. + M;P`0(`MF"B]'`!!,WRB`8)Y*AV8,+PM.NA6&6$]P`&`D+P<O"TZZ%/!03R9`
  3174. + M2H!F$DAL#C)"ITAX``).N@Q>3^\`#"`+3-\H@$YU(`^0?``@L*P1H&4`$ZR>
  3175. + M_``42.<!%#XO`"8J;"GL8!`P%;!'9@8@+0`"8&(J;0`&(`UF['``,`<O`$ZZ
  3176. + MQ;0J0$AX``I.NO\>4$\F0"!`,(<@#68@<``P!R\`2&P.3$AO`!1.NAE82&\`
  3177. + M&$ZZ_L1/[P`08`@O%4ZZ_KA83R=```(G;"GL``8I2RGL("L``DS?*(#>_``4
  3178. + M3G4@#U%`L*P1H&4`$Q9(YP`T*F\`$"9L*>Q@("!K``(0$+`59A(B31`8L!EF
  3179. + M"DH`9O9F!"`+8&XF:P`&(`MFW"9L*?!@'"!K``(0$+`59@XB31`8L!EF!DH`
  3180. + M9O9G1B9K``8@"V;@+PU.NL4")D!(>``*3KK^6B1`+HU.NOX>4$\E0``"(`MG
  3181. + M$C2K``A+["GL)54`!BJ*(!U@#"5L*?``!BE**?!P`$S?+`!.=2`/D'P`(+"L
  3182. + M$:!E`!)JGOP`%$CG`10^+P`F*FPI]&`0,!6P1V8&("T``F!B*FT`!B`-9NQP
  3183. + M`#`'+P!.NL7V*D!(>``*3KK]W%!/)D`@0#"'(`UF('``,`<O`$AL#E!(;P`4
  3184. + M3KH8%DAO`!A.NOV"3^\`$&`(+Q5.NOUV6$\G0``")VPI]``&*4LI]"`K``),
  3185. + MWRB`WOP`%$YU(`]10+"L$:!E`!'42.<`-"IO`!`F;"GT8"`@:P`"$!"P%682
  3186. + M(DT0&+`99@I*`&;V9@0@"V!N)FL`!B`+9MPF;"GX8!P@:P`"$!"P%68.(DT0
  3187. + M&+`99@9*`&;V9T8F:P`&(`MFX"\-3KK%1"9`2'@`"DZZ_1@D0"Z-3KK\W%!/
  3188. + M)4```B`+9Q(TJP`(2^PI]"55``8JBB`=8`PE;"GX``8I2BGX<`!,WRP`3G4@
  3189. + M#Y!\`!BPK!&@90`1*"`O``0@;P`,(F\`"$*G+R\`&"\O`!@O""\)+P!.N@$Z
  3190. + M3^\`&$YU(`^0?``8L*P1H&4`$/0@+P`$(&\`#")O``A(>``!+R\`&"\O`!@O
  3191. + M""\)+P!.N@$$3^\`&$YU``"_[!&@90`0PDCG`00N+P`0*F\`#&`0$!5(@$C`
  3192. + ML(=F!"`-8`A2C4H59NQP`$S?((!.=;_L$:!E`!"02.<#%"XO`!PF;P`8*F\`
  3193. + M%'P`8`@7M6@`:`!2AKR';?1,WRC`3G4@#Y!\``RPK!&@90`07$CG`10J;P`0
  3194. + M+BPJ")ZL*@3EAR\'3KK#?B9`(BPJ!.6!($W1P2Z'+P`O"&&8("PJ""(`Y8$@
  3195. + M3='!(BPJ!.6!(DW3P2(L#EB2@.6!+H$O"2\(80#_<B(L*@32K`Y8DJPJ".6!
  3196. + MV\$NAR\-+PMA`/]8("P.6$OL*@0B'=*`DI5/[P`<*L`I02H$3-\H@$YU(`^0
  3197. + M?``DL*P1H&4`#\*>_``02.<_-"IO`$@D;P!$0JP.5$JL#EAF5'`!*4`.6$*L
  3198. + M*?PI0"H$*4`J""!O`$`2$'0ML@)F#'0"*4(J`%*O`$!@*G0KL@)F"D*L*@!2
  3199. + MKP!`8!I(;`YD3KH4QEA/2H!G!D*L*@!@!G`!*4`J`"XO`#A*K"G\9PH@;"G\
  3200. + M2A!F``$P<`&PK"H`9EP@+"H((BPJ!+*`9Q*PK`Y89PPO+P`\80#^MEA/8`PB
  3201. + M+`Y8L(%G!"E!*@0B+`Y8Y8$F;P`\U\%@!E*L#EA8BR`L#EBPAVP.(E-P+;`1
  3202. + M9NI**0`!9^0@+`Y8*4`J""`L#EB^@&=0Y8!(;`YT(&\`0"\P"`!.N@].4$]*
  3203. + M@&8X4JP.6"`L*@@B+"H$LH!G$K"L#EAG#"\O`#QA`/XV6$]@#+*`9@@@+`Y8
  3204. + M*4`J!"`'*4`.6"E`*@@@+`Y8L(=F%B`L*@0B+"H(LH!G!"E`#EAP_V``!$0B
  3205. + M+`Y8Y8$@;P`\)G`8`!03=BVT`V8*(G`8`$HI``%F'$JL*@!F!G#_8``$&%*L
  3206. + M#E@I<!@`#E1P`6``!`A2BR`*9PBV$V8$<`%@`G``(DO3P"E)*?P@"F<``L8B
  3207. + M+`Y8Y8$@;P`\('`8`'`ML!!F``*PL"@``6<(2J\`3&<``J(F;"G\0J\`+'P`
  3208. + M0J\`*&`"4HL0$V<&<CVP`6;T+TH`,'H`8&(@"Y"L*?PO`"\L*?P@;P`X+Q!.
  3209. + MN@X*3^\`#$J`9CPN"YZL*?P@;P`P+Q!.N@VF6$^^@&82(&\`,"@%<`$O0``L
  3210. + M+T@`*&`D2J\`*&8,(&\`,"@%+T@`*&`"?`%P$-&O`#!2A2!O`#!*D&:62H9G
  3211. + M1$JO`"QF/DJL#EQG("(L#ECE@2!O`#PO,!@`+Q!(;`YX2&P1-$ZZ$Z!/[P`0
  3212. + M+RPI_$ZZ#3+1K"G\4JP.6%A/<#]@``+P+B\`.$JO`"AG``$F4JP.6$H39W@@
  3213. + M;P`H2J@`!&<,0^L``2E)#E1@``#02JP.7&=((BP.6.6!(F\`/"1Q&/QP+;`J
  3214. + M``%F%B\0+Q%(;`Z62&P1-$ZZ$RY/[P`08!P0$DB`2,`O$"\`+Q%(;`[$2&P1
  3215. + M-$ZZ$Q!/[P`4+RPI_$ZZ#*+1K"G\6$]P/V```F1P`2!O`"BPJ``$9F`B+`Y8
  3216. + MLH=L$E*L#ECE@2!O`#PI<!@`#E1@1DJL#EQG'.6!(&\`/"\P&/PO$$AL#O)(
  3217. + M;!$T3KH2M$_O`!`O+"G\3KH,1EA/T:PI_'`Z(&\`0+`09@9P.F```?YP/V``
  3218. + M`?@O+"G\3KH,(EA/T:PI_"`-9P(JA"!O`"@@*``(9PXB*``,($`@@7``8``!
  3219. + MS"!O`"@@*``,8``!P$JO`$QG,"(L#ECE@2!O`#P@<!@`<"VP*``!9QH@;"G\
  3220. + M$!!(@$C`+P`O+P!$80#ZZE!/2H!F9$JL#EQG3"(L#ECE@2!O`#PD<!@`<"VP
  3221. + M*@`!9A@O+"G\+Q!(;`\82&P1-$ZZ$?!/[P`08!X0$DB`2,`O+"G\+P`O$$AL
  3222. + M#SA(;!$T3KH1T$_O`!1![`]84JP.6"E(*?QP/V```29+["G\(%40&"J('T``
  3223. + M)TB`2,`O`"\O`$0JR&$`^F)03R1`(&PI_$H09@12K`Y8(`IG"A`O`"=R.K`!
  3224. + M9CA*K`Y<9R`0+P`G2(!(P"\`(&\`0"\02&P/6DAL$31.NA%<3^\`$!`O`"=(
  3225. + M@$C`*4`.8'`_8```LG`ZL"H``68``*"P*@`"9AX@;"G\$!!G"BE(#E12K`Y8
  3226. + M8`1"K`Y4D\DI22G\8'H@;"G\2A!G"BE(#E12K`Y88&0@+`Y8L(=F2DJL#EQG
  3227. + M(!`O`"=(@$C`+P`@;P!`+Q!(;`]T2&P1-$ZZ$-Q/[P`0$"\`)TB`2,`I0`Y@
  3228. + M<#H@;P!`L!!F!A]``"=@&G`_'T``)V`24JP.6"(`Y8$@;P`\*7`8``Y40JPI
  3229. + M_!`O`"=(@$C`3-\L_-[\`!!.=2`/D'P`&+"L$:!E``H,("\`!"!O``PB;P`(
  3230. + M0J="IT*G+P@O"2\`80#Z(D_O`!A.=2`/44"PK!&@90`)WDCG`!0@;P`0(F\`
  3231. + M#"`I``@O0``,+T@`$$S?*`!@```"(`]10+"L$:!E``FR2.<!!#XO``XJ;P`0
  3232. + M<``P!R\`80``[%A/&H!*K!309P``B@@'``=G!'!H8`)P+1M```$(!P`&9P1P
  3233. + M<V`"<"T;0``""`<`!6<$<'!@`G`M&T```P@'``1G!'!A8`)P+1M```0(!P`#
  3234. + M9P1P+6`"<'(;0``%"`<``F<$<"U@`G!W&T``!@@'``%G!'`M8`)P91M```<(
  3235. + M!P``9P1P+6`"<&0;0``(&WP`(``)8%`P!P)``<!R`#(`2&T``2\!80``KC`'
  3236. + M`D``.$C`YX!![0`$+H@O`&$``)@P!P)```=(P.V`0>T`!RZ(+P!A``""<``P
  3237. + M!RZ-+P!A``"^3^\`%$S?((!.=;_L$:!E``BJ("\`!`*```#P``R```!@`&8$
  3238. + M<&)@2@R````@`&8$<&-@/@R```!``&8$<&1@,@R```"``&8$<"U@)@R````0
  3239. + M`&8$<'!@&@R```"@`&8$<&Q@#@R```#``&8$<'-@`G`_3G6_[!&@90`(0$CG
  3240. + M`00^+P`.*F\`$`@'``AG!'!R8`)P+1J`"`<`!V<$<'=@`G`M&T```0@'``9G
  3241. + M!'!X8`)P+1M```),WR"`3G6_[!&@90`'^$CG`00^+P`.*F\`$`@'``MG$G!X
  3242. + ML"T``V<$<E-@`G)S&T$``P@'``IG%G!XL"T`!F<(&WP`4P`&8`8;?`!S``8(
  3243. + M!P`)9Q9P>+`M``EG"!M\`%0`"6`&&WP`=``)3-\@@$YUO^P1H&4`!XXO!RXO
  3244. + M``AO$KZL#?IN#.6'0>P-7B`P>`!@!D'L#YP@""X?3G4@#Y!\`"BPK!&@90`'
  3245. + M7$CG`Q0L+P`8+B\`%"9O`"`J;P`<+RP1[$AL#[)(;!$T3KH-JBZO`$@O+P!$
  3246. + M+R\`1"\O`$0O+P!$+R\`1"\O`$0O"R\-2&P1-$ZZ#8)/[P`P2H9G&"\&80#_
  3247. + M;BZ`2&P/N$AL$31.N@UF3^\`#`@L``$13V="4JP10"`L$4"PK!%(;B`@;!$X
  3248. + M4JP1.!"\``H(+``&$4]G+DAL$31.NA#R6$]@(E.L$4!(;!$T2'@`"DZZ#BY0
  3249. + M3V`.2&P1-$AX``I.N@X>4$](;!$T3KH0Q%A/2H=G""\'3KH,(%A/3-\HP$YU
  3250. + M```@#Y!\``RPK!&@90`&;$CG#Q0J;P`<?O]\`"\-3KH&:EA/*@!X`"9O`"!@
  3251. + M,B\%+PTO$TZZ!J!/[P`,2H!F'"\33KH&1EA/L(5F!"`$8!X@!U*`9@0N!&`"
  3252. + M?`%2A%B+2I-FRDJ&9P1P_F`"(`=,WRCP3G4@#Y!\`!"PK!&@90`%^DCG`10N
  3253. + M+P`8)F\`%"IO`!`O+!'L2&P/P$AL$31.N@Q,3^\`#%*'9@Y(;`_&2&P1-$ZZ
  3254. + M##A@#$AL#\Y(;!$T3KH,*E!/+PLO#4AL#]A(;!$T3KH,&$_O`!!,WRB`3G4`
  3255. + M`%E/0?D`````+HAG""!Y_____$Z06$].=5E/0?D`````+HAG""!Y_____$Z0
  3256. + M6$].=4CG`P0J;P`0($U*&&;\4XB1S2X(8`H@!D'L$1).N@S6?``<'4J&9NY!
  3257. + M[!$23KH/<B`'3-\@P$YUGOP`$$CG!Q1^`$OO`"Q@``":<"6P+P`49@``@"!O
  3258. + M`"A2KP`H$!!R`!(`'T``%7!DDH!G.G`,DH!G#E>!9P9;@6<&8$0F76`T+!U'
  3259. + M[P`>>@<@!G(/P(%!^@!XT<`6D%.+Z(93A4J%:NA"+P`?8`H@'4'O`!=.N@(:
  3260. + M1^\`%R\+3KK_2%A/WH!@(E*'<``0+P`50>P1$DZZ#"9@$%*'<``0+P`40>P1
  3261. + M$DZZ#!0@;P`H4J\`*!`0'T``%&8`_UA![!$23KH.IB`'3-\HX-[\`!!.=3`Q
  3262. + M,C,T-38W.#E!0D-$148`````2.<#%RIL*@Q@%"95<!30K0`$(DTL>``$3J[_
  3263. + M+BI+(`UFZ$*L*@Q@3"IL*AAPG-"L$:`F0"`M``0I0"H8*6T`"!&@+BT`&$J`
  3264. + M9AX@;!'$#&@`)``491(@3RP(0>T`#"QX``1.KOTD+D8B2R`'+'@`!$ZN_RY*
  3265. + MK"H89JY,W^C`3G4@;P`$(F\`""!0(E$0&+`99@1*`&;VD"%(@$C`3G4@;P`$
  3266. + M("\`"$/Z_^!R!$[Z""H@;P`$(F\`""`O``Q*@&\*$A`0T1+!4X!F]DYU(&\`
  3267. + M!")O``AP`'(`$!@2&0P``&%M"@P``'IN!`0``"`,`0!A;0H,`0!Z;@0$`0`@
  3268. + MD(%F!$H!9M1.=0``("\`""!O``1.5?_T(D]R"DZZ`G`&00`P$L%*@&;P(`D0
  3269. + MX;_)9OI"$)"/3EU.=0``("\`""!O``1.5?_T(D\B``)!``<&00`P$L'FB&;P
  3270. + M(`D0X;_)9OI"$)"/3EU.=0``,#$R,S0U-C<X.6%B8V1E9B`O``@@;P`$44\B
  3271. + M3S(``D$`#Q+[$-SHB&;R(`D0X;_)9OI"$)")4$].=0``("\`""!O``0O"$J`
  3272. + M3E7_]")/;`80_``M1(!R"DZZ`<@&00`P$L%*@&;P$.&_R6;Z0A`@"$Y=D)].
  3273. + M=0``(&\`!")O``A(YS`@)$AR`"`!)@$,$``K9P@,$``M9@1V`5)($!@$```P
  3274. + M;1H,```);A0D`>6!TH+2@4H#9@32@&#BDH!@WB*!(`B0BE.`3-\$#$YU(&\`
  3275. + M!"\-*D@(+0`#`!MF,"`L$5A.N@4.*T``!"M``!!F"G`,*4`IK'#_8!8K;!%8
  3276. + M`!1P\\&M`!A"K0`,0JT`"'``*E].=0``(&\`!$CG(!0J2"9-8"!P`!`30>P/
  3277. + MZ0@P``$(`&<*<@`2`'0@DH)@!'(`$@`6P4H39MP@#4S?*`1.=0``GOP`4$CG
  3278. + M,39#^@"$<``L>``$3J[]V"I`2H!F!G`43KK!BGX`(&P1T!XH__\@!T/O`!Q@
  3279. + M`A+84X!D^D(W>!Q![P`<*4@1:$/L$7!'[!&$+$V1R)7*<``B`'1]U()V*$ZN
  3280. + M_J1P%$ZZP41,WVR,WOP`4$YU*BH@4W1A8VL@3W9E<F9L;W<@*BH``$58250`
  3281. + M`&EN='5I=&EO;BYL:6)R87)Y`$J`:@``'D2`2H%J```,1(%A```@1(%.=6$`
  3282. + M`!A$@$2!3G5*@6H```Q$@6$```9$@$YU+P)(030!9@``(DA`2$%(0C0`9P``
  3283. + M!H3!,`)(0#0`A,$P`DA",@(D'TYU+P-V$`Q!`(!D```&X9E10PQ!"`!D```&
  3284. + MZ9E90PQ!(`!D```&Y9E50TI!:P``!N.94T,T`.:H2$)"0N:J2$.`P38`,`(T
  3285. + M`TA!Q,&0@F0```930]"!<@`R`TA#Y[A(0,%!)A\D'TYU``!(YW``)`!G($J!
  3286. + M9@1"@&`8)@#&P4A"Q,%(0D)"UH)(0<#!2$!"0-"#3-\`#DYU```@+!',!$`!
  3287. + M]"Y`3OK^8```(&\`!"`(2AAF_%-(D<`@"$YU```@;P`$("\`"")\`````$H0
  3288. + M9PJP&&;X0^C__V#R(`E.=2!O``0@+P`(L!!G"$H89OAP`$YU(`A.=2!O``0B
  3289. + M;P`(("\`#$J`9Q!3@!(8LAEF#$H!9P13@&KR<`!.=6X$</].=7`!3G4``"!O
  3290. + M``0B;P`($ABR&68(2@%F]G``3G5N!'#_3G5P`4YU(F\`""!O``0@"$H89OQ3
  3291. + MB!#99OQ.=0``(F\`""!O``0@+P`,(@A@!!#99PA3@&3X8`9"&%.`9/H@`4YU
  3292. + M(F\`""!O``0@+P`,(@A*@&\6L<EE#-/`T<`1(5.`9OI@!A#94X!F^B`!3G4@
  3293. + M;P`$("\`"$CG`Q0N`"I(9A(@#68$<`!@:"!-3KH`;G``8%X@#68*(`=,WRC`
  3294. + M3OH!R"9-58LP/'__P%-(P.6`+``($P`/9PP,:X``__YF!"PK__(@!TZZ`:`F
  3295. + M0$J`9@1P`&`>O(=C!"`'8`(@!B!-(DM@`A+84X!D^B!-3KH`#B`+3-\HP$YU
  3296. + M(&\`!"`(9@).=5F`2.<\,B(L*@QF#BE\````%BFL3-],/$YU(D&P@6\2)`'4
  3297. + MJ0`$!H(````4L()L`F`((BD``&?48.`F`0:#````$+"#;<9G$B1#0H(T*@`"
  3298. + M:[KEBM:"6(-@Z"1`-"H``&JJ"*H`!P``0H,V*@`"`D-__^6+2FH``FM`1_(X
  3299. + M!$IK``!K-D*$."L``@)$?__EC-B#6(3DC%B#2FL``FH$`$2``#5$``)K$BH$
  3300. + MY8PT,D@$`D*``(I"-85(!$*$."H``&=,Y8Q$A$?R2/Q*:P``:SY"A#@K``+E
  3301. + MC$*%.BH``@)%?__EC=B%6(18@^2,2FH``FH$`$2``#=$``)K$BH$Y8PT,T@$
  3302. + M`D*``(I"-X5(!->I``@F*0`$MJP/Y&X,MJD`"&8Z2JD``&<T("PJ#"!`LH!F
  3303. + M#"EI```J#&`0(&@``+*H``!F]B%I`````"`I``0&@````!0L>``$3J[_+DS?
  3304. + M3#Q.=2`O``1*@&8,*7P````6*:QP`$YU2.<^,E:``H#____\#(```?_\;@``
  3305. + MN+"L#^1N``"P)BPJ#&<``*@B0["I``AN,B(L*A"RJ0`,9BA%Z0`02E)K$$*$
  3306. + M."H``@)$?__EC+"$;QI"A#@J``)K".6,1?)(!&#<)BD``&=F(D-@O@CJ``<`
  3307. + M`$?R"`1"A;"$9SPL!)R`689F!"`$8##DCDIJ``)J!`!&@``J`.2--T8``C=%
  3308. + M```U10`">@1*1FL.-#)(!`)"@`",0C6&2`0F*0`(EH"6A2-#``@@"EB`3-],
  3309. + M?$YU*@"PK`_D:@0@+`_D*``&@````!0B+"H0+'@`!$ZN_SI*@&8**7P````,
  3310. + M*:Q@S")`1>D`$"-L*@P``"E)*@PC1``$(VPJ$``,)@26A6<H68-G)"-#``A'
  3311. + M\E@$-7R`````Y(TU10`"-T4``.2+`$.``#=#``)@%$*I``@U?(````#DC`!$
  3312. + M@``U1``"(`I8@$S?3'Q.=2!O``0@+P`((B\`#")O`!!93TCG#S8L`2X`*D@O
  3313. + M20`@<`&^@&,``+(F3=?&(`=5@&8D+PLO#2!-(DLL;P`H3I903TJ`;P``DB`&
  3314. + M($TB2TZZ]Z1@``"$(`?BB"(&3KKZ]B)-T\`@!B!-3KKWBB1->@!X`6`J+PTO
  3315. + M"R!+(DTL;P`H3I903TJ`:A)2A=7&M<MG"B`&($LB2DZZ]US7QE*$N(=ETK7-
  3316. + M9PH@!B!-(DI.NO=&)F\`("`%(@8@32)+80#_4B!*T<8@!Y"%4X`B!B)+3-]L
  3317. + M\%B/8`#_.DS?;/!83TYU3OK<:D[ZW&(@;P`$64\O"R`(9R0F0&`"4HMP`!`3
  3318. + M0>P/Z0@P``,(`&;N($M#[P`$3KKX#B`O``0F7UA/3G4``"`O``1(YP$$+@`J
  3319. + M;!&88`@@;0`$3I`J52`-9O1+[!#P<`;`K0`858!F&"`M``20K0`09PXB+0`<
  3320. + M(&T`$,%!3KK;."!-*E`@#6;6(`=,WR"`3OJZ*"`O``0@;P`(0]!2F2!14ID0
  3321. + M@$YU44\@;P`,0I<O2``$2&\`%"\O`!1!^O_>0^\`"$ZZ"3(@;P`,0A!03R`7
  3322. + M4$].=0``("\`!"!O``@O#2(`*DA2E4/M``@@$5*1&X$(#"`9#(````(`;11!
  3323. + M[0`,(FT`!'(!P4%.N@*@0JT`""I?3G6>_`(,+PTJ;P(40J\`#$*O``0O30`(
  3324. + M2&\"'"\O`AQ!^O^J0^\`#$ZZ"+I03R`O``QG$$'O`!`B;P`(<@'!04ZZ`E8(
  3325. + M+0`%`!MF"`@M``0`&V<$</]@!"`O``0J7][\`@Q.=2\-(@`J2$/54ID@$5*1
  3326. + M&X$(""`9#(````(`;1)![0`(0^P1$G(!3KH"#$*M``0J7TYUGOP""$*O``1"
  3327. + METAO`A`O+P(00?K_ND/O``A.N@@R4$\@+P`$9Q!![P`(0^P1$G(!P4%.N@'.
  3328. + M<##`K!$J9P1P_V`"(!?>_`((3G4@;P`$(F\`"$CG`10F22I(8!`@!R!+3KH`
  3329. + M)%*`9@1P_V`*?@`>'4J'9NAP`$S?*(!.=0``("\`!"!O``A93TCG`P0N`"I(
  3330. + M?``?0``/<D'2@<*M`!AF#`CM``4`&W#_8``!0'`SP*T`&%6`9U!P3$8`P*T`
  3331. + M&')`TH&P@68,".T``0`;0JT`#&`T""T`!0`;9P9P_V```0QP;D8`P*T`&')N
  3332. + M1@&P@68,".T``0`;0JT`#&`*<``K0``,8```YB`M``RPK0`4;#(@;0`$4JT`
  3333. + M!"`'$(!2K0`,""T`!@`;9PYR"KZ!9@@@34ZZ`@`L`$J&9P``JB`&8```J@@M
  3334. + M``(`&V<N0JT`#"`M`!Q![P`/<@%.NMBT+`!2@&8(".T`!0`;8'(@!E.`9VP(
  3335. + M[0`$`!M@9$JM`!1F("!-3KKU9$J`9PH([0`%`!MP_V!8<``K0``,*VT`$``$
  3336. + M("T`#+"M`!1M""!-3KH!ABP`".T``0`;(&T`!%*M``0@!Q"`4JT`#`@M``8`
  3337. + M&V<.<@J^@68(($U.N@%:+`!*AF<$(`9@!G(`$@<@`4S?(,!83TYU(&\`!"`O
  3338. + M``@B+P`,(F\`$%E/2.</$"P!+@`F22](`!0@!B('3KKVLBH`>`!*AV<$2H9F
  3339. + M!G``8```_'`PP*L`&&8*<$'0@,"K`!AF#`CK``4`&W``8```WG`SP*L`&%6`
  3340. + M9U!P3$8`P*L`&')`TH&P@68,".L``0`;0JL`#&`T""L`!0`;9P9P`&```*IP
  3341. + M;D8`P*L`&')N1@&P@68,".L``0`;0JL`#&`*0JL`#'``8```A$JK`!1F3`@K
  3342. + M``(`&V9$($M.NO0P2H!G.@CK``4`&W``8&`@;P`4$!@B:P`$$H!2JP`$4JL`
  3343. + M#%.%4H0O2``4<@JP`68.""L`!@`;9P8@2TZZ`#X@*P`,L*L`%&P$2H5NPDJ%
  3344. + M;Q8@2TZZ`"8@*P`<(@4@;P`43KK6]-B`(`0B!TZZ]11,WPCP6$].=2!O``1(
  3345. + MYP$$*D@@#6<``*!P0="`P*T`&&8L(&T`$$/M``0BR$*90BT`('``(L`(+0`'
  3346. + M`!MG!@BM````&PBM``0`&V```(I*K0`49T0@+0`,:@9R`"M!``P@+0`,9R@B
  3347. + M+0`<(&T`$,%!3KK6=BX`4H!F"`CM``4`&V`,OJT`#&<&".T`!``;*VT`$``$
  3348. + M0JT`#'`PP*T`&&82""T`!P`;9P9P_,&M`!AP`&`D</]@('X`2^P0\$JM`!AG
  3349. + M#"!-80#_1DJ`9P)^_RI5(`UFZ"`'3-\@@$YU(&\`!")O``@O;P`,``0O;P`0
  3350. + M``B>_``T2.<O-B9O`&`J;P!<2.\#```L0B\`.T(O`#I"+P`Y0B\`.!]\`"``
  3351. + M-T*O`%1P_R]``%!"+P`V?@!\`$7O`#Q@2G``(&\`+!`0<B"0@6<B5X!G)E&`
  3352. + M9Q)5@&<&5X!G(F`R'WP``0`[8!X??``!`#I@%A]\``$`.6`.'WP``0`X8`8?
  3353. + M?``P`#=2KP`L(&\`+$H09JYP`;`O`#MF!A]\`"``-W(J(&\`++(09AXL;P`P
  3354. + M(E98EB(1+T$`5&P(1*\`5!]``#M2KP`L8`Q#[P!43KKQKM&O`"P@;P`L$!!R
  3355. + M+K`!9D92KP`L<"H@;P`LL!!F'")O`#`@45B1(!`O0`!0;`9P_R]``%!2KP`L
  3356. + M8!9#[P!03KKQ;"H`9@9"KP!08`3;KP`L'WP`(``W<``@;P`L$!!R3)"!9Q1R
  3357. + M')"!9P99@&<*8!(??``"`#9@!A]\``$`-E*O`"P@;P`L4H@B;P`L$!%R`!(`
  3358. + M'T``)"](`"9P4)*`9P`!$%&!9P`!''`+DH!G``'04X%G4%N!9TQ;@6<B4X%G
  3359. + M``$"4X%G``#J5X%G``&`58%G``#P5X%G``#J8``!N"1O`#!P`K`O`#9F#B!2
  3360. + M6)(B4"`3,H!@``)*(%)8DB)0(I-@``(^(F\`,"!16)$H$&H$?@%$A$J'9PQ%
  3361. + M[P`]'WP`+0`\8")*+P`Z9PQ%[P`]'WP`*P`\8!!*+P`Y9PQ%[P`]'WP`(``\
  3362. + M?`$@!"!*3KKOABH`("\`4&8&2H1G``'D("\`4&H&<@$O00!0*"\`4)B%;QP@
  3363. + M2M'$(`4B2DZZ\XAR,"!*8`(0P5.$9/HJ+P!0W(4@!5.`9@`!!!`2L"\`-V8`
  3364. + M`/I*KP!09@``\D(28```["`O`%!J!G`(+T``4!]\``$`-G`"L"\`-F80(F\`
  3365. + M,"!16)$@$'@`.`!@"B)O`#`@45B1*!`0+P`D<G6P`6<`_UIR;[`!9AY*+P`X
  3366. + M9PQ%[P`]'WP`,``\?`$@!"!*3KKN]F``_SY*+P`X9Q(??``P`#Q%[P`^'WP`
  3367. + M>``]?`(@!"!*3KKO$BH`""\`!0`D9@#_%$'O`#Q.NN_^8`#_"")O`#`@45B1
  3368. + M)%`@"F8$1?H`\B!*2AAF_%.(D<HJ""`O`%!K!+"%;P0O10!0+"\`4&`@?`$B
  3369. + M;P`P(%%8D2`0'T``/$(O`#U@!G``8```K$7O`#P@+P!4L(9L"'(`+T$`5&`$
  3370. + MG:\`5$HO`#MG'F`(<``0&B!+3I53AFST8`8@2W`@3I53KP!4;/1@:DJ'9@Q*
  3371. + M+P`Y9@9*+P`Z9T80$G(@L`%G#'0KL`)G!G0ML`)F,DJ&:RZR+P`W9A)@"G``
  3372. + M$"\`-R!+3I53KP!4;/!P`!`:($M.E5.&8`IP`!`O`#<@2TZ54Z\`5&SP8`AP
  3373. + M`!`:($M.E5.&;/0@+P`F3-]L]-[\`#1.=0``(&\`!")O``@O;P`,``0O;P`0
  3374. + M``B>_``,2.<`%"9)*D@O;P`<`!!@.'`EL"\`#&8F(&\`&+`09@92KP`88!@O
  3375. + M"R\-0^\`&$ZZ^Y103TJ`9P8O0``88`IP`!`O``P@2TZ5(&\`&!`8'T``#"](
  3376. + M`!A*`&:V3-\H`-[\``Q.=2!O``0@B%B00J@`!"%(``A.=0``(&\`!$CG``8J
  3377. + M2$JM``IG"B)-+'@`!$ZN_I@;?`#_``AP_RM``!1P`!`M``\L>``$3J[^L")-
  3378. + M<").KO\N3-]@`$YU```@;P`$("\`"$CG`Q8N`"I(</\L>``$3J[^MAP`2(9(
  3379. + MQB`&4H!F!'``8&!P(B(\``$``4ZN_SHF0$J`9@@@!DZN_K!@1$'K``H@S1='
  3380. + M``D7?``$``A"&!#&D\E.KO[:)T``$"`-9P@B2TZN_IY@&D'K`!@G2``40>L`
  3381. + M%"=(`!Q"JP`8%WP``@`@(`M,WVC`3G4O""\`3KD```*T4$].=0`````#[```
  3382. + M``H```````".X@``)2(``"4N```E*```)18``"4$```E$```)0H``"4<```D
  3383. + M_@````$````!````"@````````/R```#Z@``!,QA;&P`97-C87!E``!D:7)E
  3384. + M8W1O<GD`9G5L;"UT:6UE`&EN;V1E`&MI;&]B>71E<P!N=6UE<FEC+75I9"UG
  3385. + M:60`;F\M9W)O=7```&AI9&4M8V]N=')O;"UC:&%R<P``<F5V97)S90!S:7IE
  3386. + M``!W:61T:`!A;&UO<W0M86QL``!I9VYO<F4M8F%C:W5P<P``8VQA<W-I9GD`
  3387. + M`&9I;&4M='EP90!I9VYO<F4``&1E<F5F97)E;F-E`&QI=&5R86P`<75O=&4M
  3388. + M;F%M90``<F5C=7)S:79E`&9O<FUA=```<V]R=```=&%B<VEZ90!T:6UE``!H
  3389. + M96QP``!V97)S:6]N`&%M:6=A`````````````````````&$````$````````
  3390. + M``````!B````#```````````````9````!8````````2$`````$````@````
  3391. + M``````````!I````)@``````````````:P```#```````````````&X```!`
  3392. + M``````````````!'````2@``````````````<0```%X``````````````'(`
  3393. + M``!F``````````````!S````;`````$`````````=P```'(`````````````
  3394. + M`$$```!^``````````````!"````C@``````````````1@```)@`````````
  3395. + M`````$8```"B`````0````````!)````J@``````````````3````+8`````
  3396. + M`````````$X```"^``````````````!1````R@``````````````4@```-0`
  3397. + M```!``````````P```#<`````0`````````*````X@````$`````````5```
  3398. + M`.H````!``````````L```#P````````$G`````!````]@```````!)T````
  3399. + M`0```/X```````````````T`````````````````````=F5R8F]S90!L;VYG
  3400. + M``!C;VUM87,``&AO<FEZ;VYT86P``&%C<F]S<P``=F5R=&EC86P``'-I;F=L
  3401. + M92UC;VQU;6X````"U````MP```+B```"Z@```O8```+^```#"```````````
  3402. + M``````````0````#`````P````(````!;F]N90``=&EM90``<VEZ90``97AT
  3403. + M96YS:6]N`````U(```-8```#7@```V0```````````````,````$`````F%T
  3404. + M:6UE`&%C8V5S<P``=7-E`&-T:6UE`'-T871U<P`````#D@```Y@```.@```#
  3405. + MI````ZH``````````@````(````"`````0````$E<PH``````````````%!/
  3406. + M4TE83%E?0T]24D5#5`!#3TQ534Y3`%1!0E-)6D4`86)C9&9G:6ML;6YP<7)S
  3407. + M='5W.GA!0D-&1TDZ3$Y14E-4.E58,0!I;G9A;&ED(&QI;F4@=VED=&@Z("5S
  3408. + M```J(0``+BHA`&EN=F%L:60@=&%B('-I>F4Z("5S``!S;W)T('1Y<&4`=&EM
  3409. + M92!T>7!E`&9O<FUA="!T>7!E`"5S```E<P``)7,Z"@``)7,Z"@``=&]T86P@
  3410. + M)74*`"5S```E<P``)39U(```)2IU(```)7,@)3-U(``E+3AU(``E+3@N.',@
  3411. + M`"4M.'4@`"4M."XX<R``)3-U+"`E,W4@`"4X;'4@`"5S(``@+3X@``!<7```
  3412. + M7&X``%QB``!<<@``7'0``%QF``!<(```7"(``%PE,#-O`"4V=2```"4J=2``
  3413. + M`%5S86=E.B`E<R!;+6%B8V1G:6ML;6YP<7)S='5X04)#1D=,3E%24U58,5T@
  3414. + M6RUW(&-O;'-=(%LM5"!C;VQS72!;+4D@<&%T=&5R;ET*("`@("`@(%LM+6%L
  3415. + M;%T@6RTM97-C87!E72!;+2UD:7)E8W1O<GE=(%LM+6EN;V1E72!;+2UK:6QO
  3416. + M8GET97-=(%LM+6QI=&5R86Q="B`@("`@("!;+2UN=6UE<FEC+75I9"UG:61=
  3417. + M(%LM+6AI9&4M8V]N=')O;"UC:&%R<UT@6RTM<F5V97)S95T@6RTM<VEZ95T*
  3418. + M("`@("`@(%LM+7=I9'1H/6-O;'-=(%LM+71A8G-I>F4]8V]L<UT@6RTM86QM
  3419. + M;W-T+6%L;%T@6RTM:6=N;W)E+6)A8VMU<'-="@`@("`@("`@6RTM8VQA<W-I
  3420. + M9GE=(%LM+69I;&4M='EP95T@6RTM:6=N;W)E/7!A='1E<FY=(%LM+61E<F5F
  3421. + M97)E;F-E70H@("`@("`@6RTM<75O=&4M;F%M95T@6RTM<F5C=7)S:79E72!;
  3422. + M+2US;W)T/7MN;VYE+'1I;64L<VEZ92QE>'1E;G-I;VY]70H@("`@("`@6RTM
  3423. + M9F]R;6%T/7ML;VYG+'9E<F)O<V4L8V]M;6%S+&%C<F]S<RQV97)T:6-A;"QS
  3424. + M:6YG;&4M8V]L=6UN?5T*("`@("`@(%LM+71I;64]>V%T:6UE+&%C8V5S<RQU
  3425. + M<V4L8W1I;64L<W1A='5S?5T@6RTM;F\M9W)O=7!="B`@("`@("!;+2UH96QP
  3426. + M72!;+2UV97)S:6]N72!;<&%T:"XN+ET*``!'3E4@9FEL975T:6QS(#,N-@``
  3427. + M``>,``!/:P``````%```````````````````!Z1C;VYS;VQE.@``)7,Z(```
  3428. + M:6YT=6ET:6]N+FQI8G)A<GD```!T:6UE<BYD979I8V4`````_____V9I9F\N
  3429. + M;&EB<F%R>0``````````````````"`0``0``````````"`8`````````````
  3430. + M``!`*",I86QL;V-A+F,),2XQ````````````````=7-E<@`````(1`````!W
  3431. + M:&5E;```````"%(```A8``````A*1F%I;&5D('1O(&-R96%T92!T:6UE<@``
  3432. + M=7-E<B!I;G1E<G)U<'0```````!.;R!M96UO<GD```!A`$9A:6QE9"!T;R!C
  3433. + M<F5A=&4@=&EM97(``$Y)3#H``$Y)3#H``$Y)3#H``"H`3DE,.@``26YV86QI
  3434. + M9"!W:6QD8V%R9"`E<P!%<G)O<B!E>'!A;F1I;F<@87)G=6UE;G1S`%5315(`
  3435. + M`'5S97(``%5315).04U%``!(3TU%``!S.@``4TA%3$P`8FEN.G-H``!(3U-4
  3436. + M3D%-10``86UI9V$`3DE,.@````!'350`("`@`"`@(`````E,```)4```````
  3437. + M````("`@`"`@(`!S.FQO8V%L=&EM90!S.GIO;F5I;F9O```O`````!\````<
  3438. + M````'P```!X````?````'@```!\````?````'@```!\````>````'P```!\`
  3439. + M```=````'P```!X````?````'@```!\````?````'@```!\````>````'P``
  3440. + M`6T```%N<&]S:7AR=6QE<P``54Y)6%1:```@("``4W5N36]N5'5E5V5D5&AU
  3441. + M1G)I4V%T2F%N1F5B36%R07!R36%Y2G5N2G5L075G4V5P3V-T3F]V1&5C`"4N
  3442. + M,W,@)2XS<R4S9"`E,#(N,F0Z)3`R+C)D.B4P,BXR9"`E9`H```";,"!Q``!&
  3443. + M86EL960@=&\@:6YI=&EA;&ES92!)+T\``&%M:6=A('-P96-I9FEC(&5R<F]R
  3444. + M``````J(56YK;F]W;B!E<G)O<@!N;W0@;W=N97(`;F\@<W5C:"!F:6QE(&]R
  3445. + M(&1I<F5C=&]R>0!N;R!S=6-H('!R;V-E<W,`:6YT97)R=7!T960@<WES=&5M
  3446. + M(&-A;&P`:2]O(&5R<F]R`&YO('-U8V@@9&5V:6-E(&]R(&%D9')E<W,`87)G
  3447. + M=6UE;G0@;&ES="!T;V\@;&]N9P``97AE8R!F;W)M870@97)R;W(`8F%D(&9I
  3448. + M;&4@;G5M8F5R`&YO(&-H:6QD('!R;V-E<W,``&YO(&UO<F4@<')O8V5S<V5S
  3449. + M`&YO="!E;F]U9V@@;65M;W)Y`'!E<FUI<W-I;VX@9&5N:65D`&)A9"!A9&1R
  3450. + M97-S`&)L;V-K(&1E=FEC92!R97%U:7)E9`!M;W5N="!D979I8V5S(&)U<WD`
  3451. + M`&9I;&4@97AI<W1S`&-R;W-S+61E=FEC92!L:6YK`&YO('-U8V@@9&5V:6-E
  3452. + M``!N;W0@82!D:7)E8W1O<GD`:7,@82!D:7)E8W1O<GD``&EN=F%L:60@87)G
  3453. + M=6UE;G0``&9I;&4@=&%B;&4@;W9E<F9L;W<`=&]O(&UA;GD@;W!E;B!F:6QE
  3454. + M<P!N;W0@82!T>7!E=W)I=&5R``!T97AT(&9I;&4@8G5S>0``9FEL92!T;V\@
  3455. + M8FEG``!N;R!S<&%C92!L969T(&]N(&1E=FEC90!I;&QE9V%L('-E96L``')E
  3456. + M860M;VYL>2!F:6QE('-Y<W1E;0!T;V\@;6%N>2!L:6YK<P``8G)O:V5N('!I
  3457. + M<&4`;6%T:"!A<F=U;65N=`!R97-U;'0@=&]O(&QA<F=E``!)+T\@<W1R96%M
  3458. + M(&5M<'1Y``!F:6QE(&YA;64@=&]O(&QO;F<``&1I<F5C=&]R>2!N;W0@96UP
  3459. + M='D`=&]O(&UA;GD@<V]F="!L:6YK<R`H;&]O<#\I````"J(```JP```*N@``
  3460. + M"M0```KD```*_```"P8```L@```+.```"TH```M:```+;```"WX```N0```+
  3461. + MH@``"ZX```O$```+V```"^0```OV```,!@``#!8```PF```,.```#$P```Q@
  3462. + M```,<@``#((```R0```,J```#+8```S,```,W```#.@```SV```-"```#1H`
  3463. + M``TN```-0@```"8``&1O;W(N)6QX+B5L>```3F\@;65M;W)Y`'9I<G1U86P@
  3464. + M;65M;W)Y(&5X:&%U<W1E9```=FER='5A;"!M96UO<GD@97AH875S=&5D```E
  3465. + M=0``)74``````````````````0```#]03U-)6$Q97T-/4E)%0U0`+2T``"5S
  3466. + M.B!O<'1I;VX@8"5S)R!I<R!A;6)I9W5O=7,*`"5S.B!O<'1I;VX@8"TM)7,G
  3467. + M(&1O97-N)W0@86QL;W<@86X@87)G=6UE;G0*```E<SH@;W!T:6]N(&`E8R5S
  3468. + M)R!D;V5S;B=T(&%L;&]W(&%N(&%R9W5M96YT"@``)7,Z(&]P=&EO;B!@)7,G
  3469. + M(')E<75I<F5S(&%N(&%R9W5M96YT"@`E<SH@=6YR96-O9VYI>F5D(&]P=&EO
  3470. + M;B!@+2TE<R<*`"5S.B!U;G)E8V]G;FEZ960@;W!T:6]N(&`E8R5S)PH````E
  3471. + M<SH@:6QL96=A;"!O<'1I;VX@+2T@)6,*`"5S.B!O<'1I;VX@<F5Q=6ER97,@
  3472. + M86X@87)G=6UE;G0@+2T@)6,*``!5;FMN;W=N('-Y<W1E;2!E<G)O<@``)7,Z
  3473. + M(```.B`E<P`````E<SH@``!I;G9A;&ED`&%M8FEG=6]U<P`@)7,@8"5S)PH`
  3474. + M`````$```"`@("`@("`@("@H*"@H("`@("`@("`@("`@("`@("`@2!`0$!`0
  3475. + M$!`0$!`0$!`0$(2$A(2$A(2$A(00$!`0$!`0@8&!@8&!`0$!`0$!`0$!`0$!
  3476. + M`0$!`0$!`0$0$!`0$!""@H*"@H("`@("`@("`@("`@("`@("`@("`A`0$!`@
  3477. + M````````````````````````````````````````````````````````````
  3478. + M````````````````````````````````````````````````````````````
  3479. + M``````````````````````````````````````````````````````````^@
  3480. + M```1$@``````````````````````````````````````````$30`````````
  3481. + M````````````````````````````````````````````````````````````
  3482. + M``````````````````````(`__\````.``X```````````````#__P````0`
  3483. + M!````````'T6```17/__````!``$````````?2P``````````````&0```/"
  3484. + M```#O@```[H```.V```#L@```WH```-V```#<@```VX```,N```#*@```R8`
  3485. + M``,B```#'@```QH```,6```"M````J0```*4```"A````G0```)D```"5```
  3486. + M`D0```(T```")````A0```($```!]````>0```'4```!Q````;0```&D```!
  3487. + ME````80```%T```!9````50```%$```!-````20```$4```!!````JP```*<
  3488. + M```!/```!YX```>X```(&```"`P```AD```(7@``"%H```A*```)6```"50`
  3489. + M``WV```-\@``#>X```WJ```-Y@``#>(```W>```-V@``#=8```W2```-S@``
  3490. + M#<H```W&```-P@``#;X```VZ```-M@``#;(```VN```-J@``#:8```VB```-
  3491. + MG@``#9H```V6```-D@``#8X```V*```-A@``#8(```U^```->@``#78```UR
  3492. + M```-;@``#6H```UF```-8@``#5X```J>```1$@``$/```!&````#[`````(`
  3493. + 3```````1D```$7P````````#\EX`
  3494. + `
  3495. + end
  3496. diff -rc --new-file emacs-18.59/amiga/amiga-extra/amiga/c/rmdir.uue /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/c/rmdir.uue
  3497. *** emacs-18.59/amiga/amiga-extra/amiga/c/rmdir.uue    Thu Jan  1 00:00:00 1970
  3498. --- /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/c/rmdir.uue    Tue Jul 12 10:35:52 1994
  3499. ***************
  3500. *** 0 ****
  3501. --- 1,404 ----
  3502. + begin 666 rmdir
  3503. + M```#\P`````````"``````````$```\'```"=````^D```\'2.=^_B1()`!)
  3504. + M^0`````L>``$+P)(YP#@)FX!%"(K`*QG#.6)($$B*``TY8E@!B(/DJL`.G0`
  3505. + M(#P```L$LJP(2&0((BP(2-"!=`$F02(\``$``4ZN_SI*@&8(3-\'!&```D`@
  3506. + M0"1`(D`@/````CZ9_``````@W%.`9OH@'&<.($G1W-70((HD25.`8/`H2=G\
  3507. + M`````"E\```+!`E$3-\'`"E."2!*`DS?``1([(``"2AG2"`,!(``````!H``
  3508. + M``L$T*P(2"(`!(````"`#&X`)``4;1@I0`E`*4$)/)*L"$A![`DX((%.KOTD
  3509. + M8`(N0"`L"$@O0``$T:P)1"(/DHL&@0```(`I00C\0JP))'``(CP``#``3J[^
  3510. + MSB9N`11#^@&(<`!.KOW8*4`*_&8&<&1@``#F*6L`F`D<2JL`K&<``'X@:P"L
  3511. + MT<C1R")H`!#3R=/)(`)R`!(9*4D)+-"!7H`"0/_\*4`)-$CG0$`B/``!``%.
  3512. + MKO\Z3-\"`DJ`9@AP%"\`9P`!!"!`*4`),"`"4X#4@1&R```@`E."4<C_]A&\
  3513. + M`"`@`E."$;P`(B`"$;$@`"`!4<K_^!"\`"(O"&!*0>L`7$ZN_H!!ZP!<3J[^
  3514. + MC"E`"20O`"1`("H`)&<8+&P*_"!`(B@``$ZN_Z`I0`D<(@!.KO^"(&P))"\(
  3515. + M2&P(^"!H`"0I:``$"2Q.NB:X3KH-TG``8`0@+P`$)&P)*"4`+'@`!`QN`"0`
  3516. + M%&T22JP).&<,0>P).%FL"4!.KOTD+DH@+`D49P0@0$Z03KHFD$ZZ)J1*K`DD
  3517. + M9R`L;`K\(BP)'&<$3J[_IBQX``1.KO]\(FP))$ZN_H9@$BQX``0@+`DT9P@B
  3518. + M;`DP3J[_+B)L"OQ.KOYB("P)1"),D_P`````3J[_+B`?3-]_?DYU9&]S+FQI
  3519. + M8G)A<GD````@#Y!\`!2PK`C\90`J!$CG!Q0N+P`8*F\`''P`*54)2$*L"4R7
  3520. + MRV`:(`5*@&<4<G"0@6<"8`AP`2E`"4Q@!&$``1`O"TAL`!1(;`!4+PTO!TZZ
  3521. + M'5)/[P`4*@!2@&;*2JP)5&<:+RP`IDAL`%9(;`B03KHO9$*73KHNS$_O``Q*
  3522. + MK`E09P1A``#*("P%V+"'9F)A``"^8%PB+`78Y8$O-1@`3KH<PB(L!=CE@2ZU
  3523. + M&`!.NA@X6$]*@&<@(BP%V.6!+S48`$AL`%HO+`JD0J=.NB1.3^\`$'P!8!9*
  3524. + MK`E,9Q`B+`78Y8$O-1@`80``'%A/4JP%V"`L!=BPAVV<+T8`&$S?*.!.^BY`
  3525. + M(`]10+"L"/QE`"D`2.<`%"IO``Q(>``O+PU.NBD24$\F0$J`9@1@'%.+M\UC
  3526. + M!G`OL!-G]$(K``$O#4ZZ%Z983TJ`9]!,WR@`3G4@#Y!\``RPK`C\90`HM"\L
  3527. + M"4A(;`!>2&P(D$ZZ+FI(>``!3KHMT$_O`!!.=4CG(#(@;P`80^\`'$7Z`!PF
  3528. + M;P`4)`LL>0````1.KOWV(`N0@DS?3`1.=1;`3G4``"!O``0B;P`(64](YS,V
  3529. + M*DA^`"!L"H0L*`#@+TD`($J&9B!*K`DD9AI![`#$(@@L;`K\)#P```/M3J[_
  3530. + MXBP`9P)^`4J&9S8B!D'L`,XD"$'L"2PF""QL"OQ.KOZ>(@8D#28O`"!.KOZ>
  3531. + M(@9T"DZN_LA*AV=8(@9.KO_<8%`@;`J$)F@`N#!\__^WR&=`0^P`U'`E+'@`
  3532. + M!$ZN_=@D0$J`9RPI;`DL`+@I30"\+PH@2RQ*0^P`L)7*)F\`)$ZN_;1,WP0`
  3533. + M(DHL>``$3J[^8DS?;,Q83TYU(&\`!$/O``AA`/\J3G4@;P`$0^\`"&$`_QQP
  3534. + M%$ZZ+*I.=0``2.<`!G`(<@`L>``$3J[_.BI`2H!F!'``8"Y"K0`$2'@`*'``
  3535. + M+P!![`#H<@&3R<%!3KH9[E!/*H!F#")-<`A.KO\N<`!@`B`-3-]@`$YU(&\`
  3536. + M!$CG``8J2"`-9Q@@36$``!X@54ZZ&C(B37`(+'@`!$ZN_RY,WV``3G4@;P`$
  3537. + M2.<`!BI(2JT`!&<4(E4L>``$3J[^(")53J[^)D*M``1,WV``3G4@;P`$(%`B
  3538. + M:``.<``0*0`/<@'AH2`!3G4@;P`$("\`""(O``Q(YP,&+`$N`"I(8:I*AV8$
  3539. + M2H9G'B)5(T<`("-&`"0S?``)`!PL>``$3J[^,G`!*T``!$S?8,!.=2!O``1(
  3540. + MYP`&*DA*K0`$9QPB52QX``1.KOXL2D!G#B)53J[^)D*M``1P`6`"<`!,WV``
  3541. + M3G4O#B`L"I`B`$A!0D'2@"`L"H2S@"E`"5Q"K`E@0^P`_'``+'@`!$ZN_=@I
  3542. + M0`E8</].KOZV2(!(P"E``/A*K`E89PA*@&L$<`%@`G``*4`)9"Q?3G4O#B`L
  3543. + M`/AK""QX``1.KOZP("P)6&<*(D`L>``$3J[^8BQ?3G4@+P`$44](YP,`+@!.
  3544. + MN@4`(`=.N@&02H!G*")`(&D`'')`Y8G"D2](``P@`2!I``0B;P`,3I$L`"`'
  3545. + M3KH!2"`&8`)P_TS?`,!03TYU("\`!"\'+A]@K@``(&\`!"`O``@B;P`,+V\`
  3546. + M$``$+V\`%``(+V\`&``,+V\`'``0+V\`(``4+V\`)``844](YP<4+@!([P,`
  3547. + M`!1\`"IL"6A@%DJM``1F"C!\``$K2``$8`Q2AMK\`"2\K`EL;>0@+`ELO(!F
  3548. + M>'(*TZP);"`L"6PB`.>!TH#E@2`!3KHGQ"I`2H!F#'`,*4`*I'#_8```CG#V
  3549. + MT*P);"(`YX'2@.6!(&P):")-8`(2V%.!9/H@+`EH9P8@0$ZZ)AXI30EH>O;:
  3550. + MK`EL(`7G@-"%Y8#;P)?+*TL`!%*%VOP`)+JL"6QM\"`&YX#0AN6`(&P):"&O
  3551. + M`!0(!"&'"``AKP`8"`A+[P`@(9T(#"&="!`AG0@42^\`+"&="!@AG0@<(9T(
  3552. + M("`&3-\HX%!/3G4@+P`$(@!K%K*L"6QL$"`!YX#0@>6`(&P):$*P"`1.=2`O
  3553. + M``1(YP$$+@!K'KZL"6QL&"`'YX#0A^6`*FP):-O`2JT`!&<$(`U@"'`)*4`*
  3554. + MI'``3-\@@$YU("P);$YU```@+P`$64\N@$'L`1`@"%A/3G4@;P`$64\NB$'L
  3555. + M`1`@"%A/3G4@+`$03G4``%E/2JP!0F8,0>\``RE(`4)A[F`60>\``R)L`4*S
  3556. + MR&0$<`%@`G#_*4`)<%A/3G593TCG`10N+P`42JP)<&8"8<`J;`%&8"X@+`EP
  3557. + M;PQ![P`/(FT`!+/(8A!*@&H<0>\`#R)M``2SR&00)E4O#4ZZ)+)83RI+(`UF
  3558. + MSBE-`49*AV8$<`!@(E"'+P=.NB8"($`@K`%&0^\`$R%)``1#Z``(6$\I0`%&
  3559. + M(`E,WRB`6$].=0``("\`!%E/+H`@+`J`9PX@0$ZZ_(I*@&<$<@%@`G(`(`%8
  3560. + M3TYU("\`!"!L"H!R`$[Z_#!.NOMD*4`*@&8*2&P!3$ZZ^T!83R!L"H!.NOOT
  3561. + M@:P)=$YU(&P*@$[Z^Y`([``,"79.=2`O``0(```,5L!$`$B`2,!.=0CL``T)
  3562. + M=DYU("\`!`@```U6P$0`2(!(P$YU3KH41G``(&P*W!`H``]R`>&A@ZP)=$YU
  3563. + M3OH4F"`O``193TCG`18O0``0?@!@+B`M`!1.NA/N)D!*@&<42JL`%&8.?@%P
  3564. + M`2=``!0G;0`8`!@B37`<+'@`!$ZN_RX@;`K<+'@`!$ZN_HPJ0$J`9L`@!TS?
  3565. + M:(!83TYU("\`!$CG#P0N`'`![Z`L`'`)OH!F!G``3KH*'"`L"GC`AF<&C:P*
  3566. + M?&!Z*@9&A<NL"GQ*AVMF<""^@&Q@(`?G@$'L"7@J<`@`,'P``;O(9BP@!U6`
  3567. + M9Q13@&<0<@V0@6<\68!G.%&`9S1@"DAL`61.NOG\6$]P`$ZZ";Y@("`-9QP@
  3568. + M!^>`*`9![`EXB+`(!(FL"G@@!TZ51H3)K`IX("P*?,"&9HI,WR#P3G4@+P`$
  3569. + M+PXB+`ET@H!P`"QX``1.KO[.+%].=2`O``0O#B(`("P)=("!+'@`!$ZN_L(L
  3570. + M7TYU("\`!$CG`P`N`'P`80#^$$J`9PA\`7`.80#_#"`'80#^8DJ`9PA\`7`"
  3571. + M80#^^B`'80#^:DJ`9PA\`7`#80#^Z"`'80#^ADJ`9PA\`7`480#^UB`&3-\`
  3572. + MP$YU("\`!"\'*4`)!'`(+A]@`/Z\<`!A`/]@8)!@]DCG`11^`$OL"7@V?``!
  3573. + M*HM"K0`$4H=0C7`@OH!M\$*L"GQ"K`IX0JP)=&$`_=1A`/WJ80#]HDS?*(!@
  3574. + M`/WX80#]N&``_@@``$AL`7A.NOC86$].=2`O``0O#4ZZ(R@J0$J`9@)AXB`-
  3575. + M*E].=2!O``0@+P`(+PM.NB$<)D!*@&8"8<8@"R9?3G4@;P`$+PTJ2"`-9@1+
  3576. + M[`&"($U*&&;\4XB1S2`(4H!.NB+<($!*@&8$<`!@"")($MUF_"`(*E].=5E/
  3577. + M2.<#-'X`?``@;`J$)F@`T&`L2BL`"&8D,#P%`,!K``YF&E*'(&L`"B`(2AAF
  3578. + M_%.(D<`@"-R`W*L`%%2&)E-*DV;0(`=2@.6`T(9A`/]**4`*G.6'($`B0-/'
  3579. + M1>D`!"]``!1F"D'L`70I2`J<8%8@;`J$*F@`T&!"2BT`"&8Z,#P%`,!M``YF
  3580. + M,"9M``HN+0`4(&\`%"#*+T@`%&`"%-M*$V;Z%/P`/29M`!!@`A3;(`=3ATJ`
  3581. + M9O9"&BI52I5FNB!O`!1"D$S?+,!83TYU(&\`!"`O``@O#2I(*H!"K0`$Y8!A
  3582. + M`/ZT*T``""I?3G4@;P`$(F\`""`O``Q(YR(T)DDJ2$J`9PH@2V$`_L(D0&`"
  3583. + M)$L@"F<^(A4D+0`$M(%M(BP!W(9T$-*"O(%M`B(&*H$@`>6`(&T`"$ZZ'YHK
  3584. + M0``(9Q)'[0`$(A-2F^6!(%LABA@`<`%,WRQ$3G4@;P`$(F\`""`O``QADDJ`
  3585. + M9@1A`/X:3G4@;P`$(F\`"$CG`!0F22I(("T`!-"K``2PE6\2T(`J@.6`(&T`
  3586. + M"&$`_AHK0``((BT`!.6!(&T`"-'!("L`!"(`Y8$B:P`(8`(0V5.!9/K1K0`$
  3587. + M(&L`"$S?*`!.^A^*(&\`!")O``@O;P`,``0@+P`0(B\`%%E/2.<"-"P!*DDD
  3588. + M2"](`!!*@&=$4X!G"E.`9P``MF```/13AF<B("\`&"(-D($@;P`00C`(`"!!
  3589. + M(F\`$&`"$MA3@&3Z8```SD'L`80B;P`0$MAF_&```+XF;P`88&YP7+`59F9*
  3590. + M+0`!9V!4C7`!O(!F!A3\`&%@5"`&58!F1A`M__](@$C`<B.0@6<N58!G*E6`
  3591. + M9R93@&<B4X!G'E.`9QIR%9"!9Q1R')"!9PY5@&<*<A^0@6<$58!F!!3\`"<4
  3592. + M[?__8`@4[?__8`(4W;O+98Y@0"9O`!A@-G`JL!5F+DHM``%G*%2-$"W__TB`
  3593. + M2,!R99"!9PQR"9"!9@P4_``*8`X4_``;8`@4[?__8`(4W;O+9<9"$DS?+$!8
  3594. + M3TYUGOP!+$CG/S8J;P%8(&P)(`QH`"4`%&0*2'@`%$ZZ\A983T*L"&AP`2E`
  3595. + M"&0I0`B*<`(I0`B&*4`(K"E\````A`BHD\DL>``$3J[^VBE`"H1.NO4H*4`*
  3596. + MB&8*2&P!ADZZ]0183R!L"HA.NO6X*4`*C"QL"H@@5BQH`!0I3@J80>\!,$ZN
  3597. + M_[XI;P$P"I!.NO8@3KK[K"!L"H0@*`"L9Q#E@")`(BD`-.6!*4$*E&`&*6@`
  3598. + MA`J42A5F``#H0>P!GB((+&P*_"0\```#[DZN_^(L`$'L`:0B"$ZN_^(N`$'L
  3599. + M`:HB"$ZN_^(J`$J&9PA*AV<$2H5F(DJ&9P8B!DZN_]Q*AV<&(@=.KO_<2H5G
  3600. + M!B(%3J[_W&$`^W)P`2\`+P4O`"\'(@;!04ZZ"A0@;`DD("@`'$'O`5AA`/R>
  3601. + M3^\`$'P`?@!@4")L"20@:0`D(#!X`&<^(@!#[P`P)`DL;`K\=D#EBTZN_FY*
  3602. + M@&<F(FP))"!I`"31QR`H``1G""(")`!.KOR.0>\!2$/O`#!P`6$`_-A2AE"'
  3603. + M(&P))+RH`!QMIF```LPL;`K\3J[_RB@`3J[_Q"H`?@`@;`J$+"@`X&8H?@%!
  3604. + M[`&P(@@D/````^U.KO_B+`!F$D'L`;(B"$ZN_^(L`&8$80#ZI"\'+P9P`"\`
  3605. + M+P4B!,%!3KH)1D'O`5AP`6$`^]8@/```!1IA`/J.($`Q?`0``!(O0``\<$#E
  3606. + MB&$`^GI/[P`0?D#ECR]``3A@`E*-$!5(@$C`0>P'10@P``,(`&;L$!5G``(6
  3607. + M<B*P`68P4HTF36`0<"JP%68(2BT``6<"4HU2C1`59P9R(K`!9N8D31`5<B*P
  3608. + M`68"4HU\`F!4<">P%68@4HTF36`"4HT0%6<&<B>P`6;T)$UP)[`59@)2C7P!
  3609. + M8"XF36`0<%RP%68(2BT``6<"4HU2C1`59Q)R(+`!9PQR"K`!9P9R";`!9MHD
  3610. + M37P`($LJ"IJ+(`52@"](`"AA`/FV)D!*KP%,9B`@!2!+(F\`*$ZZ&I)",U@`
  3611. + M0>\!2")+<`!A`/M@8`#_)MJ%<A#:@;J';Q0@;P$X3KH;/"`%80#Y=BX%+T`!
  3612. + M."\*(`8@2R)O`"QR`6$`^ZY83R(+)"\!."8'+&P*_$ZN_+@J`&P00A(O+P`H
  3613. + M2&P!N$ZZ\@I03TJ%9B(O"B`&($LB;P`L<@!A`/MT0>\!3")+<`!A`/KH6$]@
  3614. + M`/ZL>@$@;P`L0J@`"$(H`!%"*``0+PH@!B!+(F\`+'("80#[0$'O`4!P$&$`
  3615. + M^B983R(+)"\`+"QL"OQ.KOS**`!F/&`J>@`B;P`LTOP!&$'O`3QP`6$`^B!*
  3616. + M@&8$>&=@$B(O`"PL;`K\3J[\Q"@`2H1GTB(O`"PL;`K\3J[\OG!TT("X@&<*
  3617. + M2&P!S$ZZ\5983TJ%9R(O"B`&($LB;P`L<@!A`/K`0>\!3")+<`!A`/HT6$]@
  3618. + M`/WX("\!0"!O`41.NA5V0>\!2$/O`3QA`/HJ($M.NAH"8`#]UB!O`3A.NAGV
  3619. + M(&\`+$ZZ&>YA`/B20>P!YDZZ"'HI0`$09@A![`'L*4@!$$'L`?).N@AD*4`!
  3620. + M)&8&*6P!$`$D0>P!_$ZZ"%`I0`$H9@A![`("*4@!*$'L`@9.N@@Z*4`!+&8(
  3621. + M0>P"#"E(`2Q![`(43KH()"E`"J!F"$'L`AXI2`J@("\!3"!O`5`B;`J<3KHG
  3622. + M1G``3KH=,$S?;/S>_`$L3G5(YP,`3KKS_BX`?`!@"B\&3KKR9EA/4H:\AVWR
  3623. + M3-\`P$YU("\`!"\'+@!AU$ZZ\=I.NO=0(&P*B$ZZ\)@O!TZZ[/I83RX?3G4@
  3624. + M+P`$+P<N'V#4``">_``,2-<!`W#_WOP`#$YU44](UP,`4$].=4CG,`(B$$HH
  3625. + M``UG!'``8!PD"28`+&P*_$ZN_]8B`%*`9@A.N@C0</]@`B`!3-]`#$YU44](
  3626. + MYS\V+@`J229(+!,O1@`H+T@`+$HK``UG!G``8```C$HK``QG9B9-U\=Z`&!8
  3627. + M)$U@`E**M<MD!G`*L!)F]+?*9@0H"F`&0>H``2@(F(TB+P`H)`TF!"QL"OQ.
  3628. + MKO_0+`!2@&8(3KH(6G#_8#[:AK:&9C9+Z@`!GH9P`$ZZ]8!.NO6P2H!F(DJ'
  3629. + M9J1@'"(&)`TF!RQL"OQ.KO_0*@!2@&8(3KH('G#_8`(@!4S?;/Q03TYU64](
  3630. + MYS\"+@`L$"]!`!Q**``-9P1P`&!24X$F`2(&)`<L;`K\3J[_OBH`3J[_?"@`
  3631. + M4H5G!$J$9PX@!$ZZ!M@I0`JD</]@)"(&=``F`DZN_[XL`%*`9P1*A&<.(`1.
  3632. + MN@:V*4`*I'#_8`(@!DS?0/Q83TYUGOP!`$CG/P8N`"I(+!4J+0`(("T`!&<*
  3633. + M(@`L;`K\3J[_IA@M``U(A$C$($U.NA=H2H1G!'``8$0B!D'O`"`D""QL"OQV
  3634. + M0.6+3J[^:"@`2H=F"B(&3J[_W$J`9QI*A&<2</^Z@&<,(@(D!4ZN_T9*@&<$
  3635. + M<`!@!DZZ!R1P_TS?8/S>_`$`3G4@+P`$2.<@`B(`+&P*_'0`3J[_-$ZN_WQT
  3636. + M+D8"L()7P40!2(%(P2`!3-]`!$YU("\`!"!O``@B;P`,GOP`$$CG-Q8N`"9)
  3637. + M*DA\`&&X2H!F?"('+&P*_'0!3J[^5DJ`9VPB!T'L`B0D"'8$3J[_T%F`9E(B
  3638. + M!R0\```G$$ZN_S1*@&="(@=![P`@)`AV$$ZN_]9R";"!;RYPF[`O`"!F)D'O
  3639. + M`"4B""0+3J[\T"H`0>\`)M'`(@@D#4ZN_-!2@&<&4H5G`GP!(@=T`$ZN_E8@
  3640. + M!DS?:.S>_``03G4@+P`$(B\`")[\`A!(YS\&+@!P_R]``B@O00`D(@<L;`K\
  3641. + M=`!V`4ZN_[XO0``@(@=.KO^^+`!.KO]\*@`O0`(L9@``PB@O`"0B!R0$=O].
  3642. + MKOXXL()F``"NO()L``">*@2:AB@%(`1R`4A!+'@`!$ZN_SHJ0$J`9FIR`DA!
  3643. + M3J[_*.*(*@`,A0```@!M$"`%<@%(04ZN_SHJ0$J`9D9Z0.>-2^\`*#`\`?]R
  3644. + M`$'O`"@0P5'(__Q@++B%;P0@!6`"(`0F`$ZZ\U(B!R0-+&P*_$ZN_]"P@V<*
  3645. + M3J[_?"]``BQ@!IB#2H1NT$'O`"BQS6<,(DT@!2QX``1.KO\N*B\"+&8$0J\"
  3646. + M*"PO`""\KP`D;`XB!R0&+&P*_';_3J[_OBPO`BAG"B`%3KH$'BE`"J0@!DS?
  3647. + M8/S>_`(03G6>_`$(2.<W%BX`)DDJ2"P52BT`#68``1@@!P2````$`&<@!(``
  3648. + M``0`9TI3@&=84X!G7%.`9UY3@&=F4X!G;&```.Y*+0`,9R8@!D'O`21#[P$@
  3649. + M80#]UDJ`9Q0@+P$D-T```B`O`2`V@'``8```RG`98```OB(&+&P*_$ZN_R@F
  3650. + M@'``8```LB:&<`!@``"J<`!@``"D(`8B$V$`_C9@``"8*U,`"'``8```CBH3
  3651. + M2JT`!&8.(A4L;`K\3J[^C"M```0@+0`$9V(D`"(%+&P*_$ZN_EQ*@&92(@9!
  3652. + M[P`@)`AV0.6+3J[^:$J`9SXB!4ZN_Z8B+0`$3J[_IB(&3J[_W"("=`!.KO]&
  3653. + M&WP``0`-*H(K0@`$0>\`("((+&P*_$ZN_[A*@&<$(`)@#DZZ`]Q@!G`6*4`*
  3654. + MI'#_3-]H[-[\`0A.=2`O``0B+P`(+V\`#``$2.</!BHO`!PL`2X`<`Y.NA4.
  3655. + M*D!*@&8*<`PI0`JD</]@3D/5(L="F2+&0BT`#2('+&P*_$ZN_R@;0``,2'K^
  3656. + M=$AZ^]I(>OMD2'KZK$AZ^G9(>OIH(`4@34/Z^E!.NNRL3^\`&"@`;`8@34ZZ
  3657. + M$T8@!$S?8/!.=2`O``0B+P`(+V\`#``$+V\`$``(+V\`%``,+V\`&``02.<-
  3658. + M`"@O`!0J+P`0+@!P`$J!9@1P0.6(`$```2\`(`=R_V$`_T983TJ`9D!P`$J$
  3659. + M9@1P0.6(`$```B\`(`5R_V$`_RA83U.`9B)P`$JO`!QF!'!`Y8@`0``"+P`@
  3660. + M+P`<<O]A`/\&6$]5@&<00>P"*B](`!!,WP"P3OKIL$S?`+!.=0``(&\`!$CG
  3661. + M(Q8J2'X`0J<L;`K\<@(D#TZN_QQ/[P`$)D!*@&=2(@UT_DZN_ZPN`&=&(@<D
  3662. + M"TZN_YI*@&<Z(BL`!%[`1`!(@$C`+``B!TZN_Z9R`DZN_Q9*AF<4(@U.KO^X
  3663. + M2H!G!'``8#).N@(T8"IP%"E`"J1@(DZN_WQ.N@$H*4`*I$J'9P8B!TZN_Z8@
  3664. + M"V<()`MR`DZN_Q9P_TS?:,1.=2`O``0@;P`((B\`#%E/2.<#-"P!+@`J2$ZZ
  3665. + M[[P@!TZZ[$PF0$J`9T0(*P`!``-G-@@K``,``V<6(&L`&"](`!0@:P`$<`!R
  3666. + M`B)O`!1.D2!K`!0O2``4(`8@:P`$(DTD;P`43I)@"'`-*4`*I'#_3-\LP%A/
  3667. + M3G4@+P`$(&\`""(O``Q(YP,$3-\@P&"`(&\`!)[\`$!(YSL6*DA.NN\Z(`UG
  3668. + M4DH59TXB#4'O`"`D""QL"OQV0'@`3J[\=BX`;39.KO]\+`!2@$ZZ$IPF0$J`
  3669. + M9R2^AF<4)@92@R(-)`M.KOQV2H!O$"`"8`X@0B)+$MAF_"`+8`)P`$S?:-S>
  3670. + M_`!`3G4@+P`$*4`)`$J`9P``AG)GD(%G``""58!G``"`<@F0@6=\4X!G>%.`
  3671. + M9W13@&=P4X!G;%.`9VA3@&=H4X!G:')1D(%G9E.`9V93@&=F4X!G9E.`9V93
  3672. + M@&=F58!G9E.`9V93@&=F4X!G9E6`9V93@&=F4X!G9E.`9V93@&=F4X!G9E6`
  3673. + M9V93@&=F4X!G9E.`9V9@:'``8&9P#&!B<`M@7G`68%IP!V!6<`A@4G`08$YP
  3674. + M$6!*<`)@1G`"8$)P%F`^<`=@.G`68#9P)&`R<!9@+G`68"IP'F`F<!)@(G`E
  3675. + M8!YP)F`:<!-@%G`68!)P'&`.<`U@"G`-8`9P#6`"</].=2\.+&P*_$ZN_WQA
  3676. + M`/[Z*4`*I"Q?3G4@;P`$2.<`!BI((DTL>``$3J[_!"!-3-]@`$[Z#\@@+P`$
  3677. + M2.<!!"X`*FP*L&`.("T`#+"'9@0@#6`(*E5*E6;N<`!,WR"`3G5(YR`"0>P*
  3678. + ML$ZZ'(8@+`J$(BP*D"0`LX("@@!___\I0@JL4H(I0@JH+P$O`$AL!;Q(;`J\
  3679. + M3KKE8D_O`!`L>``$3J[]9BE`"N!G$$'L"KQP`$ZZ')HI0`K<9@I(;`7*3KKF
  3680. + M2EA/3-]`!$YU2.<`!B`L"N!G"B!`+'@`!$ZN_6!*K`K<9S@L>``$3J[_?&`,
  3681. + M(DUP'"QX``1.KO\N(&P*W"QX``1.KOZ,*D!*@&;B(&P*W$ZZ&_(L>``$3J[_
  3682. + M=DS?8`!.=0``(&\`!"`O``@B+P`,(F\`$"]O`!0`!"]O`!@`"%E/2.</-B@O
  3683. + M`"PJ+P`H+`$N`"I)+T@`("QX``1.KOUF)D!*@&<P($L@!$ZN_7(D0$J`9R(@
  3684. + M#6<()4T`*"5%`"0@;P`@(`<B2B(&3J[^1$H`9@0@"F`6(`IG!B!*3J[];"`+
  3685. + M9P8@2TZZ&UQP`$S?;/!83TYU(&\`!$CG``8J2"`-9Q@B32QX``1.KOX^(&T`
  3686. + M#DZZ&S(@34ZN_6Q,WV``3G4@#UE`L*P(_&4`#*)(YP$$*F\`#"!-2AAF_%.(
  3687. + MD<TN"%.'8`H@1U.'(`A"-0@`2H=O"'`OL#5X`&?J3-\@@$YU(`^0?``8L*P(
  3688. + M_&4`#&`@+P`$(&\`#")O``A"IR\O`!@O+P`8+P@O"2\`3KH!.D_O`!A.=2`/
  3689. + MD'P`&+"L"/QE``PL("\`!"!O``PB;P`(2'@``2\O`!@O+P`8+P@O"2\`3KH!
  3690. + M!$_O`!A.=0``O^P(_&4`"_I(YP$$+B\`$"IO``Q@$!`52(!(P+"'9@0@#6`(
  3691. + M4HU*%6;L<`!,WR"`3G6_[`C\90`+R$CG`Q0N+P`<)F\`&"IO`!1\`&`(%[5H
  3692. + M`&@`4H:\AVWT3-\HP$YU(`^0?``,L*P(_&4`"Y1(YP$4*F\`$"XL"O">K`KL
  3693. + MY8<O!TZZY_8F0"(L"NSE@2!-T<$NAR\`+PAAF"`L"O`B`.6!($W1P2(L"NSE
  3694. + M@2)-T\$B+`78DH#E@2Z!+PDO"&$`_W(B+`KLTJP%V)*L"O#E@=O!+H<O#2\+
  3695. + M80#_6"`L!=A+[`KL(AW2@)*53^\`'"K`*4$*[$S?*(!.=2`/D'P`)+"L"/QE
  3696. + M``KZGOP`$$CG/S0J;P!()&\`1$*L!=1*K`789E1P`2E`!=A"K`KD*4`*["E`
  3697. + M"O`@;P!`$A!T+;("9@QT`BE""NA2KP!`8"IT*[("9@I"K`KH4J\`0&`:2&P%
  3698. + MY$ZZ#\Y83TJ`9P9"K`KH8`9P`2E`"N@N+P`X2JP*Y&<*(&P*Y$H09@`!,'`!
  3699. + ML*P*Z&9<("P*\"(L"NRR@&<2L*P%V&<,+R\`/&$`_K983V`,(BP%V+"!9P0I
  3700. + M00KL(BP%V.6!)F\`/-?!8`92K`786(L@+`78L(=L#B)3<"VP$6;J2BD``6?D
  3701. + M("P%V"E`"O`@+`78OH!G4.6`2&P%]"!O`$`O,`@`3KH*;E!/2H!F.%*L!=@@
  3702. + M+`KP(BP*[+*`9Q*PK`789PPO+P`\80#^-EA/8`RR@&8(("P%V"E`"NP@!RE`
  3703. + M!=@I0`KP("P%V+"'9A8@+`KL(BP*\+*`9P0I0`78</]@``1$(BP%V.6!(&\`
  3704. + M/"9P&``4$W8MM`-F"B)P&`!**0`!9AQ*K`KH9@9P_V``!!A2K`78*7`8``74
  3705. + M<`%@``0(4HL@"F<(MA-F!'`!8`)P`")+T\`I20KD(`IG``+&(BP%V.6!(&\`
  3706. + M/"!P&`!P+;`09@`"L+`H``%G"$JO`$QG``*B)FP*Y$*O`"Q\`$*O`"A@`E*+
  3707. + M$!-G!G(]L`%F]"]*`#!Z`&!B(`N0K`KD+P`O+`KD(&\`."\03KH)*D_O``Q*
  3708. + M@&8\+@N>K`KD(&\`,"\03KH(WEA/OH!F$B!O`#`H!7`!+T``+"](`"A@)$JO
  3709. + M`"AF#"!O`#`H!2](`"A@`GP!<!#1KP`P4H4@;P`P2I!FEDJ&9T1*KP`L9CY*
  3710. + MK`7<9R`B+`78Y8$@;P`\+S`8`"\02&P%^$AL")!.N@XL3^\`$"\L"N1.N@AJ
  3711. + MT:P*Y%*L!=A83W`_8``"\"XO`#A*KP`H9P`!)E*L!=A*$V=X(&\`*$JH``1G
  3712. + M#$/K``$I20748```T$JL!=QG2"(L!=CE@2)O`#PD<1C\<"VP*@`!9A8O$"\1
  3713. + M2&P&%DAL")!.N@VZ3^\`$&`<$!)(@$C`+Q`O`"\12&P&1$AL")!.N@V<3^\`
  3714. + M%"\L"N1.N@?:T:P*Y%A/<#]@``)D<`$@;P`HL*@`!&9@(BP%V+*';!)2K`78
  3715. + MY8$@;P`\*7`8``748$9*K`7<9QSE@2!O`#PO,!C\+Q!(;`9R2&P(D$ZZ#4!/
  3716. + M[P`0+RP*Y$ZZ!WY83]&L"N1P.B!O`$"P$&8&<#I@``'^<#]@``'X+RP*Y$ZZ
  3717. + M!UI83]&L"N0@#6<"*H0@;P`H("@`"&<.(B@`#"!`((%P`&```<P@;P`H("@`
  3718. + M#&```<!*KP!,9S`B+`78Y8$@;P`\('`8`'`ML"@``6<:(&P*Y!`02(!(P"\`
  3719. + M+R\`1&$`^NI03TJ`9F1*K`7<9TPB+`78Y8$@;P`\)'`8`'`ML"H``688+RP*
  3720. + MY"\02&P&F$AL")!.N@Q\3^\`$&`>$!)(@$C`+RP*Y"\`+Q!(;`:X2&P(D$ZZ
  3721. + M#%Q/[P`40>P&V%*L!=@I2`KD<#]@``$F2^P*Y"!5$!@JB!]``"=(@$C`+P`O
  3722. + M+P!$*LAA`/IB4$\D0"!L"N1*$&8$4JP%V"`*9PH0+P`G<CJP`68X2JP%W&<@
  3723. + M$"\`)TB`2,`O`"!O`$`O$$AL!MI(;`B03KH+Z$_O`!`0+P`G2(!(P"E`!>!P
  3724. + M/V```+)P.K`J``%F``"@L"H``F8>(&P*Y!`09PHI2`744JP%V&`$0JP%U)/)
  3725. + M*4D*Y&!Z(&P*Y$H09PHI2`744JP%V&!D("P%V+"'9DI*K`7<9R`0+P`G2(!(
  3726. + MP"\`(&\`0"\02&P&]$AL")!.N@MH3^\`$!`O`"=(@$C`*4`%X'`Z(&\`0+`0
  3727. + M9@8?0``G8!IP/Q]``"=@$E*L!=@B`.6!(&\`/"EP&``%U$*L"N00+P`G2(!(
  3728. + MP$S?+/S>_``03G4@#Y!\`!BPK`C\90`%1"`O``0@;P`,(F\`"$*G0J="IR\(
  3729. + M+PDO`&$`^B)/[P`83G6_[`C\90`%&B\'+B\`"&\2OJP%MFX,Y8=![`4:(#!X
  3730. + M`&`&0>P''"`(+A].=2`/D'P`*+"L"/QE``3H2.<#%"PO`!@N+P`4)F\`("IO
  3731. + M`!PO+`E(2&P',DAL")!.N@J*+J\`2"\O`$0O+P!$+R\`1"\O`$0O+P!$+R\`
  3732. + M1"\++PU(;`B03KH*8D_O`#!*AF<8+P9A`/]N+H!(;`<X2&P(D$ZZ"D9/[P`,
  3733. + M""P``0BK9T)2K`B<("P(G+"L"*1N("!L")12K`B4$+P`"@@L``8(JV<N2&P(
  3734. + MD$ZZ#2)83V`B4ZP(G$AL")!(>``*3KH*7E!/8`Y(;`B02'@`"DZZ"DY03TAL
  3735. + M")!.N@ST6$]*AV<(+P=.N@E$6$],WRC`3G4``%E/0?D`````+HAG""!Y____
  3736. + M_$Z06$].=5E/0?D`````+HAG""!Y_____$Z06$].=4CG`Q<J;`KT8!0F57`4
  3737. + MT*T`!")-+'@`!$ZN_RXJ2R`-9NA"K`KT8$PJ;`L`<)S0K`C\)D`@+0`$*4`+
  3738. + M`"EM``@(_"XM`!A*@&8>(&P)(`QH`"0`%&42($\L"$'M``PL>``$3J[])"Y&
  3739. + M(DL@!RQX``1.KO\N2JP+`&:N3-_HP$YU(&\`!")O``@@4")1$!BP&68$2@!F
  3740. + M]I`A2(!(P$YU(&\`!"`O``A#^O_@<@1.^@>"(&\`!")O``@@+P`,2H!O"A(0
  3741. + M$-$2P5.`9O9.=2`O``@@;P`$3E7_]")/<@I.N@(T!D$`,!+!2H!F\"`)$.&_
  3742. + MR6;Z0A"0CTY=3G4``"`O``@@;P`$3E7_]")/(@`"00`'!D$`,!+!YHAF\"`)
  3743. + M$.&_R6;Z0A"0CTY=3G4``#`Q,C,T-38W.#EA8F-D968@+P`((&\`!%%/(D\R
  3744. + M``)!``\2^Q#<Z(AF\B`)$.&_R6;Z0A"0B5!/3G4``"!O``0B;P`(2.<P("1(
  3745. + M<@`@`28!#!``*V<(#!``+68$=@%22!`8!```,&T:#```"6X4)`'E@=*"TH%*
  3746. + M`V8$TH!@XI*`8-XB@2`(D(I3@$S?!`Q.=2!O``0O#2I(""T``P`;9C`@+`BT
  3747. + M3KH$WBM```0K0``09@IP#"E`"J1P_V`6*VP(M``4<//!K0`80JT`#$*M``AP
  3748. + M`"I?3G4``"!O``1(YR`4*D@F36`@<``0$T'L!T4(,``!"`!G"G(`$@!T()*"
  3749. + M8`1R`!(`%L%*$V;<(`U,WR@$3G4``)[\`%!(YS$V0_H`A'``+'@`!$ZN_=@J
  3750. + M0$J`9@9P%$ZZZ:Y^`"!L"2P>*/__(`=#[P`<8`(2V%.`9/I"-W@<0>\`'"E(
  3751. + M",1#[`C,1^P(X"Q-D<B5RG``(@!T?=2"=BA.KOZD<!1.NNEH3-]LC-[\`%!.
  3752. + M=2HJ(%-T86-K($]V97)F;&]W("HJ``!%6$E4``!I;G1U:71I;VXN;&EB<F%R
  3753. + M>0!*@&H``!Y$@$J!:@``#$2!80``($2!3G5A```81(!$@4YU2H%J```,1(%A
  3754. + M```&1(!.=2\"2$$T`68``")(0$A!2$(T`&<```:$P3`"2$`T`(3!,`)(0C("
  3755. + M)!].=2\#=A`,00"`9```!N&944,,00@`9```!NF964,,02``9```!N6954-*
  3756. + M06L```;CF5-#-`#FJ$A"0D+FJDA#@,$V`#`"-`-(0<3!D()D```&4T/0@7(`
  3757. + M,@-(0^>X2$#!028?)!].=0``2.=P`"0`9R!*@68$0H!@&"8`QL%(0L3!2$)"
  3758. + M0M:"2$'`P4A`0D#0@TS?``Y.=0``("P)*`1``?0N0$[Z_F```"!O``0@"$H8
  3759. + M9OQ32)'`(`A.=0``(&\`!"`O``@B?`````!*$&<*L!AF^$/H__]@\B`)3G4@
  3760. + M;P`$(F\`""`O``Q*@&<04X`2&+(99@Q*`6<$4X!J\G``3G5N!'#_3G5P`4YU
  3761. + M```@;P`$(F\`"!(8LAEF"$H!9O9P`$YU;@1P_TYU<`%.=2)O``@@;P`$("\`
  3762. + M#"((8`00V6<(4X!D^&`&0AA3@&3Z(`%.=2)O``@@;P`$("\`#"((2H!O%K')
  3763. + M90S3P-'`$2%3@&;Z8`80V5.`9OH@`4YU(&\`!"`O``A(YP,4+@`J2&82(`UF
  3764. + M!'``8&@@34ZZ`&YP`&!>(`UF"B`'3-\HP$[Z`<@F356+,#Q__\!32,#E@"P`
  3765. + M"!,`#V<,#&N``/_^9@0L*__R(`=.N@&@)D!*@&8$<`!@'KR'8P0@!V`"(`8@
  3766. + M32)+8`(2V%.`9/H@34ZZ``X@"TS?*,!.=2!O``0@"&8"3G59@$CG/#(B+`KT
  3767. + M9@XI?````!8*I$S?3#Q.=2)!L(%O$B0!U*D`!`:"````%+"";`)@""(I``!G
  3768. + MU&#@)@$&@P```!"P@VW&9Q(D0T*"-"H``FNZY8K6@EB#8.@D0#0J``!JJ@BJ
  3769. + M``<``$*#-BH``@)#?__EBTIJ``)K0$?R.`1*:P``:S9"A#@K``("1'__Y8S8
  3770. + M@UB$Y(Q8@TIK``)J!`!$@``U1``":Q(J!.6,-#)(!`)"@`"*0C6%2`1"A#@J
  3771. + M``!G3.6,1(1'\DC\2FL``&L^0H0X*P`"Y8Q"A3HJ``("17__Y8W8A5B$6(/D
  3772. + MC$IJ``)J!`!$@``W1``":Q(J!.6,-#-(!`)"@`"*0C>%2`37J0`()BD`!+:L
  3773. + M!T!N#+:I``AF.DJI``!G-"`L"O0@0+*`9@PI:0``"O1@$"!H``"RJ```9O8A
  3774. + M:0`````@*0`$!H`````4+'@`!$ZN_RY,WTP\3G4@+P`$2H!F#"E\````%@JD
  3775. + M<`!.=4CG/C)6@`*`_____`R```'__&X``+BPK`=`;@``L"8L"O1G``"H(D.P
  3776. + MJ0`(;C(B+`KXLJD`#&8H1>D`$$I2:Q!"A#@J``("1'__Y8RPA&\:0H0X*@`"
  3777. + M:PCEC$7R2`1@W"8I``!G9B)#8+X(Z@`'``!'\@@$0H6PA&<\+`2<@%F&9@0@
  3778. + M!&`PY(Y*:@`":@0`1H``*@#DC3=&``(W10``-44``GH$2D9K#C0R2`0"0H``
  3779. + MC$(UAD@$)BD`"):`EH4C0P`((`I8@$S?3'Q.=2H`L*P'0&H$("P'0"@`!H``
  3780. + M```4(BP*^"QX``1.KO\Z2H!F"BE\````#`JD8,PB0$7I`!`C;`KT```I20KT
  3781. + M(T0`!"-L"O@`#"8$EH5G*%F#9R0C0P`(1_)8!#5\@````.2--44``C=%``#D
  3782. + MBP!#@``W0P`"8!1"J0`(-7R`````Y(P`1(``-40``B`*6(!,WTQ\3G4@;P`$
  3783. + M("\`""(O``PB;P`064](YP\V+`$N`"I(+TD`('`!OH!C``"R)DW7QB`'58!F
  3784. + M)"\++PT@32)++&\`*$Z64$]*@&\``)(@!B!-(DM.NOA,8```A"`'XH@B!DZZ
  3785. + M^R8B3=/`(`8@34ZZ^#(D37H`>`%@*B\-+PL@2R)-+&\`*$Z64$]*@&H24H75
  3786. + MQK7+9PH@!B!+(DI.NO@$U\92A+B'9=*US6<*(`8@32)*3KKW[B9O`"`@!2(&
  3787. + M($TB2V$`_U(@2M'&(`>0A5.`(@8B2TS?;/!8CV``_SI,WVSP6$].=4[ZZMI.
  3788. + M^NK2("\`!$CG`00N`"IL"/1@""!M``1.D"I5(`UF]$OL"$QP!L"M`!A5@&88
  3789. + M("T`!)"M`!!G#B(M`!P@;0`0P4%.NNH0($TJ4"`-9M8@!TS?((!.^N*T("\`
  3790. + M!"!O``@O#2(`*DA2E4/M``@@$5*1&X$(#"`9#(````(`;11![0`,(FT`!'(!
  3791. + MP4%.N@'P0JT`""I?3G6>_`(,+PTJ;P(40J\`#$*O``0O30`(2&\"'"\O`AQ!
  3792. + M^O^J0^\`#$ZZ"`I03R`O``QG$$'O`!`B;P`(<@'!04ZZ`:8(+0`%`!MF"`@M
  3793. + M``0`&V<$</]@!"`O``0J7][\`@Q.=2`O``0@;P`(64](YP,$+@`J2'P`'T``
  3794. + M#W)!TH'"K0`89@P([0`%`!MP_V```4!P,\"M`!A5@&=0<$Q&`,"M`!AR0-*!
  3795. + ML(%F#`CM``$`&T*M``Q@-`@M``4`&V<&</]@``$,<&Y&`,"M`!AR;D8!L(%F
  3796. + M#`CM``$`&T*M``Q@"G``*T``#&```.8@+0`,L*T`%&PR(&T`!%*M``0@!Q"`
  3797. + M4JT`#`@M``8`&V<.<@J^@68(($U.N@(`+`!*AF<``*H@!F```*H(+0`"`!MG
  3798. + M+D*M``P@+0`<0>\`#W(!3KKH@"P`4H!F"`CM``4`&V!R(`93@&=L".T`!``;
  3799. + M8&1*K0`49B`@34ZZ]L!*@&<*".T`!0`;</]@6'``*T``#"MM`!``!"`M``RP
  3800. + MK0`4;0@@34ZZ`88L``CM``$`&R!M``12K0`$(`<0@%*M``P(+0`&`!MG#G(*
  3801. + MOH%F""!-3KH!6BP`2H9G!"`&8`9R`!('(`%,WR#`6$].=2!O``0@+P`((B\`
  3802. + M#")O`!!93TCG#Q`L`2X`)DDO2``4(`8B!TZZ^`XJ`'@`2H=G!$J&9@9P`&``
  3803. + M`/QP,,"K`!AF"G!!T(#`JP`89@P(ZP`%`!MP`&```-YP,\"K`!A5@&=0<$Q&
  3804. + M`,"K`!AR0-*!L(%F#`CK``$`&T*K``Q@-`@K``4`&V<&<`!@``"J<&Y&`,"K
  3805. + M`!AR;D8!L(%F#`CK``$`&T*K``Q@"D*K``QP`&```(1*JP`49DP(*P`"`!MF
  3806. + M1"!+3KKUC$J`9SH(ZP`%`!MP`&!@(&\`%!`8(FL`!!*`4JL`!%*K``Q3A5*$
  3807. + M+T@`%'(*L`%F#@@K``8`&V<&($M.N@`^("L`#+"K`!1L!$J%;L)*A6\6($M.
  3808. + MN@`F("L`'"(%(&\`%$ZZYL#8@"`$(@=.NO9P3-\(\%A/3G4@;P`$2.<!!"I(
  3809. + M(`UG``"@<$'0@,"M`!AF+"!M`!!#[0`$(LA"F4(M`"!P`"+`""T`!P`;9P8(
  3810. + MK0```!L(K0`$`!M@``"*2JT`%&=$("T`#&H&<@`K00`,("T`#&<H(BT`'"!M
  3811. + M`!#!04ZZYD(N`%*`9@@([0`%`!M@#+ZM``QG!@CM``0`&RMM`!``!$*M``QP
  3812. + M,,"M`!AF$@@M``<`&V<&</S!K0`8<`!@)'#_8"!^`$OL"$Q*K0`89PP@36$`
  3813. + M_T9*@&<"?O\J52`-9N@@!TS?((!.=2!O``0B;P`(+V\`#``$+V\`$``(GOP`
  3814. + M-$CG+S8F;P!@*F\`7$CO`P``+$(O`#M"+P`Z0B\`.4(O`#@??``@`#="KP!4
  3815. + M</\O0`!00B\`-GX`?`!%[P`\8$IP`"!O`"P0$'(@D(%G(E>`9R91@&<258!G
  3816. + M!E>`9R)@,A]\``$`.V`>'WP``0`Z8!8??``!`#E@#A]\``$`.&`&'WP`,``W
  3817. + M4J\`+"!O`"Q*$&:N<`&P+P`[9@8??``@`#=R*B!O`"RR$&8>+&\`,")66)8B
  3818. + M$2]!`%1L"$2O`%0?0``[4J\`+&`,0^\`5$ZZ\PK1KP`L(&\`+!`0<BZP`69&
  3819. + M4J\`+'`J(&\`++`09APB;P`P(%%8D2`0+T``4&P&</\O0`!04J\`+&`60^\`
  3820. + M4$ZZ\L@J`&8&0J\`4&`$VZ\`+!]\`"``-W``(&\`+!`0<DR0@6<4<AR0@6<&
  3821. + M68!G"F`2'WP``@`V8`8??``!`#92KP`L(&\`+%*((F\`+!`1<@`2`!]``"0O
  3822. + M2``F<%"2@&<``1!1@6<``1QP"Y*`9P`!T%.!9U!;@6=,6X%G(E.!9P`!`E.!
  3823. + M9P``ZE>!9P`!@%6!9P``\%>!9P``ZF```;@D;P`P<`*P+P`V9@X@4EB2(E`@
  3824. + M$S*`8``"2B!26)(B4"*38``"/B)O`#`@45B1*!!J!'X!1(1*AV<,1>\`/1]\
  3825. + M`"T`/&`B2B\`.F<,1>\`/1]\`"L`/&`02B\`.6<,1>\`/1]\`"``/'P!(`0@
  3826. + M2DZZ\1XJ`"`O`%!F!DJ$9P`!Y"`O`%!J!G(!+T$`4"@O`%"8A6\<($K1Q"`%
  3827. + M(DI.NO2T<C`@2F`"$,%3A&3Z*B\`4-R%(`53@&8``000$K`O`#=F``#Z2J\`
  3828. + M4&8``/)"$F```.P@+P!0:@9P""]``%`??``!`#9P`K`O`#9F$")O`#`@45B1
  3829. + M(!!X`#@`8`HB;P`P(%%8D2@0$"\`)')UL`%G`/]:<F^P`68>2B\`.&<,1>\`
  3830. + M/1]\`#``/'P!(`0@2DZZ\(Y@`/\^2B\`.&<2'WP`,``\1>\`/A]\`'@`/7P"
  3831. + M(`0@2DZZ\*HJ``@O``4`)&8`_Q1![P`\3KKQ6F``_P@B;P`P(%%8D210(`IF
  3832. + M!$7Z`/(@2DH89OQ3B)'**@@@+P!0:P2PA6\$+T4`4"PO`%!@('P!(F\`,"!1
  3833. + M6)$@$!]``#Q"+P`]8`9P`&```*Q%[P`\("\`5+"&;`AR`"]!`%1@!)VO`%1*
  3834. + M+P`[9QY@"'``$!H@2TZ54X9L]&`&($MP($Z54Z\`5&ST8&I*AV8,2B\`.68&
  3835. + M2B\`.F=&$!)R(+`!9PQT*[`"9P9T+;`"9C)*AFLNLB\`-V828`IP`!`O`#<@
  3836. + M2TZ54Z\`5&SP<``0&B!+3I53AF`*<``0+P`W($M.E5.O`%1L\&`(<``0&B!+
  3837. + M3I53AFST("\`)DS?;/3>_``T3G4``"!O``0B;P`(+V\`#``$+V\`$``(GOP`
  3838. + M#$CG`!0F22I(+V\`'``08#AP);`O``QF)B!O`!BP$&8&4J\`&&`8+PLO#4/O
  3839. + M`!A.NON44$]*@&<&+T``&&`*<``0+P`,($M.E2!O`!@0&!]```PO2``82@!F
  3840. + MMDS?*`#>_``,3G4@;P`$((A8D$*H``0A2``(3G4``"!O``1(YP`&*DA*K0`*
  3841. + M9PHB32QX``1.KOZ8&WP`_P`(</\K0``4<``0+0`/+'@`!$ZN_K`B37`B3J[_
  3842. + M+DS?8`!.=0``(&\`!"`O``A(YP,6+@`J2'#_+'@`!$ZN_K8<`$B&2,8@!E*`
  3843. + M9@1P`&!@<"(B/``!``%.KO\Z)D!*@&8((`9.KOZP8$1!ZP`*(,T71P`)%WP`
  3844. + M!``(0A@0QI/)3J[^VB=``!`@#6<((DM.KOZ>8!I!ZP`8)T@`%$'K`!0G2``<
  3845. + M0JL`&!=\``(`("`+3-]HP$YU+P@O`$ZY```"M%!/3G4``````^P````!````
  3846. + M````/!(````!`````0````H````````#\@```^H```)T<&%T:```:&5L<```
  3847. + M=F5R<VEO;@``````````````"4P````!````!@````````E0`````0````P`
  3848. + M```````)5`````$`````````````````````<``E<PH`)7,``%5S86=E.B`E
  3849. + M<R!;+7!=(%LM+7!A=&A=(%LM+6AE;'!=(%LM+79E<G-I;VY=(&1I<BXN+@H`
  3850. + M`$=.52!F:6QE=71I;',@,RXV`````)0``$]K```````4````````````````
  3851. + M````K&-O;G-O;&4Z```E<SH@``!I;G1U:71I;VXN;&EB<F%R>0```'1I;65R
  3852. + M+F1E=FEC90````#_____9FEF;RYL:6)R87)Y```````````````````!#``!
  3853. + M```````````!#@```````````````$`H(REA;&QO8V$N8PDQ+C$`````````
  3854. + M``````!&86EL960@=&\@8W)E871E('1I;65R``!U<V5R(&EN=&5R<G5P=```
  3855. + M`````$YO(&UE;6]R>0```&$`1F%I;&5D('1O(&-R96%T92!T:6UE<@``3DE,
  3856. + M.@``3DE,.@``3DE,.@``*@!.24PZ``!);G9A;&ED('=I;&1C87)D("5S`$5R
  3857. + M<F]R(&5X<&%N9&EN9R!A<F=U;65N=',`55-%4@``=7-E<@``55-%4DY!344`
  3858. + M`$A/344``',Z``!32$5,3`!B:6XZ<V@``$A/4U1.04U%``!A;6EG80";,"!Q
  3859. + M``!&86EL960@=&\@:6YI=&EA;&ES92!)+T\``&%M:6=A('-P96-I9FEC(&5R
  3860. + M<F]R``````)$56YK;F]W;B!E<G)O<@!N;W0@;W=N97(`;F\@<W5C:"!F:6QE
  3861. + M(&]R(&1I<F5C=&]R>0!N;R!S=6-H('!R;V-E<W,`:6YT97)R=7!T960@<WES
  3862. + M=&5M(&-A;&P`:2]O(&5R<F]R`&YO('-U8V@@9&5V:6-E(&]R(&%D9')E<W,`
  3863. + M87)G=6UE;G0@;&ES="!T;V\@;&]N9P``97AE8R!F;W)M870@97)R;W(`8F%D
  3864. + M(&9I;&4@;G5M8F5R`&YO(&-H:6QD('!R;V-E<W,``&YO(&UO<F4@<')O8V5S
  3865. + M<V5S`&YO="!E;F]U9V@@;65M;W)Y`'!E<FUI<W-I;VX@9&5N:65D`&)A9"!A
  3866. + M9&1R97-S`&)L;V-K(&1E=FEC92!R97%U:7)E9`!M;W5N="!D979I8V5S(&)U
  3867. + M<WD``&9I;&4@97AI<W1S`&-R;W-S+61E=FEC92!L:6YK`&YO('-U8V@@9&5V
  3868. + M:6-E``!N;W0@82!D:7)E8W1O<GD`:7,@82!D:7)E8W1O<GD``&EN=F%L:60@
  3869. + M87)G=6UE;G0``&9I;&4@=&%B;&4@;W9E<F9L;W<`=&]O(&UA;GD@;W!E;B!F
  3870. + M:6QE<P!N;W0@82!T>7!E=W)I=&5R``!T97AT(&9I;&4@8G5S>0``9FEL92!T
  3871. + M;V\@8FEG``!N;R!S<&%C92!L969T(&]N(&1E=FEC90!I;&QE9V%L('-E96L`
  3872. + M`')E860M;VYL>2!F:6QE('-Y<W1E;0!T;V\@;6%N>2!L:6YK<P``8G)O:V5N
  3873. + M('!I<&4`;6%T:"!A<F=U;65N=`!R97-U;'0@=&]O(&QA<F=E``!)+T\@<W1R
  3874. + M96%M(&5M<'1Y``!F:6QE(&YA;64@=&]O(&QO;F<``&1I<F5C=&]R>2!N;W0@
  3875. + M96UP='D`=&]O(&UA;GD@<V]F="!L:6YK<R`H;&]O<#\I`````EX```)L```"
  3876. + M=@```I````*@```"N````L(```+<```"]````P8```,6```#*````SH```-,
  3877. + M```#7@```VH```.````#E````Z````.R```#P@```](```/B```#]```!`@`
  3878. + M``0<```$+@``!#X```1,```$9```!'(```2(```$F```!*0```2R```$Q```
  3879. + M!-8```3J```$_@```"8``&1O;W(N)6QX+B5L>```3F\@;65M;W)Y````````
  3880. + M`````````0```#]03U-)6$Q97T-/4E)%0U0`+2T``"5S.B!O<'1I;VX@8"5S
  3881. + M)R!I<R!A;6)I9W5O=7,*`"5S.B!O<'1I;VX@8"TM)7,G(&1O97-N)W0@86QL
  3882. + M;W<@86X@87)G=6UE;G0*```E<SH@;W!T:6]N(&`E8R5S)R!D;V5S;B=T(&%L
  3883. + M;&]W(&%N(&%R9W5M96YT"@``)7,Z(&]P=&EO;B!@)7,G(')E<75I<F5S(&%N
  3884. + M(&%R9W5M96YT"@`E<SH@=6YR96-O9VYI>F5D(&]P=&EO;B!@+2TE<R<*`"5S
  3885. + M.B!U;G)E8V]G;FEZ960@;W!T:6]N(&`E8R5S)PH````E<SH@:6QL96=A;"!O
  3886. + M<'1I;VX@+2T@)6,*`"5S.B!O<'1I;VX@<F5Q=6ER97,@86X@87)G=6UE;G0@
  3887. + M+2T@)6,*``!5;FMN;W=N('-Y<W1E;2!E<G)O<@``)7,Z(```.B`E<P``````
  3888. + M`$```"`@("`@("`@("@H*"@H("`@("`@("`@("`@("`@("`@2!`0$!`0$!`0
  3889. + M$!`0$!`0$(2$A(2$A(2$A(00$!`0$!`0@8&!@8&!`0$!`0$!`0$!`0$!`0$!
  3890. + M`0$!`0$0$!`0$!""@H*"@H("`@("`@("`@("`@("`@("`@("`A`0$!`@````
  3891. + M````````````````````````````````````````````````````````````
  3892. + M````````````````````````````````````````````````````````````
  3893. + M``````````````````````````````````````````````````````^@```(
  3894. + M;@``````````````````````````````````````````")``````````````
  3895. + M````````````````````````````````````````````````````````````
  3896. + M``````````````````(`__\````.``X```````````````#__P````0`!```
  3897. + M`````"NB```(N/__````!``$````````*[@``````````````#4````T````
  3898. + M)````!0````\````+````!P```"F````P````2````$4```%L@``!:X```6J
  3899. + M```%I@``!:(```6>```%F@``!98```62```%C@``!8H```6&```%@@``!7X`
  3900. + M``5Z```%=@``!7(```5N```%:@``!68```5B```%7@``!5H```56```%4@``
  3901. + M!4X```5*```%1@``!4(```4^```%.@``!38```4R```%+@``!2H```4F```%
  3902. + M(@``!1X```4:```"6@``"&X```A,```(W````^P````"````````".P```C8
  3903. + (`````````_(:
  3904. + `
  3905. + end
  3906. diff -rc --new-file emacs-18.59/amiga/amiga-extra/amiga/c/sort.uue /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/c/sort.uue
  3907. *** emacs-18.59/amiga/amiga-extra/amiga/c/sort.uue    Thu Jan  1 00:00:00 1970
  3908. --- /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/c/sort.uue    Tue Jul 12 10:36:08 1994
  3909. ***************
  3910. *** 0 ****
  3911. --- 1,650 ----
  3912. + begin 666 sort
  3913. + M```#\P`````````"``````````$``!F=```"L@```^D``!F=2.=^_B1()`!)
  3914. + M^0`````L>``$+P)(YP#@)FX!%"(K`*QG#.6)($$B*``TY8E@!B(/DJL`.G0`
  3915. + M(#P``!T<LJP)(&0((BP)(-"!=`$F02(\``$``4ZN_SI*@&8(3-\'!&```D`@
  3916. + M0"1`(D`@/````G:9_``````@W%.`9OH@'&<.($G1W-70((HD25.`8/`H2=G\
  3917. + M`````"E\```='`HD3-\'`"E."@!*`DS?``1([(``"@AG2"`,!(``````!H``
  3918. + M`!T<T*P)("(`!(````"`#&X`)``4;1@I0`H@*4$*')*L"2!![`H8((%.KOTD
  3919. + M8`(N0"`L"2`O0``$T:P*)"(/DHL&@0```(`I00G<0JP*!'``(CP``#``3J[^
  3920. + MSB9N`11#^@&(<`!.KOW8*4`=%&8&<&1@``#F*6L`F`G\2JL`K&<``'X@:P"L
  3921. + MT<C1R")H`!#3R=/)(`)R`!(9*4D*#-"!7H`"0/_\*4`*%$CG0$`B/``!``%.
  3922. + MKO\Z3-\"`DJ`9@AP%"\`9P`!!"!`*4`*$"`"4X#4@1&R```@`E."4<C_]A&\
  3923. + M`"`@`E."$;P`(B`"$;$@`"`!4<K_^!"\`"(O"&!*0>L`7$ZN_H!!ZP!<3J[^
  3924. + MC"E`"@0O`"1`("H`)&<8+&P=%"!`(B@``$ZN_Z`I0`G\(@!.KO^"(&P*!"\(
  3925. + M2&P)V"!H`"0I:``$"@Q.NDPD3KHVGG``8`0@+P`$)&P*""4`+'@`!`QN`"0`
  3926. + M%&T22JP*&&<,0>P*&%FL"B!.KOTD+DH@+`GT9P0@0$Z03KI+_$ZZ32Q*K`H$
  3927. + M9R`L;!T4(BP)_&<$3J[_IBQX``1.KO]\(FP*!$ZN_H9@$BQX``0@+`H49P@B
  3928. + M;`H03J[_+B)L'11.KOYB("P*)"),D_P`````3J[_+B`?3-]_?DYU9&]S+FQI
  3929. + M8G)A<GD````@#UE`L*P)W&4`408O#2IL&WI@#"\53KHO2%A/*FT`!"`-9O`J
  3930. + M7TYU(`^0?``,L*P)W&4`4-PO#2`O``@O`$ZZ4TA83RI`2H!F'$AL`)QP`"\`
  3931. + M+P!.NBA"8:9(>``"3KI5?$_O`!`@#2I?3G4@#Y!\``RPK`G<90!0F$CG`10N
  3932. + M+P`4)F\`$"`+9@HO1P`03-\H@&"42H=F#"\+3KI1@%A/<`!@,"\'+PM.NE#J
  3933. + M4$\F0$J`9AY(;`"V<``O`"\`3KHGV&$`_SQ(>``"3KI5$$_O`!`@"TS?*(!.
  3934. + M=2`/D'P`$+"L"=QE`%`J2.<`%"IO``P@34/L`-`0&+`99@9*`&;V9Q`O+P`0
  3935. + M+PU.NERF4$\@0&`$0>P))"9((`AF("\-2&P`TB\L',Q"ITZZ)VYA`/[22'@`
  3936. + M`DZZ5*9/[P`40>P))+'+9@9P`2E`&T(@"TS?*`!.=2`/D'P`#+"L"=QE`$^R
  3937. + M+PTJ;P`(+PU.NEG.6$]![`DDL<UG-$'L"4:QS6<L+PU.NEJ*6$]*@&<F2&P`
  3938. + MUB\L',Q"ITZZ)P)A`/YF2'@``DZZ5#I/[P`08`9PS\&M`!@J7TYU(`^0?``0
  3939. + ML*P)W&4`3U`O!BPO`!`@+P`,(&\`%")O``@O""\&+P`O"4ZZ5JI/[P`0L(9G
  3940. + M'DAL`.HO+!S,0J=.NB:D80#^"$AX``).NE/<3^\`$"P?3G4@#Y!\`!2PK`G<
  3941. + M90!.^DCG`10@;!LP(`A*&&;\4XB1P"X((`AR$-"!+P!A`/WR*D!(>``(80#]
  3942. + MZ%!/)D!*AV<J<"\@;!LPL#!X_V<>3KHG8%*L"B@O+`HH+P`O+!LP2&P`]B\-
  3943. + M3KI3U&`<3KHG0E*L"B@O+`HH+P`O+!LP2&P!""\-3KI3MD_O`!0FC2=L&WH`
  3944. + M!"E+&WH@#4S?*(!.=2`/44"PK`G<90!.7DCG`#0F;P`02^P;=F`6(&T`!")+
  3945. + M)%`0&;`:9@9*`&;V9P@J2$JM``1FY"9M``0@"V<:+Q-.NBQV+I-.ND\L*VL`
  3946. + M!``$+HM.ND\@6$],WRP`3G6_[`G<90!.!$CG(P1^`'P`<""^@&<&<@F^@68*
  3947. + M<@%![`XP(8%H`')_OH%B%D'L"!T(,``">`!G"G0!0^P*,".":`"^@6(,=%=!
  3948. + M[`@=Q#!X`&8*=`%![!(P(8)H`+Z!8@QT!T'L"!W$,'@`9A2^@&<0=`F^@F<*
  3949. + M=`%![!8P(8)H`+Z!8B9+[`@=V\<(%0`!9QH(%0`!9P@@!W(@D(%@`B`'0>P:
  3950. + M,!&`>`!@"B`'0>P:,!&`"`!2AUB&#(<```$`;0#_4$S?(,1.=2`/64"PK`G<
  3951. + M90!-."\-("\`#"IO``@K0``(+P!A`/P\*H!"K0`,0JT`!%A/*E].=2`/D'P`
  3952. + M$+"L"=QE`$T&2.<!%"9O`!0J;P`0(%4B2-/M``0@+0`,D\`O`"\)+PA.NDTZ
  3953. + M3^\`#"MM``P`!&!J("T`""(M``2R@&82T(`K0``(+P`O%6$`_!A03RJ`("T`
  3954. + M!"!5T<`B+0`(DH`O"R\!2'@``2\(3KI54$_O`!`N``@K``4`&V<>2&P!&B\L
  3955. + M',Q"ITZZ)`AA`/ML2'@``DZZ44!/[P`0WZT`!`@K``0`&V8<("T`!&>(+P!(
  3956. + M>``*+Q5.NDQB3^\`#$J`9P#_=`@K``0`&V=`2JT`!&<Z("T`!")5T\!R"K(I
  3957. + M__]G*B(M``BP@682TH$K00`(+P$O%6$`^W!03RJ`("T`!%*M``0@51&\``H(
  3958. + M`"`M``1,WRB`3G4@#UE`L*P)W&4`2^I(YP($+"\`%"(O`!`J;P`,*T$`".F!
  3959. + M+P%A`/KF*H!"K0`$*T8`#%A/3-\@0$YUO^P)W&4`2[1(YP,T*F\`'"!O`!@F
  3960. + M4"1+(F\`&-7I``0N%2PM``1*+!L\9UY@%%*+M\ID"!`3L"P;/&;RM\ID`E*+
  3961. + MM\ID4"`'4X=*@&;B8$92B[?*9!H0$W(`$@!(P2`!Y8!![`XP2K`(`&;D8`)2
  3962. + MB[?*9!80$W(`$@!(P2`!Y8!![`XP2K`(`&?DM\ID""`'4X=*@&:\2JT`"&<B
  3963. + M8`)2B[?*9!H0$W(`$@!(P2`!Y8!![`XP2K`(`&;D8`)2B[?*9`@@!E.&2H!F
  3964. + M\B`+3-\LP$YUO^P)W&4`2N)(YP,T*F\`'"!O`!@F4"1+(F\`&-7I``0N+0`,
  3965. + M+"T`$$HL&SQG:&`>4HNWRF0($!.P+!L\9O*WRF0,2H=F!DJM`!1G`E*+M\ID
  3966. + M4"`'4X=*@&;88$92B[?*9!H0$W(`$@!(P2`!Y8!![`XP2K`(`&;D8`)2B[?*
  3967. + M9!80$W(`$@!(P2`!Y8!![`XP2K`(`&?DM\ID""`'4X=*@&:\2JT`%&<B8`)2
  3968. + MB[?*9!H0$W(`$@!(P2`!Y8!![`XP2K`(`&;D8`)2B[?*9`@@!E.&2H!F\B`+
  3969. + M3-\LP$YU(`^0?``8L*P)W&4`2?Z>_``,2.<@-"IO`"0@;P`@)E`@2R)O`"#1
  3970. + MZ0`$(FP;<D*M``0O2``8+TD`$&```.1"$B`M``@B+0`$LH!F%-"`*T``".F`
  3971. + M+P`O%6$`^0Q03RJ`(BT`!.F!(E73P2*+(`J0BR-```0D;P`0(`IG``"(("H`
  3972. + M#&L<("T`!.F`)%75P"\O`!`O"F$`_HQ03R5```Q@$"0M``3I@B)5T\(C;P`4
  3973. + M``PD;P`0(!)K'"(M``3I@215U<$O+P`0+PIA`/V&4$\E0``(8$)*J@`(9QI@
  3974. + M`E*+$!-R`!(`2,$@`>6`0>P.,$JP"`!FZ"(M``3I@2)5T\$C2P`(8!(B+0`$
  3975. + MZ8$@5='!0J@`"$*H``Q2K0`$)F\`%%*+)&\`&+?*9"H@"B(+D($O`$AX``HO
  3976. + M`4ZZ2.)/[P`,)$`O0``49PPB+0`$LJT`#&T`_NX@+P`8D(L@;P`@(4``#$S?
  3977. + M+`3>_``,3G6_[`G<90!(FDCG`S0F;P`<*F\`&!`5?@`>`!`3?``<`'`NOH!F
  3978. + M``">O(!F``"84HT0%7X`'@!2BQ`3?``<`+R'9@X@!^6`0>P*,$JP"`!FWB`'
  3979. + MY8!![`HP)$C5P"`29Q(B!N6!2K`8`&<((`>0AF```)Y*DF<@8`A2C1`5?@`>
  3980. + M`'`POH!G\N6'0>P*,$JP>`!G>G`!8'@@!N6`0>P*,$JP"`!G:&`(4HL0$WP`
  3981. + M'`!P,+R`9_+EAD'L"C!*L&@`9TQP_V!*<"Z^@&8>4HT0%7X`'@!P,+Z`9_+E
  3982. + MAT'L"C!*L'@`9RAP`6`F<"Z\@&8>4HL0$WX`'@!P,+Z`9_+EAT'L"C!*L'@`
  3983. + M9P1P_V`"<`!,WRS`3G4@#U%`L*P)W&4`1X)(YR\4)F\`)"IO`"`0%7X`'@`0
  3984. + M$WP`'`!@"%*-$!5^`!X`(`?E@$'L#C!*L`@`9NI@"%*+$!-\`!P`(`;E@$'L
  3985. + M#C!*L`@`9NIP+;Z`9@`!)E*-$A5^`!X!O(!G(.6'0>P*,$JP>`!G#N6&2K!H
  3986. + M`&<&</]@``(><`!@``(84HL0$WP`'`!@"%*-$!5^`!X`<#"^@&?R8`A2BQ`3
  3987. + M?``<`'`PO(!G\F`04HT0%7X`'@!2BQ`3?``<`+R'9@X@!^6`0>P*,$JP"`!F
  3988. + MWG`NOH!F#B(&Y8%![`HP2K`8`&<2O(!F'B`'Y8!![`HP2K`(`&80+PLO#6$`
  3989. + M_>Q$@%!/8``!EB`'Y8!![`HP2K`(`&<@>@%@`E*%4HT0%7(`$@!(P2`!Y8!!
  3990. + M[`HP2K`(`&;F8`)Z`"`&Y8!![`HP2K`(`&<@>`%@`E*$4HL0$W(`$@!(P2`!
  3991. + MY8!![`HP2K`(`&;F8`)X`"`$D(5F``$N(`5G``$H(`:0AV```2!P+;R`9CIR
  3992. + M`!('2,$D`>6"0>P*,$JP*`!G&!(K``%T`!0!2,+E@DJP*`!G!G`!8```[G``
  3993. + M8```Z%*-$!5^`!X`<#"^@&?R8`A2BQ`3?``<`'`PO(!G\F`04HT0%7X`'@!2
  3994. + MBQ`3?``<`+R'9@X@!^6`0>P*,$JP"`!FWG`NOH!F#B(&Y8%![`HP2K`8`&<2
  3995. + MO(!F'B`'Y8!![`HP2K`(`&80+TT`("]+`"1,WRCT8`#\OB`'Y8!![`HP2K`(
  3996. + M`&<@>@%@`E*%4HT0%7(`$@!(P2`!Y8!![`HP2K`(`&;F8`)Z`"`&Y8!![`HP
  3997. + M2K`(`&<@>`%@`E*$4HL0$W(`$@!(P2`!Y8!![`HP2K`(`&;F8`)X`"`%D(1F
  3998. + M""`%9P0@!Y"&3-\H]$YU(`^0?``,L*P)W&4`1-Q93TCG#A0H+P`@)F\`''P`
  3999. + M>@Q@!%*+4X1*A&\6$!-R`!(`2,$@`>6`0>P.,$JP"`!FXG`#N(!M``"$2],0
  4000. + M'7(`$@!![!HP1^\`%!;P$``0'7(`$@`6\!``$!UR`!(`%O`0`$(;*`;8A6H"
  4001. + M4H3BA"`$YX!![P`40^P`,")Q"``2&+(99@1*`6;V;`0J!&`"+`0@!9"&<@&P
  4002. + M@6[*(`;G@$?L`##7P$'O`!0B4Q`8L!EF#$H`9O9F!B`K``1@`G``3-\H<%A/
  4003. + M3G4@#Y!\`""PK`G<90!$")[\`!1(YS\V?@!\`"]L&W(`,&```Y@F;0`8(&T`
  4004. + M'"1O`$`O2``J2H9F$DJJ``AG#")O`$1*J0`(9@``MB`M``QK("\-+PIA`/C6
  4005. + M+HTO+P!,+T``1&$`^,A/[P`,+T``-&`8(E+3Z@`$(&\`1"Q0W>@`!"])`#@O
  4006. + M3@`T(!5K'B\-+PIA`/?(*D`NKP`X+R\`3&$`][I/[P`,)$!@<"I2(&\`1"10
  4007. + M(&\`,$JH``AG7F`"4HV[[P`X9!H0%7(`$@!(P2`!Y8!![`XP2K`(`&;B8`)2
  4008. + MBK7O`#1D-!`2<@`2`$C!(`'E@$'L#C!*L`@`9N)@'"IJ``@@:@`,+&\`1"1N
  4009. + M``@B;@`,+T@`."])`#0J+P`X(@V:@2`O`#0D`"8*E(,H`DJ%:@)Z`$J$:@)X
  4010. + M`"!O`#!*J``@9UHF0"!O`#@0$&8$2A-G(A030A-"$"\#+P$?0``Q80#[)E!/
  4011. + M+@`@;P`X$*\`*1:"8`PO`R\!80#[#E!/+@!*AV<``BH@;P`P2J@`*&<((`=$
  4012. + M@&```C`@!V```BH@;P`P2J@`)&<T+P4O#6$`_7XN`"Z$+P-A`/UT3^\`#)Z`
  4013. + M9P`!["!O`#!*J``H9P@@!T2`8``!\B`'8``!["`+9P``I$JO`"IG``"<8```
  4014. + MA%*-N^\`.&06$!5R`!(`2,$@`>6`2K,(`&;F8`)2BK7O`#1D$A`2<@`2`$C!
  4015. + M(`'E@$JS"`!FYKOO`#AD1K7O`#1D0!`:<@`2`!`==``4`"!O`"H0,"``L#`0
  4016. + M`&<F$"K__W(`$@`0,!``2(!(P!(M__]T`!0!$C`@`$B!2,&2@&```0J[[P`X
  4017. + M9``!!+7O`#1E`/]R8```^"`+9WA@9E*-N^\`.&06$!5R`!(`2,$@`>6`2K,(
  4018. + M`&;F8`)2BK7O`#1D$A`2<@`2`$C!(`'E@$JS"`!FYKOO`#AD*K7O`#1D)!(=
  4019. + MLAI6P$0`2(!*`&<6$"K__TB`2,`2+?__2(%(P9*`8```BKOO`#AD``"$M>\`
  4020. + M-&6.8'I*KP`J9U`F;P`T8#X0&G(`$@`0'70`%``@;P`J$#`@`+`P$`!G)!`J
  4021. + M__]R`!(`$#`0`$B`2,`2+?__=``4`1(P(`!(@4C!DH!@+KOO`#AD*K7+9;A@
  4022. + M)+J$;`0@!6`"(`0@32)*<@!*@&<.$AB2&68$4X!F]DB!2,$N`4J'9Q8@;P`P
  4023. + M("@`*&<&(@=$@6`"(@<@`6`R+@6>A&<4(&\`,$JH`"AG!B`'1(!@'"`'8!@@
  4024. + M;P`P+V@`+``P4H8J;P`P(`UF`/QB<`!,WVS\WOP`%$YU(`^0?``,L*P)W&4`
  4025. + M0#A(YR\4)F\`)"IO`"!*K!MR9QXO"R\-80#\"E!/2H!F:$JL&SYF!DJL&SAG
  4026. + M!'``8%@N+0`$+"L`!+Z&;`0@!V`"(`8J`&<P(%4B4Q`1<@`2`!`0=``4`)2!
  4027. + M*`)F'B`%<@!*@&<.$AB2&68$4X!F]DB!2,$H`68$*`>8ADJL&S1G!B`$1(!@
  4028. + M`B`$3-\H]$YU(`^0?`!`L*P)W&4`/YR>_``T2.</!"IO`$QP`2]``!0O+`"4
  4029. + M2&\`/&$`\CP@+`"4(BP`F$ZZ/GY2@$AX`@`O`$AO`#AA`/-N+BP`F"Z'80#N
  4030. + M<"]``"PNC4AO`$QA`/(X+`!(;P!`2&\`5&$`]3)/[P`@2H9G``#R?`!Z`&`P
  4031. + M(&\`*-'%2&@`$"\(80#^V%!/*`!*K!L^9P1*A&H$2H1O"$*O`!1@``#"4H9P
  4032. + M$-J`("\`+%.`O(!MQB(O`"SI@2!O`"C1P9#\`!`@*``$L(=O'"P`4H9@`MZ'
  4033. + MO(=N^B\'+R\`'&$`[B!03R]``!@B+P`LZ8$@;P`HT<$@*/_T4H`O`"\H__`O
  4034. + M+P`@3KH^]B(O`#CI@2!O`#31P2]H__0`*"Z-2&\`1&$`\7!/[P`0+`!G,DAO
  4035. + M`"A(;P`\80#T9"ZO`#!(;P`@80#^'D_O``PJ`$JL&SYG!$J%:@1*A6\&0J\`
  4036. + M%&`&2H9F`/\2+PUA`.Y^+J\`/$ZZ/T`NKP`L3KH_."ZO`!Q.NC\P6$\@+P`4
  4037. + M3-\@\-[\`#1.=2`/D'P"M+"L"=QE`#X&GOP"I$CG+S8N+P+0*F\"U$*O`+1*
  4038. + MK!L^9Q0@+`"8+P`O0`"T80#L]EA/+T``N'H`?`!X`&```*!'[P'(U\8O+`"4
  4039. + M+PMA`/!\4$]@)"\280#M]EA/4X<L!2`&Y8`D;P+,U<!@""2J``12AEB*O(=M
  4040. + M]+J';!0D;P+,U<0O$B\+80#P<E!/2H!GQ"PO`"RZAV8*+Q-.NCY\6$]@-$7O
  4041. + M`,C5QB`L`)0B+`"83KH\9E*`2'@"`"\`+PIA`/%8+HHO"V$`\SI/[P`00>\`
  4042. + M<$*P2`!2A7`0W(!8A"]&`"RZAVT`_UI\`$7O`#!@!"3&4H:\AVWX?`%@7B`&
  4043. + MY8!%[P`PU<`@*O_\(@#E@4/O`'#I@$WO`,@@3B(Q&`#I@2)P"`#3P2`2(@#E
  4044. + M@4'O`'#I@"(P&`#I@2!V"`#1P2\(+PEA`/R$4$]*@&\,("K__"52__PD@'P`
  4045. + M4H:\AVV>)&\"S&```[Q*K!L^9P`!?DJ&9P``GB`O`#`B`.6!0>\`<.F`0^\`
  4046. + MR"(P&`#I@2!Q"`#1P2\(2&\`O&$`_"Y03TJ`9VXO#2\O`,!(>``!+R\`Q&$`
  4047. + M[/Y/[P`0""T``0`;9SY2K0`,("T`#+"M`!1N'B!M``12K0`$$+P`"@@M``8`
  4048. + M&V<H+PU.ND9.6$]@'E.M``PO#4AX``I.ND(84$]@#"\-2'@`"DZZ0@I03WP`
  4049. + M0J\`M$J&9@`!6B`O`#`B`.6!0>\`<"0P&`#I@NF`0>\`R")P"`#3PBPI``12
  4050. + MABHO`+"ZAFP<8`+:A;J&;?HO10"P+P4O+P"\80#K$E!/+T``N"`O`#`B`.6!
  4051. + M0>\`<.F`0^\`R"(P&`#I@2!Q"`#1P2`H``0O0`"\4H`O`"\0+R\`P$ZZ.]1/
  4052. + M[P`,("\`,"(`Y8%-[P!P(C88`.F!Z8!-[P#(W<`O3@`H(F\`*"91U\$B*P`(
  4053. + M9PR2DRQO`+C=P2].`,`B*P`,9PR2DR)O`+C3P2])`,1R`2]!`+1@``"&("\`
  4054. + M,"(`Y8%![P!PZ8!#[P#((C`8`.F!('$(`-'!+PTO*``$2'@``2\080#KFD_O
  4055. + M`!`(+0`!`!MG/E*M``P@+0`,L*T`%&X>(&T`!%*M``00O``*""T`!@`;9R@O
  4056. + M#4ZZ1.I83V`>4ZT`#"\-2'@`"DZZ0+103V`,+PU(>``*3KI`IE!/(B\`,.6!
  4057. + M0>\`<-'!4I`D+P`PZ8)#[P#(T\(@$+"I``1F``$$0>\!R-'"+S(8`"\(80#M
  4058. + M6E!/2H!G+B(O`##I@4'O`<C1P4/O`,C3P2\)+PAA`/!"4$\B+P`PY8%![P!P
  4059. + M0K`8`&```,!\`4?O`#1@#B`3L*\`,&\"4Y-2AEB+O(=M[E.'(B\`,.6!+S(8
  4060. + M`&$`ZE`B+P`TZ8%![P',+K`8`$ZZ.P@B+P`TZ8%![P#,+K`8`$ZZ.O983RPO
  4061. + M`#`J!N6%*`;IA&`\);)8!%@`0>\!R-'$0^@`$"#9(-D@V2#90>\`R-'$0^@`
  4062. + M$"#9(-D@V2#90>\`<-'%(*@`!%*&6(5P$-B`O(=MP'P`1^\`-&`0(`;E@"!/
  4063. + MT/P`,"&;"`!2AKR';>Q@``".>@%'[P`T8%0@+P`P(@#E@4/O`'#I@$WO`,@@
  4064. + M3B(Q&`#I@2)P"`#3P2`3(@#E@4'O`'#I@"(P&`#I@2!V"`#1P2\(+PEA`/CN
  4065. + M4$\L`&8&+"\`,)R32H9K"%*%6(NZAVVH*"\`,'P!1^\`,&`0(`;E@"!/T/P`
  4066. + M,";P"`!2AKR%;>SEA2!/T/P`+"&$6``L+P"T2H=F`/P^2JP;/F=V2H9G<B\-
  4067. + M+R\`P$AX``$O+P#$80#I;$_O`!`(+0`!`!MG/E*M``P@+0`,L*T`%&X>(&T`
  4068. + M!%*M``00O``*""T`!@`;9R@O#4ZZ0KQ83V`>4ZT`#"\-2'@`"DZZ/H903V`,
  4069. + M+PU(>``*3KH^>%!/+R\`N$ZZ.7983TS?;/3>_`*D3G4@#Y!\`!"PK`G<90`X
  4070. + M4%E/2.<.-"PO`"0J;P`@)F\`*"`&58!F.$AM`!`O#6$`]^I03TJ`;P``^B!-
  4071. + M(DLBV"+8(M@BV$'M`!`B2"K9*MDJV2K9(-L@VR#;(-M@``#4*@9J`E*%XH4D
  4072. + M32@&F(4@!>F`V\`O30`8<`&Z@&\.+PLO!2\*80#_?$_O``QP`;B`;PXO"R\$
  4073. + M+PUA`/]H3^\`#"I+8$(O+P`8+PIA`/=N4$]'[0`02H!N%B!-*DLB2B#9(-D@
  4074. + MV2#9U/P`$%.%8!@@32I+(F\`&"#9(-D@V2#9<!#1KP`84X1*A6<:2H1FMF`4
  4075. + M($HB32+8(M@BV"+8U/P`$-K\`!`@!5.%2H!FY"IO`""<A"9O`"A@%B!+(DTB
  4076. + MV"+8(M@BV-K\`!#6_``04X9*AF;F3-\L<%A/3G4@#Y!\``RPK`G<90`W&$CG
  4077. + M!Q`N+P`8)F\`%'P`>@!@+DAL`28O$V$`YL8N@&$`]TY03TJ`9A0O$R\L"BQ(
  4078. + M;`$H3KHQLD_O``Q2AE*%6(NZAVW.(`9,WPC@3G4@#Y!\`%2PK`G<90`VOI[\
  4079. + M`$A(YP\T*F\`:&```1I^`"`&<A!.NC6P>@`O30`@+T``'&!X1^\`)"(%TH;E
  4080. + M@4AL`3PO-1@`80#F3%!/)L!2AG`0O(!MXF$`YVPD0$AL`3XO`&$`YC`F0"Z`
  4081. + M2'@`$$AO`#!A`/A$+HMA`.:23^\`$'P`(@72AN6!+S48`&$`Y]183U*&<!"\
  4082. + M@&WH4H<@;P`@(,I2A'`0VH`O2``@?`"XKP`<;8`@+P!L<A!.NC4:*@%'[P`D
  4083. + M8!HB!.F!TH;E@4AL`4`O-1@`80#EO%!/)L!2AKR%;>)A`.;>)D!(;`%"+P!A
  4084. + M`.6B)$`N@"\%2&\`,&$`][@NBF$`Y@9/[P`0?`!@%"($Z8'2AN6!+S48`&$`
  4085. + MYT183U*&O(5MZ"`'Y8`KBP@`4H<O1P!L>``L+P!L<!"\@&X`_MQZ`&`<2&P!
  4086. + M1"\U6`!A`.5"4$\@3]#\`"0A@%@`4H18A;B&;>`O+P!P+P1(;P`L80#W1$_O
  4087. + M``QZ`"9-8`HO&V$`YMY83U*%NH9M\DS?+/#>_`!(3G4@#Y!\`#2PK`G<90`U
  4088. + M)I[\`"1(YR\T?@`O+`"02&\`.&$`Y\X@+`"0(BP`F$ZZ-!!2@$AX0``O`$AO
  4089. + M`#1A`.D`+"\`0"`&Z8`N@&$`X_Y/[P`4*D`H+P!,8``!9"!O`$A8KP!(2&P!
  4090. + M1B\080#DD%!/)D!@``$L2&\`)$AO`#AA`.JH4$\@+P`HL(9O&BH`8`+<AKJ&
  4091. + M;OH@!NF`+P`O#6$`X^Y03RI`+PTO+P`L+R\`+&$`_"1/[P`,""L`!``;9Q1*
  4092. + MA&802H=F#$JO`$!F!B1O`%!@%%*'80#E5$AL`4@O`&$`Y!I03R1`>`!Z`&``
  4093. + M`)I*K!L^9R!*A&<<(&\`)-'%+T@`($AH__`O+P`D80#SX%!/2H!G;"!O`"31
  4094. + MQ2\*+R@`!$AX``$O$&$`Y*Q/[P`0""H``0`;9SY2J@`,("H`#+"J`!1N'B!J
  4095. + M``12J@`$$+P`"@@J``8`&V<H+PI.NCW\6$]@'E.J``PO"DAX``I.NCG&4$]@
  4096. + M#"\*2'@`"DZZ.;A03U*$<!#:@+BO`"AM`/]B(&\`4+'*9P@O"F$`X]A83R\+
  4097. + M2&\`.&$`YGA03R@O`$Q*@&8`_L(O"V$`X[I83R`$4X`O0`!,2H1F`/Z2+R\`
  4098. + M-$ZZ-&PNKP`H3KHT9"Z-3KHT7EA/2H=G1"`'Y8`O`&$`XEI83R9`*`<D;!MZ
  4099. + M)`=3@N6"*D#;PF`*4X0JDB1J``19C4J$;O(O+P!0+P<O"V$`_$@NBTZZ-!A/
  4100. + M[P`,3-\L]-[\`"1.=;_L"=QE`#+V2.<`%"IO``Q'[!M&8`0F:P`L2JL`+&;V
  4101. + M)TT`+$*M`"Q,WR@`3G4@#Y!\`!"PK`G<90`RPB!O``0O"$AL`4I"ITAX``).
  4102. + MN@HV3^\`$$YU(`]10+"L"=QE`#*<+P<N+P`(,'P``2\(+P=.N@N880#A=DZZ
  4103. + M"RHNAR\`3KHJG$_O``PN'TYUO^P)W&4`,FI(YP$4+B\`&"9O`!0J;P`08```
  4104. + M@A`52(!(P')-D(%G7'(5D(%G%E6`9S15@&<Z5X!G0%N`9TY9@&=28%Y*AV<&
  4105. + M<`*^@&8&<`$G0``(<`&^@&<&(@=5@68Z)T``%&`T0>P6,"=(`!A@*D'L&C`G
  4106. + M2``<8"!![!(P)T@`&&`6<`$G0``D8`YP`2=``"!@!G`!)T``*%*-2A5F`/]\
  4107. + M(`U,WRB`3G4@#Y!\(&2PK`G<90`QNI[\(%1(YP\T+B\@=)?+0J\@/$*O(#A"
  4108. + MKR`T0>P!;"]((#`J;R!X*54*+$*L&T(O2"`L80#C>DAL`6Y.NB906$\I0!LP
  4109. + M9@A![`%V*4@;,$*G2'@``DZZ"G!03TJ`9PY(>OZR2'@``DZZ"EY03T*G2'@`
  4110. + M`4ZZ"E)03TJ`9PY(>OZ42'@``4ZZ"D!03T*G2'@`#4ZZ"C103TJ`9PY(>OYV
  4111. + M2'@`#4ZZ"B)03T*G2'@`#TZZ"A903TJ`9PY(>OY82'@`#TZZ"@103W#_+T`@
  4112. + M3"]`($!#[R!80IE"F4*O(&A"KR!D0IE"KR!40J\@2"`'Y8`O`&$`W]Y83W@!
  4113. + M1>T`!$'M``@O0``@+T`@*"](`"1@``56(%)P*[`09@``_B`+9P@O"V$`_9I8
  4114. + M3TAX`#!A`-^D6$\F0'+_($`A00`,0^@`&$*90IE"J``40J@`"$*H`"A"J``D
  4115. + M0ID@4DOH``$0%7(`$@!(P2`!Y8!#[`HP2K$(`&8(+PAA`/UV6$]Z`&`6$!U(
  4116. + M@$C`(@7E@=*%TH'2@"H!<#":@!`5<@`2`$C!(`'E@$'L"C!*L`@`9M1\`'`N
  4117. + ML!5F,%*-8!80'4B`2,`B!N6!TH;2@=*`+`%P,)R`$!5R`!(`2,$@`>6`0>P*
  4118. + M,$JP"`!FU$J&9@1*A6<()H4G1@`$8`1P_R:`0J<O"R\-80#]3$_O``P@0$H0
  4119. + M9P`$5"\280#\W%A/8``$2"I2$!5R+;`!9@`$+"!22B@``6<`!")2C1`5<@`2
  4120. + M`$C!Y8%![`HP2K`8`&<`!`(@"V8$80`&GGH`8!80'4B`2,`B!>6!TH72@=*`
  4121. + M*@%P,)J`$!5R`!(`2,$@`>6`0>P*,$JP"`!FU'P`<"ZP%68P4HU@%A`=2(!(
  4122. + MP"(&Y8'2AM*!TH`L`7`PG(`0%7(`$@!(P2`!Y8!![`HP2K`(`&;4)T4`#"=&
  4123. + M`!!(>``!+PLO#6$`_()/[P`,($!*$&<(+Q)A`/P46$\O"V$`^]Y83Y?+8``#
  4124. + M=DAX``)(;R!$+PUA`/Q43^\`#"I`($`2$$B!2,%*@6<``S9P5)*`9P`"R'`/
  4125. + MDH!G)E&!9RQ5@6<``AY5@6<``B)9@6<``F!3@6<``F13@6<``MQ@``+@<`$O
  4126. + M0"`\8``"^$HM``%G!%*-8"H@!U.`N(!F%$AL`7Q"ITAX``).N@7:3^\`#&`.
  4127. + M4H0@;P`D*EA8BB](`"0@2B](`!P@"V<(+PMA`/LR6$](>``P80#=/%A/)D!R
  4128. + M_R!`(4$`#$/H`!A"F4*90J@`%$*H``A"J``H0J@`)$*9$!5R`!(`2,$@`>6`
  4129. + M0>P*,$JP"`!F""\280#[%%A/>@!@%A`=2(!(P"(%Y8'2A=*!TH`J`7`PFH`0
  4130. + M%7(`$@!(P2`!Y8!![`HP2K`(`&;42H5G`E.%?`!P+K`59C92C6`6$!U(@$C`
  4131. + M(@;E@=*&TH'2@"P!<#"<@!`5<@`2`$C!(`'E@$'L"C!*L`@`9M1*AF<"4X9*
  4132. + MAF8$2H5G"":%)T8`!&`$</\F@$*G+PLO#6$`^MY/[P`,)$`@0$H09Q1P++`2
  4133. + M9PXD;P`<+Q)A`/ID8```I"!*2^@``21O`!Q*$&<``)9Z`&`6$!U(@$C`(@7E
  4134. + M@=*%TH'2@"H!<#":@!`5<@`2`$C!(`'E@$'L"C!*L`@`9M1\`'`NL!5F-E*-
  4135. + M8!80'4B`2,`B!N6!TH;2@=*`+`%P,)R`$!5R`!(`2,$@`>6`0>P*,$JP"`!F
  4136. + MU$J&9P)3A2=%``PG1@`02'@``2\++PUA`/HL3^\`#"!`2A!G""\280#YOEA/
  4137. + M+PMA`/F(6$^7RV```2!P`2]`(#A@``#X2BT``6<,0>T``2](("Q@``$$(`=3
  4138. + M@+B`9A9(;`&>0J=(>``"3KH#TD_O``Q@``#F4H0@;P`D+U@@+%B*+T@`)&``
  4139. + M`-)P`2E`&SA@``"J2BT``6<*4HT951L\8```FB`'4X"X@&P64H0B;P`D(%D9
  4140. + M4!L\6(HO20`D8```FDAL`<!"ITAX``).N@-P3^\`#&!F2BT``6<(4HTI31LP
  4141. + M8%@@!U.`N(!L$E*$(&\`)"E8&S!8BB](`"1@7$AL`>)"ITAX``).N@,T3^\`
  4142. + M#&`J<`$I0!L^8"(0%4B`2,`O`"!O('PO$$AL`@1(;`EH3KHQ)F$``K!/[P`0
  4143. + M2A5G`E*-2A5F`/R@8!!2AB!O`"`@S2]&(#0O2``@4H18BEBO`"0L+R`TN(=M
  4144. + M`/JD(`MG""\+80#X1EA/*FP;<F!42JT`&&9*2JT`'&9$2JT`"&8^2JT`*&8X
  4145. + M2JT`%&8R2JT`)&8L2JT`(&8F1^\@6$7M`!@DVR3;*V\@2``(*V\@5``4*V\@
  4146. + M9``D)-LK;R!H`"@J;0`L(`UFJ$JL&W)F+DJO(%AF'DJO(%QF&$JO($AF$DJO
  4147. + M(%1F#$JO(&1F!DJO(&!G"DAO($!A`/>T6$\I;R!H&S1*AF8*?`%![R`P+T@@
  4148. + M*"1O("A*KR`\9QHO!B\*80#S9$J`5L%$`4B!2,$N@4ZZ+T103RIO("P@34/L
  4149. + M`B00&+`99@A*`&;V9P``W'H`8!0@32)2$!BP&68&2@!F]F<(4H58BKJ&;>BZ
  4150. + MAF822&P")B\-80#9_E!/)D!@``"N2&P"*"\-80#9["1`80#;%B9`2&P"*B\`
  4151. + M80#9VD_O`!`J0&`4+PTO!$AX``%(;P`T80#:G$_O`!`O"DAX(`!(>``!2&\`
  4152. + M-$ZZ,I9/[P`0*`!NT@@J``4`&V<B+R\@+$AL`BPO+!S,0J=.N@%(80#8K$AX
  4153. + M``).NBZ`3^\`%"\-80#9["Z*80#9YN6%(&\@+"&+6``J;R`P2&P","\-80#9
  4154. + M5D_O``PF0&`$1^P)1B!O("A*KR`X9PPO"R\&+PAA`/*B8`HO"R\&+PAA`/0N
  4155. + M3^\`#&$`V$@O"TZZ,WI83TJ`:A8O#4AL`C(O+!S,2'@``4ZZ`,)/[P`02JP;
  4156. + M0F<B2&P))$ZZ-"183U*`9A1(;`(Z+RP<S$AX``%.N@":3^\`#`@L``4)868.
  4157. + M2&P)1DZZ,_I83U*`9A1(;`(\+RP<S$AX``%.N@!P3^\`#$*G3KHMJEA/3-\L
  4158. + M\-[\(%1.=2`/D'P`#+"L"=QE`"C$+RP*+$AL`DA(;`EH3KHN5DAX``).NBUX
  4159. + M3^\`$$YUO^P)W&4`*)XO!RXO``AO$KZL!_IN#.6'0>P'7B`P>`!@!D'L`N`@
  4160. + M""X?3G4@#Y!\`"BPK`G<90`H;$CG`Q0L+P`8+B\`%"9O`"`J;P`<+RP*+$AL
  4161. + M`O9(;`EH3KHMZBZO`$@O+P!$+R\`1"\O`$0O+P!$+R\`1"\O`$0O"R\-2&P)
  4162. + M:$ZZ+<)/[P`P2H9G&"\&80#_;BZ`2&P"_$AL"6A.NBVF3^\`#`@L``$)@V="
  4163. + M4JP)="`L"72PK`E\;B`@;`EL4JP);!"\``H(+``&"8-G+DAL"6A.NC'V6$]@
  4164. + M(E.L"71(;`EH2'@`"DZZ+;Y03V`.2&P):$AX``I.NBVN4$](;`EH3KHQR%A/
  4165. + M2H=G""\'3KHL8%A/3-\HP$YU``!(YR`R(&\`&$/O`!Q%^@`<)F\`%"0++'D`
  4166. + M```$3J[]]B`+D(),WTP$3G46P$YU``!.N@AP("P<U$YU```@+P`$(&\`"")O
  4167. + M``Q(YP$4+@`F22I(3KH(3G`!OH!M+'`@OH!L)B`+9PX@!^>`0^P;G-/`)MDF
  4168. + MV2`-9PSGAT'L&YS1QR#=(-UP`&`(<!8I0!S,</],WRB`3G4@+P`$(&\`")[\
  4169. + M`!`O2``(0J\`#$'O``A#UV&62H!G"#!\__\@"&`"(!?>_``03G4``"!O``0B
  4170. + M;P`(64](YS,V*DA^`"!L'*@L*`#@+TD`($J&9B!*K`H$9AI![`,<(@@L;!T4
  4171. + M)#P```/M3J[_XBP`9P)^`4J&9S8B!D'L`R8D"$'L"@PF""QL'11.KOZ>(@8D
  4172. + M#28O`"!.KOZ>(@9T"DZN_LA*AV=8(@9.KO_<8%`@;!RH)F@`N#!\__^WR&=`
  4173. + M0^P#+'`E+'@`!$ZN_=@D0$J`9RPI;`H,`Q`I30,4+PH@2RQ*0^P#")7*)F\`
  4174. + M)$ZN_;1,WP0`(DHL>``$3J[^8DS?;,Q83TYU(&\`!$/O``AA`/\J3G4@;P`$
  4175. + M0^\`"&$`_QQP%$ZZ*IY.=0``2.<`!G`(<@`L>``$3J[_.BI`2H!F!'``8"Y"
  4176. + MK0`$2'@`*'``+P!![`-`<@&3R<%!3KH?7E!/*H!F#")-<`A.KO\N<`!@`B`-
  4177. + M3-]@`$YU(&\`!$CG``8J2"`-9Q@@36$``!X@54ZZ'Z(B37`(+'@`!$ZN_RY,
  4178. + MWV``3G4@;P`$2.<`!BI(2JT`!&<4(E4L>``$3J[^(")53J[^)D*M``1,WV``
  4179. + M3G4@;P`$(%`B:``.<``0*0`/<@'AH2`!3G4@;P`$("\`""(O``Q(YP,&+`$N
  4180. + M`"I(8:I*AV8$2H9G'B)5(T<`("-&`"0S?``)`!PL>``$3J[^,G`!*T``!$S?
  4181. + M8,!.=2!O``1(YP`&*DA*K0`$9QPB52QX``1.KOXL2D!G#B)53J[^)D*M``1P
  4182. + M`6`"<`!,WV``3G4O#B`L'+0B`$A!0D'2@"`L'*BS@"E`&X1"K!N(0^P#5'``
  4183. + M+'@`!$ZN_=@I0!N`</].KOZV2(!(P"E``U!*K!N`9PA*@&L$<`%@`G``*4`;
  4184. + MC"Q?3G4O#B`L`U!K""QX``1.KOZP("P;@&<*(D`L>``$3J[^8BQ?3G4@+P`$
  4185. + M44](YP,`+@!.N@4H(`=.N@&02H!G*")`(&D`'')`Y8G"D2](``P@`2!I``0B
  4186. + M;P`,3I$L`"`'3KH!2"`&8`)P_TS?`,!03TYU("\`!"\'+A]@K@``(&\`!"`O
  4187. + M``@B;P`,+V\`$``$+V\`%``(+V\`&``,+V\`'``0+V\`(``4+V\`)``844](
  4188. + MYP<4+@!([P,``!1\`"IL&Y!@%DJM``1F"C!\``$K2``$8`Q2AMK\`"2\K!N4
  4189. + M;>0@+!N4O(!F>'(*TZP;E"`L&Y0B`.>!TH#E@2`!3KHEP"I`2H!F#'`,*4`<
  4190. + MS'#_8```CG#VT*P;E"(`YX'2@.6!(&P;D")-8`(2V%.!9/H@+!N09P8@0$ZZ
  4191. + M)!HI31N0>O;:K!N4(`7G@-"%Y8#;P)?+*TL`!%*%VOP`)+JL&Y1M\"`&YX#0
  4192. + MAN6`(&P;D"&O`!0(!"&'"``AKP`8"`A+[P`@(9T(#"&="!`AG0@42^\`+"&=
  4193. + M"!@AG0@<(9T(("`&3-\HX%!/3G4@+P`$(@!K%K*L&Y1L$"`!YX#0@>6`(&P;
  4194. + MD$*P"`1.=2`O``1(YP$$+@!K'KZL&Y1L&"`'YX#0A^6`*FP;D-O`2JT`!&<$
  4195. + M(`U@"'`)*4`<S'``3-\@@$YU("P;E$YU```@+P`$64\N@$'L`V@@"%A/3G4@
  4196. + M;P`$64\NB$'L`V@@"%A/3G4@+`-H3G4``"!O``193TCG(P(B""QL'11T_DZN
  4197. + M_ZPO0``09SHN+!S,3KK_JBP`8!Y(;P`02'@(!2\&3KH-"$_O``Q*@&8(*4<<
  4198. + MS'``8!)3AFS>(B\`$"QL'11.KO^F</],WT#$6$].=2!O``1(YR$&*DA.N@*^
  4199. + M(@TL;!T43J[_N$J`9P1P`&!03J[_?"X`<F_2@;"!9B`B#70`3J[_1DJ`9PXB
  4200. + M#4ZN_[A*@&<$(`)@*$ZN_WPN`'!ET("^@&8.($UA`/]*2H!F!'``8`P@!TZZ
  4201. + M%W0I0!S,</],WV"$3G4``"`O``193RZ`("P<I&<.($!.NOQB2H!G!'(!8`)R
  4202. + M`"`!6$].=2`O``0@;!RD<@!.^OP(3KK[/"E`'*1F"DAL`XA.NOL86$\@;!RD
  4203. + M3KK[S(&L&YA.=2!L'*1.^OMH".P`#!N:3G4@+P`$"```#%;`1`!(@$C`3G4(
  4204. + M[``-&YI.=2`O``0(```-5L!$`$B`2,!.=4ZZ&8YP`"!L'000*``/<@'AH8.L
  4205. + M&YA.=4[Z&>`@+P`$64](YP$6+T``$'X`8"X@+0`43KH9-B9`2H!G%$JK`!1F
  4206. + M#GX!<`$G0``4)VT`&``8(DUP'"QX``1.KO\N(&P=!"QX``1.KOZ,*D!*@&;`
  4207. + M(`=,WVB`6$].=2`O``1(YP\$+@!P`>^@+`!P";Z`9@9P`$ZZ"Q0@+!R<P(9G
  4208. + M!HVL'*!@>BH&1H7+K!R@2H=K9G`@OH!L8"`'YX!![!N<*G`(`#!\``&[R&8L
  4209. + M(`=5@&<44X!G$'(-D(%G/%F`9SA1@&<T8`I(;`.@3KKYU%A/<`!.N@JV8"`@
  4210. + M#6<<(`?G@"@&0>P;G(BP"`2)K!R<(`=.E4:$R:P<G"`L'*#`AF:*3-\@\$YU
  4211. + M("\`!"\.(BP;F(*`<``L>``$3J[^SBQ?3G4@+P`$+PXB`"`L&YB`@2QX``1.
  4212. + MKO["+%].=2`O``1(YP,`+@!\`&$`_A!*@&<(?`%P#F$`_PP@!V$`_F)*@&<(
  4213. + M?`%P`F$`_OH@!V$`_FI*@&<(?`%P`V$`_N@@!V$`_H9*@&<(?`%P%&$`_M8@
  4214. + M!DS?`,!.=2`O``0O!RE`">1P""X?8`#^O'``80#_8&"08/9(YP$4?@!+[!N<
  4215. + M-GP``2J+0JT`!%*'4(UP(+Z`;?!"K!R@0JP<G$*L&YAA`/W480#]ZF$`_:),
  4216. + MWRB`8`#]^&$`_;A@`/X(``!(;`.T3KKXL%A/3G4@+P`$+PU.NB#\*D!*@&8"
  4217. + M8>(@#2I?3G4@;P`$("\`""\+3KH>\"9`2H!F`F'&(`LF7TYU(&\`!"\-*D@@
  4218. + M#68$2^P#OB!-2AAF_%.(D<T@"%*`3KH@L"!`2H!F!'``8`@B2!+=9OP@""I?
  4219. + M3G593TCG`S1^`'P`(&P<J"9H`-!@+$HK``AF)#`\!0#`:P`.9AI2AR!K``H@
  4220. + M"$H89OQ3B)'`(`C<@-RK`!14AB932I-FT"`'4H#E@-"&80#_2BE`',#EAR!`
  4221. + M(D#3QT7I``0O0``49@I![`.P*4@<P&!6(&P<J"IH`-!@0DHM``AF.C`\!0#`
  4222. + M;0`.9C`F;0`*+BT`%"!O`!0@RB](`!1@`A3;2A-F^A3\`#TF;0`08`(4VR`'
  4223. + M4X=*@&;V0AHJ54J59KH@;P`40I!,WRS`6$].=2!O``0@+P`(+PTJ2"J`0JT`
  4224. + M!.6`80#^M"M```@J7TYU(&\`!")O``@@+P`,2.<B-"9)*DA*@&<*($MA`/["
  4225. + M)$!@`B1+(`IG/B(5)"T`!+2!;2(L`=R&=!#2@KR!;0(B!BJ!(`'E@"!M``A.
  4226. + MNAUN*T``"&<21^T`!"(34IOE@2!;(8H8`'`!3-\L1$YU(&\`!")O``@@+P`,
  4227. + M89)*@&8$80#^&DYU(&\`!")O``A(YP`4)DDJ2"`M``30JP`$L)5O$M"`*H#E
  4228. + M@"!M``AA`/X:*T``""(M``3E@2!M``C1P2`K``0B`.6!(FL`"&`"$-E3@63Z
  4229. + MT:T`!"!K``A,WR@`3OH=7B!O``0B;P`(+V\`#``$("\`$"(O`!193TCG`C0L
  4230. + M`2I))$@O2``02H!G1%.`9PI3@&<``+9@``#T4X9G(B`O`!@B#9"!(&\`$$(P
  4231. + M"``@02)O`!!@`A+84X!D^F```,Y![`/`(F\`$!+89OQ@``"^)F\`&&!N<%RP
  4232. + M%69F2BT``6=@5(UP`;R`9@84_`!A8%0@!E6`9D80+?__2(!(P'(CD(%G+E6`
  4233. + M9RI5@&<F4X!G(E.`9QY3@&<:<A60@6<4<AR0@6<.58!G"G(?D(%G!%6`9@04
  4234. + M_``G%.W__V`(%.W__V`"%-V[RV6.8$`F;P`88#9P*K`59BY*+0`!9RA4C1`M
  4235. + M__](@$C`<F60@6<,<@F0@68,%/P`"F`.%/P`&V`(%.W__V`"%-V[RV7&0A),
  4236. + MWRQ`6$].=9[\`2Q(YS\V*F\!6"!L"@`,:``E`!1D"DAX`!1.NLE*6$]"K`E`
  4237. + M<`$I0`D\*4`)8G`"*4`)7BE`"80I?````(0)@)/)+'@`!$ZN_MHI0!RH3KKU
  4238. + M`"E`'*QF"DAL`\).NO3<6$\@;!RL3KKUD"E`'+`L;!RL(%8L:``4*4X<O$'O
  4239. + M`3!.KO^^*6\!,!RT3KKU^$ZZ^ZP@;!RH("@`K&<0Y8`B0"(I`#3E@2E!'+A@
  4240. + M!BEH`(0<N$H59@``Z$'L`]HB""QL'10D/````^Y.KO_B+`!![`/@(@A.KO_B
  4241. + M+@!![`/F(@A.KO_B*@!*AF<(2H=G!$J%9B)*AF<&(@9.KO_<2H=G!B('3J[_
  4242. + MW$J%9P8B!4ZN_]QA`/MR<`$O`"\%+P`O!R(&P4%.N@VX(&P*!"`H`!Q![P%8
  4243. + M80#\GD_O`!!\`'X`8%`B;`H$(&D`)"`P>`!G/B(`0^\`,"0)+&P=%'9`Y8M.
  4244. + MKOYN2H!G)B)L"@0@:0`DT<<@*``$9P@B`B0`3J[\CD'O`4A#[P`P<`%A`/S8
  4245. + M4H90AR!L"@2\J``<;:9@``+,+&P=%$ZN_\HH`$ZN_\0J`'X`(&P<J"PH`.!F
  4246. + M*'X!0>P#["(()#P```/M3J[_XBP`9A)![`/N(@A.KO_B+`!F!&$`^J0O!R\&
  4247. + M<``O`"\%(@3!04ZZ#.I![P%8<`%A`/O6(#P```4:80#ZCB!`,7P$```2+T``
  4248. + M/'!`Y8AA`/IZ3^\`$'Y`Y8\O0`$X8`)2C1`52(!(P$'L"!T(,``#"`!F[!`5
  4249. + M9P`"%G(BL`%F,%*-)DU@$'`JL!5F"$HM``%G`E*-4HT0%6<&<B*P`6;F)$T0
  4250. + M%7(BL`%F`E*-?`)@5'`GL!5F(%*-)DU@`E*-$!5G!G(GL`%F]"1-<">P%68"
  4251. + M4HU\`6`N)DU@$'!<L!5F"$HM``%G`E*-4HT0%6<2<B"P`6<,<@JP`6<&<@FP
  4252. + M`6;:)$U\`"!+*@J:BR`%4H`O2``H80#YMB9`2J\!3&8@(`4@2R)O`"A.NAAF
  4253. + M0C-8`$'O`4@B2W``80#[8&``_R;:A7(0VH&ZAV\4(&\!.$ZZ&1`@!6$`^78N
  4254. + M!2]``3@O"B`&($LB;P`L<@%A`/NN6$\B"R0O`3@F!RQL'11.KORX*@!L$$(2
  4255. + M+R\`*$AL`_1.NO'B4$]*A68B+PH@!B!+(F\`+'(`80#[=$'O`4PB2W``80#Z
  4256. + MZ%A/8`#^K'H!(&\`+$*H``A"*``10B@`$"\*(`8@2R)O`"QR`F$`^T!![P%`
  4257. + M<!!A`/HF6$\B"R0O`"PL;!T43J[\RB@`9CQ@*GH`(F\`+-+\`1A![P$\<`%A
  4258. + M`/H@2H!F!'AG8!(B+P`L+&P=%$ZN_,0H`$J$9](B+P`L+&P=%$ZN_+YP=-"`
  4259. + MN(!G"DAL!`A.NO$N6$]*A6<B+PH@!B!+(F\`+'(`80#ZP$'O`4PB2W``80#Z
  4260. + M-%A/8`#]^"`O`4`@;P%$3KH3,D'O`4A#[P$\80#Z*B!+3KH7UF``_=8@;P$X
  4261. + M3KH7RB!O`"Q.NA?"80#XDD'L!").N@M^*4`#:&8(0>P$*"E(`VA![`0N3KH+
  4262. + M:"E``WQF!BEL`V@#?$'L!#A.N@M4*4`#@&8(0>P$/BE(`X!![`1"3KH+/BE`
  4263. + M`X1F"$'L!$@I2`.$0>P$4$ZZ"R@I0!S$9@A![`1:*4@<Q"`O`4P@;P%0(FP<
  4264. + MP$ZZ*-)P`$ZZ&OQ,WVS\WOP!+$YU("\`!$CG`P`N`$JL',AG!"`'8&!\`"`'
  4265. + M`H````$D9P)\"`@'``=G!`!&``4(!P`$9P0(Q@`""`<``6<$",8```@'``-G
  4266. + M!`C&``$(!P``9P0(Q@`&(`=R2<"!<D"P@68$`$8`0@@'``EG!`C&``4@!@I`
  4267. + M``],WP#`3G4@+P`$2.<&`"P`2JP<R&<((`8"0`__8%YZ``I&``\(!@`#9P1Z
  4268. + M2>6-(`9R!<"!6X!F!`C%``<(!@`"9P0(Q0`$"`8``&<$",4``2`&<D+`@6<$
  4269. + M",4`!@@&``%G!`C%``,(!@`&9P0(Q0``"`8`!6<$",4`"2`%3-\`8$YU``!(
  4270. + MYP,`3KKRWBX`?`!@"B\&3KKQ1EA/4H:\AVWR3-\`P$YU("\`!"\'+@!AU$ZZ
  4271. + M\+I.NO98(&P<K$ZZ[W@O!TZZPS983RX?3G4@+P`$+P<N'V#4```@+P`$(B\`
  4272. + M""!O``Q13TCG`R0L`2X`*DA.NO74(`=.NO(\2H!G&B)`(&D`("](`!0@!B!I
  4273. + M``0B321O`!1.DF`"</],WR3`4$].=0``GOP`#$CG+S8J;P`T?@/.KP`X?`$@
  4274. + M;!RH)F@`N"H\```#[$ZZ]7Y*AV<*<`*^@&<$<@!@`G(!+T$`*'`!OH!G"%6'
  4275. + M9P1P`&`"<`$O0``L($U#[`1@3KH0NDJ`9@9X_V```51P_R!L'*@A0`"X(@TL
  4276. + M;!T4=/Y.KO^L+@`@;!RH(4L`N$J`9G@L;!T43J[_?$ZZ"B0L`"`L">!R+D8!
  4277. + ML(%G!$J`9@I^`2H\```#[F`6(`95@&8,""\`"``Z9P1P`6`"<``N`$J'9RQ\
  4278. + M``@O``@`.F<<""\`#P`Z9P9X`F```-8@+P`\3KK]AB@`8```R'C_8```PBE&
  4279. + M',QP_V```4)"IRQL'11R`B0/3J[_'$_O``0D0$J`9PPB!R0*3J[_FDJ`9A8@
  4280. + M"F<()`IR`DZN_Q9.N@I^</]@``$(*"H`="0*<@).KO\6(@=.KO^F<%#IB,"O
  4281. + M`#@,@```!0!F#'`1*4`<S'#_8```VDJO`"AG!@@$``-F#$JO`"QG$@@$``)G
  4282. + M#'`-*4`<S'#_8```M@@O``D`.F<B(@TD/````^Y.KO_B2H!G""(`3J[_W&`*
  4283. + M3KH*`G#_8```C`@O``@`.F<$(`5@!B`\```#[20`(@TL;!T43J[_XBH`9@A.
  4284. + MN@G6</]@8`@O``D`.F8$2H9F!"P$8`)\_WX`2J\`*&<"?@%*KP`L9P0(QP`!
  4285. + M""\``P`[9P0(QP`#+P<@!2(&3KH%GEA/+@!L''#_(&P<J"%``+@B!2QL'11.
  4286. + MKO_<(&P<J"%+`+@@!TS?;/3>_``,3G4@;P`$+R\`#"\O``PO"&$`_:A/[P`,
  4287. + M3G6>_``,2-<!`W#_WOP`#$YU44](UP,`4$].=4CG,`(B$$HH``UG!'``8!PD
  4288. + M"28`+&P=%$ZN_]8B`%*`9@A.N@D0</]@`B`!3-]`#$YU44](YS\V+@`J229(
  4289. + M+!,O1@`H+T@`+$HK``UG!G``8```C$HK``QG9B9-U\=Z`&!8)$U@`E**M<MD
  4290. + M!G`*L!)F]+?*9@0H"F`&0>H``2@(F(TB+P`H)`TF!"QL'11.KO_0+`!2@&8(
  4291. + M3KH(FG#_8#[:AK:&9C9+Z@`!GH9P`$ZZ\=Q.NO(,2H!F(DJ'9J1@'"(&)`TF
  4292. + M!RQL'11.KO_0*@!2@&8(3KH(7G#_8`(@!4S?;/Q03TYU64](YS\"+@`L$"]!
  4293. + M`!Q**``-9P1P`&!24X$F`2(&)`<L;!T43J[_OBH`3J[_?"@`4H5G!$J$9PX@
  4294. + M!$ZZ!Q@I0!S,</]@)"(&=``F`DZN_[XL`%*`9P1*A&<.(`1.N@;V*4`<S'#_
  4295. + M8`(@!DS?0/Q83TYUGOP!`$CG/P8N`"I(+!4J+0`(("T`!&<*(@`L;!T43J[_
  4296. + MIA@M``U(A$C$($U.NA&82H1G!'``8$0B!D'O`"`D""QL'11V0.6+3J[^:"@`
  4297. + M2H=F"B(&3J[_W$J`9QI*A&<2</^Z@&<,(@(D!4ZN_T9*@&<$<`!@!DZZ!V1P
  4298. + M_TS?8/S>_`$`3G4@+P`$2.<@`B(`+&P=%'0`3J[_-$ZN_WQT+D8"L()7P40!
  4299. + M2(%(P2`!3-]`!$YU("\`!"!O``@B;P`,GOP`$$CG-Q8N`"9)*DA\`&&X2H!F
  4300. + M?"('+&P=%'0!3J[^5DJ`9VPB!T'L!&@D"'8$3J[_T%F`9E(B!R0\```G$$ZN
  4301. + M_S1*@&="(@=![P`@)`AV$$ZN_]9R";"!;RYPF[`O`"!F)D'O`"4B""0+3J[\
  4302. + MT"H`0>\`)M'`(@@D#4ZN_-!2@&<&4H5G`GP!(@=T`$ZN_E8@!DS?:.S>_``0
  4303. + M3G4@+P`$(B\`")[\`A!(YS\&+@!P_R]``B@O00`D(@<L;!T4=`!V`4ZN_[XO
  4304. + M0``@(@=.KO^^+`!.KO]\*@`O0`(L9@``PB@O`"0B!R0$=O].KOXXL()F``"N
  4305. + MO()L``">*@2:AB@%(`1R`4A!+'@`!$ZN_SHJ0$J`9FIR`DA!3J[_*.*(*@`,
  4306. + MA0```@!M$"`%<@%(04ZN_SHJ0$J`9D9Z0.>-2^\`*#`\`?]R`$'O`"@0P5'(
  4307. + M__Q@++B%;P0@!6`"(`0F`$ZZ[ZXB!R0-+&P=%$ZN_]"P@V<*3J[_?"]``BQ@
  4308. + M!IB#2H1NT$'O`"BQS6<,(DT@!2QX``1.KO\N*B\"+&8$0J\"*"PO`""\KP`D
  4309. + M;`XB!R0&+&P=%';_3J[_OBPO`BAG"B`%3KH$7BE`',P@!DS?8/S>_`(03G6>
  4310. + M_`$(2.<W%BX`)DDJ2"P52BT`#68``1@@!P2````$`&<@!(````0`9TI3@&=8
  4311. + M4X!G7%.`9UY3@&=F4X!G;&```.Y*+0`,9R8@!D'O`21#[P$@80#]UDJ`9Q0@
  4312. + M+P$D-T```B`O`2`V@'``8```RG`98```OB(&+&P=%$ZN_R@F@'``8```LB:&
  4313. + M<`!@``"J<`!@``"D(`8B$V$`_C9@``"8*U,`"'``8```CBH32JT`!&8.(A4L
  4314. + M;!T43J[^C"M```0@+0`$9V(D`"(%+&P=%$ZN_EQ*@&92(@9![P`@)`AV0.6+
  4315. + M3J[^:$J`9SXB!4ZN_Z8B+0`$3J[_IB(&3J[_W"("=`!.KO]&&WP``0`-*H(K
  4316. + M0@`$0>\`("((+&P=%$ZN_[A*@&<$(`)@#DZZ!!Q@!G`6*4`<S'#_3-]H[-[\
  4317. + M`0A.=2`O``0B+P`(+V\`#``$2.</!BHO`!PL`2X`<`Y.N@\^*D!*@&8*<`PI
  4318. + M0!S,</]@3D/5(L="F2+&0BT`#2('+&P=%$ZN_R@;0``,2'K^=$AZ^]I(>OMD
  4319. + M2'KZK$AZ^G9(>OIH(`4@34/Z^E!.NNC@3^\`&"@`;`8@34ZZ#78@!$S?8/!.
  4320. + M=2`O``0B+P`(+V\`#``$+V\`$``(+V\`%``,+V\`&``02.<-`"@O`!0J+P`0
  4321. + M+@!P`$J!9@1P0.6(`$```2\`(`=R_V$`_T983TJ`9D!P`$J$9@1P0.6(`$``
  4322. + M`B\`(`5R_V$`_RA83U.`9B)P`$JO`!QF!'!`Y8@`0``"+P`@+P`<<O]A`/\&
  4323. + M6$]5@&<00>P$;B](`!!,WP"P3OKEY$S?`+!.=0``("\`!"!O``@B+P`,64](
  4324. + MYP,T+`$N`"I(3KKLN"`'3KKI("9`2H!G1`@K``$``V<V""L``P`#9Q8@:P`8
  4325. + M+T@`%"!K``1P`'("(F\`%$Z1(&L`%"](`!0@!B!K``0B321O`!1.DF`(<`TI
  4326. + M0!S,</],WRS`6$].=2`O``0@;P`((B\`#$CG`P1,WR#`8(`@;P`$GOP`0$CG
  4327. + M.Q8J2$ZZ[#8@#6=22A5G3B(-0>\`("0(+&P=%'9`>`!.KOQV+@!M-DZN_WPL
  4328. + M`%*`3KH-;"9`2H!G)+Z&9Q0F!E*#(@TD"TZN_'9*@&\0(`)@#B!"(DL2V&;\
  4329. + M(`M@`G``3-]HW-[\`$!.=2`O``0B+P`(+V\`#``$44](YP<`*B\`&"P!+@!.
  4330. + MNNNT(`=.NN@<2H!G&B)`(&D`&"](`!`@!B(%(&D`!")O`!!.D6`"</],WP#@
  4331. + M4$].=2`O``0B+P`(+V\`#``$2.<'`"HO`!`O10`03-\`X&"@```@+P`$(&\`
  4332. + M""(O``Q93TCG`S0L`2X`*DA.NNM((`=.NN>P)D!*@&<F""L````#9Q@@:P`0
  4333. + M+T@`%"`&(&L`!")-)&\`%$Z28`AP#2E`',QP_TS?+,!83TYU("\`!"!O``@B
  4334. + M+P`,2.<#!$S?(,!@G@``("\`!"E`">!*@&<``(9R9Y"!9P``@E6`9P``@'()
  4335. + MD(%G?%.`9WA3@&=T4X!G<%.`9VQ3@&=H4X!G:%.`9VAR49"!9V93@&=F4X!G
  4336. + M9E.`9V93@&=F4X!G9E6`9V93@&=F4X!G9E.`9V95@&=F4X!G9E.`9V93@&=F
  4337. + M4X!G9E.`9V95@&=F4X!G9E.`9V93@&=F8&AP`&!F<`Q@8G`+8%YP%F!:<`=@
  4338. + M5G`(8%)P$&!.<!%@2G`"8$9P`F!"<!9@/G`'8#IP%F`V<"1@,G`68"YP%F`J
  4339. + M<!Y@)G`28")P)6`><"9@&G`38!9P%F`2<!Q@#G`-8`IP#6`&<`U@`G#_3G4O
  4340. + M#BQL'11.KO]\80#^^BE`',PL7TYU(&\`!"`O``A93TCG`18N`"](`!`@;P`0
  4341. + M*E!@9'`-L"T`"&9:("T`K&<&Y8`@0&`"D<@F2"`M`)RPAV<T("T`H+"'9RP@
  4342. + M+0#@L(=G)"`+9RX@*P`<L(=G&"`K`""PAV<0("L`.+"'9P@@*P`PL(=F#B)-
  4343. + M<&#OB"QX``1.KOZ\*E5*E6:83-]H@%A/3G4@+P`$(B\`"$CG`0(N`"`!4X!G
  4344. + M#%.`9PA3@&<$78!F+"QX``1.KO]\(&P*`-#\`98@!V$`_T@@;`H`T/P!I"`'
  4345. + M80#_.DZN_W9P`&`(<!8I0!S,</],WT"`3G4@+P`$(B\`"$CG!@0L`2H`3KKH
  4346. + MYDJ%:@)$A;JL'-1F#DJ&9P8@!DZZYXIP`&!((`5.N@!N*D!*@&<&2JT`%&<*
  4347. + M<`,I0!S,</]@+"`&9R@B+0`0P4%A`/]8(@!P";R`9A1R`2M!`!0K0``8<!1.
  4348. + MNN=$<`!@`B`!3-\@8$YU```@;P`$2.<`!BI((DTL>``$3J[_!"!-3-]@`$[Z
  4349. + M"%0@+P`$2.<!!"X`*FP<V&`.("T`#+"'9@0@#6`(*E5*E6;N<`!,WR"`3G5(
  4350. + MYR`"0>P<V$ZZ&,H@+!RH(BP<M"0`LX("@@!___\I0AS44H(I0AS0+P$O`$AL
  4351. + M"`!(;!SD3KK?6D_O`!`L>``$3J[]9BE`'0AG$$'L'.1P`$ZZ&-XI0!T$9@I(
  4352. + M;`@.3KK@VEA/3-]`!$YU2.<`!B`L'0AG"B!`+'@`!$ZN_6!*K!T$9S@L>``$
  4353. + M3J[_?&`,(DUP'"QX``1.KO\N(&P=!"QX``1.KOZ,*D!*@&;B(&P=!$ZZL
  4354. + M>``$3J[_=DS?8`!.=0``(&\`!"`O``@B+P`,(F\`$"]O`!0`!"]O`!@`"%E/
  4355. + M2.</-B@O`"PJ+P`H+`$N`"I)+T@`("QX``1.KOUF)D!*@&<P($L@!$ZN_7(D
  4356. + M0$J`9R(@#6<()4T`*"5%`"0@;P`@(`<B2B(&3J[^1$H`9@0@"F`6(`IG!B!*
  4357. + M3J[];"`+9P8@2TZZ%Z!P`$S?;/!83TYU(&\`!$CG``8J2"`-9Q@B32QX``1.
  4358. + MKOX^(&T`#DZZ%W8@34ZN_6Q,WV``3G593T'Y`````"Z(9P@@>?____Q.D%A/
  4359. + M3G593T'Y`````"Z(9P@@>?____Q.D%A/3G5(YP,$*F\`$"!-2AAF_%.(D<TN
  4360. + M"&`*(`9![`E&3KH+5GP`'!U*AF;N0>P)1DZZ#V8@!TS?(,!.=9[\`!!(YP<4
  4361. + M?@!+[P`L8```FG`EL"\`%&8``(`@;P`H4J\`*!`0<@`2`!]``!5P9)*`9SIP
  4362. + M#)*`9PY7@6<&6X%G!F!$)EU@-"P=1^\`'GH'(`9R#\"!0?H`>-'`%I!3B^B&
  4363. + M4X5*A6KH0B\`'V`*(!U![P`73KH"&D?O`!<O"TZZ_TA83]Z`8")2AW``$"\`
  4364. + M%4'L"49.N@JF8!!2AW``$"\`%$'L"49.N@J4(&\`*%*O`"@0$!]``!1F`/]8
  4365. + M0>P)1DZZ#IH@!TS?*.#>_``03G4P,3(S-#4V-S@Y04)#1$5&`````$CG`Q<J
  4366. + M;!T,8!0F57`4T*T`!")-+'@`!$ZN_RXJ2R`-9NA"K!T,8$PJ;!T8<)S0K`G<
  4367. + M)D`@+0`$*4`=&"EM``@)W"XM`!A*@&8>(&P*``QH`"0`%&42($\L"$'M``PL
  4368. + M>``$3J[])"Y&(DL@!RQX``1.KO\N2JP=&&:N3-_HP$YU(&\`!")O``@@4")1
  4369. + M$!BP&68$2@!F]I`A2(!(P$YU(&\`!"`O``A#^O_@<@1.^@>:(&\`!")O``@@
  4370. + M+P`,2H!O"A(0$-$2P5.`9O9.=2!O``0B;P`(<`!R`!`8$AD,``!A;0H,``!Z
  4371. + M;@0$```@#`$`86T*#`$`>FX$!`$`()"!9@1*`6;43G4``"`O``@@;P`$3E7_
  4372. + M]")/<@I.N@)P!D$`,!+!2H!F\"`)$.&_R6;Z0A"0CTY=3G4``"`O``@@;P`$
  4373. + M3E7_]")/(@`"00`'!D$`,!+!YHAF\"`)$.&_R6;Z0A"0CTY=3G4``#`Q,C,T
  4374. + M-38W.#EA8F-D968@+P`((&\`!%%/(D\R``)!``\2^Q#<Z(AF\B`)$.&_R6;Z
  4375. + M0A"0B5!/3G4``"`O``@@;P`$+PA*@$Y5__0B3VP&$/P`+42`<@I.N@'(!D$`
  4376. + M,!+!2H!F\!#AO\EF^D(0(`A.79"?3G4``"!O``0B;P`(2.<P("1(<@`@`28!
  4377. + M#!``*V<(#!``+68$=@%22!`8!```,&T:#```"6X4)`'E@=*"TH%*`V8$TH!@
  4378. + MXI*`8-XB@2`(D(I3@$S?!`Q.=2!O``0O#2I(""T``P`;9C`@+`F,3KH$?BM`
  4379. + M``0K0``09@IP#"E`',QP_V`6*VP)C``4<//!K0`80JT`#$*M``AP`"I?3G4`
  4380. + M`"!O``1(YR`4*D@F36`@<``0$T'L"!T(,``!"`!G"G(`$@!T()*"8`1R`!(`
  4381. + M%L%*$V;<(`U,WR@$3G4``)[\`%!(YS$V0_H`A'``+'@`!$ZN_=@J0$J`9@9P
  4382. + M%$ZZ[')^`"!L"@P>*/__(`=#[P`<8`(2V%.`9/I"-W@<0>\`'"E(":1#[`FL
  4383. + M1^P)P"Q-D<B5RG``(@!T?=2"=BA.KOZD<!1.NNPL3-]LC-[\`%!.=2HJ(%-T
  4384. + M86-K($]V97)F;&]W("HJ``!%6$E4``!I;G1U:71I;VXN;&EB<F%R>0!*@&H`
  4385. + M`!Y$@$J!:@``#$2!80``($2!3G5A```81(!$@4YU2H%J```,1(%A```&1(!.
  4386. + M=2\"2$$T`68``")(0$A!2$(T`&<```:$P3`"2$`T`(3!,`)(0C(")!].=2\#
  4387. + M=A`,00"`9```!N&944,,00@`9```!NF964,,02``9```!N6954-*06L```;C
  4388. + MF5-#-`#FJ$A"0D+FJDA#@,$V`#`"-`-(0<3!D()D```&4T/0@7(`,@-(0^>X
  4389. + M2$#!028?)!].=0``2.=P`"0`9R!*@68$0H!@&"8`QL%(0L3!2$)"0M:"2$'`
  4390. + MP4A`0D#0@TS?``Y.=0``("P*"`1``?0N0$[Z_F```"!O``0@+P`((B\`#%.!
  4391. + M:P2P&&;X4TA2@4J!9@``!)'((`A.=2)O``@@;P`$("\`#"((8`00V6<(4X!D
  4392. + M^&`&0AA3@&3Z(`%.=2)O``@@;P`$("\`#"((2H!O%K')90S3P-'`$2%3@&;Z
  4393. + M8`80V5.`9OH@`4YU(&\`!"`O``A(YP,4+@`J2&82(`UF!'``8&@@34ZZ`&YP
  4394. + M`&!>(`UF"B`'3-\HP$[Z`<@F356+,#Q__\!32,#E@"P`"!,`#V<,#&N``/_^
  4395. + M9@0L*__R(`=.N@&@)D!*@&8$<`!@'KR'8P0@!V`"(`8@32)+8`(2V%.`9/H@
  4396. + M34ZZ``X@"TS?*,!.=2!O``0@"&8"3G59@$CG/#(B+!T,9@XI?````!8<S$S?
  4397. + M3#Q.=2)!L(%O$B0!U*D`!`:"````%+"";`)@""(I``!GU&#@)@$&@P```!"P
  4398. + M@VW&9Q(D0T*"-"H``FNZY8K6@EB#8.@D0#0J``!JJ@BJ``<``$*#-BH``@)#
  4399. + M?__EBTIJ``)K0$?R.`1*:P``:S9"A#@K``("1'__Y8S8@UB$Y(Q8@TIK``)J
  4400. + M!`!$@``U1``":Q(J!.6,-#)(!`)"@`"*0C6%2`1"A#@J``!G3.6,1(1'\DC\
  4401. + M2FL``&L^0H0X*P`"Y8Q"A3HJ``("17__Y8W8A5B$6(/DC$IJ``)J!`!$@``W
  4402. + M1``":Q(J!.6,-#-(!`)"@`"*0C>%2`37J0`()BD`!+:L"!AN#+:I``AF.DJI
  4403. + M``!G-"`L'0P@0+*`9@PI:0``'0Q@$"!H``"RJ```9O8A:0`````@*0`$!H``
  4404. + M```4+'@`!$ZN_RY,WTP\3G4@+P`$2H!F#"E\````%AS,<`!.=4CG/C)6@`*`
  4405. + M_____`R```'__&X``+BPK`@8;@``L"8L'0QG``"H(D.PJ0`(;C(B+!T0LJD`
  4406. + M#&8H1>D`$$I2:Q!"A#@J``("1'__Y8RPA&\:0H0X*@`":PCEC$7R2`1@W"8I
  4407. + M``!G9B)#8+X(Z@`'``!'\@@$0H6PA&<\+`2<@%F&9@0@!&`PY(Y*:@`":@0`
  4408. + M1H``*@#DC3=&``(W10``-44``GH$2D9K#C0R2`0"0H``C$(UAD@$)BD`"):`
  4409. + MEH4C0P`((`I8@$S?3'Q.=2H`L*P(&&H$("P(&"@`!H`````4(BP=$"QX``1.
  4410. + MKO\Z2H!F"BE\````#!S,8,PB0$7I`!`C;!T,```I21T,(T0`!"-L'1``#"8$
  4411. + MEH5G*%F#9R0C0P`(1_)8!#5\@````.2--44``C=%``#DBP!#@``W0P`"8!1"
  4412. + MJ0`(-7R`````Y(P`1(``-40``B`*6(!,WTQ\3G4@;P`$("\`""(O``PB;P`0
  4413. + M64](YP\V+`$N`"I(+TD`('`!OH!C``"R)DW7QB`'58!F)"\++PT@32)++&\`
  4414. + M*$Z64$]*@&\``)(@!B!-(DM.NO@T8```A"`'XH@B!DZZ^X8B3=/`(`8@34ZZ
  4415. + M^!HD37H`>`%@*B\-+PL@2R)-+&\`*$Z64$]*@&H24H75QK7+9PH@!B!+(DI.
  4416. + MNO?LU\92A+B'9=*US6<*(`8@32)*3KKWUB9O`"`@!2(&($TB2V$`_U(@2M'&
  4417. + M(`>0A5.`(@8B2TS?;/!8CV``_SI,WVSP6$].=2`O``1(YP$$+@`J;`G48`@@
  4418. + M;0`$3I`J52`-9O1+[`DD<`;`K0`858!F&"`M``20K0`09PXB+0`<(&T`$,%!
  4419. + M3KKO2"!-*E`@#6;6(`=,WR"`3OKEX"`O``0@;P`(0]!2F2!14ID0@$YU44\@
  4420. + M;P`,0I<O2``$2&\`%"\O`!1!^O_>0^\`"$ZZ"_X@;P`,0A!03R`74$].=0``
  4421. + M("\`!"!O``@O#2(`*DA2E4/M``@@$5*1&X$(#"`9#(````(`;11![0`,(FT`
  4422. + M!'(!P4%.N@'P0JT`""I?3G6>_`(,+PTJ;P(40J\`#$*O``0O30`(2&\"'"\O
  4423. + M`AQ!^O^J0^\`#$ZZ"X903R`O``QG$$'O`!`B;P`(<@'!04ZZ`:8(+0`%`!MF
  4424. + M"`@M``0`&V<$</]@!"`O``0J7][\`@Q.=2`O``0@;P`(64](YP,$+@`J2'P`
  4425. + M'T``#W)!TH'"K0`89@P([0`%`!MP_V```4!P,\"M`!A5@&=0<$Q&`,"M`!AR
  4426. + M0-*!L(%F#`CM``$`&T*M``Q@-`@M``4`&V<&</]@``$,<&Y&`,"M`!AR;D8!
  4427. + ML(%F#`CM``$`&T*M``Q@"G``*T``#&```.8@+0`,L*T`%&PR(&T`!%*M``0@
  4428. + M!Q"`4JT`#`@M``8`&V<.<@J^@68(($U.N@-T+`!*AF<``*H@!F```*H(+0`"
  4429. + M`!MG+D*M``P@+0`<0>\`#W(!3KKM="P`4H!F"`CM``4`&V!R(`93@&=L".T`
  4430. + M!``;8&1*K0`49B`@34ZZ]N1*@&<*".T`!0`;</]@6'``*T``#"MM`!``!"`M
  4431. + M``RPK0`4;0@@34ZZ`OHL``CM``$`&R!M``12K0`$(`<0@%*M``P(+0`&`!MG
  4432. + M#G(*OH%F""!-3KH"SBP`2H9G!"`&8`9R`!('(`%,WR#`6$].=2!O``0@+P`(
  4433. + M(B\`#")O`!!93TCG#Q`L`2X`)DDO2``4(`8B!TZZ^#(J`'@`2H=G!$J&9@9P
  4434. + M`&```/QP,,"K`!AF"G!!T(#`JP`89@P(ZP`%`!MP`&```-YP,\"K`!A5@&=0
  4435. + M<$Q&`,"K`!AR0-*!L(%F#`CK``$`&T*K``Q@-`@K``4`&V<&<`!@``"J<&Y&
  4436. + M`,"K`!AR;D8!L(%F#`CK``$`&T*K``Q@"D*K``QP`&```(1*JP`49DP(*P`"
  4437. + M`!MF1"!+3KKUL$J`9SH(ZP`%`!MP`&!@(&\`%!`8(FL`!!*`4JL`!%*K``Q3
  4438. + MA5*$+T@`%'(*L`%F#@@K``8`&V<&($M.N@&R("L`#+"K`!1L!$J%;L)*A6\6
  4439. + M($M.N@&:("L`'"(%(&\`%$ZZZ[38@"`$(@=.NO:43-\(\%A/3G4@;P`$("\`
  4440. + M""(O``PB;P`044](YP\4+@`J22P!)D@O00`8+T@`'$J'9P1*AF8&<`!@``$X
  4441. + M(`8B!TZZ]N(L`'H`<##`K0`89P9P`&```1YP?D8`P*T`&&<``1)P,\"M`!A3
  4442. + M@&<T<%Q&`,"M`!AR0-*!L(%F%`CM````&P@M``0`&V<6<`!@``#D0JT`"`CM
  4443. + M``4`&W``8```U$JM`!1F+@@M``(`&V8F($U.NO2.2H!G'`CM``4`&W``8```
  4444. + ML$/M``0@41;04IE3F5.&4H5*K0`(9P1*AF[F2H9O``"(""T``@`;9@:\K0`4
  4445. + M;S`@+0`<(@8@2TZZ[!PH`$J&:A`([0`%`!L@!2('3KKU@F!>N(9L!@CM``0`
  4446. + M&]J$8$@@;0`0*T@`!"`M`!PB+0`4(&T`$$ZZZ^`H`&P0".T`!0`;(`4B!TZZ
  4447. + M]4A@)$J$9A`([0`$`!L@!2('3KKU-&`0*T0`"&``_VP@!2('3KKU(DS?*/!0
  4448. + M3TYU```@;P`$2.<!!"I((`UG``"@<$'0@,"M`!AF+"!M`!!#[0`$(LA"F4(M
  4449. + M`"!P`"+`""T`!P`;9P8(K0```!L(K0`$`!M@``"*2JT`%&=$("T`#&H&<@`K
  4450. + M00`,("T`#&<H(BT`'"!M`!#!04ZZZ<(N`%*`9@@([0`%`!M@#+ZM``QG!@CM
  4451. + M``0`&RMM`!``!$*M``QP,,"M`!AF$@@M``<`&V<&</S!K0`8<`!@)'#_8"!^
  4452. + M`$OL"21*K0`89PP@36$`_T9*@&<"?O\J52`-9N@@!TS?((!.=2!O``1(YP$$
  4453. + M*DA^`"`-9P8@+0`89@1P_V!`""T``0`;9P@@34ZZ_PHN`'`,P*T`&&8.2JT`
  4454. + M%&<((&T`$$ZZ]=9"K0`8("T`'$ZZT*)2AV<$2H!G!'#_8`)P`$S?((!.=2!O
  4455. + M``0B;P`(+V\`#``$64](YP\4)F\`("I)+T@`&'X`+"P)D'H`2JL`&&<&($M.
  4456. + MNO]T<``0+0`!<BN0@6<@<C:0@6<&4X!G!&`@?`!R*[(M``)7P$0`2(!(P"H`
  4457. + M8`QZ`7!AL"T``F8"?`!P`!`5<F&0@6<,<A&0@6<:6X!G)&`V2H56P'(!D@``
  4458. + M00$(C(%^0.&/8"A*A5;`<@"2`)(`C(%@&DJ%5L!R`9(``$$!``!!`@",@6`&
  4459. + M<`!@``"`+RP)E"\&+R\`($ZZWU1/[P`,*`!2@&8$<`!@8DJ%9P8(QP`'8#!P
  4460. + M`!`5<F&0@6<,<A&0@6<:6X!G&F`:",<``4AX``(@!'(`3KKH]%A/8`9^`6`"
  4461. + M?@((!@`/9@0(QP`/D<A+ZP`0*L@JR"=$`!PG2``$)T@`#"=(``@JQR`+3-\H
  4462. + M\%A/3G4``"!O``0B;P`(44](YP`42.\#```(2^P))&`$)DTJ4R`-9P9*K0`8
  4463. + M9O(@#68><").NO6L*D!*@&8$<`!@'B!-)HAP(7(`$,%1R/_\+PT@;P`,(F\`
  4464. + M$$ZZ_G183TS?*`!03TYU```@;P`$(F\`""]O``P`!"]O`!``")[\`#1(YR\V
  4465. + M)F\`8"IO`%Q([P,``"Q"+P`[0B\`.D(O`#E"+P`X'WP`(``W0J\`5'#_+T``
  4466. + M4$(O`#9^`'P`1>\`/&!*<``@;P`L$!!R()"!9R)7@&<F48!G$E6`9P97@&<B
  4467. + M8#(??``!`#M@'A]\``$`.F`6'WP``0`Y8`X??``!`#A@!A]\`#``-U*O`"P@
  4468. + M;P`L2A!FKG`!L"\`.V8&'WP`(``W<BH@;P`LLA!F'BQO`#`B5EB6(A$O00!4
  4469. + M;`A$KP!4'T``.U*O`"Q@#$/O`%1.NN^RT:\`+"!O`"P0$'(NL`%F1E*O`"QP
  4470. + M*B!O`"RP$&8<(F\`,"!16)$@$"]``%!L!G#_+T``4%*O`"Q@%D/O`%!.NN]P
  4471. + M*@!F!D*O`%!@!-NO`"P??``@`#=P`"!O`"P0$'),D(%G%'(<D(%G!EF`9PI@
  4472. + M$A]\``(`-F`&'WP``0`V4J\`+"!O`"Q2B")O`"P0$7(`$@`?0``D+T@`)G!0
  4473. + MDH!G``$048%G``$<<`N2@&<``=!3@6=06X%G3%N!9R)3@6<``0)3@6<``.I7
  4474. + M@6<``8!5@6<``/!7@6<``.I@``&X)&\`,'`"L"\`-F8.(%)8DB)0(!,R@&``
  4475. + M`DH@4EB2(E`BDV```CXB;P`P(%%8D2@0:@1^`42$2H=G#$7O`#T??``M`#Q@
  4476. + M(DHO`#IG#$7O`#T??``K`#Q@$$HO`#EG#$7O`#T??``@`#Q\`2`$($I.NNV*
  4477. + M*@`@+P!09@9*A&<``>0@+P!0:@9R`2]!`%`H+P!0F(5O'"!*T<0@!2)*3KKP
  4478. + M_'(P($I@`A#!4X1D^BHO`%#<A2`%4X!F``$$$!*P+P`W9@``^DJO`%!F``#R
  4479. + M0A)@``#L("\`4&H&<`@O0`!0'WP``0`V<`*P+P`V9A`B;P`P(%%8D2`0>``X
  4480. + M`&`*(F\`,"!16)$H$!`O`"1R=;`!9P#_6G)OL`%F'DHO`#AG#$7O`#T??``P
  4481. + M`#Q\`2`$($I.NNSZ8`#_/DHO`#AG$A]\`#``/$7O`#X??`!X`#U\`B`$($I.
  4482. + MNNT6*@`(+P`%`"1F`/\40>\`/$ZZ[@)@`/\((F\`,"!16)$D4"`*9@1%^@#R
  4483. + M($I*&&;\4XB1RBH(("\`4&L$L(5O!"]%`%`L+P!08"!\`2)O`#`@45B1(!`?
  4484. + M0``\0B\`/6`&<`!@``"L1>\`/"`O`%2PAFP(<@`O00!48`2=KP!42B\`.V<>
  4485. + M8`AP`!`:($M.E5.&;/1@!B!+<"!.E5.O`%1L]&!J2H=F#$HO`#EF!DHO`#IG
  4486. + M1A`2<B"P`6<,="NP`F<&="VP`F8R2H9K+K(O`#=F$F`*<``0+P`W($M.E5.O
  4487. + M`%1L\'``$!H@2TZ54X9@"G``$"\`-R!+3I53KP!4;/!@"'``$!H@2TZ54X9L
  4488. + M]"`O`"9,WVSTWOP`-$YU```@;P`$(F\`""]O``P`!"]O`!``")[\``Q(YP`4
  4489. + M)DDJ2"]O`!P`$&`X<"6P+P`,9B8@;P`8L!!F!E*O`!A@&"\++PU#[P`83KK[
  4490. + ME%!/2H!G!B]``!A@"G``$"\`#"!+3I4@;P`8$!@?0``,+T@`&$H`9K9,WR@`
  4491. + MWOP`#$YU(&\`!""(6)!"J``$(4@`"$YU```@;P`$2.<`!BI(2JT`"F<*(DTL
  4492. + M>``$3J[^F!M\`/\`"'#_*T``%'``$"T`#RQX``1.KOZP(DUP(DZN_RY,WV``
  4493. + M3G4``"!O``0@+P`(2.<#%BX`*DAP_RQX``1.KOZV'`!(ADC&(`92@&8$<`!@
  4494. + M8'`B(CP``0`!3J[_.B9`2H!F""`&3J[^L&!$0>L`"B#-%T<`"1=\``0`"$(8
  4495. + M$,:3R4ZN_MHG0``0(`UG"")+3J[^GF`:0>L`&"=(`!1!ZP`4)T@`'$*K`!@7
  4496. + M?``"`"`@"TS?:,!.=2\(+P!.N0``(?Y03TYU``````/L`````0```````&9J
  4497. + M`````0````$````*`````````_(```/J```"LD%04@!!54<`1$5#`$9%0@!*
  4498. + M04X`2E5,`$I53@!-05(`34%9`$Y/5@!/0U0`4T50```````````$````!```
  4499. + M``@````(````#`````P````"````$`````$````4````!P```!@````&````
  4500. + M'`````,````@````!0```"0````+````*`````H````L````"0`(`````$``
  4501. + M````'G9I<G1U86P@;65M;W)Y(&5X:&%U<W1E9```=FER='5A;"!M96UO<GD@
  4502. + M97AH875S=&5D```M`"5S``!E<G)O<B!C;&]S:6YG(&9I;&4``'=R:71E(&5R
  4503. + M<F]R`"5S+W-O<G0E-2XU9"4U+C5D`"5S<V]R="4U+C5D)34N-60``')E860@
  4504. + M97)R;W(``'(`)7,Z(&1I<V]R9&5R(&]N("5S"@!R`'<`<@!W`'(`<@!W`&EN
  4505. + M=F%L:60@9FEE;&0@<W!E8VEF:6-A=&EO;B!@)7,G```M`%1-4$1)4@``+W1M
  4506. + M<```;W!T:6]N(&`M:R<@<F5Q=6ER97,@86X@87)G=6UE;G0``&]P=&EO;B!@
  4507. + M+6\G(')E<75I<F5S(&%N(&%R9W5M96YT``!O<'1I;VX@8"UT)R!R97%U:7)E
  4508. + M<R!A;B!A<F=U;65N=```;W!T:6]N(&`M5"<@<F5Q=6ER97,@86X@87)G=6UE
  4509. + M;G0``"5S.B!U;G)E8V]G;FEZ960@;W!T:6]N(&`M)6,G"@``+0!W`'(`=P`E
  4510. + M<P``=P!F9FQU<V@``"T`=W)I=&4@97)R;W(`57-A9V4Z("5S(%LM8VUU<UT@
  4511. + M6RUT('-E<&%R871O<ET@6RUO(&]U='!U="UF:6QE72!;+50@=&5M<&1I<ET@
  4512. + M6RUB9&9I36YR70H@("`@("`@6RM03U,Q(%LM4$]3,EU=(%LM:R!03U,Q6RQ0
  4513. + M3U,R75T@6V9I;&4N+BY="@````!'3E4@=&5X='5T:6QS(#$N-@````+(``!5
  4514. + M;FMN;W=N('-Y<W1E;2!E<G)O<@``)7,Z(```.B`E<P````!/:P``````%```
  4515. + M`````````````````P1C;VYS;VQE.@``)7,Z(```:6YT=6ET:6]N+FQI8G)A
  4516. + M<GD```!T:6UE<BYD979I8V4`````_____V9I9F\N;&EB<F%R>0``````````
  4517. + M`````````V0``0```````````V8```````````````!&86EL960@=&\@8W)E
  4518. + M871E('1I;65R``!U<V5R(&EN=&5R<G5P=````````$YO(&UE;6]R>0```&$`
  4519. + M1F%I;&5D('1O(&-R96%T92!T:6UE<@``3DE,.@``3DE,.@``3DE,.@``*@!.
  4520. + M24PZ``!);G9A;&ED('=I;&1C87)D("5S`$5R<F]R(&5X<&%N9&EN9R!A<F=U
  4521. + M;65N=',`55-%4@``=7-E<@``55-%4DY!344``$A/344``',Z``!32$5,3`!B
  4522. + M:6XZ<V@``$A/4U1.04U%``!A;6EG80!.24PZ`````)LP('$``$9A:6QE9"!T
  4523. + M;R!I;FET:6%L:7-E($DO3P``86UI9V$@<W!E8VEF:6,@97)R;W(`````!(A5
  4524. + M;FMN;W=N(&5R<F]R`&YO="!O=VYE<@!N;R!S=6-H(&9I;&4@;W(@9&ER96-T
  4525. + M;W)Y`&YO('-U8V@@<')O8V5S<P!I;G1E<G)U<'1E9"!S>7-T96T@8V%L;`!I
  4526. + M+V\@97)R;W(`;F\@<W5C:"!D979I8V4@;W(@861D<F5S<P!A<F=U;65N="!L
  4527. + M:7-T('1O;R!L;VYG``!E>&5C(&9O<FUA="!E<G)O<@!B860@9FEL92!N=6UB
  4528. + M97(`;F\@8VAI;&0@<')O8V5S<P``;F\@;6]R92!P<F]C97-S97,`;F]T(&5N
  4529. + M;W5G:"!M96UO<GD`<&5R;6ES<VEO;B!D96YI960`8F%D(&%D9')E<W,`8FQO
  4530. + M8VL@9&5V:6-E(')E<75I<F5D`&UO=6YT(&1E=FEC97,@8G5S>0``9FEL92!E
  4531. + M>&ES=',`8W)O<W,M9&5V:6-E(&QI;FL`;F\@<W5C:"!D979I8V4``&YO="!A
  4532. + M(&1I<F5C=&]R>0!I<R!A(&1I<F5C=&]R>0``:6YV86QI9"!A<F=U;65N=```
  4533. + M9FEL92!T86)L92!O=F5R9FQO=P!T;V\@;6%N>2!O<&5N(&9I;&5S`&YO="!A
  4534. + M('1Y<&5W<FET97(``'1E>'0@9FEL92!B=7-Y``!F:6QE('1O;R!B:6<``&YO
  4535. + M('-P86-E(&QE9G0@;VX@9&5V:6-E`&EL;&5G86P@<V5E:P``<F5A9"UO;FQY
  4536. + M(&9I;&4@<WES=&5M`'1O;R!M86YY(&QI;FMS``!B<F]K96X@<&EP90!M871H
  4537. + M(&%R9W5M96YT`')E<W5L="!T;V\@;&%R9V4``$DO3R!S=')E86T@96UP='D`
  4538. + M`&9I;&4@;F%M92!T;V\@;&]N9P``9&ER96-T;W)Y(&YO="!E;7!T>0!T;V\@
  4539. + M;6%N>2!S;V9T(&QI;FMS("AL;V]P/RD````$H@``!+````2Z```$U```!.0`
  4540. + M``3\```%!@``!2````4X```%2@``!5H```5L```%?@``!9````6B```%K@``
  4541. + M!<0```78```%Y```!?8```8&```&%@``!B8```8X```&3```!F````9R```&
  4542. + M@@``!I````:H```&M@``!LP```;<```&Z```!O8```<(```'&@``!RX```="
  4543. + M````)@``9&]O<BXE;'@N)6QX``!.;R!M96UO<GD```!````@("`@("`@("`H
  4544. + M*"@H*"`@("`@("`@("`@("`@("`@($@0$!`0$!`0$!`0$!`0$!"$A(2$A(2$
  4545. + MA(2$$!`0$!`0$(&!@8&!@0$!`0$!`0$!`0$!`0$!`0$!`0$!$!`0$!`0@H*"
  4546. + M@H*"`@("`@("`@("`@("`@("`@("`@(0$!`0(```````````````````````
  4547. + M````````````````````````````````````````````````````````````
  4548. + M````````````````````````````````````````````````````````````
  4549. + M```````````````````````````````````/H```"48`````````````````
  4550. + M``````````````````````````EH````````````````````````````````
  4551. + M```````````````````````````````````````````````````````````"
  4552. + M````@``````-__\````.``X```````````````#__P````0`!````````%*B
  4553. + M```)F/__````!``$````````4K@``````````````#L```"(````@````'@`
  4554. + M``!P````:````&````!8````4````$@```!`````.````#````+:```#&```
  4555. + M`W@```-L```']@``!_(```?N```'Z@``!^8```?B```'W@``!]H```?6```'
  4556. + MT@``!\X```?*```'Q@``!\(```>^```'N@``![8```>R```'K@``!ZH```>F
  4557. + M```'H@``!YX```>:```'E@``!Y(```>.```'B@``!X8```>"```'?@``!WH`
  4558. + M``=V```'<@``!VX```=J```'9@``!V(```=>```$G@``"48```DD```)O```
  4559. + :`^P````"````````"<P```FX`````````_)>
  4560. + `
  4561. + end
  4562. diff -rc --new-file emacs-18.59/amiga/amiga-extra/amiga/compile.doc /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/compile.doc
  4563. *** emacs-18.59/amiga/amiga-extra/amiga/compile.doc    Thu Jan  1 00:00:00 1970
  4564. --- /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/compile.doc    Sun Jan 17 12:21:18 1993
  4565. ***************
  4566. *** 0 ****
  4567. --- 1,34 ----
  4568. + To compile emacs, you will need SAS C 6.01. If you try to make it work
  4569. + with Aztec C or gcc, you might run into difficulties with the dumping code:
  4570. + - The "small" data model (A4-relative) is used, to get all the variables
  4571. +   in one hunk.
  4572. + - Some variables are declared with the "far" attribute to get them out
  4573. +   of this hunk (and the dumping code depends on this). Move these to
  4574. +   the amiga_data.c module (which is for variables that shouldn't be
  4575. +   dumped).
  4576. + 
  4577. + To compile:
  4578. + 
  4579. + a) Install my 'unix compatibility' library (available by ftp and on fish
  4580. +    disks).
  4581. + 
  4582. + b) Install as usual (see INSTALLATION).
  4583. + 
  4584. + c) Compile the C preprocessor (SAS's one has a few problems ...):
  4585. + 
  4586. +      cd gnuemacs:cpp
  4587. +      smake
  4588. + 
  4589. + d) Compile & dump emacs
  4590. + 
  4591. +      stack 20000
  4592. +      cd gnuemacs:src
  4593. +      smake
  4594. +      copy temacs /
  4595. + 
  4596. +    (This takes around 20 minutes from scratch on an A2500/30).
  4597. + 
  4598. + If all goes well, you should have a new version of emacs ...
  4599. + 
  4600. + [Note: The DOC strings are not remade systematically. To change this,
  4601. + edit ymakefile and remove the comment from the rule for xemacs]
  4602. diff -rc --new-file emacs-18.59/amiga/amiga-extra/amiga/contrib/chopps/lisp/amiga-user-name.el /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/chopps/lisp/amiga-user-name.el
  4603. *** emacs-18.59/amiga/amiga-extra/amiga/contrib/chopps/lisp/amiga-user-name.el    Thu Jan  1 00:00:00 1970
  4604. --- /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/chopps/lisp/amiga-user-name.el    Thu Mar 18 22:26:08 1993
  4605. ***************
  4606. *** 0 ****
  4607. --- 1,23 ----
  4608. + ;;
  4609. + ;;  User-Name.el.
  4610. + ;;  ------------
  4611. + ;;   -ch3/11/93.
  4612. + ;;
  4613. + ;;  This is a replacement for the (user-full-name) function that comes
  4614. + ;;  comes with emacs, so that it fetches the login name from $USERNAME
  4615. + ;;  and the full name from $REALNAME.  As is the default on most amiga
  4616. + ;;  systems that are running UUCP and related utils.
  4617. + ;;
  4618. + ;;  It will also check $USER for the login name.
  4619. + ;;
  4620. + 
  4621. + (defun user-login-name ()
  4622. +   (if (eq nil (getenv "UserName"))
  4623. +       (getenv "User")
  4624. +     (getenv "UserName")))
  4625. + 
  4626. + (defun user-full-name ()
  4627. +   (if (eq nil (getenv "RealName"))
  4628. +       (user-login-name)
  4629. +     (getenv "RealName")))
  4630. + 
  4631. diff -rc --new-file emacs-18.59/amiga/amiga-extra/amiga/contrib/chopps/lisp/fix-endif-no-comment.el /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/chopps/lisp/fix-endif-no-comment.el
  4632. *** emacs-18.59/amiga/amiga-extra/amiga/contrib/chopps/lisp/fix-endif-no-comment.el    Thu Jan  1 00:00:00 1970
  4633. --- /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/chopps/lisp/fix-endif-no-comment.el    Thu Mar 18 22:26:44 1993
  4634. ***************
  4635. *** 0 ****
  4636. --- 1,14 ----
  4637. + ;;
  4638. + ;;  This small bit of lisp will fix the so common #endif somthing
  4639. + ;; (with no comment) code.
  4640. + ;;
  4641. + 
  4642. + (defun fix-endif-no-comment ()
  4643. +   (interactive)
  4644. +   (save-excursion
  4645. +     (beginning-of-buffer)
  4646. +     (replace-regexp "^#endif \\(.*\\)" "#endif /* \\1 */")
  4647. +     (beginning-of-buffer)
  4648. +     (replace-regexp "^#endif /\\* /\\* \\(.*\\) \\*/ \\*/" "#endif /* \\1 */")))
  4649. + 
  4650. +     
  4651. \ No newline at end of file
  4652. diff -rc --new-file emacs-18.59/amiga/amiga-extra/amiga/contrib/chopps/rexx/invoker /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/chopps/rexx/invoker
  4653. *** emacs-18.59/amiga/amiga-extra/amiga/contrib/chopps/rexx/invoker    Thu Jan  1 00:00:00 1970
  4654. --- /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/chopps/rexx/invoker    Sat May  8 12:38:48 1993
  4655. ***************
  4656. *** 0 ****
  4657. --- 1,286 ----
  4658. + From: chopps@ro-chp.UUCP (Chris Hopps)
  4659. + Subject: Emacs invoker.
  4660. + 
  4661. +     This is the newest invoker of mine I am very pleased with it
  4662. + and think it would be good for inclusion in the main distribution.
  4663. + With the included rexx file (and some of the mods to emacs I sent you
  4664. + earlier,) this invoker supports multiple files on the cmd line.  It
  4665. + also supports turning backups off for the files loaded on that line,
  4666. + and a WAIT command that will have Emacs return the prompt only after
  4667. + the files specified on the command line have been killed.  The invoker
  4668. + also checks to see if Emacs is iconified if so it will de-iconify it.
  4669. + It brings emacs to the front and activates it (my mods needed for
  4670. + this.)
  4671. + 
  4672. + This makes leaving GNUEmacs up and running all the time very feasable.
  4673. + The invoker can be used for programs like ``Arn'', ``Elm'' or whatever
  4674. + else kind of program that does something with a file after the editor
  4675. + returns.
  4676. + 
  4677. + Here is the lisp code required for using the ``WAIT'' option of the
  4678. + invoker.  It should be loaded in the .emacs file.
  4679. + 
  4680. + -------8<-------------8<-------------8<-------------8<-------------8<--
  4681. + ;; [notify-rexx-wait.el] notification of kill of a buffer to rexx.
  4682. + ;; Copyright © 1993 Christian E. Hopps.
  4683. + 
  4684. + ;; This program is free software; you can redistribute it and/or modify
  4685. + ;; it under the terms of the GNU General Public License as published by
  4686. + ;; the Free Software Foundation; either version 2 of the License, or
  4687. + ;; (at your option) any later version.
  4688. + 
  4689. + ;; This program is distributed in the hope that it will be useful,
  4690. + ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  4691. + ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  4692. + ;; GNU General Public License for more details.
  4693. + 
  4694. + ;; You should have received a copy of the GNU General Public License
  4695. + ;; along with this program; if not, write to the Free Software
  4696. + ;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  4697. + 
  4698. + ;; I can be contacted at:
  4699. + ;; bix: chopps
  4700. + ;; uucp: chopps@ro-chp.UUCP (sycom.mi.org!ro-chp!chopps)
  4701. + 
  4702. + (provide 'notify-rexx-wait)
  4703. + 
  4704. + (make-variable-buffer-local 'notify-rexx-port)
  4705. + (set-default 'notify-rexx-port nil)
  4706. + 
  4707. + ;;; Set old-kill-buffer to the internal version
  4708. + ;; first check to see if it has already been bound.
  4709. + ;; if not then bind it to the internal.
  4710. + ;;
  4711. + (if (not (fboundp 'old-rexx-notify-kill-buffer ))
  4712. +     (fset 'old-rexx-notify-kill-buffer (symbol-function 'kill-buffer)))
  4713. + 
  4714. + ;;; redefine kill-buffer to check to see if it should
  4715. + ;;  notify rexx that the buffer is being killed.
  4716. + ;;
  4717. + (defun kill-buffer (buffer-strp)
  4718. +   "Notifys rexx that the current buffer is about to be killed. If it has one."
  4719. +   (interactive "bBuffer:")
  4720. +   (let ((buf nil))
  4721. +     (setq buf (get-buffer buffer-strp))
  4722. +     (switch-to-buffer buf)
  4723. +     (if (eq notify-rexx-port nil)
  4724. +     (old-rexx-notify-kill-buffer buffer-strp)
  4725. +       (amiga-arexx-send-command (concat "ADDRESS " notify-rexx-port "; QUIT") t)
  4726. +       (old-rexx-notify-kill-buffer buf))))
  4727. + -------8<-------------8<-------------8<-------------8<-------------8<--
  4728. + 
  4729. + Here is the rexx code for the invoker, it can be copied to ``rexx:g.rexx''
  4730. + to be called from wshell with ``[prompt]g myfile.c WAIT'' or copied
  4731. + to ``s:g'' (or somewhere in path) to be called from the AmigaShell 
  4732. + (make sure to set the ``s'' script bit.
  4733. + -------8<-------------8<-------------8<-------------8<-------------8<--
  4734. + /***[g.rexx]***************************************************/
  4735. + /* An invoker for GNU Emacs.
  4736. +  * Copyright © 1993 Christian E. Hopps
  4737. +  *
  4738. +  * FILES/M,WAIT=STICKY/S,NOBACKUPS/S"
  4739. +  *
  4740. +  * use WAIT or STICKY option to have g.rexx wait for buffers 
  4741. +  * to be killed before returning (same as TurboText's ``WAIT''
  4742. +  * option or CED's ``STICKY'')
  4743. +  *
  4744. +  * NOBACKUPS will cause the files loaded by g.rexx not
  4745. +  * to perform backup saves.
  4746. +  *
  4747. +  * all options aply only to FILES that are specified on this
  4748. +  * invocation of g.rexx.
  4749. +  *
  4750. +  * This program is free software; you can redistribute it and/or modify
  4751. +  * it under the terms of the GNU General Public License as published by
  4752. +  * the Free Software Foundation; either version 2 of the License, or
  4753. +  * (at your option) any later version.
  4754. +  *
  4755. +  * This program is distributed in the hope that it will be useful,
  4756. +  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  4757. +  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  4758. +  * GNU General Public License for more details.
  4759. +  *
  4760. +  * You should have received a copy of the GNU General Public License
  4761. +  * along with this program; if not, write to the Free Software
  4762. +  * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  4763. +  *
  4764. +  * I can be contacted at:
  4765. +  * bix: chopps
  4766. +  * uucp: chopps@ro-chp.UUCP (sycom.mi.org!ro-chp!chopps)
  4767. +  * 
  4768. +  */
  4769. +  
  4770. + options results
  4771. + PARSE ARG argv
  4772. + 
  4773. + /* wait for buffer to be killed */
  4774. + wait = 0
  4775. + /* files that are being waited on. */
  4776. + waitingfiles = 0
  4777. + 
  4778. + /* do not make backups */
  4779. + nobackups = 0
  4780. + 
  4781. + /* Parse the args from command line. */
  4782. + idx = 0
  4783. + DO WHILE argv ~= ""
  4784. +     carg = GetNextItem()
  4785. +     uarg = UPPER(carg)
  4786. +     IF uarg = "STICKY" | uarg = "WAIT" THEN
  4787. +     wait = 1
  4788. +     ELSE IF uarg = "NOBACKUPS" THEN
  4789. +     nobackups = 1
  4790. +     ELSE IF uarg = "?" THEN DO
  4791. +     SAY "template: FILES/M,WAIT=STICKY/S,NOBACKUPS/S"
  4792. +     EXIT 0
  4793. +     END
  4794. +     ELSE IF uarg ~= "" THEN DO
  4795. +     IF SUBSTR(uarg,1,5) = "FILES" THEN DO
  4796. +         IF uarg = "FILES" THEN DO
  4797. +         file = GetNextItem()
  4798. +         IF file = "" THEN DO
  4799. +             SAY "template: FILES/M,WAIT=STICKY/S,NOBACKUPS/S"
  4800. +             EXIT 0
  4801. +         END
  4802. +         END
  4803. +         ELSE IF SUBSTR(uarg,6,1) = "=" THEN DO
  4804. +         file = SUBSTR(carg,7)
  4805. +         IF file = "" THEN DO
  4806. +             SAY "template: FILES/M,WAIT=STICKY/S,NOBACKUPS/S"
  4807. +             EXIT 0
  4808. +         END
  4809. +         END
  4810. + 
  4811. +     END
  4812. +     ELSE DO
  4813. +         file = carg
  4814. +         IF file = "" THEN DO
  4815. +         SAY "template: FILES/M,WAIT=STICKY/S,NOBACKUPS/S"
  4816. +         EXIT 0
  4817. +         END
  4818. +     END
  4819. +     dir = PRAGMA('Directory')
  4820. +     IF 0 = pos(':',file) THEN DO
  4821. +         IF lc ~= '/' & lc ~= ':' THEN
  4822. +         dir = dir || '/'
  4823. +         filename = dir || file
  4824. +     END
  4825. +     ELSE DO
  4826. +         IF lc ~= '/' & lc ~= ':' THEN
  4827. +         dir = dir || '/'
  4828. +         filename = dir || file
  4829. +     END
  4830. +     filestoload.idx = filename
  4831. +     idx = idx + 1
  4832. +     END
  4833. + END
  4834. + 
  4835. + IF wait = 1 THEN DO
  4836. +     start = 1
  4837. +     notifyport = "EMACS_NOTIFY" || start
  4838. +     DO WHILE SHOW('P',notifyport)
  4839. +     start = start + 1
  4840. +     notifyport = "EMACS_NOTIFY" || start
  4841. +     END
  4842. + 
  4843. +     notifymp = OPENPORT(notifyport)
  4844. +     IF ~SHOW('P',notifyport) THEN DO
  4845. +     SAY "Cannot initialize the notification port."
  4846. +     EXIT 20
  4847. +     END
  4848. + END
  4849. + 
  4850. + /* Load emacs if it is not already running */
  4851. + if (~show('p', 'EMACS1')) THEN DO
  4852. +     ADDRESS COMMAND
  4853. +     'run >NIL: emacs'
  4854. +     'waitforport EMACS1'
  4855. + END
  4856. + 
  4857. + ADDRESS EMACS1
  4858. + 
  4859. + IF wait = 1 THEN
  4860. +     "(require 'notify-rexx-wait)"
  4861. + 
  4862. + /* will return either nil or t */
  4863. + "(symbol-value 'amiga-emacs-iconified)"
  4864. + 
  4865. + IF result = "t" THEN
  4866. +     '(amiga-iconify)'
  4867. + 
  4868. + fileidx = 0
  4869. + DO WHILE fileidx < idx
  4870. +     '(buffer-name)'
  4871. +     curbuf = RESULT
  4872. + 
  4873. +     lisp = ' (progn '
  4874. +     IF curbuf ~= '"*scratch*"' THEN
  4875. +     lisp = lisp || ' (find-file-other-window "' || filestoload.fileidx || '"))'
  4876. +     ELSE
  4877. +     lisp = lisp || ' (find-file "' || filestoload.fileidx || '"))'
  4878. + 
  4879. +     ADDRESS EMACS1 lisp
  4880. + 
  4881. +     IF nobackups = 1 THEN DO
  4882. +     "(make-local-variable 'make-backup-files)"
  4883. +     '(setq make-backup-files nil)'
  4884. +     END
  4885. + 
  4886. +     IF wait = 1 THEN DO
  4887. +     '(setq notify-rexx-port "' || notifyport || '")'
  4888. +     waitingfiles = waitingfiles + 1;
  4889. +     END
  4890. +     fileidx = fileidx + 1
  4891. + END
  4892. + 
  4893. + '(amiga-window-to-front)'
  4894. + '(amiga-activate-window)'
  4895. + 
  4896. + IF wait = 1 THEN DO
  4897. +     quitflag = 0
  4898. +     DO FOREVER
  4899. +     IF waitingfiles = 0 THEN
  4900. +         EXIT 0
  4901. +     t = WAITPKT(notifyport)
  4902. + 
  4903. +     DO FOREVER
  4904. +         p = GETPKT(notifyport)
  4905. +         IF C2D(p) = 0 THEN BREAK
  4906. +         args = GETARG(p)
  4907. + 
  4908. +         PARSE VAR args argval args
  4909. +         IF argval = "QUIT" THEN
  4910. +         waitingfiles = waitingfiles - 1
  4911. + 
  4912. +         t = REPLY(p,1)
  4913. +     END
  4914. +     END
  4915. + END
  4916. + 
  4917. + EXIT 0
  4918. + 
  4919. + GetNextItem: PROCEDURE EXPOSE argv
  4920. + ch = LEFT(argv,1)
  4921. + DO WHILE ch = " " | ch = "    "
  4922. +     argv = SUBSTR(argv,2)
  4923. +     ch = LEFT(argv,1)
  4924. + END
  4925. + ch = LEFT(argv,1)
  4926. + IF ch = '"' THEN
  4927. +     PARSE VAR argv '"'string'"' argv
  4928. + ELSE
  4929. +     PARSE VAR argv string argv
  4930. + RETURN string
  4931. + 
  4932. + 
  4933. + 
  4934. + StripWS: PROCEDURE
  4935. + 
  4936. + ARG string
  4937. + RETURN string
  4938. + -------8<-------------8<-------------8<-------------8<-------------8<--
  4939. + ------------------------
  4940. + The Royal Oak Chophouse >> Chris Hopps
  4941. + Royal Oak, Michigan     >> sycom.mi.org!ro-chp!chopps
  4942. + 
  4943. + 
  4944. \ No newline at end of file
  4945. diff -rc --new-file emacs-18.59/amiga/amiga-extra/amiga/contrib/chopps/rexx/sayval.rexx /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/chopps/rexx/sayval.rexx
  4946. *** emacs-18.59/amiga/amiga-extra/amiga/contrib/chopps/rexx/sayval.rexx    Thu Jan  1 00:00:00 1970
  4947. --- /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/chopps/rexx/sayval.rexx    Thu Mar 18 22:54:36 1993
  4948. ***************
  4949. *** 0 ****
  4950. --- 1,29 ----
  4951. + /* sayval.rexx
  4952. +  * -----------
  4953. +  *  -ch3/18/93.
  4954. +  *
  4955. +  *  call from dos prompt:
  4956. +  *
  4957. +  *  sayval <some-emacs-symbol-name>
  4958. +  *
  4959. +  * ex:  sayval amiga-emacs-iconified
  4960. +  * 
  4961. +  *  Christian E. Hopps.
  4962. +  */
  4963. + 
  4964. + /* get the first arg from the command line and store in symbol */
  4965. + parse arg symbol
  4966. + 
  4967. + /* address the emacs port */
  4968. + address EMACS1
  4969. + 
  4970. + /* ask for full results */
  4971. + options results 
  4972. + 
  4973. + /* construct lisp inside emacs this will look like this
  4974. +  *
  4975. +  * (symbol-value 'some-variable-name) */
  4976. + 
  4977. + /* call function by quoting the lisp code. */
  4978. + "(symbol-value '" || symbol || ")"
  4979. + say RESULT
  4980. diff -rc --new-file emacs-18.59/amiga/amiga-extra/amiga/contrib/dgay/README /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/dgay/README
  4981. *** emacs-18.59/amiga/amiga-extra/amiga/contrib/dgay/README    Thu Jan  1 00:00:00 1970
  4982. --- /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/dgay/README    Thu Oct  1 07:30:20 1992
  4983. ***************
  4984. *** 0 ****
  4985. --- 1,50 ----
  4986. + dtags allows you to quickly lookup the autodocs for the AmigaOS functions
  4987. + while programming. It is a modification of the emacs TAGS facility.
  4988. + 
  4989. + For example, you have forgotten the parameters for MakeLink. Your buffer contains:
  4990. + 
  4991. +   if (MakeLink(
  4992. + 
  4993. + you press the magic key (in my case M-g), and you get in an other buffer:
  4994. + 
  4995. + dos.library/MakeLink                                     dos.library/MakeLink
  4996. + 
  4997. +    NAME
  4998. +     MakeLink -- Creates a filesystem link (V36)
  4999. + 
  5000. +    SYNOPSIS
  5001. +    [...]
  5002. + 
  5003. + which should solve all your problems ...
  5004. + 
  5005. + To install this facility, you must:
  5006. + 
  5007. + a) Have an assign of DOCS: to the directory containing the AmigaOS 2.0 autodocs.
  5008. + 
  5009. + b) Copy dtags.el and dtags.elc to your lisp directory (probably gnuemacs:lisp).
  5010. + 
  5011. + c) Execute the make-dtags.el file once (with M-x load-file). This will create
  5012. + a file called DTAGS in DOCS: to help emacs find the functions in the autodocs.
  5013. + 
  5014. + d) Add the following lines to your .emacs file:
  5015. + 
  5016. + (autoload 'visit-dtags-table "dtags" nil t)
  5017. + (autoload 'doc-tag "dtags" nil t)
  5018. + (autoload 'dtags-search "dtags" nil t)
  5019. + (autoload 'list-dtags "dtags" nil t)
  5020. + (autoload 'dtags-apropos "dtags" nil t)
  5021. + (autoload 'make-dtags "dtags" nil t)
  5022. + 
  5023. + and optionally a key definition to execute doc-tag (the autodoc lookup function):
  5024. + 
  5025. + (define-key global-map "\M-g" 'doc-tag)
  5026. + 
  5027. + Usage:
  5028. + -----
  5029. + 
  5030. + You just press M-g (if you chose that key). Emacs will prompt you for the
  5031. + function to lookup, but it will propose as a default a word near your
  5032. + cursor. Once this has been chosen, emacs will display the appropriate autodoc.
  5033. + You can enter a substring of the function name, in which case emacs will display
  5034. + the first one that matches it. If you want to see other functions containing the
  5035. + same substring, press M-, (or M-x tags-loop-continue).
  5036. diff -rc --new-file emacs-18.59/amiga/amiga-extra/amiga/contrib/dgay/dtags.el /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/dgay/dtags.el
  5037. *** emacs-18.59/amiga/amiga-extra/amiga/contrib/dgay/dtags.el    Thu Jan  1 00:00:00 1970
  5038. --- /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/dgay/dtags.el    Mon Dec 23 21:21:46 1991
  5039. ***************
  5040. *** 0 ****
  5041. --- 1,237 ----
  5042. + ;; Dtags facility for Emacs.
  5043. + ;; Copyright (C) 1985, 1986, 1988 Free Software Foundation, Inc.
  5044. + 
  5045. + ;; This file is part of GNU Emacs.
  5046. + 
  5047. + ;; GNU Emacs is distributed in the hope that it will be useful,
  5048. + ;; but WITHOUT ANY WARRANTY.  No author or distributor
  5049. + ;; accepts responsibility to anyone for the consequences of using it
  5050. + ;; or for whether it serves any particular purpose or works at all,
  5051. + ;; unless he says so in writing.  Refer to the GNU Emacs General Public
  5052. + ;; License for full details.
  5053. + 
  5054. + ;; Everyone is granted permission to copy, modify and redistribute
  5055. + ;; GNU Emacs, but only under the conditions described in the
  5056. + ;; GNU Emacs General Public License.   A copy of this license is
  5057. + ;; supposed to have been given to you along with GNU Emacs so you
  5058. + ;; can know your rights and responsibilities.  It should be in a
  5059. + ;; file named COPYING.  Among other things, the copyright notice
  5060. + ;; and this notice must be preserved on all copies.
  5061. + 
  5062. + 
  5063. + (provide 'dtags)
  5064. + (load "tags")
  5065. + 
  5066. + (defvar dtag-table-files nil
  5067. +   "List of file names covered by current dtag table.
  5068. + nil means it has not been computed yet; do (dtag-table-files) to compute it.")
  5069. + 
  5070. + (defvar dtags-file-name "docs:DTAGS"
  5071. +   "Where to find the doc tags, use visit-dtags-table to change it.")
  5072. + 
  5073. + (defun visit-dtags-table (file)
  5074. +   "Tell dtags commands to use tag table file FILE.
  5075. + FILE should be the name of a file created with the `etags' program.
  5076. + A directory name is ok too; it means file TAGS in that directory."
  5077. +   (interactive (list (read-file-name "Visit tags table: (default TAGS) "
  5078. +                      default-directory
  5079. +                      (concat default-directory "TAGS")
  5080. +                      t)))
  5081. +   (setq file (expand-file-name file))
  5082. +   (if (file-directory-p file)
  5083. +       (setq file (concat file "DTAGS")))
  5084. +   (setq dtag-table-files nil
  5085. +     dtags-file-name file))
  5086. + 
  5087. + (defun visit-dtags-table-buffer ()
  5088. +   "Select the buffer containing the current tag table.
  5089. + This is a file whose name is in the variable tags-file-name."
  5090. +   (or dtags-file-name
  5091. +       (call-interactively 'visit-dtags-table))
  5092. +   (set-buffer (or (get-file-buffer dtags-file-name)
  5093. +           (progn
  5094. +             (setq dtag-table-files nil)
  5095. +             (find-file-noselect dtags-file-name))))
  5096. +   (or (verify-visited-file-modtime (get-file-buffer dtags-file-name))
  5097. +       (cond ((yes-or-no-p "Dtags file has changed, read new contents? ")
  5098. +          (revert-buffer t t)
  5099. +          (setq dtag-table-files nil))))
  5100. +   (or (eq (char-after 1) ?\^L)
  5101. +       (error "File %s not a valid dtag table" dtags-file-name)))
  5102. + 
  5103. + (defun dtag-table-files ()
  5104. +   "Return a list of files in the current dtag table.
  5105. + File names returned are absolute."
  5106. +   (save-excursion
  5107. +    (visit-dtags-table-buffer)
  5108. +    (or dtag-table-files
  5109. +        (let (files)
  5110. +     (goto-char (point-min))
  5111. +     (while (not (eobp))
  5112. +       (forward-line 1)
  5113. +       (end-of-line)
  5114. +       (skip-chars-backward "^,\n")
  5115. +       (setq prev (point))
  5116. +       (setq size (read (current-buffer)))
  5117. +       (goto-char prev)
  5118. +       (setq files (cons (expand-file-name
  5119. +                  (buffer-substring (1- (point))
  5120. +                            (save-excursion
  5121. +                          (beginning-of-line)
  5122. +                          (point)))
  5123. +                  (file-name-directory dtags-file-name))
  5124. +                 files))
  5125. +       (forward-line 1)
  5126. +       (forward-char size))
  5127. +     (setq dtag-table-files (nreverse files))))))
  5128. + 
  5129. + (defun doc-tag (tagname &optional next)
  5130. +   "Find tag (in current tag table) whose name contains TAGNAME.
  5131. +  Selects the buffer that the tag is contained in
  5132. + and puts point at its definition.
  5133. +  If TAGNAME is a null string, the expression in the buffer
  5134. + around or before point is used as the tag name.
  5135. +  If second arg NEXT is non-nil (interactively, with prefix arg),
  5136. + searches for the next tag in the tag table
  5137. + that matches the tagname used in the previous find-tag.
  5138. + 
  5139. + See documentation of variable tags-file-name."
  5140. +   (interactive (if current-prefix-arg
  5141. +            '(nil t)
  5142. +          (find-tag-tag "Find tag: ")))
  5143. +   (let (buffer file linebeg startpos)
  5144. +     (save-excursion
  5145. +      (visit-dtags-table-buffer)
  5146. +      (if (not next)
  5147. +      (goto-char (point-min))
  5148. +        (setq tagname last-tag))
  5149. +      (setq last-tag tagname)
  5150. +      (while (progn
  5151. +           (if (not (search-forward tagname nil t))
  5152. +           (error "No %sentries containing %s"
  5153. +              (if next "more " "") tagname))
  5154. +           (not (looking-at "[^\n\177]*\177"))))
  5155. +      (search-forward "\177")
  5156. +      (setq file (expand-file-name (file-of-tag)
  5157. +                   (file-name-directory dtags-file-name)))
  5158. +      (setq linebeg
  5159. +        (buffer-substring (1- (point))
  5160. +                  (save-excursion (beginning-of-line) (point))))
  5161. +      (search-forward ",")
  5162. +      (setq startpos (read (current-buffer))))
  5163. +     (let ((win (selected-window)))
  5164. +       (find-file-other-window file)
  5165. +       (widen)
  5166. +       (push-mark)
  5167. +       (let ((offset 1000)
  5168. +         found
  5169. +         (pat (concat (regexp-quote linebeg) "[ \t]")))
  5170. +     (or startpos (setq startpos (point-min)))
  5171. +     (while (and (not found)
  5172. +             (progn
  5173. +               (goto-char (- startpos offset))
  5174. +               (not (bobp))))
  5175. +       (setq found
  5176. +         (re-search-forward pat (+ startpos offset) t))
  5177. +       (setq offset (* 3 offset)))
  5178. +     (or found
  5179. +         (re-search-forward pat nil t)
  5180. +         (error "%s not found in %s" pat file)))
  5181. +       (beginning-of-line)
  5182. +       (recenter 0)
  5183. +       (select-window win)))
  5184. +   (setq tags-loop-form '(doc-tag nil t))
  5185. +   ;; Return t in case used as the tags-loop-form.
  5186. +   t)
  5187. + 
  5188. + (defun dtags-search (regexp)
  5189. +   "Search through all files listed in tag table for match for REGEXP.
  5190. + Stops when a match is found.
  5191. + To continue searching for next match, use command \\[tags-loop-continue].
  5192. + 
  5193. + See documentation of variable tags-file-name."
  5194. +   (interactive "sTags search (regexp): ")
  5195. +   (if (and (equal regexp "")
  5196. +        (eq (car tags-loop-form) 're-search-forward))
  5197. +       (tags-loop-continue nil)
  5198. +     (setq tags-loop-form
  5199. +       (list 're-search-forward regexp nil t))
  5200. +     (setq next-file-list (dtag-table-files))
  5201. +     (next-file)
  5202. +     (tags-loop-continue)))
  5203. + 
  5204. + (defun list-dtags (string)
  5205. +   "Display list of dtags in file FILE.
  5206. + FILE should not contain a directory spec
  5207. + unless it has one in the dtag table."
  5208. +   (interactive "sList dtags (in file): ")
  5209. +   (with-output-to-temp-buffer "*Dtags List*"
  5210. +     (princ "Dtags in file ")
  5211. +     (princ string)
  5212. +     (terpri)
  5213. +     (save-excursion
  5214. +      (visit-dtags-table-buffer)
  5215. +      (goto-char 1)
  5216. +      (search-forward (concat "\f\n" string ","))
  5217. +      (forward-line 1)
  5218. +      (while (not (or (eobp) (looking-at "\f")))
  5219. +        (princ (buffer-substring (point)
  5220. +                 (progn (skip-chars-forward "^\177")
  5221. +                        (point))))
  5222. +        (terpri)
  5223. +        (forward-line 1)))))
  5224. + 
  5225. + (defun dtags-apropos (string)
  5226. +   "Display list of all dtags in dtag table REGEXP matches."
  5227. +   (interactive "sDtag apropos (regexp): ")
  5228. +   (with-output-to-temp-buffer "*Dtags List*"
  5229. +     (princ "Dtags matching regexp ")
  5230. +     (prin1 string)
  5231. +     (terpri)
  5232. +     (save-excursion
  5233. +      (visit-dtags-table-buffer)
  5234. +      (goto-char 1)
  5235. +      (while (re-search-forward string nil t)
  5236. +        (beginning-of-line)
  5237. +        (princ (buffer-substring (point)
  5238. +                 (progn (skip-chars-forward "^\177")
  5239. +                        (point))))
  5240. +        (terpri)
  5241. +        (forward-line 1)))))
  5242. + 
  5243. + (defun make-dtags (file)
  5244. +   (interactive "FDoc file: ")
  5245. +   (setq file (expand-file-name file))
  5246. +   (save-excursion
  5247. +     (find-file-noselect dtags-file-name)
  5248. +     (let ((buf-doc (get-buffer-create "*make-doc-temp*"))
  5249. +       (buf-tags (get-buffer-create dtags-file-name)))
  5250. +       ; First, create the header for the tags
  5251. +       (set-buffer buf-tags)
  5252. +       (goto-char (point-max))
  5253. +       (insert ?\f ?\n file ?,)
  5254. +       (let ((size-pos (point)))
  5255. +     (insert ?\n)
  5256. +     ; Now, we prepare the doc file
  5257. +     (set-buffer buf-doc)
  5258. +         (erase-buffer)
  5259. +     (insert-file file)
  5260. +     (goto-char (point-min))
  5261. +         ; We are now ready to find entries
  5262. +     (while (and (search-forward "\f" nil t)
  5263. +             (progn
  5264. +               (skip-chars-forward "\n")
  5265. +               (not (eobp))))
  5266. +       (let ((beg (point)))
  5267. +         (skip-chars-forward "^ \t")
  5268. +         (let ((fn (buffer-substring beg (point)))
  5269. +           (line (1+ (count-lines 1 beg))))
  5270. +           (set-buffer buf-tags)
  5271. +           (insert fn 127 (int-to-string line) ?, (int-to-string beg) ?\n)
  5272. +           (set-buffer buf-doc))))
  5273. +     (set-buffer buf-tags)
  5274. +     (let ((size (- (point) size-pos 1)))
  5275. +       (goto-char size-pos)
  5276. +       (insert (int-to-string size))))))
  5277. +   (pop-to-buffer (get-buffer dtags-file-name) t))
  5278. + 
  5279. Binary files emacs-18.59/amiga/amiga-extra/amiga/contrib/dgay/dtags.elc and /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/dgay/dtags.elc differ
  5280. diff -rc --new-file emacs-18.59/amiga/amiga-extra/amiga/contrib/dgay/make-dtags.el /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/dgay/make-dtags.el
  5281. *** emacs-18.59/amiga/amiga-extra/amiga/contrib/dgay/make-dtags.el    Thu Jan  1 00:00:00 1970
  5282. --- /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/dgay/make-dtags.el    Thu Oct  1 07:24:18 1992
  5283. ***************
  5284. *** 0 ****
  5285. --- 1,47 ----
  5286. + (require 'dtags)
  5287. + (make-dtags "docs:amiga.lib.doc")
  5288. + (make-dtags "docs:asl.doc")
  5289. + (make-dtags "docs:audio.doc")
  5290. + (make-dtags "docs:battclock.doc")
  5291. + (make-dtags "docs:battmem.doc")
  5292. + (make-dtags "docs:cia.doc")
  5293. + (make-dtags "docs:clipboard.doc")
  5294. + (make-dtags "docs:commodities.doc")
  5295. + (make-dtags "docs:console.doc")
  5296. + (make-dtags "docs:cx_lib.doc")
  5297. + (make-dtags "docs:debug.doc")
  5298. + (make-dtags "docs:disk.doc")
  5299. + (make-dtags "docs:diskfont.doc")
  5300. + (make-dtags "docs:dos.doc")
  5301. + (make-dtags "docs:exec.doc")
  5302. + (make-dtags "docs:expansion.doc")
  5303. + (make-dtags "docs:filesysres.doc")
  5304. + (make-dtags "docs:gadtools.doc")
  5305. + (make-dtags "docs:gameport.doc")
  5306. + (make-dtags "docs:graphics.doc")
  5307. + (make-dtags "docs:icon.doc")
  5308. + (make-dtags "docs:iffparse.doc")
  5309. + (make-dtags "docs:input.doc")
  5310. + (make-dtags "docs:intuition.doc")
  5311. + (make-dtags "docs:keyboard.doc")
  5312. + (make-dtags "docs:keymap.doc")
  5313. + (make-dtags "docs:layers.doc")
  5314. + (make-dtags "docs:mathffp.doc")
  5315. + (make-dtags "docs:mathieeedoubbas.doc")
  5316. + (make-dtags "docs:mathieeedoubtrans.doc")
  5317. + (make-dtags "docs:mathieeesingbas.doc")
  5318. + (make-dtags "docs:mathieeesingtrans.doc")
  5319. + (make-dtags "docs:mathtrans.doc")
  5320. + (make-dtags "docs:misc.doc")
  5321. + (make-dtags "docs:narrator.doc")
  5322. + (make-dtags "docs:parallel.doc")
  5323. + (make-dtags "docs:potgo.doc")
  5324. + (make-dtags "docs:printer.doc")
  5325. + (make-dtags "docs:rexxsyslib.doc")
  5326. + (make-dtags "docs:serial.doc")
  5327. + (make-dtags "docs:timer.doc")
  5328. + (make-dtags "docs:trackdisk.doc")
  5329. + (make-dtags "docs:translator.doc")
  5330. + (make-dtags "docs:utility.doc")
  5331. + (make-dtags "docs:wb.doc")
  5332. + 
  5333. diff -rc --new-file emacs-18.59/amiga/amiga-extra/amiga/contrib/hessu/README /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/hessu/README
  5334. *** emacs-18.59/amiga/amiga-extra/amiga/contrib/hessu/README    Thu Jan  1 00:00:00 1970
  5335. --- /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/hessu/README    Thu Oct  1 07:17:36 1992
  5336. ***************
  5337. *** 0 ****
  5338. --- 1,45 ----
  5339. + This directory contains several utilities sent by Tapio Hesikanen.
  5340. + 
  5341. + Here follow a few explanations:
  5342. + 
  5343. + From: hessu@fipnet.fi (Tapio Heiskanen)
  5344. + To: dgay@di.epfl.ch
  5345. + Subject: Here's a couple of software for you
  5346. + 
  5347. + I was in need of fakemail and movemail, so I made them with some help of my
  5348. + friend. Both of those programs are in GNUEmacs distibution, so I thought if
  5349. + you'd like to include them.
  5350. + 
  5351. + They should be developed further, but they fill my needs.
  5352. + If you make any changes to them, please send sources and binaries to me.
  5353. + 
  5354. + I suppose you know how the progs should work so I won't write any docs for
  5355. + them.
  5356. + 
  5357. + I also have an AREXX version of inews made up. If you would like to have,
  5358. + I could send to you. Maybe it should be in C, but REXX was enough for me.
  5359. + 
  5360. + --
  5361. +  Tapio (hessu) Heiskanen  _|_  Internet: hessu@diode.fipnet.fi
  5362. +   Sarkiniementie 11 B 18  \ /  ICBM: 60 08 58 N / 24 52 53 E
  5363. +          00210  HELSINKI  _Y_  Telephone: +358 0 678284
  5364. +                  FINLAND   |   Data: +358 0 6822206
  5365. + 
  5366. + From: hessu@fipnet.fi (Tapio Heiskanen)
  5367. + To: dgay@di.epfl.ch
  5368. + Subject: Re: GNU Emacs 18.58, Amiga port 1.24
  5369. + 
  5370. + [...]
  5371. + 
  5372. + BTW: Included is a emacs.rexx script I made to ease my life. It checks first
  5373. + if the REXX-port exists and then starts emacs or just sends a rexx command
  5374. + respectively.
  5375. + 
  5376. + --
  5377. +  Tapio (hessu) Heiskanen  _|_  Internet: hessu@diode.fipnet.fi
  5378. +   Sarkiniementie 11 B 18  \ /  ICBM: 60 08 58 N / 24 52 53 E
  5379. +          00210  HELSINKI  _Y_  Telephone: +358 0 678284
  5380. +                  FINLAND   |   Data: +358 0 6822206
  5381. + 
  5382. + distinews.lha contains directions for installing GNUS, the emacs news-reader,
  5383. + and a replacement for the inews command.
  5384. Binary files emacs-18.59/amiga/amiga-extra/amiga/contrib/hessu/distinews.lha and /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/hessu/distinews.lha differ
  5385. diff -rc --new-file emacs-18.59/amiga/amiga-extra/amiga/contrib/hessu/emacs.rexx /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/hessu/emacs.rexx
  5386. *** emacs-18.59/amiga/amiga-extra/amiga/contrib/hessu/emacs.rexx    Thu Jan  1 00:00:00 1970
  5387. --- /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/hessu/emacs.rexx    Thu Oct  1 06:56:54 1992
  5388. ***************
  5389. *** 0 ****
  5390. --- 1,25 ----
  5391. + /* emacs.rexx */
  5392. + 
  5393. + 
  5394. + parse arg params
  5395. + id=pragma('id')
  5396. + 
  5397. + if ~show('P', 'EMACS1') then do
  5398. +     if ~open(out, 't:emacs', 'w') then do
  5399. +         say "EMACS.REXX: Can't open temporary file!"
  5400. +         exit 5
  5401. +     end
  5402. +     call writeln(out, 'stack 49152')
  5403. +     call writeln(out, 'run >nil: <nil: temacs' params)
  5404. +     call writeln(out, 'stack 16384')
  5405. +     call close(out)
  5406. +     address command 'execute t:emacs'
  5407. +     exit
  5408. + end
  5409. + 
  5410. + 
  5411. + if word(params,1)='-f' then do
  5412. +     address 'EMACS1' '('subword(params, 2)')'
  5413. +     exit
  5414. + end
  5415. + address 'EMACS1' '(find-file "'params'")'
  5416. diff -rc --new-file emacs-18.59/amiga/amiga-extra/amiga/contrib/hessu/fakemail/cc /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/hessu/fakemail/cc
  5417. *** emacs-18.59/amiga/amiga-extra/amiga/contrib/hessu/fakemail/cc    Thu Jan  1 00:00:00 1970
  5418. --- /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/hessu/fakemail/cc    Mon Jul 20 18:55:54 1992
  5419. ***************
  5420. *** 0 ****
  5421. --- 1,6 ----
  5422. + older fakemail.o fakemail.c
  5423. + if warn
  5424. +    incver version.h
  5425. + endif
  5426. + lc -L -M -E fakemail.c
  5427. + protect fakemail +p
  5428. Binary files emacs-18.59/amiga/amiga-extra/amiga/contrib/hessu/fakemail/fakemail and /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/hessu/fakemail/fakemail differ
  5429. diff -rc --new-file emacs-18.59/amiga/amiga-extra/amiga/contrib/hessu/fakemail/fakemail.c /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/hessu/fakemail/fakemail.c
  5430. *** emacs-18.59/amiga/amiga-extra/amiga/contrib/hessu/fakemail/fakemail.c    Thu Jan  1 00:00:00 1970
  5431. --- /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/hessu/fakemail/fakemail.c    Wed Jul 22 17:40:22 1992
  5432. ***************
  5433. *** 0 ****
  5434. --- 1,68 ----
  5435. + /*
  5436. +  * FAKEMAIL.C
  5437. +  *
  5438. +  * compile: cc
  5439. +  *
  5440. +  * Written by Tapio Heiskanen
  5441. +  *
  5442. +  * Copyright (c) 1992 Ferry Island Technologies
  5443. +  * All rights reserved
  5444. +  *
  5445. +  * Created: 20-Jul-92
  5446. +  */
  5447. + 
  5448. + #include "version.h"
  5449. + 
  5450. + #include <proto/dos.h>
  5451. + #include <stdio.h>
  5452. + #include <stdlib.h>
  5453. + 
  5454. + char *version="$VER: fakemail V"VERSION;
  5455. + 
  5456. + void main(int ac, char **arg)
  5457. +     {
  5458. +     char buf[256], hdr[256], name[256];
  5459. +     FILE *fifo, *sign;
  5460. +     int header=1;
  5461. + 
  5462. +     sprintf(name, "T:fakemail%d", (int)name);
  5463. + 
  5464. +     if(!(fifo=fopen(name, "w")))
  5465. +         {
  5466. +         printf("FAKEMAIL: Can't open temporary file %s\n", name);
  5467. +         exit(10);
  5468. +         }
  5469. + 
  5470. + /* pipe stdin to t:<name> */
  5471. + 
  5472. +     while(fgets(buf, 256, stdin))
  5473. +         {
  5474. +         if(*buf=='\n' && header)
  5475. +             if(sign=fopen("uulib:.fakemailhdrs", "r"))
  5476. +                 {        
  5477. +                 while(fgets(hdr, 256, sign))
  5478. +                     fputs(hdr, fifo);
  5479. +                 fclose(sign);
  5480. +                 header=0;
  5481. +                 }
  5482. +         fputs(buf, fifo);
  5483. +         }
  5484. + 
  5485. + 
  5486. + /* cat uulib:.signature to t:<name> */
  5487. + 
  5488. +     if(sign=fopen("uulib:.signature", "r"))
  5489. +         {        
  5490. +         while(fgets(buf, 256, sign))
  5491. +             fputs(buf, fifo);
  5492. +         fclose(sign);
  5493. +         }
  5494. +     fclose(fifo);
  5495. + 
  5496. + /* give the file for sendmail */
  5497. + 
  5498. +     sprintf(name, "sendmail -f $user <T:fakemail%d", (int)name);
  5499. +     Execute(name, 0, 0);
  5500. +     sprintf(name, "T:fakemail%d", (int)name);
  5501. +     remove(name);
  5502. +     }
  5503. diff -rc --new-file emacs-18.59/amiga/amiga-extra/amiga/contrib/hessu/fakemail/sascopts /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/hessu/fakemail/sascopts
  5504. *** emacs-18.59/amiga/amiga-extra/amiga/contrib/hessu/fakemail/sascopts    Thu Jan  1 00:00:00 1970
  5505. --- /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/hessu/fakemail/sascopts    Mon Jul 20 18:55:52 1992
  5506. ***************
  5507. *** 0 ****
  5508. --- 1,7 ----
  5509. + -rr
  5510. + -v
  5511. + -cs
  5512. + -ms
  5513. + -Lc
  5514. + -Ld
  5515. + -Pfakemail
  5516. diff -rc --new-file emacs-18.59/amiga/amiga-extra/amiga/contrib/hessu/fakemail/version.h /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/hessu/fakemail/version.h
  5517. *** emacs-18.59/amiga/amiga-extra/amiga/contrib/hessu/fakemail/version.h    Thu Jan  1 00:00:00 1970
  5518. --- /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/hessu/fakemail/version.h    Wed Jul 22 17:40:32 1992
  5519. ***************
  5520. *** 0 ****
  5521. --- 1 ----
  5522. + #define VERSION "0.06"
  5523. diff -rc --new-file emacs-18.59/amiga/amiga-extra/amiga/contrib/hessu/movemail/cc /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/hessu/movemail/cc
  5524. *** emacs-18.59/amiga/amiga-extra/amiga/contrib/hessu/movemail/cc    Thu Jan  1 00:00:00 1970
  5525. --- /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/hessu/movemail/cc    Wed Jul 22 17:01:58 1992
  5526. ***************
  5527. *** 0 ****
  5528. --- 1,6 ----
  5529. + older movemail.o movemail.c
  5530. + if warn
  5531. +    incver version.h
  5532. + endif
  5533. + lc -L -M -E movemail.c
  5534. + protect movemail +p
  5535. Binary files emacs-18.59/amiga/amiga-extra/amiga/contrib/hessu/movemail/movemail and /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/hessu/movemail/movemail differ
  5536. diff -rc --new-file emacs-18.59/amiga/amiga-extra/amiga/contrib/hessu/movemail/movemail.c /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/hessu/movemail/movemail.c
  5537. *** emacs-18.59/amiga/amiga-extra/amiga/contrib/hessu/movemail/movemail.c    Thu Jan  1 00:00:00 1970
  5538. --- /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/hessu/movemail/movemail.c    Wed Jul 22 17:36:28 1992
  5539. ***************
  5540. *** 0 ****
  5541. --- 1,44 ----
  5542. + /*
  5543. +  * MOVEMAIL.C
  5544. +  *
  5545. +  * compile: cc
  5546. +  *
  5547. +  * Written by Tapio Heiskanen
  5548. +  *
  5549. +  * Copyright (c) 1992 Ferry Island Technologies
  5550. +  * All rights reserved
  5551. +  *
  5552. +  * Created: 22-Jul-92
  5553. +  */
  5554. + 
  5555. + #include "version.h"
  5556. + 
  5557. + #include <proto/dos.h>
  5558. + #include <stdio.h>
  5559. + #include <stdlib.h>
  5560. + 
  5561. + char *version="$VER: movemail V"VERSION;
  5562. + 
  5563. + void main(int ac, char **arg)
  5564. +     {
  5565. +     char buf[256];
  5566. +     FILE *tofile, *spoolfile;
  5567. + 
  5568. +     if(!(spoolfile=fopen(arg[1], "r")))
  5569. +         {
  5570. +         printf("movemail: Can't open spool file %s\n", arg[1]);
  5571. +         exit(10);
  5572. +         }
  5573. + 
  5574. +     if(!(tofile=fopen(arg[2], "a")))
  5575. +         {
  5576. +         printf("movemail: Can't open to file %s\n", arg[2]);
  5577. +         exit(10);
  5578. +         }
  5579. + 
  5580. +     while(fgets(buf, 256, spoolfile))
  5581. +         fputs(buf, tofile);
  5582. + 
  5583. +     fcloseall();
  5584. +     remove(arg[1]);
  5585. +     }
  5586. diff -rc --new-file emacs-18.59/amiga/amiga-extra/amiga/contrib/hessu/movemail/sascopts /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/hessu/movemail/sascopts
  5587. *** emacs-18.59/amiga/amiga-extra/amiga/contrib/hessu/movemail/sascopts    Thu Jan  1 00:00:00 1970
  5588. --- /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/hessu/movemail/sascopts    Wed Jul 22 17:01:56 1992
  5589. ***************
  5590. *** 0 ****
  5591. --- 1,7 ----
  5592. + -rr
  5593. + -v
  5594. + -cs
  5595. + -ms
  5596. + -Lc
  5597. + -Ld
  5598. + -Pmovemail
  5599. diff -rc --new-file emacs-18.59/amiga/amiga-extra/amiga/contrib/hessu/movemail/version.h /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/hessu/movemail/version.h
  5600. *** emacs-18.59/amiga/amiga-extra/amiga/contrib/hessu/movemail/version.h    Thu Jan  1 00:00:00 1970
  5601. --- /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/hessu/movemail/version.h    Wed Jul 22 17:36:32 1992
  5602. ***************
  5603. *** 0 ****
  5604. --- 1 ----
  5605. + #define VERSION "0.02"
  5606. diff -rc --new-file emacs-18.59/amiga/amiga-extra/amiga/contrib/kaiser/README /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/kaiser/README
  5607. *** emacs-18.59/amiga/amiga-extra/amiga/contrib/kaiser/README    Thu Jan  1 00:00:00 1970
  5608. --- /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/kaiser/README    Sun Jan 17 11:48:08 1993
  5609. ***************
  5610. *** 0 ****
  5611. --- 1,24 ----
  5612. + Hi David !
  5613. + 
  5614. + Just got your Emacs-port for my A 3000 - good work ! As I didn't have a
  5615. + tool for creating public screens, too, I simply wrote one. It's appended
  5616. + here (uuencoded). If you like it, include it in your next distribution.
  5617. + 
  5618. + Regards, Michael
  5619. + 
  5620. + ------------------------------------------------------------------------------
  5621. + Michael Kaiser                                     / Only my personal opinions
  5622. + Universitaet Karlsruhe
  5623. + Institut fuer Prozessrechentechnik und Robotik    Internet : kaiser@ira.uka.de
  5624. + Postfach 6980                                     Tel.     : +49 721 608-4051
  5625. + D-7500 Karlsruhe 1, FR Germany                    FAX      : +49 721 606-740
  5626. + ------------------------------------------------------------------------------
  5627. + Privat:
  5628. + Rintheimer Strasse 59                                     // Have you
  5629. + D-7500 Karlsruhe 1, FR Germany                           // hugged
  5630. +                                                      \\ // your 
  5631. + Tel.  : (+49) (721) 61 18 19                          \X/ Amiga today ?
  5632. + Komm. : Michael_Kaiser@KA.maus.de                        [A3000/20/260]
  5633. + ------------------------------------------------------------------------------
  5634. + "Die schiessen auf mein schoenes Auto ... !"                         (Canardo)
  5635. + ------------------------------------------------------------------------------
  5636. Binary files emacs-18.59/amiga/amiga-extra/amiga/contrib/kaiser/pub and /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/kaiser/pub differ
  5637. diff -rc --new-file emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/COPYING /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/COPYING
  5638. *** emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/COPYING    Thu Jan  1 00:00:00 1970
  5639. --- /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/COPYING    Thu Sep 30 17:29:32 1993
  5640. ***************
  5641. *** 0 ****
  5642. --- 1,339 ----
  5643. +             GNU GENERAL PUBLIC LICENSE
  5644. +                Version 2, June 1991
  5645. + 
  5646. +  Copyright (C) 1989, 1991 Free Software Foundation, Inc.
  5647. +                           675 Mass Ave, Cambridge, MA 02139, USA
  5648. +  Everyone is permitted to copy and distribute verbatim copies
  5649. +  of this license document, but changing it is not allowed.
  5650. + 
  5651. +                 Preamble
  5652. + 
  5653. +   The licenses for most software are designed to take away your
  5654. + freedom to share and change it.  By contrast, the GNU General Public
  5655. + License is intended to guarantee your freedom to share and change free
  5656. + software--to make sure the software is free for all its users.  This
  5657. + General Public License applies to most of the Free Software
  5658. + Foundation's software and to any other program whose authors commit to
  5659. + using it.  (Some other Free Software Foundation software is covered by
  5660. + the GNU Library General Public License instead.)  You can apply it to
  5661. + your programs, too.
  5662. + 
  5663. +   When we speak of free software, we are referring to freedom, not
  5664. + price.  Our General Public Licenses are designed to make sure that you
  5665. + have the freedom to distribute copies of free software (and charge for
  5666. + this service if you wish), that you receive source code or can get it
  5667. + if you want it, that you can change the software or use pieces of it
  5668. + in new free programs; and that you know you can do these things.
  5669. + 
  5670. +   To protect your rights, we need to make restrictions that forbid
  5671. + anyone to deny you these rights or to ask you to surrender the rights.
  5672. + These restrictions translate to certain responsibilities for you if you
  5673. + distribute copies of the software, or if you modify it.
  5674. + 
  5675. +   For example, if you distribute copies of such a program, whether
  5676. + gratis or for a fee, you must give the recipients all the rights that
  5677. + you have.  You must make sure that they, too, receive or can get the
  5678. + source code.  And you must show them these terms so they know their
  5679. + rights.
  5680. + 
  5681. +   We protect your rights with two steps: (1) copyright the software, and
  5682. + (2) offer you this license which gives you legal permission to copy,
  5683. + distribute and/or modify the software.
  5684. + 
  5685. +   Also, for each author's protection and ours, we want to make certain
  5686. + that everyone understands that there is no warranty for this free
  5687. + software.  If the software is modified by someone else and passed on, we
  5688. + want its recipients to know that what they have is not the original, so
  5689. + that any problems introduced by others will not reflect on the original
  5690. + authors' reputations.
  5691. + 
  5692. +   Finally, any free program is threatened constantly by software
  5693. + patents.  We wish to avoid the danger that redistributors of a free
  5694. + program will individually obtain patent licenses, in effect making the
  5695. + program proprietary.  To prevent this, we have made it clear that any
  5696. + patent must be licensed for everyone's free use or not licensed at all.
  5697. + 
  5698. +   The precise terms and conditions for copying, distribution and
  5699. + modification follow.
  5700. + 
  5701. +             GNU GENERAL PUBLIC LICENSE
  5702. +    TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
  5703. + 
  5704. +   0. This License applies to any program or other work which contains
  5705. + a notice placed by the copyright holder saying it may be distributed
  5706. + under the terms of this General Public License.  The "Program", below,
  5707. + refers to any such program or work, and a "work based on the Program"
  5708. + means either the Program or any derivative work under copyright law:
  5709. + that is to say, a work containing the Program or a portion of it,
  5710. + either verbatim or with modifications and/or translated into another
  5711. + language.  (Hereinafter, translation is included without limitation in
  5712. + the term "modification".)  Each licensee is addressed as "you".
  5713. + 
  5714. + Activities other than copying, distribution and modification are not
  5715. + covered by this License; they are outside its scope.  The act of
  5716. + running the Program is not restricted, and the output from the Program
  5717. + is covered only if its contents constitute a work based on the
  5718. + Program (independent of having been made by running the Program).
  5719. + Whether that is true depends on what the Program does.
  5720. + 
  5721. +   1. You may copy and distribute verbatim copies of the Program's
  5722. + source code as you receive it, in any medium, provided that you
  5723. + conspicuously and appropriately publish on each copy an appropriate
  5724. + copyright notice and disclaimer of warranty; keep intact all the
  5725. + notices that refer to this License and to the absence of any warranty;
  5726. + and give any other recipients of the Program a copy of this License
  5727. + along with the Program.
  5728. + 
  5729. + You may charge a fee for the physical act of transferring a copy, and
  5730. + you may at your option offer warranty protection in exchange for a fee.
  5731. + 
  5732. +   2. You may modify your copy or copies of the Program or any portion
  5733. + of it, thus forming a work based on the Program, and copy and
  5734. + distribute such modifications or work under the terms of Section 1
  5735. + above, provided that you also meet all of these conditions:
  5736. + 
  5737. +     a) You must cause the modified files to carry prominent notices
  5738. +     stating that you changed the files and the date of any change.
  5739. + 
  5740. +     b) You must cause any work that you distribute or publish, that in
  5741. +     whole or in part contains or is derived from the Program or any
  5742. +     part thereof, to be licensed as a whole at no charge to all third
  5743. +     parties under the terms of this License.
  5744. + 
  5745. +     c) If the modified program normally reads commands interactively
  5746. +     when run, you must cause it, when started running for such
  5747. +     interactive use in the most ordinary way, to print or display an
  5748. +     announcement including an appropriate copyright notice and a
  5749. +     notice that there is no warranty (or else, saying that you provide
  5750. +     a warranty) and that users may redistribute the program under
  5751. +     these conditions, and telling the user how to view a copy of this
  5752. +     License.  (Exception: if the Program itself is interactive but
  5753. +     does not normally print such an announcement, your work based on
  5754. +     the Program is not required to print an announcement.)
  5755. + 
  5756. + These requirements apply to the modified work as a whole.  If
  5757. + identifiable sections of that work are not derived from the Program,
  5758. + and can be reasonably considered independent and separate works in
  5759. + themselves, then this License, and its terms, do not apply to those
  5760. + sections when you distribute them as separate works.  But when you
  5761. + distribute the same sections as part of a whole which is a work based
  5762. + on the Program, the distribution of the whole must be on the terms of
  5763. + this License, whose permissions for other licensees extend to the
  5764. + entire whole, and thus to each and every part regardless of who wrote it.
  5765. + 
  5766. + Thus, it is not the intent of this section to claim rights or contest
  5767. + your rights to work written entirely by you; rather, the intent is to
  5768. + exercise the right to control the distribution of derivative or
  5769. + collective works based on the Program.
  5770. + 
  5771. + In addition, mere aggregation of another work not based on the Program
  5772. + with the Program (or with a work based on the Program) on a volume of
  5773. + a storage or distribution medium does not bring the other work under
  5774. + the scope of this License.
  5775. + 
  5776. +   3. You may copy and distribute the Program (or a work based on it,
  5777. + under Section 2) in object code or executable form under the terms of
  5778. + Sections 1 and 2 above provided that you also do one of the following:
  5779. + 
  5780. +     a) Accompany it with the complete corresponding machine-readable
  5781. +     source code, which must be distributed under the terms of Sections
  5782. +     1 and 2 above on a medium customarily used for software interchange; or,
  5783. + 
  5784. +     b) Accompany it with a written offer, valid for at least three
  5785. +     years, to give any third party, for a charge no more than your
  5786. +     cost of physically performing source distribution, a complete
  5787. +     machine-readable copy of the corresponding source code, to be
  5788. +     distributed under the terms of Sections 1 and 2 above on a medium
  5789. +     customarily used for software interchange; or,
  5790. + 
  5791. +     c) Accompany it with the information you received as to the offer
  5792. +     to distribute corresponding source code.  (This alternative is
  5793. +     allowed only for noncommercial distribution and only if you
  5794. +     received the program in object code or executable form with such
  5795. +     an offer, in accord with Subsection b above.)
  5796. + 
  5797. + The source code for a work means the preferred form of the work for
  5798. + making modifications to it.  For an executable work, complete source
  5799. + code means all the source code for all modules it contains, plus any
  5800. + associated interface definition files, plus the scripts used to
  5801. + control compilation and installation of the executable.  However, as a
  5802. + special exception, the source code distributed need not include
  5803. + anything that is normally distributed (in either source or binary
  5804. + form) with the major components (compiler, kernel, and so on) of the
  5805. + operating system on which the executable runs, unless that component
  5806. + itself accompanies the executable.
  5807. + 
  5808. + If distribution of executable or object code is made by offering
  5809. + access to copy from a designated place, then offering equivalent
  5810. + access to copy the source code from the same place counts as
  5811. + distribution of the source code, even though third parties are not
  5812. + compelled to copy the source along with the object code.
  5813. + 
  5814. +   4. You may not copy, modify, sublicense, or distribute the Program
  5815. + except as expressly provided under this License.  Any attempt
  5816. + otherwise to copy, modify, sublicense or distribute the Program is
  5817. + void, and will automatically terminate your rights under this License.
  5818. + However, parties who have received copies, or rights, from you under
  5819. + this License will not have their licenses terminated so long as such
  5820. + parties remain in full compliance.
  5821. + 
  5822. +   5. You are not required to accept this License, since you have not
  5823. + signed it.  However, nothing else grants you permission to modify or
  5824. + distribute the Program or its derivative works.  These actions are
  5825. + prohibited by law if you do not accept this License.  Therefore, by
  5826. + modifying or distributing the Program (or any work based on the
  5827. + Program), you indicate your acceptance of this License to do so, and
  5828. + all its terms and conditions for copying, distributing or modifying
  5829. + the Program or works based on it.
  5830. + 
  5831. +   6. Each time you redistribute the Program (or any work based on the
  5832. + Program), the recipient automatically receives a license from the
  5833. + original licensor to copy, distribute or modify the Program subject to
  5834. + these terms and conditions.  You may not impose any further
  5835. + restrictions on the recipients' exercise of the rights granted herein.
  5836. + You are not responsible for enforcing compliance by third parties to
  5837. + this License.
  5838. + 
  5839. +   7. If, as a consequence of a court judgment or allegation of patent
  5840. + infringement or for any other reason (not limited to patent issues),
  5841. + conditions are imposed on you (whether by court order, agreement or
  5842. + otherwise) that contradict the conditions of this License, they do not
  5843. + excuse you from the conditions of this License.  If you cannot
  5844. + distribute so as to satisfy simultaneously your obligations under this
  5845. + License and any other pertinent obligations, then as a consequence you
  5846. + may not distribute the Program at all.  For example, if a patent
  5847. + license would not permit royalty-free redistribution of the Program by
  5848. + all those who receive copies directly or indirectly through you, then
  5849. + the only way you could satisfy both it and this License would be to
  5850. + refrain entirely from distribution of the Program.
  5851. + 
  5852. + If any portion of this section is held invalid or unenforceable under
  5853. + any particular circumstance, the balance of the section is intended to
  5854. + apply and the section as a whole is intended to apply in other
  5855. + circumstances.
  5856. + 
  5857. + It is not the purpose of this section to induce you to infringe any
  5858. + patents or other property right claims or to contest validity of any
  5859. + such claims; this section has the sole purpose of protecting the
  5860. + integrity of the free software distribution system, which is
  5861. + implemented by public license practices.  Many people have made
  5862. + generous contributions to the wide range of software distributed
  5863. + through that system in reliance on consistent application of that
  5864. + system; it is up to the author/donor to decide if he or she is willing
  5865. + to distribute software through any other system and a licensee cannot
  5866. + impose that choice.
  5867. + 
  5868. + This section is intended to make thoroughly clear what is believed to
  5869. + be a consequence of the rest of this License.
  5870. + 
  5871. +   8. If the distribution and/or use of the Program is restricted in
  5872. + certain countries either by patents or by copyrighted interfaces, the
  5873. + original copyright holder who places the Program under this License
  5874. + may add an explicit geographical distribution limitation excluding
  5875. + those countries, so that distribution is permitted only in or among
  5876. + countries not thus excluded.  In such case, this License incorporates
  5877. + the limitation as if written in the body of this License.
  5878. + 
  5879. +   9. The Free Software Foundation may publish revised and/or new versions
  5880. + of the General Public License from time to time.  Such new versions will
  5881. + be similar in spirit to the present version, but may differ in detail to
  5882. + address new problems or concerns.
  5883. + 
  5884. + Each version is given a distinguishing version number.  If the Program
  5885. + specifies a version number of this License which applies to it and "any
  5886. + later version", you have the option of following the terms and conditions
  5887. + either of that version or of any later version published by the Free
  5888. + Software Foundation.  If the Program does not specify a version number of
  5889. + this License, you may choose any version ever published by the Free Software
  5890. + Foundation.
  5891. + 
  5892. +   10. If you wish to incorporate parts of the Program into other free
  5893. + programs whose distribution conditions are different, write to the author
  5894. + to ask for permission.  For software which is copyrighted by the Free
  5895. + Software Foundation, write to the Free Software Foundation; we sometimes
  5896. + make exceptions for this.  Our decision will be guided by the two goals
  5897. + of preserving the free status of all derivatives of our free software and
  5898. + of promoting the sharing and reuse of software generally.
  5899. + 
  5900. +                 NO WARRANTY
  5901. + 
  5902. +   11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY
  5903. + FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW.  EXCEPT WHEN
  5904. + OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES
  5905. + PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED
  5906. + OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
  5907. + MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.  THE ENTIRE RISK AS
  5908. + TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU.  SHOULD THE
  5909. + PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING,
  5910. + REPAIR OR CORRECTION.
  5911. + 
  5912. +   12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
  5913. + WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
  5914. + REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES,
  5915. + INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING
  5916. + OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED
  5917. + TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY
  5918. + YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER
  5919. + PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE
  5920. + POSSIBILITY OF SUCH DAMAGES.
  5921. + 
  5922. +              END OF TERMS AND CONDITIONS
  5923. + 
  5924. +     Appendix: How to Apply These Terms to Your New Programs
  5925. + 
  5926. +   If you develop a new program, and you want it to be of the greatest
  5927. + possible use to the public, the best way to achieve this is to make it
  5928. + free software which everyone can redistribute and change under these terms.
  5929. + 
  5930. +   To do so, attach the following notices to the program.  It is safest
  5931. + to attach them to the start of each source file to most effectively
  5932. + convey the exclusion of warranty; and each file should have at least
  5933. + the "copyright" line and a pointer to where the full notice is found.
  5934. + 
  5935. +     <one line to give the program's name and a brief idea of what it does.>
  5936. +     Copyright (C) 19yy  <name of author>
  5937. + 
  5938. +     This program is free software; you can redistribute it and/or modify
  5939. +     it under the terms of the GNU General Public License as published by
  5940. +     the Free Software Foundation; either version 2 of the License, or
  5941. +     (at your option) any later version.
  5942. + 
  5943. +     This program is distributed in the hope that it will be useful,
  5944. +     but WITHOUT ANY WARRANTY; without even the implied warranty of
  5945. +     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  5946. +     GNU General Public License for more details.
  5947. + 
  5948. +     You should have received a copy of the GNU General Public License
  5949. +     along with this program; if not, write to the Free Software
  5950. +     Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  5951. + 
  5952. + Also add information on how to contact you by electronic and paper mail.
  5953. + 
  5954. + If the program is interactive, make it output a short notice like this
  5955. + when it starts in an interactive mode:
  5956. + 
  5957. +     Gnomovision version 69, Copyright (C) 19yy name of author
  5958. +     Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
  5959. +     This is free software, and you are welcome to redistribute it
  5960. +     under certain conditions; type `show c' for details.
  5961. + 
  5962. + The hypothetical commands `show w' and `show c' should show the appropriate
  5963. + parts of the General Public License.  Of course, the commands you use may
  5964. + be called something other than `show w' and `show c'; they could even be
  5965. + mouse-clicks or menu items--whatever suits your program.
  5966. + 
  5967. + You should also get your employer (if you work as a programmer) or your
  5968. + school, if any, to sign a "copyright disclaimer" for the program, if
  5969. + necessary.  Here is a sample; alter the names:
  5970. + 
  5971. +   Yoyodyne, Inc., hereby disclaims all copyright interest in the program
  5972. +   `Gnomovision' (which makes passes at compilers) written by James Hacker.
  5973. + 
  5974. +   <signature of Ty Coon>, 1 April 1989
  5975. +   Ty Coon, President of Vice
  5976. + 
  5977. + This General Public License does not permit incorporating your program into
  5978. + proprietary programs.  If your program is a subroutine library, you may
  5979. + consider it more useful to permit linking proprietary applications with the
  5980. + library.  If this is what you want to do, use the GNU Library General
  5981. + Public License instead of this License.
  5982. Binary files emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/COPYING.info and /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/COPYING.info differ
  5983. Binary files emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/Emacs.info and /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/Emacs.info differ
  5984. Binary files emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/icons/def_asm.info and /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/icons/def_asm.info differ
  5985. Binary files emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/icons/def_c.info and /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/icons/def_c.info differ
  5986. Binary files emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/icons/def_el.info and /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/icons/def_el.info differ
  5987. Binary files emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/icons/def_emacs.info and /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/icons/def_emacs.info differ
  5988. Binary files emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/icons/def_h.info and /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/icons/def_h.info differ
  5989. Binary files emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/icons/def_rexx.info and /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/icons/def_rexx.info differ
  5990. diff -rc --new-file emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/icons.el /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/icons.el
  5991. *** emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/icons.el    Thu Jan  1 00:00:00 1970
  5992. --- /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/icons.el    Wed Sep 29 22:43:36 1993
  5993. ***************
  5994. *** 0 ****
  5995. --- 1,49 ----
  5996. + ;;
  5997. + ;;      A new icon-creating scheme.
  5998. + ;;  When creating icons, the following replacement routine searches
  5999. + ;;  for icons of the name "def_<extension>.info".
  6000. + ;;  The routine searches first in the directories specified by the
  6001. + ;;  user in the variable "amiga-icon-path" and then in "env:Icons/".
  6002. + ;;  The directories in the list must contain the trailing slash.
  6003. + ;;
  6004. + ;;  If it can't find any appropriate icons, and the file
  6005. + ;;  "env:Icons/def_emacs.info" exists, it is used. Otherwise
  6006. + ;;  the original function is called.
  6007. + ;;
  6008. + ;;  Note that icons are only created when the variable
  6009. + ;;  "amiga-create-icons" is non-nil.
  6010. + ;;
  6011. + ;;  Example: If the user would like to use the icons supplied by
  6012. + ;;           the SAS C-complier, the following lines could be placed
  6013. + ;;           in his or hers .emacs file:
  6014. + ;;      (setq amiga-icon-path '("sc:Icons/"))
  6015. + ;;      (setq amiga-create-icons t)
  6016. + ;;
  6017. + 
  6018. + (defvar amiga-icon-path '()
  6019. +   "A list of directories to scan when searching for new icons.")
  6020. + 
  6021. + (if (not (fboundp 'old-amiga-put-icon))
  6022. +     (fset 'old-amiga-put-icon (symbol-function 'amiga-put-icon)))
  6023. + 
  6024. + (defun amiga-put-icon (file force)
  6025. +   (if (or force (not (file-readable-p (concat file ".info"))))
  6026. +       (let ((extpos (string-match "\\.[a-zA-Z]\\'" file))
  6027. +             (iconname nil)
  6028. +             (path (append amiga-icon-path '("env:icons/")))
  6029. +             (found nil))
  6030. +         (if (and extpos (< 0 extpos))
  6031. +             (while (and (not found) path)
  6032. +               (setq iconname (concat (car path) "def_" (substring file (+ 1 extpos)) ".in\
  6033. + fo"))
  6034. +               (if (and iconname (file-readable-p iconname))
  6035. +                   (progn
  6036. +                     (copy-file iconname (concat file ".info"))
  6037. +                     (setq found t)))
  6038. +               (setq path (cdr path))))
  6039. +         (if (not found)
  6040. +             (if (file-readable-p "env:Icons/def_emacs.info")
  6041. +                 (copy-file "env:Icons/def_emacs.info" (concat file ".info"))
  6042. +               (old-amiga-put-icon file force))))))
  6043. + 
  6044. + 
  6045. Binary files emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/icons.info and /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/icons.info differ
  6046. diff -rc --new-file emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/lisp/newicon.el /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/lisp/newicon.el
  6047. *** emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/lisp/newicon.el    Thu Jan  1 00:00:00 1970
  6048. --- /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/lisp/newicon.el    Thu Sep 30 21:02:52 1993
  6049. ***************
  6050. *** 0 ****
  6051. --- 1,91 ----
  6052. + ;;
  6053. + ;;  FILE
  6054. + ;;    newicon.el        $VER: V1.00 newicon.el
  6055. + ;;
  6056. + ;;  DESCRIPTION
  6057. + ;;      A new icon-creating scheme.
  6058. + ;;
  6059. + ;;    When creating icons, the following replacement routine searches
  6060. + ;;      for icons of the name "def_<extension>.info". 
  6061. + ;;      The routine searches first in the directories specified a _list_
  6062. + ;;      by the user in the variable "amiga-icon-path" and then in 
  6063. + ;;      "Gnuemacs:Icons/". The directories in the list must contain the 
  6064. + ;;    trailing slash.
  6065. + ;;
  6066. + ;;      If it can't find any appropriate icons, and the file 
  6067. + ;;      "Gnuemacs:Icons/def_emacs.info" exists, it is used. Otherwise
  6068. + ;;      the original function is called.
  6069. + ;;
  6070. + ;;      Note: icons are only created when the variable
  6071. + ;;      "amiga-create-icons" is non-nil.
  6072. + ;;
  6073. + ;;  INSTALLATION
  6074. + ;;    Copy this file to a lisp-directory, for example Gnuemacs:lisp
  6075. + ;;
  6076. + ;;    Create a directory called Gnuemacs:icons and copy the icons to it.
  6077. + ;;
  6078. + ;;    Place the following line in your s:.emacs
  6079. + ;;            (setq amiga-create-icons t)
  6080. + ;;        (load "newicon")
  6081. + ;;
  6082. + ;;      Example: If the user would like to use the icons supplied by
  6083. + ;;    the SAS C-complier, the following lines could be placed
  6084. + ;;    in his or hers .emacs file:
  6085. + ;;      (setq amiga-icon-path '("sc:Icons/"))
  6086. + ;;
  6087. + ;;  LICENSE
  6088. + ;;      Copyright (C) 1993  Anders Lindgren
  6089. + ;;
  6090. + ;;    This program is free software; you can redistribute it and/or modify
  6091. + ;;    it under the terms of the GNU General Public License as published by
  6092. + ;;    the Free Software Foundation; either version 2 of the License,or
  6093. + ;;    (at your option) any later version.
  6094. + ;;
  6095. + ;;    This program is distributed in the hope that it will be useful,
  6096. + ;;    but WITHOUT ANY WARRANTY; without even the implied warranty of
  6097. + ;;    MERCHANTABILITY of FITNESS FOR A PARTICULAR PURPOSE. See the
  6098. + ;;    GNU General Public License for more details.
  6099. + ;;
  6100. + ;;    You should have received a copy of the GNU General Public License
  6101. + ;;    along with this program; if not, write to the Free Software
  6102. + ;;    Foundation, Inc., 675 Mass Ave, Cambridge, Ma 02139, USA.
  6103. + ;;
  6104. + ;;  HOW TO CONTACT ME:
  6105. + ;;    voice:   Scream  Anders Lindgren  LOUD
  6106. + ;;    email:   d91ali@csd.uu.se
  6107. + ;;    mail:    Anders Lindgren
  6108. + ;;             Kantorsg. 2-331
  6109. + ;;             S-754 24 Uppsala
  6110. + ;;    SUGA BBS:+46 (0)8 34 85 23
  6111. + ;;         +46 (0)8 34 32 76  
  6112. + ;;
  6113. + 
  6114. + (defvar amiga-icon-path '()
  6115. +   "A list of directories to scan when searching for new icons.")
  6116. + 
  6117. + (if (not (fboundp 'old-amiga-put-icon))
  6118. +     (fset 'old-amiga-put-icon (symbol-function 'amiga-put-icon)))
  6119. + 
  6120. + (defun amiga-put-icon (file force)
  6121. +   (if (or force (not (file-readable-p (concat file ".info"))))
  6122. +       (let ((extpos (string-match "\\.[a-zA-Z]*\\'" file))
  6123. +         (iconname nil)
  6124. +         (path (append amiga-icon-path '("gnuemacs:icons/")))
  6125. +         (found nil))
  6126. +     (if (and extpos (< 0 extpos))
  6127. +         (while (and (not found) path)
  6128. +           (setq iconname (concat (car path) "def_" (substring file (+ 1 extpos)) ".info"))
  6129. +           (if (and iconname (file-readable-p iconname))
  6130. +           (progn
  6131. +             (copy-file iconname (concat file ".info"))
  6132. +             (setq found t)))
  6133. +           (setq path (cdr path))))
  6134. +     (if (not found)
  6135. +         (if (file-readable-p "gnuemacs:Icons/def_emacs.info")
  6136. +         (copy-file "gnuemacs:Icons/def_emacs.info" (concat file ".info"))
  6137. +           (old-amiga-put-icon file force))))))
  6138. +       
  6139. + 
  6140. + 
  6141. +         
  6142. +         
  6143. Binary files emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/lisp/newicon.el.info and /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/lisp/newicon.el.info differ
  6144. Binary files emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/lisp/newicon.elc and /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/lisp/newicon.elc differ
  6145. Binary files emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/lisp/newicon.elc.info and /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/lisp/newicon.elc.info differ
  6146. diff -rc --new-file emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/lisp/sticky.el /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/lisp/sticky.el
  6147. *** emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/lisp/sticky.el    Thu Jan  1 00:00:00 1970
  6148. --- /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/lisp/sticky.el    Thu Sep 30 21:11:14 1993
  6149. ***************
  6150. *** 0 ****
  6151. --- 1,70 ----
  6152. + ;;;
  6153. + ;;; FILE
  6154. + ;;;    sticky.el        $VER: V1.00 sticky.el
  6155. + ;;;
  6156. + ;;; DESCRIPTION
  6157. + ;;;    ELisp part of Emacs Starter Deluxe. This code 
  6158. + ;;;    is loaded when Emacs is invoked in "sticky" mode.
  6159. + ;;;
  6160. + ;;;    Place this file somewhere in your lisp-path, for example
  6161. + ;;;    in the directory GnuEmacs:lisp.
  6162. + ;;;
  6163. + ;;;    Please read the file "starter.doc".
  6164. + ;;;
  6165. + ;;; AUTHORS
  6166. + ;;;    Anders Lindgren, d91ali@csd.uu.se
  6167. + ;;;    Bo Liljegren, bo-lilje@dsv.su.se
  6168. + ;;;
  6169. + ;;; LICENSE
  6170. + ;;;     Copyright (C) 1993  Anders Lindgren  and  Bo Liljegren
  6171. + ;;;
  6172. + ;;;    This program is free software; you can redistribute it and/or modify
  6173. + ;;;    it under the terms of the GNU General Public License as published by
  6174. + ;;;    the Free Software Foundation; either version 2 of the License, or
  6175. + ;;;    (at your option) any later version.
  6176. + ;;;
  6177. + ;;;    This program is distributed in the hope that it will be useful,
  6178. + ;;;    but WITHOUT ANY WARRANTY; without even the implied warranty of
  6179. + ;;;    MERCHANTABILITY of FITNESS FOR A PARTICULAR PURPOSE. See the
  6180. + ;;;    GNU General Public License for more details.
  6181. + ;;;
  6182. + ;;;    You should have received a copy of the GNU General Public License
  6183. + ;;;    along with this program; if not, write to the Free Software
  6184. + ;;;    Foundation, Inc., 675 Mass Ave, Cambridge, Ma 02139, USA.
  6185. + ;;;
  6186. + ;;; HISTORY
  6187. + ;;;    24-Sep-93 ALi  Created this file.
  6188. + ;;;
  6189. + 
  6190. + 
  6191. + (provide 'sticky)
  6192. + 
  6193. + (make-variable-buffer-local 'sticky-rexx-port)
  6194. + (set-default 'sticky-rexx-port nil)
  6195. + 
  6196. + (if (not (fboundp 'old-kill-buffer))
  6197. +     (fset 'old-kill-buffer (symbol-function 'kill-buffer)))
  6198. + 
  6199. + ;;; Redefine the kill-buffer function.
  6200. + ;;; If the buffer is in "sticky" mode, notify the client that this buffer is no more.
  6201. + ;;; The reason why we're asking whether to kill the buffer or not, is to avoid a situation
  6202. + ;;; where the client is notified but the user answers no.
  6203. + (defun kill-buffer (buffer)
  6204. +   "One arg, a string or a buffer.  Get rid of the specified buffer.
  6205. + Any processes that have this buffer as the `process-buffer' are killed
  6206. + with `delete-process'.
  6207. + Patched to notify client."
  6208. +   (interactive "bKill buffer: ")
  6209. +   (if (eq (setq buffer (get-buffer buffer)) nil)
  6210. +       nil
  6211. +     (save-excursion
  6212. +       (set-buffer buffer)
  6213. +       (if (or (not (buffer-modified-p buffer))
  6214. +           (not (buffer-file-name))
  6215. +           noninteractive
  6216. +           (yes-or-no-p (format "Buffer %s modified; kill anyway? " (buffer-name))))
  6217. +       (progn
  6218. +         (set-buffer-modified-p nil)
  6219. +         (if sticky-rexx-port
  6220. +         (amiga-arexx-send-command (concat "ADDRESS " sticky-rexx-port " TERMINATING") t))
  6221. +         (old-kill-buffer buffer))))))
  6222. Binary files emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/lisp/sticky.el.info and /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/lisp/sticky.el.info differ
  6223. Binary files emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/lisp/sticky.elc and /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/lisp/sticky.elc differ
  6224. Binary files emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/lisp/sticky.elc.info and /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/lisp/sticky.elc.info differ
  6225. Binary files emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/lisp.info and /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/lisp.info differ
  6226. diff -rc --new-file emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/rexx/emacs.rexx /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/rexx/emacs.rexx
  6227. *** emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/rexx/emacs.rexx    Thu Jan  1 00:00:00 1970
  6228. --- /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/rexx/emacs.rexx    Fri Oct  1 08:56:48 1993
  6229. ***************
  6230. *** 0 ****
  6231. --- 1,286 ----
  6232. + /*
  6233. + FILE         Emacs.rexx
  6234. + VERSION      $VER: V1.06 Emacs.rexx
  6235. + DESCRIPTION  Load a file into a (running) emacs.
  6236. +              emacs [flags and files]
  6237. + 
  6238. +          The following options are supported:
  6239. +          -[not]tofront    (Don't) move the Emacs window and screen
  6240. +                      to the front.
  6241. +          -[not]sticky    Do not terminate until the files on the
  6242. +                 command line are killed.
  6243. +          -[no]screen    Open a public screen (Requiers ScreenManager)
  6244. + 
  6245. +              where the third and fourth argument corresponds to the
  6246. +              the screensize.
  6247. + AUTHOR       Anders Lindgren, d91ali@csd.uu.se
  6248. +              Bo Liljegren, bo-lilje@dsv.su.se
  6249. + STATUS       This file is in the public domain
  6250. + HISTORY
  6251. +   11-Aug-92 ALi        Created this file
  6252. +   13-Aug-92 ALi        Replaced "runwsh" with "run".
  6253. +                        "else nop" added.
  6254. +   14-Aug-92 ALi  1.00  V1.0 released.
  6255. +   20-Aug-92 Bo L 1.01  Added ScreenManager stuff.
  6256. +   03-Jan-93 ALi  1.02  MODE edited. COLOURS removed.
  6257. +                        amiga-set-geometry moved to .emacs
  6258. +   13-Jan-93 ALi  1.03  TOBACK added. SHANGHAI and DEFAULT removed,
  6259. +                        emacs can now open itself correctly.
  6260. +                        -nottofront flag added.
  6261. +   20-Jan-93 Bo L 1.04  Replaced the static portname with the dynamic
  6262. +                        in the 'WaitForPort'-line
  6263. +   16 aug 93 Bo L 1.05  Changed screenresolution argument to DISPID.
  6264. +                        To avoid nameconflict with different languages.
  6265. +                        Changed ScrenManager parse part for those
  6266. +                        (unblessed) who don't have WShell.
  6267. +   22-Sep-93 ALi     1.06  Real option and filename parser added.
  6268. +                  (amiga-window-to-front) and
  6269. +                (amiga-activate-window) called instead of
  6270. +                ScreenManager.
  6271. +                (cd ) removed. (Why should emacs move directry?)
  6272. +                Sticky option added.
  6273. +                Files loaded by (load-file ), even when Emacs
  6274. +                is started by the script.
  6275. +                Temporary file which sets the window size and
  6276. +                screen name added. (No use for anything in .emacs)
  6277. +                POPPUB option removed.
  6278. +                Now gets screen font from WB.
  6279. + */
  6280. + 
  6281. + OPTIONS RESULTS
  6282. + OPTIONS FAILAT 21
  6283. + 
  6284. + /* Make sure required libraries are present */
  6285. + IF ~SHOW('l',"rexxsupport.library") THEN DO
  6286. +     IF ~ADDLIB("rexxsupport.library",0,-30,0) THEN DO
  6287. +     SAY "Can't find rexxsupport.library"
  6288. +     EXIT
  6289. +     END
  6290. +     END
  6291. + 
  6292. + 
  6293. + /* The name for the public screen */
  6294. + screenname = 'Emacs'
  6295. + 
  6296. + portname = 'EMACS1'
  6297. + args = ARG(1)  
  6298. + 
  6299. + /* The commandline to send to a new emacs */
  6300. + cmd = ""
  6301. + 
  6302. + /* A stem containing the options, the defaults are set here */
  6303. + flags.batch   = 0        /* Batch mode, always start a new Emacs */
  6304. + flags.kill    = 0        /* Kill a running emacs. */
  6305. + flags.screen  = 1        /* Use a public screen (Requiers ScreenManager) */
  6306. + flags.sticky  = 0        /* Wait until the buffers are terminated */
  6307. + flags.tofront = 1        /* Send the screen to the front */
  6308. + 
  6309. + /* Argument parser */
  6310. + 
  6311. + filesidx = 0
  6312. + DO WHILE LENGTH(args) > 1
  6313. +     args = strip(args, 'L')    /* Strip leading blanks */
  6314. +     IF LEFT(args,1) = '"' THEN DO
  6315. +     filesidx = filesidx + 1
  6316. +     PARSE VAR args  '"' files.filesidx '"' args
  6317. +     END
  6318. +     ELSE DO
  6319. +     PARSE VAR args  onearg args
  6320. +     IF LEFT(onearg,1) = '-' THEN DO
  6321. +         SELECT
  6322. +         WHEN onearg = "-tofront"    THEN flags.tofront = 1
  6323. +         WHEN onearg = "-nottofront" THEN flags.tofront = 0
  6324. +         WHEN onearg = "-sticky"     THEN flags.sticky = 1
  6325. +         WHEN onearg = "-notsticky"  THEN flags.sticky = 0
  6326. +         WHEN onearg = "-screen"     THEN flags.screen = 1
  6327. +         WHEN onearg = "-noscreen"   THEN flags.screen = 0
  6328. +         WHEN onearg = "-batch"        THEN flags.batch = 1
  6329. +         WHEN onearg = "-kill"        THEN DO
  6330. +             flags.kill = 1
  6331. +             cmd = cmd onearg
  6332. +             END
  6333. +         /* Emacs options with one argument */
  6334. +         WHEN (onearg = "-l" | onearg = "-load" | onearg = "-f",
  6335. +               | onearg = "-funcall" | onearg = "-i" | onearg = "-insert",
  6336. +               | onearg = "-t" | onearg = "-u" | onearg = "-user") THEN DO
  6337. +             PARSE VAR args  optarg args
  6338. +             cmd = cmd onearg optarg
  6339. +             END
  6340. +         /* Emacs options with two arguments */
  6341. +         WHEN (onearg = "-dev" | onearg = "-fn") THEN DO
  6342. +             PARSE VAR args  optarg1 optarg2 args
  6343. +             cmd = cmd onearg optarg1 optarg2
  6344. +             END
  6345. +         OTHERWISE cmd = cmd onearg
  6346. +         END
  6347. +         END
  6348. +     ELSE IF LEFT(onearg,1) = '+' THEN DO
  6349. +         PARSE VAR onearg  '+' flags.linenumber
  6350. +         END
  6351. +     ELSE DO
  6352. +         filesidx = filesidx + 1
  6353. +         files.filesidx = onearg
  6354. +         END
  6355. +     END
  6356. +     END
  6357. + 
  6358. + /* If in batch-mode, start a new Emacs synchronous using the
  6359. +  * original options */
  6360. + IF flags.batch THEN DO
  6361. +     ADDRESS COMMAND "temacs" arg(1)
  6362. +     EXIT rc
  6363. +     END
  6364. + 
  6365. + 
  6366. + /* If an Emacs Screen doesn't exists, create one */
  6367. + IF flags.screen & ~SHOWLIST('W',screenname||'-Demon') THEN DO 
  6368. +     filnamn = 'T:SM'||d2x(random(256,1024,time('s')))
  6369. +     ADDRESS COMMAND 'ScreenManager INFO Workbench EXPERT >'||filnamn
  6370. +     IF ~OPEN(fil,filnamn,'R') THEN EXIT 20
  6371. +     cnt = 4
  6372. +     rad = READLN(fil)
  6373. +     IF EOF(fil) THEN cnt = 0
  6374. +     DO WHILE cnt ~= 0
  6375. +     ord = WORD(rad,1)
  6376. +     SELECT
  6377. +         WHEN ord = 'Position:' THEN DO
  6378. +         PARSE VAR rad . '=' xpos ' ' . '=' ypos ' ' .
  6379. +         cnt = cnt - 1
  6380. +         END
  6381. +         WHEN ord = 'Size:' THEN DO
  6382. +         PARSE VAR rad . '=' xsize ' ' . '=' ysize ' ' .
  6383. +         cnt = cnt - 1
  6384. +         END
  6385. +         WHEN ord = 'DisplayID:' THEN DO
  6386. +         resmode = WORD(rad,2)
  6387. +         cnt = cnt - 1
  6388. +         END
  6389. +         WHEN ord = 'Font:' THEN DO
  6390. +         PARSE VAR rad  'Font:'  font '.font ' fontsize
  6391. +         font = strip(font)
  6392. +         cnt = cnt - 1
  6393. +             END
  6394. +         OTHERWISE
  6395. +         NOP
  6396. +         END
  6397. +     rad = READLN(fil)
  6398. +     IF EOF(fil) THEN cnt = 0
  6399. +     END
  6400. +     CALL CLOSE(fil)
  6401. +     CALL DELETE(filnamn)
  6402. +     menubar = fontsize + 2
  6403. +     ypos = ypos + menubar
  6404. +     ysize = ysize - menubar
  6405. +     ScrMng = ' OPEN '||screenname||' TITLE="'||screenname||' Screen"'
  6406. +     ScrMng = ScrMng||' DISPID='||resmode
  6407. +     ScrMng = ScrMng||' PLANES=2'
  6408. +     ScrMng = ScrMng||' PENS=011213103'
  6409. +     ScrMng = ScrMng||' FONT='||font||'.'||fontsize
  6410. +     ScrMng = ScrMng||' AUTOCLOSE' /* close screen when Emacs exists */
  6411. +     ScrMng = ScrMng||' TOBACK'      /* It's moved to the front below  */
  6412. +     ScrMng = ScrMng||' CX_TOFRONT="LCOMMAND e"'
  6413. +     ScrMng = ScrMng||' CX_DEFAULT="LCOMMAND SHIFT e"'
  6414. +     ADDRESS COMMAND 'ScreenManager' ScrMng
  6415. + 
  6416. +     /* Create a small elisp file which sets the screen and size of Emacs */
  6417. +     sizefilename = 't:size' || d2x(random(256,1024,time('s'))) || '.el'
  6418. +     IF ~OPEN(fil, sizefilename, 'W') THEN EXIT 20
  6419. +     CALL WRITELN(fil, ';; Automagically created by Emacs.rexx')
  6420. +     CALL WRITELN(fil, '(amiga-set-geometry 0' fontsize+3 xsize ysize '"' || screenname || '")')
  6421. +     CALL CLOSE(fil)
  6422. +     cmd = cmd '-load' sizefilename
  6423. +     END
  6424. +     
  6425. + /* Start a new Emacs, if no one exists. */
  6426. + IF SHOW('P', portname) = 0 THEN DO
  6427. +     
  6428. +     CALL PRAGMA('stack', 40000)
  6429. + 
  6430. +     ADDRESS COMMAND 'run <nil: >nil: temacs' cmd
  6431. +     ADDRESS COMMAND 'WaitForPort' portname
  6432. +     flags.kill = 0
  6433. + 
  6434. +     END
  6435. + 
  6436. + 
  6437. + ADDRESS VALUE portname
  6438. + 
  6439. + /* This no-op call doesn't return until after the 
  6440. +  * t:sizeXX file has been read */
  6441. + "()"
  6442. + 
  6443. + /* Delete the temporary file, if it was created. */
  6444. + IF SYMBOL('sizefilename') = 'VAR' THEN CALL DELETE(sizefilename)
  6445. + 
  6446. + /* If in sticky mode, load sticky module into Emacs and
  6447. +  * open a communication port */
  6448. + IF flags.sticky THEN DO
  6449. +     "(require 'sticky)"
  6450. + 
  6451. +     count = 1
  6452. +     DO UNTIL ~SHOW('P', stickyportname)
  6453. +     stickyportname = "EMACS_CLIENT" || count
  6454. +     count = count + 1
  6455. +     END
  6456. + 
  6457. +     CALL OPENPORT(stickyportname)
  6458. +     IF ~SHOW('P', stickyportname) THEN DO
  6459. +     SAY "Emacs client: Can't open sticky port."
  6460. +     EXIT 20
  6461. +     END
  6462. +     END
  6463. + 
  6464. + /* Get the current diretory. (There is no point in building a correct
  6465. +  * filename, since Emacs does that for us.) */
  6466. + dir = PRAGMA('directory')
  6467. + IF RIGHT(dir,1) ~= ':' THEN dir = dir || '/'
  6468. + 
  6469. + stickycount = 0            /* The number of files to wait for */
  6470. + 
  6471. + /* Load the files into emacs */
  6472. + DO i = 1 TO filesidx
  6473. +     '(find-file "' || dir || files.i || '")'
  6474. + 
  6475. +     IF flags.sticky THEN DO
  6476. +     '(setq sticky-rexx-port "' || stickyportname || '")'
  6477. +     stickycount = stickycount + 1
  6478. +     END
  6479. +     END
  6480. + 
  6481. + /* If the +linenumber option was given, go to the correct line */
  6482. + IF SYMBOL('flags.linenumber') = 'VAR' THEN '(goto-line ' || flags.linenumber || ')'
  6483. + 
  6484. + /* Bring an activated Emacs window and screen to the front */
  6485. + IF flags.tofront THEN DO
  6486. +     '(amiga-window-to-front)'
  6487. +     '(amiga-activate-window)'
  6488. +     END
  6489. + 
  6490. + /* If in sticky mode, wait for the buffers to be deleted */
  6491. + IF flags.sticky THEN DO
  6492. +     DO WHILE stickycount > 0
  6493. + 
  6494. +     CALL WAITPKT(stickyportname)
  6495. +     pkt = GETPKT(stickyportname)
  6496. +     IF pkt = NULL() then iterate
  6497. + 
  6498. +     IF GETARG(pkt) = "TERMINATING" THEN
  6499. +         stickycount = stickycount - 1
  6500. + 
  6501. +     CALL REPLY(pkt, 0)
  6502. + 
  6503. +     END
  6504. + 
  6505. +     CALL CLOSEPORT(stickyportname)
  6506. +     END
  6507. + 
  6508. + 
  6509. + IF flags.kill THEN DO
  6510. +     '(save-buffers-kill-emacs)'
  6511. +     /* Screen normally closed automatically, but this won't hurt */
  6512. +     IF flags.screen THEN DO
  6513. +         ADDRESS COMMAND 'ScreenManager close' screenname
  6514. +         END
  6515. +     END
  6516. + 
  6517. + EXIT 0
  6518. Binary files emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/rexx/emacs.rexx.info and /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/rexx/emacs.rexx.info differ
  6519. Binary files emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/rexx.info and /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/rexx.info differ
  6520. Binary files emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/rexxmode10.lha and /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/rexxmode10.lha differ
  6521. Binary files emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/sas-c-emacs.lha and /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/sas-c-emacs.lha differ
  6522. diff -rc --new-file emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/starter.doc /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/starter.doc
  6523. *** emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/starter.doc    Thu Jan  1 00:00:00 1970
  6524. --- /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/starter.doc    Thu Sep 30 23:30:30 1993
  6525. ***************
  6526. *** 0 ****
  6527. --- 1,260 ----
  6528. + 
  6529. + 
  6530. + 
  6531. +         #### #   #   #    ###  ### 
  6532. +         #    ## ##  # #  #    #
  6533. +         ##   # # # #   # #     ##
  6534. +         #    #   # ##### #       #
  6535. +         #### #   # #   #  ### ### 
  6536. +  
  6537. +               ###  #####   #   ###  ##### #### ###
  6538. +              #       #    # #  #  #   #   #    #  #
  6539. +               ###    #   #   # ###    #   ##   ###
  6540. +                  #   #   ##### # #    #   #    # #
  6541. +               ###    #   #   # #  #   #   #### #  #
  6542. + 
  6543. +                         ***  **** *    *  * *   * ****
  6544. +                         *  * *    *    *  *  * *  *
  6545. +                            *  * **   *    *  *   *   **
  6546. +                        *  * *    *    *  *  * *  *
  6547. +                            ***  **** **** **** *   * ****
  6548. + 
  6549. + 
  6550. +     ------------------------------------------------------
  6551. +                   Release 1
  6552. +                    
  6553. +                  Written by:
  6554. +                Anders Lindgren
  6555. +                  Bo Liljegren
  6556. +                    
  6557. +          A (in our humble opinion) good Emacs starter
  6558. +     ------------------------------------------------------
  6559. +                   FEATURING
  6560. + 
  6561. +     o Load files into a running Emacs.
  6562. + 
  6563. +     o Option to use a public screen (requiers ScreenManager).
  6564. + 
  6565. +     o Full WB support; double-click icons into a running Emacs.
  6566. + 
  6567. +     o New icon creating scheme, use different icons depending on what
  6568. +       type of file you are editing.
  6569. + 
  6570. +     o Sticky flag, the script doesn't terminate until the requested
  6571. +       buffers are terminated.
  6572. + 
  6573. + 
  6574. +                    LICENSE
  6575. + 
  6576. +         Copyright (C) 1993  Anders Lindgren  and  Bo Liljegren
  6577. +  
  6578. +      This program is free software; you can redistribute it and/or modify
  6579. +      it under the terms of the GNU General Public License as published by
  6580. +      the Free Software Foundation; either version 2 of the License, or
  6581. +      (at your option) any later version.
  6582. +  
  6583. +      This program is distributed in the hope that it will be useful,
  6584. +      but WITHOUT ANY WARRANTY; without even the implied warranty of
  6585. +      MERCHANTABILITY of FITNESS FOR A PARTICULAR PURPOSE. See the
  6586. +      GNU General Public License for more details.
  6587. +  
  6588. +      You should have received a copy of the GNU General Public License
  6589. +      along with this program; if not, write to the Free Software
  6590. +      Foundation, Inc., 675 Mass Ave, Cambridge, Ma 02139, USA.
  6591. + 
  6592. + 
  6593. + 
  6594. +                    CONTENTS
  6595. + 
  6596. + The following files are contained in the archive:
  6597. + 
  6598. + COPYING            -- The Gnu General Public License
  6599. + starter.doc         -- This file
  6600. + Emacs.info        -- A nice Emacs icon drawn by Bo Liljegren
  6601. + rexx/emacs.rexx V1.06    -- The main starter script
  6602. + lisp/sticky.el    V1.00    -- ELisp code used when a buffer is started with
  6603. +                the "-sticky" flag
  6604. + lisp/newicon.el    V1.00    -- The ELisp code for the new icon creating scheme
  6605. + lisp/#?.elc        -- Bytecompiled versions of the above files
  6606. + wbarg/wbarg    V1.00    -- A utility which converts WB arguments 
  6607. +                to shell dito
  6608. + wbarg/wbarg.c        -- Source code for the above utility
  6609. + wbarg/makefile        -- Rules for building the above with SAS/C 6.x.
  6610. + icons/def_#?.info    -- Icons. All but def_el drawn by Christian A. Weber.
  6611. + 
  6612. + 
  6613. + 
  6614. + 
  6615. + 
  6616. +                   NEWSFLASH
  6617. + 
  6618. + SUGA, Swedish User Group of Amiga is a non-profit nation wide club for
  6619. + Amiga-freaks in Sweden. It has been operating for many years (I joined
  6620. + in around -87, and have been more or less active ever since.) A
  6621. + newspaper with 16 to 20 pages is beeing distrubuted quaterly. A BBS is
  6622. + runed using the command line program NiKom, which is written by a
  6623. + member of the club. (Too bad for you non swedish speaking people that
  6624. + it isn't translated yet.) For the members in Stockholm we have a
  6625. + meeting every sunday between 11am and 3pm.
  6626. + 
  6627. + Join by inserting only 150:- (less than $20) into the PostGiro account
  6628. + 13 43 32-2. You can also just show up at the "Verksta'n" to see what
  6629. + it's all about!
  6630. + 
  6631. +     Address: SUGA
  6632. +          Disponentvillan, Verkstan
  6633. +          Norrtullsgatan 12k
  6634. +          S-113 27 Stockholm
  6635. + 
  6636. +     SUGA BBS:+46 (0)8 34 85 23
  6637. +          +46 (0)8 34 32 76  
  6638. + 
  6639. +  
  6640. +                  INSTALLATION
  6641. + 
  6642. + Copy the files in the "lisp" directory into a directory in the
  6643. + Emacs load path, for example GnuEmacs:lisp.
  6644. + 
  6645. + Copy the file in the "rexx" directory to REXX:
  6646. + 
  6647. + Copy the file "wbarg/wbarg" into the GnuEmacs:etc directory.
  6648. + 
  6649. + 
  6650. + If you would like to use the new icon creating scheme then
  6651. + create a directory named GnuEmacs:icons and copy the contents
  6652. + of the "icons" to it and add the following line to your 
  6653. + s:.emacs file.
  6654. + 
  6655. +     (load "newicon")
  6656. +     (setq amiga-create-icons t)
  6657. + 
  6658. + Older revisions of the script Emacs.rexx required that the command
  6659. + (amiga-set-geometry ) were executed in s:.emacs. This is no longer the
  6660. + case, hence the line should be removed.
  6661. + 
  6662. + If the -screen option should be used, the program ScreenManager must
  6663. + be installed. The program is not included in this archive since its
  6664. + license does not allow it to be fully freely distributable, it can be
  6665. + found one ONE (yes, ONE I understood the license correctly) PD disk
  6666. + serie, and on AmiNet. If you can't find it you can order it from the
  6667. + author (you can also inform him of the existence of the Gnu General
  6668. + Public License):
  6669. + 
  6670. +     Bernhard Möllemann
  6671. +     Luisenstraße 17
  6672. +     D-7500 Karlsruhe 1
  6673. +     Germany
  6674. + 
  6675. + In the future we might rewrite Emacs.rexx so it uses some other screen
  6676. + opener, if it turns out that ScreenManager is too difficult to find.
  6677. + 
  6678. + 
  6679. +                   EMACS.REXX
  6680. + 
  6681. + The heart of the Emacs Starter Deluxe is the script emacs.rexx. It loads
  6682. + files into a running Emacs or starts a new Emacs. It is capable of opening
  6683. + a public screen by the help of the utility ScreenManager. The resolution
  6684. + and color of the screen is cloned from the Workbench, although the depth 
  6685. + will always be two bitplanes.
  6686. + 
  6687. + 
  6688. +     Usage:   [rx] emacs [options|+linenumber] [filenames]
  6689. + 
  6690. + 
  6691. +     -[not]tofront    Bring the Emacs window and screes to the front.
  6692. +             Default is -tofront.
  6693. + 
  6694. +     -[not]sticky    Wait until the filenames requested are killed by
  6695. +             Emacs. Default is -notsticky.
  6696. + 
  6697. +     -[no]screen        Open a public screen and place Emacs on it.
  6698. +             This option requiers the program "ScreenManager".
  6699. +             Default is -screen.
  6700. + 
  6701. + The script also handles standard Emacs options, even though some are
  6702. + implemented as no-ops when loading files into a running Emacs.
  6703. + 
  6704. + The meaning of the standard option "-kill" is extended; if a running Emacs
  6705. + exists it is terminated.
  6706. + 
  6707. + 
  6708. +               WORKBENCH SUPPORT
  6709. + 
  6710. + The Emacs Starter Deluxe has full Workbench support. This means that a
  6711. + file conneted to an icon can be loaded into a running Emacs.
  6712. + 
  6713. + This feature requiers a project icon with the default tool set to
  6714. + "GnuEmacs:etc/wbarg" and the tooltype:
  6715. +     COMMAND=sys:rexxc/rx emacs
  6716. + 
  6717. + A number of icons with this setup can be found in the icons directory
  6718. + of this archive.
  6719. + 
  6720. + If no file is connected to an icon which is double-clicked Emacs will
  6721. + be started, or brought to front, but no file would be loaded.
  6722. + 
  6723. + Note that the icons Emacs normally creates does NOT have the tool and
  6724. + tooltype set correctly. But, gentle reader, a solution to this problem
  6725. + can be found in the next section.
  6726. + 
  6727. + 
  6728. +                NEW ICON SCHEME
  6729. + 
  6730. + To make as life simple as possible for workbench users a new icon
  6731. + creating scheme has been invented. To activate it please place the
  6732. + following lines in your s:.emacs file:
  6733. + 
  6734. +     (load "newicon")
  6735. +     (setq amiga-create-icons t)
  6736. + 
  6737. + The new scheme checks the extension of the file edited and tries to
  6738. + find an icon with the name "def_<extension>.el" in the icon path. If
  6739. + no one is found an icon named "GnuEmacs:icons/def_emacs.el" is used.
  6740. + As an emergency exit, the old icon creation routine is called.
  6741. + 
  6742. + The icon path is defined to be the directories contained in the list
  6743. + "amiga-icon-path" and in the directory "GnuEmacs:Icons". Note that the
  6744. + directories in the list must end in a colon or slash.
  6745. + 
  6746. + Example: If the user would like to use the icons supplied by the SAS
  6747. + C-complier and the icons supplied by DefaultIcon, the following lines
  6748. + could be placed in his or hers .emacs file:
  6749. +     (setq amiga-icon-path '("sc:Icons/" "Env:Icons/"))
  6750. + 
  6751. + 
  6752. +                SO WHAT'S THE DARK SIDE?
  6753. + 
  6754. + All programs must have something which isn't working properly, and yes,
  6755. + there is one thing we don't recomend:
  6756. + Don't iconify Emacs, since the screen closes automatically when the Emacs
  6757. + window is closed. There is a way around it though; execute the emacs.rexx
  6758. + script again to open a new screen and then deiconify Emacs.
  6759. + 
  6760. + If for some reason Emacs fails to start but the screen shows up it must
  6761. + be closed before the next attempt to start Emacs. This is done by issuing
  6762. + the command "ScreenManager CLOSE Emacs".
  6763. + 
  6764. + 
  6765. +               HOW TO CONTACT US
  6766. + 
  6767. + If you would like new features to be added to Emacs Starter Deluxe, or if
  6768. + you whould discover a bug, don't hesitate to contact us:
  6769. + 
  6770. + email:   d91ali@csd.uu.se        bo-lilje@dsv.su.se
  6771. +      
  6772. + mail:    Anders Lindgren        Bo Liljegren
  6773. +          Kantorsg. 2-331        Skogvaktarg. 12
  6774. +          S-754 24 Uppsala        115 42 Stockholm
  6775. + 
  6776. + voice:   Scream  Anders or Bosse  LOUD
  6777. + 
  6778. + 
  6779. +                  OTHER TITLES
  6780. + 
  6781. + The following Emacs applications has been written by Anders Lindgren:
  6782. + 
  6783. + rexx-mode        -- A Complete editing mode and a source level 
  6784. +                debugger for REXX. (Machine independent, but 
  6785. +                it works on the Amiga.)
  6786. + sas-c-mode        -- A minor mode for communication with the SAS/C
  6787. +                6.x message browser SCMSG and more.
  6788. Binary files emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/starter.doc.info and /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/starter.doc.info differ
  6789. diff -rc --new-file emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/wbarg/makefile /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/wbarg/makefile
  6790. *** emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/wbarg/makefile    Thu Jan  1 00:00:00 1970
  6791. --- /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/wbarg/makefile    Thu Sep  9 23:57:48 1993
  6792. ***************
  6793. *** 0 ****
  6794. --- 1,12 ----
  6795. + 
  6796. + wbarg:    wbarg.o
  6797. +     slink TO wbarg FROM lib:c.o wbarg.o LIB lib:sc.lib MAP wbarg.map hsflo
  6798. +     copy wbarg gnuemacs:etc
  6799. + 
  6800. + wbarg.o: wbarg.c
  6801. +     sc wbarg.c
  6802. + 
  6803. + release:
  6804. +     lha -x -a -r a wbarg.lha wbarg wbarg.c icons/\#? sc/\#? makefile newicon.el def_emacs.info README
  6805. + 
  6806. +                    
  6807. Binary files emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/wbarg/makefile.info and /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/wbarg/makefile.info differ
  6808. Binary files emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/wbarg/wbarg and /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/wbarg/wbarg differ
  6809. diff -rc --new-file emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/wbarg/wbarg.c /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/wbarg/wbarg.c
  6810. *** emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/wbarg/wbarg.c    Thu Jan  1 00:00:00 1970
  6811. --- /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/wbarg/wbarg.c    Thu Sep 30 21:29:50 1993
  6812. ***************
  6813. *** 0 ****
  6814. --- 1,379 ----
  6815. + /*
  6816. +  *  FILE
  6817. +  *    wbarg V1.0    by Anders Lindgren
  6818. +  *
  6819. +  *  DESCRIPTION
  6820. +  *    Convert WB arguments into shell dito.
  6821. +  *
  6822. +  *    This programs looks for a tooltype of the name COMMAND, to which
  6823. +  *    if adds the WB arguments, before executing the command as a shell
  6824. +  *    process.
  6825. +  *
  6826. +  *    One area of use is to set the COMMAND tooltype to:
  6827. +  *      COMMAND=sys:rexxc/rx rexxscript
  6828. +  *    to run the rexx script "rexxscript" with WB arguments. 
  6829. +  *
  6830. +  *  WARNING
  6831. +  *    This is a HACK, it might stop to work on future OS-releases, if
  6832. +  *    Commodore would change the path mechanism.
  6833. +  *
  6834. +  *    This program should work under 1.3, but it hasn't been tested. If
  6835. +  *    it is runed under V39 it takes advantage of new features. (under 
  6836. +  *    V37 AllocDosObject(DOS_CLI, ...) is buggy.)
  6837. +  *
  6838. +  *  LICENSE
  6839. +  *      Copyright (C) 1993  Anders Lindgren
  6840. +  *
  6841. +  *    This program is free software; you can redistribute it and/or modify
  6842. +  *    it under the terms of the GNU General Public License as published by
  6843. +  *    the Free Software Foundation; either version 2 of the License,or
  6844. +  *    (at your option) any later version.
  6845. +  *
  6846. +  *    This program is distributed in the hope that it will be useful,
  6847. +  *    but WITHOUT ANY WARRANTY; without even the implied warranty of
  6848. +  *    MERCHANTABILITY of FITNESS FOR A PARTICULAR PURPOSE. See the
  6849. +  *    GNU General Public License for more details.
  6850. +  *
  6851. +  *    You should have received a copy of the GNU General Public License
  6852. +  *    along with this program; if not, write to the Free Software
  6853. +  *    Foundation, Inc., 675 Mass Ave, Cambridge, Ma 02139, USA.
  6854. +  *
  6855. +  *  HOW TO CONTACT ME:
  6856. +  *    voice:   Scream  Anders Lindgren  LOUD
  6857. +  *    email:   d91ali@csd.uu.se
  6858. +  *    mail:    Anders Lindgren
  6859. +  *             Kantorsg. 2-331
  6860. +  *             S-754 24 Uppsala
  6861. +  *    SUGA BBS:+46 (0)8 34 85 23
  6862. +  *         +46 (0)8 34 32 76  
  6863. +  *
  6864. +  *  TODO
  6865. +  *    Define a STACK tooltype to set the stack size.
  6866. +  *
  6867. +  *  HISTORY
  6868. +  *    09-Sep-93    Wrote the program.
  6869. +  *    28-Sep-93    Added the add/free_cli functions
  6870. +  *                V1.0 Released
  6871. +  */
  6872. + 
  6873. + #include <exec/types.h>
  6874. + 
  6875. + #include <exec/memory.h>
  6876. + #include <exec/execbase.h>
  6877. + #include <dos/dos.h>
  6878. + #include <dos/dostags.h>
  6879. + #include <workbench/startup.h>
  6880. + 
  6881. + #define __USE_SYSBASE
  6882. + 
  6883. + #include <proto/exec.h>
  6884. + #include <proto/dos.h>
  6885. + #include <proto/icon.h>
  6886. + 
  6887. + #include <stdio.h>
  6888. + #include <strings.h>
  6889. + 
  6890. + 
  6891. + #define CMDLINE 512        /* Length of the command line */
  6892. + 
  6893. + 
  6894. + /* Forward references */
  6895. + 
  6896. + int  get_command(struct WBArg * wbarg, char buffer[], int maxlen);
  6897. + void name_of_lock(BPTR lock, char buffer[], int maxlen);
  6898. + void usage(void);
  6899. + int  add_cli(void);
  6900. + void free_cli(void);
  6901. + 
  6902. + 
  6903. + /* The version string */
  6904. + UBYTE *vers="\0$VER: wbarg 1.0 (" __DATE__ ")";
  6905. + 
  6906. + /* The (secret?) structure of path */
  6907. + 
  6908. + struct path {
  6909. +     BPTR next;
  6910. +     BPTR lock;
  6911. + };
  6912. + 
  6913. + 
  6914. + /* A combined cli-structure and BSTR:s used when KS < 39 */
  6915. + struct mycli {
  6916. +     struct CommandLineInterface cli; /* Must be the first entry in the structure! */
  6917. +     UBYTE set_name[80];
  6918. +     UBYTE command_name[80];
  6919. +     UBYTE prompt[80];
  6920. +     UBYTE command_file[80];
  6921. + };
  6922. + 
  6923. + 
  6924. + void
  6925. + main(int argc, char *argv[])
  6926. + {
  6927. +     char commandline[CMDLINE];    /* The commandline to issue */
  6928. +     char args[CMDLINE];
  6929. + 
  6930. +     struct WBStartup * argmsg;
  6931. +     struct WBArg     * wbarg;
  6932. + 
  6933. +     BPTR olddir;
  6934. +     BPTR lock;
  6935. + 
  6936. +     int found_cmd = FALSE;    /* Flag: TRUE when a COMMAND tooltype is found */
  6937. +     int created_cli = FALSE;    /* Flag: TRUE when we created our own cli-structure */
  6938. + 
  6939. +     int i;
  6940. + 
  6941. +     /* If we haven't got a Cli-structure, create one */
  6942. +     if (Cli() == NULL) {
  6943. +     if (add_cli()) {
  6944. +         created_cli = TRUE;
  6945. +     }
  6946. +     else {
  6947. +         puts("wbarg: Error while creating Cli-structure and path\n");
  6948. +     }
  6949. + 
  6950. +     }
  6951. + 
  6952. + 
  6953. +     if (argc) {
  6954. +     usage();        /* It's no point in running it from the shell */
  6955. +     }
  6956. +     else {
  6957. +     argmsg = (struct WBStartup *)argv;
  6958. +     wbarg = argmsg->sm_ArgList;
  6959. + 
  6960. +     args[0] = '\0';
  6961. + 
  6962. +     for (i=0; i<argmsg->sm_NumArgs; i++) {
  6963. + 
  6964. +         olddir = -1;
  6965. +         if ((wbarg->wa_Lock) && (*wbarg->wa_Name)) {
  6966. +         olddir = CurrentDir(wbarg->wa_Lock);
  6967. +         }
  6968. + 
  6969. +         /* Get the command to execute */
  6970. +         if (get_command(wbarg, commandline, CMDLINE)) {
  6971. +         found_cmd = TRUE;
  6972. +         }
  6973. + 
  6974. +         /* Build all the arguments */
  6975. +         if ((i>0) && *wbarg->wa_Name) {
  6976. +         if (lock = Lock(wbarg->wa_Name, ACCESS_READ)) {
  6977. +             strncat(args, " \"", CMDLINE);
  6978. +             name_of_lock(lock, args, CMDLINE);
  6979. +             strncat(args, "\"", CMDLINE);
  6980. +             UnLock(lock);
  6981. +         }
  6982. +         }
  6983. + 
  6984. +         if (olddir != -1) {
  6985. +         CurrentDir(olddir);
  6986. +         }
  6987. + 
  6988. +         wbarg++;    /* Use the next argument to the next loop iteration */
  6989. +     }
  6990. + 
  6991. +     if (found_cmd) {
  6992. +         strncat(commandline, args, CMDLINE);
  6993. +         Execute(commandline, NULL, NULL);
  6994. +     }
  6995. +     else {
  6996. +         usage();        /* No COMMAND tooltype found */
  6997. +     }
  6998. +     }
  6999. +     if (created_cli) {
  7000. +     /* ((struct Process *) FindTask(NULL))->pr_CLI = NULL; */
  7001. +     free_cli();
  7002. +     }
  7003. + }
  7004. + 
  7005. + 
  7006. + /*
  7007. +  *  FUNCTION
  7008. +  *    get_command
  7009. +  *
  7010. +  *  DESCRIPTION
  7011. +  *    Find a icon with the COMMAND tooltype set.
  7012. +  */
  7013. + 
  7014. + int
  7015. + get_command(struct WBArg * wbarg, char buffer[], int maxlen)
  7016. + {
  7017. +     struct DiskObject * dobj;
  7018. +     char ** toolarray;
  7019. +     char * s = NULL;
  7020. + 
  7021. +     if ((*wbarg->wa_Name) && (dobj = GetDiskObject(wbarg->wa_Name))) {
  7022. +     toolarray = (char **)dobj->do_ToolTypes;
  7023. + 
  7024. +     if (s = (char *)FindToolType(toolarray, "COMMAND")) {
  7025. +         s[maxlen-1] = '\0';    /* Make sure the string is nullterminated */
  7026. +         strncpy(buffer, s, maxlen-1);
  7027. +     }
  7028. +     FreeDiskObject(dobj);
  7029. +     }
  7030. +     return(s == NULL ? FALSE : TRUE);
  7031. + }
  7032. + 
  7033. + 
  7034. + /*
  7035. +  *  FUNCTION
  7036. +  *    name_of_lock
  7037. +  *
  7038. +  *  DESCRIPTION
  7039. +  *      Create the filename from the lock supplied.
  7040. +  *      NOTE: The name is ADDED to the string in the buffer.
  7041. +  */
  7042. + 
  7043. + void
  7044. + name_of_lock(BPTR lock, char buffer[], int maxlen)
  7045. + {
  7046. +     BPTR newlock;
  7047. +         /* Static to save space on the stack during recursion */
  7048. +     static __aligned struct FileInfoBlock fib; 
  7049. +     int root;
  7050. + 
  7051. +     if (newlock = ParentDir(lock)) {
  7052. +     name_of_lock(newlock, buffer, maxlen);
  7053. +     UnLock(newlock);
  7054. +     root = FALSE;
  7055. +     }
  7056. +     else {
  7057. +     root = TRUE;
  7058. +     }
  7059. + 
  7060. +     if (Examine(lock, & fib)) {
  7061. +     strncat(buffer, fib.fib_FileName, maxlen);
  7062. +     if (fib.fib_DirEntryType > 0) {
  7063. +         strncat(buffer, root ? ":" : "/", maxlen);
  7064. +     }
  7065. +     }
  7066. + }
  7067. +     
  7068. + 
  7069. + /*
  7070. +  *  FUNCTION
  7071. +  *    usage
  7072. +  *
  7073. +  *  DESCRIPTION
  7074. +  *    Write a small information text.
  7075. +  */
  7076. + 
  7077. + void
  7078. + usage(void)
  7079. + {
  7080. +     puts("WBARG  A program which converts workbench");
  7081. +     puts("       arguments to command line dito.");
  7082. +     puts("Usage: Create a project icon and set"); 
  7083. +     puts("       the tooltype named COMMAND to the");
  7084. +     puts("       command you would like to run");
  7085. +     puts("Example: COMMAND=sys:rexxc/rx someprogram");
  7086. + }
  7087. + 
  7088. + 
  7089. + /*
  7090. +  *  FUNCTION
  7091. +  *    add_cli
  7092. +  *
  7093. +  *  DESCRIPTION
  7094. +  *    Attaches a CommandLineInterface-structure to the current (WB-started)
  7095. +  *    process and copies the path from the Workbench task.
  7096. +  *
  7097. +  *    Return non-FALSE on success;
  7098. +  */
  7099. + 
  7100. + int
  7101. + add_cli()
  7102. + {
  7103. +     struct CommandLineInterface * cli = NULL;
  7104. +     struct mycli * mycli;
  7105. +     struct Process * wb;
  7106. +     BPTR p;            /* The path structure to copy from */
  7107. +     struct path * newp;        /* The new path structure */
  7108. +     BPTR * prev;
  7109. + 
  7110. +     /*
  7111. +      * Under 1.3 AllocDosObject does not exists, under <39 the DOS_CLI option is buggy 
  7112. +      */
  7113. +     if (SysBase->LibNode.lib_Version < 39) {
  7114. +     if (mycli = (struct mycli *)AllocMem(sizeof(struct mycli), MEMF_CLEAR|MEMF_PUBLIC)) {
  7115. +         cli = & mycli->cli;
  7116. +         mycli->cli.cli_FailLevel   = 10;
  7117. +         mycli->cli.cli_Background  = DOSTRUE;
  7118. +         mycli->cli.cli_SetName     = MKBADDR(& mycli->set_name);
  7119. +         mycli->cli.cli_CommandName = MKBADDR(& mycli->command_name);
  7120. +         mycli->cli.cli_Prompt      = MKBADDR(& mycli->prompt);
  7121. +         mycli->cli.cli_CommandFile = MKBADDR(& mycli->command_file);
  7122. +     }
  7123. +     }
  7124. +     else {
  7125. +     cli = (struct CommandLineInterface *)AllocDosObjectTags(DOS_CLI, TAG_DONE);
  7126. +     }
  7127. +     if (cli) {
  7128. +     cli->cli_DefaultStack = 4096;
  7129. +     ((struct Process *) FindTask(NULL))->pr_CLI = MKBADDR(cli);
  7130. + 
  7131. +     if (wb = (struct Process *)FindTask("Workbench")) {
  7132. +         prev = & cli->cli_CommandDir;
  7133. +     
  7134. +         p = ((struct CommandLineInterface *)BADDR(wb->pr_CLI))->cli_CommandDir;
  7135. +         while(p){
  7136. +         if (newp = AllocMem(sizeof(struct path), MEMF_PUBLIC)) {
  7137. +             newp->lock = DupLock(((struct path *)BADDR(p))->lock);
  7138. +         
  7139. +             * prev = MKBADDR(newp);
  7140. +             prev = & newp->next;
  7141. +         }
  7142. +         else {
  7143. +             * prev = NULL;
  7144. +             free_cli();
  7145. +             return(FALSE);
  7146. +         }
  7147. +         p = ((struct path *)BADDR(p))->next;
  7148. +         }
  7149. +         * prev = NULL;    /* Terminate the linked list */
  7150. +     }
  7151. +         return(TRUE);        /* OK */
  7152. +     }
  7153. +     return(FALSE);        /* No cli structure allocated */
  7154. + }
  7155. + 
  7156. + 
  7157. + /*
  7158. +  *  FUNCTION
  7159. +  *    free_cli
  7160. +  *
  7161. +  *  DESCRIPTION
  7162. +  *    Undo the work of add_cli
  7163. +  */
  7164. + 
  7165. + void
  7166. + free_cli()
  7167. + {
  7168. +     struct CommandLineInterface * cli;
  7169. +     struct path * p;
  7170. +     struct path * p_next;
  7171. + 
  7172. +     if (cli = Cli()) {
  7173. +     p = (struct path *)BADDR(cli->cli_CommandDir);
  7174. +     cli->cli_CommandDir = NULL;
  7175. + 
  7176. +     while (p) {
  7177. +         p_next = (struct path *)BADDR(p->next);
  7178. +         if (p->lock) {
  7179. +         UnLock(p->lock);
  7180. +         }
  7181. +         FreeMem((void *)p, sizeof(struct path));
  7182. +         p = p_next;
  7183. +     }
  7184. +     if (SysBase->LibNode.lib_Version < 39) {
  7185. +         FreeMem((void *)cli, sizeof(struct mycli));
  7186. +     }
  7187. +     else {
  7188. +         FreeDosObject(DOS_CLI, (void *)cli);
  7189. +     }
  7190. + 
  7191. +     ((struct Process *) FindTask(NULL))->pr_CLI = NULL;
  7192. +     }
  7193. + }
  7194. Binary files emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/wbarg/wbarg.c.info and /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/wbarg/wbarg.c.info differ
  7195. Binary files emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/wbarg/wbarg.info and /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/wbarg/wbarg.info differ
  7196. Binary files emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/wbarg.info and /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/wbarg.info differ
  7197. Binary files emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/xsh11.lha and /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/lindgren/xsh11.lha differ
  7198. diff -rc --new-file emacs-18.59/amiga/amiga-extra/amiga/contrib/schinz/functions.el /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/schinz/functions.el
  7199. *** emacs-18.59/amiga/amiga-extra/amiga/contrib/schinz/functions.el    Thu Jan  1 00:00:00 1970
  7200. --- /gnu/src/amiga/emacs-18.59/amiga/amiga-extra/amiga/contrib/schinz/functions.el    Sat May  8 13:57:12 1993
  7201. ***************
  7202. *** 0 ****
  7203. --- 1,88 ----
  7204. + ;; Code contributed by :
  7205. + ;;   Michel Schinz     | INTERNET: Week-end: schinz@guano.alphanet.ch
  7206. + ;;   Epinettes 10a     |           Week    : schinz@di.epfl.ch
  7207. + ;;   CH-2013 COLOMBIER | FIDONET:  2:302/562 (Michel Schinz)
  7208. + 
  7209. + 
  7210. +    (defun amiga-arexx-add-lib (lib entry)
  7211. +      "Adds the specified ARexx library, with given entry point."
  7212. +      (interactive "sLibrary name: \nnOffset: ")
  7213. +      (amiga-arexx-do-command (concat "CALL ADDLIB('" lib "',0," entry ")") t))
  7214. + 
  7215. +    (defun amiga-reqtools-find-file ()
  7216. +      "Like find-file, but with RexxReqTools' file requester."
  7217. +      (interactive)
  7218. +      (amiga-arexx-add-lib "rexxreqtools.library" -30)
  7219. +      (amiga-arexx-do-command (concat "f = rtFileRequest('" default-directory
  7220. +                      "',,'Find file')\n"
  7221. +                      "IF f ~= '' THEN"
  7222. +                      "   '(find-file \"'||f||'\")'") t))
  7223. + 
  7224. +    (defun amiga-reqtools-insert-file ()
  7225. +      "Like insert-file, but with RexxReqTools' file requester."
  7226. +      (interactive)
  7227. +      (amiga-arexx-add-lib "rexxreqtools.library" -30)
  7228. +      (amiga-arexx-do-command (concat "f = rtFileRequest('" default-directory
  7229. +                      "',,'Insert file')\n"
  7230. +                      "IF f ~= '' THEN"
  7231. +                      "   '(insert-file \"'||f||'\")'") t))
  7232. + 
  7233. +    (defun amiga-reqtools-write-file ()
  7234. +      "Like write-file, but with RexxReqTools' file requester."
  7235. +      (interactive)
  7236. +      (let ((dir (file-name-directory buffer-file-name))
  7237. +        (file (file-name-nondirectory buffer-file-name)))
  7238. +        (amiga-arexx-add-lib "rexxreqtools.library" -30)
  7239. +        (amiga-arexx-do-command (concat "f = rtFileRequest('" dir "','" file
  7240. +                        "','Write file',,"
  7241. +                        "'rtfi_flags=freqf_save')\n"
  7242. +                        "IF f ~= '' THEN"
  7243. +                        "   '(write-file \"'||f||'\")'") t)))
  7244. + 
  7245. +    ;;; amiga-update-version-string
  7246. +    ;;; Michel Schinz
  7247. +    ;;; $VER: amiga_verstring.el 1.0 (7.05.1993)
  7248. + 
  7249. +    (defun amiga-update-version-string ()
  7250. +      "Create/update a version string (CBM style) on the current line.
  7251. +    If no version string is present on the current line, create a new one
  7252. +    that looks like `$VER: <buffer-name> 1.0 (<current_date>)' at the
  7253. +    point position. If a version string is already present on the current
  7254. +    line, the date is ... updated and the revision is incremented.
  7255. +    Please note that currently, no spaces are allowed in the `name' field."
  7256. +      (interactive)
  7257. +      (save-excursion
  7258. +        (let (end-of-line-pos
  7259. +          name version revision date
  7260. +          (old-point-pos (point-marker)))
  7261. +      (let* ((date-string (current-time-string))
  7262. +         (garbage (string-match
  7263. +               " \\([A-Z][a-z][a-z]\\) *\\([0-9]*\\) .* \\([0-9]*\\)$"
  7264. +               date-string))
  7265. +         (day (substring date-string (match-beginning 2) (match-end 2)))
  7266. +         (month
  7267. +          (cdr (assoc
  7268. +                (substring date-string (match-beginning 1) (match-end 1))
  7269. +                '(("Jan" . "01") ("Feb" . "02") ("Mar" . "03") ("Apr" . "04")
  7270. +              ("May" . "05") ("Jun" . "06") ("Jul" . "07") ("Aug" . "08")
  7271. +              ("Sep" . "09") ("Oct" . "10") ("Nov" . "11") ("Dec" . "12")))))
  7272. +         (year (substring date-string (match-beginning 3) (match-end 3))))
  7273. +        (setq date (concat day "." month "." year)))
  7274. +      (end-of-line)
  7275. +      (setq end-of-line-pos (point))
  7276. +      (beginning-of-line)
  7277. +      (if (search-forward "$VER: " end-of-line-pos t)
  7278. +          (let ((start-of-version-string (- (point) 6)))
  7279. +            (re-search-forward
  7280. +         " *\\([^ ]*\\) *\\([0-9]*\\)\.\\([0-9]*\\) *([0-9.]*)" end-of-line-pos t)
  7281. +            (setq name (buffer-substring (match-beginning 1) (match-end 1))
  7282. +              version (buffer-substring (match-beginning 2) (match-end 2))
  7283. +              revision (+ 1 (string-to-int
  7284. +                     (buffer-substring (match-beginning 3) (match-end 3)))))
  7285. +            (delete-region start-of-version-string (point)))
  7286. +        (progn (setq name (file-name-nondirectory (buffer-name))
  7287. +             version 1
  7288. +             revision 0)
  7289. +           (goto-char old-point-pos)))
  7290. +      (insert (concat "$VER: " name " " version "." revision " (" date ")")))))
  7291. + 
  7292. diff -rc --new-file emacs-18.59/amiga/unix/include/alloca.h /gnu/src/amiga/emacs-18.59/amiga/unix/include/alloca.h
  7293. *** emacs-18.59/amiga/unix/include/alloca.h    Thu Jan  1 00:00:00 1970
  7294. --- /gnu/src/amiga/emacs-18.59/amiga/unix/include/alloca.h    Fri Aug 27 18:18:40 1993
  7295. ***************
  7296. *** 0 ****
  7297. --- 1,8 ----
  7298. + #ifndef ALLOCA_H
  7299. + #define ALLOCA_H
  7300. + 
  7301. + #include <stddef.h>
  7302. + 
  7303. + void *alloca(size_t size);
  7304. + 
  7305. + #endif
  7306. diff -rc --new-file emacs-18.59/amiga/unix/include/amiga/ioctl.h /gnu/src/amiga/emacs-18.59/amiga/unix/include/amiga/ioctl.h
  7307. *** emacs-18.59/amiga/unix/include/amiga/ioctl.h    Thu Jan  1 00:00:00 1970
  7308. --- /gnu/src/amiga/emacs-18.59/amiga/unix/include/amiga/ioctl.h    Sat Aug  8 21:05:28 1992
  7309. ***************
  7310. *** 0 ****
  7311. --- 1,15 ----
  7312. + #ifndef _AMIGA_H
  7313. + #define _AMIGA_H
  7314. + 
  7315. + /* Amiga specific ioctl's */
  7316. + 
  7317. + #define _AMIGA_IOCTL_BASE 2048
  7318. + 
  7319. + #define _AMIGA_INTERACTIVE (_AMIGA_IOCTL_BASE + 0) /* Is file Interactive ? */
  7320. + #define _AMIGA_GET_FH (_AMIGA_IOCTL_BASE + 1) /* Get an AmigaDOS fh for file */
  7321. + #define _AMIGA_FREE_FH (_AMIGA_IOCTL_BASE + 2) /* Free a fh obtained by GET_FH */
  7322. + #define _AMIGA_TRUNCATE (_AMIGA_IOCTL_BASE + 3) /* Truncate file to given size */
  7323. + #define _AMIGA_SETPROTECTION (_AMIGA_IOCTL_BASE + 4) /* Set (amiga) protection on file */
  7324. + #define _AMIGA_DELETE_IF_ME (_AMIGA_IOCTL_BASE + 5) /* Delete myself if I am the file whose lock is passed as parameter */
  7325. + 
  7326. + #endif
  7327. diff -rc --new-file emacs-18.59/amiga/unix/include/errno.h /gnu/src/amiga/emacs-18.59/amiga/unix/include/errno.h
  7328. *** emacs-18.59/amiga/unix/include/errno.h    Thu Jan  1 00:00:00 1970
  7329. --- /gnu/src/amiga/emacs-18.59/amiga/unix/include/errno.h    Sun Jul  5 18:00:02 1992
  7330. ***************
  7331. *** 0 ****
  7332. --- 1,51 ----
  7333. + /**
  7334. + *
  7335. + * The following symbols are the error codes returned by the UNIX system
  7336. + * functions.  Typically, a UNIX function returns -1 when an error occurs,
  7337. + * and the global integer named errno contains one of these values.
  7338. + *
  7339. + */
  7340. + #define EOSERR -1    /* Operating system error */
  7341. + 
  7342. + #define EPERM 1        /* User is not owner */
  7343. + #define ENOENT 2    /* No such file or directory */
  7344. + #define ESRCH 3        /* No such process */
  7345. + #define EINTR 4        /* Interrupted system call */
  7346. + #define EIO 5        /* I/O error */
  7347. + #define ENXIO 6        /* No such device or address */
  7348. + #define E2BIG 7        /* Arg list is too long */
  7349. + #define ENOEXEC 8    /* Exec format error */
  7350. + #define EBADF 9        /* Bad file number */
  7351. + #define ECHILD 10    /* No child process */
  7352. + #define EAGAIN 11    /* No more processes allowed */
  7353. + #define ENOMEM 12    /* No memory available */
  7354. + #define EACCES 13    /* Access denied */
  7355. + #define EFAULT 14    /* Bad address */
  7356. + #define ENOTBLK 15    /* Bulk device required */
  7357. + #define EBUSY 16    /* Resource is busy */
  7358. + #define EEXIST 17    /* File already exists */
  7359. + #define EXDEV 18    /* Cross-device link */
  7360. + #define ENODEV 19    /* No such device */
  7361. + #define ENOTDIR 20    /* Not a directory */
  7362. + #define EISDIR 21    /* Is a directory */
  7363. + #define EINVAL 22    /* Invalid argument */
  7364. + #define ENFILE 23    /* No more files (units) allowed */
  7365. + #define EMFILE 24    /* No more files (units) allowed for this process */
  7366. + #define ENOTTY 25    /* Not a terminal */
  7367. + #define ETXTBSY 26    /* Text file is busy */
  7368. + #define EFBIG 27    /* File is too large */
  7369. + #define ENOSPC 28    /* No space left */
  7370. + #define ESPIPE 29    /* Seek issued to pipe */
  7371. + #define EROFS 30    /* Read-only file system */
  7372. + #define EMLINK 31    /* Too many links */
  7373. + #define EPIPE 32    /* Broken pipe */
  7374. + #define EDOM 33        /* Math function argument error */
  7375. + #define ERANGE 34    /* Math function result is out of range */
  7376. + #define EWOULDBLOCK 35    /* Operation would block */
  7377. + #define ENAMETOOLONG 36 /* File name is too long */
  7378. + #define ENOTEMPTY 37    /* Directory is not empty */
  7379. + #define ELOOP 38    /* Too many soft links found */
  7380. + 
  7381. + extern int errno, _OSERR;
  7382. + extern int sys_nerr;
  7383. + extern char *sys_errlist[];
  7384. diff -rc --new-file emacs-18.59/amiga/unix/include/fcntl.h /gnu/src/amiga/emacs-18.59/amiga/unix/include/fcntl.h
  7385. *** emacs-18.59/amiga/unix/include/fcntl.h    Thu Jan  1 00:00:00 1970
  7386. --- /gnu/src/amiga/emacs-18.59/amiga/unix/include/fcntl.h    Thu Jul  9 22:05:10 1992
  7387. ***************
  7388. *** 0 ****
  7389. --- 1 ----
  7390. + #include <sys/fcntl.h>
  7391. diff -rc --new-file emacs-18.59/amiga/unix/include/grp.h /gnu/src/amiga/emacs-18.59/amiga/unix/include/grp.h
  7392. *** emacs-18.59/amiga/unix/include/grp.h    Thu Jan  1 00:00:00 1970
  7393. --- /gnu/src/amiga/emacs-18.59/amiga/unix/include/grp.h    Wed Jul  8 21:23:48 1992
  7394. ***************
  7395. *** 0 ****
  7396. --- 1,12 ----
  7397. + #ifndef _GRP_H
  7398. + #define _GRP_H
  7399. + 
  7400. + struct group {
  7401. +   char *gr_name;        /* name of the group */
  7402. +   char *gr_passwd;        /* encrypted password of the group */
  7403. +   gid_t gr_gid;            /* numerical group ID */
  7404. +   char **gr_mem;        /* null-terminated array of pointers to the
  7405. +                    individual member names */
  7406. + };
  7407. + 
  7408. + #endif
  7409. diff -rc --new-file emacs-18.59/amiga/unix/include/internal/devices.h /gnu/src/amiga/emacs-18.59/amiga/unix/include/internal/devices.h
  7410. *** emacs-18.59/amiga/unix/include/internal/devices.h    Thu Jan  1 00:00:00 1970
  7411. --- /gnu/src/amiga/emacs-18.59/amiga/unix/include/internal/devices.h    Sun Aug 16 11:07:18 1992
  7412. ***************
  7413. *** 0 ****
  7414. --- 1,9 ----
  7415. + #ifndef DEVICES_H
  7416. + #define DEVICES_H
  7417. + 
  7418. + struct IORequest *_device_open(char *name, unsigned long unit, unsigned long flags,
  7419. +                    void *data, unsigned long data_len, int req_size);
  7420. + 
  7421. + void _device_close(struct IORequest *ioreq);
  7422. + 
  7423. + #endif
  7424. diff -rc --new-file emacs-18.59/amiga/unix/include/internal/files.h /gnu/src/amiga/emacs-18.59/amiga/unix/include/internal/files.h
  7425. *** emacs-18.59/amiga/unix/include/internal/files.h    Thu Jan  1 00:00:00 1970
  7426. --- /gnu/src/amiga/emacs-18.59/amiga/unix/include/internal/files.h    Sun Dec  6 13:12:24 1992
  7427. ***************
  7428. *** 0 ****
  7429. --- 1,35 ----
  7430. + #ifndef FILES_H
  7431. + #define FILES_H
  7432. + 
  7433. + struct fileinfo {
  7434. +   int flags;
  7435. +   void *userinfo;
  7436. +   unsigned long (*__regargs select_start)(void *userinfo, int rd, int wr);
  7437. +   void (*__regargs select_poll)(void *userinfo, int *rd, int *wr);
  7438. +   int (*__regargs read)(void *userinfo, void *buffer, unsigned int length);
  7439. +   int (*__regargs write)(void *userinfo, void *buffer, unsigned int length);
  7440. +   int (*__regargs lseek)(void *userinfo, long rpos, int mode);
  7441. +   int (*__regargs close)(void *userinfo, int internal);
  7442. +   int (*__regargs ioctl)(void *userinfo, int request, void *data);
  7443. + };
  7444. + 
  7445. + /* FI_READ & WRITE replace O_RDONLY, WRONLY & RDWR. Other flags are left untouched */
  7446. + #define FI_READ 1
  7447. + #define FI_WRITE 2
  7448. + 
  7449. + int _alloc_fd(void *userinfo, int flags,
  7450. +   unsigned long (*__regargs select_start)(void *userinfo, int rd, int wr),
  7451. +   void (*__regargs select_poll)(void *userinfo, int *rd, int *wr),
  7452. +   int (*__regargs read)(void *userinfo, void *buffer, unsigned int length),
  7453. +   int (*__regargs write)(void *userinfo, void *buffer, unsigned int length),
  7454. +   int (*__regargs lseek)(void *userinfo, long rpos, int mode),
  7455. +   int (*__regargs close)(void *userinfo, int internal),
  7456. +   int (*__regargs ioctl)(void *userinfo, int request, void *data)
  7457. + );
  7458. + 
  7459. + void _free_fd(int fd);
  7460. + 
  7461. + struct fileinfo *_find_fd(int fd);
  7462. + int _last_fd(void);
  7463. + 
  7464. + #endif
  7465. diff -rc --new-file emacs-18.59/amiga/unix/include/internal/messages.h /gnu/src/amiga/emacs-18.59/amiga/unix/include/internal/messages.h
  7466. *** emacs-18.59/amiga/unix/include/internal/messages.h    Thu Jan  1 00:00:00 1970
  7467. --- /gnu/src/amiga/emacs-18.59/amiga/unix/include/internal/messages.h    Sun Aug 16 12:43:04 1992
  7468. ***************
  7469. *** 0 ****
  7470. --- 1,9 ----
  7471. + void _message(char *format, ...);
  7472. + /* Display a message which is as visible as possible (either to the console
  7473. +    or to a requester).
  7474. +    Assume very little about library state */
  7475. + void _fail(char *format, ...);
  7476. + /* Display a message which is as visible as possible (either to the console
  7477. +    or to a requester).
  7478. +    Assume very little about library state.
  7479. +    Exit with error code RETURN_FAIL after that. */
  7480. diff -rc --new-file emacs-18.59/amiga/unix/include/internal/timers.h /gnu/src/amiga/emacs-18.59/amiga/unix/include/internal/timers.h
  7481. *** emacs-18.59/amiga/unix/include/internal/timers.h    Thu Jan  1 00:00:00 1970
  7482. --- /gnu/src/amiga/emacs-18.59/amiga/unix/include/internal/timers.h    Sun Jul 19 17:47:02 1992
  7483. ***************
  7484. *** 0 ****
  7485. --- 1,20 ----
  7486. + #ifndef TIMERS_H
  7487. + #define TIMERS_H
  7488. + 
  7489. + struct timeinfo {
  7490. +   struct timerequest *io;
  7491. +   int sent;
  7492. + };
  7493. + 
  7494. + struct timeinfo *_alloc_timer(void);
  7495. + void _free_timer(struct timeinfo *timer);
  7496. + void _timer_abort(struct timeinfo *timer);
  7497. + ULONG _timer_sig(struct timeinfo *timer);
  7498. + 
  7499. + void _timer_start(struct timeinfo *timer, int secs, int micros);
  7500. + /* _timer_start(timer, 0) stops a timer */
  7501. + 
  7502. + int _timer_expired(struct timeinfo *timer);
  7503. + /* A non-started timer is defined to not have expired */
  7504. + 
  7505. + #endif
  7506. diff -rc --new-file emacs-18.59/amiga/unix/include/internal/vars.h /gnu/src/amiga/emacs-18.59/amiga/unix/include/internal/vars.h
  7507. *** emacs-18.59/amiga/unix/include/internal/vars.h    Thu Jan  1 00:00:00 1970
  7508. --- /gnu/src/amiga/emacs-18.59/amiga/unix/include/internal/vars.h    Sun Aug 16 10:58:12 1992
  7509. ***************
  7510. *** 0 ****
  7511. --- 1,11 ----
  7512. + #ifndef VARS_H
  7513. + #define VARS_H
  7514. + 
  7515. + /* <_us, _startup_time> should be a pretty good unique identifier of
  7516. +    this process */
  7517. + extern struct Process *_us;
  7518. + extern long _stack_size;
  7519. + extern long _startup_time;
  7520. + extern int use_amiga_flags;
  7521. + 
  7522. + #endif
  7523. diff -rc --new-file emacs-18.59/amiga/unix/include/pwd.h /gnu/src/amiga/emacs-18.59/amiga/unix/include/pwd.h
  7524. *** emacs-18.59/amiga/unix/include/pwd.h    Thu Jan  1 00:00:00 1970
  7525. --- /gnu/src/amiga/emacs-18.59/amiga/unix/include/pwd.h    Wed Jul  8 20:19:36 1992
  7526. ***************
  7527. *** 0 ****
  7528. --- 1,19 ----
  7529. + #ifndef _PWD_H
  7530. + #define _PWD_H
  7531. + 
  7532. + struct    passwd {
  7533. +   char *pw_name;
  7534. +   char *pw_passwd;
  7535. +   uid_t pw_uid;
  7536. +   gid_t pw_gid;
  7537. +   int  pw_quota;
  7538. +   char *pw_comment;
  7539. +   char *pw_gecos;
  7540. +   char *pw_dir;
  7541. +   char *pw_shell;
  7542. + };
  7543. + 
  7544. + struct passwd *getpwuid(uid_t uid);
  7545. + struct passwd *getpwnam(char *name);
  7546. + 
  7547. + #endif
  7548. diff -rc --new-file emacs-18.59/amiga/unix/include/setjmp.h /gnu/src/amiga/emacs-18.59/amiga/unix/include/setjmp.h
  7549. *** emacs-18.59/amiga/unix/include/setjmp.h    Thu Jan  1 00:00:00 1970
  7550. --- /gnu/src/amiga/emacs-18.59/amiga/unix/include/setjmp.h    Sun Aug 16 11:57:38 1992
  7551. ***************
  7552. *** 0 ****
  7553. --- 1,55 ----
  7554. + /*-
  7555. +  * Copyright (c) 1990 The Regents of the University of California.
  7556. +  * All rights reserved.
  7557. +  *
  7558. +  * Redistribution and use in source and binary forms, with or without
  7559. +  * modification, are permitted provided that the following conditions
  7560. +  * are met:
  7561. +  * 1. Redistributions of source code must retain the above copyright
  7562. +  *    notice, this list of conditions and the following disclaimer.
  7563. +  * 2. Redistributions in binary form must reproduce the above copyright
  7564. +  *    notice, this list of conditions and the following disclaimer in the
  7565. +  *    documentation and/or other materials provided with the distribution.
  7566. +  * 3. All advertising materials mentioning features or use of this software
  7567. +  *    must display the following acknowledgement:
  7568. +  *    This product includes software developed by the University of
  7569. +  *    California, Berkeley and its contributors.
  7570. +  * 4. Neither the name of the University nor the names of its contributors
  7571. +  *    may be used to endorse or promote products derived from this software
  7572. +  *    without specific prior written permission.
  7573. +  *
  7574. +  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  7575. +  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  7576. +  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  7577. +  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  7578. +  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  7579. +  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  7580. +  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  7581. +  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  7582. +  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  7583. +  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  7584. +  * SUCH DAMAGE.
  7585. +  *
  7586. +  *    @(#)setjmp.h    5.5 (Berkeley) 6/8/91
  7587. +  */
  7588. + 
  7589. + #ifndef _SETJMP_H_
  7590. + #define _SETJMP_H_
  7591. + 
  7592. + #define _JBLEN 14
  7593. + 
  7594. + typedef int jmp_buf[_JBLEN];
  7595. + 
  7596. + #include <sys/cdefs.h>
  7597. + 
  7598. + __BEGIN_DECLS
  7599. + int    setjmp __P((jmp_buf));
  7600. + void    longjmp __P((jmp_buf, int));
  7601. + 
  7602. + #if !defined(_ANSI_SOURCE) && !defined(_POSIX_SOURCE)
  7603. + int    _setjmp __P((jmp_buf));
  7604. + void    _longjmp __P((jmp_buf, int));
  7605. + #endif /* neither ANSI nor POSIX */
  7606. + __END_DECLS
  7607. + 
  7608. + #endif /* !_SETJMP_H_ */
  7609. diff -rc --new-file emacs-18.59/amiga/unix/include/signal.h /gnu/src/amiga/emacs-18.59/amiga/unix/include/signal.h
  7610. *** emacs-18.59/amiga/unix/include/signal.h    Thu Jan  1 00:00:00 1970
  7611. --- /gnu/src/amiga/emacs-18.59/amiga/unix/include/signal.h    Sun Oct 18 20:03:30 1992
  7612. ***************
  7613. *** 0 ****
  7614. --- 1,59 ----
  7615. + #ifndef _SIGNAL_H
  7616. + #define _SIGNAL_H
  7617. + 
  7618. + #define NSIG 32            /* We define lots of signals (though most are never
  7619. +                    generated) */
  7620. + 
  7621. + /* Signal number definitions */
  7622. + /* Those which can be generated other than by kill are described with
  7623. +     <name>, amiga: <cause> */
  7624. +    
  7625. + 
  7626. + #define SIGHUP 1        /* hangup */
  7627. + #define SIGINT 2        /* interrupt, amiga: ctrl-c */
  7628. + #define SIGQUIT 3        /* quit, amiga: ctrl-d */
  7629. + #define SIGILL 4        /* illegal instruction */
  7630. + #define SIGTRAP 5        /* trace trap */
  7631. + #define SIGIOT 6        /* abort, amiga: abort() called */
  7632. + #define SIGEMT 7        /* emulator trap */
  7633. + #define SIGFPE 8        /* arithmetic exception, amiga: arith op */
  7634. + #define SIGKILL 9        /* kill */
  7635. + #define SIGBUS 10        /* bus error */
  7636. + #define SIGSEGV 11        /* segmentation violation */
  7637. + #define SIGSYS 12        /* bad argument to system call */
  7638. + #define SIGPIPE 13        /* write on pipe or socket with no reader,
  7639. +                    amiga: generated for 'pipe's or 'sktpair's */
  7640. + #define SIGALRM 14        /* alarm clock, amiga: see alarm */
  7641. + #define SIGTERM 15        /* software termination */
  7642. + #define SIGURG 16        /* urgent condition on socket */
  7643. + /* SIGSTOP, SIGTSTP, SIGCONT, SIGTTIN, SIGTTOU undefined to avoid creating the
  7644. +    belief that we support stopped processes */
  7645. + #define SIGCHLD 20        /* child status has changed */
  7646. + #define SIGIO 23        /* I/O possible on a descriptor */
  7647. + /* Less usual signals: SIGXCPU, SIGXFSZ, SIGVTALARM, SIGPROF, SIGLOST not defined */
  7648. + #define SIGWINCH 28        /* window changed */
  7649. + #define SIGUSR1 30        /* user-defined signal 1 */
  7650. + #define SIGUSR2 31        /* user-defined signal 2 */
  7651. + 
  7652. + #define SIG_IGN (void *)0
  7653. + #define SIG_DFL (void *)1
  7654. + 
  7655. + struct sigvec {
  7656. +   void (*sv_handler)();
  7657. +   long sv_mask;
  7658. +   /*int sv_flags;*/ /* Not implemented */
  7659. + };
  7660. + 
  7661. + void (*signal(int sig,void (*fn)(int)))(int);
  7662. + int sigvec(int sig, struct sigvec *vec, struct sigvec *ovec);
  7663. + long sigsetmask(long mask);
  7664. + long sigblock(long mask);
  7665. + 
  7666. + #define sigmask(s) (1 << (s))
  7667. + 
  7668. + /* Only kill(getpid(), sig) works */
  7669. + /* Also, getpid() is a unique number for this process */
  7670. + int getpid(void);
  7671. + int kill(int pid, int sig);
  7672. + 
  7673. + #endif
  7674. diff -rc --new-file emacs-18.59/amiga/unix/include/stat.h /gnu/src/amiga/emacs-18.59/amiga/unix/include/stat.h
  7675. *** emacs-18.59/amiga/unix/include/stat.h    Thu Jan  1 00:00:00 1970
  7676. --- /gnu/src/amiga/emacs-18.59/amiga/unix/include/stat.h    Fri Dec  4 20:34:06 1992
  7677. ***************
  7678. *** 0 ****
  7679. --- 1 ----
  7680. + #include <sys/stat.h>
  7681. diff -rc --new-file emacs-18.59/amiga/unix/include/stdio.h /gnu/src/amiga/emacs-18.59/amiga/unix/include/stdio.h
  7682. *** emacs-18.59/amiga/unix/include/stdio.h    Thu Jan  1 00:00:00 1970
  7683. --- /gnu/src/amiga/emacs-18.59/amiga/unix/include/stdio.h    Fri Dec  4 22:35:48 1992
  7684. ***************
  7685. *** 0 ****
  7686. --- 1,7 ----
  7687. + /* Avoid problems with conflicting declarations for mkdir */
  7688. + #define mkdir __fake_mkdir
  7689. + #include "include:stdio.h"
  7690. + 
  7691. + #define P_tmpdir "t:"
  7692. + 
  7693. + #undef mkdir
  7694. diff -rc --new-file emacs-18.59/amiga/unix/include/stdlib.h /gnu/src/amiga/emacs-18.59/amiga/unix/include/stdlib.h
  7695. *** emacs-18.59/amiga/unix/include/stdlib.h    Thu Jan  1 00:00:00 1970
  7696. --- /gnu/src/amiga/emacs-18.59/amiga/unix/include/stdlib.h    Sat Sep 26 14:17:40 1992
  7697. ***************
  7698. *** 0 ****
  7699. --- 1,4 ----
  7700. + /* Avoid problems with conflicting declarations for mkdir */
  7701. + #define mkdir __fake_mkdir
  7702. + #include "include:stdlib.h"
  7703. + #undef mkdir
  7704. diff -rc --new-file emacs-18.59/amiga/unix/include/strings.h /gnu/src/amiga/emacs-18.59/amiga/unix/include/strings.h
  7705. *** emacs-18.59/amiga/unix/include/strings.h    Thu Jan  1 00:00:00 1970
  7706. --- /gnu/src/amiga/emacs-18.59/amiga/unix/include/strings.h    Sat Aug  1 11:48:24 1992
  7707. ***************
  7708. *** 0 ****
  7709. --- 1 ----
  7710. + #include <string.h>
  7711. diff -rc --new-file emacs-18.59/amiga/unix/include/sys/cdefs.h /gnu/src/amiga/emacs-18.59/amiga/unix/include/sys/cdefs.h
  7712. *** emacs-18.59/amiga/unix/include/sys/cdefs.h    Thu Jan  1 00:00:00 1970
  7713. --- /gnu/src/amiga/emacs-18.59/amiga/unix/include/sys/cdefs.h    Thu Jul  9 22:02:46 1992
  7714. ***************
  7715. *** 0 ****
  7716. --- 1,78 ----
  7717. + /*
  7718. +  * Copyright (c) 1991 The Regents of the University of California.
  7719. +  * All rights reserved.
  7720. +  *
  7721. +  * Redistribution and use in source and binary forms, with or without
  7722. +  * modification, are permitted provided that the following conditions
  7723. +  * are met:
  7724. +  * 1. Redistributions of source code must retain the above copyright
  7725. +  *    notice, this list of conditions and the following disclaimer.
  7726. +  * 2. Redistributions in binary form must reproduce the above copyright
  7727. +  *    notice, this list of conditions and the following disclaimer in the
  7728. +  *    documentation and/or other materials provided with the distribution.
  7729. +  * 3. All advertising materials mentioning features or use of this software
  7730. +  *    must display the following acknowledgement:
  7731. +  *    This product includes software developed by the University of
  7732. +  *    California, Berkeley and its contributors.
  7733. +  * 4. Neither the name of the University nor the names of its contributors
  7734. +  *    may be used to endorse or promote products derived from this software
  7735. +  *    without specific prior written permission.
  7736. +  *
  7737. +  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  7738. +  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  7739. +  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  7740. +  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  7741. +  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  7742. +  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  7743. +  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  7744. +  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  7745. +  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  7746. +  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  7747. +  * SUCH DAMAGE.
  7748. +  *
  7749. +  *    @(#)cdefs.h    7.6 (Berkeley) 5/4/91
  7750. +  */
  7751. + 
  7752. + #ifndef    _CDEFS_H_
  7753. + #define    _CDEFS_H_
  7754. + 
  7755. + #if defined(__cplusplus)
  7756. + #define    __BEGIN_DECLS    extern "C" {
  7757. + #define    __END_DECLS    };
  7758. + #else
  7759. + #define    __BEGIN_DECLS
  7760. + #define    __END_DECLS
  7761. + #endif
  7762. + 
  7763. + /*
  7764. +  * The __CONCAT macro is used to concatenate parts of symbol names, e.g.
  7765. +  * with "#define OLD(foo) __CONCAT(old,foo)", OLD(foo) produces oldfoo.
  7766. +  * The __CONCAT macro is a bit tricky -- make sure you don't put spaces
  7767. +  * in between its arguments.  __CONCAT can also concatenate double-quoted
  7768. +  * strings produced by the __STRING macro, but this only works with ANSI C.
  7769. +  */
  7770. + #if defined(__STDC__) || defined(__cplusplus)
  7771. + #define    __P(protos)    protos        /* full-blown ANSI C */
  7772. + #define    __CONCAT(x,y)    x ## y
  7773. + #define    __STRING(x)    #x
  7774. + 
  7775. + #else    /* !(__STDC__ || __cplusplus) */
  7776. + #define    __P(protos)    ()        /* traditional C preprocessor */
  7777. + #define    __CONCAT(x,y)    x/**/y
  7778. + #define    __STRING(x)    "x"
  7779. + 
  7780. + #ifdef __GNUC__
  7781. + #define    const        __const        /* GCC: ANSI C with -traditional */
  7782. + #define    inline        __inline
  7783. + #define    signed        __signed
  7784. + #define    volatile    __volatile
  7785. + 
  7786. + #else    /* !__GNUC__ */
  7787. + #define    const                /* delete ANSI C keywords */
  7788. + #define    inline
  7789. + #define    signed
  7790. + #define    volatile
  7791. + #endif    /* !__GNUC__ */
  7792. + #endif    /* !(__STDC__ || __cplusplus) */
  7793. + 
  7794. + #endif /* !_CDEFS_H_ */
  7795. diff -rc --new-file emacs-18.59/amiga/unix/include/sys/fcntl.h /gnu/src/amiga/emacs-18.59/amiga/unix/include/sys/fcntl.h
  7796. *** emacs-18.59/amiga/unix/include/sys/fcntl.h    Thu Jan  1 00:00:00 1970
  7797. --- /gnu/src/amiga/emacs-18.59/amiga/unix/include/sys/fcntl.h    Sat Aug  9 09:22:26 2008
  7798. ***************
  7799. *** 0 ****
  7800. --- 1,193 ----
  7801. + /*-
  7802. +  * Copyright (c) 1983, 1990 The Regents of the University of California.
  7803. +  * All rights reserved.
  7804. +  *
  7805. +  * Redistribution and use in source and binary forms, with or without
  7806. +  * modification, are permitted provided that the following conditions
  7807. +  * are met:
  7808. +  * 1. Redistributions of source code must retain the above copyright
  7809. +  *    notice, this list of conditions and the following disclaimer.
  7810. +  * 2. Redistributions in binary form must reproduce the above copyright
  7811. +  *    notice, this list of conditions and the following disclaimer in the
  7812. +  *    documentation and/or other materials provided with the distribution.
  7813. +  * 3. All advertising materials mentioning features or use of this software
  7814. +  *    must display the following acknowledgement:
  7815. +  *    This product includes software developed by the University of
  7816. +  *    California, Berkeley and its contributors.
  7817. +  * 4. Neither the name of the University nor the names of its contributors
  7818. +  *    may be used to endorse or promote products derived from this software
  7819. +  *    without specific prior written permission.
  7820. +  *
  7821. +  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  7822. +  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  7823. +  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  7824. +  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  7825. +  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  7826. +  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  7827. +  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  7828. +  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  7829. +  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  7830. +  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  7831. +  * SUCH DAMAGE.
  7832. +  *
  7833. +  *    @(#)fcntl.h    5.14 (Berkeley) 7/1/91
  7834. +  */
  7835. + 
  7836. + #ifndef _FCNTL_H_
  7837. + #define    _FCNTL_H_
  7838. + 
  7839. + /*
  7840. +  * This file includes the definitions for open and fcntl
  7841. +  * described by POSIX for <fcntl.h>; it also includes
  7842. +  * related kernel definitions.
  7843. +  */
  7844. + 
  7845. + #ifndef KERNEL
  7846. + #include <sys/types.h>
  7847. + #endif
  7848. + 
  7849. + /*
  7850. +  * File status flags: these are used by open(2), fcntl(2).
  7851. +  * They are also used (indirectly) in the kernel file structure f_flags,
  7852. +  * which is a superset of the open/fcntl flags.  Open flags and f_flags
  7853. +  * are inter-convertible using OFLAGS(fflags) and FFLAGS(oflags).
  7854. +  * Open/fcntl flags begin with O_; kernel-internal flags begin with F.
  7855. +  */
  7856. + /* open-only flags */
  7857. + #define    O_RDONLY    0x0000        /* open for reading only */
  7858. + #define    O_WRONLY    0x0001        /* open for writing only */
  7859. + #define    O_RDWR        0x0002        /* open for reading and writing */
  7860. + #define    O_ACCMODE    0x0003        /* mask for above modes */
  7861. + 
  7862. + #ifdef KERNEL
  7863. + /*
  7864. +  * Kernel encoding of open mode; separate read and write bits
  7865. +  * that are independently testable: 1 greater than the above.
  7866. +  */
  7867. + #define    FREAD        0x0001
  7868. + #define    FWRITE        0x0002
  7869. + #endif
  7870. + #define    O_NONBLOCK    0x0004        /* no delay */
  7871. + #define    O_APPEND    0x0008        /* set append mode */
  7872. + #ifndef _POSIX_SOURCE
  7873. + #define    O_SHLOCK    0x0010        /* open with shared file lock */
  7874. + #define    O_EXLOCK    0x0020        /* open with exclusive file lock */
  7875. + #define    O_ASYNC        0x0040        /* signal pgrp when data ready */
  7876. + #define    O_FSYNC        0x0080        /* synchronous writes */
  7877. + #endif
  7878. + #define    O_CREAT        0x0100        /* create if nonexistant */
  7879. + #define    O_TRUNC        0x0200        /* truncate to zero length */
  7880. + #define    O_EXCL        0x0400        /* error if already exists */
  7881. + #ifdef KERNEL
  7882. + #define    FMARK        0x1000        /* mark during gc() */
  7883. + #define    FDEFER        0x2000        /* defer for next gc pass */
  7884. + #define    FHASLOCK    0x4000        /* descriptor holds advisory lock */
  7885. + #endif
  7886. + 
  7887. + /* defined by POSIX 1003.1; BSD default, so no bit required */
  7888. + #define    O_NOCTTY    0        /* don't assign controlling terminal */
  7889. + 
  7890. + #ifdef KERNEL
  7891. + /* convert from open() flags to/from fflags; convert O_RD/WR to FREAD/FWRITE */
  7892. + #define    FFLAGS(oflags)    ((oflags) + 1)
  7893. + #define    OFLAGS(fflags)    ((fflags) - 1)
  7894. + 
  7895. + /* bits to save after open */
  7896. + #define    FMASK        (FREAD|FWRITE|FAPPEND|FASYNC|FFSYNC|FNONBLOCK)
  7897. + /* bits settable by fcntl(F_SETFL, ...) */
  7898. + #define    FCNTLFLAGS    (FAPPEND|FASYNC|FFSYNC|FNONBLOCK)
  7899. + #endif
  7900. + 
  7901. + /*
  7902. +  * The O_* flags used to have only F* names, which were used in the kernel
  7903. +  * and by fcntl.  We retain the F* names for the kernel f_flags field
  7904. +  * and for backward compatibility for fcntl.
  7905. +  */
  7906. + #ifndef _POSIX_SOURCE
  7907. + #define    FAPPEND        O_APPEND    /* kernel/compat */
  7908. + #define    FASYNC        O_ASYNC        /* kernel/compat */
  7909. + #define    FFSYNC        O_FSYNC        /* kernel */
  7910. + #define    FNONBLOCK    O_NONBLOCK    /* kernel */
  7911. + #define    FNDELAY        O_NONBLOCK    /* compat */
  7912. + #define    O_NDELAY    O_NONBLOCK    /* compat */
  7913. + #endif
  7914. + 
  7915. + /*
  7916. +  * Constants used for fcntl(2)
  7917. +  */
  7918. + 
  7919. + /* command values */
  7920. + #define    F_DUPFD        0        /* duplicate file descriptor */
  7921. + #define    F_GETFD        1        /* get file descriptor flags */
  7922. + #define    F_SETFD        2        /* set file descriptor flags */
  7923. + #define    F_GETFL        3        /* get file status flags */
  7924. + #define    F_SETFL        4        /* set file status flags */
  7925. + #ifndef _POSIX_SOURCE
  7926. + #define    F_GETOWN    5        /* get SIGIO/SIGURG proc/pgrp */
  7927. + #define F_SETOWN    6        /* set SIGIO/SIGURG proc/pgrp */
  7928. + #endif
  7929. + #define    F_GETLK        7        /* get record locking information */
  7930. + #define    F_SETLK        8        /* set record locking information */
  7931. + #define    F_SETLKW    9        /* F_SETLK; wait if blocked */
  7932. + 
  7933. + /* file descriptor flags (F_GETFD, F_SETFD) */
  7934. + #define    FD_CLOEXEC    1        /* close-on-exec flag */
  7935. + 
  7936. + /* record locking flags (F_GETLK, F_SETLK, F_SETLKW) */
  7937. + #define    F_RDLCK        1        /* shared or read lock */
  7938. + #define    F_UNLCK        2        /* unlock */
  7939. + #define    F_WRLCK        3        /* exclusive or write lock */
  7940. + #ifdef KERNEL
  7941. + #define    F_WAIT        0x010        /* Wait until lock is granted */
  7942. + #define    F_FLOCK        0x020         /* Use flock(2) semantics for lock */
  7943. + #define    F_POSIX        0x040         /* Use POSIX semantics for lock */
  7944. + #endif
  7945. + 
  7946. + /*
  7947. +  * Advisory file segment locking data type -
  7948. +  * information passed to system by user
  7949. +  */
  7950. + struct flock {
  7951. +     short    l_type;        /* lock type: read/write, etc. */
  7952. +     short    l_whence;    /* type of l_start */
  7953. +     off_t    l_start;    /* starting offset */
  7954. +     off_t    l_len;        /* len = 0 means until end of file */
  7955. +     pid_t    l_pid;        /* lock owner */
  7956. + };
  7957. + 
  7958. + 
  7959. + #ifndef _POSIX_SOURCE
  7960. + /* lock operations for flock(2) */
  7961. + #define    LOCK_SH        0x01        /* shared file lock */
  7962. + #define    LOCK_EX        0x02        /* exclusive file lock */
  7963. + #define    LOCK_NB        0x04        /* don't block when locking */
  7964. + #define    LOCK_UN        0x08        /* unlock file */
  7965. + #endif
  7966. + 
  7967. + 
  7968. + #ifndef KERNEL
  7969. + #include <sys/cdefs.h>
  7970. + 
  7971. + __BEGIN_DECLS
  7972. + int    open __P((const char *, int, ...));
  7973. + int    creat __P((const char *, mode_t));
  7974. + int    fcntl __P((int, int, ...));
  7975. + #ifndef _POSIX_SOURCE
  7976. + int    flock __P((int, int));
  7977. + #endif /* !_POSIX_SOURCE */
  7978. + __END_DECLS
  7979. + #endif
  7980. + 
  7981. + #ifdef AMIGA
  7982. + #define O_NO_CLOSE 0x100    /* An available value, means don't close
  7983. +                    underlying resource */
  7984. + /* Note: S_ISVTX (sticky) is mapped to the pure bit.
  7985. +          The amiga script bit is mapped to world execute ...
  7986. +      user S_IWRITE is the and of the amiga write & delete bits.
  7987. +      group S_IWRITE is the amiga write bit.
  7988. +      world S_IWRITE is the amiga delete bit.
  7989. +      We always set the archive bit off.
  7990. + */
  7991. + #endif
  7992. + 
  7993. + #endif /* !_FCNTL_H_ */
  7994. diff -rc --new-file emacs-18.59/amiga/unix/include/sys/file.h /gnu/src/amiga/emacs-18.59/amiga/unix/include/sys/file.h
  7995. *** emacs-18.59/amiga/unix/include/sys/file.h    Thu Jan  1 00:00:00 1970
  7996. --- /gnu/src/amiga/emacs-18.59/amiga/unix/include/sys/file.h    Thu Aug 13 21:26:00 1992
  7997. ***************
  7998. *** 0 ****
  7999. --- 1,2 ----
  8000. + #include <fcntl.h>
  8001. + #include <sys/unistd.h>
  8002. diff -rc --new-file emacs-18.59/amiga/unix/include/sys/filio.h /gnu/src/amiga/emacs-18.59/amiga/unix/include/sys/filio.h
  8003. *** emacs-18.59/amiga/unix/include/sys/filio.h    Thu Jan  1 00:00:00 1970
  8004. --- /gnu/src/amiga/emacs-18.59/amiga/unix/include/sys/filio.h    Sun Jul  5 14:26:20 1992
  8005. ***************
  8006. *** 0 ****
  8007. --- 1,3 ----
  8008. + #define FIONBIO 0        /* ioctl to change non blocking mode
  8009. +                    data (an int *) is a pointer a boolean,
  8010. +                    TRUE for non-blocking io */
  8011. diff -rc --new-file emacs-18.59/amiga/unix/include/sys/ioctl.h /gnu/src/amiga/emacs-18.59/amiga/unix/include/sys/ioctl.h
  8012. *** emacs-18.59/amiga/unix/include/sys/ioctl.h    Thu Jan  1 00:00:00 1970
  8013. --- /gnu/src/amiga/emacs-18.59/amiga/unix/include/sys/ioctl.h    Tue Jul  7 20:44:40 1992
  8014. ***************
  8015. *** 0 ****
  8016. --- 1 ----
  8017. + #include <sys/termios.h>
  8018. diff -rc --new-file emacs-18.59/amiga/unix/include/sys/param.h /gnu/src/amiga/emacs-18.59/amiga/unix/include/sys/param.h
  8019. *** emacs-18.59/amiga/unix/include/sys/param.h    Thu Jan  1 00:00:00 1970
  8020. --- /gnu/src/amiga/emacs-18.59/amiga/unix/include/sys/param.h    Fri Dec  4 22:38:06 1992
  8021. ***************
  8022. *** 0 ****
  8023. --- 1,11 ----
  8024. + #ifndef _PARAM_H
  8025. + #define _PARAM_H
  8026. + 
  8027. + #define MAXPATHLEN 1024
  8028. + #define DEV_BSIZE 512
  8029. + 
  8030. + #ifndef NULL
  8031. + #define NULL (0)
  8032. + #endif
  8033. + 
  8034. + #endif
  8035. diff -rc --new-file emacs-18.59/amiga/unix/include/sys/socket.h /gnu/src/amiga/emacs-18.59/amiga/unix/include/sys/socket.h
  8036. *** emacs-18.59/amiga/unix/include/sys/socket.h    Thu Jan  1 00:00:00 1970
  8037. --- /gnu/src/amiga/emacs-18.59/amiga/unix/include/sys/socket.h    Sat Jul  4 14:31:08 1992
  8038. ***************
  8039. *** 0 ****
  8040. --- 1,4 ----
  8041. + /* Support for socket pairs only */
  8042. + 
  8043. + #define AF_UNIX 0
  8044. + #define SOCK_STREAM 0
  8045. diff -rc --new-file emacs-18.59/amiga/unix/include/sys/stat.h /gnu/src/amiga/emacs-18.59/amiga/unix/include/sys/stat.h
  8046. *** emacs-18.59/amiga/unix/include/sys/stat.h    Thu Jan  1 00:00:00 1970
  8047. --- /gnu/src/amiga/emacs-18.59/amiga/unix/include/sys/stat.h    Fri Dec  4 20:34:52 1992
  8048. ***************
  8049. *** 0 ****
  8050. --- 1,133 ----
  8051. + #ifndef _STAT_H
  8052. + #define _STAT_H
  8053. + 
  8054. + /*-
  8055. +  * Copyright (c) 1982, 1986, 1989 The Regents of the University of California.
  8056. +  * All rights reserved.
  8057. +  *
  8058. +  * Redistribution and use in source and binary forms, with or without
  8059. +  * modification, are permitted provided that the following conditions
  8060. +  * are met:
  8061. +  * 1. Redistributions of source code must retain the above copyright
  8062. +  *    notice, this list of conditions and the following disclaimer.
  8063. +  * 2. Redistributions in binary form must reproduce the above copyright
  8064. +  *    notice, this list of conditions and the following disclaimer in the
  8065. +  *    documentation and/or other materials provided with the distribution.
  8066. +  * 3. All advertising materials mentioning features or use of this software
  8067. +  *    must display the following acknowledgement:
  8068. +  *    This product includes software developed by the University of
  8069. +  *    California, Berkeley and its contributors.
  8070. +  * 4. Neither the name of the University nor the names of its contributors
  8071. +  *    may be used to endorse or promote products derived from this software
  8072. +  *    without specific prior written permission.
  8073. +  *
  8074. +  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  8075. +  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  8076. +  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  8077. +  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  8078. +  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  8079. +  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  8080. +  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  8081. +  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  8082. +  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  8083. +  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  8084. +  * SUCH DAMAGE.
  8085. +  *
  8086. +  *    @(#)stat.h    7.11 (Berkeley) 3/3/91
  8087. +  */
  8088. + 
  8089. + struct stat
  8090. + {
  8091. +     dev_t    st_dev;            /* inode's device */
  8092. +     ino_t    st_ino;            /* inode's number */
  8093. +     mode_t    st_mode;        /* inode protection mode */
  8094. +     nlink_t    st_nlink;        /* number of hard links */
  8095. +     uid_t    st_uid;            /* user ID of the file's owner */
  8096. +     gid_t    st_gid;            /* group ID of the file's group */
  8097. +     dev_t    st_rdev;        /* device type */
  8098. +     off_t    st_size;        /* file size, in bytes */
  8099. +     time_t    st_atime;        /* time of last access */
  8100. +     long    st_spare1;
  8101. +     time_t    st_mtime;        /* time of last data modification */
  8102. +     long    st_spare2;
  8103. +     time_t    st_ctime;        /* time of last file status change */
  8104. +     long    st_spare3;
  8105. +     long    st_blksize;        /* optimal blocksize for I/O */
  8106. +     long    st_blocks;        /* blocks allocated for file */
  8107. +     u_long    st_flags;        /* user defined flags for file */
  8108. +     u_long    st_gen;            /* file generation number */
  8109. + };
  8110. + 
  8111. + #define    S_ISUID    0004000            /* set user id on execution */
  8112. + #define    S_ISGID    0002000            /* set group id on execution */
  8113. + #ifndef _POSIX_SOURCE
  8114. + #define    S_ISTXT    0001000            /* sticky bit */
  8115. + #endif
  8116. + 
  8117. + #define    S_IRWXU    0000700            /* RWX mask for owner */
  8118. + #define    S_IRUSR    0000400            /* R for owner */
  8119. + #define    S_IWUSR    0000200            /* W for owner */
  8120. + #define    S_IXUSR    0000100            /* X for owner */
  8121. + 
  8122. + #ifndef _POSIX_SOURCE
  8123. + #define    S_IREAD        S_IRUSR
  8124. + #define    S_IWRITE    S_IWUSR
  8125. + #define    S_IEXEC        S_IXUSR
  8126. + #endif
  8127. + 
  8128. + #define    S_IRWXG    0000070            /* RWX mask for group */
  8129. + #define    S_IRGRP    0000040            /* R for group */
  8130. + #define    S_IWGRP    0000020            /* W for group */
  8131. + #define    S_IXGRP    0000010            /* X for group */
  8132. + 
  8133. + #define    S_IRWXO    0000007            /* RWX mask for other */
  8134. + #define    S_IROTH    0000004            /* R for other */
  8135. + #define    S_IWOTH    0000002            /* W for other */
  8136. + #define    S_IXOTH    0000001            /* X for other */
  8137. + 
  8138. + #ifndef _POSIX_SOURCE
  8139. + #define    S_IFMT     0170000        /* type of file */
  8140. + #define    S_IFIFO     0010000        /* named pipe (fifo) */
  8141. + #define    S_IFCHR     0020000        /* character special */
  8142. + #define    S_IFDIR     0040000        /* directory */
  8143. + #define    S_IFBLK     0060000        /* block special */
  8144. + #define    S_IFREG     0100000        /* regular */
  8145. + #define    S_IFLNK     0120000        /* symbolic link */
  8146. + #define    S_IFSOCK 0140000        /* socket */
  8147. + 
  8148. + #define    S_ISVTX     0001000        /* save swapped text even after use */
  8149. + 
  8150. + #define S_BLKSIZE    512        /* block size used in the stat struct */
  8151. + 
  8152. +                     /* 0666 */
  8153. + #define    DEFFILEMODE    (S_IRUSR|S_IWUSR|S_IRGRP|S_IWGRP|S_IROTH|S_IWOTH)
  8154. + #endif
  8155. + 
  8156. + #define    S_ISDIR(m)    ((m & 0170000) == 0040000)    /* directory */
  8157. + #define    S_ISCHR(m)    ((m & 0170000) == 0020000)    /* char special */
  8158. + #define    S_ISBLK(m)    ((m & 0170000) == 0060000)    /* block special */
  8159. + #define    S_ISREG(m)    ((m & 0170000) == 0100000)    /* regular file */
  8160. + #define    S_ISFIFO(m)    ((m & 0170000) == 0010000)    /* fifo */
  8161. + #ifndef _POSIX_SOURCE
  8162. + #define    S_ISLNK(m)    ((m & 0170000) == 0120000)    /* symbolic link */
  8163. + #define    S_ISSOCK(m)    ((m & 0170000) == 0140000)    /* socket */
  8164. + #endif
  8165. + 
  8166. + #ifndef KERNEL
  8167. + #include <sys/cdefs.h>
  8168. + 
  8169. + __BEGIN_DECLS
  8170. + mode_t    umask __P((mode_t));
  8171. + int    chmod __P((const char *, mode_t));
  8172. + int    fstat __P((int, struct stat *));
  8173. + int    mkdir __P((char *, mode_t));
  8174. + int    mkfifo __P((char *, mode_t));
  8175. + int    stat __P((char *, struct stat *));
  8176. + #ifndef _POSIX_SOURCE
  8177. + int    fchmod __P((int, mode_t));
  8178. + int    lstat __P((char *, struct stat *));
  8179. + #endif /* not POSIX */
  8180. + __END_DECLS
  8181. + #endif
  8182. + 
  8183. + #endif
  8184. diff -rc --new-file emacs-18.59/amiga/unix/include/sys/termios.h /gnu/src/amiga/emacs-18.59/amiga/unix/include/sys/termios.h
  8185. *** emacs-18.59/amiga/unix/include/sys/termios.h    Thu Jan  1 00:00:00 1970
  8186. --- /gnu/src/amiga/emacs-18.59/amiga/unix/include/sys/termios.h    Thu Jul  9 21:49:32 1992
  8187. ***************
  8188. *** 0 ****
  8189. --- 1,15 ----
  8190. + #ifndef _TERMIOS_H
  8191. + #define _TERMIOS_H
  8192. + 
  8193. + struct winsize {
  8194. +   unsigned short ws_row;    /* rows, in characters */
  8195. +   unsigned short ws_col;    /* columns, in characters */
  8196. +   unsigned short ws_xpixel;    /* horizontal size, pixels - not used */
  8197. +   unsigned short ws_ypixel;    /* vertical size, pixels - not used */
  8198. + };
  8199. + 
  8200. + #define _TERMIO_IOCTL_BASE 1024
  8201. + 
  8202. + #define TIOCGWINSZ (_TERMIO_IOCTL_BASE + 0)
  8203. + 
  8204. + #endif
  8205. diff -rc --new-file emacs-18.59/amiga/unix/include/sys/time.h /gnu/src/amiga/emacs-18.59/amiga/unix/include/sys/time.h
  8206. *** emacs-18.59/amiga/unix/include/sys/time.h    Thu Jan  1 00:00:00 1970
  8207. --- /gnu/src/amiga/emacs-18.59/amiga/unix/include/sys/time.h    Mon Aug 17 20:40:54 1992
  8208. ***************
  8209. *** 0 ****
  8210. --- 1,90 ----
  8211. + /*
  8212. +  * Copyright (c) 1982, 1986 The Regents of the University of California.
  8213. +  * All rights reserved.
  8214. +  *
  8215. +  * Redistribution and use in source and binary forms, with or without
  8216. +  * modification, are permitted provided that the following conditions
  8217. +  * are met:
  8218. +  * 1. Redistributions of source code must retain the above copyright
  8219. +  *    notice, this list of conditions and the following disclaimer.
  8220. +  * 2. Redistributions in binary form must reproduce the above copyright
  8221. +  *    notice, this list of conditions and the following disclaimer in the
  8222. +  *    documentation and/or other materials provided with the distribution.
  8223. +  * 3. All advertising materials mentioning features or use of this software
  8224. +  *    must display the following acknowledgement:
  8225. +  *    This product includes software developed by the University of
  8226. +  *    California, Berkeley and its contributors.
  8227. +  * 4. Neither the name of the University nor the names of its contributors
  8228. +  *    may be used to endorse or promote products derived from this software
  8229. +  *    without specific prior written permission.
  8230. +  *
  8231. +  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  8232. +  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  8233. +  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  8234. +  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  8235. +  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  8236. +  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  8237. +  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  8238. +  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  8239. +  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  8240. +  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  8241. +  * SUCH DAMAGE.
  8242. +  *
  8243. +  *    @(#)time.h    7.6 (Berkeley) 2/22/91
  8244. +  */
  8245. + 
  8246. + #ifndef _SYS_TIME_H_
  8247. + #define _SYS_TIME_H_
  8248. + 
  8249. + /*
  8250. +  * Structure returned by gettimeofday(2) system call,
  8251. +  * and used in other calls.
  8252. +  */
  8253. + /* This defines a struct timeval, with basically equivalent fields. So we use it */
  8254. + #undef LONGBITS            /* This is for emacs's sake */
  8255. + #include <devices/timer.h>
  8256. + #undef LONGBITS
  8257. + /* But we need these defines */
  8258. + #define tv_sec tv_secs
  8259. + #define tv_usec tv_micro
  8260. + 
  8261. + struct timezone {
  8262. +     int    tz_minuteswest;    /* minutes west of Greenwich */
  8263. +     int    tz_dsttime;    /* type of dst correction */
  8264. + };
  8265. + #define    DST_NONE    0    /* not on dst */
  8266. + #define    DST_USA        1    /* USA style dst */
  8267. + #define    DST_AUST    2    /* Australian style dst */
  8268. + #define    DST_WET        3    /* Western European dst */
  8269. + #define    DST_MET        4    /* Middle European dst */
  8270. + #define    DST_EET        5    /* Eastern European dst */
  8271. + #define    DST_CAN        6    /* Canada */
  8272. + 
  8273. + /*
  8274. +  * Operations on timevals.
  8275. +  *
  8276. +  * NB: timercmp does not work for >= or <=.
  8277. +  */
  8278. + #define    timerisset(tvp)        ((tvp)->tv_sec || (tvp)->tv_usec)
  8279. + #define    timercmp(tvp, uvp, cmp)    \
  8280. +     ((tvp)->tv_sec cmp (uvp)->tv_sec || \
  8281. +      (tvp)->tv_sec == (uvp)->tv_sec && (tvp)->tv_usec cmp (uvp)->tv_usec)
  8282. + #define    timerclear(tvp)        (tvp)->tv_sec = (tvp)->tv_usec = 0
  8283. + 
  8284. + #ifndef KERNEL
  8285. + #include <time.h>
  8286. + 
  8287. + #ifndef _POSIX_SOURCE
  8288. + #include <sys/cdefs.h>
  8289. + 
  8290. + __BEGIN_DECLS
  8291. + int    adjtime __P((const struct timeval *, struct timeval *));
  8292. + int    gettimeofday __P((struct timeval *, struct timezone *));
  8293. + int    settimeofday __P((const struct timeval *, const struct timezone *));
  8294. + int    utimes __P((const char *, const struct timeval *));
  8295. + __END_DECLS
  8296. + #endif /* !POSIX */
  8297. + 
  8298. + #endif /* !KERNEL */
  8299. + 
  8300. + #endif /* !_SYS_TIME_H_ */
  8301. diff -rc --new-file emacs-18.59/amiga/unix/include/sys/timeb.h /gnu/src/amiga/emacs-18.59/amiga/unix/include/sys/timeb.h
  8302. *** emacs-18.59/amiga/unix/include/sys/timeb.h    Thu Jan  1 00:00:00 1970
  8303. --- /gnu/src/amiga/emacs-18.59/amiga/unix/include/sys/timeb.h    Wed Jul  8 21:02:30 1992
  8304. ***************
  8305. *** 0 ****
  8306. --- 1,12 ----
  8307. + #ifndef _TIMEB_H
  8308. + #define _TIMEB_H
  8309. + 
  8310. + struct timeb
  8311. + {
  8312. +   time_t   time;
  8313. +   unsigned short millitm;
  8314. +   short    timezone;
  8315. +   short    dstflag;
  8316. + };
  8317. + 
  8318. + #endif
  8319. diff -rc --new-file emacs-18.59/amiga/unix/include/sys/types.h /gnu/src/amiga/emacs-18.59/amiga/unix/include/sys/types.h
  8320. *** emacs-18.59/amiga/unix/include/sys/types.h    Thu Jan  1 00:00:00 1970
  8321. --- /gnu/src/amiga/emacs-18.59/amiga/unix/include/sys/types.h    Fri Aug 14 19:58:50 1992
  8322. ***************
  8323. *** 0 ****
  8324. --- 1,90 ----
  8325. + /*-
  8326. +  * Copyright (c) 1982, 1986, 1991 The Regents of the University of California.
  8327. +  * All rights reserved.
  8328. +  *
  8329. +  * Redistribution and use in source and binary forms, with or without
  8330. +  * modification, are permitted provided that the following conditions
  8331. +  * are met:
  8332. +  * 1. Redistributions of source code must retain the above copyright
  8333. +  *    notice, this list of conditions and the following disclaimer.
  8334. +  * 2. Redistributions in binary form must reproduce the above copyright
  8335. +  *    notice, this list of conditions and the following disclaimer in the
  8336. +  *    documentation and/or other materials provided with the distribution.
  8337. +  * 3. All advertising materials mentioning features or use of this software
  8338. +  *    must display the following acknowledgement:
  8339. +  *    This product includes software developed by the University of
  8340. +  *    California, Berkeley and its contributors.
  8341. +  * 4. Neither the name of the University nor the names of its contributors
  8342. +  *    may be used to endorse or promote products derived from this software
  8343. +  *    without specific prior written permission.
  8344. +  *
  8345. +  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  8346. +  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  8347. +  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  8348. +  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  8349. +  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  8350. +  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  8351. +  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  8352. +  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  8353. +  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  8354. +  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  8355. +  * SUCH DAMAGE.
  8356. +  *
  8357. +  *    @(#)types.h    7.17 (Berkeley) 5/6/91
  8358. +  */
  8359. + 
  8360. + #ifndef _TYPES_H_
  8361. + #define    _TYPES_H_
  8362. + 
  8363. + typedef    unsigned char    u_char;
  8364. + typedef    unsigned short    u_short;
  8365. + typedef    unsigned int    u_int;
  8366. + typedef    unsigned long    u_long;
  8367. + typedef    unsigned short    ushort;        /* Sys V compatibility */
  8368. + 
  8369. + typedef    char *    caddr_t;        /* core address */
  8370. + typedef    long    daddr_t;        /* disk address */
  8371. + typedef    long    dev_t;            /* device number */
  8372. + typedef    u_long    ino_t;            /* inode number */
  8373. + typedef    long    off_t;            /* file offset (should be a quad) */
  8374. + typedef    u_short    nlink_t;        /* link count */
  8375. + typedef    long    swblk_t;        /* swap offset */
  8376. + typedef    long    segsz_t;        /* segment size */
  8377. + typedef    u_short    uid_t;            /* user id */
  8378. + typedef    u_short    gid_t;            /* group id */
  8379. + typedef    int    pid_t;            /* process id */
  8380. + typedef    int    mode_t;            /* permissions */
  8381. + typedef u_long    fixpt_t;        /* fixed point number */
  8382. + 
  8383. + #ifndef _POSIX_SOURCE
  8384. + typedef    struct    _uquad    { u_long val[2]; } u_quad;
  8385. + typedef    struct    _quad    {   long val[2]; } quad;
  8386. + typedef    long *    qaddr_t;    /* should be typedef quad * qaddr_t; */
  8387. + 
  8388. + #define    major(x)    ((int)(((u_int)(x) >> 8)&0xff))    /* major number */
  8389. + #define    minor(x)    ((int)((x)&0xff))        /* minor number */
  8390. + #define    makedev(x,y)    ((dev_t)(((x)<<8) | (y)))    /* create dev_t */
  8391. + #endif
  8392. + 
  8393. + typedef    long clock_t;
  8394. + typedef long time_t;
  8395. + #ifndef _SIZE_T
  8396. + #define _SIZE_T
  8397. + typedef    unsigned int size_t;
  8398. + #endif
  8399. + 
  8400. + #ifndef _POSIX_SOURCE
  8401. + /*
  8402. +  * My implementation only allows 32 fds in select.
  8403. +  */
  8404. + #define    FD_SETSIZE    32
  8405. + 
  8406. + typedef    long fd_set;
  8407. + 
  8408. + #define    FD_SET(n, p)    (*(p) |= (1 << (n)))
  8409. + #define    FD_CLR(n, p)    (*(p) &= ~(1 << (n)))
  8410. + #define    FD_ISSET(n, p)    (*(p) & (1 << (n)))
  8411. + #define    FD_ZERO(p)    bzero((char *)(p), sizeof(*(p)))
  8412. + 
  8413. + #endif /* !_POSIX_SOURCE */
  8414. + #endif /* !_TYPES_H_ */
  8415. diff -rc --new-file emacs-18.59/amiga/unix/include/sys/unistd.h /gnu/src/amiga/emacs-18.59/amiga/unix/include/sys/unistd.h
  8416. *** emacs-18.59/amiga/unix/include/sys/unistd.h    Thu Jan  1 00:00:00 1970
  8417. --- /gnu/src/amiga/emacs-18.59/amiga/unix/include/sys/unistd.h    Fri Dec  4 22:35:36 1992
  8418. ***************
  8419. *** 0 ****
  8420. --- 1,61 ----
  8421. + /*
  8422. +  * Copyright (c) 1989 The Regents of the University of California.
  8423. +  * All rights reserved.
  8424. +  *
  8425. +  * Redistribution and use in source and binary forms, with or without
  8426. +  * modification, are permitted provided that the following conditions
  8427. +  * are met:
  8428. +  * 1. Redistributions of source code must retain the above copyright
  8429. +  *    notice, this list of conditions and the following disclaimer.
  8430. +  * 2. Redistributions in binary form must reproduce the above copyright
  8431. +  *    notice, this list of conditions and the following disclaimer in the
  8432. +  *    documentation and/or other materials provided with the distribution.
  8433. +  * 3. All advertising materials mentioning features or use of this software
  8434. +  *    must display the following acknowledgement:
  8435. +  *    This product includes software developed by the University of
  8436. +  *    California, Berkeley and its contributors.
  8437. +  * 4. Neither the name of the University nor the names of its contributors
  8438. +  *    may be used to endorse or promote products derived from this software
  8439. +  *    without specific prior written permission.
  8440. +  *
  8441. +  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  8442. +  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  8443. +  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  8444. +  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  8445. +  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  8446. +  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  8447. +  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  8448. +  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  8449. +  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  8450. +  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  8451. +  * SUCH DAMAGE.
  8452. +  *
  8453. +  *    @(#)unistd.h    5.14 (Berkeley) 4/1/91
  8454. +  */
  8455. + 
  8456. + #ifndef _SYS_UNISTD_H_
  8457. + #define    _SYS_UNISTD_H_
  8458. + 
  8459. + /* compile-time symbolic constants */
  8460. + 
  8461. + /* access function */
  8462. + #ifndef F_OK
  8463. + #define    F_OK        0    /* test for existence of file */
  8464. + #define    X_OK        0x01    /* test for execute or search permission */
  8465. + #define    W_OK        0x02    /* test for write permission */
  8466. + #define    R_OK        0x04    /* test for read permission */
  8467. + #endif
  8468. + 
  8469. + /* whence values for lseek(2) */
  8470. + #define    SEEK_SET    0    /* set file offset to offset */
  8471. + #define    SEEK_CUR    1    /* set file offset to current plus offset */
  8472. + #define    SEEK_END    2    /* set file offset to EOF plus offset */
  8473. + 
  8474. + #ifndef _POSIX_SOURCE
  8475. + /* whence values for lseek(2); renamed by POSIX 1003.1 */
  8476. + #define    L_SET        SEEK_SET
  8477. + #define    L_INCR        SEEK_CUR
  8478. + #define    L_XTND        SEEK_END
  8479. + #endif
  8480. + 
  8481. + #endif /* !_SYS_UNISTD_H_ */
  8482. diff -rc --new-file emacs-18.59/amiga/unix/include/sys/vlimit.h /gnu/src/amiga/emacs-18.59/amiga/unix/include/sys/vlimit.h
  8483. *** emacs-18.59/amiga/unix/include/sys/vlimit.h    Thu Jan  1 00:00:00 1970
  8484. --- /gnu/src/amiga/emacs-18.59/amiga/unix/include/sys/vlimit.h    Sat Jul  4 14:31:04 1992
  8485. ***************
  8486. *** 0 ****
  8487. --- 1,2 ----
  8488. + /* Dummy for Emacs so that we can run on VMS... */
  8489. + #define LIM_DATA 0
  8490. diff -rc --new-file emacs-18.59/amiga/unix/include/sys/wait.h /gnu/src/amiga/emacs-18.59/amiga/unix/include/sys/wait.h
  8491. *** emacs-18.59/amiga/unix/include/sys/wait.h    Thu Jan  1 00:00:00 1970
  8492. --- /gnu/src/amiga/emacs-18.59/amiga/unix/include/sys/wait.h    Fri Aug 14 19:55:48 1992
  8493. ***************
  8494. *** 0 ****
  8495. --- 1,82 ----
  8496. + /*
  8497. +  * Copyright (c) 1982, 1986, 1989 The Regents of the University of California.
  8498. +  * All rights reserved.
  8499. +  *
  8500. +  * Redistribution and use in source and binary forms, with or without
  8501. +  * modification, are permitted provided that the following conditions
  8502. +  * are met:
  8503. +  * 1. Redistributions of source code must retain the above copyright
  8504. +  *    notice, this list of conditions and the following disclaimer.
  8505. +  * 2. Redistributions in binary form must reproduce the above copyright
  8506. +  *    notice, this list of conditions and the following disclaimer in the
  8507. +  *    documentation and/or other materials provided with the distribution.
  8508. +  * 3. All advertising materials mentioning features or use of this software
  8509. +  *    must display the following acknowledgement:
  8510. +  *    This product includes software developed by the University of
  8511. +  *    California, Berkeley and its contributors.
  8512. +  * 4. Neither the name of the University nor the names of its contributors
  8513. +  *    may be used to endorse or promote products derived from this software
  8514. +  *    without specific prior written permission.
  8515. +  *
  8516. +  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  8517. +  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  8518. +  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  8519. +  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  8520. +  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  8521. +  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  8522. +  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  8523. +  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  8524. +  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  8525. +  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  8526. +  * SUCH DAMAGE.
  8527. +  *
  8528. +  *    @(#)wait.h    7.17 (Berkeley) 6/19/91
  8529. +  */
  8530. + 
  8531. + /*
  8532. +  * This file holds definitions relevent to the wait4 system call
  8533. +  * and the alternate interfaces that use it (wait, wait3, waitpid).
  8534. +  */
  8535. + 
  8536. + /*
  8537. +  * Macros to test the exit status returned by wait
  8538. +  * and extract the relevant values.
  8539. +  */
  8540. + #define    _W_INT(i)    (i)
  8541. + 
  8542. + #define    _WSTATUS(x)    (_W_INT(x) & 0177)
  8543. + #define    _WSTOPPED    0177        /* _WSTATUS if process is stopped */
  8544. + #define WIFSTOPPED(x)    (_WSTATUS(x) == _WSTOPPED)
  8545. + #define WSTOPSIG(x)    (_W_INT(x) >> 8)
  8546. + #define WIFSIGNALED(x)    (_WSTATUS(x) != _WSTOPPED && _WSTATUS(x) != 0)
  8547. + #define WTERMSIG(x)    (_WSTATUS(x))
  8548. + #define WIFEXITED(x)    (_WSTATUS(x) == 0)
  8549. + #define WEXITSTATUS(x)    (_W_INT(x) >> 8)
  8550. + #define    W_EXITCODE(ret, sig)    ((ret) << 8 | (sig))
  8551. + #define    W_STOPCODE(sig)        ((sig) << 8 | _WSTOPPED)
  8552. + 
  8553. + /*
  8554. +  * Option bits for the second argument of wait4.  WNOHANG causes the
  8555. +  * wait to not hang if there are no stopped or terminated processes, rather
  8556. +  * returning an error indication in this case (pid==0).  WUNTRACED
  8557. +  * indicates that the caller should receive status about untraced children
  8558. +  * which stop due to signals.  If children are stopped and a wait without
  8559. +  * this option is done, it is as though they were still running... nothing
  8560. +  * about them is returned.
  8561. +  */
  8562. + #define WNOHANG        1    /* dont hang in wait */
  8563. + #define WUNTRACED    2    /* tell about stopped, untraced children */
  8564. + 
  8565. + #ifndef KERNEL
  8566. + #include <sys/types.h>
  8567. + #include <sys/cdefs.h>
  8568. + 
  8569. + __BEGIN_DECLS
  8570. + struct rusage;    /* forward declaration */
  8571. + 
  8572. + pid_t    wait __P((int *));
  8573. + pid_t    waitpid __P((pid_t, int *, int));
  8574. + pid_t    wait3 __P((int *, int, struct rusage *));
  8575. + pid_t    wait4 __P((pid_t, int *, int, struct rusage *));
  8576. + __END_DECLS
  8577. + #endif
  8578. diff -rc --new-file emacs-18.59/amiga/unix/include/time.h /gnu/src/amiga/emacs-18.59/amiga/unix/include/time.h
  8579. *** emacs-18.59/amiga/unix/include/time.h    Thu Jan  1 00:00:00 1970
  8580. --- /gnu/src/amiga/emacs-18.59/amiga/unix/include/time.h    Sat Aug  1 18:53:58 1992
  8581. ***************
  8582. *** 0 ****
  8583. --- 1,78 ----
  8584. + /*
  8585. +  * Copyright (c) 1989 The Regents of the University of California.
  8586. +  * All rights reserved.
  8587. +  *
  8588. +  * Redistribution and use in source and binary forms, with or without
  8589. +  * modification, are permitted provided that the following conditions
  8590. +  * are met:
  8591. +  * 1. Redistributions of source code must retain the above copyright
  8592. +  *    notice, this list of conditions and the following disclaimer.
  8593. +  * 2. Redistributions in binary form must reproduce the above copyright
  8594. +  *    notice, this list of conditions and the following disclaimer in the
  8595. +  *    documentation and/or other materials provided with the distribution.
  8596. +  * 3. All advertising materials mentioning features or use of this software
  8597. +  *    must display the following acknowledgement:
  8598. +  *    This product includes software developed by the University of
  8599. +  *    California, Berkeley and its contributors.
  8600. +  * 4. Neither the name of the University nor the names of its contributors
  8601. +  *    may be used to endorse or promote products derived from this software
  8602. +  *    without specific prior written permission.
  8603. +  *
  8604. +  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  8605. +  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  8606. +  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  8607. +  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  8608. +  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  8609. +  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  8610. +  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  8611. +  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  8612. +  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  8613. +  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  8614. +  * SUCH DAMAGE.
  8615. +  *
  8616. +  *    @(#)time.h    5.12 (Berkeley) 3/9/91
  8617. +  */
  8618. + 
  8619. + #ifndef _TIME_H_
  8620. + #define    _TIME_H_
  8621. + 
  8622. + #include <sys/types.h>
  8623. + 
  8624. + struct tm {
  8625. +     int    tm_sec;        /* seconds after the minute [0-60] */
  8626. +     int    tm_min;        /* minutes after the hour [0-59] */
  8627. +     int    tm_hour;    /* hours since midnight [0-23] */
  8628. +     int    tm_mday;    /* day of the month [1-31] */
  8629. +     int    tm_mon;        /* months since January [0-11] */
  8630. +     int    tm_year;    /* years since 1900 */
  8631. +     int    tm_wday;    /* days since Sunday [0-6] */
  8632. +     int    tm_yday;    /* days since January 1 [0-365] */
  8633. +     int    tm_isdst;    /* Daylight Savings Time flag */
  8634. +     long    tm_gmtoff;    /* offset from CUT in seconds */
  8635. +     char    *tm_zone;    /* timezone abbreviation */
  8636. + };
  8637. + 
  8638. + #include <sys/cdefs.h>
  8639. + 
  8640. + __BEGIN_DECLS
  8641. + char *asctime __P((const struct tm *));
  8642. + clock_t clock __P((void));
  8643. + char *ctime __P((const time_t *));
  8644. + double difftime __P((time_t, time_t));
  8645. + struct tm *gmtime __P((const time_t *));
  8646. + struct tm *localtime __P((const time_t *));
  8647. + time_t mktime __P((struct tm *));
  8648. + size_t strftime __P((char *, size_t, const char *, const struct tm *));
  8649. + time_t time __P((time_t *));
  8650. + 
  8651. + #ifndef _ANSI_SOURCE
  8652. + void tzset __P((void));
  8653. + #endif /* not ANSI */
  8654. + 
  8655. + #if !defined(_ANSI_SOURCE) && !defined(_POSIX_SOURCE)
  8656. + /*char *timezone __P((int, int));*/
  8657. + void tzsetwall __P((void));
  8658. + #endif /* neither ANSI nor POSIX */
  8659. + __END_DECLS
  8660. + 
  8661. + #endif /* !_TIME_H_ */
  8662. diff -rc --new-file emacs-18.59/amiga/unix/include/tzfile.h /gnu/src/amiga/emacs-18.59/amiga/unix/include/tzfile.h
  8663. *** emacs-18.59/amiga/unix/include/tzfile.h    Thu Jan  1 00:00:00 1970
  8664. --- /gnu/src/amiga/emacs-18.59/amiga/unix/include/tzfile.h    Fri Jul 31 23:33:04 1992
  8665. ***************
  8666. *** 0 ****
  8667. --- 1,151 ----
  8668. + /*
  8669. +  * Copyright (c) 1988 Regents of the University of California.
  8670. +  * All rights reserved.
  8671. +  *
  8672. +  * This code is derived from software contributed to Berkeley by
  8673. +  * Arthur David Olson of the National Cancer Institute.
  8674. +  *
  8675. +  * Redistribution and use in source and binary forms, with or without
  8676. +  * modification, are permitted provided that the following conditions
  8677. +  * are met:
  8678. +  * 1. Redistributions of source code must retain the above copyright
  8679. +  *    notice, this list of conditions and the following disclaimer.
  8680. +  * 2. Redistributions in binary form must reproduce the above copyright
  8681. +  *    notice, this list of conditions and the following disclaimer in the
  8682. +  *    documentation and/or other materials provided with the distribution.
  8683. +  * 3. All advertising materials mentioning features or use of this software
  8684. +  *    must display the following acknowledgement:
  8685. +  *    This product includes software developed by the University of
  8686. +  *    California, Berkeley and its contributors.
  8687. +  * 4. Neither the name of the University nor the names of its contributors
  8688. +  *    may be used to endorse or promote products derived from this software
  8689. +  *    without specific prior written permission.
  8690. +  *
  8691. +  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  8692. +  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  8693. +  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  8694. +  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  8695. +  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  8696. +  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  8697. +  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  8698. +  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  8699. +  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  8700. +  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  8701. +  * SUCH DAMAGE.
  8702. +  *
  8703. +  *    @(#)tzfile.h    5.10 (Berkeley) 4/3/91
  8704. +  */
  8705. + 
  8706. + #ifndef _TZFILE_H_
  8707. + #define    _TZFILE_H_
  8708. + 
  8709. + /*
  8710. +  * Information about time zone files.
  8711. +  */
  8712. +             /* Time zone object file directory */
  8713. + #define TZDIR        "s:zoneinfo"
  8714. + #define TZDEFAULT    "s:localtime"
  8715. + #define TZDEFRULES    "posixrules"
  8716. + 
  8717. + /*
  8718. + ** Each file begins with. . .
  8719. + */
  8720. + 
  8721. + struct tzhead {
  8722. +     char    tzh_reserved[24];    /* reserved for future use */
  8723. +     char    tzh_ttisstdcnt[4];    /* coded number of trans. time flags */
  8724. +     char    tzh_leapcnt[4];        /* coded number of leap seconds */
  8725. +     char    tzh_timecnt[4];        /* coded number of transition times */
  8726. +     char    tzh_typecnt[4];        /* coded number of local time types */
  8727. +     char    tzh_charcnt[4];        /* coded number of abbr. chars */
  8728. + };
  8729. + 
  8730. + /*
  8731. + ** . . .followed by. . .
  8732. + **
  8733. + **    tzh_timecnt (char [4])s        coded transition times a la time(2)
  8734. + **    tzh_timecnt (unsigned char)s    types of local time starting at above
  8735. + **    tzh_typecnt repetitions of
  8736. + **        one (char [4])        coded GMT offset in seconds
  8737. + **        one (unsigned char)    used to set tm_isdst
  8738. + **        one (unsigned char)    that's an abbreviation list index
  8739. + **    tzh_charcnt (char)s        '\0'-terminated zone abbreviations
  8740. + **    tzh_leapcnt repetitions of
  8741. + **        one (char [4])        coded leap second transition times
  8742. + **        one (char [4])        total correction after above
  8743. + **    tzh_ttisstdcnt (char)s        indexed by type; if TRUE, transition
  8744. + **                    time is standard time, if FALSE,
  8745. + **                    transition time is wall clock time
  8746. + **                    if absent, transition times are
  8747. + **                    assumed to be wall clock time
  8748. + */
  8749. + 
  8750. + /*
  8751. + ** In the current implementation, "tzset()" refuses to deal with files that
  8752. + ** exceed any of the limits below.
  8753. + */
  8754. + 
  8755. + /*
  8756. + ** The TZ_MAX_TIMES value below is enough to handle a bit more than a
  8757. + ** year's worth of solar time (corrected daily to the nearest second) or
  8758. + ** 138 years of Pacific Presidential Election time
  8759. + ** (where there are three time zone transitions every fourth year).
  8760. + */
  8761. + #define TZ_MAX_TIMES    370
  8762. + 
  8763. + #define NOSOLAR            /* 4BSD doesn't currently handle solar time */
  8764. + 
  8765. + #ifndef NOSOLAR
  8766. + #define TZ_MAX_TYPES    256    /* Limited by what (unsigned char)'s can hold */
  8767. + #else
  8768. + #define TZ_MAX_TYPES    10    /* Maximum number of local time types */
  8769. + #endif
  8770. + 
  8771. + #define TZ_MAX_CHARS    50    /* Maximum number of abbreviation characters */
  8772. + 
  8773. + #define    TZ_MAX_LEAPS    50    /* Maximum number of leap second corrections */
  8774. + 
  8775. + #define SECSPERMIN    60
  8776. + #define MINSPERHOUR    60
  8777. + #define HOURSPERDAY    24
  8778. + #define DAYSPERWEEK    7
  8779. + #define DAYSPERNYEAR    365
  8780. + #define DAYSPERLYEAR    366
  8781. + #define SECSPERHOUR    (SECSPERMIN * MINSPERHOUR)
  8782. + #define SECSPERDAY    ((long) SECSPERHOUR * HOURSPERDAY)
  8783. + #define MONSPERYEAR    12
  8784. + 
  8785. + #define TM_SUNDAY    0
  8786. + #define TM_MONDAY    1
  8787. + #define TM_TUESDAY    2
  8788. + #define TM_WEDNESDAY    3
  8789. + #define TM_THURSDAY    4
  8790. + #define TM_FRIDAY    5
  8791. + #define TM_SATURDAY    6
  8792. + 
  8793. + #define TM_JANUARY    0
  8794. + #define TM_FEBRUARY    1
  8795. + #define TM_MARCH    2
  8796. + #define TM_APRIL    3
  8797. + #define TM_MAY        4
  8798. + #define TM_JUNE        5
  8799. + #define TM_JULY        6
  8800. + #define TM_AUGUST    7
  8801. + #define TM_SEPTEMBER    8
  8802. + #define TM_OCTOBER    9
  8803. + #define TM_NOVEMBER    10
  8804. + #define TM_DECEMBER    11
  8805. + 
  8806. + #define TM_YEAR_BASE    1900
  8807. + 
  8808. + #define EPOCH_YEAR    1970
  8809. + #define EPOCH_WDAY    TM_THURSDAY
  8810. + 
  8811. + /*
  8812. + ** Accurate only for the past couple of centuries;
  8813. + ** that will probably do.
  8814. + */
  8815. + 
  8816. + #define isleap(y) (((y) % 4) == 0 && ((y) % 100) != 0 || ((y) % 400) == 0)
  8817. + 
  8818. + #endif /* !_TZFILE_H_ */
  8819. diff -rc --new-file emacs-18.59/amiga/unix/include/unistd.h /gnu/src/amiga/emacs-18.59/amiga/unix/include/unistd.h
  8820. *** emacs-18.59/amiga/unix/include/unistd.h    Thu Jan  1 00:00:00 1970
  8821. --- /gnu/src/amiga/emacs-18.59/amiga/unix/include/unistd.h    Wed Dec  2 19:54:00 1992
  8822. ***************
  8823. *** 0 ****
  8824. --- 1,178 ----
  8825. + /*-
  8826. +  * Copyright (c) 1991 The Regents of the University of California.
  8827. +  * All rights reserved.
  8828. +  *
  8829. +  * Redistribution and use in source and binary forms, with or without
  8830. +  * modification, are permitted provided that the following conditions
  8831. +  * are met:
  8832. +  * 1. Redistributions of source code must retain the above copyright
  8833. +  *    notice, this list of conditions and the following disclaimer.
  8834. +  * 2. Redistributions in binary form must reproduce the above copyright
  8835. +  *    notice, this list of conditions and the following disclaimer in the
  8836. +  *    documentation and/or other materials provided with the distribution.
  8837. +  * 3. All advertising materials mentioning features or use of this software
  8838. +  *    must display the following acknowledgement:
  8839. +  *    This product includes software developed by the University of
  8840. +  *    California, Berkeley and its contributors.
  8841. +  * 4. Neither the name of the University nor the names of its contributors
  8842. +  *    may be used to endorse or promote products derived from this software
  8843. +  *    without specific prior written permission.
  8844. +  *
  8845. +  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  8846. +  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  8847. +  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  8848. +  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  8849. +  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  8850. +  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  8851. +  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  8852. +  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  8853. +  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  8854. +  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  8855. +  * SUCH DAMAGE.
  8856. +  *
  8857. +  *    @(#)unistd.h    5.13 (Berkeley) 6/17/91
  8858. +  */
  8859. + 
  8860. + #ifndef _UNISTD_H_
  8861. + #define    _UNISTD_H_
  8862. + 
  8863. + #include <sys/cdefs.h>
  8864. + #include <sys/types.h>
  8865. + #include <sys/unistd.h>
  8866. + 
  8867. + #define     STDIN_FILENO    0    /* standard input file descriptor */
  8868. + #define    STDOUT_FILENO    1    /* standard output file descriptor */
  8869. + #define    STDERR_FILENO    2    /* standard error file descriptor */
  8870. + 
  8871. + #ifndef NULL
  8872. + #define    NULL        0    /* null pointer constant */
  8873. + #endif
  8874. + 
  8875. + typedef    int ssize_t;        /* count of bytes or error indication */
  8876. + 
  8877. + __BEGIN_DECLS
  8878. + void     _exit __P((int));
  8879. + int     access __P((const char *, int));
  8880. + u_int     alarm __P((u_int));
  8881. + int     chdir __P((const char *));
  8882. + int     chown __P((const char *, uid_t, gid_t));
  8883. + int     close __P((int));
  8884. + char    *cuserid __P((char *));
  8885. + int     dup __P((int));
  8886. + int     dup2 __P((int, int));
  8887. + int     execl __P((const char *, const char *, ...));
  8888. + int     execle __P((const char *, const char *, ...));
  8889. + int     execlp __P((const char *, const char *, ...));
  8890. + int     execv __P((const char *, char * const *));
  8891. + int     execve __P((const char *, char * const *, char * const *));
  8892. + int     execvp __P((const char *, char * const *));
  8893. + pid_t     fork __P((void));
  8894. + long     fpathconf __P((int, int));        /* not yet */
  8895. + char    *getcwd __P((const char *, int));
  8896. + gid_t     getegid __P((void));
  8897. + uid_t     geteuid __P((void));
  8898. + gid_t     getgid __P((void));
  8899. + int     getgroups __P((int, int *));        /* XXX (gid_t *) */
  8900. + char    *getlogin __P((void));
  8901. + pid_t     getpgrp __P((void));
  8902. + pid_t     getpid __P((void));
  8903. + pid_t     getppid __P((void));
  8904. + uid_t     getuid __P((void));
  8905. + int     isatty __P((int));
  8906. + int     link __P((const char *, const char *));
  8907. + off_t     lseek __P((int, off_t, int));
  8908. + long     pathconf __P((const char *, int));    /* not yet */
  8909. + int     pause __P((void));
  8910. + int     pipe __P((int *));
  8911. + ssize_t     read __P((int, void *, size_t));
  8912. + int     rmdir __P((const char *));
  8913. + int     setgid __P((gid_t));
  8914. + int     setpgid __P((pid_t, pid_t));
  8915. + pid_t     setsid __P((void));
  8916. + int     setuid __P((uid_t));
  8917. + u_int     sleep __P((u_int));
  8918. + long     sysconf __P((int));            /* not yet */
  8919. + pid_t     tcgetpgrp __P((int));
  8920. + int     tcsetpgrp __P((int, pid_t));
  8921. + char    *ttyname __P((int));
  8922. + int     unlink __P((const char *));
  8923. + ssize_t     write __P((int, const void *, size_t));
  8924. + 
  8925. + #ifndef    _POSIX_SOURCE
  8926. + 
  8927. + /* structure timeval required for select() */
  8928. + #include <sys/time.h>
  8929. + 
  8930. + int     acct __P((const char *));
  8931. + int     async_daemon __P((void));
  8932. + char    *brk __P((const char *));
  8933. + int     chflags __P((const char *, long));
  8934. + int     chroot __P((const char *));
  8935. + char    *crypt __P((const char *, const char *));
  8936. + int     des_cipher __P((const char *, char *, long, int));
  8937. + int     des_setkey __P((const char *key));
  8938. + int     encrypt __P((char *, int));
  8939. + void     endusershell __P((void));
  8940. + int     exect __P((const char *, char * const *, char * const *));
  8941. + int     fchdir __P((int));
  8942. + int     fchflags __P((int, long));
  8943. + int     fchown __P((int, int, int));
  8944. + int     fnmatch __P((const char *, const char *, int));
  8945. + int     fsync __P((int));
  8946. + int     ftruncate __P((int, off_t));
  8947. + int     getdtablesize __P((void));
  8948. + long     gethostid __P((void));
  8949. + int     gethostname __P((char *, int));
  8950. + mode_t     getmode __P((const void *, mode_t));
  8951. + int     getpagesize __P((void));
  8952. + char    *getpass __P((const char *));
  8953. + char    *getusershell __P((void));
  8954. + char    *getwd __P((char *));            /* obsoleted by getcwd() */
  8955. + int     initgroups __P((const char *, int));
  8956. + int     mknod __P((const char *, mode_t, dev_t));
  8957. + int     mkstemp __P((char *));
  8958. + char    *mktemp __P((char *));
  8959. + int     nfssvc __P((int));
  8960. + int     nice __P((int));
  8961. + void     psignal __P((u_int, const char *));
  8962. + extern char *sys_siglist[];
  8963. + int     profil __P((char *, int, int, int));
  8964. + int     rcmd __P((char **, int, const char *,
  8965. +         const char *, const char *, int *));
  8966. + char    *re_comp __P((const char *));
  8967. + int     re_exec __P((const char *));
  8968. + int     readlink __P((const char *, char *, int));
  8969. + int     reboot __P((int));
  8970. + int     revoke __P((const char *));
  8971. + int     rresvport __P((int *));
  8972. + int     ruserok __P((const char *, int, const char *, const char *));
  8973. + void    *sbrk __P((unsigned));
  8974. + int     select __P((int, fd_set *, fd_set *, fd_set *, struct timeval *));
  8975. + int     setegid __P((gid_t));
  8976. + int     seteuid __P((uid_t));
  8977. + int     setgroups __P((int, const int *));
  8978. + void     sethostid __P((long));
  8979. + int     sethostname __P((const char *, int));
  8980. + int     setkey __P((const char *));
  8981. + int     setlogin __P((const char *));
  8982. + void    *setmode __P((const char *));
  8983. + int     setpgrp __P((pid_t pid, pid_t pgrp));    /* obsoleted by setpgid() */
  8984. + int     setregid __P((int, int));
  8985. + int     setreuid __P((int, int));
  8986. + int     setrgid __P((gid_t));
  8987. + int     setruid __P((uid_t));
  8988. + void     setusershell __P((void));
  8989. + int     swapon __P((const char *));
  8990. + int     symlink __P((const char *, const char *));
  8991. + void     sync __P((void));
  8992. + int     syscall __P((int, ...));
  8993. + int     truncate __P((const char *, off_t));
  8994. + int     ttyslot __P((void));
  8995. + u_int     ualarm __P((u_int, u_int));
  8996. + void     usleep __P((u_int));
  8997. + int     vfork __P((void));
  8998. + 
  8999. + #endif /* !_POSIX_SOURCE */
  9000. + __END_DECLS
  9001. + 
  9002. + #endif /* !_UNISTD_H_ */
  9003. diff -rc --new-file emacs-18.59/amiga/unix/include/utime.h /gnu/src/amiga/emacs-18.59/amiga/unix/include/utime.h
  9004. *** emacs-18.59/amiga/unix/include/utime.h    Thu Jan  1 00:00:00 1970
  9005. --- /gnu/src/amiga/emacs-18.59/amiga/unix/include/utime.h    Sun Jul  5 18:02:02 1992
  9006. ***************
  9007. *** 0 ****
  9008. --- 1,3 ----
  9009. + struct utimbuf { time_t actime, modtime; };
  9010. + 
  9011. + int utime(char *path, struct utimbuf *times);
  9012. diff -rc --new-file emacs-18.59/amiga/unix/intro.doc /gnu/src/amiga/emacs-18.59/amiga/unix/intro.doc
  9013. *** emacs-18.59/amiga/unix/intro.doc    Thu Jan  1 00:00:00 1970
  9014. --- /gnu/src/amiga/emacs-18.59/amiga/unix/intro.doc    Tue Sep 22 20:27:34 1992
  9015. ***************
  9016. *** 0 ****
  9017. --- 1,44 ----
  9018. + A quick guide to programs compiled with the unix library
  9019. + --------------------------------------------------------
  9020. + 
  9021. + If you are using programs compiled with my unix library, you should note
  9022. + the following points:
  9023. + 
  9024. + a) The following environment variables are taken into account by the unix library,
  9025. + and therefore by any program compiled with it:
  9026. + 
  9027. + USER - A user name for the sole Amiga user (default "user").
  9028. + USERNAME - The full name of the sole Amiga user (default $USER).
  9029. + HOME - A "home" directory (default "s:") for programs that want one. Configuration
  9030. +        files will probably end up here ...
  9031. + SHELL - A program which behaves reasonably like a Unix shell (default "bin:sh").
  9032. +     You should copy the sh executable there if you don't have a Unix-like shell.
  9033. + HOSTNAME - The name of your machine (default "amiga").
  9034. + 
  9035. + b) Command line parsing is a mixture of AmigaDOS and Unix conventions (this
  9036. + explanation assumes familiarity with Unix terminology ...) :
  9037. + 
  9038. + - Arguments in single quotes (') are left as is.
  9039. + 
  9040. + - Within arguments in double quotes ("), * acts as an escape character. Arguments
  9041. + cotaining wildcards are expanded into several arguments (note that this is a
  9042. + different from the Unix behaviour). ' must be used to escape wildcards (this is the
  9043. + standard AmigaDOS convention).
  9044. + 
  9045. + - Within unquoted arguments, \ acts as an escape character for wildcards, spaces, 
  9046. + etc. Arguments containing wildcards are expanded into several arguments.
  9047. + 
  9048. + As an example, assume that uecho is an unix-like echo command compiled with the
  9049. + unix library, and that the current directory contains one file, echo.c. Then
  9050. + 
  9051. +   uecho 'f*un\' "#?.c" "*.c" "\mad" \*.c \\ \n
  9052. + 
  9053. + displays
  9054. + 
  9055. +   f*un\ echo.c .c \mad *.c \ n
  9056. + 
  9057. + c) Timezones. If you install the timezone information (provided with the
  9058. + unix library), you must set your system clock to GMT. Otherwise the times
  9059. + displayed or set by the unix library will be incorrect. To compensate, you
  9060. + won't have to adjust your system clock for daylight savings time (the local
  9061. + time calculated from GMT will always be correct).
  9062. diff -rc --new-file emacs-18.59/amiga/unix/mkmkf /gnu/src/amiga/emacs-18.59/amiga/unix/mkmkf
  9063. *** emacs-18.59/amiga/unix/mkmkf    Thu Jan  1 00:00:00 1970
  9064. --- /gnu/src/amiga/emacs-18.59/amiga/unix/mkmkf    Wed Sep 29 23:08:18 1993
  9065. ***************
  9066. *** 0 ****
  9067. --- 1,2 ----
  9068. + copy smakefile smakefile!
  9069. + perl src:unix/mkmkf.perl `glob *.c` >smakefile
  9070. diff -rc --new-file emacs-18.59/amiga/unix/mkmkf.perl /gnu/src/amiga/emacs-18.59/amiga/unix/mkmkf.perl
  9071. *** emacs-18.59/amiga/unix/mkmkf.perl    Thu Jan  1 00:00:00 1970
  9072. --- /gnu/src/amiga/emacs-18.59/amiga/unix/mkmkf.perl    Wed Sep 29 23:08:32 1993
  9073. ***************
  9074. *** 0 ****
  9075. --- 1,72 ----
  9076. + print "OBJS= ";
  9077. + for ($i = $#ARGV; $i >= 0; $i--)
  9078. + {
  9079. +     ($objs[$i] = $ARGV[$i]) =~ s/\.\w*$/\.o/;
  9080. + }
  9081. + &colprint(6, " ", @objs);
  9082. + print "\n\n";
  9083. + 
  9084. + if (-f "smakefile.base")
  9085. + {
  9086. +     open(BASE, "smakefile.base");
  9087. +     print while (<BASE>);
  9088. +     close(BASE);
  9089. + }
  9090. + 
  9091. + foreach $file (@ARGV)
  9092. + {
  9093. +     $dest = $file;
  9094. +     $dest =~ s/\.\w*$/\.o/;
  9095. +     if ($file =~ /\.c$/)
  9096. +     {
  9097. +     printf("%s: %s", $dest, $file);
  9098. +     $colto = length($dest) + length($file) + 2;
  9099. +     # Search for included files
  9100. +     %seen = ();
  9101. +     &included($file, 0);
  9102. +     &colprint($colto, " ", keys(%seen));
  9103. +     print "\n";
  9104. +     }
  9105. +     else
  9106. +     {
  9107. +     printf("%s: %s\n\n", $dest, $file);
  9108. +     }
  9109. + }
  9110. + 
  9111. + sub colprint
  9112. + {
  9113. +     local($colto, $sep, @names) = @_;
  9114. +     $col = $colto;
  9115. +     $sl = length($sep);
  9116. +     foreach $name (@names)
  9117. +     {
  9118. +     $nl = length($name);
  9119. +     if ($col + $nl + $sl > 78)
  9120. +     {
  9121. +         print " \\\n", " " x $colto;
  9122. +         $col = $colto;
  9123. +     }
  9124. +     print $sep, $name;
  9125. +     $col += $sl + $nl;
  9126. +     }
  9127. + }
  9128. + 
  9129. + sub included
  9130. + {
  9131. +     local($file, $input) = @_;
  9132. +     $input++;
  9133. +     if (!open($input, $file))
  9134. +     {
  9135. +     print STDERR "Can't open $file: $!\n";
  9136. +     return;
  9137. +     }
  9138. +     while (<$input>)
  9139. +     {
  9140. +     if (/^#\s*include\s*"([^"]*)"/ && !$seen{$1} && -e $1)
  9141. +         {
  9142. +         $seen{$1} = 1;
  9143. +         &included($1, $input);
  9144. +     }
  9145. +     }
  9146. +     close($input);
  9147. + }
  9148. diff -rc --new-file emacs-18.59/amiga/unix/src/SCOPTIONS /gnu/src/amiga/emacs-18.59/amiga/unix/src/SCOPTIONS
  9149. *** emacs-18.59/amiga/unix/src/SCOPTIONS    Thu Jan  1 00:00:00 1970
  9150. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/SCOPTIONS    Sat Dec  5 10:00:04 1992
  9151. ***************
  9152. *** 0 ****
  9153. --- 1,9 ----
  9154. + PARAMETERS=BOTH
  9155. + NOSTACKCHECK
  9156. + STRUCTUREEQUIVALENCE
  9157. + NOVERSION
  9158. + NOICONS
  9159. + INCLUDEDIR=/include/internal/
  9160. + INCLUDEDIR=/include/
  9161. + IGNORE=104
  9162. + IGNORE=74
  9163. diff -rc --new-file emacs-18.59/amiga/unix/src/_exit.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/_exit.c
  9164. *** emacs-18.59/amiga/unix/src/_exit.c    Thu Jan  1 00:00:00 1970
  9165. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/_exit.c    Fri Dec  4 22:18:52 1992
  9166. ***************
  9167. *** 0 ****
  9168. --- 1,30 ----
  9169. + #include "amiga.h"
  9170. + #include "files.h"
  9171. + #include "fifofd.h"
  9172. + #include "signals.h"
  9173. + #include "timers.h"
  9174. + #include <fcntl.h>
  9175. + 
  9176. + void _close_all(void)
  9177. + {
  9178. +   int fd, lfd = _last_fd();
  9179. + 
  9180. +   for (fd = 0; fd < lfd; fd++) close(fd);
  9181. + }
  9182. + 
  9183. + #undef _exit
  9184. + 
  9185. + void __exit(int rc)
  9186. + {
  9187. +   _close_all();
  9188. +   _cleanup_fifo();
  9189. +   _cleanup_signals();
  9190. +   _free_timer(_odd_timer);
  9191. +   XCEXIT(rc);
  9192. + }
  9193. + 
  9194. + void _exit(int rc)
  9195. + {
  9196. +   return __exit(rc);
  9197. + }
  9198. + 
  9199. diff -rc --new-file emacs-18.59/amiga/unix/src/_main.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/_main.c
  9200. *** emacs-18.59/amiga/unix/src/_main.c    Thu Jan  1 00:00:00 1970
  9201. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/_main.c    Sat Jun  5 15:25:10 1993
  9202. ***************
  9203. *** 0 ****
  9204. --- 1,471 ----
  9205. + #include "amiga.h"
  9206. + #include "signals.h"
  9207. + #include "fifofd.h"
  9208. + #include "timers.h"
  9209. + #include "amigados.h"
  9210. + #include <exec/execbase.h>
  9211. + #include <dos/var.h>
  9212. + #include <workbench/startup.h>
  9213. + #include <proto/timer.h>
  9214. + #include <stdlib.h>
  9215. + #include <string.h>
  9216. + #include <ctype.h>
  9217. + #include <sys/time.h>
  9218. + #include <pwd.h>
  9219. + 
  9220. + struct Process *_us;
  9221. + struct timeinfo *_odd_timer;
  9222. + ULONG _odd_sig;
  9223. + long _startup_time;
  9224. + long _stack_size;
  9225. + struct Library *TimerBase;
  9226. + 
  9227. + static char *empty_env = 0;    /* A default empty environment */
  9228. + char **environ;            /* Unix style environment variable list */
  9229. + char *_system_name;
  9230. + 
  9231. + extern struct ExecBase *SysBase;
  9232. + extern struct passwd _amiga_user;
  9233. + extern main(int argc, char **argv, char **envp);
  9234. + 
  9235. + static void nomem(void)
  9236. + {
  9237. +   _fail("No memory");
  9238. + }
  9239. + 
  9240. + static void *_xmalloc(unsigned n)
  9241. + {
  9242. +     void *p = malloc(n);
  9243. + 
  9244. +     if (!p) nomem();
  9245. + 
  9246. +     return p;
  9247. + }
  9248. + 
  9249. + static void *_xrealloc(void *p, unsigned n)
  9250. + {
  9251. +     void *p2 = realloc(p, n);
  9252. + 
  9253. +     if (!p2) nomem();
  9254. + 
  9255. +     return p2;
  9256. + }
  9257. + 
  9258. + static char *safe_copystr(char *str)
  9259. + {
  9260. +     char *new;
  9261. + 
  9262. +     if (!str) str = "";
  9263. +     new = malloc(strlen(str) + 1);
  9264. +     if (!new) return 0;
  9265. +     return strcpy(new, str);
  9266. + }
  9267. + 
  9268. + static char *copystr(char *str)
  9269. + {
  9270. +     char *new = safe_copystr(str);
  9271. + 
  9272. +     if (!new) nomem();
  9273. + 
  9274. +     return new;
  9275. + }
  9276. + 
  9277. + void make_environ(void)
  9278. + /* Effect: Builds a UNIX style environ variable from the AmigaDOS environment.
  9279. + */
  9280. + {
  9281. +     int env_count = 0;
  9282. +     long env_len = 0;
  9283. +     struct LocalVar *scan_env;
  9284. +     char **new_environ, *env_text;
  9285. + 
  9286. +     for (scan_env = (struct LocalVar *)_us->pr_LocalVars.mlh_Head;
  9287. +      scan_env->lv_Node.ln_Succ;
  9288. +      scan_env = (struct LocalVar *)scan_env->lv_Node.ln_Succ)
  9289. +     if (scan_env->lv_Node.ln_Type == LV_VAR &&
  9290. +         !(scan_env->lv_Flags & (GVF_GLOBAL_ONLY | GVF_BINARY_VAR)))
  9291. +     {
  9292. +         /* We only handle local text variables */
  9293. +         env_count++;
  9294. +         env_len += 2 + strlen(scan_env->lv_Node.ln_Name) + scan_env->lv_Len;
  9295. +     }
  9296. + 
  9297. +     new_environ = environ = (char **)_xmalloc(sizeof(char *) * (1 + env_count) +
  9298. +                           env_len);
  9299. +     env_text = (char *)(environ + (1 + env_count));
  9300. +     if (!environ) environ = &empty_env;
  9301. +     else
  9302. +     {
  9303. +     for (scan_env = (struct LocalVar *)_us->pr_LocalVars.mlh_Head;
  9304. +          scan_env->lv_Node.ln_Succ;
  9305. +          scan_env = (struct LocalVar *)scan_env->lv_Node.ln_Succ)
  9306. +         if (scan_env->lv_Node.ln_Type == LV_VAR &&
  9307. +         !(scan_env->lv_Flags & (GVF_GLOBAL_ONLY | GVF_BINARY_VAR)))
  9308. +         {
  9309. +         /* We only handle local text variables */
  9310. +         char *env_name = scan_env->lv_Node.ln_Name;
  9311. +         int env_len = scan_env->lv_Len;
  9312. + 
  9313. +         *new_environ++ = env_text;
  9314. +         while (*env_name) *env_text++ = *env_name++;
  9315. +         *env_text++ = '=';
  9316. +         env_name = scan_env->lv_Value;
  9317. +         while (env_len--) *env_text++ = *env_name++;
  9318. +         *env_text++ = '\0';
  9319. +         }
  9320. +     *new_environ = 0;
  9321. +     }
  9322. + }
  9323. + 
  9324. + /* _main routine.
  9325. +    Hides the differences between wb & cli.
  9326. +    Provides a unix-like environment (including coomand-line parsing &
  9327. +    wildcard expansion)
  9328. + */
  9329. + 
  9330. + #define DEFPATLEN 256
  9331. + #define NAMELEN 1024
  9332. + 
  9333. + struct args
  9334. + {
  9335. +     int size;
  9336. +     int argc;
  9337. +     char **argv;
  9338. + };
  9339. + 
  9340. + static void make_argv(struct args *args, int argc)
  9341. + {
  9342. +     args->size = argc;
  9343. +     args->argc = 0;
  9344. +     args->argv = _xmalloc(sizeof(char *) * argc);
  9345. + }
  9346. + 
  9347. + static int safe_add_arg(struct args *args, char *argument, int copy)
  9348. + {
  9349. +     char *arg_copy;
  9350. + 
  9351. +     if (copy) arg_copy = safe_copystr(argument);
  9352. +     else arg_copy = argument;
  9353. +     if (!arg_copy) return 0;
  9354. + 
  9355. +     if (args->argc >= args->size)
  9356. +     {
  9357. +     /* Make argv bigger */
  9358. +     if (args->size * 2 < args->size + 16) args->size += 16;
  9359. +     else args->size *= 2;
  9360. +     args->argv = realloc(args->argv, sizeof(char *) * args->size);
  9361. +     if (!args->argv) return 0;
  9362. +     }
  9363. +     args->argv[args->argc++] = arg_copy;
  9364. +     return 1;
  9365. + }
  9366. + 
  9367. + static void add_arg(struct args *args, char *argument, int copy)
  9368. + {
  9369. +     if (!safe_add_arg(args, argument, copy)) nomem();
  9370. + }
  9371. + 
  9372. + static void concat_args(struct args *args, struct args *add)
  9373. + {
  9374. +     if (args->argc + add->argc > args->size)
  9375. +     {
  9376. +     args->size = (args->argc + add->argc) * 2;
  9377. +     args->argv = _xrealloc(args->argv, sizeof(char *) * args->size);
  9378. +     }
  9379. +     memcpy(args->argv + args->argc, add->argv, add->argc * sizeof(char *));
  9380. +     args->argc += add->argc;
  9381. +     free(add->argv);
  9382. + }
  9383. + 
  9384. + typedef enum { quote_none, quote_single, quote_double } quote_type;
  9385. + typedef enum { extract_normal, extract_test, extract_pattern } extract_type;
  9386. + 
  9387. + static void extract(char *buf, char *start, char *end,
  9388. +             quote_type type, extract_type extract)
  9389. + {
  9390. +   char *res = buf;
  9391. + 
  9392. +   switch (type)
  9393. +     {
  9394. +     case quote_single:
  9395. +       if (extract != extract_test)
  9396. +     {
  9397. +       buf[end - start] = '\0';
  9398. +       memcpy(buf, start, end - start);
  9399. +     }
  9400. +       else strcpy(buf, "a");    /* Things in quotes are never patterns */
  9401. +       break;
  9402. + 
  9403. +     case quote_none:
  9404. +       while (start < end)
  9405. +     {
  9406. +       if (start[0] == '\\' && start[1])
  9407. +         {
  9408. +           start += 2;
  9409. +           /* Wildcard are escaped */
  9410. +           if (extract == extract_test) *res++ = 'a';
  9411. +           else if (extract == extract_pattern)
  9412. +         switch (start[-1])
  9413. +           {
  9414. +           case '?': case '#': case '(': case ')': case '|': case '[':
  9415. +           case ']': case '~': case '%': case '*': case '\'':
  9416. +             *res++ = '\'';
  9417. +           default:
  9418. +             *res++ = start[-1];
  9419. +             break;
  9420. +           }
  9421. +           else *res++ = start[-1];
  9422. +         }
  9423. +       else *res++ = *start++;
  9424. +     }
  9425. +       *res++ = '\0';
  9426. +       break;
  9427. + 
  9428. +     case quote_double:
  9429. +       while (start < end)
  9430. +     {
  9431. +       if (start[0] == '*' && start[1])
  9432. +         {
  9433. +           start += 2;
  9434. +           switch (start[-1])
  9435. +         {
  9436. +         case 'n': *res++ = '\n'; break;
  9437. +         case 'e': *res++ = '\x1b'; break;
  9438. +         default: *res++ = start[-1]; break;
  9439. +         }
  9440. +         }
  9441. +       else *res++ = *start++;
  9442. +     }
  9443. +       *res++ = '\0';
  9444. +       break;
  9445. +     }
  9446. + }
  9447. + 
  9448. + void __stdargs _main(char *line)
  9449. + /* Effect: Call unix_main with wildcards in argc & argv expanded (like unix)
  9450. +      Also, do some early amiga initialisation for emacs.
  9451. + */
  9452. + {
  9453. +   struct args args, wildargs;
  9454. +   char *pattern, *arg_start, *arg_end, *arg;
  9455. +   quote_type arg_quoted;
  9456. +   long patlen = DEFPATLEN;
  9457. +   struct AnchorPath *anchor;
  9458. +   struct timeval now;
  9459. + 
  9460. +   if (SysBase->LibNode.lib_Version < 37) XCEXIT(20);
  9461. + 
  9462. +   stdin->_file = 0;
  9463. +   stdin->_flag = _IOREAD;
  9464. +   stdout->_file = 1;
  9465. +   stdout->_flag = _IOWRT;
  9466. +   stderr->_file = 2;
  9467. +   stderr->_flag = _IORW | _IONBF;
  9468. + 
  9469. +   _us = (struct Process *)FindTask(0);
  9470. +   _odd_timer = _alloc_timer();
  9471. +   if (!_odd_timer) _fail("Failed to create timer");
  9472. +   _odd_sig = _timer_sig(_odd_timer);
  9473. +   TimerBase = _odd_timer->io->tr_node.io_Device;
  9474. +   GetSysTime(&now);
  9475. +   _startup_time = now.tv_secs;
  9476. + 
  9477. +   /* These use _startup_time, so must be here */
  9478. +   _init_fifo();
  9479. +   _init_signals();
  9480. + 
  9481. +   if (_us->pr_CLI) _stack_size = ((struct CommandLineInterface *)BADDR(_us->pr_CLI))->cli_DefaultStack << 2;
  9482. +   else _stack_size = _us->pr_StackSize;
  9483. + 
  9484. +   /* Make unix-like argc, argv (expand wildcards) */
  9485. +   if (!line[0])            /* Workbench, create argc & argv from files passed */
  9486. +     {
  9487. +       extern struct WBStartup *_WBenchMsg;
  9488. +       int i;
  9489. +       BPTR nilin = Open("NIL:",MODE_NEWFILE);
  9490. +       BPTR nilout = Open("NIL:",MODE_NEWFILE);
  9491. +       BPTR nilerr = Open("NIL:",MODE_NEWFILE);
  9492. + 
  9493. +       /* Initialise I/O. Nothing is available */
  9494. +       if (!nilin || !nilout || !nilerr)
  9495. +     {
  9496. +       if (nilin) Close(nilin);
  9497. +       if (nilout) Close(nilout);
  9498. +       if (nilerr) Close(nilerr);
  9499. +       nomem();
  9500. +     }
  9501. +       _init_unixio(nilin, TRUE, nilout, TRUE, nilerr, TRUE);
  9502. + 
  9503. +       /* Make argc, argv from Workbench parameters */
  9504. +       make_argv(&args, _WBenchMsg->sm_NumArgs);
  9505. + 
  9506. +       for (i = 0; i < _WBenchMsg->sm_NumArgs; i++)
  9507. +     {
  9508. +       char filename[256];
  9509. + 
  9510. +       if (_WBenchMsg->sm_ArgList[i].wa_Lock &&
  9511. +           NameFromLock(_WBenchMsg->sm_ArgList[i].wa_Lock, filename, 256))
  9512. +         {
  9513. +           if (_WBenchMsg->sm_ArgList[i].wa_Name)
  9514. +         AddPart(filename, _WBenchMsg->sm_ArgList[i].wa_Name, 256);
  9515. +           add_arg(&args, filename, TRUE);
  9516. +         }
  9517. +       /* else A parameter was lost, cry, cry, cry */
  9518. +     }
  9519. +     }
  9520. +   else                /* From CLI expand wildcards (with unix-like command line parsing) */
  9521. +     {
  9522. +       int close_error;
  9523. +       BPTR in, out, error;
  9524. + 
  9525. +       /* Initialise I/O. Copy CLI info */
  9526. +       in = Input();
  9527. +       out = Output();
  9528. +       close_error = FALSE;
  9529. +       if ((error = _us->pr_CES) == 0)
  9530. +     {
  9531. +       close_error = TRUE;
  9532. +       if ((error = Open("*", MODE_OLDFILE)) == 0)
  9533. +         if ((error = Open("NIL:", MODE_OLDFILE)) == 0) nomem();
  9534. +     }
  9535. +       _init_unixio(in, FALSE, out, FALSE, error, close_error);
  9536. + 
  9537. +       make_argv(&args, 1);
  9538. + 
  9539. +       anchor = _xmalloc(sizeof(struct AnchorPath) + NAMELEN);
  9540. +       anchor->ap_Strlen = NAMELEN;
  9541. +       pattern = _xmalloc(DEFPATLEN);
  9542. +       while (1)
  9543. +     {
  9544. +       long new_patlen;
  9545. +       int wild;
  9546. + 
  9547. +       /* Skip white space */
  9548. +       while (isspace(*line)) line++;
  9549. +       if (!*line) break;    /* End of command line */
  9550. + 
  9551. +       /* Extract next word */
  9552. +       /* Words in double quotes are handled AmigaDOS style
  9553. +          (+ filename expansion) */
  9554. +       if (*line == '"')
  9555. +         {
  9556. +           line++;
  9557. +           arg_start = line;
  9558. +           /* Find end of word */
  9559. +           while (*line && *line != '"')
  9560. +         {
  9561. +           /* * is an escape character inside double quotes
  9562. +              (AmigaDOS compatibility) */
  9563. +           if ((*line == '*') && line[1]) line++;
  9564. +           line++;
  9565. +         }
  9566. +           arg_end = line;
  9567. +           if (*line == '"') line++;
  9568. +           arg_quoted = quote_double;
  9569. +         }
  9570. +       /* Words in single quotes are handled unix style */
  9571. +       else if (*line == '\'')
  9572. +         {
  9573. +           line++;
  9574. +           arg_start = line;
  9575. +           /* Find end of word */
  9576. +           while (*line && *line != '\'') line++;
  9577. +           arg_end = line;
  9578. +           if (*line == '\'') line++;
  9579. +           arg_quoted = quote_single;
  9580. +         }
  9581. +       /* Unquoted words are handled unix style */
  9582. +       else            /* Plain word */
  9583. +         {
  9584. +           arg_start = line;
  9585. +           /* Find end of word */
  9586. +           while (*line && *line != ' ' && *line != '\n' && *line != '\t')
  9587. +         {
  9588. +           if (*line == '\\' && line[1]) line++;
  9589. +           line++;
  9590. +         }
  9591. +           arg_end = line;
  9592. +           arg_quoted = quote_none;
  9593. +         }
  9594. +       arg = _xmalloc(arg_end - arg_start + 1);
  9595. +       if (args.argc == 0)    /* Command name is left untouched */
  9596. +         {
  9597. +           strncpy(arg, arg_start, arg_end - arg_start);
  9598. +           arg[arg_end - arg_start] = 0;
  9599. +           add_arg(&args, arg, FALSE);
  9600. +         }
  9601. +       else
  9602. +         {
  9603. +           new_patlen = (arg_end - arg_start) * 2 + 16;
  9604. +           if (new_patlen > patlen)
  9605. +         {
  9606. +           free(pattern);
  9607. +           pattern = _xmalloc(new_patlen);
  9608. +           patlen = new_patlen;
  9609. +         }
  9610. +           extract(arg, arg_start, arg_end, arg_quoted, extract_test);
  9611. +           wild = ParsePattern(arg, pattern, patlen);
  9612. +           if (wild < 0)
  9613. +         {
  9614. +           *arg_end = 0;
  9615. +           _fail("Invalid wildcard %s", arg_start);
  9616. +         }
  9617. +           if (!wild)
  9618. +         {
  9619. +           extract(arg, arg_start, arg_end, arg_quoted, extract_normal);
  9620. +           add_arg(&args, arg, FALSE);
  9621. +         }
  9622. +           else
  9623. +         {
  9624. +           int none = TRUE;
  9625. +           long error;
  9626. + 
  9627. +           anchor->ap_Flags = anchor->ap_Reserved = anchor->ap_BreakBits = 0;
  9628. +           extract(arg, arg_start, arg_end, arg_quoted, extract_pattern);
  9629. +           make_argv(&wildargs, 16);
  9630. +           if (!(error = MatchFirst(arg, anchor)))
  9631. +             {
  9632. +               while (!error)
  9633. +             {
  9634. +               none = FALSE;
  9635. +               if (!safe_add_arg(&wildargs, anchor->ap_Buf, TRUE))
  9636. +                 {
  9637. +                   error = ERROR_NO_FREE_STORE;
  9638. +                   break;
  9639. +                 }
  9640. +               error = MatchNext(anchor);
  9641. +             }
  9642. +               MatchEnd(anchor);
  9643. +             }
  9644. +           if (error != ERROR_NO_MORE_ENTRIES)
  9645. +               _fail("Error expanding arguments");
  9646. +           if (none)
  9647. +             {
  9648. +               extract(arg, arg_start, arg_end, arg_quoted, extract_normal);
  9649. +               add_arg(&args, arg, FALSE);
  9650. +             }
  9651. +           else
  9652. +             {
  9653. +               tqsort(wildargs.argv, wildargs.argc);
  9654. +               concat_args(&args, &wildargs);
  9655. +               free(arg);
  9656. +             }
  9657. +         }
  9658. +         }
  9659. +     }
  9660. +       free(pattern);
  9661. +       free(anchor);
  9662. +     }
  9663. + 
  9664. +   make_environ();
  9665. + 
  9666. +   if (!(_amiga_user.pw_name = getenv("USER"))) _amiga_user.pw_name = "user";
  9667. +   if (!(_amiga_user.pw_gecos = getenv("USERNAME")))
  9668. +     _amiga_user.pw_gecos = _amiga_user.pw_name;
  9669. +   if (!(_amiga_user.pw_dir = getenv("HOME"))) _amiga_user.pw_dir = "s:";
  9670. +   if (!(_amiga_user.pw_shell = getenv("SHELL"))) _amiga_user.pw_shell = "bin:sh";
  9671. +   if (!(_system_name = getenv("HOSTNAME"))) _system_name = "amiga";
  9672. +     
  9673. +   main(args.argc, args.argv, environ);
  9674. +   exit(0);
  9675. + }
  9676. diff -rc --new-file emacs-18.59/amiga/unix/src/_setjmp.asm /gnu/src/amiga/emacs-18.59/amiga/unix/src/_setjmp.asm
  9677. *** emacs-18.59/amiga/unix/src/_setjmp.asm    Thu Jan  1 00:00:00 1970
  9678. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/_setjmp.asm    Sat Dec  5 18:18:18 1992
  9679. ***************
  9680. *** 0 ****
  9681. --- 1,27 ----
  9682. +     XDEF    __setjmp
  9683. +     XDEF    __longjmp
  9684. +     XDEF    @_setjmp
  9685. +     XDEF    @_longjmp
  9686. +     
  9687. +     csect    text,0,,2,2
  9688. + 
  9689. + __setjmp:
  9690. +     move.l    4(a7),a0        ; Get jmp_buf
  9691. + @_setjmp
  9692. +     move.l    (a7),(a0)+        ; Save return address
  9693. +     movem.l    a2-a7/d2-d7,(a0)    ; Save registers
  9694. +     moveq    #0,d0
  9695. +     rts
  9696. + 
  9697. + __longjmp:
  9698. +     move.l    4(a7),a0        ; Get jmp_buf
  9699. +     move.l    8(a7),d0        ; Get result
  9700. + @_longjmp
  9701. +     bne.s    ok
  9702. +     moveq    #1,d0            ; Return must be != 0
  9703. + ok    move.l    (a0)+,a1        ; Get return address
  9704. +     movem.l    (a0),a2-a7/d2-d7    ; Get registers
  9705. +     addq.l    #4,a7            ; Pop return address
  9706. +     jmp    (a1)            ; And return to setjmp call
  9707. + 
  9708. +     end
  9709. diff -rc --new-file emacs-18.59/amiga/unix/src/abort.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/abort.c
  9710. *** emacs-18.59/amiga/unix/src/abort.c    Thu Jan  1 00:00:00 1970
  9711. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/abort.c    Sun Jul 19 17:47:02 1992
  9712. ***************
  9713. *** 0 ****
  9714. --- 1,11 ----
  9715. + #include "amiga.h"
  9716. + #include <signal.h>
  9717. + 
  9718. + extern void _close_all(void);
  9719. + 
  9720. + void abort(void)
  9721. + {
  9722. +   chkabort();
  9723. +   _close_all();
  9724. +   kill(getpid(), SIGIOT);
  9725. + }
  9726. diff -rc --new-file emacs-18.59/amiga/unix/src/access.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/access.c
  9727. *** emacs-18.59/amiga/unix/src/access.c    Thu Jan  1 00:00:00 1970
  9728. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/access.c    Fri Dec  4 22:18:18 1992
  9729. ***************
  9730. *** 0 ****
  9731. --- 1,29 ----
  9732. + #include "amiga.h"
  9733. + #include "fibstat.h"
  9734. + #include <sys/types.h>
  9735. + #include <sys/stat.h>
  9736. + 
  9737. + #undef access
  9738. + 
  9739. + int __access(const char *name, int mode)
  9740. + {
  9741. +   int ret = -1;
  9742. +   struct stat sbuf;
  9743. + 
  9744. +   chkabort();
  9745. +   if (_fibstat(name, &sbuf) == 0)
  9746. +     {
  9747. +       int fmode = (sbuf.st_mode & (S_IREAD | S_IEXEC)) >> 6 |
  9748. +     (sbuf.st_mode & (S_IWRITE >> 3)) >> 3;
  9749. + 
  9750. +       if ((fmode & mode) == mode) ret = 0;
  9751. +       else errno = EACCES;
  9752. +     }
  9753. +   return ret;
  9754. + }
  9755. + 
  9756. + int access(const char *name, int mode)
  9757. + {
  9758. +   return __access(name, mode);
  9759. + }
  9760. + 
  9761. diff -rc --new-file emacs-18.59/amiga/unix/src/alloca.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/alloca.c
  9762. *** emacs-18.59/amiga/unix/src/alloca.c    Thu Jan  1 00:00:00 1970
  9763. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/alloca.c    Sun Jul 19 17:47:02 1992
  9764. ***************
  9765. *** 0 ****
  9766. --- 1,194 ----
  9767. + /*
  9768. +     alloca -- (mostly) portable public-domain implementation -- D A Gwyn
  9769. + 
  9770. +     last edit:    86/05/30    rms
  9771. +        include config.h, since on VMS it renames some symbols.
  9772. +        Use xmalloc instead of malloc.
  9773. + 
  9774. +     This implementation of the PWB library alloca() function,
  9775. +     which is used to allocate space off the run-time stack so
  9776. +     that it is automatically reclaimed upon procedure exit, 
  9777. +     was inspired by discussions with J. Q. Johnson of Cornell.
  9778. + 
  9779. +     It should work under any C implementation that uses an
  9780. +     actual procedure stack (as opposed to a linked list of
  9781. +     frames).  There are some preprocessor constants that can
  9782. +     be defined when compiling for your specific system, for
  9783. +     improved efficiency; however, the defaults should be okay.
  9784. + 
  9785. +     The general concept of this implementation is to keep
  9786. +     track of all alloca()-allocated blocks, and reclaim any
  9787. +     that are found to be deeper in the stack than the current
  9788. +     invocation.  This heuristic does not reclaim storage as
  9789. +     soon as it becomes invalid, but it will do so eventually.
  9790. + 
  9791. +     As a special case, alloca(0) reclaims storage without
  9792. +     allocating any.  It is a good idea to use alloca(0) in
  9793. +     your main control loop, etc. to force garbage collection.
  9794. + */
  9795. + #ifndef lint
  9796. + static char    SCCSid[] = "@(#)alloca.c    1.1";    /* for the "what" utility */
  9797. + #endif
  9798. + 
  9799. + #ifdef emacs
  9800. + #include "config.h"
  9801. + #ifdef static
  9802. + /* actually, only want this if static is defined as ""
  9803. +    -- this is for usg, in which emacs must undefine static
  9804. +    in order to make unexec workable
  9805. +    */
  9806. + #ifndef STACK_DIRECTION
  9807. + you
  9808. + lose
  9809. + -- must know STACK_DIRECTION at compile-time
  9810. + #endif /* STACK_DIRECTION undefined */
  9811. + #endif static
  9812. + #endif emacs
  9813. + 
  9814. + #ifndef alloca  /* If compiling with GCC, this file's not needed.  */
  9815. + 
  9816. + #ifdef __STDC__
  9817. + typedef void    *pointer;        /* generic pointer type */
  9818. + #else
  9819. + typedef char    *pointer;        /* generic pointer type */
  9820. + #endif
  9821. + 
  9822. + #define    NULL    0            /* null pointer constant */
  9823. + 
  9824. + extern void    free();
  9825. + extern pointer    malloc();
  9826. + 
  9827. + /*
  9828. +     Define STACK_DIRECTION if you know the direction of stack
  9829. +     growth for your system; otherwise it will be automatically
  9830. +     deduced at run-time.
  9831. + 
  9832. +     STACK_DIRECTION > 0 => grows toward higher addresses
  9833. +     STACK_DIRECTION < 0 => grows toward lower addresses
  9834. +     STACK_DIRECTION = 0 => direction of growth unknown
  9835. + */
  9836. + 
  9837. + #ifndef STACK_DIRECTION
  9838. + #define    STACK_DIRECTION    0        /* direction unknown */
  9839. + #endif
  9840. + 
  9841. + #if (STACK_DIRECTION) != 0
  9842. + 
  9843. + #define    STACK_DIR    STACK_DIRECTION    /* known at compile-time */
  9844. + 
  9845. + #else    /* STACK_DIRECTION == 0; need run-time code */
  9846. + 
  9847. + static int    stack_dir;        /* 1 or -1 once known */
  9848. + #define    STACK_DIR    stack_dir
  9849. + 
  9850. + static void
  9851. + find_stack_direction (/* void */)
  9852. + {
  9853. +   static char    *addr = NULL;    /* address of first
  9854. +                    `dummy', once known */
  9855. +   auto char    dummy;        /* to get stack address */
  9856. + 
  9857. +   if (addr == NULL)
  9858. +     {                /* initial entry */
  9859. +       addr = &dummy;
  9860. + 
  9861. +       find_stack_direction ();    /* recurse once */
  9862. +     }
  9863. +   else                /* second entry */
  9864. +     if (&dummy > addr)
  9865. +       stack_dir = 1;        /* stack grew upward */
  9866. +     else
  9867. +       stack_dir = -1;        /* stack grew downward */
  9868. + }
  9869. + 
  9870. + #endif    /* STACK_DIRECTION == 0 */
  9871. + 
  9872. + /*
  9873. +     An "alloca header" is used to:
  9874. +     (a) chain together all alloca()ed blocks;
  9875. +     (b) keep track of stack depth.
  9876. + 
  9877. +     It is very important that sizeof(header) agree with malloc()
  9878. +     alignment chunk size.  The following default should work okay.
  9879. + */
  9880. + 
  9881. + #ifndef    ALIGN_SIZE
  9882. + #define    ALIGN_SIZE    sizeof(double)
  9883. + #endif
  9884. + 
  9885. + typedef union hdr
  9886. + {
  9887. +   char    align[ALIGN_SIZE];    /* to force sizeof(header) */
  9888. +   struct
  9889. +     {
  9890. +       union hdr *next;        /* for chaining headers */
  9891. +       char *deep;        /* for stack depth measure */
  9892. +     } h;
  9893. + } header;
  9894. + 
  9895. + /*
  9896. +     alloca( size ) returns a pointer to at least `size' bytes of
  9897. +     storage which will be automatically reclaimed upon exit from
  9898. +     the procedure that called alloca().  Originally, this space
  9899. +     was supposed to be taken from the current stack frame of the
  9900. +     caller, but that method cannot be made to work for some
  9901. +     implementations of C, for example under Gould's UTX/32.
  9902. + */
  9903. + 
  9904. + static header *last_alloca_header = NULL; /* -> last alloca header */
  9905. + 
  9906. + pointer
  9907. + alloca (size)            /* returns pointer to storage */
  9908. +      unsigned    size;        /* # bytes to allocate */
  9909. + {
  9910. +   auto char    probe;        /* probes stack depth: */
  9911. +   register char    *depth = &probe;
  9912. + 
  9913. + #if STACK_DIRECTION == 0
  9914. +   if (STACK_DIR == 0)        /* unknown growth direction */
  9915. +     find_stack_direction ();
  9916. + #endif
  9917. + 
  9918. +                 /* Reclaim garbage, defined as all alloca()ed storage that
  9919. +                    was allocated from deeper in the stack than currently. */
  9920. + 
  9921. +   {
  9922. +     register header    *hp;    /* traverses linked list */
  9923. + 
  9924. +     for (hp = last_alloca_header; hp != NULL;)
  9925. +       if (STACK_DIR > 0 && hp->h.deep > depth
  9926. +       || STACK_DIR < 0 && hp->h.deep < depth)
  9927. +     {
  9928. +       register header    *np = hp->h.next;
  9929. + 
  9930. +       free ((pointer) hp);    /* collect garbage */
  9931. + 
  9932. +       hp = np;        /* -> next header */
  9933. +     }
  9934. +       else
  9935. +     break;            /* rest are not deeper */
  9936. + 
  9937. +     last_alloca_header = hp;    /* -> last valid storage */
  9938. +   }
  9939. + 
  9940. +   if (size == 0)
  9941. +     return NULL;        /* no allocation required */
  9942. + 
  9943. +   /* Allocate combined header + user data storage. */
  9944. + 
  9945. +   {
  9946. +     register pointer    new = malloc (sizeof (header) + size);
  9947. +     /* address of header */
  9948. + 
  9949. +     ((header *)new)->h.next = last_alloca_header;
  9950. +     ((header *)new)->h.deep = depth;
  9951. + 
  9952. +     last_alloca_header = (header *)new;
  9953. + 
  9954. +     /* User storage begins just after header. */
  9955. + 
  9956. +     return (pointer)((char *)new + sizeof(header));
  9957. +   }
  9958. + }
  9959. + 
  9960. + #endif /* no alloca */
  9961. diff -rc --new-file emacs-18.59/amiga/unix/src/allocdos.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/allocdos.c
  9962. *** emacs-18.59/amiga/unix/src/allocdos.c    Thu Jan  1 00:00:00 1970
  9963. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/allocdos.c    Sun Oct 11 13:04:22 1992
  9964. ***************
  9965. *** 0 ****
  9966. --- 1,6 ----
  9967. + #include <proto/dos.h>
  9968. + 
  9969. + void *AllocDosObjectTags(ULONG type, ULONG tag1, ...)
  9970. + {
  9971. +   return AllocDosObject(type, &tag1);
  9972. + }
  9973. diff -rc --new-file emacs-18.59/amiga/unix/src/amiga.h /gnu/src/amiga/emacs-18.59/amiga/unix/src/amiga.h
  9974. *** emacs-18.59/amiga/unix/src/amiga.h    Thu Jan  1 00:00:00 1970
  9975. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/amiga.h    Wed Dec  2 20:12:34 1992
  9976. ***************
  9977. *** 0 ****
  9978. --- 1,39 ----
  9979. + #include <exec/types.h>
  9980. + #include <dos/dos.h>
  9981. + #include <proto/dos.h>
  9982. + #include <proto/exec.h>
  9983. + 
  9984. + #include <errno.h>
  9985. + #include <stddef.h>
  9986. + #include <stdlib.h>
  9987. + #include <stdio.h>
  9988. + #include <sys/types.h>
  9989. + #include <internal/vars.h>
  9990. + 
  9991. + extern struct timeinfo *_odd_timer;
  9992. + extern ULONG _odd_sig;
  9993. + extern struct Library *TimerBase;
  9994. + 
  9995. + int convert_oserr(int ioerr);
  9996. + void _seterr(void);
  9997. + void chkabort(void);
  9998. + 
  9999. + #define ERROR do { _seterr(); return -1; } while(0)
  10000. + #define AMIGA_UID 1
  10001. + #define AMIGA_GID 0
  10002. + 
  10003. + int _make_protection(int mode);
  10004. + int _make_mode(int protection);
  10005. + 
  10006. + void _message(char *format, ...);
  10007. + /* Display a message which is as visible as possible (either to the console
  10008. +    or to as a requester).
  10009. +    Assume very little about library state */
  10010. + 
  10011. + void _fail(char *format, ...);
  10012. + /* Display a message which is as visible as possible (either to the console
  10013. +    or to as a requester).
  10014. +    Assume very little about library state.
  10015. +    Exit with error code RETURN_FAIL after that. */
  10016. + 
  10017. + void _sprintf(char *dest, char *format, ...);
  10018. diff -rc --new-file emacs-18.59/amiga/unix/src/amigados.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/amigados.c
  10019. *** emacs-18.59/amiga/unix/src/amigados.c    Thu Jan  1 00:00:00 1970
  10020. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/amigados.c    Sun Dec  6 13:14:12 1992
  10021. ***************
  10022. *** 0 ****
  10023. --- 1,299 ----
  10024. + #include "amiga.h"
  10025. + #include "files.h"
  10026. + #include "signals.h"
  10027. + #include <exec/memory.h>
  10028. + #include <fcntl.h>
  10029. + #include <sys/termios.h>
  10030. + #include <amiga/ioctl.h>
  10031. + #include <string.h>
  10032. + 
  10033. + /* Code for fd's describing AmigaDOS files */
  10034. + 
  10035. + struct amigainfo
  10036. + {
  10037. +     BPTR fh;
  10038. +     BPTR lock;            /* A lock on the file (may be null) */
  10039. +     long protection;        /* To be set when file is closed, -1 for none */
  10040. +     char interactive;        /* True if file was interactive */
  10041. +     char deleted;        /* True if file has been deleted but not closed */
  10042. + };
  10043. + 
  10044. + static ULONG __regargs file_select_start(void *userinfo, int rd, int wr)
  10045. + {
  10046. +   /* Input always immediately available, gniark */
  10047. +   return (ULONG)-1;
  10048. + }
  10049. + 
  10050. + static void __regargs file_select_poll(void *userinfo, int *rd, int *wr)
  10051. + {
  10052. +   /* Input always immediately available, gniark */
  10053. + }
  10054. + 
  10055. + static int __regargs file_read(void *userinfo, void *buffer, unsigned int length)
  10056. + {
  10057. +   struct amigainfo *info = userinfo;
  10058. +   BPTR fh = info->fh;
  10059. +   LONG cnt;
  10060. + 
  10061. +   if (info->deleted) return 0;
  10062. +   if ((cnt = Read(fh, buffer, length)) == -1) ERROR;
  10063. +   return (int)cnt;
  10064. + }
  10065. + 
  10066. + static int __regargs file_write(void *userinfo, void *buffer, unsigned int length)
  10067. + {
  10068. +   struct amigainfo *info = userinfo;
  10069. +   BPTR fh = info->fh;
  10070. +   int cnt;
  10071. + 
  10072. +   if (info->deleted) return 0;
  10073. +   if (info->interactive)
  10074. +     {
  10075. +       char *bufend = (char *)buffer + length;
  10076. + 
  10077. +       /* Write by lines, more pleasant for user */
  10078. +       cnt = 0;
  10079. +       while (length)
  10080. +     {
  10081. +       char *end = buffer;
  10082. +       long nb;
  10083. +       unsigned len;
  10084. + 
  10085. +       while (end < bufend && *end != '\n') end++;
  10086. +       if (end == bufend) len = end - (char *)buffer;
  10087. +       else len = end + 1 - (char *)buffer;
  10088. + 
  10089. +       if ((nb = Write(fh, buffer, len)) == -1) ERROR;
  10090. +       cnt += nb;
  10091. +       if (nb != len) break;
  10092. + 
  10093. +       buffer = end + 1;
  10094. +       length -= nb;
  10095. +       /* Interrupt write ? */
  10096. +       if (_handle_signals(_check_signals(0))) break;
  10097. +     }
  10098. +     }
  10099. +   else if ((cnt = Write(fh, buffer, length)) == -1) ERROR;
  10100. +   return cnt;
  10101. + }
  10102. + 
  10103. + static int __regargs file_lseek(void *userinfo, long rpos, int mode)
  10104. + {
  10105. +   struct amigainfo *info = userinfo;
  10106. +   BPTR fh = info->fh;
  10107. +   LONG pos, err;
  10108. + 
  10109. +   if (info->deleted) return 0;
  10110. +   pos = Seek(fh, rpos, mode - 1);
  10111. +   err = IoErr();
  10112. +   if (pos == -1 || err)
  10113. +     {
  10114. +       errno = convert_oserr(err);
  10115. +       return -1;
  10116. +     }
  10117. +   pos = Seek(fh, 0, OFFSET_CURRENT);
  10118. +   if (pos == -1 || err)
  10119. +     {
  10120. +       errno = convert_oserr(err);
  10121. +       return -1;
  10122. +     }
  10123. +   return pos;
  10124. + }
  10125. + 
  10126. + static int __regargs file_close(void *userinfo, int internal)
  10127. + {
  10128. +   struct amigainfo *info = userinfo;
  10129. +   BPTR fh = info->fh;
  10130. +   long protection = info->protection;
  10131. +   char name[256];
  10132. +   int ok, deleted;
  10133. + 
  10134. +   if (info->lock) UnLock(info->lock);
  10135. +   deleted = info->deleted;
  10136. +   free(info);
  10137. +   if (deleted) return 0;
  10138. + 
  10139. +   ok = NameFromFH(fh, name, 256);
  10140. +   if (internal || Close(fh))
  10141. +     if (!ok || protection == -1 || SetProtection(name, protection)) return 0;
  10142. +   ERROR;
  10143. + }
  10144. + 
  10145. + static int isfifo(BPTR fh)
  10146. + /* Requires: IsInteractive(fh) */
  10147. + /* Try & find out if fh is a fifo: file */
  10148. + {
  10149. +     WaitForChar(fh, 0);
  10150. + 
  10151. +     return IoErr() == ERROR_ACTION_NOT_KNOWN;
  10152. + }
  10153. + 
  10154. + static int GetWinBounds (BPTR fh, long *width, long *height)
  10155. + {
  10156. +   char buffer[16];
  10157. +   int ok = 0;
  10158. + 
  10159. +   if (!isfifo(fh) && SetMode (fh, 1))
  10160. +     {
  10161. +       if ((Write (fh, "\x9b" "0 q", 4) == 4) &&
  10162. +       WaitForChar (fh, 10000L) &&
  10163. +       (Read (fh, buffer, sizeof (buffer)) > 9) &&
  10164. +       (buffer[0] == '\x9b'))
  10165. +     {
  10166. +       int y = StrToLong (buffer+5, height);
  10167. +       int x = StrToLong (buffer+5+y+1, width);
  10168. +       if ((x != -1) && (y != -1)) ok = 1;
  10169. +     }
  10170. +       SetMode (fh, 0);
  10171. +     }
  10172. +   return ok;
  10173. + }
  10174. + 
  10175. + int _do_truncate(BPTR fh, off_t length)
  10176. + {
  10177. +   int err, ret = -1;
  10178. +   long oldsize, oldpos;
  10179. + 
  10180. +   oldpos = Seek(fh, 0, OFFSET_END);
  10181. +   oldsize = Seek(fh, 0, OFFSET_END);
  10182. + 
  10183. +   if (!(err = IoErr()) &&
  10184. +       SetFileSize(fh, length, OFFSET_BEGINNING) == length)
  10185. +     {
  10186. +       if (oldsize < length)
  10187. +     {
  10188. +       /* Zero extra bytes */
  10189. +       off_t bufsize = length - oldsize, left = bufsize;
  10190. +       char *buf;
  10191. +       char reserve[512];
  10192. + 
  10193. +       if (!(buf = AllocMem(bufsize, MEMF_CLEAR)))
  10194. +         {
  10195. +           bufsize = AvailMem(MEMF_LARGEST) / 2;
  10196. + 
  10197. +           if (bufsize < 512 || !(buf = AllocMem(bufsize, MEMF_CLEAR)))
  10198. +         {
  10199. +           bufsize = 512;
  10200. +           buf = reserve;
  10201. +           memset(reserve, 0, 512);
  10202. +         }
  10203. +         }
  10204. +       while (left > 0)
  10205. +         {
  10206. +           long count = left > bufsize ? bufsize : left;
  10207. + 
  10208. +           chkabort();
  10209. +           if (Write(fh, buf, count) != count)
  10210. +         {
  10211. +           err = IoErr();
  10212. +           break;
  10213. +         }
  10214. +           left -= count;
  10215. +         }
  10216. +       if (buf != reserve) FreeMem(buf, bufsize);
  10217. +     }
  10218. +       if (!err) ret = 0;
  10219. +     }
  10220. +   if (oldpos < length) Seek(fh, oldpos, OFFSET_BEGINNING);
  10221. + 
  10222. +   if (ret) errno = convert_oserr(err);
  10223. +   return ret;
  10224. + }
  10225. + 
  10226. + static int __regargs file_ioctl(void *userinfo, int request, void *data)
  10227. + {
  10228. +   struct amigainfo *info = userinfo;
  10229. +   BPTR fh = info->fh;
  10230. + 
  10231. +   if (!info->deleted)
  10232. +     switch (request)
  10233. +       {
  10234. +       case TIOCGWINSZ: {
  10235. +     struct winsize *ws = data;
  10236. +     long col, row;
  10237. + 
  10238. +     if (info->interactive && GetWinBounds(fh, &col, &row))
  10239. +       {
  10240. +         ws->ws_col = col; ws->ws_row = row;
  10241. +         return 0;
  10242. +       }
  10243. +     errno = ENOTTY;
  10244. +     return -1;
  10245. +       }
  10246. +       case _AMIGA_INTERACTIVE: {
  10247. +     int *inter = data;
  10248. + 
  10249. +     *inter = IsInteractive(fh);
  10250. +     return 0;
  10251. +       }
  10252. +       case _AMIGA_GET_FH: {
  10253. +     BPTR *gotfh = data;
  10254. + 
  10255. +     *gotfh = fh;
  10256. +     return 0;
  10257. +       }
  10258. +       case _AMIGA_FREE_FH: return 0;
  10259. +       case _AMIGA_TRUNCATE: {
  10260. +     off_t length = *(off_t *)data;
  10261. + 
  10262. +     return _do_truncate(fh, length);
  10263. +       }
  10264. +       case _AMIGA_SETPROTECTION:
  10265. +     info->protection = *(long *)data;
  10266. +     return 0;
  10267. +       case _AMIGA_DELETE_IF_ME: {
  10268. +     BPTR nlock = *(BPTR *)data;
  10269. + 
  10270. +     if (!info->lock) info->lock = DupLockFromFH(info->fh);
  10271. +     if (info->lock && SameLock(nlock, info->lock) == LOCK_SAME)
  10272. +       {
  10273. +         char name[256];
  10274. + 
  10275. +         if (NameFromFH(fh, name, 256))
  10276. +           {
  10277. +         UnLock(nlock);
  10278. +         UnLock(info->lock);
  10279. +         Close(fh);
  10280. +         SetProtection(name, 0);
  10281. +         info->deleted = TRUE;
  10282. +         info->lock = info->fh = 0;
  10283. +         if (DeleteFile(name)) return 0;
  10284. +           }
  10285. +       }
  10286. +     ERROR;
  10287. +       }
  10288. +       }
  10289. +   errno = EINVAL;
  10290. +   return -1;
  10291. + }
  10292. + 
  10293. + int _alloc_amigafd(BPTR fh, long protection, long flags)
  10294. + {
  10295. +   struct amigainfo *new = (struct amigainfo *)malloc(sizeof(struct amigainfo));
  10296. +   int fd;
  10297. + 
  10298. +   if (!new) { errno = ENOMEM; return -1; }
  10299. +   new->fh = fh;
  10300. +   new->lock = NULL;
  10301. +   new->protection = protection;
  10302. +   new->deleted = FALSE;
  10303. +   new->interactive = IsInteractive(fh);
  10304. + 
  10305. +   fd = _alloc_fd(new, flags,
  10306. +          file_select_start, file_select_poll, file_read, file_write,
  10307. +          file_lseek, file_close, file_ioctl);
  10308. +   if (fd < 0) free(new);
  10309. + 
  10310. +   return fd;
  10311. + }
  10312. + 
  10313. + void _init_unixio(BPTR in, int close_in, BPTR out, int close_out,
  10314. +           BPTR error, int close_error)
  10315. + {
  10316. +   if (_alloc_amigafd(in, -1, FI_READ | (close_in ? 0 : O_NO_CLOSE)) == 0 &&
  10317. +       _alloc_amigafd(out, -1, FI_WRITE | (close_out ? 0 : O_NO_CLOSE)) == 1 &&
  10318. +       _alloc_amigafd(error, -1, FI_WRITE | (close_error ? 0 : O_NO_CLOSE)) == 2)
  10319. +       return;
  10320. + 
  10321. +   _fail("Failed to initialise I/O");
  10322. + }
  10323. diff -rc --new-file emacs-18.59/amiga/unix/src/amigados.h /gnu/src/amiga/emacs-18.59/amiga/unix/src/amigados.h
  10324. *** emacs-18.59/amiga/unix/src/amigados.h    Thu Jan  1 00:00:00 1970
  10325. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/amigados.h    Sun Jul 19 17:47:02 1992
  10326. ***************
  10327. *** 0 ****
  10328. --- 1,10 ----
  10329. + #ifndef AMIGADOS_H
  10330. + #define AMIGADOS_H
  10331. + 
  10332. + int _alloc_amigafd(BPTR fh, long protection, long flags);
  10333. + 
  10334. + void _init_unixio(BPTR in, int close_in, BPTR out, int close_out,
  10335. +           BPTR error, int close_error);
  10336. + int _do_truncate(BPTR fh, off_t length);
  10337. + 
  10338. + #endif
  10339. diff -rc --new-file emacs-18.59/amiga/unix/src/amigatime.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/amigatime.c
  10340. *** emacs-18.59/amiga/unix/src/amigatime.c    Thu Jan  1 00:00:00 1970
  10341. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/amigatime.c    Tue Aug 25 22:08:14 1992
  10342. ***************
  10343. *** 0 ****
  10344. --- 1,55 ----
  10345. + #include "amiga.h"
  10346. + #include "timeconvert.h"
  10347. + #include <sys/time.h>
  10348. + #include <sys/timeb.h>
  10349. + #include <string.h>
  10350. + 
  10351. + extern char *tzname[2];
  10352. + extern int daylight;
  10353. + 
  10354. + int gettimeofday(struct timeval *tp, struct timezone *tzp)
  10355. + {
  10356. +   struct timeval now;
  10357. + 
  10358. +   chkabort();
  10359. + 
  10360. +   _gettime(&now);
  10361. +   if (tp) *tp = now;
  10362. + 
  10363. +   if (tzp)
  10364. +     {
  10365. +       int dst;
  10366. +       struct tm *local;
  10367. + 
  10368. +       local = localtime(&now.tv_secs);
  10369. +       
  10370. +       tzp->tz_minuteswest = -local->tm_gmtoff / 60;
  10371. +       /* Guess a value for tz_dsttime, based on tzname[1] */
  10372. +       /* These guesses are not very good. */
  10373. +       dst = DST_NONE;
  10374. +       if (!strcmp(tzname[1], "MET DST")) dst = DST_MET;
  10375. +       else if (!strcmp(tzname[1], "WET DST")) dst = DST_WET;
  10376. +       else if (!strcmp(tzname[1], "EET DST")) dst = DST_EET;
  10377. +       else if (!strcmp(tzname[1], "EDT")) dst = DST_USA;
  10378. +       else if (!strcmp(tzname[1], "CDT")) dst = DST_USA;
  10379. +       else if (!strcmp(tzname[1], "MDT")) dst = DST_USA;
  10380. +       else if (!strcmp(tzname[1], "PDT")) dst = DST_USA;
  10381. +       else if (!strcmp(tzname[1], "AKDT")) dst = DST_USA;
  10382. +       tzp->tz_dsttime = dst;
  10383. +     }
  10384. +   return 0;
  10385. + }
  10386. + 
  10387. + int ftime(struct timeb *ft)
  10388. + {
  10389. +   struct timeval now;
  10390. +   struct timezone zone;
  10391. + 
  10392. +   gettimeofday(&now, &zone);
  10393. +   ft->time = now.tv_sec;
  10394. +   ft->millitm = now.tv_usec;
  10395. +   ft->timezone = zone.tz_minuteswest;
  10396. +   ft->dstflag = daylight;
  10397. + 
  10398. +   return 0;
  10399. + }
  10400. diff -rc --new-file emacs-18.59/amiga/unix/src/bcmp.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/bcmp.c
  10401. *** emacs-18.59/amiga/unix/src/bcmp.c    Thu Jan  1 00:00:00 1970
  10402. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/bcmp.c    Wed Dec  2 19:59:32 1992
  10403. ***************
  10404. *** 0 ****
  10405. --- 1,9 ----
  10406. + #include "amiga.h"
  10407. + #include <string.h>
  10408. + 
  10409. + #undef bcmp
  10410. + 
  10411. + int bcmp(char *b1, char *b2, int length)
  10412. + {
  10413. +   return length == 0 ? 0 : memcmp(b2, b1, length);
  10414. + }
  10415. diff -rc --new-file emacs-18.59/amiga/unix/src/bcopy.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/bcopy.c
  10416. *** emacs-18.59/amiga/unix/src/bcopy.c    Thu Jan  1 00:00:00 1970
  10417. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/bcopy.c    Wed Dec  2 19:59:46 1992
  10418. ***************
  10419. *** 0 ****
  10420. --- 1,10 ----
  10421. + #include "amiga.h"
  10422. + #include <string.h>
  10423. + 
  10424. + #undef bcopy
  10425. + 
  10426. + void bcopy(char *b1, char *b2, int length)
  10427. + {
  10428. +   /* Unoptimised version */
  10429. +   memmove(b2, b1, length);
  10430. + }
  10431. diff -rc --new-file emacs-18.59/amiga/unix/src/bzero.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/bzero.c
  10432. *** emacs-18.59/amiga/unix/src/bzero.c    Thu Jan  1 00:00:00 1970
  10433. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/bzero.c    Wed Dec  2 19:59:04 1992
  10434. ***************
  10435. *** 0 ****
  10436. --- 1,9 ----
  10437. + #include "amiga.h"
  10438. + #include <string.h>
  10439. + 
  10440. + #undef bzero
  10441. + 
  10442. + void bzero(char *b, int length)
  10443. + {
  10444. +   memset(b, 0, length);
  10445. + }
  10446. diff -rc --new-file emacs-18.59/amiga/unix/src/chmod.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/chmod.c
  10447. *** emacs-18.59/amiga/unix/src/chmod.c    Thu Jan  1 00:00:00 1970
  10448. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/chmod.c    Wed Dec  2 19:52:06 1992
  10449. ***************
  10450. *** 0 ****
  10451. --- 1,8 ----
  10452. + #include "amiga.h"
  10453. + 
  10454. + int chmod(const char *name, int mode)
  10455. + {
  10456. +   chkabort();
  10457. +   if (SetProtection(name, _make_protection(mode))) return 0;
  10458. +   ERROR;
  10459. + }
  10460. diff -rc --new-file emacs-18.59/amiga/unix/src/chown.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/chown.c
  10461. *** emacs-18.59/amiga/unix/src/chown.c    Thu Jan  1 00:00:00 1970
  10462. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/chown.c    Sun Jul 19 17:47:02 1992
  10463. ***************
  10464. *** 0 ****
  10465. --- 1,4 ----
  10466. + #include "amiga.h"
  10467. + 
  10468. + int chown(char *path, int owner, int group) { return 0; }
  10469. + int fchown(int fd, int owner, int group) { return 0; }
  10470. diff -rc --new-file emacs-18.59/amiga/unix/src/close.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/close.c
  10471. *** emacs-18.59/amiga/unix/src/close.c    Thu Jan  1 00:00:00 1970
  10472. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/close.c    Fri Dec  4 22:17:50 1992
  10473. ***************
  10474. *** 0 ****
  10475. --- 1,26 ----
  10476. + #include "amiga.h"
  10477. + #include "files.h"
  10478. + #include <fcntl.h>
  10479. + 
  10480. + #undef close
  10481. + 
  10482. + int __close(int fd)
  10483. + {
  10484. +   struct fileinfo *fi;
  10485. + 
  10486. +   chkabort();
  10487. +   if (fi = _find_fd(fd))
  10488. +     {
  10489. +       int err = fi->close(fi->userinfo, fi->flags & O_NO_CLOSE);
  10490. + 
  10491. +       _free_fd(fd);
  10492. +       return err;
  10493. +     }
  10494. +   return -1;
  10495. + }
  10496. + 
  10497. + int close(int fd)
  10498. + {
  10499. +   return __close(fd);
  10500. + }
  10501. + 
  10502. diff -rc --new-file emacs-18.59/amiga/unix/src/creat.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/creat.c
  10503. *** emacs-18.59/amiga/unix/src/creat.c    Thu Jan  1 00:00:00 1970
  10504. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/creat.c    Fri Dec  4 22:17:08 1992
  10505. ***************
  10506. *** 0 ****
  10507. --- 1,17 ----
  10508. + #include "amiga.h"
  10509. + #include "files.h"
  10510. + #include <fcntl.h>
  10511. + 
  10512. + #undef creat
  10513. + 
  10514. + int __creat(const char *file, int prot)
  10515. + {
  10516. +   chkabort();
  10517. +   return open(file, O_WRONLY | O_CREAT | O_TRUNC, prot);
  10518. + }
  10519. + 
  10520. + int creat(const char *file, int prot)
  10521. + {
  10522. +   return __creat(file, prot);
  10523. + }
  10524. + 
  10525. diff -rc --new-file emacs-18.59/amiga/unix/src/ctime.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/ctime.c
  10526. *** emacs-18.59/amiga/unix/src/ctime.c    Thu Jan  1 00:00:00 1970
  10527. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/ctime.c    Sat Dec  5 11:00:58 1992
  10528. ***************
  10529. *** 0 ****
  10530. --- 1,1381 ----
  10531. + /*
  10532. +  * Copyright (c) 1987, 1989 Regents of the University of California.
  10533. +  * All rights reserved.
  10534. +  *
  10535. +  * This code is derived from software contributed to Berkeley by
  10536. +  * Arthur David Olson of the National Cancer Institute.
  10537. +  *
  10538. +  * Redistribution and use in source and binary forms, with or without
  10539. +  * modification, are permitted provided that the following conditions
  10540. +  * are met:
  10541. +  * 1. Redistributions of source code must retain the above copyright
  10542. +  *    notice, this list of conditions and the following disclaimer.
  10543. +  * 2. Redistributions in binary form must reproduce the above copyright
  10544. +  *    notice, this list of conditions and the following disclaimer in the
  10545. +  *    documentation and/or other materials provided with the distribution.
  10546. +  * 3. All advertising materials mentioning features or use of this software
  10547. +  *    must display the following acknowledgement:
  10548. +  *    This product includes software developed by the University of
  10549. +  *    California, Berkeley and its contributors.
  10550. +  * 4. Neither the name of the University nor the names of its contributors
  10551. +  *    may be used to endorse or promote products derived from this software
  10552. +  *    without specific prior written permission.
  10553. +  *
  10554. +  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  10555. +  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  10556. +  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  10557. +  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  10558. +  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  10559. +  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  10560. +  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  10561. +  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  10562. +  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  10563. +  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  10564. +  * SUCH DAMAGE.
  10565. +  */
  10566. + 
  10567. + #if defined(LIBC_SCCS) && !defined(lint)
  10568. + static char sccsid[] = "@(#)ctime.c    5.26 (Berkeley) 2/23/91";
  10569. + #endif /* LIBC_SCCS and not lint */
  10570. + 
  10571. + /*
  10572. + ** Leap second handling from Bradley White (bww@k.gp.cs.cmu.edu).
  10573. + ** POSIX-style TZ environment variable handling from Guy Harris
  10574. + ** (guy@auspex.com).
  10575. + */
  10576. + 
  10577. + /*LINTLIBRARY*/
  10578. + 
  10579. + #include <sys/param.h>
  10580. + #include <fcntl.h>
  10581. + #include <time.h>
  10582. + #include <tzfile.h>
  10583. + #include <string.h>
  10584. + #include <ctype.h>
  10585. + #include <stdio.h>
  10586. + #include <unistd.h>
  10587. + 
  10588. + #ifdef __STDC__
  10589. + #include <stdlib.h>
  10590. + 
  10591. + #define P(s)        s
  10592. + #define alloc_size_t    size_t
  10593. + #define qsort_size_t    size_t
  10594. + #define fread_size_t    size_t
  10595. + #define fwrite_size_t    size_t
  10596. + 
  10597. + #else /* !defined __STDC__ */
  10598. + 
  10599. + #define P(s)        ()
  10600. + 
  10601. + typedef char *        genericptr_t;
  10602. + typedef unsigned    alloc_size_t;
  10603. + typedef int        qsort_size_t;
  10604. + typedef int        fread_size_t;
  10605. + typedef int        fwrite_size_t;
  10606. + 
  10607. + extern char *    calloc();
  10608. + extern char *    malloc();
  10609. + extern char *    realloc();
  10610. + extern char *    getenv();
  10611. + 
  10612. + #endif /* !defined __STDC__ */
  10613. + 
  10614. + extern time_t    time();
  10615. + 
  10616. + #define ACCESS_MODE    O_RDONLY
  10617. + #define OPEN_MODE    O_RDONLY
  10618. + 
  10619. + #ifndef WILDABBR
  10620. + /*
  10621. + ** Someone might make incorrect use of a time zone abbreviation:
  10622. + **    1.    They might reference tzname[0] before calling tzset (explicitly
  10623. + **         or implicitly).
  10624. + **    2.    They might reference tzname[1] before calling tzset (explicitly
  10625. + **         or implicitly).
  10626. + **    3.    They might reference tzname[1] after setting to a time zone
  10627. + **        in which Daylight Saving Time is never observed.
  10628. + **    4.    They might reference tzname[0] after setting to a time zone
  10629. + **        in which Standard Time is never observed.
  10630. + **    5.    They might reference tm.TM_ZONE after calling offtime.
  10631. + ** What's best to do in the above cases is open to debate;
  10632. + ** for now, we just set things up so that in any of the five cases
  10633. + ** WILDABBR is used.  Another possibility:  initialize tzname[0] to the
  10634. + ** string "tzname[0] used before set", and similarly for the other cases.
  10635. + ** And another:  initialize tzname[0] to "ERA", with an explanation in the
  10636. + ** manual page of what this "time zone abbreviation" means (doing this so
  10637. + ** that tzname[0] has the "normal" length of three characters).
  10638. + */
  10639. + #define WILDABBR    "   "
  10640. + #endif /* !defined WILDABBR */
  10641. + 
  10642. + #ifndef TRUE
  10643. + #define TRUE        1
  10644. + #define FALSE        0
  10645. + #endif /* !defined TRUE */
  10646. + 
  10647. + static const char GMT[] = "GMT";
  10648. + 
  10649. + struct ttinfo {                /* time type information */
  10650. +     long        tt_gmtoff;    /* GMT offset in seconds */
  10651. +     int        tt_isdst;    /* used to set tm_isdst */
  10652. +     int        tt_abbrind;    /* abbreviation list index */
  10653. +     int        tt_ttisstd;    /* TRUE if transition is std time */
  10654. + };
  10655. + 
  10656. + struct lsinfo {                /* leap second information */
  10657. +     time_t        ls_trans;    /* transition time */
  10658. +     long        ls_corr;    /* correction to apply */
  10659. + };
  10660. + 
  10661. + struct state {
  10662. +     int        leapcnt;
  10663. +     int        timecnt;
  10664. +     int        typecnt;
  10665. +     int        charcnt;
  10666. +     time_t        ats[TZ_MAX_TIMES];
  10667. +     unsigned char    types[TZ_MAX_TIMES];
  10668. +     struct ttinfo    ttis[TZ_MAX_TYPES];
  10669. +     char        chars[(TZ_MAX_CHARS + 1 > sizeof GMT) ?
  10670. +                 TZ_MAX_CHARS + 1 : sizeof GMT];
  10671. +     struct lsinfo    lsis[TZ_MAX_LEAPS];
  10672. + };
  10673. + 
  10674. + struct rule {
  10675. +     int        r_type;        /* type of rule--see below */
  10676. +     int        r_day;        /* day number of rule */
  10677. +     int        r_week;        /* week number of rule */
  10678. +     int        r_mon;        /* month number of rule */
  10679. +     long        r_time;        /* transition time of rule */
  10680. + };
  10681. + 
  10682. + #define    JULIAN_DAY        0    /* Jn - Julian day */
  10683. + #define    DAY_OF_YEAR        1    /* n - day of year */
  10684. + #define    MONTH_NTH_DAY_OF_WEEK    2    /* Mm.n.d - month, week, day of week */
  10685. + 
  10686. + /*
  10687. + ** Prototypes for static functions.
  10688. + */
  10689. + 
  10690. + static long        detzcode P((const char * codep));
  10691. + static const char *    getzname P((const char * strp));
  10692. + static const char *    getnum P((const char * strp, int * nump, int min,
  10693. +                 int max));
  10694. + static const char *    getsecs P((const char * strp, long * secsp));
  10695. + static const char *    getoffset P((const char * strp, long * offsetp));
  10696. + static const char *    getrule P((const char * strp, struct rule * rulep));
  10697. + static void        gmtload P((struct state * sp));
  10698. + static void        gmtsub P((const time_t * timep, long offset,
  10699. +                 struct tm * tmp));
  10700. + static void        localsub P((const time_t * timep, long offset,
  10701. +                 struct tm * tmp));
  10702. + static void        normalize P((int * tensptr, int * unitsptr, int base));
  10703. + static void        settzname P((void));
  10704. + static time_t        time1 P((struct tm * tmp, void (* funcp)(),
  10705. +                 long offset));
  10706. + static time_t        time2 P((struct tm *tmp, void (* funcp)(),
  10707. +                 long offset, int * okayp));
  10708. + static void        timesub P((const time_t * timep, long offset,
  10709. +                 const struct state * sp, struct tm * tmp));
  10710. + static int        tmcomp P((const struct tm * atmp,
  10711. +                 const struct tm * btmp));
  10712. + static time_t        transtime P((time_t janfirst, int year,
  10713. +                 const struct rule * rulep, long offset));
  10714. + static int        tzload P((const char * name, struct state * sp));
  10715. + static int        tzparse P((const char * name, struct state * sp,
  10716. +                 int lastditch));
  10717. + 
  10718. + #ifdef ALL_STATE
  10719. + static struct state *    lclptr;
  10720. + static struct state *    gmtptr;
  10721. + #endif /* defined ALL_STATE */
  10722. + 
  10723. + #ifndef ALL_STATE
  10724. + static struct state    lclmem;
  10725. + static struct state    gmtmem;
  10726. + #define lclptr        (&lclmem)
  10727. + #define gmtptr        (&gmtmem)
  10728. + #endif /* State Farm */
  10729. + 
  10730. + static int        lcl_is_set;
  10731. + static int        gmt_is_set;
  10732. + 
  10733. + char *            tzname[2] = {
  10734. +     WILDABBR,
  10735. +     WILDABBR
  10736. + };
  10737. + 
  10738. + time_t            timezone = 0;
  10739. + int            daylight = 0;
  10740. + 
  10741. + #ifdef ALTZONE
  10742. + time_t            altzone = 0;
  10743. + #endif /* defined ALTZONE */
  10744. + 
  10745. + static long
  10746. + detzcode(codep)
  10747. + const char * const    codep;
  10748. + {
  10749. +     register long    result;
  10750. +     register int    i;
  10751. + 
  10752. +     result = 0;
  10753. +     for (i = 0; i < 4; ++i)
  10754. +         result = (result << 8) | (codep[i] & 0xff);
  10755. +     return result;
  10756. + }
  10757. + 
  10758. + static void
  10759. + settzname()
  10760. + {
  10761. +     register const struct state * const    sp = lclptr;
  10762. +     register int                i;
  10763. + 
  10764. +     tzname[0] = WILDABBR;
  10765. +     tzname[1] = WILDABBR;
  10766. +     daylight = 0;
  10767. +     timezone = 0;
  10768. + #ifdef ALTZONE
  10769. +     altzone = 0;
  10770. + #endif /* defined ALTZONE */
  10771. + #ifdef ALL_STATE
  10772. +     if (sp == NULL) {
  10773. +         tzname[0] = tzname[1] = GMT;
  10774. +         return;
  10775. +     }
  10776. + #endif /* defined ALL_STATE */
  10777. +     for (i = 0; i < sp->typecnt; ++i) {
  10778. +         register const struct ttinfo * const    ttisp = &sp->ttis[i];
  10779. + 
  10780. +         tzname[ttisp->tt_isdst] =
  10781. +             (char *) &sp->chars[ttisp->tt_abbrind];
  10782. +         if (ttisp->tt_isdst)
  10783. +             daylight = 1;
  10784. +         if (i == 0 || !ttisp->tt_isdst)
  10785. +             timezone = -(ttisp->tt_gmtoff);
  10786. + #ifdef ALTZONE
  10787. +         if (i == 0 || ttisp->tt_isdst)
  10788. +             altzone = -(ttisp->tt_gmtoff);
  10789. + #endif /* defined ALTZONE */
  10790. +     }
  10791. +     /*
  10792. +     ** And to get the latest zone names into tzname. . .
  10793. +     */
  10794. +     for (i = 0; i < sp->timecnt; ++i) {
  10795. +         register const struct ttinfo * const    ttisp =
  10796. +                             &sp->ttis[sp->types[i]];
  10797. + 
  10798. +         tzname[ttisp->tt_isdst] =
  10799. +             (char *) &sp->chars[ttisp->tt_abbrind];
  10800. +     }
  10801. + }
  10802. + 
  10803. + static int
  10804. + tzload(name, sp)
  10805. + register const char *        name;
  10806. + register struct state * const    sp;
  10807. + {
  10808. +     register const char *    p;
  10809. +     register int        i;
  10810. +     register int        fid;
  10811. + 
  10812. +     if (name == NULL && (name = TZDEFAULT) == NULL)
  10813. +         return -1;
  10814. +     {
  10815. +         char        fullname[FILENAME_MAX + 1];
  10816. + 
  10817. +         if (name[0] == ':')
  10818. +             ++name;
  10819. +         if (!strchr(name, ':')) {
  10820. +             if ((p = TZDIR) == NULL)
  10821. +                 return -1;
  10822. +             if ((strlen(p) + strlen(name) + 1) >= sizeof fullname)
  10823. +                 return -1;
  10824. +             (void) strcpy(fullname, p);
  10825. +             (void) strcat(fullname, "/");
  10826. +             (void) strcat(fullname, name);
  10827. +             name = fullname;
  10828. +         }
  10829. +         if ((fid = open(name, OPEN_MODE)) == -1)
  10830. +             return -1;
  10831. +     }
  10832. +     {
  10833. +         register const struct tzhead *    tzhp;
  10834. +         char                buf[sizeof *sp + sizeof *tzhp];
  10835. +         int                ttisstdcnt;
  10836. + 
  10837. +         i = read(fid, buf, sizeof buf);
  10838. +         if (close(fid) != 0 || i < sizeof *tzhp)
  10839. +             return -1;
  10840. +         tzhp = (struct tzhead *) buf;
  10841. +         ttisstdcnt = (int) detzcode(tzhp->tzh_ttisstdcnt);
  10842. +         sp->leapcnt = (int) detzcode(tzhp->tzh_leapcnt);
  10843. +         sp->timecnt = (int) detzcode(tzhp->tzh_timecnt);
  10844. +         sp->typecnt = (int) detzcode(tzhp->tzh_typecnt);
  10845. +         sp->charcnt = (int) detzcode(tzhp->tzh_charcnt);
  10846. +         if (sp->leapcnt < 0 || sp->leapcnt > TZ_MAX_LEAPS ||
  10847. +             sp->typecnt <= 0 || sp->typecnt > TZ_MAX_TYPES ||
  10848. +             sp->timecnt < 0 || sp->timecnt > TZ_MAX_TIMES ||
  10849. +             sp->charcnt < 0 || sp->charcnt > TZ_MAX_CHARS ||
  10850. +             (ttisstdcnt != sp->typecnt && ttisstdcnt != 0))
  10851. +                 return -1;
  10852. +         if (i < sizeof *tzhp +
  10853. +             sp->timecnt * (4 + sizeof (char)) +
  10854. +             sp->typecnt * (4 + 2 * sizeof (char)) +
  10855. +             sp->charcnt * sizeof (char) +
  10856. +             sp->leapcnt * 2 * 4 +
  10857. +             ttisstdcnt * sizeof (char))
  10858. +                 return -1;
  10859. +         p = buf + sizeof *tzhp;
  10860. +         for (i = 0; i < sp->timecnt; ++i) {
  10861. +             sp->ats[i] = detzcode(p);
  10862. +             p += 4;
  10863. +         }
  10864. +         for (i = 0; i < sp->timecnt; ++i) {
  10865. +             sp->types[i] = (unsigned char) *p++;
  10866. +             if (sp->types[i] >= sp->typecnt)
  10867. +                 return -1;
  10868. +         }
  10869. +         for (i = 0; i < sp->typecnt; ++i) {
  10870. +             register struct ttinfo *    ttisp;
  10871. + 
  10872. +             ttisp = &sp->ttis[i];
  10873. +             ttisp->tt_gmtoff = detzcode(p);
  10874. +             p += 4;
  10875. +             ttisp->tt_isdst = (unsigned char) *p++;
  10876. +             if (ttisp->tt_isdst != 0 && ttisp->tt_isdst != 1)
  10877. +                 return -1;
  10878. +             ttisp->tt_abbrind = (unsigned char) *p++;
  10879. +             if (ttisp->tt_abbrind < 0 ||
  10880. +                 ttisp->tt_abbrind > sp->charcnt)
  10881. +                     return -1;
  10882. +         }
  10883. +         for (i = 0; i < sp->charcnt; ++i)
  10884. +             sp->chars[i] = *p++;
  10885. +         sp->chars[i] = '\0';    /* ensure '\0' at end */
  10886. +         for (i = 0; i < sp->leapcnt; ++i) {
  10887. +             register struct lsinfo *    lsisp;
  10888. + 
  10889. +             lsisp = &sp->lsis[i];
  10890. +             lsisp->ls_trans = detzcode(p);
  10891. +             p += 4;
  10892. +             lsisp->ls_corr = detzcode(p);
  10893. +             p += 4;
  10894. +         }
  10895. +         for (i = 0; i < sp->typecnt; ++i) {
  10896. +             register struct ttinfo *    ttisp;
  10897. + 
  10898. +             ttisp = &sp->ttis[i];
  10899. +             if (ttisstdcnt == 0)
  10900. +                 ttisp->tt_ttisstd = FALSE;
  10901. +             else {
  10902. +                 ttisp->tt_ttisstd = *p++;
  10903. +                 if (ttisp->tt_ttisstd != TRUE &&
  10904. +                     ttisp->tt_ttisstd != FALSE)
  10905. +                         return -1;
  10906. +             }
  10907. +         }
  10908. +     }
  10909. +     return 0;
  10910. + }
  10911. + 
  10912. + static const int    mon_lengths[2][MONSPERYEAR] = {
  10913. +     31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31,
  10914. +     31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31
  10915. + };
  10916. + 
  10917. + static const int    year_lengths[2] = {
  10918. +     DAYSPERNYEAR, DAYSPERLYEAR
  10919. + };
  10920. + 
  10921. + /*
  10922. + ** Given a pointer into a time zone string, scan until a character that is not
  10923. + ** a valid character in a zone name is found.  Return a pointer to that
  10924. + ** character.
  10925. + */
  10926. + 
  10927. + static const char *
  10928. + getzname(strp)
  10929. + register const char *    strp;
  10930. + {
  10931. +     register char    c;
  10932. + 
  10933. +     while ((c = *strp) != '\0' && !isdigit(c) && c != ',' && c != '-' &&
  10934. +         c != '+')
  10935. +             ++strp;
  10936. +     return strp;
  10937. + }
  10938. + 
  10939. + /*
  10940. + ** Given a pointer into a time zone string, extract a number from that string.
  10941. + ** Check that the number is within a specified range; if it is not, return
  10942. + ** NULL.
  10943. + ** Otherwise, return a pointer to the first character not part of the number.
  10944. + */
  10945. + 
  10946. + static const char *
  10947. + getnum(strp, nump, min, max)
  10948. + register const char *    strp;
  10949. + int * const        nump;
  10950. + const int        min;
  10951. + const int        max;
  10952. + {
  10953. +     register char    c;
  10954. +     register int    num;
  10955. + 
  10956. +     if (strp == NULL || !isdigit(*strp))
  10957. +         return NULL;
  10958. +     num = 0;
  10959. +     while ((c = *strp) != '\0' && isdigit(c)) {
  10960. +         num = num * 10 + (c - '0');
  10961. +         if (num > max)
  10962. +             return NULL;    /* illegal value */
  10963. +         ++strp;
  10964. +     }
  10965. +     if (num < min)
  10966. +         return NULL;        /* illegal value */
  10967. +     *nump = num;
  10968. +     return strp;
  10969. + }
  10970. + 
  10971. + /*
  10972. + ** Given a pointer into a time zone string, extract a number of seconds,
  10973. + ** in hh[:mm[:ss]] form, from the string.
  10974. + ** If any error occurs, return NULL.
  10975. + ** Otherwise, return a pointer to the first character not part of the number
  10976. + ** of seconds.
  10977. + */
  10978. + 
  10979. + static const char *
  10980. + getsecs(strp, secsp)
  10981. + register const char *    strp;
  10982. + long * const        secsp;
  10983. + {
  10984. +     int    num;
  10985. + 
  10986. +     strp = getnum(strp, &num, 0, HOURSPERDAY);
  10987. +     if (strp == NULL)
  10988. +         return NULL;
  10989. +     *secsp = num * SECSPERHOUR;
  10990. +     if (*strp == ':') {
  10991. +         ++strp;
  10992. +         strp = getnum(strp, &num, 0, MINSPERHOUR - 1);
  10993. +         if (strp == NULL)
  10994. +             return NULL;
  10995. +         *secsp += num * SECSPERMIN;
  10996. +         if (*strp == ':') {
  10997. +             ++strp;
  10998. +             strp = getnum(strp, &num, 0, SECSPERMIN - 1);
  10999. +             if (strp == NULL)
  11000. +                 return NULL;
  11001. +             *secsp += num;
  11002. +         }
  11003. +     }
  11004. +     return strp;
  11005. + }
  11006. + 
  11007. + /*
  11008. + ** Given a pointer into a time zone string, extract an offset, in
  11009. + ** [+-]hh[:mm[:ss]] form, from the string.
  11010. + ** If any error occurs, return NULL.
  11011. + ** Otherwise, return a pointer to the first character not part of the time.
  11012. + */
  11013. + 
  11014. + static const char *
  11015. + getoffset(strp, offsetp)
  11016. + register const char *    strp;
  11017. + long * const        offsetp;
  11018. + {
  11019. +     register int    neg;
  11020. + 
  11021. +     if (*strp == '-') {
  11022. +         neg = 1;
  11023. +         ++strp;
  11024. +     } else if (isdigit(*strp) || *strp++ == '+')
  11025. +         neg = 0;
  11026. +     else    return NULL;        /* illegal offset */
  11027. +     strp = getsecs(strp, offsetp);
  11028. +     if (strp == NULL)
  11029. +         return NULL;        /* illegal time */
  11030. +     if (neg)
  11031. +         *offsetp = -*offsetp;
  11032. +     return strp;
  11033. + }
  11034. + 
  11035. + /*
  11036. + ** Given a pointer into a time zone string, extract a rule in the form
  11037. + ** date[/time].  See POSIX section 8 for the format of "date" and "time".
  11038. + ** If a valid rule is not found, return NULL.
  11039. + ** Otherwise, return a pointer to the first character not part of the rule.
  11040. + */
  11041. + 
  11042. + static const char *
  11043. + getrule(strp, rulep)
  11044. + const char *            strp;
  11045. + register struct rule * const    rulep;
  11046. + {
  11047. +     if (*strp == 'J') {
  11048. +         /*
  11049. +         ** Julian day.
  11050. +         */
  11051. +         rulep->r_type = JULIAN_DAY;
  11052. +         ++strp;
  11053. +         strp = getnum(strp, &rulep->r_day, 1, DAYSPERNYEAR);
  11054. +     } else if (*strp == 'M') {
  11055. +         /*
  11056. +         ** Month, week, day.
  11057. +         */
  11058. +         rulep->r_type = MONTH_NTH_DAY_OF_WEEK;
  11059. +         ++strp;
  11060. +         strp = getnum(strp, &rulep->r_mon, 1, MONSPERYEAR);
  11061. +         if (strp == NULL)
  11062. +             return NULL;
  11063. +         if (*strp++ != '.')
  11064. +             return NULL;
  11065. +         strp = getnum(strp, &rulep->r_week, 1, 5);
  11066. +         if (strp == NULL)
  11067. +             return NULL;
  11068. +         if (*strp++ != '.')
  11069. +             return NULL;
  11070. +         strp = getnum(strp, &rulep->r_day, 0, DAYSPERWEEK - 1);
  11071. +     } else if (isdigit(*strp)) {
  11072. +         /*
  11073. +         ** Day of year.
  11074. +         */
  11075. +         rulep->r_type = DAY_OF_YEAR;
  11076. +         strp = getnum(strp, &rulep->r_day, 0, DAYSPERLYEAR - 1);
  11077. +     } else    return NULL;        /* invalid format */
  11078. +     if (strp == NULL)
  11079. +         return NULL;
  11080. +     if (*strp == '/') {
  11081. +         /*
  11082. +         ** Time specified.
  11083. +         */
  11084. +         ++strp;
  11085. +         strp = getsecs(strp, &rulep->r_time);
  11086. +     } else    rulep->r_time = 2 * SECSPERHOUR;    /* default = 2:00:00 */
  11087. +     return strp;
  11088. + }
  11089. + 
  11090. + /*
  11091. + ** Given the Epoch-relative time of January 1, 00:00:00 GMT, in a year, the
  11092. + ** year, a rule, and the offset from GMT at the time that rule takes effect,
  11093. + ** calculate the Epoch-relative time that rule takes effect.
  11094. + */
  11095. + 
  11096. + static time_t
  11097. + transtime(janfirst, year, rulep, offset)
  11098. + const time_t                janfirst;
  11099. + const int                year;
  11100. + register const struct rule * const    rulep;
  11101. + const long                offset;
  11102. + {
  11103. +     register int    leapyear;
  11104. +     register time_t    value;
  11105. +     register int    i;
  11106. +     int        d, m1, yy0, yy1, yy2, dow;
  11107. + 
  11108. +     leapyear = isleap(year);
  11109. +     switch (rulep->r_type) {
  11110. + 
  11111. +     case JULIAN_DAY:
  11112. +         /*
  11113. +         ** Jn - Julian day, 1 == January 1, 60 == March 1 even in leap
  11114. +         ** years.
  11115. +         ** In non-leap years, or if the day number is 59 or less, just
  11116. +         ** add SECSPERDAY times the day number-1 to the time of
  11117. +         ** January 1, midnight, to get the day.
  11118. +         */
  11119. +         value = janfirst + (rulep->r_day - 1) * SECSPERDAY;
  11120. +         if (leapyear && rulep->r_day >= 60)
  11121. +             value += SECSPERDAY;
  11122. +         break;
  11123. + 
  11124. +     case DAY_OF_YEAR:
  11125. +         /*
  11126. +         ** n - day of year.
  11127. +         ** Just add SECSPERDAY times the day number to the time of
  11128. +         ** January 1, midnight, to get the day.
  11129. +         */
  11130. +         value = janfirst + rulep->r_day * SECSPERDAY;
  11131. +         break;
  11132. + 
  11133. +     case MONTH_NTH_DAY_OF_WEEK:
  11134. +         /*
  11135. +         ** Mm.n.d - nth "dth day" of month m.
  11136. +         */
  11137. +         value = janfirst;
  11138. +         for (i = 0; i < rulep->r_mon - 1; ++i)
  11139. +             value += mon_lengths[leapyear][i] * SECSPERDAY;
  11140. + 
  11141. +         /*
  11142. +         ** Use Zeller's Congruence to get day-of-week of first day of
  11143. +         ** month.
  11144. +         */
  11145. +         m1 = (rulep->r_mon + 9) % 12 + 1;
  11146. +         yy0 = (rulep->r_mon <= 2) ? (year - 1) : year;
  11147. +         yy1 = yy0 / 100;
  11148. +         yy2 = yy0 % 100;
  11149. +         dow = ((26 * m1 - 2) / 10 +
  11150. +             1 + yy2 + yy2 / 4 + yy1 / 4 - 2 * yy1) % 7;
  11151. +         if (dow < 0)
  11152. +             dow += DAYSPERWEEK;
  11153. + 
  11154. +         /*
  11155. +         ** "dow" is the day-of-week of the first day of the month.  Get
  11156. +         ** the day-of-month (zero-origin) of the first "dow" day of the
  11157. +         ** month.
  11158. +         */
  11159. +         d = rulep->r_day - dow;
  11160. +         if (d < 0)
  11161. +             d += DAYSPERWEEK;
  11162. +         for (i = 1; i < rulep->r_week; ++i) {
  11163. +             if (d + DAYSPERWEEK >=
  11164. +                 mon_lengths[leapyear][rulep->r_mon - 1])
  11165. +                     break;
  11166. +             d += DAYSPERWEEK;
  11167. +         }
  11168. + 
  11169. +         /*
  11170. +         ** "d" is the day-of-month (zero-origin) of the day we want.
  11171. +         */
  11172. +         value += d * SECSPERDAY;
  11173. +         break;
  11174. +     }
  11175. + 
  11176. +     /*
  11177. +     ** "value" is the Epoch-relative time of 00:00:00 GMT on the day in
  11178. +     ** question.  To get the Epoch-relative time of the specified local
  11179. +     ** time on that day, add the transition time and the current offset
  11180. +     ** from GMT.
  11181. +     */
  11182. +     return value + rulep->r_time + offset;
  11183. + }
  11184. + 
  11185. + /*
  11186. + ** Given a POSIX section 8-style TZ string, fill in the rule tables as
  11187. + ** appropriate.
  11188. + */
  11189. + 
  11190. + static int
  11191. + tzparse(name, sp, lastditch)
  11192. + const char *            name;
  11193. + register struct state * const    sp;
  11194. + const int            lastditch;
  11195. + {
  11196. +     const char *            stdname;
  11197. +     const char *            dstname;
  11198. +     int                stdlen;
  11199. +     int                dstlen;
  11200. +     long                stdoffset;
  11201. +     long                dstoffset;
  11202. +     register time_t *        atp;
  11203. +     register unsigned char *    typep;
  11204. +     register char *            cp;
  11205. +     register int            load_result;
  11206. + 
  11207. +     stdname = name;
  11208. +     if (lastditch) {
  11209. +         stdlen = strlen(name);    /* length of standard zone name */
  11210. +         name += stdlen;
  11211. +         if (stdlen >= sizeof sp->chars)
  11212. +             stdlen = (sizeof sp->chars) - 1;
  11213. +     } else {
  11214. +         name = getzname(name);
  11215. +         stdlen = name - stdname;
  11216. +         if (stdlen < 3)
  11217. +             return -1;
  11218. +     }
  11219. +     if (*name == '\0')
  11220. +         return -1;
  11221. +     else {
  11222. +         name = getoffset(name, &stdoffset);
  11223. +         if (name == NULL)
  11224. +             return -1;
  11225. +     }
  11226. +     load_result = tzload(TZDEFRULES, sp);
  11227. +     if (load_result != 0)
  11228. +         sp->leapcnt = 0;        /* so, we're off a little */
  11229. +     if (*name != '\0') {
  11230. +         dstname = name;
  11231. +         name = getzname(name);
  11232. +         dstlen = name - dstname;    /* length of DST zone name */
  11233. +         if (dstlen < 3)
  11234. +             return -1;
  11235. +         if (*name != '\0' && *name != ',' && *name != ';') {
  11236. +             name = getoffset(name, &dstoffset);
  11237. +             if (name == NULL)
  11238. +                 return -1;
  11239. +         } else    dstoffset = stdoffset - SECSPERHOUR;
  11240. +         if (*name == ',' || *name == ';') {
  11241. +             struct rule    start;
  11242. +             struct rule    end;
  11243. +             register int    year;
  11244. +             register time_t    janfirst;
  11245. +             time_t        starttime;
  11246. +             time_t        endtime;
  11247. + 
  11248. +             ++name;
  11249. +             if ((name = getrule(name, &start)) == NULL)
  11250. +                 return -1;
  11251. +             if (*name++ != ',')
  11252. +                 return -1;
  11253. +             if ((name = getrule(name, &end)) == NULL)
  11254. +                 return -1;
  11255. +             if (*name != '\0')
  11256. +                 return -1;
  11257. +             sp->typecnt = 2;    /* standard time and DST */
  11258. +             /*
  11259. +             ** Two transitions per year, from EPOCH_YEAR to 2037.
  11260. +             */
  11261. +             sp->timecnt = 2 * (2037 - EPOCH_YEAR + 1);
  11262. +             if (sp->timecnt > TZ_MAX_TIMES)
  11263. +                 return -1;
  11264. +             sp->ttis[0].tt_gmtoff = -dstoffset;
  11265. +             sp->ttis[0].tt_isdst = 1;
  11266. +             sp->ttis[0].tt_abbrind = stdlen + 1;
  11267. +             sp->ttis[1].tt_gmtoff = -stdoffset;
  11268. +             sp->ttis[1].tt_isdst = 0;
  11269. +             sp->ttis[1].tt_abbrind = 0;
  11270. +             atp = sp->ats;
  11271. +             typep = sp->types;
  11272. +             janfirst = 0;
  11273. +             for (year = EPOCH_YEAR; year <= 2037; ++year) {
  11274. +                 starttime = transtime(janfirst, year, &start,
  11275. +                     stdoffset);
  11276. +                 endtime = transtime(janfirst, year, &end,
  11277. +                     dstoffset);
  11278. +                 if (starttime > endtime) {
  11279. +                     *atp++ = endtime;
  11280. +                     *typep++ = 1;    /* DST ends */
  11281. +                     *atp++ = starttime;
  11282. +                     *typep++ = 0;    /* DST begins */
  11283. +                 } else {
  11284. +                     *atp++ = starttime;
  11285. +                     *typep++ = 0;    /* DST begins */
  11286. +                     *atp++ = endtime;
  11287. +                     *typep++ = 1;    /* DST ends */
  11288. +                 }
  11289. +                 janfirst +=
  11290. +                     year_lengths[isleap(year)] * SECSPERDAY;
  11291. +             }
  11292. +         } else {
  11293. +             int        sawstd;
  11294. +             int        sawdst;
  11295. +             long        stdfix;
  11296. +             long        dstfix;
  11297. +             long        oldfix;
  11298. +             int        isdst;
  11299. +             register int    i;
  11300. + 
  11301. +             if (*name != '\0')
  11302. +                 return -1;
  11303. +             if (load_result != 0)
  11304. +                 return -1;
  11305. +             /*
  11306. +             ** Compute the difference between the real and
  11307. +             ** prototype standard and summer time offsets
  11308. +             ** from GMT, and put the real standard and summer
  11309. +             ** time offsets into the rules in place of the
  11310. +             ** prototype offsets.
  11311. +             */
  11312. +             sawstd = FALSE;
  11313. +             sawdst = FALSE;
  11314. +             stdfix = 0;
  11315. +             dstfix = 0;
  11316. +             for (i = 0; i < sp->typecnt; ++i) {
  11317. +                 if (sp->ttis[i].tt_isdst) {
  11318. +                     oldfix = dstfix;
  11319. +                     dstfix =
  11320. +                         sp->ttis[i].tt_gmtoff + dstoffset;
  11321. +                     if (sawdst && (oldfix != dstfix))
  11322. +                         return -1;
  11323. +                     sp->ttis[i].tt_gmtoff = -dstoffset;
  11324. +                     sp->ttis[i].tt_abbrind = stdlen + 1;
  11325. +                     sawdst = TRUE;
  11326. +                 } else {
  11327. +                     oldfix = stdfix;
  11328. +                     stdfix =
  11329. +                         sp->ttis[i].tt_gmtoff + stdoffset;
  11330. +                     if (sawstd && (oldfix != stdfix))
  11331. +                         return -1;
  11332. +                     sp->ttis[i].tt_gmtoff = -stdoffset;
  11333. +                     sp->ttis[i].tt_abbrind = 0;
  11334. +                     sawstd = TRUE;
  11335. +                 }
  11336. +             }
  11337. +             /*
  11338. +             ** Make sure we have both standard and summer time.
  11339. +             */
  11340. +             if (!sawdst || !sawstd)
  11341. +                 return -1;
  11342. +             /*
  11343. +             ** Now correct the transition times by shifting
  11344. +             ** them by the difference between the real and
  11345. +             ** prototype offsets.  Note that this difference
  11346. +             ** can be different in standard and summer time;
  11347. +             ** the prototype probably has a 1-hour difference
  11348. +             ** between standard and summer time, but a different
  11349. +             ** difference can be specified in TZ.
  11350. +             */
  11351. +             isdst = FALSE;    /* we start in standard time */
  11352. +             for (i = 0; i < sp->timecnt; ++i) {
  11353. +                 register const struct ttinfo *    ttisp;
  11354. + 
  11355. +                 /*
  11356. +                 ** If summer time is in effect, and the
  11357. +                 ** transition time was not specified as
  11358. +                 ** standard time, add the summer time
  11359. +                 ** offset to the transition time;
  11360. +                 ** otherwise, add the standard time offset
  11361. +                 ** to the transition time.
  11362. +                 */
  11363. +                 ttisp = &sp->ttis[sp->types[i]];
  11364. +                 sp->ats[i] +=
  11365. +                     (isdst && !ttisp->tt_ttisstd) ?
  11366. +                         dstfix : stdfix;
  11367. +                 isdst = ttisp->tt_isdst;
  11368. +             }
  11369. +         }
  11370. +     } else {
  11371. +         dstlen = 0;
  11372. +         sp->typecnt = 1;        /* only standard time */
  11373. +         sp->timecnt = 0;
  11374. +         sp->ttis[0].tt_gmtoff = -stdoffset;
  11375. +         sp->ttis[0].tt_isdst = 0;
  11376. +         sp->ttis[0].tt_abbrind = 0;
  11377. +     }
  11378. +     sp->charcnt = stdlen + 1;
  11379. +     if (dstlen != 0)
  11380. +         sp->charcnt += dstlen + 1;
  11381. +     if (sp->charcnt > sizeof sp->chars)
  11382. +         return -1;
  11383. +     cp = sp->chars;
  11384. +     (void) strncpy(cp, stdname, stdlen);
  11385. +     cp += stdlen;
  11386. +     *cp++ = '\0';
  11387. +     if (dstlen != 0) {
  11388. +         (void) strncpy(cp, dstname, dstlen);
  11389. +         *(cp + dstlen) = '\0';
  11390. +     }
  11391. +     return 0;
  11392. + }
  11393. + 
  11394. + static void
  11395. + gmtload(sp)
  11396. + struct state * const    sp;
  11397. + {
  11398. +     if (tzload(GMT, sp) != 0)
  11399. +         (void) tzparse(GMT, sp, TRUE);
  11400. + }
  11401. + 
  11402. + void
  11403. + tzset()
  11404. + {
  11405. +     register const char *    name;
  11406. +     void tzsetwall();
  11407. + 
  11408. +     name = getenv("UNIXTZ");
  11409. +     if (name == NULL) {
  11410. +         tzsetwall();
  11411. +         return;
  11412. +     }
  11413. +     lcl_is_set = TRUE;
  11414. + #ifdef ALL_STATE
  11415. +     if (lclptr == NULL) {
  11416. +         lclptr = (struct state *) malloc(sizeof *lclptr);
  11417. +         if (lclptr == NULL) {
  11418. +             settzname();    /* all we can do */
  11419. +             return;
  11420. +         }
  11421. +     }
  11422. + #endif /* defined ALL_STATE */
  11423. +     if (*name == '\0') {
  11424. +         /*
  11425. +         ** User wants it fast rather than right.
  11426. +         */
  11427. +         lclptr->leapcnt = 0;        /* so, we're off a little */
  11428. +         lclptr->timecnt = 0;
  11429. +         lclptr->ttis[0].tt_gmtoff = 0;
  11430. +         lclptr->ttis[0].tt_abbrind = 0;
  11431. +         (void) strcpy(lclptr->chars, GMT);
  11432. +     } else if (tzload(name, lclptr) != 0)
  11433. +         if (name[0] == ':' || tzparse(name, lclptr, FALSE) != 0)
  11434. +             (void) gmtload(lclptr);
  11435. +     settzname();
  11436. + }
  11437. + 
  11438. + void
  11439. + tzsetwall()
  11440. + {
  11441. +     lcl_is_set = TRUE;
  11442. + #ifdef ALL_STATE
  11443. +     if (lclptr == NULL) {
  11444. +         lclptr = (struct state *) malloc(sizeof *lclptr);
  11445. +         if (lclptr == NULL) {
  11446. +             settzname();    /* all we can do */
  11447. +             return;
  11448. +         }
  11449. +     }
  11450. + #endif /* defined ALL_STATE */
  11451. +     if (tzload((char *) NULL, lclptr) != 0)
  11452. +         gmtload(lclptr);
  11453. +     settzname();
  11454. + }
  11455. + 
  11456. + /*
  11457. + ** The easy way to behave "as if no library function calls" localtime
  11458. + ** is to not call it--so we drop its guts into "localsub", which can be
  11459. + ** freely called.  (And no, the PANS doesn't require the above behavior--
  11460. + ** but it *is* desirable.)
  11461. + **
  11462. + ** The unused offset argument is for the benefit of mktime variants.
  11463. + */
  11464. + 
  11465. + /*ARGSUSED*/
  11466. + static void
  11467. + localsub(timep, offset, tmp)
  11468. + const time_t * const    timep;
  11469. + const long        offset;
  11470. + struct tm * const    tmp;
  11471. + {
  11472. +     register struct state *    sp;
  11473. +     register const struct ttinfo *    ttisp;
  11474. +     register int            i;
  11475. +     const time_t            t = *timep;
  11476. + 
  11477. +     if (!lcl_is_set)
  11478. +         tzset();
  11479. +     sp = lclptr;
  11480. + #ifdef ALL_STATE
  11481. +     if (sp == NULL) {
  11482. +         gmtsub(timep, offset, tmp);
  11483. +         return;
  11484. +     }
  11485. + #endif /* defined ALL_STATE */
  11486. +     if (sp->timecnt == 0 || t < sp->ats[0]) {
  11487. +         i = 0;
  11488. +         while (sp->ttis[i].tt_isdst)
  11489. +             if (++i >= sp->typecnt) {
  11490. +                 i = 0;
  11491. +                 break;
  11492. +             }
  11493. +     } else {
  11494. +         for (i = 1; i < sp->timecnt; ++i)
  11495. +             if (t < sp->ats[i])
  11496. +                 break;
  11497. +         i = sp->types[i - 1];
  11498. +     }
  11499. +     ttisp = &sp->ttis[i];
  11500. +     /*
  11501. +     ** To get (wrong) behavior that's compatible with System V Release 2.0
  11502. +     ** you'd replace the statement below with
  11503. +     **    t += ttisp->tt_gmtoff;
  11504. +     **    timesub(&t, 0L, sp, tmp);
  11505. +     */
  11506. +     timesub(&t, ttisp->tt_gmtoff, sp, tmp);
  11507. +     tmp->tm_isdst = ttisp->tt_isdst;
  11508. +     tzname[tmp->tm_isdst] = (char *) &sp->chars[ttisp->tt_abbrind];
  11509. +     tmp->tm_zone = &sp->chars[ttisp->tt_abbrind];
  11510. + }
  11511. + 
  11512. + struct tm *
  11513. + localtime(timep)
  11514. + const time_t * const    timep;
  11515. + {
  11516. +     static struct tm    tm;
  11517. + 
  11518. +     localsub(timep, 0L, &tm);
  11519. +     return &tm;
  11520. + }
  11521. + 
  11522. + /*
  11523. + ** gmtsub is to gmtime as localsub is to localtime.
  11524. + */
  11525. + 
  11526. + static void
  11527. + gmtsub(timep, offset, tmp)
  11528. + const time_t * const    timep;
  11529. + const long        offset;
  11530. + struct tm * const    tmp;
  11531. + {
  11532. +     if (!gmt_is_set) {
  11533. +         gmt_is_set = TRUE;
  11534. + #ifdef ALL_STATE
  11535. +         gmtptr = (struct state *) malloc(sizeof *gmtptr);
  11536. +         if (gmtptr != NULL)
  11537. + #endif /* defined ALL_STATE */
  11538. +             gmtload(gmtptr);
  11539. +     }
  11540. +     timesub(timep, offset, gmtptr, tmp);
  11541. +     /*
  11542. +     ** Could get fancy here and deliver something such as
  11543. +     ** "GMT+xxxx" or "GMT-xxxx" if offset is non-zero,
  11544. +     ** but this is no time for a treasure hunt.
  11545. +     */
  11546. +     if (offset != 0)
  11547. +         tmp->tm_zone = WILDABBR;
  11548. +     else {
  11549. + #ifdef ALL_STATE
  11550. +         if (gmtptr == NULL)
  11551. +             tmp->TM_ZONE = GMT;
  11552. +         else    tmp->TM_ZONE = gmtptr->chars;
  11553. + #endif /* defined ALL_STATE */
  11554. + #ifndef ALL_STATE
  11555. +         tmp->tm_zone = gmtptr->chars;
  11556. + #endif /* State Farm */
  11557. +     }
  11558. + }
  11559. + 
  11560. + struct tm *
  11561. + gmtime(timep)
  11562. + const time_t * const    timep;
  11563. + {
  11564. +     static struct tm    tm;
  11565. + 
  11566. +     gmtsub(timep, 0L, &tm);
  11567. +     return &tm;
  11568. + }
  11569. + 
  11570. + static void
  11571. + timesub(timep, offset, sp, tmp)
  11572. + const time_t * const            timep;
  11573. + const long                offset;
  11574. + register const struct state * const    sp;
  11575. + register struct tm * const        tmp;
  11576. + {
  11577. +     register const struct lsinfo *    lp;
  11578. +     register long            days;
  11579. +     register long            rem;
  11580. +     register int            y;
  11581. +     register int            yleap;
  11582. +     register const int *        ip;
  11583. +     register long            corr;
  11584. +     register int            hit;
  11585. +     register int            i;
  11586. + 
  11587. +     corr = 0;
  11588. +     hit = FALSE;
  11589. + #ifdef ALL_STATE
  11590. +     i = (sp == NULL) ? 0 : sp->leapcnt;
  11591. + #endif /* defined ALL_STATE */
  11592. + #ifndef ALL_STATE
  11593. +     i = sp->leapcnt;
  11594. + #endif /* State Farm */
  11595. +     while (--i >= 0) {
  11596. +         lp = &sp->lsis[i];
  11597. +         if (*timep >= lp->ls_trans) {
  11598. +             if (*timep == lp->ls_trans)
  11599. +                 hit = ((i == 0 && lp->ls_corr > 0) ||
  11600. +                     lp->ls_corr > sp->lsis[i - 1].ls_corr);
  11601. +             corr = lp->ls_corr;
  11602. +             break;
  11603. +         }
  11604. +     }
  11605. +     days = *timep / SECSPERDAY;
  11606. +     rem = *timep % SECSPERDAY;
  11607. + #ifdef mc68k
  11608. +     if (*timep == 0x80000000) {
  11609. +         /*
  11610. +         ** A 3B1 muffs the division on the most negative number.
  11611. +         */
  11612. +         days = -24855;
  11613. +         rem = -11648;
  11614. +     }
  11615. + #endif /* mc68k */
  11616. +     rem += (offset - corr);
  11617. +     while (rem < 0) {
  11618. +         rem += SECSPERDAY;
  11619. +         --days;
  11620. +     }
  11621. +     while (rem >= SECSPERDAY) {
  11622. +         rem -= SECSPERDAY;
  11623. +         ++days;
  11624. +     }
  11625. +     tmp->tm_hour = (int) (rem / SECSPERHOUR);
  11626. +     rem = rem % SECSPERHOUR;
  11627. +     tmp->tm_min = (int) (rem / SECSPERMIN);
  11628. +     tmp->tm_sec = (int) (rem % SECSPERMIN);
  11629. +     if (hit)
  11630. +         /*
  11631. +         ** A positive leap second requires a special
  11632. +         ** representation.  This uses "... ??:59:60".
  11633. +         */
  11634. +         ++(tmp->tm_sec);
  11635. +     tmp->tm_wday = (int) ((EPOCH_WDAY + days) % DAYSPERWEEK);
  11636. +     if (tmp->tm_wday < 0)
  11637. +         tmp->tm_wday += DAYSPERWEEK;
  11638. +     y = EPOCH_YEAR;
  11639. +     if (days >= 0)
  11640. +         for ( ; ; ) {
  11641. +             yleap = isleap(y);
  11642. +             if (days < (long) year_lengths[yleap])
  11643. +                 break;
  11644. +             ++y;
  11645. +             days = days - (long) year_lengths[yleap];
  11646. +         }
  11647. +     else do {
  11648. +         --y;
  11649. +         yleap = isleap(y);
  11650. +         days = days + (long) year_lengths[yleap];
  11651. +     } while (days < 0);
  11652. +     tmp->tm_year = y - TM_YEAR_BASE;
  11653. +     tmp->tm_yday = (int) days;
  11654. +     ip = mon_lengths[yleap];
  11655. +     for (tmp->tm_mon = 0; days >= (long) ip[tmp->tm_mon]; ++(tmp->tm_mon))
  11656. +         days = days - (long) ip[tmp->tm_mon];
  11657. +     tmp->tm_mday = (int) (days + 1);
  11658. +     tmp->tm_isdst = 0;
  11659. +     tmp->tm_gmtoff = offset;
  11660. + }
  11661. + 
  11662. + /*
  11663. + ** A la X3J11
  11664. + */
  11665. + 
  11666. + char *
  11667. + asctime(timeptr)
  11668. + register const struct tm *    timeptr;
  11669. + {
  11670. +     static const char    wday_name[DAYSPERWEEK][3] = {
  11671. +         "Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat"
  11672. +     };
  11673. +     static const char    mon_name[MONSPERYEAR][3] = {
  11674. +         "Jan", "Feb", "Mar", "Apr", "May", "Jun",
  11675. +         "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"
  11676. +     };
  11677. +     static char    result[26];
  11678. + 
  11679. +     (void) sprintf(result, "%.3s %.3s%3d %02.2d:%02.2d:%02.2d %d\n",
  11680. +         wday_name[timeptr->tm_wday],
  11681. +         mon_name[timeptr->tm_mon],
  11682. +         timeptr->tm_mday, timeptr->tm_hour,
  11683. +         timeptr->tm_min, timeptr->tm_sec,
  11684. +         TM_YEAR_BASE + timeptr->tm_year);
  11685. +     return result;
  11686. + }
  11687. + 
  11688. + char *
  11689. + ctime(timep)
  11690. + const time_t * const    timep;
  11691. + {
  11692. +     return asctime(localtime(timep));
  11693. + }
  11694. + 
  11695. + /*
  11696. + ** Adapted from code provided by Robert Elz, who writes:
  11697. + **    The "best" way to do mktime I think is based on an idea of Bob
  11698. + **    Kridle's (so its said...) from a long time ago. (mtxinu!kridle now).
  11699. + **    It does a binary search of the time_t space.  Since time_t's are
  11700. + **    just 32 bits, its a max of 32 iterations (even at 64 bits it
  11701. + **    would still be very reasonable).
  11702. + */
  11703. + 
  11704. + #ifndef WRONG
  11705. + #define WRONG    (-1)
  11706. + #endif /* !defined WRONG */
  11707. + 
  11708. + static void
  11709. + normalize(tensptr, unitsptr, base)
  11710. + int * const    tensptr;
  11711. + int * const    unitsptr;
  11712. + const int    base;
  11713. + {
  11714. +     if (*unitsptr >= base) {
  11715. +         *tensptr += *unitsptr / base;
  11716. +         *unitsptr %= base;
  11717. +     } else if (*unitsptr < 0) {
  11718. +         --*tensptr;
  11719. +         *unitsptr += base;
  11720. +         if (*unitsptr < 0) {
  11721. +             *tensptr -= 1 + (-*unitsptr) / base;
  11722. +             *unitsptr = base - (-*unitsptr) % base;
  11723. +         }
  11724. +     }
  11725. + }
  11726. + 
  11727. + static int
  11728. + tmcomp(atmp, btmp)
  11729. + register const struct tm * const atmp;
  11730. + register const struct tm * const btmp;
  11731. + {
  11732. +     register int    result;
  11733. + 
  11734. +     if ((result = (atmp->tm_year - btmp->tm_year)) == 0 &&
  11735. +         (result = (atmp->tm_mon - btmp->tm_mon)) == 0 &&
  11736. +         (result = (atmp->tm_mday - btmp->tm_mday)) == 0 &&
  11737. +         (result = (atmp->tm_hour - btmp->tm_hour)) == 0 &&
  11738. +         (result = (atmp->tm_min - btmp->tm_min)) == 0)
  11739. +             result = atmp->tm_sec - btmp->tm_sec;
  11740. +     return result;
  11741. + }
  11742. + 
  11743. + static time_t
  11744. + time2(tmp, funcp, offset, okayp)
  11745. + struct tm * const    tmp;
  11746. + void (* const        funcp)();
  11747. + const long        offset;
  11748. + int * const        okayp;
  11749. + {
  11750. +     register const struct state *    sp;
  11751. +     register int            dir;
  11752. +     register int            bits;
  11753. +     register int            i, j ;
  11754. +     register int            saved_seconds;
  11755. +     time_t                newt;
  11756. +     time_t                t;
  11757. +     struct tm            yourtm, mytm;
  11758. + 
  11759. +     *okayp = FALSE;
  11760. +     yourtm = *tmp;
  11761. +     if (yourtm.tm_sec >= SECSPERMIN + 2 || yourtm.tm_sec < 0)
  11762. +         normalize(&yourtm.tm_min, &yourtm.tm_sec, SECSPERMIN);
  11763. +     normalize(&yourtm.tm_hour, &yourtm.tm_min, MINSPERHOUR);
  11764. +     normalize(&yourtm.tm_mday, &yourtm.tm_hour, HOURSPERDAY);
  11765. +     normalize(&yourtm.tm_year, &yourtm.tm_mon, MONSPERYEAR);
  11766. +     while (yourtm.tm_mday <= 0) {
  11767. +         --yourtm.tm_year;
  11768. +         yourtm.tm_mday +=
  11769. +             year_lengths[isleap(yourtm.tm_year + TM_YEAR_BASE)];
  11770. +     }
  11771. +     for ( ; ; ) {
  11772. +         i = mon_lengths[isleap(yourtm.tm_year +
  11773. +             TM_YEAR_BASE)][yourtm.tm_mon];
  11774. +         if (yourtm.tm_mday <= i)
  11775. +             break;
  11776. +         yourtm.tm_mday -= i;
  11777. +         if (++yourtm.tm_mon >= MONSPERYEAR) {
  11778. +             yourtm.tm_mon = 0;
  11779. +             ++yourtm.tm_year;
  11780. +         }
  11781. +     }
  11782. +     saved_seconds = yourtm.tm_sec;
  11783. +     yourtm.tm_sec = 0;
  11784. +     /*
  11785. +     ** Calculate the number of magnitude bits in a time_t
  11786. +     ** (this works regardless of whether time_t is
  11787. +     ** signed or unsigned, though lint complains if unsigned).
  11788. +     */
  11789. +     for (bits = 0, t = 1; t > 0; ++bits, t <<= 1)
  11790. +         ;
  11791. +     /*
  11792. +     ** If time_t is signed, then 0 is the median value,
  11793. +     ** if time_t is unsigned, then 1 << bits is median.
  11794. +     */
  11795. +     t = (t < 0) ? 0 : ((time_t) 1 << bits);
  11796. +     for ( ; ; ) {
  11797. +         (*funcp)(&t, offset, &mytm);
  11798. +         dir = tmcomp(&mytm, &yourtm);
  11799. +         if (dir != 0) {
  11800. +             if (bits-- < 0)
  11801. +                 return WRONG;
  11802. +             if (bits < 0)
  11803. +                 --t;
  11804. +             else if (dir > 0)
  11805. +                 t -= (time_t) 1 << bits;
  11806. +             else    t += (time_t) 1 << bits;
  11807. +             continue;
  11808. +         }
  11809. +         if (yourtm.tm_isdst < 0 || mytm.tm_isdst == yourtm.tm_isdst)
  11810. +             break;
  11811. +         /*
  11812. +         ** Right time, wrong type.
  11813. +         ** Hunt for right time, right type.
  11814. +         ** It's okay to guess wrong since the guess
  11815. +         ** gets checked.
  11816. +         */
  11817. +         sp = (const struct state *)
  11818. +             ((funcp == localsub) ? lclptr : gmtptr);
  11819. + #ifdef ALL_STATE
  11820. +         if (sp == NULL)
  11821. +             return WRONG;
  11822. + #endif /* defined ALL_STATE */
  11823. +         for (i = 0; i < sp->typecnt; ++i) {
  11824. +             if (sp->ttis[i].tt_isdst != yourtm.tm_isdst)
  11825. +                 continue;
  11826. +             for (j = 0; j < sp->typecnt; ++j) {
  11827. +                 if (sp->ttis[j].tt_isdst == yourtm.tm_isdst)
  11828. +                     continue;
  11829. +                 newt = t + sp->ttis[j].tt_gmtoff -
  11830. +                     sp->ttis[i].tt_gmtoff;
  11831. +                 (*funcp)(&newt, offset, &mytm);
  11832. +                 if (tmcomp(&mytm, &yourtm) != 0)
  11833. +                     continue;
  11834. +                 if (mytm.tm_isdst != yourtm.tm_isdst)
  11835. +                     continue;
  11836. +                 /*
  11837. +                 ** We have a match.
  11838. +                 */
  11839. +                 t = newt;
  11840. +                 goto label;
  11841. +             }
  11842. +         }
  11843. +         return WRONG;
  11844. +     }
  11845. + label:
  11846. +     t += saved_seconds;
  11847. +     (*funcp)(&t, offset, tmp);
  11848. +     *okayp = TRUE;
  11849. +     return t;
  11850. + }
  11851. + 
  11852. + static time_t
  11853. + time1(tmp, funcp, offset)
  11854. + struct tm * const    tmp;
  11855. + void (* const        funcp)();
  11856. + const long        offset;
  11857. + {
  11858. +     register time_t            t;
  11859. +     register const struct state *    sp;
  11860. +     register int            samei, otheri;
  11861. +     int                okay;
  11862. + 
  11863. +     if (tmp->tm_isdst > 1)
  11864. +         tmp->tm_isdst = 1;
  11865. +     t = time2(tmp, funcp, offset, &okay);
  11866. +     if (okay || tmp->tm_isdst < 0)
  11867. +         return t;
  11868. +     /*
  11869. +     ** We're supposed to assume that somebody took a time of one type
  11870. +     ** and did some math on it that yielded a "struct tm" that's bad.
  11871. +     ** We try to divine the type they started from and adjust to the
  11872. +     ** type they need.
  11873. +     */
  11874. +     sp = (const struct state *) ((funcp == localsub) ? lclptr : gmtptr);
  11875. + #ifdef ALL_STATE
  11876. +     if (sp == NULL)
  11877. +         return WRONG;
  11878. + #endif /* defined ALL_STATE */
  11879. +     for (samei = 0; samei < sp->typecnt; ++samei) {
  11880. +         if (sp->ttis[samei].tt_isdst != tmp->tm_isdst)
  11881. +             continue;
  11882. +         for (otheri = 0; otheri < sp->typecnt; ++otheri) {
  11883. +             if (sp->ttis[otheri].tt_isdst == tmp->tm_isdst)
  11884. +                 continue;
  11885. +             tmp->tm_sec += sp->ttis[otheri].tt_gmtoff -
  11886. +                     sp->ttis[samei].tt_gmtoff;
  11887. +             tmp->tm_isdst = !tmp->tm_isdst;
  11888. +             t = time2(tmp, funcp, offset, &okay);
  11889. +             if (okay)
  11890. +                 return t;
  11891. +             tmp->tm_sec -= sp->ttis[otheri].tt_gmtoff -
  11892. +                     sp->ttis[samei].tt_gmtoff;
  11893. +             tmp->tm_isdst = !tmp->tm_isdst;
  11894. +         }
  11895. +     }
  11896. +     return WRONG;
  11897. + }
  11898. + 
  11899. + time_t
  11900. + mktime(tmp)
  11901. + struct tm * const    tmp;
  11902. + {
  11903. +     return time1(tmp, localsub, 0L);
  11904. + }
  11905. + 
  11906. + /* Call tzset() if necessary */
  11907. + void _tzset(void)
  11908. + {
  11909. +   if (!lcl_is_set) tzset();
  11910. + }
  11911. + 
  11912. diff -rc --new-file emacs-18.59/amiga/unix/src/devices.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/devices.c
  11913. *** emacs-18.59/amiga/unix/src/devices.c    Thu Jan  1 00:00:00 1970
  11914. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/devices.c    Sun Jul 19 17:47:02 1992
  11915. ***************
  11916. *** 0 ****
  11917. --- 1,33 ----
  11918. + #include "amiga.h"
  11919. + #include "devices.h"
  11920. + 
  11921. + struct IORequest *_device_open(char *name, ULONG unit, ULONG flags,
  11922. +                    APTR data, ULONG data_len, int req_size)
  11923. + {
  11924. +     struct MsgPort *port;
  11925. +     struct IORequest *ioreq;
  11926. + 
  11927. +     if ((port = CreateMsgPort()) && (ioreq = CreateIORequest(port, req_size)))
  11928. +     {
  11929. +     if (data)
  11930. +     {
  11931. +         struct IOStdReq *io2 = (struct IOStdReq *)ioreq;
  11932. +         io2->io_Data = data;
  11933. +         io2->io_Length = data_len;
  11934. +     }
  11935. +     if (OpenDevice(name, unit, ioreq, flags) == 0) return ioreq;
  11936. +     }
  11937. +     if (ioreq) DeleteIORequest(ioreq);
  11938. +     if (port) DeletePort(port);
  11939. +     return 0;
  11940. + }
  11941. + 
  11942. + void _device_close(struct IORequest *ioreq)
  11943. + {
  11944. +     if (ioreq)
  11945. +     {
  11946. +     CloseDevice(ioreq);
  11947. +     DeletePort(ioreq->io_Message.mn_ReplyPort);
  11948. +     DeleteIORequest(ioreq);
  11949. +     }
  11950. + }
  11951. diff -rc --new-file emacs-18.59/amiga/unix/src/dir.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/dir.c
  11952. *** emacs-18.59/amiga/unix/src/dir.c    Thu Jan  1 00:00:00 1970
  11953. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/dir.c    Fri Dec  4 20:32:28 1992
  11954. ***************
  11955. *** 0 ****
  11956. --- 1,177 ----
  11957. + #include "amiga.h"
  11958. + #include "dir_data.h"
  11959. + #include <string.h>
  11960. + 
  11961. + /* opendir/readdir/etc ... emulation w/ stat support hack */
  11962. + 
  11963. + static void free_entries(iDIR *info)
  11964. + {
  11965. +   struct idirent *scan = info->files;
  11966. +   
  11967. +   while (scan)
  11968. +     {
  11969. +       struct idirent *next = scan->next;
  11970. +       
  11971. +       free(scan);
  11972. +       scan = next;
  11973. +     }
  11974. + }
  11975. + 
  11976. + static int gobble_dir(DIR *dir)
  11977. + {
  11978. +   iDIR *info = (iDIR *)dir->dd_buf;
  11979. +   long ioerr;
  11980. +   struct idirent **last = &info->files;
  11981. +   struct FileLock *dirlock;
  11982. +   
  11983. +   free_entries(info);
  11984. +   last_dir = 0;
  11985. +   info->files = 0;
  11986. +   dir->dd_loc = 0;
  11987. +   /* Find a value for st_dev of stat() calls */
  11988. +   dirlock = BADDR(dir->dd_fd);
  11989. +   info->task = dirlock->fl_Task;
  11990. +   while (ExNext(dir->dd_fd, &info->fib))
  11991. +     {
  11992. +       u_short namlen = strlen(info->fib.fib_FileName);
  11993. +       u_short reclen = namlen + 1 + offsetof(struct idirent, entry.d_name);
  11994. +       struct idirent *newentry = (struct idirent *)malloc(reclen);
  11995. +       struct dirent *entry;
  11996. +       
  11997. +       if (!newentry)
  11998. +     {
  11999. +       errno = ENOMEM;
  12000. +       return 0;
  12001. +     }
  12002. +       newentry->next = 0;
  12003. +       *last = newentry;
  12004. +       last = &newentry->next;
  12005. +       
  12006. +       newentry->numblocks = info->fib.fib_NumBlocks;
  12007. +       newentry->size = info->fib.fib_Size;
  12008. +       newentry->date = info->fib.fib_Date;
  12009. +       newentry->type = info->fib.fib_DirEntryType;
  12010. +       newentry->protection = info->fib.fib_Protection;
  12011. +       
  12012. +       entry = &newentry->entry;
  12013. +       entry->d_reclen = reclen;
  12014. +       entry->d_namlen = namlen;
  12015. +       entry->d_off = dir->dd_loc++;
  12016. +       strcpy(entry->d_name, info->fib.fib_FileName);
  12017. +       entry->d_ino = info->fib.fib_DiskKey;
  12018. +     }
  12019. +   info->pos = info->files;
  12020. +   dir->dd_loc = 0;
  12021. +   ioerr = IoErr();
  12022. +   if (ioerr == ERROR_NO_MORE_ENTRIES) return 1;
  12023. +   
  12024. +   errno = convert_oserr(ioerr);
  12025. +   return 0;
  12026. + }
  12027. + 
  12028. + DIR *opendir(char *dirname)
  12029. + {
  12030. +   DIR *new = (DIR *)malloc(sizeof *new);
  12031. +   iDIR *info = (iDIR *)malloc(sizeof *info);
  12032. +   char *dircopy = malloc(strlen(dirname) + 1);
  12033. + 
  12034. +   chkabort();
  12035. +   if (new && dircopy && info)
  12036. +     {
  12037. +       new->dd_buf = (char *)info;
  12038. +       new->dd_size = sizeof *info;
  12039. +       
  12040. +       info->files = info->pos = 0;
  12041. +       info->seeked = 0;
  12042. +       info->dirname = dircopy;
  12043. +       strcpy(dircopy, dirname);
  12044. +       info->cdir = _get_cd();
  12045. +       
  12046. +       if ((new->dd_fd = Lock(dirname, ACCESS_READ)) &&
  12047. +       Examine(new->dd_fd, &info->fib))
  12048. +     {
  12049. +       if (gobble_dir(new)) return new;
  12050. +     }
  12051. +       else errno = convert_oserr(IoErr());
  12052. +       closedir(new);
  12053. +       return 0;
  12054. +     }
  12055. +   
  12056. +   errno = ENOMEM;
  12057. +   if (new) free(new);
  12058. +   if (dircopy) free(dircopy);
  12059. +   if (info) free(info);
  12060. +   
  12061. +   return 0;
  12062. + }
  12063. + 
  12064. + void closedir(DIR *dir)
  12065. + {
  12066. +   iDIR *info = (iDIR *)dir->dd_buf;
  12067. +   
  12068. +   chkabort();
  12069. +   last_dir = 0;
  12070. +   free_entries(info);
  12071. +   free(info->dirname);
  12072. +   if (dir->dd_fd) UnLock(dir->dd_fd);
  12073. +   free(dir->dd_buf);
  12074. +   free(dir);
  12075. + }
  12076. + 
  12077. + struct dirent *readdir(DIR *dir)
  12078. + {
  12079. +   iDIR *info = (iDIR *)dir->dd_buf;
  12080. +   struct dirent *entry = 0;
  12081. +   
  12082. +   chkabort();
  12083. +   if (info->seeked)
  12084. +     {
  12085. +       long cloc = 0;
  12086. +       struct idirent *pos;
  12087. +       
  12088. +       pos = info->files;
  12089. +       
  12090. +       while (cloc < dir->dd_loc && pos)
  12091. +     {
  12092. +       cloc++; pos = pos->next;
  12093. +     }
  12094. +       /*if (cloc != dir->dd_loc) error ...
  12095. +     This doesn't seem to be defined very precisely */
  12096. +       info->pos = pos;
  12097. +       info->seeked = 0;
  12098. +     }
  12099. +   if (info->pos)
  12100. +     {
  12101. +       entry = &info->pos->entry;
  12102. +       
  12103. +       last_dir = dir;
  12104. +       last_entry = info->pos;
  12105. +       
  12106. +       info->pos = info->pos->next;
  12107. +       dir->dd_loc++;
  12108. +     }
  12109. +   return entry;
  12110. + }
  12111. + 
  12112. + long telldir(DIR *dir)
  12113. + {
  12114. +   chkabort();
  12115. +   return dir->dd_loc;
  12116. + }
  12117. + 
  12118. + void seekdir(DIR *dir, long loc)
  12119. + {
  12120. +   iDIR *info = (iDIR *)dir->dd_buf;
  12121. +   
  12122. +   chkabort();
  12123. +   info->seeked = 1;
  12124. +   dir->dd_loc = loc;
  12125. + }
  12126. + 
  12127. + #if 0
  12128. + void rewwinddir(DIR *dir)
  12129. + {
  12130. +   chkabort();
  12131. +   gobble_dir(dir);
  12132. + }
  12133. + #endif
  12134. diff -rc --new-file emacs-18.59/amiga/unix/src/dir_data.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/dir_data.c
  12135. *** emacs-18.59/amiga/unix/src/dir_data.c    Thu Jan  1 00:00:00 1970
  12136. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/dir_data.c    Fri Dec  4 20:27:08 1992
  12137. ***************
  12138. *** 0 ****
  12139. --- 1,15 ----
  12140. + #include "amiga.h"
  12141. + #include "dir_data.h"
  12142. + 
  12143. + DIR *last_dir;
  12144. + struct idirent *last_entry;
  12145. + 
  12146. + BPTR _get_cd(void)
  12147. + {
  12148. +   BPTR dir = CurrentDir(0);
  12149. +   
  12150. +   CurrentDir(dir);
  12151. +   
  12152. +   return dir;
  12153. + }
  12154. + 
  12155. diff -rc --new-file emacs-18.59/amiga/unix/src/dir_data.h /gnu/src/amiga/emacs-18.59/amiga/unix/src/dir_data.h
  12156. *** emacs-18.59/amiga/unix/src/dir_data.h    Thu Jan  1 00:00:00 1970
  12157. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/dir_data.h    Fri Dec  4 20:26:54 1992
  12158. ***************
  12159. *** 0 ****
  12160. --- 1,33 ----
  12161. + #ifndef DIR_DATA_H
  12162. + #define DIR_DATA_H
  12163. + 
  12164. + #include <sys/dir.h>
  12165. + 
  12166. + typedef struct
  12167. + {
  12168. +   char *dirname;
  12169. +   BPTR cdir;
  12170. +   struct FileInfoBlock fib;
  12171. +   struct idirent *files, *pos;
  12172. +   int seeked;
  12173. +   struct MsgPort *task;        /* Used to fake a value for st_dev */
  12174. + } iDIR;
  12175. + 
  12176. + struct idirent
  12177. + {
  12178. +   struct idirent *next;
  12179. +   /* Info needed for stat */
  12180. +   long numblocks;
  12181. +   long size;
  12182. +   struct DateStamp date;
  12183. +   long type;
  12184. +   long protection;
  12185. +   struct dirent entry;
  12186. + };
  12187. + 
  12188. + extern DIR *last_dir;
  12189. + extern struct idirent *last_entry;
  12190. + 
  12191. + BPTR _get_cd(void);
  12192. + 
  12193. + #endif
  12194. diff -rc --new-file emacs-18.59/amiga/unix/src/error.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/error.c
  12195. *** emacs-18.59/amiga/unix/src/error.c    Thu Jan  1 00:00:00 1970
  12196. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/error.c    Sun Jul 19 17:47:02 1992
  12197. ***************
  12198. *** 0 ****
  12199. --- 1,47 ----
  12200. + #include "amiga.h"
  12201. + 
  12202. + int errno;
  12203. + 
  12204. + int convert_oserr(int ioerr)
  12205. + {
  12206. +   extern int _OSERR;
  12207. + 
  12208. +   _OSERR = ioerr;
  12209. +   switch (ioerr)
  12210. +     {
  12211. +     case 0: return 0;
  12212. +     case ERROR_NO_FREE_STORE: return ENOMEM;
  12213. +     case ERROR_TASK_TABLE_FULL: return EAGAIN;
  12214. +     case ERROR_BAD_TEMPLATE: case ERROR_REQUIRED_ARG_MISSING: case ERROR_BAD_NUMBER:
  12215. +     case ERROR_KEY_NEEDS_ARG: case ERROR_TOO_MANY_ARGS:
  12216. +     case ERROR_UNMATCHED_QUOTES: return EINVAL;
  12217. +     case ERROR_LINE_TOO_LONG: return E2BIG;
  12218. +     case ERROR_FILE_NOT_OBJECT: return ENOEXEC;
  12219. +     case ERROR_OBJECT_IN_USE: return EBUSY;
  12220. +     case ERROR_OBJECT_EXISTS: return EEXIST;
  12221. +     case ERROR_DIR_NOT_FOUND: return ENOENT;
  12222. +     case ERROR_OBJECT_NOT_FOUND: return ENOENT;
  12223. +     case ERROR_BAD_STREAM_NAME: return EINVAL;
  12224. +     case ERROR_OBJECT_TOO_LARGE: return E2BIG;
  12225. +     case ERROR_ACTION_NOT_KNOWN: return EINVAL;
  12226. +     case ERROR_INVALID_COMPONENT_NAME: return ENAMETOOLONG;
  12227. +     case ERROR_INVALID_LOCK: return EINVAL;
  12228. +     case ERROR_OBJECT_WRONG_TYPE: return EINVAL;
  12229. +     case ERROR_DISK_WRITE_PROTECTED: return EROFS;
  12230. +     case ERROR_RENAME_ACROSS_DEVICES: return EXDEV;
  12231. +     case ERROR_DIRECTORY_NOT_EMPTY: return ENOTEMPTY;
  12232. +     case ERROR_TOO_MANY_LEVELS: return ELOOP;
  12233. +     case ERROR_DEVICE_NOT_MOUNTED: return ENODEV;
  12234. +     case ERROR_SEEK_ERROR: return EINVAL;
  12235. +     case ERROR_DISK_FULL: return ENOSPC;
  12236. +     case ERROR_DELETE_PROTECTED: return EACCES;
  12237. +     case ERROR_WRITE_PROTECTED: return EACCES;
  12238. +     case ERROR_READ_PROTECTED: return EACCES;
  12239. +     default: return EOSERR;
  12240. +     }
  12241. + }
  12242. + 
  12243. + void _seterr(void)
  12244. + {
  12245. +     errno = convert_oserr(IoErr());
  12246. + }
  12247. diff -rc --new-file emacs-18.59/amiga/unix/src/error_msg.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/error_msg.c
  12248. *** emacs-18.59/amiga/unix/src/error_msg.c    Thu Jan  1 00:00:00 1970
  12249. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/error_msg.c    Sat Dec  5 09:59:06 1992
  12250. ***************
  12251. *** 0 ****
  12252. --- 1,48 ----
  12253. + #include "amiga.h"
  12254. + 
  12255. + /* Gross hack because EOSERR is -1. */
  12256. + static char *sys_amiga_error = "amiga specific error";
  12257. + char *sys_errlist[] =
  12258. +   {
  12259. +     "Unknown error",
  12260. +     "not owner",
  12261. +     "no such file or directory",
  12262. +     "no such process",
  12263. +     "interrupted system call",
  12264. +     "i/o error",
  12265. +     "no such device or address",
  12266. +     "argument list too long",
  12267. +     "exec format error",
  12268. +     "bad file number",
  12269. +     "no child process",
  12270. +     "no more processes",
  12271. +     "not enough memory",
  12272. +     "permission denied",
  12273. +     "bad address",
  12274. +     "block device required",
  12275. +     "mount devices busy",
  12276. +     "file exists",
  12277. +     "cross-device link",
  12278. +     "no such device",
  12279. +     "not a directory",
  12280. +     "is a directory",
  12281. +     "invalid argument",
  12282. +     "file table overflow",
  12283. +     "too many open files",
  12284. +     "not a typewriter",
  12285. +     "text file busy",
  12286. +     "file too big",
  12287. +     "no space left on device",
  12288. +     "illegal seek",
  12289. +     "read-only file system",
  12290. +     "too many links",
  12291. +     "broken pipe",
  12292. +     "math argument",
  12293. +     "result too large",
  12294. +     "I/O stream empty",
  12295. +     "file name too long",
  12296. +     "directory not empty",
  12297. +     "too many soft links (loop?)"
  12298. + };
  12299. + 
  12300. + int sys_nerr = ELOOP;
  12301. diff -rc --new-file emacs-18.59/amiga/unix/src/exec.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/exec.c
  12302. *** emacs-18.59/amiga/unix/src/exec.c    Thu Jan  1 00:00:00 1970
  12303. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/exec.c    Sun Dec  6 14:32:30 1992
  12304. ***************
  12305. *** 0 ****
  12306. --- 1,143 ----
  12307. + #include "amiga.h"
  12308. + #include "processes.h"
  12309. + #include <amiga/ioctl.h>
  12310. + #include <exec/memory.h>
  12311. + #include <dos/dosextens.h>
  12312. + #include <dos/dostags.h>
  12313. + #include <string.h>
  12314. + 
  12315. + int eexec(char *program, char **argv, int input, int output, int error,
  12316. +       char *dir, int stacksize)
  12317. + /* input = -1 -> inherit Input()
  12318. +    output = -1 -> inherit Output()
  12319. +    error = -1 -> inherit pr_CES
  12320. +    error = -2 -> stderr = stdout */
  12321. + {
  12322. +   int index, comsize, close_input, close_output, close_error;
  12323. +   char *combuf, *bp;
  12324. +   BPTR in, out, err, dirlock;
  12325. +   int _pseudo_close(int fd);
  12326. + 
  12327. +   comsize = 256;
  12328. +   combuf = malloc(comsize);
  12329. + 
  12330. +   if (input == -1)
  12331. +     {
  12332. +       in = Input();
  12333. +       close_input = FALSE;
  12334. +     }
  12335. +   else
  12336. +     {
  12337. +       if (ioctl(input, _AMIGA_GET_FH, &in) == -1) in = 0;
  12338. +       close_input = TRUE;
  12339. +       _pseudo_close(input);
  12340. +     }
  12341. + 
  12342. +   if (output == -1)
  12343. +     {
  12344. +       out = Output();
  12345. +       close_output = FALSE;
  12346. +     }
  12347. +   else if (input == output)
  12348. +     {
  12349. +       out = in;
  12350. +       close_output = FALSE;
  12351. +     }
  12352. +   else
  12353. +     {
  12354. +       if (ioctl(output, _AMIGA_GET_FH, &out) == -1) out = 0;
  12355. +       close_output = out != in;
  12356. +       _pseudo_close(output);
  12357. +     }
  12358. + 
  12359. +   if (error == -1)
  12360. +     {
  12361. +       err = _us->pr_CES;
  12362. +       close_error = FALSE;
  12363. +     }
  12364. +   else if (error == -2)
  12365. +     {
  12366. +       err = out;
  12367. +       close_error = FALSE;
  12368. +     }
  12369. +   else
  12370. +     {
  12371. +       if (ioctl(error, _AMIGA_GET_FH, &err) == -1) err = 0;
  12372. +       close_error = err != out && err != in;
  12373. +       _pseudo_close(error);
  12374. +     }
  12375. + 
  12376. +   /* pr_CES is not always defined */
  12377. +   if (in && out && (err || error == -1))
  12378. +     if (combuf)
  12379. +       {
  12380. +     bp = combuf;
  12381. +     for (index = 0; argv[index] != 0; index++)
  12382. +       {
  12383. +         /* Use program as argv[0]. This loses some information, but ... */
  12384. +         char *arg = index == 0 ? program : argv[index];
  12385. +         char *s;
  12386. +         int len;
  12387. + 
  12388. +         len = 3;
  12389. +         s = arg;
  12390. +         while (*s)
  12391. +           {
  12392. +         len++;
  12393. +         if (*s == '*' || *s == '"' || *s == '\n') len++;
  12394. +         s++;
  12395. +           }
  12396. +         if (bp + len + 1 >= combuf + comsize)
  12397. +           {
  12398. +         char *newbuf;
  12399. + 
  12400. +         comsize += comsize + len;
  12401. +         newbuf = realloc(combuf, comsize);
  12402. +         if (!newbuf) { errno = ENOMEM; goto error; }
  12403. +         bp = newbuf + (bp - combuf);
  12404. +         combuf = newbuf;
  12405. +           }
  12406. +         *bp++ = ' ';
  12407. +         *bp++ = '"';
  12408. +         s = arg;
  12409. +         while (*s)
  12410. +           {
  12411. +         if (*s == '"' || *s == '*') *bp++ = '*';
  12412. +         else if (*s == '\n') *bp++ = '+';
  12413. +         *bp++ = *s++;
  12414. +           }
  12415. +         *bp++ = '"';
  12416. +       }
  12417. +     *bp = '\0';
  12418. +     if (dir) dirlock = Lock(dir, SHARED_LOCK);
  12419. +     else dirlock = 0;
  12420. + 
  12421. +     if (dirlock || !dir)
  12422. +       {
  12423. +         int pid = _start_process(combuf, in, close_input, out, close_output,
  12424. +                      err, close_error, dirlock, stacksize);
  12425. + 
  12426. +         if (pid != -1)
  12427. +           {
  12428. +         free(combuf);
  12429. +         return pid;
  12430. +           }
  12431. +       }
  12432. +     else errno = convert_oserr(IoErr());
  12433. +     if (dirlock) UnLock(dirlock);
  12434. +       }
  12435. +     else errno = ENOMEM;
  12436. + 
  12437. +  error:
  12438. +   if (in && close_input) Close(in);
  12439. +   if (out && close_output) Close(out);
  12440. +   if (err && close_error) Close(err);
  12441. +   if (combuf) free(combuf);
  12442. +   return -1;
  12443. + }
  12444. + 
  12445. + int exec(char *program, char **argv, int input, int output, 
  12446. +       char *dir, int stacksize)
  12447. + {
  12448. +   return eexec(program, argv, input, output, -1, dir, stacksize);
  12449. + }
  12450. diff -rc --new-file emacs-18.59/amiga/unix/src/fchmod.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/fchmod.c
  12451. *** emacs-18.59/amiga/unix/src/fchmod.c    Thu Jan  1 00:00:00 1970
  12452. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/fchmod.c    Sun Jul 19 17:47:02 1992
  12453. ***************
  12454. *** 0 ****
  12455. --- 1,10 ----
  12456. + #include "amiga.h"
  12457. + #include <amiga/ioctl.h>
  12458. + 
  12459. + int fchmod(int fd, int mode)
  12460. + {
  12461. +   long amode = _make_protection(mode);
  12462. + 
  12463. +   chkabort();
  12464. +   return ioctl(fd, _AMIGA_SETPROTECTION, &amode);
  12465. + }
  12466. diff -rc --new-file emacs-18.59/amiga/unix/src/fcntl.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/fcntl.c
  12467. *** emacs-18.59/amiga/unix/src/fcntl.c    Thu Jan  1 00:00:00 1970
  12468. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/fcntl.c    Sun Jul 19 17:47:02 1992
  12469. ***************
  12470. *** 0 ****
  12471. --- 1,43 ----
  12472. + #include "amiga.h"
  12473. + #include "files.h"
  12474. + #include <fcntl.h>
  12475. + #include <sys/filio.h>
  12476. + #include <stdarg.h>
  12477. + 
  12478. + /* Flags that can be changed with fcntl */
  12479. + #define FCNTL_FLAGS (O_NDELAY | O_APPEND)
  12480. + 
  12481. + int fcntl(int fd, int cmd, ...)
  12482. + {
  12483. +   struct fileinfo *fi;
  12484. +   va_list args;
  12485. +   int arg;
  12486. + 
  12487. +   chkabort();
  12488. +   va_start(args, cmd);
  12489. +   arg = va_arg(args, int);
  12490. +   va_end(args);
  12491. + 
  12492. +   if (fi = _find_fd(fd))
  12493. +     {
  12494. +       switch (cmd)
  12495. +     {
  12496. +     default: errno = EINVAL; break;
  12497. +     case F_GETFL: return fi->flags & FCNTL_FLAGS;
  12498. +     case F_SETFL:
  12499. +       {
  12500. +         int oldfl = fi->flags;
  12501. + 
  12502. +         fi->flags = (fi->flags & ~FCNTL_FLAGS) | (arg & FCNTL_FLAGS);
  12503. +         if ((oldfl & O_NDELAY) != (fi->flags & O_NDELAY))
  12504. +           {
  12505. +         int ndelay = fi->flags & O_NDELAY;
  12506. + 
  12507. +         return fi->ioctl(fi->userinfo, FIONBIO, &ndelay);
  12508. +           }
  12509. +         return 0;
  12510. +       }
  12511. +     }
  12512. +     }
  12513. +   return -1;
  12514. + }
  12515. diff -rc --new-file emacs-18.59/amiga/unix/src/fibstat.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/fibstat.c
  12516. *** emacs-18.59/amiga/unix/src/fibstat.c    Thu Jan  1 00:00:00 1970
  12517. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/fibstat.c    Sat Dec  5 12:11:24 1992
  12518. ***************
  12519. *** 0 ****
  12520. --- 1,90 ----
  12521. + #include "amiga.h"
  12522. + #include "fibstat.h"
  12523. + #include "timeconvert.h"
  12524. + #include <fcntl.h>
  12525. + #include <time.h>
  12526. + #include <sys/stat.h>
  12527. + #include <utility/tagitem.h>
  12528. + 
  12529. + char _temp_fname[FNAMESIZE];
  12530. + 
  12531. + void _lfibstat(char *name, struct FileInfoBlock *fib, struct MsgPort *task,
  12532. +            int isroot, struct stat *sbuf)
  12533. + {
  12534. +   long protection = fib->fib_Protection;
  12535. +   
  12536. +   sbuf->st_dev = (long)task;
  12537. +   sbuf->st_rdev = 0;
  12538. +   sbuf->st_uid = AMIGA_UID; sbuf->st_gid = AMIGA_GID;
  12539. +   sbuf->st_blksize = 512;
  12540. + #ifdef PRETEND_LINKED
  12541. +   /* This forces programs (tar) to consider potential hard links */
  12542. +   sbuf->st_nlink = 2;
  12543. + #else
  12544. +   sbuf->st_nlink = 1;
  12545. + #endif
  12546. +   sbuf->st_blocks = fib->fib_NumBlocks;
  12547. +   /* Give directories an arbitrary size */
  12548. +   if (fib->fib_Size == 0 && fib->fib_DirEntryType > 0) sbuf->st_size = 2048;
  12549. +   else sbuf->st_size = fib->fib_Size;
  12550. +   sbuf->st_ino = fib->fib_DiskKey;
  12551. +   sbuf->st_ctime = sbuf->st_atime = sbuf->st_mtime = _amiga2gmt(&fib->fib_Date);
  12552. +   
  12553. +   switch (fib->fib_DirEntryType)
  12554. +     {
  12555. +     case ST_SOFTLINK:
  12556. +       {
  12557. +     int len;
  12558. + 
  12559. +     if (name && (len = readlink(name, _temp_fname, FNAMESIZE - 1)) > 0)
  12560. +       sbuf->st_size = len;
  12561. +     else sbuf->st_size = 256; /* A random safish value */
  12562. +     sbuf->st_mode = S_IFLNK;
  12563. +     break;
  12564. +       }
  12565. +     case ST_PIPEFILE: sbuf->st_mode = S_IFIFO; break;
  12566. +       /* If Examine wasn't braindead this would be the right test */
  12567. +     case ST_ROOT: sbuf->st_mode = S_IFDIR; protection = 0; break;
  12568. +     case ST_FILE: /* Try & detect special files (eg windows) */
  12569. +       if (fib->fib_DiskKey == 0 && !fib->fib_FileName[0])
  12570. +     sbuf->st_mode = S_IFCHR;
  12571. +       else sbuf->st_mode = S_IFREG;
  12572. +       break;
  12573. +     default: sbuf->st_mode = fib->fib_DirEntryType > 0 ? S_IFDIR : S_IFREG; break;
  12574. +     }
  12575. +   /* Examine is braindead. You can't tell if you've examined a root directory
  12576. +      (for which the protection flags are invalid) or not. */
  12577. +   if (isroot) protection = 0;
  12578. + 
  12579. +   sbuf->st_mode |= _make_mode(protection);
  12580. + }
  12581. + 
  12582. + int _fibstat(char *name, struct stat *sbuf)
  12583. + {
  12584. +   int ret;
  12585. +   struct FileInfoBlock *fib;
  12586. +   BPTR lock = 0;
  12587. + 
  12588. +   if ((fib = AllocDosObjectTags(DOS_FIB, TAG_END)) &&
  12589. +       (lock = Lock(name, ACCESS_READ)) &&
  12590. +       Examine(lock, fib))
  12591. +     {
  12592. +       BPTR parent = ParentDir(lock);
  12593. +       int isroot = !parent;
  12594. +       struct FileLock *flock = BADDR(lock);
  12595. +       
  12596. +       if (parent) UnLock(parent);
  12597. +       _lfibstat(name, fib, flock->fl_Task, isroot, sbuf);
  12598. +       ret = 0;
  12599. +     }
  12600. +   else
  12601. +     {
  12602. +       ret = -1;
  12603. +       errno = convert_oserr(IoErr());
  12604. +     }
  12605. +   if (lock) UnLock(lock);
  12606. +   if (fib) FreeDosObject(DOS_FIB, fib);
  12607. +   return ret;
  12608. + }
  12609. + 
  12610. +       
  12611. diff -rc --new-file emacs-18.59/amiga/unix/src/fibstat.h /gnu/src/amiga/emacs-18.59/amiga/unix/src/fibstat.h
  12612. *** emacs-18.59/amiga/unix/src/fibstat.h    Thu Jan  1 00:00:00 1970
  12613. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/fibstat.h    Sat Oct 17 12:55:52 1992
  12614. ***************
  12615. *** 0 ****
  12616. --- 1,12 ----
  12617. + #ifndef FIBSTAT_H
  12618. + 
  12619. + #define FNAMESIZE 256
  12620. + 
  12621. + extern char _temp_fname[FNAMESIZE];
  12622. + 
  12623. + void _lfibstat(char *name, struct FileInfoBlock *fib, struct MsgPort *task,
  12624. +            int isroot, struct stat *sbuf);
  12625. + 
  12626. + int _fibstat(char *name, struct stat *sbuf);
  12627. + 
  12628. + #endif
  12629. diff -rc --new-file emacs-18.59/amiga/unix/src/fifo.h /gnu/src/amiga/emacs-18.59/amiga/unix/src/fifo.h
  12630. *** emacs-18.59/amiga/unix/src/fifo.h    Thu Jan  1 00:00:00 1970
  12631. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/fifo.h    Sun Jul 19 17:47:02 1992
  12632. ***************
  12633. *** 0 ****
  12634. --- 1,41 ----
  12635. + 
  12636. + /*
  12637. +  *  FIFO.H
  12638. +  *
  12639. +  *  PUBLIC FIFO STRUCTURES AND DEFINES
  12640. +  */
  12641. + 
  12642. + #ifndef LIBRARIES_FIFO_H
  12643. + #define LIBRARIES_FIFO_H
  12644. + 
  12645. + #define FIFONAME    "fifo.library"
  12646. + 
  12647. + #define FIFOF_READ      0x00000100L      /*  intend to read from fifo      */
  12648. + #define FIFOF_WRITE      0x00000200L      /*  intend to write to fifo      */
  12649. + #define FIFOF_RESERVED      0xFFFF0000L      /*  reserved for internal use   */
  12650. + #define FIFOF_NORMAL      0x00000400L      /*  request blocking/sig support*/
  12651. + #define FIFOF_NBIO      0x00000800L      /*  non-blocking IO          */
  12652. + 
  12653. + #define FIFOF_KEEPIFD      0x00002000L      /*  keep fifo alive if data pending */
  12654. + #define FIFOF_EOF      0x00004000L      /*  EOF on close              */
  12655. + #define FIFOF_RREQUIRED   0x00008000L      /*  reader required to exist      */
  12656. + 
  12657. + #define FREQ_RPEND    1
  12658. + #define FREQ_WAVAIL    2
  12659. + #define FREQ_ABORT    3
  12660. + 
  12661. + typedef void *FifoHan;              /*  returned by OpenFifo()  */
  12662. + 
  12663. + #ifndef IN_LIBRARY
  12664. + 
  12665. + FifoHan OpenFifo(char *, long, long);
  12666. + void CloseFifo(FifoHan, long);
  12667. + long ReadFifo(FifoHan, char **, long);
  12668. + long WriteFifo(FifoHan, char *, long);
  12669. + void RequestFifo(FifoHan, struct Message *, long);
  12670. + long BufSizeFifo(FifoHan);
  12671. + 
  12672. + #endif
  12673. + 
  12674. + #endif
  12675. + 
  12676. diff -rc --new-file emacs-18.59/amiga/unix/src/fifo_pragmas.h /gnu/src/amiga/emacs-18.59/amiga/unix/src/fifo_pragmas.h
  12677. *** emacs-18.59/amiga/unix/src/fifo_pragmas.h    Thu Jan  1 00:00:00 1970
  12678. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/fifo_pragmas.h    Sun Jul 19 17:47:02 1992
  12679. ***************
  12680. *** 0 ****
  12681. --- 1,7 ----
  12682. + /* "fifo.library"*/
  12683. + #pragma libcall _FifoBase OpenFifo 1E 81003
  12684. + #pragma libcall _FifoBase CloseFifo 24 1002
  12685. + #pragma libcall _FifoBase ReadFifo 2A 81003
  12686. + #pragma libcall _FifoBase WriteFifo 30 81003
  12687. + #pragma libcall _FifoBase RequestFifo 36 81003
  12688. + #pragma libcall _FifoBase BufSizeFifo 3C 001
  12689. diff -rc --new-file emacs-18.59/amiga/unix/src/fifofd.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/fifofd.c
  12690. *** emacs-18.59/amiga/unix/src/fifofd.c    Thu Jan  1 00:00:00 1970
  12691. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/fifofd.c    Fri Aug 14 18:33:24 1992
  12692. ***************
  12693. *** 0 ****
  12694. --- 1,25 ----
  12695. + #include "amiga.h"
  12696. + #include "files.h"
  12697. + #include "fifofd.h"
  12698. + #include <time.h>
  12699. + 
  12700. + struct Library *_FifoBase;
  12701. + int _fifo_sig = -1;
  12702. + long _fifo_base;
  12703. + long _fifo_offset;
  12704. + int _fifo_ok;
  12705. + 
  12706. + void _init_fifo(void)
  12707. + {
  12708. +   _fifo_base = (int)_us ^ _startup_time * 65537;
  12709. +   _fifo_offset = 0;
  12710. +   _FifoBase = OpenLibrary("fifo.library", 0);
  12711. +   _fifo_sig = AllocSignal(-1);
  12712. +   _fifo_ok = _FifoBase != 0 && _fifo_sig >= 0;
  12713. + }
  12714. + 
  12715. + void _cleanup_fifo(void)
  12716. + {
  12717. +   if (_fifo_sig >= 0) FreeSignal(_fifo_sig);
  12718. +   if (_FifoBase) CloseLibrary(_FifoBase);
  12719. + }
  12720. diff -rc --new-file emacs-18.59/amiga/unix/src/fifofd.h /gnu/src/amiga/emacs-18.59/amiga/unix/src/fifofd.h
  12721. *** emacs-18.59/amiga/unix/src/fifofd.h    Thu Jan  1 00:00:00 1970
  12722. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/fifofd.h    Mon Aug 24 22:31:52 1992
  12723. ***************
  12724. *** 0 ****
  12725. --- 1,31 ----
  12726. + #ifndef FIFO_H
  12727. + #define FIFO_H
  12728. + 
  12729. + #include "fifo.h"
  12730. + #include "fifo_pragmas.h"
  12731. + 
  12732. + #define FIFO_BUFSIZE 1024
  12733. + #define FIFO_NAMELEN 32
  12734. + 
  12735. + struct fifoinfo
  12736. + {
  12737. +   char name[FIFO_NAMELEN];
  12738. +   void *rfifo, *wfifo;
  12739. +   long maxsend, skip;
  12740. +   int flags;
  12741. +   struct Message *rmsg, *wmsg;
  12742. +   struct MsgPort *reply;
  12743. + };
  12744. + 
  12745. + #define FIFO_MASTER 0x8000
  12746. + 
  12747. + extern struct Library *_FifoBase;
  12748. + extern int _fifo_sig;
  12749. + extern long _fifo_base;
  12750. + extern long _fifo_offset;
  12751. + extern int _fifo_ok;
  12752. + 
  12753. + void _init_fifo(void);
  12754. + void _cleanup_fifo(void);
  12755. + 
  12756. + #endif
  12757. diff -rc --new-file emacs-18.59/amiga/unix/src/files.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/files.c
  12758. *** emacs-18.59/amiga/unix/src/files.c    Thu Jan  1 00:00:00 1970
  12759. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/files.c    Sun Dec  6 13:12:58 1992
  12760. ***************
  12761. *** 0 ****
  12762. --- 1,74 ----
  12763. + #include "amiga.h"
  12764. + #include "files.h"
  12765. + #include <string.h>
  12766. + 
  12767. + /* Unix low-level IO emulation */
  12768. + /* --------------------------- */
  12769. + 
  12770. + /* First, fd definition & allocation */
  12771. + 
  12772. + static struct fileinfo *files;
  12773. + static int max_files;
  12774. + #define FILE_STEP 10        /* Nb of file descriptors to allocate at once */
  12775. + 
  12776. + int _alloc_fd(void *userinfo, int flags,
  12777. +   ULONG (*__regargs select_start)(void *userinfo, int rd, int wr),
  12778. +   void (*__regargs select_poll)(void *userinfo, int *rd, int *wr),
  12779. +   int (*__regargs read)(void *userinfo, void *buffer, unsigned int length),
  12780. +   int (*__regargs write)(void *userinfo, void *buffer, unsigned int length),
  12781. +   int (*__regargs lseek)(void *userinfo, long rpos, int mode),
  12782. +   int (*__regargs close)(void *userinfo, int internal),
  12783. +   int (*__regargs ioctl)(void *userinfo, int request, void *data)
  12784. + )
  12785. + {
  12786. +   int fd;
  12787. + 
  12788. +   for (fd = 0; fd < max_files; fd++)
  12789. +       if (!files[fd].userinfo)
  12790. +     {
  12791. +       files[fd].userinfo = (void *)1;
  12792. +       break;
  12793. +     }
  12794. +   if (fd == max_files)
  12795. +     {
  12796. +       struct fileinfo *newfiles;
  12797. +       int i;
  12798. + 
  12799. +       /* Increase files array by FILE_STEP */
  12800. +       max_files += FILE_STEP;
  12801. +       newfiles = (struct fileinfo *)malloc(max_files * sizeof(struct fileinfo));
  12802. +       if (!newfiles)
  12803. +     {
  12804. +       errno = ENOMEM;
  12805. +       return -1;
  12806. +     }
  12807. +       memcpy(newfiles, files, (max_files - FILE_STEP) * sizeof(struct fileinfo));
  12808. +       if (files) free(files);
  12809. +       files = newfiles;
  12810. +       for (i = max_files - FILE_STEP; i < max_files; i++) files[i].userinfo = 0;
  12811. +     }
  12812. +   files[fd].userinfo = userinfo;
  12813. +   files[fd].flags = flags;
  12814. +   files[fd].select_start = select_start;
  12815. +   files[fd].select_poll = select_poll;
  12816. +   files[fd].read = read;
  12817. +   files[fd].write = write;
  12818. +   files[fd].lseek = lseek;
  12819. +   files[fd].close = close;
  12820. +   files[fd].ioctl = ioctl;
  12821. +   return fd;
  12822. + }
  12823. + 
  12824. + void _free_fd(int fd)
  12825. + {
  12826. +   if (0 <= fd && fd < max_files) files[fd].userinfo = 0;
  12827. + }
  12828. + 
  12829. + struct fileinfo *_find_fd(int fd)
  12830. + {
  12831. +   if (0 <= fd && fd < max_files && files[fd].userinfo) return &files[fd];
  12832. +   errno = EBADF;
  12833. +   return 0;
  12834. + }
  12835. + 
  12836. + int _last_fd(void) { return max_files; }
  12837. diff -rc --new-file emacs-18.59/amiga/unix/src/fstat.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/fstat.c
  12838. *** emacs-18.59/amiga/unix/src/fstat.c    Thu Jan  1 00:00:00 1970
  12839. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/fstat.c    Sat Oct 17 12:47:08 1992
  12840. ***************
  12841. *** 0 ****
  12842. --- 1,52 ----
  12843. + #include "amiga.h"
  12844. + #include "fibstat.h"
  12845. + #include <dos/dosextens.h>
  12846. + #include <utility/tagitem.h>
  12847. + #include <sys/types.h>
  12848. + #include <sys/stat.h>
  12849. + #include <amiga/ioctl.h>
  12850. + 
  12851. + int fstat(int fd, struct stat *sbuf)
  12852. + {
  12853. +   BPTR fh;
  12854. +   struct FileInfoBlock *fib;
  12855. +   int ret;
  12856. + 
  12857. +   chkabort();
  12858. +   if (ioctl(fd, _AMIGA_GET_FH, &fh) == -1) return -1;
  12859. +   if ((fib = AllocDosObjectTags(DOS_FIB, TAG_END)) && ExamineFH(fh, fib))
  12860. +     {
  12861. +       struct FileHandle *handle = BADDR(fh);
  12862. + 
  12863. +       _lfibstat(NULL, fib, handle->fh_Type, 0, sbuf);
  12864. +       ret = 0;
  12865. +     }
  12866. +   else
  12867. +     {
  12868. +       int err = IoErr();
  12869. + 
  12870. +       if (err == ERROR_ACTION_NOT_KNOWN)
  12871. +     /* Fake a stat result */
  12872. +     {
  12873. +       ret = 0;
  12874. +       sbuf->st_dev = (long)(((struct FileHandle *)BADDR(fh))->fh_Type);
  12875. +       sbuf->st_ino = 0;
  12876. +       sbuf->st_mode = 0777 | S_IFCHR;
  12877. +       sbuf->st_nlink = 1;
  12878. +       sbuf->st_uid = AMIGA_UID; sbuf->st_gid = AMIGA_GID;
  12879. +       sbuf->st_blksize = 512;
  12880. +       sbuf->st_blocks = 0;
  12881. +       sbuf->st_size = 0;
  12882. +       /* 1-Jan-1978 */
  12883. +       sbuf->st_ctime = sbuf->st_atime = sbuf->st_mtime = 252460800;
  12884. +     }
  12885. +       else
  12886. +     {
  12887. +       ret = -1;
  12888. +       errno = convert_oserr(err);
  12889. +     }
  12890. +     }
  12891. +   if (fib) FreeDosObject(DOS_FIB, fib);
  12892. +   ioctl(fd, _AMIGA_FREE_FH, &fh);
  12893. +   return ret;
  12894. + }
  12895. diff -rc --new-file emacs-18.59/amiga/unix/src/ftruncate.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/ftruncate.c
  12896. *** emacs-18.59/amiga/unix/src/ftruncate.c    Thu Jan  1 00:00:00 1970
  12897. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/ftruncate.c    Sun Jul 19 17:47:02 1992
  12898. ***************
  12899. *** 0 ****
  12900. --- 1,8 ----
  12901. + #include "amiga.h"
  12902. + #include <amiga/ioctl.h>
  12903. + 
  12904. + int ftruncate(int fd, off_t length)
  12905. + {
  12906. +   chkabort();
  12907. +   return ioctl(fd, _AMIGA_TRUNCATE, &length);
  12908. + }
  12909. diff -rc --new-file emacs-18.59/amiga/unix/src/getenv.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/getenv.c
  12910. *** emacs-18.59/amiga/unix/src/getenv.c    Thu Jan  1 00:00:00 1970
  12911. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/getenv.c    Wed Dec  2 19:52:54 1992
  12912. ***************
  12913. *** 0 ****
  12914. --- 1,31 ----
  12915. + #include "amiga.h"
  12916. + #include <string.h>
  12917. + 
  12918. + /* This getenv removes trailing newlines & multiple calls don't
  12919. +    destroy results */
  12920. + char *getenv (const char *varname)
  12921. + {
  12922. +   char *return_string;
  12923. +   char buf[64];
  12924. + 
  12925. +   chkabort();
  12926. +   if (varname && varname[0])
  12927. +     {
  12928. +       int len, size;
  12929. + 
  12930. +       len = GetVar(varname, buf, 64, LV_VAR);
  12931. +       if (len >= 0)
  12932. +     {
  12933. +       size = IoErr();
  12934. +       return_string = malloc(size + 1);
  12935. +       if (!return_string) return 0;
  12936. +       if (size != len)
  12937. +         {
  12938. +           if (GetVar(varname, return_string, size + 1, LV_VAR) > 0)
  12939. +         return return_string;
  12940. +         }
  12941. +       else return strcpy(return_string, buf);
  12942. +     }
  12943. +     }
  12944. +   return 0;
  12945. + }
  12946. diff -rc --new-file emacs-18.59/amiga/unix/src/gethostname.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/gethostname.c
  12947. *** emacs-18.59/amiga/unix/src/gethostname.c    Thu Jan  1 00:00:00 1970
  12948. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/gethostname.c    Sun Aug 16 10:56:12 1992
  12949. ***************
  12950. *** 0 ****
  12951. --- 1,11 ----
  12952. + #include "amiga.h"
  12953. + #include <unistd.h>
  12954. + 
  12955. + extern char *_system_name;
  12956. + 
  12957. + int gethostname(char *buf, int len)
  12958. + {
  12959. +   strncpy(buf, _system_name, len);
  12960. + 
  12961. +   return 0;
  12962. + }
  12963. diff -rc --new-file emacs-18.59/amiga/unix/src/getpid.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/getpid.c
  12964. *** emacs-18.59/amiga/unix/src/getpid.c    Thu Jan  1 00:00:00 1970
  12965. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/getpid.c    Sun Oct 18 20:11:42 1992
  12966. ***************
  12967. *** 0 ****
  12968. --- 1,8 ----
  12969. + #include "amiga.h"
  12970. + #include "processes.h"
  12971. + 
  12972. + int getpid(void)
  12973. + {
  12974. +   chkabort();
  12975. +   return _our_pid;
  12976. + }
  12977. diff -rc --new-file emacs-18.59/amiga/unix/src/getwd.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/getwd.c
  12978. *** emacs-18.59/amiga/unix/src/getwd.c    Thu Jan  1 00:00:00 1970
  12979. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/getwd.c    Sat Aug 15 11:22:30 1992
  12980. ***************
  12981. *** 0 ****
  12982. --- 1,8 ----
  12983. + #include "amiga.h"
  12984. + #include <sys/param.h>
  12985. + 
  12986. + char *getwd (char *pathname)
  12987. + {
  12988. +   chkabort();
  12989. +   return getcwd(pathname, MAXPATHLEN);
  12990. + }
  12991. diff -rc --new-file emacs-18.59/amiga/unix/src/gid.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/gid.c
  12992. *** emacs-18.59/amiga/unix/src/gid.c    Thu Jan  1 00:00:00 1970
  12993. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/gid.c    Sun Jul 19 17:47:02 1992
  12994. ***************
  12995. *** 0 ****
  12996. --- 1,4 ----
  12997. + #include "amiga.h"
  12998. + 
  12999. + gid_t getgid(void) { return AMIGA_GID; }
  13000. + gid_t getegid(void) { return AMIGA_GID; }
  13001. diff -rc --new-file emacs-18.59/amiga/unix/src/grp.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/grp.c
  13002. *** emacs-18.59/amiga/unix/src/grp.c    Thu Jan  1 00:00:00 1970
  13003. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/grp.c    Sun Jul 19 17:47:02 1992
  13004. ***************
  13005. *** 0 ****
  13006. --- 1,14 ----
  13007. + #include "amiga.h"
  13008. + #include <grp.h>
  13009. + 
  13010. + static char *wheel_members[] = { "user", 0 };
  13011. + 
  13012. + static struct group wheel = {
  13013. +   "wheel",
  13014. +   "",
  13015. +   AMIGA_GID,
  13016. +   wheel_members
  13017. + };
  13018. + 
  13019. + struct group *getgrgid(gid_t gid) { return &wheel; }
  13020. + struct group *getgrnam(char *name) { return &wheel; }
  13021. diff -rc --new-file emacs-18.59/amiga/unix/src/index.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/index.c
  13022. *** emacs-18.59/amiga/unix/src/index.c    Thu Jan  1 00:00:00 1970
  13023. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/index.c    Wed Dec  2 20:22:34 1992
  13024. ***************
  13025. *** 0 ****
  13026. --- 1,8 ----
  13027. + #include <string.h>
  13028. + 
  13029. + #undef index
  13030. + 
  13031. + char *index(char *str, int c)
  13032. + {
  13033. +   return strchr(str, c);
  13034. + }
  13035. diff -rc --new-file emacs-18.59/amiga/unix/src/ioctl.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/ioctl.c
  13036. *** emacs-18.59/amiga/unix/src/ioctl.c    Thu Jan  1 00:00:00 1970
  13037. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/ioctl.c    Sun Jul 19 17:47:02 1992
  13038. ***************
  13039. *** 0 ****
  13040. --- 1,14 ----
  13041. + #include "amiga.h"
  13042. + #include "files.h"
  13043. + 
  13044. + int ioctl(int fd, int request, caddr_t arg)
  13045. + {
  13046. +   struct fileinfo *fi;
  13047. + 
  13048. +   chkabort();
  13049. +   if (fi = _find_fd(fd))
  13050. +     {
  13051. +       return fi->ioctl(fi->userinfo, request, arg);
  13052. +     }
  13053. +   return -1;
  13054. + }
  13055. diff -rc --new-file emacs-18.59/amiga/unix/src/isatty.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/isatty.c
  13056. *** emacs-18.59/amiga/unix/src/isatty.c    Thu Jan  1 00:00:00 1970
  13057. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/isatty.c    Sun Jul 19 17:47:02 1992
  13058. ***************
  13059. *** 0 ****
  13060. --- 1,11 ----
  13061. + #include "amiga.h"
  13062. + #include <amiga/ioctl.h>
  13063. + 
  13064. + int isatty(int fd)
  13065. + {
  13066. +   int istty;
  13067. + 
  13068. +   chkabort();
  13069. +   if (ioctl(fd, _AMIGA_INTERACTIVE, &istty) != 0) return 0;
  13070. +   return istty;
  13071. + }
  13072. diff -rc --new-file emacs-18.59/amiga/unix/src/kill.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/kill.c
  13073. *** emacs-18.59/amiga/unix/src/kill.c    Thu Jan  1 00:00:00 1970
  13074. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/kill.c    Fri Aug 14 19:48:34 1992
  13075. ***************
  13076. *** 0 ****
  13077. --- 1,74 ----
  13078. + #include "amiga.h"
  13079. + #include "signals.h"
  13080. + #include "processes.h"
  13081. + #include <exec/execbase.h>
  13082. + 
  13083. + extern struct ExecBase *SysBase;
  13084. + 
  13085. + static void break_list(struct List *tasks, BPTR fh)
  13086. + {
  13087. +   struct Process *p;
  13088. + 
  13089. +   for (p = (struct Process *)tasks->lh_Head; p->pr_Task.tc_Node.ln_Succ;
  13090. +        p = (struct Process *)p->pr_Task.tc_Node.ln_Succ)
  13091. +     {
  13092. +       if (p->pr_Task.tc_Node.ln_Type == NT_PROCESS)
  13093. +     {
  13094. +       struct CommandLineInterface *cli = p->pr_CLI ? BADDR(p->pr_CLI) : 0;
  13095. + 
  13096. +       if (p->pr_CIS == fh || p->pr_COS == fh || p->pr_CES == fh ||
  13097. +           cli && (cli->cli_StandardInput == fh || cli->cli_CurrentInput == fh ||
  13098. +               cli->cli_StandardOutput == fh || cli->cli_CurrentOutput == fh))
  13099. +         Signal(p, SIGBREAKF_CTRL_C | SIGBREAKF_CTRL_D);
  13100. +     }
  13101. +     }
  13102. + }
  13103. + 
  13104. + static int magickill(BPTR fh, int signo)
  13105. + {
  13106. +   switch (signo)
  13107. +     {
  13108. +     case SIGINT: case SIGQUIT: case SIGKILL: case SIGHUP:
  13109. +       Forbid();
  13110. +       break_list(&SysBase->TaskReady, fh);
  13111. +       break_list(&SysBase->TaskWait, fh);
  13112. +       Permit();
  13113. +       return 0;
  13114. +     default: errno = EINVAL; return -1;
  13115. +     }
  13116. + }
  13117. + 
  13118. + int kill(int pid, int signal)
  13119. + {
  13120. +   chkabort();
  13121. +   /* Our process list is now reasonably upto date */
  13122. +   if (pid < 0) pid = -pid;    /* Consider that each process is a pg unto itself */
  13123. +   if (pid == _our_pid) 
  13124. +     {
  13125. +       if (signal) _sig_dispatch(signal);
  13126. +       return 0;
  13127. +     }
  13128. +   else 
  13129. +     {
  13130. +       struct process *entry;
  13131. +       int killrc;
  13132. + 
  13133. +       entry = _find_pid(pid);
  13134. +       if (!entry || entry->status != alive)
  13135. +     {
  13136. +       errno = ESRCH;
  13137. +       return -1;
  13138. +     }
  13139. +       if (!signal) return 0;
  13140. +       killrc = magickill(entry->input, signal);
  13141. +       if (signal == SIGKILL)
  13142. +     {
  13143. +       /* Fake the kill from emacs point of view */
  13144. +       entry->status = exited;
  13145. +       entry->rc = SIGKILL;
  13146. +       _sig_dispatch(SIGCHLD);
  13147. +       return 0;
  13148. +     }
  13149. +       return killrc;
  13150. +     }
  13151. + }
  13152. diff -rc --new-file emacs-18.59/amiga/unix/src/link.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/link.c
  13153. *** emacs-18.59/amiga/unix/src/link.c    Thu Jan  1 00:00:00 1970
  13154. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/link.c    Sun Jul 19 17:47:02 1992
  13155. ***************
  13156. *** 0 ****
  13157. --- 1,16 ----
  13158. + #include "amiga.h"
  13159. + 
  13160. + int link(char *from, char *to)
  13161. + {
  13162. +   BPTR from_lock = Lock(from, ACCESS_READ);
  13163. + 
  13164. +   chkabort();
  13165. +   if (from_lock)
  13166. +     {
  13167. +       int ok = MakeLink(to, from_lock, 0);
  13168. + 
  13169. +       UnLock(from_lock);
  13170. +       if (ok) return 0;
  13171. +     }
  13172. +   ERROR;
  13173. + }
  13174. diff -rc --new-file emacs-18.59/amiga/unix/src/lseek.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/lseek.c
  13175. *** emacs-18.59/amiga/unix/src/lseek.c    Thu Jan  1 00:00:00 1970
  13176. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/lseek.c    Fri Dec  4 22:17:36 1992
  13177. ***************
  13178. *** 0 ****
  13179. --- 1,23 ----
  13180. + #include "amiga.h"
  13181. + #include "files.h"
  13182. + #include <fcntl.h>
  13183. + 
  13184. + #undef lseek
  13185. + 
  13186. + int __lseek(int fd, long rpos, int mode)
  13187. + {
  13188. +   struct fileinfo *fi;
  13189. + 
  13190. +   chkabort();
  13191. +   if (fi = _find_fd(fd))
  13192. +     {
  13193. +       return fi->lseek(fi->userinfo, rpos, mode);
  13194. +     }
  13195. +   return -1;
  13196. + }
  13197. + 
  13198. + int lseek(int fd, long rpos, int mode)
  13199. + {
  13200. +   return __lseek(fd, rpos, mode);
  13201. + }
  13202. + 
  13203. diff -rc --new-file emacs-18.59/amiga/unix/src/message.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/message.c
  13204. *** emacs-18.59/amiga/unix/src/message.c    Thu Jan  1 00:00:00 1970
  13205. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/message.c    Fri Dec  4 21:18:50 1992
  13206. ***************
  13207. *** 0 ****
  13208. --- 1,78 ----
  13209. + #include "amiga.h"
  13210. + #include <intuition/intuition.h>
  13211. + #include <stdarg.h>
  13212. + 
  13213. + static struct EasyStruct msg = {
  13214. +     sizeof (struct EasyStruct),
  13215. +     0,
  13216. +     NULL,
  13217. +     NULL,
  13218. +     "Ok",
  13219. + };
  13220. + 
  13221. + static void message(char *format, long *args)
  13222. + /* Display a message which is as visible as possible (either to the console
  13223. +    or to as a requester).
  13224. +    Assume very little about library state */
  13225. + {
  13226. +   LONG msg_EasyRequestArgs(struct Window *window, struct EasyStruct *easyStruct,
  13227. +                ULONG *idcmpPtr, APTR args );
  13228. + #pragma libcall msg_IntuitionBase msg_EasyRequestArgs 24C BA9804
  13229. +   BPTR fh;
  13230. +   int close = FALSE;
  13231. +   extern char *_ProgramName;
  13232. +   extern struct WBStartup *_WBenchMsg;
  13233. + 
  13234. +   fh = _us->pr_CES;
  13235. +   if (!fh)
  13236. +     if (!_WBenchMsg && (fh = Open("console:", MODE_OLDFILE))) close = TRUE;
  13237. + 
  13238. +   if (fh)
  13239. +     {
  13240. +       VFPrintf(fh, "%s: ", &_ProgramName);
  13241. +       VFPrintf(fh, format, (long *)args);
  13242. +       FPutC(fh, '\n');
  13243. +       if (close) Close(fh);
  13244. +     }
  13245. +   else
  13246. +     {
  13247. +       struct Window *win = (struct Window *)_us->pr_WindowPtr;
  13248. +       if (win != (struct Window *)-1)
  13249. +     {
  13250. +       struct Library *msg_IntuitionBase = OpenLibrary("intuition.library", 37);
  13251. + 
  13252. +       if (msg_IntuitionBase)
  13253. +         {
  13254. +           msg.es_Title = _ProgramName;
  13255. +           msg.es_TextFormat = format;
  13256. +           msg_EasyRequestArgs(win, &msg, 0, args);
  13257. +           CloseLibrary(msg_IntuitionBase);
  13258. +         }
  13259. +     }
  13260. +     }
  13261. + }
  13262. + 
  13263. + void _message(char *format, ...)
  13264. + /* Display a message which is as visible as possible (either to the console
  13265. +    or to as a requester).
  13266. +    Assume very little about library state */
  13267. + {
  13268. +   va_list args;
  13269. + 
  13270. +   va_start(args, format);
  13271. +   message(format, (long *)args);
  13272. + }
  13273. + 
  13274. + void _fail(char *format, ...)
  13275. + /* Display a message which is as visible as possible (either to the console
  13276. +    or to as a requester).
  13277. +    Assume very little about library state.
  13278. +    Exit with error code RETURN_FAIL after that. */
  13279. + {
  13280. +   va_list args;
  13281. + 
  13282. +   va_start(args, format);
  13283. +   message(format, (long *)args);
  13284. + 
  13285. +   exit(RETURN_FAIL);        /* The library should always be cleanup-able */
  13286. + }
  13287. diff -rc --new-file emacs-18.59/amiga/unix/src/mkdir.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/mkdir.c
  13288. *** emacs-18.59/amiga/unix/src/mkdir.c    Thu Jan  1 00:00:00 1970
  13289. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/mkdir.c    Sat Sep 26 14:20:44 1992
  13290. ***************
  13291. *** 0 ****
  13292. --- 1,20 ----
  13293. + #include "amiga.h"
  13294. + #include <stdarg.h>
  13295. + 
  13296. + int mkdir(char *name, mode_t mode)
  13297. + {
  13298. +   BPTR lock;
  13299. +   long amode;
  13300. + 
  13301. +   chkabort();
  13302. + 
  13303. +   if (lock = CreateDir(name))
  13304. +     {
  13305. +       UnLock(lock);
  13306. +       /* We remove script because mode 777 contains it by def, but it is
  13307. +          meaningless for directories */
  13308. +       amode = _make_protection(mode) & ~(FIBF_SCRIPT);
  13309. +       if (SetProtection(name, _make_protection(mode))) return 0;
  13310. +     }
  13311. +   ERROR;
  13312. + }
  13313. diff -rc --new-file emacs-18.59/amiga/unix/src/mkfifo.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/mkfifo.c
  13314. *** emacs-18.59/amiga/unix/src/mkfifo.c    Thu Jan  1 00:00:00 1970
  13315. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/mkfifo.c    Sun Jul 19 17:47:02 1992
  13316. ***************
  13317. *** 0 ****
  13318. --- 1,4 ----
  13319. + #include "amiga.h"
  13320. + 
  13321. + int mkfifo(char *path, int mode, int dev) { errno = EOSERR; return -1; }
  13322. + int mknod(char *path, int mode, int dev) { errno = EOSERR; return -1; }
  13323. diff -rc --new-file emacs-18.59/amiga/unix/src/mktemp.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/mktemp.c
  13324. *** emacs-18.59/amiga/unix/src/mktemp.c    Thu Jan  1 00:00:00 1970
  13325. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/mktemp.c    Sat Aug 15 12:21:26 1992
  13326. ***************
  13327. *** 0 ****
  13328. --- 1,26 ----
  13329. + #include "amiga.h"
  13330. + #include <string.h>
  13331. + #include <stdio.h>
  13332. + 
  13333. + char *mktemp(char *name)
  13334. + {
  13335. +   int l;
  13336. +   char *change = name + strlen(name) - 6;
  13337. +   char letter = 'a';
  13338. +   char id[9], *end_id;
  13339. + 
  13340. +   chkabort();
  13341. +   _sprintf(id, "%lx", _us);
  13342. +   l = strlen(id);
  13343. +   end_id = l > 5 ? id + l - 5 : id;
  13344. +   _sprintf(change, "a%s", end_id);
  13345. + 
  13346. +   while (letter <= 'z')
  13347. +     {
  13348. +       *change = letter;
  13349. +       if (access(name, 0)) return name;
  13350. +       letter++;
  13351. +     }
  13352. +   name[0] = '\0';
  13353. +   return name;
  13354. + }
  13355. diff -rc --new-file emacs-18.59/amiga/unix/src/open.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/open.c
  13356. *** emacs-18.59/amiga/unix/src/open.c    Thu Jan  1 00:00:00 1970
  13357. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/open.c    Fri Dec  4 22:16:48 1992
  13358. ***************
  13359. *** 0 ****
  13360. --- 1,141 ----
  13361. + #include "amiga.h"
  13362. + #include "files.h"
  13363. + #include "amigados.h"
  13364. + #include <utility/tagitem.h>
  13365. + #include <stdarg.h>
  13366. + #include <fcntl.h>
  13367. + #include <string.h>
  13368. + 
  13369. + 
  13370. + #undef open
  13371. + 
  13372. + int __open(const char *path, int flags, ...)
  13373. + {
  13374. +   int fd, acc = flags & 3, rd, wr, exists = TRUE, amode;
  13375. +   struct FileInfoBlock *fib;
  13376. +   BPTR plock, fh;
  13377. +   long fdflags, protection;
  13378. +   APTR pwindow = _us->pr_WindowPtr;
  13379. +   ULONG create = MODE_READWRITE; /* Mode to use when creating files. */
  13380. + 
  13381. +   chkabort();
  13382. + 
  13383. +   rd = acc == O_RDONLY || acc == O_RDWR;
  13384. +   wr = acc == O_WRONLY || acc == O_RDWR;
  13385. + 
  13386. +   if (stricmp(path, "NIL:") == 0) amode = -1;
  13387. +   else
  13388. +     {
  13389. +       _us->pr_WindowPtr = (APTR)-1;
  13390. +       plock = Lock(path, ACCESS_READ);
  13391. +       _us->pr_WindowPtr = pwindow;
  13392. +       if (!plock)
  13393. +     {
  13394. +       int err = convert_oserr(IoErr()), ok;
  13395. + 
  13396. +       /* Devices like pipe: don't like Lock ... */
  13397. +       if (_OSERR == ERROR_ACTION_NOT_KNOWN ||
  13398. +           _OSERR == 0) /* Some devices (tape:) don't set IoErr() ... */
  13399. +         {
  13400. +           ok = TRUE;
  13401. +           /* Most non-lockable devices don't like MODE_READWRITE.
  13402. +          So we have to throw shareable files out the window */
  13403. +           create = MODE_NEWFILE;
  13404. +         }
  13405. +       else /* Missing file ok if we are creating. */ 
  13406. +         ok = err == ENOENT && (flags & O_CREAT);
  13407. + 
  13408. +       if (ok)
  13409. +         {
  13410. +           va_list vmode;
  13411. + 
  13412. +           exists = FALSE;
  13413. +           if (flags & O_CREAT)
  13414. +         {
  13415. +           if (flags & 0x8000) /* SAS C runtime called us, no mode */
  13416. +             amode = FIBF_EXECUTE; /* Maybe 0 ? */
  13417. +           else
  13418. +             {
  13419. +               va_start(vmode, flags);
  13420. +               amode = _make_protection(va_arg(vmode, int));
  13421. +               va_end(vmode);
  13422. +             }
  13423. +         }
  13424. +           else amode = -1;    /* Assume complete access */
  13425. +         }
  13426. +       else
  13427. +         {
  13428. +           errno = err;
  13429. +           return -1;
  13430. +         }
  13431. +     }
  13432. +       else /* File already exists, play with it */
  13433. +     {
  13434. +       /* Get protection */
  13435. +       if (!((fib = AllocDosObjectTags(DOS_FIB, TAG_END)) &&
  13436. +         Examine(plock, fib)))
  13437. +         {
  13438. +           if (fib) FreeDosObject(DOS_FIB, fib);
  13439. +           ERROR;
  13440. +         }
  13441. +       amode = fib->fib_Protection;
  13442. +       FreeDosObject(DOS_FIB, fib);
  13443. +       UnLock(plock);
  13444. + 
  13445. +       /* Check access */
  13446. +       if ((flags & (O_CREAT | O_EXCL)) == (O_CREAT | O_EXCL))
  13447. +         {
  13448. +           errno = EEXIST;
  13449. +           return -1;
  13450. +         }
  13451. +       if ((rd && (amode & FIBF_READ) || wr && (amode & FIBF_WRITE)))
  13452. +         {
  13453. +           errno = EACCES;
  13454. +           return -1;
  13455. +         }
  13456. + 
  13457. +       /* Truncate files, by opening in MODE_NEWFILE, then closing it.
  13458. +          This allows the file to be opened in shared mode after that (READWRITE or
  13459. +          OLDFILE), which is consistent with the unix semantics. */
  13460. +       if (flags & O_TRUNC)
  13461. +         {
  13462. +           BPTR tfh;
  13463. + 
  13464. +           if (tfh = Open(path, MODE_NEWFILE)) Close(tfh);
  13465. +           else ERROR;
  13466. +         }
  13467. +     }
  13468. +     }
  13469. +   if (!(fh = Open(path, flags & O_CREAT ? create : MODE_OLDFILE)))
  13470. +     ERROR;
  13471. + 
  13472. +   
  13473. +   /* Protection is set when file is closed because OFS & FFS
  13474. +      don't appreciate it being done on MODE_NEWFILE files. */
  13475. +   if ((flags & O_TRUNC) || !exists) protection = amode;
  13476. +   else protection = -1;
  13477. + 
  13478. +   fdflags = 0;
  13479. +   if (rd) fdflags |= FI_READ;
  13480. +   if (wr) fdflags |= FI_WRITE;
  13481. +   if (flags & O_APPEND) fdflags |= O_APPEND;
  13482. + 
  13483. +   fd = _alloc_amigafd(fh, protection, fdflags);
  13484. +   if (fd < 0)
  13485. +     {
  13486. +       _us->pr_WindowPtr = (APTR)-1;
  13487. +       Close(fh);
  13488. +       _us->pr_WindowPtr = pwindow;
  13489. +     }
  13490. +   return fd;
  13491. + }
  13492. + 
  13493. + int open(const char *path, int flags, ...)
  13494. + {
  13495. +   va_list vmode;
  13496. + 
  13497. +   va_start(vmode, flags);
  13498. +   return __open(path, flags, va_arg(vmode, int));
  13499. +   va_end(vmode);
  13500. + }
  13501. + 
  13502. diff -rc --new-file emacs-18.59/amiga/unix/src/perror.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/perror.c
  13503. *** emacs-18.59/amiga/unix/src/perror.c    Thu Jan  1 00:00:00 1970
  13504. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/perror.c    Wed Dec  2 20:24:48 1992
  13505. ***************
  13506. *** 0 ****
  13507. --- 1,26 ----
  13508. + #include "amiga.h"
  13509. + #include <errno.h>
  13510. + #include <string.h>
  13511. + #include <unistd.h>
  13512. + 
  13513. + void perror(const char *s)
  13514. + {
  13515. +   char *err;
  13516. +   char amiga_err[81];
  13517. + 
  13518. +   if (s && *s) 
  13519. +     {
  13520. +       write(2, s, strlen(s));
  13521. +       write(2, ": ", 2);
  13522. +     }
  13523. +   if (errno > 0 && errno <= sys_nerr) err = sys_errlist[errno];
  13524. +   else if (errno == -1) 
  13525. +     {
  13526. +       if (Fault(_OSERR, NULL, amiga_err, 81)) err = amiga_err;
  13527. +       else err = "42";        /* Shouldn't appear ... */
  13528. +     }
  13529. +   else err = "Unknown error code";
  13530. + 
  13531. +   write(2, err, strlen(err));
  13532. +   write(2, "\n", 1);
  13533. + }
  13534. diff -rc --new-file emacs-18.59/amiga/unix/src/pipe.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/pipe.c
  13535. *** emacs-18.59/amiga/unix/src/pipe.c    Thu Jan  1 00:00:00 1970
  13536. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/pipe.c    Sun Dec  6 13:14:56 1992
  13537. ***************
  13538. *** 0 ****
  13539. --- 1,354 ----
  13540. + #include "amiga.h"
  13541. + #include "files.h"
  13542. + #include "fifofd.h"
  13543. + #include "signals.h"
  13544. + #include <sys/filio.h>
  13545. + #include <fcntl.h>
  13546. + #include <signal.h>
  13547. + #include <string.h>
  13548. + #include <stdio.h>
  13549. + #include <exec/memory.h>
  13550. + #include <amiga/ioctl.h>
  13551. + 
  13552. + /* The pipe system call, using fifo: */
  13553. + 
  13554. + static struct MsgPort *create_fifo_port(void)
  13555. + {
  13556. +   struct MsgPort *port = AllocMem(sizeof(*port), MEMF_CLEAR | MEMF_PUBLIC);
  13557. + 
  13558. +   if (!port) return 0;
  13559. +   port->mp_Node.ln_Type = NT_MSGPORT;
  13560. +   port->mp_Flags = PA_SIGNAL;
  13561. +   port->mp_SigBit = _fifo_sig;
  13562. +   port->mp_SigTask = _us;
  13563. +   NewList(&port->mp_MsgList);
  13564. + 
  13565. +   return port;
  13566. + }
  13567. + 
  13568. + static void delete_fifo_port(struct MsgPort *port)
  13569. + {
  13570. +   FreeMem(port, sizeof(*port));
  13571. + }
  13572. + 
  13573. + static void free_fifo(struct fifoinfo *fi)
  13574. + {
  13575. +   if (fi->rfifo) CloseFifo(fi->rfifo, 0);
  13576. +   if (fi->wfifo) CloseFifo(fi->wfifo, FIFOF_EOF);
  13577. +   if (fi->rmsg) free(fi->rmsg);
  13578. +   if (fi->wmsg) free(fi->wmsg);
  13579. +   delete_fifo_port(fi->reply);
  13580. +   free(fi);
  13581. + }
  13582. + 
  13583. + /* Code for fd's describing fifos */
  13584. + 
  13585. + static ULONG __regargs fifo_select_start(void *userinfo, int rd, int wr)
  13586. + {
  13587. +   struct fifoinfo *fi = userinfo;
  13588. + 
  13589. +   if (rd) RequestFifo(fi->rfifo, fi->rmsg, FREQ_RPEND);
  13590. +   if (wr) RequestFifo(fi->wfifo, fi->wmsg, FREQ_WAVAIL);
  13591. +   return 1UL << _fifo_sig;
  13592. + }
  13593. + 
  13594. + static void __regargs fifo_select_poll(void *userinfo, int *rd, int *wr)
  13595. + {
  13596. +   struct fifoinfo *fi = userinfo;
  13597. +   int rabort = *rd, wabort = *wr;
  13598. +   struct Message *msg;
  13599. + 
  13600. +   while (msg = GetMsg(fi->reply))
  13601. +     {
  13602. +       if (msg == fi->rmsg) rabort = 0;
  13603. +       else if (msg == fi->wmsg) wabort = 0;
  13604. +     }
  13605. +   if (rabort)
  13606. +     {
  13607. +       *rd = 0;
  13608. +       RequestFifo(fi->rfifo, fi->rmsg, FREQ_ABORT);
  13609. +     }
  13610. +   if (wabort)
  13611. +     {
  13612. +       *wr = 0;
  13613. +       RequestFifo(fi->wfifo, fi->wmsg, FREQ_ABORT);
  13614. +     }
  13615. +   while (rabort || wabort)
  13616. +     {
  13617. +       while (!(msg = GetMsg(fi->reply))) Wait(1UL << _fifo_sig);
  13618. +       if (msg == fi->rmsg) rabort = 0;
  13619. +       else if (msg == fi->wmsg) wabort = 0;
  13620. +     }
  13621. +   /* Clear any signals we may have left behind */
  13622. +   SetSignal(0, 1UL << _fifo_sig);
  13623. + }
  13624. + 
  13625. + /* Using 4.2BSD style semantics, with reads from fifo's returning immediately when
  13626. +    data is available, and blocking for empty fifo's only when O_NDELAY was not
  13627. +    specified on open */
  13628. + 
  13629. + static int __regargs fifo_read(void *userinfo, void *buffer, unsigned int length)
  13630. + {
  13631. +   struct fifoinfo *fi = userinfo;
  13632. +   char *chars;
  13633. +   long ready;
  13634. + 
  13635. +   while (!(ready = ReadFifo(fi->rfifo, &chars, fi->skip)))
  13636. +     {
  13637. +       ULONG sigs;
  13638. + 
  13639. +       fi->skip = 0;
  13640. +       if (fi->flags & O_NDELAY)
  13641. +     {
  13642. +       errno = EWOULDBLOCK;
  13643. +       return -1;
  13644. +     }
  13645. +       Delay(1);            /* Perversely, this improves the performance */
  13646. +       RequestFifo(fi->rfifo, fi->rmsg, FREQ_RPEND);
  13647. +       sigs = _wait_signals(1L << fi->reply->mp_SigBit);
  13648. +       RequestFifo(fi->rfifo, fi->rmsg, FREQ_ABORT);
  13649. +       while (!GetMsg(fi->reply)) Wait(1UL << _fifo_sig);
  13650. + 
  13651. +       _handle_signals(sigs);
  13652. +     }
  13653. +   if (ready == -1) ready = 0;
  13654. +   if (ready > length) ready = length;
  13655. +   memcpy(buffer, chars, ready);
  13656. +   fi->skip = ready;
  13657. + 
  13658. +   return (int)ready;
  13659. + }
  13660. + 
  13661. + static int __regargs fifo_write(void *userinfo, void *_buffer, unsigned int length)
  13662. + {
  13663. +   struct fifoinfo *fi = userinfo;
  13664. +   long cansend, written;
  13665. +   char *buffer = _buffer;
  13666. + 
  13667. +   if (length == 0)        /* Send EOF */
  13668. +     {
  13669. +       char *fname, sname[FIFO_NAMELEN + 2], mname[FIFO_NAMELEN + 2];
  13670. + 
  13671. +       /* Send EOF */
  13672. +       CloseFifo(fi->wfifo, FIFOF_EOF);
  13673. +       /* And reopen fifo */
  13674. +       /* Docs say that this clears EOF flag, maybe we should wait a bit ? */
  13675. +       /* The writer is the "master" in fifo: terms */
  13676. +       strcpy(mname, fi->name); strcat(mname, "_m");
  13677. +       strcpy(sname, fi->name); strcat(sname, "_s");
  13678. + 
  13679. +       fname = !(fi->flags & FI_READ) || (fi->flags & FIFO_MASTER) ? mname : sname;
  13680. +       fi->wfifo = OpenFifo(fname, FIFO_BUFSIZE, FIFOF_NORMAL | FIFOF_NBIO |
  13681. +                FIFOF_WRITE | FIFOF_RREQUIRED);
  13682. +       if (fi->wfifo)
  13683. +     {
  13684. +       fi->maxsend = BufSizeFifo(fi->wfifo) / 2;
  13685. +       return 0;
  13686. +     }
  13687. +       /* We're in trouble. From now on, all writes will fail */
  13688. +     }
  13689. +   else if (fi->wfifo)
  13690. +     {
  13691. +       cansend = fi->maxsend;
  13692. +       written = 0;
  13693. +       while (length > 0)
  13694. +     {
  13695. +       long sent;
  13696. + 
  13697. +       if (cansend > length) cansend = length;
  13698. +       while ((sent = WriteFifo(fi->wfifo, buffer, cansend)) == 0)
  13699. +         {
  13700. +           ULONG sigs;
  13701. +           int signaled;
  13702. + 
  13703. +           if (fi->flags & O_NDELAY)
  13704. +         {
  13705. +           if (written != 0) return (int)written;
  13706. +           errno = EWOULDBLOCK;
  13707. +           return -1;
  13708. +         }
  13709. +           RequestFifo(fi->wfifo, fi->wmsg, FREQ_WAVAIL);
  13710. +           sigs = _wait_signals(1L << fi->reply->mp_SigBit);
  13711. +           RequestFifo(fi->wfifo, fi->wmsg, FREQ_ABORT);
  13712. +           while (!GetMsg(fi->reply)) Wait(1UL << _fifo_sig);
  13713. +           signaled = _handle_signals(sigs);
  13714. +           if (signaled && written != 0) return (int)written;
  13715. +         }
  13716. +       if (sent < 0) /* Some problem has occured */ goto fail;
  13717. +       written += sent;
  13718. +       length -= sent;
  13719. +       buffer += sent;
  13720. +     }
  13721. +       return (int)written;
  13722. +     }
  13723. +  fail:
  13724. +   /* Some problem has occured */
  13725. +   _sig_dispatch(SIGPIPE);
  13726. +   errno = EPIPE;
  13727. +   return -1;
  13728. + }
  13729. + 
  13730. + static int __regargs fifo_lseek(void *userinfo, long rpos, int mode)
  13731. + {
  13732. +   errno = ESPIPE;
  13733. +   return -1;
  13734. + }
  13735. + 
  13736. + static int __regargs fifo_close(void *userinfo, int internal)
  13737. + {
  13738. +   struct fifoinfo *fi = userinfo;
  13739. + 
  13740. +   free_fifo(fi);
  13741. +   return 0;
  13742. + }
  13743. + 
  13744. + static int __regargs fifo_ioctl(void *userinfo, int request, void *data)
  13745. + {
  13746. +   struct fifoinfo *fi = userinfo;
  13747. + 
  13748. +   switch (request)
  13749. +     {
  13750. +     case FIONBIO:
  13751. +       if (*(int *)data) fi->flags |= O_NDELAY;
  13752. +       else fi->flags &= ~O_NDELAY;
  13753. +       return 0;
  13754. +     case _AMIGA_GET_FH: {
  13755. +       BPTR *fh = data;
  13756. +       char name[FIFO_NAMELEN + 12];
  13757. + 
  13758. +       /* Get an AmigaDOS fifo: onto the same fifo in the same role */
  13759. +       if ((fi->flags & (FI_READ | FI_WRITE)) == (FI_READ | FI_WRITE))
  13760. +     _sprintf(name, "fifo:%s/rwesK%s",
  13761. +          fi->name, fi->flags & FIFO_MASTER ? "m" : "");
  13762. +       else if (fi->flags & FI_READ) _sprintf(name, "fifo:%s/r", fi->name);
  13763. +       else _sprintf(name, "fifo:%s/mweK", fi->name);
  13764. +       *fh = Open(name, MODE_OLDFILE);
  13765. + 
  13766. +       if (*fh) return 0;
  13767. +       ERROR;
  13768. +     }
  13769. +     case _AMIGA_FREE_FH: {
  13770. +       BPTR *fh = data;
  13771. + 
  13772. +       if (*fh) Close(*fh);
  13773. +       return 0;
  13774. +     }
  13775. +     default: errno = EINVAL; return -1;
  13776. +     }
  13777. + }
  13778. + 
  13779. + static int alloc_fifo(char *name, int reader, int writer, int master)
  13780. + {
  13781. +   struct fifoinfo *fi;
  13782. +   int fd;
  13783. +   struct MsgPort *reply = 0;
  13784. +   struct Message *rmsg = 0, *wmsg = 0;
  13785. + 
  13786. +   if ((fi = (struct fifoinfo *)malloc(sizeof(struct fifoinfo))) &&
  13787. +       (reply = create_fifo_port()) &&
  13788. +       (rmsg = (struct Message *)malloc(sizeof(struct Message))) &&
  13789. +       (wmsg = (struct Message *)malloc(sizeof(struct Message))))
  13790. +     {
  13791. +       rmsg->mn_Node.ln_Type = NT_MESSAGE;
  13792. +       rmsg->mn_ReplyPort = reply;
  13793. +       rmsg->mn_Length = sizeof(*rmsg);
  13794. +       wmsg->mn_Node.ln_Type = NT_MESSAGE;
  13795. +       wmsg->mn_ReplyPort = reply;
  13796. +       wmsg->mn_Length = sizeof(*wmsg);
  13797. +       fi->reply = reply;
  13798. +       fi->rmsg = rmsg;
  13799. +       fi->wmsg = wmsg;
  13800. +       fi->rfifo = fi->wfifo = 0;
  13801. + 
  13802. +       fi->flags = 0;
  13803. +       if (reader) fi->flags |= FI_READ;
  13804. +       if (writer) fi->flags |= FI_WRITE;
  13805. +       fd = _alloc_fd(fi, fi->flags, fifo_select_start, fifo_select_poll, fifo_read,
  13806. +              fifo_write, fifo_lseek, fifo_close, fifo_ioctl);
  13807. +       if (fd)
  13808. +     {
  13809. +       char *fname, sname[FIFO_NAMELEN + 2], mname[FIFO_NAMELEN + 2];
  13810. + 
  13811. +       if (master) fi->flags |= FIFO_MASTER;
  13812. +       strcpy(fi->name, name);
  13813. +       /* The writer is the "master" in fifo: terms */
  13814. +       strcpy(mname, fi->name); strcat(mname, "_m");
  13815. +       strcpy(sname, fi->name); strcat(sname, "_s");
  13816. + 
  13817. +       if (reader)
  13818. +         {
  13819. +           fname = !writer || !master ? mname : sname;
  13820. +           fi->rfifo = OpenFifo(fname, FIFO_BUFSIZE, FIFOF_NORMAL | FIFOF_NBIO |
  13821. +                    FIFOF_READ);
  13822. +         }
  13823. +       if (writer)
  13824. +         {
  13825. +           fname = !reader || master ? mname : sname;
  13826. +           fi->wfifo = OpenFifo(fname, FIFO_BUFSIZE, FIFOF_NORMAL | FIFOF_NBIO |
  13827. +                    FIFOF_WRITE | FIFOF_RREQUIRED);
  13828. +         }
  13829. +       if ((fi->rfifo || !reader) && (fi->wfifo || !writer))
  13830. +         {
  13831. +           if (fi->wfifo) fi->maxsend = BufSizeFifo(fi->wfifo) / 2;
  13832. +           fi->skip = 0;
  13833. +           return fd;
  13834. +         }
  13835. +       if (fi->rfifo) CloseFifo(fi->rfifo, 0);
  13836. +       if (fi->wfifo) CloseFifo(fi->wfifo, 0);
  13837. +     }
  13838. +       if (fd >= 0) _free_fd(fd);
  13839. +     }
  13840. +   if (rmsg) free(rmsg);
  13841. +   if (wmsg) free(wmsg);
  13842. +   if (reply) delete_fifo_port(reply);
  13843. +   if (fi) free(fi);
  13844. +   return -1;
  13845. + }
  13846. + 
  13847. + int pipe(int fd[2])
  13848. + {
  13849. +   char name[FIFO_NAMELEN];
  13850. +   struct fileinfo *f0;
  13851. + 
  13852. +   chkabort();
  13853. +   if (!_fifo_ok)
  13854. +     {
  13855. +       errno = ENXIO;
  13856. +       return -1;
  13857. +     }
  13858. + 
  13859. +   _sprintf(name, "uxfifo.%lx", _fifo_base + _fifo_offset++);
  13860. + 
  13861. +   if ((fd[0] = alloc_fifo(name, TRUE, FALSE, FALSE)) >= 0)
  13862. +     if ((fd[1] = alloc_fifo(name, FALSE, TRUE, FALSE)) >= 0) return 0;
  13863. +     else
  13864. +       {
  13865. +     if (f0 = _find_fd(fd[0])) free_fifo(f0->userinfo);
  13866. +     _free_fd(fd[0]);
  13867. +       }
  13868. +   return -1;
  13869. + }
  13870. + 
  13871. + int socketpair(int domain, int type, int protocol, int sv[2])
  13872. + {
  13873. +   char name[FIFO_NAMELEN];
  13874. +   struct fileinfo *f0;
  13875. + 
  13876. +   chkabort();
  13877. +   if (!_fifo_ok)
  13878. +     {
  13879. +       errno = ENXIO;
  13880. +       return -1;
  13881. +     }
  13882. + 
  13883. +   _sprintf(name, "uxfifo.%lx", _fifo_base + _fifo_offset++);
  13884. + 
  13885. +   if ((sv[0] = alloc_fifo(name, TRUE, TRUE, TRUE)) >= 0)
  13886. +     if ((sv[1] = alloc_fifo(name, TRUE, TRUE, FALSE)) >= 0) return 0;
  13887. +     else
  13888. +       {
  13889. +     if (f0 = _find_fd(sv[0])) free_fifo(f0->userinfo);
  13890. +     _free_fd(sv[0]);
  13891. +       }
  13892. +   return -1;
  13893. + }
  13894. diff -rc --new-file emacs-18.59/amiga/unix/src/popen.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/popen.c
  13895. *** emacs-18.59/amiga/unix/src/popen.c    Thu Jan  1 00:00:00 1970
  13896. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/popen.c    Sun Oct 25 11:25:20 1992
  13897. ***************
  13898. *** 0 ****
  13899. --- 1,93 ----
  13900. + #include "amiga.h"
  13901. + #include "processes.h"
  13902. + #include "fifofd.h"
  13903. + #include <amiga/ioctl.h>
  13904. + #include <exec/memory.h>
  13905. + #include <dos/dosextens.h>
  13906. + #include <dos/dostags.h>
  13907. + #include <string.h>
  13908. + 
  13909. + struct pprocess
  13910. + {
  13911. +   struct pprocess *next;
  13912. +   FILE *f;
  13913. +   int pid;
  13914. + };
  13915. + 
  13916. + static struct pprocess *_pplist;
  13917. + 
  13918. + FILE *popen(char *command, char *type)
  13919. + {
  13920. +   FILE *pipe;
  13921. +   BPTR in, out;
  13922. +   int close_in, close_out;
  13923. +   char pname[24];
  13924. +   struct pprocess *pp = (struct pprocess *)malloc(sizeof(struct pprocess));
  13925. + 
  13926. +   _sprintf(pname, "pipe:uxopen.%lx", _fifo_base + _fifo_offset++);
  13927. + 
  13928. +   if (type[0] == 'w' && type[1] == '\0')
  13929. +     {
  13930. +       pipe = fopen(pname, "w");
  13931. +       out = Output(); close_out = FALSE;
  13932. +       in = Open(pname, MODE_OLDFILE); close_in = TRUE;
  13933. +     }
  13934. +   else if (type[0] == 'r' && type[1] == '\0')
  13935. +     {
  13936. +       pipe = fopen(pname, "r");
  13937. +       in = Input(); close_in = FALSE;
  13938. +       out = Open(pname, MODE_NEWFILE); close_out = TRUE;
  13939. +     }
  13940. +   else
  13941. +     {
  13942. +       errno = EINVAL;
  13943. +       return NULL;
  13944. +     }
  13945. + 
  13946. +   if (!in || !out) _seterr();
  13947. +   if (pipe && in && out && pp)
  13948. +     {
  13949. +       pp->pid = _start_process(command, in, close_in, out, close_out,
  13950. +                    -1, FALSE, 0, 0);
  13951. +       
  13952. +       if (pp->pid)
  13953. +     {
  13954. +       pp->next = _pplist;
  13955. +       _pplist = pp;
  13956. +       pp->f = pipe;
  13957. + 
  13958. +       return pipe;
  13959. +     }
  13960. +     }
  13961. +   if (pp) free(pp);
  13962. +   if (in && close_in) Close(in);
  13963. +   if (out && close_out) Close(out);
  13964. +   if (pipe) fclose(pipe);
  13965. + 
  13966. +   return NULL;
  13967. + }
  13968. + 
  13969. + int pclose(FILE *f)
  13970. + {
  13971. +   struct pprocess **scan = &_pplist;
  13972. + 
  13973. +   while (*scan)
  13974. +     {
  13975. +       if ((*scan)->f == f) /* found */
  13976. +     {
  13977. +       struct pprocess *son = *scan;
  13978. +       int status;
  13979. +       int pid = son->pid;
  13980. + 
  13981. +       *scan = son->next;    /* Remove process from list */
  13982. + 
  13983. +       fclose(son->f);
  13984. +       free(son);
  13985. +       /* Wait for process to terminate */
  13986. +       if (waitpid(pid, &status, NULL) >= 0) return status;
  13987. +       return -1;
  13988. +     }
  13989. +       scan = &(*scan)->next;
  13990. +     }
  13991. +   return -1;
  13992. + }
  13993. diff -rc --new-file emacs-18.59/amiga/unix/src/processes.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/processes.c
  13994. *** emacs-18.59/amiga/unix/src/processes.c    Thu Jan  1 00:00:00 1970
  13995. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/processes.c    Sat Sep 26 11:26:36 1992
  13996. ***************
  13997. *** 0 ****
  13998. --- 1,56 ----
  13999. + #include "amiga.h"
  14000. + #include <clib/alib_protos.h>
  14001. + 
  14002. + #include "processes.h"
  14003. + 
  14004. + int _next_pid, _our_pid;
  14005. + struct MinList _processes;
  14006. + char _door_name[DOOR_LEN];
  14007. + struct MsgPort *_children_exit;
  14008. + struct MsgPort *_startup_port;
  14009. + 
  14010. + void _free_entry(struct process *p)
  14011. + {
  14012. +   Remove((struct Node *)p);
  14013. +   free(p);
  14014. + }
  14015. + 
  14016. + struct process *_find_pid(int pid)
  14017. + {
  14018. +   struct process *entry;
  14019. + 
  14020. +   scan_processes (entry) if (entry->pid == pid) return entry;
  14021. + 
  14022. +   return 0;
  14023. + }
  14024. + 
  14025. + void _init_processes(void)
  14026. + {
  14027. +   NewList((struct List *)&_processes);
  14028. +   /* Choose a fairly unique pid for ourselves, but keep it within a range
  14029. +      which guarantees positive pid's for all created processes.
  14030. +      This range is further restricted to 23 bits so that a pid fits within the
  14031. +      range of an emacs number (generally 24 bits, though it is 26 on the Amiga) */
  14032. +   _our_pid = ((int)_us ^ _startup_time) & 0x7fffff;
  14033. +   _next_pid = _our_pid + 1;
  14034. +   _sprintf(_door_name, "door.%lx.%lx", _us, _startup_time);
  14035. +   if ((_startup_port = CreateMsgPort()) &&
  14036. +       (_children_exit = CreatePort(_door_name, 0))) return;
  14037. + 
  14038. +   _fail("No memory");
  14039. + }
  14040. + 
  14041. + void _cleanup_processes(void)
  14042. + {
  14043. +   if (_startup_port) DeleteMsgPort(_startup_port);
  14044. +   if (_children_exit)
  14045. +     {
  14046. +       struct exit_message *msg;
  14047. + 
  14048. +       Forbid();
  14049. +       while (msg = (struct exit_message *)GetMsg(_children_exit))
  14050. +     FreeMem(msg, sizeof(struct exit_message));
  14051. +       DeletePort(_children_exit);
  14052. +       Permit();
  14053. +     }
  14054. + }
  14055. diff -rc --new-file emacs-18.59/amiga/unix/src/processes.h /gnu/src/amiga/emacs-18.59/amiga/unix/src/processes.h
  14056. *** emacs-18.59/amiga/unix/src/processes.h    Thu Jan  1 00:00:00 1970
  14057. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/processes.h    Mon Oct 19 21:28:30 1992
  14058. ***************
  14059. *** 0 ****
  14060. --- 1,46 ----
  14061. + #ifndef _PROCESSES_H
  14062. + #define _PROCESSES_H_
  14063. + 
  14064. + struct process
  14065. + {
  14066. +     struct MinNode node;
  14067. +     struct Task *process;
  14068. +     int pid;
  14069. +     BPTR input;
  14070. +     enum { alive, exited } status;
  14071. +     int rc;
  14072. + };
  14073. + 
  14074. + struct exit_message        /* Sent by children when exiting */
  14075. + {
  14076. +   struct Message m;
  14077. +   int pid;
  14078. +   int rc;
  14079. + };
  14080. + 
  14081. + extern int _next_pid, _our_pid;
  14082. + extern struct MinList _processes;
  14083. + #define DOOR_LEN 32
  14084. + extern char _door_name[DOOR_LEN];
  14085. + extern struct MsgPort *_children_exit;
  14086. + extern struct MsgPort *_startup_port;
  14087. + 
  14088. + #define scan_processes(p) for (p = (struct process *)_processes.mlh_Head; \
  14089. +                    p->node.mln_Succ; \
  14090. +                    p = (struct process *)p->node.mln_Succ)
  14091. + 
  14092. + #define no_processes() (_processes.mlh_Head->mln_Succ == 0)
  14093. + 
  14094. + void _free_entry(struct process *p);
  14095. + struct process *_find_pid(int pid);
  14096. + void _init_processes(void);
  14097. + void _cleanup_processes(void);
  14098. + 
  14099. + int _start_process(char *command,
  14100. +            BPTR input, int close_input,
  14101. +            BPTR output, int close_output,
  14102. +            BPTR error, int close_error,
  14103. +            BPTR dir,
  14104. +            long stacksize);
  14105. + 
  14106. + #endif
  14107. diff -rc --new-file emacs-18.59/amiga/unix/src/protection.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/protection.c
  14108. *** emacs-18.59/amiga/unix/src/protection.c    Thu Jan  1 00:00:00 1970
  14109. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/protection.c    Sat Aug  8 22:13:32 1992
  14110. ***************
  14111. *** 0 ****
  14112. --- 1,73 ----
  14113. + #include "amiga.h"
  14114. + #include <sys/stat.h>
  14115. + 
  14116. + int use_amiga_flags;
  14117. + 
  14118. + int _make_protection(int mode)
  14119. + {
  14120. +   int amode;
  14121. + 
  14122. +   if (use_amiga_flags) return mode;
  14123. + 
  14124. +   /* We always turn archive off */
  14125. +   amode = 0;
  14126. + 
  14127. +   /* Read: if any unix read */
  14128. +   if (mode & (S_IRUSR | S_IRGRP | S_IROTH)) amode |= FIBF_READ;
  14129. + 
  14130. +   /* Write: if user write or group write
  14131. +      Delete: if user write or world write */
  14132. +   if (mode & S_IWUSR) amode |= FIBF_WRITE | FIBF_DELETE;
  14133. +   if (mode & S_IWGRP) amode |= FIBF_WRITE;
  14134. +   if (mode & S_IWOTH) amode |= FIBF_DELETE;
  14135. + 
  14136. +   /* Execute: if group execute or user execute and not world execute
  14137. +      Script: if world execute or user execute ant not group execute */
  14138. +   if (mode & S_IXGRP) amode |= FIBF_EXECUTE;
  14139. +   if (mode & S_IXOTH) amode |= FIBF_SCRIPT;
  14140. +   if ((mode & (S_IXUSR | S_IXGRP | S_IXOTH)) == S_IXUSR)
  14141. +     amode |= FIBF_EXECUTE | FIBF_SCRIPT;
  14142. + 
  14143. +   /* Pure: if sticky */
  14144. +   if (mode & S_ISVTX) amode |= FIBF_PURE;
  14145. + 
  14146. +   /* Make correct bits active 0 */
  14147. +   amode ^= FIBF_READ | FIBF_WRITE | FIBF_EXECUTE | FIBF_DELETE;
  14148. +   return amode;
  14149. + }
  14150. + 
  14151. + int _make_mode(int protection)
  14152. + {
  14153. +     int mode;
  14154. + 
  14155. +     if (use_amiga_flags) return protection & ~S_IFMT;
  14156. + 
  14157. +     mode = 0;
  14158. +     /* make all bits active 1 */
  14159. +     protection ^= FIBF_READ | FIBF_WRITE | FIBF_EXECUTE | FIBF_DELETE;
  14160. + 
  14161. +     /* Read user, group, world if amiga read */
  14162. +     if (protection & FIBF_READ) mode |= S_IRUSR | S_IRGRP | S_IROTH;
  14163. + 
  14164. +     /* Write:
  14165. +          user if amiga write & delete
  14166. +      group if amiga write
  14167. +      other if amiga delete */
  14168. +     if ((protection & (FIBF_WRITE | FIBF_DELETE)) == (FIBF_WRITE | FIBF_DELETE))
  14169. +       mode |= S_IWUSR;
  14170. +     if (protection & FIBF_WRITE) mode |= S_IWGRP;
  14171. +     if (protection & FIBF_DELETE) mode |= S_IWOTH;
  14172. + 
  14173. +     /* Execute:
  14174. +          user if amiga execute or script
  14175. +      group if amiga execute
  14176. +      world if amiga script */
  14177. +     if (protection & (FIBF_EXECUTE | FIBF_SCRIPT)) mode |= S_IXUSR;
  14178. +     if (protection & FIBF_EXECUTE) mode |= S_IXGRP;
  14179. +     if (protection & FIBF_SCRIPT) mode |= S_IXOTH;
  14180. + 
  14181. +     /* Sticky: if pure */
  14182. +     if (protection & FIBF_PURE) mode |= S_ISVTX;
  14183. + 
  14184. +     return mode;
  14185. + }
  14186. diff -rc --new-file emacs-18.59/amiga/unix/src/pseudo_c.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/pseudo_c.c
  14187. *** emacs-18.59/amiga/unix/src/pseudo_c.c    Thu Jan  1 00:00:00 1970
  14188. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/pseudo_c.c    Fri Aug 14 18:13:46 1992
  14189. ***************
  14190. *** 0 ****
  14191. --- 1,18 ----
  14192. + #include "amiga.h"
  14193. + #include "files.h"
  14194. + #include <fcntl.h>
  14195. + 
  14196. + int _pseudo_close(int fd)
  14197. + {
  14198. +   struct fileinfo *fi;
  14199. + 
  14200. +   chkabort();
  14201. +   if (fi = _find_fd(fd))
  14202. +     {
  14203. +       int err = fi->close(fi->userinfo, TRUE);
  14204. + 
  14205. +       _free_fd(fd);
  14206. +       return err;
  14207. +     }
  14208. +   return -1;
  14209. + }
  14210. diff -rc --new-file emacs-18.59/amiga/unix/src/pwd.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/pwd.c
  14211. *** emacs-18.59/amiga/unix/src/pwd.c    Thu Jan  1 00:00:00 1970
  14212. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/pwd.c    Sun Sep 20 09:36:52 1992
  14213. ***************
  14214. *** 0 ****
  14215. --- 1,13 ----
  14216. + #include "amiga.h"
  14217. + #include <pwd.h>
  14218. + 
  14219. + struct passwd _amiga_user = {
  14220. +   NULL, "",
  14221. +   AMIGA_UID, AMIGA_GID,
  14222. +   0, "", NULL,
  14223. +   NULL, NULL
  14224. +   };
  14225. + 
  14226. + struct passwd *getpwuid(uid_t uid) { return &_amiga_user; }
  14227. + struct passwd *getpwnam(char *name) { return &_amiga_user; }
  14228. + char *getlogin(void) { return _amiga_user.pw_name; }
  14229. diff -rc --new-file emacs-18.59/amiga/unix/src/read.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/read.c
  14230. *** emacs-18.59/amiga/unix/src/read.c    Thu Jan  1 00:00:00 1970
  14231. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/read.c    Fri Dec  4 22:17:24 1992
  14232. ***************
  14233. *** 0 ****
  14234. --- 1,24 ----
  14235. + #include "amiga.h"
  14236. + #include "files.h"
  14237. + #include <fcntl.h>
  14238. + 
  14239. + #undef read
  14240. + 
  14241. + int __read(int fd, void *buffer, unsigned int length)
  14242. + {
  14243. +   struct fileinfo *fi;
  14244. + 
  14245. +   chkabort();
  14246. +   if (fi = _find_fd(fd))
  14247. +     {
  14248. +       if (fi->flags & FI_READ) return fi->read(fi->userinfo, buffer, length);
  14249. +       errno = EACCES;
  14250. +     }
  14251. +   return -1;
  14252. + }
  14253. + 
  14254. + int read(int fd, void *buffer, unsigned int length)
  14255. + {
  14256. +   return __read(fd, buffer, length);
  14257. + }
  14258. + 
  14259. diff -rc --new-file emacs-18.59/amiga/unix/src/readlink.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/readlink.c
  14260. *** emacs-18.59/amiga/unix/src/readlink.c    Thu Jan  1 00:00:00 1970
  14261. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/readlink.c    Mon Sep 27 19:20:10 1993
  14262. ***************
  14263. *** 0 ****
  14264. --- 1,38 ----
  14265. + #include "amiga.h"
  14266. + #include <string.h>
  14267. + 
  14268. + int readlink(char *path, char *buf, int bufsiz)
  14269. + {
  14270. +   struct DevProc *dev = NULL;
  14271. + 
  14272. +   chkabort();
  14273. + 
  14274. +   while (1)
  14275. +     {
  14276. +       struct DevProc *newdev = GetDeviceProc(path, dev);
  14277. +       long err;
  14278. +       
  14279. +       FreeDeviceProc(dev);
  14280. +       if (!(dev = newdev)) ERROR;
  14281. + 
  14282. +       buf[0] = '\0';
  14283. +       if (ReadLink(dev->dvp_Port, dev->dvp_Lock, path, buf, bufsiz + 1))
  14284. +     {
  14285. +       FreeDeviceProc(dev);
  14286. +       if (!buf[0])
  14287. +         {
  14288. +           /* Play games with apparent 2.x ram: bug */
  14289. +           errno = ENOENT;
  14290. +           return -1;
  14291. +         }
  14292. +       return strlen(buf);
  14293. +     }
  14294. +       err = IoErr();
  14295. +       if (!(err == ERROR_OBJECT_NOT_FOUND && (dev->dvp_Flags & DVPF_ASSIGN)))
  14296. +     {
  14297. +       FreeDeviceProc(dev);
  14298. +       errno = convert_oserr(err);
  14299. +       return -1;
  14300. +     }
  14301. +     }
  14302. + }
  14303. diff -rc --new-file emacs-18.59/amiga/unix/src/rename.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/rename.c
  14304. *** emacs-18.59/amiga/unix/src/rename.c    Thu Jan  1 00:00:00 1970
  14305. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/rename.c    Wed Dec  2 20:01:48 1992
  14306. ***************
  14307. *** 0 ****
  14308. --- 1,24 ----
  14309. + #include "amiga.h"
  14310. + 
  14311. + int rename(const char *from, const char *to)
  14312. + {
  14313. +   long err;
  14314. + 
  14315. +   chkabort();
  14316. +   if (Rename(from, to)) return 0;
  14317. +   err = IoErr();
  14318. +   if (err == ERROR_OBJECT_EXISTS)
  14319. +     {
  14320. +       if (DeleteFile(to) && Rename(from, to)) return 0;
  14321. +       err = IoErr();
  14322. + 
  14323. +       if (err == ERROR_DELETE_PROTECTED)
  14324. +     {
  14325. +       if (SetProtection(to, 0) && DeleteFile(to) && Rename(from, to))
  14326. +         return 0;
  14327. +       err = IoErr();
  14328. +     }
  14329. +     }
  14330. +   errno = convert_oserr(err);
  14331. +   return -1;
  14332. + }
  14333. diff -rc --new-file emacs-18.59/amiga/unix/src/rindex.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/rindex.c
  14334. *** emacs-18.59/amiga/unix/src/rindex.c    Thu Jan  1 00:00:00 1970
  14335. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/rindex.c    Wed Dec  2 20:22:42 1992
  14336. ***************
  14337. *** 0 ****
  14338. --- 1,8 ----
  14339. + #include <string.h>
  14340. + 
  14341. + #undef rindex
  14342. + 
  14343. + char *rindex(char *str, int c)
  14344. + {
  14345. +   return strrchr(str, c);
  14346. + }
  14347. diff -rc --new-file emacs-18.59/amiga/unix/src/rmdir.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/rmdir.c
  14348. *** emacs-18.59/amiga/unix/src/rmdir.c    Thu Jan  1 00:00:00 1970
  14349. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/rmdir.c    Sat Aug  1 16:08:26 1992
  14350. ***************
  14351. *** 0 ****
  14352. --- 1,31 ----
  14353. + #include "amiga.h"
  14354. + #include <utility/tagitem.h>
  14355. + 
  14356. + int rmdir(char *name)
  14357. + {
  14358. +   struct FileInfoBlock *fib = 0;
  14359. +   BPTR lock = 0;
  14360. + 
  14361. +   if ((fib = AllocDosObjectTags(DOS_FIB, TAG_END)) &&
  14362. +       (lock = Lock(name, ACCESS_READ)) &&
  14363. +       Examine(lock, fib))
  14364. +     {
  14365. +       int isdir = fib->fib_DirEntryType > 0;
  14366. + 
  14367. +       UnLock(lock);
  14368. +       FreeDosObject(DOS_FIB, fib);
  14369. + 
  14370. +       if (isdir)
  14371. +     {
  14372. +       if (DeleteFile(name)) return 0;
  14373. +       ERROR;
  14374. +     }
  14375. +       errno = ENOTDIR;
  14376. +       return -1;
  14377. +     }
  14378. +   errno = convert_oserr(IoErr());
  14379. + 
  14380. +   if (lock) UnLock(lock);
  14381. +   if (fib) FreeDosObject(DOS_FIB, fib);
  14382. +   return -1;
  14383. + }
  14384. diff -rc --new-file emacs-18.59/amiga/unix/src/select.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/select.c
  14385. *** emacs-18.59/amiga/unix/src/select.c    Thu Jan  1 00:00:00 1970
  14386. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/select.c    Sun Jul 19 17:47:02 1992
  14387. ***************
  14388. *** 0 ****
  14389. --- 1,72 ----
  14390. + #include "amiga.h"
  14391. + #include "files.h"
  14392. + #include "signals.h"
  14393. + #include "timers.h"
  14394. + #include <sys/time.h>
  14395. + 
  14396. + int select(int nfds, int *rfds, int *wfds, int *efds, struct timeval *timeout)
  14397. + {
  14398. +   int fdmask, i, fdcount;
  14399. +   int poll = timeout && timeout->tv_sec == 0 && timeout->tv_usec == 0;
  14400. +   ULONG eventmask, sigs;
  14401. +   int orfds = rfds ? *rfds : 0, owfds = wfds ? *wfds : 0, oefds = efds ? *efds : 0;
  14402. +   
  14403. +   for (i = 0, fdmask = 1; i < nfds; i++, fdmask <<= 1)
  14404. +     {
  14405. +       int rd = orfds & fdmask, wr = owfds & fdmask;
  14406. + 
  14407. +   chkabort();
  14408. +       if (rd || wr)
  14409. +     {
  14410. +       struct fileinfo *fi = _find_fd(i);
  14411. + 
  14412. +       if (!fi) return -1;
  14413. +       if (rd && !(fi->flags & FI_READ) || wr && !(fi->flags & FI_WRITE))
  14414. +         {
  14415. +           errno = EACCES;
  14416. +           return -1;
  14417. +         }
  14418. +     }
  14419. +     }
  14420. + 
  14421. +   if (timeout) _timer_start(_odd_timer, timeout->tv_sec, timeout->tv_usec);
  14422. +   else _timer_abort(_odd_timer);
  14423. +   fdcount = 0;
  14424. +   do
  14425. +     {
  14426. +       eventmask = 0;
  14427. +       for (i = 0, fdmask = 1; i < nfds; i++, fdmask <<= 1)
  14428. +     {
  14429. +       int rd = orfds & fdmask, wr = owfds & fdmask;
  14430. + 
  14431. +       if (rd || wr)
  14432. +         {
  14433. +           struct fileinfo *fi = _find_fd(i);
  14434. + 
  14435. +           eventmask |= fi->select_start(fi->userinfo, rd, wr);
  14436. +         }
  14437. +     }
  14438. + 
  14439. +       if (eventmask == -1 || poll) /* Don't wait */ sigs = _check_signals(0);
  14440. +       else /* Wait*/ sigs = _wait_signals(_odd_sig | eventmask);
  14441. + 
  14442. +       for (i = 0, fdmask = 1; i < nfds; i++, fdmask <<= 1)
  14443. +     {
  14444. +       int rd = orfds & fdmask, wr = owfds & fdmask;
  14445. + 
  14446. +       if (rd || wr)
  14447. +         {
  14448. +           struct fileinfo *fi = _find_fd(i);
  14449. + 
  14450. +           fi->select_poll(fi->userinfo, &rd, &wr);
  14451. +           if (!rd && rfds) *rfds &= ~fdmask;
  14452. +           if (!wr && wfds) *wfds &= ~fdmask;
  14453. +           if (rd || wr) fdcount++;
  14454. +         }
  14455. +     }
  14456. +       _handle_signals(sigs);
  14457. +     }
  14458. +   while (fdcount == 0 && !_timer_expired(_odd_timer) && !poll);
  14459. + 
  14460. +   return fdcount;
  14461. + }
  14462. diff -rc --new-file emacs-18.59/amiga/unix/src/setjmp.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/setjmp.c
  14463. *** emacs-18.59/amiga/unix/src/setjmp.c    Thu Jan  1 00:00:00 1970
  14464. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/setjmp.c    Sun Aug 16 11:57:30 1992
  14465. ***************
  14466. *** 0 ****
  14467. --- 1,15 ----
  14468. + #include "amiga.h"
  14469. + #include "signals.h"
  14470. + #include <setjmp.h>
  14471. + 
  14472. + int setjmp(jmp_buf jb)
  14473. + {
  14474. +   jb[0] = _sig_mask;
  14475. +   return _setjmp(jb + 1);
  14476. + }
  14477. + 
  14478. + void longjmp(jmp_buf jb, int val)
  14479. + {
  14480. +   sigsetmask(jb[0]);
  14481. +   _longjmp(jb + 1, val);
  14482. + }
  14483. diff -rc --new-file emacs-18.59/amiga/unix/src/siglist.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/siglist.c
  14484. *** emacs-18.59/amiga/unix/src/siglist.c    Thu Jan  1 00:00:00 1970
  14485. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/siglist.c    Sat Aug 15 11:21:06 1992
  14486. ***************
  14487. *** 0 ****
  14488. --- 1,35 ----
  14489. + char *sys_siglist[] =
  14490. + {
  14491. +     "no signal",
  14492. +     "hangup",
  14493. +     "interrupt",
  14494. +     "quit",
  14495. +     "illegal instruction",
  14496. +     "trace trap",
  14497. +     "abort",
  14498. +     "emt instruction",
  14499. +     "floating point exception",
  14500. +     "kill",
  14501. +     "bus error",
  14502. +     "segmentation violation",
  14503. +     "bad argument to system call",
  14504. +     "write on a pipe with no one to read it",
  14505. +     "alarm clock",
  14506. +     "software termination signal from kill",
  14507. +     "status signal",
  14508. +     "sendable stop signal not from tty",
  14509. +     "stop signal from tty",
  14510. +     "continue a stopped process",
  14511. +     "child status has changed",
  14512. +     "background read attempted from control tty",
  14513. +     "background write attempted from control tty",
  14514. +     "input record available at control tty",
  14515. +     "exceeded CPU time limit",
  14516. +     "exceeded file size limit",
  14517. +     "unknown signal",
  14518. +     "unknown signal",
  14519. +     "window changed",
  14520. +     "unknown signal",
  14521. +     "user signal 1",
  14522. +     "user signal 2",
  14523. + };
  14524. diff -rc --new-file emacs-18.59/amiga/unix/src/signal.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/signal.c
  14525. *** emacs-18.59/amiga/unix/src/signal.c    Thu Jan  1 00:00:00 1970
  14526. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/signal.c    Sun Nov  8 19:33:22 1992
  14527. ***************
  14528. *** 0 ****
  14529. --- 1,26 ----
  14530. + #include "amiga.h"
  14531. + #include "signals.h"
  14532. + 
  14533. + int sigvec(int sig, struct sigvec *vec, struct sigvec *ovec)
  14534. + {
  14535. +   chkabort();
  14536. +   if (sig >= 1 && sig < NSIG)
  14537. +     {
  14538. +       if (ovec) *ovec = _sig_handlers[sig];
  14539. +       if (vec) _sig_handlers[sig] = *vec;
  14540. +       return 0;
  14541. +     }
  14542. +   errno = EINVAL;
  14543. +   return -1;
  14544. + }
  14545. + 
  14546. + void (*signal(int sig,void (*fn)(int)))(int)
  14547. + {
  14548. +   struct sigvec vec, ovec;
  14549. + 
  14550. +   vec.sv_handler = fn;
  14551. +   vec.sv_mask = 0;
  14552. +   /*vec.sv_flags = 0;*/
  14553. +   if (sigvec(sig, &vec, &ovec)) return -1;
  14554. +   return ovec.sv_handler;
  14555. + }
  14556. diff -rc --new-file emacs-18.59/amiga/unix/src/signals.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/signals.c
  14557. *** emacs-18.59/amiga/unix/src/signals.c    Thu Jan  1 00:00:00 1970
  14558. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/signals.c    Sun Oct 18 20:16:02 1992
  14559. ***************
  14560. *** 0 ****
  14561. --- 1,211 ----
  14562. + #include "amiga.h"
  14563. + #include "timers.h"
  14564. + #include "signals.h"
  14565. + #include "processes.h"
  14566. + 
  14567. + static ULONG signalsigs;    /* When one of these occur, call handle_signals */
  14568. + struct sigvec _sig_handlers[NSIG];
  14569. + long _sig_mask, _sig_pending;
  14570. + 
  14571. + /* Alarm signal */
  14572. + /* ------------ */
  14573. + 
  14574. + static struct timeinfo *alarm_timer;
  14575. + 
  14576. + static int check_alarm(ULONG sigs)
  14577. + {
  14578. +   return alarm_timer && _timer_expired(alarm_timer);
  14579. + }
  14580. + 
  14581. + void alarm(int secs)
  14582. + /* Effect: Schedule a SIGALRM after secs seconds
  14583. + */
  14584. + {
  14585. +   _timer_start(alarm_timer, secs, 0);
  14586. + }
  14587. + 
  14588. + static void init_alarm(void)
  14589. + {
  14590. +   if (!(alarm_timer = _alloc_timer())) _fail("Failed to create timer");
  14591. +   signalsigs |= _timer_sig(alarm_timer);
  14592. + }
  14593. + 
  14594. + static void cleanup_alarm(void)
  14595. + {
  14596. +   _free_timer(alarm_timer);
  14597. + }
  14598. + 
  14599. + /* SIGINT definition */
  14600. + /* ----------------- */
  14601. + 
  14602. + static void init_sigint(void)
  14603. + {
  14604. +   signalsigs |= SIGBREAKF_CTRL_C;
  14605. + }
  14606. + 
  14607. + /*static void cleanup_sigint(void) { }*/
  14608. + 
  14609. + static int check_sigint(ULONG sigs)
  14610. + {
  14611. +   return (sigs & SIGBREAKF_CTRL_C) != 0;
  14612. + }
  14613. + 
  14614. + /* SIGQUIT definition */
  14615. + /* ------------------ */
  14616. + 
  14617. + static void init_sigquit(void)
  14618. + {
  14619. +   signalsigs |= SIGBREAKF_CTRL_D;
  14620. + }
  14621. + 
  14622. + /*static void cleanup_sigquit(void) { }*/
  14623. + 
  14624. + static int check_sigquit(ULONG sigs)
  14625. + {
  14626. +   return (sigs & SIGBREAKF_CTRL_D) != 0;
  14627. + }
  14628. + 
  14629. + /* SIGCHLD definition */
  14630. + /* ------------------ */
  14631. + 
  14632. + static void init_children(void)
  14633. + {
  14634. +   _init_processes();
  14635. +   signalsigs |= 1L << _children_exit->mp_SigBit;
  14636. + }
  14637. + 
  14638. + static void cleanup_children(void)
  14639. + {
  14640. +   _cleanup_processes();
  14641. + }
  14642. + 
  14643. + static int check_children(ULONG sigs)
  14644. + {
  14645. +   struct exit_message *msg;
  14646. +   int change = FALSE;
  14647. +   
  14648. +   while (msg = (struct exit_message *)GetMsg(_children_exit))
  14649. +     {
  14650. +       struct process *p;
  14651. + 
  14652. +       if ((p = _find_pid(msg->pid)) && p->status == alive)
  14653. +     {
  14654. +       change = TRUE;
  14655. +       p->status = exited;
  14656. +       p->rc = msg->rc;
  14657. +     }
  14658. +       FreeMem(msg, sizeof(struct exit_message));
  14659. +     }
  14660. +   return change;
  14661. + }
  14662. + 
  14663. + /* Signal dispatching */
  14664. + /* ------------------ */
  14665. + 
  14666. + void _sig_dispatch(int sig)
  14667. + /* Effect: Do the action associated with signal sig it it isn't masked
  14668. +      Mask it for the duration of the signal exec
  14669. + */
  14670. + {
  14671. +   void (*fn)(int);
  14672. +   long smask = 1 << sig;
  14673. + 
  14674. +   if (sig == SIGKILL) _exit(0);
  14675. + 
  14676. +   if (_sig_mask & smask) _sig_pending |= smask;
  14677. +   else
  14678. +     do
  14679. +       {
  14680. +     _sig_pending &= ~smask;
  14681. +     if (sig >= 0 && sig < NSIG)
  14682. +       {
  14683. +         fn = _sig_handlers[sig].sv_handler;
  14684. + 
  14685. +         if (fn == SIG_DFL)
  14686. +           switch (sig)
  14687. +         {
  14688. +         case SIGCHLD: case SIGURG: case SIGWINCH: break;
  14689. +         case SIGINT: case SIGQUIT: _message("user interrupt");
  14690. +         default: _exit(0);
  14691. +         }
  14692. +         else if (fn != SIG_IGN)
  14693. +           {
  14694. +         int mask = smask | _sig_handlers[sig].sv_mask;
  14695. + 
  14696. +         _sig_mask |= mask;
  14697. +         fn(sig);
  14698. +         _sig_mask &= ~mask;
  14699. +           }
  14700. +       }
  14701. +       }
  14702. +     while (_sig_pending & smask); /* Signal may have been generated during the
  14703. +                      signal handling function. */
  14704. + }
  14705. + 
  14706. + ULONG _check_signals(ULONG extra_sigs)
  14707. + {
  14708. +   return SetSignal(0, signalsigs | extra_sigs);
  14709. + }
  14710. + 
  14711. + ULONG _wait_signals(ULONG extra_sigs)
  14712. + {
  14713. +   return Wait(signalsigs | extra_sigs);
  14714. + }
  14715. + 
  14716. + int _handle_signals(ULONG sigs)
  14717. + {
  14718. +   int signaled = 0;
  14719. + 
  14720. +   if (check_alarm(sigs)) { signaled = 1; _sig_dispatch(SIGALRM); }
  14721. +   if (check_sigint(sigs)) { signaled = 1; _sig_dispatch(SIGINT); }
  14722. +   if (check_sigquit(sigs)) { signaled = 1; _sig_dispatch(SIGQUIT); }
  14723. +   if (check_children(sigs)) { signaled = 1; _sig_dispatch(SIGCHLD); }
  14724. + 
  14725. +   return signaled;
  14726. + }
  14727. + 
  14728. + /* Patch into SAS signal stuff so as to replace it */
  14729. + 
  14730. + void CXFERR(int code)
  14731. + {
  14732. +     extern int _FPERR;
  14733. + 
  14734. +     _FPERR = code;
  14735. +     _sig_dispatch(SIGFPE);
  14736. + }
  14737. + 
  14738. + void chkabort(void)
  14739. + /* Checks all signals */
  14740. + {
  14741. +   _handle_signals(_check_signals(0));
  14742. + }
  14743. + 
  14744. + void Chk_Abort(void) { chkabort(); }
  14745. + 
  14746. + /* Initialisation */
  14747. + /* -------------- */
  14748. + 
  14749. + void _init_signals(void)
  14750. + {
  14751. +   int i;
  14752. + 
  14753. +   for (i = 0; i < NSIG; i++)
  14754. +     {
  14755. +       _sig_handlers[i].sv_handler = SIG_DFL;
  14756. +       _sig_handlers[i].sv_mask = 0;
  14757. +       /*_sig_handlers[i].sv_flags = 0;*/
  14758. +     }
  14759. +       
  14760. +   _sig_mask = _sig_pending = 0;
  14761. +   signalsigs = 0;
  14762. + 
  14763. +   init_sigint(); init_sigquit(); init_alarm(); init_children();
  14764. + }
  14765. + 
  14766. + void _cleanup_signals(void)
  14767. + {
  14768. +   cleanup_alarm();
  14769. +   /*cleanup_sigquit();*/
  14770. +   /*cleanup_sigint();*/
  14771. +   cleanup_children();
  14772. + }
  14773. diff -rc --new-file emacs-18.59/amiga/unix/src/signals.h /gnu/src/amiga/emacs-18.59/amiga/unix/src/signals.h
  14774. *** emacs-18.59/amiga/unix/src/signals.h    Thu Jan  1 00:00:00 1970
  14775. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/signals.h    Sun Oct 18 19:59:26 1992
  14776. ***************
  14777. *** 0 ****
  14778. --- 1,21 ----
  14779. + #ifndef SIGNALS_H
  14780. + #define SIGNALS_H
  14781. + 
  14782. + #include <signal.h>
  14783. + 
  14784. + extern struct sigvec _sig_handlers[NSIG];
  14785. + extern long _sig_mask, _sig_pending;
  14786. + 
  14787. + void _sig_dispatch(int sig);
  14788. + /* Effect: Do the action associated with signal sig it it isn't masked
  14789. +      Mask it for the duration of the signal exec
  14790. + */
  14791. + 
  14792. + ULONG _check_signals(ULONG extra_sigs);
  14793. + ULONG _wait_signals(ULONG extra_sigs);
  14794. + int _handle_signals(ULONG sigs);
  14795. + 
  14796. + void _init_signals(void);
  14797. + void _cleanup_signals(void);
  14798. + 
  14799. + #endif
  14800. diff -rc --new-file emacs-18.59/amiga/unix/src/sigpause.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/sigpause.c
  14801. *** emacs-18.59/amiga/unix/src/sigpause.c    Thu Jan  1 00:00:00 1970
  14802. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/sigpause.c    Sat Aug  1 16:42:14 1992
  14803. ***************
  14804. *** 0 ****
  14805. --- 1,16 ----
  14806. + #include "amiga.h"
  14807. + #include "signals.h"
  14808. + 
  14809. + int sigpause(long mask)
  14810. + {
  14811. +   long oldmask = sigsetmask(mask);
  14812. +   ULONG sigs;
  14813. + 
  14814. +   sigs = _check_signals(0);
  14815. +   while (!_handle_signals(sigs)) sigs = _wait_signals(0);
  14816. +   
  14817. +   sigsetmask(oldmask);
  14818. + 
  14819. +   errno = EINTR;
  14820. +   return -1;
  14821. + }
  14822. diff -rc --new-file emacs-18.59/amiga/unix/src/sigsetmask.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/sigsetmask.c
  14823. *** emacs-18.59/amiga/unix/src/sigsetmask.c    Thu Jan  1 00:00:00 1970
  14824. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/sigsetmask.c    Sun Oct 18 20:17:02 1992
  14825. ***************
  14826. *** 0 ****
  14827. --- 1,22 ----
  14828. + #include "amiga.h"
  14829. + #include "signals.h"
  14830. + 
  14831. + long sigsetmask(long mask)
  14832. + {
  14833. +   int oldmask = _sig_mask, i, imask;
  14834. + 
  14835. +   chkabort();
  14836. +   _sig_mask = mask;
  14837. + 
  14838. +   /* Check all pending signals */
  14839. +   for (i = 0, imask = 1; i < NSIG; i++, imask <<= 1)
  14840. +     if ((_sig_pending & imask) && !(_sig_mask & imask))
  14841. +       _sig_dispatch(i);
  14842. + 
  14843. +   return oldmask;
  14844. + }
  14845. + 
  14846. + long sigblock(long mask)
  14847. + {
  14848. +   return sigsetmask(_sig_mask | mask);
  14849. + }
  14850. diff -rc --new-file emacs-18.59/amiga/unix/src/sleep.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/sleep.c
  14851. *** emacs-18.59/amiga/unix/src/sleep.c    Thu Jan  1 00:00:00 1970
  14852. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/sleep.c    Sun Jul 19 17:47:02 1992
  14853. ***************
  14854. *** 0 ****
  14855. --- 1,13 ----
  14856. + #include "amiga.h"
  14857. + #include "timers.h"
  14858. + #include "signals.h"
  14859. + 
  14860. + int sleep(unsigned seconds)
  14861. + {
  14862. +   chkabort();
  14863. +   _timer_start(_odd_timer, seconds, 0);
  14864. + 
  14865. +   while (!_timer_expired(_odd_timer)) _handle_signals(_wait_signals(_odd_sig));
  14866. + 
  14867. +   return 0;
  14868. + }
  14869. diff -rc --new-file emacs-18.59/amiga/unix/src/smakefile /gnu/src/amiga/emacs-18.59/amiga/unix/src/smakefile
  14870. *** emacs-18.59/amiga/unix/src/smakefile    Thu Jan  1 00:00:00 1970
  14871. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/smakefile    Sun Dec  6 14:33:20 1992
  14872. ***************
  14873. *** 0 ****
  14874. --- 1,128 ----
  14875. + OBJS=  mkdir.o devices.o processes.o kill.o abort.o error.o error_msg.o \
  14876. +        fcntl.o select.o read.o lseek.o chmod.o getwd.o mktemp.o link.o \
  14877. +        getenv.o time.o write.o creat.o sleep.o uid.o exec.o truncate.o \
  14878. +        strftime.o rmdir.o sigpause.o isatty.o mkfifo.o fchmod.o ftruncate.o \
  14879. +        bzero.o fibstat.o bcmp.o chown.o rename.o amigados.o ctime.o open.o \
  14880. +        ioctl.o _exit.o gid.o protection.o umask.o _main.o signals.o grp.o \
  14881. +        pipe.o unlink.o alloca.o readlink.o pwd.o timeconvert.o amigatime.o \
  14882. +        bcopy.o utime.o files.o close.o fifofd.o timers.o index.o rindex.o \
  14883. +        pseudo_c.o wait4.o siglist.o perror.o gethostname.o setjmp.o allocdos.o \
  14884. +        message.o symlink.o fstat.o access.o dir_data.o dir.o stat.o \
  14885. +        sigsetmask.o signal.o getpid.o start.o popen.o tmpnam.o
  14886. + 
  14887. + DEFS = define=SOFTLINK
  14888. + OPTIMIZE = opt
  14889. + CFLAGS = $(OPTS) $(DEFS) gst=amiga.sym $(OPTIMIZE)
  14890. + 
  14891. + all: amiga.sym unix.lib unix-hard.lib
  14892. + 
  14893. + ALLOBJS = $(OBJS) sprintf.o _setjmp.o
  14894. + 
  14895. + unix.lib: $(ALLOBJS)
  14896. +     -delete unix.lib ram:unix.lib
  14897. +     oml ram:unix.lib <@<
  14898. + r $(ALLOBJS)
  14899. + <
  14900. +     copy ram:unix.lib ""
  14901. + 
  14902. + unix-hard.lib: unix.lib fibstat-hard.o
  14903. +     copy unix.lib ram:
  14904. +     oml ram:unix.lib d fibstat.c
  14905. +     oml ram:unix.lib r fibstat-hard.o
  14906. +     copy ram:unix.lib unix-hard.lib
  14907. + 
  14908. + sprintf.o: sprintf.asm
  14909. +     asm -osprintf.o -iINCLUDE: sprintf.asm
  14910. + 
  14911. + _setjmp.o: _setjmp.asm
  14912. +     asm -o_setjmp.o -iINCLUDE: _setjmp.asm
  14913. + 
  14914. + amiga.sym: amiga.h
  14915. +     copy amiga.h am.c
  14916. +     sc makegst=amiga.sym $(OPTS) am.c
  14917. +     delete am.c
  14918. + 
  14919. + fibstat-hard.o: fibstat.c
  14920. +     $(CC) $(CFLAGS) DEF PRETEND_LINKED objname $@ fibstat.c
  14921. + 
  14922. + mkdir.o: mkdir.c amiga.h
  14923. + devices.o: devices.c amiga.h
  14924. + processes.o: processes.c processes.h amiga.h
  14925. + kill.o: kill.c processes.h signals.h amiga.h
  14926. + abort.o: abort.c amiga.h
  14927. + error.o: error.c amiga.h
  14928. + error_msg.o: error_msg.c amiga.h
  14929. + fcntl.o: fcntl.c amiga.h
  14930. + select.o: select.c signals.h amiga.h
  14931. + read.o: read.c amiga.h
  14932. + lseek.o: lseek.c amiga.h
  14933. + chmod.o: chmod.c amiga.h
  14934. + getwd.o: getwd.c amiga.h
  14935. + mktemp.o: mktemp.c amiga.h
  14936. + link.o: link.c amiga.h
  14937. + getenv.o: getenv.c amiga.h
  14938. + time.o: time.c timeconvert.h amiga.h
  14939. + write.o: write.c amiga.h
  14940. + creat.o: creat.c amiga.h
  14941. + sleep.o: sleep.c signals.h amiga.h
  14942. + uid.o: uid.c amiga.h
  14943. + exec.o: exec.c processes.h amiga.h
  14944. + truncate.o: truncate.c amigados.h amiga.h
  14945. + strftime.o: strftime.c
  14946. + rmdir.o: rmdir.c amiga.h
  14947. + sigpause.o: sigpause.c signals.h amiga.h
  14948. + isatty.o: isatty.c amiga.h
  14949. + mkfifo.o: mkfifo.c amiga.h
  14950. + fchmod.o: fchmod.c amiga.h
  14951. + ftruncate.o: ftruncate.c amiga.h
  14952. + bzero.o: bzero.c amiga.h
  14953. + fibstat.o: fibstat.c timeconvert.h fibstat.h amiga.h
  14954. + bcmp.o: bcmp.c amiga.h
  14955. + chown.o: chown.c amiga.h
  14956. + rename.o: rename.c amiga.h
  14957. + amigados.o: amigados.c signals.h amiga.h
  14958. + ctime.o: ctime.c
  14959. + open.o: open.c amigados.h amiga.h
  14960. + ioctl.o: ioctl.c amiga.h
  14961. + _exit.o: _exit.c fifo_pragmas.h fifo.h fifofd.h signals.h amiga.h
  14962. + gid.o: gid.c amiga.h
  14963. + protection.o: protection.c amiga.h
  14964. + umask.o: umask.c amiga.h
  14965. + _main.o: _main.c fifo_pragmas.h fifo.h amigados.h fifofd.h signals.h amiga.h
  14966. + signals.o: signals.c processes.h signals.h amiga.h
  14967. + grp.o: grp.c amiga.h
  14968. + pipe.o: pipe.c fifo_pragmas.h fifo.h fifofd.h signals.h amiga.h
  14969. + unlink.o: unlink.c amiga.h
  14970. + alloca.o: alloca.c
  14971. + readlink.o: readlink.c amiga.h
  14972. + pwd.o: pwd.c amiga.h
  14973. + timeconvert.o: timeconvert.c timeconvert.h amiga.h
  14974. + amigatime.o: amigatime.c timeconvert.h amiga.h
  14975. + bcopy.o: bcopy.c amiga.h
  14976. + utime.o: utime.c timeconvert.h amiga.h
  14977. + files.o: files.c amiga.h
  14978. + close.o: close.c amiga.h
  14979. + fifofd.o: fifofd.c fifo_pragmas.h fifo.h fifofd.h amiga.h
  14980. + timers.o: timers.c amiga.h
  14981. + index.o: index.c
  14982. + rindex.o: rindex.c
  14983. + pseudo_c.o: pseudo_c.c amiga.h
  14984. + wait4.o: wait4.c processes.h signals.h amiga.h
  14985. + siglist.o: siglist.c
  14986. + perror.o: perror.c amiga.h
  14987. + gethostname.o: gethostname.c amiga.h
  14988. + setjmp.o: setjmp.c signals.h amiga.h
  14989. + allocdos.o: allocdos.c
  14990. + message.o: message.c amiga.h
  14991. + symlink.o: symlink.c amiga.h
  14992. + fstat.o: fstat.c fibstat.h amiga.h
  14993. + access.o: access.c fibstat.h amiga.h
  14994. + dir_data.o: dir_data.c dir_data.h amiga.h
  14995. + dir.o: dir.c dir_data.h amiga.h
  14996. + stat.o: stat.c dir_data.h fibstat.h amiga.h
  14997. + sigsetmask.o: sigsetmask.c signals.h amiga.h
  14998. + signal.o: signal.c signals.h amiga.h
  14999. + getpid.o: getpid.c processes.h amiga.h
  15000. + start.o: start.c processes.h amiga.h
  15001. + popen.o: popen.c fifo_pragmas.h fifo.h processes.h fifofd.h amiga.h
  15002. + tmpnam.o: tmpnam.c amiga.h
  15003. diff -rc --new-file emacs-18.59/amiga/unix/src/smakefile.base /gnu/src/amiga/emacs-18.59/amiga/unix/src/smakefile.base
  15004. *** emacs-18.59/amiga/unix/src/smakefile.base    Thu Jan  1 00:00:00 1970
  15005. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/smakefile.base    Wed Dec  2 19:44:50 1992
  15006. ***************
  15007. *** 0 ****
  15008. --- 1,26 ----
  15009. + DEFS = define=SOFTLINK
  15010. + OPTIMIZE = debug=sf
  15011. + CFLAGS = $(OPTS) $(DEFS) gst=amiga.sym $(OPTIMIZE)
  15012. + 
  15013. + all: amiga.sym unix.lib
  15014. + 
  15015. + ALLOBJS = $(OBJS) sprintf.o _setjmp.o
  15016. + 
  15017. + unix.lib: $(ALLOBJS)
  15018. +     -delete unix.lib ram:unix.lib
  15019. +     oml ram:unix.lib <@<
  15020. + r $(ALLOBJS)
  15021. + <
  15022. +     copy ram:unix.lib ""
  15023. + 
  15024. + sprintf.o: sprintf.asm
  15025. +     asm -osprintf.o -iINCLUDE: sprintf.asm
  15026. + 
  15027. + _setjmp.o: _setjmp.asm
  15028. +     asm -o_setjmp.o -iINCLUDE: _setjmp.asm
  15029. + 
  15030. + amiga.sym: amiga.h
  15031. +     copy amiga.h am.c
  15032. +     sc makegst=amiga.sym $(OPTS) am.c
  15033. +     delete am.c
  15034. + 
  15035. diff -rc --new-file emacs-18.59/amiga/unix/src/sprintf.asm /gnu/src/amiga/emacs-18.59/amiga/unix/src/sprintf.asm
  15036. *** emacs-18.59/amiga/unix/src/sprintf.asm    Thu Jan  1 00:00:00 1970
  15037. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/sprintf.asm    Sat Aug 15 12:20:02 1992
  15038. ***************
  15039. *** 0 ****
  15040. --- 1,29 ----
  15041. +     XDEF __sprintf
  15042. +     XREF _AbsExecBase
  15043. +     XREF _LVORawDoFmt
  15044. + 
  15045. +     csect    text,0,,2,2
  15046. + 
  15047. + __sprintf
  15048. + save    equ    16
  15049. +     movem.l    a2/a3/a6/d2,-(a7)    ; save bytes copied to stack
  15050. + 
  15051. +     move.l    save+8(a7),a0
  15052. +     lea    save+12(a7),a1
  15053. +     lea    copychar(pc),a2
  15054. +     move.l    save+4(a7),a3
  15055. +     move.l    a3,d2
  15056. + 
  15057. +     move.l    _AbsExecBase,a6
  15058. +     jsr    _LVORawDoFmt(a6)
  15059. +     move.l    a3,d0            ; # of characters printed
  15060. +     sub.l    d2,d0
  15061. + 
  15062. +     movem.l    (a7)+,a2/a3/a6/d2
  15063. +     rts
  15064. +     
  15065. + copychar
  15066. +     move.b    d0,(a3)+
  15067. +     rts
  15068. + 
  15069. +     end
  15070. diff -rc --new-file emacs-18.59/amiga/unix/src/start.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/start.c
  15071. *** emacs-18.59/amiga/unix/src/start.c    Thu Jan  1 00:00:00 1970
  15072. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/start.c    Sun Oct 25 12:06:00 1992
  15073. ***************
  15074. *** 0 ****
  15075. --- 1,118 ----
  15076. + #include "amiga.h"
  15077. + #include "processes.h"
  15078. + #include <amiga/ioctl.h>
  15079. + #include <exec/memory.h>
  15080. + #include <dos/dosextens.h>
  15081. + #include <dos/dostags.h>
  15082. + #include <string.h>
  15083. + 
  15084. + /* Variables used by a child that is starting up */
  15085. + struct MemList *_child_entry;    /* Memory used for child's code */
  15086. + static struct Message startup_message;
  15087. + struct exit_message *_child_exit;
  15088. + char *_child_command;
  15089. + int _child_command_len;
  15090. + char *_child_door_name;
  15091. + 
  15092. + static void __saveds __interrupt _child_startup(void)
  15093. + {
  15094. +   struct exit_message *exit = _child_exit;
  15095. +   char *command = _child_command;
  15096. +   int command_len = _child_command_len;
  15097. +   char *door_name = _child_door_name;
  15098. +   struct Process *us = (struct Process *)FindTask(0);
  15099. +   struct DOSBase *local_DOSBase = DOSBase;
  15100. + #pragma libcall local_DOSBase local_SystemTagList 25E 2102
  15101. +   struct TagItem stags[2];
  15102. +   struct MsgPort *parent;
  15103. + 
  15104. +   AddTail(&us->pr_Task.tc_MemEntry, _child_entry);
  15105. + 
  15106. +   PutMsg(_startup_port, &startup_message);
  15107. + 
  15108. +   /* From now on parent may disappear */
  15109. +   stags[0].ti_Tag = SYS_UserShell; stags[0].ti_Data = TRUE;
  15110. +   stags[1].ti_Tag = TAG_END;
  15111. +   exit->rc = local_SystemTagList(command, stags) << 8;
  15112. + 
  15113. +   /* Send result to parent if he is around */
  15114. +   Forbid();
  15115. +   if (parent = FindPort(door_name)) PutMsg(parent, exit);
  15116. +   else FreeMem(exit, sizeof(struct exit_message));
  15117. +   Permit();
  15118. + 
  15119. +   FreeMem(door_name, DOOR_LEN);
  15120. +   FreeMem(command, command_len);
  15121. + }
  15122. + 
  15123. + int _start_process(char *command,
  15124. +            BPTR input, int close_input,
  15125. +            BPTR output, int close_output,
  15126. +            BPTR error, int close_error,
  15127. +            BPTR dir,
  15128. +            long stacksize)
  15129. + {
  15130. +   struct process *entry = (struct process *)malloc(sizeof(struct process));
  15131. +   static struct MemList alloc_child = { { 0 }, 1 };
  15132. + 
  15133. +   _child_command_len = strlen(command) + 1;
  15134. +   _child_command = AllocMem(_child_command_len, MEMF_PUBLIC);
  15135. +   strcpy(_child_command, command);
  15136. + 
  15137. +   _child_exit = AllocMem(sizeof(struct exit_message), MEMF_PUBLIC);
  15138. +   _child_door_name = AllocMem(DOOR_LEN, MEMF_PUBLIC);
  15139. + 
  15140. +   alloc_child.ml_ME[0].me_Reqs = MEMF_PUBLIC;
  15141. +   alloc_child.ml_ME[0].me_Length = (char *)&_start_process - (char *)&_child_startup;
  15142. +   _child_entry = AllocEntry(&alloc_child);
  15143. + 
  15144. +   if (entry && _child_command && _child_exit && _child_door_name &&
  15145. +       (long)_child_entry > 0)
  15146. +     {
  15147. +       memcpy(_child_entry->ml_ME[0].me_Addr, &_child_startup,
  15148. +          _child_entry->ml_ME[0].me_Length);
  15149. +       strcpy(_child_door_name, _door_name);
  15150. + 
  15151. +       entry->pid = _next_pid++;
  15152. +       entry->input = input;
  15153. + 
  15154. +       /* This message is sent by the child when it has started */
  15155. +       startup_message.mn_Length = sizeof(startup_message);
  15156. +       startup_message.mn_Node.ln_Type = NT_MESSAGE;
  15157. + 
  15158. +       /* This message is sent by the child when it exits */
  15159. +       _child_exit->m.mn_Length = sizeof(*_child_exit);
  15160. +       _child_exit->m.mn_Node.ln_Type = NT_MESSAGE;
  15161. +       _child_exit->pid = entry->pid;
  15162. + 
  15163. +       entry->process = CreateNewProcTags(NP_Entry, _child_entry->ml_ME[0].me_Addr,
  15164. +                      NP_Input, input,
  15165. +                      NP_CloseInput, (long)close_input,
  15166. +                      NP_Output, output,
  15167. +                      NP_CloseOutput, (long)close_output,
  15168. +                      NP_Error, error,
  15169. +                      NP_CloseError, (long)close_error,
  15170. +                      dir ? NP_CurrentDir : TAG_IGNORE, dir,
  15171. +                      NP_StackSize,
  15172. +                      stacksize > 0 ? stacksize : _stack_size,
  15173. +                      NP_Cli, TRUE,
  15174. +                      TAG_END);
  15175. +       if (entry->process)
  15176. +     {
  15177. +       do WaitPort(_startup_port); while (!GetMsg(_startup_port));
  15178. +       entry->status = alive;
  15179. +       AddHead((struct List *)&_processes, (struct Node *)entry);
  15180. +       return entry->pid;
  15181. +     }
  15182. +       errno = convert_oserr(IoErr());
  15183. +     }
  15184. +   else errno = ENOMEM;
  15185. + 
  15186. +   if (entry) free(entry);
  15187. +   if (_child_command) FreeMem(_child_command, _child_command_len);
  15188. +   if (_child_exit) FreeMem(_child_exit, sizeof(struct exit_message));
  15189. +   if (_child_door_name) FreeMem(_child_door_name, DOOR_LEN);
  15190. +   if ((long)_child_entry > 0) FreeEntry(_child_entry);
  15191. + 
  15192. +   return -1;
  15193. + }
  15194. diff -rc --new-file emacs-18.59/amiga/unix/src/stat.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/stat.c
  15195. *** emacs-18.59/amiga/unix/src/stat.c    Thu Jan  1 00:00:00 1970
  15196. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/stat.c    Sun Oct 25 17:28:04 1992
  15197. ***************
  15198. *** 0 ****
  15199. --- 1,96 ----
  15200. + #include "amiga.h"
  15201. + #include "fibstat.h"
  15202. + #include "dir_data.h"
  15203. + #include <sys/stat.h>
  15204. + #include <string.h>
  15205. + 
  15206. + static int attach (char *dest, int dlen, char *dirname, char *name)
  15207. + {
  15208. +   char *dirnamep = dirname;
  15209. +   
  15210. +   while (*dirnamep && --dlen > 0)
  15211. +     *dest++ = *dirnamep++;
  15212. +   /* Add '/' if `dirname' doesn't already end with it. */
  15213. +   if (dirnamep > dirname && dirnamep[-1] != '/' && dirnamep[-1] != ':' && --dlen > 0)
  15214. +     *dest++ = '/';
  15215. +   
  15216. +   while (*name && --dlen > 0)
  15217. +     *dest++ = *name++;
  15218. +   *dest = 0;
  15219. +   
  15220. +   return dlen > 0;
  15221. + }
  15222. + 
  15223. + static struct FileInfoBlock fakefib;
  15224. + 
  15225. + static int fakestat(int soft, char *name, struct stat *sbuf)
  15226. + {
  15227. +   /* See if we want information on the last file returned from readdir */
  15228. +   if (last_dir)
  15229. +     {
  15230. +       iDIR *last_info = (iDIR *)last_dir->dd_buf;
  15231. +   
  15232. +       if (last_info->cdir == _get_cd() &&
  15233. +       attach(_temp_fname, FNAMESIZE - 1, last_info->dirname,
  15234. +          last_entry->entry.d_name) &&
  15235. +       strcmp(_temp_fname, name) == 0 &&
  15236. +       (soft || last_entry->type != ST_SOFTLINK))
  15237. +     {
  15238. +       if (last_entry->type == ST_LINKFILE || last_entry->type == ST_LINKDIR)
  15239. +         {
  15240. +           /* Find real block, this allows tar to detect hard links */
  15241. +           BPTR cd = CurrentDir(last_dir->dd_fd);
  15242. +           BPTR l = Lock(last_entry->entry.d_name, ACCESS_READ);
  15243. + 
  15244. +           if (l)
  15245. +         {
  15246. +           Examine(l, &fakefib);
  15247. +           UnLock(l);
  15248. +         }
  15249. +           CurrentDir(cd);
  15250. +         }
  15251. +       else
  15252. +         fakefib.fib_DiskKey = last_entry->entry.d_ino;
  15253. + 
  15254. +       fakefib.fib_NumBlocks = last_entry->numblocks;
  15255. +       fakefib.fib_Size = last_entry->size;
  15256. +       fakefib.fib_Date = last_entry->date;
  15257. +       fakefib.fib_DirEntryType = last_entry->type;
  15258. +       fakefib.fib_Protection = last_entry->protection;
  15259. +       
  15260. +       _lfibstat(name, &fakefib, last_info->task, 0, sbuf);
  15261. + 
  15262. +       return 1;
  15263. +     }
  15264. +     }
  15265. +   return 0;
  15266. + }
  15267. + 
  15268. + int stat(char *name, struct stat *sbuf)
  15269. + {
  15270. +   chkabort();
  15271. +   if (fakestat(0, name, sbuf)) return 0;
  15272. +   return _fibstat(name, sbuf);
  15273. + }
  15274. + 
  15275. + int lstat(char *name, struct stat *sbuf)
  15276. + {
  15277. +   chkabort();
  15278. +   if (fakestat(1, name, sbuf)) return 0;
  15279. +   if (readlink(name, _temp_fname, FNAMESIZE - 1) < 0) return _fibstat(name, sbuf);
  15280. + 
  15281. +   /* Symbolic link, fake a stat block */
  15282. +   sbuf->st_dev = 0;
  15283. +   sbuf->st_rdev = 0;
  15284. +   sbuf->st_uid = AMIGA_UID; sbuf->st_gid = AMIGA_GID;
  15285. +   sbuf->st_blksize = 512;
  15286. +   sbuf->st_nlink = 1;        
  15287. +   sbuf->st_blocks = 0;
  15288. +   sbuf->st_size = strlen(_temp_fname);
  15289. +   sbuf->st_ino = 0;
  15290. +   /* 1-Jan-1978 */
  15291. +   sbuf->st_ctime = sbuf->st_atime = sbuf->st_mtime = 252460800;
  15292. +   sbuf->st_mode = S_IFLNK | 0777;
  15293. + 
  15294. +   return 0;
  15295. + }
  15296. diff -rc --new-file emacs-18.59/amiga/unix/src/strftime.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/strftime.c
  15297. *** emacs-18.59/amiga/unix/src/strftime.c    Thu Jan  1 00:00:00 1970
  15298. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/strftime.c    Fri Jul 31 23:29:14 1992
  15299. ***************
  15300. *** 0 ****
  15301. --- 1,291 ----
  15302. + /*
  15303. +  * Copyright (c) 1989 The Regents of the University of California.
  15304. +  * All rights reserved.
  15305. +  *
  15306. +  * Redistribution and use in source and binary forms, with or without
  15307. +  * modification, are permitted provided that the following conditions
  15308. +  * are met:
  15309. +  * 1. Redistributions of source code must retain the above copyright
  15310. +  *    notice, this list of conditions and the following disclaimer.
  15311. +  * 2. Redistributions in binary form must reproduce the above copyright
  15312. +  *    notice, this list of conditions and the following disclaimer in the
  15313. +  *    documentation and/or other materials provided with the distribution.
  15314. +  * 3. All advertising materials mentioning features or use of this software
  15315. +  *    must display the following acknowledgement:
  15316. +  *    This product includes software developed by the University of
  15317. +  *    California, Berkeley and its contributors.
  15318. +  * 4. Neither the name of the University nor the names of its contributors
  15319. +  *    may be used to endorse or promote products derived from this software
  15320. +  *    without specific prior written permission.
  15321. +  *
  15322. +  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  15323. +  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  15324. +  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  15325. +  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  15326. +  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  15327. +  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  15328. +  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  15329. +  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  15330. +  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  15331. +  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  15332. +  * SUCH DAMAGE.
  15333. +  */
  15334. + 
  15335. + #if defined(LIBC_SCCS) && !defined(lint)
  15336. + static char sccsid[] = "@(#)strftime.c    5.11 (Berkeley) 2/24/91";
  15337. + #endif /* LIBC_SCCS and not lint */
  15338. + 
  15339. + #include <sys/types.h>
  15340. + #include <sys/time.h>
  15341. + #include <tzfile.h>
  15342. + #include <string.h>
  15343. + 
  15344. + static char *afmt[] = {
  15345. +     "Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat",
  15346. + };
  15347. + static char *Afmt[] = {
  15348. +     "Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday",
  15349. +     "Saturday",
  15350. + };
  15351. + static char *bfmt[] = {
  15352. +     "Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep",
  15353. +     "Oct", "Nov", "Dec",
  15354. + };
  15355. + static char *Bfmt[] = {
  15356. +     "January", "February", "March", "April", "May", "June", "July",
  15357. +     "August", "September", "October", "November", "December",
  15358. + };
  15359. + 
  15360. + static size_t gsize;
  15361. + static char *pt;
  15362. + static int _add(), _conv(), _secs();
  15363. + 
  15364. + size_t
  15365. + strftime(s, maxsize, format, t)
  15366. +     char *s;
  15367. +     size_t maxsize;
  15368. +     const char *format;
  15369. +     const struct tm *t;
  15370. + {
  15371. +     static size_t _fmt();
  15372. + 
  15373. +     pt = s;
  15374. +     if ((gsize = maxsize) < 1)
  15375. +         return(0);
  15376. +     if (_fmt(format, t)) {
  15377. +         *pt = '\0';
  15378. +         return(maxsize - gsize);
  15379. +     }
  15380. +     return(0);
  15381. + }
  15382. + 
  15383. + static size_t
  15384. + _fmt(format, t)
  15385. +     register char *format;
  15386. +     struct tm *t;
  15387. + {
  15388. +     for (; *format; ++format) {
  15389. +         if (*format == '%')
  15390. +             switch(*++format) {
  15391. +             case '\0':
  15392. +                 --format;
  15393. +                 break;
  15394. +             case 'A':
  15395. +                 if (t->tm_wday < 0 || t->tm_wday > 6)
  15396. +                     return(0);
  15397. +                 if (!_add(Afmt[t->tm_wday]))
  15398. +                     return(0);
  15399. +                 continue;
  15400. +             case 'a':
  15401. +                 if (t->tm_wday < 0 || t->tm_wday > 6)
  15402. +                     return(0);
  15403. +                 if (!_add(afmt[t->tm_wday]))
  15404. +                     return(0);
  15405. +                 continue;
  15406. +             case 'B':
  15407. +                 if (t->tm_mon < 0 || t->tm_mon > 11)
  15408. +                     return(0);
  15409. +                 if (!_add(Bfmt[t->tm_mon]))
  15410. +                     return(0);
  15411. +                 continue;
  15412. +             case 'b':
  15413. +             case 'h':
  15414. +                 if (t->tm_mon < 0 || t->tm_mon > 11)
  15415. +                     return(0);
  15416. +                 if (!_add(bfmt[t->tm_mon]))
  15417. +                     return(0);
  15418. +                 continue;
  15419. +             case 'C':
  15420. +                 if (!_fmt("%a %b %e %H:%M:%S %Y", t))
  15421. +                     return(0);
  15422. +                 continue;
  15423. +             case 'c':
  15424. +                 if (!_fmt("%m/%d/%y %H:%M:%S", t))
  15425. +                     return(0);
  15426. +                 continue;
  15427. +             case 'D':
  15428. +                 if (!_fmt("%m/%d/%y", t))
  15429. +                     return(0);
  15430. +                 continue;
  15431. +             case 'd':
  15432. +                 if (!_conv(t->tm_mday, 2, '0'))
  15433. +                     return(0);
  15434. +                 continue;
  15435. +             case 'e':
  15436. +                 if (!_conv(t->tm_mday, 2, ' '))
  15437. +                     return(0);
  15438. +                 continue;
  15439. +             case 'H':
  15440. +                 if (!_conv(t->tm_hour, 2, '0'))
  15441. +                     return(0);
  15442. +                 continue;
  15443. +             case 'I':
  15444. +                 if (!_conv(t->tm_hour % 12 ?
  15445. +                     t->tm_hour % 12 : 12, 2, '0'))
  15446. +                     return(0);
  15447. +                 continue;
  15448. +             case 'j':
  15449. +                 if (!_conv(t->tm_yday + 1, 3, '0'))
  15450. +                     return(0);
  15451. +                 continue;
  15452. +             case 'k':
  15453. +                 if (!_conv(t->tm_hour, 2, ' '))
  15454. +                     return(0);
  15455. +                 continue;
  15456. +             case 'l':
  15457. +                 if (!_conv(t->tm_hour % 12 ?
  15458. +                     t->tm_hour % 12 : 12, 2, ' '))
  15459. +                     return(0);
  15460. +                 continue;
  15461. +             case 'M':
  15462. +                 if (!_conv(t->tm_min, 2, '0'))
  15463. +                     return(0);
  15464. +                 continue;
  15465. +             case 'm':
  15466. +                 if (!_conv(t->tm_mon + 1, 2, '0'))
  15467. +                     return(0);
  15468. +                 continue;
  15469. +             case 'n':
  15470. +                 if (!_add("\n"))
  15471. +                     return(0);
  15472. +                 continue;
  15473. +             case 'p':
  15474. +                 if (!_add(t->tm_hour >= 12 ? "PM" : "AM"))
  15475. +                     return(0);
  15476. +                 continue;
  15477. +             case 'R':
  15478. +                 if (!_fmt("%H:%M", t))
  15479. +                     return(0);
  15480. +                 continue;
  15481. +             case 'r':
  15482. +                 if (!_fmt("%I:%M:%S %p", t))
  15483. +                     return(0);
  15484. +                 continue;
  15485. +             case 'S':
  15486. +                 if (!_conv(t->tm_sec, 2, '0'))
  15487. +                     return(0);
  15488. +                 continue;
  15489. +             case 's':
  15490. +                 if (!_secs(t))
  15491. +                     return(0);
  15492. +                 continue;
  15493. +             case 'T':
  15494. +             case 'X':
  15495. +                 if (!_fmt("%H:%M:%S", t))
  15496. +                     return(0);
  15497. +                 continue;
  15498. +             case 't':
  15499. +                 if (!_add("\t"))
  15500. +                     return(0);
  15501. +                 continue;
  15502. +             case 'U':
  15503. +                 if (!_conv((t->tm_yday + 7 - t->tm_wday) / 7,
  15504. +                     2, '0'))
  15505. +                     return(0);
  15506. +                 continue;
  15507. +             case 'W':
  15508. +                 if (!_conv((t->tm_yday + 7 -
  15509. +                     (t->tm_wday ? (t->tm_wday - 1) : 6))
  15510. +                     / 7, 2, '0'))
  15511. +                     return(0);
  15512. +                 continue;
  15513. +             case 'w':
  15514. +                 if (!_conv(t->tm_wday, 1, '0'))
  15515. +                     return(0);
  15516. +                 continue;
  15517. +             case 'x':
  15518. +                 if (!_fmt("%m/%d/%y", t))
  15519. +                     return(0);
  15520. +                 continue;
  15521. +             case 'y':
  15522. +                 if (!_conv((t->tm_year + TM_YEAR_BASE)
  15523. +                     % 100, 2, '0'))
  15524. +                     return(0);
  15525. +                 continue;
  15526. +             case 'Y':
  15527. +                 if (!_conv(t->tm_year + TM_YEAR_BASE, 4, '0'))
  15528. +                     return(0);
  15529. +                 continue;
  15530. +             case 'Z':
  15531. +                 if (!t->tm_zone || !_add(t->tm_zone))
  15532. +                     return(0);
  15533. +                 continue;
  15534. +             case '%':
  15535. +             /*
  15536. +              * X311J/88-090 (4.12.3.5): if conversion char is
  15537. +              * undefined, behavior is undefined.  Print out the
  15538. +              * character itself as printf(3) does.
  15539. +              */
  15540. +             default:
  15541. +                 break;
  15542. +         }
  15543. +         if (!gsize--)
  15544. +             return(0);
  15545. +         *pt++ = *format;
  15546. +     }
  15547. +     return(gsize);
  15548. + }
  15549. + 
  15550. + static
  15551. + _secs(t)
  15552. +     struct tm *t;
  15553. + {
  15554. +     static char buf[15];
  15555. +     register time_t s;
  15556. +     register char *p;
  15557. +     struct tm tmp;
  15558. + 
  15559. +     /* Make a copy, mktime(3) modifies the tm struct. */
  15560. +     tmp = *t;
  15561. +     s = mktime(&tmp);
  15562. +     for (p = buf + sizeof(buf) - 2; s > 0 && p > buf; s /= 10)
  15563. +         *p-- = s % 10 + '0';
  15564. +     return(_add(++p));
  15565. + }
  15566. + 
  15567. + static
  15568. + _conv(n, digits, pad)
  15569. +     int n, digits;
  15570. +     char pad;
  15571. + {
  15572. +     static char buf[10];
  15573. +     register char *p;
  15574. + 
  15575. +     for (p = buf + sizeof(buf) - 2; n > 0 && p > buf; n /= 10, --digits)
  15576. +         *p-- = n % 10 + '0';
  15577. +     while (p > buf && digits-- > 0)
  15578. +         *p-- = pad;
  15579. +     return(_add(++p));
  15580. + }
  15581. + 
  15582. + static
  15583. + _add(str)
  15584. +     register char *str;
  15585. + {
  15586. +     for (;; ++pt, --gsize) {
  15587. +         if (!gsize)
  15588. +             return(0);
  15589. +         if (!(*pt = *str++))
  15590. +             return(1);
  15591. +     }
  15592. + }
  15593. diff -rc --new-file emacs-18.59/amiga/unix/src/symlink.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/symlink.c
  15594. *** emacs-18.59/amiga/unix/src/symlink.c    Thu Jan  1 00:00:00 1970
  15595. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/symlink.c    Sat Oct 17 12:45:10 1992
  15596. ***************
  15597. *** 0 ****
  15598. --- 1,14 ----
  15599. + #include "amiga.h"
  15600. + 
  15601. + int symlink(char *from, char *to)
  15602. + {
  15603. + #ifdef SOFTLINK
  15604. +   chkabort();
  15605. +   if (MakeLink(to, from, 1)) return 0;
  15606. +   ERROR;
  15607. + #else
  15608. +   _OSERR = ERROR_NOT_IMPLEMENTED;
  15609. +   errno = EOSERR;
  15610. +   return -1;
  15611. + #endif
  15612. + }
  15613. diff -rc --new-file emacs-18.59/amiga/unix/src/time.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/time.c
  15614. *** emacs-18.59/amiga/unix/src/time.c    Thu Jan  1 00:00:00 1970
  15615. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/time.c    Tue Aug 25 22:09:58 1992
  15616. ***************
  15617. *** 0 ****
  15618. --- 1,12 ----
  15619. + #include "amiga.h"
  15620. + #include "timeconvert.h"
  15621. + 
  15622. + time_t time(time_t *clock)
  15623. + {
  15624. +   struct timeval now;
  15625. + 
  15626. +   if (_gettime(&now) < 0) return -1;
  15627. +   if (clock) *clock = now.tv_secs;
  15628. + 
  15629. +   return (time_t)now.tv_secs;
  15630. + }
  15631. diff -rc --new-file emacs-18.59/amiga/unix/src/timeconvert.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/timeconvert.c
  15632. *** emacs-18.59/amiga/unix/src/timeconvert.c    Thu Jan  1 00:00:00 1970
  15633. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/timeconvert.c    Sat Jun  5 11:46:46 1993
  15634. ***************
  15635. *** 0 ****
  15636. --- 1,94 ----
  15637. + #include "amiga.h"
  15638. + #include "timeconvert.h"
  15639. + #include <time.h>
  15640. + #include <proto/timer.h>
  15641. + 
  15642. + int _gettime(struct timeval *tp)
  15643. + {
  15644. +   struct tm *local;
  15645. +   time_t gmt;
  15646. + 
  15647. +   GetSysTime(tp);
  15648. +   /* Correct for different epoch (78 vs 70) */
  15649. +   tp->tv_secs += 252460800;    
  15650. + 
  15651. + #ifdef USE_LOCAL
  15652. +   /* correct for timezone */
  15653. +   local = gmtime(&tp->tv_secs);
  15654. +   local->tm_isdst = -1;        /* We don't know about dst */
  15655. +   gmt = mktime(local);
  15656. + 
  15657. +   if (gmt == -1)
  15658. +     {
  15659. +       errno = EINVAL;
  15660. +       return -1;
  15661. +     }
  15662. +   tp->tv_secs = gmt;
  15663. + #endif
  15664. +   return 0;
  15665. + }
  15666. + 
  15667. + #ifdef USE_LOCAL
  15668. + 
  15669. + /* System is storing local time */
  15670. + 
  15671. + void _gmt2amiga(time_t time, struct DateStamp *date)
  15672. + {
  15673. +   struct tm *local, *gmt;
  15674. + 
  15675. +   local = localtime(&time);
  15676. +   gmt = gmtime(&time);
  15677. +   date->ds_Tick = 50 * local->tm_sec;
  15678. +   date->ds_Minute = local->tm_min + local->tm_hour * 60;
  15679. + 
  15680. +   /* Now calculate the day assuming we are in GMT */
  15681. +   date->ds_Days = (time - 252460800) / 86400;
  15682. +   /* And correct by comparing local with GMT */
  15683. +   if (local->tm_year < gmt->tm_year ||
  15684. +       local->tm_year == gmt->tm_year && local->tm_yday < gmt->tm_yday)
  15685. +     date->ds_Days--;
  15686. +   if (local->tm_year > gmt->tm_year ||
  15687. +       local->tm_year == gmt->tm_year && local->tm_yday > gmt->tm_yday)
  15688. +     date->ds_Days++;
  15689. + }
  15690. + 
  15691. + time_t _amiga2gmt(struct DateStamp *date)
  15692. + {
  15693. +   struct tm *local;
  15694. +   time_t secs;
  15695. + 
  15696. +   secs = date->ds_Tick / 50 + date->ds_Minute * 60 + date->ds_Days * 86400 +
  15697. +     252460800;
  15698. +   local = gmtime(&secs);
  15699. +   local->tm_isdst = -1;        /* We don't know about dst */
  15700. + 
  15701. +   return mktime(local);
  15702. + }
  15703. + 
  15704. + #else
  15705. + 
  15706. + /* System is storing GMT */
  15707. + /* Leap seconds are not handled !! */
  15708. + 
  15709. + void _gmt2amiga(time_t time, struct DateStamp *date)
  15710. + {
  15711. +   time_t time78, day_secs;
  15712. + 
  15713. +   time78 = time - 252460800;    /* Change Epoch */
  15714. +   date->ds_Days = time78 / 86400;
  15715. +   day_secs = time78 % 86400;
  15716. +   date->ds_Minute = day_secs / 60;
  15717. +   date->ds_Tick = 50 * (day_secs % 60);
  15718. + }
  15719. + 
  15720. + time_t _amiga2gmt(struct DateStamp *date)
  15721. + {
  15722. +   time_t secs;
  15723. + 
  15724. +   secs = date->ds_Tick / 50 + date->ds_Minute * 60 + date->ds_Days * 86400 +
  15725. +     252460800;
  15726. + 
  15727. +   return secs;
  15728. + }
  15729. + 
  15730. + #endif
  15731. diff -rc --new-file emacs-18.59/amiga/unix/src/timeconvert.h /gnu/src/amiga/emacs-18.59/amiga/unix/src/timeconvert.h
  15732. *** emacs-18.59/amiga/unix/src/timeconvert.h    Thu Jan  1 00:00:00 1970
  15733. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/timeconvert.h    Tue Aug 25 20:32:38 1992
  15734. ***************
  15735. *** 0 ****
  15736. --- 1,27 ----
  15737. + #ifndef TIMECONVERT_H
  15738. + #define TIMECONVERT_H
  15739. + 
  15740. + #include <time.h>
  15741. + 
  15742. + int _gettime(struct timeval *tp);
  15743. + /* Effect: Store GMT time into tp.
  15744. +      If USE_LOCAL is defined, assume system stores local time,
  15745. +      otherwise it stores GMT.
  15746. + */
  15747. + 
  15748. + void _gmt2amiga(time_t time, struct DateStamp *date);
  15749. + /* Effect: Converts a time expressed in seconds since
  15750. +      the 1 January 1970 0:00:00 GMT, to an Amiga time.
  15751. +      If USE_LOCAL is defined, Amiga time is assumed to
  15752. +      be stored as local time, otherwise as GMT.
  15753. +    Modifies: date, to contain the time in Amiga format
  15754. + */
  15755. + 
  15756. + time_t _amiga2gmt(struct DateStamp *date);
  15757. + /* Effect: Convert a date expressed in Amiga format (as a 
  15758. +      local time if USE_LOCAL is defined, as GMT otherwise)
  15759. +      to a number of seconds since 1 January 1970 0:00:00 GMT.
  15760. +    Returns: this latter time
  15761. + */
  15762. + 
  15763. + #endif
  15764. diff -rc --new-file emacs-18.59/amiga/unix/src/timers.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/timers.c
  15765. *** emacs-18.59/amiga/unix/src/timers.c    Thu Jan  1 00:00:00 1970
  15766. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/timers.c    Mon Aug 17 22:32:54 1992
  15767. ***************
  15768. *** 0 ****
  15769. --- 1,72 ----
  15770. + #include "amiga.h"
  15771. + #include "devices.h"
  15772. + #include "timers.h"
  15773. + 
  15774. + struct timeinfo *_alloc_timer(void)
  15775. + {
  15776. +   struct timeinfo *timer = AllocMem(sizeof(struct timeinfo), 0);
  15777. + 
  15778. +   if (!timer) return 0;
  15779. +   timer->sent = FALSE;
  15780. +   timer->io = (struct timerequest *)
  15781. +     _device_open("timer.device", UNIT_VBLANK, 0L, 0L, 0, sizeof(struct timerequest));
  15782. +   if (!timer->io)
  15783. +     {
  15784. +       FreeMem(timer, sizeof(struct timeinfo));
  15785. +       return 0;
  15786. +     }
  15787. +   return timer;
  15788. + }
  15789. + 
  15790. + void _free_timer(struct timeinfo *timer)
  15791. + {
  15792. +   if (timer)
  15793. +     {
  15794. +       _timer_abort(timer);
  15795. +       _device_close(timer->io);
  15796. +       FreeMem(timer, sizeof(struct timeinfo));
  15797. +     }
  15798. + }
  15799. + 
  15800. + void _timer_abort(struct timeinfo *timer)
  15801. + {
  15802. +   if (timer->sent)
  15803. +     {
  15804. +       AbortIO(timer->io);
  15805. +       WaitIO(timer->io);
  15806. +       /* Clear timer io signal */
  15807. +       /*SetSignal(0, timer_sig(timer));*/
  15808. +       timer->sent = FALSE;
  15809. +     }
  15810. + }
  15811. + 
  15812. + ULONG _timer_sig(struct timeinfo *timer)
  15813. + {
  15814. +   return 1UL << timer->io->tr_node.io_Message.mn_ReplyPort->mp_SigBit;
  15815. + }
  15816. + 
  15817. + void _timer_start(struct timeinfo *timer, int secs, int micros)
  15818. + /* _timer_start(timer, 0) stops a timer */
  15819. + {
  15820. +   _timer_abort(timer);
  15821. +   if (secs || micros)
  15822. +     {
  15823. +       timer->io->tr_time.tv_secs = secs;
  15824. +       timer->io->tr_time.tv_micro = micros;
  15825. +       timer->io->tr_node.io_Command = TR_ADDREQUEST;
  15826. +       SendIO(timer->io);
  15827. +       timer->sent = TRUE;
  15828. +     }
  15829. + }
  15830. + 
  15831. + int _timer_expired(struct timeinfo *timer)
  15832. + /* A non-started timer is defined to not have expired */
  15833. + {
  15834. +   if (timer->sent && CheckIO(timer->io))
  15835. +     {
  15836. +       WaitIO(timer->io);
  15837. +       timer->sent = FALSE;
  15838. +       return TRUE;
  15839. +     }
  15840. +   return FALSE;
  15841. + }
  15842. diff -rc --new-file emacs-18.59/amiga/unix/src/tmpnam.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/tmpnam.c
  15843. *** emacs-18.59/amiga/unix/src/tmpnam.c    Thu Jan  1 00:00:00 1970
  15844. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/tmpnam.c    Sat Oct 24 09:39:52 1992
  15845. ***************
  15846. *** 0 ****
  15847. --- 1,13 ----
  15848. + #include "amiga.h"
  15849. + #include <string.h>
  15850. + #include <stdio.h>
  15851. + 
  15852. + char *tmpnam(char *s)
  15853. + {
  15854. +   static char tmpbuf[L_tmpnam];
  15855. + 
  15856. +   if (!s) s = tmpbuf;
  15857. + 
  15858. +   strcpy(s, P_tmpdir "tmp_XXXXXX");
  15859. +   return mktemp(s);
  15860. + }
  15861. diff -rc --new-file emacs-18.59/amiga/unix/src/truncate.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/truncate.c
  15862. *** emacs-18.59/amiga/unix/src/truncate.c    Thu Jan  1 00:00:00 1970
  15863. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/truncate.c    Sun Jul 19 17:47:02 1992
  15864. ***************
  15865. *** 0 ****
  15866. --- 1,21 ----
  15867. + #include "amiga.h"
  15868. + #include "amigados.h"
  15869. + 
  15870. + int truncate(char *path, off_t length)
  15871. + {
  15872. +   BPTR fh = Open(path, MODE_OLDFILE);
  15873. +   int err;
  15874. + 
  15875. +   chkabort();
  15876. +   if (fh)
  15877. +     {
  15878. +       int ret = _do_truncate(fh, length);
  15879. + 
  15880. +       if (Close(fh) || ret) return ret;
  15881. +       err = IoErr();
  15882. +     }
  15883. +   else err = IoErr();
  15884. + 
  15885. +   errno = convert_oserr(err);
  15886. +   return -1;
  15887. + }
  15888. diff -rc --new-file emacs-18.59/amiga/unix/src/uid.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/uid.c
  15889. *** emacs-18.59/amiga/unix/src/uid.c    Thu Jan  1 00:00:00 1970
  15890. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/uid.c    Sun Jul 19 17:47:02 1992
  15891. ***************
  15892. *** 0 ****
  15893. --- 1,4 ----
  15894. + #include "amiga.h"
  15895. + 
  15896. + uid_t getuid(void) { return AMIGA_UID; }
  15897. + uid_t geteuid(void) { return AMIGA_UID; }
  15898. diff -rc --new-file emacs-18.59/amiga/unix/src/umask.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/umask.c
  15899. *** emacs-18.59/amiga/unix/src/umask.c    Thu Jan  1 00:00:00 1970
  15900. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/umask.c    Sun Jul 19 17:47:02 1992
  15901. ***************
  15902. *** 0 ****
  15903. --- 1,3 ----
  15904. + #include "amiga.h"
  15905. + 
  15906. + int umask(int mask) { return 0; }
  15907. diff -rc --new-file emacs-18.59/amiga/unix/src/unix-hard.lib.uue /gnu/src/amiga/emacs-18.59/amiga/unix/src/unix-hard.lib.uue
  15908. *** emacs-18.59/amiga/unix/src/unix-hard.lib.uue    Thu Jan  1 00:00:00 1970
  15909. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/unix-hard.lib.uue    Tue Jul 12 10:32:19 1994
  15910. ***************
  15911. *** 0 ****
  15912. --- 1,1186 ----
  15913. + begin 666 unix-hard.lib
  15914. + M```#^@``*UH```/I````"2!O``0@UTC0_/QP`$YU(&\`!"`O``AF`G`!(EA,
  15915. + MT/S\6(].T0```_(```/I````#$CG(#(@;P`80^\`'$7Z`!PF;P`4)`LL>0``
  15916. + M``!.K@``(`N0@DS?3`1.=1;`3G4``````^^!```#7T%B<T5X96-"87-E````
  15917. + M`0```!B&```#7TQ63U)A=T1O1FUT`````0```!X````````#\@```^D````*
  15918. + M(&\`!"\-*D@@#68$2^P``$'L```B31+89OPO#4ZZ``!83RI?3G4``````_@`
  15919. + M```!`````0```!(````!`````@````X````````#[X,```)?;6MT96UP````
  15920. + M``$````>`````````_$````#`````$]05%,`!`!````#\@```^H````$=#IT
  15921. + M;7!?6%A86%A8`````````_(```/K````"0```_(```/I````;R!O``0B;P`(
  15922. + MGOP`($CG+Q8F22](`"`O20`D<`Q.N@``*D`@+```4JP``"(L``#2@"\!2&P`
  15923. + M`$AO`#!.N@``3^\`#'!WL!-F-DHK``%F,$'O`"A#[``03KH``"9`+&P``$ZN
  15924. + M_\0N`'P`0>\`*"(()#P```/M3J[_XBH`>`%@1G!RL!-F-DHK``%F,$'O`"A#
  15925. + M[``23KH``"9`+&P``$ZN_\HJ`'@`0>\`*"(()#P```/N3J[_XBX`?`%@"G`6
  15926. + M*4```&```(Q*A6<$2H=F!$ZZ```@"V="2H5G/DJ'9SH@#6<V<``O`"\`+P!(
  15927. + M>/__+P8O!R`%(@0@;P`X3KH``$_O`!@K0``(9Q`JK```*4T``"M+``0@"V`Z
  15928. + M(`UG!B!-3KH``$J%9PY*A&<*(@4L;```3J[_W$J'9PY*AF<*(@<L;```3J[_
  15929. + MW"`+9P8@2TZZ``!P`$S?:/3>_``@3G4@;P`$44](YP$T)DA+[```+T@`$&`Z
  15930. + M(&H`!+'+9C`F52XK``@JDR!K``1.N@``($M.N@``0J=(;P`8+P=.N@``3^\`
  15931. + M#$J`:PX@+P`48`HJ2B15(`IFP'#_3-\L@%!/3G4``````_@````#`````0``
  15932. + M`)````!4````-`````,````"```!:````0P```$(`````````^^#```"0&UA
  15933. + M;&QO8P`````!````'H8```1?7V9I9F]?;V9F<V5T`````````@```"@````D
  15934. + MA@```U]?9FEF;U]B87-E``````$````L@P```U]?<W!R:6YT9@````````$`
  15935. + M```\@P```D!F;W!E;@```````@```)0```!8A@```E]$3U-"87-E````!```
  15936. + M`3X```$L````F@```%Z&```"7V5R<FYO```````!````OH,```)`7W-E=&5R
  15937. + M<@````$```#.@P``!$!?<W1A<G1?<')O8V5S<P`````!````^H,```)`9G)E
  15938. + M90````````(```&,```!'H,```)`9F-L;W-E``````(```&&```!3(,```)?
  15939. + M=V%I='!I9`````$```&8`````````_$````#`````$]05%,`!`!````#\@``
  15940. + M`^H````%<&EP93IU>&]P96XN)6QX`'<`<@````/R```#ZP````$```/R```#
  15941. + MZ0```,6>_``82.<A/DGY`````$7L`!@J6B!:+AHF;``D+T@`()/)+'@`!$ZN
  15942. + M_MHD;```($!#Z`!*($DB;```3J[_"B!L``!#[``$3J[^DD/O`"0B_(```"1P
  15943. + M`2+`0IDB+P`@0>\`)"0(+$I.KOVBX8`K0``8+'@`!$ZN_WPB2TZN_GI*@&<*
  15944. + M($`B34ZN_I)@"")-<!Q.KO\N3J[_=B)+<"!.KO\N(F\`("`'3J[_+DS??(3>
  15945. + M_``82H!.=2!O``0@+P`((B\`#"]O`!``!"]O`!0`""]O`!@`#"]O`!P`$"]O
  15946. + M`"``%"]O`"0`&%E/2.</%BHO`#@L+P`T+@`J2"]!`!QP'$ZZ```F0"!-2AAF
  15947. + M_%.(D<T@"%*`*4``('(!+'@`!$ZN_SHI0``<(D`2W6;\<!QR`4ZN_SHI0``8
  15948. + M<"!R`4ZN_SHI0``D<`$I0``00?K_G"`(0_K^L)")*4``%$'L``!.KO\B*4``
  15949. + M`"(+9P`!2DJL`!QG``%"2JP`&&<``3I*K``D9P`!,DJ`;P`!+"!L```@*``4
  15950. + M0?K^;B)L```B:0`08`(2V%.`9/I![```(FP`)!+89OP@+```4JP``"=```PG
  15951. + M1P`03>P`%CS\`!1P!1E```P@5C%\`!P`$A%```@@7B%K``P`%"`\@``#\DJ&
  15952. + M9@)P`2@`2H5O!"`%8`0@+```0J=(>``!+SR```/Z+P`O/(```_,O!B\$+R\`
  15953. + M3"\\@``#\2\O`%`O/(```_`O+P!4+SR```/O+R\`6"\\@``#[2\O`%@O/(``
  15954. + M`^XO!R\\@``#["!L```O*``0+SR```/K+&P``"(/3J[^#D_O`%0G0``(9S0@
  15955. + M;```+'@`!$ZN_H`@;```+'@`!$ZN_HQ*@&?D0JL`%$'L```B2RQX``1.KO\0
  15956. + M("L`#&!H+&P``$ZN_WQ.N@``8`)P#"E````@"V<&($M.N@``("P`'&<.(D`@
  15957. + M+``@+'@`!$ZN_RX@+``89PPB0'`<+'@`!$ZN_RX@+``D9PPB0'`@+'@`!$ZN
  15958. + M_RX@+```;PH@0"QX``1.KO\<</],WVCP6$].=0```_@````#`````0```5H`
  15959. + M``%6```!1@```!<````"```"_````NH```+8```"S````L0```)0```!S```
  15960. + M`<(```&J```!E@```8H```%\```!=````6P```%B```!0````30```$B```!
  15961. + M%````$0````X````&@```!`````````#[X$```-?3&EN:V5R1$(````````!
  15962. + M````"H8```)?1$]30F%S90````,```*F```"7@```"R&```$7U]S=&%R='5P
  15963. + M7W!O<G0```````,```)^```"<@```$"#```"0&UA;&QO8P`````!```!`(8`
  15964. + M``-?7V1O;W)?;F%M90`````!```!IH8```-?7VYE>'1?<&ED```````"```!
  15965. + MM@```;*&```#7U]S=&%C:U]S:7IE`````0```?J&```#7U]P<F]C97-S97,`
  15966. + M`````0```I*#```$0&-O;G9E<G1?;W-E<G(```````$```*NA@```E]E<G)N
  15967. + M;P```````0```K:#```"0&9R964````````!```"P`````````/Q`````P``
  15968. + M``!/4%13``0`0````_(```/J````!@````````````````````$`````````
  15969. + M`````_(```/K````"@```_(```/I`````TZZ```@+```3G4``````^^#```#
  15970. + M0&-H:V%B;W)T`````````0````*&```#7U]O=7)?<&ED`````````0````8`
  15971. + M```````#\0````,`````3U!44P`$`$````/R```#Z0```",@+P`$(&\`"")O
  15972. + M``Q(YP$4+@`F22I(3KH``'`!OH!M+'`@OH!L)B`+9PX@!^>`0^P``-/`)MDF
  15973. + MV2`-9PSGAT'L``#1QR#=(-UP`&`(<!8I0```</],WRB`3G4@+P`$(&\`")[\
  15974. + M`!`O2``(0J\`#$'O``A#UV&62H!G"#!\__\@"&`"(!?>_``03G4``````^^#
  15975. + M```#0&-H:V%B;W)T`````````0```!B&```$7U]S:6=?:&%N9&QE<G,`````
  15976. + M``(```!`````,(8```)?97)R;F\```````$```!0`````````_$````#````
  15977. + M`$]05%,`!`!````#\@```^D````5("\`!$CG#P`N`"PL``!.N@``*4<``'H`
  15978. + M>`$@+```P(1G#B`L``#`A&8&(`5.N@``4H78A'`@NH!MX"`&3-\`\$YU("\`
  15979. + M!"\'(@`@+```@($N'V"P```#[X8```-?7W-I9U]M87-K```````$````3```
  15980. + M`"0````4````#(,```-`8VAK86)O<G0````````!````$(8```1?7W-I9U]P
  15981. + M96YD:6YG`````````0```!R#```$0%]S:6=?9&ES<&%T8V@```````$````N
  15982. + M`````````_$````#`````$]05%,`!`!````#\@```^D```":(&\`!"`O``@B
  15983. + M;P`,+V\`$``$64](YR$T+@`F;P`<*D@D22])`!1@`AK:2A)G!%.';O:U[P`4
  15984. + M8QH0*O__<B^P`6<0=#JP`F<*4X=O!AK!8`(:VTH39P13AV[V0A5*AU[`1`!(
  15985. + M@$C`3-\LA%A/3G4@+P`$(&\`"")O``Q93TCG)S8N`"I(+TD`($JL``!G``#^
  15986. + M(&P``"9H``Q.N@``(BL`!+*`9@``Z"!L``!(:``L0>P``")3<`!&`&$`_UA8
  15987. + M3TJ`9P``RD'L```B31`8L!EF``"\2@!F]&8``+1*AV80(&P``"`H`!AR`["!
  15988. + M9P``H"!L```@*``8<ORP@6<$68!F/B)L```B$2QL``!.KO^"+``@;```T/P`
  15989. + M+"((=/Y.KO^L*@!G$B(%0>P``"0(3J[_FB(%3J[_IB(&3J[_@F`&*6@`(```
  15990. + M(&P``"EH``0`@"EH``@`?$/H``Q%[`"$)-DDV239(&P``"EH`!@`!"EH`!P`
  15991. + M="\O`"`O*P$8($U#[```<`!.N@``4$]P`6`"<`!,WVSD6$].=2!O``0B;P`(
  15992. + M2.<`%"9)*DA.N@``($TB2W``80#^R$J`9P1P`&`,($TB2TS?*`!.^@``3-\H
  15993. + M`$YU(&\`!")O``A(YP`4)DDJ2$ZZ```@32)+<`%A`/Z02H!F<$AX`/](;```
  15994. + M+PU.N@``3^\`#$J`:@P@32)+3-\H`$[Z``!+TT*=0JL`$G`!-T``#D)K`!`G
  15995. + M?````@``,C=```Q"JP`V0>P``")(2AEF_%.)D\@G20`60IT@/`\,/P`G0``B
  15996. + M)T``&B=``"HJ_```H?]P`$S?*`!.=0```_@````(`````0```7X```%P```!
  15997. + M:@```5H```%2```!3````4(```$H`````````^^&```#7VQA<W1?9&ER````
  15998. + M`````P```0(```"2````BH,```)`7V=E=%]C9`````$```":A@```U]L87-T
  15999. + M7V5N=')Y``````8```%D```!1@```1(```#P````X````*B&```#7U]T96UP
  16000. + M7V9N86UE````!````C8```'V````Q@```+"&```"7T1/4T)A<V4````!```!
  16001. + M"(,```-`7VQF:6)S=&%T```````!```!A(,```-`8VAK86)O<G0````````"
  16002. + M```!X````:B#```#0%]F:6)S=&%T`````````@```A````'&@P```U]R96%D
  16003. + M;&EN:P````````$```'\`````````_$````#`````$]05%,`!`!````#\@``
  16004. + M`^L```!!```#\@```^D```#0(&\`!%E/2.<`%"](``@@;P`(*F@!#&`*)E4@
  16005. + M34ZZ```J2R`-9O),WR@`6$].=2!O``2>_``02.<@-BI()FT`#$/K`0PO2``<
  16006. + M+TD`("!+8;1"K```0JL!#$*M``0@%>6`($`G:``,`1A!ZP`(+T@`&&```)Y!
  16007. + MZP`0(DA*&6;\4XF3R"`)D<C0_``L<@`R`-*(4H%T`#0!/T``%C]!`!0@`DZZ
  16008. + M```D0$J`9@9P#&```)Q-TD*>(&\`(""*+U``("SK`(@LZP"$0>L`C$/J``PB
  16009. + MV"+8(M@E:P`,`!@E:P!\`!Q+Z@`@.V\`%``$.V\`%@`&(&\`'"`H``12J``$
  16010. + M*T``"$'J`"Q#ZP`0$-EF_"JK``@J;P`<(A4D+P`8+&P``$ZN_Y1*@&8`_TXG
  16011. + M:P$,`1!"K0`$+&P``$ZN_WQR=-*!L(%F!'`!8`I.N@``*4```'``3-]L!-[\
  16012. + M`!!.=2!O``193TCG(#8O2``4<!!.N@``*D!P1^6(3KH``"9`(&\`%"`(2AAF
  16013. + M_%.(D<`@"%*`3KH``"1`3KH``"`-9P``@B`*9WP@"V=X*TL`#"M\```!'``(
  16014. + MD<@G2`$0)T@!#"=(`10FBB!O`!04V&;\3KH``"=```0B+P`4+&P``'3^3J[_
  16015. + MK"J`9R)!ZP`((@`D""QL``!.KO^:2H!G#B!-80#^.$J`9Q0@#6`^+&P``$ZN
  16016. + M_WQ.N@``*4```"!-80``-F`D<`PI0```(`UG!B!-3KH``"`*9P8@2DZZ```@
  16017. + M"V<&($M.N@``<`!,WVP$6$].=2!O``1(YP`6*D@F;0`,3KH``$*L```@2V$`
  16018. + M_:`@4TZZ```@%6<*(@`L;```3J[_IB!M``Q.N@``($U,WV@`3OH``"!O``19
  16019. + M3TCG`S0O2``4(&\`%"IH``R7RTZZ``!*K0$49R1^`"1M`0P@;P`4+"@`!&`$
  16020. + M4H<D4KZ&;`0@"F;T*TH!$$*M`10@+0$09R(F0-;\`"`I;P`4``!%[0$0(%(I
  16021. + M2```(%(DT"!O`!12J``$(`M,WRS`6$].=2!O``0O#2I(3KH``"`M``0J7TYU
  16022. + M(&\`!"`O``A(YP$4+@`J2"9M``Q.N@``<`$G0`$4*T<`!$S?*(!.=0```^^#
  16023. + M```"0&9R964````````'```"B@```H````)J```"/@```C0```(J````'H8`
  16024. + M``-?;&%S=%]D:7(````````#```"X@```EX```!2@P```D!M86QL;V,`````
  16025. + M!````8X```%V```!;````**&```"7T1/4T)A<V4````&```"=````@8```'L
  16026. + M```!U@```30```$<@P``!$!C;VYV97)T7V]S97)R```````"```"#@```4B&
  16027. + M```"7V5R<FYO```````#```"(````A(```%,@P```T!C:&MA8F]R=```````
  16028. + M``4```,N```##@```J8```):```!E(,```)`7V=E=%]C9`````$```'*A@``
  16029. + M`U]L87-T7V5N=')Y``````$```+L`````````_$````#`````$]05%,`!`!`
  16030. + M```#\@```^D````(2.<!`BQL``!R`$ZN_X(N`"(`3J[_@B`'3-]`@$YU````
  16031. + M``/OA@```E]$3U-"87-E`````0````8````````#\0````,`````3U!44P`$
  16032. + M`$````/R```#ZP````(```/R```#Z0```!L@;P`$("\`")[\`$1(YP,$+@`J
  16033. + M2'S_3KH``"!-0^\`#DZZ``!*@&8D<!#`KP`6YH!R4.6)PJ\`%NR!@H#"A[*'
  16034. + M9@1\`&`&<`TI0```(`9,WR#`WOP`1$YU(&\`!"`O``A(YP$$3-\@@&">````
  16035. + M``/O@P```T!C:&MA8F]R=`````````$````8@P```T!?9FEB<W1A=```````
  16036. + M``$````BA@```E]E<G)N;P```````0```$H````````#\0````,`````3U!4
  16037. + M4P`$`$````/R```#Z0```$$@+P`$(&\`"%E/2.<G%BX`*DA.N@``2&\`'$AX
  16038. + M"`$O!TZZ``!/[P`,4H!F!G#_8```RD*G+&P``'(")`].KO\<3^\`!"9`2H!G
  16039. + M+"(O`!PD"TZN_GI*0&<>("\`'.6`+PT@0"\H``@B0G``D<A.N@``4$]\`&!@
  16040. + M3J[_?"H`<BY&`;"!9D9\`"`O`!SE@"!`*J@`"$WM``1"GBS\```A_W`!/,`\
  16041. + MP$)>*WP```(``#)"K0`V0JT`%B`\#PP_`"M``"(K0``:*T``*F`,?/\@!4ZZ
  16042. + M```I0```(`MG#"0++&P``'("3J[_%DAO`!Q(>`@"+P=.N@``3^\`#"`&3-]H
  16043. + MY%A/3G4``````^^#```#0&-H:V%B;W)T`````````0```!2#```"7VEO8W1L
  16044. + M```````"````\@```"*&```"7T1/4T)A<V4````"````W@```#:#```#0%]L
  16045. + M9FEB<W1A=````````0```&Z#```$0&-O;G9E<G1?;W-E<G(```````$```#0
  16046. + MA@```E]E<G)N;P```````0```-0````````#\0````,`````3U!44P`$`$``
  16047. + M``/R```#Z0````X@;P`$(F\`"$CG,!8F22I(3KH``"(+)`TL;```=@%.KOY$
  16048. + M2H!G!'``8`9.N@``</],WV@,3G4``````^^#```#0&-H:V%B;W)T````````
  16049. + M`0```!*&```"7T1/4T)A<V4````!````&H,```)`7W-E=&5R<@````$````L
  16050. + M`````````_$````#`````$]05%,`!`!````#\@```^D````^(&\`!")O``A9
  16051. + M3TCG,S8J2'X`(&P``"PH`.`O20`@2H9F($JL``!F&D'L`!@B""QL```D/```
  16052. + M`^U.KO_B+`!G`GX!2H9G-B(&0>P`(B0(0>P``"8(+&P``$ZN_IXB!B0-)B\`
  16053. + M($ZN_IXB!G0*3J[^R$J'9U@B!DZN_]Q@4"!L```F:`"X,'S__[?(9T!#[``H
  16054. + M<"4L>``$3J[]V"1`2H!G+"EL````#"E-`!`O"B!++$I#[``$E<HF;P`D3J[]
  16055. + MM$S?!``B2BQX``1.KOYB3-]LS%A/3G4@;P`$0^\`"&$`_RI.=2!O``1#[P`(
  16056. + M80#_''`43KH``$YU``````/X````!@````$```"R````J````*0```".````
  16057. + M2@```"H````````#[X8```%?7W5S`````@```'X````4A@```U]?5T)E;F-H
  16058. + M37-G``````$````DA@```E]$3U-"87-E`````@```%8````PA@``!%]?4')O
  16059. + M9W)A;4YA;64````````"````H@```%"#```"0&5X:70````````!````\@``
  16060. + M``````/Q`````P````!/4%13``0`0````_(```/J````#T]K```````4````
  16061. + M`````````````````&-O;G-O;&4Z```E<SH@``!I;G1U:71I;VXN;&EB<F%R
  16062. + M>0```````^P````!`````0```!0````````#\@```^D````'2.<@`B(O``Q!
  16063. + M[P`0)`@L;```3J[_'$S?0`1.=0```^^&```"7T1/4T)A<V4````!````$```
  16064. + M``````/Q`````P````!/4%13``0`0````_(```/I````#R!O``0O#2I(*JP`
  16065. + M`$'M``0J7T[Z```@;P`$("\`"$CG`00N`"I((!5.N@``0>T`!"`'3-\@@$[Z
  16066. + M`````````^^&```#7U]S:6=?;6%S:P```````0````J#```"0%]S971J;7``
  16067. + M```!````%(,```-`<VEG<V5T;6%S:P`````!````*H,```-`7VQO;F=J;7``
  16068. + M```````!````.`````````/Q`````P````!/4%13``0`0````_(```/I````
  16069. + M!R!O``0@+P`(+P`O+```+PA.N@``3^\`#'``3G4```/OA@``!%]?<WES=&5M
  16070. + M7VYA;64````````!````#(,```)?<W1R;F-P>0````$````2`````````_$`
  16071. + M```#`````$]05%,`!`!````#\@```^D````I(&\`!)[\`%1(YS@6*D@@#6<D
  16072. + M2A5G("!-2AAF_%.(D<TB""!-<`).N@``0>P``'`"(@!.N@``("P``&\2L*P`
  16073. + M`&X,Y8!![```)G`(`&`L4H!F)"(L``!![P`;)@@L;```=`!X44ZN_BQ*0&<$
  16074. + M)D-@"D?L``1@!$?L``@@2TH89OQ3B)'+(@@@2W`"3KH``$'L`!QP`G(!3KH`
  16075. + M`$S?:!S>_`!43G4```/X````!`````$```"0````>````'(````L````````
  16076. + M`^^#```"0'=R:71E```````$````F````(P````T````*(8```)?97)R;F\`
  16077. + M``````$````XA@```U]S>7-?;F5R<@````````$````^A@```U]S>7-?97)R
  16078. + M;&ES=`````$```!&A@```E]?3U-%4E(``````0```%2&```"7T1/4T)A<V4`
  16079. + M```!````7@````````/Q`````P````!/4%13``0`0````_(```/J````"#H@
  16080. + M```T,@``56YK;F]W;B!E<G)O<B!C;V1E```*```````#\@```^D````````#
  16081. + M\0````,`````3U!44P`$``````/R```#Z@```,9N;R!S:6=N86P`:&%N9W5P
  16082. + M``!I;G1E<G)U<'0`<75I=```:6QL96=A;"!I;G-T<G5C=&EO;@!T<F%C92!T
  16083. + M<F%P``!A8F]R=`!E;70@:6YS=')U8W1I;VX`9FQO871I;F<@<&]I;G0@97AC
  16084. + M97!T:6]N``!K:6QL``!B=7,@97)R;W(`<V5G;65N=&%T:6]N('9I;VQA=&EO
  16085. + M;@``8F%D(&%R9W5M96YT('1O('-Y<W1E;2!C86QL`'=R:71E(&]N(&$@<&EP
  16086. + M92!W:71H(&YO(&]N92!T;R!R96%D(&ET``!A;&%R;2!C;&]C:P!S;V9T=V%R
  16087. + M92!T97)M:6YA=&EO;B!S:6=N86P@9G)O;2!K:6QL`'-T871U<R!S:6=N86P`
  16088. + M<V5N9&%B;&4@<W1O<"!S:6=N86P@;F]T(&9R;VT@='1Y`'-T;W`@<VEG;F%L
  16089. + M(&9R;VT@='1Y``!C;VYT:6YU92!A('-T;W!P960@<')O8V5S<P``8VAI;&0@
  16090. + M<W1A='5S(&AA<R!C:&%N9V5D``!B86-K9W)O=6YD(')E860@871T96UP=&5D
  16091. + M(&9R;VT@8V]N=')O;"!T='D``&)A8VMG<F]U;F0@=W)I=&4@871T96UP=&5D
  16092. + M(&9R;VT@8V]N=')O;"!T='D`:6YP=70@<F5C;W)D(&%V86EL86)L92!A="!C
  16093. + M;VYT<F]L('1T>0!E>&-E961E9"!#4%4@=&EM92!L:6UI=`!E>&-E961E9"!F
  16094. + M:6QE('-I>F4@;&EM:70``'5N:VYO=VX@<VEG;F%L``!U;FMN;W=N('-I9VYA
  16095. + M;```=VEN9&]W(&-H86YG960``'5N:VYO=VX@<VEG;F%L``!U<V5R('-I9VYA
  16096. + M;"`Q`'5S97(@<VEG;F%L(#(```````````H````2````'````"(````V````
  16097. + M0@```$@```!8````<@```'@```""````F@```+8```#>````Z@```1````$>
  16098. + M```!0````58```%R```!C````;@```'D```""@```B(```(\```"3````EP`
  16099. + M``)L```"?````HH```/L````(`````$```,4```#$````PP```,(```#!```
  16100. + M`P````+\```"^````O0```+P```"[````N@```+D```"X````MP```+8```"
  16101. + MU````M````+,```"R````L0```+````"O````K@```*T```"L````JP```*H
  16102. + M```"I````J````*<```"F`````````/R```#Z0```#H@+P`$(&\`""(O``PB
  16103. + M;P`064](YP<4+`$N`"I(+TD`%'H`)FP``&`N2H=G""`K``R^@&8@>@%P`;"K
  16104. + M`!1F%BHK``P@#6<$*JL`&"!+3KH``"`%8"HF4TJ39LX(!@``9P1P`&`:2H5F
  16105. + M"G`**4```'#_8`QP`$ZZ``!.N@``8*),WRC@6$].=2!O``0@+P`((F\`#$CG
  16106. + M`10B`'``3-\H@&``_W`@;P`$+PUP`"(`D\DJ7V``_UX@+P`$(&\`""(O``Q(
  16107. + MYP,$+`$N`"I(4H!F`GX`2H=J`D2'(`<B!B!-D\E,WR#`8`#_+``````#[X8`
  16108. + M``-?7W!R;V-E<W-E<P`````!````)(,```-`7V9R965?96YT<GD````!````
  16109. + M3H8```)?97)R;F\```````$```!L@P``!$!?=V%I=%]S:6=N86QS```````!
  16110. + M````=H,```1`7VAA;F1L95]S:6=N86QS`````0```'H````````#\0````,`
  16111. + M````3U!44P`$`$````/R```#Z0```!(@+P`$44](YP,`+@!.N@``(`=.N@``
  16112. + M2H!G(B)`(&D`'"](``P@:0`$<`$B;P`,3I$L`"`'3KH``"`&8`)P_TS?`,!0
  16113. + M3TYU``````/O@P```T!C:&MA8F]R=`````````$````.@P```T!?9FEN9%]F
  16114. + M9`````````$````4@P```T!?9G)E95]F9`````````$````V`````````_$`
  16115. + M```#`````$]05%,`!``````#\@```^D````#(&\`!"`O``A.^@`````#[X,`
  16116. + M``)`<W1R<F-H<@````$````*`````````_$````#`````$]05%,`!``````#
  16117. + M\@```^D````#(&\`!"`O``A.^@`````#[X,```)`<W1R8VAR``````$````*
  16118. + M`````````_$````#`````$]05%,`!``````#\@```^D```!-2.<`!G`(<@`L
  16119. + M>``$3J[_.BI`2H!F!'``8"Y"K0`$2'@`*'``+P!![```<@&3R<%!3KH``%!/
  16120. + M*H!F#")-<`A.KO\N<`!@`B`-3-]@`$YU(&\`!$CG``8J2"`-9Q@@36$``!X@
  16121. + M54ZZ```B37`(+'@`!$ZN_RY,WV``3G4@;P`$2.<`!BI(2JT`!&<4(E4L>``$
  16122. + M3J[^(")53J[^)D*M``1,WV``3G4@;P`$(%`B:``.<``0*0`/<@'AH2`!3G4@
  16123. + M;P`$("\`""(O``Q(YP,&+`$N`"I(8:I*AV8$2H9G'B)5(T<`("-&`"0S?``)
  16124. + M`!PL>``$3J[^,G`!*T``!$S?8,!.=2!O``1(YP`&*DA*K0`$9QPB52QX``1.
  16125. + MKOXL2D!G#B)53J[^)D*M``1P`6`"<`!,WV``3G4```/X`````0````$````H
  16126. + M`````````^^#```$0%]D979I8V5?;W!E;@````````$````R@P``!$!?9&5V
  16127. + M:6-E7V-L;W-E```````!````9@````````/Q`````P````!/4%13``0`0```
  16128. + M`_(```/J````!'1I;65R+F1E=FEC90````````/R```#Z0```!XO#B`L```B
  16129. + M`$A!0D'2@"`L``"S@"E```1"K``(0^P`!'``+'@`!$ZN_=@I0```</].KOZV
  16130. + M2(!(P"E```!*K```9PA*@&L$<`%@`G``*4``#"Q?3G4O#B`L``!K""QX``1.
  16131. + MKOZP("P``&<*(D`L>``$3J[^8BQ?3G4```/X`````P````$```!8````.@``
  16132. + M`!X````&`````@```&8```!.````/@```"P````:````%@````````/OA@``
  16133. + M!%]?<W1A<G1U<%]T:6UE```````!````!(8```%?7W5S`````0```!``````
  16134. + M```#\0````,`````3U!44P`$`$````/R```#Z@````7_____9FEF;RYL:6)R
  16135. + M87)Y`````````_(```/K````!````_(```/I````%B`O``113TCG`P`N`$ZZ
  16136. + M```@!TZZ``!*@&<H(D`@:0`<<D#EB<*1+T@`#"`!(&D`!")O``Q.D2P`(`=.
  16137. + MN@``(`9@`G#_3-\`P%!/3G4@+P`$+P<N'V"N``````/O@P```T!C:&MA8F]R
  16138. + M=`````````$````.@P```T!?9FEN9%]F9`````````$````4@P```T!?9G)E
  16139. + M95]F9`````````$````\`````````_$````#`````$]05%,`!``````#\@``
  16140. + M`^D```!B(&\`!"`O``@B;P`,+V\`$``$+V\`%``(+V\`&``,+V\`'``0+V\`
  16141. + M(``4+V\`)``844](YP<4+@!([P,``!1\`"IL``!@%DJM``1F"C!\``$K2``$
  16142. + M8`Q2AMK\`"2\K``$;>0@+``$O(!F>'(*TZP`!"`L``0B`.>!TH#E@2`!3KH`
  16143. + M`"I`2H!F#'`,*4```'#_8```CG#VT*P`!"(`YX'2@.6!(&P``")-8`(2V%.!
  16144. + M9/H@+```9P8@0$ZZ```I30``>O;:K``$(`7G@-"%Y8#;P)?+*TL`!%*%VOP`
  16145. + M)+JL``1M\"`&YX#0AN6`(&P``"&O`!0(!"&'"``AKP`8"`A+[P`@(9T(#"&=
  16146. + M"!`AG0@42^\`+"&="!@AG0@<(9T(("`&3-\HX%!/3G4@+P`$(@!K%K*L``1L
  16147. + M$"`!YX#0@>6`(&P``$*P"`1.=2`O``1(YP$$+@!K'KZL``1L&"`'YX#0A^6`
  16148. + M*FP``-O`2JT`!&<$(`U@"'`)*4```'``3-\@@$YU("P`!$YU``````/X````
  16149. + M$0````$```&"```!9````58```%````!,@```.P```#>````Q````+X```"R
  16150. + M````I````)@```!R````;@```&0```!>````0@````````/O@P```D!M86QL
  16151. + M;V,``````0```("&```"7V5R<FYO```````"```!=@```(R#```"0&9R964`
  16152. + M```````!````N@````````/Q`````P````!/4%13``0`0````_(```/K````
  16153. + M`@```_(```/I````&B!O``0B;P`(GOP`#$CG(18F22I(3KH``"`+9P8N*P`$
  16154. + M8`B1R$ZZ```N`'#_OH!F!'``8"@@!T'O`!1.N@``(@U![P`4)`@L;```3J[^
  16155. + M=$J`9P1P`&`&3KH``'#_3-]HA-[\``Q.=0`````#[X,```-`8VAK86)O<G0`
  16156. + M```````!````%H,```)`=&EM90````````$````F@P```T!?9VUT,F%M:6=A
  16157. + M``````$````\A@```E]$3U-"87-E`````0```$B#```"0%]S971E<G(````!
  16158. + M````6`````````/Q`````P````!/4%13``0`0````_(```/I````!R!O``0B
  16159. + M;P`(("\`#"\+)DDB2"!+)E].^@````````/O@P```D!M96UM;W9E`````0``
  16160. + M`!@````````#\0````,`````3U!44P`$``````/R```#Z0```%(@;P`$(F\`
  16161. + M"%%/2.<!%"9)*DA.N@``0>\`#$ZZ```@#6<(0>\`#"K8*M@@"V<``-)![P`,
  16162. + M3KH``"!`("@`)$2`<CQ.N@``)H!^`"!L``1#[```$!BP&68,2@!F]F8&?@1@
  16163. + M``":(&P`!$/L``@0&+`99@Q*`&;V9@9^`V```(`@;``$0^P`$!`8L!EF"DH`
  16164. + M9O9F!'X%8&8@;``$0^P`&!`8L!EF!DH`9O9G4"!L``1#[``<$!BP&68&2@!F
  16165. + M]F<\(&P`!$/L`"`0&+`99@9*`&;V9R@@;``$0^P`)!`8L!EF!DH`9O9G%"!L
  16166. + M``1#[``H$!BP&68(2@!F]F8"?@$G1P`$<`!,WRB`4$].=2!O``2>_``0+PTJ
  16167. + M2$'O``Q#[P`$80#^Z"JO``P@+P`00^T`!#+`("\`!#+`("P``#+`<``J7][\
  16168. + M`!!.=0`````#^`````@````!````[````-@```#$````L````)P```"$````
  16169. + M:@```%`````````#[X,```-`8VAK86)O<G0````````!````%(,```-`7V=E
  16170. + M='1I;64````````!````'(,```-`;&]C86QT:6UE```````!````-H,```)?
  16171. + M7T-81#,S``````$```!$A@```E]T>FYA;64`````"````.@```#4````P```
  16172. + M`*P```"8````@````&8```!,A@```U]D87EL:6=H=`````````$```$X````
  16173. + M`````_$````#`````$]05%,`!`!````#\@```^H````,3454($135`!7150@
  16174. + M1%-4`$5%5"!$4U0`1414`$-$5`!-1%0`4$14`$%+1%0````````#\@```^D`
  16175. + M```P(&\`!$CG``8J2"QL``!.KO^^!I4/##\`<`!,WV``3G4@+P`$(&\`"%E/
  16176. + M!(`/##\`(CP``5&`+H!.N@``((`@%R(\``%1@$ZZ```@`2Z!<CQ.N@``(4``
  16177. + M!"`7<CQ.N@``(`'E@)"!YX#0@="`(4``"%A/3G4@;P`$64](YR`$2]`@'2(`
  16178. + MZ8&2@"`!YX#0@2(`Y8'2@.^!(!TD`.F"E(#E@B`=+T$`"'(R3KH``-""T*\`
  16179. + M"`:`#PP_`$S?(`183TYU```#[X8```-?5&EM97)"87-E```````!````#(,`
  16180. + M``)?7T-81#,S``````4```"J````7@```%(```!(````.@````````/Q````
  16181. + M`P````!/4%13``0`0````_(```/I````"R`O``193RZ`0>P`!"`(6$].=2!O
  16182. + M``193RZ(0>P`!"`(6$].=2`L``1.=0`````#^`````,````!````)@```!P`
  16183. + M```*`````````_$````#`````$]05%,`!`!````#\@```^H````)````````
  16184. + M``````````$````````````"```````````````````#[`````(````!````
  16185. + M%`````@````````#\@```^D````J(&\`!")O``@@+P`,64](YS\V+@`J2"])
  16186. + M`"B7RTZZ```B#20++&P``$ZN_7XF0"("3J[]>"`+9@9.N@``8%XD;P`H0A(J
  16187. + M!U*%(A,D*P`$)@TH"BQL``!.KOY*2H!G&"(+3J[]>$H29@1P`F`L+P1.N@``
  16188. + M6$]@*$ZN_WPL`'(R1@&P@68(""L``0`+9I0B"TZN_7@@!DZZ```I0```</],
  16189. + MWVS\6$].=0`````#[X,```-`8VAK86)O<G0````````!````'H8```)?1$]3
  16190. + M0F%S90````(```!4````)H,```)`7W-E=&5R<@````$````Z@P```E]S=')L
  16191. + M96X``````0```'"#```$0&-O;G9E<G1?;W-E<G(```````$```"6A@```E]E
  16192. + M<G)N;P```````0```)H````````#\0````,`````3U!44P`$`$````/R```#
  16193. + MZ0```"Q93TJL`!)F#$'O``,I2``28>Y@%D'O``,B;``2L\AD!'`!8`)P_RE`
  16194. + M``!83TYU64](YP$4+B\`%$JL``!F`F'`*FP`%F`N("P``&\,0>\`#R)M``2S
  16195. + MR&(02H!J'$'O``\B;0`$L\AD$"95+PU.N@``6$\J2R`-9LXI30`62H=F!'``
  16196. + M8")0AR\'3KH``"!`(*P`%D/O`!,A20`$0^@`"%A/*4``%B`)3-\H@%A/3G4`
  16197. + M`````_@````'`````0```*(```"0````>@```$(````:````#@````0````#
  16198. + M`````@```$@````Z````*`````````/O@P```E]F<F5E`````````0```&Z#
  16199. + M```"7VUA;&QO8P`````!````B@````````/Q`````P````!/4%13``0`0```
  16200. + M`_(```/J````!T`H(REA;&QO8V$N8PDQ+C$```````````````````/R```#
  16201. + MZP````$```/R```#Z0```#8@;P`$64](YR,"(@@L;```=/Y.KO^L+T``$&<Z
  16202. + M+BP``$ZZ```L`&`>2&\`$$AX"`4O!DZZ``!/[P`,2H!F""E'``!P`&`24X9L
  16203. + MWB(O`!`L;```3J[_IG#_3-]`Q%A/3G4@;P`$2.<A!BI(3KH``"(-+&P``$ZN
  16204. + M_[A*@&<$<`!@4$ZN_WPN`')OTH&P@68@(@UT`$ZN_T9*@&<.(@U.KO^X2H!G
  16205. + M!"`"8"A.KO]\+@!P9="`OH!F#B!-80#_2DJ`9@1P`&`,(`=.N@``*4```'#_
  16206. + M3-]@A$YU``````/OA@```E]$3U-"87-E`````P```'(```!0````#H8```)?
  16207. + M97)R;F\```````,```#,````0````!Z#```#0%]L87-T7V9D`````````0``
  16208. + M`"*#```"7VEO8W1L```````!````-(,```-`8VAK86)O<G0````````!````
  16209. + M;(,```1`8V]N=F5R=%]O<V5R<@```````0```,@````````#\0````,`````
  16210. + M3U!44P`$`$````/R```#Z0```AI(YP`&<"(B/``!``$L>``$3J[_.BI`2H!F
  16211. + M!'``8"`;?``$``A-[0`.0AX@+```',`L[```0>T`%$ZZ```@#4S?8`!.=2!O
  16212. + M``0O#B)(<"(L>``$3J[_+BQ?3G4@;P`$2.<`!BI(("T`(&<*+&P``'(`3J[_
  16213. + MW"`M`"1G#"QL``!R0.&)3J[_W"`M`#1G!B!`3KH``"`M`#AG!B!`3KH``"!M
  16214. + M`#QAI"!-3-]@`$[Z``!(YP(&+`$J2$J`9Q0@+0`@(BT`-"QL```P?``!3J[_
  16215. + MRDJ&9Q0@+0`D(BT`."QL```P?``"3J[_RG`!(BP``..@3-]@0$YU2.<#-B9)
  16216. + M*D@N$R!O`!PL$&`4(&T`-+'*9@1^`&`(M>T`.&8"?``@;0`\+'@`!$ZN_HPD
  16217. + M0$J`9MI*AV<60I,@+0`@(BT`-"QL```P?``#3J[_RDJ&9U(@;P`<0I`@+0`D
  16218. + M(BT`."QL```P?``#3J[_RF`V<`$B+```XZ`L>``$3J[^PB!M`#PL>``$3J[^
  16219. + MC"1`2H!GWB!M`#2QRF8$?@!@"+7M`#AF`GP`2H=FUDJ&9M)P`2(L``#CH"(`
  16220. + M<``L>``$3J[^SDS?;,!.=5E/2.<#%BX`)DDJ2&```(9"K0`L""T``@`S9PQP
  16221. + M(RE```!P_V```*PL;```<@%.KO\Z("T`("(M`#0L;```,'P``4ZN_\H@;0`\
  16222. + M<``0*``/<@'AH2`!3KH``"P`("T`("(M`#0P?``#3J[_RF`0<`$B+```XZ`L
  16223. + M>``$3J[^PB!M`#PL>``$3J[^C$J`9^`@!DZZ```@+0`@0>\`%"(((&T`+"QL
  16224. + M``!.KO_6+`!G`/]B(`92@&8"?`"\AV,"+`<@!B!O`!1@`A;84X!D^B`&*T``
  16225. + M+$S?:,!83TYUGOP`2$CG#Q8N`"I()DDO20`<2H=F``"*("T`)"QL``!R0.&)
  16226. + M3J[_W"!-0^\`(!+89OQ![P`@0^P``$ZZ```@34/O`$(2V&;\0>\`0D/L``1.
  16227. + MN@``""T````S9P@(+0`/`#)G!D'O`"!@!$'O`$(@"')`Z8D@?```C@!.KO_B
  16228. + M*T``)&<``.PL;```3J[_Q$J`:@)2@.*`*T``*'``8```X$JM`"1G``#*+"T`
  16229. + M*'H`8```M+R'8P``CBP'8```B`@M``(`,V<02H5G!B`%8```L'`C8```I"`M
  16230. + M`"0B+0`X+&P``#!\``).KO_*(&T`/'``$"@`#W(!X:$@`4ZZ```H`"`M`"0B
  16231. + M+0`X,'P``TZN_\I@$'`!(BP``..@+'@`!$ZN_L(@;0`\+'@`!$ZN_HQ*@&?@
  16232. + M(`1.N@``2H!G"$J%9P0@!6`Z("T`)"(+($8L;```3J[_T"@`9P#_9DJ$:Q+:
  16233. + MA)Z$U\1P`+Z`8@#_2"`%8`YP#4ZZ``!P("E```!P_TS?:/#>_`!(3G6>_``,
  16234. + M2-<!`W`=*4```'#_WOP`#$YU64\N@&$`_")P`%A/3G6>_``L2.<@%B9)*DA*
  16235. + M@&<2!(````@!9R)3@&<``)Q@``"J2I-G"`CM``(`,V`&"*T``@`S<`!@``":
  16236. + M<`/`K0`P5X!F*`@M``\`,F<&0>P`&&`$0>P`&B\(+PU(;``(2&\`'$ZZ``!/
  16237. + M[P`08"H(+0```#-G$"\-2&P`'$AO`!A.N@``8`XO#4AL`"9(;P`83KH``$_O
  16238. + M``Q![P`0(@@L;```)#P```/M3J[_XB:`9P1P`&`@3KH``&`8(!-G"B(`+&P`
  16239. + M`$ZN_]QP`&`(<!8I0```</],WV@$WOP`+$YU(&\`!"`O``@B+P`,+V\`$``$
  16240. + MGOP`3$CG#S8J+P!P+`$N`$*O`&B;S9?++T@`('!`3KH``"1`2H!G``&@80#Z
  16241. + MHB]``&AG``&4<!1.N@``*D!*@&<``89P%$ZZ```F0$J`9P`!>'`%&T``""!O
  16242. + M`&@K2``.<A0[00`2%T``""=(``XW00`2)4@`/"5-`#0E2P`XD<@E2``D)4@`
  16243. + M("5(`#!*AV<&".H````S2H9G!@CJ``$`,TAZ_G!(>OY>2'K^1$AZ_+A(>OO:
  16244. + M2'K[#"`J`#`@2D/Z^KQ.N@``3^\`&"@`9P``\$J%9P8(Z@`/`#(@;P`@(DH2
  16245. + MV&;\($I#[P`D$MAF_$'O`"1#[``T3KH``"!*0^\`1A+89OQ![P!&0^P`.$ZZ
  16246. + M``!*AV<H2H9G!$J%9@9![P`D8`1![P!&(`@L;```<D#IB3!\#0!.KO_B)4``
  16247. + M($J&9RI*AV<$2H5G!D'O`"1@!$'O`$8@""QL``!R0.F)('P``(X`3J[_XB5`
  16248. + M`"1*J@`@9@1*AV8J("H`)&8$2H9F($J`9Q0L;```3J[_Q$J`:@)2@.*`)4``
  16249. + M*$*J`"P@!&!8("H`(&<*+&P``'(`3J[_W"`J`"1G"BQL``!R`$ZN_]Q*A&L&
  16250. + M(`1.N@``(`UG!B!-3KH``"`+9P8@2TZZ```J;P!H(`UG!B!-80#Y+B`*9P8@
  16251. + M2DZZ``!P_TS?;/#>_`!,3G4@;P`$GOP`("\-*DA.N@``2JP``&8(<`8I0```
  16252. + M8&@@+```4JP``"(L``#2@"\!2&P`/$AO``Q.N@``<``N@$'O`!!R`<%!80#]
  16253. + MN$_O``PJ@<<``O`$'O``AR`6$`_:)83RM```1K!'``8!P@%4ZZ``!*@&<*
  16254. + M($`@:``$80#XKB`53KH``'#_*E_>_``@3G4@+P`$(B\`""]O``P`!"!O`!">
  16255. + M_``H+PTJ2$CO``,`!$ZZ``!*K```9@AP!BE```!@:"`L``!2K```(BP``-*`
  16256. + M+P%(;`!(2&\`%$ZZ``!P`2Z`(@!![P`8P4%A`/T43^\`#"J`:S1"IT'O`!!P
  16257. + M`2(`80#\_EA/*T``!&L$<`!@'"`53KH``$J`9PH@0"!H``1A`/@*(!5.N@``
  16258. + M</\J7][\`"A.=0`````#^`````L````!```(!@``!V(```8\```&)@``!,P`
  16259. + M``2\```$H```!)@```22```"Y@```M`````````#[X8```-?7V9I9F]?<VEG
  16260. + M```````&```#K@```C````&H```!:@```.H````LA@```5]?=7,````!````
  16261. + M,H,```)`3F5W3&ES=`````$````ZA@```U]?1FEF;T)A<V4``````!$```;H
  16262. + M```&V```!K8```:(```&7````^8```-X```#(````K8```)B```!^@```5H`
  16263. + M``$\````W````,0```!\````;(,```)`9G)E90````````8```<D```'#```
  16264. + M!P(```"L````G````)"&```"7V5R<FYO```````&```'\```!TP```42```$
  16265. + M+```!!(```'>A@```E]$3U-"87-E`````P``!00```3B```!Z(,```1`7W=A
  16266. + M:71?<VEG;F%L<P```````@```Y0```(6@P``!$!?:&%N9&QE7W-I9VYA;',`
  16267. + M```"```#S@```E"#```"0'-T<F-A=``````$```&0```!BH```+J```"U(,`
  16268. + M``1`7W-I9U]D:7-P871C:````````0``!`R#```#7U]S<')I;G1F````````
  16269. + M!0``"`X```=J```$U```!,0```2H@P```D!?<V5T97)R`````0``!/B#```"
  16270. + M0&UA;&QO8P`````#```%>@``!6P```52@P```T!?86QL;V-?9F0```````$`
  16271. + M``7V@P```T!?9G)E95]F9`````````,```A:```'M@``!OB#```#0&-H:V%B
  16272. + M;W)T`````````@``!^0```=`A@```U]?9FEF;U]O:P````````(```?H```'
  16273. + M1(8```1?7V9I9F]?;V9F<V5T````````!```!_H```?V```'5@``!U*&```#
  16274. + M7U]F:69O7V)A<V4``````@``!_X```=:@P```T!?9FEN9%]F9`````````(`
  16275. + M``A&```'H@````````/Q`````P````!/4%13``0`0````_(```/J````%5]M
  16276. + M``!?<P``9FEF;SHE<R]R=V5S2R5S`&T```!F:69O.B5S+W(`9FEF;SHE<R]M
  16277. + M=V5+``!?;0``7W,``'5X9FEF;RXE;'@``'5X9FEF;RXE;'@``````_(```/I
  16278. + M````"2`O``193RZ`0>P`%B`(6$].=2!O``193RZ(0>P`%B`(6$].=0```_@`
  16279. + M```"`````0```!P````*`````````_$````#`````$]05%,`!`!````#\@``
  16280. + M`^H````)=7-E<@````````````!W:&5E;`````````X````4```````&```#
  16281. + M[`````0````!````(````!H````6````!@````````/R```#Z0```*D@+P`$
  16282. + M64\N@"`L`0QG#B!`3KH``$J`9P1R`6`"<@`@`5A/3G4@+P`$(&P!#'(`3OH`
  16283. + M`$ZZ```I0`$,9@I(;```3KH``%A/(&P!#$ZZ``"!K```3G4@;`$,3OH```CL
  16284. + M``P``DYU("\`!`@```Q6P$0`2(!(P$YU".P`#0`"3G4@+P`$"```#5;`1`!(
  16285. + M@$C`3G5.N@``<``@;```$"@`#W(!X:&#K```3G5.^@``("\`!%E/2.<!%B]`
  16286. + M`!!^`&`N("T`%$ZZ```F0$J`9Q1*JP`49@Y^`7`!)T``%"=M`!@`&")-<!PL
  16287. + M>``$3J[_+B!L```L>``$3J[^C"I`2H!FP"`'3-]H@%A/3G4@+P`$2.</!"X`
  16288. + M<`'OH"P`<`F^@&8&<`!.N@``("P!!,"&9P:-K`$(8'HJ!D:%RZP!"$J':V9P
  16289. + M(+Z`;&`@!^>`0>P`!"IP"``P?``!N\AF+"`'58!G%%.`9Q!R#9"!9SQ9@&<X
  16290. + M48!G-&`*2&P`&$ZZ``!83W``3KH``&`@(`UG'"`'YX`H!D'L``2(L`@$B:P!
  16291. + M!"`'3I5&A,FL`00@+`$(P(9FBDS?(/!.=2`O``0O#B(L``""@'``+'@`!$ZN
  16292. + M_LXL7TYU("\`!"\.(@`@+```@($L>``$3J[^PBQ?3G4@+P`$2.<#`"X`?`!A
  16293. + M`/X02H!G"'P!<`YA`/\,(`=A`/YB2H!G"'P!<`)A`/[Z(`=A`/YJ2H!G"'P!
  16294. + M<`-A`/[H(`=A`/Z&2H!G"'P!<!1A`/[6(`9,WP#`3G4@+P`$+P<I0```<`@N
  16295. + M'V``_KQP`&$`_V!@D&#V2.<!%'X`2^P`!#9\``$JBT*M``12AU"-<""^@&WP
  16296. + M0JP!"$*L`01"K```80#]U&$`_>IA`/VB3-\H@&``_?AA`/VX8`#^"``````#
  16297. + M^`````(````!```!=````#X````7`````@```H0```*````"?````F0```'6
  16298. + M```!N@```:8```&B```!F````9````%*```!.````2X```$F````I````'H`
  16299. + M``!@````5@```%````!(````.````"H````*`````````^^#```$0%]T:6UE
  16300. + M<E]E>'!I<F5D``````$````2@P``!$!?=&EM97)?<W1A<G0````````!````
  16301. + M,(,```1`7V%L;&]C7W1I;65R`````````0```#2#```"7U]F86EL```````!
  16302. + M````0H,```-`7W1I;65R7W-I9P`````!````3(,```-`7V9R965?=&EM97(`
  16303. + M```!````6H,```1`7VEN:71?<')O8V5S<V5S`````0```)*&```$7U]C:&EL
  16304. + M9')E;E]E>&ET``````(```#N````F(,```5`7V-L96%N=7!?<')O8V5S<V5S
  16305. + M``````$```"J@P```T!?9FEN9%]P:60```````$```#$@P```D!?7V5X:70`
  16306. + M`````@```8````$B@P```U]?;65S<V%G90````````$```%XA@```E]?1E!%
  16307. + M4E(``````0```D@````````#\0````,`````3U!44P`$`$````/R```#Z@``
  16308. + M``I&86EL960@=&\@8W)E871E('1I;65R``!U<V5R(&EN=&5R<G5P=``````#
  16309. + M\@```^L```!$```#\@```^D```(=2&P`!$ZZ``!83TYU("\`!"\-3KH``"I`
  16310. + M2H!F`F'B(`TJ7TYU(&\`!"`O``@O"TZZ```F0$J`9@)AQB`+)E].=2!O``0O
  16311. + M#2I((`UF!$OL``X@34H89OQ3B)'-(`A2@$ZZ```@0$J`9@1P`&`((D@2W6;\
  16312. + M(`@J7TYU64](YP,T?@!\`"!L```F:`#08"Q**P`(9B0P/`4`P&L`#F8:4H<@
  16313. + M:P`*(`A*&&;\4XB1P"`(W(#<JP`45(8F4TJ39M`@!U*`Y8#0AF$`_THI0``8
  16314. + MY8<@0")`T\=%Z0`$+T``%&8*0>P``"E(`!A@5B!L```J:`#08$)*+0`(9CHP
  16315. + M/`4`P&T`#F8P)FT`"BXM`!0@;P`4(,HO2``48`(4VTH39OH4_``])FT`$&`"
  16316. + M%-L@!U.'2H!F]D(:*E5*E6:Z(&\`%$*03-\LP%A/3G4@;P`$("\`""\-*D@J
  16317. + M@$*M``3E@&$`_K0K0``(*E].=2!O``0B;P`(("\`#$CG(C0F22I(2H!G"B!+
  16318. + M80#^PB1`8`(D2R`*9SXB%20M``2T@6TB+`'<AG00TH*\@6T"(@8J@2`!Y8`@
  16319. + M;0`(3KH``"M```AG$D?M``0B$U*;Y8$@6R&*&`!P`4S?+$1.=2!O``0B;P`(
  16320. + M("\`#&&22H!F!&$`_AI.=2!O``0B;P`(2.<`%"9)*D@@+0`$T*L`!+"5;Q+0
  16321. + M@"J`Y8`@;0`(80#^&BM```@B+0`$Y8$@;0`(T<$@*P`$(@#E@2)K``A@`A#9
  16322. + M4X%D^M&M``0@:P`(3-\H`$[Z```@;P`$(F\`""]O``P`!"`O`!`B+P`464](
  16323. + MYP(T+`$J221(+T@`$$J`9T13@&<*4X!G``"V8```]%.&9R(@+P`8(@V0@2!O
  16324. + M`!!",`@`($$B;P`08`(2V%.`9/I@``#.0>P`$")O`!`2V&;\8```OB9O`!A@
  16325. + M;G!<L!5F9DHM``%G8%2-<`&\@&8&%/P`86!4(`95@&9&$"W__TB`2,!R(Y"!
  16326. + M9RY5@&<J58!G)E.`9R)3@&<>4X!G&G(5D(%G%'(<D(%G#E6`9PIR'Y"!9P15
  16327. + M@&8$%/P`)Q3M__]@"!3M__]@`A3=N\MECF!`)F\`&&`V<"JP%68N2BT``6<H
  16328. + M5(T0+?__2(!(P')ED(%G#'()D(%F#!3\``I@#A3\`!M@"!3M__]@`A3=N\ME
  16329. + MQD(23-\L0%A/3G6>_`$L2.<_-BIO`5@@;```#&@`)0`49`I(>``43KH``%A/
  16330. + M0JP`''`!*4``&"E``#YP`BE``#HI0`!@*7P```"$`%R3R2QX``1.KO[:*4``
  16331. + M`$ZZ```I0``$9@I(;``23KH``%A/(&P`!$ZZ```I0``(+&P`!"!6+&@`%"E.
  16332. + M`!1![P$P3J[_OBEO`3``#$ZZ``!.N@``(&P``"`H`*QG$.6`(D`B*0`TY8$I
  16333. + M00`08`8I:`"$`!!*%68``.A![``J(@@L;```)#P```/N3J[_XBP`0>P`,"((
  16334. + M3J[_XBX`0>P`-B((3J[_XBH`2H9G"$J'9P1*A68B2H9G!B(&3J[_W$J'9P8B
  16335. + M!TZN_]Q*A6<&(@5.KO_<80#[<G`!+P`O!2\`+P<B!L%!3KH``"!L```@*``<
  16336. + M0>\!6&$`_)Y/[P`0?`!^`&!0(FP``"!I`"0@,'@`9SXB`$/O`#`D"2QL``!V
  16337. + M0.6+3J[^;DJ`9R8B;```(&D`)-''("@`!&<((@(D`$ZN_(Y![P%(0^\`,'`!
  16338. + M80#\V%*&4(<@;```O*@`'&VF8``"S"QL``!.KO_**`!.KO_$*@!^`"!L```L
  16339. + M*`#@9BA^`4'L`#PB""0\```#[4ZN_^(L`&820>P`/B((3J[_XBP`9@1A`/JD
  16340. + M+P<O!G``+P`O!2($P4%.N@``0>\!6'`!80#[UB`\```%&F$`^HX@0#%\!```
  16341. + M$B]``#QP0.6(80#Z>D_O`!!^0.6/+T`!.&`"4HT0%4B`2,!![``!"#```P@`
  16342. + M9NP0%6<``A9R(K`!9C!2C29-8!!P*K`59@A*+0`!9P)2C5*-$!5G!G(BL`%F
  16343. + MYB1-$!5R(K`!9@)2C7P"8%1P)[`59B!2C29-8`)2C1`59P9R)[`!9O0D37`G
  16344. + ML!5F`E*-?`%@+B9-8!!P7+`59@A*+0`!9P)2C5*-$!5G$G(@L`%G#'(*L`%G
  16345. + M!G()L`%FVB1-?``@2RH*FHL@!5*`+T@`*&$`^;8F0$JO`4QF("`%($LB;P`H
  16346. + M3KH``$(S6`!![P%((DMP`&$`^V!@`/\FVH5R$-J!NH=O%"!O`3A.N@``(`5A
  16347. + M`/EV+@4O0`$X+PH@!B!+(F\`+'(!80#[KEA/(@LD+P$X)@<L;```3J[\N"H`
  16348. + M;!!"$B\O`"A(;`!$3KH``%!/2H5F(B\*(`8@2R)O`"QR`&$`^W1![P%,(DMP
  16349. + M`&$`^NA83V``_JQZ`2!O`"Q"J``(0B@`$4(H`!`O"B`&($LB;P`L<@)A`/M`
  16350. + M0>\!0'`080#Z)EA/(@LD+P`L+&P``$ZN_,HH`&8\8"IZ`")O`"S2_`$80>\!
  16351. + M/'`!80#Z($J`9@1X9V`2(B\`+"QL``!.KOS$*`!*A&?2(B\`+"QL``!.KOR^
  16352. + M<'30@+B`9PI(;`!83KH``%A/2H5G(B\*(`8@2R)O`"QR`&$`^L!![P%,(DMP
  16353. + M`&$`^C183V``_?@@+P%`(&\!1$ZZ``!![P%(0^\!/&$`^BH@2TZZ``!@`/W6
  16354. + M(&\!.$ZZ```@;P`L3KH``&$`^))![`!R3KH``"E```!F"$'L`'@I2```0>P`
  16355. + M?DZZ```I0``49@8I;````!1![`"(3KH``"E``!AF"$'L`(XI2``80>P`DDZZ
  16356. + M```I0``<9@A![`"8*4@`'$'L`*!.N@``*4``'&8(0>P`JBE(`!P@+P%,(&\!
  16357. + M4")L`!A.N@``<`!.N@``3-]L_-[\`2Q.=0```_@````5`````0``"$X```A`
  16358. + M```(.```""H```@B```(%```"`````?X```'Z@``!X0```;0```%3@``!3H`
  16359. + M``18```$3```!#8```/6```"J````.````!.`````@```!(````"```(7@``
  16360. + M"%(```A(```%+@``!"P```0D```$$```!`0```/V```#[````^@```/@```#
  16361. + MT````\@```#J````Y````,H```"$`````````^^#```"7U]F86EL```````$
  16362. + M```'B```!M0```/:````!H,```)`;6%L;&]C``````(```!@````%(,```)`
  16363. + M<F5A;&QO8P````(```&R````,(,```)`9G)E90````````4```?B```'V@``
  16364. + M!\X```:4```"1H8```)?4WES0F%S90````$```.(@P```E]?6$-%6$E4````
  16365. + M`0```YB&```"7U]?:6]B```````&```#N@```[(```.N```#J````Z0```.>
  16366. + M@P``!$!?86QL;V-?=&EM97(````````!```#S(,```-`7W1I;65R7W-I9P``
  16367. + M```!```#Y(,```-`7VEN:71?9FEF;P`````!```$"(,```1`7VEN:71?<VEG
  16368. + M;F%L<P```````0``!`R&```"7T1/4T)A<V4````'```'=```!V(```<T```&
  16369. + MO@``!1P```34```$/(,```1`7VEN:71?=6YI>&EO`````````@``!6X```2@
  16370. + MA@```U]?5T)E;F-H37-G``````0```4.```$Y```!+X```2DA@```E]?7V-T
  16371. + M>7!E`````0``!;"#```"0'-T<FYC<'D````!```&;H,```)`='%S;W)T````
  16372. + M``$```>\@P```T!?7V=E=&5N=@````````4```A$```(+@``"!@```@$```'
  16373. + M[H8```-?7V%M:6=A7W5S97(````)```(/```"#(```@F```('```"!````@.
  16374. + M```("```!_P```?R@P```D!M86EN`````````0``"&*#```"0&5X:70`````
  16375. + M```!```(:`````````/Q`````P````!/4%13``0`0````_(```/J````+```
  16376. + M``!.;R!M96UO<GD```!A`$9A:6QE9"!T;R!C<F5A=&4@=&EM97(``$Y)3#H`
  16377. + M`$Y)3#H``$Y)3#H``"H`3DE,.@``26YV86QI9"!W:6QD8V%R9"`E<P!%<G)O
  16378. + M<B!E>'!A;F1I;F<@87)G=6UE;G1S`%5315(``'5S97(``%5315).04U%``!(
  16379. + M3TU%``!S.@``4TA%3$P`8FEN.G-H``!(3U-43D%-10``86UI9V$````#\@``
  16380. + M`^L````(```#\@```^D````$("\`!%E/+H!P`%A/3G4``````_$````#````
  16381. + M`$]05%,`!``````#\@```^D````^("\`!$CG`P`N`$JL``!G!"`'8&!\`"`'
  16382. + M`H````$D9P)\"`@'``=G!`!&``4(!P`$9P0(Q@`""`<``6<$",8```@'``-G
  16383. + M!`C&``$(!P``9P0(Q@`&(`=R2<"!<D"P@68$`$8`0@@'``EG!`C&``4@!@I`
  16384. + M``],WP#`3G4@+P`$2.<&`"P`2JP``&<((`8"0`__8%YZ``I&``\(!@`#9P1Z
  16385. + M2>6-(`9R!<"!6X!F!`C%``<(!@`"9P0(Q0`$"`8``&<$",4``2`&<D+`@6<$
  16386. + M",4`!@@&``%G!`C%``,(!@`&9P0(Q0``"`8`!6<$",4`"2`%3-\`8$YU````
  16387. + M``/X`````@````$```"&````#`````````/Q`````P````!/4%13``0`0```
  16388. + M`_(```/K`````0```_(```/I`````G``3G5P`$YU```#\0````,`````3U!4
  16389. + M4P`$``````/R```#Z0```!5(YP,`3KH``"X`?`!@"B\&3KH``%A/4H:\AVWR
  16390. + M3-\`P$YU("\`!"\'+@!AU$ZZ``!.N@``(&P``$ZZ```O!TZZ``!83RX?3G4@
  16391. + M+P`$+P<N'V#4``````/O@P```T!?;&%S=%]F9`````````$````&@P```E]C
  16392. + M;&]S90```````0```!*#```$0%]C;&5A;G5P7V9I9F\```````$````N@P``
  16393. + M!4!?8VQE86YU<%]S:6=N86QS`````````0```#*&```#7U]O9&1?=&EM97(`
  16394. + M`````0```#:#```#0%]F<F5E7W1I;65R`````0```#J#```"7U]80T58250`
  16395. + M```!````0`````````/Q`````P````!/4%13``0`0````_(```/I````$R`O
  16396. + M``0B+P`((&\`#%%/2.<#)"P!+@`J2$ZZ```@!TZZ``!*@&<:(D`@:0`@+T@`
  16397. + M%"`&(&D`!")-)&\`%$Z28`)P_TS?),!03TYU``````/O@P```T!C:&MA8F]R
  16398. + M=`````````$````:@P```T!?9FEN9%]F9`````````$````@`````````_$`
  16399. + M```#`````$]05%,`!``````#\@```^D```"8GOP`#$CG+S8J;P`T?@/.KP`X
  16400. + M?`$@;```)F@`N"H\```#[$ZZ``!*AV<*<`*^@&<$<@!@`G(!+T$`*'`!OH!G
  16401. + M"%6'9P1P`&`"<`$O0``L($U#[```3KH``$J`9@9X_V```51P_R!L```A0`"X
  16402. + M(@TL;```=/Y.KO^L+@`@;```(4L`N$J`9G@L;```3J[_?$ZZ```L`"`L``!R
  16403. + M+D8!L(%G!$J`9@I^`2H\```#[F`6(`95@&8,""\`"``Z9P1P`6`"<``N`$J'
  16404. + M9RQ\``@O``@`.F<<""\`#P`Z9P9X`F```-8@+P`\3KH``"@`8```R'C_8```
  16405. + MPBE&``!P_V```4)"IRQL``!R`B0/3J[_'$_O``0D0$J`9PPB!R0*3J[_FDJ`
  16406. + M9A8@"F<()`IR`DZN_Q9.N@``</]@``$(*"H`="0*<@).KO\6(@=.KO^F<%#I
  16407. + MB,"O`#@,@```!0!F#'`1*4```'#_8```VDJO`"AG!@@$``-F#$JO`"QG$@@$
  16408. + M``)G#'`-*4```'#_8```M@@O``D`.F<B(@TD/````^Y.KO_B2H!G""(`3J[_
  16409. + MW&`*3KH``'#_8```C`@O``@`.F<$(`5@!B`\```#[20`(@TL;```3J[_XBH`
  16410. + M9@A.N@``</]@8`@O``D`.F8$2H9F!"P$8`)\_WX`2J\`*&<"?@%*KP`L9P0(
  16411. + MQP`!""\``P`[9P0(QP`#+P<@!2(&3KH``%A/+@!L''#_(&P``"%``+@B!2QL
  16412. + M``!.KO_<(&P``"%+`+@@!TS?;/3>_``,3G4@;P`$+R\`#"\O``PO"&$`_:A/
  16413. + M[P`,3G4```/X`````0````$```!2`````````^^&```!7U]U<P````4```(V
  16414. + M```")````'P```!F````%H,```-`8VAK86)O<G0````````!````)(,```)`
  16415. + M<W1R:6-M<`````$```!6A@```E]$3U-"87-E````!0```BX```',```!`@``
  16416. + M`(@```!P@P``!$!C;VYV97)T7V]S97)R```````!````D(8```)?7T]315)2
  16417. + M``````$```"6@P``!4!?;6%K95]P<F]T96-T:6]N`````````0```.:&```"
  16418. + M7V5R<FYO```````#```!@@```5X```#V@P```D!?<V5T97)R`````P```=@`
  16419. + M``&L```!,(,```1`7V%L;&]C7V%M:6=A9F0``````0```A@````````#\0``
  16420. + M``,`````3U!44P`$`$````/R```#Z@````).24PZ`````````_(```/I```%
  16421. + M:"!O``1(YS@`</_`*``#<@`2`'#_P"@``G0`%`!P_\`H``%V`!8`</_`$'@`
  16422. + M&`#AA(B#X82(@N&$B($@!$S?`!Q.=4CG(S1+[`!R0>P`'$7L``PDR$'L`"`D
  16423. + MR$*L`!A"FGX`+"P`>D?L![Q@/"`K``0B`.6!($W1ZP`(0^@'ZD7L``PEB1@`
  16424. + M2H!G!G`!*4``&$J'9P9*JP`$9@@@$T2`*4``%%*'UOP`$+Z&;<!^`"PL`'9@
  16425. + M.G``(@<&@0``!=@0-1@`2,#I@"!-(@`&@0``!U+1]1@`!H````=.)#4(`.6"
  16426. + M0^@'ZD7L``PEB2@`4H>^AFW"3-\LQ$YU(&\`!")O``B>_`HH2.<[-B](`"@O
  16427. + M20`L(`AF"$WL`"0O3@`H<#H@;P`HL!!F!%*O`"@@;P`H<#I.N@``2H!F3G`*
  16428. + M(@`@;P`H(`A*&&;\4XB1P-*(4H%P0;*`909P_V```DQ![``P0^\`,1+89OQ!
  16429. + M[P`Q0^P`/$ZZ``!![P`Q(F\`*$ZZ``!![P`Q+T@`*$*G+R\`+$ZZ``!03RX`
  16430. + M4H!F!G#_8``"""`'0>\`<B(\```)VDZZ```L`"`'3KH``$J`9@9P++R`9`9P
  16431. + M_V```>!![P"*80#^."X`0>\`CF$`_BXJ;P`L*H!![P"280#^("M```1![P"6
  16432. + M80#^%"M```A![P":80#^""M```PB%6LP=#*R@FXJ)BT`"&\D>`JVA&X>*"T`
  16433. + M!&L8#(0```%R;A!*@&L,L()N"+:'9PI*AV<&</]@``%JTH'E@2`M``@D`-2"
  16434. + MU(#4@B`M``0F`.6#UH#6@M:M``S6@=:'<"S6@+R#9`9P_V```3A'[P">?``D
  16435. + M36`0($MA`/V()4``$%B+4H98BKRM``1MZGP`8"`0&R(&!H$```78&X`8`'(`
  16436. + M$@"RK0`(;09P_V```/92AKRM``1MVGP`0>T'2B1(+T@`)&!*($MA`/TZ)(!+
  16437. + MZP`%$"L`!'(`$@`E00`$9PI3@6<&</]@``"\1^T``1`5<@`2`"5!``AM"BIO
  16438. + M`"RRK0`,;P9P_V```)Q2AM3\`!"\K0`(;;!\`&`.(`8&@```!^H;FP@`4H:\
  16439. + MK0`,;>P@!@:````'ZD(U"`!\`-K\"!Y@'B!+80#\OBJ`1>L`!"!*80#\LBM`
  16440. + M``1'Z@`$4H90C2!O`"R\D&W:?``D;P`D*F\`+&`H2H=F!D*J``Q@&!`;2(!(
  16441. + MP"5```QR`;"!9PA*@&<$</]@#E*&U/P`$+RM``AMTG``3-]LW-[\"BA.=2!O
  16442. + M``193R\-*DA@`E*-$!4?0``$9R9(@$C`0>P``0@P``((`&86$"\`!'(LL`%G
  16443. + M#'(ML`%G!G(KL`%FT"`-*E]83TYU(&\`!")O``@@+P`,(B\`$%E/2.<'%"P!
  16444. + M+@`F22I((`UG$A`52(!(P$'L``$(,``""`!F!'``8$IZ`&`B$"\`%$B`2,`B
  16445. + M!>6!TH72@=*`*@%P,)J`NH9O!'``8"92C1`5'T``%&<02(!(P$'L``$(,``"
  16446. + M"`!FQKJ';`1P`&`$)H4@#4S?*.!83TYU(&\`!")O``A93TCG`!0F24/O``AP
  16447. + M`'(880#_;"I`2H!F!'``8&H@+P`((@#I@9*`(`'I@)"!Z8`F@'`ZL!5F3D'M
  16448. + M``%#[P`(<`!R.V$`_S@J0$J`9@1P`&`V("\`""(`Z8&2@.6!TY-P.K`59B!!
  16449. + M[0`!0^\`"'``<CMA`/\**D!*@&8$<`!@""`O``C1DR`-3-\H`%A/3G4@;P`$
  16450. + M(F\`"%E/2.<!%"I)+T@`#!`0<BVP`68(?@%2KP`,8#!(@$C`0>P``0@P``((
  16451. + M`&88<BL@;P`,LAA7P$0`2(!(P"](``Q*@&<$?@!@!'``8!P@;P`,(DUA`/\4
  16452. + M)D!*@&8$<`!@"$J'9P)$E2`+3-\H@%A/3G4@;P`$(F\`")[\``Q(YP`D*DDO
  16453. + M2``0<$JP$&8H0I5#Z``!0>T`!"](``P@22)O``QP`2(\```!;6$`_CPO0``0
  16454. + M8```M'!-L!!F?'`"*H!#Z``!0>T`#"](``P@22)O``QP`7(,80#^$")`2H!F
  16455. + M!G``8```P$7I``%P+K`19P9P`&```+!![0`((D@@2G`!<@5A`/WD(D!*@&8&
  16456. + M<`!@``"41>D``7`NL!%G!G``8```A$'M``0B2"!*<`!R!F$`_;@O0``08#`0
  16457. + M$$B`2,!#[``!"#$``@@`9QIP`2J`0^T`!'``(CP```%M80#]C"]``!!@!'``
  16458. + M8#P@+P`09@1P`&`R<"\@;P`0L!!F'$/H``%![0`0+T@`#"!)(F\`#&$`_=HO
  16459. + M0``08`@K?```'"``$"`O`!!,WR0`WOP`#$YU("\`!"(O``@@;P`,+V\`$``$
  16460. + MGOP`)$CG/Q0J2"H`+@$D!W8#Q(,O0``X+T$`/$J"9@P@!W)D3KH``$J!9A(@
  16461. + M!W)DY8E.N@``2H%G!'``8`)P`2P`(!5*@&<,4X!G2%.`9V9@``%^("T`!"(`
  16462. + M4X$D`=2"U($F`NF#EH(D`^F"E(/O@BX%WH(O1P!`2H9G``%4<CRP@6T``4P&
  16463. + MAP`!48`O1P!`8``!/B`M``0B`-*!TH`D`>F"E($B`NF!DH+O@=J!+T4`0&``
  16464. + M`1PH!7X`*BT`#%.%(`;0@-"&Z8!'[``^U\`O0``@8!H@&R(`TH'2@"0!Z8*4
  16465. + M@2("Z8&2@N^!V(%2A[Z%;>(N+P`\+T0`)"(M``QT`K*";@8F!U.#8`(F!R`#
  16466. + M<F1.N@``(@#2@4J`:@)6@.2`+T``+"`#+T$`,')D3KH``"`!:@)6@.2`=@G6
  16467. + MK0`,+T``-"`#+T$`*'(,3KH``%*!(`'G@)"!T("0@="`58!R"DZZ``!'[P`H
  16468. + MT)O0KP`TT)N0FU*`<@=.N@``+@%J`EZ'+"T`!)R':@)>AGH!*"T`"&`<+@9>
  16469. + MAR(M``SE@4'L`#K1[P`@OK`8`&P(+`=2A;J$;>`@!M"`T(8B`.F!DH`@`>F`
  16470. + MD('O@"(O`"32@"]!`$`@+P!`T*T`$-"O`$A,WRC\WOP`)$YU(&\`!")O``@@
  16471. + M+P`,GOP`6$CG/S8J2"Q-1^\`-";`)L@FR2].`#!*@&<<(`A*&&;\4XB1P"P(
  16472. + M(@C3KP`X<#.R@&4<?#)@&&$`^JHL`)R-+T``.'(#O(%L!G#_8``#>B]&`"P@
  16473. + M;P`X2A!F!G#_8``#:$/O`'1A`/OF+T``.&8&</]@``-4)F\`/$'L`*8B2V$`
  16474. + M][`N`&<"0I,@;P`X2A!G``*^*D@O2`!\80#Z2"(`DHTO0``X+T$`>'8#LH-L
  16475. + M!G#_8``#%"!O`#@0$&<@<BRP`6<:<CNP`6<40^\`<&$`^WXO0``X9A1P_V``
  16476. + M`NP@//__\?#0KP!T+T``<"!O`#@0$'(LL`%G"'([L`%F``%80^@``2!)0^\`
  16477. + M7&$`^[HJ0$J`9@9P_V```K!%[0`!<"RP%6<&</]@``*@($I#[P!(80#[E"]`
  16478. + M`#AF!G#_8``"BB!O`#A*$&<&</]@``)\($MP`B%```@A?````(@`!"`O`'!$
  16479. + M@$WH!THLP'`!+,!2ABS&("\`=$2`3>@'6BS`0IY"GM;\`!!%Z`78>@`L/```
  16480. + M![(@2B\O`'0O2``L(`4B!D'O`&!A`/QF+@`NKP!T(`4B!D'O`$QA`/Q46$\H
  16481. + M`$OJ``)%ZP`(OH!O&B!+((1P`2)O`"@2@"9*(4<`!"1-0BD``6`8($L@AR)O
  16482. + M`"A"$29*(40`!"1-$WP``0`!(`9R`\"!9@P@!G)D3KH``$J!9A(@!G)DY8E.
  16483. + MN@``2H%G!'``8`)P`2(`Y8%![`">(#`8`"(`TH'2@"8!Z8.6@20#Z8*4@^^"
  16484. + MVH)2A@R&```']6\`_T)@``$<(&\`.$H09P9P_V```69*AV<&</]@``%<>`!\
  16485. + M`'H`0J\`1'X`*DM@<$JM!TYG/B`O`$0B!^F!)"\`<`:!```'2B8S&`#6@B]#
  16486. + M`$1*AF<*L(-G!G#_8``!'$2"*T('2B`O`"Q2@"M`!U)\`6`F(`4B+P!T*BT'
  16487. + M2MJ!2H1G"K"%9P9P_V```.Y$@2M!!TI"K0=2>`%2A]K\`!"^JP`(;8I*AF<$
  16488. + M2H1F!G#_8```R'P`?@`J2R@O`$1@.G``(@<&@0``!=@0,Q@`2,#I@"!+T<!#
  16489. + MZ`=*+TD`0$J&9PI*J0`,9@0@!&`"(`71K0`0+"D`!%*'6(V^JP`$;<!@('``
  16490. + M<@$G00`()T``!"0O`'1$@DWK!THLPBS`+,`O0`!X*F\`/"XO`"P@!U*`*T``
  16491. + M#"PO`'AG"-"&4H`K0``,<C.P@6,$</]@,-K\!^H@!R!-(F\`,$ZZ```@3=''
  16492. + M2^@``4(02H9G$"`&($TB;P!\3KH``$(U:`!P`$S?;/S>_`!83G4@;P`$+PTJ
  16493. + M2$'L```B36$`]%!*@&<,0>P``")-<`%A`/P,*E].=2\-0>P`LDZZ```J0$J`
  16494. + M9@8J7V```%QP`2E`$\Y*%68>0JP`<D*L`'9"K`>\0JP'Q$'L``!#[`A<$MAF
  16495. + M_&`L($U#[`!R80#S]$J`9QYP.K`59Q`@34/L`')P`&$`^ZI*@&<(0>P`<F$`
  16496. + M_W8J7V``\PYP`2E`$\Y#[`!RD<AA`/.\2H!G"$'L`')A`/]48`#R[B!O``0@
  16497. + M+P`((F\`#)[\`!!(YP,4*DE([P$!`!`@;P`4+U``&$JL$\YF!&$`_T1*K`!V
  16498. + M9PH@+P`8L*P`@FP@?@!'[`!R8!!2A];\`!"^K`!Z;01^`&`R2JL'3F;J8"I^
  16499. + M`4?L`'8L+`!V8`X@+P`8L*L`$&T(4H=8B[Z&;>Y#[`!RT\=^`!XI!=?IAT'L
  16500. + M![S1QR\-+T@`("`00>\`'$/L`')A``#"(&\`("(H``0K00`@Y8%![`A<(F\`
  16501. + M(-'I``A#[``,(X@8`"M(`"A83TS?*,#>_``03G4@;P`$0^P``'``80#_*D'L
  16502. + M```@"$YU(&\`!"`O``@B;P`,2.<!%"X`)DDJ2$JL$])F#G`!*4`3TD'L"B!A
  16503. + M`/XZ+PL@!R!-0^P*(&$``$)83TJ'9P9![`"Z8`1![!(*)T@`*$S?*(!.=2!O
  16504. + M``1#[``L<`!AKD'L`"P@"$YU(&\`!"`O``@B;P`,+V\`$``$GOP`#$CG#S0N
  16505. + M`"9O`"PJ2'P`>@`H$2`$YX`O20`@T\!%Z0@>8$`O2@`D(!6PDFTV(&\`)+"0
  16506. + M9BA*A&8&("@`!&X:YX0B*``$(F\`(`:$```(&K*Q2`!N!'``8`)P`2H`+"@`
  16507. + M!&`&4X11BFRZ(!4B/``!48!.N@``*``@%2(\``%1@$ZZ``#2AY*&+`%@"`:&
  16508. + M``%1@%.$2H9K]&`(!(8``5&`4H0,A@`!48!L\"`&(CP```X03KH``"=```@@
  16509. + M!B(\```.$$ZZ```@`2]!`!QR/$ZZ```G0``$("\`''(\3KH``":!2H5G`E*3
  16510. + M(`18@'('3KH``"=!`!AL!%ZK`!@L/```![)*A&M`(`9R`\"!9@P@!G)D3KH`
  16511. + M`$J!9A(@!G)DY8E.N@``2H%G!'``8`)P`2H`(@#E@47L`)X@,A@`N(!M0%*&
  16512. + MF(!@P%.&(`9R`\"!9@P@!G)D3KH``$J!9A(@!G)DY8E.N@``2H%G!'``8`)P
  16513. + M`2H`Y8!![`">V+`(`$J$:\8$A@``!VPG1@`4)T0`'"`%T(#0A>F`1>P`/M7`
  16514. + M0JL`$&`.(BL`$.6!F+(8`%*K`!`B*P`0Y8&XLA@`;.92A"=$``Q"JP`@)T<`
  16515. + M)$S?+/#>_``,3G4@;P`$+PTJ2"`M`!@B`-*!TH!![`"^T<$@+0`0(@#2@=*`
  16516. + M0^P`T]/!(#P```=LT*T`%"\`+Q4O+0`$+RT`""\M``PO"2\(2&P`^$AL`%A.
  16517. + MN@``3^\`)$'L`%@@""I?3G4@;P`$+PUA`/TX($`J7V"4(&\`!")O``@@+P`,
  16518. + M+P<N`"`1L(=M%"('3KH``-&0(!$B!TZZ```B@6`J2H!J)E.0WY%L("`11(`B
  16519. + M!TZZ```B$)*`4X$@@2`11(`B!TZZ``">@2*'+A].=2!O``0B;P`(2.<!%"9)
  16520. + M*D@N+0`4GJL`%&8L+BT`$)ZK`!!F(BXM``R>JP`,9A@N+0`(GJL`"&8.+BT`
  16521. + M!)ZK``1F!"X5GI,@!TS?*(!.=2!O``0B;P`(("\`#"]O`!``!)[\`'!(YS\T
  16522. + M+@`J;P"8+TD`+$*5+T@`*$/O`%QP"B+84<C__"`O`%QR/K"!;`1*@&H.0>\`
  16523. + M8$/O`%QP/&$`_Q9![P!D0^\`8'`\80#_"$'O`&A#[P!D<!AA`/[Z0>\`<$/O
  16524. + M`&QP#&$`_NQ@3"`O`'!3KP!P!H````=K(@!T`\*"9@IR9$ZZ``!*@68:(#P`
  16525. + M``=LT*\`<')DY8E.N@``2H%G!'``8`)P`2(`Y8%![`">(#`8`-&O`&@@+P!H
  16526. + M;ZXL/```!VS<KP!P(`9R`\"!9@P@!G)D3KH``$J!9A(@!G)DY8E.N@``2H%G
  16527. + M!'``8`)P`20O`&SE@B8`UH/6@.F#0>P`/M'#+#`H`"`O`&BPAF\:1^\`:)V;
  16528. + M4I,,FP````QMGD*O`&Q2KP!P8)0@+P!<0J\`7'H`<@$O00"(+T``)%*%("\`
  16529. + MB-"`+T``B"`O`(AN[B`O`(AJ!'``8`1P`>N@+T``B$AO`#`O!TAO`)`@;P`X
  16530. + M3I!![P`\0^\`:&$`_BQ/[P`,*`!G+B`%4X5*@&H&</]@``$02H5J!E.O`(A@
  16531. + MQ'`!ZZ`L`$J$;P:=KP"(8+3=KP"(8*X@+P!\:P``Q"(O`%"R@&<``+I!^OGB
  16532. + M(F\`++/(9@9![`!R8`1![`H@?``F2"](`)!@``"(("L'3K"O`'QF=GH`)&\`
  16533. + MD&!D("H'3K"O`'QG5"`%Z8`B+P"((&\`D`:````'2M*P"`"2JP=*+T$`C$AO
  16534. + M`#`O!TAO`)0@;P`X3I!![P`\0^\`:&$`_6Q/[P`,2H!F$B`O`%"PKP!\9@@O
  16535. + M;P",`(A@)E*%U/P`$"!O`)"ZJ``(;9)2AM;\`!`@;P"0O*@`"&T`_W!P_V`D
  16536. + M("\`)-&O`(@O+P`H+P=(;P"0(&\`.$Z0<`$J@$_O``P@+P"(3-\L_-[\`'!.
  16537. + M=2!O``0B;P`(("\`#)[\``Q(YP<T+@`J2"])`!@,K0````$`(&\&<`$K0``@
  16538. + M2&\`'"`'($UA`/T>6$\L`$JO`!QF!B`M`"!J!B`&8```QD'Z^*XB;P`8L\AF
  16539. + M!D'L`')@!$'L"B!\`"9(+T@`(&```)8@*P=.L*T`(&8``(1Z`"1O`"!@<"`M
  16540. + M`"`B*@=.LH!G7B`%Z8`B%2!O`"`&@```!TK2L`@`DJL'2BJ!2JT`(%?`1`!(
  16541. + M@$C`*T``($AO`!P@!R!-(F\`'&$`_(Q83TJO`!QF0"`5D*H'2M"K!THJ@$JM
  16542. + M`"!7P$0`2(!(P"M``"!2A=3\`!`@;P`@NJ@`"&V&4H;6_``0(&\`(+RH``AM
  16543. + M`/]B</],WRS@WOP`#$YU(&\`!"\-0_KWVG``*E]@`/[@2JP3SF8$80#W+$YU
  16544. + M``````/X````'0````$``!*X```29@``$-@``!"T```0I```$%0``!`R```/
  16545. + M\@``#H(```X6```,^```#,H```RX```,J@``"O@```E*```(>```!Z0```%L
  16546. + M```!7````18```#F````H````(X```"`````7````%8```!0````3````"L`
  16547. + M```"```5E```%,8``!3````3D@``$XP``!#H```0W```#J(```Z:```.B```
  16548. + M#G0```YF```.8@``#EH```X\```.,@``#@H```WT```-X@``#=0```V\```-
  16549. + MN```#:0```V8```-D```#88```U\```-3```#3X```TZ```-*@``#1P```T(
  16550. + M```,_```#/0```SP```,[```#.@```S@````L````&@```!D````2```````
  16551. + M``/O@P```D!S=')C:'(``````0```3*#```"0'-T<F-A=``````"```!?```
  16552. + M`7"#```"7V]P96X````````!```!CH,```)`<F5A9`````````$```&L@P``
  16553. + M`D!C;&]S90```````0```;2&```"7U]?8W1Y<&4````%```&6@``!3X```1>
  16554. + M```$'````\J#```"7U]#6$0S,P`````<```2G```$HX``!)4```2/@``$4X`
  16555. + M`!$\```1)```$1H``!`@```0$@``#]X```_0```/K```#YH```^,```/@```
  16556. + M#W````\^```/,```"N8```K8```(4@``"#P```@F```("```!^P```<.```'
  16557. + M`(,```)`<W1R;F-P>0````(```R.```,=(,```-`7U]G971E;G8````````!
  16558. + M```,SH,```)?<W!R:6YT9@````$``!#@`````````_$````#`````$]05%,`
  16559. + M!`!````#\@```^H```!(1TU4`"`@(``@("``````!`````@``````````"`@
  16560. + M(``@("``<SIL;V-A;'1I;64`<SIZ;VYE:6YF;P``+P`````?````'````!\`
  16561. + M```>````'P```!X````?````'P```!X````?````'@```!\````?````'0``
  16562. + M`!\````>````'P```!X````?````'P```!X````?````'@```!\```%M```!
  16563. + M;G!O<VEX<G5L97,``%5.25A46@``("`@`%-U;DUO;E1U95=E9%1H=49R:5-A
  16564. + M=$IA;D9E8DUA<D%P<DUA>4IU;DIU;$%U9U-E<$]C=$YO=D1E8P`E+C-S("4N
  16565. + M,W,E,V0@)3`R+C)D.B4P,BXR9#HE,#(N,F0@)60*```````#[`````(````!
  16566. + M````$`````P````````#\@```^L```3V```#\@```^D```&<GOP`#$C7`0-P
  16567. + M_][\``Q.=5%/2-<#`%!/3G5(YS`"(A!**``-9P1P`&`<)`DF`"QL``!.KO_6
  16568. + M(@!2@&8(3KH``'#_8`(@`4S?0`Q.=5%/2.<_-BX`*DDF2"P3+T8`*"](`"Q*
  16569. + M*P`-9P9P`&```(Q**P`,9V8F3=?'>@!@6"1-8`)2BK7+9`9P"K`29O2WRF8$
  16570. + M*`I@!D'J``$H")B-(B\`*"0-)@0L;```3J[_T"P`4H!F"$ZZ``!P_V`^VH:V
  16571. + MAF8V2^H``9Z&<`!.N@``3KH``$J`9B)*AV:D8!PB!B0-)@<L;```3J[_T"H`
  16572. + M4H!F"$ZZ``!P_V`"(`5,WVS\4$].=5E/2.<_`BX`+!`O00`<2B@`#6<$<`!@
  16573. + M4E.!)@$B!B0'+&P``$ZN_[XJ`$ZN_WPH`%*%9P1*A&<.(`1.N@``*4```'#_
  16574. + M8"0B!G0`)@).KO^^+`!2@&<$2H1G#B`$3KH``"E```!P_V`"(`9,WT#\6$].
  16575. + M=9[\`0!(YS\&+@`J2"P5*BT`""`M``1G"B(`+&P``$ZN_Z88+0`-2(1(Q"!-
  16576. + M3KH``$J$9P1P`&!$(@9![P`@)`@L;```=D#EBTZN_F@H`$J'9@HB!DZN_]Q*
  16577. + M@&<:2H1G$G#_NH!G#"(")`5.KO]&2H!G!'``8`9.N@``</],WV#\WOP!`$YU
  16578. + M("\`!$CG(`(B`"QL``!T`$ZN_S1.KO]\="Y&`K""5\%$`4B!2,$@`4S?0`1.
  16579. + M=2`O``0@;P`((F\`#)[\`!!(YS<6+@`F22I(?`!AN$J`9GPB!RQL``!T`4ZN
  16580. + M_E9*@&=L(@=![```)`AV!$ZN_]!9@&92(@<D/```)Q!.KO\T2H!G0B('0>\`
  16581. + M("0(=A!.KO_6<@FP@6\N<)NP+P`@9B9![P`E(@@D"TZN_-`J`$'O`";1P"((
  16582. + M)`U.KOS04H!G!E*%9P)\`2('=`!.KOY6(`9,WVCLWOP`$$YU("\`!"(O``B>
  16583. + M_`(02.<_!BX`</\O0`(H+T$`)"('+&P``'0`=@%.KO^^+T``("('3J[_OBP`
  16584. + M3J[_?"H`+T`"+&8``,(H+P`D(@<D!';_3J[^.+""9@``KKR";```GBH$FH8H
  16585. + M!2`$<@%(02QX``1.KO\Z*D!*@&9J<@)(04ZN_RCBB"H`#(4```(`;1`@!7(!
  16586. + M2$%.KO\Z*D!*@&9&>D#GC4OO`"@P/`'_<@!![P`H$,%1R/_\8"RXA6\$(`5@
  16587. + M`B`$)@!.N@``(@<D#2QL``!.KO_0L(-G"DZN_WPO0`(L8`:8@TJ$;M!![P`H
  16588. + ML<UG#")-(`4L>``$3J[_+BHO`BQF!$*O`B@L+P`@O*\`)&P.(@<D!BQL``!V
  16589. + M_TZN_[XL+P(H9PH@!4ZZ```I0```(`9,WV#\WOP"$$YUGOP!"$CG-Q8N`"9)
  16590. + M*D@L%4HM``UF``$8(`<$@```!`!G(`2````$`&=*4X!G6%.`9UQ3@&=>4X!G
  16591. + M9E.`9VQ@``#N2BT`#&<F(`9![P$D0^\!(&$`_=9*@&<4("\!)#=```(@+P$@
  16592. + M-H!P`&```,IP&6```+XB!BQL``!.KO\H)H!P`&```+(FAG``8```JG``8```
  16593. + MI"`&(A-A`/XV8```F"M3``AP`&```(XJ$TJM``1F#B(5+&P``$ZN_HPK0``$
  16594. + M("T`!&=B)``B!2QL``!.KOY<2H!F4B(&0>\`("0(=D#EBTZN_FA*@&<^(@5.
  16595. + MKO^F(BT`!$ZN_Z8B!DZN_]PB`G0`3J[_1AM\``$`#2J"*T(`!$'O`"`B""QL
  16596. + M``!.KO^X2H!G!"`"8`Y.N@``8`9P%BE```!P_TS?:.S>_`$(3G4@+P`$(B\`
  16597. + M""]O``P`!$CG#P8J+P`<+`$N`'`.3KH``"I`2H!F"G`,*4```'#_8$Y#U2+'
  16598. + M0IDBQD(M``TB!RQL``!.KO\H&T``#$AZ_G1(>OO:2'K[9$AZ^JQ(>OIV2'KZ
  16599. + M:"`%($U#^OI03KH``$_O`!@H`&P&($U.N@``(`1,WV#P3G4@+P`$(B\`""]O
  16600. + M``P`!"]O`!``""]O`!0`#"]O`!@`$$CG#0`H+P`4*B\`$"X`<`!*@68$<$#E
  16601. + MB`!```$O`"`'<O]A`/]&6$]*@&9`<`!*A&8$<$#EB`!```(O`"`%<O]A`/\H
  16602. + M6$]3@&8B<`!*KP`<9@1P0.6(`$```B\`("\`''+_80#_!EA/58!G$$'L``8O
  16603. + M2``03-\`L$[Z``!,WP"P3G4``````_@````"`````0``!EH```)<````````
  16604. + M`^^&```"7T1/4T)A<V4````0```%B```!2(```34```$O@``!(````/D```#
  16605. + MG````O````),```"!````;0```&.```!(@```.(```"F````,(,```)`7W-E
  16606. + M=&5R<@````4```4R```!Z@```/````"T````/H,```1`7V-H96-K7W-I9VYA
  16607. + M;',``````0```,J#```$0%]H86YD;&5?<VEG;F%L<P````$```#.@P``!$!C
  16608. + M;VYV97)T7V]S97)R```````#```#]@```5X```$\A@```E]E<G)N;P``````
  16609. + M!0``!7(```4Z```#^@```6(```%`@P```D!F<F5E`````````@``!<(```&@
  16610. + M@P```T!C:&MA8F]R=`````````$```.4@P```D!M86QL;V,``````0``!6:#
  16611. + M```#0%]A;&QO8U]F9````````0``!;2#```"7U]F86EL```````!```&9@``
  16612. + M``````/Q`````P````!/4%13``0`0````_(```/J````")LP('$``$9A:6QE
  16613. + M9"!T;R!I;FET:6%L:7-E($DO3P`````#\@```^D````G(&\`!")O``A(YR$6
  16614. + M)DDJ2$ZZ```B#20++&P``$ZN_[)*@&<$<`!@;$ZN_WPN`'(T1@&P@692(@).
  16615. + MKO^X2H!G#B(-3J[_LDJ`9P1P`&!&3J[_?"X`<F_2@;"!9BPB`G0`3J[_1DJ`
  16616. + M9QHB"TZN_[A*@&<0(@TD"TZN_[)*@&<$<`!@$DZN_WPN`"`'3KH``"E```!P
  16617. + M_TS?:(1.=0`````#[X,```-`8VAK86)O<G0````````!````$H8```)?1$]3
  16618. + M0F%S90````$````:@P``!$!C;VYV97)T7V]S97)R```````!````C(8```)?
  16619. + M97)R;F\```````$```"0`````````_$````#`````$]05%,`!`!````#\@``
  16620. + M`^D````.(&\`!"`O``@B+P`,GOP`#$C7`0-P`-[\``Q.=2`O``0B+P`(+V\`
  16621. + M#``$44](UP`#<`!03TYU``````/Q`````P````!/4%13``0``````_(```/I
  16622. + M````$"!O``0B;P`(("\`#$CG`10N`"9)*DAF!'``8!P@!R!+(DUR`$J`9PX2
  16623. + M&)(99@13@&;V2(%(P2`!3-\H@$YU``````/Q`````P````!/4%13``0`````
  16624. + M`_(```/I````!2!O``0@+P`(<@!@`A#!4X!D^DYU```#\0````,`````3U!4
  16625. + M4P`$``````/R```#Z0````P@+P`$(B\`"%E/+P<N`"]!``1.N@``2&\`!$AX
  16626. + M"`,O!TZZ``!/[P`,+A]83TYU``````/O@P```T!C:&MA8F]R=`````````$`
  16627. + M```4@P```E]I;V-T;````````0```"(````````#\0````,`````3U!44P`$
  16628. + M``````/R```#Z0````T@+P`$(B\`"%E/+P<N`"`!3KH``"]```1.N@``2&\`
  16629. + M!$AX"`0O!TZZ``!/[P`,+A]83TYU```#[X,```5`7VUA:V5?<')O=&5C=&EO
  16630. + M;@````````$````2@P```T!C:&MA8F]R=`````````$````:@P```E]I;V-T
  16631. + M;````````0```"@````````#\0````,`````3U!44P`$``````/R```#Z0``
  16632. + M`!`@;P`$("\`""(O``R>_``,2-<!`W#_*4```-[\``Q.=2!O``0@+P`((B\`
  16633. + M#)[\``Q(UP$#</\I0```WOP`#$YU```#[X8```)?97)R;F\```````(````X
  16634. + M````&`````````/Q`````P````!/4%13``0`0````_(```/I````#2`O``19
  16635. + M3R\'+@!.N@``2&\`!$AX"``O!TZZ``!/[P`,2H!G!'``8`0@+P`$+A]83TYU
  16636. + M``````/O@P```T!C:&MA8F]R=`````````$````,@P```E]I;V-T;```````
  16637. + M`0```!H````````#\0````,`````3U!44P`$``````/R```#Z0````\@+P`$
  16638. + M2.<&`$ZZ```L`'``3KH``&`&<`!.N@``*@`@!4ZZ``!*@&?N(`9.N@``<`0I
  16639. + M0```</],WP!@3G4```/O@P```T!S:6=S971M87-K``````(````L````"H,`
  16640. + M``1`7V-H96-K7W-I9VYA;',``````0```!*#```$0%]W86ET7W-I9VYA;',`
  16641. + M``````$````:@P``!$!?:&%N9&QE7W-I9VYA;',````!````(H8```)?97)R
  16642. + M;F\```````$````R`````````_$````#`````$]05%,`!`!````#\@```^D`
  16643. + M```H(&\`!$CG(Q8J2'X`0J<L;```<@(D#TZN_QQ/[P`$)D!*@&=2(@UT_DZN
  16644. + M_ZPN`&=&(@<D"TZN_YI*@&<Z(BL`!%[`1`!(@$C`+``B!TZN_Z9R`DZN_Q9*
  16645. + MAF<4(@U.KO^X2H!G!'``8#).N@``8"IP%"E```!@(DZN_WQ.N@``*4```$J'
  16646. + M9P8B!TZN_Z8@"V<()`MR`DZN_Q9P_TS?:,1.=0```^^&```"7T1/4T)A<V4`
  16647. + M```!````$(,```)`7W-E=&5R<@````$```!JA@```E]E<G)N;P```````@``
  16648. + M`(````!R@P``!$!C;VYV97)T7V]S97)R```````!````?`````````/Q````
  16649. + M`P````!/4%13``0`0````_(```/I```!ER!O``0@+P`((F\`#"]O`!``!"\'
  16650. + M+@`I2``>*4``&G(!L(%E'B\O``@O"6$``"103TJ`9PX@;``>0A`@!Y"L`!I@
  16651. + M`G``+A].=2!O``0B;P`(2.<`%"9)*DA@``3X$!5R);`!9@`$RE*-$!5(@$C`
  16652. + M2H!G``#6<B60@6<`!+1R')"!9P``S%.`9P`!)E.`9P`!@%.`9P`!HEF`9P`!
  16653. + M[%.`9P`"!%F`9P`"FEN`9P`##E.`9P`#,%.`9P`#6%.`9P`#>E6`9P`#H%.`
  16654. + M9P`#1E.`9P`$)E.`9P`$0E^`9P``HE.`9P``_%.`9P`!.E.`9P`!7%.`9P`!
  16655. + M=%>`9P``Y%6`9P`!TE.`9P`![E.`9P`"!E.`9P`"3%.`9P`":%6`9P`"=E6`
  16656. + M9P`"JE.`9P`"U%.`9P`"]%>`9P`#9E.`9P`#?E.`9P`#C&```^A3C6```^(@
  16657. + M*P`8:P9R!K"!;P9P`&```_XB*P`8Y8%![`!V+S`8`&$`!,983TJ`9@`#V&``
  16658. + M`^`@*P`8:P9R!K"!;P9P`&```\XB*P`8Y8%![``<+S`8`&$`!)983TJ`9@`#
  16659. + MJ&```[`@*P`0:P9R"["!;P9P`&```YXB*P`0Y8%![`%.+S`8`&$`!&983TJ`
  16660. + M9@`#>&```X`@*P`0:P9R"["!;P9P`&```VXB*P`0Y8%![`#"+S`8`&$`!#98
  16661. + M3TJ`9@`#2&```U!![`%^(DMA`/XZ2H!F``,T8``#/$'L`90B2V$`_B9*@&8`
  16662. + M`R!@``,H0>P!IB)+80#^$DJ`9@`##&```Q1(>``P2'@``B\K``QA``-Z3^\`
  16663. + M#$J`9@`"[F```O9(>``@2'@``B\K``QA``-<3^\`#$J`9@`"T&```MA(>``P
  16664. + M2'@``B\K``AA``,^3^\`#$J`9@`"LF```KH@*P`(<@Q.N@``<`Q*@6<"(`%(
  16665. + M>``P2'@``B\`80`#$$_O``Q*@&8``H1@``*,("L`'%*`2'@`,$AX``,O`&$`
  16666. + M`NY/[P`,2H!F``)B8``":DAX`"!(>``"+RL`"&$``M!/[P`,2H!F``)$8``"
  16667. + M3"`K``AR#$ZZ``!P#$J!9P(@`4AX`"!(>``"+P!A``*B3^\`#$J`9@`"%F``
  16668. + M`AY(>``P2'@``B\K``1A``*$3^\`#$J`9@`!^&```@`@*P`04H!(>``P2'@`
  16669. + M`B\`80`"8D_O``Q*@&8``=9@``'>2&P!L&$``K!83TJ`9@`!PF```<H,JP``
  16670. + M``P`"&T&0>P!LF`$0>P!MB\(80`"BEA/2H!F``&<8``!I$'L`;HB2V$`_(Y*
  16671. + M@&8``8A@``&00>P!P")+80#\>DJ`9@`!=&```7Q(>``P2'@``B\380`!Y$_O
  16672. + M``Q*@&8``5A@``%@+PMA``%D6$]*@&8``49@``%.0>P!S")+80#\.$J`9@`!
  16673. + M,F```3I(;`'680`"#%A/2H!F``$>8``!)B`K`!Q>@)"K`!AR!TZZ``!(>``P
  16674. + M2'@``B\`80`!?D_O``Q*@&8``/)@``#Z("L`&&<$4X!@`G`&(BL`'%Z!DH`@
  16675. + M`7('3KH``$AX`#!(>``"+P!A``%&3^\`#$J`9@``NF```,)(>``P2'@``2\K
  16676. + M`!AA``$H3^\`#$J`9@``G&```*1![`'8(DMA`/N.2H!F``"(8```D"`\```'
  16677. + M;-"K`!1R9$ZZ``!(>``P2'@``B\!80``Z$_O``Q*@&9<8&8@/```!VS0JP`4
  16678. + M2'@`,$AX``0O`&$``,9/[P`,2H!F.F!$("L`*&<,+P!A``$46$]*@&8F<`!@
  16679. + M+DJL`!I7P$0`2(!(P%.L`!I*@&<$<`!@%B!L`!X0U2E(`!Y2C4H59@#[!B`L
  16680. + M`!I,WR@`3G4@;P`$GOP`+$CG`1!#[P`(<`HBV%'(__Q![P`(3KH``"X`1^P`
  16681. + M#6`:(`=R"DZZ``!P,-*`%H%3BR`'<@I.N@``+@!*AV\(0>P``+?(8MI(:P`!
  16682. + M80``@%A/3-\(@-[\`"Q.=2`O``0B+P`(+V\`#``$2.<'!!HO`!<L`2X`2^P`
  16683. + M%V`<(`=R"DZZ``!P,-*`&H%3C2`'<@I.N@``+@!3ADJ';PY![``/N\ABV&`$
  16684. + M&H53C4'L``^[R&,((`93ADJ`;NQ(;0`!80``#EA/3-\@X$YU(&\`!"\-*D@@
  16685. + M+``:9Q@2'2!L`!X0@68$<`%@"E*L`!Y3K``:8.(J7TYU```#^`````\````!
  16686. + M```$O```!"8```02```#T````[P```.F```#H````X(```(X```")````A``
  16687. + M``'X```!R````9@```%H````$@````(```94```&4```!D0```8\```&%```
  16688. + M!@8```7@```%J@``!88```5:```%3@``!4@```4\```%,````#X````V````
  16689. + M'````!@````````#[X,```)?7T-81#,S``````D```7Z```%Z@``!:````60
  16690. + M```$W```!'X```1&```#&@```JR#```"0&UK=&EM90`````!```%@```````
  16691. + M``/Q`````P````!/4%13``0`0````_(```/J````>5-U;@!-;VX`5'5E`%=E
  16692. + M9`!4:'4`1G)I`%-A=```````````!`````@````,````$````!0````84W5N
  16693. + M9&%Y``!-;VYD87D``%1U97-D87D`5V5D;F5S9&%Y`%1H=7)S9&%Y``!&<FED
  16694. + M87D``%-A='5R9&%Y```````X````0````$@```!0````6@```&0```!L2F%N
  16695. + M`$9E8@!-87(`07!R`$UA>0!*=6X`2G5L`$%U9P!397``3V-T`$YO=@!$96,`
  16696. + M````D@```)8```":````G@```*(```"F````J@```*X```"R````M@```+H`
  16697. + M``"^2F%N=6%R>0!&96)R=6%R>0``36%R8V@`07!R:6P`36%Y`$IU;F4``$IU
  16698. + M;'D``$%U9W5S=```4V5P=&5M8F5R`$]C=&]B97(`3F]V96UB97(``$1E8V5M
  16699. + M8F5R``````#R````^@```00```$*```!$````10```$:```!(````2@```$R
  16700. + M```!.@```40E82`E8B`E92`E2#HE33HE4R`E60``)6TO)60O)7D@)4@Z)4TZ
  16701. + M)5,`)6TO)60O)7D```H`4$T``$%-```E2#HE30`E23HE33HE4R`E<``E2#HE
  16702. + M33HE4P``"0`E;2\E9"\E>0````````/L````)@````$```%Z```!=@```7(`
  16703. + M``%N```!:@```68```%B```!7@```5H```%6```!4@```4X```#N````Z@``
  16704. + M`.8```#B````W@```-H```#6````T@```,X```#*````Q@```,(```".````
  16705. + MB@```(8```""````?@```'H```!V````-````#`````L````*````"0````@
  16706. + M````'`````````/R```#ZP````D```/R```#Z0```!8@;P`$("\`"$CG)P(N
  16707. + M`"((+&P``"0\```#[4ZN_^(L`$ZZ``!*AF<<(`8B!TZZ```J`"(&3J[_W$J`
  16708. + M9@1*A6<$(`5@#DZN_WQ.N@``*4```'#_3-]`Y$YU```#[X8```)?1$]30F%S
  16709. + M90````$````2@P```T!C:&MA8F]R=`````````$````B@P``!$!?9&]?=')U
  16710. + M;F-A=&4````````!````+H,```1`8V]N=F5R=%]O<V5R<@```````0```$J&
  16711. + M```"7V5R<FYO```````!````3@````````/Q`````P````!/4%13``0`0```
  16712. + M`_(```/I````U2!O``0B;P`(("\`#"(O`!`O;P`4``0O;P`8``@O;P`<``R>
  16713. + M_``P2.<O-BXO`%@O2``L*@`H`7Q`Y8XO0``D+T$`*"])`#!P0.6(3KH``"I`
  16714. + M+T``1"`%4H!F$BQL``!.KO_*+T``0$*O`%!@)DAO`$!(>`@!+P5.N@``3^\`
  16715. + M#%*`9@1"KP!`<`$O0`!0(`5.N@``(`12@&82+&P``$ZN_\0O0``\0J\`3&!&
  16716. + MNH1F#"]O`$``/$*O`$Q@-DAO`#Q(>`@!+P1.N@``3^\`#%*`9@9P`"]``#PB
  16717. + M+P`\LJ\`0%;`1`!(@$C`+T``3"`$3KH``'#_OH!F$"!L```O:`#@`#A"KP!(
  16718. + M8%!P_KZ`9@PO;P`\`#A"KP!(8#Y(;P`X2'@(`2\'3KH``$_O``Q2@&8&<``O
  16719. + M0``X("\`."(O`#RR@&<*L*\`0&<$<`%@`G``+T``2"`'3KH``$JO`$!G``%D
  16720. + M2J\`/&<``5Q*KP`X9@92AV8``5`@#6<``40F37@`+V\`,``T8```K$J$9@8@
  16721. + M;P`L8`(@521(>@,J2&`:4H40%7(JL`%G#'(BL`%G!G(*L`%F`E*%4HU*%6;B
  16722. + M*F\`1"!-T<8B2]/%3>D``;W(920@!M"&T(4L`"!-3KH``"I`2H!G``#:(`N0
  16723. + MKP!$)DW7P"]-`$0@2Q"\`"!4BQ%\`"(``2I*8"`0%7(BL`%G!G(JL`%F!A;\
  16724. + M`"I@"G(*L`%F!!;\`"L6W4H59MP6_``B4H18KP`T*F\`-$J59@#_3D(3*F\`
  16725. + M7"`-9Q`B#2QL``!T_DZN_ZPH`&`">`!*A&8$(`UF/"IO`$0O+P!@+P0O+P!0
  16726. + M+R\`1"\O`%PO+P!0("\`6"(O`&@@34ZZ``!/[P`8*@!2@&<:($U.N@``(`5@
  16727. + M>"QL``!.KO]\3KH``"E```!*A&<2(@0L;```3J[_IF`&<`PI0```("\`0&<0
  16728. + M2J\`4&<*(@`L;```3J[_W"`O`#QG$$JO`$QG"B(`+&P``$ZN_]P@+P`X9Q!*
  16729. + MKP!(9PHB`"QL``!.KO_<*F\`1"`-9P8@34ZZ``!P_TS?;/3>_``P3G4@;P`$
  16730. + M(F\`""`O``PB+P`0+V\`%``$+V\`&``(+P4J+P`,+P4O+P`,2'C__V$`_-A/
  16731. + M[P`,*A].=0```^^#```"0&UA;&QO8P`````!````3(8```)?1$]30F%S90``
  16732. + M``@```+\```"Y@```M````*R```"G````D@```":````7(,```)?:6]C=&P`
  16733. + M``````,```$D````Q@```'B#```$0%]P<V5U9&]?8VQO<V4```````,```%4
  16734. + M````[@```)"&```!7U]U<P````$```#X@P```D!R96%L;&]C`````0```=B#
  16735. + M```$0%]S=&%R=%]P<F]C97-S``````$```*$@P```D!F<F5E`````````@``
  16736. + M`PX```*4@P``!$!C;VYV97)T7V]S97)R```````!```"I(8```)?97)R;F\`
  16737. + M``````(```*^```"J`````````/Q`````P````!/4%13``0`0````_(```/I
  16738. + M`````G`!3G5P`4YU```#\0````,`````3U!44P`$``````/R```#Z0````X@
  16739. + M+P`$+P<N`$ZZ```@!R!L``!R`$ZZ``!@#"`L``!.N@``3KH``"!L``!.N@``
  16740. + M2H!GZ'``+A].=0```^^#```#0&-H:V%B;W)T`````````0````J&```#7U]O
  16741. + M9&1?=&EM97(``````@```"@````0@P``!$!?=&EM97)?<W1A<G0````````!
  16742. + M````%H8```-?7V]D9%]S:6<````````!````'(,```1`7W=A:71?<VEG;F%L
  16743. + M<P```````0```""#```$0%]H86YD;&5?<VEG;F%L<P````$````D@P``!$!?
  16744. + M=&EM97)?97AP:7)E9``````!````+`````````/Q`````P````!/4%13``0`
  16745. + M0````_(```/I````#R!O``0@+P`(2.<!!"X`*DA.N@``+P=(>`,!+PU.N@``
  16746. + M3^\`#$S?((!.=2!O``0@+P`(2.<!!$S?((!@S````^^#```#0&-H:V%B;W)T
  16747. + M`````````0```!*#```"7V]P96X````````!````'@````````/Q`````P``
  16748. + M``!/4%13``0``````_(```/I````(R`O``0@;P`((B\`#%E/2.<#-"P!+@`J
  16749. + M2$ZZ```@!TZZ```F0$J`9T0(*P`!``-G-@@K``,``V<6(&L`&"](`!0@:P`$
  16750. + M<`!R`B)O`!1.D2!K`!0O2``4(`8@:P`$(DTD;P`43I)@"'`-*4```'#_3-\L
  16751. + MP%A/3G4@+P`$(&\`""(O``Q(YP,$3-\@P&"````#[X,```-`8VAK86)O<G0`
  16752. + M```````!````&H,```-`7V9I;F1?9F0````````!````((8```)?97)R;F\`
  16753. + M``````$```!J`````````_$````#`````$]05%,`!`!````#\@```^D````,
  16754. + M(&\`!%%/+PTJ2$'O``1.N@``2H!J!'#_8`X@#6<&("\`!"J`("\`!"I?4$].
  16755. + M=0`````#[X,```-`7V=E='1I;64````````!````$`````````/Q`````P``
  16756. + M``!/4%13``0``````_(```/I````'2!O``2>_`!`2.<[%BI(3KH``"`-9U)*
  16757. + M%6=.(@U![P`@)`@L;```=D!X`$ZN_'8N`&TV3J[_?"P`4H!.N@``)D!*@&<D
  16758. + MOH9G%"8&4H,B#20+3J[\=DJ`;Q`@`F`.($(B2Q+89OP@"V`"<`!,WVC<WOP`
  16759. + M0$YU```#[X,```-`8VAK86)O<G0````````!````$(8```)?1$]30F%S90``
  16760. + M``$````D@P```D!M86QL;V,``````0```#P````````#\0````,`````3U!4
  16761. + M4P`$`$````/R```#Z0```!,@;P`$(F\`"$CG,Q(F22((+&P``'3^3J[_K"X`
  16762. + M3KH``$J'9QHB"R0'=@!.KOY$+``B`DZN_Z9*AF<$(`-@!DZZ``!P_TS?2,Q.
  16763. + M=0`````#[X8```)?1$]30F%S90````$````2@P```T!C:&MA8F]R=```````
  16764. + M``$````>@P```D!?<V5T97)R`````0```$`````````#\0````,`````3U!4
  16765. + M4P`$`$````/R```#Z0```"0@;P`$GOP`#$CG`10J2$H89OQ3B)'-(`@F3=?`
  16766. + M78M^84ZZ```O+```2&P``$AO`!=.N@``3^\`#$'O``\B2$H99OQ3B9/((`ER
  16767. + M!;"!;PA![P`*T<!@!$'O``\O"$AL``0O"TZZ``!/[P`,%H<@37``3KH``$J`
  16768. + M9@I2!W!ZO@!OZD(5(`U,WRB`WOP`#$YU``````/X`````@````$```!>````
  16769. + M*@````````/O@P```T!C:&MA8F]R=`````````$````BA@```5]?=7,````!
  16770. + M````)H,```-?7W-P<FEN=&8````````"````9````#*#```#0%]?86-C97-S
  16771. + M`````````0```'(````````#\0````,`````3U!44P`$`$````/R```#Z@``
  16772. + M``(E;'@`825S`````_(```/I````!B!O``0O#2I(3KH``"!-<$#IB"I?3OH`
  16773. + M`````^^#```#0&-H:V%B;W)T`````````0````J#```"0&=E=&-W9``````!
  16774. + M````%@````````/Q`````P````!/4%13``0``````_(```/I````#R!O``0@
  16775. + M+P`(2.<A!BX`*DA.N@``(`=.N@``)``B#2QL``!.KO]&2H!G!'``8`9.N@``
  16776. + M</],WV"$3G4``````^^#```#0&-H:V%B;W)T`````````0```!*#```%0%]M
  16777. + M86ME7W!R;W1E8W1I;VX````````!````&(8```)?1$]30F%S90````$````@
  16778. + M@P```D!?<V5T97)R`````0```#`````````#\0````,`````3U!44P`$`$``
  16779. + M``/R```#Z0```!P@+P`$(B\`""]O``P`!%%/2.<'`"HO`!@L`2X`3KH``"`'
  16780. + M3KH``$J`9QHB0"!I`!@O2``0(`8B!2!I``0B;P`03I%@`G#_3-\`X%!/3G4@
  16781. + M+P`$(B\`""]O``P`!$CG!P`J+P`0+T4`$$S?`.!@H``````#[X,```-`8VAK
  16782. + M86)O<G0````````!````'H,```-`7V9I;F1?9F0````````!````)```````
  16783. + M``/Q`````P````!/4%13``0``````_(```/I````'"`O``0@;P`((B\`#%E/
  16784. + M2.<#-"P!+@`J2$ZZ```@!TZZ```F0$J`9R8(*P````-G&"!K`!`O2``4(`8@
  16785. + M:P`$(DTD;P`43I)@"'`-*4```'#_3-\LP%A/3G4@+P`$(&\`""(O``Q(YP,$
  16786. + M3-\@P&">``````/O@P```T!C:&MA8F]R=`````````$````:@P```T!?9FEN
  16787. + M9%]F9`````````$````@A@```E]E<G)N;P```````0```$P````````#\0``
  16788. + M``,`````3U!44P`$`$````/R```#Z0```($@+P`$(&\`"")O``PO;P`0``0O
  16789. + M;P`4``B>_``L2.<_-B9)*D@O0`!`)&\`7"`*9PY*DF8*2JH`!&8$<`%@`G``
  16790. + M<@`O0``T)`UG`B(5=``O00`L)@MG`B03>@!^`2]"`#!@4B@O`"S(ARPO`##,
  16791. + MATZZ``!*A&8$2H9G-B`%3KH``"1`2H!F!G#_8``!;DJ$9P@(*@````-G#$J&
  16792. + M9Q0(*@`!``-F#'`-*4```'#_8``!2E*%WH>ZKP!`;:@D;P!<(`IG$"`2(BH`
  16793. + M!"!L``!.N@``8`@@;```3KH``'H`(`5"KP!0>@!^`2]``"A@.B@O`"S(ARPO
  16794. + M`##,ATJ$9@1*AF<B(`5.N@``(D`@:0`(+T@`/"`$(@8@:0`$(F\`/$Z1@:\`
  16795. + M4%*%WH>ZKP!`;<`H+P!0(`12@&<&2J\`-&<(<`!.N@``8`H@+```@(1.N@``
  16796. + M+T``3'P`>`$N+P`P*B\`*&!P("\`+,"$+T``2"('PH0O00!$2H!F!$J!9U(@
  16797. + M!DZZ```B0"!I``Q(;P!$+T@`/"!I``1#[P!,+&\`/$Z66$\@+P!(9@HB#6<&
  16798. + M(@1&@<.5("\`1&8*(@MG!B($1H'#DTJO`$AF!DJO`$1G`E*%4H;8A+RO`$!M
  16799. + MBB`O`$Q.N@``2H5F%"!L``!.N@``2H!F"$JO`#1G`/[H(`5,WVS\WOP`+$YU
  16800. + M``````/O@P```T!C:&MA8F]R=`````````$```!P@P```T!?9FEN9%]F9```
  16801. + M``````,```%^```!!````'Z&```"7V5R<FYO```````!````J(8```-?7V]D
  16802. + M9%]T:6UE<@`````#```!Y````-0```#*@P``!$!?=&EM97)?<W1A<G0`````
  16803. + M```!````SH,```1`7W1I;65R7V%B;W)T`````````0```-B#```$0%]C:&5C
  16804. + M:U]S:6=N86QS``````$```%`A@```U]?;V1D7W-I9P````````$```%&@P``
  16805. + M!$!?=V%I=%]S:6=N86QS```````!```!3(,```1`7VAA;F1L95]S:6=N86QS
  16806. + M`````0```=R#```$0%]T:6UE<E]E>'!I<F5D``````$```'H`````````_$`
  16807. + M```#`````$]05%,`!`!````#\@```^D````@44](YR,D+B\`($ZZ```L+P`H
  16808. + M(`=.N@``*D!*@&=8("\`)%>`9PQ3@&<.<!8I0```8$1P#,"58$`@%70,S((D
  16809. + M``)"__.$ABJ"<@3"@G0$P(*P@6<>+T$`&"!M`"`O2``4(&T`!$/O`!AP`"1O
  16810. + M`!1.DF`&<`!@`G#_3-\DQ%!/3G4```/O@P```T!C:&MA8F]R=`````````$`
  16811. + M```,@P```T!?9FEN9%]F9`````````$````6A@```E]E<G)N;P```````0``
  16812. + M`"X````````#\0````,`````3U!44P`$`$````/R```#Z0````````/Q````
  16813. + M`P````!/4%13``0``````_(```/J````WF%M:6=A('-P96-I9FEC(&5R<F]R
  16814. + M````````56YK;F]W;B!E<G)O<@!N;W0@;W=N97(`;F\@<W5C:"!F:6QE(&]R
  16815. + M(&1I<F5C=&]R>0!N;R!S=6-H('!R;V-E<W,`:6YT97)R=7!T960@<WES=&5M
  16816. + M(&-A;&P`:2]O(&5R<F]R`&YO('-U8V@@9&5V:6-E(&]R(&%D9')E<W,`87)G
  16817. + M=6UE;G0@;&ES="!T;V\@;&]N9P``97AE8R!F;W)M870@97)R;W(`8F%D(&9I
  16818. + M;&4@;G5M8F5R`&YO(&-H:6QD('!R;V-E<W,``&YO(&UO<F4@<')O8V5S<V5S
  16819. + M`&YO="!E;F]U9V@@;65M;W)Y`'!E<FUI<W-I;VX@9&5N:65D`&)A9"!A9&1R
  16820. + M97-S`&)L;V-K(&1E=FEC92!R97%U:7)E9`!M;W5N="!D979I8V5S(&)U<WD`
  16821. + M`&9I;&4@97AI<W1S`&-R;W-S+61E=FEC92!L:6YK`&YO('-U8V@@9&5V:6-E
  16822. + M``!N;W0@82!D:7)E8W1O<GD`:7,@82!D:7)E8W1O<GD``&EN=F%L:60@87)G
  16823. + M=6UE;G0``&9I;&4@=&%B;&4@;W9E<F9L;W<`=&]O(&UA;GD@;W!E;B!F:6QE
  16824. + M<P!N;W0@82!T>7!E=W)I=&5R``!T97AT(&9I;&4@8G5S>0``9FEL92!T;V\@
  16825. + M8FEG``!N;R!S<&%C92!L969T(&]N(&1E=FEC90!I;&QE9V%L('-E96L``')E
  16826. + M860M;VYL>2!F:6QE('-Y<W1E;0!T;V\@;6%N>2!L:6YK<P``8G)O:V5N('!I
  16827. + M<&4`;6%T:"!A<F=U;65N=`!R97-U;'0@=&]O(&QA<F=E``!)+T\@<W1R96%M
  16828. + M(&5M<'1Y``!F:6QE(&YA;64@=&]O(&QO;F<``&1I<F5C=&]R>2!N;W0@96UP
  16829. + M='D`=&]O(&UA;GD@<V]F="!L:6YK<R`H;&]O<#\I`````!H````H````,@``
  16830. + M`$P```!<````=````'X```"8````L````,(```#2````Y````/8```$(```!
  16831. + M&@```28```$\```!4````5P```%N```!?@```8X```&>```!L````<0```'8
  16832. + M```!Z@```?H```((```"(````BX```)$```"5````F````)N```"@````I(`
  16833. + M``*F```"N@```"8``````^P````H`````0```VX```-J```#9@```V(```->
  16834. + M```#6@```U8```-2```#3@```TH```-&```#0@```SX```,Z```#-@```S(`
  16835. + M``,N```#*@```R8```,B```#'@```QH```,6```#$@```PX```,*```#!@``
  16836. + M`P(```+^```"^@```O8```+R```"[@```NH```+F```"X@```MX```+:```"
  16837. + MU@```!8````````#\@```^D```!%("\`!"E```!*@&<``(9R9Y"!9P``@E6`
  16838. + M9P``@'()D(%G?%.`9WA3@&=T4X!G<%.`9VQ3@&=H4X!G:%.`9VAR49"!9V93
  16839. + M@&=F4X!G9E.`9V93@&=F4X!G9E6`9V93@&=F4X!G9E.`9V95@&=F4X!G9E.`
  16840. + M9V93@&=F4X!G9E.`9V95@&=F4X!G9E.`9V93@&=F8&AP`&!F<`Q@8G`+8%YP
  16841. + M%F!:<`=@5G`(8%)P$&!.<!%@2G`"8$9P`F!"<!9@/G`'8#IP%F`V<"1@,G`6
  16842. + M8"YP%F`J<!Y@)G`28")P)6`><"9@&G`38!9P%F`2<!Q@#G`-8`IP#6`&<`U@
  16843. + M`G#_3G4O#BQL``!.KO]\80#^^BE````L7TYU```#^`````$````!```!#@``
  16844. + M``````/OA@```E]?3U-%4E(``````0````:&```"7T1/4T)A<V4````!```!
  16845. + M`@````````/Q`````P````!/4%13``0`0````_(```/K`````0```_(```/I
  16846. + M````!4ZZ``!.N@``3KH``'(&3OH````````#[X,```-`8VAK86)O<G0`````
  16847. + M```!`````H,```-`7V-L;W-E7V%L;``````!````!H,```)`9V5T<&ED````
  16848. + M``$````*@P```D!K:6QL`````````0```!`````````#\0````,`````3U!4
  16849. + M4P`$``````/R```#Z0```%D@;P`$("\`"%E/2.<!%BX`+T@`$"!O`!`J4&!D
  16850. + M<`VP+0`(9EH@+0"L9P;E@"!`8`*1R"9(("T`G+"'9S0@+0"@L(=G+"`M`."P
  16851. + MAV<D(`MG+B`K`!RPAV<8("L`(+"'9Q`@*P`XL(=G""`K`#"PAV8.(DUP8.^(
  16852. + M+'@`!$ZN_KPJ54J59IA,WVB`6$].=2`O``0B+P`(2.<!`BX`(`%3@&<,4X!G
  16853. + M"%.`9P1=@&8L+'@`!$ZN_WP@;```T/P!EB`'80#_2"!L``#0_`&D(`=A`/\Z
  16854. + M3J[_=G``8`AP%BE```!P_TS?0(!.=2`O``0B+P`(2.<&!"P!*@!.N@``2H5J
  16855. + M`D2%NJP``&8.2H9G!B`&3KH``'``8$@@!4ZZ```J0$J`9P9*K0`49PIP`RE`
  16856. + M``!P_V`L(`9G*"(M`!#!06$`_U@B`'`)O(!F%'(!*T$`%"M``!AP%$ZZ``!P
  16857. + M`&`"(`%,WR!@3G4``````^^&```"7U-Y<T)A<V4````"````Q````+:&```"
  16858. + M7V5R<FYO```````"```!*@```-R#```#0&-H:V%B;W)T`````````0```/B&
  16859. + M```#7U]O=7)?<&ED`````````0```0*#```$0%]S:6=?9&ES<&%T8V@`````
  16860. + M``(```%4```!#H,```-`7V9I;F1?<&ED```````!```!&`````````/Q````
  16861. + M`P````!/4%13``0`0````_(```/I````0R!O``1(YP`&*D@B32QX``1.KO\$
  16862. + M($U,WV``3OH``"`O``1(YP$$+@`J;``(8`X@+0`,L(=F!"`-8`@J54J59NYP
  16863. + M`$S?((!.=4CG(`)![``(3KH``"`L```B+```)`"S@@*"`'___RE"``12@BE"
  16864. + M```O`2\`2&P``$AL`!1.N@``3^\`$"QX``1.KOUF*4``.&<00>P`%'``3KH`
  16865. + M`"E``#1F"DAL``Y.N@``6$],WT`$3G5(YP`&("P`.&<*($`L>``$3J[]8$JL
  16866. + M`#1G."QX``1.KO]\8`PB37`<+'@`!$ZN_RX@;``T+'@`!$ZN_HPJ0$J`9N(@
  16867. + M;``T3KH``"QX``1.KO]V3-]@`$YU``````/X`````@````$```"D````=@``
  16868. + M``P````"````]@```.0```#(````N````)X```"4````C@```'H```!N````
  16869. + M:````$X````J`````````^^#```"0&9R964````````!````'(,```)`3F5W
  16870. + M3&ES=`````$```!2A@```5]?=7,````!````5H8```1?7W-T87)T=7!?=&EM
  16871. + M90```````0```%J#```#7U]S<')I;G1F`````````0```'Z#```#0$-R96%T
  16872. + M95!O<G0``````0```)J#```"7U]F86EL```````!````J(,```-`1&5L971E
  16873. + M4&]R=``````!````^@````````/Q`````P````!/4%13``0`0````_(```/J
  16874. + M````!F1O;W(N)6QX+B5L>```3F\@;65M;W)Y`````_(```/K````#P```_(`
  16875. + M``/I````+R!O``0@+P`((B\`#")O`!`O;P`4``0O;P`8``A93TCG#S8H+P`L
  16876. + M*B\`*"P!+@`J22](`"`L>``$3J[]9B9`2H!G,"!+(`1.KOUR)$!*@&<B(`UG
  16877. + M""5-`"@E10`D(&\`("`'(DHB!DZN_D1*`&8$(`I@%B`*9P8@2DZN_6P@"V<&
  16878. + M($M.N@``<`!,WVSP6$].=2!O``1(YP`&*D@@#6<8(DTL>``$3J[^/B!M``Y.
  16879. + MN@``($U.KOUL3-]@`$YU```#[X,```-`1&5L971E4&]R=``````"````K@``
  16880. + M`(0````````#\0````,`````3U!44P`$``````/R```#Z0```!0@;P`$("\`
  16881. + M"$CG(08N`"I(3KH``"(-+&P``$ZN_XA*@&<B(@!.KO^F(`=.N@``(`=.N@``
  16882. + M)``B#4ZN_T9*@&<$<`!@!DZZ``!P_TS?8(1.=0```^^#```#0&-H:V%B;W)T
  16883. + M`````````0```!*&```"7T1/4T)A<V4````!````&(,```5`7VUA:V5?<')O
  16884. + M=&5C=&EO;@````````(````R````+(,```)`7W-E=&5R<@````$```!&````
  16885. + M`````_$````#`````$]05%,`!`!````#\@```^D```!U(&\`!")O``@O;P`,
  16886. + M``0@+P`0+V\`%``(2.<'-"X`)&\`("9)*D@L*P!T)*\`'$*J`!(U?``!``Y"
  16887. + M:@`0)7P```(``#(U?``"``PE:P"``#8@*P!\9A`B*P`$;PHE?```"```%F`$
  16888. + M)4``%B53``1!ZP"$3KH``"5``"(E0``:)4``*B`K``1:@&<^58!G4%F`9T!5
  16889. + M@&9F(`UG'$AX`/](;```+PU.N@``3^\`#"H`;P8E10`68`@E?````0``%B5\
  16890. + M``"@```(8$HE?```$```"&!`)7P``$````A\`&`T2I-F$$HK``AF"B5\```@
  16891. + M```(8"`E?```@```"&`6("L`!&\&<$#AB&`&(#P``(``)4``"$J'9P)\`"`&
  16892. + M3KH``(&J``A,WRS@3G4@;P`$(F\`"%E/2.<C%BI(?@`O20`80J<L;```<@(D
  16893. + M#TZN_QQ/[P`$)D!*@&=0(@UT_DZN_ZPN`&=$(@<D"TZN_YI*@&<X(@=.KO\N
  16894. + M2H!7QD0&2(9(QDJ`9P8B`$ZN_Z8@!^6`+R\`&"!`+R@`#")"(`8@36$`_GI0
  16895. + M3WP`8`Y\_TZN_WQ.N@``*4```$J'9P8B!TZN_Z8@"V<()`MR`DZN_Q8@!DS?
  16896. + M:,183TYU```#^`````$````!````H`````````/O@P```T!?86UI9V$R9VUT
  16897. + M``````$```!T@P```U]R96%D;&EN:P````````$```"F@P```T!?;6%K95]M
  16898. + M;V1E``````$```$<A@```E]$3U-"87-E`````0```4*#```$0&-O;G9E<G1?
  16899. + M;W-E<G(```````$```&NA@```E]E<G)N;P```````0```;(````````#\0``
  16900. + M``,`````3U!44P`$`$````/R```#ZP```$````/R```#^P``")L11`!?<V5T
  16901. + M:FUP`'1E>'0`0%]L;VYG:FUP`$!?<V5T:FUP`%]?;&]N9VIM<`!?7W-E=&IM
  16902. + M<`!S<')I;G1F`%],5D]287=$;T9M=`!?06)S17AE8T)A<V4`7U]S<')I;G1F
  16903. + M`'1M<&YA;2YC`%]M:W1E;7``0'1M<&YA;0!?=&UP;F%M`%]?34521T5$`'!O
  16904. + M<&5N+F,`7W=A:71P:60`0&9C;&]S90!`9G)E90!`7W-T87)T7W!R;V-E<W,`
  16905. + M0%]S971E<G(`7V5R<FYO`%]$3U-"87-E`$!F;W!E;@!?7V9I9F]?8F%S90!?
  16906. + M7V9I9F]?;V9F<V5T`$!M86QL;V,`0'!C;&]S90!?<&-L;W-E`$!P;W!E;@!?
  16907. + M<&]P96X`<W1A<G0N8P!`8V]N=F5R=%]O<V5R<@!?7W!R;V-E<W-E<P!?7W-T
  16908. + M86-K7W-I>F4`7U]N97AT7W!I9`!?7V1O;W)?;F%M90!?7W-T87)T=7!?<&]R
  16909. + M=`!?3&EN:V5R1$(`7U]S=&%R=%]P<F]C97-S`%]?8VAI;&1?9&]O<E]N86UE
  16910. + M`%]?8VAI;&1?8V]M;6%N9%]L96X`7U]C:&EL9%]C;VUM86YD`%]?8VAI;&1?
  16911. + M97AI=`!?7V-H:6QD7V5N=')Y`&=E='!I9"YC`%]?;W5R7W!I9`!`8VAK86)O
  16912. + M<G0`0&=E='!I9`!?9V5T<&ED`'-I9VYA;"YC`%]?<VEG7VAA;F1L97)S`$!S
  16913. + M:6=N86P`7W-I9VYA;`!`<VEG=F5C`%]S:6=V96,`<VEG<V5T;6%S:RYC`$!?
  16914. + M<VEG7V1I<W!A=&-H`%]?<VEG7W!E;F1I;F<`7U]S:6=?;6%S:P!`<VEG8FQO
  16915. + M8VL`7W-I9V)L;V-K`$!S:6=S971M87-K`%]S:6=S971M87-K`'-T870N8P!?
  16916. + M<F5A9&QI;FL`0%]F:6)S=&%T`$!?;&9I8G-T870`7U]T96UP7V9N86UE`%]L
  16917. + M87-T7V5N=')Y`$!?9V5T7V-D`%]L87-T7V1I<@!`;'-T870`7VQS=&%T`$!S
  16918. + M=&%T`%]S=&%T`&1I<BYC`$!S965K9&ER`%]S965K9&ER`$!T96QL9&ER`%]T
  16919. + M96QL9&ER`$!R96%D9&ER`%]R96%D9&ER`$!C;&]S961I<@!?8VQO<V5D:7(`
  16920. + M0&]P96YD:7(`7V]P96YD:7(`9&ER7V1A=&$N8P!?7V=E=%]C9`!A8V-E<W,N
  16921. + M8P!`86-C97-S`%]A8V-E<W,`0%]?86-C97-S`%]?7V%C8V5S<P!F<W1A="YC
  16922. + M`%]I;V-T;`!`9G-T870`7V9S=&%T`'-Y;6QI;FLN8P!`<WEM;&EN:P!?<WEM
  16923. + M;&EN:P!M97-S86=E+F,`0&5X:70`7U]0<F]G<F%M3F%M90!?7U="96YC:$US
  16924. + M9P!?7W5S`%]?9F%I;`!?7VUE<W-A9V4`86QL;V-D;W,N8P!?06QL;V-$;W-/
  16925. + M8FIE8W1486=S`'-E=&IM<"YC`$!L;VYG:FUP`%]L;VYG:FUP`$!S971J;7``
  16926. + M9V5T:&]S=&YA;64N8P!?<W1R;F-P>0!?7W-Y<W1E;5]N86UE`$!G971H;W-T
  16927. + M;F%M90!?9V5T:&]S=&YA;64`<&5R<F]R+F,`7U]/4T524@!?<WES7V5R<FQI
  16928. + M<W0`7W-Y<U]N97)R`$!W<FET90!`<&5R<F]R`%]P97)R;W(`<VEG;&ES="YC
  16929. + M`%]S>7-?<VEG;&ES=`!W86ET-"YC`$!?:&%N9&QE7W-I9VYA;',`0%]W86ET
  16930. + M7W-I9VYA;',`0%]F<F5E7V5N=')Y`$!W86ET<&ED`$!W86ET`%]W86ET`$!W
  16931. + M86ET,P!?=V%I=#,`0'=A:70T`%]W86ET-`!P<V5U9&]?8RYC`$!?9G)E95]F
  16932. + M9`!`7V9I;F1?9F0`0%]P<V5U9&]?8VQO<V4`7U]P<V5U9&]?8VQO<V4`<FEN
  16933. + M9&5X+F,`0'-T<G)C:'(`0')I;F1E>`!?<FEN9&5X`&EN9&5X+F,`0'-T<F-H
  16934. + M<@!`:6YD97@`7VEN9&5X`'1I;65R<RYC`$!?9&5V:6-E7V-L;W-E`$!?9&5V
  16935. + M:6-E7V]P96X`0%]T:6UE<E]E>'!I<F5D`%]?=&EM97)?97AP:7)E9`!`7W1I
  16936. + M;65R7W-T87)T`%]?=&EM97)?<W1A<G0`0%]T:6UE<E]S:6<`7U]T:6UE<E]S
  16937. + M:6<`0%]T:6UE<E]A8F]R=`!?7W1I;65R7V%B;W)T`$!?9G)E95]T:6UE<@!?
  16938. + M7V9R965?=&EM97(`0%]A;&QO8U]T:6UE<@!?7V%L;&]C7W1I;65R`&9I9F]F
  16939. + M9"YC`%]?<W1A<G1U<%]T:6UE`$!?8VQE86YU<%]F:69O`%]?8VQE86YU<%]F
  16940. + M:69O`$!?:6YI=%]F:69O`%]?:6YI=%]F:69O`%]?9FEF;U]S:6<`7U]F:69O
  16941. + M7V]K`%]?1FEF;T)A<V4`8VQO<V4N8P!`8VQO<V4`7V-L;W-E`$!?7V-L;W-E
  16942. + M`%]?7V-L;W-E`&9I;&5S+F,`0%]L87-T7V9D`%]?;&%S=%]F9`!?7V9I;F1?
  16943. + M9F0`7U]F<F5E7V9D`$!?86QL;V-?9F0`7U]A;&QO8U]F9`!U=&EM92YC`$!?
  16944. + M9VUT,F%M:6=A`$!T:6UE`$!U=&EM90!?=71I;64`8F-O<'DN8P!`;65M;6]V
  16945. + M90!`8F-O<'D`7V)C;W!Y`&%M:6=A=&EM92YC`%]D87EL:6=H=`!?='IN86UE
  16946. + M`%]?0UA$,S,`0&QO8V%L=&EM90!`7V=E='1I;64`0&9T:6UE`%]F=&EM90!`
  16947. + M9V5T=&EM96]F9&%Y`%]G971T:6UE;V9D87D`=&EM96-O;G9E<G0N8P!?5&EM
  16948. + M97)"87-E`$!?86UI9V$R9VUT`%]?86UI9V$R9VUT`%]?9VUT,F%M:6=A`%]?
  16949. + M9V5T=&EM90!P=V0N8P!`9V5T;&]G:6X`7V=E=&QO9VEN`$!G971P=VYA;0!?
  16950. + M9V5T<'=N86T`0&=E='!W=6ED`%]G971P=W5I9`!?7V%M:6=A7W5S97(`<F5A
  16951. + M9&QI;FLN8P!?<W1R;&5N`$!R96%D;&EN:P!A;&QO8V$N8P!?;6%L;&]C`%]F
  16952. + M<F5E`%]A;&QO8V$`=6YL:6YK+F,`0'5N;&EN:P!?=6YL:6YK`'!I<&4N8P!`
  16953. + M<W1R8V%T`$!.97=,:7-T`$!S;V-K971P86ER`%]S;V-K971P86ER`$!P:7!E
  16954. + M`%]P:7!E`&=R<"YC`$!G971G<FYA;0!?9V5T9W)N86T`0&=E=&=R9VED`%]G
  16955. + M971G<F=I9`!S:6=N86QS+F,`7U]&4$524@!`7U]E>&ET`$!?9FEN9%]P:60`
  16956. + M0%]C;&5A;G5P7W!R;V-E<W-E<P!?7V-H:6QD<F5N7V5X:70`0%]I;FET7W!R
  16957. + M;V-E<W-E<P!`7V-L96%N=7!?<VEG;F%L<P!?7V-L96%N=7!?<VEG;F%L<P!`
  16958. + M7VEN:71?<VEG;F%L<P!?7VEN:71?<VEG;F%L<P!`0VAK7T%B;W)T`%]#:&M?
  16959. + M06)O<G0`7V-H:V%B;W)T`$!#6$9%4E(`7T-81D524@!?7VAA;F1L95]S:6=N
  16960. + M86QS`%]?=V%I=%]S:6=N86QS`$!?8VAE8VM?<VEG;F%L<P!?7V-H96-K7W-I
  16961. + M9VYA;',`7U]S:6=?9&ES<&%T8V@`0&%L87)M`%]A;&%R;0!?;6%I;BYC`$!M
  16962. + M86EN`$!?7V=E=&5N=@!`='%S;W)T`$!S=')N8W!Y`%]?7V-T>7!E`$!?:6YI
  16963. + M=%]U;FEX:6\`7U]?:6]B`%]?6$-%6$E4`%]3>7-"87-E`$!R96%L;&]C`%]?
  16964. + M7VUA:6X`0&UA:V5?96YV:7)O;@!?;6%K95]E;G9I<F]N`%]E;G9I<F]N`%]?
  16965. + M;V1D7W-I9P!?7V]D9%]T:6UE<@!U;6%S:RYC`$!U;6%S:P!?=6UA<VL`<')O
  16966. + M=&5C=&EO;BYC`$!?;6%K95]M;V1E`%]?;6%K95]M;V1E`$!?;6%K95]P<F]T
  16967. + M96-T:6]N`%]?;6%K95]P<F]T96-T:6]N`%]U<V5?86UI9V%?9FQA9W,`9VED
  16968. + M+F,`0&=E=&5G:60`7V=E=&5G:60`0&=E=&=I9`!?9V5T9VED`%]E>&ET+F,`
  16969. + M0%]E>&ET`%]?97AI=`!?7U]E>&ET`$!?8VQO<V5?86QL`%]?8VQO<V5?86QL
  16970. + M`&EO8W1L+F,`0&EO8W1L`&]P96XN8P!`7V%L;&]C7V%M:6=A9F0`0'-T<FEC
  16971. + M;7``7V]P96X`7U]?;W!E;@!C=&EM92YC`%]S<')I;G1F`$!R96%D`$!?='IS
  16972. + M970`7U]T>G-E=`!`;6MT:6UE`%]M:W1I;64`0&-T:6UE`%]C=&EM90!`87-C
  16973. + M=&EM90!?87-C=&EM90!`9VUT:6UE`%]G;71I;64`7VQO8V%L=&EM90!`='IS
  16974. + M971W86QL`%]T>G-E='=A;&P`0'1Z<V5T`%]T>G-E=`!?=&EM97IO;F4`86UI
  16975. + M9V%D;W,N8P!?7VEN:71?=6YI>&EO`%]?86QL;V-?86UI9V%F9`!`7V1O7W1R
  16976. + M=6YC871E`%]?9&]?=')U;F-A=&4`<F5N86UE+F,`0')E;F%M90!?<F5N86UE
  16977. + M`&-H;W=N+F,`0&9C:&]W;@!?9F-H;W=N`$!C:&]W;@!?8VAO=VX`8F-M<"YC
  16978. + M`$!B8VUP`%]B8VUP`&)Z97)O+F,`0&)Z97)O`%]B>F5R;P!F=')U;F-A=&4N
  16979. + M8P!`9G1R=6YC871E`%]F=')U;F-A=&4`9F-H;6]D+F,`0&9C:&UO9`!?9F-H
  16980. + M;6]D`&UK9FEF;RYC`$!M:VYO9`!?;6MN;V0`0&UK9FEF;P!?;6MF:69O`&ES
  16981. + M871T>2YC`$!I<V%T='D`7VES871T>0!S:6=P875S92YC`$!S:6=P875S90!?
  16982. + M<VEG<&%U<V4`<FUD:7(N8P!`<FUD:7(`7W)M9&ER`'-T<F9T:6UE+F,`0'-T
  16983. + M<F9T:6UE`%]S=')F=&EM90!T<G5N8V%T92YC`$!T<G5N8V%T90!?=')U;F-A
  16984. + M=&4`97AE8RYC`$!E>&5C`%]E>&5C`$!E97AE8P!?965X96,`=6ED+F,`0&=E
  16985. + M=&5U:60`7V=E=&5U:60`0&=E='5I9`!?9V5T=6ED`'-L965P+F,`0'-L965P
  16986. + M`%]S;&5E<`!C<F5A="YC`$!C<F5A=`!?8W)E870`0%]?8W)E870`7U]?8W)E
  16987. + M870`=W)I=&4N8P!?=W)I=&4`0%]?=W)I=&4`7U]?=W)I=&4`=&EM92YC`%]T
  16988. + M:6UE`&=E=&5N=BYC`%]?7V=E=&5N=@!L:6YK+F,`0&QI;FL`7VQI;FL`;6MT
  16989. + M96UP+F,`0&UK=&5M<`!G971W9"YC`$!G971C=V0`0&=E='=D`%]G971W9`!C
  16990. + M:&UO9"YC`$!C:&UO9`!?8VAM;V0`;'-E96LN8P!`;'-E96L`7VQS965K`$!?
  16991. + M7VQS965K`%]?7VQS965K`')E860N8P!?<F5A9`!`7U]R96%D`%]?7W)E860`
  16992. + M<V5L96-T+F,`0'-E;&5C=`!?<V5L96-T`&9C;G1L+F,`7V9C;G1L`&5R<F]R
  16993. + M7VUS9RYC`&5R<F]R+F,`7U]S971E<G(`7V-O;G9E<G1?;W-E<G(`86)O<G0N
  16994. + M8P!`:VEL;`!`86)O<G0`7V%B;W)T`&MI;&PN8P!?:VEL;`!P<F]C97-S97,N
  16995. + M8P!`1&5L971E4&]R=`!`0W)E871E4&]R=`!?7V-L96%N=7!?<')O8V5S<V5S
  16996. + M`%]?:6YI=%]P<F]C97-S97,`7U]F:6YD7W!I9`!?7V9R965?96YT<GD`9&5V
  16997. + M:6-E<RYC`%]?9&5V:6-E7V-L;W-E`%]?9&5V:6-E7V]P96X`;6MD:7(N8P!`
  16998. + M;6MD:7(`7VUK9&ER`&9I8G-T870M:&%R9"YC`%]?9FEB<W1A=`!?7VQF:6)S
  16999. + M=&%T`````0````$`"0`)`^D````$``X`%@`!`!@`!``!`"$`#@`!`"L````!
  17000. + M`#0`#``!``D`#`/I``(`/`!)``$`5@````$`8``I``,`"0`*`^D``0!H``(`
  17001. + M<0`$``$`>0````$`@0`$`^H``````($`"0/K``````"*`%0``P`)`&\#Z0`,
  17002. + M`)$`F@"B`*@`N`#"`,D`T0!5`-D`Y0#R``0`^P%>``$!`P%:``$!"P`(``$!
  17003. + M$@````$`@0`%`^H``````($``0/K``````$9`2T``P`)`,4#Z0`+`*(`P@$@
  17004. + M`3`!/`%)`50`\@%@`,D!;P`"`*D`Y@`!`7D`M@`!`($`!@/J``````"!``H#
  17005. + MZP````4!B0`D``$!FP`@``$!KP`<``$!OP`8``$!S`````$!V@)M``$`"0`#
  17006. + M`^D``@'C`>P``@'W`````0'_`````0('`H8``0`)`",#Z0`#`,("$`'L``0"
  17007. + M'P!B``$")P!:``$"+P`,``$"-P````$"/P+&``$`"0`5`^D`!`)+`EL![`)I
  17008. + M``0"=`!&``$"?@!"``$"B``$``$"E`````$"H`,"``(`"0":`^D`"0*F`K`!
  17009. + M[`*Z`,D"Q@+3`MX"Z``$`O(!U@`!`OD!S@`!`P`!G@`!`P8!E@`!`($`00/K
  17010. + M``````,,`_4``0`)`-`#Z0`)`M,"W@'L`,(!(`#)`/("Z`"B``H#$@,@``$#
  17011. + M&P,8``$#)`,(``$#+0,$``$#-@*0``$#/P*,``$#2`).``$#4@)*``$#7`%>
  17012. + M``$#90%:``$#;@48``(`"0`(`^D``0#)``("WP````$#>0````$`@0`"`^L`
  17013. + M```"`M,`!``!`N@````!`X(%,@`!``D`&P/I``,`P@*P`>P`!`.+`&```0.3
  17014. + M`%@``0.;``@``0.E`````0.O!6@``0`)`$$#Z0`&`,(!(`*Z`,D#M@'L``(#
  17015. + MO@`(``$#Q0````$#S`77``$`"0`.`^D``P"X`,D![``"`]8`"``!`]\````!
  17016. + M`^@%_P`"``D`/@/I``4#\0/X`,D$!@02``($%P#B``$$'@#4``$`@0`/`^H`
  17017. + M````!"@&A@`!``D`!P/I``$`R0`!!#,````!!$<&G``!``D`#P/I``0`#0*'
  17018. + M`!<":0`$!%``'@`!!%D`%@`!!&(`!``!``$````!!&H&S``!``D`!P/I``($
  17019. + M=P2!``($CP`(``$$G`````$$J0;I``(`"0`I`^D`!@#)!+($N@3'`,($T``"
  17020. + M!-@`!``!!.`````!`($`"`/J``````3H!U(``@`)```#Z0``````@0#&`^H`
  17021. + M```!!/("F``!!/\(1P`!``D`.@/I``4%!@47`,(%)@$P``@%-`#```$`D@"T
  17022. + M``$%/0"F``$%0P"B``$%20"2``$%4`"&``$%5P`0``$%7@````$%90BJ``$`
  17023. + M"0`2`^D``P5O!7D![``"!80`!``!!9,````!!:((V``!``D``P/I``$%J@`"
  17024. + M!;0`"``!!;P````!!<0(Z@`!``D``P/I``$%RP`"!=0`"``!!=L````!!>((
  17025. + M_``"``D`30/I``(%Z@7Y``P&"`$$``$&&`$```$&*`#(``$&-@"\``$&1`"H
  17026. + M``$&4`"D``$&7`!^``$&:@!Z``$&>`!2``$&A0!.``$&D@````$&H`````$`
  17027. + M@0`$`^H`````!JX);0`#``D`'@/I``($$@:W``0&Q@!4``$&U0!4``$&Y```
  17028. + M``$&\`````$`@0`%`^H````!!OP````!`($`!`/K````!`<'``P``0#E``@`
  17029. + M`0#9``0``0<1`````0<<";H``0`)`!8#Z0`#!6\%>0'L``0')`!0``$'*P!,
  17030. + M``$',@`$``$'.P````$'1`GL``(`"0!B`^D``P"B`,(`\@`(!TP!@``!!U8!
  17031. + M@``!!7H!3``!!V`!2``!!7`!+``!!VH!*``!!W0`,``!!W\````!`($``@/K
  17032. + M``````>*"H```0`)`!H#Z0`%`+@`R0>1!YT![``"!Z0`"``!!ZL````!![(*
  17033. + MOP`!``D`!P/I``$'N0`"!\,`#``!!\H````!!]$*U0`"``D`4@/I``8'W0?G
  17034. + M!^X']@@!`>P`!`@,`0X``0@3`0H``0@:``@``0@H`````0"!``P#Z@`````(
  17035. + M-@MU``$`"0`P`^D``@?N"$0`!@A/`'@``0A;`'0``0>2`"@``0AG`"```0@"
  17036. + M``0``0AS`````0A]"[X``@`)``L#Z0````8(@P`D``$(C0`D``$(EP`6``$(
  17037. + MH0`2``$(JP`$``$(M0````$`@0`)`^H````!"+\`!``!",P+Z@`!``D`*@/I
  17038. + M``8`P@$@"-8`N`#)`>P``@C?``P``0*G`````0CI#$```P`)`"P#Z0`""/$(
  17039. + M^0`!"0``+@`!`($`!P/J``````"!``$#ZP`````)"`R=``$`"0`V`^D`!@$@
  17040. + M`>P#M@=+`,(`R0`""1$`9``!"1D`8``!"2$-`P`"``D"&@/I`!4%>0#9`.4'
  17041. + M!P'L!6\'<P#R`+@`50)+"2<%!@47`,D`P@"B!Q$)+P02!OP`!`DY!]0``0E%
  17042. + M!\(``0E1!S8``0E7!S(``0"!`!4#Z@`````)70_\``(`"0`)`^D````$"6,`
  17043. + M%@`!"6T`$@`!"7<`!``!"8$````!`($`"0/J``````F+$"<``P`)`*D#Z0`-
  17044. + M"94$'0F<":0)KPG$"=,&=P9#!!8&D08G!@<`%`GE`IH``0GW`IH``0H)`EP`
  17045. + M`0H8`EP``0HG`EH``0HR`EH``0'M`E(``0H]`E(``0I'`D0``0I/`D```04'
  17046. + M`>H``0I7`>8``048`=```0IH`<P``0IW`;8``0J'`;(``0),`0P``0J7`0@`
  17047. + M`0JF`"@``0JM`"0``0"!``H#Z@``````@0!$`^L````#`EL!"``!`FD!!``!
  17048. + M`A``!``!"K0170`#``D"'0/I`!4#\0J["+\*P0K+"M,*W00&"N4`R0H(!N,&
  17049. + M0P:1"O0*^@L$`*(+#`#R!!8``PL6`WH``0L>`'@``0LL`'@``0"!`"P#Z@``
  17050. + M````@0`(`^L````(!($`'``!"SH`&``!"$0`%``!`3P`$``!!K<`#``!"T,`
  17051. + M"``!"TT`!``!!!(````!"UD4>P`!``D`!`/I`````@MA``0``0MH`````0MO
  17052. + M%(<``@`)`#X#Z0````0+?`!^``$+B`!Z``$+E``$``$+I@````$`@0`!`^L`
  17053. + M```!"[@````!"\D4U@`!``D``@/I````!`O/``0``0O8``0``0OA`````0OI
  17054. + M`````0OQ%.```0`)`!4#Z0`'"OH&=PM-">0&Q0<J!TL`!@OY`$P``0P``$@`
  17055. + M`0F=`"8``0P'`"(``0P/`````0P;`````0PG%2H``0`)`!,#Z0`"!7D![``"
  17056. + M#"\`#``!`[<````!##854P`"``D`F`/I``H,/`"X`,(+DP2R`2``R0Q,`>P$
  17057. + M$@`"#%8"2``!#%P````!`($``@/J``````QD%D0``P`)!6@#Z0`*#&L*P0K3
  17058. + M!^X*W0<C#'0,50DG!<L`$`Q[%9(``0R#%9(``0R+%80``0R3%8```0R;$/0`
  17059. + M`0RB$/```0RI$)0``0RR$)```0R[#I@``0S##I0``0?W#C```0S+#BP``0S6
  17060. + M#38``0SA#38``0SL#,8``0SS#,8``0"!`$@#Z@````,'W0`8``$,^@`4``$'
  17061. + MYP`,``$`@03V`^L`````#00<K``"``D!G`/I``L$%@=S`/(![`"B`,(!(`4&
  17062. + M"G8`N`#)``8*Y@7L``$-#P7,``$,/056``$-'05(``$-+0+8``$-.P+0``$`
  17063. + M@0`(`^H`````#4D>O``!``D`)P/I``0`P@$@`,D![``"#5(`"``!#5H````!
  17064. + M#6(?!``!``D`#@/I````!`UJ`"H``0UR`!P``0UZ``P``0V!`````0V('QH`
  17065. + M`0`)`!`#Z0````(-CP`,``$-E0````$-FQ\R``$`"0`%`^D````"#:,`"``!
  17066. + M#:H````!#;$?/P`!``D`#`/I``(#M@'L``(-O0`(``$-R`````$-TQ]@``$`
  17067. + M"0`-`^D``P.V`>P+DP`"#=P`"``!#>0````!#>P?B@`!``D`$`/I``$`P@`$
  17068. + M#?4`+``!#?P`(``!#@,`#``!#@L````!#A,?J@`!``D`#0/I``(#M@'L``(.
  17069. + M'``$``$.)`````$.+!_,``$`"0`/`^D`!0#"!08%%PIV`H<``@XW``0``0Y!
  17070. + M`````0Y+(`8``0`)`"@#Z0`$`2``P@"X`,D``@Y3``0``0Y:`````0YA($\`
  17071. + M`P`)`9<#Z0`"#(H'[@`"#FP`$@`!#G8````!`($`>0/J``````"!``D#ZP``
  17072. + M```.@"+2``$`"0`6`^D`!0#"`2`-+`'L`,D``@Z+``@``0Z5`````0Z?(Q``
  17073. + M`0`)`-4#Z0`*`,(!(`"B`*@+#`02!8,#M@#)`/(`!`ZF`S@``0ZL`QP``0ZR
  17074. + M`"(``0ZY`````0[`)#,``0`)``(#Z0````0.Q@`$``$.SP`$``$.V`````$.
  17075. + MX`````$.Z"0]``$`"0`.`^D`!P8'!08%%PM#!B<+30'L``(.\``$``$.]P``
  17076. + M``$._B2$``$`"0`/`^D``@Q5`>P`!`\&`#(``0\-`"H``0\4``@``0\=````
  17077. + M`0\F)*@``0`)`",#Z0`#`,(%>0'L``0$T0""``$/+@!V``$/-0`,``$//@``
  17078. + M``$/1R3F``$`"0`,`^D``0@!``('G@`$``$/3@````$/5"4"``$`"0`=`^D`
  17079. + M`P#R`,D![``""L(`!``!#UT````!#V<E.0`!``D`$P/I``,`N`'L`,D``@]N
  17080. + M``@``0]T`````0]Z)68``@`)`"0#Z0`$`YH`5002`>P``@^#``0``0!I````
  17081. + M`0"!``(#Z@`````/BR6V``$`"0`&`^D``@^2`>P``@^;``0``0^B`````0^I
  17082. + M)=$``0`)``\#Z0`$`+@`R0N3`>P``@^Q``@``0^X`````0^_)@(``0`)`!P#
  17083. + MZ0`"!7D![``$#\<`7``!#\X`3@`!#]4`#@`!#]X````!#^<F-``!``D`'`/I
  17084. + M``,`P@5Y`>P`!`QU`&0``0_N`%@``0_T``P``0_\`````1`$)FL``0`)`($#
  17085. + MZ0`+!@<%!@47"T,*=@9;!B<+30#"!7D![``"$`T`&``!$!4````!$!TG00`!
  17086. + M``D`(`/I``,`P@5Y`>P``1`E`````1`L)WP``@`)```#Z0``````@0#>`^H`
  17087. + M```"!,<#<@`!!+H"U@`!$#@HD0`"``D`10/I``(`R02R``0`N0#^``$00`#^
  17088. + M``$!(0`$``$020````$`@0`!`^L````!`,(````!$%@H\@`!``D`!0/I``00
  17089. + M7P'V#`X![``"$&8````!$&T````!$'0I%P`!``D`60/I``8)I`)+`>,![`#"
  17090. + M"P0``A!@`.X``1![`.8``1"!*:```P`)`$,#Z0`($(P$%A"8`%4&MP02"2\`
  17091. + MH@`(";``L@`!$*4`L@`!"=0`2``!$+D`2``!":4`(@`!$,H`'@`!!2<`!``!
  17092. + M$-4````!`($`!@/J``````"!``\#ZP````8!8``X``$)Q``T``$!5``4``$!
  17093. + M,``(``$!XP`$``$!20````$0XBHY``$`"0`O`^D``1",``0%ZP"4``$0[`"0
  17094. + M``$%^@`<``$0^P````$1"2IY``$`"0`4`^D`!`"X"Y,`R0'L``(1$0`(``$1
  17095. + M&`````$1'RJP``(`"0!U`^D`!@#"`2``R0M[`J8(3@`$`K$!,``!$2X!*``!
  17096. + >`KL`&``!$3@````!`($`0`/K`````0+&`````0``
  17097. + `
  17098. + end
  17099. diff -rc --new-file emacs-18.59/amiga/unix/src/unix.lib.uue /gnu/src/amiga/emacs-18.59/amiga/unix/src/unix.lib.uue
  17100. *** emacs-18.59/amiga/unix/src/unix.lib.uue    Thu Jan  1 00:00:00 1970
  17101. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/unix.lib.uue    Tue Jul 12 10:32:02 1994
  17102. ***************
  17103. *** 0 ****
  17104. --- 1,1186 ----
  17105. + begin 666 unix.lib
  17106. + M```#^@``*UH```/I````"2!O``0@UTC0_/QP`$YU(&\`!"`O``AF`G`!(EA,
  17107. + MT/S\6(].T0```_(```/I````#$CG(#(@;P`80^\`'$7Z`!PF;P`4)`LL>0``
  17108. + M``!.K@``(`N0@DS?3`1.=1;`3G4``````^^!```#7T%B<T5X96-"87-E````
  17109. + M`0```!B&```#7TQ63U)A=T1O1FUT`````0```!X````````#\@```^D````*
  17110. + M(&\`!"\-*D@@#68$2^P``$'L```B31+89OPO#4ZZ``!83RI?3G4``````_@`
  17111. + M```!`````0```!(````!`````@````X````````#[X,```)?;6MT96UP````
  17112. + M``$````>`````````_$````#`````$]05%,`!`!````#\@```^H````$=#IT
  17113. + M;7!?6%A86%A8`````````_(```/K````"0```_(```/I````;R!O``0B;P`(
  17114. + MGOP`($CG+Q8F22](`"`O20`D<`Q.N@``*D`@+```4JP``"(L``#2@"\!2&P`
  17115. + M`$AO`#!.N@``3^\`#'!WL!-F-DHK``%F,$'O`"A#[``03KH``"9`+&P``$ZN
  17116. + M_\0N`'P`0>\`*"(()#P```/M3J[_XBH`>`%@1G!RL!-F-DHK``%F,$'O`"A#
  17117. + M[``23KH``"9`+&P``$ZN_\HJ`'@`0>\`*"(()#P```/N3J[_XBX`?`%@"G`6
  17118. + M*4```&```(Q*A6<$2H=F!$ZZ```@"V="2H5G/DJ'9SH@#6<V<``O`"\`+P!(
  17119. + M>/__+P8O!R`%(@0@;P`X3KH``$_O`!@K0``(9Q`JK```*4T``"M+``0@"V`Z
  17120. + M(`UG!B!-3KH``$J%9PY*A&<*(@4L;```3J[_W$J'9PY*AF<*(@<L;```3J[_
  17121. + MW"`+9P8@2TZZ``!P`$S?:/3>_``@3G4@;P`$44](YP$T)DA+[```+T@`$&`Z
  17122. + M(&H`!+'+9C`F52XK``@JDR!K``1.N@``($M.N@``0J=(;P`8+P=.N@``3^\`
  17123. + M#$J`:PX@+P`48`HJ2B15(`IFP'#_3-\L@%!/3G4``````_@````#`````0``
  17124. + M`)````!4````-`````,````"```!:````0P```$(`````````^^#```"0&UA
  17125. + M;&QO8P`````!````'H8```1?7V9I9F]?;V9F<V5T`````````@```"@````D
  17126. + MA@```U]?9FEF;U]B87-E``````$````L@P```U]?<W!R:6YT9@````````$`
  17127. + M```\@P```D!F;W!E;@```````@```)0```!8A@```E]$3U-"87-E````!```
  17128. + M`3X```$L````F@```%Z&```"7V5R<FYO```````!````OH,```)`7W-E=&5R
  17129. + M<@````$```#.@P``!$!?<W1A<G1?<')O8V5S<P`````!````^H,```)`9G)E
  17130. + M90````````(```&,```!'H,```)`9F-L;W-E``````(```&&```!3(,```)?
  17131. + M=V%I='!I9`````$```&8`````````_$````#`````$]05%,`!`!````#\@``
  17132. + M`^H````%<&EP93IU>&]P96XN)6QX`'<`<@````/R```#ZP````$```/R```#
  17133. + MZ0```,6>_``82.<A/DGY`````$7L`!@J6B!:+AHF;``D+T@`()/)+'@`!$ZN
  17134. + M_MHD;```($!#Z`!*($DB;```3J[_"B!L``!#[``$3J[^DD/O`"0B_(```"1P
  17135. + M`2+`0IDB+P`@0>\`)"0(+$I.KOVBX8`K0``8+'@`!$ZN_WPB2TZN_GI*@&<*
  17136. + M($`B34ZN_I)@"")-<!Q.KO\N3J[_=B)+<"!.KO\N(F\`("`'3J[_+DS??(3>
  17137. + M_``82H!.=2!O``0@+P`((B\`#"]O`!``!"]O`!0`""]O`!@`#"]O`!P`$"]O
  17138. + M`"``%"]O`"0`&%E/2.</%BHO`#@L+P`T+@`J2"]!`!QP'$ZZ```F0"!-2AAF
  17139. + M_%.(D<T@"%*`*4``('(!+'@`!$ZN_SHI0``<(D`2W6;\<!QR`4ZN_SHI0``8
  17140. + M<"!R`4ZN_SHI0``D<`$I0``00?K_G"`(0_K^L)")*4``%$'L``!.KO\B*4``
  17141. + M`"(+9P`!2DJL`!QG``%"2JP`&&<``3I*K``D9P`!,DJ`;P`!+"!L```@*``4
  17142. + M0?K^;B)L```B:0`08`(2V%.`9/I![```(FP`)!+89OP@+```4JP``"=```PG
  17143. + M1P`03>P`%CS\`!1P!1E```P@5C%\`!P`$A%```@@7B%K``P`%"`\@``#\DJ&
  17144. + M9@)P`2@`2H5O!"`%8`0@+```0J=(>``!+SR```/Z+P`O/(```_,O!B\$+R\`
  17145. + M3"\\@``#\2\O`%`O/(```_`O+P!4+SR```/O+R\`6"\\@``#[2\O`%@O/(``
  17146. + M`^XO!R\\@``#["!L```O*``0+SR```/K+&P``"(/3J[^#D_O`%0G0``(9S0@
  17147. + M;```+'@`!$ZN_H`@;```+'@`!$ZN_HQ*@&?D0JL`%$'L```B2RQX``1.KO\0
  17148. + M("L`#&!H+&P``$ZN_WQ.N@``8`)P#"E````@"V<&($M.N@``("P`'&<.(D`@
  17149. + M+``@+'@`!$ZN_RX@+``89PPB0'`<+'@`!$ZN_RX@+``D9PPB0'`@+'@`!$ZN
  17150. + M_RX@+```;PH@0"QX``1.KO\<</],WVCP6$].=0```_@````#`````0```5H`
  17151. + M``%6```!1@```!<````"```"_````NH```+8```"S````L0```)0```!S```
  17152. + M`<(```&J```!E@```8H```%\```!=````6P```%B```!0````30```$B```!
  17153. + M%````$0````X````&@```!`````````#[X$```-?3&EN:V5R1$(````````!
  17154. + M````"H8```)?1$]30F%S90````,```*F```"7@```"R&```$7U]S=&%R='5P
  17155. + M7W!O<G0```````,```)^```"<@```$"#```"0&UA;&QO8P`````!```!`(8`
  17156. + M``-?7V1O;W)?;F%M90`````!```!IH8```-?7VYE>'1?<&ED```````"```!
  17157. + MM@```;*&```#7U]S=&%C:U]S:7IE`````0```?J&```#7U]P<F]C97-S97,`
  17158. + M`````0```I*#```$0&-O;G9E<G1?;W-E<G(```````$```*NA@```E]E<G)N
  17159. + M;P```````0```K:#```"0&9R964````````!```"P`````````/Q`````P``
  17160. + M``!/4%13``0`0````_(```/J````!@````````````````````$`````````
  17161. + M`````_(```/K````"@```_(```/I`````TZZ```@+```3G4``````^^#```#
  17162. + M0&-H:V%B;W)T`````````0````*&```#7U]O=7)?<&ED`````````0````8`
  17163. + M```````#\0````,`````3U!44P`$`$````/R```#Z0```",@+P`$(&\`"")O
  17164. + M``Q(YP$4+@`F22I(3KH``'`!OH!M+'`@OH!L)B`+9PX@!^>`0^P``-/`)MDF
  17165. + MV2`-9PSGAT'L``#1QR#=(-UP`&`(<!8I0```</],WRB`3G4@+P`$(&\`")[\
  17166. + M`!`O2``(0J\`#$'O``A#UV&62H!G"#!\__\@"&`"(!?>_``03G4``````^^#
  17167. + M```#0&-H:V%B;W)T`````````0```!B&```$7U]S:6=?:&%N9&QE<G,`````
  17168. + M``(```!`````,(8```)?97)R;F\```````$```!0`````````_$````#````
  17169. + M`$]05%,`!`!````#\@```^D````5("\`!$CG#P`N`"PL``!.N@``*4<``'H`
  17170. + M>`$@+```P(1G#B`L``#`A&8&(`5.N@``4H78A'`@NH!MX"`&3-\`\$YU("\`
  17171. + M!"\'(@`@+```@($N'V"P```#[X8```-?7W-I9U]M87-K```````$````3```
  17172. + M`"0````4````#(,```-`8VAK86)O<G0````````!````$(8```1?7W-I9U]P
  17173. + M96YD:6YG`````````0```!R#```$0%]S:6=?9&ES<&%T8V@```````$````N
  17174. + M`````````_$````#`````$]05%,`!`!````#\@```^D```":(&\`!"`O``@B
  17175. + M;P`,+V\`$``$64](YR$T+@`F;P`<*D@D22])`!1@`AK:2A)G!%.';O:U[P`4
  17176. + M8QH0*O__<B^P`6<0=#JP`F<*4X=O!AK!8`(:VTH39P13AV[V0A5*AU[`1`!(
  17177. + M@$C`3-\LA%A/3G4@+P`$(&\`"")O``Q93TCG)S8N`"I(+TD`($JL``!G``#^
  17178. + M(&P``"9H``Q.N@``(BL`!+*`9@``Z"!L``!(:``L0>P``")3<`!&`&$`_UA8
  17179. + M3TJ`9P``RD'L```B31`8L!EF``"\2@!F]&8``+1*AV80(&P``"`H`!AR`["!
  17180. + M9P``H"!L```@*``8<ORP@6<$68!F/B)L```B$2QL``!.KO^"+``@;```T/P`
  17181. + M+"((=/Y.KO^L*@!G$B(%0>P``"0(3J[_FB(%3J[_IB(&3J[_@F`&*6@`(```
  17182. + M(&P``"EH``0`@"EH``@`?$/H``Q%[`"$)-DDV239(&P``"EH`!@`!"EH`!P`
  17183. + M="\O`"`O*P$8($U#[```<`!.N@``4$]P`6`"<`!,WVSD6$].=2!O``0B;P`(
  17184. + M2.<`%"9)*DA.N@``($TB2W``80#^R$J`9P1P`&`,($TB2TS?*`!.^@``3-\H
  17185. + M`$YU(&\`!")O``A(YP`4)DDJ2$ZZ```@32)+<`%A`/Z02H!F<$AX`/](;```
  17186. + M+PU.N@``3^\`#$J`:@P@32)+3-\H`$[Z``!+TT*=0JL`$G`!-T``#D)K`!`G
  17187. + M?````@``,C=```Q"JP`V0>P``")(2AEF_%.)D\@G20`60IT@/`\,/P`G0``B
  17188. + M)T``&B=``"HJ_```H?]P`$S?*`!.=0```_@````(`````0```7X```%P```!
  17189. + M:@```5H```%2```!3````4(```$H`````````^^&```#7VQA<W1?9&ER````
  17190. + M`````P```0(```"2````BH,```)`7V=E=%]C9`````$```":A@```U]L87-T
  17191. + M7V5N=')Y``````8```%D```!1@```1(```#P````X````*B&```#7U]T96UP
  17192. + M7V9N86UE````!````C8```'V````Q@```+"&```"7T1/4T)A<V4````!```!
  17193. + M"(,```-`7VQF:6)S=&%T```````!```!A(,```-`8VAK86)O<G0````````"
  17194. + M```!X````:B#```#0%]F:6)S=&%T`````````@```A````'&@P```U]R96%D
  17195. + M;&EN:P````````$```'\`````````_$````#`````$]05%,`!`!````#\@``
  17196. + M`^L```!!```#\@```^D```#0(&\`!%E/2.<`%"](``@@;P`(*F@!#&`*)E4@
  17197. + M34ZZ```J2R`-9O),WR@`6$].=2!O``2>_``02.<@-BI()FT`#$/K`0PO2``<
  17198. + M+TD`("!+8;1"K```0JL!#$*M``0@%>6`($`G:``,`1A!ZP`(+T@`&&```)Y!
  17199. + MZP`0(DA*&6;\4XF3R"`)D<C0_``L<@`R`-*(4H%T`#0!/T``%C]!`!0@`DZZ
  17200. + M```D0$J`9@9P#&```)Q-TD*>(&\`(""*+U``("SK`(@LZP"$0>L`C$/J``PB
  17201. + MV"+8(M@E:P`,`!@E:P!\`!Q+Z@`@.V\`%``$.V\`%@`&(&\`'"`H``12J``$
  17202. + M*T``"$'J`"Q#ZP`0$-EF_"JK``@J;P`<(A4D+P`8+&P``$ZN_Y1*@&8`_TXG
  17203. + M:P$,`1!"K0`$+&P``$ZN_WQR=-*!L(%F!'`!8`I.N@``*4```'``3-]L!-[\
  17204. + M`!!.=2!O``193TCG(#8O2``4<!!.N@``*D!P1^6(3KH``"9`(&\`%"`(2AAF
  17205. + M_%.(D<`@"%*`3KH``"1`3KH``"`-9P``@B`*9WP@"V=X*TL`#"M\```!'``(
  17206. + MD<@G2`$0)T@!#"=(`10FBB!O`!04V&;\3KH``"=```0B+P`4+&P``'3^3J[_
  17207. + MK"J`9R)!ZP`((@`D""QL``!.KO^:2H!G#B!-80#^.$J`9Q0@#6`^+&P``$ZN
  17208. + M_WQ.N@``*4```"!-80``-F`D<`PI0```(`UG!B!-3KH``"`*9P8@2DZZ```@
  17209. + M"V<&($M.N@``<`!,WVP$6$].=2!O``1(YP`6*D@F;0`,3KH``$*L```@2V$`
  17210. + M_:`@4TZZ```@%6<*(@`L;```3J[_IB!M``Q.N@``($U,WV@`3OH``"!O``19
  17211. + M3TCG`S0O2``4(&\`%"IH``R7RTZZ``!*K0$49R1^`"1M`0P@;P`4+"@`!&`$
  17212. + M4H<D4KZ&;`0@"F;T*TH!$$*M`10@+0$09R(F0-;\`"`I;P`4``!%[0$0(%(I
  17213. + M2```(%(DT"!O`!12J``$(`M,WRS`6$].=2!O``0O#2I(3KH``"`M``0J7TYU
  17214. + M(&\`!"`O``A(YP$4+@`J2"9M``Q.N@``<`$G0`$4*T<`!$S?*(!.=0```^^#
  17215. + M```"0&9R964````````'```"B@```H````)J```"/@```C0```(J````'H8`
  17216. + M``-?;&%S=%]D:7(````````#```"X@```EX```!2@P```D!M86QL;V,`````
  17217. + M!````8X```%V```!;````**&```"7T1/4T)A<V4````&```"=````@8```'L
  17218. + M```!U@```30```$<@P``!$!C;VYV97)T7V]S97)R```````"```"#@```4B&
  17219. + M```"7V5R<FYO```````#```"(````A(```%,@P```T!C:&MA8F]R=```````
  17220. + M``4```,N```##@```J8```):```!E(,```)`7V=E=%]C9`````$```'*A@``
  17221. + M`U]L87-T7V5N=')Y``````$```+L`````````_$````#`````$]05%,`!`!`
  17222. + M```#\@```^D````(2.<!`BQL``!R`$ZN_X(N`"(`3J[_@B`'3-]`@$YU````
  17223. + M``/OA@```E]$3U-"87-E`````0````8````````#\0````,`````3U!44P`$
  17224. + M`$````/R```#ZP````(```/R```#Z0```!L@;P`$("\`")[\`$1(YP,$+@`J
  17225. + M2'S_3KH``"!-0^\`#DZZ``!*@&8D<!#`KP`6YH!R4.6)PJ\`%NR!@H#"A[*'
  17226. + M9@1\`&`&<`TI0```(`9,WR#`WOP`1$YU(&\`!"`O``A(YP$$3-\@@&">````
  17227. + M``/O@P```T!C:&MA8F]R=`````````$````8@P```T!?9FEB<W1A=```````
  17228. + M``$````BA@```E]E<G)N;P```````0```$H````````#\0````,`````3U!4
  17229. + M4P`$`$````/R```#Z0```$$@+P`$(&\`"%E/2.<G%BX`*DA.N@``2&\`'$AX
  17230. + M"`$O!TZZ``!/[P`,4H!F!G#_8```RD*G+&P``'(")`].KO\<3^\`!"9`2H!G
  17231. + M+"(O`!PD"TZN_GI*0&<>("\`'.6`+PT@0"\H``@B0G``D<A.N@``4$]\`&!@
  17232. + M3J[_?"H`<BY&`;"!9D9\`"`O`!SE@"!`*J@`"$WM``1"GBS\```A_W`!/,`\
  17233. + MP$)>*WP```(``#)"K0`V0JT`%B`\#PP_`"M``"(K0``:*T``*F`,?/\@!4ZZ
  17234. + M```I0```(`MG#"0++&P``'("3J[_%DAO`!Q(>`@"+P=.N@``3^\`#"`&3-]H
  17235. + MY%A/3G4``````^^#```#0&-H:V%B;W)T`````````0```!2#```"7VEO8W1L
  17236. + M```````"````\@```"*&```"7T1/4T)A<V4````"````W@```#:#```#0%]L
  17237. + M9FEB<W1A=````````0```&Z#```$0&-O;G9E<G1?;W-E<G(```````$```#0
  17238. + MA@```E]E<G)N;P```````0```-0````````#\0````,`````3U!44P`$`$``
  17239. + M``/R```#Z0````X@;P`$(F\`"$CG,!8F22I(3KH``"(+)`TL;```=@%.KOY$
  17240. + M2H!G!'``8`9.N@``</],WV@,3G4``````^^#```#0&-H:V%B;W)T````````
  17241. + M`0```!*&```"7T1/4T)A<V4````!````&H,```)`7W-E=&5R<@````$````L
  17242. + M`````````_$````#`````$]05%,`!`!````#\@```^D````^(&\`!")O``A9
  17243. + M3TCG,S8J2'X`(&P``"PH`.`O20`@2H9F($JL``!F&D'L`!@B""QL```D/```
  17244. + M`^U.KO_B+`!G`GX!2H9G-B(&0>P`(B0(0>P``"8(+&P``$ZN_IXB!B0-)B\`
  17245. + M($ZN_IXB!G0*3J[^R$J'9U@B!DZN_]Q@4"!L```F:`"X,'S__[?(9T!#[``H
  17246. + M<"4L>``$3J[]V"1`2H!G+"EL````#"E-`!`O"B!++$I#[``$E<HF;P`D3J[]
  17247. + MM$S?!``B2BQX``1.KOYB3-]LS%A/3G4@;P`$0^\`"&$`_RI.=2!O``1#[P`(
  17248. + M80#_''`43KH``$YU``````/X````!@````$```"R````J````*0```".````
  17249. + M2@```"H````````#[X8```%?7W5S`````@```'X````4A@```U]?5T)E;F-H
  17250. + M37-G``````$````DA@```E]$3U-"87-E`````@```%8````PA@``!%]?4')O
  17251. + M9W)A;4YA;64````````"````H@```%"#```"0&5X:70````````!````\@``
  17252. + M``````/Q`````P````!/4%13``0`0````_(```/J````#T]K```````4````
  17253. + M`````````````````&-O;G-O;&4Z```E<SH@``!I;G1U:71I;VXN;&EB<F%R
  17254. + M>0```````^P````!`````0```!0````````#\@```^D````'2.<@`B(O``Q!
  17255. + M[P`0)`@L;```3J[_'$S?0`1.=0```^^&```"7T1/4T)A<V4````!````$```
  17256. + M``````/Q`````P````!/4%13``0`0````_(```/I````#R!O``0O#2I(*JP`
  17257. + M`$'M``0J7T[Z```@;P`$("\`"$CG`00N`"I((!5.N@``0>T`!"`'3-\@@$[Z
  17258. + M`````````^^&```#7U]S:6=?;6%S:P```````0````J#```"0%]S971J;7``
  17259. + M```!````%(,```-`<VEG<V5T;6%S:P`````!````*H,```-`7VQO;F=J;7``
  17260. + M```````!````.`````````/Q`````P````!/4%13``0`0````_(```/I````
  17261. + M!R!O``0@+P`(+P`O+```+PA.N@``3^\`#'``3G4```/OA@``!%]?<WES=&5M
  17262. + M7VYA;64````````!````#(,```)?<W1R;F-P>0````$````2`````````_$`
  17263. + M```#`````$]05%,`!`!````#\@```^D````I(&\`!)[\`%1(YS@6*D@@#6<D
  17264. + M2A5G("!-2AAF_%.(D<TB""!-<`).N@``0>P``'`"(@!.N@``("P``&\2L*P`
  17265. + M`&X,Y8!![```)G`(`&`L4H!F)"(L``!![P`;)@@L;```=`!X44ZN_BQ*0&<$
  17266. + M)D-@"D?L``1@!$?L``@@2TH89OQ3B)'+(@@@2W`"3KH``$'L`!QP`G(!3KH`
  17267. + M`$S?:!S>_`!43G4```/X````!`````$```"0````>````'(````L````````
  17268. + M`^^#```"0'=R:71E```````$````F````(P````T````*(8```)?97)R;F\`
  17269. + M``````$````XA@```U]S>7-?;F5R<@````````$````^A@```U]S>7-?97)R
  17270. + M;&ES=`````$```!&A@```E]?3U-%4E(``````0```%2&```"7T1/4T)A<V4`
  17271. + M```!````7@````````/Q`````P````!/4%13``0`0````_(```/J````"#H@
  17272. + M```T,@``56YK;F]W;B!E<G)O<B!C;V1E```*```````#\@```^D````````#
  17273. + M\0````,`````3U!44P`$``````/R```#Z@```,9N;R!S:6=N86P`:&%N9W5P
  17274. + M``!I;G1E<G)U<'0`<75I=```:6QL96=A;"!I;G-T<G5C=&EO;@!T<F%C92!T
  17275. + M<F%P``!A8F]R=`!E;70@:6YS=')U8W1I;VX`9FQO871I;F<@<&]I;G0@97AC
  17276. + M97!T:6]N``!K:6QL``!B=7,@97)R;W(`<V5G;65N=&%T:6]N('9I;VQA=&EO
  17277. + M;@``8F%D(&%R9W5M96YT('1O('-Y<W1E;2!C86QL`'=R:71E(&]N(&$@<&EP
  17278. + M92!W:71H(&YO(&]N92!T;R!R96%D(&ET``!A;&%R;2!C;&]C:P!S;V9T=V%R
  17279. + M92!T97)M:6YA=&EO;B!S:6=N86P@9G)O;2!K:6QL`'-T871U<R!S:6=N86P`
  17280. + M<V5N9&%B;&4@<W1O<"!S:6=N86P@;F]T(&9R;VT@='1Y`'-T;W`@<VEG;F%L
  17281. + M(&9R;VT@='1Y``!C;VYT:6YU92!A('-T;W!P960@<')O8V5S<P``8VAI;&0@
  17282. + M<W1A='5S(&AA<R!C:&%N9V5D``!B86-K9W)O=6YD(')E860@871T96UP=&5D
  17283. + M(&9R;VT@8V]N=')O;"!T='D``&)A8VMG<F]U;F0@=W)I=&4@871T96UP=&5D
  17284. + M(&9R;VT@8V]N=')O;"!T='D`:6YP=70@<F5C;W)D(&%V86EL86)L92!A="!C
  17285. + M;VYT<F]L('1T>0!E>&-E961E9"!#4%4@=&EM92!L:6UI=`!E>&-E961E9"!F
  17286. + M:6QE('-I>F4@;&EM:70``'5N:VYO=VX@<VEG;F%L``!U;FMN;W=N('-I9VYA
  17287. + M;```=VEN9&]W(&-H86YG960``'5N:VYO=VX@<VEG;F%L``!U<V5R('-I9VYA
  17288. + M;"`Q`'5S97(@<VEG;F%L(#(```````````H````2````'````"(````V````
  17289. + M0@```$@```!8````<@```'@```""````F@```+8```#>````Z@```1````$>
  17290. + M```!0````58```%R```!C````;@```'D```""@```B(```(\```"3````EP`
  17291. + M``)L```"?````HH```/L````(`````$```,4```#$````PP```,(```#!```
  17292. + M`P````+\```"^````O0```+P```"[````N@```+D```"X````MP```+8```"
  17293. + MU````M````+,```"R````L0```+````"O````K@```*T```"L````JP```*H
  17294. + M```"I````J````*<```"F`````````/R```#Z0```#H@+P`$(&\`""(O``PB
  17295. + M;P`064](YP<4+`$N`"I(+TD`%'H`)FP``&`N2H=G""`K``R^@&8@>@%P`;"K
  17296. + M`!1F%BHK``P@#6<$*JL`&"!+3KH``"`%8"HF4TJ39LX(!@``9P1P`&`:2H5F
  17297. + M"G`**4```'#_8`QP`$ZZ``!.N@``8*),WRC@6$].=2!O``0@+P`((F\`#$CG
  17298. + M`10B`'``3-\H@&``_W`@;P`$+PUP`"(`D\DJ7V``_UX@+P`$(&\`""(O``Q(
  17299. + MYP,$+`$N`"I(4H!F`GX`2H=J`D2'(`<B!B!-D\E,WR#`8`#_+``````#[X8`
  17300. + M``-?7W!R;V-E<W-E<P`````!````)(,```-`7V9R965?96YT<GD````!````
  17301. + M3H8```)?97)R;F\```````$```!L@P``!$!?=V%I=%]S:6=N86QS```````!
  17302. + M````=H,```1`7VAA;F1L95]S:6=N86QS`````0```'H````````#\0````,`
  17303. + M````3U!44P`$`$````/R```#Z0```!(@+P`$44](YP,`+@!.N@``(`=.N@``
  17304. + M2H!G(B)`(&D`'"](``P@:0`$<`$B;P`,3I$L`"`'3KH``"`&8`)P_TS?`,!0
  17305. + M3TYU``````/O@P```T!C:&MA8F]R=`````````$````.@P```T!?9FEN9%]F
  17306. + M9`````````$````4@P```T!?9G)E95]F9`````````$````V`````````_$`
  17307. + M```#`````$]05%,`!``````#\@```^D````#(&\`!"`O``A.^@`````#[X,`
  17308. + M``)`<W1R<F-H<@````$````*`````````_$````#`````$]05%,`!``````#
  17309. + M\@```^D````#(&\`!"`O``A.^@`````#[X,```)`<W1R8VAR``````$````*
  17310. + M`````````_$````#`````$]05%,`!``````#\@```^D```!-2.<`!G`(<@`L
  17311. + M>``$3J[_.BI`2H!F!'``8"Y"K0`$2'@`*'``+P!![```<@&3R<%!3KH``%!/
  17312. + M*H!F#")-<`A.KO\N<`!@`B`-3-]@`$YU(&\`!$CG``8J2"`-9Q@@36$``!X@
  17313. + M54ZZ```B37`(+'@`!$ZN_RY,WV``3G4@;P`$2.<`!BI(2JT`!&<4(E4L>``$
  17314. + M3J[^(")53J[^)D*M``1,WV``3G4@;P`$(%`B:``.<``0*0`/<@'AH2`!3G4@
  17315. + M;P`$("\`""(O``Q(YP,&+`$N`"I(8:I*AV8$2H9G'B)5(T<`("-&`"0S?``)
  17316. + M`!PL>``$3J[^,G`!*T``!$S?8,!.=2!O``1(YP`&*DA*K0`$9QPB52QX``1.
  17317. + MKOXL2D!G#B)53J[^)D*M``1P`6`"<`!,WV``3G4```/X`````0````$````H
  17318. + M`````````^^#```$0%]D979I8V5?;W!E;@````````$````R@P``!$!?9&5V
  17319. + M:6-E7V-L;W-E```````!````9@````````/Q`````P````!/4%13``0`0```
  17320. + M`_(```/J````!'1I;65R+F1E=FEC90````````/R```#Z0```!XO#B`L```B
  17321. + M`$A!0D'2@"`L``"S@"E```1"K``(0^P`!'``+'@`!$ZN_=@I0```</].KOZV
  17322. + M2(!(P"E```!*K```9PA*@&L$<`%@`G``*4``#"Q?3G4O#B`L``!K""QX``1.
  17323. + MKOZP("P``&<*(D`L>``$3J[^8BQ?3G4```/X`````P````$```!8````.@``
  17324. + M`!X````&`````@```&8```!.````/@```"P````:````%@````````/OA@``
  17325. + M!%]?<W1A<G1U<%]T:6UE```````!````!(8```%?7W5S`````0```!``````
  17326. + M```#\0````,`````3U!44P`$`$````/R```#Z@````7_____9FEF;RYL:6)R
  17327. + M87)Y`````````_(```/K````!````_(```/I````%B`O``113TCG`P`N`$ZZ
  17328. + M```@!TZZ``!*@&<H(D`@:0`<<D#EB<*1+T@`#"`!(&D`!")O``Q.D2P`(`=.
  17329. + MN@``(`9@`G#_3-\`P%!/3G4@+P`$+P<N'V"N``````/O@P```T!C:&MA8F]R
  17330. + M=`````````$````.@P```T!?9FEN9%]F9`````````$````4@P```T!?9G)E
  17331. + M95]F9`````````$````\`````````_$````#`````$]05%,`!``````#\@``
  17332. + M`^D```!B(&\`!"`O``@B;P`,+V\`$``$+V\`%``(+V\`&``,+V\`'``0+V\`
  17333. + M(``4+V\`)``844](YP<4+@!([P,``!1\`"IL``!@%DJM``1F"C!\``$K2``$
  17334. + M8`Q2AMK\`"2\K``$;>0@+``$O(!F>'(*TZP`!"`L``0B`.>!TH#E@2`!3KH`
  17335. + M`"I`2H!F#'`,*4```'#_8```CG#VT*P`!"(`YX'2@.6!(&P``")-8`(2V%.!
  17336. + M9/H@+```9P8@0$ZZ```I30``>O;:K``$(`7G@-"%Y8#;P)?+*TL`!%*%VOP`
  17337. + M)+JL``1M\"`&YX#0AN6`(&P``"&O`!0(!"&'"``AKP`8"`A+[P`@(9T(#"&=
  17338. + M"!`AG0@42^\`+"&="!@AG0@<(9T(("`&3-\HX%!/3G4@+P`$(@!K%K*L``1L
  17339. + M$"`!YX#0@>6`(&P``$*P"`1.=2`O``1(YP$$+@!K'KZL``1L&"`'YX#0A^6`
  17340. + M*FP``-O`2JT`!&<$(`U@"'`)*4```'``3-\@@$YU("P`!$YU``````/X````
  17341. + M$0````$```&"```!9````58```%````!,@```.P```#>````Q````+X```"R
  17342. + M````I````)@```!R````;@```&0```!>````0@````````/O@P```D!M86QL
  17343. + M;V,``````0```("&```"7V5R<FYO```````"```!=@```(R#```"0&9R964`
  17344. + M```````!````N@````````/Q`````P````!/4%13``0`0````_(```/K````
  17345. + M`@```_(```/I````&B!O``0B;P`(GOP`#$CG(18F22I(3KH``"`+9P8N*P`$
  17346. + M8`B1R$ZZ```N`'#_OH!F!'``8"@@!T'O`!1.N@``(@U![P`4)`@L;```3J[^
  17347. + M=$J`9P1P`&`&3KH``'#_3-]HA-[\``Q.=0`````#[X,```-`8VAK86)O<G0`
  17348. + M```````!````%H,```)`=&EM90````````$````F@P```T!?9VUT,F%M:6=A
  17349. + M``````$````\A@```E]$3U-"87-E`````0```$B#```"0%]S971E<G(````!
  17350. + M````6`````````/Q`````P````!/4%13``0`0````_(```/I````!R!O``0B
  17351. + M;P`(("\`#"\+)DDB2"!+)E].^@````````/O@P```D!M96UM;W9E`````0``
  17352. + M`!@````````#\0````,`````3U!44P`$``````/R```#Z0```%(@;P`$(F\`
  17353. + M"%%/2.<!%"9)*DA.N@``0>\`#$ZZ```@#6<(0>\`#"K8*M@@"V<``-)![P`,
  17354. + M3KH``"!`("@`)$2`<CQ.N@``)H!^`"!L``1#[```$!BP&68,2@!F]F8&?@1@
  17355. + M``":(&P`!$/L``@0&+`99@Q*`&;V9@9^`V```(`@;``$0^P`$!`8L!EF"DH`
  17356. + M9O9F!'X%8&8@;``$0^P`&!`8L!EF!DH`9O9G4"!L``1#[``<$!BP&68&2@!F
  17357. + M]F<\(&P`!$/L`"`0&+`99@9*`&;V9R@@;``$0^P`)!`8L!EF!DH`9O9G%"!L
  17358. + M``1#[``H$!BP&68(2@!F]F8"?@$G1P`$<`!,WRB`4$].=2!O``2>_``0+PTJ
  17359. + M2$'O``Q#[P`$80#^Z"JO``P@+P`00^T`!#+`("\`!#+`("P``#+`<``J7][\
  17360. + M`!!.=0`````#^`````@````!````[````-@```#$````L````)P```"$````
  17361. + M:@```%`````````#[X,```-`8VAK86)O<G0````````!````%(,```-`7V=E
  17362. + M='1I;64````````!````'(,```-`;&]C86QT:6UE```````!````-H,```)?
  17363. + M7T-81#,S``````$```!$A@```E]T>FYA;64`````"````.@```#4````P```
  17364. + M`*P```"8````@````&8```!,A@```U]D87EL:6=H=`````````$```$X````
  17365. + M`````_$````#`````$]05%,`!`!````#\@```^H````,3454($135`!7150@
  17366. + M1%-4`$5%5"!$4U0`1414`$-$5`!-1%0`4$14`$%+1%0````````#\@```^D`
  17367. + M```P(&\`!$CG``8J2"QL``!.KO^^!I4/##\`<`!,WV``3G4@+P`$(&\`"%E/
  17368. + M!(`/##\`(CP``5&`+H!.N@``((`@%R(\``%1@$ZZ```@`2Z!<CQ.N@``(4``
  17369. + M!"`7<CQ.N@``(`'E@)"!YX#0@="`(4``"%A/3G4@;P`$64](YR`$2]`@'2(`
  17370. + MZ8&2@"`!YX#0@2(`Y8'2@.^!(!TD`.F"E(#E@B`=+T$`"'(R3KH``-""T*\`
  17371. + M"`:`#PP_`$S?(`183TYU```#[X8```-?5&EM97)"87-E```````!````#(,`
  17372. + M``)?7T-81#,S``````4```"J````7@```%(```!(````.@````````/Q````
  17373. + M`P````!/4%13``0`0````_(```/I````"R`O``193RZ`0>P`!"`(6$].=2!O
  17374. + M``193RZ(0>P`!"`(6$].=2`L``1.=0`````#^`````,````!````)@```!P`
  17375. + M```*`````````_$````#`````$]05%,`!`!````#\@```^H````)````````
  17376. + M``````````$````````````"```````````````````#[`````(````!````
  17377. + M%`````@````````#\@```^D````J(&\`!")O``@@+P`,64](YS\V+@`J2"])
  17378. + M`"B7RTZZ```B#20++&P``$ZN_7XF0"("3J[]>"`+9@9.N@``8%XD;P`H0A(J
  17379. + M!U*%(A,D*P`$)@TH"BQL``!.KOY*2H!G&"(+3J[]>$H29@1P`F`L+P1.N@``
  17380. + M6$]@*$ZN_WPL`'(R1@&P@68(""L``0`+9I0B"TZN_7@@!DZZ```I0```</],
  17381. + MWVS\6$].=0`````#[X,```-`8VAK86)O<G0````````!````'H8```)?1$]3
  17382. + M0F%S90````(```!4````)H,```)`7W-E=&5R<@````$````Z@P```E]S=')L
  17383. + M96X``````0```'"#```$0&-O;G9E<G1?;W-E<G(```````$```"6A@```E]E
  17384. + M<G)N;P```````0```)H````````#\0````,`````3U!44P`$`$````/R```#
  17385. + MZ0```"Q93TJL`!)F#$'O``,I2``28>Y@%D'O``,B;``2L\AD!'`!8`)P_RE`
  17386. + M``!83TYU64](YP$4+B\`%$JL``!F`F'`*FP`%F`N("P``&\,0>\`#R)M``2S
  17387. + MR&(02H!J'$'O``\B;0`$L\AD$"95+PU.N@``6$\J2R`-9LXI30`62H=F!'``
  17388. + M8")0AR\'3KH``"!`(*P`%D/O`!,A20`$0^@`"%A/*4``%B`)3-\H@%A/3G4`
  17389. + M`````_@````'`````0```*(```"0````>@```$(````:````#@````0````#
  17390. + M`````@```$@````Z````*`````````/O@P```E]F<F5E`````````0```&Z#
  17391. + M```"7VUA;&QO8P`````!````B@````````/Q`````P````!/4%13``0`0```
  17392. + M`_(```/J````!T`H(REA;&QO8V$N8PDQ+C$```````````````````/R```#
  17393. + MZP````$```/R```#Z0```#8@;P`$64](YR,"(@@L;```=/Y.KO^L+T``$&<Z
  17394. + M+BP``$ZZ```L`&`>2&\`$$AX"`4O!DZZ``!/[P`,2H!F""E'``!P`&`24X9L
  17395. + MWB(O`!`L;```3J[_IG#_3-]`Q%A/3G4@;P`$2.<A!BI(3KH``"(-+&P``$ZN
  17396. + M_[A*@&<$<`!@4$ZN_WPN`')OTH&P@68@(@UT`$ZN_T9*@&<.(@U.KO^X2H!G
  17397. + M!"`"8"A.KO]\+@!P9="`OH!F#B!-80#_2DJ`9@1P`&`,(`=.N@``*4```'#_
  17398. + M3-]@A$YU``````/OA@```E]$3U-"87-E`````P```'(```!0````#H8```)?
  17399. + M97)R;F\```````,```#,````0````!Z#```#0%]L87-T7V9D`````````0``
  17400. + M`"*#```"7VEO8W1L```````!````-(,```-`8VAK86)O<G0````````!````
  17401. + M;(,```1`8V]N=F5R=%]O<V5R<@```````0```,@````````#\0````,`````
  17402. + M3U!44P`$`$````/R```#Z0```AI(YP`&<"(B/``!``$L>``$3J[_.BI`2H!F
  17403. + M!'``8"`;?``$``A-[0`.0AX@+```',`L[```0>T`%$ZZ```@#4S?8`!.=2!O
  17404. + M``0O#B)(<"(L>``$3J[_+BQ?3G4@;P`$2.<`!BI(("T`(&<*+&P``'(`3J[_
  17405. + MW"`M`"1G#"QL``!R0.&)3J[_W"`M`#1G!B!`3KH``"`M`#AG!B!`3KH``"!M
  17406. + M`#QAI"!-3-]@`$[Z``!(YP(&+`$J2$J`9Q0@+0`@(BT`-"QL```P?``!3J[_
  17407. + MRDJ&9Q0@+0`D(BT`."QL```P?``"3J[_RG`!(BP``..@3-]@0$YU2.<#-B9)
  17408. + M*D@N$R!O`!PL$&`4(&T`-+'*9@1^`&`(M>T`.&8"?``@;0`\+'@`!$ZN_HPD
  17409. + M0$J`9MI*AV<60I,@+0`@(BT`-"QL```P?``#3J[_RDJ&9U(@;P`<0I`@+0`D
  17410. + M(BT`."QL```P?``#3J[_RF`V<`$B+```XZ`L>``$3J[^PB!M`#PL>``$3J[^
  17411. + MC"1`2H!GWB!M`#2QRF8$?@!@"+7M`#AF`GP`2H=FUDJ&9M)P`2(L``#CH"(`
  17412. + M<``L>``$3J[^SDS?;,!.=5E/2.<#%BX`)DDJ2&```(9"K0`L""T``@`S9PQP
  17413. + M(RE```!P_V```*PL;```<@%.KO\Z("T`("(M`#0L;```,'P``4ZN_\H@;0`\
  17414. + M<``0*``/<@'AH2`!3KH``"P`("T`("(M`#0P?``#3J[_RF`0<`$B+```XZ`L
  17415. + M>``$3J[^PB!M`#PL>``$3J[^C$J`9^`@!DZZ```@+0`@0>\`%"(((&T`+"QL
  17416. + M``!.KO_6+`!G`/]B(`92@&8"?`"\AV,"+`<@!B!O`!1@`A;84X!D^B`&*T``
  17417. + M+$S?:,!83TYUGOP`2$CG#Q8N`"I()DDO20`<2H=F``"*("T`)"QL``!R0.&)
  17418. + M3J[_W"!-0^\`(!+89OQ![P`@0^P``$ZZ```@34/O`$(2V&;\0>\`0D/L``1.
  17419. + MN@``""T````S9P@(+0`/`#)G!D'O`"!@!$'O`$(@"')`Z8D@?```C@!.KO_B
  17420. + M*T``)&<``.PL;```3J[_Q$J`:@)2@.*`*T``*'``8```X$JM`"1G``#*+"T`
  17421. + M*'H`8```M+R'8P``CBP'8```B`@M``(`,V<02H5G!B`%8```L'`C8```I"`M
  17422. + M`"0B+0`X+&P``#!\``).KO_*(&T`/'``$"@`#W(!X:$@`4ZZ```H`"`M`"0B
  17423. + M+0`X,'P``TZN_\I@$'`!(BP``..@+'@`!$ZN_L(@;0`\+'@`!$ZN_HQ*@&?@
  17424. + M(`1.N@``2H!G"$J%9P0@!6`Z("T`)"(+($8L;```3J[_T"@`9P#_9DJ$:Q+:
  17425. + MA)Z$U\1P`+Z`8@#_2"`%8`YP#4ZZ``!P("E```!P_TS?:/#>_`!(3G6>_``,
  17426. + M2-<!`W`=*4```'#_WOP`#$YU64\N@&$`_")P`%A/3G6>_``L2.<@%B9)*DA*
  17427. + M@&<2!(````@!9R)3@&<``)Q@``"J2I-G"`CM``(`,V`&"*T``@`S<`!@``":
  17428. + M<`/`K0`P5X!F*`@M``\`,F<&0>P`&&`$0>P`&B\(+PU(;``(2&\`'$ZZ``!/
  17429. + M[P`08"H(+0```#-G$"\-2&P`'$AO`!A.N@``8`XO#4AL`"9(;P`83KH``$_O
  17430. + M``Q![P`0(@@L;```)#P```/M3J[_XB:`9P1P`&`@3KH``&`8(!-G"B(`+&P`
  17431. + M`$ZN_]QP`&`(<!8I0```</],WV@$WOP`+$YU(&\`!"`O``@B+P`,+V\`$``$
  17432. + MGOP`3$CG#S8J+P!P+`$N`$*O`&B;S9?++T@`('!`3KH``"1`2H!G``&@80#Z
  17433. + MHB]``&AG``&4<!1.N@``*D!*@&<``89P%$ZZ```F0$J`9P`!>'`%&T``""!O
  17434. + M`&@K2``.<A0[00`2%T``""=(``XW00`2)4@`/"5-`#0E2P`XD<@E2``D)4@`
  17435. + M("5(`#!*AV<&".H````S2H9G!@CJ``$`,TAZ_G!(>OY>2'K^1$AZ_+A(>OO:
  17436. + M2'K[#"`J`#`@2D/Z^KQ.N@``3^\`&"@`9P``\$J%9P8(Z@`/`#(@;P`@(DH2
  17437. + MV&;\($I#[P`D$MAF_$'O`"1#[``T3KH``"!*0^\`1A+89OQ![P!&0^P`.$ZZ
  17438. + M``!*AV<H2H9G!$J%9@9![P`D8`1![P!&(`@L;```<D#IB3!\#0!.KO_B)4``
  17439. + M($J&9RI*AV<$2H5G!D'O`"1@!$'O`$8@""QL``!R0.F)('P``(X`3J[_XB5`
  17440. + M`"1*J@`@9@1*AV8J("H`)&8$2H9F($J`9Q0L;```3J[_Q$J`:@)2@.*`)4``
  17441. + M*$*J`"P@!&!8("H`(&<*+&P``'(`3J[_W"`J`"1G"BQL``!R`$ZN_]Q*A&L&
  17442. + M(`1.N@``(`UG!B!-3KH``"`+9P8@2TZZ```J;P!H(`UG!B!-80#Y+B`*9P8@
  17443. + M2DZZ``!P_TS?;/#>_`!,3G4@;P`$GOP`("\-*DA.N@``2JP``&8(<`8I0```
  17444. + M8&@@+```4JP``"(L``#2@"\!2&P`/$AO``Q.N@``<``N@$'O`!!R`<%!80#]
  17445. + MN$_O``PJ@<<``O`$'O``AR`6$`_:)83RM```1K!'``8!P@%4ZZ``!*@&<*
  17446. + M($`@:``$80#XKB`53KH``'#_*E_>_``@3G4@+P`$(B\`""]O``P`!"!O`!">
  17447. + M_``H+PTJ2$CO``,`!$ZZ``!*K```9@AP!BE```!@:"`L``!2K```(BP``-*`
  17448. + M+P%(;`!(2&\`%$ZZ``!P`2Z`(@!![P`8P4%A`/T43^\`#"J`:S1"IT'O`!!P
  17449. + M`2(`80#\_EA/*T``!&L$<`!@'"`53KH``$J`9PH@0"!H``1A`/@*(!5.N@``
  17450. + M</\J7][\`"A.=0`````#^`````L````!```(!@``!V(```8\```&)@``!,P`
  17451. + M``2\```$H```!)@```22```"Y@```M`````````#[X8```-?7V9I9F]?<VEG
  17452. + M```````&```#K@```C````&H```!:@```.H````LA@```5]?=7,````!````
  17453. + M,H,```)`3F5W3&ES=`````$````ZA@```U]?1FEF;T)A<V4``````!$```;H
  17454. + M```&V```!K8```:(```&7````^8```-X```#(````K8```)B```!^@```5H`
  17455. + M``$\````W````,0```!\````;(,```)`9G)E90````````8```<D```'#```
  17456. + M!P(```"L````G````)"&```"7V5R<FYO```````&```'\```!TP```42```$
  17457. + M+```!!(```'>A@```E]$3U-"87-E`````P``!00```3B```!Z(,```1`7W=A
  17458. + M:71?<VEG;F%L<P```````@```Y0```(6@P``!$!?:&%N9&QE7W-I9VYA;',`
  17459. + M```"```#S@```E"#```"0'-T<F-A=``````$```&0```!BH```+J```"U(,`
  17460. + M``1`7W-I9U]D:7-P871C:````````0``!`R#```#7U]S<')I;G1F````````
  17461. + M!0``"`X```=J```$U```!,0```2H@P```D!?<V5T97)R`````0``!/B#```"
  17462. + M0&UA;&QO8P`````#```%>@``!6P```52@P```T!?86QL;V-?9F0```````$`
  17463. + M``7V@P```T!?9G)E95]F9`````````,```A:```'M@``!OB#```#0&-H:V%B
  17464. + M;W)T`````````@``!^0```=`A@```U]?9FEF;U]O:P````````(```?H```'
  17465. + M1(8```1?7V9I9F]?;V9F<V5T````````!```!_H```?V```'5@``!U*&```#
  17466. + M7U]F:69O7V)A<V4``````@``!_X```=:@P```T!?9FEN9%]F9`````````(`
  17467. + M``A&```'H@````````/Q`````P````!/4%13``0`0````_(```/J````%5]M
  17468. + M``!?<P``9FEF;SHE<R]R=V5S2R5S`&T```!F:69O.B5S+W(`9FEF;SHE<R]M
  17469. + M=V5+``!?;0``7W,``'5X9FEF;RXE;'@``'5X9FEF;RXE;'@``````_(```/I
  17470. + M````"2`O``193RZ`0>P`%B`(6$].=2!O``193RZ(0>P`%B`(6$].=0```_@`
  17471. + M```"`````0```!P````*`````````_$````#`````$]05%,`!`!````#\@``
  17472. + M`^H````)=7-E<@````````````!W:&5E;`````````X````4```````&```#
  17473. + M[`````0````!````(````!H````6````!@````````/R```#Z0```*D@+P`$
  17474. + M64\N@"`L`0QG#B!`3KH``$J`9P1R`6`"<@`@`5A/3G4@+P`$(&P!#'(`3OH`
  17475. + M`$ZZ```I0`$,9@I(;```3KH``%A/(&P!#$ZZ``"!K```3G4@;`$,3OH```CL
  17476. + M``P``DYU("\`!`@```Q6P$0`2(!(P$YU".P`#0`"3G4@+P`$"```#5;`1`!(
  17477. + M@$C`3G5.N@``<``@;```$"@`#W(!X:&#K```3G5.^@``("\`!%E/2.<!%B]`
  17478. + M`!!^`&`N("T`%$ZZ```F0$J`9Q1*JP`49@Y^`7`!)T``%"=M`!@`&")-<!PL
  17479. + M>``$3J[_+B!L```L>``$3J[^C"I`2H!FP"`'3-]H@%A/3G4@+P`$2.</!"X`
  17480. + M<`'OH"P`<`F^@&8&<`!.N@``("P!!,"&9P:-K`$(8'HJ!D:%RZP!"$J':V9P
  17481. + M(+Z`;&`@!^>`0>P`!"IP"``P?``!N\AF+"`'58!G%%.`9Q!R#9"!9SQ9@&<X
  17482. + M48!G-&`*2&P`&$ZZ``!83W``3KH``&`@(`UG'"`'YX`H!D'L``2(L`@$B:P!
  17483. + M!"`'3I5&A,FL`00@+`$(P(9FBDS?(/!.=2`O``0O#B(L``""@'``+'@`!$ZN
  17484. + M_LXL7TYU("\`!"\.(@`@+```@($L>``$3J[^PBQ?3G4@+P`$2.<#`"X`?`!A
  17485. + M`/X02H!G"'P!<`YA`/\,(`=A`/YB2H!G"'P!<`)A`/[Z(`=A`/YJ2H!G"'P!
  17486. + M<`-A`/[H(`=A`/Z&2H!G"'P!<!1A`/[6(`9,WP#`3G4@+P`$+P<I0```<`@N
  17487. + M'V``_KQP`&$`_V!@D&#V2.<!%'X`2^P`!#9\``$JBT*M``12AU"-<""^@&WP
  17488. + M0JP!"$*L`01"K```80#]U&$`_>IA`/VB3-\H@&``_?AA`/VX8`#^"``````#
  17489. + M^`````(````!```!=````#X````7`````@```H0```*````"?````F0```'6
  17490. + M```!N@```:8```&B```!F````9````%*```!.````2X```$F````I````'H`
  17491. + M``!@````5@```%````!(````.````"H````*`````````^^#```$0%]T:6UE
  17492. + M<E]E>'!I<F5D``````$````2@P``!$!?=&EM97)?<W1A<G0````````!````
  17493. + M,(,```1`7V%L;&]C7W1I;65R`````````0```#2#```"7U]F86EL```````!
  17494. + M````0H,```-`7W1I;65R7W-I9P`````!````3(,```-`7V9R965?=&EM97(`
  17495. + M```!````6H,```1`7VEN:71?<')O8V5S<V5S`````0```)*&```$7U]C:&EL
  17496. + M9')E;E]E>&ET``````(```#N````F(,```5`7V-L96%N=7!?<')O8V5S<V5S
  17497. + M``````$```"J@P```T!?9FEN9%]P:60```````$```#$@P```D!?7V5X:70`
  17498. + M`````@```8````$B@P```U]?;65S<V%G90````````$```%XA@```E]?1E!%
  17499. + M4E(``````0```D@````````#\0````,`````3U!44P`$`$````/R```#Z@``
  17500. + M``I&86EL960@=&\@8W)E871E('1I;65R``!U<V5R(&EN=&5R<G5P=``````#
  17501. + M\@```^L```!$```#\@```^D```(=2&P`!$ZZ``!83TYU("\`!"\-3KH``"I`
  17502. + M2H!F`F'B(`TJ7TYU(&\`!"`O``@O"TZZ```F0$J`9@)AQB`+)E].=2!O``0O
  17503. + M#2I((`UF!$OL``X@34H89OQ3B)'-(`A2@$ZZ```@0$J`9@1P`&`((D@2W6;\
  17504. + M(`@J7TYU64](YP,T?@!\`"!L```F:`#08"Q**P`(9B0P/`4`P&L`#F8:4H<@
  17505. + M:P`*(`A*&&;\4XB1P"`(W(#<JP`45(8F4TJ39M`@!U*`Y8#0AF$`_THI0``8
  17506. + MY8<@0")`T\=%Z0`$+T``%&8*0>P``"E(`!A@5B!L```J:`#08$)*+0`(9CHP
  17507. + M/`4`P&T`#F8P)FT`"BXM`!0@;P`4(,HO2``48`(4VTH39OH4_``])FT`$&`"
  17508. + M%-L@!U.'2H!F]D(:*E5*E6:Z(&\`%$*03-\LP%A/3G4@;P`$("\`""\-*D@J
  17509. + M@$*M``3E@&$`_K0K0``(*E].=2!O``0B;P`(("\`#$CG(C0F22I(2H!G"B!+
  17510. + M80#^PB1`8`(D2R`*9SXB%20M``2T@6TB+`'<AG00TH*\@6T"(@8J@2`!Y8`@
  17511. + M;0`(3KH``"M```AG$D?M``0B$U*;Y8$@6R&*&`!P`4S?+$1.=2!O``0B;P`(
  17512. + M("\`#&&22H!F!&$`_AI.=2!O``0B;P`(2.<`%"9)*D@@+0`$T*L`!+"5;Q+0
  17513. + M@"J`Y8`@;0`(80#^&BM```@B+0`$Y8$@;0`(T<$@*P`$(@#E@2)K``A@`A#9
  17514. + M4X%D^M&M``0@:P`(3-\H`$[Z```@;P`$(F\`""]O``P`!"`O`!`B+P`464](
  17515. + MYP(T+`$J221(+T@`$$J`9T13@&<*4X!G``"V8```]%.&9R(@+P`8(@V0@2!O
  17516. + M`!!",`@`($$B;P`08`(2V%.`9/I@``#.0>P`$")O`!`2V&;\8```OB9O`!A@
  17517. + M;G!<L!5F9DHM``%G8%2-<`&\@&8&%/P`86!4(`95@&9&$"W__TB`2,!R(Y"!
  17518. + M9RY5@&<J58!G)E.`9R)3@&<>4X!G&G(5D(%G%'(<D(%G#E6`9PIR'Y"!9P15
  17519. + M@&8$%/P`)Q3M__]@"!3M__]@`A3=N\MECF!`)F\`&&`V<"JP%68N2BT``6<H
  17520. + M5(T0+?__2(!(P')ED(%G#'()D(%F#!3\``I@#A3\`!M@"!3M__]@`A3=N\ME
  17521. + MQD(23-\L0%A/3G6>_`$L2.<_-BIO`5@@;```#&@`)0`49`I(>``43KH``%A/
  17522. + M0JP`''`!*4``&"E``#YP`BE``#HI0`!@*7P```"$`%R3R2QX``1.KO[:*4``
  17523. + M`$ZZ```I0``$9@I(;``23KH``%A/(&P`!$ZZ```I0``(+&P`!"!6+&@`%"E.
  17524. + M`!1![P$P3J[_OBEO`3``#$ZZ``!.N@``(&P``"`H`*QG$.6`(D`B*0`TY8$I
  17525. + M00`08`8I:`"$`!!*%68``.A![``J(@@L;```)#P```/N3J[_XBP`0>P`,"((
  17526. + M3J[_XBX`0>P`-B((3J[_XBH`2H9G"$J'9P1*A68B2H9G!B(&3J[_W$J'9P8B
  17527. + M!TZN_]Q*A6<&(@5.KO_<80#[<G`!+P`O!2\`+P<B!L%!3KH``"!L```@*``<
  17528. + M0>\!6&$`_)Y/[P`0?`!^`&!0(FP``"!I`"0@,'@`9SXB`$/O`#`D"2QL``!V
  17529. + M0.6+3J[^;DJ`9R8B;```(&D`)-''("@`!&<((@(D`$ZN_(Y![P%(0^\`,'`!
  17530. + M80#\V%*&4(<@;```O*@`'&VF8``"S"QL``!.KO_**`!.KO_$*@!^`"!L```L
  17531. + M*`#@9BA^`4'L`#PB""0\```#[4ZN_^(L`&820>P`/B((3J[_XBP`9@1A`/JD
  17532. + M+P<O!G``+P`O!2($P4%.N@``0>\!6'`!80#[UB`\```%&F$`^HX@0#%\!```
  17533. + M$B]``#QP0.6(80#Z>D_O`!!^0.6/+T`!.&`"4HT0%4B`2,!![``!"#```P@`
  17534. + M9NP0%6<``A9R(K`!9C!2C29-8!!P*K`59@A*+0`!9P)2C5*-$!5G!G(BL`%F
  17535. + MYB1-$!5R(K`!9@)2C7P"8%1P)[`59B!2C29-8`)2C1`59P9R)[`!9O0D37`G
  17536. + ML!5F`E*-?`%@+B9-8!!P7+`59@A*+0`!9P)2C5*-$!5G$G(@L`%G#'(*L`%G
  17537. + M!G()L`%FVB1-?``@2RH*FHL@!5*`+T@`*&$`^;8F0$JO`4QF("`%($LB;P`H
  17538. + M3KH``$(S6`!![P%((DMP`&$`^V!@`/\FVH5R$-J!NH=O%"!O`3A.N@``(`5A
  17539. + M`/EV+@4O0`$X+PH@!B!+(F\`+'(!80#[KEA/(@LD+P$X)@<L;```3J[\N"H`
  17540. + M;!!"$B\O`"A(;`!$3KH``%!/2H5F(B\*(`8@2R)O`"QR`&$`^W1![P%,(DMP
  17541. + M`&$`^NA83V``_JQZ`2!O`"Q"J``(0B@`$4(H`!`O"B`&($LB;P`L<@)A`/M`
  17542. + M0>\!0'`080#Z)EA/(@LD+P`L+&P``$ZN_,HH`&8\8"IZ`")O`"S2_`$80>\!
  17543. + M/'`!80#Z($J`9@1X9V`2(B\`+"QL``!.KOS$*`!*A&?2(B\`+"QL``!.KOR^
  17544. + M<'30@+B`9PI(;`!83KH``%A/2H5G(B\*(`8@2R)O`"QR`&$`^L!![P%,(DMP
  17545. + M`&$`^C183V``_?@@+P%`(&\!1$ZZ``!![P%(0^\!/&$`^BH@2TZZ``!@`/W6
  17546. + M(&\!.$ZZ```@;P`L3KH``&$`^))![`!R3KH``"E```!F"$'L`'@I2```0>P`
  17547. + M?DZZ```I0``49@8I;````!1![`"(3KH``"E``!AF"$'L`(XI2``80>P`DDZZ
  17548. + M```I0``<9@A![`"8*4@`'$'L`*!.N@``*4``'&8(0>P`JBE(`!P@+P%,(&\!
  17549. + M4")L`!A.N@``<`!.N@``3-]L_-[\`2Q.=0```_@````5`````0``"$X```A`
  17550. + M```(.```""H```@B```(%```"`````?X```'Z@``!X0```;0```%3@``!3H`
  17551. + M``18```$3```!#8```/6```"J````.````!.`````@```!(````"```(7@``
  17552. + M"%(```A(```%+@``!"P```0D```$$```!`0```/V```#[````^@```/@```#
  17553. + MT````\@```#J````Y````,H```"$`````````^^#```"7U]F86EL```````$
  17554. + M```'B```!M0```/:````!H,```)`;6%L;&]C``````(```!@````%(,```)`
  17555. + M<F5A;&QO8P````(```&R````,(,```)`9G)E90````````4```?B```'V@``
  17556. + M!\X```:4```"1H8```)?4WES0F%S90````$```.(@P```E]?6$-%6$E4````
  17557. + M`0```YB&```"7U]?:6]B```````&```#N@```[(```.N```#J````Z0```.>
  17558. + M@P``!$!?86QL;V-?=&EM97(````````!```#S(,```-`7W1I;65R7W-I9P``
  17559. + M```!```#Y(,```-`7VEN:71?9FEF;P`````!```$"(,```1`7VEN:71?<VEG
  17560. + M;F%L<P```````0``!`R&```"7T1/4T)A<V4````'```'=```!V(```<T```&
  17561. + MO@``!1P```34```$/(,```1`7VEN:71?=6YI>&EO`````````@``!6X```2@
  17562. + MA@```U]?5T)E;F-H37-G``````0```4.```$Y```!+X```2DA@```E]?7V-T
  17563. + M>7!E`````0``!;"#```"0'-T<FYC<'D````!```&;H,```)`='%S;W)T````
  17564. + M``$```>\@P```T!?7V=E=&5N=@````````4```A$```(+@``"!@```@$```'
  17565. + M[H8```-?7V%M:6=A7W5S97(````)```(/```"#(```@F```('```"!````@.
  17566. + M```("```!_P```?R@P```D!M86EN`````````0``"&*#```"0&5X:70`````
  17567. + M```!```(:`````````/Q`````P````!/4%13``0`0````_(```/J````+```
  17568. + M``!.;R!M96UO<GD```!A`$9A:6QE9"!T;R!C<F5A=&4@=&EM97(``$Y)3#H`
  17569. + M`$Y)3#H``$Y)3#H``"H`3DE,.@``26YV86QI9"!W:6QD8V%R9"`E<P!%<G)O
  17570. + M<B!E>'!A;F1I;F<@87)G=6UE;G1S`%5315(``'5S97(``%5315).04U%``!(
  17571. + M3TU%``!S.@``4TA%3$P`8FEN.G-H``!(3U-43D%-10``86UI9V$````#\@``
  17572. + M`^L````(```#\@```^D````$("\`!%E/+H!P`%A/3G4``````_$````#````
  17573. + M`$]05%,`!``````#\@```^D````^("\`!$CG`P`N`$JL``!G!"`'8&!\`"`'
  17574. + M`H````$D9P)\"`@'``=G!`!&``4(!P`$9P0(Q@`""`<``6<$",8```@'``-G
  17575. + M!`C&``$(!P``9P0(Q@`&(`=R2<"!<D"P@68$`$8`0@@'``EG!`C&``4@!@I`
  17576. + M``],WP#`3G4@+P`$2.<&`"P`2JP``&<((`8"0`__8%YZ``I&``\(!@`#9P1Z
  17577. + M2>6-(`9R!<"!6X!F!`C%``<(!@`"9P0(Q0`$"`8``&<$",4``2`&<D+`@6<$
  17578. + M",4`!@@&``%G!`C%``,(!@`&9P0(Q0``"`8`!6<$",4`"2`%3-\`8$YU````
  17579. + M``/X`````@````$```"&````#`````````/Q`````P````!/4%13``0`0```
  17580. + M`_(```/K`````0```_(```/I`````G``3G5P`$YU```#\0````,`````3U!4
  17581. + M4P`$``````/R```#Z0```!5(YP,`3KH``"X`?`!@"B\&3KH``%A/4H:\AVWR
  17582. + M3-\`P$YU("\`!"\'+@!AU$ZZ``!.N@``(&P``$ZZ```O!TZZ``!83RX?3G4@
  17583. + M+P`$+P<N'V#4``````/O@P```T!?;&%S=%]F9`````````$````&@P```E]C
  17584. + M;&]S90```````0```!*#```$0%]C;&5A;G5P7V9I9F\```````$````N@P``
  17585. + M!4!?8VQE86YU<%]S:6=N86QS`````````0```#*&```#7U]O9&1?=&EM97(`
  17586. + M`````0```#:#```#0%]F<F5E7W1I;65R`````0```#J#```"7U]80T58250`
  17587. + M```!````0`````````/Q`````P````!/4%13``0`0````_(```/I````$R`O
  17588. + M``0B+P`((&\`#%%/2.<#)"P!+@`J2$ZZ```@!TZZ``!*@&<:(D`@:0`@+T@`
  17589. + M%"`&(&D`!")-)&\`%$Z28`)P_TS?),!03TYU``````/O@P```T!C:&MA8F]R
  17590. + M=`````````$````:@P```T!?9FEN9%]F9`````````$````@`````````_$`
  17591. + M```#`````$]05%,`!``````#\@```^D```"8GOP`#$CG+S8J;P`T?@/.KP`X
  17592. + M?`$@;```)F@`N"H\```#[$ZZ``!*AV<*<`*^@&<$<@!@`G(!+T$`*'`!OH!G
  17593. + M"%6'9P1P`&`"<`$O0``L($U#[```3KH``$J`9@9X_V```51P_R!L```A0`"X
  17594. + M(@TL;```=/Y.KO^L+@`@;```(4L`N$J`9G@L;```3J[_?$ZZ```L`"`L``!R
  17595. + M+D8!L(%G!$J`9@I^`2H\```#[F`6(`95@&8,""\`"``Z9P1P`6`"<``N`$J'
  17596. + M9RQ\``@O``@`.F<<""\`#P`Z9P9X`F```-8@+P`\3KH``"@`8```R'C_8```
  17597. + MPBE&``!P_V```4)"IRQL``!R`B0/3J[_'$_O``0D0$J`9PPB!R0*3J[_FDJ`
  17598. + M9A8@"F<()`IR`DZN_Q9.N@``</]@``$(*"H`="0*<@).KO\6(@=.KO^F<%#I
  17599. + MB,"O`#@,@```!0!F#'`1*4```'#_8```VDJO`"AG!@@$``-F#$JO`"QG$@@$
  17600. + M``)G#'`-*4```'#_8```M@@O``D`.F<B(@TD/````^Y.KO_B2H!G""(`3J[_
  17601. + MW&`*3KH``'#_8```C`@O``@`.F<$(`5@!B`\```#[20`(@TL;```3J[_XBH`
  17602. + M9@A.N@``</]@8`@O``D`.F8$2H9F!"P$8`)\_WX`2J\`*&<"?@%*KP`L9P0(
  17603. + MQP`!""\``P`[9P0(QP`#+P<@!2(&3KH``%A/+@!L''#_(&P``"%``+@B!2QL
  17604. + M``!.KO_<(&P``"%+`+@@!TS?;/3>_``,3G4@;P`$+R\`#"\O``PO"&$`_:A/
  17605. + M[P`,3G4```/X`````0````$```!2`````````^^&```!7U]U<P````4```(V
  17606. + M```")````'P```!F````%H,```-`8VAK86)O<G0````````!````)(,```)`
  17607. + M<W1R:6-M<`````$```!6A@```E]$3U-"87-E````!0```BX```',```!`@``
  17608. + M`(@```!P@P``!$!C;VYV97)T7V]S97)R```````!````D(8```)?7T]315)2
  17609. + M``````$```"6@P``!4!?;6%K95]P<F]T96-T:6]N`````````0```.:&```"
  17610. + M7V5R<FYO```````#```!@@```5X```#V@P```D!?<V5T97)R`````P```=@`
  17611. + M``&L```!,(,```1`7V%L;&]C7V%M:6=A9F0``````0```A@````````#\0``
  17612. + M``,`````3U!44P`$`$````/R```#Z@````).24PZ`````````_(```/I```%
  17613. + M:"!O``1(YS@`</_`*``#<@`2`'#_P"@``G0`%`!P_\`H``%V`!8`</_`$'@`
  17614. + M&`#AA(B#X82(@N&$B($@!$S?`!Q.=4CG(S1+[`!R0>P`'$7L``PDR$'L`"`D
  17615. + MR$*L`!A"FGX`+"P`>D?L![Q@/"`K``0B`.6!($W1ZP`(0^@'ZD7L``PEB1@`
  17616. + M2H!G!G`!*4``&$J'9P9*JP`$9@@@$T2`*4``%%*'UOP`$+Z&;<!^`"PL`'9@
  17617. + M.G``(@<&@0``!=@0-1@`2,#I@"!-(@`&@0``!U+1]1@`!H````=.)#4(`.6"
  17618. + M0^@'ZD7L``PEB2@`4H>^AFW"3-\LQ$YU(&\`!")O``B>_`HH2.<[-B](`"@O
  17619. + M20`L(`AF"$WL`"0O3@`H<#H@;P`HL!!F!%*O`"@@;P`H<#I.N@``2H!F3G`*
  17620. + M(@`@;P`H(`A*&&;\4XB1P-*(4H%P0;*`909P_V```DQ![``P0^\`,1+89OQ!
  17621. + M[P`Q0^P`/$ZZ``!![P`Q(F\`*$ZZ``!![P`Q+T@`*$*G+R\`+$ZZ``!03RX`
  17622. + M4H!F!G#_8``"""`'0>\`<B(\```)VDZZ```L`"`'3KH``$J`9@9P++R`9`9P
  17623. + M_V```>!![P"*80#^."X`0>\`CF$`_BXJ;P`L*H!![P"280#^("M```1![P"6
  17624. + M80#^%"M```A![P":80#^""M```PB%6LP=#*R@FXJ)BT`"&\D>`JVA&X>*"T`
  17625. + M!&L8#(0```%R;A!*@&L,L()N"+:'9PI*AV<&</]@``%JTH'E@2`M``@D`-2"
  17626. + MU(#4@B`M``0F`.6#UH#6@M:M``S6@=:'<"S6@+R#9`9P_V```3A'[P">?``D
  17627. + M36`0($MA`/V()4``$%B+4H98BKRM``1MZGP`8"`0&R(&!H$```78&X`8`'(`
  17628. + M$@"RK0`(;09P_V```/92AKRM``1MVGP`0>T'2B1(+T@`)&!*($MA`/TZ)(!+
  17629. + MZP`%$"L`!'(`$@`E00`$9PI3@6<&</]@``"\1^T``1`5<@`2`"5!``AM"BIO
  17630. + M`"RRK0`,;P9P_V```)Q2AM3\`!"\K0`(;;!\`&`.(`8&@```!^H;FP@`4H:\
  17631. + MK0`,;>P@!@:````'ZD(U"`!\`-K\"!Y@'B!+80#\OBJ`1>L`!"!*80#\LBM`
  17632. + M``1'Z@`$4H90C2!O`"R\D&W:?``D;P`D*F\`+&`H2H=F!D*J``Q@&!`;2(!(
  17633. + MP"5```QR`;"!9PA*@&<$</]@#E*&U/P`$+RM``AMTG``3-]LW-[\"BA.=2!O
  17634. + M``193R\-*DA@`E*-$!4?0``$9R9(@$C`0>P``0@P``((`&86$"\`!'(LL`%G
  17635. + M#'(ML`%G!G(KL`%FT"`-*E]83TYU(&\`!")O``@@+P`,(B\`$%E/2.<'%"P!
  17636. + M+@`F22I((`UG$A`52(!(P$'L``$(,``""`!F!'``8$IZ`&`B$"\`%$B`2,`B
  17637. + M!>6!TH72@=*`*@%P,)J`NH9O!'``8"92C1`5'T``%&<02(!(P$'L``$(,``"
  17638. + M"`!FQKJ';`1P`&`$)H4@#4S?*.!83TYU(&\`!")O``A93TCG`!0F24/O``AP
  17639. + M`'(880#_;"I`2H!F!'``8&H@+P`((@#I@9*`(`'I@)"!Z8`F@'`ZL!5F3D'M
  17640. + M``%#[P`(<`!R.V$`_S@J0$J`9@1P`&`V("\`""(`Z8&2@.6!TY-P.K`59B!!
  17641. + M[0`!0^\`"'``<CMA`/\**D!*@&8$<`!@""`O``C1DR`-3-\H`%A/3G4@;P`$
  17642. + M(F\`"%E/2.<!%"I)+T@`#!`0<BVP`68(?@%2KP`,8#!(@$C`0>P``0@P``((
  17643. + M`&88<BL@;P`,LAA7P$0`2(!(P"](``Q*@&<$?@!@!'``8!P@;P`,(DUA`/\4
  17644. + M)D!*@&8$<`!@"$J'9P)$E2`+3-\H@%A/3G4@;P`$(F\`")[\``Q(YP`D*DDO
  17645. + M2``0<$JP$&8H0I5#Z``!0>T`!"](``P@22)O``QP`2(\```!;6$`_CPO0``0
  17646. + M8```M'!-L!!F?'`"*H!#Z``!0>T`#"](``P@22)O``QP`7(,80#^$")`2H!F
  17647. + M!G``8```P$7I``%P+K`19P9P`&```+!![0`((D@@2G`!<@5A`/WD(D!*@&8&
  17648. + M<`!@``"41>D``7`NL!%G!G``8```A$'M``0B2"!*<`!R!F$`_;@O0``08#`0
  17649. + M$$B`2,!#[``!"#$``@@`9QIP`2J`0^T`!'``(CP```%M80#]C"]``!!@!'``
  17650. + M8#P@+P`09@1P`&`R<"\@;P`0L!!F'$/H``%![0`0+T@`#"!)(F\`#&$`_=HO
  17651. + M0``08`@K?```'"``$"`O`!!,WR0`WOP`#$YU("\`!"(O``@@;P`,+V\`$``$
  17652. + MGOP`)$CG/Q0J2"H`+@$D!W8#Q(,O0``X+T$`/$J"9@P@!W)D3KH``$J!9A(@
  17653. + M!W)DY8E.N@``2H%G!'``8`)P`2P`(!5*@&<,4X!G2%.`9V9@``%^("T`!"(`
  17654. + M4X$D`=2"U($F`NF#EH(D`^F"E(/O@BX%WH(O1P!`2H9G``%4<CRP@6T``4P&
  17655. + MAP`!48`O1P!`8``!/B`M``0B`-*!TH`D`>F"E($B`NF!DH+O@=J!+T4`0&``
  17656. + M`1PH!7X`*BT`#%.%(`;0@-"&Z8!'[``^U\`O0``@8!H@&R(`TH'2@"0!Z8*4
  17657. + M@2("Z8&2@N^!V(%2A[Z%;>(N+P`\+T0`)"(M``QT`K*";@8F!U.#8`(F!R`#
  17658. + M<F1.N@``(@#2@4J`:@)6@.2`+T``+"`#+T$`,')D3KH``"`!:@)6@.2`=@G6
  17659. + MK0`,+T``-"`#+T$`*'(,3KH``%*!(`'G@)"!T("0@="`58!R"DZZ``!'[P`H
  17660. + MT)O0KP`TT)N0FU*`<@=.N@``+@%J`EZ'+"T`!)R':@)>AGH!*"T`"&`<+@9>
  17661. + MAR(M``SE@4'L`#K1[P`@OK`8`&P(+`=2A;J$;>`@!M"`T(8B`.F!DH`@`>F`
  17662. + MD('O@"(O`"32@"]!`$`@+P!`T*T`$-"O`$A,WRC\WOP`)$YU(&\`!")O``@@
  17663. + M+P`,GOP`6$CG/S8J2"Q-1^\`-";`)L@FR2].`#!*@&<<(`A*&&;\4XB1P"P(
  17664. + M(@C3KP`X<#.R@&4<?#)@&&$`^JHL`)R-+T``.'(#O(%L!G#_8``#>B]&`"P@
  17665. + M;P`X2A!F!G#_8``#:$/O`'1A`/OF+T``.&8&</]@``-4)F\`/$'L`*8B2V$`
  17666. + M][`N`&<"0I,@;P`X2A!G``*^*D@O2`!\80#Z2"(`DHTO0``X+T$`>'8#LH-L
  17667. + M!G#_8``#%"!O`#@0$&<@<BRP`6<:<CNP`6<40^\`<&$`^WXO0``X9A1P_V``
  17668. + M`NP@//__\?#0KP!T+T``<"!O`#@0$'(LL`%G"'([L`%F``%80^@``2!)0^\`
  17669. + M7&$`^[HJ0$J`9@9P_V```K!%[0`!<"RP%6<&</]@``*@($I#[P!(80#[E"]`
  17670. + M`#AF!G#_8``"BB!O`#A*$&<&</]@``)\($MP`B%```@A?````(@`!"`O`'!$
  17671. + M@$WH!THLP'`!+,!2ABS&("\`=$2`3>@'6BS`0IY"GM;\`!!%Z`78>@`L/```
  17672. + M![(@2B\O`'0O2``L(`4B!D'O`&!A`/QF+@`NKP!T(`4B!D'O`$QA`/Q46$\H
  17673. + M`$OJ``)%ZP`(OH!O&B!+((1P`2)O`"@2@"9*(4<`!"1-0BD``6`8($L@AR)O
  17674. + M`"A"$29*(40`!"1-$WP``0`!(`9R`\"!9@P@!G)D3KH``$J!9A(@!G)DY8E.
  17675. + MN@``2H%G!'``8`)P`2(`Y8%![`">(#`8`"(`TH'2@"8!Z8.6@20#Z8*4@^^"
  17676. + MVH)2A@R&```']6\`_T)@``$<(&\`.$H09P9P_V```69*AV<&</]@``%<>`!\
  17677. + M`'H`0J\`1'X`*DM@<$JM!TYG/B`O`$0B!^F!)"\`<`:!```'2B8S&`#6@B]#
  17678. + M`$1*AF<*L(-G!G#_8``!'$2"*T('2B`O`"Q2@"M`!U)\`6`F(`4B+P!T*BT'
  17679. + M2MJ!2H1G"K"%9P9P_V```.Y$@2M!!TI"K0=2>`%2A]K\`!"^JP`(;8I*AF<$
  17680. + M2H1F!G#_8```R'P`?@`J2R@O`$1@.G``(@<&@0``!=@0,Q@`2,#I@"!+T<!#
  17681. + MZ`=*+TD`0$J&9PI*J0`,9@0@!&`"(`71K0`0+"D`!%*'6(V^JP`$;<!@('``
  17682. + M<@$G00`()T``!"0O`'1$@DWK!THLPBS`+,`O0`!X*F\`/"XO`"P@!U*`*T``
  17683. + M#"PO`'AG"-"&4H`K0``,<C.P@6,$</]@,-K\!^H@!R!-(F\`,$ZZ```@3=''
  17684. + M2^@``4(02H9G$"`&($TB;P!\3KH``$(U:`!P`$S?;/S>_`!83G4@;P`$+PTJ
  17685. + M2$'L```B36$`]%!*@&<,0>P``")-<`%A`/P,*E].=2\-0>P`LDZZ```J0$J`
  17686. + M9@8J7V```%QP`2E`$\Y*%68>0JP`<D*L`'9"K`>\0JP'Q$'L``!#[`A<$MAF
  17687. + M_&`L($U#[`!R80#S]$J`9QYP.K`59Q`@34/L`')P`&$`^ZI*@&<(0>P`<F$`
  17688. + M_W8J7V``\PYP`2E`$\Y#[`!RD<AA`/.\2H!G"$'L`')A`/]48`#R[B!O``0@
  17689. + M+P`((F\`#)[\`!!(YP,4*DE([P$!`!`@;P`4+U``&$JL$\YF!&$`_T1*K`!V
  17690. + M9PH@+P`8L*P`@FP@?@!'[`!R8!!2A];\`!"^K`!Z;01^`&`R2JL'3F;J8"I^
  17691. + M`4?L`'8L+`!V8`X@+P`8L*L`$&T(4H=8B[Z&;>Y#[`!RT\=^`!XI!=?IAT'L
  17692. + M![S1QR\-+T@`("`00>\`'$/L`')A``#"(&\`("(H``0K00`@Y8%![`A<(F\`
  17693. + M(-'I``A#[``,(X@8`"M(`"A83TS?*,#>_``03G4@;P`$0^P``'``80#_*D'L
  17694. + M```@"$YU(&\`!"`O``@B;P`,2.<!%"X`)DDJ2$JL$])F#G`!*4`3TD'L"B!A
  17695. + M`/XZ+PL@!R!-0^P*(&$``$)83TJ'9P9![`"Z8`1![!(*)T@`*$S?*(!.=2!O
  17696. + M``1#[``L<`!AKD'L`"P@"$YU(&\`!"`O``@B;P`,+V\`$``$GOP`#$CG#S0N
  17697. + M`"9O`"PJ2'P`>@`H$2`$YX`O20`@T\!%Z0@>8$`O2@`D(!6PDFTV(&\`)+"0
  17698. + M9BA*A&8&("@`!&X:YX0B*``$(F\`(`:$```(&K*Q2`!N!'``8`)P`2H`+"@`
  17699. + M!&`&4X11BFRZ(!4B/``!48!.N@``*``@%2(\``%1@$ZZ``#2AY*&+`%@"`:&
  17700. + M``%1@%.$2H9K]&`(!(8``5&`4H0,A@`!48!L\"`&(CP```X03KH``"=```@@
  17701. + M!B(\```.$$ZZ```@`2]!`!QR/$ZZ```G0``$("\`''(\3KH``":!2H5G`E*3
  17702. + M(`18@'('3KH``"=!`!AL!%ZK`!@L/```![)*A&M`(`9R`\"!9@P@!G)D3KH`
  17703. + M`$J!9A(@!G)DY8E.N@``2H%G!'``8`)P`2H`(@#E@47L`)X@,A@`N(!M0%*&
  17704. + MF(!@P%.&(`9R`\"!9@P@!G)D3KH``$J!9A(@!G)DY8E.N@``2H%G!'``8`)P
  17705. + M`2H`Y8!![`">V+`(`$J$:\8$A@``!VPG1@`4)T0`'"`%T(#0A>F`1>P`/M7`
  17706. + M0JL`$&`.(BL`$.6!F+(8`%*K`!`B*P`0Y8&XLA@`;.92A"=$``Q"JP`@)T<`
  17707. + M)$S?+/#>_``,3G4@;P`$+PTJ2"`M`!@B`-*!TH!![`"^T<$@+0`0(@#2@=*`
  17708. + M0^P`T]/!(#P```=LT*T`%"\`+Q4O+0`$+RT`""\M``PO"2\(2&P`^$AL`%A.
  17709. + MN@``3^\`)$'L`%@@""I?3G4@;P`$+PUA`/TX($`J7V"4(&\`!")O``@@+P`,
  17710. + M+P<N`"`1L(=M%"('3KH``-&0(!$B!TZZ```B@6`J2H!J)E.0WY%L("`11(`B
  17711. + M!TZZ```B$)*`4X$@@2`11(`B!TZZ``">@2*'+A].=2!O``0B;P`(2.<!%"9)
  17712. + M*D@N+0`4GJL`%&8L+BT`$)ZK`!!F(BXM``R>JP`,9A@N+0`(GJL`"&8.+BT`
  17713. + M!)ZK``1F!"X5GI,@!TS?*(!.=2!O``0B;P`(("\`#"]O`!``!)[\`'!(YS\T
  17714. + M+@`J;P"8+TD`+$*5+T@`*$/O`%QP"B+84<C__"`O`%QR/K"!;`1*@&H.0>\`
  17715. + M8$/O`%QP/&$`_Q9![P!D0^\`8'`\80#_"$'O`&A#[P!D<!AA`/[Z0>\`<$/O
  17716. + M`&QP#&$`_NQ@3"`O`'!3KP!P!H````=K(@!T`\*"9@IR9$ZZ``!*@68:(#P`
  17717. + M``=LT*\`<')DY8E.N@``2H%G!'``8`)P`2(`Y8%![`">(#`8`-&O`&@@+P!H
  17718. + M;ZXL/```!VS<KP!P(`9R`\"!9@P@!G)D3KH``$J!9A(@!G)DY8E.N@``2H%G
  17719. + M!'``8`)P`20O`&SE@B8`UH/6@.F#0>P`/M'#+#`H`"`O`&BPAF\:1^\`:)V;
  17720. + M4I,,FP````QMGD*O`&Q2KP!P8)0@+P!<0J\`7'H`<@$O00"(+T``)%*%("\`
  17721. + MB-"`+T``B"`O`(AN[B`O`(AJ!'``8`1P`>N@+T``B$AO`#`O!TAO`)`@;P`X
  17722. + M3I!![P`\0^\`:&$`_BQ/[P`,*`!G+B`%4X5*@&H&</]@``$02H5J!E.O`(A@
  17723. + MQ'`!ZZ`L`$J$;P:=KP"(8+3=KP"(8*X@+P!\:P``Q"(O`%"R@&<``+I!^OGB
  17724. + M(F\`++/(9@9![`!R8`1![`H@?``F2"](`)!@``"(("L'3K"O`'QF=GH`)&\`
  17725. + MD&!D("H'3K"O`'QG5"`%Z8`B+P"((&\`D`:````'2M*P"`"2JP=*+T$`C$AO
  17726. + M`#`O!TAO`)0@;P`X3I!![P`\0^\`:&$`_6Q/[P`,2H!F$B`O`%"PKP!\9@@O
  17727. + M;P",`(A@)E*%U/P`$"!O`)"ZJ``(;9)2AM;\`!`@;P"0O*@`"&T`_W!P_V`D
  17728. + M("\`)-&O`(@O+P`H+P=(;P"0(&\`.$Z0<`$J@$_O``P@+P"(3-\L_-[\`'!.
  17729. + M=2!O``0B;P`(("\`#)[\``Q(YP<T+@`J2"])`!@,K0````$`(&\&<`$K0``@
  17730. + M2&\`'"`'($UA`/T>6$\L`$JO`!QF!B`M`"!J!B`&8```QD'Z^*XB;P`8L\AF
  17731. + M!D'L`')@!$'L"B!\`"9(+T@`(&```)8@*P=.L*T`(&8``(1Z`"1O`"!@<"`M
  17732. + M`"`B*@=.LH!G7B`%Z8`B%2!O`"`&@```!TK2L`@`DJL'2BJ!2JT`(%?`1`!(
  17733. + M@$C`*T``($AO`!P@!R!-(F\`'&$`_(Q83TJO`!QF0"`5D*H'2M"K!THJ@$JM
  17734. + M`"!7P$0`2(!(P"M``"!2A=3\`!`@;P`@NJ@`"&V&4H;6_``0(&\`(+RH``AM
  17735. + M`/]B</],WRS@WOP`#$YU(&\`!"\-0_KWVG``*E]@`/[@2JP3SF8$80#W+$YU
  17736. + M``````/X````'0````$``!*X```29@``$-@``!"T```0I```$%0``!`R```/
  17737. + M\@``#H(```X6```,^```#,H```RX```,J@``"O@```E*```(>```!Z0```%L
  17738. + M```!7````18```#F````H````(X```"`````7````%8```!0````3````"L`
  17739. + M```"```5E```%,8``!3````3D@``$XP``!#H```0W```#J(```Z:```.B```
  17740. + M#G0```YF```.8@``#EH```X\```.,@``#@H```WT```-X@``#=0```V\```-
  17741. + MN```#:0```V8```-D```#88```U\```-3```#3X```TZ```-*@``#1P```T(
  17742. + M```,_```#/0```SP```,[```#.@```S@````L````&@```!D````2```````
  17743. + M``/O@P```D!S=')C:'(``````0```3*#```"0'-T<F-A=``````"```!?```
  17744. + M`7"#```"7V]P96X````````!```!CH,```)`<F5A9`````````$```&L@P``
  17745. + M`D!C;&]S90```````0```;2&```"7U]?8W1Y<&4````%```&6@``!3X```1>
  17746. + M```$'````\J#```"7U]#6$0S,P`````<```2G```$HX``!)4```2/@``$4X`
  17747. + M`!$\```1)```$1H``!`@```0$@``#]X```_0```/K```#YH```^,```/@```
  17748. + M#W````\^```/,```"N8```K8```(4@``"#P```@F```("```!^P```<.```'
  17749. + M`(,```)`<W1R;F-P>0````(```R.```,=(,```-`7U]G971E;G8````````!
  17750. + M```,SH,```)?<W!R:6YT9@````$``!#@`````````_$````#`````$]05%,`
  17751. + M!`!````#\@```^H```!(1TU4`"`@(``@("``````!`````@``````````"`@
  17752. + M(``@("``<SIL;V-A;'1I;64`<SIZ;VYE:6YF;P``+P`````?````'````!\`
  17753. + M```>````'P```!X````?````'P```!X````?````'@```!\````?````'0``
  17754. + M`!\````>````'P```!X````?````'P```!X````?````'@```!\```%M```!
  17755. + M;G!O<VEX<G5L97,``%5.25A46@``("`@`%-U;DUO;E1U95=E9%1H=49R:5-A
  17756. + M=$IA;D9E8DUA<D%P<DUA>4IU;DIU;$%U9U-E<$]C=$YO=D1E8P`E+C-S("4N
  17757. + M,W,E,V0@)3`R+C)D.B4P,BXR9#HE,#(N,F0@)60*```````#[`````(````!
  17758. + M````$`````P````````#\@```^L```3V```#\@```^D```&<GOP`#$C7`0-P
  17759. + M_][\``Q.=5%/2-<#`%!/3G5(YS`"(A!**``-9P1P`&`<)`DF`"QL``!.KO_6
  17760. + M(@!2@&8(3KH``'#_8`(@`4S?0`Q.=5%/2.<_-BX`*DDF2"P3+T8`*"](`"Q*
  17761. + M*P`-9P9P`&```(Q**P`,9V8F3=?'>@!@6"1-8`)2BK7+9`9P"K`29O2WRF8$
  17762. + M*`I@!D'J``$H")B-(B\`*"0-)@0L;```3J[_T"P`4H!F"$ZZ``!P_V`^VH:V
  17763. + MAF8V2^H``9Z&<`!.N@``3KH``$J`9B)*AV:D8!PB!B0-)@<L;```3J[_T"H`
  17764. + M4H!F"$ZZ``!P_V`"(`5,WVS\4$].=5E/2.<_`BX`+!`O00`<2B@`#6<$<`!@
  17765. + M4E.!)@$B!B0'+&P``$ZN_[XJ`$ZN_WPH`%*%9P1*A&<.(`1.N@``*4```'#_
  17766. + M8"0B!G0`)@).KO^^+`!2@&<$2H1G#B`$3KH``"E```!P_V`"(`9,WT#\6$].
  17767. + M=9[\`0!(YS\&+@`J2"P5*BT`""`M``1G"B(`+&P``$ZN_Z88+0`-2(1(Q"!-
  17768. + M3KH``$J$9P1P`&!$(@9![P`@)`@L;```=D#EBTZN_F@H`$J'9@HB!DZN_]Q*
  17769. + M@&<:2H1G$G#_NH!G#"(")`5.KO]&2H!G!'``8`9.N@``</],WV#\WOP!`$YU
  17770. + M("\`!$CG(`(B`"QL``!T`$ZN_S1.KO]\="Y&`K""5\%$`4B!2,$@`4S?0`1.
  17771. + M=2`O``0@;P`((F\`#)[\`!!(YS<6+@`F22I(?`!AN$J`9GPB!RQL``!T`4ZN
  17772. + M_E9*@&=L(@=![```)`AV!$ZN_]!9@&92(@<D/```)Q!.KO\T2H!G0B('0>\`
  17773. + M("0(=A!.KO_6<@FP@6\N<)NP+P`@9B9![P`E(@@D"TZN_-`J`$'O`";1P"((
  17774. + M)`U.KOS04H!G!E*%9P)\`2('=`!.KOY6(`9,WVCLWOP`$$YU("\`!"(O``B>
  17775. + M_`(02.<_!BX`</\O0`(H+T$`)"('+&P``'0`=@%.KO^^+T``("('3J[_OBP`
  17776. + M3J[_?"H`+T`"+&8``,(H+P`D(@<D!';_3J[^.+""9@``KKR";```GBH$FH8H
  17777. + M!2`$<@%(02QX``1.KO\Z*D!*@&9J<@)(04ZN_RCBB"H`#(4```(`;1`@!7(!
  17778. + M2$%.KO\Z*D!*@&9&>D#GC4OO`"@P/`'_<@!![P`H$,%1R/_\8"RXA6\$(`5@
  17779. + M`B`$)@!.N@``(@<D#2QL``!.KO_0L(-G"DZN_WPO0`(L8`:8@TJ$;M!![P`H
  17780. + ML<UG#")-(`4L>``$3J[_+BHO`BQF!$*O`B@L+P`@O*\`)&P.(@<D!BQL``!V
  17781. + M_TZN_[XL+P(H9PH@!4ZZ```I0```(`9,WV#\WOP"$$YUGOP!"$CG-Q8N`"9)
  17782. + M*D@L%4HM``UF``$8(`<$@```!`!G(`2````$`&=*4X!G6%.`9UQ3@&=>4X!G
  17783. + M9E.`9VQ@``#N2BT`#&<F(`9![P$D0^\!(&$`_=9*@&<4("\!)#=```(@+P$@
  17784. + M-H!P`&```,IP&6```+XB!BQL``!.KO\H)H!P`&```+(FAG``8```JG``8```
  17785. + MI"`&(A-A`/XV8```F"M3``AP`&```(XJ$TJM``1F#B(5+&P``$ZN_HPK0``$
  17786. + M("T`!&=B)``B!2QL``!.KOY<2H!F4B(&0>\`("0(=D#EBTZN_FA*@&<^(@5.
  17787. + MKO^F(BT`!$ZN_Z8B!DZN_]PB`G0`3J[_1AM\``$`#2J"*T(`!$'O`"`B""QL
  17788. + M``!.KO^X2H!G!"`"8`Y.N@``8`9P%BE```!P_TS?:.S>_`$(3G4@+P`$(B\`
  17789. + M""]O``P`!$CG#P8J+P`<+`$N`'`.3KH``"I`2H!F"G`,*4```'#_8$Y#U2+'
  17790. + M0IDBQD(M``TB!RQL``!.KO\H&T``#$AZ_G1(>OO:2'K[9$AZ^JQ(>OIV2'KZ
  17791. + M:"`%($U#^OI03KH``$_O`!@H`&P&($U.N@``(`1,WV#P3G4@+P`$(B\`""]O
  17792. + M``P`!"]O`!``""]O`!0`#"]O`!@`$$CG#0`H+P`4*B\`$"X`<`!*@68$<$#E
  17793. + MB`!```$O`"`'<O]A`/]&6$]*@&9`<`!*A&8$<$#EB`!```(O`"`%<O]A`/\H
  17794. + M6$]3@&8B<`!*KP`<9@1P0.6(`$```B\`("\`''+_80#_!EA/58!G$$'L``8O
  17795. + M2``03-\`L$[Z``!,WP"P3G4``````_@````"`````0``!EH```)<````````
  17796. + M`^^&```"7T1/4T)A<V4````0```%B```!2(```34```$O@``!(````/D```#
  17797. + MG````O````),```"!````;0```&.```!(@```.(```"F````,(,```)`7W-E
  17798. + M=&5R<@````4```4R```!Z@```/````"T````/H,```1`7V-H96-K7W-I9VYA
  17799. + M;',``````0```,J#```$0%]H86YD;&5?<VEG;F%L<P````$```#.@P``!$!C
  17800. + M;VYV97)T7V]S97)R```````#```#]@```5X```$\A@```E]E<G)N;P``````
  17801. + M!0``!7(```4Z```#^@```6(```%`@P```D!F<F5E`````````@``!<(```&@
  17802. + M@P```T!C:&MA8F]R=`````````$```.4@P```D!M86QL;V,``````0``!6:#
  17803. + M```#0%]A;&QO8U]F9````````0``!;2#```"7U]F86EL```````!```&9@``
  17804. + M``````/Q`````P````!/4%13``0`0````_(```/J````")LP('$``$9A:6QE
  17805. + M9"!T;R!I;FET:6%L:7-E($DO3P`````#\@```^D````G(&\`!")O``A(YR$6
  17806. + M)DDJ2$ZZ```B#20++&P``$ZN_[)*@&<$<`!@;$ZN_WPN`'(T1@&P@692(@).
  17807. + MKO^X2H!G#B(-3J[_LDJ`9P1P`&!&3J[_?"X`<F_2@;"!9BPB`G0`3J[_1DJ`
  17808. + M9QHB"TZN_[A*@&<0(@TD"TZN_[)*@&<$<`!@$DZN_WPN`"`'3KH``"E```!P
  17809. + M_TS?:(1.=0`````#[X,```-`8VAK86)O<G0````````!````$H8```)?1$]3
  17810. + M0F%S90````$````:@P``!$!C;VYV97)T7V]S97)R```````!````C(8```)?
  17811. + M97)R;F\```````$```"0`````````_$````#`````$]05%,`!`!````#\@``
  17812. + M`^D````.(&\`!"`O``@B+P`,GOP`#$C7`0-P`-[\``Q.=2`O``0B+P`(+V\`
  17813. + M#``$44](UP`#<`!03TYU``````/Q`````P````!/4%13``0``````_(```/I
  17814. + M````$"!O``0B;P`(("\`#$CG`10N`"9)*DAF!'``8!P@!R!+(DUR`$J`9PX2
  17815. + M&)(99@13@&;V2(%(P2`!3-\H@$YU``````/Q`````P````!/4%13``0`````
  17816. + M`_(```/I````=2!O``0B;P`(+V\`#``$("\`$"]O`!0`"$CG!S0N`"1O`"`F
  17817. + M22I(+"L`="2O`!Q"J@`2<`$U0``.0FH`$"5\```"```R-4``#"5K`(``-B`K
  17818. + M`'QF$"(K``1O"B5\```(```68`0E0``6)5,`!$'K`(1.N@``)4``(B5``!HE
  17819. + M0``J("L`!%J`9SY5@&=068!G0%6`9F8@#6<<2'@`_TAL```O#4ZZ``!/[P`,
  17820. + M*@!O!B5%`!9@""5\```!```6)7P``*````A@2B5\```0```(8$`E?```0```
  17821. + M"'P`8#1*DV802BL`"&8*)7P``"````A@("5\``"````(8!8@*P`$;P9P0.&(
  17822. + M8`8@/```@``E0``(2H=G`GP`(`9.N@``@:H`"$S?+.!.=2!O``0B;P`(64](
  17823. + MYR,6*DA^`"])`!A"IRQL``!R`B0/3J[_'$_O``0F0$J`9U`B#73^3J[_K"X`
  17824. + M9T0B!R0+3J[_FDJ`9S@B!TZN_RY*@%?&1`9(ADC&2H!G!B(`3J[_IB`'Y8`O
  17825. + M+P`8($`O*``,(D(@!B!-80#^?%!/?`!@#GS_3J[_?$ZZ```I0```2H=G!B('
  17826. + M3J[_IB`+9P@D"W("3J[_%B`&3-]HQ%A/3G4``````_@````!`````0```)X`
  17827. + M```````#[X,```-`7V%M:6=A,F=M=``````!````<H,```-?<F5A9&QI;FL`
  17828. + M```````!````I(,```-`7VUA:V5?;6]D90`````!```!&H8```)?1$]30F%S
  17829. + M90````$```%`@P``!$!C;VYV97)T7V]S97)R```````!```!K(8```)?97)R
  17830. + M;F\```````$```&P`````````_$````#`````$]05%,`!`!````#\@```^L`
  17831. + M``!````#\@```^D````%(&\`!"`O``AR`&`"$,%3@&3Z3G4```/Q`````P``
  17832. + M``!/4%13``0``````_(```/I````#"`O``0B+P`(64\O!RX`+T$`!$ZZ``!(
  17833. + M;P`$2'@(`R\'3KH``$_O``PN'UA/3G4``````^^#```#0&-H:V%B;W)T````
  17834. + M`````0```!2#```"7VEO8W1L```````!````(@````````/Q`````P````!/
  17835. + M4%13``0``````_(```/I````#2`O``0B+P`(64\O!RX`(`%.N@``+T``!$ZZ
  17836. + M``!(;P`$2'@(!"\'3KH``$_O``PN'UA/3G4```/O@P``!4!?;6%K95]P<F]T
  17837. + M96-T:6]N`````````0```!*#```#0&-H:V%B;W)T`````````0```!J#```"
  17838. + M7VEO8W1L```````!````*`````````/Q`````P````!/4%13``0``````_(`
  17839. + M``/I````$"!O``0@+P`((B\`#)[\``Q(UP$#</\I0```WOP`#$YU(&\`!"`O
  17840. + M``@B+P`,GOP`#$C7`0-P_RE```#>_``,3G4```/OA@```E]E<G)N;P``````
  17841. + M`@```#@````8`````````_$````#`````$]05%,`!`!````#\@```^D````-
  17842. + M("\`!%E/+P<N`$ZZ``!(;P`$2'@(`"\'3KH``$_O``Q*@&<$<`!@!"`O``0N
  17843. + M'UA/3G4``````^^#```#0&-H:V%B;W)T`````````0````R#```"7VEO8W1L
  17844. + M```````!````&@````````/Q`````P````!/4%13``0``````_(```/I````
  17845. + M#R`O``1(YP8`3KH``"P`<`!.N@``8`9P`$ZZ```J`"`%3KH``$J`9^X@!DZZ
  17846. + M``!P!"E```!P_TS?`&!.=0```^^#```#0'-I9W-E=&UA<VL``````@```"P`
  17847. + M```*@P``!$!?8VAE8VM?<VEG;F%L<P`````!````$H,```1`7W=A:71?<VEG
  17848. + M;F%L<P```````0```!J#```$0%]H86YD;&5?<VEG;F%L<P````$````BA@``
  17849. + M`E]E<G)N;P```````0```#(````````#\0````,`````3U!44P`$`$````/R
  17850. + M```#Z0```"@@;P`$2.<C%BI(?@!"IRQL``!R`B0/3J[_'$_O``0F0$J`9U(B
  17851. + M#73^3J[_K"X`9T8B!R0+3J[_FDJ`9SHB*P`$7L!$`$B`2,`L`"('3J[_IG("
  17852. + M3J[_%DJ&9Q0B#4ZN_[A*@&<$<`!@,DZZ``!@*G`4*4```&`B3J[_?$ZZ```I
  17853. + M0```2H=G!B('3J[_IB`+9P@D"W("3J[_%G#_3-]HQ$YU```#[X8```)?1$]3
  17854. + M0F%S90````$````0@P```D!?<V5T97)R`````0```&J&```"7V5R<FYO````
  17855. + M```"````@````'*#```$0&-O;G9E<G1?;W-E<G(```````$```!\````````
  17856. + M`_$````#`````$]05%,`!`!````#\@```^D```&7(&\`!"`O``@B;P`,+V\`
  17857. + M$``$+P<N`"E(`!XI0``:<@&P@64>+R\`""\)80``)%!/2H!G#B!L`!Y"$"`'
  17858. + MD*P`&F`"<``N'TYU(&\`!")O``A(YP`4)DDJ2&``!/@0%7(EL`%F``3*4HT0
  17859. + M%4B`2,!*@&<``-9R)9"!9P`$M'(<D(%G``#,4X!G``$F4X!G``&`4X!G``&B
  17860. + M68!G``'L4X!G``($68!G``*:6X!G``,.4X!G``,P4X!G``-84X!G``-Z58!G
  17861. + M``.@4X!G``-&4X!G``0F4X!G``1"7X!G``"B4X!G``#\4X!G``$Z4X!G``%<
  17862. + M4X!G``%T5X!G``#D58!G``'24X!G``'N4X!G``(&4X!G``),4X!G``)H58!G
  17863. + M``)V58!G``*J4X!G``+44X!G``+T5X!G``-F4X!G``-^4X!G``.,8``#Z%.-
  17864. + M8``#XB`K`!AK!G(&L(%O!G``8``#_B(K`!CE@4'L`'8O,!@`80`$QEA/2H!F
  17865. + M``/88``#X"`K`!AK!G(&L(%O!G``8``#SB(K`!CE@4'L`!PO,!@`80`$EEA/
  17866. + M2H!F``.H8``#L"`K`!!K!G(+L(%O!G``8``#GB(K`!#E@4'L`4XO,!@`80`$
  17867. + M9EA/2H!F``-X8``#@"`K`!!K!G(+L(%O!G``8``#;B(K`!#E@4'L`,(O,!@`
  17868. + M80`$-EA/2H!F``-(8``#4$'L`7XB2V$`_CI*@&8``S1@``,\0>P!E")+80#^
  17869. + M)DJ`9@`#(&```RA![`&F(DMA`/X22H!F``,,8``#%$AX`#!(>``"+RL`#&$`
  17870. + M`WI/[P`,2H!F``+N8``"]DAX`"!(>``"+RL`#&$``UQ/[P`,2H!F``+08``"
  17871. + MV$AX`#!(>``"+RL`"&$``SY/[P`,2H!F``*R8``"NB`K``AR#$ZZ``!P#$J!
  17872. + M9P(@`4AX`#!(>``"+P!A``,03^\`#$J`9@`"A&```HP@*P`<4H!(>``P2'@`
  17873. + M`R\`80`"[D_O``Q*@&8``F)@``)J2'@`($AX``(O*P`(80`"T$_O``Q*@&8`
  17874. + M`D1@``),("L`"'(,3KH``'`,2H%G`B`!2'@`($AX``(O`&$``J)/[P`,2H!F
  17875. + M``(68``"'DAX`#!(>``"+RL`!&$``H1/[P`,2H!F``'X8``"`"`K`!!2@$AX
  17876. + M`#!(>``"+P!A``)B3^\`#$J`9@`!UF```=Y(;`&P80`"L%A/2H!F``'"8``!
  17877. + MR@RK````#``(;09![`&R8`1![`&V+PAA``**6$]*@&8``9Q@``&D0>P!NB)+
  17878. + M80#\CDJ`9@`!B&```9!![`'`(DMA`/QZ2H!F``%T8``!?$AX`#!(>``"+Q-A
  17879. + M``'D3^\`#$J`9@`!6&```6`O"V$``6183TJ`9@`!1F```4Y![`',(DMA`/PX
  17880. + M2H!F``$R8``!.DAL`=9A``(,6$]*@&8``1Y@``$F("L`'%Z`D*L`&'('3KH`
  17881. + M`$AX`#!(>``"+P!A``%^3^\`#$J`9@``\F```/H@*P`89P13@&`"<`8B*P`<
  17882. + M7H&2@"`!<@=.N@``2'@`,$AX``(O`&$``49/[P`,2H!F``"Z8```PDAX`#!(
  17883. + M>``!+RL`&&$``2A/[P`,2H!F``"<8```I$'L`=@B2V$`^XY*@&8``(A@``"0
  17884. + M(#P```=LT*L`%')D3KH``$AX`#!(>``"+P%A``#H3^\`#$J`9EQ@9B`\```'
  17885. + M;-"K`!1(>``P2'@`!"\`80``QD_O``Q*@&8Z8$0@*P`H9PPO`&$``1183TJ`
  17886. + M9B9P`&`N2JP`&E?`1`!(@$C`4ZP`&DJ`9P1P`&`6(&P`'A#5*4@`'E*-2A5F
  17887. + M`/L&("P`&DS?*`!.=2!O``2>_``L2.<!$$/O``AP"B+84<C__$'O``A.N@``
  17888. + M+@!'[``-8!H@!W(*3KH``'`PTH`6@5.+(`=R"DZZ```N`$J';PA![```M\AB
  17889. + MVDAK``%A``"`6$],WPB`WOP`+$YU("\`!"(O``@O;P`,``1(YP<$&B\`%RP!
  17890. + M+@!+[``78!P@!W(*3KH``'`PTH`:@5.-(`=R"DZZ```N`%.&2H=O#D'L``^[
  17891. + MR&+88`0:A5.-0>P`#[O(8P@@!E.&2H!N[$AM``%A```.6$],WR#@3G4@;P`$
  17892. + M+PTJ2"`L`!IG&!(=(&P`'A"!9@1P`6`*4JP`'E.L`!I@XBI?3G4```/X````
  17893. + M#P````$```2\```$)@``!!(```/0```#O````Z8```.@```#@@```C@```(D
  17894. + M```"$````?@```'(```!F````6@````2`````@``!E0```90```&1```!CP`
  17895. + M``84```&!@``!>````6J```%A@``!5H```5.```%2```!3P```4P````/@``
  17896. + M`#8````<````&`````````/O@P```E]?0UA$,S,`````"0``!?H```7J```%
  17897. + MH```!9````3<```$?@``!$8```,:```"K(,```)`;6MT:6UE``````$```6`
  17898. + M`````````_$````#`````$]05%,`!`!````#\@```^H```!Y4W5N`$UO;@!4
  17899. + M=64`5V5D`%1H=0!&<FD`4V%T```````````$````"`````P````0````%```
  17900. + M`!A3=6YD87D``$UO;F1A>0``5'5E<V1A>0!7961N97-D87D`5&AU<G-D87D`
  17901. + M`$9R:61A>0``4V%T=7)D87D``````#@```!`````2````%````!:````9```
  17902. + M`&Q*86X`1F5B`$UA<@!!<'(`36%Y`$IU;@!*=6P`075G`%-E<`!/8W0`3F]V
  17903. + M`$1E8P````"2````E@```)H```">````H@```*8```"J````K@```+(```"V
  17904. + M````N@```+Y*86YU87)Y`$9E8G)U87)Y``!-87)C:`!!<')I;`!-87D`2G5N
  17905. + M90``2G5L>0``075G=7-T``!397!T96UB97(`3V-T;V)E<@!.;W9E;6)E<@``
  17906. + M1&5C96UB97(``````/(```#Z```!!````0H```$0```!%````1H```$@```!
  17907. + M*````3(```$Z```!1"5A("5B("5E("5(.B5-.B53("59```E;2\E9"\E>2`E
  17908. + M2#HE33HE4P`E;2\E9"\E>0``"@!030``04T``"5(.B5-`"5).B5-.B53("5P
  17909. + M`"5(.B5-.B53```)`"5M+R5D+R5Y`````````^P````F`````0```7H```%V
  17910. + M```!<@```6X```%J```!9@```6(```%>```!6@```58```%2```!3@```.X`
  17911. + M``#J````Y@```.(```#>````V@```-8```#2````S@```,H```#&````P@``
  17912. + M`(X```"*````A@```((```!^````>@```'8````T````,````"P````H````
  17913. + M)````"`````<`````````_(```/K````"0```_(```/I````%B!O``0@+P`(
  17914. + M2.<G`BX`(@@L;```)#P```/M3J[_XBP`3KH``$J&9QP@!B('3KH``"H`(@9.
  17915. + MKO_<2H!F!$J%9P0@!6`.3J[_?$ZZ```I0```</],WT#D3G4```/OA@```E]$
  17916. + M3U-"87-E`````0```!*#```#0&-H:V%B;W)T`````````0```"*#```$0%]D
  17917. + M;U]T<G5N8V%T90````````$````N@P``!$!C;VYV97)T7V]S97)R```````!
  17918. + M````2H8```)?97)R;F\```````$```!.`````````_$````#`````$]05%,`
  17919. + M!`!````#\@```^D```#5(&\`!")O``@@+P`,(B\`$"]O`!0`!"]O`!@`""]O
  17920. + M`!P`#)[\`#!(YR\V+B\`6"](`"PJ`"@!?$#ECB]``"0O00`H+TD`,'!`Y8A.
  17921. + MN@``*D`O0`!$(`52@&82+&P``$ZN_\HO0`!`0J\`4&`F2&\`0$AX"`$O!4ZZ
  17922. + M``!/[P`,4H!F!$*O`$!P`2]``%`@!4ZZ```@!%*`9A(L;```3J[_Q"]``#Q"
  17923. + MKP!,8$:ZA&8,+V\`0``\0J\`3&`V2&\`/$AX"`$O!$ZZ``!/[P`,4H!F!G``
  17924. + M+T``/"(O`#RRKP!`5L!$`$B`2,`O0`!,(`1.N@``</^^@&80(&P``"]H`.``
  17925. + M.$*O`$A@4'#^OH!F#"]O`#P`.$*O`$A@/DAO`#A(>`@!+P=.N@``3^\`#%*`
  17926. + M9@9P`"]``#@@+P`X(B\`/+*`9PJPKP!`9P1P`6`"<``O0`!((`=.N@``2J\`
  17927. + M0&<``61*KP`\9P`!7$JO`#AF!E*'9@`!4"`-9P`!1"9->``O;P`P`#1@``"L
  17928. + M2H1F!B!O`"Q@`B!5)$AZ`RI(8!I2A1`5<BJP`6<,<B*P`6<&<@JP`68"4H52
  17929. + MC4H59N(J;P!$($W1QB)+T\5-Z0`!O<AE)"`&T(;0A2P`($U.N@``*D!*@&<`
  17930. + M`-H@"Y"O`$0F3=?`+TT`1"!+$+P`(%2+$7P`(@`!*DI@(!`5<B*P`6<&<BJP
  17931. + M`68&%OP`*F`*<@JP`68$%OP`*Q;=2A5FW!;\`")2A%BO`#0J;P`T2I5F`/].
  17932. + M0A,J;P!<(`UG$"(-+&P``'3^3J[_K"@`8`)X`$J$9@0@#68\*F\`1"\O`&`O
  17933. + M!"\O`%`O+P!$+R\`7"\O`%`@+P!8(B\`:"!-3KH``$_O`!@J`%*`9QH@34ZZ
  17934. + M```@!6!X+&P``$ZN_WQ.N@``*4```$J$9Q(B!"QL``!.KO^F8`9P#"E````@
  17935. + M+P!`9Q!*KP!09PHB`"QL``!.KO_<("\`/&<02J\`3&<*(@`L;```3J[_W"`O
  17936. + M`#AG$$JO`$AG"B(`+&P``$ZN_]PJ;P!$(`UG!B!-3KH``'#_3-]L]-[\`#!.
  17937. + M=2!O``0B;P`(("\`#"(O`!`O;P`4``0O;P`8``@O!2HO``PO!2\O``Q(>/__
  17938. + M80#\V$_O``PJ'TYU```#[X,```)`;6%L;&]C``````$```!,A@```E]$3U-"
  17939. + M87-E````"````OP```+F```"T````K(```*<```"2````)H```!<@P```E]I
  17940. + M;V-T;````````P```20```#&````>(,```1`7W!S975D;U]C;&]S90``````
  17941. + M`P```50```#N````D(8```%?7W5S`````0```/B#```"0')E86QL;V,````!
  17942. + M```!V(,```1`7W-T87)T7W!R;V-E<W,``````0```H2#```"0&9R964`````
  17943. + M```"```##@```I2#```$0&-O;G9E<G1?;W-E<G(```````$```*DA@```E]E
  17944. + M<G)N;P```````@```KX```*H`````````_$````#`````$]05%,`!`!````#
  17945. + M\@```^D````"<`%.=7`!3G4```/Q`````P````!/4%13``0``````_(```/I
  17946. + M````#B`O``0O!RX`3KH``"`'(&P``'(`3KH``&`,("P``$ZZ``!.N@``(&P`
  17947. + M`$ZZ``!*@&?H<``N'TYU```#[X,```-`8VAK86)O<G0````````!````"H8`
  17948. + M``-?7V]D9%]T:6UE<@`````"````*````!"#```$0%]T:6UE<E]S=&%R=```
  17949. + M``````$````6A@```U]?;V1D7W-I9P````````$````<@P``!$!?=V%I=%]S
  17950. + M:6=N86QS```````!````((,```1`7VAA;F1L95]S:6=N86QS`````0```"2#
  17951. + M```$0%]T:6UE<E]E>'!I<F5D``````$````L`````````_$````#`````$]0
  17952. + M5%,`!`!````#\@```^D````/(&\`!"`O``A(YP$$+@`J2$ZZ```O!TAX`P$O
  17953. + M#4ZZ``!/[P`,3-\@@$YU(&\`!"`O``A(YP$$3-\@@&#,```#[X,```-`8VAK
  17954. + M86)O<G0````````!````$H,```)?;W!E;@````````$````>`````````_$`
  17955. + M```#`````$]05%,`!``````#\@```^D````C("\`!"!O``@B+P`,64](YP,T
  17956. + M+`$N`"I(3KH``"`'3KH``"9`2H!G1`@K``$``V<V""L``P`#9Q8@:P`8+T@`
  17957. + M%"!K``1P`'("(F\`%$Z1(&L`%"](`!0@!B!K``0B321O`!1.DF`(<`TI0```
  17958. + M</],WRS`6$].=2`O``0@;P`((B\`#$CG`P1,WR#`8(````/O@P```T!C:&MA
  17959. + M8F]R=`````````$````:@P```T!?9FEN9%]F9`````````$````@A@```E]E
  17960. + M<G)N;P```````0```&H````````#\0````,`````3U!44P`$`$````/R```#
  17961. + MZ0````P@;P`$44\O#2I(0>\`!$ZZ``!*@&H$</]@#B`-9P8@+P`$*H`@+P`$
  17962. + M*E]03TYU``````/O@P```T!?9V5T=&EM90````````$````0`````````_$`
  17963. + M```#`````$]05%,`!``````#\@```^D````=(&\`!)[\`$!(YSL6*DA.N@``
  17964. + M(`UG4DH59TXB#4'O`"`D""QL``!V0'@`3J[\=BX`;39.KO]\+`!2@$ZZ```F
  17965. + M0$J`9R2^AF<4)@92@R(-)`M.KOQV2H!O$"`"8`X@0B)+$MAF_"`+8`)P`$S?
  17966. + M:-S>_`!`3G4```/O@P```T!C:&MA8F]R=`````````$````0A@```E]$3U-"
  17967. + M87-E`````0```"2#```"0&UA;&QO8P`````!````/`````````/Q`````P``
  17968. + M``!/4%13``0`0````_(```/I````$R!O``0B;P`(2.<S$B9)(@@L;```=/Y.
  17969. + MKO^L+@!.N@``2H=G&B(+)`=V`$ZN_D0L`"("3J[_IDJ&9P0@`V`&3KH``'#_
  17970. + M3-](S$YU``````/OA@```E]$3U-"87-E`````0```!*#```#0&-H:V%B;W)T
  17971. + M`````````0```!Z#```"0%]S971E<G(````!````0`````````/Q`````P``
  17972. + M``!/4%13``0`0````_(```/I````)"!O``2>_``,2.<!%"I(2AAF_%.(D<T@
  17973. + M""9-U\!=BWYA3KH``"\L``!(;```2&\`%TZZ``!/[P`,0>\`#R)(2AEF_%.)
  17974. + MD\@@"7(%L(%O"$'O``K1P&`$0>\`#R\(2&P`!"\+3KH``$_O``P6AR!-<`!.
  17975. + MN@``2H!F"E('<'J^`&_J0A4@#4S?*(#>_``,3G4``````_@````"`````0``
  17976. + M`%X````J`````````^^#```#0&-H:V%B;W)T`````````0```"*&```!7U]U
  17977. + M<P````$````F@P```U]?<W!R:6YT9@````````(```!D````,H,```-`7U]A
  17978. + M8V-E<W,````````!````<@````````/Q`````P````!/4%13``0`0````_(`
  17979. + M``/J`````B5L>`!A)7,````#\@```^D````&(&\`!"\-*DA.N@``($UP0.F(
  17980. + M*E].^@`````#[X,```-`8VAK86)O<G0````````!````"H,```)`9V5T8W=D
  17981. + M``````$````6`````````_$````#`````$]05%,`!``````#\@```^D````/
  17982. + M(&\`!"`O``A(YR$&+@`J2$ZZ```@!TZZ```D`"(-+&P``$ZN_T9*@&<$<`!@
  17983. + M!DZZ``!P_TS?8(1.=0`````#[X,```-`8VAK86)O<G0````````!````$H,`
  17984. + M``5`7VUA:V5?<')O=&5C=&EO;@````````$````8A@```E]$3U-"87-E````
  17985. + M`0```""#```"0%]S971E<G(````!````,`````````/Q`````P````!/4%13
  17986. + M``0`0````_(```/I````'"`O``0B+P`(+V\`#``$44](YP<`*B\`&"P!+@!.
  17987. + MN@``(`=.N@``2H!G&B)`(&D`&"](`!`@!B(%(&D`!")O`!!.D6`"</],WP#@
  17988. + M4$].=2`O``0B+P`(+V\`#``$2.<'`"HO`!`O10`03-\`X&"@``````/O@P``
  17989. + M`T!C:&MA8F]R=`````````$````>@P```T!?9FEN9%]F9`````````$````D
  17990. + M`````````_$````#`````$]05%,`!``````#\@```^D````<("\`!"!O``@B
  17991. + M+P`,64](YP,T+`$N`"I(3KH``"`'3KH``"9`2H!G)@@K`````V<8(&L`$"](
  17992. + M`!0@!B!K``0B321O`!1.DF`(<`TI0```</],WRS`6$].=2`O``0@;P`((B\`
  17993. + M#$CG`P1,WR#`8)X``````^^#```#0&-H:V%B;W)T`````````0```!J#```#
  17994. + M0%]F:6YD7V9D`````````0```""&```"7V5R<FYO```````!````3```````
  17995. + M``/Q`````P````!/4%13``0`0````_(```/I````@2`O``0@;P`((F\`#"]O
  17996. + M`!``!"]O`!0`")[\`"Q(YS\V)DDJ2"]``$`D;P!<(`IG#DJ29@I*J@`$9@1P
  17997. + M`6`"<`!R`"]``#0D#6<"(A5T`"]!`"PF"V<")!-Z`'X!+T(`,&!2*"\`+,B'
  17998. + M+"\`,,R'3KH``$J$9@1*AF<V(`5.N@``)$!*@&8&</]@``%N2H1G"`@J````
  17999. + M`V<,2H9G%`@J``$``V8,<`TI0```</]@``%*4H7>A[JO`$!MJ"1O`%P@"F<0
  18000. + M(!(B*@`$(&P``$ZZ``!@""!L``!.N@``>@`@!4*O`%!Z`'X!+T``*&`Z*"\`
  18001. + M+,B'+"\`,,R'2H1F!$J&9R(@!4ZZ```B0"!I``@O2``\(`0B!B!I``0B;P`\
  18002. + M3I&!KP!04H7>A[JO`$!MP"@O`%`@!%*`9P9*KP`T9PAP`$ZZ``!@"B`L``"`
  18003. + MA$ZZ```O0`!,?`!X`2XO`#`J+P`H8'`@+P`LP(0O0`!((@?"A"]!`$1*@&8$
  18004. + M2H%G4B`&3KH``")`(&D`#$AO`$0O2``\(&D`!$/O`$PL;P`\3I983R`O`$AF
  18005. + M"B(-9P8B!$:!PY4@+P!$9@HB"V<&(@1&@<.32J\`2&8&2J\`1&<"4H52AMB$
  18006. + MO*\`0&V*("\`3$ZZ``!*A684(&P``$ZZ``!*@&8(2J\`-&<`_N@@!4S?;/S>
  18007. + M_``L3G4``````^^#```#0&-H:V%B;W)T`````````0```'"#```#0%]F:6YD
  18008. + M7V9D`````````P```7X```$$````?H8```)?97)R;F\```````$```"HA@``
  18009. + M`U]?;V1D7W1I;65R``````,```'D````U````,J#```$0%]T:6UE<E]S=&%R
  18010. + M=`````````$```#.@P``!$!?=&EM97)?86)O<G0````````!````V(,```1`
  18011. + M7V-H96-K7W-I9VYA;',``````0```4"&```#7U]O9&1?<VEG`````````0``
  18012. + M`4:#```$0%]W86ET7W-I9VYA;',```````$```%,@P``!$!?:&%N9&QE7W-I
  18013. + M9VYA;',````!```!W(,```1`7W1I;65R7V5X<&ER960``````0```>@`````
  18014. + M```#\0````,`````3U!44P`$`$````/R```#Z0```"!13TCG(R0N+P`@3KH`
  18015. + M`"PO`"@@!TZZ```J0$J`9U@@+P`D5X!G#%.`9PYP%BE```!@1'`,P)5@0"`5
  18016. + M=`S,@B0``D+_\X2&*H)R!,*"=`3`@K"!9QXO00`8(&T`("](`!0@;0`$0^\`
  18017. + M&'``)&\`%$Z28`9P`&`"</],WR3$4$].=0```^^#```#0&-H:V%B;W)T````
  18018. + M`````0````R#```#0%]F:6YD7V9D`````````0```!:&```"7V5R<FYO````
  18019. + M```!````+@````````/Q`````P````!/4%13``0`0````_(```/I````````
  18020. + M`_$````#`````$]05%,`!``````#\@```^H```#>86UI9V$@<W!E8VEF:6,@
  18021. + M97)R;W(```````!5;FMN;W=N(&5R<F]R`&YO="!O=VYE<@!N;R!S=6-H(&9I
  18022. + M;&4@;W(@9&ER96-T;W)Y`&YO('-U8V@@<')O8V5S<P!I;G1E<G)U<'1E9"!S
  18023. + M>7-T96T@8V%L;`!I+V\@97)R;W(`;F\@<W5C:"!D979I8V4@;W(@861D<F5S
  18024. + M<P!A<F=U;65N="!L:7-T('1O;R!L;VYG``!E>&5C(&9O<FUA="!E<G)O<@!B
  18025. + M860@9FEL92!N=6UB97(`;F\@8VAI;&0@<')O8V5S<P``;F\@;6]R92!P<F]C
  18026. + M97-S97,`;F]T(&5N;W5G:"!M96UO<GD`<&5R;6ES<VEO;B!D96YI960`8F%D
  18027. + M(&%D9')E<W,`8FQO8VL@9&5V:6-E(')E<75I<F5D`&UO=6YT(&1E=FEC97,@
  18028. + M8G5S>0``9FEL92!E>&ES=',`8W)O<W,M9&5V:6-E(&QI;FL`;F\@<W5C:"!D
  18029. + M979I8V4``&YO="!A(&1I<F5C=&]R>0!I<R!A(&1I<F5C=&]R>0``:6YV86QI
  18030. + M9"!A<F=U;65N=```9FEL92!T86)L92!O=F5R9FQO=P!T;V\@;6%N>2!O<&5N
  18031. + M(&9I;&5S`&YO="!A('1Y<&5W<FET97(``'1E>'0@9FEL92!B=7-Y``!F:6QE
  18032. + M('1O;R!B:6<``&YO('-P86-E(&QE9G0@;VX@9&5V:6-E`&EL;&5G86P@<V5E
  18033. + M:P``<F5A9"UO;FQY(&9I;&4@<WES=&5M`'1O;R!M86YY(&QI;FMS``!B<F]K
  18034. + M96X@<&EP90!M871H(&%R9W5M96YT`')E<W5L="!T;V\@;&%R9V4``$DO3R!S
  18035. + M=')E86T@96UP='D``&9I;&4@;F%M92!T;V\@;&]N9P``9&ER96-T;W)Y(&YO
  18036. + M="!E;7!T>0!T;V\@;6%N>2!S;V9T(&QI;FMS("AL;V]P/RD`````&@```"@`
  18037. + M```R````3````%P```!T````?@```)@```"P````P@```-(```#D````]@``
  18038. + M`0@```$:```!)@```3P```%0```!7````6X```%^```!C@```9X```&P```!
  18039. + MQ````=@```'J```!^@```@@```(@```"+@```D0```)4```"8````FX```*`
  18040. + M```"D@```J8```*Z````)@`````#[````"@````!```#;@```VH```-F```#
  18041. + M8@```UX```-:```#5@```U(```-.```#2@```T8```-"```#/@```SH```,V
  18042. + M```#,@```RX```,J```#)@```R(```,>```#&@```Q8```,2```##@```PH`
  18043. + M``,&```#`@```OX```+Z```"]@```O(```+N```"Z@```N8```+B```"W@``
  18044. + M`MH```+6````%@````````/R```#Z0```$4@+P`$*4```$J`9P``AG)GD(%G
  18045. + M``""58!G``"`<@F0@6=\4X!G>%.`9W13@&=P4X!G;%.`9VA3@&=H4X!G:')1
  18046. + MD(%G9E.`9V93@&=F4X!G9E.`9V93@&=F58!G9E.`9V93@&=F4X!G9E6`9V93
  18047. + M@&=F4X!G9E.`9V93@&=F4X!G9E6`9V93@&=F4X!G9E.`9V9@:'``8&9P#&!B
  18048. + M<`M@7G`68%IP!V!6<`A@4G`08$YP$6!*<`)@1G`"8$)P%F`^<`=@.G`68#9P
  18049. + M)&`R<!9@+G`68"IP'F`F<!)@(G`E8!YP)F`:<!-@%G`68!)P'&`.<`U@"G`-
  18050. + M8`9P#6`"</].=2\.+&P``$ZN_WQA`/[Z*4```"Q?3G4```/X`````0````$`
  18051. + M``$.`````````^^&```"7U]/4T524@`````!````!H8```)?1$]30F%S90``
  18052. + M``$```$"`````````_$````#`````$]05%,`!`!````#\@```^L````!```#
  18053. + M\@```^D````%3KH``$ZZ``!.N@``<@9.^@````````/O@P```T!C:&MA8F]R
  18054. + M=`````````$````"@P```T!?8VQO<V5?86QL``````$````&@P```D!G971P
  18055. + M:60``````0````J#```"0&MI;&P````````!````$`````````/Q`````P``
  18056. + M``!/4%13``0``````_(```/I````62!O``0@+P`(64](YP$6+@`O2``0(&\`
  18057. + M$"I08&1P#;`M``AF6B`M`*QG!N6`($!@`I'()D@@+0"<L(=G-"`M`*"PAV<L
  18058. + M("T`X+"'9R0@"V<N("L`'+"'9Q@@*P`@L(=G$"`K`#BPAV<(("L`,+"'9@XB
  18059. + M37!@[X@L>``$3J[^O"I52I5FF$S?:(!83TYU("\`!"(O``A(YP$"+@`@`5.`
  18060. + M9PQ3@&<(4X!G!%V`9BPL>``$3J[_?"!L``#0_`&6(`=A`/]((&P``-#\`:0@
  18061. + M!V$`_SI.KO]V<`!@"'`6*4```'#_3-]`@$YU("\`!"(O``A(YP8$+`$J`$ZZ
  18062. + M``!*A6H"1(6ZK```9@Y*AF<&(`9.N@``<`!@2"`%3KH``"I`2H!G!DJM`!1G
  18063. + M"G`#*4```'#_8"P@!F<H(BT`$,%!80#_6"(`<`F\@&84<@$K00`4*T``&'`4
  18064. + M3KH``'``8`(@`4S?(&!.=0`````#[X8```)?4WES0F%S90````(```#$````
  18065. + MMH8```)?97)R;F\```````(```$J````W(,```-`8VAK86)O<G0````````!
  18066. + M````^(8```-?7V]U<E]P:60````````!```!`H,```1`7W-I9U]D:7-P871C
  18067. + M:````````@```50```$.@P```T!?9FEN9%]P:60```````$```$8````````
  18068. + M`_$````#`````$]05%,`!`!````#\@```^D```!#(&\`!$CG``8J2")-+'@`
  18069. + M!$ZN_P0@34S?8`!.^@``("\`!$CG`00N`"IL``A@#B`M``RPAV8$(`U@""I5
  18070. + M2I5F[G``3-\@@$YU2.<@`D'L``A.N@``("P``"(L```D`+."`H(`?___*4(`
  18071. + M!%*"*4(``"\!+P!(;```2&P`%$ZZ``!/[P`0+'@`!$ZN_68I0``X9Q!![``4
  18072. + M<`!.N@``*4``-&8*2&P`#DZZ``!83TS?0`1.=4CG``8@+``X9PH@0"QX``1.
  18073. + MKOU@2JP`-&<X+'@`!$ZN_WQ@#")-<!PL>``$3J[_+B!L`#0L>``$3J[^C"I`
  18074. + M2H!FXB!L`#1.N@``+'@`!$ZN_W9,WV``3G4``````_@````"`````0```*0`
  18075. + M``!V````#`````(```#V````Y````,@```"X````G@```)0```".````>@``
  18076. + M`&X```!H````3@```"H````````#[X,```)`9G)E90````````$````<@P``
  18077. + M`D!.97=,:7-T`````0```%*&```!7U]U<P````$```!6A@``!%]?<W1A<G1U
  18078. + M<%]T:6UE```````!````6H,```-?7W-P<FEN=&8````````!````?H,```-`
  18079. + M0W)E871E4&]R=``````!````FH,```)?7V9A:6P```````$```"H@P```T!$
  18080. + M96QE=&50;W)T``````$```#Z`````````_$````#`````$]05%,`!`!````#
  18081. + M\@```^H````&9&]O<BXE;'@N)6QX``!.;R!M96UO<GD````#\@```^L````/
  18082. + M```#\@```^D````O(&\`!"`O``@B+P`,(F\`$"]O`!0`!"]O`!@`"%E/2.</
  18083. + M-B@O`"PJ+P`H+`$N`"I)+T@`("QX``1.KOUF)D!*@&<P($L@!$ZN_7(D0$J`
  18084. + M9R(@#6<()4T`*"5%`"0@;P`@(`<B2B(&3J[^1$H`9@0@"F`6(`IG!B!*3J[]
  18085. + M;"`+9P8@2TZZ``!P`$S?;/!83TYU(&\`!$CG``8J2"`-9Q@B32QX``1.KOX^
  18086. + M(&T`#DZZ```@34ZN_6Q,WV``3G4```/O@P```T!$96QE=&50;W)T``````(`
  18087. + M``"N````A`````````/Q`````P````!/4%13``0``````_(```/I````%"!O
  18088. + M``0@+P`(2.<A!BX`*DA.N@``(@TL;```3J[_B$J`9R(B`$ZN_Z8@!TZZ```@
  18089. + M!TZZ```D`"(-3J[_1DJ`9P1P`&`&3KH``'#_3-]@A$YU```#[X,```-`8VAK
  18090. + M86)O<G0````````!````$H8```)?1$]30F%S90````$````8@P``!4!?;6%K
  18091. + M95]P<F]T96-T:6]N`````````@```#(````L@P```D!?<V5T97)R`````0``
  18092. + M`$8````````#\0````,`````3U!44P`$`$````/R```#^P``")D1/@!?<V5T
  18093. + M:FUP`'1E>'0`0%]L;VYG:FUP`$!?<V5T:FUP`%]?;&]N9VIM<`!?7W-E=&IM
  18094. + M<`!S<')I;G1F`%],5D]287=$;T9M=`!?06)S17AE8T)A<V4`7U]S<')I;G1F
  18095. + M`'1M<&YA;2YC`%]M:W1E;7``0'1M<&YA;0!?=&UP;F%M`%]?34521T5$`'!O
  18096. + M<&5N+F,`7W=A:71P:60`0&9C;&]S90!`9G)E90!`7W-T87)T7W!R;V-E<W,`
  18097. + M0%]S971E<G(`7V5R<FYO`%]$3U-"87-E`$!F;W!E;@!?7V9I9F]?8F%S90!?
  18098. + M7V9I9F]?;V9F<V5T`$!M86QL;V,`0'!C;&]S90!?<&-L;W-E`$!P;W!E;@!?
  18099. + M<&]P96X`<W1A<G0N8P!`8V]N=F5R=%]O<V5R<@!?7W!R;V-E<W-E<P!?7W-T
  18100. + M86-K7W-I>F4`7U]N97AT7W!I9`!?7V1O;W)?;F%M90!?7W-T87)T=7!?<&]R
  18101. + M=`!?3&EN:V5R1$(`7U]S=&%R=%]P<F]C97-S`%]?8VAI;&1?9&]O<E]N86UE
  18102. + M`%]?8VAI;&1?8V]M;6%N9%]L96X`7U]C:&EL9%]C;VUM86YD`%]?8VAI;&1?
  18103. + M97AI=`!?7V-H:6QD7V5N=')Y`&=E='!I9"YC`%]?;W5R7W!I9`!`8VAK86)O
  18104. + M<G0`0&=E='!I9`!?9V5T<&ED`'-I9VYA;"YC`%]?<VEG7VAA;F1L97)S`$!S
  18105. + M:6=N86P`7W-I9VYA;`!`<VEG=F5C`%]S:6=V96,`<VEG<V5T;6%S:RYC`$!?
  18106. + M<VEG7V1I<W!A=&-H`%]?<VEG7W!E;F1I;F<`7U]S:6=?;6%S:P!`<VEG8FQO
  18107. + M8VL`7W-I9V)L;V-K`$!S:6=S971M87-K`%]S:6=S971M87-K`'-T870N8P!?
  18108. + M<F5A9&QI;FL`0%]F:6)S=&%T`$!?;&9I8G-T870`7U]T96UP7V9N86UE`%]L
  18109. + M87-T7V5N=')Y`$!?9V5T7V-D`%]L87-T7V1I<@!`;'-T870`7VQS=&%T`$!S
  18110. + M=&%T`%]S=&%T`&1I<BYC`$!S965K9&ER`%]S965K9&ER`$!T96QL9&ER`%]T
  18111. + M96QL9&ER`$!R96%D9&ER`%]R96%D9&ER`$!C;&]S961I<@!?8VQO<V5D:7(`
  18112. + M0&]P96YD:7(`7V]P96YD:7(`9&ER7V1A=&$N8P!?7V=E=%]C9`!A8V-E<W,N
  18113. + M8P!`86-C97-S`%]A8V-E<W,`0%]?86-C97-S`%]?7V%C8V5S<P!F<W1A="YC
  18114. + M`%]I;V-T;`!`9G-T870`7V9S=&%T`'-Y;6QI;FLN8P!`<WEM;&EN:P!?<WEM
  18115. + M;&EN:P!M97-S86=E+F,`0&5X:70`7U]0<F]G<F%M3F%M90!?7U="96YC:$US
  18116. + M9P!?7W5S`%]?9F%I;`!?7VUE<W-A9V4`86QL;V-D;W,N8P!?06QL;V-$;W-/
  18117. + M8FIE8W1486=S`'-E=&IM<"YC`$!L;VYG:FUP`%]L;VYG:FUP`$!S971J;7``
  18118. + M9V5T:&]S=&YA;64N8P!?<W1R;F-P>0!?7W-Y<W1E;5]N86UE`$!G971H;W-T
  18119. + M;F%M90!?9V5T:&]S=&YA;64`<&5R<F]R+F,`7U]/4T524@!?<WES7V5R<FQI
  18120. + M<W0`7W-Y<U]N97)R`$!W<FET90!`<&5R<F]R`%]P97)R;W(`<VEG;&ES="YC
  18121. + M`%]S>7-?<VEG;&ES=`!W86ET-"YC`$!?:&%N9&QE7W-I9VYA;',`0%]W86ET
  18122. + M7W-I9VYA;',`0%]F<F5E7V5N=')Y`$!W86ET<&ED`$!W86ET`%]W86ET`$!W
  18123. + M86ET,P!?=V%I=#,`0'=A:70T`%]W86ET-`!P<V5U9&]?8RYC`$!?9G)E95]F
  18124. + M9`!`7V9I;F1?9F0`0%]P<V5U9&]?8VQO<V4`7U]P<V5U9&]?8VQO<V4`<FEN
  18125. + M9&5X+F,`0'-T<G)C:'(`0')I;F1E>`!?<FEN9&5X`&EN9&5X+F,`0'-T<F-H
  18126. + M<@!`:6YD97@`7VEN9&5X`'1I;65R<RYC`$!?9&5V:6-E7V-L;W-E`$!?9&5V
  18127. + M:6-E7V]P96X`0%]T:6UE<E]E>'!I<F5D`%]?=&EM97)?97AP:7)E9`!`7W1I
  18128. + M;65R7W-T87)T`%]?=&EM97)?<W1A<G0`0%]T:6UE<E]S:6<`7U]T:6UE<E]S
  18129. + M:6<`0%]T:6UE<E]A8F]R=`!?7W1I;65R7V%B;W)T`$!?9G)E95]T:6UE<@!?
  18130. + M7V9R965?=&EM97(`0%]A;&QO8U]T:6UE<@!?7V%L;&]C7W1I;65R`&9I9F]F
  18131. + M9"YC`%]?<W1A<G1U<%]T:6UE`$!?8VQE86YU<%]F:69O`%]?8VQE86YU<%]F
  18132. + M:69O`$!?:6YI=%]F:69O`%]?:6YI=%]F:69O`%]?9FEF;U]S:6<`7U]F:69O
  18133. + M7V]K`%]?1FEF;T)A<V4`8VQO<V4N8P!`8VQO<V4`7V-L;W-E`$!?7V-L;W-E
  18134. + M`%]?7V-L;W-E`&9I;&5S+F,`0%]L87-T7V9D`%]?;&%S=%]F9`!?7V9I;F1?
  18135. + M9F0`7U]F<F5E7V9D`$!?86QL;V-?9F0`7U]A;&QO8U]F9`!U=&EM92YC`$!?
  18136. + M9VUT,F%M:6=A`$!T:6UE`$!U=&EM90!?=71I;64`8F-O<'DN8P!`;65M;6]V
  18137. + M90!`8F-O<'D`7V)C;W!Y`&%M:6=A=&EM92YC`%]D87EL:6=H=`!?='IN86UE
  18138. + M`%]?0UA$,S,`0&QO8V%L=&EM90!`7V=E='1I;64`0&9T:6UE`%]F=&EM90!`
  18139. + M9V5T=&EM96]F9&%Y`%]G971T:6UE;V9D87D`=&EM96-O;G9E<G0N8P!?5&EM
  18140. + M97)"87-E`$!?86UI9V$R9VUT`%]?86UI9V$R9VUT`%]?9VUT,F%M:6=A`%]?
  18141. + M9V5T=&EM90!P=V0N8P!`9V5T;&]G:6X`7V=E=&QO9VEN`$!G971P=VYA;0!?
  18142. + M9V5T<'=N86T`0&=E='!W=6ED`%]G971P=W5I9`!?7V%M:6=A7W5S97(`<F5A
  18143. + M9&QI;FLN8P!?<W1R;&5N`$!R96%D;&EN:P!A;&QO8V$N8P!?;6%L;&]C`%]F
  18144. + M<F5E`%]A;&QO8V$`=6YL:6YK+F,`0'5N;&EN:P!?=6YL:6YK`'!I<&4N8P!`
  18145. + M<W1R8V%T`$!.97=,:7-T`$!S;V-K971P86ER`%]S;V-K971P86ER`$!P:7!E
  18146. + M`%]P:7!E`&=R<"YC`$!G971G<FYA;0!?9V5T9W)N86T`0&=E=&=R9VED`%]G
  18147. + M971G<F=I9`!S:6=N86QS+F,`7U]&4$524@!`7U]E>&ET`$!?9FEN9%]P:60`
  18148. + M0%]C;&5A;G5P7W!R;V-E<W-E<P!?7V-H:6QD<F5N7V5X:70`0%]I;FET7W!R
  18149. + M;V-E<W-E<P!`7V-L96%N=7!?<VEG;F%L<P!?7V-L96%N=7!?<VEG;F%L<P!`
  18150. + M7VEN:71?<VEG;F%L<P!?7VEN:71?<VEG;F%L<P!`0VAK7T%B;W)T`%]#:&M?
  18151. + M06)O<G0`7V-H:V%B;W)T`$!#6$9%4E(`7T-81D524@!?7VAA;F1L95]S:6=N
  18152. + M86QS`%]?=V%I=%]S:6=N86QS`$!?8VAE8VM?<VEG;F%L<P!?7V-H96-K7W-I
  18153. + M9VYA;',`7U]S:6=?9&ES<&%T8V@`0&%L87)M`%]A;&%R;0!?;6%I;BYC`$!M
  18154. + M86EN`$!?7V=E=&5N=@!`='%S;W)T`$!S=')N8W!Y`%]?7V-T>7!E`$!?:6YI
  18155. + M=%]U;FEX:6\`7U]?:6]B`%]?6$-%6$E4`%]3>7-"87-E`$!R96%L;&]C`%]?
  18156. + M7VUA:6X`0&UA:V5?96YV:7)O;@!?;6%K95]E;G9I<F]N`%]E;G9I<F]N`%]?
  18157. + M;V1D7W-I9P!?7V]D9%]T:6UE<@!U;6%S:RYC`$!U;6%S:P!?=6UA<VL`<')O
  18158. + M=&5C=&EO;BYC`$!?;6%K95]M;V1E`%]?;6%K95]M;V1E`$!?;6%K95]P<F]T
  18159. + M96-T:6]N`%]?;6%K95]P<F]T96-T:6]N`%]U<V5?86UI9V%?9FQA9W,`9VED
  18160. + M+F,`0&=E=&5G:60`7V=E=&5G:60`0&=E=&=I9`!?9V5T9VED`%]E>&ET+F,`
  18161. + M0%]E>&ET`%]?97AI=`!?7U]E>&ET`$!?8VQO<V5?86QL`%]?8VQO<V5?86QL
  18162. + M`&EO8W1L+F,`0&EO8W1L`&]P96XN8P!`7V%L;&]C7V%M:6=A9F0`0'-T<FEC
  18163. + M;7``7V]P96X`7U]?;W!E;@!C=&EM92YC`%]S<')I;G1F`$!R96%D`$!?='IS
  18164. + M970`7U]T>G-E=`!`;6MT:6UE`%]M:W1I;64`0&-T:6UE`%]C=&EM90!`87-C
  18165. + M=&EM90!?87-C=&EM90!`9VUT:6UE`%]G;71I;64`7VQO8V%L=&EM90!`='IS
  18166. + M971W86QL`%]T>G-E='=A;&P`0'1Z<V5T`%]T>G-E=`!?=&EM97IO;F4`86UI
  18167. + M9V%D;W,N8P!?7VEN:71?=6YI>&EO`%]?86QL;V-?86UI9V%F9`!`7V1O7W1R
  18168. + M=6YC871E`%]?9&]?=')U;F-A=&4`<F5N86UE+F,`0')E;F%M90!?<F5N86UE
  18169. + M`&-H;W=N+F,`0&9C:&]W;@!?9F-H;W=N`$!C:&]W;@!?8VAO=VX`8F-M<"YC
  18170. + M`$!B8VUP`%]B8VUP`&9I8G-T870N8P!?7V9I8G-T870`7U]L9FEB<W1A=`!B
  18171. + M>F5R;RYC`$!B>F5R;P!?8GIE<F\`9G1R=6YC871E+F,`0&9T<G5N8V%T90!?
  18172. + M9G1R=6YC871E`&9C:&UO9"YC`$!F8VAM;V0`7V9C:&UO9`!M:V9I9F\N8P!`
  18173. + M;6MN;V0`7VUK;F]D`$!M:V9I9F\`7VUK9FEF;P!I<V%T='DN8P!`:7-A='1Y
  18174. + M`%]I<V%T='D`<VEG<&%U<V4N8P!`<VEG<&%U<V4`7W-I9W!A=7-E`')M9&ER
  18175. + M+F,`0')M9&ER`%]R;61I<@!S=')F=&EM92YC`$!S=')F=&EM90!?<W1R9G1I
  18176. + M;64`=')U;F-A=&4N8P!`=')U;F-A=&4`7W1R=6YC871E`&5X96,N8P!`97AE
  18177. + M8P!?97AE8P!`965X96,`7V5E>&5C`'5I9"YC`$!G971E=6ED`%]G971E=6ED
  18178. + M`$!G971U:60`7V=E='5I9`!S;&5E<"YC`$!S;&5E<`!?<VQE97``8W)E870N
  18179. + M8P!`8W)E870`7V-R96%T`$!?7V-R96%T`%]?7V-R96%T`'=R:71E+F,`7W=R
  18180. + M:71E`$!?7W=R:71E`%]?7W=R:71E`'1I;64N8P!?=&EM90!G971E;G8N8P!?
  18181. + M7U]G971E;G8`;&EN:RYC`$!L:6YK`%]L:6YK`&UK=&5M<"YC`$!M:W1E;7``
  18182. + M9V5T=V0N8P!`9V5T8W=D`$!G971W9`!?9V5T=V0`8VAM;V0N8P!`8VAM;V0`
  18183. + M7V-H;6]D`&QS965K+F,`0&QS965K`%]L<V5E:P!`7U]L<V5E:P!?7U]L<V5E
  18184. + M:P!R96%D+F,`7W)E860`0%]?<F5A9`!?7U]R96%D`'-E;&5C="YC`$!S96QE
  18185. + M8W0`7W-E;&5C=`!F8VYT;"YC`%]F8VYT;`!E<G)O<E]M<V<N8P!E<G)O<BYC
  18186. + M`%]?<V5T97)R`%]C;VYV97)T7V]S97)R`&%B;W)T+F,`0&MI;&P`0&%B;W)T
  18187. + M`%]A8F]R=`!K:6QL+F,`7VMI;&P`<')O8V5S<V5S+F,`0$1E;&5T95!O<G0`
  18188. + M0$-R96%T95!O<G0`7U]C;&5A;G5P7W!R;V-E<W-E<P!?7VEN:71?<')O8V5S
  18189. + M<V5S`%]?9FEN9%]P:60`7U]F<F5E7V5N=')Y`&1E=FEC97,N8P!?7V1E=FEC
  18190. + M95]C;&]S90!?7V1E=FEC95]O<&5N`&UK9&ER+F,`0&UK9&ER`%]M:V1I<@``
  18191. + M`0````$`"0`)`^D````$``X`%@`!`!@`!``!`"$`#@`!`"L````!`#0`#``!
  18192. + M``D`#`/I``(`/`!)``$`5@````$`8``I``,`"0`*`^D``0!H``(`<0`$``$`
  18193. + M>0````$`@0`$`^H``````($`"0/K``````"*`%0``P`)`&\#Z0`,`)$`F@"B
  18194. + M`*@`N`#"`,D`T0!5`-D`Y0#R``0`^P%>``$!`P%:``$!"P`(``$!$@````$`
  18195. + M@0`%`^H``````($``0/K``````$9`2T``P`)`,4#Z0`+`*(`P@$@`3`!/`%)
  18196. + M`50`\@%@`,D!;P`"`*D`Y@`!`7D`M@`!`($`!@/J``````"!``H#ZP````4!
  18197. + MB0`D``$!FP`@``$!KP`<``$!OP`8``$!S`````$!V@)M``$`"0`#`^D``@'C
  18198. + M`>P``@'W`````0'_`````0('`H8``0`)`",#Z0`#`,("$`'L``0"'P!B``$"
  18199. + M)P!:``$"+P`,``$"-P````$"/P+&``$`"0`5`^D`!`)+`EL![`)I``0"=`!&
  18200. + M``$"?@!"``$"B``$``$"E`````$"H`,"``(`"0":`^D`"0*F`K`![`*Z`,D"
  18201. + MQ@+3`MX"Z``$`O(!U@`!`OD!S@`!`P`!G@`!`P8!E@`!`($`00/K``````,,
  18202. + M`_4``0`)`-`#Z0`)`M,"W@'L`,(!(`#)`/("Z`"B``H#$@,@``$#&P,8``$#
  18203. + M)`,(``$#+0,$``$#-@*0``$#/P*,``$#2`).``$#4@)*``$#7`%>``$#90%:
  18204. + M``$#;@48``(`"0`(`^D``0#)``("WP````$#>0````$`@0`"`^L````"`M,`
  18205. + M!``!`N@````!`X(%,@`!``D`&P/I``,`P@*P`>P`!`.+`&```0.3`%@``0.;
  18206. + M``@``0.E`````0.O!6@``0`)`$$#Z0`&`,(!(`*Z`,D#M@'L``(#O@`(``$#
  18207. + MQ0````$#S`77``$`"0`.`^D``P"X`,D![``"`]8`"``!`]\````!`^@%_P`"
  18208. + M``D`/@/I``4#\0/X`,D$!@02``($%P#B``$$'@#4``$`@0`/`^H`````!"@&
  18209. + MA@`!``D`!P/I``$`R0`!!#,````!!$<&G``!``D`#P/I``0`#0*'`!<":0`$
  18210. + M!%``'@`!!%D`%@`!!&(`!``!``$````!!&H&S``!``D`!P/I``($=P2!``($
  18211. + MCP`(``$$G`````$$J0;I``(`"0`I`^D`!@#)!+($N@3'`,($T``"!-@`!``!
  18212. + M!.`````!`($`"`/J``````3H!U(``@`)```#Z0``````@0#&`^H````!!/("
  18213. + MF``!!/\(1P`!``D`.@/I``4%!@47`,(%)@$P``@%-`#```$`D@"T``$%/0"F
  18214. + M``$%0P"B``$%20"2``$%4`"&``$%5P`0``$%7@````$%90BJ``$`"0`2`^D`
  18215. + M`P5O!7D![``"!80`!``!!9,````!!:((V``!``D``P/I``$%J@`"!;0`"``!
  18216. + M!;P````!!<0(Z@`!``D``P/I``$%RP`"!=0`"``!!=L````!!>((_``"``D`
  18217. + M30/I``(%Z@7Y``P&"`$$``$&&`$```$&*`#(``$&-@"\``$&1`"H``$&4`"D
  18218. + M``$&7`!^``$&:@!Z``$&>`!2``$&A0!.``$&D@````$&H`````$`@0`$`^H`
  18219. + M````!JX);0`#``D`'@/I``($$@:W``0&Q@!4``$&U0!4``$&Y`````$&\```
  18220. + M``$`@0`%`^H````!!OP````!`($`!`/K````!`<'``P``0#E``@``0#9``0`
  18221. + M`0<1`````0<<";H``0`)`!8#Z0`#!6\%>0'L``0')`!0``$'*P!,``$',@`$
  18222. + M``$'.P````$'1`GL``(`"0!B`^D``P"B`,(`\@`(!TP!@``!!U8!@``!!7H!
  18223. + M3``!!V`!2``!!7`!+``!!VH!*``!!W0`,``!!W\````!`($``@/K``````>*
  18224. + M"H```0`)`!H#Z0`%`+@`R0>1!YT![``"!Z0`"``!!ZL````!![(*OP`!``D`
  18225. + M!P/I``$'N0`"!\,`#``!!\H````!!]$*U0`"``D`4@/I``8'W0?G!^X']@@!
  18226. + M`>P`!`@,`0X``0@3`0H``0@:``@``0@H`````0"!``P#Z@`````(-@MU``$`
  18227. + M"0`P`^D``@?N"$0`!@A/`'@``0A;`'0``0>2`"@``0AG`"```0@"``0``0AS
  18228. + M`````0A]"[X``@`)``L#Z0````8(@P`D``$(C0`D``$(EP`6``$(H0`2``$(
  18229. + MJP`$``$(M0````$`@0`)`^H````!"+\`!``!",P+Z@`!``D`*@/I``8`P@$@
  18230. + M"-8`N`#)`>P``@C?``P``0*G`````0CI#$```P`)`"P#Z0`""/$(^0`!"0``
  18231. + M+@`!`($`!P/J``````"!``$#ZP`````)"`R=``$`"0`V`^D`!@$@`>P#M@=+
  18232. + M`,(`R0`""1$`9``!"1D`8``!"2$-`P`"``D"&@/I`!4%>0#9`.4'!P'L!6\'
  18233. + M<P#R`+@`50)+"2<%!@47`,D`P@"B!Q$)+P02!OP`!`DY!]0``0E%!\(``0E1
  18234. + M!S8``0E7!S(``0"!`!4#Z@`````)70_\``(`"0`)`^D````$"6,`%@`!"6T`
  18235. + M$@`!"7<`!``!"8$````!`($`"0/J``````F+$"<``P`)`*D#Z0`-"94$'0F<
  18236. + M":0)KPG$"=,&=P9#!!8&D08G!@<`%`GE`IH``0GW`IH``0H)`EP``0H8`EP`
  18237. + M`0HG`EH``0HR`EH``0'M`E(``0H]`E(``0I'`D0``0I/`D```04'`>H``0I7
  18238. + M`>8``048`=```0IH`<P``0IW`;8``0J'`;(``0),`0P``0J7`0@``0JF`"@`
  18239. + M`0JM`"0``0"!``H#Z@``````@0!$`^L````#`EL!"``!`FD!!``!`A``!``!
  18240. + M"K0170`#``D"'0/I`!4#\0J["+\*P0K+"M,*W00&"N4`R0H(!N,&0P:1"O0*
  18241. + M^@L$`*(+#`#R!!8``PL6`WH``0L>`'@``0LL`'@``0"!`"P#Z@``````@0`(
  18242. + M`^L````(!($`'``!"SH`&``!"$0`%``!`3P`$``!!K<`#``!"T,`"``!"TT`
  18243. + M!``!!!(````!"UD4>P`!``D`!`/I`````@MA``0``0MH`````0MO%(<``@`)
  18244. + M`#X#Z0````0+?`!^``$+B`!Z``$+E``$``$+I@````$`@0`!`^L````!"[@`
  18245. + M```!"\D4U@`!``D``@/I````!`O/``0``0O8``0``0OA`````0OI`````0OQ
  18246. + M%.```0`)`!4#Z0`'"OH&=PM-">0&Q0<J!TL`!@OY`$P``0P``$@``0F=`"8`
  18247. + M`0P'`"(``0P/`````0P;`````0PG%2H``0`)`!,#Z0`"!7D![``"#"\`#``!
  18248. + M`[<````!##854P`"``D`F`/I``H,/`"X`,(+DP2R`2``R0Q,`>P$$@`"#%8"
  18249. + M2``!#%P````!`($``@/J``````QD%D0``P`)!6@#Z0`*#&L*P0K3!^X*W0<C
  18250. + M#'0,50DG!<L`$`Q[%9(``0R#%9(``0R+%80``0R3%8```0R;$/0``0RB$/``
  18251. + M`0RI$)0``0RR$)```0R[#I@``0S##I0``0?W#C```0S+#BP``0S6#38``0SA
  18252. + M#38``0SL#,8``0SS#,8``0"!`$@#Z@````,'W0`8``$,^@`4``$'YP`,``$`
  18253. + M@03V`^L`````#00<K``"``D!G`/I``L$%@=S`/(![`"B`,(!(`4&"G8`N`#)
  18254. + M``8*Y@7L``$-#P7,``$,/056``$-'05(``$-+0+8``$-.P+0``$`@0`(`^H`
  18255. + M````#4D>O``!``D`)P/I``0`P@$@`,D![``"#5(`"``!#5H````!#6(?!``!
  18256. + M``D`#@/I````!`UJ`"H``0UR`!P``0UZ``P``0V!`````0V('QH``0`)`!`#
  18257. + MZ0````(-CP`,``$-E0````$-FQ\R``(`"0!U`^D`!@#"`2``R0M[`J8(3@`$
  18258. + M`K$!+@`!#:4!)@`!`KL`&``!#:\````!`($`0`/K`````0+&`````0VZ']P`
  18259. + M`0`)``4#Z0````(-P@`(``$-R0````$-T!_I``$`"0`,`^D``@.V`>P``@W<
  18260. + M``@``0WG`````0WR(`H``0`)``T#Z0`#`[8![`N3``(-^P`(``$.`P````$.
  18261. + M"R`T``$`"0`0`^D``0#"``0.%``L``$.&P`@``$.(@`,``$.*@````$.,B!4
  18262. + M``$`"0`-`^D``@.V`>P``@X[``0``0Y#`````0Y+('8``0`)``\#Z0`%`,(%
  18263. + M!@47"G8"AP`"#E8`!``!#F`````!#FH@L``!``D`*`/I``0!(`#"`+@`R0`"
  18264. + M#G(`!``!#GD````!#H`@^0`#``D!EP/I``(,B@?N``(.BP`2``$.E0````$`
  18265. + M@0!Y`^H``````($`"0/K``````Z?(WP``0`)`!8#Z0`%`,(!(`TL`>P`R0`"
  18266. + M#JH`"``!#K0````!#KXCN@`!``D`U0/I``H`P@$@`*(`J`L,!!(%@P.V`,D`
  18267. + M\@`$#L4#.``!#LL#'``!#M$`(@`!#M@````!#M\DW0`!``D``@/I````!`[E
  18268. + M``0``0[N``0``0[W`````0[_`````0\').<``0`)``X#Z0`'!@<%!@47"T,&
  18269. + M)PM-`>P``@\/``0``0\6`````0\=)2X``0`)``\#Z0`"#%4![``$#R4`,@`!
  18270. + M#RP`*@`!#S,`"``!#SP````!#T4E4@`!``D`(P/I``,`P@5Y`>P`!`31`((`
  18271. + M`0]-`'8``0]4``P``0]=`````0]F)9```0`)``P#Z0`!"`$``@>>``0``0]M
  18272. + M`````0]S):P``0`)`!T#Z0`#`/(`R0'L``(*P@`$``$/?`````$/AB7C``$`
  18273. + M"0`3`^D``P"X`>P`R0`"#XT`"``!#Y,````!#YDF$``"``D`)`/I``0#F@!5
  18274. + M!!(![``"#Z(`!``!`&D````!`($``@/J``````^J)F```0`)``8#Z0`"#[$!
  18275. + M[``"#[H`!``!#\$````!#\@F>P`!``D`#P/I``0`N`#)"Y,![``"#]``"``!
  18276. + M#]<````!#]XFK``!``D`'`/I``(%>0'L``0/Y@!<``$/[0!.``$/]``.``$/
  18277. + M_0````$0!B;>``$`"0`<`^D``P#"!7D![``$#'4`9``!$`T`6``!$!,`#``!
  18278. + M$!L````!$",G%0`!``D`@0/I``L&!P4&!1<+0PIV!EL&)PM-`,(%>0'L``(0
  18279. + M+``8``$0-`````$0/"?K``$`"0`@`^D``P#"!7D![``!$$0````!$$LH)@`"
  18280. + M``D```/I``````"!`-X#Z@````($QP-R``$$N@+6``$05RD[``(`"0!%`^D`
  18281. + M`@#)!+(`!`"Y`/X``1!?`/X``0$A``0``1!H`````0"!``$#ZP````$`P@``
  18282. + M``$0=RF<``$`"0`%`^D`!!!^`?8,#@'L``(0A0````$0C`````$0DRG!``$`
  18283. + M"0!9`^D`!@FD`DL!XP'L`,(+!``"$'\`[@`!$)H`Y@`!$*`J2@`#``D`0P/I
  18284. + M``@0JP06$+<`50:W!!()+P"B``@)L`"R``$0Q`"R``$)U`!(``$0V`!(``$)
  18285. + MI0`B``$0Z0`>``$%)P`$``$0]`````$`@0`&`^H``````($`#P/K````!@%@
  18286. + M`#@``0G$`#0``0%4`!0``0$P``@``0'C``0``0%)`````1$!*N,``0`)`"\#
  18287. + MZ0`!$*L`!`7K`)0``1$+`)```07Z`!P``1$:`````1$H*R,``0`)`!0#Z0`$
  18288. + 6`+@+DP#)`>P``A$P``@``1$W`````1P`
  18289. + `
  18290. + end
  18291. diff -rc --new-file emacs-18.59/amiga/unix/src/unlink.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/unlink.c
  18292. *** emacs-18.59/amiga/unix/src/unlink.c    Thu Jan  1 00:00:00 1970
  18293. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/unlink.c    Wed Dec  2 20:19:44 1992
  18294. ***************
  18295. *** 0 ****
  18296. --- 1,40 ----
  18297. + #include "amiga.h"
  18298. + #include "files.h"
  18299. + #include <amiga/ioctl.h>
  18300. + 
  18301. + static int delete_open_file(char *name)
  18302. + {
  18303. +   BPTR nlock = Lock(name, SHARED_LOCK);
  18304. + 
  18305. +   if (nlock)
  18306. +     {
  18307. +       int err = errno, i;
  18308. + 
  18309. +       i = _last_fd();
  18310. +       while (--i >= 0)
  18311. +     if (ioctl(i, _AMIGA_DELETE_IF_ME, &nlock) == 0)
  18312. +       {
  18313. +         errno = err;
  18314. +         return 0;
  18315. +       } 
  18316. +       UnLock(nlock);
  18317. +    }
  18318. +   return -1;
  18319. + }
  18320. + 
  18321. + int unlink(const char *file)
  18322. + {
  18323. +   long err;
  18324. + 
  18325. +   chkabort();
  18326. +   if (DeleteFile(file)) return 0;
  18327. +   err = IoErr();
  18328. +   if (err == ERROR_DELETE_PROTECTED)
  18329. +     {
  18330. +       if (SetProtection(file, 0) && DeleteFile(file)) return 0;
  18331. +       err = IoErr();
  18332. +     }
  18333. +   if (err == ERROR_OBJECT_IN_USE && delete_open_file(file) == 0) return 0;
  18334. +   errno = convert_oserr(err);
  18335. +   return -1;
  18336. + }
  18337. diff -rc --new-file emacs-18.59/amiga/unix/src/utime.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/utime.c
  18338. *** emacs-18.59/amiga/unix/src/utime.c    Thu Jan  1 00:00:00 1970
  18339. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/utime.c    Mon Aug 24 23:02:00 1992
  18340. ***************
  18341. *** 0 ****
  18342. --- 1,22 ----
  18343. + #include "amiga.h"
  18344. + #include "timeconvert.h"
  18345. + #include <stdlib.h>
  18346. + #include <time.h>
  18347. + #include <utime.h>
  18348. + 
  18349. + int utime(char *file, struct utimbuf *times)
  18350. + {
  18351. +   struct DateStamp date;
  18352. +   time_t mtime;
  18353. + 
  18354. +   chkabort();
  18355. +   if (times) mtime = times->modtime;
  18356. +   else mtime = time(0);
  18357. + 
  18358. +   if (mtime == -1) return 0;
  18359. + 
  18360. +   _gmt2amiga(mtime, &date);
  18361. + 
  18362. +   if (SetFileDate(file, &date)) return 0;
  18363. +   ERROR;
  18364. + }
  18365. diff -rc --new-file emacs-18.59/amiga/unix/src/wait4.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/wait4.c
  18366. *** emacs-18.59/amiga/unix/src/wait4.c    Thu Jan  1 00:00:00 1970
  18367. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/wait4.c    Sat Aug 15 13:45:34 1992
  18368. ***************
  18369. *** 0 ****
  18370. --- 1,57 ----
  18371. + #include "amiga.h"
  18372. + #include "signals.h"
  18373. + #include "processes.h"
  18374. + #include <sys/wait.h>
  18375. + 
  18376. + int wait4(int pid, int *statusp, int options, struct rusage *rusage)
  18377. + {
  18378. +   struct process *p;
  18379. + 
  18380. +   do {
  18381. +     int seen = FALSE;
  18382. + 
  18383. +     scan_processes(p)
  18384. +       if (pid == 0 || p->pid == pid)
  18385. +     {
  18386. +       seen = TRUE;
  18387. + 
  18388. +       if (p->status == exited)
  18389. +         {
  18390. +           int pid = p->pid;
  18391. + 
  18392. +           if (statusp) *statusp = p->rc;
  18393. +           _free_entry(p);
  18394. + 
  18395. +           return pid;
  18396. +         }
  18397. +     }
  18398. +     if (options & WNOHANG) return 0;
  18399. +     if (!seen)
  18400. +       {
  18401. +     errno = ECHILD;
  18402. +     return -1;
  18403. +       }
  18404. +     _handle_signals(_wait_signals(0));
  18405. +   } while (1);
  18406. + }
  18407. + 
  18408. + int wait3(int *statusp, int options, struct rusage *rusage)
  18409. + {
  18410. +   return wait4(0, statusp, options, rusage);
  18411. + }
  18412. + 
  18413. + int wait(int *statusp)
  18414. + {
  18415. +   return wait4(0, statusp, 0, NULL);
  18416. + }
  18417. + 
  18418. + int waitpid(int pid, int *statusp, int options)
  18419. + {
  18420. +   /* We have no process groups, so : 
  18421. +        Our process group encompasses all our children
  18422. +        Each child is a process group unto itself
  18423. +      This is somewhat contradictory ... Should this be changed ? */
  18424. +   if (pid == -1) pid = 0;
  18425. +   if (pid < 0) pid = -pid;
  18426. +   return wait4(pid, statusp, options, NULL);
  18427. + }
  18428. diff -rc --new-file emacs-18.59/amiga/unix/src/write.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/write.c
  18429. *** emacs-18.59/amiga/unix/src/write.c    Thu Jan  1 00:00:00 1970
  18430. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/write.c    Fri Dec  4 22:15:36 1992
  18431. ***************
  18432. *** 0 ****
  18433. --- 1,29 ----
  18434. + #include "amiga.h"
  18435. + #include "files.h"
  18436. + #include <fcntl.h>
  18437. + #include <unistd.h>
  18438. + 
  18439. + #undef write
  18440. + 
  18441. + int __write(int fd, const void *buffer, unsigned int length)
  18442. + {
  18443. +   struct fileinfo *fi;
  18444. + 
  18445. +   chkabort();
  18446. +   if (fi = _find_fd(fd))
  18447. +     {
  18448. +       if (fi->flags & FI_WRITE)
  18449. +     {
  18450. +       if (fi->flags & O_APPEND) fi->lseek(fi->userinfo, 0, SEEK_END);
  18451. +       return fi->write(fi->userinfo, buffer, length);
  18452. +     }
  18453. +       errno = EACCES;
  18454. +     }
  18455. +   return -1;
  18456. + }
  18457. + 
  18458. + int write(int fd, const void *buffer, unsigned int length)
  18459. + {
  18460. +   return __write(fd, buffer, length);
  18461. + }
  18462. + 
  18463. diff -rc --new-file emacs-18.59/amiga/unix/src/zoneinfo/datfiles/africa /gnu/src/amiga/emacs-18.59/amiga/unix/src/zoneinfo/datfiles/africa
  18464. *** emacs-18.59/amiga/unix/src/zoneinfo/datfiles/africa    Thu Jan  1 00:00:00 1970
  18465. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/zoneinfo/datfiles/africa    Sat Aug  1 14:24:06 1992
  18466. ***************
  18467. *** 0 ****
  18468. --- 1,43 ----
  18469. + # @(#)africa    4.3
  18470. + 
  18471. + ###############################################################################
  18472. + 
  18473. + # Egypt
  18474. + 
  18475. + # From Bob Devine (January 28, 1988):
  18476. + # Egypt: DST from first day of May to first of October (ending may
  18477. + # also be on Sept 30th not 31st -- you might want to ask one of the
  18478. + # soc.* groups, you might hit someone who could ask an embassy).
  18479. + # DST since 1960 except for 1981-82.
  18480. + 
  18481. + # From U. S. Naval Observatory (January 19, 1989):
  18482. + # EGYPT               2 H  AHEAD OF UTC
  18483. + # EGYPT               3 H  AHEAD OF UTC  MAY 17 - SEP 30 (AFTER
  18484. + # EGYPT                                  RAMADAN)
  18485. + 
  18486. + # Rule    NAME    FROM    TO    TYPE    IN    ON    AT    SAVE    LETTER/S
  18487. + Rule    Egypt    1960    max    -    May    1    2:00    1:00    " DST"
  18488. + Rule    Egypt    1960    max    -    Oct    1    2:00    0    -
  18489. + 
  18490. + # Zone    NAME    GMTOFF    RULES/SAVE    FORMAT    [UNTIL]
  18491. + Zone    Egypt    2:00    Egypt        EET%s    1981
  18492. +         2:00    -        EET    1983
  18493. +         2:00    Egypt        EET%s
  18494. + 
  18495. + ###############################################################################
  18496. + 
  18497. + # Libya
  18498. + 
  18499. + # From Bob Devine (January 28 1988):
  18500. + # Libya: Since 1982 April 1st to September 30th (?)
  18501. + 
  18502. + # From U. S. Naval Observatory (January 19, 1989):
  18503. + # LIBYAN ARAB         1 H  AHEAD OF UTC  JAMAHIRIYA/LIBYA
  18504. + # LIBYAN ARAB         2 H  AHEAD OF UTC  APR 1 - SEP 30 JAMAHIRIYA/LIBYA
  18505. + 
  18506. + # Rule    NAME    FROM    TO    TYPE    IN    ON    AT    SAVE    LETTER/S
  18507. + Rule    Libya    1982    max    -    Apr    1    2:00    1:00    " DST"
  18508. + Rule    Libya    1982    max    -    Sep    30    2:00    0    -
  18509. + 
  18510. + # Zone    NAME    GMTOFF    RULES/SAVE    FORMAT    [UNTIL]
  18511. + Zone    Libya    2:00    Libya        EET%s
  18512. diff -rc --new-file emacs-18.59/amiga/unix/src/zoneinfo/datfiles/antarctica /gnu/src/amiga/emacs-18.59/amiga/unix/src/zoneinfo/datfiles/antarctica
  18513. *** emacs-18.59/amiga/unix/src/zoneinfo/datfiles/antarctica    Thu Jan  1 00:00:00 1970
  18514. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/zoneinfo/datfiles/antarctica    Thu Jul 30 00:43:20 1992
  18515. ***************
  18516. *** 0 ****
  18517. --- 1,4 ----
  18518. + # @(#)antarctica    4.1
  18519. + 
  18520. + # From Arthur David Olson (February 13, 1988):
  18521. + # No data available.
  18522. diff -rc --new-file emacs-18.59/amiga/unix/src/zoneinfo/datfiles/asia /gnu/src/amiga/emacs-18.59/amiga/unix/src/zoneinfo/datfiles/asia
  18523. *** emacs-18.59/amiga/unix/src/zoneinfo/datfiles/asia    Thu Jan  1 00:00:00 1970
  18524. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/zoneinfo/datfiles/asia    Sat Aug  1 14:24:28 1992
  18525. ***************
  18526. *** 0 ****
  18527. --- 1,262 ----
  18528. + # @(#)asia    7.1
  18529. + 
  18530. + # From Guy Harris:
  18531. + # Incorporates data for Singapore from Robert Elz' asia 1.1, as well as
  18532. + # additional information from Tom Yap, Sun Microsystems Intercontinental
  18533. + # Technical Support (including a page from the Official Airline Guide -
  18534. + # Worldwide Edition).  The names for time zones are guesses.
  18535. + 
  18536. + ###############################################################################
  18537. + 
  18538. + # People's Republic of China
  18539. + 
  18540. + # From Guy Harris:
  18541. + # People's Republic of China.  Yes, they really have only one time zone.
  18542. + 
  18543. + # From Bob Devine (January 28, 1988):
  18544. + # No they don't.  See TIME mag, February 17, 1986 p.52.  Even though
  18545. + # China is across 4 physical time zones, before Feb 1, 1986 only the
  18546. + # Peking (Bejing) time zone was recognized.  Since that date, China
  18547. + # has two of 'em -- Peking's and Urumqi (named after the capital of
  18548. + # the Xinjiang Uighur Autonomous Region).  I don't know about DST for it.
  18549. + #
  18550. + # . . .I just deleted the DST table and this editor makes it too
  18551. + # painful to suck in another copy..  So, here is what I have for
  18552. + # DST start/end dates for Peking's time zone (info from AP):
  18553. + #
  18554. + #     1986 May 4 - Sept 14
  18555. + #     1987 mid-April - ??
  18556. + 
  18557. + # From U. S. Naval Observatory (January 19, 1989):
  18558. + # CHINA               8 H  AHEAD OF UTC  ALL OF CHINA, INCL TAIWAN
  18559. + # CHINA               9 H  AHEAD OF UTC  APR 17 - SEP 10
  18560. + 
  18561. + # Rule    NAME    FROM    TO    TYPE    IN    ON    AT    SAVE    LETTER/S
  18562. + Rule    PRC    1970    max    -    Apr    Sun<=14    2:00    1:00    D
  18563. + Rule    PRC    1970    max    -    Sep    Sun<=14    3:00    0    S
  18564. + 
  18565. + # Zone    NAME        GMTOFF    RULES/SAVE    FORMAT    [UNTIL]
  18566. + Zone    PRC        8:00    PRC        C%sT
  18567. + 
  18568. + ###############################################################################
  18569. + 
  18570. + # Republic of China
  18571. + 
  18572. + # From Guy Harris
  18573. + 
  18574. + # Zone    NAME        GMTOFF    RULES/SAVE    FORMAT    [UNTIL]
  18575. + Zone    ROC        8:00    -        CST
  18576. + 
  18577. + ###############################################################################
  18578. + 
  18579. + # Hongkong
  18580. + 
  18581. + # From Guy Harris
  18582. + 
  18583. + # Zone    NAME        GMTOFF    RULES/SAVE    FORMAT    [UNTIL]
  18584. + Zone    Hongkong    8:00    -        HKT
  18585. + 
  18586. + ###############################################################################
  18587. + 
  18588. + # Iran
  18589. + 
  18590. + # From Bob Devine (January 28, 1988):
  18591. + # Iran: Last Sunday in March to third (?) Sunday in
  18592. + # September.  Since the revolution, the official calendar is Monarchic
  18593. + # calendar; I have no idea what the correspondence between dates are.
  18594. + 
  18595. + # From U. S. Naval Observatory (January 19, 1989):
  18596. + # IRAN                3.5H AHEAD OF UTC
  18597. + 
  18598. + # Rule    NAME    FROM    TO    TYPE    IN    ON    AT    SAVE    LETTER/S
  18599. + Rule    Iran    1988    max    -    Mar    lastSun    2:00    1:00    D
  18600. + Rule    Iran    1988    max    -    Sep    Sun>=15    2:00    0    S
  18601. + 
  18602. + # Zone    NAME        GMTOFF    RULES/SAVE    FORMAT    [UNTIL]
  18603. + Zone    Iran        3:30    Iran        I%sT
  18604. + 
  18605. + ###############################################################################
  18606. + 
  18607. + # Israel
  18608. + 
  18609. + # From U. S. Naval Observatory (January 19, 1989):
  18610. + # ISRAEL              2 H  AHEAD OF UTC
  18611. + # ISRAEL              3 H  AHEAD OF UTC  APR 10 - SEP 3
  18612. + 
  18613. + # From Ephraim Silverberg (April 18, 1989):
  18614. + 
  18615. + # Prior to 1989, the rules concerning Daylight Savings Time changed every
  18616. + # year; as information, regarding exact times and dates during this period,
  18617. + # is not readily available at the present time, the rules commence starting
  18618. + # with the year 1989.
  18619. + 
  18620. + # From 1989 onwards the rules are as follows:
  18621. + #
  18622. + # 1. Daylight Savings Time commences midnight of the first Saturday night
  18623. + #    following the seven-day festival of Pesach (Passover).  The transition
  18624. + #    is from midnight Israel Standard Time to 1 a.m. Israel Daylight Savings
  18625. + #    time.  As the Pesach festival is dependent on the Lunar calendar (the
  18626. + #    first day is always on the 15th day of the month of Nisan), the rule
  18627. + #    changes every year on the Gregorian calendar.
  18628. + #
  18629. + # 2. Standard Time is reinstated on the Saturday night whereupon Jews
  18630. + #    following the Ashkenazi (European) rite begin to recite the Selichot
  18631. + #    (forgiveness) prayers prior to the Jewish Lunar New Year.  The transition
  18632. + #    is from midnight Israel Daylight Savings time to 11 p.m. Israel Standard
  18633. + #    Time.  The law (according to the Ashkenazi custom) concerning the
  18634. + #    commencement of the Selichot prayers is described in chapter 128, section
  18635. + #    5 of the "Code of Jewish Law," by Rabbi Shlomo Ganzfried (translated by
  18636. + #    Hyman E. Goldin):
  18637. + #
  18638. + #       Beginning with the Sunday [**] before Rosh Hashanah [***],
  18639. + #       we rise early for the service of Selichot (supplications for
  18640. + #       forgiveness).  If Rosh Hashanah occurs on Monday or Tuesday, we
  18641. + #       begin saying the Selichot from the Sunday of the preceding week.
  18642. + #
  18643. + #    This, too, varies from year to year on the Gregorian calendar and, thus,
  18644. + #    two explicit timezone rules are required for each Gregorian year.
  18645. + #
  18646. + #    [**] actually Saturday night as the Jewish day commences at nightfall.
  18647. + #    [***] the Jewish Lunar New Year.
  18648. + 
  18649. + # Rule    NAME    FROM    TO    TYPE    IN    ON    AT    SAVE    LETTER/S
  18650. + Rule    Zion    1989    only    -    Apr    30    0:00    1:00    D
  18651. + Rule    Zion    1989    only    -    Sep    24    0:00    0:00    S
  18652. + Rule    Zion    1990    only    -    Apr    22    0:00    1:00    D
  18653. + Rule    Zion    1990    only    -    Sep    16    0:00    0:00    S
  18654. + Rule    Zion    1991    only    -    Apr     7    0:00    1:00    D
  18655. + Rule    Zion    1991    only    -    Sep     1    0:00    0:00    S
  18656. + Rule    Zion    1992    only    -    Apr    26    0:00    1:00    D
  18657. + Rule    Zion    1992    only    -    Sep    20    0:00    0:00    S
  18658. + Rule    Zion    1993    only    -    Apr    18    0:00    1:00    D
  18659. + Rule    Zion    1993    only    -    Sep    12    0:00    0:00    S
  18660. + Rule    Zion    1994    only    -    Apr     3    0:00    1:00    D
  18661. + Rule    Zion    1994    only    -    Aug    28    0:00    0:00    S
  18662. + Rule    Zion    1995    only    -    Apr    23    0:00    1:00    D
  18663. + Rule    Zion    1995    only    -    Sep    17    0:00    0:00    S
  18664. + Rule    Zion    1996    only    -    Apr    14    0:00    1:00    D
  18665. + Rule    Zion    1996    only    -    Sep     8    0:00    0:00    S
  18666. + Rule    Zion    1997    only    -    May     4    0:00    1:00    D
  18667. + Rule    Zion    1997    only    -    Sep    28    0:00    0:00    S
  18668. + Rule    Zion    1998    only    -    Apr    19    0:00    1:00    D
  18669. + Rule    Zion    1998    only    -    Sep    13    0:00    0:00    S
  18670. + Rule    Zion    1999    only    -    Apr    11    0:00    1:00    D
  18671. + Rule    Zion    1999    only    -    Sep     5    0:00    0:00    S
  18672. + Rule    Zion    2000    only    -    Apr    30    0:00    1:00    D
  18673. + Rule    Zion    2000    only    -    Sep    24    0:00    0:00    S
  18674. + Rule    Zion    2001    only    -    Apr    15    0:00    1:00    D
  18675. + Rule    Zion    2001    only    -    Sep     9    0:00    0:00    S
  18676. + Rule    Zion    2002    only    -    Apr     7    0:00    1:00    D
  18677. + Rule    Zion    2002    only    -    Sep     1    0:00    0:00    S
  18678. + Rule    Zion    2003    only    -    Apr    27    0:00    1:00    D
  18679. + Rule    Zion    2003    only    -    Sep    21    0:00    0:00    S
  18680. + Rule    Zion    2004    only    -    Apr    18    0:00    1:00    D
  18681. + Rule    Zion    2004    only    -    Sep    12    0:00    0:00    S
  18682. + Rule    Zion    2005    only    -    May     1    0:00    1:00    D
  18683. + Rule    Zion    2005    only    -    Sep    25    0:00    0:00    S
  18684. + Rule    Zion    2006    only    -    Apr    23    0:00    1:00    D
  18685. + Rule    Zion    2006    only    -    Sep    17    0:00    0:00    S
  18686. + Rule    Zion    2007    only    -    Apr    15    0:00    1:00    D
  18687. + Rule    Zion    2007    only    -    Sep     9    0:00    0:00    S
  18688. + Rule    Zion    2008    only    -    Apr    27    0:00    1:00    D
  18689. + Rule    Zion    2008    only    -    Sep    21    0:00    0:00    S
  18690. + Rule    Zion    2009    only    -    Apr    19    0:00    1:00    D
  18691. + Rule    Zion    2009    only    -    Sep    13    0:00    0:00    S
  18692. + 
  18693. + # Zone    NAME        GMTOFF    RULES/SAVE    FORMAT    [UNTIL]
  18694. + Zone    Israel        2:00    Zion        I%sT
  18695. + 
  18696. + # The following is a chart of the day of the week and Gregorian date of
  18697. + # the first day of Pesach and the first day of Rosh Hashanah for the years
  18698. + # 1989 through 2009 inclusive.
  18699. + #
  18700. + # First Day of Passover
  18701. + # ---------------------
  18702. + # Gregorian Year    Day of Week    Month        Day
  18703. + # --------------    -----------    -----        ---
  18704. + #    1989        Thursday    April        20
  18705. + #    1990        Tuesday        April        10
  18706. + #    1991        Saturday    March        30
  18707. + #    1992        Saturday    April        18
  18708. + #    1993        Tuesday        April         6
  18709. + #    1994        Sunday        March        27
  18710. + #    1995        Saturday    April        15
  18711. + #    1996        Thursday    April         4
  18712. + #    1997        Tuesday        April        22
  18713. + #    1998        Saturday    April        11
  18714. + #    1999        Thursday    April         1
  18715. + #    2000        Thursday    April        20
  18716. + #    2001        Sunday        April         8
  18717. + #    2002        Thursday    March        28
  18718. + #    2003        Thursday    April        17
  18719. + #    2004        Tuesday        April         6
  18720. + #    2005        Sunday        April        24
  18721. + #    2006        Thursday    April        13
  18722. + #    2007        Tuesday        April         3
  18723. + #    2008        Sunday        April        20
  18724. + #    2009        Thursday    April         9
  18725. + #
  18726. + # First Day of Rosh Hashanah
  18727. + # --------------------------
  18728. + # Gregorian Year    Day of Week    Month        Day
  18729. + # --------------    -----------    -----        ---
  18730. + #    1989        Saturday    September    30
  18731. + #    1990        Thursday    September    20
  18732. + #    1991        Monday        September     9
  18733. + #    1992        Monday        September    28
  18734. + #    1993        Thursday    September    16
  18735. + #    1994        Tuesday        September     6
  18736. + #    1995        Monday        September    25
  18737. + #    1996        Saturday    September    14
  18738. + #    1997        Thursday    October         2
  18739. + #    1998        Monday        September    21
  18740. + #    1999        Saturday    September    11
  18741. + #    2000        Saturday    September    30
  18742. + #    2001        Tuesday        September    18
  18743. + #    2002        Saturday    September     7
  18744. + #    2003        Saturday    September    27
  18745. + #    2004        Thursday    September    16
  18746. + #    2005        Tuesday        October         4
  18747. + #    2006        Saturday    September    23
  18748. + #    2007        Thursday    September    13
  18749. + #    2008        Tuesday        September    30
  18750. + #    2009        Saturday    September    19
  18751. + 
  18752. + ###############################################################################
  18753. + 
  18754. + # Japan
  18755. + 
  18756. + # From Guy Harris
  18757. + 
  18758. + # Zone    NAME        GMTOFF    RULES/SAVE    FORMAT    [UNTIL]
  18759. + Zone    Japan        9:00    -        JST
  18760. + 
  18761. + ###############################################################################
  18762. + 
  18763. + # Republic of Korea
  18764. + 
  18765. + # From Guy Harris:
  18766. + # According to someone at the Korean Times in San Francisco,
  18767. + # Daylight Savings Time was not observed until 1987.  He did not know
  18768. + # at what time of day DST starts or ends.
  18769. + 
  18770. + # Rule    NAME    FROM    TO    TYPE    IN    ON    AT    SAVE    LETTER/S
  18771. + Rule    ROK    1987    max    -    May    Sun<=14    2:00    1:00    D
  18772. + Rule    ROK    1987    max    -    Oct    Sun<=14    3:00    0    S
  18773. + 
  18774. + # Zone    NAME        GMTOFF    RULES/SAVE    FORMAT    [UNTIL]
  18775. + Zone    ROK        9:00    ROK        K%sT
  18776. + 
  18777. + ###############################################################################
  18778. + 
  18779. + # Lebanon
  18780. + 
  18781. + # From Bob Devine (January 28, 1988):
  18782. + # Lebanon: They do have DST but I don't know the dates.
  18783. + 
  18784. + ###############################################################################
  18785. + 
  18786. + # Singapore
  18787. + 
  18788. + # Zone    NAME        GMTOFF    RULES/SAVE    FORMAT    [UNTIL]
  18789. + Zone    Singapore    8:00    -        SST
  18790. diff -rc --new-file emacs-18.59/amiga/unix/src/zoneinfo/datfiles/australasia /gnu/src/amiga/emacs-18.59/amiga/unix/src/zoneinfo/datfiles/australasia
  18791. *** emacs-18.59/amiga/unix/src/zoneinfo/datfiles/australasia    Thu Jan  1 00:00:00 1970
  18792. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/zoneinfo/datfiles/australasia    Sat Aug  1 14:24:04 1992
  18793. ***************
  18794. *** 0 ****
  18795. --- 1,113 ----
  18796. + # @(#)australasia    4.4
  18797. + 
  18798. + # Incorporates updates for Australia from Robert Elz' australia 1.1
  18799. + # and further updates from the Australian consulate.
  18800. + 
  18801. + ###############################################################################
  18802. + 
  18803. + # Australia
  18804. + 
  18805. + # Australian Data (for states with DST), standard rules
  18806. + # Includes shift in 1987 to follow Vic/NSW rules for ending DST,
  18807. + # and shift in 1986 to start DST earlier.
  18808. + 
  18809. + # Rule    NAME    FROM    TO    TYPE    IN    ON    AT    SAVE    LETTER/S
  18810. + Rule    Oz    1971    1985    -    Oct    lastSun    2:00    1:00    -
  18811. + Rule    Oz    1986    max    -    Oct    Sun<=24    2:00    1:00    -
  18812. + Rule    Oz    1972    only    -    Feb    27    3:00    0    -
  18813. + Rule    Oz    1973    1986    -    Mar    Sun>=1    3:00    0    -
  18814. + Rule    Oz    1987    max    -    Mar    Sun<=21    3:00    0    -
  18815. + 
  18816. + # Zone    NAME            GMTOFF    RULES    FORMAT    [UNTIL]
  18817. + Zone    Australia/Tasmania    10:00    Oz    EST
  18818. + Zone    Australia/Queensland    10:00    -    EST    # No DST here
  18819. + Zone    Australia/North        9:30    -    CST    # No DST here
  18820. + Zone    Australia/West        8:00    -    WST    # No DST here
  18821. + Zone    Australia/South        9:30    Oz    CST
  18822. + 
  18823. + # Victoria jumped to a later ending date for DST in 1986 rather than 1987.
  18824. + 
  18825. + Zone    Australia/Victoria    10:00    Oz    EST    1985 Oct lastSun 2:00
  18826. +                 10:00    1:00    EST    1986 Mar Sun<=21 3:00
  18827. +                 10:00    Oz    EST
  18828. + 
  18829. + # New South Wales and subjurisdictions have their own ideas of a fun time.
  18830. + # Based on law library research by John Mackin (john@basser.cs.su.oz),
  18831. + # who notes:
  18832. + #    In Australia, time is not legislated federally, but rather by the
  18833. + #    individual states.  Thus, while such terms as ``Eastern Standard Time''
  18834. + #    [I mean, of course, Australian EST, not any other kind] are in common
  18835. + #    use, _they have NO REAL MEANING_, as they are not defined in the
  18836. + #    legislation.  This is very important to understand. 
  18837. + #    I have researched New South Wales time only; . . .I hope that perhaps a
  18838. + #    resident of each state could be found to do it for their own state. 
  18839. + #    (And I can guarantee that Victoria and NSW are different, so the link
  18840. + #    between them in the current australasia file must be broken.)
  18841. + 
  18842. + # From Robert Elz (May 5, 1989):
  18843. + #
  18844. + # From next year (1990) NSW will revert to ending DST on the 1st
  18845. + # Sunday in March (rather than the third, which it appears will
  18846. + # continue to be what everyone else uses).
  18847. + 
  18848. + # Rule    NAME    FROM    TO    TYPE    IN    ON    AT    SAVE    LETTER/S
  18849. + Rule    NSW    1971    1985    -    Oct    lastSun    2:00    1:00    -
  18850. + Rule    NSW    1972    only    -    Feb    lastSun    3:00    0    -
  18851. + Rule    NSW    1973    1981    -    Mar    Sun>=1    3:00    0    -
  18852. + Rule    NSW    1982    only    -    Apr    4    3:00    0    -
  18853. + Rule    NSW    1983    1985    -    Mar    Sun>=1    3:00    0    -
  18854. + Rule    NSW    1986    only    -    Mar    16    3:00    0    -
  18855. + Rule    NSW    1986    only    -    Oct    19    2:00    1:00    -
  18856. + Rule    NSW    1987    only    -    Mar    15    3:00    0    -
  18857. + Rule    NSW    1987    max    -    Oct    lastSun    2:00    1:00    -
  18858. + Rule    NSW    1988    1989    -    Mar    Sun<=21    3:00    0    -
  18859. + Rule    NSW    1990    max    -    Mar    Sun>=1    3:00    0    -
  18860. + 
  18861. + # Zone    NAME            GMTOFF    RULES    FORMAT    [UNTIL]
  18862. + Zone    Australia/NSW        10:00    NSW    EST
  18863. + # `Broken Hill' means the County of Yancowinna. [john@basser.cs.su.oz.au,1/4/89]
  18864. + Zone    Australia/Yancowinna    9:30    NSW    ???
  18865. + Zone    Australia/LHI        10:30    NSW    ???
  18866. + 
  18867. + # A footnote here:
  18868. + #
  18869. + #    . . .
  18870. + #    Date: Thu, j19 Feb 87 12:02:17 EST
  18871. + #    From: Bradley White <seismo!k.cs.cmu.edu!bww>
  18872. + #    . . .
  18873. + #    I am including a description of Australian time zones. . .
  18874. + #    this stuff is definitely accurate.
  18875. + #    . . .
  18876. + #    a) Australian Eastern Time: (EST = GMT+10:00, EDT = GMT+11:00)
  18877. + #    . . .
  18878. + #    Summer of 86/87 - present (current legislation):
  18879. + #        third Sun Oct 02:00 EST -> third [S]un Mar 02:00 EST
  18880. + #
  18881. + # If this turns out to be true, substitute Sun<=21 (third Sunday in October)
  18882. + # for Sun<=24 (next-to-last Sunday in October) above. . .some time before
  18883. + # October 1988, the first time it makes a difference.
  18884. + 
  18885. + ###############################################################################
  18886. + 
  18887. + # New Zealand
  18888. + 
  18889. + # New Zealand, from Elz' asia 1.1
  18890. + # Elz says "no guarantees"
  18891. + # The 1989/90 rule may only last a year.  It is a trial that is
  18892. + # subject to Ministerial approval to be made permanent.
  18893. + # The termination of "daylight saving" may actually be second
  18894. + # to last Sunday in March.  Noone spoken to was very sure.
  18895. + 
  18896. + # From U. S. Naval Observatory (January 19, 1989):
  18897. + # NEW ZEALAND        12 H  AHEAD OF UTC  (EXCLUDING CHATHAM ISLAND)
  18898. + # NEW ZEALAND        13 H  AHEAD OF UTC  OCT 30, '88-MAR 4, '89
  18899. + # NEW ZEALAND       12H45M AHEAD OF UTC  CHATHAM ISLAND
  18900. + 
  18901. + # Rule    NAME    FROM    TO    TYPE    IN    ON    AT    SAVE    LETTER/S
  18902. + Rule    NZ    1974    1988    -    Oct    lastSun    2:00    1:00    D
  18903. + Rule    NZ    1989    max    -    Oct    Sun>=8    2:00    1:00    D
  18904. + Rule    NZ    1975    1989    -    Mar    Sun>=1    3:00    0    S
  18905. + Rule    NZ    1990    max    -    Mar    Sun>=15    3:00    0    S
  18906. + 
  18907. + # Zone    NAME            GMTOFF    RULES/SAVE    FORMAT    [UNTIL]
  18908. + Zone    NZ            12:00    NZ        NZ%sT    # New Zealand
  18909. diff -rc --new-file emacs-18.59/amiga/unix/src/zoneinfo/datfiles/etcetera /gnu/src/amiga/emacs-18.59/amiga/unix/src/zoneinfo/datfiles/etcetera
  18910. *** emacs-18.59/amiga/unix/src/zoneinfo/datfiles/etcetera    Thu Jan  1 00:00:00 1970
  18911. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/zoneinfo/datfiles/etcetera    Sat Aug  1 14:24:06 1992
  18912. ***************
  18913. *** 0 ****
  18914. --- 1,55 ----
  18915. + # @(#)etcetera    4.4
  18916. + 
  18917. + # All of these are set up just so people can "zic -l" to a timezone
  18918. + # that's right for their area, even if it doesn't have a name or dst rules
  18919. + # (half hour zones are too much to bother with -- when someone asks!)
  18920. + 
  18921. + Zone    GMT        0    -    GMT
  18922. + 
  18923. + Zone    GMT-12        -12    -    GMT-1200
  18924. + Zone    GMT-11        -11    -    GMT-1100
  18925. + Zone    GMT-10        -10    -    GMT-1000
  18926. + Zone    GMT-9        -9    -    GMT-0900
  18927. + Zone    GMT-8        -8    -    GMT-0800
  18928. + Zone    GMT-7        -7    -    GMT-0700
  18929. + Zone    GMT-6        -6    -    GMT-0600
  18930. + Zone    GMT-5        -5    -    GMT-0500
  18931. + Zone    GMT-4        -4    -    GMT-0400
  18932. + Zone    GMT-3        -3    -    GMT-0300
  18933. + Zone    GMT-2        -2    -    GMT-0200
  18934. + Zone    GMT-1        -1    -    GMT-0100
  18935. + Zone    GMT+1        1    -    GMT+0100
  18936. + Zone    GMT+2        2    -    GMT+0200
  18937. + Zone    GMT+3        3    -    GMT+0300
  18938. + Zone    GMT+4        4    -    GMT+0400
  18939. + Zone    GMT+5        5    -    GMT+0500
  18940. + Zone    GMT+6        6    -    GMT+0600
  18941. + Zone    GMT+7        7    -    GMT+0700
  18942. + Zone    GMT+8        8    -    GMT+0800
  18943. + Zone    GMT+9        9    -    GMT+0900
  18944. + Zone    GMT+10        10    -    GMT+1000
  18945. + Zone    GMT+11        11    -    GMT+1100
  18946. + Zone    GMT+12        12    -    GMT+1200
  18947. + Zone    GMT+13        13    -    GMT+1300    # GMT+12 with DST
  18948. + 
  18949. + Link    GMT        UTC
  18950. + Link    GMT        UCT
  18951. + Link    GMT        Universal
  18952. + Link    GMT        Greenwich
  18953. + Link    GMT        Zulu
  18954. + Link    GMT        GMT-0
  18955. + Link    GMT        GMT+0
  18956. + Link    GMT        GMT0
  18957. + Link    GMT+1        GMT1
  18958. + Link    GMT+2        GMT2
  18959. + Link    GMT+3        GMT3
  18960. + Link    GMT+4        GMT4
  18961. + Link    GMT+5        GMT5
  18962. + Link    GMT+6        GMT6
  18963. + Link    GMT+7        GMT7
  18964. + Link    GMT+8        GMT8
  18965. + Link    GMT+9        GMT9
  18966. + Link    GMT+10        GMT10
  18967. + Link    GMT+11        GMT11
  18968. + Link    GMT+12        GMT12
  18969. + Link    GMT+13        GMT13
  18970. diff -rc --new-file emacs-18.59/amiga/unix/src/zoneinfo/datfiles/europe /gnu/src/amiga/emacs-18.59/amiga/unix/src/zoneinfo/datfiles/europe
  18971. *** emacs-18.59/amiga/unix/src/zoneinfo/datfiles/europe    Thu Jan  1 00:00:00 1970
  18972. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/zoneinfo/datfiles/europe    Sat Aug  1 14:24:08 1992
  18973. ***************
  18974. *** 0 ****
  18975. --- 1,224 ----
  18976. + # @(#)europe    4.10
  18977. + 
  18978. + # International country codes are used to identify countries' rules and
  18979. + # zones
  18980. + #
  18981. + # This data is by no means authoritative; if you think you know better, go
  18982. + # ahead and edit the file (and please send any changes to
  18983. + # ado@ncifcrf.gov for general use in the future).
  18984. + 
  18985. + ###############################################################################
  18986. + 
  18987. + # United Kingdom
  18988. + 
  18989. + # From Arthur David Olson (January 19, 1989):
  18990. + #
  18991. + # The starting and ending dates below (from which the rules are derived)
  18992. + # are from Whitaker's Almanack for 1987, page 146.
  18993. + # 1960 is the earliest year for which dates are given;
  18994. + # Whitaker's notes that British Summer Time (and, in some years, Double Summer
  18995. + # Time) was observed in earlier years but does not give start and end dates.
  18996. + #
  18997. + # A source at the British Information Office in New York avers that it's
  18998. + # known as "British" Summer Time in all parts of the United Kingdom.
  18999. + #    1960    April 10    October 2 (yes, 2, according to the almanac)
  19000. + #    1961    March 26    October 29
  19001. + #    1962    March 25    October 28
  19002. + #    1963    March 31    October 27
  19003. + #    1964    March 22    October 25
  19004. + #    1965    March 21    October 24
  19005. + #    1966    March 20    October 23
  19006. + #    1967    March 19    October 29
  19007. + #    1968    February 18    October 27
  19008. + # "British Standard Time, also one hour ahead of G. M. T., was kept between
  19009. + # 1968 Oct. 27-1971 Oct. 31."
  19010. + #    1972    March 19    October 29
  19011. + #    1973    March 18    October 28
  19012. + #    1974    March 17    October 27
  19013. + #    1975    March 16    October 26
  19014. + #    1976    March 21    October 24
  19015. + #    1977    March 20    October 23
  19016. + #    1978    March 19    October 29
  19017. + #    1979    March 18    October 28
  19018. + #    1980    March 16    October 26
  19019. + #    1981    March 29    October 25
  19020. + #    1982    March 28    October 24
  19021. + #    1983    March 27    October 23
  19022. + #    1984    March 25    October 28
  19023. + #    1985    March 31    October 27
  19024. + #    1986    March 30    October 26
  19025. + #    1987    March 29    October 25
  19026. + 
  19027. + # From an Anonymous U. K. Donor (January 4, 1989):
  19028. + #
  19029. + # It is NOT possible to predict when [British Summer Time] will change
  19030. + # in a future year.
  19031. + # 
  19032. + # (The admiralty calculate when they think it should be (no more that a couple
  19033. + # of years in advance) and advise the government who then decide whether or 
  19034. + # not they will take the admiralty's advice)
  19035. + # 
  19036. + # ...the Gre[e]nwich...observatory...[was] very helpful.
  19037. + # 
  19038. + # I was not able to track down the Admiralty formula (I tried hard but failed)
  19039. + 
  19040. + # ...
  19041. + # Date: 4 Jan 89 08:57:25 GMT (Wed)
  19042. + # From: Jonathan Leffler <nih-csl!uunet!mcvax!sphinx.co.uk!john>
  19043. + # ...
  19044. + # [British Summer Time] is fixed annually by Act of Parliament.
  19045. + # If you can predict what Parliament will do, you should be in
  19046. + # politics making a fortune, not computing.
  19047. + #
  19048. + # Summer time ends on Sunday 29 October 1989.
  19049. + 
  19050. + # ...
  19051. + # Date: 5 Jan 89 09:50:38 GMT (Thu)
  19052. + # From: Peter Kendell <nih-csl!uunet!mcvax!tcom.stc.co.uk!pete>
  19053. + # ...
  19054. + # 
  19055. + # From my Collins Diary for 1989 - 
  19056. + # 
  19057. + # "At the time of going to press the Home Office was unable to confirm
  19058. + # the 1989 starting and finishing dates for BST*, but expressed the 
  19059. + # view that 26 March and 29 October were the likeliest dates to be
  19060. + # adopted"
  19061. + # 
  19062. + # *British Summer Time.
  19063. + 
  19064. + # From an Anonymous U. K. Donor (January 5, 1989):
  19065. + #
  19066. + # . . .our government is seriously considering applying Double Summer Time -
  19067. + # putting the clocks forwards and back TWO hours for daylight saving time.
  19068. + # This is advocated to standardise time in the EEC - we're all supposed to
  19069. + # keep the same time and to change the clocks on the same dates in the future.
  19070. + 
  19071. + # Rule    NAME    FROM    TO    TYPE    IN    ON    AT    SAVE    LETTER/S
  19072. + # Historic starting rules
  19073. + Rule    GB-Eire    1960    only    -    Apr    10    1:00s    1:00    BST
  19074. + Rule    GB-Eire    1961    1963    -    Mar    lastSun    1:00s    1:00    BST
  19075. + Rule    GB-Eire    1964    1967    -    Mar    Sun>=19    1:00s    1:00    BST
  19076. + Rule    GB-Eire    1968    only    -    Feb    18    1:00s    1:00    BST
  19077. + Rule    GB-Eire    1972    1980    -    Mar    Sun>=16    1:00s    1:00    BST
  19078. + # Historic ending rules
  19079. + Rule    GB-Eire    1960    only    -    Oct    2    1:00s    0    GMT
  19080. + Rule    GB-Eire    1961    1967    -    Oct    Sun>=23    1:00s    0    GMT
  19081. + Rule    GB-Eire    1971    only    -    Oct    31    1:00s    0    GMT
  19082. + # Current rules
  19083. + Rule    GB-Eire    1981    max    -    Mar    lastSun    1:00s    1:00    BST
  19084. + Rule    GB-Eire    1972    max    -    Oct    Sun>=23    1:00s    0    GMT
  19085. + 
  19086. + # Zone    NAME        GMTOFF    RULES/SAVE    FORMAT    [UNTIL]
  19087. + Zone    GB-Eire        0:00    GB-Eire        %s    1968 Oct 27 1:00s
  19088. +             1:00    -        BST    1971 Oct 31 1:00s
  19089. +             0:00    GB-Eire        %s
  19090. + 
  19091. + ###############################################################################
  19092. + 
  19093. + # Continental Europe
  19094. + 
  19095. + # The use of 1986 as starting years below is conservative.
  19096. + 
  19097. + Rule    W-Eur    1986    max    -    Mar    lastSun    1:00s    1:00    " DST"
  19098. + Rule    W-Eur    1986    max    -    Sep    lastSun    1:00s    0    -
  19099. + 
  19100. + Rule    M-Eur    1986    max    -    Mar    lastSun    2:00s    1:00    " DST"
  19101. + Rule    M-Eur    1986    max    -    Sep    lastSun    2:00s    0    -
  19102. + 
  19103. + Rule    E-Eur    1986    max    -    Mar    lastSun    3:00s    1:00    " DST"
  19104. + Rule    E-Eur    1986    max    -    Sep    lastSun    3:00s    0    -
  19105. + 
  19106. + Rule    Turkey    1986    max    -    Mar    lastSun    1:00    1:00    " DST"
  19107. + Rule    Turkey    1986    max    -    Sep    lastSun    1:00    0    -
  19108. + 
  19109. + Rule    W-SU    1986    max    -    Mar    lastSun    2:00s    1:00    " DST"
  19110. + Rule    W-SU    1986    max    -    Sep    lastSun    2:00s    0    -
  19111. + 
  19112. + # Zone    NAME        GMTOFF    RULES/SAVE    FORMAT    [UNTIL]
  19113. + Zone    WET        0:00    W-Eur        WET%s
  19114. + Zone    Iceland        0:00    -        WET
  19115. + Zone    MET        1:00    M-Eur        MET%s
  19116. + Zone    Poland        1:00    W-Eur        MET%s
  19117. + Zone    EET        2:00    E-Eur        EET%s
  19118. + Zone    Turkey        3:00    Turkey        EET%s
  19119. + Zone    W-SU        3:00    M-Eur        ????
  19120. + 
  19121. + # Tom Hoffman says that MET is also known as Central European Time
  19122. + 
  19123. + Link    MET    CET
  19124. + 
  19125. + ###############################################################################
  19126. + 
  19127. + # One source shows that Bulgaria, Cyprus, Finland, and Greece observe DST from
  19128. + # the last Sunday in March to the last Sunday in September in 1986.
  19129. + # The source shows Romania changing a day later than everybody else.
  19130. + #
  19131. + # According to Bernard Sieloff's source, Poland is in the MET time zone but
  19132. + # uses the WE DST rules.  The Western USSR uses EET+1 and ME DST rules.
  19133. + # Bernard Sieloff's source claims Romania switches on the same day, but at
  19134. + # 00:00 standard time (i.e., 01:00 DST).  It also claims that Turkey
  19135. + # switches on the same day, but switches on at 01:00 standard time
  19136. + # and off at 00:00 standard time (i.e., 01:00 DST)
  19137. + 
  19138. + # ...
  19139. + # Date: Wed, 28 Jan 87 16:56:27 -0100
  19140. + # From: seismo!mcvax!cgcha!wtho (Tom Hofmann)
  19141. + # Message-Id: <8701281556.AA22174@cgcha.uucp>
  19142. + # ...
  19143. + # 
  19144. + # ...the European time rules are...standardized since 1981, when
  19145. + # most European coun[tr]ies started DST.  Before that year, only
  19146. + # a few countries (UK, France, Italy) had DST, each according
  19147. + # to own national rules.  In 1981, however, DST started on
  19148. + # 'Apr firstSun', and not on 'Mar lastSun' as in the following
  19149. + # years...
  19150. + # But also since 1981 there are some more national exceptions 
  19151. + # than listed in 'europe': Switzerland, for example, joined DST 
  19152. + # one year later, Denmark ended DST on 'Oct 1' instead of 'Sep 
  19153. + # lastSun' in 1981---I don't know how they handle now.
  19154. + # 
  19155. + # Finally, DST ist always from 'Apr 1' to 'Oct 1' in the
  19156. + # Soviet Union (as far as I know).  
  19157. + # 
  19158. + # Tom Hofmann, Scientific Computer Center, CIBA-GEIGY AG,
  19159. + # 4002 Basle, Switzerland
  19160. + # UUCP: ...!mcvax!cernvax!cgcha!wtho
  19161. + 
  19162. + # ...
  19163. + # Date: Wed, 4 Feb 87 22:35:22 +0100
  19164. + # From: seismo!mcvax!cwi.nl!dik (Dik T. Winter)
  19165. + # ...
  19166. + # 
  19167. + # The information from Tom Hofmann is (as far as I know) not entirely correct.
  19168. + # After a request from chongo at amdahl I tried to retrieve all information
  19169. + # about DST in Europe.  I was able to find all from about 1969.
  19170. + # 
  19171. + # ...standardization on DST in Europe started in about 1977 with switches on
  19172. + # first Sunday in April and last Sunday in September...
  19173. + # In 1981 UK joined Europe insofar that
  19174. + # the starting day for both shifted to last Sunday in March.  And from 1982
  19175. + # the whole of Europe used DST, with switch dates April 1 and October 1 in
  19176. + # the Sov[i]et Union.  In 1985 the SU reverted to standard Europe[a]n switch
  19177. + # dates...
  19178. + # 
  19179. + # It should also be remembered that time-zones are not constants; e.g.
  19180. + # Portugal switched in 1976 from MET (or CET) to WET with DST...
  19181. + # Note also that though there were rules for switch dates not
  19182. + # all countries abided to these dates, and many individual deviations
  19183. + # occurred, though not since 1982 I believe.  Another note: it is always
  19184. + # assumed that DST is 1 hour ahead of normal time, this need not be the
  19185. + # case; at least in the Netherlands there have been times when DST was 2 hours
  19186. + # in advance of normal time.
  19187. + # 
  19188. + # ...
  19189. + # dik t. winter, cwi, amsterdam, nederland
  19190. + # INTERNET   : dik@cwi.nl
  19191. + # BITNET/EARN: dik@mcvax
  19192. + 
  19193. + # From Bob Devine (January 28, 1988):
  19194. + # ...
  19195. + # Greece: Last Sunday in April to last Sunday in September (iffy on dates).
  19196. + # Since 1978.  Change at midnight.
  19197. + # ...
  19198. + # Monaco: has same DST as France.
  19199. + # ...
  19200. diff -rc --new-file emacs-18.59/amiga/unix/src/zoneinfo/datfiles/factory /gnu/src/amiga/emacs-18.59/amiga/unix/src/zoneinfo/datfiles/factory
  19201. *** emacs-18.59/amiga/unix/src/zoneinfo/datfiles/factory    Thu Jan  1 00:00:00 1970
  19202. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/zoneinfo/datfiles/factory    Sat Aug  1 14:24:08 1992
  19203. ***************
  19204. *** 0 ****
  19205. --- 1,8 ----
  19206. + # @(#)factory    1.1
  19207. + 
  19208. + # For companies who don't want to put time zone specification in
  19209. + # their installation procedures.  When users run date, they'll get the message.
  19210. + # Also useful for the "comp.sources" version.
  19211. + 
  19212. + # Zone    NAME    GMTOFF    RULES    FORMAT
  19213. + Zone    Factory    0    - "Local time zone must be set--see zic manual page"
  19214. diff -rc --new-file emacs-18.59/amiga/unix/src/zoneinfo/datfiles/leapseconds /gnu/src/amiga/emacs-18.59/amiga/unix/src/zoneinfo/datfiles/leapseconds
  19215. *** emacs-18.59/amiga/unix/src/zoneinfo/datfiles/leapseconds    Thu Jan  1 00:00:00 1970
  19216. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/zoneinfo/datfiles/leapseconds    Sat Aug  1 14:24:10 1992
  19217. ***************
  19218. *** 0 ****
  19219. --- 1,28 ----
  19220. + # @(#)leapseconds    4.1
  19221. + 
  19222. + # Allowance for leapseconds added to each timezone file.
  19223. + 
  19224. + # The correction (+ or -) is made at the given time, so lines
  19225. + # will typically look like:
  19226. + #    Leap    YEAR    MON    DAY    23:59:60    +    R/S
  19227. + # or
  19228. + #    Leap    YEAR    MON    DAY    23:59:59    -    R/S
  19229. + 
  19230. + # If the leapsecond is Rolling (R) the given time is local time
  19231. + # If the leapsecond is Stationary (S) the given time is GMT
  19232. + 
  19233. + # Leap    YEAR    MONTH    DAY    HH:MM:SS    CORR    R/S
  19234. + Leap    1972    Jun    30    23:59:60    +    S
  19235. + Leap    1972    Dec    31    23:59:60    +    S
  19236. + Leap    1973    Dec    31    23:59:60    +    S
  19237. + Leap    1974    Dec    31    23:59:60    +    S
  19238. + Leap    1975    Dec    31    23:59:60    +    S
  19239. + Leap    1976    Dec    31    23:59:60    +    S
  19240. + Leap    1977    Dec    31    23:59:60    +    S
  19241. + Leap    1978    Dec    31    23:59:60    +    S
  19242. + Leap    1979    Dec    31    23:59:60    +    S
  19243. + Leap    1981    Jun    30    23:59:60    +    S
  19244. + Leap    1982    Jun    30    23:59:60    +    S
  19245. + Leap    1983    Jun    30    23:59:60    +    S
  19246. + Leap    1985    Jun    30    23:59:60    +    S
  19247. + Leap    1987    Dec    31    23:59:60    +    S
  19248. diff -rc --new-file emacs-18.59/amiga/unix/src/zoneinfo/datfiles/northamerica /gnu/src/amiga/emacs-18.59/amiga/unix/src/zoneinfo/datfiles/northamerica
  19249. *** emacs-18.59/amiga/unix/src/zoneinfo/datfiles/northamerica    Thu Jan  1 00:00:00 1970
  19250. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/zoneinfo/datfiles/northamerica    Sat Aug  1 14:24:12 1992
  19251. ***************
  19252. *** 0 ****
  19253. --- 1,321 ----
  19254. + # @(#)northamerica    4.8
  19255. + 
  19256. + ###############################################################################
  19257. + 
  19258. + # United States
  19259. + 
  19260. + # From Arthur David Olson:
  19261. + # US Daylight Saving Time ended on the last Sunday of *October* in 1974.
  19262. + # See, for example, the front page of the Saturday, October 26, 1974
  19263. + # and Sunday, October 27, 1974 editions of the Washington Post.
  19264. + 
  19265. + # From seismo!munnari!kre:
  19266. + # I recall also being told by someone once that Canada didn't have
  19267. + # the DST variations in 74/75 that the US did, but I am not nearly
  19268. + # sure enough of this to add anything.
  19269. + 
  19270. + # From Arthur David Olson:
  19271. + # The above has been confirmed by Bob Devine; we'll go with it here.
  19272. + 
  19273. + # From Arthur David Olson:
  19274. + # Before the Uniform Time Act of 1966 took effect in 1967, observance of
  19275. + # Daylight Saving Time in the US was by local option, except during wartime.
  19276. + 
  19277. + # Rule    NAME    FROM    TO    TYPE    IN    ON    AT    SAVE    LETTER/S
  19278. + Rule    US    1918    1919    -    Mar    lastSun    2:00    1:00    D
  19279. + Rule    US    1918    1919    -    Oct    lastSun    2:00    0    S
  19280. + Rule    US    1942    only    -    Feb    9    2:00    1:00    W # War
  19281. + Rule    US    1945    only    -    Sep    30    2:00    0    S
  19282. + Rule    US    1967    max    -    Oct    lastSun    2:00    0    S
  19283. + Rule    US    1967    1973    -    Apr    lastSun    2:00    1:00    D
  19284. + Rule    US    1974    only    -    Jan    6    2:00    1:00    D
  19285. + Rule    US    1975    only    -    Feb    23    2:00    1:00    D
  19286. + Rule    US    1976    1986    -    Apr    lastSun    2:00    1:00    D
  19287. + Rule    US    1987    max    -    Apr    Sun>=1    2:00    1:00    D
  19288. + 
  19289. + # From Bob Devine (January 28, 1988):
  19290. + # ...Alaska (and Hawaii) had the timezone names changed in 1967.
  19291. + #    old                         new
  19292. + #    Pacific Standard Time(PST)  -same-
  19293. + #    Yukon Standard Time(YST)    -same-
  19294. + #    Central Alaska S.T. (CAT)   Alaska-Hawaii St[an]dard Time (AHST)
  19295. + #    Nome Standard Time (NT)     Bering Standard Time (BST)
  19296. + # 
  19297. + # ...Alaska's timezone lines were redrawn in 1983 to give only 2 tz.
  19298. + #    The YST zone now covers nearly all of the state, AHST just part
  19299. + #    of the Aleutian islands.   No DST.
  19300. + 
  19301. + # From U. S. Naval Observatory (January 19, 1989):
  19302. + # USA  EASTERN       5 H  BEHIND UTC    NEW YORK, WASHINGTON
  19303. + # USA  EASTERN       4 H  BEHIND UTC    APR 3 - OCT 30
  19304. + # USA  CENTRAL       6 H  BEHIND UTC    CHICAGO, HOUSTON
  19305. + # USA  CENTRAL       5 H  BEHIND UTC    APR 3 - OCT 30
  19306. + # USA  MOUNTAIN      7 H  BEHIND UTC    DENVER
  19307. + # USA  MOUNTAIN      6 H  BEHIND UTC    APR 3 - OCT 30
  19308. + # USA  PACIFIC       8 H  BEHIND UTC    L.A., SAN FRANCISCO
  19309. + # USA  PACIFIC       7 H  BEHIND UTC    APR 3 - OCT 30
  19310. + # USA  ALASKA STD    9 H  BEHIND UTC    MOST OF ALASKA     (AKST)
  19311. + # USA  ALASKA STD    8 H  BEHIND UTC    APR 3 - OCT 30 (AKDT)
  19312. + # USA  ALEUTIAN     10 H  BEHIND UTC    ISLANDS WEST OF 170W
  19313. + # USA  - " -         9 H  BEHIND UTC    APR 3 - OCT 30
  19314. + # USA  HAWAII       10 H  BEHIND UTC
  19315. + # USA  BERING       11 H  BEHIND UTC    SAMOA, MIDWAY
  19316. + 
  19317. + # From Arthur David Olson (January 21, 1989):
  19318. + # The above dates are for 1988.
  19319. + # Note the "AKST" and "AKDT" abbreviations, the claim that there's
  19320. + # no DST in Samoa, and the claim that there is DST in Alaska and the
  19321. + # Aleutians.
  19322. + 
  19323. + # From Arthur David Olson (February 13, 1988):
  19324. + # Legal standard time zone names, from United States Code (1982 Edition and
  19325. + # Supplement III), Title 15, Chapter 6, Section 260 and forward.  First, names
  19326. + # up to April 1, 1967 (when most provisions of the Uniform Time Act of 1966
  19327. + # took effect), as explained in sections 263 and 261:
  19328. + #    (none)
  19329. + #    United States standard eastern time
  19330. + #    United States standard mountain time
  19331. + #    United States standard central time
  19332. + #    United States standard Pacific time
  19333. + #    (none)
  19334. + #    United States standard Alaska time
  19335. + #    (none)
  19336. + # Next, names from April 1, 1967 until November 30, 1983 (the date for
  19337. + # public law 98-181):
  19338. + #    Atlantic standard time
  19339. + #    eastern standard time
  19340. + #    central standard time
  19341. + #    mountain standard time
  19342. + #    Pacific standard time
  19343. + #    Yukon standard time
  19344. + #    Alaska-Hawaii standard time
  19345. + #    Bering standard time
  19346. + # And after November 30, 1983:
  19347. + #    Atlantic standard time
  19348. + #    eastern standard time
  19349. + #    central standard time
  19350. + #    mountain standard time
  19351. + #    Pacific standard time
  19352. + #    Alaska standard time
  19353. + #    Hawaii-Aleutian standard time
  19354. + #    Samoa standard time
  19355. + # The law doesn't give abbreviations.
  19356. + 
  19357. + # Easy stuff first--including Alaska, where we ignore history (since we
  19358. + # can't tell if we should give Yukon time or Alaska-Hawaii time for "old"
  19359. + # times).
  19360. + 
  19361. + # Zone    NAME        GMTOFF    RULES/SAVE    FORMAT    [UNTIL]
  19362. + Zone    US/Eastern    -5:00    US        E%sT
  19363. + Zone    US/Central    -6:00    US        C%sT
  19364. + Zone    US/Mountain    -7:00    US        M%sT
  19365. + Zone    US/Pacific    -8:00    US        P%sT
  19366. + Zone    US/Alaska    -9:00    US        AK%sT    # Abbreviation per USNO
  19367. + 
  19368. + # Mainland US areas that are always Standard as of 1986.
  19369. + 
  19370. + Zone    US/East-Indiana    -5:00    US        E%sT    1946
  19371. +             -5:00    -        EST    # Always EST as of 1986
  19372. + Zone    US/Arizona    -7:00    US        M%sT    1946
  19373. +             -7:00    -        MST    # Always MST as of 1986
  19374. + 
  19375. + # From Arthur David Olson (February 13, 1988):
  19376. + # However. . .a writer from the Inter Tribal Council of Arizona, Inc.,
  19377. + # notes in private correspondence dated 12/28/87 that "Presently, only the
  19378. + # Navajo Nation participates in the Daylight Saving Time policy, due to its
  19379. + # large size and location in three states."  (The "only" means that other
  19380. + # tribal nations don't use DST.)
  19381. + 
  19382. + Link    US/Mountain    Navajo
  19383. + 
  19384. + # From Bob Devine (January 28, 1988):
  19385. + # Michigan didn't observe DST from 1968 to 1973.
  19386. + 
  19387. + Zone    US/Michigan    -5:00    US        E%sT    1968
  19388. +             -5:00    -        EST    1973
  19389. +             -5:00    US        E%sT
  19390. + 
  19391. + # Samoa just changes names.  No DST, per Naval Observatory.
  19392. + 
  19393. + Zone    US/Samoa    -11:00    -        NST    1967 Apr 1  # N=Nome
  19394. +             -11:00    -        BST    1983 Nov 30 # B=Bering
  19395. +             -11:00    -        SST            # S=Samoa
  19396. + 
  19397. + # Aleutian has a name change.  DST, per Naval Observatory.
  19398. + 
  19399. + Zone    US/Aleutian    -10:00    US        AH%sT    1983 Nov 30
  19400. +             -10:00    US        HA%sT
  19401. + 
  19402. + # From Arthur David Olson:
  19403. + # And then there's Hawaii.
  19404. + # DST was observed for one day in 1933;
  19405. + # Standard time was change by half an hour in 1947;
  19406. + # it's always standard as of 1986.
  19407. + 
  19408. + Zone    US/Hawaii    -10:30    US    H%sT    1933 Apr 30 2:00
  19409. +             -10:30    1:00    HDT    1933 May 1 2:00
  19410. +             -10:30    US    H%sT    1947 Jun 8 2:00
  19411. +             -10:00    -    HST
  19412. + 
  19413. + # Old names, for S5 users
  19414. + 
  19415. + # Link    LINK-FROM    LINK-TO
  19416. + # Link    US/Eastern    EST5EDT
  19417. + # Link    US/Central    CST6CDT
  19418. + # Link    US/Mountain    MST7MDT
  19419. + # Link    US/Pacific    PST8PDT
  19420. + # Link    US/East-Indiana    EST
  19421. + # Link    US/Arizona    MST
  19422. + # Link    US/Hawaii    HST
  19423. + 
  19424. + ################################################################################
  19425. + 
  19426. + # Canada
  19427. + 
  19428. + # Canada is reportedly lots easier than the US--leastways since 1951.
  19429. + # I don't know what they did before then.
  19430. + # 4.3BSD claims that it's perfectly regular.
  19431. + # According to a posting in "comp.bugs.misc", "comp.unix.wizards", etc.
  19432. + # on February 8, 1987, by Dave Sherman of the Law Society of Upper Canada,
  19433. + # "...Canada (well, Ontario and at least some of the other provinces) are
  19434. + # adopting the new daylight savings time rules...".  We assume all of
  19435. + # Canada is doing so.
  19436. + 
  19437. + # From Bob Devine (January 28, 1988):
  19438. + # All of Canada did have DST from your first rule except Saskatchewan.
  19439. + # Which parts did not observe DST is hard to pinpoint but most of the
  19440. + # province follows the rules.
  19441. + # NOTE: those that didn't have DST for that rule, also
  19442. + # probably did not have it for several years previous.
  19443. + 
  19444. + # From U. S. Naval Observatory (January 19, 1989):
  19445. + # CANADA   NEW FDL    3.5H BEHIND UTC    ST.JOHN'S
  19446. + # CANADA   NEW FDL    1.5H BEHIND UTC    APR 3 - OCT 29
  19447. + # CANADA   ATLANTIC   4 H  BEHIND UTC    HALIFAX
  19448. + # CANADA   ATLANTIC   3 H  BEHIND UTC    APR 3 - OCT 29
  19449. + # CANADA   EASTERN    5 H  BEHIND UTC    TORONTO, MONTREAL, OTTAWA
  19450. + # CANADA   EASTERN    4 H  BEHIND UTC    APR 3 - OCT 29
  19451. + # CANADA   CENTRAL    6 H  BEHIND UTC    REGINA, WINNIPEG
  19452. + # CANADA   CENTRAL    5 H  BEHIND UTC    APR 3 - OCT 29
  19453. + # CANADA   MOUNTAIN   7 H  BEHIND UTC    CALGARY, EDMONTON
  19454. + # CANADA   MOUNTAIN   6 H  BEHIND UTC    APR 3 - OCT 29
  19455. + # CANADA   PACIFIC    8 H  BEHIND UTC    VANCOUVER
  19456. + # CANADA   PACIFIC    7 H  BEHIND UTC    APR 3 - OCT 29
  19457. + # CANADA   YUKON      SAME AS PACIFIC    DAWSON
  19458. + 
  19459. + # From Arthur David Olson (January 21, 1989):
  19460. + # April 3 fell on a Sunday in 1988; October 29 fell on a Sunday in 1989.  Ahem.
  19461. + # Note claim that there's double DST in Newfoundland and that Yukon should
  19462. + # be same as Pacific.  Stick with rules posted in 1988 until more authoritative
  19463. + # information is available.
  19464. + 
  19465. + # Rule    NAME    FROM    TO    TYPE    IN    ON    AT    SAVE    LETTER/S
  19466. + Rule    Canada    1969    max    -    Oct    lastSun    2:00    0    S
  19467. + Rule    Canada    1969    1986    -    Apr    lastSun    2:00    1:00    D
  19468. + Rule    Canada    1987    max    -    Apr    Sun>=1    2:00    1:00    D
  19469. + 
  19470. + # Zone    NAME            GMTOFF    RULES/SAVE    FORMAT    [UNTIL]
  19471. + # Bob Devine says that DST *is* observed in Newfoundland
  19472. + Zone    Canada/Newfoundland    -3:30    Canada        N%sT
  19473. + Zone    Canada/Atlantic        -4:00    Canada        A%sT
  19474. + Zone    Canada/Eastern        -5:00    Canada        E%sT
  19475. + Zone    Canada/Central        -6:00    Canada        C%sT
  19476. + Zone    Canada/East-Saskatchewan    -6:00    -    CST # No DST as of 1987
  19477. + Zone    Canada/Mountain        -7:00    Canada        M%sT
  19478. + Zone    Canada/Pacific        -8:00    Canada        P%sT
  19479. + Zone    Canada/Yukon        -9:00    Canada        Y%sT
  19480. + 
  19481. + ###############################################################################
  19482. + 
  19483. + # Mexico
  19484. + 
  19485. + # From Guy Harris:
  19486. + # Rules are from the Official Airline Guide, Worldwide Edition, for 1987.
  19487. + # Rules prior to 1987 are unknown.
  19488. + # The comments in the OAG say "Only Ensenada, Mexicale, San Felipe and Tijuana
  19489. + # observe DST."  This is presumably Baja California Norte, above 28th parallel,
  19490. + # as listed there; Mexico/BajaSur is for "Baja California Sur and N. Pacific
  19491. + # Coast (States of Sinaloa and Sonora)."
  19492. + 
  19493. + # From Bob Devine (January 28, 1988):
  19494. + # The Federal District (where Mexico City is) has observed [DST] several
  19495. + # times but not recently.
  19496. + # 
  19497. + # I don't where to drawn the line in the North Baja area.  28th latitude
  19498. + # sounds good -- but it may be higher (how far [d]o radio stations from
  19499. + # San Diego affect culture?).
  19500. + # 
  19501. + # The dates of DST probably go back to 1981.  The rules are the same as
  19502. + # US's.  This is going to be a headache for US presidential electi[o]n years!
  19503. + 
  19504. + # From Arthur David Olson (February 13, 1988)
  19505. + # Since the 1981 starting date is only "probable," we'll keep the 1987
  19506. + # starting date below.
  19507. + 
  19508. + # From U. S. Naval Observatory (January 19, 1989):
  19509. + # MEXICO BAJA CAL N   7 H  BEHIND UTC    BAJA CALIFORNIA SUR AND
  19510. + # MEXICO BAJA CAL N                      N. PACIFIC COAST (STATES
  19511. + # MEXICO BAJA CAL N                      OF SINALOA AND SONORA)
  19512. + # MEXICO BAJA CAL N   8 H  BEHIND UTC    ABOVE 28TH PARALLAL APR 3
  19513. + # MEXICO BAJA CAL N                      - OCT 29
  19514. + # MEXICO BAJA CAL N   7 H  BEHIND UTC    ABOVE 28TH PARALLAL APR 3
  19515. + # MEXICO BAJA CAL N                      - 0CT 29
  19516. + # MEXICO              6 H  BEHIND UTC    STATES OF DURANGO,
  19517. + # MEXICO                                 COAHUILA, NUEVO LEON,
  19518. + # MEXICO                                 TAMAULIPAS
  19519. + # MEXICO              5 H  BEHIND UTC    STATES OF DURANGO,
  19520. + # MEXICO                                 COAHUILA, NUEVO LEON,
  19521. + # MEXICO                                 TAMAULIPAS  APR 3 - OCT 29
  19522. + # MEXICO              6 H  BEHIND UTC    GENERAL MEXICO, STATES OF
  19523. + # MEXICO                                 CAMPECHE, QUINTANA ROO AND
  19524. + # MEXICO                                 YUCATAN
  19525. + 
  19526. + # From Arthur David Olson (January 21, 1989):
  19527. + # April 3 fell on a Sunday in 1988; October 29 fell on a Sunday in 1989.  Ahem.
  19528. + # USNO claims there should be four Mexican zones rather than three:
  19529. + # a zone that's GMT-8 with DST; a zone that's always GMT-7;
  19530. + # a zone that's GMT-6 with DST; and a zone that's always GMT-6.
  19531. + # Wait for more authoritative information before changing.
  19532. + 
  19533. + # Rule    NAME    FROM    TO    TYPE    IN    ON    AT    SAVE    LETTER/S
  19534. + Rule    Mexico    1987    max    -    Oct    lastSun    2:00    0    S
  19535. + Rule    Mexico    1987    max    -    Apr    Sun>=1    2:00    1:00    D
  19536. + 
  19537. + # Zone    NAME            GMTOFF    RULES/SAVE    FORMAT    [UNTIL]
  19538. + Zone    Mexico/BajaNorte    -8:00    Mexico        P%sT
  19539. + Zone    Mexico/BajaSur        -7:00    -        MST
  19540. + Zone    Mexico/General        -6:00    -        CST
  19541. + 
  19542. + ###############################################################################
  19543. + 
  19544. + # Jamaica
  19545. + 
  19546. + # From Bob Devine (January 28, 1988):
  19547. + # Follows US rules.
  19548. + 
  19549. + # From U. S. Naval Observatory (January 19, 1989):
  19550. + # JAMAICA             5 H  BEHIND UTC
  19551. + 
  19552. + Link    US/Eastern    Jamaica
  19553. + 
  19554. + ###############################################################################
  19555. + 
  19556. + # Cuba
  19557. + 
  19558. + # From Bob Devine (January 28, 1988):
  19559. + # . . .DST is from 2nd Sunday in May to 2nd Sunday in October since 1981.
  19560. + # Change at midnight.  In 1979 & 1980, started at 3rd Sunday in March
  19561. + # (I think).
  19562. + 
  19563. + # From U. S. Naval Observatory (January 19, 1989):
  19564. + # CUBA                5 H  BEHIND UTC
  19565. + # CUBA                4 H  BEHIND UTC    MAR 20 - OCT 8
  19566. + 
  19567. + # Rule    NAME    FROM    TO    TYPE    IN    ON    AT    SAVE    LETTER/S
  19568. + Rule    Cuba    1979    1980    -    Mar    Sun>=15    0:00    1:00    D
  19569. + Rule    Cuba    1979    1980    -    Oct    Sun>=8    0:00    0    S
  19570. + Rule    Cuba    1981    max    -    May    Sun>=8    0:00    1:00    D
  19571. + Rule    Cuba    1981    max    -    Oct    Sun>=8    0:00    0    S
  19572. + 
  19573. + # Zone    NAME            GMTOFF    RULES/SAVE    FORMAT
  19574. + Zone    Cuba            -5:00    Cuba        C%sT
  19575. diff -rc --new-file emacs-18.59/amiga/unix/src/zoneinfo/datfiles/pacificnew /gnu/src/amiga/emacs-18.59/amiga/unix/src/zoneinfo/datfiles/pacificnew
  19576. *** emacs-18.59/amiga/unix/src/zoneinfo/datfiles/pacificnew    Thu Jan  1 00:00:00 1970
  19577. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/zoneinfo/datfiles/pacificnew    Sat Aug  1 14:24:12 1992
  19578. ***************
  19579. *** 0 ****
  19580. --- 1,21 ----
  19581. + # @(#)pacificnew    4.4
  19582. + 
  19583. + # From Arthur David Olson (January 18, 1989):
  19584. + # On November 10, 1987, the U. S. House of Representatives passed a bill
  19585. + # (H.R. 435), the "Uniform Poll Closing Time Act", establishing
  19586. + # "Pacific Presidential Election Time"; it was not acted on by the Senate
  19587. + # before the end of the 100th Congress and so died.
  19588. + # The bill has been reintroduced in the 101st Congress as H. R. 18;
  19589. + # H. R. 96 also deals with poll closing time.  Either bill would have to be
  19590. + # passed by both the House and Senate and signed by the President (or have
  19591. + # the President's veto overridden by the House and Senate) before becoming law.
  19592. + 
  19593. + # Rule    NAME    FROM    TO    TYPE    IN    ON    AT    SAVE    LETTER/S
  19594. + Rule    Twilite    1989    max    -    Apr    Sun>=1    2:00    1:00    D
  19595. + Rule    Twilite    1989    max    uspres    Oct    lastSun    2:00    1:00    PE
  19596. + Rule    Twilite    1989    max    uspres    Nov    Sun>=7    2:00    0    S
  19597. + Rule    Twilite    1989    max    nonpres    Oct    lastSun    2:00    0    S
  19598. + 
  19599. + # Zone    NAME        GMTOFF    RULES/SAVE    FORMAT    [UNTIL]
  19600. + Zone    US/Pacific-New    -8:00    US        P%sT    1989
  19601. +             -8:00    Twilite        P%sT
  19602. diff -rc --new-file emacs-18.59/amiga/unix/src/zoneinfo/datfiles/smakefile /gnu/src/amiga/emacs-18.59/amiga/unix/src/zoneinfo/datfiles/smakefile
  19603. *** emacs-18.59/amiga/unix/src/zoneinfo/datfiles/smakefile    Thu Jan  1 00:00:00 1970
  19604. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/zoneinfo/datfiles/smakefile    Mon Sep 21 09:58:50 1992
  19605. ***************
  19606. *** 0 ****
  19607. --- 1,67 ----
  19608. + #    @(#)Makefile    5.9 (Berkeley) 2/28/91
  19609. + 
  19610. + # Change the line below for your time zone (after finding the zone you want in
  19611. + # the time zone files, or adding it to a time zone file).
  19612. + # Alternately, if you discover you've got the wrong time zone, you can just
  19613. + #    zic -l rightzone
  19614. + 
  19615. + LOCALTIME=    MET
  19616. + 
  19617. + # If you want something other than Eastern United States time as a template
  19618. + # for handling POSIX-style time zone environment variables,
  19619. + # change the line below (after finding the zone you want in the
  19620. + # time zone files, or adding it to a time zone file).
  19621. + # Alternately, if you discover you've got the wrong time zone, you can just
  19622. + #    zic -p rightzone
  19623. + 
  19624. + POSIXRULES=    MET
  19625. + 
  19626. + # Use an absolute path name for TZDIR unless you're just testing the software.
  19627. + 
  19628. + TZDIR=    s:zoneinfo
  19629. + 
  19630. + # If you always want time values interpreted as "seconds since the epoch
  19631. + # (not counting leap seconds)", use
  19632. + #     REDO=        posix_only
  19633. + # below.  If you always want right time values interpreted as "seconds since
  19634. + # the epoch" (counting leap seconds)", use
  19635. + #    REDO=        right_only
  19636. + # below.  If you want both sets of data available, with leap seconds not
  19637. + # counted normally, use
  19638. + #    REDO=        posix_right
  19639. + # below.  If you want both sets of data available, with leap seconds counted
  19640. + # normally, use
  19641. + #    REDO=        right_posix
  19642. + # below.
  19643. + 
  19644. + # This should be left as is for the Amiga
  19645. + 
  19646. + REDO=        posix_only
  19647. + 
  19648. + YDATA=    africa antarctica asia australasia europe northamerica \
  19649. +     southamerica pacificnew etcetera factory
  19650. + NDATA=    systemv
  19651. + #SDATA=    solar87 solar88 solar89
  19652. + TDATA=    ${YDATA} ${NDATA} ${SDATA}
  19653. + DATA=    ${YDATA} ${NDATA} ${SDATA} leapseconds
  19654. + USNO=    usno1988 usno1989
  19655. + 
  19656. + all: $(REDO)
  19657. + 
  19658. + posix_only: ${TDATA}
  19659. +         /zic -d ${TZDIR} -L nil: ${TDATA}
  19660. + 
  19661. + right_only: leapseconds ${TDATA}
  19662. +         /zic -d ${TZDIR} -L leapseconds ${TDATA}
  19663. + 
  19664. + other_two: leapseconds ${TDATA}
  19665. +         /zic -d ${TZDIR} -L leapseconds ${TDATA}
  19666. +         /zic -d ${TZDIR} -L nil: ${TDATA}
  19667. + 
  19668. + posix_right: posix_only other_two
  19669. + 
  19670. + right_posix: right_only other_two
  19671. + 
  19672. + install: ${TDATA} ${REDO}
  19673. +     /zic -d ${TZDIR} -p ${POSIXRULES}
  19674. +     /zic -d ${TZDIR} -l ${LOCALTIME}
  19675. diff -rc --new-file emacs-18.59/amiga/unix/src/zoneinfo/datfiles/solar87 /gnu/src/amiga/emacs-18.59/amiga/unix/src/zoneinfo/datfiles/solar87
  19676. *** emacs-18.59/amiga/unix/src/zoneinfo/datfiles/solar87    Thu Jan  1 00:00:00 1970
  19677. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/zoneinfo/datfiles/solar87    Sat Aug  1 14:24:14 1992
  19678. ***************
  19679. *** 0 ****
  19680. --- 1,386 ----
  19681. + # @(#)solar87    4.1
  19682. + 
  19683. + # So much for footnotes about Saudi Arabia.
  19684. + # Apparent noon times below are for Riyadh; your mileage will vary.
  19685. + # Times were computed using formulas in the U.S. Naval Observatory's
  19686. + # Almanac for Computers 1987; the formulas "will give EqT to an accuracy of
  19687. + # [plus or minus two] seconds during the current year."
  19688. + #
  19689. + # Rounding to the nearest five seconds results in fewer than
  19690. + # 256 different "time types"--a limit that's faced because time types are
  19691. + # stored on disk as unsigned chars.
  19692. + 
  19693. + # Rule    NAME    FROM    TO    TYPE    IN    ON    AT    SAVE    LETTER/S
  19694. + Rule    sol87    1987    only    -    Jan    1    12:03:20s -0:03:20 -
  19695. + Rule    sol87    1987    only    -    Jan    2    12:03:50s -0:03:50 -
  19696. + Rule    sol87    1987    only    -    Jan    3    12:04:15s -0:04:15 -
  19697. + Rule    sol87    1987    only    -    Jan    4    12:04:45s -0:04:45 -
  19698. + Rule    sol87    1987    only    -    Jan    5    12:05:10s -0:05:10 -
  19699. + Rule    sol87    1987    only    -    Jan    6    12:05:40s -0:05:40 -
  19700. + Rule    sol87    1987    only    -    Jan    7    12:06:05s -0:06:05 -
  19701. + Rule    sol87    1987    only    -    Jan    8    12:06:30s -0:06:30 -
  19702. + Rule    sol87    1987    only    -    Jan    9    12:06:55s -0:06:55 -
  19703. + Rule    sol87    1987    only    -    Jan    10    12:07:20s -0:07:20 -
  19704. + Rule    sol87    1987    only    -    Jan    11    12:07:45s -0:07:45 -
  19705. + Rule    sol87    1987    only    -    Jan    12    12:08:10s -0:08:10 -
  19706. + Rule    sol87    1987    only    -    Jan    13    12:08:30s -0:08:30 -
  19707. + Rule    sol87    1987    only    -    Jan    14    12:08:55s -0:08:55 -
  19708. + Rule    sol87    1987    only    -    Jan    15    12:09:15s -0:09:15 -
  19709. + Rule    sol87    1987    only    -    Jan    16    12:09:35s -0:09:35 -
  19710. + Rule    sol87    1987    only    -    Jan    17    12:09:55s -0:09:55 -
  19711. + Rule    sol87    1987    only    -    Jan    18    12:10:15s -0:10:15 -
  19712. + Rule    sol87    1987    only    -    Jan    19    12:10:35s -0:10:35 -
  19713. + Rule    sol87    1987    only    -    Jan    20    12:10:55s -0:10:55 -
  19714. + Rule    sol87    1987    only    -    Jan    21    12:11:10s -0:11:10 -
  19715. + Rule    sol87    1987    only    -    Jan    22    12:11:30s -0:11:30 -
  19716. + Rule    sol87    1987    only    -    Jan    23    12:11:45s -0:11:45 -
  19717. + Rule    sol87    1987    only    -    Jan    24    12:12:00s -0:12:00 -
  19718. + Rule    sol87    1987    only    -    Jan    25    12:12:15s -0:12:15 -
  19719. + Rule    sol87    1987    only    -    Jan    26    12:12:30s -0:12:30 -
  19720. + Rule    sol87    1987    only    -    Jan    27    12:12:40s -0:12:40 -
  19721. + Rule    sol87    1987    only    -    Jan    28    12:12:55s -0:12:55 -
  19722. + Rule    sol87    1987    only    -    Jan    29    12:13:05s -0:13:05 -
  19723. + Rule    sol87    1987    only    -    Jan    30    12:13:15s -0:13:15 -
  19724. + Rule    sol87    1987    only    -    Jan    31    12:13:25s -0:13:25 -
  19725. + Rule    sol87    1987    only    -    Feb    1    12:13:35s -0:13:35 -
  19726. + Rule    sol87    1987    only    -    Feb    2    12:13:40s -0:13:40 -
  19727. + Rule    sol87    1987    only    -    Feb    3    12:13:50s -0:13:50 -
  19728. + Rule    sol87    1987    only    -    Feb    4    12:13:55s -0:13:55 -
  19729. + Rule    sol87    1987    only    -    Feb    5    12:14:00s -0:14:00 -
  19730. + Rule    sol87    1987    only    -    Feb    6    12:14:05s -0:14:05 -
  19731. + Rule    sol87    1987    only    -    Feb    7    12:14:10s -0:14:10 -
  19732. + Rule    sol87    1987    only    -    Feb    8    12:14:10s -0:14:10 -
  19733. + Rule    sol87    1987    only    -    Feb    9    12:14:15s -0:14:15 -
  19734. + Rule    sol87    1987    only    -    Feb    10    12:14:15s -0:14:15 -
  19735. + Rule    sol87    1987    only    -    Feb    11    12:14:15s -0:14:15 -
  19736. + Rule    sol87    1987    only    -    Feb    12    12:14:15s -0:14:15 -
  19737. + Rule    sol87    1987    only    -    Feb    13    12:14:15s -0:14:15 -
  19738. + Rule    sol87    1987    only    -    Feb    14    12:14:15s -0:14:15 -
  19739. + Rule    sol87    1987    only    -    Feb    15    12:14:10s -0:14:10 -
  19740. + Rule    sol87    1987    only    -    Feb    16    12:14:10s -0:14:10 -
  19741. + Rule    sol87    1987    only    -    Feb    17    12:14:05s -0:14:05 -
  19742. + Rule    sol87    1987    only    -    Feb    18    12:14:00s -0:14:00 -
  19743. + Rule    sol87    1987    only    -    Feb    19    12:13:55s -0:13:55 -
  19744. + Rule    sol87    1987    only    -    Feb    20    12:13:50s -0:13:50 -
  19745. + Rule    sol87    1987    only    -    Feb    21    12:13:45s -0:13:45 -
  19746. + Rule    sol87    1987    only    -    Feb    22    12:13:35s -0:13:35 -
  19747. + Rule    sol87    1987    only    -    Feb    23    12:13:30s -0:13:30 -
  19748. + Rule    sol87    1987    only    -    Feb    24    12:13:20s -0:13:20 -
  19749. + Rule    sol87    1987    only    -    Feb    25    12:13:10s -0:13:10 -
  19750. + Rule    sol87    1987    only    -    Feb    26    12:13:00s -0:13:00 -
  19751. + Rule    sol87    1987    only    -    Feb    27    12:12:50s -0:12:50 -
  19752. + Rule    sol87    1987    only    -    Feb    28    12:12:40s -0:12:40 -
  19753. + Rule    sol87    1987    only    -    Mar    1    12:12:30s -0:12:30 -
  19754. + Rule    sol87    1987    only    -    Mar    2    12:12:20s -0:12:20 -
  19755. + Rule    sol87    1987    only    -    Mar    3    12:12:05s -0:12:05 -
  19756. + Rule    sol87    1987    only    -    Mar    4    12:11:55s -0:11:55 -
  19757. + Rule    sol87    1987    only    -    Mar    5    12:11:40s -0:11:40 -
  19758. + Rule    sol87    1987    only    -    Mar    6    12:11:25s -0:11:25 -
  19759. + Rule    sol87    1987    only    -    Mar    7    12:11:15s -0:11:15 -
  19760. + Rule    sol87    1987    only    -    Mar    8    12:11:00s -0:11:00 -
  19761. + Rule    sol87    1987    only    -    Mar    9    12:10:45s -0:10:45 -
  19762. + Rule    sol87    1987    only    -    Mar    10    12:10:30s -0:10:30 -
  19763. + Rule    sol87    1987    only    -    Mar    11    12:10:15s -0:10:15 -
  19764. + Rule    sol87    1987    only    -    Mar    12    12:09:55s -0:09:55 -
  19765. + Rule    sol87    1987    only    -    Mar    13    12:09:40s -0:09:40 -
  19766. + Rule    sol87    1987    only    -    Mar    14    12:09:25s -0:09:25 -
  19767. + Rule    sol87    1987    only    -    Mar    15    12:09:10s -0:09:10 -
  19768. + Rule    sol87    1987    only    -    Mar    16    12:08:50s -0:08:50 -
  19769. + Rule    sol87    1987    only    -    Mar    17    12:08:35s -0:08:35 -
  19770. + Rule    sol87    1987    only    -    Mar    18    12:08:15s -0:08:15 -
  19771. + Rule    sol87    1987    only    -    Mar    19    12:08:00s -0:08:00 -
  19772. + Rule    sol87    1987    only    -    Mar    20    12:07:40s -0:07:40 -
  19773. + Rule    sol87    1987    only    -    Mar    21    12:07:25s -0:07:25 -
  19774. + Rule    sol87    1987    only    -    Mar    22    12:07:05s -0:07:05 -
  19775. + Rule    sol87    1987    only    -    Mar    23    12:06:50s -0:06:50 -
  19776. + Rule    sol87    1987    only    -    Mar    24    12:06:30s -0:06:30 -
  19777. + Rule    sol87    1987    only    -    Mar    25    12:06:10s -0:06:10 -
  19778. + Rule    sol87    1987    only    -    Mar    26    12:05:55s -0:05:55 -
  19779. + Rule    sol87    1987    only    -    Mar    27    12:05:35s -0:05:35 -
  19780. + Rule    sol87    1987    only    -    Mar    28    12:05:15s -0:05:15 -
  19781. + Rule    sol87    1987    only    -    Mar    29    12:05:00s -0:05:00 -
  19782. + Rule    sol87    1987    only    -    Mar    30    12:04:40s -0:04:40 -
  19783. + Rule    sol87    1987    only    -    Mar    31    12:04:25s -0:04:25 -
  19784. + Rule    sol87    1987    only    -    Apr    1    12:04:05s -0:04:05 -
  19785. + Rule    sol87    1987    only    -    Apr    2    12:03:45s -0:03:45 -
  19786. + Rule    sol87    1987    only    -    Apr    3    12:03:30s -0:03:30 -
  19787. + Rule    sol87    1987    only    -    Apr    4    12:03:10s -0:03:10 -
  19788. + Rule    sol87    1987    only    -    Apr    5    12:02:55s -0:02:55 -
  19789. + Rule    sol87    1987    only    -    Apr    6    12:02:35s -0:02:35 -
  19790. + Rule    sol87    1987    only    -    Apr    7    12:02:20s -0:02:20 -
  19791. + Rule    sol87    1987    only    -    Apr    8    12:02:05s -0:02:05 -
  19792. + Rule    sol87    1987    only    -    Apr    9    12:01:45s -0:01:45 -
  19793. + Rule    sol87    1987    only    -    Apr    10    12:01:30s -0:01:30 -
  19794. + Rule    sol87    1987    only    -    Apr    11    12:01:15s -0:01:15 -
  19795. + Rule    sol87    1987    only    -    Apr    12    12:00:55s -0:00:55 -
  19796. + Rule    sol87    1987    only    -    Apr    13    12:00:40s -0:00:40 -
  19797. + Rule    sol87    1987    only    -    Apr    14    12:00:25s -0:00:25 -
  19798. + Rule    sol87    1987    only    -    Apr    15    12:00:10s -0:00:10 -
  19799. + Rule    sol87    1987    only    -    Apr    16    11:59:55s 0:00:05 -
  19800. + Rule    sol87    1987    only    -    Apr    17    11:59:45s 0:00:15 -
  19801. + Rule    sol87    1987    only    -    Apr    18    11:59:30s 0:00:30 -
  19802. + Rule    sol87    1987    only    -    Apr    19    11:59:15s 0:00:45 -
  19803. + Rule    sol87    1987    only    -    Apr    20    11:59:05s 0:00:55 -
  19804. + Rule    sol87    1987    only    -    Apr    21    11:58:50s 0:01:10 -
  19805. + Rule    sol87    1987    only    -    Apr    22    11:58:40s 0:01:20 -
  19806. + Rule    sol87    1987    only    -    Apr    23    11:58:25s 0:01:35 -
  19807. + Rule    sol87    1987    only    -    Apr    24    11:58:15s 0:01:45 -
  19808. + Rule    sol87    1987    only    -    Apr    25    11:58:05s 0:01:55 -
  19809. + Rule    sol87    1987    only    -    Apr    26    11:57:55s 0:02:05 -
  19810. + Rule    sol87    1987    only    -    Apr    27    11:57:45s 0:02:15 -
  19811. + Rule    sol87    1987    only    -    Apr    28    11:57:35s 0:02:25 -
  19812. + Rule    sol87    1987    only    -    Apr    29    11:57:25s 0:02:35 -
  19813. + Rule    sol87    1987    only    -    Apr    30    11:57:15s 0:02:45 -
  19814. + Rule    sol87    1987    only    -    May    1    11:57:10s 0:02:50 -
  19815. + Rule    sol87    1987    only    -    May    2    11:57:00s 0:03:00 -
  19816. + Rule    sol87    1987    only    -    May    3    11:56:55s 0:03:05 -
  19817. + Rule    sol87    1987    only    -    May    4    11:56:50s 0:03:10 -
  19818. + Rule    sol87    1987    only    -    May    5    11:56:45s 0:03:15 -
  19819. + Rule    sol87    1987    only    -    May    6    11:56:40s 0:03:20 -
  19820. + Rule    sol87    1987    only    -    May    7    11:56:35s 0:03:25 -
  19821. + Rule    sol87    1987    only    -    May    8    11:56:30s 0:03:30 -
  19822. + Rule    sol87    1987    only    -    May    9    11:56:25s 0:03:35 -
  19823. + Rule    sol87    1987    only    -    May    10    11:56:25s 0:03:35 -
  19824. + Rule    sol87    1987    only    -    May    11    11:56:20s 0:03:40 -
  19825. + Rule    sol87    1987    only    -    May    12    11:56:20s 0:03:40 -
  19826. + Rule    sol87    1987    only    -    May    13    11:56:20s 0:03:40 -
  19827. + Rule    sol87    1987    only    -    May    14    11:56:20s 0:03:40 -
  19828. + Rule    sol87    1987    only    -    May    15    11:56:20s 0:03:40 -
  19829. + Rule    sol87    1987    only    -    May    16    11:56:20s 0:03:40 -
  19830. + Rule    sol87    1987    only    -    May    17    11:56:20s 0:03:40 -
  19831. + Rule    sol87    1987    only    -    May    18    11:56:20s 0:03:40 -
  19832. + Rule    sol87    1987    only    -    May    19    11:56:25s 0:03:35 -
  19833. + Rule    sol87    1987    only    -    May    20    11:56:25s 0:03:35 -
  19834. + Rule    sol87    1987    only    -    May    21    11:56:30s 0:03:30 -
  19835. + Rule    sol87    1987    only    -    May    22    11:56:35s 0:03:25 -
  19836. + Rule    sol87    1987    only    -    May    23    11:56:40s 0:03:20 -
  19837. + Rule    sol87    1987    only    -    May    24    11:56:45s 0:03:15 -
  19838. + Rule    sol87    1987    only    -    May    25    11:56:50s 0:03:10 -
  19839. + Rule    sol87    1987    only    -    May    26    11:56:55s 0:03:05 -
  19840. + Rule    sol87    1987    only    -    May    27    11:57:00s 0:03:00 -
  19841. + Rule    sol87    1987    only    -    May    28    11:57:10s 0:02:50 -
  19842. + Rule    sol87    1987    only    -    May    29    11:57:15s 0:02:45 -
  19843. + Rule    sol87    1987    only    -    May    30    11:57:25s 0:02:35 -
  19844. + Rule    sol87    1987    only    -    May    31    11:57:30s 0:02:30 -
  19845. + Rule    sol87    1987    only    -    Jun    1    11:57:40s 0:02:20 -
  19846. + Rule    sol87    1987    only    -    Jun    2    11:57:50s 0:02:10 -
  19847. + Rule    sol87    1987    only    -    Jun    3    11:58:00s 0:02:00 -
  19848. + Rule    sol87    1987    only    -    Jun    4    11:58:10s 0:01:50 -
  19849. + Rule    sol87    1987    only    -    Jun    5    11:58:20s 0:01:40 -
  19850. + Rule    sol87    1987    only    -    Jun    6    11:58:30s 0:01:30 -
  19851. + Rule    sol87    1987    only    -    Jun    7    11:58:40s 0:01:20 -
  19852. + Rule    sol87    1987    only    -    Jun    8    11:58:50s 0:01:10 -
  19853. + Rule    sol87    1987    only    -    Jun    9    11:59:05s 0:00:55 -
  19854. + Rule    sol87    1987    only    -    Jun    10    11:59:15s 0:00:45 -
  19855. + Rule    sol87    1987    only    -    Jun    11    11:59:30s 0:00:30 -
  19856. + Rule    sol87    1987    only    -    Jun    12    11:59:40s 0:00:20 -
  19857. + Rule    sol87    1987    only    -    Jun    13    11:59:50s 0:00:10 -
  19858. + Rule    sol87    1987    only    -    Jun    14    12:00:05s -0:00:05 -
  19859. + Rule    sol87    1987    only    -    Jun    15    12:00:15s -0:00:15 -
  19860. + Rule    sol87    1987    only    -    Jun    16    12:00:30s -0:00:30 -
  19861. + Rule    sol87    1987    only    -    Jun    17    12:00:45s -0:00:45 -
  19862. + Rule    sol87    1987    only    -    Jun    18    12:00:55s -0:00:55 -
  19863. + Rule    sol87    1987    only    -    Jun    19    12:01:10s -0:01:10 -
  19864. + Rule    sol87    1987    only    -    Jun    20    12:01:20s -0:01:20 -
  19865. + Rule    sol87    1987    only    -    Jun    21    12:01:35s -0:01:35 -
  19866. + Rule    sol87    1987    only    -    Jun    22    12:01:50s -0:01:50 -
  19867. + Rule    sol87    1987    only    -    Jun    23    12:02:00s -0:02:00 -
  19868. + Rule    sol87    1987    only    -    Jun    24    12:02:15s -0:02:15 -
  19869. + Rule    sol87    1987    only    -    Jun    25    12:02:25s -0:02:25 -
  19870. + Rule    sol87    1987    only    -    Jun    26    12:02:40s -0:02:40 -
  19871. + Rule    sol87    1987    only    -    Jun    27    12:02:50s -0:02:50 -
  19872. + Rule    sol87    1987    only    -    Jun    28    12:03:05s -0:03:05 -
  19873. + Rule    sol87    1987    only    -    Jun    29    12:03:15s -0:03:15 -
  19874. + Rule    sol87    1987    only    -    Jun    30    12:03:30s -0:03:30 -
  19875. + Rule    sol87    1987    only    -    Jul    1    12:03:40s -0:03:40 -
  19876. + Rule    sol87    1987    only    -    Jul    2    12:03:50s -0:03:50 -
  19877. + Rule    sol87    1987    only    -    Jul    3    12:04:05s -0:04:05 -
  19878. + Rule    sol87    1987    only    -    Jul    4    12:04:15s -0:04:15 -
  19879. + Rule    sol87    1987    only    -    Jul    5    12:04:25s -0:04:25 -
  19880. + Rule    sol87    1987    only    -    Jul    6    12:04:35s -0:04:35 -
  19881. + Rule    sol87    1987    only    -    Jul    7    12:04:45s -0:04:45 -
  19882. + Rule    sol87    1987    only    -    Jul    8    12:04:55s -0:04:55 -
  19883. + Rule    sol87    1987    only    -    Jul    9    12:05:05s -0:05:05 -
  19884. + Rule    sol87    1987    only    -    Jul    10    12:05:15s -0:05:15 -
  19885. + Rule    sol87    1987    only    -    Jul    11    12:05:20s -0:05:20 -
  19886. + Rule    sol87    1987    only    -    Jul    12    12:05:30s -0:05:30 -
  19887. + Rule    sol87    1987    only    -    Jul    13    12:05:40s -0:05:40 -
  19888. + Rule    sol87    1987    only    -    Jul    14    12:05:45s -0:05:45 -
  19889. + Rule    sol87    1987    only    -    Jul    15    12:05:50s -0:05:50 -
  19890. + Rule    sol87    1987    only    -    Jul    16    12:06:00s -0:06:00 -
  19891. + Rule    sol87    1987    only    -    Jul    17    12:06:05s -0:06:05 -
  19892. + Rule    sol87    1987    only    -    Jul    18    12:06:10s -0:06:10 -
  19893. + Rule    sol87    1987    only    -    Jul    19    12:06:15s -0:06:15 -
  19894. + Rule    sol87    1987    only    -    Jul    20    12:06:15s -0:06:15 -
  19895. + Rule    sol87    1987    only    -    Jul    21    12:06:20s -0:06:20 -
  19896. + Rule    sol87    1987    only    -    Jul    22    12:06:25s -0:06:25 -
  19897. + Rule    sol87    1987    only    -    Jul    23    12:06:25s -0:06:25 -
  19898. + Rule    sol87    1987    only    -    Jul    24    12:06:25s -0:06:25 -
  19899. + Rule    sol87    1987    only    -    Jul    25    12:06:30s -0:06:30 -
  19900. + Rule    sol87    1987    only    -    Jul    26    12:06:30s -0:06:30 -
  19901. + Rule    sol87    1987    only    -    Jul    27    12:06:30s -0:06:30 -
  19902. + Rule    sol87    1987    only    -    Jul    28    12:06:30s -0:06:30 -
  19903. + Rule    sol87    1987    only    -    Jul    29    12:06:25s -0:06:25 -
  19904. + Rule    sol87    1987    only    -    Jul    30    12:06:25s -0:06:25 -
  19905. + Rule    sol87    1987    only    -    Jul    31    12:06:25s -0:06:25 -
  19906. + Rule    sol87    1987    only    -    Aug    1    12:06:20s -0:06:20 -
  19907. + Rule    sol87    1987    only    -    Aug    2    12:06:15s -0:06:15 -
  19908. + Rule    sol87    1987    only    -    Aug    3    12:06:10s -0:06:10 -
  19909. + Rule    sol87    1987    only    -    Aug    4    12:06:05s -0:06:05 -
  19910. + Rule    sol87    1987    only    -    Aug    5    12:06:00s -0:06:00 -
  19911. + Rule    sol87    1987    only    -    Aug    6    12:05:55s -0:05:55 -
  19912. + Rule    sol87    1987    only    -    Aug    7    12:05:50s -0:05:50 -
  19913. + Rule    sol87    1987    only    -    Aug    8    12:05:40s -0:05:40 -
  19914. + Rule    sol87    1987    only    -    Aug    9    12:05:35s -0:05:35 -
  19915. + Rule    sol87    1987    only    -    Aug    10    12:05:25s -0:05:25 -
  19916. + Rule    sol87    1987    only    -    Aug    11    12:05:15s -0:05:15 -
  19917. + Rule    sol87    1987    only    -    Aug    12    12:05:05s -0:05:05 -
  19918. + Rule    sol87    1987    only    -    Aug    13    12:04:55s -0:04:55 -
  19919. + Rule    sol87    1987    only    -    Aug    14    12:04:45s -0:04:45 -
  19920. + Rule    sol87    1987    only    -    Aug    15    12:04:35s -0:04:35 -
  19921. + Rule    sol87    1987    only    -    Aug    16    12:04:25s -0:04:25 -
  19922. + Rule    sol87    1987    only    -    Aug    17    12:04:10s -0:04:10 -
  19923. + Rule    sol87    1987    only    -    Aug    18    12:04:00s -0:04:00 -
  19924. + Rule    sol87    1987    only    -    Aug    19    12:03:45s -0:03:45 -
  19925. + Rule    sol87    1987    only    -    Aug    20    12:03:30s -0:03:30 -
  19926. + Rule    sol87    1987    only    -    Aug    21    12:03:15s -0:03:15 -
  19927. + Rule    sol87    1987    only    -    Aug    22    12:03:00s -0:03:00 -
  19928. + Rule    sol87    1987    only    -    Aug    23    12:02:45s -0:02:45 -
  19929. + Rule    sol87    1987    only    -    Aug    24    12:02:30s -0:02:30 -
  19930. + Rule    sol87    1987    only    -    Aug    25    12:02:15s -0:02:15 -
  19931. + Rule    sol87    1987    only    -    Aug    26    12:02:00s -0:02:00 -
  19932. + Rule    sol87    1987    only    -    Aug    27    12:01:40s -0:01:40 -
  19933. + Rule    sol87    1987    only    -    Aug    28    12:01:25s -0:01:25 -
  19934. + Rule    sol87    1987    only    -    Aug    29    12:01:05s -0:01:05 -
  19935. + Rule    sol87    1987    only    -    Aug    30    12:00:50s -0:00:50 -
  19936. + Rule    sol87    1987    only    -    Aug    31    12:00:30s -0:00:30 -
  19937. + Rule    sol87    1987    only    -    Sep    1    12:00:10s -0:00:10 -
  19938. + Rule    sol87    1987    only    -    Sep    2    11:59:50s 0:00:10 -
  19939. + Rule    sol87    1987    only    -    Sep    3    11:59:35s 0:00:25 -
  19940. + Rule    sol87    1987    only    -    Sep    4    11:59:15s 0:00:45 -
  19941. + Rule    sol87    1987    only    -    Sep    5    11:58:55s 0:01:05 -
  19942. + Rule    sol87    1987    only    -    Sep    6    11:58:35s 0:01:25 -
  19943. + Rule    sol87    1987    only    -    Sep    7    11:58:15s 0:01:45 -
  19944. + Rule    sol87    1987    only    -    Sep    8    11:57:55s 0:02:05 -
  19945. + Rule    sol87    1987    only    -    Sep    9    11:57:30s 0:02:30 -
  19946. + Rule    sol87    1987    only    -    Sep    10    11:57:10s 0:02:50 -
  19947. + Rule    sol87    1987    only    -    Sep    11    11:56:50s 0:03:10 -
  19948. + Rule    sol87    1987    only    -    Sep    12    11:56:30s 0:03:30 -
  19949. + Rule    sol87    1987    only    -    Sep    13    11:56:10s 0:03:50 -
  19950. + Rule    sol87    1987    only    -    Sep    14    11:55:45s 0:04:15 -
  19951. + Rule    sol87    1987    only    -    Sep    15    11:55:25s 0:04:35 -
  19952. + Rule    sol87    1987    only    -    Sep    16    11:55:05s 0:04:55 -
  19953. + Rule    sol87    1987    only    -    Sep    17    11:54:45s 0:05:15 -
  19954. + Rule    sol87    1987    only    -    Sep    18    11:54:20s 0:05:40 -
  19955. + Rule    sol87    1987    only    -    Sep    19    11:54:00s 0:06:00 -
  19956. + Rule    sol87    1987    only    -    Sep    20    11:53:40s 0:06:20 -
  19957. + Rule    sol87    1987    only    -    Sep    21    11:53:15s 0:06:45 -
  19958. + Rule    sol87    1987    only    -    Sep    22    11:52:55s 0:07:05 -
  19959. + Rule    sol87    1987    only    -    Sep    23    11:52:35s 0:07:25 -
  19960. + Rule    sol87    1987    only    -    Sep    24    11:52:15s 0:07:45 -
  19961. + Rule    sol87    1987    only    -    Sep    25    11:51:55s 0:08:05 -
  19962. + Rule    sol87    1987    only    -    Sep    26    11:51:35s 0:08:25 -
  19963. + Rule    sol87    1987    only    -    Sep    27    11:51:10s 0:08:50 -
  19964. + Rule    sol87    1987    only    -    Sep    28    11:50:50s 0:09:10 -
  19965. + Rule    sol87    1987    only    -    Sep    29    11:50:30s 0:09:30 -
  19966. + Rule    sol87    1987    only    -    Sep    30    11:50:10s 0:09:50 -
  19967. + Rule    sol87    1987    only    -    Oct    1    11:49:50s 0:10:10 -
  19968. + Rule    sol87    1987    only    -    Oct    2    11:49:35s 0:10:25 -
  19969. + Rule    sol87    1987    only    -    Oct    3    11:49:15s 0:10:45 -
  19970. + Rule    sol87    1987    only    -    Oct    4    11:48:55s 0:11:05 -
  19971. + Rule    sol87    1987    only    -    Oct    5    11:48:35s 0:11:25 -
  19972. + Rule    sol87    1987    only    -    Oct    6    11:48:20s 0:11:40 -
  19973. + Rule    sol87    1987    only    -    Oct    7    11:48:00s 0:12:00 -
  19974. + Rule    sol87    1987    only    -    Oct    8    11:47:45s 0:12:15 -
  19975. + Rule    sol87    1987    only    -    Oct    9    11:47:25s 0:12:35 -
  19976. + Rule    sol87    1987    only    -    Oct    10    11:47:10s 0:12:50 -
  19977. + Rule    sol87    1987    only    -    Oct    11    11:46:55s 0:13:05 -
  19978. + Rule    sol87    1987    only    -    Oct    12    11:46:40s 0:13:20 -
  19979. + Rule    sol87    1987    only    -    Oct    13    11:46:25s 0:13:35 -
  19980. + Rule    sol87    1987    only    -    Oct    14    11:46:10s 0:13:50 -
  19981. + Rule    sol87    1987    only    -    Oct    15    11:45:55s 0:14:05 -
  19982. + Rule    sol87    1987    only    -    Oct    16    11:45:45s 0:14:15 -
  19983. + Rule    sol87    1987    only    -    Oct    17    11:45:30s 0:14:30 -
  19984. + Rule    sol87    1987    only    -    Oct    18    11:45:20s 0:14:40 -
  19985. + Rule    sol87    1987    only    -    Oct    19    11:45:05s 0:14:55 -
  19986. + Rule    sol87    1987    only    -    Oct    20    11:44:55s 0:15:05 -
  19987. + Rule    sol87    1987    only    -    Oct    21    11:44:45s 0:15:15 -
  19988. + Rule    sol87    1987    only    -    Oct    22    11:44:35s 0:15:25 -
  19989. + Rule    sol87    1987    only    -    Oct    23    11:44:25s 0:15:35 -
  19990. + Rule    sol87    1987    only    -    Oct    24    11:44:20s 0:15:40 -
  19991. + Rule    sol87    1987    only    -    Oct    25    11:44:10s 0:15:50 -
  19992. + Rule    sol87    1987    only    -    Oct    26    11:44:05s 0:15:55 -
  19993. + Rule    sol87    1987    only    -    Oct    27    11:43:55s 0:16:05 -
  19994. + Rule    sol87    1987    only    -    Oct    28    11:43:50s 0:16:10 -
  19995. + Rule    sol87    1987    only    -    Oct    29    11:43:45s 0:16:15 -
  19996. + Rule    sol87    1987    only    -    Oct    30    11:43:45s 0:16:15 -
  19997. + Rule    sol87    1987    only    -    Oct    31    11:43:40s 0:16:20 -
  19998. + Rule    sol87    1987    only    -    Nov    1    11:43:40s 0:16:20 -
  19999. + Rule    sol87    1987    only    -    Nov    2    11:43:35s 0:16:25 -
  20000. + Rule    sol87    1987    only    -    Nov    3    11:43:35s 0:16:25 -
  20001. + Rule    sol87    1987    only    -    Nov    4    11:43:35s 0:16:25 -
  20002. + Rule    sol87    1987    only    -    Nov    5    11:43:35s 0:16:25 -
  20003. + Rule    sol87    1987    only    -    Nov    6    11:43:40s 0:16:20 -
  20004. + Rule    sol87    1987    only    -    Nov    7    11:43:40s 0:16:20 -
  20005. + Rule    sol87    1987    only    -    Nov    8    11:43:45s 0:16:15 -
  20006. + Rule    sol87    1987    only    -    Nov    9    11:43:50s 0:16:10 -
  20007. + Rule    sol87    1987    only    -    Nov    10    11:43:55s 0:16:05 -
  20008. + Rule    sol87    1987    only    -    Nov    11    11:44:00s 0:16:00 -
  20009. + Rule    sol87    1987    only    -    Nov    12    11:44:05s 0:15:55 -
  20010. + Rule    sol87    1987    only    -    Nov    13    11:44:15s 0:15:45 -
  20011. + Rule    sol87    1987    only    -    Nov    14    11:44:20s 0:15:40 -
  20012. + Rule    sol87    1987    only    -    Nov    15    11:44:30s 0:15:30 -
  20013. + Rule    sol87    1987    only    -    Nov    16    11:44:40s 0:15:20 -
  20014. + Rule    sol87    1987    only    -    Nov    17    11:44:50s 0:15:10 -
  20015. + Rule    sol87    1987    only    -    Nov    18    11:45:05s 0:14:55 -
  20016. + Rule    sol87    1987    only    -    Nov    19    11:45:15s 0:14:45 -
  20017. + Rule    sol87    1987    only    -    Nov    20    11:45:30s 0:14:30 -
  20018. + Rule    sol87    1987    only    -    Nov    21    11:45:45s 0:14:15 -
  20019. + Rule    sol87    1987    only    -    Nov    22    11:46:00s 0:14:00 -
  20020. + Rule    sol87    1987    only    -    Nov    23    11:46:15s 0:13:45 -
  20021. + Rule    sol87    1987    only    -    Nov    24    11:46:30s 0:13:30 -
  20022. + Rule    sol87    1987    only    -    Nov    25    11:46:50s 0:13:10 -
  20023. + Rule    sol87    1987    only    -    Nov    26    11:47:10s 0:12:50 -
  20024. + Rule    sol87    1987    only    -    Nov    27    11:47:25s 0:12:35 -
  20025. + Rule    sol87    1987    only    -    Nov    28    11:47:45s 0:12:15 -
  20026. + Rule    sol87    1987    only    -    Nov    29    11:48:05s 0:11:55 -
  20027. + Rule    sol87    1987    only    -    Nov    30    11:48:30s 0:11:30 -
  20028. + Rule    sol87    1987    only    -    Dec    1    11:48:50s 0:11:10 -
  20029. + Rule    sol87    1987    only    -    Dec    2    11:49:10s 0:10:50 -
  20030. + Rule    sol87    1987    only    -    Dec    3    11:49:35s 0:10:25 -
  20031. + Rule    sol87    1987    only    -    Dec    4    11:50:00s 0:10:00 -
  20032. + Rule    sol87    1987    only    -    Dec    5    11:50:25s 0:09:35 -
  20033. + Rule    sol87    1987    only    -    Dec    6    11:50:50s 0:09:10 -
  20034. + Rule    sol87    1987    only    -    Dec    7    11:51:15s 0:08:45 -
  20035. + Rule    sol87    1987    only    -    Dec    8    11:51:40s 0:08:20 -
  20036. + Rule    sol87    1987    only    -    Dec    9    11:52:05s 0:07:55 -
  20037. + Rule    sol87    1987    only    -    Dec    10    11:52:30s 0:07:30 -
  20038. + Rule    sol87    1987    only    -    Dec    11    11:53:00s 0:07:00 -
  20039. + Rule    sol87    1987    only    -    Dec    12    11:53:25s 0:06:35 -
  20040. + Rule    sol87    1987    only    -    Dec    13    11:53:55s 0:06:05 -
  20041. + Rule    sol87    1987    only    -    Dec    14    11:54:25s 0:05:35 -
  20042. + Rule    sol87    1987    only    -    Dec    15    11:54:50s 0:05:10 -
  20043. + Rule    sol87    1987    only    -    Dec    16    11:55:20s 0:04:40 -
  20044. + Rule    sol87    1987    only    -    Dec    17    11:55:50s 0:04:10 -
  20045. + Rule    sol87    1987    only    -    Dec    18    11:56:20s 0:03:40 -
  20046. + Rule    sol87    1987    only    -    Dec    19    11:56:50s 0:03:10 -
  20047. + Rule    sol87    1987    only    -    Dec    20    11:57:20s 0:02:40 -
  20048. + Rule    sol87    1987    only    -    Dec    21    11:57:50s 0:02:10 -
  20049. + Rule    sol87    1987    only    -    Dec    22    11:58:20s 0:01:40 -
  20050. + Rule    sol87    1987    only    -    Dec    23    11:58:50s 0:01:10 -
  20051. + Rule    sol87    1987    only    -    Dec    24    11:59:20s 0:00:40 -
  20052. + Rule    sol87    1987    only    -    Dec    25    11:59:50s 0:00:10 -
  20053. + Rule    sol87    1987    only    -    Dec    26    12:00:20s -0:00:20 -
  20054. + Rule    sol87    1987    only    -    Dec    27    12:00:45s -0:00:45 -
  20055. + Rule    sol87    1987    only    -    Dec    28    12:01:15s -0:01:15 -
  20056. + Rule    sol87    1987    only    -    Dec    29    12:01:45s -0:01:45 -
  20057. + Rule    sol87    1987    only    -    Dec    30    12:02:15s -0:02:15 -
  20058. + Rule    sol87    1987    only    -    Dec    31    12:02:45s -0:02:45 -
  20059. + 
  20060. + # Riyadh is at about 46 degrees 46 minutes East:  3 hrs, 7 mins, 4 secs
  20061. + # Before and after 1987, we'll operate on local mean solar time.
  20062. + 
  20063. + # Zone    NAME            GMTOFF    RULES/SAVE    FORMAT    [UNTIL]
  20064. + Zone    Mideast/Riyadh87    3:07:04    -        ??    1987
  20065. +                 3:07:04    sol87        ??    1988
  20066. +                 3:07:04    -        ??
  20067. diff -rc --new-file emacs-18.59/amiga/unix/src/zoneinfo/datfiles/solar88 /gnu/src/amiga/emacs-18.59/amiga/unix/src/zoneinfo/datfiles/solar88
  20068. *** emacs-18.59/amiga/unix/src/zoneinfo/datfiles/solar88    Thu Jan  1 00:00:00 1970
  20069. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/zoneinfo/datfiles/solar88    Sat Aug  1 14:24:16 1992
  20070. ***************
  20071. *** 0 ****
  20072. --- 1,386 ----
  20073. + # @(#)solar88    4.2
  20074. + 
  20075. + # Apparent noon times below are for Riyadh; they're a bit off for other places.
  20076. + # Times were computed using formulas in the U.S. Naval Observatory's
  20077. + # Almanac for Computers 1988; the formulas "will give EqT to an accuracy of
  20078. + # [plus or minus two] seconds during the current year."
  20079. + #
  20080. + # Rounding to the nearest five seconds results in fewer than
  20081. + # 256 different "time types"--a limit that's faced because time types are
  20082. + # stored on disk as unsigned chars.
  20083. + 
  20084. + # Rule    NAME    FROM    TO    TYPE    IN    ON    AT    SAVE    LETTER/S
  20085. + Rule    sol88    1988    only    -    Jan    1    12:03:15s -0:03:15 -
  20086. + Rule    sol88    1988    only    -    Jan    2    12:03:40s -0:03:40 -
  20087. + Rule    sol88    1988    only    -    Jan    3    12:04:10s -0:04:10 -
  20088. + Rule    sol88    1988    only    -    Jan    4    12:04:40s -0:04:40 -
  20089. + Rule    sol88    1988    only    -    Jan    5    12:05:05s -0:05:05 -
  20090. + Rule    sol88    1988    only    -    Jan    6    12:05:30s -0:05:30 -
  20091. + Rule    sol88    1988    only    -    Jan    7    12:06:00s -0:06:00 -
  20092. + Rule    sol88    1988    only    -    Jan    8    12:06:25s -0:06:25 -
  20093. + Rule    sol88    1988    only    -    Jan    9    12:06:50s -0:06:50 -
  20094. + Rule    sol88    1988    only    -    Jan    10    12:07:15s -0:07:15 -
  20095. + Rule    sol88    1988    only    -    Jan    11    12:07:40s -0:07:40 -
  20096. + Rule    sol88    1988    only    -    Jan    12    12:08:05s -0:08:05 -
  20097. + Rule    sol88    1988    only    -    Jan    13    12:08:25s -0:08:25 -
  20098. + Rule    sol88    1988    only    -    Jan    14    12:08:50s -0:08:50 -
  20099. + Rule    sol88    1988    only    -    Jan    15    12:09:10s -0:09:10 -
  20100. + Rule    sol88    1988    only    -    Jan    16    12:09:30s -0:09:30 -
  20101. + Rule    sol88    1988    only    -    Jan    17    12:09:50s -0:09:50 -
  20102. + Rule    sol88    1988    only    -    Jan    18    12:10:10s -0:10:10 -
  20103. + Rule    sol88    1988    only    -    Jan    19    12:10:30s -0:10:30 -
  20104. + Rule    sol88    1988    only    -    Jan    20    12:10:50s -0:10:50 -
  20105. + Rule    sol88    1988    only    -    Jan    21    12:11:05s -0:11:05 -
  20106. + Rule    sol88    1988    only    -    Jan    22    12:11:25s -0:11:25 -
  20107. + Rule    sol88    1988    only    -    Jan    23    12:11:40s -0:11:40 -
  20108. + Rule    sol88    1988    only    -    Jan    24    12:11:55s -0:11:55 -
  20109. + Rule    sol88    1988    only    -    Jan    25    12:12:10s -0:12:10 -
  20110. + Rule    sol88    1988    only    -    Jan    26    12:12:25s -0:12:25 -
  20111. + Rule    sol88    1988    only    -    Jan    27    12:12:40s -0:12:40 -
  20112. + Rule    sol88    1988    only    -    Jan    28    12:12:50s -0:12:50 -
  20113. + Rule    sol88    1988    only    -    Jan    29    12:13:00s -0:13:00 -
  20114. + Rule    sol88    1988    only    -    Jan    30    12:13:10s -0:13:10 -
  20115. + Rule    sol88    1988    only    -    Jan    31    12:13:20s -0:13:20 -
  20116. + Rule    sol88    1988    only    -    Feb    1    12:13:30s -0:13:30 -
  20117. + Rule    sol88    1988    only    -    Feb    2    12:13:40s -0:13:40 -
  20118. + Rule    sol88    1988    only    -    Feb    3    12:13:45s -0:13:45 -
  20119. + Rule    sol88    1988    only    -    Feb    4    12:13:55s -0:13:55 -
  20120. + Rule    sol88    1988    only    -    Feb    5    12:14:00s -0:14:00 -
  20121. + Rule    sol88    1988    only    -    Feb    6    12:14:05s -0:14:05 -
  20122. + Rule    sol88    1988    only    -    Feb    7    12:14:10s -0:14:10 -
  20123. + Rule    sol88    1988    only    -    Feb    8    12:14:10s -0:14:10 -
  20124. + Rule    sol88    1988    only    -    Feb    9    12:14:15s -0:14:15 -
  20125. + Rule    sol88    1988    only    -    Feb    10    12:14:15s -0:14:15 -
  20126. + Rule    sol88    1988    only    -    Feb    11    12:14:15s -0:14:15 -
  20127. + Rule    sol88    1988    only    -    Feb    12    12:14:15s -0:14:15 -
  20128. + Rule    sol88    1988    only    -    Feb    13    12:14:15s -0:14:15 -
  20129. + Rule    sol88    1988    only    -    Feb    14    12:14:15s -0:14:15 -
  20130. + Rule    sol88    1988    only    -    Feb    15    12:14:10s -0:14:10 -
  20131. + Rule    sol88    1988    only    -    Feb    16    12:14:10s -0:14:10 -
  20132. + Rule    sol88    1988    only    -    Feb    17    12:14:05s -0:14:05 -
  20133. + Rule    sol88    1988    only    -    Feb    18    12:14:00s -0:14:00 -
  20134. + Rule    sol88    1988    only    -    Feb    19    12:13:55s -0:13:55 -
  20135. + Rule    sol88    1988    only    -    Feb    20    12:13:50s -0:13:50 -
  20136. + Rule    sol88    1988    only    -    Feb    21    12:13:45s -0:13:45 -
  20137. + Rule    sol88    1988    only    -    Feb    22    12:13:40s -0:13:40 -
  20138. + Rule    sol88    1988    only    -    Feb    23    12:13:30s -0:13:30 -
  20139. + Rule    sol88    1988    only    -    Feb    24    12:13:20s -0:13:20 -
  20140. + Rule    sol88    1988    only    -    Feb    25    12:13:15s -0:13:15 -
  20141. + Rule    sol88    1988    only    -    Feb    26    12:13:05s -0:13:05 -
  20142. + Rule    sol88    1988    only    -    Feb    27    12:12:55s -0:12:55 -
  20143. + Rule    sol88    1988    only    -    Feb    28    12:12:45s -0:12:45 -
  20144. + Rule    sol88    1988    only    -    Feb    29    12:12:30s -0:12:30 -
  20145. + Rule    sol88    1988    only    -    Mar    1    12:12:20s -0:12:20 -
  20146. + Rule    sol88    1988    only    -    Mar    2    12:12:10s -0:12:10 -
  20147. + Rule    sol88    1988    only    -    Mar    3    12:11:55s -0:11:55 -
  20148. + Rule    sol88    1988    only    -    Mar    4    12:11:45s -0:11:45 -
  20149. + Rule    sol88    1988    only    -    Mar    5    12:11:30s -0:11:30 -
  20150. + Rule    sol88    1988    only    -    Mar    6    12:11:15s -0:11:15 -
  20151. + Rule    sol88    1988    only    -    Mar    7    12:11:00s -0:11:00 -
  20152. + Rule    sol88    1988    only    -    Mar    8    12:10:45s -0:10:45 -
  20153. + Rule    sol88    1988    only    -    Mar    9    12:10:30s -0:10:30 -
  20154. + Rule    sol88    1988    only    -    Mar    10    12:10:15s -0:10:15 -
  20155. + Rule    sol88    1988    only    -    Mar    11    12:10:00s -0:10:00 -
  20156. + Rule    sol88    1988    only    -    Mar    12    12:09:45s -0:09:45 -
  20157. + Rule    sol88    1988    only    -    Mar    13    12:09:30s -0:09:30 -
  20158. + Rule    sol88    1988    only    -    Mar    14    12:09:10s -0:09:10 -
  20159. + Rule    sol88    1988    only    -    Mar    15    12:08:55s -0:08:55 -
  20160. + Rule    sol88    1988    only    -    Mar    16    12:08:40s -0:08:40 -
  20161. + Rule    sol88    1988    only    -    Mar    17    12:08:20s -0:08:20 -
  20162. + Rule    sol88    1988    only    -    Mar    18    12:08:05s -0:08:05 -
  20163. + Rule    sol88    1988    only    -    Mar    19    12:07:45s -0:07:45 -
  20164. + Rule    sol88    1988    only    -    Mar    20    12:07:30s -0:07:30 -
  20165. + Rule    sol88    1988    only    -    Mar    21    12:07:10s -0:07:10 -
  20166. + Rule    sol88    1988    only    -    Mar    22    12:06:50s -0:06:50 -
  20167. + Rule    sol88    1988    only    -    Mar    23    12:06:35s -0:06:35 -
  20168. + Rule    sol88    1988    only    -    Mar    24    12:06:15s -0:06:15 -
  20169. + Rule    sol88    1988    only    -    Mar    25    12:06:00s -0:06:00 -
  20170. + Rule    sol88    1988    only    -    Mar    26    12:05:40s -0:05:40 -
  20171. + Rule    sol88    1988    only    -    Mar    27    12:05:20s -0:05:20 -
  20172. + Rule    sol88    1988    only    -    Mar    28    12:05:05s -0:05:05 -
  20173. + Rule    sol88    1988    only    -    Mar    29    12:04:45s -0:04:45 -
  20174. + Rule    sol88    1988    only    -    Mar    30    12:04:25s -0:04:25 -
  20175. + Rule    sol88    1988    only    -    Mar    31    12:04:10s -0:04:10 -
  20176. + Rule    sol88    1988    only    -    Apr    1    12:03:50s -0:03:50 -
  20177. + Rule    sol88    1988    only    -    Apr    2    12:03:35s -0:03:35 -
  20178. + Rule    sol88    1988    only    -    Apr    3    12:03:15s -0:03:15 -
  20179. + Rule    sol88    1988    only    -    Apr    4    12:03:00s -0:03:00 -
  20180. + Rule    sol88    1988    only    -    Apr    5    12:02:40s -0:02:40 -
  20181. + Rule    sol88    1988    only    -    Apr    6    12:02:25s -0:02:25 -
  20182. + Rule    sol88    1988    only    -    Apr    7    12:02:05s -0:02:05 -
  20183. + Rule    sol88    1988    only    -    Apr    8    12:01:50s -0:01:50 -
  20184. + Rule    sol88    1988    only    -    Apr    9    12:01:35s -0:01:35 -
  20185. + Rule    sol88    1988    only    -    Apr    10    12:01:15s -0:01:15 -
  20186. + Rule    sol88    1988    only    -    Apr    11    12:01:00s -0:01:00 -
  20187. + Rule    sol88    1988    only    -    Apr    12    12:00:45s -0:00:45 -
  20188. + Rule    sol88    1988    only    -    Apr    13    12:00:30s -0:00:30 -
  20189. + Rule    sol88    1988    only    -    Apr    14    12:00:15s -0:00:15 -
  20190. + Rule    sol88    1988    only    -    Apr    15    12:00:00s 0:00:00 -
  20191. + Rule    sol88    1988    only    -    Apr    16    11:59:45s 0:00:15 -
  20192. + Rule    sol88    1988    only    -    Apr    17    11:59:30s 0:00:30 -
  20193. + Rule    sol88    1988    only    -    Apr    18    11:59:20s 0:00:40 -
  20194. + Rule    sol88    1988    only    -    Apr    19    11:59:05s 0:00:55 -
  20195. + Rule    sol88    1988    only    -    Apr    20    11:58:55s 0:01:05 -
  20196. + Rule    sol88    1988    only    -    Apr    21    11:58:40s 0:01:20 -
  20197. + Rule    sol88    1988    only    -    Apr    22    11:58:30s 0:01:30 -
  20198. + Rule    sol88    1988    only    -    Apr    23    11:58:15s 0:01:45 -
  20199. + Rule    sol88    1988    only    -    Apr    24    11:58:05s 0:01:55 -
  20200. + Rule    sol88    1988    only    -    Apr    25    11:57:55s 0:02:05 -
  20201. + Rule    sol88    1988    only    -    Apr    26    11:57:45s 0:02:15 -
  20202. + Rule    sol88    1988    only    -    Apr    27    11:57:35s 0:02:25 -
  20203. + Rule    sol88    1988    only    -    Apr    28    11:57:30s 0:02:30 -
  20204. + Rule    sol88    1988    only    -    Apr    29    11:57:20s 0:02:40 -
  20205. + Rule    sol88    1988    only    -    Apr    30    11:57:10s 0:02:50 -
  20206. + Rule    sol88    1988    only    -    May    1    11:57:05s 0:02:55 -
  20207. + Rule    sol88    1988    only    -    May    2    11:56:55s 0:03:05 -
  20208. + Rule    sol88    1988    only    -    May    3    11:56:50s 0:03:10 -
  20209. + Rule    sol88    1988    only    -    May    4    11:56:45s 0:03:15 -
  20210. + Rule    sol88    1988    only    -    May    5    11:56:40s 0:03:20 -
  20211. + Rule    sol88    1988    only    -    May    6    11:56:35s 0:03:25 -
  20212. + Rule    sol88    1988    only    -    May    7    11:56:30s 0:03:30 -
  20213. + Rule    sol88    1988    only    -    May    8    11:56:25s 0:03:35 -
  20214. + Rule    sol88    1988    only    -    May    9    11:56:25s 0:03:35 -
  20215. + Rule    sol88    1988    only    -    May    10    11:56:20s 0:03:40 -
  20216. + Rule    sol88    1988    only    -    May    11    11:56:20s 0:03:40 -
  20217. + Rule    sol88    1988    only    -    May    12    11:56:20s 0:03:40 -
  20218. + Rule    sol88    1988    only    -    May    13    11:56:20s 0:03:40 -
  20219. + Rule    sol88    1988    only    -    May    14    11:56:20s 0:03:40 -
  20220. + Rule    sol88    1988    only    -    May    15    11:56:20s 0:03:40 -
  20221. + Rule    sol88    1988    only    -    May    16    11:56:20s 0:03:40 -
  20222. + Rule    sol88    1988    only    -    May    17    11:56:20s 0:03:40 -
  20223. + Rule    sol88    1988    only    -    May    18    11:56:25s 0:03:35 -
  20224. + Rule    sol88    1988    only    -    May    19    11:56:25s 0:03:35 -
  20225. + Rule    sol88    1988    only    -    May    20    11:56:30s 0:03:30 -
  20226. + Rule    sol88    1988    only    -    May    21    11:56:35s 0:03:25 -
  20227. + Rule    sol88    1988    only    -    May    22    11:56:40s 0:03:20 -
  20228. + Rule    sol88    1988    only    -    May    23    11:56:45s 0:03:15 -
  20229. + Rule    sol88    1988    only    -    May    24    11:56:50s 0:03:10 -
  20230. + Rule    sol88    1988    only    -    May    25    11:56:55s 0:03:05 -
  20231. + Rule    sol88    1988    only    -    May    26    11:57:00s 0:03:00 -
  20232. + Rule    sol88    1988    only    -    May    27    11:57:05s 0:02:55 -
  20233. + Rule    sol88    1988    only    -    May    28    11:57:15s 0:02:45 -
  20234. + Rule    sol88    1988    only    -    May    29    11:57:20s 0:02:40 -
  20235. + Rule    sol88    1988    only    -    May    30    11:57:30s 0:02:30 -
  20236. + Rule    sol88    1988    only    -    May    31    11:57:40s 0:02:20 -
  20237. + Rule    sol88    1988    only    -    Jun    1    11:57:50s 0:02:10 -
  20238. + Rule    sol88    1988    only    -    Jun    2    11:57:55s 0:02:05 -
  20239. + Rule    sol88    1988    only    -    Jun    3    11:58:05s 0:01:55 -
  20240. + Rule    sol88    1988    only    -    Jun    4    11:58:15s 0:01:45 -
  20241. + Rule    sol88    1988    only    -    Jun    5    11:58:30s 0:01:30 -
  20242. + Rule    sol88    1988    only    -    Jun    6    11:58:40s 0:01:20 -
  20243. + Rule    sol88    1988    only    -    Jun    7    11:58:50s 0:01:10 -
  20244. + Rule    sol88    1988    only    -    Jun    8    11:59:00s 0:01:00 -
  20245. + Rule    sol88    1988    only    -    Jun    9    11:59:15s 0:00:45 -
  20246. + Rule    sol88    1988    only    -    Jun    10    11:59:25s 0:00:35 -
  20247. + Rule    sol88    1988    only    -    Jun    11    11:59:35s 0:00:25 -
  20248. + Rule    sol88    1988    only    -    Jun    12    11:59:50s 0:00:10 -
  20249. + Rule    sol88    1988    only    -    Jun    13    12:00:00s 0:00:00 -
  20250. + Rule    sol88    1988    only    -    Jun    14    12:00:15s -0:00:15 -
  20251. + Rule    sol88    1988    only    -    Jun    15    12:00:25s -0:00:25 -
  20252. + Rule    sol88    1988    only    -    Jun    16    12:00:40s -0:00:40 -
  20253. + Rule    sol88    1988    only    -    Jun    17    12:00:55s -0:00:55 -
  20254. + Rule    sol88    1988    only    -    Jun    18    12:01:05s -0:01:05 -
  20255. + Rule    sol88    1988    only    -    Jun    19    12:01:20s -0:01:20 -
  20256. + Rule    sol88    1988    only    -    Jun    20    12:01:30s -0:01:30 -
  20257. + Rule    sol88    1988    only    -    Jun    21    12:01:45s -0:01:45 -
  20258. + Rule    sol88    1988    only    -    Jun    22    12:02:00s -0:02:00 -
  20259. + Rule    sol88    1988    only    -    Jun    23    12:02:10s -0:02:10 -
  20260. + Rule    sol88    1988    only    -    Jun    24    12:02:25s -0:02:25 -
  20261. + Rule    sol88    1988    only    -    Jun    25    12:02:35s -0:02:35 -
  20262. + Rule    sol88    1988    only    -    Jun    26    12:02:50s -0:02:50 -
  20263. + Rule    sol88    1988    only    -    Jun    27    12:03:00s -0:03:00 -
  20264. + Rule    sol88    1988    only    -    Jun    28    12:03:15s -0:03:15 -
  20265. + Rule    sol88    1988    only    -    Jun    29    12:03:25s -0:03:25 -
  20266. + Rule    sol88    1988    only    -    Jun    30    12:03:40s -0:03:40 -
  20267. + Rule    sol88    1988    only    -    Jul    1    12:03:50s -0:03:50 -
  20268. + Rule    sol88    1988    only    -    Jul    2    12:04:00s -0:04:00 -
  20269. + Rule    sol88    1988    only    -    Jul    3    12:04:10s -0:04:10 -
  20270. + Rule    sol88    1988    only    -    Jul    4    12:04:25s -0:04:25 -
  20271. + Rule    sol88    1988    only    -    Jul    5    12:04:35s -0:04:35 -
  20272. + Rule    sol88    1988    only    -    Jul    6    12:04:45s -0:04:45 -
  20273. + Rule    sol88    1988    only    -    Jul    7    12:04:55s -0:04:55 -
  20274. + Rule    sol88    1988    only    -    Jul    8    12:05:05s -0:05:05 -
  20275. + Rule    sol88    1988    only    -    Jul    9    12:05:10s -0:05:10 -
  20276. + Rule    sol88    1988    only    -    Jul    10    12:05:20s -0:05:20 -
  20277. + Rule    sol88    1988    only    -    Jul    11    12:05:30s -0:05:30 -
  20278. + Rule    sol88    1988    only    -    Jul    12    12:05:35s -0:05:35 -
  20279. + Rule    sol88    1988    only    -    Jul    13    12:05:45s -0:05:45 -
  20280. + Rule    sol88    1988    only    -    Jul    14    12:05:50s -0:05:50 -
  20281. + Rule    sol88    1988    only    -    Jul    15    12:05:55s -0:05:55 -
  20282. + Rule    sol88    1988    only    -    Jul    16    12:06:00s -0:06:00 -
  20283. + Rule    sol88    1988    only    -    Jul    17    12:06:05s -0:06:05 -
  20284. + Rule    sol88    1988    only    -    Jul    18    12:06:10s -0:06:10 -
  20285. + Rule    sol88    1988    only    -    Jul    19    12:06:15s -0:06:15 -
  20286. + Rule    sol88    1988    only    -    Jul    20    12:06:20s -0:06:20 -
  20287. + Rule    sol88    1988    only    -    Jul    21    12:06:25s -0:06:25 -
  20288. + Rule    sol88    1988    only    -    Jul    22    12:06:25s -0:06:25 -
  20289. + Rule    sol88    1988    only    -    Jul    23    12:06:25s -0:06:25 -
  20290. + Rule    sol88    1988    only    -    Jul    24    12:06:30s -0:06:30 -
  20291. + Rule    sol88    1988    only    -    Jul    25    12:06:30s -0:06:30 -
  20292. + Rule    sol88    1988    only    -    Jul    26    12:06:30s -0:06:30 -
  20293. + Rule    sol88    1988    only    -    Jul    27    12:06:30s -0:06:30 -
  20294. + Rule    sol88    1988    only    -    Jul    28    12:06:30s -0:06:30 -
  20295. + Rule    sol88    1988    only    -    Jul    29    12:06:25s -0:06:25 -
  20296. + Rule    sol88    1988    only    -    Jul    30    12:06:25s -0:06:25 -
  20297. + Rule    sol88    1988    only    -    Jul    31    12:06:20s -0:06:20 -
  20298. + Rule    sol88    1988    only    -    Aug    1    12:06:15s -0:06:15 -
  20299. + Rule    sol88    1988    only    -    Aug    2    12:06:15s -0:06:15 -
  20300. + Rule    sol88    1988    only    -    Aug    3    12:06:10s -0:06:10 -
  20301. + Rule    sol88    1988    only    -    Aug    4    12:06:05s -0:06:05 -
  20302. + Rule    sol88    1988    only    -    Aug    5    12:05:55s -0:05:55 -
  20303. + Rule    sol88    1988    only    -    Aug    6    12:05:50s -0:05:50 -
  20304. + Rule    sol88    1988    only    -    Aug    7    12:05:45s -0:05:45 -
  20305. + Rule    sol88    1988    only    -    Aug    8    12:05:35s -0:05:35 -
  20306. + Rule    sol88    1988    only    -    Aug    9    12:05:25s -0:05:25 -
  20307. + Rule    sol88    1988    only    -    Aug    10    12:05:20s -0:05:20 -
  20308. + Rule    sol88    1988    only    -    Aug    11    12:05:10s -0:05:10 -
  20309. + Rule    sol88    1988    only    -    Aug    12    12:05:00s -0:05:00 -
  20310. + Rule    sol88    1988    only    -    Aug    13    12:04:50s -0:04:50 -
  20311. + Rule    sol88    1988    only    -    Aug    14    12:04:35s -0:04:35 -
  20312. + Rule    sol88    1988    only    -    Aug    15    12:04:25s -0:04:25 -
  20313. + Rule    sol88    1988    only    -    Aug    16    12:04:15s -0:04:15 -
  20314. + Rule    sol88    1988    only    -    Aug    17    12:04:00s -0:04:00 -
  20315. + Rule    sol88    1988    only    -    Aug    18    12:03:50s -0:03:50 -
  20316. + Rule    sol88    1988    only    -    Aug    19    12:03:35s -0:03:35 -
  20317. + Rule    sol88    1988    only    -    Aug    20    12:03:20s -0:03:20 -
  20318. + Rule    sol88    1988    only    -    Aug    21    12:03:05s -0:03:05 -
  20319. + Rule    sol88    1988    only    -    Aug    22    12:02:50s -0:02:50 -
  20320. + Rule    sol88    1988    only    -    Aug    23    12:02:35s -0:02:35 -
  20321. + Rule    sol88    1988    only    -    Aug    24    12:02:20s -0:02:20 -
  20322. + Rule    sol88    1988    only    -    Aug    25    12:02:00s -0:02:00 -
  20323. + Rule    sol88    1988    only    -    Aug    26    12:01:45s -0:01:45 -
  20324. + Rule    sol88    1988    only    -    Aug    27    12:01:30s -0:01:30 -
  20325. + Rule    sol88    1988    only    -    Aug    28    12:01:10s -0:01:10 -
  20326. + Rule    sol88    1988    only    -    Aug    29    12:00:50s -0:00:50 -
  20327. + Rule    sol88    1988    only    -    Aug    30    12:00:35s -0:00:35 -
  20328. + Rule    sol88    1988    only    -    Aug    31    12:00:15s -0:00:15 -
  20329. + Rule    sol88    1988    only    -    Sep    1    11:59:55s 0:00:05 -
  20330. + Rule    sol88    1988    only    -    Sep    2    11:59:35s 0:00:25 -
  20331. + Rule    sol88    1988    only    -    Sep    3    11:59:20s 0:00:40 -
  20332. + Rule    sol88    1988    only    -    Sep    4    11:59:00s 0:01:00 -
  20333. + Rule    sol88    1988    only    -    Sep    5    11:58:40s 0:01:20 -
  20334. + Rule    sol88    1988    only    -    Sep    6    11:58:20s 0:01:40 -
  20335. + Rule    sol88    1988    only    -    Sep    7    11:58:00s 0:02:00 -
  20336. + Rule    sol88    1988    only    -    Sep    8    11:57:35s 0:02:25 -
  20337. + Rule    sol88    1988    only    -    Sep    9    11:57:15s 0:02:45 -
  20338. + Rule    sol88    1988    only    -    Sep    10    11:56:55s 0:03:05 -
  20339. + Rule    sol88    1988    only    -    Sep    11    11:56:35s 0:03:25 -
  20340. + Rule    sol88    1988    only    -    Sep    12    11:56:15s 0:03:45 -
  20341. + Rule    sol88    1988    only    -    Sep    13    11:55:50s 0:04:10 -
  20342. + Rule    sol88    1988    only    -    Sep    14    11:55:30s 0:04:30 -
  20343. + Rule    sol88    1988    only    -    Sep    15    11:55:10s 0:04:50 -
  20344. + Rule    sol88    1988    only    -    Sep    16    11:54:50s 0:05:10 -
  20345. + Rule    sol88    1988    only    -    Sep    17    11:54:25s 0:05:35 -
  20346. + Rule    sol88    1988    only    -    Sep    18    11:54:05s 0:05:55 -
  20347. + Rule    sol88    1988    only    -    Sep    19    11:53:45s 0:06:15 -
  20348. + Rule    sol88    1988    only    -    Sep    20    11:53:25s 0:06:35 -
  20349. + Rule    sol88    1988    only    -    Sep    21    11:53:00s 0:07:00 -
  20350. + Rule    sol88    1988    only    -    Sep    22    11:52:40s 0:07:20 -
  20351. + Rule    sol88    1988    only    -    Sep    23    11:52:20s 0:07:40 -
  20352. + Rule    sol88    1988    only    -    Sep    24    11:52:00s 0:08:00 -
  20353. + Rule    sol88    1988    only    -    Sep    25    11:51:40s 0:08:20 -
  20354. + Rule    sol88    1988    only    -    Sep    26    11:51:15s 0:08:45 -
  20355. + Rule    sol88    1988    only    -    Sep    27    11:50:55s 0:09:05 -
  20356. + Rule    sol88    1988    only    -    Sep    28    11:50:35s 0:09:25 -
  20357. + Rule    sol88    1988    only    -    Sep    29    11:50:15s 0:09:45 -
  20358. + Rule    sol88    1988    only    -    Sep    30    11:49:55s 0:10:05 -
  20359. + Rule    sol88    1988    only    -    Oct    1    11:49:35s 0:10:25 -
  20360. + Rule    sol88    1988    only    -    Oct    2    11:49:20s 0:10:40 -
  20361. + Rule    sol88    1988    only    -    Oct    3    11:49:00s 0:11:00 -
  20362. + Rule    sol88    1988    only    -    Oct    4    11:48:40s 0:11:20 -
  20363. + Rule    sol88    1988    only    -    Oct    5    11:48:25s 0:11:35 -
  20364. + Rule    sol88    1988    only    -    Oct    6    11:48:05s 0:11:55 -
  20365. + Rule    sol88    1988    only    -    Oct    7    11:47:50s 0:12:10 -
  20366. + Rule    sol88    1988    only    -    Oct    8    11:47:30s 0:12:30 -
  20367. + Rule    sol88    1988    only    -    Oct    9    11:47:15s 0:12:45 -
  20368. + Rule    sol88    1988    only    -    Oct    10    11:47:00s 0:13:00 -
  20369. + Rule    sol88    1988    only    -    Oct    11    11:46:45s 0:13:15 -
  20370. + Rule    sol88    1988    only    -    Oct    12    11:46:30s 0:13:30 -
  20371. + Rule    sol88    1988    only    -    Oct    13    11:46:15s 0:13:45 -
  20372. + Rule    sol88    1988    only    -    Oct    14    11:46:00s 0:14:00 -
  20373. + Rule    sol88    1988    only    -    Oct    15    11:45:45s 0:14:15 -
  20374. + Rule    sol88    1988    only    -    Oct    16    11:45:35s 0:14:25 -
  20375. + Rule    sol88    1988    only    -    Oct    17    11:45:20s 0:14:40 -
  20376. + Rule    sol88    1988    only    -    Oct    18    11:45:10s 0:14:50 -
  20377. + Rule    sol88    1988    only    -    Oct    19    11:45:00s 0:15:00 -
  20378. + Rule    sol88    1988    only    -    Oct    20    11:44:45s 0:15:15 -
  20379. + Rule    sol88    1988    only    -    Oct    21    11:44:40s 0:15:20 -
  20380. + Rule    sol88    1988    only    -    Oct    22    11:44:30s 0:15:30 -
  20381. + Rule    sol88    1988    only    -    Oct    23    11:44:20s 0:15:40 -
  20382. + Rule    sol88    1988    only    -    Oct    24    11:44:10s 0:15:50 -
  20383. + Rule    sol88    1988    only    -    Oct    25    11:44:05s 0:15:55 -
  20384. + Rule    sol88    1988    only    -    Oct    26    11:44:00s 0:16:00 -
  20385. + Rule    sol88    1988    only    -    Oct    27    11:43:55s 0:16:05 -
  20386. + Rule    sol88    1988    only    -    Oct    28    11:43:50s 0:16:10 -
  20387. + Rule    sol88    1988    only    -    Oct    29    11:43:45s 0:16:15 -
  20388. + Rule    sol88    1988    only    -    Oct    30    11:43:40s 0:16:20 -
  20389. + Rule    sol88    1988    only    -    Oct    31    11:43:40s 0:16:20 -
  20390. + Rule    sol88    1988    only    -    Nov    1    11:43:35s 0:16:25 -
  20391. + Rule    sol88    1988    only    -    Nov    2    11:43:35s 0:16:25 -
  20392. + Rule    sol88    1988    only    -    Nov    3    11:43:35s 0:16:25 -
  20393. + Rule    sol88    1988    only    -    Nov    4    11:43:35s 0:16:25 -
  20394. + Rule    sol88    1988    only    -    Nov    5    11:43:40s 0:16:20 -
  20395. + Rule    sol88    1988    only    -    Nov    6    11:43:40s 0:16:20 -
  20396. + Rule    sol88    1988    only    -    Nov    7    11:43:45s 0:16:15 -
  20397. + Rule    sol88    1988    only    -    Nov    8    11:43:45s 0:16:15 -
  20398. + Rule    sol88    1988    only    -    Nov    9    11:43:50s 0:16:10 -
  20399. + Rule    sol88    1988    only    -    Nov    10    11:44:00s 0:16:00 -
  20400. + Rule    sol88    1988    only    -    Nov    11    11:44:05s 0:15:55 -
  20401. + Rule    sol88    1988    only    -    Nov    12    11:44:10s 0:15:50 -
  20402. + Rule    sol88    1988    only    -    Nov    13    11:44:20s 0:15:40 -
  20403. + Rule    sol88    1988    only    -    Nov    14    11:44:30s 0:15:30 -
  20404. + Rule    sol88    1988    only    -    Nov    15    11:44:40s 0:15:20 -
  20405. + Rule    sol88    1988    only    -    Nov    16    11:44:50s 0:15:10 -
  20406. + Rule    sol88    1988    only    -    Nov    17    11:45:00s 0:15:00 -
  20407. + Rule    sol88    1988    only    -    Nov    18    11:45:15s 0:14:45 -
  20408. + Rule    sol88    1988    only    -    Nov    19    11:45:25s 0:14:35 -
  20409. + Rule    sol88    1988    only    -    Nov    20    11:45:40s 0:14:20 -
  20410. + Rule    sol88    1988    only    -    Nov    21    11:45:55s 0:14:05 -
  20411. + Rule    sol88    1988    only    -    Nov    22    11:46:10s 0:13:50 -
  20412. + Rule    sol88    1988    only    -    Nov    23    11:46:30s 0:13:30 -
  20413. + Rule    sol88    1988    only    -    Nov    24    11:46:45s 0:13:15 -
  20414. + Rule    sol88    1988    only    -    Nov    25    11:47:05s 0:12:55 -
  20415. + Rule    sol88    1988    only    -    Nov    26    11:47:20s 0:12:40 -
  20416. + Rule    sol88    1988    only    -    Nov    27    11:47:40s 0:12:20 -
  20417. + Rule    sol88    1988    only    -    Nov    28    11:48:00s 0:12:00 -
  20418. + Rule    sol88    1988    only    -    Nov    29    11:48:25s 0:11:35 -
  20419. + Rule    sol88    1988    only    -    Nov    30    11:48:45s 0:11:15 -
  20420. + Rule    sol88    1988    only    -    Dec    1    11:49:05s 0:10:55 -
  20421. + Rule    sol88    1988    only    -    Dec    2    11:49:30s 0:10:30 -
  20422. + Rule    sol88    1988    only    -    Dec    3    11:49:55s 0:10:05 -
  20423. + Rule    sol88    1988    only    -    Dec    4    11:50:15s 0:09:45 -
  20424. + Rule    sol88    1988    only    -    Dec    5    11:50:40s 0:09:20 -
  20425. + Rule    sol88    1988    only    -    Dec    6    11:51:05s 0:08:55 -
  20426. + Rule    sol88    1988    only    -    Dec    7    11:51:35s 0:08:25 -
  20427. + Rule    sol88    1988    only    -    Dec    8    11:52:00s 0:08:00 -
  20428. + Rule    sol88    1988    only    -    Dec    9    11:52:25s 0:07:35 -
  20429. + Rule    sol88    1988    only    -    Dec    10    11:52:55s 0:07:05 -
  20430. + Rule    sol88    1988    only    -    Dec    11    11:53:20s 0:06:40 -
  20431. + Rule    sol88    1988    only    -    Dec    12    11:53:50s 0:06:10 -
  20432. + Rule    sol88    1988    only    -    Dec    13    11:54:15s 0:05:45 -
  20433. + Rule    sol88    1988    only    -    Dec    14    11:54:45s 0:05:15 -
  20434. + Rule    sol88    1988    only    -    Dec    15    11:55:15s 0:04:45 -
  20435. + Rule    sol88    1988    only    -    Dec    16    11:55:45s 0:04:15 -
  20436. + Rule    sol88    1988    only    -    Dec    17    11:56:15s 0:03:45 -
  20437. + Rule    sol88    1988    only    -    Dec    18    11:56:40s 0:03:20 -
  20438. + Rule    sol88    1988    only    -    Dec    19    11:57:10s 0:02:50 -
  20439. + Rule    sol88    1988    only    -    Dec    20    11:57:40s 0:02:20 -
  20440. + Rule    sol88    1988    only    -    Dec    21    11:58:10s 0:01:50 -
  20441. + Rule    sol88    1988    only    -    Dec    22    11:58:40s 0:01:20 -
  20442. + Rule    sol88    1988    only    -    Dec    23    11:59:10s 0:00:50 -
  20443. + Rule    sol88    1988    only    -    Dec    24    11:59:40s 0:00:20 -
  20444. + Rule    sol88    1988    only    -    Dec    25    12:00:10s -0:00:10 -
  20445. + Rule    sol88    1988    only    -    Dec    26    12:00:40s -0:00:40 -
  20446. + Rule    sol88    1988    only    -    Dec    27    12:01:10s -0:01:10 -
  20447. + Rule    sol88    1988    only    -    Dec    28    12:01:40s -0:01:40 -
  20448. + Rule    sol88    1988    only    -    Dec    29    12:02:10s -0:02:10 -
  20449. + Rule    sol88    1988    only    -    Dec    30    12:02:35s -0:02:35 -
  20450. + Rule    sol88    1988    only    -    Dec    31    12:03:05s -0:03:05 -
  20451. + 
  20452. + # Riyadh is at about 46 degrees 46 minutes East:  3 hrs, 7 mins, 4 secs
  20453. + # Before and after 1988, we'll operate on local mean solar time.
  20454. + 
  20455. + # Zone    NAME            GMTOFF    RULES/SAVE    FORMAT    [UNTIL]
  20456. + Zone    Mideast/Riyadh88    3:07:04    -        ??    1988
  20457. +                 3:07:04    sol88        ??    1989
  20458. +                 3:07:04    -        ??
  20459. diff -rc --new-file emacs-18.59/amiga/unix/src/zoneinfo/datfiles/solar89 /gnu/src/amiga/emacs-18.59/amiga/unix/src/zoneinfo/datfiles/solar89
  20460. *** emacs-18.59/amiga/unix/src/zoneinfo/datfiles/solar89    Thu Jan  1 00:00:00 1970
  20461. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/zoneinfo/datfiles/solar89    Sat Aug  1 14:24:20 1992
  20462. ***************
  20463. *** 0 ****
  20464. --- 1,391 ----
  20465. + # @(#)solar89    1.3
  20466. + 
  20467. + # Apparent noon times below are for Riyadh; they're a bit off for other places.
  20468. + # Times were computed using a formula provided by the U. S. Naval Observatory:
  20469. + #    eqt = -105.8 * sin(l) + 596.2 * sin(2 * l) + 4.4 * sin(3 * l)
  20470. + #        -12.7 * sin(4 * l) - 429.0 * cos(l) - 2.1 * cos (2 * l)
  20471. + #        + 19.3 * cos(3 * l);
  20472. + # where l is the "mean longitude of the Sun" given by
  20473. + #    l = 279.642 degrees + 0.985647 * d
  20474. + # and d is the interval in days from January 0, 0 hours Universal Time
  20475. + # (equaling the day of the year plus the fraction of a day from zero hours).
  20476. + # The accuracy of the formula is plus or minus three seconds.
  20477. + #
  20478. + # Rounding to the nearest five seconds results in fewer than
  20479. + # 256 different "time types"--a limit that's faced because time types are
  20480. + # stored on disk as unsigned chars.
  20481. + 
  20482. + # Rule    NAME    FROM    TO    TYPE    IN    ON    AT    SAVE    LETTER/S
  20483. + Rule    sol89    1989    only    -    Jan    1    12:03:35s -0:03:35 -
  20484. + Rule    sol89    1989    only    -    Jan    2    12:04:05s -0:04:05 -
  20485. + Rule    sol89    1989    only    -    Jan    3    12:04:30s -0:04:30 -
  20486. + Rule    sol89    1989    only    -    Jan    4    12:05:00s -0:05:00 -
  20487. + Rule    sol89    1989    only    -    Jan    5    12:05:25s -0:05:25 -
  20488. + Rule    sol89    1989    only    -    Jan    6    12:05:50s -0:05:50 -
  20489. + Rule    sol89    1989    only    -    Jan    7    12:06:15s -0:06:15 -
  20490. + Rule    sol89    1989    only    -    Jan    8    12:06:45s -0:06:45 -
  20491. + Rule    sol89    1989    only    -    Jan    9    12:07:10s -0:07:10 -
  20492. + Rule    sol89    1989    only    -    Jan    10    12:07:35s -0:07:35 -
  20493. + Rule    sol89    1989    only    -    Jan    11    12:07:55s -0:07:55 -
  20494. + Rule    sol89    1989    only    -    Jan    12    12:08:20s -0:08:20 -
  20495. + Rule    sol89    1989    only    -    Jan    13    12:08:45s -0:08:45 -
  20496. + Rule    sol89    1989    only    -    Jan    14    12:09:05s -0:09:05 -
  20497. + Rule    sol89    1989    only    -    Jan    15    12:09:25s -0:09:25 -
  20498. + Rule    sol89    1989    only    -    Jan    16    12:09:45s -0:09:45 -
  20499. + Rule    sol89    1989    only    -    Jan    17    12:10:05s -0:10:05 -
  20500. + Rule    sol89    1989    only    -    Jan    18    12:10:25s -0:10:25 -
  20501. + Rule    sol89    1989    only    -    Jan    19    12:10:45s -0:10:45 -
  20502. + Rule    sol89    1989    only    -    Jan    20    12:11:05s -0:11:05 -
  20503. + Rule    sol89    1989    only    -    Jan    21    12:11:20s -0:11:20 -
  20504. + Rule    sol89    1989    only    -    Jan    22    12:11:35s -0:11:35 -
  20505. + Rule    sol89    1989    only    -    Jan    23    12:11:55s -0:11:55 -
  20506. + Rule    sol89    1989    only    -    Jan    24    12:12:10s -0:12:10 -
  20507. + Rule    sol89    1989    only    -    Jan    25    12:12:20s -0:12:20 -
  20508. + Rule    sol89    1989    only    -    Jan    26    12:12:35s -0:12:35 -
  20509. + Rule    sol89    1989    only    -    Jan    27    12:12:50s -0:12:50 -
  20510. + Rule    sol89    1989    only    -    Jan    28    12:13:00s -0:13:00 -
  20511. + Rule    sol89    1989    only    -    Jan    29    12:13:10s -0:13:10 -
  20512. + Rule    sol89    1989    only    -    Jan    30    12:13:20s -0:13:20 -
  20513. + Rule    sol89    1989    only    -    Jan    31    12:13:30s -0:13:30 -
  20514. + Rule    sol89    1989    only    -    Feb    1    12:13:40s -0:13:40 -
  20515. + Rule    sol89    1989    only    -    Feb    2    12:13:45s -0:13:45 -
  20516. + Rule    sol89    1989    only    -    Feb    3    12:13:55s -0:13:55 -
  20517. + Rule    sol89    1989    only    -    Feb    4    12:14:00s -0:14:00 -
  20518. + Rule    sol89    1989    only    -    Feb    5    12:14:05s -0:14:05 -
  20519. + Rule    sol89    1989    only    -    Feb    6    12:14:10s -0:14:10 -
  20520. + Rule    sol89    1989    only    -    Feb    7    12:14:10s -0:14:10 -
  20521. + Rule    sol89    1989    only    -    Feb    8    12:14:15s -0:14:15 -
  20522. + Rule    sol89    1989    only    -    Feb    9    12:14:15s -0:14:15 -
  20523. + Rule    sol89    1989    only    -    Feb    10    12:14:20s -0:14:20 -
  20524. + Rule    sol89    1989    only    -    Feb    11    12:14:20s -0:14:20 -
  20525. + Rule    sol89    1989    only    -    Feb    12    12:14:20s -0:14:20 -
  20526. + Rule    sol89    1989    only    -    Feb    13    12:14:15s -0:14:15 -
  20527. + Rule    sol89    1989    only    -    Feb    14    12:14:15s -0:14:15 -
  20528. + Rule    sol89    1989    only    -    Feb    15    12:14:10s -0:14:10 -
  20529. + Rule    sol89    1989    only    -    Feb    16    12:14:10s -0:14:10 -
  20530. + Rule    sol89    1989    only    -    Feb    17    12:14:05s -0:14:05 -
  20531. + Rule    sol89    1989    only    -    Feb    18    12:14:00s -0:14:00 -
  20532. + Rule    sol89    1989    only    -    Feb    19    12:13:55s -0:13:55 -
  20533. + Rule    sol89    1989    only    -    Feb    20    12:13:50s -0:13:50 -
  20534. + Rule    sol89    1989    only    -    Feb    21    12:13:40s -0:13:40 -
  20535. + Rule    sol89    1989    only    -    Feb    22    12:13:35s -0:13:35 -
  20536. + Rule    sol89    1989    only    -    Feb    23    12:13:25s -0:13:25 -
  20537. + Rule    sol89    1989    only    -    Feb    24    12:13:15s -0:13:15 -
  20538. + Rule    sol89    1989    only    -    Feb    25    12:13:05s -0:13:05 -
  20539. + Rule    sol89    1989    only    -    Feb    26    12:12:55s -0:12:55 -
  20540. + Rule    sol89    1989    only    -    Feb    27    12:12:45s -0:12:45 -
  20541. + Rule    sol89    1989    only    -    Feb    28    12:12:35s -0:12:35 -
  20542. + Rule    sol89    1989    only    -    Mar    1    12:12:25s -0:12:25 -
  20543. + Rule    sol89    1989    only    -    Mar    2    12:12:10s -0:12:10 -
  20544. + Rule    sol89    1989    only    -    Mar    3    12:12:00s -0:12:00 -
  20545. + Rule    sol89    1989    only    -    Mar    4    12:11:45s -0:11:45 -
  20546. + Rule    sol89    1989    only    -    Mar    5    12:11:35s -0:11:35 -
  20547. + Rule    sol89    1989    only    -    Mar    6    12:11:20s -0:11:20 -
  20548. + Rule    sol89    1989    only    -    Mar    7    12:11:05s -0:11:05 -
  20549. + Rule    sol89    1989    only    -    Mar    8    12:10:50s -0:10:50 -
  20550. + Rule    sol89    1989    only    -    Mar    9    12:10:35s -0:10:35 -
  20551. + Rule    sol89    1989    only    -    Mar    10    12:10:20s -0:10:20 -
  20552. + Rule    sol89    1989    only    -    Mar    11    12:10:05s -0:10:05 -
  20553. + Rule    sol89    1989    only    -    Mar    12    12:09:50s -0:09:50 -
  20554. + Rule    sol89    1989    only    -    Mar    13    12:09:30s -0:09:30 -
  20555. + Rule    sol89    1989    only    -    Mar    14    12:09:15s -0:09:15 -
  20556. + Rule    sol89    1989    only    -    Mar    15    12:09:00s -0:09:00 -
  20557. + Rule    sol89    1989    only    -    Mar    16    12:08:40s -0:08:40 -
  20558. + Rule    sol89    1989    only    -    Mar    17    12:08:25s -0:08:25 -
  20559. + Rule    sol89    1989    only    -    Mar    18    12:08:05s -0:08:05 -
  20560. + Rule    sol89    1989    only    -    Mar    19    12:07:50s -0:07:50 -
  20561. + Rule    sol89    1989    only    -    Mar    20    12:07:30s -0:07:30 -
  20562. + Rule    sol89    1989    only    -    Mar    21    12:07:15s -0:07:15 -
  20563. + Rule    sol89    1989    only    -    Mar    22    12:06:55s -0:06:55 -
  20564. + Rule    sol89    1989    only    -    Mar    23    12:06:35s -0:06:35 -
  20565. + Rule    sol89    1989    only    -    Mar    24    12:06:20s -0:06:20 -
  20566. + Rule    sol89    1989    only    -    Mar    25    12:06:00s -0:06:00 -
  20567. + Rule    sol89    1989    only    -    Mar    26    12:05:40s -0:05:40 -
  20568. + Rule    sol89    1989    only    -    Mar    27    12:05:25s -0:05:25 -
  20569. + Rule    sol89    1989    only    -    Mar    28    12:05:05s -0:05:05 -
  20570. + Rule    sol89    1989    only    -    Mar    29    12:04:50s -0:04:50 -
  20571. + Rule    sol89    1989    only    -    Mar    30    12:04:30s -0:04:30 -
  20572. + Rule    sol89    1989    only    -    Mar    31    12:04:10s -0:04:10 -
  20573. + Rule    sol89    1989    only    -    Apr    1    12:03:55s -0:03:55 -
  20574. + Rule    sol89    1989    only    -    Apr    2    12:03:35s -0:03:35 -
  20575. + Rule    sol89    1989    only    -    Apr    3    12:03:20s -0:03:20 -
  20576. + Rule    sol89    1989    only    -    Apr    4    12:03:00s -0:03:00 -
  20577. + Rule    sol89    1989    only    -    Apr    5    12:02:45s -0:02:45 -
  20578. + Rule    sol89    1989    only    -    Apr    6    12:02:25s -0:02:25 -
  20579. + Rule    sol89    1989    only    -    Apr    7    12:02:10s -0:02:10 -
  20580. + Rule    sol89    1989    only    -    Apr    8    12:01:50s -0:01:50 -
  20581. + Rule    sol89    1989    only    -    Apr    9    12:01:35s -0:01:35 -
  20582. + Rule    sol89    1989    only    -    Apr    10    12:01:20s -0:01:20 -
  20583. + Rule    sol89    1989    only    -    Apr    11    12:01:05s -0:01:05 -
  20584. + Rule    sol89    1989    only    -    Apr    12    12:00:50s -0:00:50 -
  20585. + Rule    sol89    1989    only    -    Apr    13    12:00:35s -0:00:35 -
  20586. + Rule    sol89    1989    only    -    Apr    14    12:00:20s -0:00:20 -
  20587. + Rule    sol89    1989    only    -    Apr    15    12:00:05s -0:00:05 -
  20588. + Rule    sol89    1989    only    -    Apr    16    11:59:50s 0:00:10 -
  20589. + Rule    sol89    1989    only    -    Apr    17    11:59:35s 0:00:25 -
  20590. + Rule    sol89    1989    only    -    Apr    18    11:59:20s 0:00:40 -
  20591. + Rule    sol89    1989    only    -    Apr    19    11:59:10s 0:00:50 -
  20592. + Rule    sol89    1989    only    -    Apr    20    11:58:55s 0:01:05 -
  20593. + Rule    sol89    1989    only    -    Apr    21    11:58:45s 0:01:15 -
  20594. + Rule    sol89    1989    only    -    Apr    22    11:58:30s 0:01:30 -
  20595. + Rule    sol89    1989    only    -    Apr    23    11:58:20s 0:01:40 -
  20596. + Rule    sol89    1989    only    -    Apr    24    11:58:10s 0:01:50 -
  20597. + Rule    sol89    1989    only    -    Apr    25    11:58:00s 0:02:00 -
  20598. + Rule    sol89    1989    only    -    Apr    26    11:57:50s 0:02:10 -
  20599. + Rule    sol89    1989    only    -    Apr    27    11:57:40s 0:02:20 -
  20600. + Rule    sol89    1989    only    -    Apr    28    11:57:30s 0:02:30 -
  20601. + Rule    sol89    1989    only    -    Apr    29    11:57:20s 0:02:40 -
  20602. + Rule    sol89    1989    only    -    Apr    30    11:57:15s 0:02:45 -
  20603. + Rule    sol89    1989    only    -    May    1    11:57:05s 0:02:55 -
  20604. + Rule    sol89    1989    only    -    May    2    11:57:00s 0:03:00 -
  20605. + Rule    sol89    1989    only    -    May    3    11:56:50s 0:03:10 -
  20606. + Rule    sol89    1989    only    -    May    4    11:56:45s 0:03:15 -
  20607. + Rule    sol89    1989    only    -    May    5    11:56:40s 0:03:20 -
  20608. + Rule    sol89    1989    only    -    May    6    11:56:35s 0:03:25 -
  20609. + Rule    sol89    1989    only    -    May    7    11:56:30s 0:03:30 -
  20610. + Rule    sol89    1989    only    -    May    8    11:56:30s 0:03:30 -
  20611. + Rule    sol89    1989    only    -    May    9    11:56:25s 0:03:35 -
  20612. + Rule    sol89    1989    only    -    May    10    11:56:25s 0:03:35 -
  20613. + Rule    sol89    1989    only    -    May    11    11:56:20s 0:03:40 -
  20614. + Rule    sol89    1989    only    -    May    12    11:56:20s 0:03:40 -
  20615. + Rule    sol89    1989    only    -    May    13    11:56:20s 0:03:40 -
  20616. + Rule    sol89    1989    only    -    May    14    11:56:20s 0:03:40 -
  20617. + Rule    sol89    1989    only    -    May    15    11:56:20s 0:03:40 -
  20618. + Rule    sol89    1989    only    -    May    16    11:56:20s 0:03:40 -
  20619. + Rule    sol89    1989    only    -    May    17    11:56:20s 0:03:40 -
  20620. + Rule    sol89    1989    only    -    May    18    11:56:25s 0:03:35 -
  20621. + Rule    sol89    1989    only    -    May    19    11:56:25s 0:03:35 -
  20622. + Rule    sol89    1989    only    -    May    20    11:56:30s 0:03:30 -
  20623. + Rule    sol89    1989    only    -    May    21    11:56:35s 0:03:25 -
  20624. + Rule    sol89    1989    only    -    May    22    11:56:35s 0:03:25 -
  20625. + Rule    sol89    1989    only    -    May    23    11:56:40s 0:03:20 -
  20626. + Rule    sol89    1989    only    -    May    24    11:56:45s 0:03:15 -
  20627. + Rule    sol89    1989    only    -    May    25    11:56:55s 0:03:05 -
  20628. + Rule    sol89    1989    only    -    May    26    11:57:00s 0:03:00 -
  20629. + Rule    sol89    1989    only    -    May    27    11:57:05s 0:02:55 -
  20630. + Rule    sol89    1989    only    -    May    28    11:57:15s 0:02:45 -
  20631. + Rule    sol89    1989    only    -    May    29    11:57:20s 0:02:40 -
  20632. + Rule    sol89    1989    only    -    May    30    11:57:30s 0:02:30 -
  20633. + Rule    sol89    1989    only    -    May    31    11:57:35s 0:02:25 -
  20634. + Rule    sol89    1989    only    -    Jun    1    11:57:45s 0:02:15 -
  20635. + Rule    sol89    1989    only    -    Jun    2    11:57:55s 0:02:05 -
  20636. + Rule    sol89    1989    only    -    Jun    3    11:58:05s 0:01:55 -
  20637. + Rule    sol89    1989    only    -    Jun    4    11:58:15s 0:01:45 -
  20638. + Rule    sol89    1989    only    -    Jun    5    11:58:25s 0:01:35 -
  20639. + Rule    sol89    1989    only    -    Jun    6    11:58:35s 0:01:25 -
  20640. + Rule    sol89    1989    only    -    Jun    7    11:58:45s 0:01:15 -
  20641. + Rule    sol89    1989    only    -    Jun    8    11:59:00s 0:01:00 -
  20642. + Rule    sol89    1989    only    -    Jun    9    11:59:10s 0:00:50 -
  20643. + Rule    sol89    1989    only    -    Jun    10    11:59:20s 0:00:40 -
  20644. + Rule    sol89    1989    only    -    Jun    11    11:59:35s 0:00:25 -
  20645. + Rule    sol89    1989    only    -    Jun    12    11:59:45s 0:00:15 -
  20646. + Rule    sol89    1989    only    -    Jun    13    12:00:00s 0:00:00 -
  20647. + Rule    sol89    1989    only    -    Jun    14    12:00:10s -0:00:10 -
  20648. + Rule    sol89    1989    only    -    Jun    15    12:00:25s -0:00:25 -
  20649. + Rule    sol89    1989    only    -    Jun    16    12:00:35s -0:00:35 -
  20650. + Rule    sol89    1989    only    -    Jun    17    12:00:50s -0:00:50 -
  20651. + Rule    sol89    1989    only    -    Jun    18    12:01:05s -0:01:05 -
  20652. + Rule    sol89    1989    only    -    Jun    19    12:01:15s -0:01:15 -
  20653. + Rule    sol89    1989    only    -    Jun    20    12:01:30s -0:01:30 -
  20654. + Rule    sol89    1989    only    -    Jun    21    12:01:40s -0:01:40 -
  20655. + Rule    sol89    1989    only    -    Jun    22    12:01:55s -0:01:55 -
  20656. + Rule    sol89    1989    only    -    Jun    23    12:02:10s -0:02:10 -
  20657. + Rule    sol89    1989    only    -    Jun    24    12:02:20s -0:02:20 -
  20658. + Rule    sol89    1989    only    -    Jun    25    12:02:35s -0:02:35 -
  20659. + Rule    sol89    1989    only    -    Jun    26    12:02:45s -0:02:45 -
  20660. + Rule    sol89    1989    only    -    Jun    27    12:03:00s -0:03:00 -
  20661. + Rule    sol89    1989    only    -    Jun    28    12:03:10s -0:03:10 -
  20662. + Rule    sol89    1989    only    -    Jun    29    12:03:25s -0:03:25 -
  20663. + Rule    sol89    1989    only    -    Jun    30    12:03:35s -0:03:35 -
  20664. + Rule    sol89    1989    only    -    Jul    1    12:03:45s -0:03:45 -
  20665. + Rule    sol89    1989    only    -    Jul    2    12:04:00s -0:04:00 -
  20666. + Rule    sol89    1989    only    -    Jul    3    12:04:10s -0:04:10 -
  20667. + Rule    sol89    1989    only    -    Jul    4    12:04:20s -0:04:20 -
  20668. + Rule    sol89    1989    only    -    Jul    5    12:04:30s -0:04:30 -
  20669. + Rule    sol89    1989    only    -    Jul    6    12:04:40s -0:04:40 -
  20670. + Rule    sol89    1989    only    -    Jul    7    12:04:50s -0:04:50 -
  20671. + Rule    sol89    1989    only    -    Jul    8    12:05:00s -0:05:00 -
  20672. + Rule    sol89    1989    only    -    Jul    9    12:05:10s -0:05:10 -
  20673. + Rule    sol89    1989    only    -    Jul    10    12:05:20s -0:05:20 -
  20674. + Rule    sol89    1989    only    -    Jul    11    12:05:25s -0:05:25 -
  20675. + Rule    sol89    1989    only    -    Jul    12    12:05:35s -0:05:35 -
  20676. + Rule    sol89    1989    only    -    Jul    13    12:05:40s -0:05:40 -
  20677. + Rule    sol89    1989    only    -    Jul    14    12:05:50s -0:05:50 -
  20678. + Rule    sol89    1989    only    -    Jul    15    12:05:55s -0:05:55 -
  20679. + Rule    sol89    1989    only    -    Jul    16    12:06:00s -0:06:00 -
  20680. + Rule    sol89    1989    only    -    Jul    17    12:06:05s -0:06:05 -
  20681. + Rule    sol89    1989    only    -    Jul    18    12:06:10s -0:06:10 -
  20682. + Rule    sol89    1989    only    -    Jul    19    12:06:15s -0:06:15 -
  20683. + Rule    sol89    1989    only    -    Jul    20    12:06:20s -0:06:20 -
  20684. + Rule    sol89    1989    only    -    Jul    21    12:06:20s -0:06:20 -
  20685. + Rule    sol89    1989    only    -    Jul    22    12:06:25s -0:06:25 -
  20686. + Rule    sol89    1989    only    -    Jul    23    12:06:25s -0:06:25 -
  20687. + Rule    sol89    1989    only    -    Jul    24    12:06:30s -0:06:30 -
  20688. + Rule    sol89    1989    only    -    Jul    25    12:06:30s -0:06:30 -
  20689. + Rule    sol89    1989    only    -    Jul    26    12:06:30s -0:06:30 -
  20690. + Rule    sol89    1989    only    -    Jul    27    12:06:30s -0:06:30 -
  20691. + Rule    sol89    1989    only    -    Jul    28    12:06:30s -0:06:30 -
  20692. + Rule    sol89    1989    only    -    Jul    29    12:06:25s -0:06:25 -
  20693. + Rule    sol89    1989    only    -    Jul    30    12:06:25s -0:06:25 -
  20694. + Rule    sol89    1989    only    -    Jul    31    12:06:20s -0:06:20 -
  20695. + Rule    sol89    1989    only    -    Aug    1    12:06:20s -0:06:20 -
  20696. + Rule    sol89    1989    only    -    Aug    2    12:06:15s -0:06:15 -
  20697. + Rule    sol89    1989    only    -    Aug    3    12:06:10s -0:06:10 -
  20698. + Rule    sol89    1989    only    -    Aug    4    12:06:05s -0:06:05 -
  20699. + Rule    sol89    1989    only    -    Aug    5    12:06:00s -0:06:00 -
  20700. + Rule    sol89    1989    only    -    Aug    6    12:05:50s -0:05:50 -
  20701. + Rule    sol89    1989    only    -    Aug    7    12:05:45s -0:05:45 -
  20702. + Rule    sol89    1989    only    -    Aug    8    12:05:35s -0:05:35 -
  20703. + Rule    sol89    1989    only    -    Aug    9    12:05:30s -0:05:30 -
  20704. + Rule    sol89    1989    only    -    Aug    10    12:05:20s -0:05:20 -
  20705. + Rule    sol89    1989    only    -    Aug    11    12:05:10s -0:05:10 -
  20706. + Rule    sol89    1989    only    -    Aug    12    12:05:00s -0:05:00 -
  20707. + Rule    sol89    1989    only    -    Aug    13    12:04:50s -0:04:50 -
  20708. + Rule    sol89    1989    only    -    Aug    14    12:04:40s -0:04:40 -
  20709. + Rule    sol89    1989    only    -    Aug    15    12:04:30s -0:04:30 -
  20710. + Rule    sol89    1989    only    -    Aug    16    12:04:15s -0:04:15 -
  20711. + Rule    sol89    1989    only    -    Aug    17    12:04:05s -0:04:05 -
  20712. + Rule    sol89    1989    only    -    Aug    18    12:03:50s -0:03:50 -
  20713. + Rule    sol89    1989    only    -    Aug    19    12:03:35s -0:03:35 -
  20714. + Rule    sol89    1989    only    -    Aug    20    12:03:25s -0:03:25 -
  20715. + Rule    sol89    1989    only    -    Aug    21    12:03:10s -0:03:10 -
  20716. + Rule    sol89    1989    only    -    Aug    22    12:02:55s -0:02:55 -
  20717. + Rule    sol89    1989    only    -    Aug    23    12:02:40s -0:02:40 -
  20718. + Rule    sol89    1989    only    -    Aug    24    12:02:20s -0:02:20 -
  20719. + Rule    sol89    1989    only    -    Aug    25    12:02:05s -0:02:05 -
  20720. + Rule    sol89    1989    only    -    Aug    26    12:01:50s -0:01:50 -
  20721. + Rule    sol89    1989    only    -    Aug    27    12:01:30s -0:01:30 -
  20722. + Rule    sol89    1989    only    -    Aug    28    12:01:15s -0:01:15 -
  20723. + Rule    sol89    1989    only    -    Aug    29    12:00:55s -0:00:55 -
  20724. + Rule    sol89    1989    only    -    Aug    30    12:00:40s -0:00:40 -
  20725. + Rule    sol89    1989    only    -    Aug    31    12:00:20s -0:00:20 -
  20726. + Rule    sol89    1989    only    -    Sep    1    12:00:00s 0:00:00 -
  20727. + Rule    sol89    1989    only    -    Sep    2    11:59:45s 0:00:15 -
  20728. + Rule    sol89    1989    only    -    Sep    3    11:59:25s 0:00:35 -
  20729. + Rule    sol89    1989    only    -    Sep    4    11:59:05s 0:00:55 -
  20730. + Rule    sol89    1989    only    -    Sep    5    11:58:45s 0:01:15 -
  20731. + Rule    sol89    1989    only    -    Sep    6    11:58:25s 0:01:35 -
  20732. + Rule    sol89    1989    only    -    Sep    7    11:58:05s 0:01:55 -
  20733. + Rule    sol89    1989    only    -    Sep    8    11:57:45s 0:02:15 -
  20734. + Rule    sol89    1989    only    -    Sep    9    11:57:20s 0:02:40 -
  20735. + Rule    sol89    1989    only    -    Sep    10    11:57:00s 0:03:00 -
  20736. + Rule    sol89    1989    only    -    Sep    11    11:56:40s 0:03:20 -
  20737. + Rule    sol89    1989    only    -    Sep    12    11:56:20s 0:03:40 -
  20738. + Rule    sol89    1989    only    -    Sep    13    11:56:00s 0:04:00 -
  20739. + Rule    sol89    1989    only    -    Sep    14    11:55:35s 0:04:25 -
  20740. + Rule    sol89    1989    only    -    Sep    15    11:55:15s 0:04:45 -
  20741. + Rule    sol89    1989    only    -    Sep    16    11:54:55s 0:05:05 -
  20742. + Rule    sol89    1989    only    -    Sep    17    11:54:35s 0:05:25 -
  20743. + Rule    sol89    1989    only    -    Sep    18    11:54:10s 0:05:50 -
  20744. + Rule    sol89    1989    only    -    Sep    19    11:53:50s 0:06:10 -
  20745. + Rule    sol89    1989    only    -    Sep    20    11:53:30s 0:06:30 -
  20746. + Rule    sol89    1989    only    -    Sep    21    11:53:10s 0:06:50 -
  20747. + Rule    sol89    1989    only    -    Sep    22    11:52:45s 0:07:15 -
  20748. + Rule    sol89    1989    only    -    Sep    23    11:52:25s 0:07:35 -
  20749. + Rule    sol89    1989    only    -    Sep    24    11:52:05s 0:07:55 -
  20750. + Rule    sol89    1989    only    -    Sep    25    11:51:45s 0:08:15 -
  20751. + Rule    sol89    1989    only    -    Sep    26    11:51:25s 0:08:35 -
  20752. + Rule    sol89    1989    only    -    Sep    27    11:51:05s 0:08:55 -
  20753. + Rule    sol89    1989    only    -    Sep    28    11:50:40s 0:09:20 -
  20754. + Rule    sol89    1989    only    -    Sep    29    11:50:20s 0:09:40 -
  20755. + Rule    sol89    1989    only    -    Sep    30    11:50:00s 0:10:00 -
  20756. + Rule    sol89    1989    only    -    Oct    1    11:49:45s 0:10:15 -
  20757. + Rule    sol89    1989    only    -    Oct    2    11:49:25s 0:10:35 -
  20758. + Rule    sol89    1989    only    -    Oct    3    11:49:05s 0:10:55 -
  20759. + Rule    sol89    1989    only    -    Oct    4    11:48:45s 0:11:15 -
  20760. + Rule    sol89    1989    only    -    Oct    5    11:48:30s 0:11:30 -
  20761. + Rule    sol89    1989    only    -    Oct    6    11:48:10s 0:11:50 -
  20762. + Rule    sol89    1989    only    -    Oct    7    11:47:50s 0:12:10 -
  20763. + Rule    sol89    1989    only    -    Oct    8    11:47:35s 0:12:25 -
  20764. + Rule    sol89    1989    only    -    Oct    9    11:47:20s 0:12:40 -
  20765. + Rule    sol89    1989    only    -    Oct    10    11:47:00s 0:13:00 -
  20766. + Rule    sol89    1989    only    -    Oct    11    11:46:45s 0:13:15 -
  20767. + Rule    sol89    1989    only    -    Oct    12    11:46:30s 0:13:30 -
  20768. + Rule    sol89    1989    only    -    Oct    13    11:46:15s 0:13:45 -
  20769. + Rule    sol89    1989    only    -    Oct    14    11:46:00s 0:14:00 -
  20770. + Rule    sol89    1989    only    -    Oct    15    11:45:50s 0:14:10 -
  20771. + Rule    sol89    1989    only    -    Oct    16    11:45:35s 0:14:25 -
  20772. + Rule    sol89    1989    only    -    Oct    17    11:45:20s 0:14:40 -
  20773. + Rule    sol89    1989    only    -    Oct    18    11:45:10s 0:14:50 -
  20774. + Rule    sol89    1989    only    -    Oct    19    11:45:00s 0:15:00 -
  20775. + Rule    sol89    1989    only    -    Oct    20    11:44:50s 0:15:10 -
  20776. + Rule    sol89    1989    only    -    Oct    21    11:44:40s 0:15:20 -
  20777. + Rule    sol89    1989    only    -    Oct    22    11:44:30s 0:15:30 -
  20778. + Rule    sol89    1989    only    -    Oct    23    11:44:20s 0:15:40 -
  20779. + Rule    sol89    1989    only    -    Oct    24    11:44:10s 0:15:50 -
  20780. + Rule    sol89    1989    only    -    Oct    25    11:44:05s 0:15:55 -
  20781. + Rule    sol89    1989    only    -    Oct    26    11:44:00s 0:16:00 -
  20782. + Rule    sol89    1989    only    -    Oct    27    11:43:50s 0:16:10 -
  20783. + Rule    sol89    1989    only    -    Oct    28    11:43:45s 0:16:15 -
  20784. + Rule    sol89    1989    only    -    Oct    29    11:43:40s 0:16:20 -
  20785. + Rule    sol89    1989    only    -    Oct    30    11:43:40s 0:16:20 -
  20786. + Rule    sol89    1989    only    -    Oct    31    11:43:35s 0:16:25 -
  20787. + Rule    sol89    1989    only    -    Nov    1    11:43:35s 0:16:25 -
  20788. + Rule    sol89    1989    only    -    Nov    2    11:43:35s 0:16:25 -
  20789. + Rule    sol89    1989    only    -    Nov    3    11:43:30s 0:16:30 -
  20790. + Rule    sol89    1989    only    -    Nov    4    11:43:35s 0:16:25 -
  20791. + Rule    sol89    1989    only    -    Nov    5    11:43:35s 0:16:25 -
  20792. + Rule    sol89    1989    only    -    Nov    6    11:43:35s 0:16:25 -
  20793. + Rule    sol89    1989    only    -    Nov    7    11:43:40s 0:16:20 -
  20794. + Rule    sol89    1989    only    -    Nov    8    11:43:45s 0:16:15 -
  20795. + Rule    sol89    1989    only    -    Nov    9    11:43:50s 0:16:10 -
  20796. + Rule    sol89    1989    only    -    Nov    10    11:43:55s 0:16:05 -
  20797. + Rule    sol89    1989    only    -    Nov    11    11:44:00s 0:16:00 -
  20798. + Rule    sol89    1989    only    -    Nov    12    11:44:05s 0:15:55 -
  20799. + Rule    sol89    1989    only    -    Nov    13    11:44:15s 0:15:45 -
  20800. + Rule    sol89    1989    only    -    Nov    14    11:44:25s 0:15:35 -
  20801. + Rule    sol89    1989    only    -    Nov    15    11:44:35s 0:15:25 -
  20802. + Rule    sol89    1989    only    -    Nov    16    11:44:45s 0:15:15 -
  20803. + Rule    sol89    1989    only    -    Nov    17    11:44:55s 0:15:05 -
  20804. + Rule    sol89    1989    only    -    Nov    18    11:45:10s 0:14:50 -
  20805. + Rule    sol89    1989    only    -    Nov    19    11:45:20s 0:14:40 -
  20806. + Rule    sol89    1989    only    -    Nov    20    11:45:35s 0:14:25 -
  20807. + Rule    sol89    1989    only    -    Nov    21    11:45:50s 0:14:10 -
  20808. + Rule    sol89    1989    only    -    Nov    22    11:46:05s 0:13:55 -
  20809. + Rule    sol89    1989    only    -    Nov    23    11:46:25s 0:13:35 -
  20810. + Rule    sol89    1989    only    -    Nov    24    11:46:40s 0:13:20 -
  20811. + Rule    sol89    1989    only    -    Nov    25    11:47:00s 0:13:00 -
  20812. + Rule    sol89    1989    only    -    Nov    26    11:47:20s 0:12:40 -
  20813. + Rule    sol89    1989    only    -    Nov    27    11:47:35s 0:12:25 -
  20814. + Rule    sol89    1989    only    -    Nov    28    11:47:55s 0:12:05 -
  20815. + Rule    sol89    1989    only    -    Nov    29    11:48:20s 0:11:40 -
  20816. + Rule    sol89    1989    only    -    Nov    30    11:48:40s 0:11:20 -
  20817. + Rule    sol89    1989    only    -    Dec    1    11:49:00s 0:11:00 -
  20818. + Rule    sol89    1989    only    -    Dec    2    11:49:25s 0:10:35 -
  20819. + Rule    sol89    1989    only    -    Dec    3    11:49:50s 0:10:10 -
  20820. + Rule    sol89    1989    only    -    Dec    4    11:50:15s 0:09:45 -
  20821. + Rule    sol89    1989    only    -    Dec    5    11:50:35s 0:09:25 -
  20822. + Rule    sol89    1989    only    -    Dec    6    11:51:00s 0:09:00 -
  20823. + Rule    sol89    1989    only    -    Dec    7    11:51:30s 0:08:30 -
  20824. + Rule    sol89    1989    only    -    Dec    8    11:51:55s 0:08:05 -
  20825. + Rule    sol89    1989    only    -    Dec    9    11:52:20s 0:07:40 -
  20826. + Rule    sol89    1989    only    -    Dec    10    11:52:50s 0:07:10 -
  20827. + Rule    sol89    1989    only    -    Dec    11    11:53:15s 0:06:45 -
  20828. + Rule    sol89    1989    only    -    Dec    12    11:53:45s 0:06:15 -
  20829. + Rule    sol89    1989    only    -    Dec    13    11:54:10s 0:05:50 -
  20830. + Rule    sol89    1989    only    -    Dec    14    11:54:40s 0:05:20 -
  20831. + Rule    sol89    1989    only    -    Dec    15    11:55:10s 0:04:50 -
  20832. + Rule    sol89    1989    only    -    Dec    16    11:55:40s 0:04:20 -
  20833. + Rule    sol89    1989    only    -    Dec    17    11:56:05s 0:03:55 -
  20834. + Rule    sol89    1989    only    -    Dec    18    11:56:35s 0:03:25 -
  20835. + Rule    sol89    1989    only    -    Dec    19    11:57:05s 0:02:55 -
  20836. + Rule    sol89    1989    only    -    Dec    20    11:57:35s 0:02:25 -
  20837. + Rule    sol89    1989    only    -    Dec    21    11:58:05s 0:01:55 -
  20838. + Rule    sol89    1989    only    -    Dec    22    11:58:35s 0:01:25 -
  20839. + Rule    sol89    1989    only    -    Dec    23    11:59:05s 0:00:55 -
  20840. + Rule    sol89    1989    only    -    Dec    24    11:59:35s 0:00:25 -
  20841. + Rule    sol89    1989    only    -    Dec    25    12:00:05s -0:00:05 -
  20842. + Rule    sol89    1989    only    -    Dec    26    12:00:35s -0:00:35 -
  20843. + Rule    sol89    1989    only    -    Dec    27    12:01:05s -0:01:05 -
  20844. + Rule    sol89    1989    only    -    Dec    28    12:01:35s -0:01:35 -
  20845. + Rule    sol89    1989    only    -    Dec    29    12:02:00s -0:02:00 -
  20846. + Rule    sol89    1989    only    -    Dec    30    12:02:30s -0:02:30 -
  20847. + Rule    sol89    1989    only    -    Dec    31    12:03:00s -0:03:00 -
  20848. + 
  20849. + # Riyadh is at about 46 degrees 46 minutes East:  3 hrs, 7 mins, 4 secs
  20850. + # Before and after 1989, we'll operate on local mean solar time.
  20851. + 
  20852. + # Zone    NAME            GMTOFF    RULES/SAVE    FORMAT    [UNTIL]
  20853. + Zone    Mideast/Riyadh89    3:07:04    -        ??    1989
  20854. +                 3:07:04    sol89        ??    1990
  20855. +                 3:07:04    -        ??
  20856. diff -rc --new-file emacs-18.59/amiga/unix/src/zoneinfo/datfiles/southamerica /gnu/src/amiga/emacs-18.59/amiga/unix/src/zoneinfo/datfiles/southamerica
  20857. *** emacs-18.59/amiga/unix/src/zoneinfo/datfiles/southamerica    Thu Jan  1 00:00:00 1970
  20858. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/zoneinfo/datfiles/southamerica    Sat Aug  1 14:24:20 1992
  20859. ***************
  20860. *** 0 ****
  20861. --- 1,103 ----
  20862. + # @(#)southamerica    4.3
  20863. + 
  20864. + # From Guy Harris:
  20865. + # From Official Airline Guide - Worldwide Edition (1987).  Countries not
  20866. + # listed here do not observe DST, according to the OAG.  Time zone names
  20867. + # are pure inventions, and none are supplied for countries not observing
  20868. + # DST; updates from natives would be appreciated.  The times that DST
  20869. + # starts and ends are based on the assumption that they switch a 2AM just
  20870. + # as everybody else does.
  20871. + 
  20872. + ###############################################################################
  20873. + 
  20874. + # Brazil
  20875. + 
  20876. + # From Guy Harris:
  20877. + # The OAG lists October 25, 1987 and February 12, 1988 as the starting and
  20878. + # ending dates, giving them as "estimated date(s) based on previous year".  We
  20879. + # infer a rule here from one example, always a dangerous practice....  Yes,
  20880. + # they really do switch on Saturday, according to the OAG.
  20881. + # "Brazil/Acre" is for the Territory of Acre; "Brazil/DeNoronha" is for
  20882. + # Fernando De Noronha.
  20883. + 
  20884. + # From Bob Devine (January 28, 1988):
  20885. + # The only information I found is that there was no DST up to 1985.
  20886. + # But there was some before 1952!
  20887. + 
  20888. + # From U. S. Naval Observatory (January 16, 1989):
  20889. + # BRAZIL     WEST     5 H  BEHIND UTC    TERRITORY OF ACRE
  20890. + # BRAZIL     WEST     4 H  BEHIND UTC    ACRE OCT 23, '88-FEB 11,
  20891. + # BRAZIL                                 '89 (ESTIMATED)
  20892. + # BRAZIL     CENTRAL  4 H  BEHIND UTC    MANAUS
  20893. + # BRAZIL     CENTRAL  3 H  BEHIND UTC    MANAUS OCT 23, '88-FEB 11,
  20894. + # BRAZIL     CENTRAL                     '89 (ESTIMATED)
  20895. + # BRAZIL     EAST     3 H  BEHIND UTC    COASTAL STATES, RIO, SAO
  20896. + # BRAZIL     EAST                        PAULO, BRASILIA
  20897. + # BRAZIL     EAST     2 H  BEHIND UTC    COASTAL STATES, RIO, SAO
  20898. + # BRAZIL                                 PAULO, BRASILIA OCT 23,
  20899. + # BRAZIL                                 '88-FEB 11, '89
  20900. + # BRAZIL                                 (ESTIMATED)
  20901. + # BRAZIL              2 H  BEHIND UTC    ATLANTIC ISLANDS, FERNANDO
  20902. + # BRAZIL                                 DE NORONHA
  20903. + # BRAZIL              1 H  BEHIND UTC    OCT 23, '88-FEB 11, '89
  20904. + # BRAZIL                                 (ESTIMATED)
  20905. + # BRAZIL              3 H  BEHIND UTC    FOR MOST MAJOR AIRPORTS.
  20906. + 
  20907. + # Rule    NAME    FROM    TO    TYPE    IN    ON    AT    SAVE    LETTER/S
  20908. + Rule    Brazil    1987    max    -    Feb    Sat<=14    2:00    0    S
  20909. + Rule    Brazil    1987    max    -    Oct    Sat<=28    2:00    1:00    D
  20910. + 
  20911. + # Zone    NAME            GMTOFF    RULES/SAVE    FORMAT    [UNTIL]
  20912. + Zone    Brazil/East        -3:00    Brazil        E%sT
  20913. + Zone    Brazil/West        -4:00    Brazil        W%sT
  20914. + Zone    Brazil/Acre        -5:00    Brazil        A%sT
  20915. + Zone    Brazil/DeNoronha    -2:00    Brazil        F%sT
  20916. + 
  20917. + ###############################################################################
  20918. + 
  20919. + # Chile
  20920. + 
  20921. + # From Guy Harris:
  20922. + # The OAG lists October 11, 1987 and March 12, 1988 as the starting and
  20923. + # ending dates, giving them as "estimated date(s) based on previous year."
  20924. + 
  20925. + # From Bob Devine (January 28, 1988):
  20926. + # Chile has had 2nd Sunday in October to 2nd Sunday in March DST since 1977.
  20927. + # Switch is at midnight. OAG is right.
  20928. + 
  20929. + # Rule    NAME    FROM    TO    TYPE    IN    ON    AT    SAVE    LETTER/S
  20930. + Rule    Chile    1977    max    -    Oct    Sun>=8    0:00    1:00    D
  20931. + Rule    Chile    1978    max    -    Mar    Sun>=8    0:00    0    S
  20932. + 
  20933. + # Zone    NAME            GMTOFF    RULES/SAVE    FORMAT    [UNTIL]
  20934. + Zone    Chile/Continental    -4:00    Chile        C%sT
  20935. + Zone    Chile/EasterIsland    -6:00    Chile        E%sT
  20936. + 
  20937. + ###############################################################################
  20938. + 
  20939. + # Paraguay
  20940. + 
  20941. + # From Bob Devine (January 28, 1988):
  20942. + # Paraguay: First day in October to last in March.  Midnight switch??
  20943. + # Since 1980.
  20944. + 
  20945. + # From U. S. Naval Observatory (January 19, 1989):
  20946. + # PARAGUAY            4 H  BEHIND UTC
  20947. + # PARAGUAY            3 H  BEHIND UTC    OCT 1, '88-MAR 31, '89
  20948. + 
  20949. + # From Arthur David Olson (January 21, 1989):
  20950. + # Still don't know time of day when switch occurs.  Punt.
  20951. + 
  20952. + ###############################################################################
  20953. + 
  20954. + # Argentina
  20955. + 
  20956. + # From Bob Devine (January 28, 1988):
  20957. + # Argentina: first Sunday in October to first Sunday in April since 1976.
  20958. + # Double Summer time from 1969 to 1974.  Switches at midnight.
  20959. + 
  20960. + # From U. S. Naval Observatory (January 19, 19889):
  20961. + # ARGENTINA           3 H BEHIND   UTC
  20962. + 
  20963. + # From Arthur David Olson (January 21, 1989):
  20964. + # OAG, USNO and Bob have different data.  Punt.
  20965. diff -rc --new-file emacs-18.59/amiga/unix/src/zoneinfo/datfiles/systemv /gnu/src/amiga/emacs-18.59/amiga/unix/src/zoneinfo/datfiles/systemv
  20966. *** emacs-18.59/amiga/unix/src/zoneinfo/datfiles/systemv    Thu Jan  1 00:00:00 1970
  20967. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/zoneinfo/datfiles/systemv    Sat Aug  1 14:24:22 1992
  20968. ***************
  20969. *** 0 ****
  20970. --- 1,35 ----
  20971. + # @(#)systemv    4.1
  20972. + 
  20973. + # Old rules, should the need arise.
  20974. + # No attempt is made to handle Newfoundland, since it cannot be expressed
  20975. + # using the System V "TZ" scheme (half-hour offset), or anything outside
  20976. + # North America (no support for non-standard DST start/end dates), nor
  20977. + # the change in the DST rules in the US in 1987 (can't split between
  20978. + # Canada, with no changes, and the US)
  20979. + #
  20980. + # Be sure to compile this *without* leap second correction for true conformance.
  20981. + 
  20982. + # Rule    NAME    FROM    TO    TYPE    IN    ON    AT    SAVE    LETTER/S
  20983. + Rule    SystemV    min    1973    -    Apr    lastSun    2:00    1:00    D
  20984. + Rule    SystemV    min    1973    -    Oct    lastSun    2:00    0    S
  20985. + Rule    SystemV    1974    only    -    Jan    6    2:00    1:00    D
  20986. + Rule    SystemV    1974    only    -    Nov    lastSun    2:00    0    S
  20987. + Rule    SystemV    1975    only    -    Feb    23    2:00    1:00    D
  20988. + Rule    SystemV    1975    only    -    Oct    lastSun    2:00    0    S
  20989. + Rule    SystemV    1976    max    -    Apr    lastSun    2:00    1:00    D
  20990. + Rule    SystemV    1976    max    -    Oct    lastSun    2:00    0    S
  20991. + 
  20992. + # Zone    NAME        GMTOFF    RULES/SAVE    FORMAT    [UNTIL]
  20993. + Zone    SystemV/AST4ADT    -4:00    SystemV        A%sT
  20994. + Zone    SystemV/EST5EDT    -5:00    SystemV        E%sT
  20995. + Zone    SystemV/CST6CDT    -6:00    SystemV        C%sT
  20996. + Zone    SystemV/MST7MDT    -7:00    SystemV        M%sT
  20997. + Zone    SystemV/PST8PDT    -8:00    SystemV        P%sT
  20998. + Zone    SystemV/YST9YDT    -9:00    SystemV        Y%sT
  20999. + Zone    SystemV/AST4    -4:00    -        AST
  21000. + Zone    SystemV/EST5    -5:00    -        EST
  21001. + Zone    SystemV/CST6    -6:00    -        CST
  21002. + Zone    SystemV/MST7    -7:00    -        MST
  21003. + Zone    SystemV/PST8    -8:00    -        PST
  21004. + Zone    SystemV/YST9    -9:00    -        YST
  21005. + Zone    SystemV/HST10    -10:00    -        HST
  21006. diff -rc --new-file emacs-18.59/amiga/unix/src/zoneinfo/datfiles/usno1988 /gnu/src/amiga/emacs-18.59/amiga/unix/src/zoneinfo/datfiles/usno1988
  21007. *** emacs-18.59/amiga/unix/src/zoneinfo/datfiles/usno1988    Thu Jan  1 00:00:00 1970
  21008. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/zoneinfo/datfiles/usno1988    Sat Aug  1 14:24:22 1992
  21009. ***************
  21010. *** 0 ****
  21011. --- 1,111 ----
  21012. + # @(#)usno1988    1.1
  21013. + #
  21014. + # From Arthur David Olson (January 19, 1989):
  21015. + #
  21016. + # Here's some United States Naval Observatory time zone data from
  21017. + # February 1988.  It's here mostly to convince you that the USNO has indeed
  21018. + # been updating its files (see its 1989 data elsewhere).
  21019. + #
  21020. + ANDORRA             1 H AHEAD OF UTC
  21021. + ARGENTINA           3 H BEHIND   UTC
  21022. + BRASIL   WEST       5 H BEHIND UTC        (CRUZEIRO DO SUL) 
  21023. + BRASIL   CENTRAL    4 H BEHIND UTC              (MANAUS)
  21024. + BRASIL   EAST       3 H BEHIND UTC   COASTAL STATES, RIO, SP, BRASILIA
  21025. + BRASIL              2 H BEHIND UTC   ATLANTIC ISLANDS 
  21026. + BRAZIL              5 H BEHIND UTC   WEST (CRUZEIRO DO SUL) 
  21027. + BRAZIL              4 H BEHIND UTC   CENTRAL    (MANAUS)
  21028. + BRAZIL              3 H BEHIND UTC   COASTAL STATES, RIO, SP, BRASILIA
  21029. + BRAZIL              3 H BEHIND UTC   FOR MOST MAJOR AIRPORTS. 
  21030. + BRAZIL              2 H BEHIND UTC   ATLANTIC ISLANDS 
  21031. + BULGARIA            2 H AHEAD OF UTC WINTER 
  21032. + BULGARIA            3 H AHEAD OF UTC SUMMER MAR31 - SEP 85, 0100 LOCAL
  21033. + CHINA               8 H AHEAD OF UTC; ALL OF CHINA, INCL TAIWAN 
  21034. + CUBA                5 H BEHIND UTC IN WINTER
  21035. + CUBA                4 H BEHIND UTC MAY 8 - OCT 8
  21036. + CYPRUS              2 H AHEAD UTC IN WINTER 
  21037. + CYPRUS              3 H AHEAD UTC MAR 25 - SEP 30 
  21038. + DENMARK             1 H AHEAD UTC IN WINTER 
  21039. + DENMARK             2 H AHEAD UTC MAR 31 - SEP 30  , 0200 LOCAL 
  21040. + DENMK. FAEROE IS    1 H AHEAD UTC MAR 31 - SEP 30  , 0200 LOCAL 
  21041. + EGYPT               2 H AHEAD UTC 
  21042. + EGYPT               3 H AHEAD UTC SUMMER (AFTER RAMADAN)
  21043. + ENGLAND             ON UTC IN WINTER; WALES, SCOTLAND, N.I., CH.IS. 
  21044. + ENGLAND             1 H AHEAD OF UTC; SUMMER TIL 28 OCT 0200 LOCAL
  21045. + FINLAND             2 H AHEAD OF UTC IN WINTER
  21046. + FINLAND             3 H AHEAD OF UTC MAR 25 - SEP 30  
  21047. + FRANCE              1 H AHEAD OF UTC IN WINTER
  21048. + FRANCE              2 H AHEAD OF UTC MAR 31 - SEP 30 , 0100 LOCAL 
  21049. + GREECE              2 H AHEAD OF UTC IN WINTER
  21050. + GREECE              3 H AHEAD OF UTC IN SUMMER EFF. 31MAR85 02/03 LOCAL 
  21051. + GREECE              3 H AHEAD OF UTC MAR 25 - SEP 30
  21052. + GREENLAND           4 H BEHIND UTC  IN THULE AIRBASE YEAR ROUND 
  21053. + GREENLAND           3 H BEHIND UTC  IN WINTER AT SONDRESTROM
  21054. + GREENLAND           2 H BEHIND UTC  30 MAR - 30 SEP 2200 LOCAL AT -"- 
  21055. + GREENLAND           2 H BEHIND UTC  AROUND SCORESBY SUND
  21056. + ICELAND             ON UTC
  21057. + IRAN                3.5H AHEAD OF UTC 
  21058. + IRELAND             ON UTC IN WINTER
  21059. + IRELAND             1 H AHEAD OF UTC MAR 31 - OCT 23  0200 LOCAL
  21060. + ITALY               1 H AHEAD OF UTC IN WINTER
  21061. + ITALY               2 H AHEAD OF UTC MAR 31 - SEP 30, 0030 LOCAL
  21062. + JAMAICA             5 H BEHIND UTC IN WINTER
  21063. + JAMAICA             4 H BEHIND UTC APR 29 - OCT 29
  21064. + LIBYA               2 H AHEAD OF UTC
  21065. + MEXICO BAJA CAL N   8 H BEHIND UTC IN WINTER; NORTH BAJA CAL, TIJUANA 
  21066. + MEXICO BAJA CAL N   7 H BEHIND UTC APR 29 - OCT 29
  21067. + MEXICO BAJA CAL S   7 H BEHIND UTC ALL YEAR; MAZATLAN 
  21068. + MEXICO CENTRAL      6 H BEHIND UTC ALL YEAR; MEXICO CITY
  21069. + MONACO              1 H AHEAD UTC IN WINTER 
  21070. + MONACO              2 H AHEAD UTC MAR 25 - SEP30
  21071. + PARAGUAY            4 H BEHIND UTC IN WINTER
  21072. + PARAGUAY            3 H BEHIND UTC SEP 30 - MAR 30
  21073. + POLAND              1 H AHEAD OF UTC IN WINTER
  21074. + POLAND              2 H AHEAD OF UTC MAR 24 - SEP     0200 LOCAL
  21075. + PORTUGAL            ON UTC IN WINTER
  21076. + PORTUGAL            1 H AHEAD OF UTC IN SUMMER MAR 31 - SEP 29   0100 LOCAL 
  21077. + PORTUGAL AZORES     1 H BEHIND UTC IN WINTER
  21078. + PORTUGAL AZORES     ON UTC IN SUMMER MAR 31 - SEP 29
  21079. + PORTUGAL MADEIRA    ON UTC ALL YEAR;
  21080. + ROMANIA             2 H AHEAD OF UTC IN WINTER
  21081. + ROMANIA             3 H AHEAD OF UTC APR 3 - SEP 24 
  21082. + SCOTLAND            SEE ENGLAND 
  21083. + SWITZERLAND         1 H AHEAD OF UTC IN WINTER
  21084. + SWITZERLAND         2 H AHEAD OF UTC MAR 31 - SEP 30  0200 LOCAL
  21085. + TURKEY              3 H AHEAD OF UTC
  21086. + USA   EASTERN       5 H BEHIND UTC IN WINTER; NEW YORK, WASHINGTON
  21087. + USA   EASTERN       4 H BEHIND UTC APR 29 - OCT 29
  21088. + USA   CENTRAL       6 H BEHIND UTC IN WINTER; CHICAGO, HOUSTON
  21089. + USA   CENTRAL       5 H BEHIND UTC APR 29 - OCT 29
  21090. + USA   MOUNTAIN      7 H BEHIND UTC IN WINTER; DENVER
  21091. + USA   MOUNTAIN      6 H BEHIND UTC APR 29 - OCT 29
  21092. + USA   PACIFIC       8 H BEHIND UTC IN WINTER; L.A., SAN FRANCISCO 
  21093. + USA   PACIFIC       7 H BEHIND UTC APR 29 - OCT 29
  21094. + USA   ALASKA STD    9 H BEHIND UTC IN WINTER; MOST OF ALASKA     (AKST) 
  21095. + USA   ALASKA STD    8 H BEHIND UTC APR 29 - OCT 29               (AKDT) 
  21096. + USA   ALEUTIAN     10 H BEHIND UTC IN WINTER; ISLANDS WEST OF 170W
  21097. + USA   - " -         9 H BEHIND UTC APR 29 - OCT 29
  21098. + USA   HAWAII       10 H BEHIND UTC ALL YEAR;
  21099. + USA   BERING       11 H BEHIND UTC ALL YEAR; SAMOA, MIDWAY
  21100. + USSR WEST EUROP     3 H AHEAD OF UTC IN WINTER; LENINGRAD, MOSCOW 
  21101. + USSR WEST EUROP     4 H AHEAD OF UTC APR 1 - SEP 30 
  21102. + USSR CENTRAL EUR    4 H AHEAD OF UTC IN WINTER; ROSTOV, BAKU
  21103. + USSR CENTRAL EUR    5 H AHEAD OF UTC APR 1 - SEP 30 
  21104. + USSR EAST EUROP     5 H AHEAD OF UTC IN WINTER; SVERDLOVSK
  21105. + USSR EAST EUROP     6 H AHEAD OF UTC APR 1 - SEP 30 
  21106. + USSR WEST SIBERIAN  6 H AHEAD OF UTC IN WINTER; TASHKENT, ALMA ATA
  21107. + USSR WEST SIBERIAN  7 H AHEAD OF UTC APR 1 - SEP 30 
  21108. + USSR WEST-CENTRAL   7 H AHEAD OF UTC IN WINTER; NOVOSIBIRSK 
  21109. + USSR WEST-CENTRAL   8 H AHEAD OF UTC APR 1 - SEP 30 
  21110. + USSR WEST-CENTRAL   8 H AHEAD OF UTC IN WINTER; IRKUTSK 
  21111. + USSR WEST-CENTRAL   9 H AHEAD OF UTC APR 1 - SEP 30 
  21112. + USSR CENTRAL SIB    9 H AHEAD OF UTC IN WINTER; YAKUTSK 
  21113. + USSR CENTRAL SIB   10 H AHEAD OF UTC APR 1 - SEP 30 
  21114. + USSR CENTRAL SIB   10 H AHEAD OF UTC IN WINTER; VLADIVOSTOK 
  21115. + USSR CENTRAL SIB   11 H AHEAD OF UTC APR 1 - SEP 30 
  21116. + USSR EAST SIBERIA  11 H AHEAD OF UTC IN WINTER; MAGADAN 
  21117. + USSR EAST SIBERIA  12 H AHEAD OF UTC APR 1 - SEP 30 
  21118. + USSR EAST SIBERIA  12 H AHEAD OF UTC IN WINTER; PETROPAVLOVSK 
  21119. + USSR EAST SIBERIA  13 H AHEAD OF UTC APR 1 - SEP 30 
  21120. + USSR EAST SIBERIA  13 H AHEAD OF UTC IN WINTER; UELEN 
  21121. + USSR EAST SIBERIA  14 H AHEAD OF UTC APR 1 - SEP 30 
  21122. + WALES               SEE ENGLAND 
  21123. diff -rc --new-file emacs-18.59/amiga/unix/src/zoneinfo/datfiles/usno1989 /gnu/src/amiga/emacs-18.59/amiga/unix/src/zoneinfo/datfiles/usno1989
  21124. *** emacs-18.59/amiga/unix/src/zoneinfo/datfiles/usno1989    Thu Jan  1 00:00:00 1970
  21125. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/zoneinfo/datfiles/usno1989    Sat Aug  1 14:24:26 1992
  21126. ***************
  21127. *** 0 ****
  21128. --- 1,452 ----
  21129. + # @(#)usno1989    1.3
  21130. + #
  21131. + # From Arthur David Olson (January 19, 1989):
  21132. + # 
  21133. + # Here's time zone information from the United States Naval Observatory;
  21134. + # no corrections have been made, and there are some obvious challenges.
  21135. + # The USNO warns:
  21136. + #    DUE TO FREQUENT CHANGES IN THE LOCAL LAWS GOVERNING DAYLIGHT
  21137. + #    SAVING TIME, WE CANNOT GUARANTEE THE ACCURACY OF THIS
  21138. + #    INFORMATION.  PLEASE ALERT US TO ANY DISCREPANCY YOU MAY
  21139. + #    DISCOVER.
  21140. + #
  21141. + AFGHANISTAN         4.5H AHEAD OF UTC
  21142. + ALBANIA             1 H  AHEAD OF UTC
  21143. + ALBANIA             2 H  AHEAD OF UTC  MAR 27 - SEP 24
  21144. + ALBANIA                                (ESTIMATED)
  21145. + ALGERIA             1 H  AHEAD OF UTC
  21146. + AMERICAN SAMOA     11 H  BEHIND UTC
  21147. + ANDORRA             1 H  AHEAD OF UTC
  21148. + ANDORRA             2 H  AHEAD OF UTC  MAR 27 - SEP 24
  21149. + ANDORRA                                (ESTIMATED)
  21150. + ANGOLA              1 H  AHEAD OF UTC
  21151. + ARGENTINA           3 H  BEHIND UTC
  21152. + ARUBA               4 H  BEHIND UTC    ALSO BONAIRE, CURACAO,
  21153. + ARUBA                                  ST.MAARTEN
  21154. + AUSTRALIA  WEST     8 H  AHEAD OF UTC  PERTH, EXMOUTH
  21155. + AUSTRALIA  N.T.     9.5H AHEAD OF UTC  DARWIN  NO ADVANCED TIME
  21156. + AUSTRALIA  N.T.                                IN SUMMER
  21157. + AUSTRALIA  SOUTH    9.5H AHEAD OF UTC  ADELAIDE
  21158. + AUSTRALIA                              INCLUDING BROKEN HILL, NSW
  21159. + AUSTRALIA  SOUTH   10.5H AHEAD OF UTC  ADELAIDE OCT 30, '88-MAR
  21160. + AUSTRALIA  SOUTH                       18, '89 INCLUDING BROKEN
  21161. + AUSTRIALIA SOUTH                       HILL, NSW
  21162. + AUSTRALIA  QUEENL  10 H  AHEAD OF UTC
  21163. + AUSTRALIA  NSW     10 H  AHEAD OF UTC  SYDNEY
  21164. + AUSTRALIA  NSW     11 H  AHEAD OF UTC  SYDNEY OCT 30, '88-MAR 18,
  21165. + AUSTRALIA  NSW                         '89
  21166. + AUSTRALIA  TASM.   10 H  AHEAD OF UTC  HOBART
  21167. + AUSTRALIA  TASM.   11 H  AHEAD OF UTC  HOBART OCT 30, '88-MAR 18,
  21168. + AUSTRALIA  TASM.                       '89
  21169. + AUSTRIA             1 H  AHEAD OF UTC
  21170. + AUSTRIA             2 H  AHEAD OF UTC  MAR 27 - SEPT 24
  21171. + AZORES                   SEE PORTUGAL
  21172. + BAHAMAS             5 H  BEHIND UTC    EXCLUDING TURKS AND CAICOS
  21173. + BAHAMAS                                ISLANDS)
  21174. + BAHAMAS             4 H  BEHIND UTC    APR 3 - OCT 29 (SAME
  21175. + BAHAMAS                                EXCLUSION)
  21176. + BAHRAIN             3 H  AHEAD OF UTC
  21177. + BANGLADESH          6 H  AHEAD OF UTC
  21178. + BARBADOS            4 H  BEHIND UTC
  21179. + BELGIUM             1 H  AHEAD OF UTC
  21180. + BELGIUM             2 H  AHEAD OF UTC  MAR 27 - SEP 24
  21181. + BELIZE              6 H  BEHIND UTC
  21182. + BENIN PEOPLES REP   1 H  AHEAD OF UTC  DAHOMEY
  21183. + BERMUDA             4 H  BEHIND UTC
  21184. + BERMUDA             3 H  BEHIND UTC    APR 3 - OCT 29
  21185. + BHUTAN              6 H  AHEAD OF UTC
  21186. + BOLIVIA             4 H  BEHIND UTC
  21187. + BONAIRE             4 H  BEHIND UTC    ALSO ARUBA,CURACAO,
  21188. + BONAIRE                                ST.MAARTEN, SABA
  21189. + BOTSWANA            2 H  AHEAD OF UTC
  21190. + BRAZIL     WEST     5 H  BEHIND UTC    TERRITORY OF ACRE
  21191. + BRAZIL     WEST     4 H  BEHIND UTC    ACRE OCT 23, '88-FEB 11,
  21192. + BRAZIL                                 '89 (ESTIMATED)
  21193. + BRAZIL     CENTRAL  4 H  BEHIND UTC    MANAUS
  21194. + BRAZIL     CENTRAL  3 H  BEHIND UTC    MANAUS OCT 23, '88-FEB 11,
  21195. + BRAZIL     CENTRAL                     '89 (ESTIMATED)
  21196. + BRAZIL     EAST     3 H  BEHIND UTC    COASTAL STATES, RIO, SAO
  21197. + BRAZIL     EAST                        PAULO, BRASILIA
  21198. + BRAZIL     EAST     2 H  BEHIND UTC    COASTAL STATES, RIO, SAO
  21199. + BRAZIL                                 PAULO, BRASILIA OCT 23,
  21200. + BRAZIL                                 '88-FEB 11, '89
  21201. + BRAZIL                                 (ESTIMATED)
  21202. + BRAZIL              2 H  BEHIND UTC    ATLANTIC ISLANDS, FERNANDO
  21203. + BRAZIL                                 DE NORONHA
  21204. + BRAZIL              1 H  BEHIND UTC    OCT 23, '88-FEB 11, '89
  21205. + BRAZIL                                 (ESTIMATED)
  21206. + BRAZIL              3 H  BEHIND UTC    FOR MOST MAJOR AIRPORTS.
  21207. + BRITISH VIRGIN I.   4 H  BEHIND UTC
  21208. + BRUNEI              8 H  AHEAD OF UTC
  21209. + BULGARIA            2 H  AHEAD OF UTC
  21210. + BULGARIA            3 H  AHEAD OF UTC  MAR 27 - SEP 24
  21211. + BURKINA FASO        ON UTC
  21212. + BURMA               6.5H AHEAD OF UTC
  21213. + BURUNDI             2 H  AHEAD OF UTC
  21214. + CAMBODIA            SEE KAMPUCHEA
  21215. + CAMEROON            1 H  AHEAD OF UTC
  21216. + CANADA   NEW FDL    3.5H BEHIND UTC    ST.JOHN'S
  21217. + CANADA   NEW FDL    1.5H BEHIND UTC    APR 3 - OCT 29
  21218. + CANADA   ATLANTIC   4 H  BEHIND UTC    HALIFAX
  21219. + CANADA   ATLANTIC   3 H  BEHIND UTC    APR 3 - OCT 29
  21220. + CANADA   EASTERN    5 H  BEHIND UTC    TORONTO, MONTREAL, OTTAWA
  21221. + CANADA   EASTERN    4 H  BEHIND UTC    APR 3 - OCT 29
  21222. + CANADA   CENTRAL    6 H  BEHIND UTC    REGINA, WINNIPEG
  21223. + CANADA   CENTRAL    5 H  BEHIND UTC    APR 3 - OCT 29
  21224. + CANADA   MOUNTAIN   7 H  BEHIND UTC    CALGARY, EDMONTON
  21225. + CANADA   MOUNTAIN   6 H  BEHIND UTC    APR 3 - OCT 29
  21226. + CANADA   PACIFIC    8 H  BEHIND UTC    VANCOUVER
  21227. + CANADA   PACIFIC    7 H  BEHIND UTC    APR 3 - OCT 29
  21228. + CANADA   YUKON      SAME AS PACIFIC    DAWSON
  21229. + CAPE VERDE          1 H  BEHIND UTC
  21230. + CAYMAN ISLANDS      5 H  BEHIND UTC
  21231. + CAROLINE ISLAND    10 H  AHEAD OF UTC  EXCLUDING PONAPE IS.,
  21232. + CAROLINE ISLAND                       KUSAIE, AND PINGELAP
  21233. + CENTRAL AFRICA      1 H  AHEAD OF UTC
  21234. + CEYLON              5.5H AHEAD OF UTC, SEE SRI LANKA
  21235. + CHAD                1 H  AHEAD OF UTC
  21236. + CHANNEL ISLANDS     SEE ENGLAND
  21237. + CHILE               4 H  BEHIND UTC    CONTINENTAL
  21238. + CHILE               3 H  BEHIND UTC    OCT 9, '88-MAR 11, '89
  21239. + CHILE               6 H  BEHIND UTC    EASTER ISLAND
  21240. + CHILE               5 H  BEHIND UTC    OCT 9, '88-MAR 11, '89
  21241. + CHINA               8 H  AHEAD OF UTC  ALL OF CHINA, INCL TAIWAN
  21242. + CHINA               9 H  AHEAD OF UTC  APR 17 - SEP 10
  21243. + COCOS (Keeling) I.  6.5H AHEAD OF UTC
  21244. + COLOMBIA            5 H  BEHIND UTC
  21245. + COMOROS             3 H  AHEAD OF UTC
  21246. + CONGO               1 H  AHEAD OF UTC
  21247. + COOK ISLANDS       10 H  BEHIND UTC
  21248. + COOK ISLANDS        9.5H  BEHIND UTC   OCT 30, '88-MAR 24, '89
  21249. + COOK ISLANDS                           (ESTIMATED)
  21250. + COSTA RICA          6 H  BEHIND UTC
  21251. + COTE D'IVOIRE       ON UTC
  21252. + CUBA                5 H  BEHIND UTC
  21253. + CUBA                4 H  BEHIND UTC    MAR 20 - OCT 8
  21254. + CURACAO             4 H  BEHIND UTC    ALSO BONAIRE, ARUBA,
  21255. + CURACAO                                ST.MAARTEN
  21256. + CYPRUS              2 H  AHEAD OF UTC
  21257. + CYPRUS              3 H  AHEAD OF UTC  MAR 27 - SEP 24
  21258. + CZECHOSLOVAKIA      1 H  AHEAD OF UTC
  21259. + CZECHOSLOVAKIA      2 H  AHEAD OF UTC  MAR 27 - SEP 24
  21260. + DENMARK             1 H  AHEAD OF UTC
  21261. + DENMARK             2 H  AHEAD OF UTC  MAR 27 - SEP 24
  21262. + DENMK. FAEROE IS    1 H  AHEAD OF UTC  MAR 27 - SEP 24
  21263. + DJIBOUTI            3 H  AHEAD OF UTC
  21264. + DOMINICA            4 H  BEHIND UTC
  21265. + DOMINICAN REP       4 H  BEHIND UTC
  21266. + ECUADOR             5 H  BEHIND UTC    CONTINENTAL
  21267. + ECUADOR             6 H  BEHIND UTC    GALAPAGOS ISLANDS
  21268. + EGYPT               2 H  AHEAD OF UTC
  21269. + EGYPT               3 H  AHEAD OF UTC  MAY 17 - SEP 30 (AFTER
  21270. + EGYPT                                  RAMADAN)
  21271. + EL SALVADOR         6 H  BEHIND UTC
  21272. + ENGLAND             ON UTC             (WALES, SCOTLAND, N.I.,
  21273. + ENGLAND                                CH. IS.)
  21274. + ENGLAND             1 H  AHEAD OF UTC  MAR 27 - OCT 22
  21275. + ENEZUELA           4 H  BEHIND UTC
  21276. + EQUITORIAL GUINEA   1 H  AHEAD OF UTC
  21277. + ETHIOPIA            3 H  AHEAD OF UTC
  21278. + FALKLAND ISLANDS    4 H  BEHIND UTC
  21279. + FALKLAND ISLANDS    3 H  BEHIND UTC    SEP 11, '88-APR 15, '89
  21280. + FALKLAND ISLANDS                       (ESTIMATED)
  21281. + FAROE ISLAND        ON UTC
  21282. + FAROE ISLAND        1 H  AHEAD OF UTC  MAR 27 - SEP 24
  21283. + FIJI               12 H  AHEAD OF UTC
  21284. + FINLAND             2 H  AHEAD OF UTC
  21285. + FINLAND             3 H  AHEAD OF UTC  MAR 27 - SEP 24
  21286. + FRANCE              1 H  AHEAD OF UTC
  21287. + FRANCE              2 H  AHEAD OF UTC  MAR 27 - SEP 24
  21288. + FRENCH GUIANA       3 H  BEHIND UTC
  21289. + FRENCH POLYNESIA    9 H  BEHIND UTC    GAMBIER ISLAND
  21290. + FRENCH POLYNESIA    9.5H BEHIND UTC    MARQUESAS ISLANDS
  21291. + FRENCH POLYNESIA   10 H  BEHIND UTC    SOCIETY ISLANDS, TUBUAI
  21292. + FRENCH POLYNESIA                       ISLANDS, TUAMOTU ISLAND,
  21293. + FRENCH POLYNESIA                       TAHITI
  21294. + GABON               1 H  AHEAD OF UTC
  21295. + GAMBIA              ON UTC
  21296. + GERMANY ALL         1 H  AHEAD OF UTC
  21297. + GERMANY ALL         2 H  AHEAD OF UTC  MAR 27 - SEP 24
  21298. + GHANA               ON UTC
  21299. + GIBRALTAR           1 H  AHEAD OF UTC
  21300. + GIBRALTAR           2 H  AHEAD OF UTC  MAR 27 - SEP 24
  21301. + GREECE              2 H  AHEAD OF UTC
  21302. + GREECE              3 H  AHEAD OF UTC  MAR 27 - SEP 24
  21303. + GREENLAND           4 H  BEHIND UTC    THULE AIRBASE YEAR ROUND
  21304. + GREENLAND           3 H  BEHIND UTC    ANGMAGSSALIK AND W. COAST
  21305. + GREENLAND           2 H  BEHIND UTC    MAR 27 - SEP 24
  21306. + GREENLAND           1 H  BEHIND UTC    SCORESBYSUND
  21307. + GREENLAND           ON UTC             MAR 27 - SEP 24
  21308. + GRENADA             4 H  BEHIND UTC
  21309. + GUADELOUPE          4 H  BEHIND UTC    ST. BARTHELEMY, NORTHERN
  21310. + GUADELOUPE                             ST. MARTIN MARTINIQUE
  21311. + GUAM               10 H  AHEAD OF UTC
  21312. + GUATEMALA           6 H  BEHIND UTC
  21313. + GUINEA              ON UTC
  21314. + GUINEA BISSAU       ON UTC
  21315. + GUINEA REPUBLIC     ON UTC
  21316. + GUINEA EQUATORIAL   1 H  AHEAD OF UTC
  21317. + GUYANA              3 H  BEHIND UTC
  21318. + HAITI               5 H  BEHIND UTC
  21319. + HAITI               4 H  BEHIND UTC    APR 3 - OCT 29
  21320. + HOLLAND             SEE NETHERLANDS
  21321. + HONDURAS            6 H  BEHIND UTC
  21322. + HONG KONG           8 H  AHEAD OF UTC
  21323. + HUNGARY             1 H  AHEAD OF UTC
  21324. + HUNGARY             2 H  AHEAD OF UTC  MAR 27 - SEP 24
  21325. + ICELAND             ON UTC
  21326. + INDIA               5.5H AHEAD OF UTC  INCLUDING ANDAMAN ISLANDS
  21327. + INDONESIA WEST      7 H  AHEAD OF UTC  SUMATRA, JAVA, BALI,
  21328. + INDONESIA WEST                         JAKARTA
  21329. + INDONESIA CENTRAL   8 H  AHEAD OF UTC  KALIMANTAN, SULAWESI
  21330. + INDONESIA EAST      9 H  AHEAD OF UTC  IRIAN, BARAT
  21331. + IRAN                3.5H AHEAD OF UTC
  21332. + IRAQ                3 H  AHEAD OF UTC
  21333. + IRAQ                4 H  AHEAD OF UTC  APR 1 - SEP 30
  21334. + IRELAND             ON UTC
  21335. + IRELAND             1 H  AHEAD OF UTC  MAR 27 - OCT 22
  21336. + ISRAEL              2 H  AHEAD OF UTC
  21337. + ISRAEL              3 H  AHEAD OF UTC  APR 10 - SEP 3
  21338. + ITALY               1 H  AHEAD OF UTC
  21339. + ITALY               2 H  AHEAD OF UTC  MAR 27 - SEP 24
  21340. + IVORY COAST         ON UTC
  21341. + IWAN              8 H  AHEAD OF UTC
  21342. + JAMAICA             5 H  BEHIND UTC
  21343. + JAPAN               9 H  AHEAD OF UTC
  21344. + JOHNSTON ISLAND    10 H  BEHIND UTC
  21345. + JORDAN              2 H  AHEAD OF UTC
  21346. + JORDAN              3 H  AHEAD OF UTC  APR 1 - OCT 6
  21347. + KAMPUCHEA           7 H  AHEAD OF UTC
  21348. + KENYA               3 H  AHEAD OF UTC
  21349. + KIRIBATI, REP OF   12 H  AHEAD OF UTC  CANTON, ENDERBURY ISLANDS
  21350. + KIRIBATI, REP OF   11 H  AHEAD OF UTC  CHRISTMAS ISLAND
  21351. + KOREA               9 H  AHEAD OF UTC
  21352. + KOREA, REP OF       9 H  AHEAD OF UTC
  21353. + KOREA, REP OF      10 H  AHEAD OF UTC  MAY 8 - OCT 8
  21354. + KUWAIT              3 H  AHEAD OF UTC
  21355. + KUSAIE, PINGELAP  12 H  AHEAD OF UTC  INCLUDING MARSHALL IS.,
  21356. + KUSAIE, PINGELAP                      EXCLUDING KWAJALEIN)
  21357. + KWAJALEIN         12 H  BEHIND UTC
  21358. + LAOS                7 H  AHEAD OF UTC
  21359. + LEBANON             2 H  AHEAD OF UTC
  21360. + LEBANON             3 H  AHEAD OF UTC  JUN 1 - OCT 31
  21361. + LEEWARD ISLANDS     4 H BEHIND UTC     ANTIGUA, DOMINICA,
  21362. + LEEWARD ISLANDS                        MONTSERRAT, ST.
  21363. + LEEWARD ISLAANDS                       CHRISTOPHER, ST. KITTS,
  21364. + LEEWARD ISLANDS                        NEVIS, ANGUILLA
  21365. + LESOTHO             2 H  AHEAD OF UTC
  21366. + LIBERIA             ON UTC
  21367. + LIBYAN ARAB         1 H  AHEAD OF UTC  JAMAHIRIYA/LIBYA
  21368. + LIBYAN ARAB         2 H  AHEAD OF UTC  APR 1 - SEP 30 JAMAHIRIYA/LIBYA
  21369. + LIECHTENSTEIN       1 H  AHEAD OF UTC
  21370. + LIECHTENSTEIN       2 H  AHEAD OF UTC  MAR 27 - SEP 24
  21371. + LUXEMBOURG          1 H  AHEAD OF UTC
  21372. + LUXEMBOURG          2 H  AHEAD OF UTC  MAR 27 - SEP 24
  21373. + MACAO               8 H  AHEAD OF UTC
  21374. + MADAGASCAR          3 H  AHEAD OF UTC
  21375. + MADEIRA             SEE PORTUGAL
  21376. + MALAWI              2 H  AHEAD OF UTC
  21377. + MALAYSIA            8 H  AHEAD OF UTC
  21378. + MALDIVES            5 H  AHEAD OF UTC
  21379. + MALI                ON UTC
  21380. + MALTA               1 H  AHEAD OF UTC
  21381. + MALTA               2 H  AHEAD OF UTC  MAR 27 - SEP 24
  21382. + MARTINIQUE          4 H  BEHIND UTC
  21383. + MAURITANIA          ON UTC
  21384. + MAURITIUS           4 H  AHEAD OF UTC
  21385. + MARIANA ISLAND    10 H  AHEAD OF UTC  EXCLUDING GUAM
  21386. + MEXICO BAJA CAL N   7 H  BEHIND UTC    BAJA CALIFORNIA SUR AND
  21387. + MEXICO BAJA CAL N                      N. PACIFIC COAST (STATES
  21388. + MEXICO BAJA CAL N                      OF SINALOA AND SONORA)
  21389. + MEXICO BAJA CAL N   8 H  BEHIND UTC    ABOVE 28TH PARALLAL APR 3
  21390. + MEXICO BAJA CAL N                      - OCT 29
  21391. + MEXICO BAJA CAL N   7 H  BEHIND UTC    ABOVE 28TH PARALLAL APR 3
  21392. + MEXICO BAJA CAL N                      - 0CT 29
  21393. + MEXICO              6 H  BEHIND UTC    STATES OF DURANGO,
  21394. + MEXICO                                 COAHUILA, NUEVO LEON,
  21395. + MEXICO                                 TAMAULIPAS
  21396. + MEXICO              5 H  BEHIND UTC    STATES OF DURANGO,
  21397. + MEXICO                                 COAHUILA, NUEVO LEON,
  21398. + MEXICO                                 TAMAULIPAS  APR 3 - OCT 29
  21399. + MEXICO              6 H  BEHIND UTC    GENERAL MEXICO, STATES OF
  21400. + MEXICO                                 CAMPECHE, QUINTANA ROO AND
  21401. + MEXICO                                 YUCATAN
  21402. + MIDWAY ISLAND      11 H  BEHIND UTC
  21403. + MONACO              1 H  AHEAD OF UTC
  21404. + MONACO              2 H  AHEAD OF UTC  MAR 27 - SEP 24
  21405. + MONGOLIA            8 H  AHEAD OF UTC
  21406. + MONGOLIA            9 H  AHEAD OF UTC  MAR 27 - SEP 24
  21407. + MONTSERRAT          4 H  BEHIND UTC
  21408. + MOROCCO             ON UTC
  21409. + MOZAMBIQUE          2 H  AHEAD OF UTC
  21410. + NAMIBIA             2 H  AHEAD OF UTC
  21411. + NAURU, REP OF      12 H  AHEAD OF UTC
  21412. + NEPAL              5H45M AHEAD OF UTC
  21413. + NETHERLANDS         1 H  AHEAD OF UTC
  21414. + NETHERLANDS         2 H  AHEAD OF UTC  MAR 27 - SEP 24
  21415. + NETHERLANDS         4 H  BEHIND UTC    ANTILLES AND SOUTHERN ST.
  21416. + NETHERLANDS                            MAARTEN
  21417. + NEW CALEDONIA      11 H  AHEAD OF UTC
  21418. + NEW HEBRIDES        SEE VANUATU
  21419. + NEW ZEALAND        12 H  AHEAD OF UTC  (EXCLUDING CHATHAM ISLAND)
  21420. + NEW ZEALAND        13 H  AHEAD OF UTC  OCT 30, '88-MAR 4, '89
  21421. + NEW ZEALAND       12H45M AHEAD OF UTC  CHATHAM ISLAND
  21422. + NICARAGUA           6 H  BEHIND UTC
  21423. + NIGER               1 H  AHEAD OF UTC
  21424. + NIGERIA             1 H  AHEAD OF UTC
  21425. + NIUE ISLAND        11 H  BEHIND UTC
  21426. + NORFOLK ISLAND    11H30M AHEAD OF UTC
  21427. + NORTHERN IRELAND    ON UTC             WALES, SCOTLAND, N.I.,
  21428. + NORTHERN IRELAND                       CH.IS.
  21429. + NORTHERN IRELAND    1 H  AHEAD OF UTC  MAR 27 - OCT 22
  21430. + NORWAY              1 H  AHEAD OF UTC
  21431. + NORWAY              2 H  AHEAD OF UTC  MAR 27 - SEP 24
  21432. + OGO                ON UTC
  21433. + OMAN                4 H  AHEAD OF UTC
  21434. + PACIFIC ISLAND T.T.
  21435. + PALAU ISLAND       9 H  AHEAD OF UTC
  21436. + PAKISTAN            5 H  AHEAD OF UTC
  21437. + PANAMA              5 H  BEHIND UTC
  21438. + PAPUA NEW GUINEA   10 H  AHEAD OF UTC  INCLUDING BOUGAINVILLE
  21439. + PAPUA NEW GUINEA                       ISLAND
  21440. + PARAGUAY            4 H  BEHIND UTC
  21441. + PARAGUAY            3 H  BEHIND UTC    OCT 1, '88-MAR 31, '89
  21442. + PERU                5 H  BEHIND UTC
  21443. + PHILIPPINES         8 H  AHEAD OF UTC
  21444. + PONAPE ISLAND     11 H  AHEAD OF UTC
  21445. + POLAND              1 H  AHEAD OF UTC
  21446. + POLAND              2 H  AHEAD OF UTC  MAR 27 - SEP 24
  21447. + PORTUGAL MAINLAND   ON UTC
  21448. + PORTUGAL MAINLAND   1 H  AHEAD OF UTC  MAR 27 - SEP 24
  21449. + PORTUGAL AZORES     1 H  BEHIND UTC
  21450. + PORTUGAL AZORES     ON UTC             MAR 27 - SEP 24
  21451. + PORTUGAL MADEIRA    ON UTC
  21452. + PORTUGAL MADEIRA    1 H  AHEAD OF UTC  MAR 27 - SEP 24
  21453. + PUERTO RICO         4 H  BEHIND UTC
  21454. + QATAR               3 H  AHEAD OF UTC
  21455. + ROMANIA             2 H  AHEAD OF UTC
  21456. + ROMANIA             3 H  AHEAD OF UTC  MAR 27 - SEP 24
  21457. + RUSSIA              SEE USSR
  21458. + RWANDA              2 H  AHEAD OF UTC
  21459. + SABA                4 H  BEHIND UTC    ALSO BONAIRE, CURACAO,
  21460. + SAMOA              11 H  BEHIND UTC
  21461. + SAN MARINO          1 H  AHEAD OF UTC
  21462. + SAN MARINO          2 H  AHEAD OF UTC  MAR 27 - SEP 24
  21463. + SAN SALVADOR        6  H  BEHIND UTC
  21464. + SAO TOME ISLAND     ON UTC             AND PRINCIPE ISLAND
  21465. + SAUDI ARABIA        3 H  AHEAD OF UTC
  21466. + SCOTLAND            SEE ENGLAND
  21467. + SENEGAL             ON UTC
  21468. + SEYCHELLES          4 H  AHEAD OF UTC
  21469. + SIERRA LEONE        ON UTC
  21470. + SINGAPORE           8 H  AHEAD OF UTC
  21471. + SOLOMON ISLANDS    11 H  AHEAD OF UTC  EXCLUDING BOUGAINVILLE
  21472. + SOLOMON ISLANDS                        ISLAND
  21473. + SOMALI              3 H  AHEAD OF UTC
  21474. + SOUTH AFRICA        2 H  AHEAD OF UTC
  21475. + SPAIN  CANARY IS    ON UTC
  21476. + SPAIN  CANARY IS    1 H  AHEAD OF UTC  MAR 27 - SEP 24
  21477. + SPAIN               1 H  AHEAD OF UTC  CONTINENTAL, BALEARIC AND
  21478. + SPAIN                                  MALLORCA ISLANDS
  21479. + SPAIN               2 H  AHEAD OF UTC  CONTINENTAL, BALEARIC AND
  21480. + SPAIN                                  MALLORCA ISLANDS  MAR 27 -
  21481. + SPAIN                                  SEP 24
  21482. + SPAIN  MAINLAND     1 H  AHEAD OF UTC  MELILLA
  21483. + SPAIN  MAINLAND     2 H  AHEAD OF UTC  MAR 27 - SEP 24
  21484. + SRI LANKA          5H30M AHEAD OF UTC
  21485. + ST.MAARTEN
  21486. + ST.KITTS-NEVIS     4 H  BEHIND UTC
  21487. + ST.LUCIA           4 H  BEHIND UTC
  21488. + ST.PIERRE          3 H  BEHIND UTC    INCLUDING MIQUELON
  21489. + ST.PIERRE          2 H  BEHIND UTC    INLCUDING MIQUELON  APR 3
  21490. + ST.PIERRE                             - OCT 29
  21491. + ST.VINCENT         4 H  BEHIND UTC    INCLUDING THE GRENADINES
  21492. + ST. HELENA          ON UTC
  21493. + SURINAME            3 H  BEHIND UTC
  21494. + SWAZILAND           2 H  AHEAD OF UTC
  21495. + SWEDEN              1 H  AHEAD OF UTC
  21496. + SWEDEN              2 H  AHEAD OF UTC  MAR 27 - SEP 24
  21497. + SWITZERLAND         1 H  AHEAD OF UTC
  21498. + SWITZERLAND         2 H  AHEAD OF UTC  MAR 27 - SEP 24
  21499. + SYRIA               2 H  AHEAD OF UTC
  21500. + SYRIA               3 H  AHEAD OF UTC  MAR 15 - OCT 30
  21501. + TAHITI             10 H  BEHIND UTC
  21502. + TANZANIA            3 H  AHEAD OF UTC
  21503. + THAILAND            7 H  AHEAD OF UTC
  21504. + TRINIDAD / TOBAGO   4 H  BEHIND UTC
  21505. + TUNISIA             1 H  AHEAD OF UTC
  21506. + TUNISIA             2 H  AHEAD OF UTC  APR 10 - SEP 24
  21507. + TURKEY              2 H  AHEAD OF UTC
  21508. + TURKEY              3 H  AHEAD OF UTC  MAR 27 - SEP 24
  21509. + TURKS AND CAICOS    5 H  BEHIND UTC
  21510. + TURKS AND CAICOS    4 H  BEHIND UTC    APR 3 - OCT 29
  21511. + TUVALU             12 H  AHEAD OF UTC
  21512. + UDAN               2 H  AHEAD OF UTC
  21513. + UGANDA              3 H  AHEAD OF UTC
  21514. + UNITED ARAB EMIR.   4 H  AHEAD OF UTC  ABU DHABI, DUBAI, SHARJAH,
  21515. + UNITED ARAB EMIR                       RAS AL KHAIMAH
  21516. + UNITED KINGDOM      ON UTC             WALES, SCOTLAND, N.I., CH.
  21517. + UNITED KINGDOM                         IS.
  21518. + UNITED KINGDOM      1 H  AHEAD OF UTC  MAR 27 - OCT 22
  21519. + UNITED STATES       SEE USA
  21520. + UPPER VOLTA         ON UTC
  21521. + URUGUAY             3 H  BEHIND UTC
  21522. + URUGUAY             2 H  BEHIND UTC    DEC 11, '88-FEB 25, '89
  21523. + URAGUAY                                (ESTIMATED)
  21524. + USA  EASTERN       5 H  BEHIND UTC    NEW YORK, WASHINGTON
  21525. + USA  EASTERN       4 H  BEHIND UTC    APR 3 - OCT 30
  21526. + USA  CENTRAL       6 H  BEHIND UTC    CHICAGO, HOUSTON
  21527. + USA  CENTRAL       5 H  BEHIND UTC    APR 3 - OCT 30
  21528. + USA  MOUNTAIN      7 H  BEHIND UTC    DENVER
  21529. + USA  MOUNTAIN      6 H  BEHIND UTC    APR 3 - OCT 30
  21530. + USA  PACIFIC       8 H  BEHIND UTC    L.A., SAN FRANCISCO
  21531. + USA  PACIFIC       7 H  BEHIND UTC    APR 3 - OCT 30
  21532. + USA  ALASKA STD    9 H  BEHIND UTC    MOST OF ALASKA     (AKST)
  21533. + USA  ALASKA STD    8 H  BEHIND UTC    APR 3 - OCT 30 (AKDT)
  21534. + USA  ALEUTIAN     10 H  BEHIND UTC    ISLANDS WEST OF 170W
  21535. + USA  - " -         9 H  BEHIND UTC    APR 3 - OCT 30
  21536. + USA  HAWAII       10 H  BEHIND UTC
  21537. + USA  BERING       11 H  BEHIND UTC    SAMOA, MIDWAY
  21538. + USA  FOR SPECIFIC INFO ON USA ZONES/TIMES CALL DOT 202-426-4520
  21539. + USSR WEST EUROP     3 H  AHEAD OF UTC  LENINGRAD, MOSCOW
  21540. + USSR WEST EUROP     4 H  AHEAD OF UTC  APR 1 - SEP 30
  21541. + USSR CENTRAL EUR    4 H  AHEAD OF UTC  ROSTOV, BAKU
  21542. + USSR CENTRAL EUR    5 H  AHEAD OF UTC  APR 1 - SEP 30
  21543. + USSR EAST EUROP     5 H  AHEAD OF UTC  SVERDLOVSK
  21544. + USSR EAST EUROP     6 H  AHEAD OF UTC  APR 1 - SEP 30
  21545. + USSR WEST SIBERIAN  6 H  AHEAD OF UTC  TASHKENT, ALMA ATA
  21546. + USSR WEST SIBERIAN  7 H  AHEAD OF UTC  APR 1 - SEP 30
  21547. + USSR WEST-CENTRAL   7 H  AHEAD OF UTC  NOVOSIBIRSK
  21548. + USSR WEST-CENTRAL   8 H  AHEAD OF UTC  APR 1 - SEP 30
  21549. + USSR WEST-CENTRAL   8 H  AHEAD OF UTC  IRKUTSK
  21550. + USSR WEST-CENTRAL   9 H  AHEAD OF UTC  APR 1 - SEP 30
  21551. + USSR CENTRAL SIB    9 H  AHEAD OF UTC  YAKUTSK
  21552. + USSR CENTRAL SIB   10 H  AHEAD OF UTC  APR 1 - SEP 30
  21553. + USSR CENTRAL SIB   10 H  AHEAD OF UTC  VLADIVOSTOK
  21554. + USSR CENTRAL SIB   11 H  AHEAD OF UTC  APR 1 - SEP 30
  21555. + USSR EAST SIBERIA  11 H  AHEAD OF UTC  MAGADAN
  21556. + USSR EAST SIBERIA  12 H  AHEAD OF UTC  APR 1 - SEP 30
  21557. + USSR EAST SIBERIA  12 H  AHEAD OF UTC  PETROPAVLOVSK
  21558. + USSR EAST SIBERIA  13 H  AHEAD OF UTC  APR 1 - SEP 30
  21559. + USSR EAST SIBERIA  13 H  AHEAD OF UTC  UELEN
  21560. + USSR EAST SIBERIA  14 H  AHEAD OF UTC  APR 1 - SEP 30
  21561. + VANUATU            11 H  AHEAD OF UTC  (NEW HEBRIDES)
  21562. + VANUATU            12 H  AHEAD OF UTC  SEP 25, '88-MAR 25, '89
  21563. + VANUATU                                (ESTIMATED)
  21564. + VATICAN             1 H  AHEAD OF UTC
  21565. + VATICAN             2 H  AHEAD OF UTC  MAR 27 - SEP 24
  21566. + VIETNAM             7 H  AHEAD OF UTC
  21567. + VIRGIN ISLANDS      4 H  BEHIND UTC    ST.CROIX, ST.THOMAS,
  21568. + VIRGIN ISLANDS                         ST.JOHN
  21569. + WAKE ISLAND        12 H  AHEAD OF UTC
  21570. + WALES               SEE ENGLAND
  21571. + WALLIS/FUTUNA IS.  12 H  AHEAD OF UTC
  21572. + WINDWARD ISLANDS    4 H  BEHIND UTC    GRENADA, ST. LUCIA
  21573. + YEMEN               3 H  AHEAD OF UTC  BOTH REPUBLICS
  21574. + YUGOSLAVIA          1 H  AHEAD OF UTC
  21575. + YUGOSLAVIA          2 H  AHEAD OF UTC  MAR 27 - SEP 24
  21576. + ZAIRE  EAST         1 H  AHEAD OF UTC  KINSHASA MBANDAKA
  21577. + ZAIRE  WEST         2 H  AHEAD OF UTC  LUBUMBASHI, KASAI, KIVU,
  21578. + ZAIRE  WEST                            HAUT-ZAIRE, SHABA
  21579. + ZAMBIA              2 H  AHEAD OF UTC
  21580. + ZIMBABWE            2 H  AHEAD OF UTC
  21581. diff -rc --new-file emacs-18.59/amiga/unix/src/zoneinfo/getopt.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/zoneinfo/getopt.c
  21582. *** emacs-18.59/amiga/unix/src/zoneinfo/getopt.c    Thu Jan  1 00:00:00 1970
  21583. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/zoneinfo/getopt.c    Sat Aug  1 16:48:36 1992
  21584. ***************
  21585. *** 0 ****
  21586. --- 1,678 ----
  21587. + /* Getopt for GNU.
  21588. +    NOTE: getopt is now part of the C library, so if you don't know what
  21589. +    "Keep this file name-space clean" means, talk to roland@gnu.ai.mit.edu
  21590. +    before changing it!
  21591. + 
  21592. +    Copyright (C) 1987, 88, 89, 90, 91, 1992 Free Software Foundation, Inc.
  21593. + 
  21594. +    This program is free software; you can redistribute it and/or modify
  21595. +    it under the terms of the GNU General Public License as published by
  21596. +    the Free Software Foundation; either version 2, or (at your option)
  21597. +    any later version.
  21598. + 
  21599. +    This program is distributed in the hope that it will be useful,
  21600. +    but WITHOUT ANY WARRANTY; without even the implied warranty of
  21601. +    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21602. +    GNU General Public License for more details.
  21603. + 
  21604. +    You should have received a copy of the GNU General Public License
  21605. +    along with this program; if not, write to the Free Software
  21606. +    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
  21607. + 
  21608. + /* AIX requires this to be the first thing in the file. */
  21609. + #ifdef __GNUC__
  21610. + #define alloca __builtin_alloca
  21611. + #else /* not __GNUC__ */
  21612. + #if defined(sparc) && !defined(USG) && !defined(SVR4) && !defined(__svr4__)
  21613. + #include <alloca.h>
  21614. + #else
  21615. + #ifdef _AIX
  21616. +  #pragma alloca
  21617. + #else
  21618. + char *alloca ();
  21619. + #endif
  21620. + #endif /* sparc */
  21621. + #endif /* not __GNUC__ */
  21622. + 
  21623. + #ifdef    LIBC
  21624. + /* For when compiled as part of the GNU C library.  */
  21625. + #include <ansidecl.h>
  21626. + #endif
  21627. + 
  21628. + #include <stdio.h>
  21629. + 
  21630. + /* This needs to come after some library #include
  21631. +    to get __GNU_LIBRARY__ defined.  */
  21632. + #ifdef    __GNU_LIBRARY__
  21633. + #undef    alloca
  21634. + #include <stdlib.h>
  21635. + #include <string.h>
  21636. + #else    /* Not GNU C library.  */
  21637. + #define    __alloca    alloca
  21638. + #endif    /* GNU C library.  */
  21639. + 
  21640. + 
  21641. + #ifndef __STDC__
  21642. + #define const
  21643. + #endif
  21644. + 
  21645. + /* If GETOPT_COMPAT is defined, `+' as well as `--' can introduce a
  21646. +    long-named option.  Because this is not POSIX.2 compliant, it is
  21647. +    being phased out. */
  21648. + #define GETOPT_COMPAT
  21649. + 
  21650. + /* This version of `getopt' appears to the caller like standard Unix `getopt'
  21651. +    but it behaves differently for the user, since it allows the user
  21652. +    to intersperse the options with the other arguments.
  21653. + 
  21654. +    As `getopt' works, it permutes the elements of ARGV so that,
  21655. +    when it is done, all the options precede everything else.  Thus
  21656. +    all application programs are extended to handle flexible argument order.
  21657. + 
  21658. +    Setting the environment variable POSIXLY_CORRECT disables permutation.
  21659. +    Then the behavior is completely standard.
  21660. + 
  21661. +    GNU application programs can use a third alternative mode in which
  21662. +    they can distinguish the relative order of options and other arguments.  */
  21663. + 
  21664. + #include "getopt.h"
  21665. + 
  21666. + /* For communication from `getopt' to the caller.
  21667. +    When `getopt' finds an option that takes an argument,
  21668. +    the argument value is returned here.
  21669. +    Also, when `ordering' is RETURN_IN_ORDER,
  21670. +    each non-option ARGV-element is returned here.  */
  21671. + 
  21672. + char *optarg = 0;
  21673. + 
  21674. + /* Index in ARGV of the next element to be scanned.
  21675. +    This is used for communication to and from the caller
  21676. +    and for communication between successive calls to `getopt'.
  21677. + 
  21678. +    On entry to `getopt', zero means this is the first call; initialize.
  21679. + 
  21680. +    When `getopt' returns EOF, this is the index of the first of the
  21681. +    non-option elements that the caller should itself scan.
  21682. + 
  21683. +    Otherwise, `optind' communicates from one call to the next
  21684. +    how much of ARGV has been scanned so far.  */
  21685. + 
  21686. + int optind = 0;
  21687. + 
  21688. + /* The next char to be scanned in the option-element
  21689. +    in which the last option character we returned was found.
  21690. +    This allows us to pick up the scan where we left off.
  21691. + 
  21692. +    If this is zero, or a null string, it means resume the scan
  21693. +    by advancing to the next ARGV-element.  */
  21694. + 
  21695. + static char *nextchar;
  21696. + 
  21697. + /* Callers store zero here to inhibit the error message
  21698. +    for unrecognized options.  */
  21699. + 
  21700. + int opterr = 1;
  21701. + 
  21702. + /* Describe how to deal with options that follow non-option ARGV-elements.
  21703. + 
  21704. +    If the caller did not specify anything,
  21705. +    the default is REQUIRE_ORDER if the environment variable
  21706. +    POSIXLY_CORRECT is defined, PERMUTE otherwise.
  21707. + 
  21708. +    REQUIRE_ORDER means don't recognize them as options;
  21709. +    stop option processing when the first non-option is seen.
  21710. +    This is what Unix does.
  21711. +    This mode of operation is selected by either setting the environment
  21712. +    variable POSIXLY_CORRECT, or using `+' as the first character
  21713. +    of the list of option characters.
  21714. + 
  21715. +    PERMUTE is the default.  We permute the contents of ARGV as we scan,
  21716. +    so that eventually all the non-options are at the end.  This allows options
  21717. +    to be given in any order, even with programs that were not written to
  21718. +    expect this.
  21719. + 
  21720. +    RETURN_IN_ORDER is an option available to programs that were written
  21721. +    to expect options and other ARGV-elements in any order and that care about
  21722. +    the ordering of the two.  We describe each non-option ARGV-element
  21723. +    as if it were the argument of an option with character code 1.
  21724. +    Using `-' as the first character of the list of option characters
  21725. +    selects this mode of operation.
  21726. + 
  21727. +    The special argument `--' forces an end of option-scanning regardless
  21728. +    of the value of `ordering'.  In the case of RETURN_IN_ORDER, only
  21729. +    `--' can cause `getopt' to return EOF with `optind' != ARGC.  */
  21730. + 
  21731. + static enum
  21732. + {
  21733. +   REQUIRE_ORDER, PERMUTE, RETURN_IN_ORDER
  21734. + } ordering;
  21735. + 
  21736. + #ifdef    __GNU_LIBRARY__
  21737. + #include <string.h>
  21738. + #define    my_index    strchr
  21739. + #define    my_bcopy(src, dst, n)    memcpy ((dst), (src), (n))
  21740. + #else
  21741. + 
  21742. + /* Avoid depending on library functions or files
  21743. +    whose names are inconsistent.  */
  21744. + 
  21745. + char *getenv ();
  21746. + 
  21747. + static char *
  21748. + my_index (string, chr)
  21749. +      char *string;
  21750. +      int chr;
  21751. + {
  21752. +   while (*string)
  21753. +     {
  21754. +       if (*string == chr)
  21755. +     return string;
  21756. +       string++;
  21757. +     }
  21758. +   return 0;
  21759. + }
  21760. + 
  21761. + static void
  21762. + my_bcopy (from, to, size)
  21763. +      char *from, *to;
  21764. +      int size;
  21765. + {
  21766. +   int i;
  21767. +   for (i = 0; i < size; i++)
  21768. +     to[i] = from[i];
  21769. + }
  21770. + #endif                /* GNU C library.  */
  21771. + 
  21772. + /* Handle permutation of arguments.  */
  21773. + 
  21774. + /* Describe the part of ARGV that contains non-options that have
  21775. +    been skipped.  `first_nonopt' is the index in ARGV of the first of them;
  21776. +    `last_nonopt' is the index after the last of them.  */
  21777. + 
  21778. + static int first_nonopt;
  21779. + static int last_nonopt;
  21780. + 
  21781. + /* Exchange two adjacent subsequences of ARGV.
  21782. +    One subsequence is elements [first_nonopt,last_nonopt)
  21783. +    which contains all the non-options that have been skipped so far.
  21784. +    The other is elements [last_nonopt,optind), which contains all
  21785. +    the options processed since those non-options were skipped.
  21786. + 
  21787. +    `first_nonopt' and `last_nonopt' are relocated so that they describe
  21788. +    the new indices of the non-options in ARGV after they are moved.  */
  21789. + 
  21790. + static void
  21791. + exchange (argv)
  21792. +      char **argv;
  21793. + {
  21794. +   int nonopts_size = (last_nonopt - first_nonopt) * sizeof (char *);
  21795. +   char **temp = (char **) __alloca (nonopts_size);
  21796. + 
  21797. +   /* Interchange the two blocks of data in ARGV.  */
  21798. + 
  21799. +   my_bcopy (&argv[first_nonopt], temp, nonopts_size);
  21800. +   my_bcopy (&argv[last_nonopt], &argv[first_nonopt],
  21801. +         (optind - last_nonopt) * sizeof (char *));
  21802. +   my_bcopy (temp, &argv[first_nonopt + optind - last_nonopt], nonopts_size);
  21803. + 
  21804. +   /* Update records for the slots the non-options now occupy.  */
  21805. + 
  21806. +   first_nonopt += (optind - last_nonopt);
  21807. +   last_nonopt = optind;
  21808. + }
  21809. + 
  21810. + /* Scan elements of ARGV (whose length is ARGC) for option characters
  21811. +    given in OPTSTRING.
  21812. + 
  21813. +    If an element of ARGV starts with '-', and is not exactly "-" or "--",
  21814. +    then it is an option element.  The characters of this element
  21815. +    (aside from the initial '-') are option characters.  If `getopt'
  21816. +    is called repeatedly, it returns successively each of the option characters
  21817. +    from each of the option elements.
  21818. + 
  21819. +    If `getopt' finds another option character, it returns that character,
  21820. +    updating `optind' and `nextchar' so that the next call to `getopt' can
  21821. +    resume the scan with the following option character or ARGV-element.
  21822. + 
  21823. +    If there are no more option characters, `getopt' returns `EOF'.
  21824. +    Then `optind' is the index in ARGV of the first ARGV-element
  21825. +    that is not an option.  (The ARGV-elements have been permuted
  21826. +    so that those that are not options now come last.)
  21827. + 
  21828. +    OPTSTRING is a string containing the legitimate option characters.
  21829. +    If an option character is seen that is not listed in OPTSTRING,
  21830. +    return '?' after printing an error message.  If you set `opterr' to
  21831. +    zero, the error message is suppressed but we still return '?'.
  21832. + 
  21833. +    If a char in OPTSTRING is followed by a colon, that means it wants an arg,
  21834. +    so the following text in the same ARGV-element, or the text of the following
  21835. +    ARGV-element, is returned in `optarg'.  Two colons mean an option that
  21836. +    wants an optional arg; if there is text in the current ARGV-element,
  21837. +    it is returned in `optarg', otherwise `optarg' is set to zero.
  21838. + 
  21839. +    If OPTSTRING starts with `-' or `+', it requests different methods of
  21840. +    handling the non-option ARGV-elements.
  21841. +    See the comments about RETURN_IN_ORDER and REQUIRE_ORDER, above.
  21842. + 
  21843. +    Long-named options begin with `--' instead of `-'.
  21844. +    Their names may be abbreviated as long as the abbreviation is unique
  21845. +    or is an exact match for some defined option.  If they have an
  21846. +    argument, it follows the option name in the same ARGV-element, separated
  21847. +    from the option name by a `=', or else the in next ARGV-element.
  21848. +    When `getopt' finds a long-named option, it returns 0 if that option's
  21849. +    `flag' field is nonzero, the value of the option's `val' field
  21850. +    if the `flag' field is zero.
  21851. + 
  21852. +    The elements of ARGV aren't really const, because we permute them.
  21853. +    But we pretend they're const in the prototype to be compatible
  21854. +    with other systems.
  21855. + 
  21856. +    LONGOPTS is a vector of `struct option' terminated by an
  21857. +    element containing a name which is zero.
  21858. + 
  21859. +    LONGIND returns the index in LONGOPT of the long-named option found.
  21860. +    It is only valid when a long-named option has been found by the most
  21861. +    recent call.
  21862. + 
  21863. +    If LONG_ONLY is nonzero, '-' as well as '--' can introduce
  21864. +    long-named options.  */
  21865. + 
  21866. + int
  21867. + _getopt_internal (argc, argv, optstring, longopts, longind, long_only)
  21868. +      int argc;
  21869. +      char *const *argv;
  21870. +      const char *optstring;
  21871. +      const struct option *longopts;
  21872. +      int *longind;
  21873. +      int long_only;
  21874. + {
  21875. +   int option_index;
  21876. + 
  21877. +   optarg = 0;
  21878. + 
  21879. +   /* Initialize the internal data when the first call is made.
  21880. +      Start processing options with ARGV-element 1 (since ARGV-element 0
  21881. +      is the program name); the sequence of previously skipped
  21882. +      non-option ARGV-elements is empty.  */
  21883. + 
  21884. +   if (optind == 0)
  21885. +     {
  21886. +       first_nonopt = last_nonopt = optind = 1;
  21887. + 
  21888. +       nextchar = NULL;
  21889. + 
  21890. +       /* Determine how to handle the ordering of options and nonoptions.  */
  21891. + 
  21892. +       if (optstring[0] == '-')
  21893. +     {
  21894. +       ordering = RETURN_IN_ORDER;
  21895. +       ++optstring;
  21896. +     }
  21897. +       else if (optstring[0] == '+')
  21898. +     {
  21899. +       ordering = REQUIRE_ORDER;
  21900. +       ++optstring;
  21901. +     }
  21902. +       else if (getenv ("POSIXLY_CORRECT") != NULL)
  21903. +     ordering = REQUIRE_ORDER;
  21904. +       else
  21905. +     ordering = PERMUTE;
  21906. +     }
  21907. + 
  21908. +   if (nextchar == NULL || *nextchar == '\0')
  21909. +     {
  21910. +       if (ordering == PERMUTE)
  21911. +     {
  21912. +       /* If we have just processed some options following some non-options,
  21913. +          exchange them so that the options come first.  */
  21914. + 
  21915. +       if (first_nonopt != last_nonopt && last_nonopt != optind)
  21916. +         exchange ((char **) argv);
  21917. +       else if (last_nonopt != optind)
  21918. +         first_nonopt = optind;
  21919. + 
  21920. +       /* Now skip any additional non-options
  21921. +          and extend the range of non-options previously skipped.  */
  21922. + 
  21923. +       while (optind < argc
  21924. +          && (argv[optind][0] != '-' || argv[optind][1] == '\0')
  21925. + #ifdef GETOPT_COMPAT
  21926. +          && (longopts == NULL
  21927. +              || argv[optind][0] != '+' || argv[optind][1] == '\0')
  21928. + #endif                /* GETOPT_COMPAT */
  21929. +          )
  21930. +         optind++;
  21931. +       last_nonopt = optind;
  21932. +     }
  21933. + 
  21934. +       /* Special ARGV-element `--' means premature end of options.
  21935. +      Skip it like a null option,
  21936. +      then exchange with previous non-options as if it were an option,
  21937. +      then skip everything else like a non-option.  */
  21938. + 
  21939. +       if (optind != argc && !strcmp (argv[optind], "--"))
  21940. +     {
  21941. +       optind++;
  21942. + 
  21943. +       if (first_nonopt != last_nonopt && last_nonopt != optind)
  21944. +         exchange ((char **) argv);
  21945. +       else if (first_nonopt == last_nonopt)
  21946. +         first_nonopt = optind;
  21947. +       last_nonopt = argc;
  21948. + 
  21949. +       optind = argc;
  21950. +     }
  21951. + 
  21952. +       /* If we have done all the ARGV-elements, stop the scan
  21953. +      and back over any non-options that we skipped and permuted.  */
  21954. + 
  21955. +       if (optind == argc)
  21956. +     {
  21957. +       /* Set the next-arg-index to point at the non-options
  21958. +          that we previously skipped, so the caller will digest them.  */
  21959. +       if (first_nonopt != last_nonopt)
  21960. +         optind = first_nonopt;
  21961. +       return EOF;
  21962. +     }
  21963. + 
  21964. +       /* If we have come to a non-option and did not permute it,
  21965. +      either stop the scan or describe it to the caller and pass it by.  */
  21966. + 
  21967. +       if ((argv[optind][0] != '-' || argv[optind][1] == '\0')
  21968. + #ifdef GETOPT_COMPAT
  21969. +       && (longopts == NULL
  21970. +           || argv[optind][0] != '+' || argv[optind][1] == '\0')
  21971. + #endif                /* GETOPT_COMPAT */
  21972. +       )
  21973. +     {
  21974. +       if (ordering == REQUIRE_ORDER)
  21975. +         return EOF;
  21976. +       optarg = argv[optind++];
  21977. +       return 1;
  21978. +     }
  21979. + 
  21980. +       /* We have found another option-ARGV-element.
  21981. +      Start decoding its characters.  */
  21982. + 
  21983. +       nextchar = (argv[optind] + 1
  21984. +           + (longopts != NULL && argv[optind][1] == '-'));
  21985. +     }
  21986. + 
  21987. +   if (longopts != NULL
  21988. +       && ((argv[optind][0] == '-'
  21989. +        && (argv[optind][1] == '-' || long_only))
  21990. + #ifdef GETOPT_COMPAT
  21991. +       || argv[optind][0] == '+'
  21992. + #endif                /* GETOPT_COMPAT */
  21993. +       ))
  21994. +     {
  21995. +       const struct option *p;
  21996. +       char *s = nextchar;
  21997. +       int exact = 0;
  21998. +       int ambig = 0;
  21999. +       const struct option *pfound = NULL;
  22000. +       int indfound;
  22001. + 
  22002. +       while (*s && *s != '=')
  22003. +     s++;
  22004. + 
  22005. +       /* Test all options for either exact match or abbreviated matches.  */
  22006. +       for (p = longopts, option_index = 0; p->name;
  22007. +        p++, option_index++)
  22008. +     if (!strncmp (p->name, nextchar, s - nextchar))
  22009. +       {
  22010. +         if (s - nextchar == strlen (p->name))
  22011. +           {
  22012. +         /* Exact match found.  */
  22013. +         pfound = p;
  22014. +         indfound = option_index;
  22015. +         exact = 1;
  22016. +         break;
  22017. +           }
  22018. +         else if (pfound == NULL)
  22019. +           {
  22020. +         /* First nonexact match found.  */
  22021. +         pfound = p;
  22022. +         indfound = option_index;
  22023. +           }
  22024. +         else
  22025. +           /* Second nonexact match found.  */
  22026. +           ambig = 1;
  22027. +       }
  22028. + 
  22029. +       if (ambig && !exact)
  22030. +     {
  22031. +       if (opterr)
  22032. +         fprintf (stderr, "%s: option `%s' is ambiguous\n",
  22033. +              argv[0], argv[optind]);
  22034. +       nextchar += strlen (nextchar);
  22035. +       optind++;
  22036. +       return '?';
  22037. +     }
  22038. + 
  22039. +       if (pfound != NULL)
  22040. +     {
  22041. +       option_index = indfound;
  22042. +       optind++;
  22043. +       if (*s)
  22044. +         {
  22045. +           /* Don't test has_arg with >, because some C compilers don't
  22046. +          allow it to be used on enums. */
  22047. +           if (pfound->has_arg)
  22048. +         optarg = s + 1;
  22049. +           else
  22050. +         {
  22051. +           if (opterr)
  22052. +             {
  22053. +               if (argv[optind - 1][1] == '-')
  22054. +             /* --option */
  22055. +             fprintf (stderr,
  22056. +                  "%s: option `--%s' doesn't allow an argument\n",
  22057. +                  argv[0], pfound->name);
  22058. +               else
  22059. +             /* +option or -option */
  22060. +             fprintf (stderr,
  22061. +                  "%s: option `%c%s' doesn't allow an argument\n",
  22062. +                  argv[0], argv[optind - 1][0], pfound->name);
  22063. +             }
  22064. +           nextchar += strlen (nextchar);
  22065. +           return '?';
  22066. +         }
  22067. +         }
  22068. +       else if (pfound->has_arg == 1)
  22069. +         {
  22070. +           if (optind < argc)
  22071. +         optarg = argv[optind++];
  22072. +           else
  22073. +         {
  22074. +           if (opterr)
  22075. +             fprintf (stderr, "%s: option `%s' requires an argument\n",
  22076. +                  argv[0], argv[optind - 1]);
  22077. +           nextchar += strlen (nextchar);
  22078. +           return '?';
  22079. +         }
  22080. +         }
  22081. +       nextchar += strlen (nextchar);
  22082. +       if (longind != NULL)
  22083. +         *longind = option_index;
  22084. +       if (pfound->flag)
  22085. +         {
  22086. +           *(pfound->flag) = pfound->val;
  22087. +           return 0;
  22088. +         }
  22089. +       return pfound->val;
  22090. +     }
  22091. +       /* Can't find it as a long option.  If this is not getopt_long_only,
  22092. +      or the option starts with '--' or is not a valid short
  22093. +      option, then it's an error.
  22094. +      Otherwise interpret it as a short option. */
  22095. +       if (!long_only || argv[optind][1] == '-'
  22096. + #ifdef GETOPT_COMPAT
  22097. +       || argv[optind][0] == '+'
  22098. + #endif                /* GETOPT_COMPAT */
  22099. +       || my_index (optstring, *nextchar) == NULL)
  22100. +     {
  22101. +       if (opterr)
  22102. +         {
  22103. +           if (argv[optind][1] == '-')
  22104. +         /* --option */
  22105. +         fprintf (stderr, "%s: unrecognized option `--%s'\n",
  22106. +              argv[0], nextchar);
  22107. +           else
  22108. +         /* +option or -option */
  22109. +         fprintf (stderr, "%s: unrecognized option `%c%s'\n",
  22110. +              argv[0], argv[optind][0], nextchar);
  22111. +         }
  22112. +       nextchar += strlen (nextchar);
  22113. +       optind++;
  22114. +       return '?';
  22115. +     }
  22116. +     }
  22117. + 
  22118. +   /* Look at and handle the next option-character.  */
  22119. + 
  22120. +   {
  22121. +     char c = *nextchar++;
  22122. +     char *temp = my_index (optstring, c);
  22123. + 
  22124. +     /* Increment `optind' when we start to process its last character.  */
  22125. +     if (*nextchar == '\0')
  22126. +       optind++;
  22127. + 
  22128. +     if (temp == NULL || c == ':')
  22129. +       {
  22130. +     if (opterr)
  22131. +       {
  22132. +         if (c < 040 || c >= 0177)
  22133. +           fprintf (stderr, "%s: unrecognized option, character code 0%o\n",
  22134. +                argv[0], c);
  22135. +         else
  22136. +           fprintf (stderr, "%s: unrecognized option `-%c'\n", argv[0], c);
  22137. +       }
  22138. +     return '?';
  22139. +       }
  22140. +     if (temp[1] == ':')
  22141. +       {
  22142. +     if (temp[2] == ':')
  22143. +       {
  22144. +         /* This is an option that accepts an argument optionally.  */
  22145. +         if (*nextchar != '\0')
  22146. +           {
  22147. +         optarg = nextchar;
  22148. +         optind++;
  22149. +           }
  22150. +         else
  22151. +           optarg = 0;
  22152. +         nextchar = NULL;
  22153. +       }
  22154. +     else
  22155. +       {
  22156. +         /* This is an option that requires an argument.  */
  22157. +         if (*nextchar != 0)
  22158. +           {
  22159. +         optarg = nextchar;
  22160. +         /* If we end this ARGV-element by taking the rest as an arg,
  22161. +            we must advance to the next element now.  */
  22162. +         optind++;
  22163. +           }
  22164. +         else if (optind == argc)
  22165. +           {
  22166. +         if (opterr)
  22167. +           fprintf (stderr, "%s: option `-%c' requires an argument\n",
  22168. +                argv[0], c);
  22169. +         c = '?';
  22170. +           }
  22171. +         else
  22172. +           /* We already incremented `optind' once;
  22173. +          increment it again when taking next ARGV-elt as argument.  */
  22174. +           optarg = argv[optind++];
  22175. +         nextchar = NULL;
  22176. +       }
  22177. +       }
  22178. +     return c;
  22179. +   }
  22180. + }
  22181. + 
  22182. + int
  22183. + getopt (argc, argv, optstring)
  22184. +      int argc;
  22185. +      char *const *argv;
  22186. +      const char *optstring;
  22187. + {
  22188. +   return _getopt_internal (argc, argv, optstring,
  22189. +                (const struct option *) 0,
  22190. +                (int *) 0,
  22191. +                0);
  22192. + }
  22193. + 
  22194. + #ifdef TEST
  22195. + 
  22196. + /* Compile with -DTEST to make an executable for use in testing
  22197. +    the above definition of `getopt'.  */
  22198. + 
  22199. + int
  22200. + main (argc, argv)
  22201. +      int argc;
  22202. +      char **argv;
  22203. + {
  22204. +   int c;
  22205. +   int digit_optind = 0;
  22206. + 
  22207. +   while (1)
  22208. +     {
  22209. +       int this_option_optind = optind ? optind : 1;
  22210. + 
  22211. +       c = getopt (argc, argv, "abc:d:0123456789");
  22212. +       if (c == EOF)
  22213. +     break;
  22214. + 
  22215. +       switch (c)
  22216. +     {
  22217. +     case '0':
  22218. +     case '1':
  22219. +     case '2':
  22220. +     case '3':
  22221. +     case '4':
  22222. +     case '5':
  22223. +     case '6':
  22224. +     case '7':
  22225. +     case '8':
  22226. +     case '9':
  22227. +       if (digit_optind != 0 && digit_optind != this_option_optind)
  22228. +         printf ("digits occur in two different argv-elements.\n");
  22229. +       digit_optind = this_option_optind;
  22230. +       printf ("option %c\n", c);
  22231. +       break;
  22232. + 
  22233. +     case 'a':
  22234. +       printf ("option a\n");
  22235. +       break;
  22236. + 
  22237. +     case 'b':
  22238. +       printf ("option b\n");
  22239. +       break;
  22240. + 
  22241. +     case 'c':
  22242. +       printf ("option c with value `%s'\n", optarg);
  22243. +       break;
  22244. + 
  22245. +     case '?':
  22246. +       break;
  22247. + 
  22248. +     default:
  22249. +       printf ("?? getopt returned character code 0%o ??\n", c);
  22250. +     }
  22251. +     }
  22252. + 
  22253. +   if (optind < argc)
  22254. +     {
  22255. +       printf ("non-option ARGV-elements: ");
  22256. +       while (optind < argc)
  22257. +     printf ("%s ", argv[optind++]);
  22258. +       printf ("\n");
  22259. +     }
  22260. + 
  22261. +   exit (0);
  22262. + }
  22263. + 
  22264. + #endif /* TEST */
  22265. diff -rc --new-file emacs-18.59/amiga/unix/src/zoneinfo/getopt.h /gnu/src/amiga/emacs-18.59/amiga/unix/src/zoneinfo/getopt.h
  22266. *** emacs-18.59/amiga/unix/src/zoneinfo/getopt.h    Thu Jan  1 00:00:00 1970
  22267. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/zoneinfo/getopt.h    Tue Jun 23 20:12:40 1992
  22268. ***************
  22269. *** 0 ****
  22270. --- 1,113 ----
  22271. + /* Declarations for getopt.
  22272. +    Copyright (C) 1989, 1990, 1991, 1992 Free Software Foundation, Inc.
  22273. + 
  22274. +    This program is free software; you can redistribute it and/or modify
  22275. +    it under the terms of the GNU General Public License as published by
  22276. +    the Free Software Foundation; either version 2, or (at your option)
  22277. +    any later version.
  22278. + 
  22279. +    This program is distributed in the hope that it will be useful,
  22280. +    but WITHOUT ANY WARRANTY; without even the implied warranty of
  22281. +    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  22282. +    GNU General Public License for more details.
  22283. + 
  22284. +    You should have received a copy of the GNU General Public License
  22285. +    along with this program; if not, write to the Free Software
  22286. +    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
  22287. + 
  22288. + #ifndef _GETOPT_H_
  22289. + #define _GETOPT_H_
  22290. + 
  22291. + /* For communication from `getopt' to the caller.
  22292. +    When `getopt' finds an option that takes an argument,
  22293. +    the argument value is returned here.
  22294. +    Also, when `ordering' is RETURN_IN_ORDER,
  22295. +    each non-option ARGV-element is returned here.  */
  22296. + 
  22297. + extern char *optarg;
  22298. + 
  22299. + /* Index in ARGV of the next element to be scanned.
  22300. +    This is used for communication to and from the caller
  22301. +    and for communication between successive calls to `getopt'.
  22302. + 
  22303. +    On entry to `getopt', zero means this is the first call; initialize.
  22304. + 
  22305. +    When `getopt' returns EOF, this is the index of the first of the
  22306. +    non-option elements that the caller should itself scan.
  22307. + 
  22308. +    Otherwise, `optind' communicates from one call to the next
  22309. +    how much of ARGV has been scanned so far.  */
  22310. + 
  22311. + extern int optind;
  22312. + 
  22313. + /* Callers store zero here to inhibit the error message `getopt' prints
  22314. +    for unrecognized options.  */
  22315. + 
  22316. + extern int opterr;
  22317. + 
  22318. + /* Describe the long-named options requested by the application.
  22319. +    The LONG_OPTIONS argument to getopt_long or getopt_long_only is a vector
  22320. +    of `struct option' terminated by an element containing a name which is
  22321. +    zero.
  22322. + 
  22323. +    The field `has_arg' is:
  22324. +    no_argument        (or 0) if the option does not take an argument,
  22325. +    required_argument    (or 1) if the option requires an argument,
  22326. +    optional_argument     (or 2) if the option takes an optional argument.
  22327. + 
  22328. +    If the field `flag' is not NULL, it points to a variable that is set
  22329. +    to the value given in the field `val' when the option is found, but
  22330. +    left unchanged if the option is not found.
  22331. + 
  22332. +    To have a long-named option do something other than set an `int' to
  22333. +    a compiled-in constant, such as set a value from `optarg', set the
  22334. +    option's `flag' field to zero and its `val' field to a nonzero
  22335. +    value (the equivalent single-letter option character, if there is
  22336. +    one).  For long options that have a zero `flag' field, `getopt'
  22337. +    returns the contents of the `val' field.  */
  22338. + 
  22339. + struct option
  22340. + {
  22341. + #ifdef    __STDC__
  22342. +   const char *name;
  22343. + #else
  22344. +   char *name;
  22345. + #endif
  22346. +   /* has_arg can't be an enum because some compilers complain about
  22347. +      type mismatches in all the code that assumes it is an int.  */
  22348. +   int has_arg;
  22349. +   int *flag;
  22350. +   int val;
  22351. + };
  22352. + 
  22353. + /* Names for the values of the `has_arg' field of `struct option'.  */
  22354. + 
  22355. + enum _argtype
  22356. + {
  22357. +   no_argument,
  22358. +   required_argument,
  22359. +   optional_argument
  22360. + };
  22361. + 
  22362. + #ifdef __STDC__
  22363. + extern int getopt (int argc, char *const *argv, const char *shortopts);
  22364. + extern int getopt_long (int argc, char *const *argv, const char *shortopts,
  22365. +                 const struct option *longopts, int *longind);
  22366. + extern int getopt_long_only (int argc, char *const *argv,
  22367. +                  const char *shortopts,
  22368. +                      const struct option *longopts, int *longind);
  22369. + 
  22370. + /* Internal only.  Users should not call this directly.  */
  22371. + extern int _getopt_internal (int argc, char *const *argv,
  22372. +                  const char *shortopts,
  22373. +                      const struct option *longopts, int *longind,
  22374. +                  int long_only);
  22375. + #else /* not __STDC__ */
  22376. + extern int getopt ();
  22377. + extern int getopt_long ();
  22378. + extern int getopt_long_only ();
  22379. + 
  22380. + extern int _getopt_internal ();
  22381. + #endif /* not __STDC__ */
  22382. + 
  22383. + #endif /* _GETOPT_H_ */
  22384. diff -rc --new-file emacs-18.59/amiga/unix/src/zoneinfo/ialloc.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/zoneinfo/ialloc.c
  22385. *** emacs-18.59/amiga/unix/src/zoneinfo/ialloc.c    Thu Jan  1 00:00:00 1970
  22386. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/zoneinfo/ialloc.c    Sat Aug  1 16:53:24 1992
  22387. ***************
  22388. *** 0 ****
  22389. --- 1,142 ----
  22390. + /*-
  22391. +  * Copyright (c) 1991 The Regents of the University of California.
  22392. +  * All rights reserved.
  22393. +  *
  22394. +  * This code is derived from software contributed to Berkeley by
  22395. +  * Arthur David Olson of the National Cancer Institute.
  22396. +  *
  22397. +  * Redistribution and use in source and binary forms, with or without
  22398. +  * modification, are permitted provided that the following conditions
  22399. +  * are met:
  22400. +  * 1. Redistributions of source code must retain the above copyright
  22401. +  *    notice, this list of conditions and the following disclaimer.
  22402. +  * 2. Redistributions in binary form must reproduce the above copyright
  22403. +  *    notice, this list of conditions and the following disclaimer in the
  22404. +  *    documentation and/or other materials provided with the distribution.
  22405. +  * 3. All advertising materials mentioning features or use of this software
  22406. +  *    must display the following acknowledgement:
  22407. +  *    This product includes software developed by the University of
  22408. +  *    California, Berkeley and its contributors.
  22409. +  * 4. Neither the name of the University nor the names of its contributors
  22410. +  *    may be used to endorse or promote products derived from this software
  22411. +  *    without specific prior written permission.
  22412. +  *
  22413. +  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  22414. +  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  22415. +  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  22416. +  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  22417. +  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  22418. +  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  22419. +  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  22420. +  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  22421. +  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  22422. +  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  22423. +  * SUCH DAMAGE.
  22424. +  */
  22425. + 
  22426. + #ifndef lint
  22427. + static char sccsid[] = "@(#)ialloc.c    5.3 (Berkeley) 4/20/91";
  22428. + #endif /* not lint */
  22429. + 
  22430. + #ifdef notdef
  22431. + static char    elsieid[] = "@(#)ialloc.c    8.18";
  22432. + #endif
  22433. + 
  22434. + /*LINTLIBRARY*/
  22435. + 
  22436. + #include <sys/cdefs.h>
  22437. + #include <sys/types.h>
  22438. + #include <string.h>
  22439. + #include <stdlib.h>
  22440. + 
  22441. + #ifdef MAL
  22442. + #define NULLMAL(x)    ((x) == NULL || (x) == MAL)
  22443. + #else /* !defined MAL */
  22444. + #define NULLMAL(x)    ((x) == NULL)
  22445. + #endif /* !defined MAL */
  22446. + 
  22447. + #define nonzero(n)    (((n) == 0) ? 1 : (n))
  22448. + 
  22449. + char *    icalloc __P((int nelem, int elsize));
  22450. + char *    icatalloc __P((char * old, const char * new));
  22451. + char *    icpyalloc __P((const char * string));
  22452. + char *    imalloc __P((int n));
  22453. + char *    irealloc __P((char * pointer, int size));
  22454. + void    ifree __P((char * pointer));
  22455. + 
  22456. + char *
  22457. + imalloc(n)
  22458. + const int    n;
  22459. + {
  22460. + #ifdef MAL
  22461. +     register char *    result;
  22462. + 
  22463. +     result = malloc((size_t) nonzero(n));
  22464. +     return NULLMAL(result) ? NULL : result;
  22465. + #else /* !defined MAL */
  22466. +     return malloc((size_t) nonzero(n));
  22467. + #endif /* !defined MAL */
  22468. + }
  22469. + 
  22470. + char *
  22471. + icalloc(nelem, elsize)
  22472. + int    nelem;
  22473. + int    elsize;
  22474. + {
  22475. +     if (nelem == 0 || elsize == 0)
  22476. +         nelem = elsize = 1;
  22477. +     return calloc((size_t) nelem, (size_t) elsize);
  22478. + }
  22479. + 
  22480. + char *
  22481. + irealloc(pointer, size)
  22482. + char * const    pointer;
  22483. + const int    size;
  22484. + {
  22485. +     if (NULLMAL(pointer))
  22486. +         return imalloc(size);
  22487. +     return realloc((void *) pointer, (size_t) nonzero(size));
  22488. + }
  22489. + 
  22490. + char *
  22491. + icatalloc(old, new)
  22492. + char * const        old;
  22493. + const char * const    new;
  22494. + {
  22495. +     register char *    result;
  22496. +     register    oldsize, newsize;
  22497. + 
  22498. +     newsize = NULLMAL(new) ? 0 : strlen(new);
  22499. +     if (NULLMAL(old))
  22500. +         oldsize = 0;
  22501. +     else if (newsize == 0)
  22502. +         return old;
  22503. +     else    oldsize = strlen(old);
  22504. +     if ((result = irealloc(old, oldsize + newsize + 1)) != NULL)
  22505. +         if (!NULLMAL(new))
  22506. +             (void) strcpy(result + oldsize, new);
  22507. +     return result;
  22508. + }
  22509. + 
  22510. + char *
  22511. + icpyalloc(string)
  22512. + const char * const    string;
  22513. + {
  22514. +     return icatalloc((char *) NULL, string);
  22515. + }
  22516. + 
  22517. + void
  22518. + ifree(p)
  22519. + char * const    p;
  22520. + {
  22521. +     if (!NULLMAL(p))
  22522. +         (void) free(p);
  22523. + }
  22524. + 
  22525. + void
  22526. + icfree(p)
  22527. + char * const    p;
  22528. + {
  22529. +     if (!NULLMAL(p))
  22530. +         (void) free(p);
  22531. + }
  22532. diff -rc --new-file emacs-18.59/amiga/unix/src/zoneinfo/smakefile /gnu/src/amiga/emacs-18.59/amiga/unix/src/zoneinfo/smakefile
  22533. *** emacs-18.59/amiga/unix/src/zoneinfo/smakefile    Thu Jan  1 00:00:00 1970
  22534. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/zoneinfo/smakefile    Thu Sep 30 19:25:36 1993
  22535. ***************
  22536. *** 0 ****
  22537. --- 1,11 ----
  22538. + CFLAGS= DEFINE=TM_GMTOFF=tm_gmtoff DEFINE=TM_ZONE=tm_zone DEFINE=emkdir=mkdir DEFINE=NOSOLAR IDIR=src:unix/include/ IGNORE=104
  22539. + 
  22540. + all: zic
  22541. + 
  22542. + zic: zic.o ialloc.o getopt.o
  22543. +     sc link to zic zic.o ialloc.o getopt.o lib src:unix/src/unix.lib
  22544. + 
  22545. + zic.o: zic.c
  22546. + ialloc.o: ialloc.c
  22547. + getopt.o: getopt.c getopt.h
  22548. + 
  22549. Binary files emacs-18.59/amiga/unix/src/zoneinfo/zic and /gnu/src/amiga/emacs-18.59/amiga/unix/src/zoneinfo/zic differ
  22550. diff -rc --new-file emacs-18.59/amiga/unix/src/zoneinfo/zic.8 /gnu/src/amiga/emacs-18.59/amiga/unix/src/zoneinfo/zic.8
  22551. *** emacs-18.59/amiga/unix/src/zoneinfo/zic.8    Thu Jan  1 00:00:00 1970
  22552. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/zoneinfo/zic.8    Sat Aug  1 14:23:58 1992
  22553. ***************
  22554. *** 0 ****
  22555. --- 1,424 ----
  22556. + .\" Copyright (c) 1991 The Regents of the University of California.
  22557. + .\" All rights reserved.
  22558. + .\"
  22559. + .\" This code is derived from software contributed to Berkeley by
  22560. + .\" Arthur David Olson of the National Cancer Institute.
  22561. + .\"
  22562. + .\" Redistribution and use in source and binary forms, with or without
  22563. + .\" modification, are permitted provided that the following conditions
  22564. + .\" are met:
  22565. + .\" 1. Redistributions of source code must retain the above copyright
  22566. + .\"    notice, this list of conditions and the following disclaimer.
  22567. + .\" 2. Redistributions in binary form must reproduce the above copyright
  22568. + .\"    notice, this list of conditions and the following disclaimer in the
  22569. + .\"    documentation and/or other materials provided with the distribution.
  22570. + .\" 3. All advertising materials mentioning features or use of this software
  22571. + .\"    must display the following acknowledgement:
  22572. + .\"    This product includes software developed by the University of
  22573. + .\"    California, Berkeley and its contributors.
  22574. + .\" 4. Neither the name of the University nor the names of its contributors
  22575. + .\"    may be used to endorse or promote products derived from this software
  22576. + .\"    without specific prior written permission.
  22577. + .\"
  22578. + .\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  22579. + .\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  22580. + .\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  22581. + .\" ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  22582. + .\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  22583. + .\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  22584. + .\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  22585. + .\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  22586. + .\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  22587. + .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  22588. + .\" SUCH DAMAGE.
  22589. + .\"
  22590. + .\"    @(#)zic.8    5.2 (Berkeley) 4/20/91
  22591. + .\"
  22592. + .TH ZIC 8
  22593. + .SH NAME
  22594. + zic \- time zone compiler
  22595. + .SH SYNOPSIS
  22596. + .B zic
  22597. + [
  22598. + .B \-v
  22599. + ] [
  22600. + .B \-d
  22601. + .I directory
  22602. + ] [
  22603. + .B \-l
  22604. + .I localtime
  22605. + ] [
  22606. + .B \-p
  22607. + .I posixrules
  22608. + ] [
  22609. + .B \-L
  22610. + .I leapsecondfilename
  22611. + ] [
  22612. + .B \-s
  22613. + ] [
  22614. + .I filename
  22615. + \&... ]
  22616. + .SH DESCRIPTION
  22617. + .if t .ds lq ``
  22618. + .if t .ds rq ''
  22619. + .if n .ds lq \&"\"
  22620. + .if n .ds rq \&"\"
  22621. + .de q
  22622. + \\$3\*(lq\\$1\*(rq\\$2
  22623. + ..
  22624. + .I Zic
  22625. + reads text from the file(s) named on the command line
  22626. + and creates the time conversion information files specified in this input.
  22627. + If a
  22628. + .I filename
  22629. + is
  22630. + .BR \- ,
  22631. + the standard input is read.
  22632. + .PP
  22633. + These options are available:
  22634. + .TP
  22635. + .BI "\-d " directory
  22636. + Create time conversion information files in the named directory rather than
  22637. + in the standard directory named below.
  22638. + .TP
  22639. + .BI "\-l " timezone
  22640. + Use the given time zone as local time.
  22641. + .I Zic
  22642. + will act as if the input contained a link line of the form
  22643. + .sp
  22644. + .ti +.5i
  22645. + Link    \fItimezone\fP        localtime
  22646. + .TP
  22647. + .BI "\-p " timezone
  22648. + Use the given time zone's rules when handling POSIX-format
  22649. + time zone environment variables.
  22650. + .I Zic
  22651. + will act as if the input contained a link line of the form
  22652. + .sp
  22653. + .ti +.5i
  22654. + Link    \fItimezone\fP        posixrules
  22655. + .TP
  22656. + .BI "\-L " leapsecondfilename
  22657. + Read leap second information from the file with the given name.
  22658. + If this option is not used,
  22659. + no leap second information appears in output files.
  22660. + .TP
  22661. + .B \-v
  22662. + Complain if a year that appears in a data file is outside the range
  22663. + of years representable by
  22664. + .IR time (2)
  22665. + values.
  22666. + .TP
  22667. + .B \-s
  22668. + Limit time values stored in output files to values that are the same
  22669. + whether they're taken to be signed or unsigned.
  22670. + You can use this option to generate SVVS-compatible files.
  22671. + .sp
  22672. + Input lines are made up of fields.
  22673. + Fields are separated from one another by any number of white space characters.
  22674. + Leading and trailing white space on input lines is ignored.
  22675. + An unquoted sharp character (#) in the input introduces a comment which extends
  22676. + to the end of the line the sharp character appears on.
  22677. + White space characters and sharp characters may be enclosed in double quotes
  22678. + (") if they're to be used as part of a field.
  22679. + Any line that is blank (after comment stripping) is ignored.
  22680. + Non-blank lines are expected to be of one of three types:
  22681. + rule lines, zone lines, and link lines.
  22682. + .PP
  22683. + A rule line has the form
  22684. + .nf
  22685. + .B
  22686. + .ti +.5i
  22687. + .ta \w'Rule\0\0'u +\w'NAME\0\0'u +\w'FROM\0\0'u +\w'1973\0\0'u +\w'TYPE\0\0'u +\w'Apr\0\0'u +\w'lastSun\0\0'u +\w'2:00\0\0'u +\w'SAVE\0\0'u
  22688. + .sp
  22689. + Rule    NAME    FROM    TO    TYPE    IN    ON    AT    SAVE    LETTER/S
  22690. + .sp
  22691. + For example:
  22692. + .ti +.5i
  22693. + .sp
  22694. + Rule    USA    1969    1973    \-    Apr    lastSun    2:00    1:00    D
  22695. + .sp
  22696. + .fi
  22697. + The fields that make up a rule line are:
  22698. + .TP "\w'LETTER/S'u"
  22699. + .B NAME
  22700. + Gives the (arbitrary) name of the set of rules this rule is part of.
  22701. + .TP
  22702. + .B FROM
  22703. + Gives the first year in which the rule applies.
  22704. + The word
  22705. + .B minimum
  22706. + (or an abbreviation) means the minimum year with a representable time value.
  22707. + The word
  22708. + .B maximum
  22709. + (or an abbreviation) means the maximum year with a representable time value.
  22710. + .TP
  22711. + .B TO
  22712. + Gives the final year in which the rule applies.
  22713. + In addition to
  22714. + .B minimum
  22715. + and
  22716. + .B maximum
  22717. + (as above),
  22718. + the word
  22719. + .B only
  22720. + (or an abbreviation)
  22721. + may be used to repeat the value of the
  22722. + .B FROM
  22723. + field.
  22724. + .TP
  22725. + .B TYPE
  22726. + Gives the type of year in which the rule applies.
  22727. + If
  22728. + .B TYPE
  22729. + is
  22730. + .B \-
  22731. + then the rule applies in all years between
  22732. + .B FROM
  22733. + and
  22734. + .B TO
  22735. + inclusive;
  22736. + if
  22737. + .B TYPE
  22738. + is
  22739. + .BR uspres ,
  22740. + the rule applies in U.S. Presidential election years;
  22741. + if
  22742. + .B TYPE
  22743. + is
  22744. + .BR nonpres ,
  22745. + the rule applies in years other than U.S. Presidential election years.
  22746. + If
  22747. + .B TYPE
  22748. + is something else, then
  22749. + .I zic
  22750. + executes the command
  22751. + .ti +.5i
  22752. + \fByearistype\fP \fIyear\fP \fItype\fP
  22753. + .br
  22754. + to check the type of a year:
  22755. + an exit status of zero is taken to mean that the year is of the given type;
  22756. + an exit status of one is taken to mean that the year is not of the given type.
  22757. + .TP
  22758. + .B IN
  22759. + Names the month in which the rule takes effect.
  22760. + Month names may be abbreviated.
  22761. + .TP
  22762. + .B ON
  22763. + Gives the day on which the rule takes effect.
  22764. + Recognized forms include:
  22765. + .nf
  22766. + .in +.5i
  22767. + .sp
  22768. + .ta \w'Sun<=25\0\0'u
  22769. + 5    the fifth of the month
  22770. + lastSun    the last Sunday in the month
  22771. + lastMon    the last Monday in the month
  22772. + Sun>=8    first Sunday on or after the eighth
  22773. + Sun<=25    last Sunday on or before the 25th
  22774. + .fi
  22775. + .in -.5i
  22776. + .sp
  22777. + Names of days of the week may be abbreviated or spelled out in full.
  22778. + Note that there must be no spaces within the
  22779. + .B ON
  22780. + field.
  22781. + .TP
  22782. + .B AT
  22783. + Gives the time of day at which the rule takes effect.
  22784. + Recognized forms include:
  22785. + .nf
  22786. + .in +.5i
  22787. + .sp
  22788. + .ta \w'1:28:13\0\0'u
  22789. + 2    time in hours
  22790. + 2:00    time in hours and minutes
  22791. + 15:00    24-hour format time (for times after noon)
  22792. + 1:28:14    time in hours, minutes, and seconds
  22793. + .fi
  22794. + .in -.5i
  22795. + .sp
  22796. + Any of these forms may be followed by the letter
  22797. + .B w
  22798. + if the given time is local
  22799. + .q "wall clock"
  22800. + time or
  22801. + .B s
  22802. + if the given time is local
  22803. + .q standard
  22804. + time; in the absence of
  22805. + .B w
  22806. + or
  22807. + .BR s ,
  22808. + wall clock time is assumed.
  22809. + .TP
  22810. + .B SAVE
  22811. + Gives the amount of time to be added to local standard time when the rule is in
  22812. + effect.
  22813. + This field has the same format as the
  22814. + .B AT
  22815. + field
  22816. + (although, of course, the
  22817. + .B w
  22818. + and
  22819. + .B s
  22820. + suffixes are not used).
  22821. + .TP
  22822. + .B LETTER/S
  22823. + Gives the
  22824. + .q "variable part"
  22825. + (for example, the
  22826. + .q S
  22827. + or
  22828. + .q D
  22829. + in
  22830. + .q EST
  22831. + or
  22832. + .q EDT )
  22833. + of time zone abbreviations to be used when this rule is in effect.
  22834. + If this field is
  22835. + .BR \- ,
  22836. + the variable part is null.
  22837. + .PP
  22838. + A zone line has the form
  22839. + .sp
  22840. + .nf
  22841. + .ti +.5i
  22842. + .ta \w'Zone\0\0'u +\w'Australia/South\-west\0\0'u +\w'GMTOFF\0\0'u +\w'RULES/SAVE\0\0'u +\w'FORMAT\0\0'u
  22843. + Zone    NAME    GMTOFF    RULES/SAVE    FORMAT    [UNTIL]
  22844. + .sp
  22845. + For example:
  22846. + .sp
  22847. + .ti +.5i
  22848. + Zone    Australia/South\-west    9:30    Aus    CST    1987 Mar 15 2:00
  22849. + .sp
  22850. + .fi
  22851. + The fields that make up a zone line are:
  22852. + .TP "\w'GMTOFF'u"
  22853. + .B NAME
  22854. + The name of the time zone.
  22855. + This is the name used in creating the time conversion information file for the
  22856. + zone.
  22857. + .TP
  22858. + .B GMTOFF
  22859. + The amount of time to add to GMT to get standard time in this zone.
  22860. + This field has the same format as the
  22861. + .B AT
  22862. + and
  22863. + .B SAVE
  22864. + fields of rule lines;
  22865. + begin the field with a minus sign if time must be subtracted from GMT.
  22866. + .TP
  22867. + .B RULES/SAVE
  22868. + The name of the rule(s) that apply in the time zone or,
  22869. + alternately, an amount of time to add to local standard time.
  22870. + If this field is
  22871. + .B \-
  22872. + then standard time always applies in the time zone.
  22873. + .TP
  22874. + .B FORMAT
  22875. + The format for time zone abbreviations in this time zone.
  22876. + The pair of characters
  22877. + .B %s
  22878. + is used to show where the
  22879. + .q "variable part"
  22880. + of the time zone abbreviation goes.
  22881. + .TP
  22882. + .B UNTIL
  22883. + The time at which the GMT offset or the rule(s) change for a location.
  22884. + It is specified as a year, a month, a day, and a time of day.
  22885. + If this is specified,
  22886. + the time zone information is generated from the given GMT offset
  22887. + and rule change until the time specified.
  22888. + .IP
  22889. + The next line must be a
  22890. + .q continuation
  22891. + line; this has the same form as a zone line except that the
  22892. + string
  22893. + .q Zone
  22894. + and the name are omitted, as the continuation line will
  22895. + place information starting at the time specified as the
  22896. + .B UNTIL
  22897. + field in the previous line in the file used by the previous line.
  22898. + Continuation lines may contain an
  22899. + .B UNTIL
  22900. + field, just as zone lines do, indicating that the next line is a further
  22901. + continuation.
  22902. + .PP
  22903. + A link line has the form
  22904. + .sp
  22905. + .nf
  22906. + .ti +.5i
  22907. + .if t .ta \w'Link\0\0'u +\w'LINK-FROM\0\0'u
  22908. + .if n .ta \w'Link\0\0'u +\w'US/Eastern\0\0'u
  22909. + Link    LINK-FROM    LINK-TO
  22910. + .sp
  22911. + For example:
  22912. + .sp
  22913. + .ti +.5i
  22914. + Link    US/Eastern    EST5EDT
  22915. + .sp
  22916. + .fi
  22917. + The
  22918. + .B LINK-FROM
  22919. + field should appear as the
  22920. + .B NAME
  22921. + field in some zone line;
  22922. + the
  22923. + .B LINK-TO
  22924. + field is used as an alternate name for that zone.
  22925. + .PP
  22926. + Except for continuation lines,
  22927. + lines may appear in any order in the input.
  22928. + .PP
  22929. + Lines in the file that describes leap seconds have the following form:
  22930. + .nf
  22931. + .B
  22932. + .ti +.5i
  22933. + .ta \w'Leap\0\0'u +\w'YEAR\0\0'u +\w'MONTH\0\0'u +\w'DAY\0\0'u +\w'HH:MM:SS\0\0'u +\w'CORR\0\0'u
  22934. + Leap    YEAR    MONTH    DAY    HH:MM:SS    CORR    R/S
  22935. + .sp
  22936. + For example:
  22937. + .ti +.5i
  22938. + .sp
  22939. + Leap    1974    Dec    31    23:59:60    +    S
  22940. + .sp
  22941. + .fi
  22942. + The 
  22943. + .BR YEAR ,
  22944. + .BR MONTH ,
  22945. + .BR DAY ,
  22946. + and
  22947. + .B HH:MM:SS
  22948. + fields tell when the leap second happened.
  22949. + The
  22950. + .B CORR
  22951. + field
  22952. + should be
  22953. + .q +
  22954. + if a second was added
  22955. + or 
  22956. + .q -
  22957. + if a second was skipped.
  22958. + The
  22959. + .B R/S
  22960. + field
  22961. + should be (an abbreviation of)
  22962. + .q Stationary
  22963. + if the leap second time given by the other fields should be interpreted as GMT
  22964. + or
  22965. + (an abbreviation of)
  22966. + .q Rolling
  22967. + if the leap second time given by the other fields should be interpreted as
  22968. + local wall clock time.
  22969. + .SH NOTE
  22970. + For areas with more than two types of local time,
  22971. + you may need to use local standard time in the
  22972. + .B AT
  22973. + field of the earliest transition time's rule to ensure that
  22974. + the earliest transition time recorded in the compiled file is correct.
  22975. + .SH FILE
  22976. + /etc/zoneinfo    standard directory used for created files
  22977. + .SH "SEE ALSO"
  22978. + newctime(3), tzfile(5), zdump(8)
  22979. + .. @(#)zic.8    4.4
  22980. diff -rc --new-file emacs-18.59/amiga/unix/src/zoneinfo/zic.c /gnu/src/amiga/emacs-18.59/amiga/unix/src/zoneinfo/zic.c
  22981. *** emacs-18.59/amiga/unix/src/zoneinfo/zic.c    Thu Jan  1 00:00:00 1970
  22982. --- /gnu/src/amiga/emacs-18.59/amiga/unix/src/zoneinfo/zic.c    Sat Aug  1 18:39:52 1992
  22983. ***************
  22984. *** 0 ****
  22985. --- 1,1903 ----
  22986. + /*-
  22987. +  * Copyright (c) 1991 The Regents of the University of California.
  22988. +  * All rights reserved.
  22989. +  *
  22990. +  * This code is derived from software contributed to Berkeley by
  22991. +  * Arthur David Olson of the National Cancer Institute.
  22992. +  *
  22993. +  * Redistribution and use in source and binary forms, with or without
  22994. +  * modification, are permitted provided that the following conditions
  22995. +  * are met:
  22996. +  * 1. Redistributions of source code must retain the above copyright
  22997. +  *    notice, this list of conditions and the following disclaimer.
  22998. +  * 2. Redistributions in binary form must reproduce the above copyright
  22999. +  *    notice, this list of conditions and the following disclaimer in the
  23000. +  *    documentation and/or other materials provided with the distribution.
  23001. +  * 3. All advertising materials mentioning features or use of this software
  23002. +  *    must display the following acknowledgement:
  23003. +  *    This product includes software developed by the University of
  23004. +  *    California, Berkeley and its contributors.
  23005. +  * 4. Neither the name of the University nor the names of its contributors
  23006. +  *    may be used to endorse or promote products derived from this software
  23007. +  *    without specific prior written permission.
  23008. +  *
  23009. +  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  23010. +  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  23011. +  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  23012. +  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  23013. +  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  23014. +  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  23015. +  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  23016. +  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  23017. +  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  23018. +  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  23019. +  * SUCH DAMAGE.
  23020. +  */
  23021. + 
  23022. + #ifndef lint
  23023. + static char sccsid[] = "@(#)zic.c    5.3 (Berkeley) 4/20/91";
  23024. + #endif /* not lint */
  23025. + 
  23026. + #ifdef notdef
  23027. + static char    elsieid[] = "@(#)zic.c    4.12";
  23028. + #endif
  23029. + 
  23030. + #include <sys/types.h>
  23031. + #include <sys/cdefs.h>
  23032. + #include <sys/stat.h>
  23033. + #include <time.h>
  23034. + #include <tzfile.h>
  23035. + #include <stdio.h>
  23036. + #include <ctype.h>
  23037. + #include <string.h>
  23038. + #include <stdlib.h>
  23039. + 
  23040. + #ifndef TRUE
  23041. + #define TRUE    1
  23042. + #define FALSE    0
  23043. + #endif /* !defined TRUE */
  23044. + 
  23045. + #ifndef EXIT_FAILURE
  23046. + #define EXIT_FAILURE 1
  23047. + #endif
  23048. + 
  23049. + #ifndef EXIT_SUCCESS
  23050. + #define EXIT_SUCCESS 0
  23051. + #endif
  23052. + 
  23053. + struct rule {
  23054. +     const char *    r_filename;
  23055. +     int        r_linenum;
  23056. +     const char *    r_name;
  23057. + 
  23058. +     int        r_loyear;    /* for example, 1986 */
  23059. +     int        r_hiyear;    /* for example, 1986 */
  23060. +     const char *    r_yrtype;
  23061. + 
  23062. +     int        r_month;    /* 0..11 */
  23063. + 
  23064. +     int        r_dycode;    /* see below */
  23065. +     int        r_dayofmonth;
  23066. +     int        r_wday;
  23067. + 
  23068. +     long        r_tod;        /* time from midnight */
  23069. +     int        r_todisstd;    /* above is standard time if TRUE */
  23070. +                     /* or wall clock time if FALSE */
  23071. +     long        r_stdoff;    /* offset from standard time */
  23072. +     const char *    r_abbrvar;    /* variable part of abbreviation */
  23073. + 
  23074. +     int        r_todo;        /* a rule to do (used in outzone) */
  23075. +     time_t        r_temp;        /* used in outzone */
  23076. + };
  23077. + 
  23078. + /*
  23079. + **    r_dycode        r_dayofmonth    r_wday
  23080. + */
  23081. + 
  23082. + #define DC_DOM        0    /* 1..31 */    /* unused */
  23083. + #define DC_DOWGEQ    1    /* 1..31 */    /* 0..6 (Sun..Sat) */
  23084. + #define DC_DOWLEQ    2    /* 1..31 */    /* 0..6 (Sun..Sat) */
  23085. + 
  23086. + struct zone {
  23087. +     const char *    z_filename;
  23088. +     int        z_linenum;
  23089. + 
  23090. +     const char *    z_name;
  23091. +     long        z_gmtoff;
  23092. +     const char *    z_rule;
  23093. +     const char *    z_format;
  23094. + 
  23095. +     long        z_stdoff;
  23096. + 
  23097. +     struct rule *    z_rules;
  23098. +     int        z_nrules;
  23099. + 
  23100. +     struct rule    z_untilrule;
  23101. +     time_t        z_untiltime;
  23102. + };
  23103. + 
  23104. + extern char *    icatalloc __P((char * old, const char * new));
  23105. + extern char *    icpyalloc __P((const char * string));
  23106. + extern void    ifree __P((char * p));
  23107. + extern char *    imalloc __P((int n));
  23108. + extern char *    irealloc __P((char * old, int n));
  23109. + extern int    link __P((const char * fromname, const char * toname));
  23110. + extern char *    optarg;
  23111. + extern int    optind;
  23112. + static void    addtt __P((time_t starttime, int type));
  23113. + static int    addtype
  23114. +             __P((long gmtoff, const char * abbr, int isdst,
  23115. +             int ttisstd));
  23116. + static void    addleap __P((time_t t, int positive, int rolling));
  23117. + static void    adjleap __P((void));
  23118. + static void    associate __P((void));
  23119. + static int    ciequal __P((const char * ap, const char * bp));
  23120. + static void    convert __P((long val, char * buf));
  23121. + static void    dolink __P((const char * fromfile, const char * tofile));
  23122. + static void    eat __P((const char * name, int num));
  23123. + static void    eats __P((const char * name, int num,
  23124. +             const char * rname, int rnum));
  23125. + static long    eitol __P((int i));
  23126. + static void    error __P((const char * message));
  23127. + static char **    getfields __P((char * buf));
  23128. + static long    gethms __P((char * string, const char * errstrng,
  23129. +             int signable));
  23130. + static void    infile __P((const char * filename));
  23131. + static void    inleap __P((char ** fields, int nfields));
  23132. + static void    inlink __P((char ** fields, int nfields));
  23133. + static void    inrule __P((char ** fields, int nfields));
  23134. + static int    inzcont __P((char ** fields, int nfields));
  23135. + static int    inzone __P((char ** fields, int nfields));
  23136. + static int    inzsub __P((char ** fields, int nfields, int iscont));
  23137. + static int    itsabbr __P((const char * abbr, const char * word));
  23138. + static int    itsdir __P((const char * name));
  23139. + static int    lowerit __P((int c));
  23140. + static char *    memcheck __P((char * tocheck));
  23141. + static int    mkdirs __P((char * filename));
  23142. + static void    newabbr __P((const char * abbr));
  23143. + static long    oadd __P((long t1, long t2));
  23144. + static void    outzone __P((const struct zone * zp, int ntzones));
  23145. + static void    puttzcode __P((long code, FILE * fp));
  23146. + static int    rcomp __P((const void *leftp, const void *rightp));
  23147. + static time_t    rpytime __P((const struct rule * rp, int wantedy));
  23148. + static void    rulesub __P((struct rule * rp, char * loyearp, char * hiyearp,
  23149. +         char * typep, char * monthp, char * dayp, char * timep));
  23150. + static void    setboundaries __P((void));
  23151. + static time_t    tadd __P((time_t t1, long t2));
  23152. + static void    usage __P((void));
  23153. + static void    writezone __P((const char * name));
  23154. + static int    yearistype __P((int year, const char * type));
  23155. + 
  23156. + static int        charcnt;
  23157. + static int        errors;
  23158. + static const char *    filename;
  23159. + static int        leapcnt;
  23160. + static int        linenum;
  23161. + static time_t        max_time;
  23162. + static int        max_year;
  23163. + static time_t        min_time;
  23164. + static int        min_year;
  23165. + static int        noise;
  23166. + static const char *    rfilename;
  23167. + static int        rlinenum;
  23168. + static const char *    progname;
  23169. + static int        timecnt;
  23170. + static int        typecnt;
  23171. + static int        tt_signed;
  23172. + 
  23173. + /*
  23174. + ** Line codes.
  23175. + */
  23176. + 
  23177. + #define LC_RULE        0
  23178. + #define LC_ZONE        1
  23179. + #define LC_LINK        2
  23180. + #define LC_LEAP        3
  23181. + 
  23182. + /*
  23183. + ** Which fields are which on a Zone line.
  23184. + */
  23185. + 
  23186. + #define ZF_NAME        1
  23187. + #define ZF_GMTOFF    2
  23188. + #define ZF_RULE        3
  23189. + #define ZF_FORMAT    4
  23190. + #define ZF_TILYEAR    5
  23191. + #define ZF_TILMONTH    6
  23192. + #define ZF_TILDAY    7
  23193. + #define ZF_TILTIME    8
  23194. + #define ZONE_MINFIELDS    5
  23195. + #define ZONE_MAXFIELDS    9
  23196. + 
  23197. + /*
  23198. + ** Which fields are which on a Zone continuation line.
  23199. + */
  23200. + 
  23201. + #define ZFC_GMTOFF    0
  23202. + #define ZFC_RULE    1
  23203. + #define ZFC_FORMAT    2
  23204. + #define ZFC_TILYEAR    3
  23205. + #define ZFC_TILMONTH    4
  23206. + #define ZFC_TILDAY    5
  23207. + #define ZFC_TILTIME    6
  23208. + #define ZONEC_MINFIELDS    3
  23209. + #define ZONEC_MAXFIELDS    7
  23210. + 
  23211. + /*
  23212. + ** Which files are which on a Rule line.
  23213. + */
  23214. + 
  23215. + #define RF_NAME        1
  23216. + #define RF_LOYEAR    2
  23217. + #define RF_HIYEAR    3
  23218. + #define RF_COMMAND    4
  23219. + #define RF_MONTH    5
  23220. + #define RF_DAY        6
  23221. + #define RF_TOD        7
  23222. + #define RF_STDOFF    8
  23223. + #define RF_ABBRVAR    9
  23224. + #define RULE_FIELDS    10
  23225. + 
  23226. + /*
  23227. + ** Which fields are which on a Link line.
  23228. + */
  23229. + 
  23230. + #define LF_FROM        1
  23231. + #define LF_TO        2
  23232. + #define LINK_FIELDS    3
  23233. + 
  23234. + /*
  23235. + ** Which fields are which on a Leap line.
  23236. + */
  23237. + 
  23238. + #define LP_YEAR        1
  23239. + #define LP_MONTH    2
  23240. + #define LP_DAY        3
  23241. + #define LP_TIME        4
  23242. + #define LP_CORR        5
  23243. + #define LP_ROLL        6
  23244. + #define LEAP_FIELDS    7
  23245. + 
  23246. + /*
  23247. + ** Year synonyms.
  23248. + */
  23249. + 
  23250. + #define YR_MINIMUM    0
  23251. + #define YR_MAXIMUM    1
  23252. + #define YR_ONLY        2
  23253. + 
  23254. + static struct rule *    rules;
  23255. + static int        nrules;    /* number of rules */
  23256. + 
  23257. + static struct zone *    zones;
  23258. + static int        nzones;    /* number of zones */
  23259. + 
  23260. + struct link {
  23261. +     const char *    l_filename;
  23262. +     int        l_linenum;
  23263. +     const char *    l_from;
  23264. +     const char *    l_to;
  23265. + };
  23266. + 
  23267. + static struct link *    links;
  23268. + static int        nlinks;
  23269. + 
  23270. + struct lookup {
  23271. +     const char *    l_word;
  23272. +     const int    l_value;
  23273. + };
  23274. + 
  23275. + static struct lookup const *    byword __P((const char * string,
  23276. +                     const struct lookup * lp));
  23277. + 
  23278. + static struct lookup const    line_codes[] = {
  23279. +     "Rule",        LC_RULE,
  23280. +     "Zone",        LC_ZONE,
  23281. +     "Link",        LC_LINK,
  23282. +     "Leap",        LC_LEAP,
  23283. +     NULL,        0
  23284. + };
  23285. + 
  23286. + static struct lookup const    mon_names[] = {
  23287. +     "January",    TM_JANUARY,
  23288. +     "February",    TM_FEBRUARY,
  23289. +     "March",    TM_MARCH,
  23290. +     "April",    TM_APRIL,
  23291. +     "May",        TM_MAY,
  23292. +     "June",        TM_JUNE,
  23293. +     "July",        TM_JULY,
  23294. +     "August",    TM_AUGUST,
  23295. +     "September",    TM_SEPTEMBER,
  23296. +     "October",    TM_OCTOBER,
  23297. +     "November",    TM_NOVEMBER,
  23298. +     "December",    TM_DECEMBER,
  23299. +     NULL,        0
  23300. + };
  23301. + 
  23302. + static struct lookup const    wday_names[] = {
  23303. +     "Sunday",    TM_SUNDAY,
  23304. +     "Monday",    TM_MONDAY,
  23305. +     "Tuesday",    TM_TUESDAY,
  23306. +     "Wednesday",    TM_WEDNESDAY,
  23307. +     "Thursday",    TM_THURSDAY,
  23308. +     "Friday",    TM_FRIDAY,
  23309. +     "Saturday",    TM_SATURDAY,
  23310. +     NULL,        0
  23311. + };
  23312. + 
  23313. + static struct lookup const    lasts[] = {
  23314. +     "last-Sunday",        TM_SUNDAY,
  23315. +     "last-Monday",        TM_MONDAY,
  23316. +     "last-Tuesday",        TM_TUESDAY,
  23317. +     "last-Wednesday",    TM_WEDNESDAY,
  23318. +     "last-Thursday",    TM_THURSDAY,
  23319. +     "last-Friday",        TM_FRIDAY,
  23320. +     "last-Saturday",    TM_SATURDAY,
  23321. +     NULL,            0
  23322. + };
  23323. + 
  23324. + static struct lookup const    begin_years[] = {
  23325. +     "minimum",        YR_MINIMUM,
  23326. +     "maximum",        YR_MAXIMUM,
  23327. +     NULL,            0
  23328. + };
  23329. + 
  23330. + static struct lookup const    end_years[] = {
  23331. +     "minimum",        YR_MINIMUM,
  23332. +     "maximum",        YR_MAXIMUM,
  23333. +     "only",            YR_ONLY,
  23334. +     NULL,            0
  23335. + };
  23336. + 
  23337. + static struct lookup const    leap_types[] = {
  23338. +     "Rolling",        TRUE,
  23339. +     "Stationary",        FALSE,
  23340. +     NULL,            0
  23341. + };
  23342. + 
  23343. + static const int    len_months[2][MONSPERYEAR] = {
  23344. +     31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31,
  23345. +     31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31
  23346. + };
  23347. + 
  23348. + static const int    len_years[2] = {
  23349. +     DAYSPERNYEAR, DAYSPERLYEAR
  23350. + };
  23351. + 
  23352. + static time_t        ats[TZ_MAX_TIMES];
  23353. + static unsigned char    types[TZ_MAX_TIMES];
  23354. + static long        gmtoffs[TZ_MAX_TYPES];
  23355. + static char        isdsts[TZ_MAX_TYPES];
  23356. + static char        abbrinds[TZ_MAX_TYPES];
  23357. + static char        ttisstds[TZ_MAX_TYPES];
  23358. + static char        chars[TZ_MAX_CHARS];
  23359. + static time_t        trans[TZ_MAX_LEAPS];
  23360. + static long        corr[TZ_MAX_LEAPS];
  23361. + static char        roll[TZ_MAX_LEAPS];
  23362. + 
  23363. + /*
  23364. + ** Memory allocation.
  23365. + */
  23366. + 
  23367. + static char *
  23368. + memcheck(ptr)
  23369. + char * const    ptr;
  23370. + {
  23371. +     if (ptr == NULL) {
  23372. +         (void) perror(progname);
  23373. +         (void) exit(EXIT_FAILURE);
  23374. +     }
  23375. +     return ptr;
  23376. + }
  23377. + 
  23378. + #define emalloc(size)        memcheck(imalloc(size))
  23379. + #define erealloc(ptr, size)    memcheck(irealloc(ptr, size))
  23380. + #define ecpyalloc(ptr)        memcheck(icpyalloc(ptr))
  23381. + #define ecatalloc(oldp, newp)    memcheck(icatalloc(oldp, newp))
  23382. + 
  23383. + /*
  23384. + ** Error handling.
  23385. + */
  23386. + 
  23387. + static void
  23388. + eats(name, num, rname, rnum)
  23389. + const char * const    name;
  23390. + const int        num;
  23391. + const char * const    rname;
  23392. + const int        rnum;
  23393. + {
  23394. +     filename = name;
  23395. +     linenum = num;
  23396. +     rfilename = rname;
  23397. +     rlinenum = rnum;
  23398. + }
  23399. + 
  23400. + static void
  23401. + eat(name, num)
  23402. + const char * const    name;
  23403. + const int        num;
  23404. + {
  23405. +     eats(name, num, (char *) NULL, -1);
  23406. + }
  23407. + 
  23408. + static void
  23409. + error(string)
  23410. + const char * const    string;
  23411. + {
  23412. +     /*
  23413. +     ** Match the format of "cc" to allow sh users to
  23414. +     **     zic ... 2>&1 | error -t "*" -v
  23415. +     ** on BSD systems.
  23416. +     */
  23417. +     (void) fprintf(stderr, "\"%s\", line %d: %s",
  23418. +         filename, linenum, string);
  23419. +     if (rfilename != NULL)
  23420. +         (void) fprintf(stderr, " (rule from \"%s\", line %d)",
  23421. +             rfilename, rlinenum);
  23422. +     (void) fprintf(stderr, "\n");
  23423. +     ++errors;
  23424. + }
  23425. + 
  23426. + static void
  23427. + usage()
  23428. + {
  23429. +     (void) fprintf(stderr,
  23430. + "%s: usage is %s [ -s ] [ -v ] [ -l localtime ] [ -p posixrules ] [ -d directory ]\n\
  23431. + \t[ -L leapseconds ] [ filename ... ]\n",
  23432. +         progname, progname);
  23433. +     (void) exit(EXIT_FAILURE);
  23434. + }
  23435. + 
  23436. + static const char *    psxrules = NULL;
  23437. + static const char *    lcltime = NULL;
  23438. + static const char *    directory = NULL;
  23439. + static const char *    leapsec = NULL;
  23440. + static int        sflag = FALSE;
  23441. + 
  23442. + int
  23443. + main(argc, argv)
  23444. + int    argc;
  23445. + char *    argv[];
  23446. + {
  23447. +     register int    i, j;
  23448. +     register int    c;
  23449. + 
  23450. +     (void) umask(umask(022) | 022);
  23451. +     progname = argv[0];
  23452. +     while ((c = getopt(argc, argv, "d:l:p:L:vs")) != EOF)
  23453. +         switch (c) {
  23454. +             default:
  23455. +                 usage();
  23456. +             case 'd':
  23457. +                 if (directory == NULL)
  23458. +                     directory = optarg;
  23459. +                 else {
  23460. +                     (void) fprintf(stderr,
  23461. + "%s: More than one -d option specified\n",
  23462. +                         progname);
  23463. +                     (void) exit(EXIT_FAILURE);
  23464. +                 }
  23465. +                 break;
  23466. +             case 'l':
  23467. +                 if (lcltime == NULL)
  23468. +                     lcltime = optarg;
  23469. +                 else {
  23470. +                     (void) fprintf(stderr,
  23471. + "%s: More than one -l option specified\n",
  23472. +                         progname);
  23473. +                     (void) exit(EXIT_FAILURE);
  23474. +                 }
  23475. +                 break;
  23476. +             case 'p':
  23477. +                 if (psxrules == NULL)
  23478. +                     psxrules = optarg;
  23479. +                 else {
  23480. +                     (void) fprintf(stderr,
  23481. + "%s: More than one -p option specified\n",
  23482. +                         progname);
  23483. +                     (void) exit(EXIT_FAILURE);
  23484. +                 }
  23485. +                 break;
  23486. +             case 'L':
  23487. +                 if (leapsec == NULL)
  23488. +                     leapsec = optarg;
  23489. +                 else {
  23490. +                     (void) fprintf(stderr,
  23491. + "%s: More than one -L option specified\n",
  23492. +                         progname);
  23493. +                     (void) exit(EXIT_FAILURE);
  23494. +                 }
  23495. +                 break;
  23496. +             case 'v':
  23497. +                 noise = TRUE;
  23498. +                 break;
  23499. +             case 's':
  23500. +                 sflag = TRUE;
  23501. +                 break;
  23502. +         }
  23503. +     if (optind == argc - 1 && strcmp(argv[optind], "=") == 0)
  23504. +         usage();    /* usage message by request */
  23505. +     if (directory == NULL)
  23506. +         directory = TZDIR;
  23507. + 
  23508. +     setboundaries();
  23509. + 
  23510. +     if (optind < argc && leapsec != NULL) {
  23511. +         infile(leapsec);
  23512. +         adjleap();
  23513. +     }
  23514. + 
  23515. +     zones = (struct zone *) emalloc(0);
  23516. +     rules = (struct rule *) emalloc(0);
  23517. +     links = (struct link *) emalloc(0);
  23518. +     for (i = optind; i < argc; ++i)
  23519. +         infile(argv[i]);
  23520. +     if (errors)
  23521. +         (void) exit(EXIT_FAILURE);
  23522. +     associate();
  23523. +     for (i = 0; i < nzones; i = j) {
  23524. +         /*
  23525. +         ** Find the next non-continuation zone entry.
  23526. +         */
  23527. +         for (j = i + 1; j < nzones && zones[j].z_name == NULL; ++j)
  23528. +             ;
  23529. +         outzone(&zones[i], j - i);
  23530. +     }
  23531. +     /*
  23532. +     ** Make links.
  23533. +     */
  23534. +     for (i = 0; i < nlinks; ++i)
  23535. +         dolink(links[i].l_from, links[i].l_to);
  23536. +     if (lcltime != NULL)
  23537. +         dolink(lcltime, TZDEFAULT);
  23538. +     if (psxrules != NULL)
  23539. +         dolink(psxrules, TZDEFRULES);
  23540. +     return (errors == 0) ? EXIT_SUCCESS : EXIT_FAILURE;
  23541. + }
  23542. + 
  23543. + static void
  23544. + dolink(fromfile, tofile)
  23545. + const char * const    fromfile;
  23546. + const char * const    tofile;
  23547. + {
  23548. +     register char *    fromname;
  23549. +     register char *    toname;
  23550. + 
  23551. +     fromname = ecpyalloc(directory);
  23552. +     fromname = ecatalloc(fromname, "/");
  23553. +     fromname = ecatalloc(fromname, fromfile);
  23554. +     if (strchr(tofile, ':')) toname = ecpyalloc(tofile);
  23555. +     else
  23556. +       {
  23557. +         toname = ecpyalloc(directory);
  23558. +         toname = ecatalloc(toname, "/");
  23559. +         toname = ecatalloc(toname, tofile);
  23560. +       }
  23561. +     /*
  23562. +     ** We get to be careful here since
  23563. +     ** there's a fair chance of root running us.
  23564. +     */
  23565. +     if (!itsdir(toname))
  23566. +         (void) remove(toname);
  23567. +     if (link(fromname, toname) != 0) {
  23568. +         (void) fprintf(stderr, "%s: Can't link from %s to ",
  23569. +             progname, fromname);
  23570. +         (void) perror(toname);
  23571. +         (void) exit(EXIT_FAILURE);
  23572. +     }
  23573. +     ifree(fromname);
  23574. +     ifree(toname);
  23575. + }
  23576. + 
  23577. + static void
  23578. + setboundaries()
  23579. + {
  23580. +     register time_t    bit;
  23581. + 
  23582. +     for (bit = 1; bit > 0; bit <<= 1)
  23583. +         ;
  23584. +     if (bit == 0) {        /* time_t is an unsigned type */
  23585. +         tt_signed = FALSE;
  23586. +         min_time = 0;
  23587. +         max_time = ~(time_t) 0;
  23588. +         if (sflag)
  23589. +             max_time >>= 1;
  23590. +     } else {
  23591. +         tt_signed = TRUE;
  23592. +         min_time = bit;
  23593. +         max_time = bit;
  23594. +         ++max_time;
  23595. +         max_time = -max_time;
  23596. +         if (sflag)
  23597. +             min_time = 0;
  23598. +     }
  23599. +     min_year = TM_YEAR_BASE + gmtime(&min_time)->tm_year;
  23600. +     max_year = TM_YEAR_BASE + gmtime(&max_time)->tm_year;
  23601. + }
  23602. + 
  23603. + static int
  23604. + itsdir(name)
  23605. + const char * const    name;
  23606. + {
  23607. +     struct stat    s;
  23608. + 
  23609. +     return (stat(name, &s) == 0 && S_ISDIR(s.st_mode));
  23610. + }
  23611. + 
  23612. + /*
  23613. + ** Associate sets of rules with zones.
  23614. + */
  23615. + 
  23616. + /*
  23617. + ** Sort by rule name.
  23618. + */
  23619. + 
  23620. + static int
  23621. + rcomp(cp1, cp2)
  23622. + const void *    cp1;
  23623. + const void *    cp2;
  23624. + {
  23625. +     return strcmp(((struct rule *) cp1)->r_name,
  23626. +         ((struct rule *) cp2)->r_name);
  23627. + }
  23628. + 
  23629. + static void
  23630. + associate()
  23631. + {
  23632. +     register struct zone *    zp;
  23633. +     register struct rule *    rp;
  23634. +     register int        base, out;
  23635. +     register int        i;
  23636. + 
  23637. +     if (nrules != 0)
  23638. +         (void) qsort((void *) rules, (size_t) nrules,
  23639. +              (size_t) sizeof *rules, rcomp);
  23640. +     for (i = 0; i < nzones; ++i) {
  23641. +         zp = &zones[i];
  23642. +         zp->z_rules = NULL;
  23643. +         zp->z_nrules = 0;
  23644. +     }
  23645. +     for (base = 0; base < nrules; base = out) {
  23646. +         rp = &rules[base];
  23647. +         for (out = base + 1; out < nrules; ++out)
  23648. +             if (strcmp(rp->r_name, rules[out].r_name) != 0)
  23649. +                 break;
  23650. +         for (i = 0; i < nzones; ++i) {
  23651. +             zp = &zones[i];
  23652. +             if (strcmp(zp->z_rule, rp->r_name) != 0)
  23653. +                 continue;
  23654. +             zp->z_rules = rp;
  23655. +             zp->z_nrules = out - base;
  23656. +         }
  23657. +     }
  23658. +     for (i = 0; i < nzones; ++i) {
  23659. +         zp = &zones[i];
  23660. +         if (zp->z_nrules == 0) {
  23661. +             /*
  23662. +             ** Maybe we have a local standard time offset.
  23663. +             */
  23664. +             eat(zp->z_filename, zp->z_linenum);
  23665. +             zp->z_stdoff =
  23666. +                 gethms((char *)zp->z_rule, "unruly zone", TRUE);
  23667. +             /*
  23668. +             ** Note, though, that if there's no rule,
  23669. +             ** a '%s' in the format is a bad thing.
  23670. +             */
  23671. +             if (strchr(zp->z_format, '%') != 0)
  23672. +                 error("%s in ruleless zone");
  23673. +         }
  23674. +     }
  23675. +     if (errors)
  23676. +         (void) exit(EXIT_FAILURE);
  23677. + }
  23678. + 
  23679. + static void
  23680. + infile(name)
  23681. + const char *    name;
  23682. + {
  23683. +     register FILE *            fp;
  23684. +     register char **        fields;
  23685. +     register char *            cp;
  23686. +     register const struct lookup *    lp;
  23687. +     register int            nfields;
  23688. +     register int            wantcont;
  23689. +     register int            num;
  23690. +     char                buf[BUFSIZ];
  23691. + 
  23692. +     if (strcmp(name, "-") == 0) {
  23693. +         name = "standard input";
  23694. +         fp = stdin;
  23695. +     } else if ((fp = fopen(name, "r")) == NULL) {
  23696. +         (void) fprintf(stderr, "%s: Can't open ", progname);
  23697. +         (void) perror(name);
  23698. +         (void) exit(EXIT_FAILURE);
  23699. +     }
  23700. +     wantcont = FALSE;
  23701. +     for (num = 1; ; ++num) {
  23702. +         eat(name, num);
  23703. +         if (fgets(buf, (int) sizeof buf, fp) != buf)
  23704. +             break;
  23705. +         cp = strchr(buf, '\n');
  23706. +         if (cp == NULL) {
  23707. +             error("line too long");
  23708. +             (void) exit(EXIT_FAILURE);
  23709. +         }
  23710. +         *cp = '\0';
  23711. +         fields = getfields(buf);
  23712. +         nfields = 0;
  23713. +         while (fields[nfields] != NULL) {
  23714. +             if (ciequal(fields[nfields], "-"))
  23715. +                 fields[nfields] = "";
  23716. +             ++nfields;
  23717. +         }
  23718. +         if (nfields == 0) {
  23719. +             /* nothing to do */
  23720. +         } else if (wantcont) {
  23721. +             wantcont = inzcont(fields, nfields);
  23722. +         } else {
  23723. +             lp = byword(fields[0], line_codes);
  23724. +             if (lp == NULL)
  23725. +                 error("input line of unknown type");
  23726. +             else switch ((int) (lp->l_value)) {
  23727. +                 case LC_RULE:
  23728. +                     inrule(fields, nfields);
  23729. +                     wantcont = FALSE;
  23730. +                     break;
  23731. +                 case LC_ZONE:
  23732. +                     wantcont = inzone(fields, nfields);
  23733. +                     break;
  23734. +                 case LC_LINK:
  23735. +                     inlink(fields, nfields);
  23736. +                     wantcont = FALSE;
  23737. +                     break;
  23738. +                 case LC_LEAP:
  23739. +                     if (name != leapsec)
  23740. +                         (void) fprintf(stderr,
  23741. + "%s: Leap line in non leap seconds file %s\n",
  23742. +                             progname, name);
  23743. +                     else    inleap(fields, nfields);
  23744. +                     wantcont = FALSE;
  23745. +                     break;
  23746. +                 default:    /* "cannot happen" */
  23747. +                     (void) fprintf(stderr,
  23748. + "%s: panic: Invalid l_value %d\n",
  23749. +                         progname, lp->l_value);
  23750. +                     (void) exit(EXIT_FAILURE);
  23751. +             }
  23752. +         }
  23753. +         ifree((char *) fields);
  23754. +     }
  23755. +     if (ferror(fp)) {
  23756. +         (void) fprintf(stderr, "%s: Error reading ", progname);
  23757. +         (void) perror(filename);
  23758. +         (void) exit(EXIT_FAILURE);
  23759. +     }
  23760. +     if (fp != stdin && fclose(fp)) {
  23761. +         (void) fprintf(stderr, "%s: Error closing ", progname);
  23762. +         (void) perror(filename);
  23763. +         (void) exit(EXIT_FAILURE);
  23764. +     }
  23765. +     if (wantcont)
  23766. +         error("expected continuation line not found");
  23767. + }
  23768. + 
  23769. + /*
  23770. + ** Convert a string of one of the forms
  23771. + **    h    -h     hh:mm    -hh:mm    hh:mm:ss    -hh:mm:ss
  23772. + ** into a number of seconds.
  23773. + ** A null string maps to zero.
  23774. + ** Call error with errstring and return zero on errors.
  23775. + */
  23776. + 
  23777. + static long
  23778. + gethms(string, errstring, signable)
  23779. + char *        string;
  23780. + const char * const    errstring;
  23781. + const int        signable;
  23782. + {
  23783. +     int    hh, mm, ss, sign;
  23784. + 
  23785. +     if (string == NULL || *string == '\0')
  23786. +         return 0;
  23787. +     if (!signable)
  23788. +         sign = 1;
  23789. +     else if (*string == '-') {
  23790. +         sign = -1;
  23791. +         ++string;
  23792. +     } else    sign = 1;
  23793. +     if (sscanf(string, "%d:%d:%d", &hh, &mm, &ss) == 3) ;
  23794. +     else if (sscanf(string, "%d:%d", &hh, &mm) == 2) ss = 0;
  23795. +     else if (sscanf(string, "%d", &hh) == 1) mm = ss = 0;
  23796. +     else
  23797. +     {
  23798. +         error(errstring);
  23799. +         return 0;
  23800. +     }
  23801. +     if (hh < 0 || hh >= HOURSPERDAY ||
  23802. +         mm < 0 || mm >= MINSPERHOUR ||
  23803. +         ss < 0 || ss > SECSPERMIN) {
  23804. +             error(errstring);
  23805. +             return 0;
  23806. +     }
  23807. +     return eitol(sign) *
  23808. +         (eitol(hh * MINSPERHOUR + mm) *
  23809. +         eitol(SECSPERMIN) + eitol(ss));
  23810. + }
  23811. + 
  23812. + static void
  23813. + inrule(fields, nfields)
  23814. + register char ** const    fields;
  23815. + const int        nfields;
  23816. + {
  23817. +     static struct rule    r;
  23818. + 
  23819. +     if (nfields != RULE_FIELDS) {
  23820. +         error("wrong number of fields on Rule line");
  23821. +         return;
  23822. +     }
  23823. +     if (*fields[RF_NAME] == '\0') {
  23824. +         error("nameless rule");
  23825. +         return;
  23826. +     }
  23827. +     r.r_filename = filename;
  23828. +     r.r_linenum = linenum;
  23829. +     r.r_stdoff = gethms(fields[RF_STDOFF], "invalid saved time", TRUE);
  23830. +     rulesub(&r, fields[RF_LOYEAR], fields[RF_HIYEAR], fields[RF_COMMAND],
  23831. +         fields[RF_MONTH], fields[RF_DAY], fields[RF_TOD]);
  23832. +     r.r_name = ecpyalloc(fields[RF_NAME]);
  23833. +     r.r_abbrvar = ecpyalloc(fields[RF_ABBRVAR]);
  23834. +     rules = (struct rule *) erealloc((char *) rules,
  23835. +         (int) ((nrules + 1) * sizeof *rules));
  23836. +     rules[nrules++] = r;
  23837. + }
  23838. + 
  23839. + static int
  23840. + inzone(fields, nfields)
  23841. + register char ** const    fields;
  23842. + const int        nfields;
  23843. + {
  23844. +     register int    i;
  23845. +     char        buf[132];
  23846. + 
  23847. +     if (nfields < ZONE_MINFIELDS || nfields > ZONE_MAXFIELDS) {
  23848. +         error("wrong number of fields on Zone line");
  23849. +         return FALSE;
  23850. +     }
  23851. +     if (strcmp(fields[ZF_NAME], TZDEFAULT) == 0 && lcltime != NULL) {
  23852. +         (void) sprintf(buf,
  23853. +             "\"Zone %s\" line and -l option are mutually exclusive",
  23854. +             TZDEFAULT);
  23855. +         error(buf);
  23856. +         return FALSE;
  23857. +     }
  23858. +     if (strcmp(fields[ZF_NAME], TZDEFRULES) == 0 && psxrules != NULL) {
  23859. +         (void) sprintf(buf,
  23860. +             "\"Zone %s\" line and -p option are mutually exclusive",
  23861. +             TZDEFRULES);
  23862. +         error(buf);
  23863. +         return FALSE;
  23864. +     }
  23865. +     for (i = 0; i < nzones; ++i)
  23866. +         if (zones[i].z_name != NULL &&
  23867. +             strcmp(zones[i].z_name, fields[ZF_NAME]) == 0) {
  23868. +                 (void) sprintf(buf,
  23869. + "duplicate zone name %s (file \"%s\", line %d)",
  23870. +                     fields[ZF_NAME],
  23871. +                     zones[i].z_filename,
  23872. +                     zones[i].z_linenum);
  23873. +                 error(buf);
  23874. +                 return FALSE;
  23875. +         }
  23876. +     return inzsub(fields, nfields, FALSE);
  23877. + }
  23878. + 
  23879. + static int
  23880. + inzcont(fields, nfields)
  23881. + register char ** const    fields;
  23882. + const int        nfields;
  23883. + {
  23884. +     if (nfields < ZONEC_MINFIELDS || nfields > ZONEC_MAXFIELDS) {
  23885. +         error("wrong number of fields on Zone continuation line");
  23886. +         return FALSE;
  23887. +     }
  23888. +     return inzsub(fields, nfields, TRUE);
  23889. + }
  23890. + 
  23891. + static int
  23892. + inzsub(fields, nfields, iscont)
  23893. + register char ** const    fields;
  23894. + const int        nfields;
  23895. + const int        iscont;
  23896. + {
  23897. +     register char *        cp;
  23898. +     static struct zone    z;
  23899. +     register int        i_gmtoff, i_rule, i_format;
  23900. +     register int        i_untilyear, i_untilmonth;
  23901. +     register int        i_untilday, i_untiltime;
  23902. +     register int        hasuntil;
  23903. + 
  23904. +     if (iscont) {
  23905. +         i_gmtoff = ZFC_GMTOFF;
  23906. +         i_rule = ZFC_RULE;
  23907. +         i_format = ZFC_FORMAT;
  23908. +         i_untilyear = ZFC_TILYEAR;
  23909. +         i_untilmonth = ZFC_TILMONTH;
  23910. +         i_untilday = ZFC_TILDAY;
  23911. +         i_untiltime = ZFC_TILTIME;
  23912. +         z.z_name = NULL;
  23913. +     } else {
  23914. +         i_gmtoff = ZF_GMTOFF;
  23915. +         i_rule = ZF_RULE;
  23916. +         i_format = ZF_FORMAT;
  23917. +         i_untilyear = ZF_TILYEAR;
  23918. +         i_untilmonth = ZF_TILMONTH;
  23919. +         i_untilday = ZF_TILDAY;
  23920. +         i_untiltime = ZF_TILTIME;
  23921. +         z.z_name = ecpyalloc(fields[ZF_NAME]);
  23922. +     }
  23923. +     z.z_filename = filename;
  23924. +     z.z_linenum = linenum;
  23925. +     z.z_gmtoff = gethms(fields[i_gmtoff], "invalid GMT offset", TRUE);
  23926. +     if ((cp = strchr(fields[i_format], '%')) != 0) {
  23927. +         if (*++cp != 's' || strchr(cp, '%') != 0) {
  23928. +             error("invalid abbreviation format");
  23929. +             return FALSE;
  23930. +         }
  23931. +     }
  23932. +     z.z_rule = ecpyalloc(fields[i_rule]);
  23933. +     z.z_format = ecpyalloc(fields[i_format]);
  23934. +     hasuntil = nfields > i_untilyear;
  23935. +     if (hasuntil) {
  23936. +         z.z_untilrule.r_filename = filename;
  23937. +         z.z_untilrule.r_linenum = linenum;
  23938. +         rulesub(&z.z_untilrule,
  23939. +             fields[i_untilyear],
  23940. +             "only",
  23941. +             "",
  23942. +             (nfields > i_untilmonth) ? fields[i_untilmonth] : "Jan",
  23943. +             (nfields > i_untilday) ? fields[i_untilday] : "1",
  23944. +             (nfields > i_untiltime) ? fields[i_untiltime] : "0");
  23945. +         z.z_untiltime = rpytime(&z.z_untilrule, z.z_untilrule.r_loyear);
  23946. +         if (iscont && nzones > 0 && z.z_untiltime < max_time &&
  23947. +             z.z_untiltime > min_time &&
  23948. +             zones[nzones - 1].z_untiltime >= z.z_untiltime) {
  23949. + error("Zone continuation line end time is not after end time of previous line");
  23950. +             return FALSE;
  23951. +         }
  23952. +     }
  23953. +     zones = (struct zone *) erealloc((char *) zones,
  23954. +         (int) ((nzones + 1) * sizeof *zones));
  23955. +     zones[nzones++] = z;
  23956. +     /*
  23957. +     ** If there was an UNTIL field on this line,
  23958. +     ** there's more information about the zone on the next line.
  23959. +     */
  23960. +     return hasuntil;
  23961. + }
  23962. + 
  23963. + static void
  23964. + inleap(fields, nfields)
  23965. + register char ** const    fields;
  23966. + const int        nfields;
  23967. + {
  23968. +     register const char *        cp;
  23969. +     register const struct lookup *    lp;
  23970. +     register int            i, j;
  23971. +     int                year, month, day;
  23972. +     long                dayoff, tod;
  23973. +     time_t                t;
  23974. + 
  23975. +     if (nfields != LEAP_FIELDS) {
  23976. +         error("wrong number of fields on Leap line");
  23977. +         return;
  23978. +     }
  23979. +     dayoff = 0;
  23980. +     cp = fields[LP_YEAR];
  23981. +     if (sscanf((char *)cp, "%d", &year) != 1 ||
  23982. +         year < min_year || year > max_year) {
  23983. +             /*
  23984. +              * Leapin' Lizards!
  23985. +              */
  23986. +             error("invalid leaping year");
  23987. +             return;
  23988. +     }
  23989. +     j = EPOCH_YEAR;
  23990. +     while (j != year) {
  23991. +         if (year > j) {
  23992. +             i = len_years[isleap(j)];
  23993. +             ++j;
  23994. +         } else {
  23995. +             --j;
  23996. +             i = -len_years[isleap(j)];
  23997. +         }
  23998. +         dayoff = oadd(dayoff, eitol(i));
  23999. +     }
  24000. +     if ((lp = byword(fields[LP_MONTH], mon_names)) == NULL) {
  24001. +         error("invalid month name");
  24002. +         return;
  24003. +     }
  24004. +     month = lp->l_value;
  24005. +     j = TM_JANUARY;
  24006. +     while (j != month) {
  24007. +         i = len_months[isleap(year)][j];
  24008. +         dayoff = oadd(dayoff, eitol(i));
  24009. +         ++j;
  24010. +     }
  24011. +     cp = fields[LP_DAY];
  24012. +     if (sscanf((char *)cp, "%d", &day) != 1 ||
  24013. +         day <= 0 || day > len_months[isleap(year)][month]) {
  24014. +             error("invalid day of month");
  24015. +             return;
  24016. +     }
  24017. +     dayoff = oadd(dayoff, eitol(day - 1));
  24018. +     if (dayoff < 0 && !tt_signed) {
  24019. +         error("time before zero");
  24020. +         return;
  24021. +     }
  24022. +     t = (time_t) dayoff * SECSPERDAY;
  24023. +     /*
  24024. +     ** Cheap overflow check.
  24025. +     */
  24026. +     if (t / SECSPERDAY != dayoff) {
  24027. +         error("time overflow");
  24028. +         return;
  24029. +     }
  24030. +     tod = gethms(fields[LP_TIME], "invalid time of day", FALSE);
  24031. +     cp = fields[LP_CORR];
  24032. +     if (strcmp(cp, "+") != 0 && strcmp(cp, "") != 0) {
  24033. +         /* infile() turned "-" into "" */
  24034. +         error("illegal CORRECTION field on Leap line");
  24035. +         return;
  24036. +     }
  24037. +     if ((lp = byword(fields[LP_ROLL], leap_types)) == NULL) {
  24038. +         error("illegal Rolling/Stationary field on Leap line");
  24039. +         return;
  24040. +     }
  24041. +     addleap(tadd(t, tod), *cp == '+', lp->l_value);
  24042. + }
  24043. + 
  24044. + static void
  24045. + inlink(fields, nfields)
  24046. + register char ** const    fields;
  24047. + const int        nfields;
  24048. + {
  24049. +     struct link    l;
  24050. + 
  24051. +     if (nfields != LINK_FIELDS) {
  24052. +         error("wrong number of fields on Link line");
  24053. +         return;
  24054. +     }
  24055. +     if (*fields[LF_FROM] == '\0') {
  24056. +         error("blank FROM field on Link line");
  24057. +         return;
  24058. +     }
  24059. +     if (*fields[LF_TO] == '\0') {
  24060. +         error("blank TO field on Link line");
  24061. +         return;
  24062. +     }
  24063. +     l.l_filename = filename;
  24064. +     l.l_linenum = linenum;
  24065. +     l.l_from = ecpyalloc(fields[LF_FROM]);
  24066. +     l.l_to = ecpyalloc(fields[LF_TO]);
  24067. +     links = (struct link *) erealloc((char *) links,
  24068. +         (int) ((nlinks + 1) * sizeof *links));
  24069. +     links[nlinks++] = l;
  24070. + }
  24071. + 
  24072. + static void
  24073. + rulesub(rp, loyearp, hiyearp, typep, monthp, dayp, timep)
  24074. + register struct rule * const    rp;
  24075. + char * const            loyearp;
  24076. + char * const            hiyearp;
  24077. + char * const            typep;
  24078. + char * const            monthp;
  24079. + char * const            dayp;
  24080. + char * const            timep;
  24081. + {
  24082. +     register struct lookup const *    lp;
  24083. +     register char *            cp;
  24084. + 
  24085. +     if ((lp = byword(monthp, mon_names)) == NULL) {
  24086. +         error("invalid month name");
  24087. +         return;
  24088. +     }
  24089. +     rp->r_month = lp->l_value;
  24090. +     rp->r_todisstd = FALSE;
  24091. +     cp = timep;
  24092. +     if (*cp != '\0') {
  24093. +         cp += strlen(cp) - 1;
  24094. +         switch (lowerit(*cp)) {
  24095. +             case 's':
  24096. +                 rp->r_todisstd = TRUE;
  24097. +                 *cp = '\0';
  24098. +                 break;
  24099. +             case 'w':
  24100. +                 rp->r_todisstd = FALSE;
  24101. +                 *cp = '\0';
  24102. +                 break;
  24103. +         }
  24104. +     }
  24105. +     rp->r_tod = gethms(timep, "invalid time of day", FALSE);
  24106. +     /*
  24107. +     ** Year work.
  24108. +     */
  24109. +     cp = loyearp;
  24110. +     if ((lp = byword(cp, begin_years)) != NULL) switch ((int) lp->l_value) {
  24111. +         case YR_MINIMUM:
  24112. +             rp->r_loyear = min_year;
  24113. +             break;
  24114. +         case YR_MAXIMUM:
  24115. +             rp->r_loyear = max_year;
  24116. +             break;
  24117. +         default:    /* "cannot happen" */
  24118. +             (void) fprintf(stderr,
  24119. +                 "%s: panic: Invalid l_value %d\n",
  24120. +                 progname, lp->l_value);
  24121. +             (void) exit(EXIT_FAILURE);
  24122. +     } else if (sscanf(cp, "%d", &rp->r_loyear) != 1 ||
  24123. +         rp->r_loyear < min_year || rp->r_loyear > max_year) {
  24124. +             if (noise)
  24125. +                 error("invalid starting year");
  24126. +             if (rp->r_loyear > max_year)
  24127. +                 return;
  24128. +     }
  24129. +     cp = hiyearp;
  24130. +     if ((lp = byword(cp, end_years)) != NULL) switch ((int) lp->l_value) {
  24131. +         case YR_MINIMUM:
  24132. +             rp->r_hiyear = min_year;
  24133. +             break;
  24134. +         case YR_MAXIMUM:
  24135. +             rp->r_hiyear = max_year;
  24136. +             break;
  24137. +         case YR_ONLY:
  24138. +             rp->r_hiyear = rp->r_loyear;
  24139. +             break;
  24140. +         default:    /* "cannot happen" */
  24141. +             (void) fprintf(stderr,
  24142. +                 "%s: panic: Invalid l_value %d\n",
  24143. +                 progname, lp->l_value);
  24144. +             (void) exit(EXIT_FAILURE);
  24145. +     } else if (sscanf(cp, "%d", &rp->r_hiyear) != 1 ||
  24146. +         rp->r_hiyear < min_year || rp->r_hiyear > max_year) {
  24147. +             if (noise)
  24148. +                 error("invalid ending year");
  24149. +             if (rp->r_hiyear < min_year)
  24150. +                 return;
  24151. +     }
  24152. +     if (rp->r_hiyear < min_year)
  24153. +          return;
  24154. +      if (rp->r_loyear < min_year)
  24155. +          rp->r_loyear = min_year;
  24156. +      if (rp->r_hiyear > max_year)
  24157. +          rp->r_hiyear = max_year;
  24158. +     if (rp->r_loyear > rp->r_hiyear) {
  24159. +         error("starting year greater than ending year");
  24160. +         return;
  24161. +     }
  24162. +     if (*typep == '\0')
  24163. +         rp->r_yrtype = NULL;
  24164. +     else {
  24165. +         if (rp->r_loyear == rp->r_hiyear) {
  24166. +             error("typed single year");
  24167. +             return;
  24168. +         }
  24169. +         rp->r_yrtype = ecpyalloc(typep);
  24170. +     }
  24171. +     /*
  24172. +     ** Day work.
  24173. +     ** Accept things such as:
  24174. +     **    1
  24175. +     **    last-Sunday
  24176. +     **    Sun<=20
  24177. +     **    Sun>=7
  24178. +     */
  24179. +     if ((lp = byword(dayp, lasts)) != NULL) {
  24180. +         rp->r_dycode = DC_DOWLEQ;
  24181. +         rp->r_wday = lp->l_value;
  24182. +         rp->r_dayofmonth = len_months[1][rp->r_month];
  24183. +     } else {
  24184. +         if ((cp = strchr(dayp, '<')) != 0)
  24185. +             rp->r_dycode = DC_DOWLEQ;
  24186. +         else if ((cp = strchr(dayp, '>')) != 0)
  24187. +             rp->r_dycode = DC_DOWGEQ;
  24188. +         else {
  24189. +             cp = dayp;
  24190. +             rp->r_dycode = DC_DOM;
  24191. +         }
  24192. +         if (rp->r_dycode != DC_DOM) {
  24193. +             *cp++ = 0;
  24194. +             if (*cp++ != '=') {
  24195. +                 error("invalid day of month");
  24196. +                 return;
  24197. +             }
  24198. +             if ((lp = byword(dayp, wday_names)) == NULL) {
  24199. +                 error("invalid weekday name");
  24200. +                 return;
  24201. +             }
  24202. +             rp->r_wday = lp->l_value;
  24203. +         }
  24204. +         if (sscanf(cp, "%d", &rp->r_dayofmonth) != 1 ||
  24205. +             rp->r_dayofmonth <= 0 ||
  24206. +             (rp->r_dayofmonth > len_months[1][rp->r_month])) {
  24207. +                 error("invalid day of month");
  24208. +                 return;
  24209. +         }
  24210. +     }
  24211. + }
  24212. + 
  24213. + static void
  24214. + convert(val, buf)
  24215. + const long    val;
  24216. + char * const    buf;
  24217. + {
  24218. +     register int    i;
  24219. +     register long    shift;
  24220. + 
  24221. +     for (i = 0, shift = 24; i < 4; ++i, shift -= 8)
  24222. +         buf[i] = val >> shift;
  24223. + }
  24224. + 
  24225. + static void
  24226. + puttzcode(val, fp)
  24227. + const long    val;
  24228. + FILE * const    fp;
  24229. + {
  24230. +     char    buf[4];
  24231. + 
  24232. +     convert(val, buf);
  24233. +     (void) fwrite((void *) buf, (size_t) sizeof buf, (size_t) 1, fp);
  24234. + }
  24235. + 
  24236. + static void
  24237. + writezone(name)
  24238. + const char * const    name;
  24239. + {
  24240. +     register FILE *        fp;
  24241. +     register int        i, j;
  24242. +     char            fullname[BUFSIZ];
  24243. +     static struct tzhead    tzh;
  24244. + 
  24245. +     if (strlen(directory) + 1 + strlen(name) >= sizeof fullname) {
  24246. +         (void) fprintf(stderr,
  24247. +             "%s: File name %s/%s too long\n", progname,
  24248. +             directory, name);
  24249. +         (void) exit(EXIT_FAILURE);
  24250. +     }
  24251. +     (void) sprintf(fullname, "%s/%s", directory, name);
  24252. +     if ((fp = fopen(fullname, "wb")) == NULL) {
  24253. +         if (mkdirs(fullname) != 0)
  24254. +             (void) exit(EXIT_FAILURE);
  24255. +         if ((fp = fopen(fullname, "wb")) == NULL) {
  24256. +             (void) fprintf(stderr, "%s: Can't create ", progname);
  24257. +             (void) perror(fullname);
  24258. +             (void) exit(EXIT_FAILURE);
  24259. +         }
  24260. +     }
  24261. +     convert(eitol(typecnt), tzh.tzh_ttisstdcnt);
  24262. +     convert(eitol(leapcnt), tzh.tzh_leapcnt);
  24263. +     convert(eitol(timecnt), tzh.tzh_timecnt);
  24264. +     convert(eitol(typecnt), tzh.tzh_typecnt);
  24265. +     convert(eitol(charcnt), tzh.tzh_charcnt);
  24266. +     (void) fwrite((void *) &tzh, (size_t) sizeof tzh, (size_t) 1, fp);
  24267. +     for (i = 0; i < timecnt; ++i) {
  24268. +         j = leapcnt;
  24269. +         while (--j >= 0)
  24270. +             if (ats[i] >= trans[j]) {
  24271. +                 ats[i] = tadd(ats[i], corr[j]);
  24272. +                 break;
  24273. +             }
  24274. +         puttzcode((long) ats[i], fp);
  24275. +     }
  24276. +     if (timecnt > 0)
  24277. +         (void) fwrite((void *) types, (size_t) sizeof types[0],
  24278. +             (size_t) timecnt, fp);
  24279. +     for (i = 0; i < typecnt; ++i) {
  24280. +         puttzcode((long) gmtoffs[i], fp);
  24281. +         (void) putc(isdsts[i], fp);
  24282. +         (void) putc(abbrinds[i], fp);
  24283. +     }
  24284. +     if (charcnt != 0)
  24285. +         (void) fwrite((void *) chars, (size_t) sizeof chars[0],
  24286. +             (size_t) charcnt, fp);
  24287. +     for (i = 0; i < leapcnt; ++i) {
  24288. +         if (roll[i]) {
  24289. +             if (timecnt == 0 || trans[i] < ats[0]) {
  24290. +                 j = 0;
  24291. +                 while (isdsts[j])
  24292. +                     if (++j >= typecnt) {
  24293. +                         j = 0;
  24294. +                         break;
  24295. +                     }
  24296. +             } else {
  24297. +                 j = 1;
  24298. +                 while (j < timecnt && trans[i] >= ats[j])
  24299. +                     ++j;
  24300. +                 j = types[j - 1];
  24301. +             }
  24302. +             puttzcode((long) tadd(trans[i], -gmtoffs[j]), fp);
  24303. +         } else    puttzcode((long) trans[i], fp);
  24304. +         puttzcode((long) corr[i], fp);
  24305. +     }
  24306. +     for (i = 0; i < typecnt; ++i)
  24307. +         (void) putc(ttisstds[i], fp);
  24308. +     if (ferror(fp) || fclose(fp)) {
  24309. +         (void) fprintf(stderr, "%s: Write error on ", progname);
  24310. +         (void) perror(fullname);
  24311. +         (void) exit(EXIT_FAILURE);
  24312. +     }
  24313. + }
  24314. + 
  24315. + static void
  24316. + outzone(zpfirst, zonecount)
  24317. + const struct zone * const    zpfirst;
  24318. + const int            zonecount;
  24319. + {
  24320. +     register const struct zone *    zp;
  24321. +     register struct rule *        rp;
  24322. +     register int            i, j;
  24323. +     register int            usestart, useuntil;
  24324. +     register time_t            starttime, untiltime;
  24325. +     register long            gmtoff;
  24326. +     register long            stdoff;
  24327. +     register int            year;
  24328. +     register long            startoff;
  24329. +     register int            startisdst;
  24330. +     register int            startttisstd;
  24331. +     register int            type;
  24332. +     char                startbuf[BUFSIZ];
  24333. + 
  24334. +     /*
  24335. +     ** Now. . .finally. . .generate some useful data!
  24336. +     */
  24337. +     timecnt = 0;
  24338. +     typecnt = 0;
  24339. +     charcnt = 0;
  24340. +     /*
  24341. +     ** Two guesses. . .the second may well be corrected later.
  24342. +     */
  24343. +     gmtoff = zpfirst->z_gmtoff;
  24344. +     stdoff = 0;
  24345. + #ifdef lint
  24346. +     starttime = 0;
  24347. +     startttisstd = FALSE;
  24348. + #endif /* defined lint */
  24349. +     for (i = 0; i < zonecount; ++i) {
  24350. +         usestart = i > 0;
  24351. +         useuntil = i < (zonecount - 1);
  24352. +         zp = &zpfirst[i];
  24353. +         eat(zp->z_filename, zp->z_linenum);
  24354. +         startisdst = -1;
  24355. +         if (zp->z_nrules == 0) {
  24356. +             type = addtype(oadd(zp->z_gmtoff, zp->z_stdoff),
  24357. +                 zp->z_format, zp->z_stdoff != 0,
  24358. +                 startttisstd);
  24359. +             if (usestart)
  24360. +                 addtt(starttime, type);
  24361. +             gmtoff = zp->z_gmtoff;
  24362. +             stdoff = zp->z_stdoff;
  24363. +         } else for (year = min_year; year <= max_year; ++year) {
  24364. +             if (useuntil && year > zp->z_untilrule.r_hiyear)
  24365. +                 break;
  24366. +             /*
  24367. +             ** Mark which rules to do in the current year.
  24368. +             ** For those to do, calculate rpytime(rp, year);
  24369. +             */
  24370. +             for (j = 0; j < zp->z_nrules; ++j) {
  24371. +                 rp = &zp->z_rules[j];
  24372. +                 eats(zp->z_filename, zp->z_linenum,
  24373. +                     rp->r_filename, rp->r_linenum);
  24374. +                 rp->r_todo = year >= rp->r_loyear &&
  24375. +                         year <= rp->r_hiyear &&
  24376. +                         yearistype(year, rp->r_yrtype);
  24377. +                 if (rp->r_todo)
  24378. +                     rp->r_temp = rpytime(rp, year);
  24379. +             }
  24380. +             for ( ; ; ) {
  24381. +                 register int    k;
  24382. +                 register time_t    jtime, ktime;
  24383. +                 register long    offset;
  24384. +                 char        buf[BUFSIZ];
  24385. + 
  24386. +                 if (useuntil) {
  24387. +                     /*
  24388. +                     ** Turn untiltime into GMT
  24389. +                     ** assuming the current gmtoff and
  24390. +                     ** stdoff values.
  24391. +                     */
  24392. +                     offset = gmtoff;
  24393. +                     if (!zp->z_untilrule.r_todisstd)
  24394. +                         offset = oadd(offset, stdoff);
  24395. +                     untiltime = tadd(zp->z_untiltime,
  24396. +                         -offset);
  24397. +                 }
  24398. +                 /*
  24399. +                 ** Find the rule (of those to do, if any)
  24400. +                 ** that takes effect earliest in the year.
  24401. +                 */
  24402. +                 k = -1;
  24403. + #ifdef lint
  24404. +                 ktime = 0;
  24405. + #endif /* defined lint */
  24406. +                 for (j = 0; j < zp->z_nrules; ++j) {
  24407. +                     rp = &zp->z_rules[j];
  24408. +                     if (!rp->r_todo)
  24409. +                         continue;
  24410. +                     eats(zp->z_filename, zp->z_linenum,
  24411. +                         rp->r_filename, rp->r_linenum);
  24412. +                     offset = gmtoff;
  24413. +                     if (!rp->r_todisstd)
  24414. +                         offset = oadd(offset, stdoff);
  24415. +                     jtime = rp->r_temp;
  24416. +                     if (jtime == min_time ||
  24417. +                         jtime == max_time)
  24418. +                             continue;
  24419. +                     jtime = tadd(jtime, -offset);
  24420. +                     if (k < 0 || jtime < ktime) {
  24421. +                         k = j;
  24422. +                         ktime = jtime;
  24423. +                     }
  24424. +                 }
  24425. +                 if (k < 0)
  24426. +                     break;    /* go on to next year */
  24427. +                 rp = &zp->z_rules[k];
  24428. +                 rp->r_todo = FALSE;
  24429. +                 if (useuntil && ktime >= untiltime)
  24430. +                     break;
  24431. +                 if (usestart) {
  24432. +                     if (ktime < starttime) {
  24433. +                         stdoff = rp->r_stdoff;
  24434. +                         startoff = oadd(zp->z_gmtoff,
  24435. +                             rp->r_stdoff);
  24436. +                         (void) sprintf(startbuf,
  24437. +                             zp->z_format,
  24438. +                             rp->r_abbrvar);
  24439. +                         startisdst =
  24440. +                             rp->r_stdoff != 0;
  24441. +                         continue;
  24442. +                     }
  24443. +                     if (ktime != starttime &&
  24444. +                         startisdst >= 0)
  24445. + addtt(starttime, addtype(startoff, startbuf, startisdst, startttisstd));
  24446. +                     usestart = FALSE;
  24447. +                 }
  24448. +                 eats(zp->z_filename, zp->z_linenum,
  24449. +                     rp->r_filename, rp->r_linenum);
  24450. +                 (void) sprintf(buf, zp->z_format,
  24451. +                     rp->r_abbrvar);
  24452. +                 offset = oadd(zp->z_gmtoff, rp->r_stdoff);
  24453. +                 type = addtype(offset, buf, rp->r_stdoff != 0,
  24454. +                     rp->r_todisstd);
  24455. +                 if (timecnt != 0 || rp->r_stdoff != 0)
  24456. +                     addtt(ktime, type);
  24457. +                 gmtoff = zp->z_gmtoff;
  24458. +                 stdoff = rp->r_stdoff;
  24459. +             }
  24460. +         }
  24461. +         /*
  24462. +         ** Now we may get to set starttime for the next zone line.
  24463. +         */
  24464. +         if (useuntil) {
  24465. +             starttime = tadd(zp->z_untiltime,
  24466. +                 -gmtoffs[types[timecnt - 1]]);
  24467. +             startttisstd = zp->z_untilrule.r_todisstd;
  24468. +         }
  24469. +     }
  24470. +     writezone(zpfirst->z_name);
  24471. + }
  24472. + 
  24473. + static void
  24474. + addtt(starttime, type)
  24475. + const time_t    starttime;
  24476. + const int    type;
  24477. + {
  24478. +     if (timecnt != 0 && type == types[timecnt - 1])
  24479. +         return;    /* easy enough! */
  24480. +     if (timecnt >= TZ_MAX_TIMES) {
  24481. +         error("too many transitions?!");
  24482. +         (void) exit(EXIT_FAILURE);
  24483. +     }
  24484. +     ats[timecnt] = starttime;
  24485. +     types[timecnt] = type;
  24486. +     ++timecnt;
  24487. + }
  24488. + 
  24489. + static int
  24490. + addtype(gmtoff, abbr, isdst, ttisstd)
  24491. + const long        gmtoff;
  24492. + const char * const    abbr;
  24493. + const int        isdst;
  24494. + const int        ttisstd;
  24495. + {
  24496. +     register int    i, j;
  24497. + 
  24498. +     /*
  24499. +     ** See if there's already an entry for this zone type.
  24500. +     ** If so, just return its index.
  24501. +     */
  24502. +     for (i = 0; i < typecnt; ++i) {
  24503. +         if (gmtoff == gmtoffs[i] && isdst == isdsts[i] &&
  24504. +             strcmp(abbr, &chars[abbrinds[i]]) == 0 &&
  24505. +             ttisstd == ttisstds[i])
  24506. +                 return i;
  24507. +     }
  24508. +     /*
  24509. +     ** There isn't one; add a new one, unless there are already too
  24510. +     ** many.
  24511. +     */
  24512. +     if (typecnt >= TZ_MAX_TYPES) {
  24513. +         error("too many local time types");
  24514. +         (void) exit(EXIT_FAILURE);
  24515. +     }
  24516. +     gmtoffs[i] = gmtoff;
  24517. +     isdsts[i] = isdst;
  24518. +     ttisstds[i] = ttisstd;
  24519. + 
  24520. +     for (j = 0; j < charcnt; ++j)
  24521. +         if (strcmp(&chars[j], abbr) == 0)
  24522. +             break;
  24523. +     if (j == charcnt)
  24524. +         newabbr(abbr);
  24525. +     abbrinds[i] = j;
  24526. +     ++typecnt;
  24527. +     return i;
  24528. + }
  24529. + 
  24530. + static void
  24531. + addleap(t, positive, rolling)
  24532. + const time_t    t;
  24533. + const int    positive;
  24534. + const int    rolling;
  24535. + {
  24536. +     register int    i, j;
  24537. + 
  24538. +     if (leapcnt >= TZ_MAX_LEAPS) {
  24539. +         error("too many leap seconds");
  24540. +         (void) exit(EXIT_FAILURE);
  24541. +     }
  24542. +     for (i = 0; i < leapcnt; ++i)
  24543. +         if (t <= trans[i]) {
  24544. +             if (t == trans[i]) {
  24545. +                 error("repeated leap second moment");
  24546. +                 (void) exit(EXIT_FAILURE);
  24547. +             }
  24548. +             break;
  24549. +         }
  24550. +     for (j = leapcnt; j > i; --j) {
  24551. +         trans[j] = trans[j-1];
  24552. +         corr[j] = corr[j-1];
  24553. +         roll[j] = roll[j-1];
  24554. +     }
  24555. +     trans[i] = t;
  24556. +     corr[i] = (positive ? 1L : -1L);
  24557. +     roll[i] = rolling;
  24558. +     ++leapcnt;
  24559. + }
  24560. + 
  24561. + static void
  24562. + adjleap()
  24563. + {
  24564. +     register int    i;
  24565. +     register long    last = 0;
  24566. + 
  24567. +     /*
  24568. +     ** propagate leap seconds forward
  24569. +     */
  24570. +     for (i = 0; i < leapcnt; ++i) {
  24571. +         trans[i] = tadd(trans[i], last);
  24572. +         last = corr[i] += last;
  24573. +     }
  24574. + }
  24575. + 
  24576. + static int
  24577. + yearistype(year, type)
  24578. + const int        year;
  24579. + const char * const    type;
  24580. + {
  24581. +     char    buf[BUFSIZ];
  24582. +     int    result;
  24583. + 
  24584. +     if (type == NULL || *type == '\0')
  24585. +         return TRUE;
  24586. +     if (strcmp(type, "uspres") == 0)
  24587. +         return (year % 4) == 0;
  24588. +     if (strcmp(type, "nonpres") == 0)
  24589. +         return (year % 4) != 0;
  24590. +     (void) sprintf(buf, "yearistype %d %s", year, type);
  24591. +     result = system(buf);
  24592. +     if (result == 0)
  24593. +         return TRUE;
  24594. +     if (result == (1 << 8))
  24595. +         return FALSE;
  24596. +     error("Wild result from command execution");
  24597. +     (void) fprintf(stderr, "%s: command was '%s', result was %d\n",
  24598. +         progname, buf, result);
  24599. +     for ( ; ; )
  24600. +         (void) exit(EXIT_FAILURE);
  24601. + }
  24602. + 
  24603. + static int
  24604. + lowerit(a)
  24605. + const int    a;
  24606. + {
  24607. +     return (isascii(a) && isupper(a)) ? tolower(a) : a;
  24608. + }
  24609. + 
  24610. + static int
  24611. + ciequal(ap, bp)        /* case-insensitive equality */
  24612. + register const char *    ap;
  24613. + register const char *    bp;
  24614. + {
  24615. +     while (lowerit(*ap) == lowerit(*bp++))
  24616. +         if (*ap++ == '\0')
  24617. +             return TRUE;
  24618. +     return FALSE;
  24619. + }
  24620. + 
  24621. + static int
  24622. + itsabbr(abbr, word)
  24623. + register const char *    abbr;
  24624. + register const char *    word;
  24625. + {
  24626. +     if (lowerit(*abbr) != lowerit(*word))
  24627. +         return FALSE;
  24628. +     ++word;
  24629. +     while (*++abbr != '\0')
  24630. +         do if (*word == '\0')
  24631. +             return FALSE;
  24632. +                 while (lowerit(*word++) != lowerit(*abbr));
  24633. +     return TRUE;
  24634. + }
  24635. + 
  24636. + static const struct lookup *
  24637. + byword(word, table)
  24638. + register const char * const        word;
  24639. + register const struct lookup * const    table;
  24640. + {
  24641. +     register const struct lookup *    foundlp;
  24642. +     register const struct lookup *    lp;
  24643. + 
  24644. +     if (word == NULL || table == NULL)
  24645. +         return NULL;
  24646. +     /*
  24647. +     ** Look for exact match.
  24648. +     */
  24649. +     for (lp = table; lp->l_word != NULL; ++lp)
  24650. +         if (ciequal(word, lp->l_word))
  24651. +             return lp;
  24652. +     /*
  24653. +     ** Look for inexact match.
  24654. +     */
  24655. +     foundlp = NULL;
  24656. +     for (lp = table; lp->l_word != NULL; ++lp)
  24657. +         if (itsabbr(word, lp->l_word))
  24658. +             if (foundlp == NULL)
  24659. +                 foundlp = lp;
  24660. +             else    return NULL;    /* multiple inexact matches */
  24661. +     return foundlp;
  24662. + }
  24663. + 
  24664. + static char **
  24665. + getfields(cp)
  24666. + register char *    cp;
  24667. + {
  24668. +     register char *        dp;
  24669. +     register char **    array;
  24670. +     register int        nsubs;
  24671. + 
  24672. +     if (cp == NULL)
  24673. +         return NULL;
  24674. +     array = (char **) emalloc((int) ((strlen(cp) + 1) * sizeof *array));
  24675. +     nsubs = 0;
  24676. +     for ( ; ; ) {
  24677. +         while (isascii(*cp) && isspace(*cp))
  24678. +             ++cp;
  24679. +         if (*cp == '\0' || *cp == '#')
  24680. +             break;
  24681. +         array[nsubs++] = dp = cp;
  24682. +         do {
  24683. +             if ((*dp = *cp++) != '"')
  24684. +                 ++dp;
  24685. +             else while ((*dp = *cp++) != '"')
  24686. +                 if (*dp != '\0')
  24687. +                     ++dp;
  24688. +                 else    error("Odd number of quotation marks");
  24689. +         } while (*cp != '\0' && *cp != '#' &&
  24690. +             (!isascii(*cp) || !isspace(*cp)));
  24691. +         if (isascii(*cp) && isspace(*cp))
  24692. +             ++cp;
  24693. +         *dp = '\0';
  24694. +     }
  24695. +     array[nsubs] = NULL;
  24696. +     return array;
  24697. + }
  24698. + 
  24699. + static long
  24700. + oadd(t1, t2)
  24701. + const long    t1;
  24702. + const long    t2;
  24703. + {
  24704. +     register long    t;
  24705. + 
  24706. +     t = t1 + t2;
  24707. +     if (t2 > 0 && t <= t1 || t2 < 0 && t >= t1) {
  24708. +         error("time overflow");
  24709. +         (void) exit(EXIT_FAILURE);
  24710. +     }
  24711. +     return t;
  24712. + }
  24713. + 
  24714. + static time_t
  24715. + tadd(t1, t2)
  24716. + const time_t    t1;
  24717. + const long    t2;
  24718. + {
  24719. +     register time_t    t;
  24720. + 
  24721. +     if (t1 == max_time && t2 > 0)
  24722. +         return max_time;
  24723. +     if (t1 == min_time && t2 < 0)
  24724. +         return min_time;
  24725. +     t = t1 + t2;
  24726. +     if (t2 > 0 && t <= t1 || t2 < 0 && t >= t1) {
  24727. +         error("time overflow");
  24728. +         (void) exit(EXIT_FAILURE);
  24729. +     }
  24730. +     return t;
  24731. + }
  24732. + 
  24733. + /*
  24734. + ** Given a rule, and a year, compute the date - in seconds since January 1,
  24735. + ** 1970, 00:00 LOCAL time - in that year that the rule refers to.
  24736. + */
  24737. + 
  24738. + static time_t
  24739. + rpytime(rp, wantedy)
  24740. + register const struct rule * const    rp;
  24741. + register const int            wantedy;
  24742. + {
  24743. +     register int    y, m, i;
  24744. +     register long    dayoff;            /* with a nod to Margaret O. */
  24745. +     register time_t    t;
  24746. + 
  24747. +     dayoff = 0;
  24748. +     m = TM_JANUARY;
  24749. +     y = EPOCH_YEAR;
  24750. +     while (wantedy != y) {
  24751. +         if (wantedy > y) {
  24752. +             i = len_years[isleap(y)];
  24753. +             ++y;
  24754. +         } else {
  24755. +             --y;
  24756. +             i = -len_years[isleap(y)];
  24757. +         }
  24758. +         dayoff = oadd(dayoff, eitol(i));
  24759. +     }
  24760. +     while (m != rp->r_month) {
  24761. +         i = len_months[isleap(y)][m];
  24762. +         dayoff = oadd(dayoff, eitol(i));
  24763. +         ++m;
  24764. +     }
  24765. +     i = rp->r_dayofmonth;
  24766. +     if (m == TM_FEBRUARY && i == 29 && !isleap(y)) {
  24767. +         if (rp->r_dycode == DC_DOWLEQ)
  24768. +             --i;
  24769. +         else {
  24770. +             error("use of 2/29 in non leap-year");
  24771. +             (void) exit(EXIT_FAILURE);
  24772. +         }
  24773. +     }
  24774. +     --i;
  24775. +     dayoff = oadd(dayoff, eitol(i));
  24776. +     if (rp->r_dycode == DC_DOWGEQ || rp->r_dycode == DC_DOWLEQ) {
  24777. +         register long    wday;
  24778. + 
  24779. + #define LDAYSPERWEEK    ((long) DAYSPERWEEK)
  24780. +         wday = eitol(EPOCH_WDAY);
  24781. +         /*
  24782. +         ** Don't trust mod of negative numbers.
  24783. +         */
  24784. +         if (dayoff >= 0)
  24785. +             wday = (wday + dayoff) % LDAYSPERWEEK;
  24786. +         else {
  24787. +             wday -= ((-dayoff) % LDAYSPERWEEK);
  24788. +             if (wday < 0)
  24789. +                 wday += LDAYSPERWEEK;
  24790. +         }
  24791. +         while (wday != eitol(rp->r_wday))
  24792. +             if (rp->r_dycode == DC_DOWGEQ) {
  24793. +                 dayoff = oadd(dayoff, (long) 1);
  24794. +                 if (++wday >= LDAYSPERWEEK)
  24795. +                     wday = 0;
  24796. +                 ++i;
  24797. +             } else {
  24798. +                 dayoff = oadd(dayoff, (long) -1);
  24799. +                 if (--wday < 0)
  24800. +                     wday = LDAYSPERWEEK;
  24801. +                 --i;
  24802. +             }
  24803. +         if (i < 0 || i >= len_months[isleap(y)][m]) {
  24804. +             error("no day in month matches rule");
  24805. +             (void) exit(EXIT_FAILURE);
  24806. +         }
  24807. +     }
  24808. +     if (dayoff < 0 && !tt_signed) {
  24809. +         if (wantedy == rp->r_loyear)
  24810. +             return min_time;
  24811. +         error("time before zero");
  24812. +         (void) exit(EXIT_FAILURE);
  24813. +     }
  24814. +     t = (time_t) dayoff * SECSPERDAY;
  24815. +     /*
  24816. +     ** Cheap overflow check.
  24817. +     */
  24818. +     if (t / SECSPERDAY != dayoff) {
  24819. +         if (wantedy == rp->r_hiyear)
  24820. +             return max_time;
  24821. +         if (wantedy == rp->r_loyear)
  24822. +             return min_time;
  24823. +         error("time overflow");
  24824. +         (void) exit(EXIT_FAILURE);
  24825. +     }
  24826. +     return tadd(t, rp->r_tod);
  24827. + }
  24828. + 
  24829. + static void
  24830. + newabbr(string)
  24831. + const char * const    string;
  24832. + {
  24833. +     register int    i;
  24834. + 
  24835. +     i = strlen(string) + 1;
  24836. +     if (charcnt + i >= TZ_MAX_CHARS) {
  24837. +         error("too many, or too long, time zone abbreviations");
  24838. +         (void) exit(EXIT_FAILURE);
  24839. +     }
  24840. +     (void) strcpy(&chars[charcnt], string);
  24841. +     charcnt += eitol(i);
  24842. + }
  24843. + 
  24844. + static int
  24845. + mkdirs(name)
  24846. + char * const    name;
  24847. + {
  24848. +     register char *    cp;
  24849. + 
  24850. +     if ((cp = name) == NULL || *cp == '\0')
  24851. +         return 0;
  24852. +     while ((cp = strchr(cp + 1, '/')) != 0) {
  24853. +         *cp = '\0';
  24854. +         if (!itsdir(name)) {
  24855. +             /*
  24856. +             ** It doesn't seem to exist, so we try to create it.
  24857. +             */
  24858. +             if (mkdir(name, 0755) != 0) {
  24859. +                 (void) fprintf(stderr,
  24860. +                     "%s: Can't create directory ",
  24861. +                     progname);
  24862. +                 (void) perror(name);
  24863. +                 return -1;
  24864. +             }
  24865. +         }
  24866. +         *cp = '/';
  24867. +     }
  24868. +     return 0;
  24869. + }
  24870. + 
  24871. + static long
  24872. + eitol(i)
  24873. + const int    i;
  24874. + {
  24875. +     long    l;
  24876. + 
  24877. +     l = i;
  24878. +     if (i < 0 && l >= 0 || i == 0 && l != 0 || i > 0 && l <= 0) {
  24879. +         (void) fprintf(stderr, "%s: %d did not sign extend correctly\n",
  24880. +             progname, i);
  24881. +         (void) exit(EXIT_FAILURE);
  24882. +     }
  24883. +     return l;
  24884. + }
  24885. + 
  24886. + /*
  24887. + ** UNIX is a registered trademark of AT&T.
  24888. + */
  24889. diff -rc --new-file emacs-18.59/amiga/unix/unix.doc /gnu/src/amiga/emacs-18.59/amiga/unix/unix.doc
  24890. *** emacs-18.59/amiga/unix/unix.doc    Thu Jan  1 00:00:00 1970
  24891. --- /gnu/src/amiga/emacs-18.59/amiga/unix/unix.doc    Sun Jun  6 08:43:38 1993
  24892. ***************
  24893. *** 0 ****
  24894. --- 1,452 ----
  24895. + Unix compatibility library for SAS C 6.x version 1.2
  24896. + ----------------------------------------------------
  24897. + 
  24898. + Introduction
  24899. + ------------
  24900. + 
  24901. + This library provides 80 odd functions which are useful for porting
  24902. + Unix programs to the Amiga running AmigaDOS 2.04 or higher. It is thus
  24903. + similar to Markus Wild's ixemul.library, but has more restricted aims:
  24904. + 
  24905. + a) It is written specifically for SAS C 6.1, 6.2, ...
  24906. + 
  24907. + b) It isn't a complete C library, it requires the SAS C library to function.
  24908. + It adds some routines, and replaces others that were deficient, out of date,
  24909. + or that didn't provide adequate functionality.
  24910. + 
  24911. + c) It isn't a complete Unix emulation library, it only contains those functions
  24912. + that I needed while porting various utilities (mainly from GNU) to the Amiga.
  24913. + 
  24914. + d) It is a traditional C link library, not an Amiga library. This produces 
  24915. + bigger executables.
  24916. + 
  24917. + Considering the above points, you might ask why I wrote it ... There are several
  24918. + good answers:
  24919. + 
  24920. + a) I started it before I was aware of ixemul.library.
  24921. + 
  24922. + b) ixemul.library didn't provide the features I needed for Emacs (support for
  24923. + select).
  24924. + 
  24925. + c) It is easier for me to maintain when I find I need to support another Unix
  24926. + feature (eg deleting open files).
  24927. + 
  24928. + Copying
  24929. + -------
  24930. + 
  24931. + The library includes code that I have written, which I place in the public domain.
  24932. + This is found in all the files that don't have a Copyright notice.
  24933. + 
  24934. + It also includes code which is (inclusive of my modifications)
  24935. + 
  24936. +  Copyright (c) 1982, 1986, 1991 The Regents of the University of California.
  24937. +  All rights reserved.
  24938. + 
  24939. + This code is freely redistributable (see the copyright notices in the source
  24940. + and include files).
  24941. + 
  24942. + Finally it includes Doug Gwyn's public domain alloca implementation.
  24943. + 
  24944. + Installation & Use
  24945. + ------------------
  24946. + 
  24947. + To use this library, you must compile with the include directory in your include
  24948. + search path, and link with the unix.lib library (which must be specified before
  24949. + lc.lib). For example, if you extract this archive in a directory called src:, you
  24950. + could compile the following program:
  24951. + 
  24952. + echo.c:
  24953. + 
  24954. + #include <sys/unistd.h>
  24955. + 
  24956. + void main(int argc, char **argv)
  24957. + {
  24958. +   int i;
  24959. + 
  24960. +   for (i = 1; i < argc; i++)
  24961. +     {
  24962. +       if (i != 1) write(1, " ", 1);
  24963. +       write(1, argv[i], strlen(argv[i]));
  24964. +     }
  24965. +   write(1, "\n", 1);
  24966. + }
  24967. + 
  24968. + with the command
  24969. + 
  24970. +   sc idir src:unix/include/ lib src:unix/src/unix.lib link echo.c
  24971. + 
  24972. + to produce a simple unix-like echo command.
  24973. + 
  24974. + You should define the following environment variables:
  24975. + 
  24976. + USER - A user name for the sole Amiga user (default "user").
  24977. + USERNAME - The full name of the sole Amiga user (default $USER).
  24978. + HOME - A "home" directory (default "s:") for programs that want one. Configuration
  24979. +        files will probably end up here ...
  24980. + SHELL - A program which behaves reasonably like a Unix shell (default "bin:sh").
  24981. +     You should copy the sh executable there if you don't have a Unix-like shell.
  24982. + HOSTNAME - The name of your machine (default "amiga").
  24983. + 
  24984. + If you are going to be using pipes, you will require Matt Dillon's fifo.library
  24985. + and fifo: device. This can be found on the Fish disks, with his UUCP distribution
  24986. + and on many FTP sites.
  24987. + 
  24988. + If you want to install the timezone information (see the discussion below on
  24989. + Unix vs Amiga time), do the following:
  24990. + 
  24991. +   a) change to the zoneinfo directory
  24992. +   b) compile the zic problem by running lmk.
  24993. +   c) change to the datfiles directory.
  24994. +   d) edit lmkfile and choose your timezone (you can look at the data files
  24995. +      to see the ones available). If you get this wrong, you can always change
  24996. +      it later with the zic program.
  24997. +   e) type 'lmk install'. This will compile the timezones, and setup the one
  24998. +      you chose as the default. The default can be changed with
  24999. +        zic -l <timezone name>
  25000. + 
  25001. +      or by defining the environment variable TZ.
  25002. + 
  25003. + Functionality
  25004. + -------------
  25005. + 
  25006. + While this library aims to hide the differences between AmigaDOS & Unix, 
  25007. + it also aims to provide support for Amiga specific features. This sometimes
  25008. + produces strange compromises.
  25009. + 
  25010. + This library provides two things to programs linked with it:
  25011. + 
  25012. + a) A Unix-like environment:
  25013. + 
  25014. + This includes:
  25015. + 
  25016. + - Unix-like command line parsing, with wildcard expansion. These
  25017. + wildcards are however specified with the Amiga syntax. 
  25018. + 
  25019. + Arguments which are unquoted or surround with single quotes are
  25020. + handled like Unix shells. Those surrounded with double quotes are
  25021. + handled in the Amiga fashion, but with wildcard expansion (this is
  25022. + done to avoid problems with the way the exec function works).
  25023. + 
  25024. + Here is a summary of argument splitting:
  25025. + 
  25026. + Arguments can be enclosed in single quotes, (') double quotes ("), or 
  25027. + separated by spaces.
  25028. + 
  25029. + Arguments enclosed by single quotes never suffer wildcard expansion, and
  25030. + no character is significant inside them (not even \). Given the echo program
  25031. + given above,
  25032. + 
  25033. +   echo 'f*un\'
  25034. + 
  25035. + simply displays
  25036. + 
  25037. +   f*un\
  25038. + 
  25039. + Within double quotes, * is the standard Amiga escape character. \ is
  25040. + handled just like any other character. Wildcards are expanded. So,
  25041. + assuming the current directory contains only echo.c and echo,
  25042. + 
  25043. +   echo "#?.c" "*.c" "\mad"
  25044. + 
  25045. + displays
  25046. + 
  25047. +   echo.c .c \mad
  25048. + 
  25049. + (* escapes the following character, except that *N is newline and *E is 
  25050. + escape. Wildcard characters still behave as usual (' is the standard
  25051. + Amiga wildcard escape character)).
  25052. + 
  25053. + If an argument is unquoted, \ acts as an escape character (removing
  25054. + special significance from the next character, be it a wildcard, a space, 
  25055. + a \, ...). So
  25056. + 
  25057. +   echo \*.c \\ \n
  25058. + 
  25059. + displays
  25060. + 
  25061. +   *.c \ n
  25062. + 
  25063. + - When a program is run from the Workbench, stdin, stdout & stderr are opened 
  25064. + on NIL:, and the icons selected are converted to file names and passed as the
  25065. + argc,argv to main.
  25066. + 
  25067. + - The standard variable environ is defined and contains all the local environment
  25068. + variables. This is passed as the envp parameter to main.
  25069. + 
  25070. + - The program is led to believe that all files belong to $USER (uid 1), group
  25071. + wheel (gid 0).
  25072. + 
  25073. + - Amiga protection flags are mapped onto the standard 12 Unix protection bits
  25074. + (and back when necessary). This can be overridden (dynamically) by changing the
  25075. + value of use_amiga_flags. Eg:
  25076. + 
  25077. +   extern int use_amiga_flags;
  25078. + 
  25079. +   ...
  25080. + 
  25081. + 
  25082. +   main()
  25083. +   {
  25084. +     use_amiga_flags = 1;
  25085. + 
  25086. +     ... some code using stat or chmod or ...
  25087. +   }
  25088. + 
  25089. + In this case, the Amiga protection bits are left untouched. Otherwise the
  25090. + mapping is as follows (note that the archive bit is lost):
  25091. + 
  25092. + Unix -> Amiga
  25093. + 
  25094. + Amiga read: if user, group or world read.
  25095. + Amiga write: if user or group write.
  25096. + Amiga delete: if user or world write.
  25097. + Amiga execute: if group execute or only user execute.
  25098. + Amiga script: if world execute or only user execute.
  25099. + Amiga pure: if sticky.
  25100. + 
  25101. + Amiga -> Unix
  25102. + 
  25103. + user, group, world read: if amiga read.
  25104. + user write: if amiga write and delete.
  25105. + group write: if amiga write.
  25106. + world write: if amiga delete.
  25107. + user execute: if amiga execute or amiga script.
  25108. + group execute: if amiga execute.
  25109. + world execute: if amiga script.
  25110. + sticky: if amiga pure.
  25111. + 
  25112. + - Unix-like time. time is expressed in seconds since 1-Jan-1970 00:00 GMT. 
  25113. + This is the format used by the time(), stat() and utime() functions. The
  25114. + library uses the BSD time functions which properly handle timezones, 
  25115. + daylight savings time, etc. 
  25116. + 
  25117. + On Unix systems, time is generally stored as GMT, while the Amiga stores
  25118. + local time. These times are visible in two places: the time stored in the
  25119. + system clock and the creation, modification or access dates for files (only
  25120. + the modification date is available on the Amiga). There are 3 ways to resolve
  25121. + this conflict:
  25122. + 
  25123. + 1) Ignore timezones (you can choose this option by not installing the
  25124. + timezone information). The library will then assume that system time
  25125. + and file times are expressed in GMT and will never apply any
  25126. + corrections. All will work well (except maybe on a global network).
  25127. + This is the simplest solution.
  25128. + 
  25129. + 2) System & file time are assumed to be local times. The time() & stat()
  25130. + functions convert local time to GMT, the utime() call converts GMT to
  25131. + local time. This allows you to keep the system clock on local time, which
  25132. + is compatible with most (all?) Amiga applications. However, nearly every
  25133. + program will be bigger because they will need the timezone information and
  25134. + timezone conversion code (approximately 7k). The library can be recompiled
  25135. + if you prefer to have things this way by adding -dUSE_LOCAL to the CFLAGS
  25136. + variable in lmkfile.
  25137. + 
  25138. + 3) System & file time are stored in GMT. Times are converted to local time
  25139. + only when they are displayed to the user, who must of course choose the 
  25140. + correct timezone. This entails changing your system clock to GMT, which means
  25141. + that most programs will display an incorrect time. However, you won't have
  25142. + to change your system clock when daylight savings time ends ... The library
  25143. + comes compiled this way (But you can still choose option 1, no timezone
  25144. + information, and avoid the potential confusion).
  25145. + 
  25146. + - BSD-like signals. Signal handlers stay enabled after a signal occurs
  25147. + (that particular signal is simply masked for the duration of the handler).
  25148. + setjmp & longjmp preserve the signal mask (the functions _setjmp & _longjmp
  25149. + don't). You may receive any signal with kill(getpid(), sig). Otherwise only
  25150. + the following occur:
  25151. + 
  25152. +   SIGINT: user typed ctrl-c
  25153. +   SIGQUIT: user typed ctrl-d
  25154. +   SIGALRM: alarm() expired
  25155. +   SIGCHLD: a child process died
  25156. + 
  25157. + When using kill to signal another process, only SIGHUP, SIGINT, SIGQUIT & 
  25158. + SIGKILL do anything. They all send SIGBREAKF_CTRL_C | D to the process (and
  25159. + hopefully its children). See the discussion under the exec function.
  25160. + 
  25161. + 
  25162. + b) A large number of unix C library calls:
  25163. + 
  25164. + _exit, _setjmp, _longjmp, abort, access, alloca, gettimeofday, ftime, 
  25165. + bcmp, bcopy, bzero, chmod, chown, fchown, close, creat, tzset, tzsetwall,
  25166. + localtime, gmtime, asctime, ctime, mktime, opendir, closedir, readdir, 
  25167. + telldir, seekdir, fchmod, fcntl, fstat, ftruncate, getenv, gethostname,
  25168. + getpid, getwd, getgid, getegid, getgrgid, getgrnam, index, ioctl, isatty,
  25169. + kill, link, lseek, mkdir, mkfifo, mknod, mktemp, open, perror, pipe, sktpair, 
  25170. + getpwuid, getpwnam, getlogin, read, rename, rindex, rmdir, select, setjmp, 
  25171. + longjmp, signal, sigpause, sigsetmask, sleep, stat, strftime, time, truncate,
  25172. + getuid, geteuid, umask, unlink, utime, wait, waitpid, wait3, wait4, write,
  25173. + readlink, symlink, popen, pclose.
  25174. + 
  25175. + These functions aim to be BSD compatible, however I based myself on descriptions
  25176. + in the SunOS 4 man pages. Their behaviour is sometimes strange or incomplete.
  25177. + 
  25178. + Here is a summary of the differences with the standard Unix functions:
  25179. + 
  25180. + alloca - This is Doug Gwyn's portable alloca. Memory allocated is freed
  25181. + later than with a true alloca.
  25182. + 
  25183. + gettimeofday - The dst field of the timezone is a (not very good) guess. It
  25184. + shouldn't be used anyway.
  25185. + 
  25186. + chown, fchown - These are do-nothing routines.
  25187. + 
  25188. + opendir, closedir, ... - These interact with stat to avoid having to read
  25189. + each directory entry twice when doing a readdir + stat loop.
  25190. + 
  25191. + fchmod - The protection is only set when the file is closed. See also the
  25192. + discussion of protection modes above.
  25193. + 
  25194. + fcntl - Only the F_GETFL & F_SETFL operations are supported.
  25195. + 
  25196. + truncate, ftruncate - These will not necessarily work with all filing systems.
  25197. + See the discussion of the AmigaDOS SetFileSize function.
  25198. + 
  25199. + getenv - This checks local environment variables and then global ones. It 
  25200. + allocates memory for the variables value each time. This memory is never freed
  25201. + (till the program exits).
  25202. + 
  25203. + gethostname - This is obtained from the HOSTNAME environment variable at startup.
  25204. + 
  25205. + getuid, geteuid, getgid, getegid, getpwuid, getpwnam, getgrgid, getgrnam, getlogin -
  25206. + These function only know about one user. He/She is:
  25207. + 
  25208. +   name: $USER (default "user")
  25209. +   home directory: $HOME (default "s:")
  25210. +   shell: $SHELL (default "bin:sh")
  25211. +   uid: 1, gid: 0
  25212. + 
  25213. + ioctl - Only FIONBIO & TIOCGWINSZ are known, plus a number of amiga specific
  25214. + ioctls (for internal use). These are documented in include/amiga/ioctl.h.
  25215. + 
  25216. + lseek - Seeks beyond the end of a file are not implemented.
  25217. + 
  25218. + mkfifo, mknod - These are 'do-nothing' routines.
  25219. + 
  25220. + pipe - This uses Matt Dillon's fifo.library and fifo: device. It works well
  25221. + for interactive use, but not for transfering large quantities of data.
  25222. + 
  25223. + select - This implementation only works with pipes & sktpairs, and cannot
  25224. + detect 'exceptional' conditions.
  25225. + 
  25226. + sigvec - The flags are not recognized.
  25227. + 
  25228. + symlink - Symbolic links on the Amiga are far too buggy and should not be used.
  25229. + By default, as compiled, this routine always returns an error. However readlink
  25230. + does work, so you can read existing symbolic links.
  25231. + 
  25232. + umask - This is a 'do-nothing' routine.
  25233. + 
  25234. + unlink - You can unlink a file that your program has opened before you close
  25235. + it. At that point, the AmigaDOS file is closed & deleted, though it still
  25236. + appears open to read (it returns EOF), write, close, etc. Also you can unlink
  25237. + a file even if it is protected from deletion (the protection mode is changed
  25238. + first ...).
  25239. + 
  25240. + utime - Only the modification time can be changed (the others don't exist).
  25241. + 
  25242. + wait3, wait4 - Resource usage is never returned.
  25243. + 
  25244. + exec
  25245. + ----
  25246. + 
  25247. + vfork() and execxx() are very tricky to implement. So I took the easy
  25248. + (but see below) way out, providing a function, eexec, that create a
  25249. + new process given argc, argv.  This functions returns a pid which can
  25250. + be used with wait, waitpid, ... as usual. Also exiting processes
  25251. + generate the SIGCHLD signal. With this, it is generally fairly easy to
  25252. + replace the process creation parts of most Unix programs.
  25253. + 
  25254. + First, here is a description of the problems which arise:
  25255. + 
  25256. + Executing an external program is tricky with AmigaDOS. The various system
  25257. + routines (CreateNewProc, SystemTags, Execute) allow some operations to be
  25258. + done easily, but make others difficult. Specifically, if you want to do all
  25259. + of the following:
  25260. + 
  25261. + - Execute a program given argc, argv (like with unix)
  25262. + - Specify arbitrary input, output and error streams, including inheriting
  25263. + the current ones.
  25264. + - Have some of these streams be pipes of which you keep one end.
  25265. + - Have some of these pipes appear to be interactive (this is used for example
  25266. + by programs running inside emacs).
  25267. + - Detect when the execute program exits, and get its return code.
  25268. + - Send signals (eg ctrl-c) to the created process, and preferably its children.
  25269. + 
  25270. + you are in deep trouble. A minimum of 10 attempts is needed to get
  25271. + something which works most of the time, ie the eexec function.
  25272. + 
  25273. + The problems are:
  25274. + - You have to make a command line from argc, argv. But these arguments may
  25275. + contain spaces, so they must be surrounded by double quotes. And then, '*'
  25276. + must be escaped as it is the escape character. And so on.
  25277. + - Only recently has an error stream appeared in AmigaDOS. And it doesn't
  25278. + inherit very well (Indeed, specifying the error stream doesn't work in the
  25279. + current version).
  25280. + - Amiga programs generally expect interactive files to be console windows.
  25281. + And fifo: is the only interactive pipe I'm aware of. So the pipe: system
  25282. + call uses fifo: and fifo.library.
  25283. + - To get the return code of an application, you must use the synchronous
  25284. + version of SystemTags. Otherwise it is lost. But you want an asynchronous
  25285. + process facility. So I create 2 processes, the first one is created with
  25286. + CreateNewProc and executes a custom piece of code. This code launches
  25287. + the real program with SystemTags, and sends a message with the return code
  25288. + to its parent (if it is still around).
  25289. + - You can't find the children of a process. So the signal is sent to all
  25290. + the processes that share the input filehandle of the created process. This
  25291. + is the best solution that I found.
  25292. + - AmigaDOS isn't Unix.
  25293. + 
  25294. + Therefore, the eexec function is far from perfect. It works as follows:
  25295. + 
  25296. + eexec(program, argv, input, output, error, directory, stacksize)
  25297. + 
  25298. +   program: the path of the executable file. Your path is searched.
  25299. +   argv: A null terminated array of arguments. The first (argv[0]) is ignored.
  25300. +   input: A unix filehandle on the desired input. -1 means copy Input().
  25301. +   output: A unix filehandle on the desired output. -1 means copy Output().
  25302. +   error: A unix filehandle on the desired error stream. -1 means copy the pr_CES
  25303. +      field of the current process, -2 means copy the value specified for output.
  25304. +          Currently, this parameter has no effect.
  25305. +   directory: pathname for the current directory for the created process, or NULL
  25306. +          to inheir the current processes'.
  25307. +   stacksize: stack size for the created process. 0 means the same size as the 
  25308. +          current stack.
  25309. +   
  25310. + _start_process is a lower level interface:
  25311. + 
  25312. + _start_process(command, input, close_input, output, close_output,
  25313. +            error, close_error, dir, stacksize)
  25314. +   command: the string to pass to SystemTags (it will be passed to
  25315. +     the UserShell, not the system default).
  25316. +   input, output, error, close_xxx: AmigaDOS filehandles for use as the
  25317. +     appropriate stream. If close_x is true, the corresponding stream will be
  25318. +     closed when the process exits.
  25319. +   dir: Lock on the desired directory for the new process.
  25320. +   stacksize: as above.
  25321. + 
  25322. + 
  25323. + Recompiling
  25324. + -----------
  25325. + 
  25326. + To recompile, simply run lmk in the src directory. You can add the -dUSE_LOCAL
  25327. + flag to CFLAGS in lmkfile if you want the system clock to store local time 
  25328. + instead of GMT.
  25329. + 
  25330. + If you want symlink to work, add -dSOFTLINK to CFLAGS (For example, tar uses
  25331. + a version of unix.lib compiled like this).
  25332. + 
  25333. + If you add modules, you can use the mkmkf to remake the makefile dependencies
  25334. + (it generates lmkfile from lmkfile.base and the dependencies for all the .c
  25335. + files in the current directory). This program requires perl (available from
  25336. + ftp sites).
  25337. + 
  25338. + 
  25339. + Changes from 1.0 to 1.1
  25340. + -----------------------
  25341. + stat() now returns a value for st_dev.
  25342. + exec() extended by eexec, assembly part rewritten in C.
  25343. + symbolic links recognized. Their use is not recommended (too buggy).
  25344. + sigvec added.
  25345. + popen, pclose added.
  25346. + Documentation discusses exec.
  25347. diff -rc --new-file emacs-18.59/cpp/SCOPTIONS /gnu/src/amiga/emacs-18.59/cpp/SCOPTIONS
  25348. *** emacs-18.59/cpp/SCOPTIONS    Thu Jan  1 00:00:00 1970
  25349. --- /gnu/src/amiga/emacs-18.59/cpp/SCOPTIONS    Sat Jun  5 12:01:06 1993
  25350. ***************
  25351. *** 0 ****
  25352. --- 1,7 ----
  25353. + IGNORE=161
  25354. + IGNORE=154
  25355. + IGNORE=100
  25356. + IGNORE=181
  25357. + IGNORE=84
  25358. + IGNORE=93
  25359. + IGNORE=72
  25360. \ No newline at end of file
  25361. diff -rc --new-file emacs-18.59/cpp/cccp.c /gnu/src/amiga/emacs-18.59/cpp/cccp.c
  25362. *** emacs-18.59/cpp/cccp.c    Fri Sep 28 20:17:57 1990
  25363. --- /gnu/src/amiga/emacs-18.59/cpp/cccp.c    Sat Jun  5 12:07:16 1993
  25364. ***************
  25365. *** 97,103 ****
  25366. --- 97,113 ----
  25367.   
  25368.   #ifdef EMACS
  25369.   #define NO_SHORTNAMES
  25370. + #ifdef AMIGA
  25371. + #include "/src/config.h"
  25372. + #undef fflush
  25373. + #undef fwrite
  25374. + #undef main
  25375. + #undef putchar
  25376. + #undef AMIGA_DUMP
  25377. + #include <string.h>
  25378. + #else
  25379.   #include "../src/config.h"
  25380. + #endif
  25381.   #ifdef static
  25382.   #undef static
  25383.   #endif
  25384. ***************
  25385. *** 115,121 ****
  25386. --- 125,135 ----
  25387.   #include <ctype.h>
  25388.   #include <stdio.h>
  25389.   #ifndef USG
  25390. + #ifdef AMIGA
  25391. + #include <time.h>
  25392. + #else
  25393.   #include <sys/time.h>        /* for __DATE__ and __TIME__ */
  25394. + #endif
  25395.   #else
  25396.   #define index strchr
  25397.   #define rindex strrchr
  25398. ***************
  25399. *** 123,130 ****
  25400. --- 137,146 ----
  25401.   #include <fcntl.h>
  25402.   #endif /* USG */
  25403.   
  25404. + #ifndef AMIGA
  25405.   void bcopy (), bzero ();
  25406.   int bcmp ();
  25407. + #endif
  25408.   
  25409.   char *xmalloc (), *xrealloc (), *xcalloc ();
  25410.   void fatal (), pfatal_with_name (), perror_with_name ();
  25411. ***************
  25412. *** 142,156 ****
  25413. --- 158,186 ----
  25414.   /* #include "file" starts with the first entry in the stack */
  25415.   /* #include <file> starts with the second. */
  25416.   /* -I directories are added after the first */
  25417. + #ifdef AMIGA
  25418. + struct directory_stack default_includes[2] =
  25419. +   {
  25420. +     { &default_includes[1], "" },
  25421. +     { 0, "include:" }
  25422. +   };
  25423. + #else
  25424.   struct directory_stack default_includes[2] =
  25425.     {
  25426.       { &default_includes[1], "." },
  25427.       { 0, "/usr/include" }
  25428.     };
  25429. + #endif
  25430. + 
  25431.   struct directory_stack *include = &default_includes[0];
  25432.   
  25433. + #ifdef AMIGA
  25434.   int max_include_len = 14;    /* strlen (default_include) + 2
  25435.                               (for / and null) */
  25436. + #else
  25437. + int max_include_len = 9;    /* strlen (default_include) + 1
  25438. +                             (for null) */
  25439. + #endif
  25440.   
  25441.   char STDIN_FILE[] = "";        /* Empty, like real cpp */
  25442.   int put_out_comments = 0;    /* JF non-zero means leave comments in the
  25443. ***************
  25444. *** 379,385 ****
  25445.       dirtmp->next = include->next;
  25446.       include->next = dirtmp;
  25447.       dirtmp->fname = argv[i]+2;
  25448. -     include = dirtmp;
  25449.       if (strlen (argv[i]) > max_include_len)
  25450.         max_include_len = strlen (argv[i]);
  25451.       break;
  25452. --- 409,414 ----
  25453. ***************
  25454. *** 405,415 ****
  25455.     else if ((f = open (in_fname, O_RDONLY)) < 0)
  25456.       goto perror;
  25457.   
  25458. !   fstat (f, &sbuf);
  25459.     fp->fname = in_fname;
  25460.     fp->lineno = 1;
  25461.     /* JF all this is mine about reading pipes and ttys */
  25462. !   if ((sbuf.st_mode & S_IFMT) != S_IFREG) {
  25463.       int size;
  25464.       int bsize;
  25465.       int cnt;
  25466. --- 434,444 ----
  25467.     else if ((f = open (in_fname, O_RDONLY)) < 0)
  25468.       goto perror;
  25469.   
  25470. !   if (f) fstat (f, &sbuf);
  25471.     fp->fname = in_fname;
  25472.     fp->lineno = 1;
  25473.     /* JF all this is mine about reading pipes and ttys */
  25474. !   if (!f || (sbuf.st_mode & S_IFMT) != S_IFREG) {
  25475.       int size;
  25476.       int bsize;
  25477.       int cnt;
  25478. ***************
  25479. *** 478,488 ****
  25480.     struct keyword_table *handle_directive ();
  25481.     int excess_newlines = 0;
  25482.     int escaped = 0;
  25483. !   
  25484.     U_CHAR *bp;
  25485. !   
  25486.     check_expand(op, ip->length);
  25487. !   
  25488.     ip->bufp = ip->buf;
  25489.     limit = ip->buf + ip->length;
  25490.     while (1) {
  25491. --- 507,517 ----
  25492.     struct keyword_table *handle_directive ();
  25493.     int excess_newlines = 0;
  25494.     int escaped = 0;
  25495. ! 
  25496.     U_CHAR *bp;
  25497. ! 
  25498.     check_expand(op, ip->length);
  25499. ! 
  25500.     ip->bufp = ip->buf;
  25501.     limit = ip->buf + ip->length;
  25502.     while (1) {
  25503. ***************
  25504. *** 615,639 ****
  25505.           *op->bufp++ = '/';
  25506.         ip->bufp = bp + 1;
  25507.         break;
  25508. !       
  25509.       case '0': case '1': case '2': case '3': case '4':
  25510.       case '5': case '6': case '7': case '8': case '9':
  25511.         /* if digit is not part of identifier, it is random */
  25512.         if (ident_length == 0)
  25513.       goto randomchar;
  25514.         /* fall through */
  25515. !       
  25516.       case '_':
  25517.       case 'a': case 'b': case 'c': case 'd': case 'e': case 'f':
  25518.       case 'g': case 'h': case 'i': case 'j': case 'k': case 'l':
  25519.       case 'm': case 'n': case 'o': case 'p': case 'q': case 'r':
  25520.       case 's': case 't': case 'u': case 'v': case 'w': case 'x':
  25521. !     case 'y': case 'z': 
  25522.       case 'A': case 'B': case 'C': case 'D': case 'E': case 'F':
  25523.       case 'G': case 'H': case 'I': case 'J': case 'K': case 'L':
  25524.       case 'M': case 'N': case 'O': case 'P': case 'Q': case 'R':
  25525.       case 'S': case 'T': case 'U': case 'V': case 'W': case 'X':
  25526. !     case 'Y': case 'Z': 
  25527.         ident_length++;
  25528.         /* compute step of hash function, to avoid a proc call on every token */
  25529.         hash = HASHSTEP(hash, c);
  25530. --- 644,668 ----
  25531.           *op->bufp++ = '/';
  25532.         ip->bufp = bp + 1;
  25533.         break;
  25534. ! 
  25535.       case '0': case '1': case '2': case '3': case '4':
  25536.       case '5': case '6': case '7': case '8': case '9':
  25537.         /* if digit is not part of identifier, it is random */
  25538.         if (ident_length == 0)
  25539.       goto randomchar;
  25540.         /* fall through */
  25541. ! 
  25542.       case '_':
  25543.       case 'a': case 'b': case 'c': case 'd': case 'e': case 'f':
  25544.       case 'g': case 'h': case 'i': case 'j': case 'k': case 'l':
  25545.       case 'm': case 'n': case 'o': case 'p': case 'q': case 'r':
  25546.       case 's': case 't': case 'u': case 'v': case 'w': case 'x':
  25547. !     case 'y': case 'z':
  25548.       case 'A': case 'B': case 'C': case 'D': case 'E': case 'F':
  25549.       case 'G': case 'H': case 'I': case 'J': case 'K': case 'L':
  25550.       case 'M': case 'N': case 'O': case 'P': case 'Q': case 'R':
  25551.       case 'S': case 'T': case 'U': case 'V': case 'W': case 'X':
  25552. !     case 'Y': case 'Z':
  25553.         ident_length++;
  25554.         /* compute step of hash function, to avoid a proc call on every token */
  25555.         hash = HASHSTEP(hash, c);
  25556. ***************
  25557. *** 646,676 ****
  25558.       for (hp = hashtab[MAKE_POS(hash) % HASHSIZE]; hp != NULL;
  25559.            hp = hp->next) {
  25560.             U_CHAR *save_ibufp;    /* kludge, see below */
  25561. !           
  25562.             if (hp->length == ident_length) {
  25563.           register int i = ident_length;
  25564.           register U_CHAR *p = hp->name;
  25565.           register U_CHAR *q = op->bufp - i;
  25566.   
  25567. !         if (c != (U_CHAR) -1)
  25568.             q--;
  25569.   
  25570.           do {        /* all this to avoid a strncmp() */
  25571.             if (*p++ != *q++)
  25572.           goto hashcollision;
  25573.           } while (--i);
  25574. !      
  25575.           save_ibufp = ip->bufp;
  25576.           /* back up over identifier, then expand token */
  25577.           op->bufp -= ident_length;
  25578. !         if (c != (U_CHAR) -1) op->bufp--;
  25579.           macroexpand (hp, ip, op, &excess_newlines);
  25580.   
  25581.           check_expand(op, ip->length - (ip->bufp - ip->buf));
  25582. !         
  25583.           /* If we just processed an identifier at end of input,
  25584.              return right away.  */
  25585. !         if (c == (U_CHAR) -1)
  25586.             return;
  25587.   
  25588.           /* if the expansion routine has not moved the input
  25589. --- 675,705 ----
  25590.       for (hp = hashtab[MAKE_POS(hash) % HASHSIZE]; hp != NULL;
  25591.            hp = hp->next) {
  25592.             U_CHAR *save_ibufp;    /* kludge, see below */
  25593. ! 
  25594.             if (hp->length == ident_length) {
  25595.           register int i = ident_length;
  25596.           register U_CHAR *p = hp->name;
  25597.           register U_CHAR *q = op->bufp - i;
  25598.   
  25599. !         if (c != -1)
  25600.             q--;
  25601.   
  25602.           do {        /* all this to avoid a strncmp() */
  25603.             if (*p++ != *q++)
  25604.           goto hashcollision;
  25605.           } while (--i);
  25606. ! 
  25607.           save_ibufp = ip->bufp;
  25608.           /* back up over identifier, then expand token */
  25609.           op->bufp -= ident_length;
  25610. !         if (c != -1) op->bufp--;
  25611.           macroexpand (hp, ip, op, &excess_newlines);
  25612.   
  25613.           check_expand(op, ip->length - (ip->bufp - ip->buf));
  25614. ! 
  25615.           /* If we just processed an identifier at end of input,
  25616.              return right away.  */
  25617. !         if (c == -1)
  25618.             return;
  25619.   
  25620.           /* if the expansion routine has not moved the input
  25621. ***************
  25622. *** 679,685 ****
  25623.              reason to put it back or not put it back. */
  25624.           if (ip->bufp == save_ibufp)
  25625.             *op->bufp++ = c;
  25626. !         
  25627.           break;        /* out of for loop */
  25628.         }
  25629.   hashcollision:
  25630. --- 708,714 ----
  25631.              reason to put it back or not put it back. */
  25632.           if (ip->bufp == save_ibufp)
  25633.             *op->bufp++ = c;
  25634. ! 
  25635.           break;        /* out of for loop */
  25636.         }
  25637.   hashcollision:
  25638. ***************
  25639. *** 687,693 ****
  25640.       }            /* end for loop */
  25641.       ident_length = hash = 0; /* stop collecting identifier */
  25642.         }
  25643. !         
  25644.         /* If we just processed an identifier at end of input,
  25645.        return right away.  */
  25646.         if (c == -1)
  25647. --- 716,722 ----
  25648.       }            /* end for loop */
  25649.       ident_length = hash = 0; /* stop collecting identifier */
  25650.         }
  25651. ! 
  25652.         /* If we just processed an identifier at end of input,
  25653.        return right away.  */
  25654.         if (c == -1)
  25655. ***************
  25656. *** 746,752 ****
  25657.     while (is_idchar[*cp])
  25658.       cp++;
  25659.     ident_length = cp - bp;
  25660. !   
  25661.     /*
  25662.      * Decode the keyword and call the appropriate expansion
  25663.      * routine, after moving the input pointer up to the next line.
  25664. --- 775,781 ----
  25665.     while (is_idchar[*cp])
  25666.       cp++;
  25667.     ident_length = cp - bp;
  25668. ! 
  25669.     /*
  25670.      * Decode the keyword and call the appropriate expansion
  25671.      * routine, after moving the input pointer up to the next line.
  25672. ***************
  25673. *** 758,770 ****
  25674.         register U_CHAR *buf;
  25675.         register U_CHAR *limit = ip->buf + ip->length;
  25676.         U_CHAR *skip_to_end_of_comment();
  25677. !       
  25678.         buf = bp = bp + ident_length;
  25679.         while (bp < limit) {
  25680.       if (*bp == '\'' || *bp == '\"') {        /* JF handle quotes right  */
  25681.         U_CHAR quotec;
  25682.   
  25683. !       for (quotec = *bp++; bp < limit && *bp != quotec; bp++) {
  25684.           if (*bp == '\\') bp++;
  25685.           if (*bp == '\n') {
  25686.             if (bp[-1] == '\\')
  25687. --- 787,804 ----
  25688.         register U_CHAR *buf;
  25689.         register U_CHAR *limit = ip->buf + ip->length;
  25690.         U_CHAR *skip_to_end_of_comment();
  25691. ! 
  25692.         buf = bp = bp + ident_length;
  25693.         while (bp < limit) {
  25694.       if (*bp == '\'' || *bp == '\"') {        /* JF handle quotes right  */
  25695.         U_CHAR quotec;
  25696.   
  25697. !       for (quotec = *bp++; bp < limit; bp++) {
  25698. !         if (*bp == quotec)
  25699. !           {
  25700. !         bp++;
  25701. !         break;
  25702. !           }
  25703.           if (*bp == '\\') bp++;
  25704.           if (*bp == '\n') {
  25705.             if (bp[-1] == '\\')
  25706. ***************
  25707. *** 801,813 ****
  25708.                             some slop */
  25709.       bp = buf;
  25710.       buf = cp;
  25711. !     
  25712.       while (bp < limit) {
  25713.         if (*bp == '\'' || *bp == '\"') {    /* JF handle quotes right  */
  25714.           U_CHAR quotec;
  25715.   
  25716.           *cp++ = *bp;
  25717. !         for (quotec = *bp++; bp < limit && *bp != quotec; *cp++ = *bp++) {
  25718.             if (*bp == '\\')
  25719.           *cp++ = *bp++;
  25720.             if (*bp == '\n') {
  25721. --- 835,852 ----
  25722.                             some slop */
  25723.       bp = buf;
  25724.       buf = cp;
  25725. ! 
  25726.       while (bp < limit) {
  25727.         if (*bp == '\'' || *bp == '\"') {    /* JF handle quotes right  */
  25728.           U_CHAR quotec;
  25729.   
  25730.           *cp++ = *bp;
  25731. !         for (quotec = *bp++; bp < limit; *cp++ = *bp++) {
  25732. !           if (*bp == quotec)
  25733. !         {
  25734. !           *cp++ = *bp++;
  25735. !           break;
  25736. !         }
  25737.             if (*bp == '\\')
  25738.           *cp++ = *bp++;
  25739.             if (*bp == '\n') {
  25740. ***************
  25741. *** 939,950 ****
  25742.         ++ip->bufp;
  25743.       }
  25744.       break;
  25745. !     
  25746.   oops:
  25747. !     
  25748.       error ("`defined' must be followed by IDENT or (IDENT)");
  25749.       break;
  25750. !       
  25751.     default:
  25752.       error("CCCP error: illegal special hash type"); /* time for gdb */
  25753.       abort ();
  25754. --- 978,989 ----
  25755.         ++ip->bufp;
  25756.       }
  25757.       break;
  25758. ! 
  25759.   oops:
  25760. ! 
  25761.       error ("`defined' must be followed by IDENT or (IDENT)");
  25762.       break;
  25763. ! 
  25764.     default:
  25765.       error("CCCP error: illegal special hash type"); /* time for gdb */
  25766.       abort ();
  25767. ***************
  25768. *** 953,959 ****
  25769.     check_expand(op, len);
  25770.     bcopy (buf, op->bufp, len);
  25771.     op->bufp += len;
  25772. !   
  25773.     return;
  25774.   }
  25775.   
  25776. --- 992,998 ----
  25777.     check_expand(op, len);
  25778.     bcopy (buf, op->bufp, len);
  25779.     op->bufp += len;
  25780. ! 
  25781.     return;
  25782.   }
  25783.   
  25784. ***************
  25785. *** 978,984 ****
  25786.     struct stat sbuf;        /* to stat the include file */
  25787.     FILE_BUF *fp;    /* for input stack frame */
  25788.     struct directory_stack *stackp;
  25789. !   int flen;
  25790.   
  25791.     int save_indepth = indepth;
  25792.                   /* in case of errors */
  25793. --- 1017,1023 ----
  25794.     struct stat sbuf;        /* to stat the include file */
  25795.     FILE_BUF *fp;    /* for input stack frame */
  25796.     struct directory_stack *stackp;
  25797. !   int flen, maxlen;
  25798.   
  25799.     int save_indepth = indepth;
  25800.                   /* in case of errors */
  25801. ***************
  25802. *** 1019,1025 ****
  25803. --- 1058,1068 ----
  25804.     if (err)
  25805.       goto nope;
  25806.   
  25807. +   /* DG: This doesn't handle includes of aa:... on the Amiga */
  25808. +   /* It doesn't seem worth it. */
  25809.     other_dir = NULL;
  25810. +   maxlen = max_include_len;
  25811. + #if 0
  25812.     if (stackp == include)
  25813.       {
  25814.         fp = &instack[indepth];
  25815. ***************
  25816. *** 1037,1049 ****
  25817.             other_dir = (char *) alloca (n + 1);
  25818.             strncpy (other_dir, nam, n);
  25819.             other_dir[n] = '\0';
  25820.           }
  25821.             break;
  25822.           }
  25823.       }
  25824.       }
  25825.                 /* JF search directory path */
  25826. !   fname = (char *) alloca (max_include_len + flen);
  25827.     for (; stackp; stackp = stackp->next)
  25828.       {
  25829.         if (other_dir)
  25830. --- 1080,1094 ----
  25831.             other_dir = (char *) alloca (n + 1);
  25832.             strncpy (other_dir, nam, n);
  25833.             other_dir[n] = '\0';
  25834. +                   if (n + 4 > maxlen) maxlen = n + 4;
  25835.           }
  25836.             break;
  25837.           }
  25838.       }
  25839.       }
  25840. + #endif
  25841.                 /* JF search directory path */
  25842. !   fname = (char *) alloca (maxlen + flen);
  25843.     for (; stackp; stackp = stackp->next)
  25844.       {
  25845.         if (other_dir)
  25846. ***************
  25847. *** 1053,1058 ****
  25848. --- 1098,1107 ----
  25849.       }
  25850.         else
  25851.       strcpy (fname, stackp->fname);
  25852. + #ifdef AMIGA
  25853. +       if (fname[0] != 0 && fname[strlen(fname) - 1] != ':')
  25854. +       /* Don't add / after : or empty strings */
  25855. + #endif
  25856.         strcat (fname, "/");
  25857.         strncat (fname, fbeg, flen);
  25858.         if ((f = open (fname, O_RDONLY)) >= 0)
  25859. ***************
  25860. *** 1064,1070 ****
  25861. --- 1113,1123 ----
  25862.         goto nope;
  25863.       }
  25864.   
  25865. + #ifdef AMIGA
  25866. +   if (stat(fname, &sbuf) < 0)
  25867. + #else
  25868.     if (fstat(f, &sbuf) < 0)
  25869. + #endif
  25870.       {
  25871.         perror_with_name (fname);
  25872.         goto nope;        /* impossible? */
  25873. ***************
  25874. *** 1202,1208 ****
  25875.       ++bp;            /* skip paren */
  25876.       /* Skip exactly one space or tab if any.  */
  25877.       if (bp < limit && (*bp == ' ' || *bp == '\t')) ++bp;
  25878. !       
  25879.       /* now everything from bp before limit is the definition. */
  25880.       defn = collect_expansion(bp, limit - bp, arg_ptrs);
  25881.     } else {
  25882. --- 1255,1261 ----
  25883.       ++bp;            /* skip paren */
  25884.       /* Skip exactly one space or tab if any.  */
  25885.       if (bp < limit && (*bp == ' ' || *bp == '\t')) ++bp;
  25886. ! 
  25887.       /* now everything from bp before limit is the definition. */
  25888.       defn = collect_expansion(bp, limit - bp, arg_ptrs);
  25889.     } else {
  25890. ***************
  25891. *** 1226,1235 ****
  25892.         }
  25893.       }
  25894.     }
  25895. !   
  25896.     install (symname, T_MACRO, defn);
  25897.     return 0;
  25898. !   
  25899.   nope:
  25900.   
  25901.     return 1;
  25902. --- 1279,1288 ----
  25903.         }
  25904.       }
  25905.     }
  25906. ! 
  25907.     install (symname, T_MACRO, defn);
  25908.     return 0;
  25909. ! 
  25910.   nope:
  25911.   
  25912.     return 1;
  25913. ***************
  25914. *** 1308,1314 ****
  25915.   
  25916.       if (is_idstart[*p] && (p==buf || !is_idchar[*(p-1)])) {
  25917.   
  25918. !       for (id_len = 0; is_idchar[p[id_len]]; id_len++)
  25919.       ;
  25920.         for (arg = arglist; arg != NULL; arg = arg->next) {
  25921.       struct reflist *tpat;
  25922. --- 1361,1367 ----
  25923.   
  25924.       if (is_idstart[*p] && (p==buf || !is_idchar[*(p-1)])) {
  25925.   
  25926. !       for (id_len = 0; p+id_len < buf+size && is_idchar[p[id_len]]; id_len++)
  25927.       ;
  25928.         for (arg = arglist; arg != NULL; arg = arg->next) {
  25929.       struct reflist *tpat;
  25930. ***************
  25931. *** 1341,1347 ****
  25932.     *exp_p++ = '\0';
  25933.   
  25934.     defn->length = exp_p - defn->expansion - 1;
  25935. !   
  25936.     /* give back excess storage */
  25937.     defn->expansion = (U_CHAR *) xrealloc (defn->expansion, defn->length + 1);
  25938.   
  25939. --- 1394,1400 ----
  25940.     *exp_p++ = '\0';
  25941.   
  25942.     defn->length = exp_p - defn->expansion - 1;
  25943. ! 
  25944.     /* give back excess storage */
  25945.     defn->expansion = (U_CHAR *) xrealloc (defn->expansion, defn->length + 1);
  25946.   
  25947. ***************
  25948. *** 1456,1462 ****
  25949.       delete (hp);
  25950.   }
  25951.   
  25952. ! /* handle #error command later */ 
  25953.   do_error()
  25954.   {
  25955.   }
  25956. --- 1509,1515 ----
  25957.       delete (hp);
  25958.   }
  25959.   
  25960. ! /* handle #error command later */
  25961.   do_error()
  25962.   {
  25963.   }
  25964. ***************
  25965. *** 1465,1470 ****
  25966. --- 1518,1538 ----
  25967.    * the behavior of the #pragma directive is implementation defined.
  25968.    * this implementation defines it as follows.
  25969.    */
  25970. + #ifdef AMIGA
  25971. + do_pragma(buf, limit, op, keyword)
  25972. +      U_CHAR *buf, *limit;
  25973. +      FILE_BUF *op;
  25974. +      struct keyword_table *keyword;
  25975. + {
  25976. +     /* Just copy the pragma directibe back out */
  25977. +     int len2 = limit - buf, len1 = sizeof("#pragma") - 1;
  25978. + 
  25979. +     check_expand(op, len1 + len2);
  25980. +     bcopy("#pragma", op->bufp, len1);
  25981. +     bcopy(buf, op->bufp + len1, len2);
  25982. +     op->bufp += len1 + len2;
  25983. + }
  25984. + #else
  25985.   do_pragma()
  25986.   {
  25987.     close (0);
  25988. ***************
  25989. *** 1479,1484 ****
  25990. --- 1547,1553 ----
  25991.   nope:
  25992.     fatal ("You are in a maze of twisty compiler features, all different");
  25993.   }
  25994. + #endif
  25995.   
  25996.   typedef struct if_stack {
  25997.     struct if_stack *next;    /* for chaining to the next stack frame */
  25998. ***************
  25999. *** 1541,1547 ****
  26000.       }
  26001.       if_stack->type = T_ELIF;
  26002.     }
  26003. !   
  26004.     value = eval_if_expression (buf, limit - buf);
  26005.     conditional_skip (ip, value == 0, T_ELIF);
  26006.   }
  26007. --- 1610,1616 ----
  26008.       }
  26009.       if_stack->type = T_ELIF;
  26010.     }
  26011. ! 
  26012.     value = eval_if_expression (buf, limit - buf);
  26013.     conditional_skip (ip, value == 0, T_ELIF);
  26014.   }
  26015. ***************
  26016. *** 1574,1580 ****
  26017.   
  26018.     delete (save_defined);    /* clean up special symbol */
  26019.     free (temp_obuf.buf);
  26020. !   
  26021.     return value;
  26022.   }
  26023.   
  26024. --- 1643,1649 ----
  26025.   
  26026.     delete (save_defined);    /* clean up special symbol */
  26027.     free (temp_obuf.buf);
  26028. ! 
  26029.     return value;
  26030.   }
  26031.   
  26032. ***************
  26033. *** 1614,1620 ****
  26034.     if_stack = temp;
  26035.   
  26036.     if_stack->type = type;
  26037. !   
  26038.     if (skip != 0) {
  26039.       skip_if_group(ip);
  26040.       return;
  26041. --- 1683,1689 ----
  26042.     if_stack = temp;
  26043.   
  26044.     if_stack->type = type;
  26045. ! 
  26046.     if (skip != 0) {
  26047.       skip_if_group(ip);
  26048.       return;
  26049. ***************
  26050. *** 1724,1730 ****
  26051.    * without changing  if_stack ;  this is so that the error message
  26052.    * for missing #endif's etc. will point to the original #if.  It
  26053.    * is possible that something different would be better.
  26054. !  */ 
  26055.   do_else(buf, limit, op, keyword)
  26056.        U_CHAR *buf, *limit;
  26057.        FILE_BUF *op;
  26058. --- 1793,1799 ----
  26059.    * without changing  if_stack ;  this is so that the error message
  26060.    * for missing #endif's etc. will point to the original #if.  It
  26061.    * is possible that something different would be better.
  26062. !  */
  26063.   do_else(buf, limit, op, keyword)
  26064.        U_CHAR *buf, *limit;
  26065.        FILE_BUF *op;
  26066. ***************
  26067. *** 1915,1921 ****
  26068.         int totlen;        /* total amount of exp buffer filled so far */
  26069.   
  26070.         register struct reflist *ap;
  26071. !       struct argptrs { 
  26072.                  U_CHAR *argstart;
  26073.                  int length;
  26074.                } *args;
  26075. --- 1984,1990 ----
  26076.         int totlen;        /* total amount of exp buffer filled so far */
  26077.   
  26078.         register struct reflist *ap;
  26079. !       struct argptrs {
  26080.                  U_CHAR *argstart;
  26081.                  int length;
  26082.                } *args;
  26083. ***************
  26084. *** 1999,2005 ****
  26085.         ip2->buf = ip2->bufp = defn->expansion;
  26086.         ip2->length = defn->length;
  26087.       }
  26088. !   
  26089.     rescan (ip2, op);
  26090.     --indepth;
  26091.     *excess_newlines_ptr += newlines_found;
  26092. --- 2068,2074 ----
  26093.         ip2->buf = ip2->bufp = defn->expansion;
  26094.         ip2->length = defn->length;
  26095.       }
  26096. ! 
  26097.     rescan (ip2, op);
  26098.     --indepth;
  26099.     *excess_newlines_ptr += newlines_found;
  26100. ***************
  26101. *** 2024,2030 ****
  26102.   {
  26103.     int paren = 0;
  26104.     int quotec = 0;
  26105. !   
  26106.     while (bp < ip->buf + ip->length) {
  26107.       switch (*bp) {
  26108.       case '(':
  26109. --- 2093,2099 ----
  26110.   {
  26111.     int paren = 0;
  26112.     int quotec = 0;
  26113. ! 
  26114.     while (bp < ip->buf + ip->length) {
  26115.       switch (*bp) {
  26116.       case '(':
  26117. ***************
  26118. *** 2084,2092 ****
  26119.       }
  26120.   
  26121.     if (ip != NULL)
  26122. !     fprintf(stdout, "file %s, offset %d (line %d): ",
  26123.           ip->fname, ip->bufp - ip->buf, ip->lineno);
  26124. !   fprintf(stdout, "%s\n", msg);
  26125.     return 0;
  26126.   }
  26127.   
  26128. --- 2153,2161 ----
  26129.       }
  26130.   
  26131.     if (ip != NULL)
  26132. !     fprintf(stderr, "file %s, offset %d (line %d): ",
  26133.           ip->fname, ip->bufp - ip->buf, ip->lineno);
  26134. !   fprintf(stderr, "%s\n", msg);
  26135.     return 0;
  26136.   }
  26137.   
  26138. ***************
  26139. *** 2109,2115 ****
  26140.   {
  26141.     register int i;
  26142.     register U_CHAR *p;
  26143. !   
  26144.     if (obuf->length - (obuf->bufp - obuf->buf) > needed)
  26145.       return obuf->buf;
  26146.   
  26147. --- 2178,2184 ----
  26148.   {
  26149.     register int i;
  26150.     register U_CHAR *p;
  26151. ! 
  26152.     if (obuf->length - (obuf->bufp - obuf->buf) > needed)
  26153.       return obuf->buf;
  26154.   
  26155. ***************
  26156. *** 2125,2131 ****
  26157.   
  26158.     return p;
  26159.   }
  26160. !   
  26161.   /*
  26162.    * install a name in the main hash table, even if it is already there.
  26163.    *   name stops with first non alphanumeric, except leading '#'.
  26164. --- 2194,2200 ----
  26165.   
  26166.     return p;
  26167.   }
  26168. ! 
  26169.   /*
  26170.    * install a name in the main hash table, even if it is already there.
  26171.    *   name stops with first non alphanumeric, except leading '#'.
  26172. ***************
  26173. *** 2198,2204 ****
  26174.   delete(hp)
  26175.        HASHNODE *hp;
  26176.   {
  26177. !   
  26178.     if (hp->prev != NULL)
  26179.       hp->prev->next = hp->next;
  26180.     if (hp->next != NULL)
  26181. --- 2267,2273 ----
  26182.   delete(hp)
  26183.        HASHNODE *hp;
  26184.   {
  26185. ! 
  26186.     if (hp->prev != NULL)
  26187.       hp->prev->next = hp->next;
  26188.     if (hp->next != NULL)
  26189. ***************
  26190. *** 2232,2241 ****
  26191.        int hashsize;
  26192.   {
  26193.     register int r = 0;
  26194. !   
  26195.     while (len--)
  26196.       r = HASHSTEP(r, *name++);
  26197. !   
  26198.     return MAKE_POS(r) % hashsize;
  26199.   }
  26200.   
  26201. --- 2301,2310 ----
  26202.        int hashsize;
  26203.   {
  26204.     register int r = 0;
  26205. ! 
  26206.     while (len--)
  26207.       r = HASHSTEP(r, *name++);
  26208. ! 
  26209.     return MAKE_POS(r) % hashsize;
  26210.   }
  26211.   
  26212. ***************
  26213. *** 2282,2288 ****
  26214.   #endif
  26215.   
  26216.     /* is there more? */
  26217. !   
  26218.   }
  26219.   
  26220.   /*
  26221. --- 2351,2357 ----
  26222.   #endif
  26223.   
  26224.     /* is there more? */
  26225. ! 
  26226.   }
  26227.   
  26228.   /*
  26229. ***************
  26230. *** 2357,2363 ****
  26231.   #endif /* not VMS */
  26232.   }
  26233.   
  26234. ! void 
  26235.   bcopy (b1, b2, length)
  26236.        register char *b1;
  26237.        register char *b2;
  26238. --- 2426,2432 ----
  26239.   #endif /* not VMS */
  26240.   }
  26241.   
  26242. ! void
  26243.   bcopy (b1, b2, length)
  26244.        register char *b1;
  26245.        register char *b2;
  26246. ***************
  26247. *** 2379,2385 ****
  26248.       *b2++ = *b1++;
  26249.   #endif /* not VMS */
  26250.   }
  26251. !  
  26252.   int
  26253.   bcmp (b1, b2, length)    /* This could be a macro! */
  26254.        register char *b1;
  26255. --- 2448,2454 ----
  26256.       *b2++ = *b1++;
  26257.   #endif /* not VMS */
  26258.   }
  26259. ! 
  26260.   int
  26261.   bcmp (b1, b2, length)    /* This could be a macro! */
  26262.        register char *b1;
  26263. diff -rc --new-file emacs-18.59/cpp/smakefile /gnu/src/amiga/emacs-18.59/cpp/smakefile
  26264. *** emacs-18.59/cpp/smakefile    Thu Jan  1 00:00:00 1970
  26265. --- /gnu/src/amiga/emacs-18.59/cpp/smakefile    Sat Oct  2 15:30:13 1993
  26266. ***************
  26267. *** 0 ****
  26268. --- 1,23 ----
  26269. + # Makefile for cccp in the Emacs distribution only.
  26270. + # Here we assume that you are using SASC
  26271. + # (since cccp is used by Emacs only to deal with long strings in macros.
  26272. + 
  26273. + CFLAGS=DEF EMACS idir //unix/include/ def STACK_DIRECTION=-1 def OUTPUT_LINE_COMMANDS nowvret debug sf
  26274. + 
  26275. + cpp: cccp
  26276. +     -delete cpp
  26277. +     makelink cpp cccp
  26278. + cccp: cccp.o cexp.tab.o alloca.o
  26279. +     sc link cccp.o alloca.o cexp.tab.o to cccp lib //unix/src/unix.lib
  26280. + 
  26281. + testexp: y.tab.c
  26282. +     cc -g -DTEST_EXP_READER y.tab.c -o testexp
  26283. + 
  26284. + cexp.tab.c: cexp.y
  26285. +     echo "expect 40 shift/reduce conflicts"
  26286. +     bin:bison cexp.y >bison.debug
  26287. + 
  26288. + cccp.o: cccp.c
  26289. + cexp.tab.o: cexp.tab.c
  26290. + alloca.o: /src/alloca.c
  26291. +     $(CC) $(CFLAGS) objname alloca.o /src/alloca.c
  26292. diff -rc --new-file emacs-18.59/etc/SCOPTIONS /gnu/src/amiga/emacs-18.59/etc/SCOPTIONS
  26293. *** emacs-18.59/etc/SCOPTIONS    Thu Jan  1 00:00:00 1970
  26294. --- /gnu/src/amiga/emacs-18.59/etc/SCOPTIONS    Sat Dec  5 18:07:36 1992
  26295. ***************
  26296. *** 0 ****
  26297. --- 1,15 ----
  26298. + STRINGMERGE
  26299. + STRUCTUREEQUIVALENCE
  26300. + NOWARNVOIDRETURN
  26301. + NOVERSION
  26302. + MEMORYSIZE=HUGE
  26303. + INCLUDEDIR=src:unix/include
  26304. + IGNORE=147
  26305. + IGNORE=62
  26306. + IGNORE=132
  26307. + IGNORE=154
  26308. + IGNORE=104
  26309. + IGNORE=100
  26310. + IGNORE=161
  26311. + IGNORE=84
  26312. + IGNORE=93
  26313. diff -rc --new-file emacs-18.59/etc/amiga-env.c /gnu/src/amiga/emacs-18.59/etc/amiga-env.c
  26314. *** emacs-18.59/etc/amiga-env.c    Thu Jan  1 00:00:00 1970
  26315. --- /gnu/src/amiga/emacs-18.59/etc/amiga-env.c    Sat Jun  5 16:55:12 1993
  26316. ***************
  26317. *** 0 ****
  26318. --- 1,439 ----
  26319. + /* env.c - manipulate environment and execute a program
  26320. +    in that environment
  26321. +    Mly 861126
  26322. + 
  26323. +    Copyright (C) 1986 Free Software Foundation, Inc.
  26324. + 
  26325. +     This program is free software; you can redistribute it and/or modify
  26326. +     it under the terms of the GNU General Public License as published by
  26327. +     the Free Software Foundation; either version 1, or (at your option)
  26328. +     any later version.
  26329. + 
  26330. +     This program is distributed in the hope that it will be useful,
  26331. +     but WITHOUT ANY WARRANTY; without even the implied warranty of
  26332. +     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  26333. +     GNU General Public License for more details.
  26334. + 
  26335. +     You should have received a copy of the GNU General Public License
  26336. +     along with this program; if not, write to the Free Software
  26337. +     Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  26338. + 
  26339. +  In other words, you are welcome to use, share and improve this program.
  26340. +  You are forbidden to forbid anyone else to use, share and improve
  26341. +  what you give them.   Help stamp out software-hoarding!  */
  26342. + 
  26343. + /* 
  26344. + 
  26345. +    If first argument is "-", then a new environment is constructed
  26346. +    from scratch; otherwise the environment is inherited from the parent
  26347. +    process, except as modified by other options.
  26348. +    
  26349. +    So, "env - foo" will invoke the "foo" program in a null environment,
  26350. +    whereas "env foo" would invoke "foo" in the same environment as that
  26351. +    passed to "env" itself.
  26352. + 
  26353. +    Subsequent arguments are interpreted as follows:
  26354. +    
  26355. +    * "variable=value" (ie an arg containing a "=" character)
  26356. +      means to set the specified environment variable to that value.
  26357. +      `value' may be of zero length ("variable=").  Note that setting
  26358. +      a variable to a zero-length value is different from unsetting it.
  26359. + 
  26360. +    * "-u variable" or "-unset variable"
  26361. +      means to unset that variable
  26362. +      If that variable isn't set, does nothing.
  26363. + 
  26364. +    * "-s variable value" or "-set variable value"
  26365. +      same as "variable=value"
  26366. + 
  26367. +    * "-" or "--"
  26368. +      are used to indicate that the following argument is the program
  26369. +      to invoke.  This is only necessary when the program's name
  26370. +      begins with "-" or contains a "="
  26371. + 
  26372. +    * anything else
  26373. +      The first remaining argument specifies a program to invoke
  26374. +      (it is searched for according to the specification of the PATH
  26375. +      environment variable) and any arguments following that are
  26376. +      passed as arguments to that program
  26377. + 
  26378. +      If no program-name is specified following the environment
  26379. +      specifications the the resulting environment is printed
  26380. +      (The is like specifying a program-name of "printenv")
  26381. + 
  26382. +    Examples:
  26383. +      If the environment passed to "env" is
  26384. +      { USER=rms EDITOR=emacs PATH=.:/gnubin:/hacks }
  26385. + 
  26386. +      * "env DISPLAY=gnu:0 nemacs"
  26387. +         calls "nemacs" in the envionment
  26388. +     { EDITOR=emacs USER=rms DISPLAY=gnu }
  26389. + 
  26390. +      * "env - USER=foo /hacks/hack bar baz"
  26391. +        will call the "hack" program on arguments "bar" and "baz"
  26392. +        in an environment in which the only variable is "USER"
  26393. +        Note that the "-" option will clear out the PATH variable,
  26394. +        so one should be careful to specify in which directory
  26395. +        to find the program to call
  26396. +        
  26397. +      * "env -u EDITOR USER=foo PATH=/energy -- e=mc2 bar baz"
  26398. +        The program "/energy/e=mc2" is called with environment
  26399. +        { USER=foo PATH=/energy }
  26400. + 
  26401. + */
  26402. + 
  26403. + #include <exec/types.h>
  26404. + #include <dos/dostags.h>
  26405. + #include <dos/var.h>
  26406. + #include <proto/dos.h>
  26407. + #include <proto/exec.h>
  26408. + 
  26409. + #ifdef EMACS
  26410. + #define NO_SHORTNAMES
  26411. + #include "../src/config.h"
  26412. + #endif /* EMACS */
  26413. + 
  26414. + #include <stdio.h>
  26415. + #include <errno.h>
  26416. + #include <setjmp.h>
  26417. + 
  26418. + extern int execvp ();
  26419. + extern char *index ();
  26420. + 
  26421. + char *xmalloc (), *xrealloc ();
  26422. + char *concat ();
  26423. + 
  26424. + char *progname;
  26425. + void setenv ();
  26426. + void fatal ();
  26427. + 
  26428. + #define index strchr
  26429. + 
  26430. + struct MsgPort *end_port;
  26431. + struct {
  26432. +   struct Message msg;
  26433. +   int rc;
  26434. + } end_msg;
  26435. + int gargc;
  26436. + char **gargv;
  26437. + jmp_buf unixexit_buf;
  26438. + 
  26439. + void __saveds unix_start(void)
  26440. + {
  26441. +   int rc;
  26442. + 
  26443. +   if (!(rc = setjmp(unixexit_buf)))
  26444. +     {
  26445. +       unixmain(gargc, gargv);
  26446. +       rc = 1;
  26447. +     }
  26448. +   end_msg.rc = rc - 1;
  26449. +   end_msg.msg.mn_Length = sizeof(end_msg);
  26450. +   end_msg.msg.mn_Node.ln_Type = NT_MESSAGE;
  26451. +   PutMsg(end_port, &end_msg);
  26452. + }
  26453. + 
  26454. + void unixexit(int rc)
  26455. + {
  26456. +   longjmp(unixexit_buf, rc + 1);
  26457. + }
  26458. + 
  26459. + main(int argc, char **argv)
  26460. + {
  26461. +   int rc = 1;
  26462. +   long stacksize;
  26463. +   struct Process *us = (struct Process *)FindTask(0);
  26464. + 
  26465. +   if (us->pr_CLI) stacksize = ((struct CommandLineInterface *)BADDR(us->pr_CLI))->cli_DefaultStack << 2;
  26466. +   else stacksize = us->pr_StackSize;
  26467. + 
  26468. +   gargc = argc;
  26469. +   gargv = argv;
  26470. +   
  26471. +   end_port = CreateMsgPort();
  26472. + 
  26473. +   if (end_port && CreateNewProcTags(NP_Entry, unix_start,
  26474. +                     NP_Input, Input(), NP_CloseInput, 0UL,
  26475. +                     NP_Output, Output(), NP_CloseOutput, 0UL,
  26476. +                     NP_StackSize, stacksize,
  26477. +                     NP_Cli, TRUE, TAG_END))
  26478. +     {
  26479. +       while (!GetMsg(end_port)) WaitPort(end_port);
  26480. +       rc = end_msg.rc;
  26481. +     }
  26482. +   if (end_port) DeleteMsgPort(end_port);
  26483. +   Delay(1);
  26484. +   exit(rc);
  26485. + }
  26486. + 
  26487. + #define exit unixexit
  26488. + 
  26489. + unixmain (argc, argv)
  26490. +      register int argc;
  26491. +      register char **argv;
  26492. + {
  26493. +   register char *tem;
  26494. + 
  26495. +   progname = argv[0];
  26496. +   argc--;
  26497. +   argv++;
  26498. + 
  26499. +   /* "-" flag means to not inherit parent's environment */
  26500. +   /* This is ignored on the amiga */
  26501. +   if (argc && !strcmp (*argv, "-"))
  26502. +     {
  26503. +       argc--;
  26504. +       argv++;
  26505. +     }
  26506. + 
  26507. +   while (argc > 0)
  26508. +     {
  26509. +       tem = index (*argv, '=');
  26510. +       if (tem)
  26511. +     /* If arg contains a "=" it specifies to set a variable */
  26512. +     {
  26513. +       *tem = '\000';
  26514. +       setenv (*argv, tem + 1);
  26515. +       argc--; argv++;
  26516. +       continue;
  26517. +     }
  26518. +       
  26519. +       if (**argv != '-')
  26520. +     /* Remaining args are program name and args to pass it */
  26521. +     break;
  26522. + 
  26523. +       if (argc < 2)
  26524. +     fatal ("No argument following \"%s\" switch", *argv);
  26525. +        if (!strcmp (*argv, "-u") ||
  26526. +            !strcmp (*argv, "-unset"))
  26527. +     /* Unset a variable */
  26528. +     {
  26529. +       argc--; argv++;
  26530. +       setenv (*argv, 0);
  26531. +       argc--; argv++;
  26532. +     }
  26533. +       else if (!strcmp (*argv, "-s") ||
  26534. +            !strcmp (*argv, "-set"))
  26535. +     /* Set a variable */
  26536. +     {
  26537. +       argc--; argv++;
  26538. +       tem = *argv;
  26539. +       if (argc < 2)
  26540. +         fatal ("No value specified for variable \"%s\"",
  26541. +            tem);
  26542. +       argc--; argv++;
  26543. +       setenv (tem, *argv);
  26544. +       argc--; argv++;
  26545. +     }
  26546. +       else if (!strcmp (*argv, "-") || !strcmp (*argv, "--"))
  26547. +     {
  26548. +       argc--; argv++;
  26549. +       break;
  26550. +     }
  26551. +       else
  26552. +     {
  26553. +       fatal ("unknown switch \"%s\"", *argv);
  26554. +     }
  26555. +     }
  26556. + 
  26557. +   /* If no program specified print the environment and exit */
  26558. +   if (argc <= 0)
  26559. +     {
  26560. +       printenv();
  26561. +       exit (0);
  26562. +     }
  26563. +   else
  26564. +     {
  26565. +       extern int errno, sys_nerr;
  26566. +       extern char *sys_errlist[];
  26567. + 
  26568. +       (void) execvp (*argv, argv);
  26569. + 
  26570. +       fprintf (stderr, "%s: Cannot execute \"%s\"",
  26571. +            progname, *argv);
  26572. +       if (errno < sys_nerr)
  26573. +     fprintf (stderr, ": %s\n" , sys_errlist[errno]);
  26574. +       else
  26575. +     putc ('\n', stderr);
  26576. +       exit (errno != 0 ? errno : 1);
  26577. +     }
  26578. + }
  26579. + 
  26580. + int execvp(program, argv)
  26581. + char *program, **argv;
  26582. + {
  26583. +   int index, comsize;
  26584. +   char *combuf, *bp;
  26585. +   long err, rc;
  26586. +   
  26587. +   combuf = xmalloc(256);
  26588. +   comsize = 256;
  26589. + 
  26590. +   bp = combuf;
  26591. +   for (index = 0; argv[index] != 0; index++)
  26592. +     {
  26593. +       char *s = argv[index];
  26594. +       int len;
  26595. + 
  26596. +       len = 3;
  26597. +       while (*s) len += 1 + 2 * (*s++ == '"');
  26598. +       if (bp + len + 1 >= combuf + comsize)
  26599. +     {
  26600. +       char *newbuf;
  26601. +       int new_comsize;
  26602. + 
  26603. +       new_comsize = 2 * comsize + len;
  26604. +       newbuf = xmalloc(new_comsize);
  26605. +       memcpy(newbuf, combuf, comsize);
  26606. + 
  26607. +       bp = newbuf + (bp - combuf);
  26608. +       combuf = newbuf;
  26609. +       comsize = new_comsize;
  26610. +     }
  26611. +       *bp++ = ' ';
  26612. +       *bp++ = '"';
  26613. +       s = argv[index];
  26614. +       while (*s)
  26615. +     {
  26616. +       if (*s == '"' || *s == '*') *bp++ = '*';
  26617. +       *bp++ = *s++;
  26618. +     }
  26619. +       *bp++ = '"';
  26620. +     }
  26621. +   *bp = '\0';
  26622. +   rc = SystemTags(combuf,
  26623. +           SYS_UserShell, 1UL,
  26624. +           TAG_END);
  26625. +   err = IoErr();
  26626. +   free(combuf);
  26627. +   if (rc != -1) exit(rc);
  26628. +   
  26629. +   errno = convert_oserr(err);
  26630. +   return -1;
  26631. + }
  26632. + 
  26633. + int convert_oserr(int ioerr)
  26634. + {
  26635. +   extern int _OSERR;
  26636. + 
  26637. +   _OSERR = ioerr;
  26638. +   switch (ioerr)
  26639. +     {
  26640. +     case 0: return 0;
  26641. +     case ERROR_NO_FREE_STORE: return ENOMEM;
  26642. +     case ERROR_TASK_TABLE_FULL: return EAGAIN;
  26643. +     case ERROR_BAD_TEMPLATE: case ERROR_REQUIRED_ARG_MISSING:
  26644. +     case ERROR_KEY_NEEDS_ARG: case ERROR_TOO_MANY_ARGS:
  26645. +     case ERROR_UNMATCHED_QUOTES: case ERROR_LINE_TOO_LONG: return EINVAL;
  26646. +     case ERROR_OBJECT_IN_USE: return EBUSY;
  26647. +     case ERROR_OBJECT_EXISTS: return EEXIST;
  26648. +     case ERROR_DIR_NOT_FOUND: return ENOENT;
  26649. +     case ERROR_OBJECT_NOT_FOUND: return ENOENT;
  26650. +     case ERROR_BAD_STREAM_NAME: return EINVAL;
  26651. +     case ERROR_OBJECT_TOO_LARGE: return E2BIG;
  26652. +     case ERROR_ACTION_NOT_KNOWN: return EINVAL;
  26653. +     case ERROR_INVALID_COMPONENT_NAME: return EINVAL;
  26654. +     case ERROR_INVALID_LOCK: return EINVAL;
  26655. +     case ERROR_OBJECT_WRONG_TYPE: return EINVAL;
  26656. +     case ERROR_DISK_WRITE_PROTECTED: return EACCES;
  26657. +     case ERROR_SEEK_ERROR: return EIO;
  26658. +     case ERROR_DISK_FULL: return ENOSPC;
  26659. +     case ERROR_DELETE_PROTECTED: return EACCES;
  26660. +     case ERROR_WRITE_PROTECTED: return EACCES;
  26661. +     case ERROR_READ_PROTECTED: return EACCES;
  26662. +     case ERROR_RENAME_ACROSS_DEVICES: return EXDEV;
  26663. +     default: return EOSERR;
  26664. +     }
  26665. + }
  26666. + 
  26667. + printenv(void)
  26668. + /* Effect: Prints a UNIX style environment from the AmigaDOS environment.
  26669. + */
  26670. + {
  26671. +   struct LocalVar *scan_env;
  26672. +   struct Process *us = (struct Process *)FindTask(0);
  26673. + 
  26674. +   for (scan_env = (struct LocalVar *)us->pr_LocalVars.mlh_Head;
  26675. +        scan_env->lv_Node.ln_Succ;
  26676. +        scan_env = (struct LocalVar *)scan_env->lv_Node.ln_Succ)
  26677. +     if (scan_env->lv_Node.ln_Type == LV_VAR &&
  26678. +     !(scan_env->lv_Flags & (GVF_GLOBAL_ONLY | GVF_BINARY_VAR)))
  26679. +       {
  26680. +     /* We only handle local text variables */
  26681. +     printf("%s=", scan_env->lv_Node.ln_Name);
  26682. +     fwrite(scan_env->lv_Value, 1, scan_env->lv_Len, stdout);
  26683. +     putchar('\n');
  26684. +       }
  26685. + }
  26686. + 
  26687. + void
  26688. + setenv (var, val)
  26689. +   register char *var, *val;
  26690. + {
  26691. +   if (val) SetVar(var, val, -1, LV_VAR | GVF_LOCAL_ONLY);
  26692. +   else DeleteVar(var, LV_VAR | GVF_LOCAL_ONLY);
  26693. + }
  26694. + 
  26695. + void
  26696. + fatal (msg, arg1, arg2)
  26697. +      char *msg, *arg1, *arg2;
  26698. + {
  26699. +   fprintf (stderr, "%s: ", progname);
  26700. +   fprintf (stderr, msg, arg1, arg2);
  26701. +   putc ('\n', stderr);
  26702. +   exit (1);
  26703. + }
  26704. + 
  26705. + 
  26706. + extern char *malloc (), *realloc ();
  26707. + 
  26708. + void
  26709. + memory_fatal ()
  26710. + {
  26711. +   fatal ("Out of memory");
  26712. + }
  26713. + 
  26714. + char *
  26715. + xmalloc (size)
  26716. +      int size;
  26717. + {
  26718. +   register char *value;
  26719. +   value = (char *) malloc (size);
  26720. +   if (!value) memory_fatal ();
  26721. +   return (value);
  26722. + }
  26723. + 
  26724. + char *
  26725. + xrealloc (ptr, size)
  26726. +      char *ptr;
  26727. +      int size;
  26728. + {
  26729. +   register char *value;
  26730. +   value = (char *) realloc (ptr, size);
  26731. +   if (!value) memory_fatal ();
  26732. +   return (value);
  26733. + }
  26734. + 
  26735. + /* Return a newly-allocated string whose contents concatenate those of s1, s2, s3.  */
  26736. + 
  26737. + char *
  26738. + concat (s1, s2, s3)
  26739. +      char *s1, *s2, *s3;
  26740. + {
  26741. +   int len1 = strlen (s1), len2 = strlen (s2), len3 = strlen (s3);
  26742. +   char *result = (char *) xmalloc (len1 + len2 + len3 + 1);
  26743. + 
  26744. +   strcpy (result, s1);
  26745. +   strcpy (result + len1, s2);
  26746. +   strcpy (result + len1 + len2, s3);
  26747. +   *(result + len1 + len2 + len3) = 0;
  26748. + 
  26749. +   return result;
  26750. + }
  26751. + 
  26752. + 
  26753. + /*
  26754. +  * Local variables:
  26755. +  * compile-command: "lc -L -v amiga-env.c"
  26756. +  * end:
  26757. +  */
  26758. diff -rc --new-file emacs-18.59/etc/etags.c /gnu/src/amiga/emacs-18.59/etc/etags.c
  26759. *** emacs-18.59/etc/etags.c    Thu Aug 20 05:11:01 1992
  26760. --- /gnu/src/amiga/emacs-18.59/etc/etags.c    Sun May  9 18:35:40 1993
  26761. ***************
  26762. *** 338,347 ****
  26763. --- 338,354 ----
  26764.       {
  26765.         for (i=1; i<ac; i++)
  26766.       {
  26767. + #ifdef AMIGA
  26768. +       rename(outfile, "OTAGS");
  26769. +       sprintf(cmd, "egrep >%s -v '\t%s\t' OTAGS", outfile, av[i]);
  26770. +       system(cmd);
  26771. +       unlink("OTAGS");
  26772. + #else
  26773.         sprintf(cmd,
  26774.             "mv %s OTAGS;fgrep -v '\t%s\t' OTAGS >%s;rm OTAGS",
  26775.             outfile, av[i], outfile);
  26776.         system(cmd);
  26777. + #endif
  26778.       }
  26779.         aflag++;
  26780.       }
  26781. ***************
  26782. *** 357,363 ****
  26783. --- 364,374 ----
  26784.   #ifndef VMS
  26785.     if (uflag)
  26786.       {
  26787. + #ifdef AMIGA
  26788. +       sprintf(cmd, "c:sort from %s to %s", outfile, outfile);
  26789. + #else
  26790.         sprintf(cmd, "sort %s -o %s", outfile, outfile);
  26791. + #endif
  26792.         system(cmd);
  26793.       }
  26794.   #endif
  26795. diff -rc --new-file emacs-18.59/etc/make-docfile.c /gnu/src/amiga/emacs-18.59/etc/make-docfile.c
  26796. *** emacs-18.59/etc/make-docfile.c    Fri Oct 25 18:43:28 1991
  26797. --- /gnu/src/amiga/emacs-18.59/etc/make-docfile.c    Sun May  9 18:35:46 1993
  26798. ***************
  26799. *** 57,64 ****
  26800. --- 57,86 ----
  26801.         i += 2;
  26802.       }
  26803.   
  26804. + #ifdef AMIGA
  26805. +   {
  26806. +     char fn[512], *fpos;
  26807. +     int c;
  26808. + 
  26809. +     c = getchar();
  26810. +     do
  26811. +       {
  26812. +     while (c == ' ' || c == '\n' || c == '\t') c = getchar();
  26813. +     if (c == EOF) break;
  26814. +     fpos = fn;
  26815. +     do *fpos++ = c;
  26816. +     while ((c = getchar()) != EOF && c != ' ' && c != '\t' && c != '\n');
  26817. +     *fpos = 0;
  26818. + 
  26819. +     fprintf(stderr, "doc file %s\n", fn);
  26820. +     err_count += scan_file (fn); /* err_count seems to be {mis,un}used */
  26821. +       }
  26822. +     while (1);
  26823. +   }
  26824. + #else
  26825.     for (; i < argc; i++)
  26826.       err_count += scan_file (argv[i]);    /* err_count seems to be {mis,un}used */
  26827. + #endif
  26828.   #ifndef VMS
  26829.     exit (err_count);            /* see below - shane */
  26830.   #endif /* VMS */
  26831. diff -rc --new-file emacs-18.59/etc/sh.c /gnu/src/amiga/emacs-18.59/etc/sh.c
  26832. *** emacs-18.59/etc/sh.c    Thu Jan  1 00:00:00 1970
  26833. --- /gnu/src/amiga/emacs-18.59/etc/sh.c    Sat Jun  5 11:44:06 1993
  26834. ***************
  26835. *** 0 ****
  26836. --- 1,145 ----
  26837. + ;/*
  26838. + SC LINK NOSTKCHK DEF SASC=1 sh.c
  26839. + QUIT
  26840. + */
  26841. + /*
  26842. +  * original version: David Gay
  26843. +  *
  26844. +  * 05/18/93 ch added SAS support, external verbose flag and primitive_parse
  26845. +  */
  26846. + #include <exec/types.h>
  26847. + #include <dos/dostags.h>
  26848. + #include <stdio.h>
  26849. + 
  26850. + #ifdef SASC
  26851. + #include <string.h>
  26852. + #include <stdlib.h>
  26853. + #endif
  26854. + 
  26855. + #include <proto/dos.h>
  26856. + 
  26857. + /*
  26858. +   translates:
  26859. +  
  26860. +   echo "string1;string2" ; cd xx:c ; copy xx yy
  26861. +  
  26862. +       into
  26863. +  
  26864. +   echo "string1;string2" \n cd xx:c \n copy xx yy
  26865. + 
  26866. +   note:
  26867. +     this is a really primitive function ;-) , it may be 
  26868. +     changed if necessary
  26869. + 
  26870. + */
  26871. + 
  26872. + #define QUOTE    '"'
  26873. + 
  26874. + void primitive_parse(char *s)
  26875. + {
  26876. +     int c;
  26877. + 
  26878. +     while(c = *s++)
  26879. +     {
  26880. +     if(c == QUOTE)
  26881. +     {
  26882. +         while((c = *s++) && (c != QUOTE))
  26883. +         ;
  26884. +         if(!c)
  26885. +         break;
  26886. +     }
  26887. +     else if(c == ';')
  26888. +         *(s-1) = '\n';
  26889. +     }
  26890. + }
  26891. + 
  26892. + int execute(char *cmd, int debug)
  26893. + {
  26894. +     long rc;
  26895. +     char *s;
  26896. + 
  26897. +     while (*cmd == ' ') cmd++;
  26898. +     if (strncmp(cmd, "exec", 4) == 0 && (cmd[4] == ' ' || cmd[4] == '\t')) 
  26899. +     cmd += 4;
  26900. +     
  26901. +     s = cmd;
  26902. +     primitive_parse(s);
  26903. + 
  26904. +     if(debug)
  26905. +     fprintf(stderr,"/etc/sh: preparsed line:\n%s\n", cmd);
  26906. + 
  26907. +     if ((rc = SystemTags(cmd, SYS_UserShell, TRUE, TAG_END)) == -1)
  26908. +     {
  26909. +     fprintf(stderr, "Failed to execute command %s\n", cmd);
  26910. +     return 20;
  26911. +     }
  26912. +     return rc;
  26913. + }
  26914. + 
  26915. + void main(int argc, char **argv)
  26916. + {
  26917. +   int command;
  26918. +   char *command_string;
  26919. +   char *program_name = argv[0];
  26920. +   struct RDArgs *args;
  26921. +   long opts[1];
  26922. +   static char options[] = "";
  26923. +   long debug = 0;
  26924. +   char *shenv;
  26925. + 
  26926. +   /* Throw out AmigaDOS args so that Input() is clean */
  26927. +   if (args = ReadArgs(options, opts, NULL)) FreeArgs(args);
  26928. + 
  26929. +   shenv = getenv("EMACS_SH_DEBUG");
  26930. + 
  26931. +   if(shenv)
  26932. +       if(strstr(shenv, "-v")) /* external verbose flag */
  26933. +       debug = 1;
  26934. +   
  26935. +   command = 0;
  26936. +   /* Simplistic argument parsing */
  26937. +   argv++;
  26938. +   argc--;
  26939. +   while (argc > 0 && argv[0][0] == '-')
  26940. +     {
  26941. +       switch (argv[0][1])
  26942. +     {
  26943. +     case 'c':
  26944. +       if (argc == 1) goto usage;
  26945. +       command = 1;
  26946. +       command_string = argv[1];
  26947. +       argv++;
  26948. +       argc--;
  26949. +       break;
  26950. +     case 'v':
  26951. +       debug = 1;
  26952. +       break;
  26953. +     case 'i':
  26954. +       /* ignored for now */
  26955. +       break;
  26956. +     default: goto usage;
  26957. +     }
  26958. +       argc--;
  26959. +       argv++;
  26960. +     }
  26961. +   if (argc != 0) goto usage;
  26962. + 
  26963. +   if (command) 
  26964. +   {
  26965. +       if(debug)
  26966. +       fprintf(stderr,"%s: command_string = %s\n", argv[0], command_string);
  26967. +       exit(execute(command_string, debug));
  26968. +   }
  26969. +   else exit(Execute("", Input(), NULL) ? 0 : 1);
  26970. + 
  26971. +  usage:
  26972. +   fprintf(stderr, "%s [-i] [-v] [-c command]\n", program_name);
  26973. +   exit(1);
  26974. + }
  26975. + 
  26976. + 
  26977. + /*
  26978. +  * Local variables:
  26979. +  * compile-command: "sc link nostkchk def SASC=1 sh.c"
  26980. +  * end:
  26981. +  */
  26982. diff -rc --new-file emacs-18.59/etc/smakefile /gnu/src/amiga/emacs-18.59/etc/smakefile
  26983. *** emacs-18.59/etc/smakefile    Thu Jan  1 00:00:00 1970
  26984. --- /gnu/src/amiga/emacs-18.59/etc/smakefile    Sat Oct  2 15:30:23 1993
  26985. ***************
  26986. *** 0 ****
  26987. --- 1,17 ----
  26988. + all: etags sh wakeup make-docfile # env
  26989. + 
  26990. + env: amiga-env.c
  26991. +     echo "'sc link to env nostkchk amiga-env.c' should work (but doesn't)."
  26992. +     echo "You're welcome to try ..."
  26993. + 
  26994. + make-docfile: make-docfile.c
  26995. +     sc link make-docfile.c
  26996. + 
  26997. + sh: sh.c
  26998. +     sc link sh.c
  26999. + 
  27000. + wakeup: wakeup.c
  27001. +     sc link wakeup.c
  27002. + 
  27003. + etags: etags.c
  27004. +     sc link idir //unix/include def ETAGS etags.c lib //unix/src/unix.lib
  27005. diff -rc --new-file emacs-18.59/etc/termcap.amiga /gnu/src/amiga/emacs-18.59/etc/termcap.amiga
  27006. *** emacs-18.59/etc/termcap.amiga    Thu Jan  1 00:00:00 1970
  27007. --- /gnu/src/amiga/emacs-18.59/etc/termcap.amiga    Sun May  9 18:35:58 1993
  27008. ***************
  27009. *** 0 ****
  27010. --- 1,12 ----
  27011. +  Amiga termcap by Kent Polk and David Gay
  27012. + AA|amiga|Amiga ANSI:\
  27013. +    :co#80:li#23:am:bs:bw:MT:\
  27014. +    :AL=\E[%dL:DC=\E[%dP:DL=\E[%dM:DO=\E[%dB:IC=\E[%d@:\
  27015. +    :LE=\E[%dD:RI=\E[%dC:SF=\E[%dS:SR=\E[%dT:UP=\E[%dA:\
  27016. +    :ae=\017:al=\E[L:as=\016:bl=\007:bt=\E[Z:cd=\E[J:ce=\E[K:cl=\E[H\E[J:\
  27017. +    :cm=\E[%i%d;%dH:dc=\E[P:dl=\E[M:do=\E[B:ho=\E[H:ic=\E[@:is=\E[20l:\
  27018. +    :k1=\E0~:k2=\E1~:k3=\E2~:k4=\E3~:k5=\E4~:k6=\E5~:k7=\E6~:k8=\E7~:k9=\E8~:\
  27019. +    :k0=\E9~:kb=^H:kd=\EB:kl=\ED:kr=\EC:ku=\EA:le=\E[D:\
  27020. +    :mb=\E[7;2m:md=\E[1m:me=\E[0m:mh=\E[2m:mk=\E[8m:mr=\E[7m:nd=\E[C:nl=\E[B:\
  27021. +    :rs=\Ec:se=\E[0m:sf=\E[S:so=\E[7m:sr=\E[T:ue=\E[0m:up=\E[A:us=\E[4m:\
  27022. +    :ve=\E[\040p:vi=\E[\060\040p:xn:
  27023. diff -rc --new-file emacs-18.59/etc/wakeup.c /gnu/src/amiga/emacs-18.59/etc/wakeup.c
  27024. *** emacs-18.59/etc/wakeup.c    Tue Jul 30 21:03:39 1991
  27025. --- /gnu/src/amiga/emacs-18.59/etc/wakeup.c    Sun May  9 18:36:20 1993
  27026. ***************
  27027. *** 18,28 ****
  27028. --- 18,34 ----
  27029.   
  27030.     while (1)
  27031.       {
  27032. + #ifdef AMIGA
  27033. +       if (Write(Output(), "Wake up!\n", 9) != 9) exit(0);
  27034. +       chkabort();
  27035. + #define sleep(n) Delay(50 * (n))
  27036. + #else
  27037.         /* Make sure wakeup stops when Emacs goes away.  */
  27038.         if (getppid () == 1)
  27039.       exit (0);
  27040.         printf ("Wake up!\n");
  27041.         fflush (stdout);
  27042. + #endif
  27043.         /* If using a period of 60, produce the output when the minute
  27044.        changes. */
  27045.         if (period == 60)
  27046. diff -rc --new-file emacs-18.59/lisp/amiga-init.el /gnu/src/amiga/emacs-18.59/lisp/amiga-init.el
  27047. *** emacs-18.59/lisp/amiga-init.el    Thu Jan  1 00:00:00 1970
  27048. --- /gnu/src/amiga/emacs-18.59/lisp/amiga-init.el    Sat Jun  5 11:35:42 1993
  27049. ***************
  27050. *** 0 ****
  27051. --- 1,206 ----
  27052. + (global-set-key "\C-z" 'amiga-iconify)
  27053. + (setq amiga-map (make-keymap))
  27054. + (global-set-key "\C-x\C-^" amiga-map)
  27055. + 
  27056. + (load "amiga-mouse")
  27057. + (load "amiga-menu")
  27058. + 
  27059. + (define-key amiga-map "A" 'previous-line)
  27060. + (define-key amiga-map "B" 'next-line)
  27061. + (define-key amiga-map "D" 'backward-char)
  27062. + (define-key amiga-map "C" 'forward-char)
  27063. + (define-key amiga-map "?~" 'info)
  27064. + (define-key amiga-map "T" 'scroll-down)
  27065. + (define-key amiga-map "S" 'scroll-up)
  27066. + (define-key amiga-map " @" 'forward-word)
  27067. + (define-key amiga-map " A" 'backward-word)
  27068. + (define-key amiga-map "\M-A" 'beginning-of-buffer)
  27069. + (define-key amiga-map "\M-B" 'end-of-buffer)
  27070. + (define-key amiga-map "\M-D" 'beginning-of-line)
  27071. + (define-key amiga-map "\M-C" 'end-of-line)
  27072. + (define-key amiga-map "\M- \M-@" 'forward-sexp)
  27073. + (define-key amiga-map "\M- \M-A" 'backward-sexp)
  27074. + (define-key amiga-map "\M-T" 'scroll-down-1)
  27075. + (define-key amiga-map "\M-S" 'scroll-up-1)
  27076. + ; Keypad sequences are handled like normal ones
  27077. + (define-key amiga-map "K" 'do-nothing)
  27078. + 
  27079. + (defun do-nothing () (interactive))
  27080. + 
  27081. + (defun scroll-down-1 ()
  27082. +   "Move up one line on screen"
  27083. +   (interactive)
  27084. +   (scroll-down 1))
  27085. + 
  27086. + (defun scroll-up-1 ()
  27087. +   "Move down one line on screen"
  27088. +   (interactive)
  27089. +   (scroll-up 1))
  27090. + 
  27091. + ;; ARexx stuff
  27092. + 
  27093. + ;;; This function needs to be re-written to handle rexx returned results.
  27094. + ;;;
  27095. + (setq amiga-arexx-processing nil)
  27096. + (setq amiga-arexx-errors nil)
  27097. + 
  27098. + (defvar amiga-arexx-failat 5
  27099. +   "Return level from which arexx commands returns cause errors")
  27100. + 
  27101. + ;;
  27102. + ;; process incoming rexx messages
  27103. + ;;
  27104. + (defun amiga-arexx-process ()
  27105. +   (interactive)
  27106. +   (if (not amiga-arexx-processing)
  27107. +       (progn
  27108. +     (setq amiga-arexx-processing t)
  27109. +     (condition-case nil ; Avoid blocking of processing in case of bugs
  27110. +         (let (arexxcmd)
  27111. +           (while (setq arexxcmd (amiga-arexx-get-next-msg))
  27112. +         (let ((rc 0) result)
  27113. +           (condition-case err ; detect errors in arexx command
  27114. +               (let ((expr (car (read-from-string arexxcmd))))
  27115. +             (setq result (prin1-to-string (eval expr))))
  27116. +             (error (progn
  27117. +                  (setq rc 20)
  27118. +                  (setq result (prin1-to-string err)))))
  27119. +           (amiga-arexx-reply rc result))))
  27120. +       (error nil))
  27121. +     (setq amiga-arexx-processing nil))))
  27122. + 
  27123. + (defun amiga-arexx-wait-command (id)
  27124. +   "Waits for a pending ARexx commands (MSGID) to complete.
  27125. + Also processes any pending ARexx requests during this interval.
  27126. + returns the result list associated with this id, which takes the
  27127. + form: (msgid result-code error-or-string)
  27128. + ``error-or-string'' depends on ``result-code''.
  27129. + if ``result-code'' is 0 the command finished successfully and
  27130. + ``error-or-string'' will be a string or nil, otherwise the command
  27131. + returned with an error and ``error-or-string'' will be an interger
  27132. + that is the secondary error code of the arexx command."
  27133. +   (amiga-arexx-process)
  27134. +   (while (not (amiga-arexx-check-command id))
  27135. +     (amiga-arexx-wait)
  27136. +     (amiga-arexx-process))
  27137. +   (amiga-arexx-get-msg-results id))
  27138. + 
  27139. + (defconst amiga-arexx-error-messages
  27140. + ["No cause"
  27141. + "Program not found"
  27142. + "Execution halted"
  27143. + "Insufficient memory"
  27144. + "Invalid character"
  27145. + "Unmatched quote"
  27146. + "Unterminated comment"
  27147. + "Clause too long"
  27148. + "Invalid token"
  27149. + "Symbol or string too long"
  27150. + "Invalid message packet"
  27151. + "Command string error"
  27152. + "Error return from function"
  27153. + "Host environment not found"
  27154. + "Requested library not found"
  27155. + "Function not found"
  27156. + "Function did not return value"
  27157. + "Wrong number of arguments"
  27158. + "Invalid argument to function"
  27159. + "Invalid PROCEDURE"
  27160. + "Unexpected THEN or WHEN"
  27161. + "Unexpected ELSE or OTHERWISE"
  27162. + "Unexpected BREAK, LEAVE or ITERATE"
  27163. + "Invalid statement in SELECT"
  27164. + "Missing or multiple THEN"
  27165. + "Missing OTHERWISE"
  27166. + "Missing or unexpected END"
  27167. + "Symbol mismatch"
  27168. + "Invalid DO syntax"
  27169. + "Incomplete IF or SELECT"
  27170. + "Label not found"
  27171. + "Symbol expected"
  27172. + "Symbol or string expected"
  27173. + "Invalid keyword"
  27174. + "Required keyword missing"
  27175. + "Extraneous characters"
  27176. + "Keyword conflict"
  27177. + "Invalid template"
  27178. + "Invalid TRACE request"
  27179. + "Unitialized variable"
  27180. + "Invalid variable name"
  27181. + "Invalid expression"
  27182. + "Unbalanced parentheses"
  27183. + "Nesting limit exceeded"
  27184. + "Invalid expression result"
  27185. + "Expression required"
  27186. + "Boolean value not 0 or 1"
  27187. + "Arithmetic conversion error"
  27188. + "Invalid operand"
  27189. + ]
  27190. + "The arexx error messages, sorted by number")
  27191. + 
  27192. + (defun amiga-arexx-do-command (str as-file)
  27193. +   "Sends ARexx command STR (like amiga-arexx-send-command).
  27194. + If AS-FILE is true, STR is an arexx command, otherwise it is a file name.
  27195. + Waits for the command to return.  If the arexx command fails an error will
  27196. + be caused.
  27197. + 
  27198. + If you would like to get result strings and errors (ie. not cause
  27199. + a lisp error) use: (amiga-arexx-do-command-with-results)"
  27200. +   (interactive "sARexx command:
  27201. + P")
  27202. +   (let ((id (amiga-arexx-send-command str as-file)))
  27203. +     (if (not id)
  27204. +     (error "Failed to send arexx command.")
  27205. +       (let ((reslist (amiga-arexx-wait-command id)))
  27206. +     (let ((rc (nth 1 reslist)) (second (nth 2 reslist)))
  27207. +       (if (> rc 0)
  27208. +           (progn            ; error
  27209. +         (let ((error-message
  27210. +                (if (< second (length amiga-arexx-error-messages))
  27211. +              (aref amiga-arexx-error-messages second)
  27212. +              (format nil "Unknown error %d" second))))
  27213. +           (error "Arexx command failed, level %d, cause %s" rc error-message))
  27214. +         reslist)
  27215. +       second))))))
  27216. + 
  27217. + (defun amiga-arexx-do-command-with-results (str as-file)
  27218. +   "Sends ARexx command STR (like amiga-arexx-do-command).
  27219. + If AS-FILE is true, STR is an arexx command, otherwise it is a file name.
  27220. + Waits for the command to return.
  27221. + 
  27222. + The return value is one of three things:
  27223. +  - the command executed succesfully: nil or a result string.
  27224. +  - the command failed: a list of the form (RC ERROR-CODE)
  27225. +    where RC is the severity and ERROR-CODE is the secondary error."
  27226. +   (interactive "sARexx command:
  27227. + P")
  27228. +   (let ((id (amiga-arexx-send-command str as-file)))
  27229. +     (if (not id)
  27230. +     (error "Failed to send arexx command.")
  27231. +       (let ((reslist (amiga-arexx-wait-command id)))
  27232. +     (let ((rc (nth 1 reslist)) (second (nth 2 reslist)))
  27233. +       (if (and rc (> rc 0))
  27234. +           (list rc second)
  27235. +         second))))))
  27236. + 
  27237. + (define-key amiga-map "X" 'amiga-arexx-process)
  27238. + (setq amiga-arexx-initialized t) ;; ARexx commands can now be processed.
  27239. + 
  27240. + (defun amiga-wb-process ()
  27241. +   "Process all pending workbench events, ie load all files requested"
  27242. +   (interactive)
  27243. +   (let (file)
  27244. +     (condition-case nil
  27245. +     (while (setq file (amiga-get-wb-event t))
  27246. +       (condition-case nil
  27247. +           (find-file file)
  27248. +         (error nil)))
  27249. +       (error nil))))
  27250. + 
  27251. + (define-key amiga-map "W" 'amiga-wb-process)
  27252. + (setq amiga-wb-initialized t) ;; WB events can now be processed.
  27253. + 
  27254. + (setq completion-ignore-case t)
  27255. + ;; Default is no numbered versions on Amiga, because directory searches are too
  27256. + ;; slow.
  27257. + (setq version-control 'never)
  27258. Binary files emacs-18.59/lisp/amiga-init.elc and /gnu/src/amiga/emacs-18.59/lisp/amiga-init.elc differ
  27259. diff -rc --new-file emacs-18.59/lisp/amiga-menu.el /gnu/src/amiga/emacs-18.59/lisp/amiga-menu.el
  27260. *** emacs-18.59/lisp/amiga-menu.el    Thu Jan  1 00:00:00 1970
  27261. --- /gnu/src/amiga/emacs-18.59/lisp/amiga-menu.el    Sat Nov 21 16:13:18 1992
  27262. ***************
  27263. *** 0 ****
  27264. --- 1,135 ----
  27265. + ;(provide 'amiga-menu)
  27266. + 
  27267. + (defconst amiga-menu-pick (char-to-string 3))
  27268. + (defconst amiga-menu-help (char-to-string 7))
  27269. + 
  27270. + (defvar amiga-menus-description nil
  27271. +   "Variable containing the menus setup for Emacs")
  27272. + 
  27273. + (defun amiga-menus-set (menus)
  27274. +   "Setup menus for emacs (parameter as for amiga-menus)"
  27275. +   (define-key mouse-map amiga-menu-pick 'amiga-menus-dispatch)
  27276. +   (define-key mouse-map amiga-menu-help 'amiga-menus-help)
  27277. +   (setq amiga-menus-description menus)
  27278. +   (amiga-menus menus))
  27279. + 
  27280. + (defun amiga-menus-dispatch (selection)
  27281. +   (let* ((menu (car selection))
  27282. +      (item (cadr selection))
  27283. +      (code (cadr (nth item (cadr (nth menu amiga-menus-description))))))
  27284. +     (if (and (listp code) (eq (car code) 'call-interactively)
  27285. +          (listp (cadr code)) (eq (car (cadr code)) 'quote))
  27286. +     (setq this-command (cadr (cadr code))))
  27287. +     (eval code)))
  27288. + 
  27289. + (defun amiga-menus-help (selection)
  27290. +   (let* ((menu (car selection))
  27291. +      (item (cadr selection))
  27292. +      (cmd (cadr (nth item (cadr (nth menu amiga-menus-description))))))
  27293. +     (if (and (listp cmd) (eq (car cmd) 'call-interactively)
  27294. +          (listp (car (cdr cmd))) (eq (car (car (cdr cmd))) 'quote))
  27295. +     (describe-function (car (cdr (car (cdr cmd)))))
  27296. +     (error "Don't know how to describe %s" cmd))))
  27297. + 
  27298. + (defun make-explicit-string (str)
  27299. +   (if (and (>= (length str) 2) (= (elt str 0) 27) (< (elt str 1) 128))
  27300. +       (key-description (concat (char-to-string (+ 128 (elt str 1)))
  27301. +                    (substring str 2)))
  27302. +       (key-description str)))
  27303. + 
  27304. + (defun make-command-name (command str width)
  27305. +   (let ((keys (where-is-internal command nil t))
  27306. +     (string (if str str (symbol-name command))))
  27307. +     (if keys
  27308. +     (format (if width (format "%%-%ds%%s" (+ width 2)) "%s (%s)")
  27309. +         string (make-explicit-string keys))
  27310. +     string)))
  27311. + 
  27312. + (defun menu-items (commands proportional)
  27313. +   (let* ((width (if proportional nil 0))
  27314. +      (names (mapcar
  27315. +          (function (lambda (cmd)
  27316. +                  (if cmd
  27317. +                  (let* ((name (if (symbolp cmd)
  27318. +                           (symbol-name cmd)
  27319. +                           (car cmd)))
  27320. +                     (len (length name)))
  27321. +                    (if (and (not proportional) (> len width))
  27322. +                        (setq width len))
  27323. +                    name))))
  27324. +          commands)))
  27325. +     (mapcar
  27326. +      (function (lambda (cmd)
  27327. +          (let ((name (car names)))
  27328. +            (setq names (cdr names))
  27329. +            (if cmd
  27330. +                (let ((command (if (symbolp cmd) cmd (cadr cmd))))
  27331. +              (list (make-command-name command name width)
  27332. +                    (list 'call-interactively (list 'quote command))
  27333. +                    (caddr cmd)))))))
  27334. +      commands)))
  27335. + 
  27336. + (defun convert-menu-buffer (proportional)
  27337. +   "Convert the current buffer into a loadable menu file for emacs.\n\
  27338. + If PROPORTIONAL is true (or if a prefix arg is given), assume menu is in a \n\
  27339. + proportional font & present it differently."
  27340. +   (interactive "P")
  27341. +   (save-buffer)
  27342. +   (widen)
  27343. +   (goto-char 1)
  27344. +   (let ((menu-spec (reverse (read (current-buffer))))
  27345. +     menu-code)
  27346. +     (while menu-spec
  27347. +       (let ((menu-item (car menu-spec)))
  27348. +     (setq menu-code
  27349. +           (cons (list (car menu-item)
  27350. +               (menu-items (cdr menu-item) proportional))
  27351. +             menu-code))
  27352. +     (setq menu-spec (cdr menu-spec))))
  27353. +     (let ((new-buf
  27354. +        (find-file (concat
  27355. +                (substring (buffer-file-name) 0
  27356. +                   (string-match "\\.menu$" (buffer-file-name)))
  27357. +                ".el"))))
  27358. +       (erase-buffer)
  27359. +       (prin1 (list 'amiga-menus-set (list 'quote menu-code)) (current-buffer))
  27360. +       (beginning-of-buffer))))
  27361. + 
  27362. + (defvar menu-mode-syntax-table nil
  27363. +   "Syntax table used while in menu mode.")
  27364. + 
  27365. + (defvar menu-mode-abbrev-table nil
  27366. +   "Abbrev table used while in menu mode.")
  27367. + (define-abbrev-table 'menu-mode-abbrev-table ())
  27368. + 
  27369. + (if menu-mode-syntax-table
  27370. +     ()
  27371. +   (setq menu-mode-syntax-table (make-syntax-table))
  27372. +   (modify-syntax-entry ?' "w   " menu-mode-syntax-table))
  27373. + 
  27374. + (defvar menu-mode-map ())
  27375. + (if menu-mode-map
  27376. +     ()
  27377. +   (setq menu-mode-map (make-sparse-keymap))
  27378. +   (define-key menu-mode-map "\t" 'indent-relative)
  27379. +   (define-key menu-mode-map "\C-c\C-c" 'convert-menu-buffer))
  27380. + 
  27381. + (defun menu-mode ()
  27382. +   "Major mode for editing menus intended for humans to read.
  27383. + Indentation works like in indented-text-mode. This could be improved.\\{menu-mode-map}
  27384. + Turning on menu-mode calls the value of the variable menu-mode-hook,
  27385. + if that value is non-nil."
  27386. +   (interactive)
  27387. +   (kill-all-local-variables)
  27388. +   (use-local-map menu-mode-map)
  27389. +   (define-abbrev-table 'menu-mode-abbrev-table ())
  27390. +   (setq local-abbrev-table menu-mode-abbrev-table)
  27391. +   (set-syntax-table menu-mode-syntax-table)
  27392. +   (make-local-variable 'indent-line-function)
  27393. +   (setq indent-line-function 'indent-relative-maybe)
  27394. +   (use-local-map menu-mode-map)
  27395. +   (setq mode-name "Menu")
  27396. +   (setq major-mode 'menu-mode)
  27397. +   (run-hooks 'menu-mode-hook))
  27398. + 
  27399. + (setq auto-mode-alist (cons '("\\.menu$" . menu-mode) auto-mode-alist))
  27400. Binary files emacs-18.59/lisp/amiga-menu.elc and /gnu/src/amiga/emacs-18.59/lisp/amiga-menu.elc differ
  27401. diff -rc --new-file emacs-18.59/lisp/amiga-mouse.el /gnu/src/amiga/emacs-18.59/lisp/amiga-mouse.el
  27402. *** emacs-18.59/lisp/amiga-mouse.el    Thu Jan  1 00:00:00 1970
  27403. --- /gnu/src/amiga/emacs-18.59/lisp/amiga-mouse.el    Sat Nov 21 16:13:20 1992
  27404. ***************
  27405. *** 0 ****
  27406. --- 1,276 ----
  27407. + ;; Mouse support for Amiga Intuition window system.
  27408. + ;; Copyright (C) 1985, 1987 Free Software Foundation, Inc.
  27409. + 
  27410. + ;; This file is part of GNU Emacs.
  27411. + 
  27412. + ;; GNU Emacs is distributed in the hope that it will be useful,
  27413. + ;; but WITHOUT ANY WARRANTY.  No author or distributor
  27414. + ;; accepts responsibility to anyone for the consequences of using it
  27415. + ;; or for whether it serves any particular purpose or works at all,
  27416. + ;; unless he says so in writing.  Refer to the GNU Emacs General Public
  27417. + ;; License for full details.
  27418. + 
  27419. + ;; Everyone is granted permission to copy, modify and redistribute
  27420. + ;; GNU Emacs, but only under the conditions described in the
  27421. + ;; GNU Emacs General Public License.   A copy of this license is
  27422. + ;; supposed to have been given to you along with GNU Emacs so you
  27423. + ;; can know your rights and responsibilities.  It should be in a
  27424. + ;; file named COPYING.  Among other things, the copyright notice
  27425. + ;; and this notice must be preserved on all copies.
  27426. + 
  27427. + (provide 'amiga-mouse)
  27428. + 
  27429. + (defconst amiga-button-right (char-to-string 0))
  27430. + (defconst amiga-button-middle (char-to-string 1))
  27431. + (defconst amiga-button-left (char-to-string 2))
  27432. + 
  27433. + (defconst amiga-button-right-up (char-to-string 4))
  27434. + (defconst amiga-button-middle-up (char-to-string 5))
  27435. + (defconst amiga-button-left-up (char-to-string 6))
  27436. + 
  27437. + (defconst amiga-button-s-right (char-to-string 16))
  27438. + (defconst amiga-button-s-middle (char-to-string 17))
  27439. + (defconst amiga-button-s-left (char-to-string 18))
  27440. + 
  27441. + (defconst amiga-button-s-right-up (char-to-string 20))
  27442. + (defconst amiga-button-s-middle-up (char-to-string 21))
  27443. + (defconst amiga-button-s-left-up (char-to-string 22))
  27444. + 
  27445. + (defconst amiga-button-m-right (char-to-string 32))
  27446. + (defconst amiga-button-m-middle (char-to-string 33))
  27447. + (defconst amiga-button-m-left (char-to-string 34))
  27448. + 
  27449. + (defconst amiga-button-m-right-up (char-to-string 36))
  27450. + (defconst amiga-button-m-middle-up (char-to-string 37))
  27451. + (defconst amiga-button-m-left-up (char-to-string 38))
  27452. + 
  27453. + (defconst amiga-button-c-right (char-to-string 64))
  27454. + (defconst amiga-button-c-middle (char-to-string 65))
  27455. + (defconst amiga-button-c-left (char-to-string 66))
  27456. + 
  27457. + (defconst amiga-button-c-right-up (char-to-string 68))
  27458. + (defconst amiga-button-c-middle-up (char-to-string 69))
  27459. + (defconst amiga-button-c-left-up (char-to-string 70))
  27460. + 
  27461. + (defconst amiga-button-m-s-right (char-to-string 48))
  27462. + (defconst amiga-button-m-s-middle (char-to-string 49))
  27463. + (defconst amiga-button-m-s-left (char-to-string 50))
  27464. + 
  27465. + (defconst amiga-button-m-s-right-up (char-to-string 52))
  27466. + (defconst amiga-button-m-s-middle-up (char-to-string 53))
  27467. + (defconst amiga-button-m-s-left-up (char-to-string 54))
  27468. + 
  27469. + (defconst amiga-button-c-s-right (char-to-string 80))
  27470. + (defconst amiga-button-c-s-middle (char-to-string 81))
  27471. + (defconst amiga-button-c-s-left (char-to-string 82))
  27472. + 
  27473. + (defconst amiga-button-c-s-right-up (char-to-string 84))
  27474. + (defconst amiga-button-c-s-middle-up (char-to-string 85))
  27475. + (defconst amiga-button-c-s-left-up (char-to-string 86))
  27476. + 
  27477. + (defconst amiga-button-c-m-right (char-to-string 96))
  27478. + (defconst amiga-button-c-m-middle (char-to-string 97))
  27479. + (defconst amiga-button-c-m-left (char-to-string 98))
  27480. + 
  27481. + (defconst amiga-button-c-m-right-up (char-to-string 100))
  27482. + (defconst amiga-button-c-m-middle-up (char-to-string 101))
  27483. + (defconst amiga-button-c-m-left-up (char-to-string 102))
  27484. + 
  27485. + (defconst amiga-button-c-m-s-right (char-to-string 112))
  27486. + (defconst amiga-button-c-m-s-middle (char-to-string 113))
  27487. + (defconst amiga-button-c-m-s-left (char-to-string 114))
  27488. + 
  27489. + (defconst amiga-button-c-m-s-right-up (char-to-string 116))
  27490. + (defconst amiga-button-c-m-s-middle-up (char-to-string 117))
  27491. + (defconst amiga-button-c-m-s-left-up (char-to-string 118))
  27492. + 
  27493. + (defmacro cadr (x) (list 'car (list 'cdr x)))
  27494. + (defmacro caddr (x) (list 'car (list 'cdr (list 'cdr x))))
  27495. + (defmacro cadddr (x) (list 'car (list 'cdr (list 'cdr (list 'cdr x)))))
  27496. + 
  27497. + (defun coordinates-in-window-p (arg w)
  27498. +   (let ((x (car arg))
  27499. +     (y (cadr arg))
  27500. +     (edges (window-edges w)))
  27501. +     (and (>= x (car edges)) (< x (caddr edges))
  27502. +      (>= y (cadr edges)) (< y (cadddr edges))
  27503. +      (list (- x (car edges)) (- y (cadr edges))))))
  27504. + 
  27505. + (defvar amiga-process-mouse-hook nil
  27506. +   "Hook to run after each mouse event is processed.  Should take two
  27507. + arguments; the first being a list (XPOS YPOS) corresponding to character
  27508. + offset from top left of screen and the second being a specifier for the
  27509. + buttons/keys.
  27510. + 
  27511. + This will normally be set on a per-buffer basis.")
  27512. + 
  27513. + (defun amiga-flush-mouse-queue () 
  27514. +   "Process all queued mouse events."
  27515. +   ;; A mouse event causes a special character sequence to be given
  27516. +   ;; as keyboard input.  That runs this function, which process all
  27517. +   ;; queued mouse events and returns.
  27518. +   (interactive)
  27519. +   (while (> (amiga-mouse-events) 0)
  27520. +     (amiga-proc-mouse-event)
  27521. +     (and (boundp 'amiga-process-mouse-hook)
  27522. +      (symbol-value 'amiga-process-mouse-hook)
  27523. +      (funcall amiga-process-mouse-hook amiga-mouse-pos amiga-mouse-item))))
  27524. + 
  27525. + (defun amiga-mouse-select (arg)
  27526. +   "Select Emacs window the mouse is on."
  27527. +   (let ((start-w (selected-window))
  27528. +     (done nil)
  27529. +     (w (selected-window))
  27530. +     (rel-coordinate nil))
  27531. +     (if (eq start-w (minibuffer-window))
  27532. +     (setq rel-coordinate (coordinates-in-window-p arg w))
  27533. +     (while (and (not done)
  27534. +             (null (setq rel-coordinate
  27535. +                 (coordinates-in-window-p arg w))))
  27536. +       (setq w (next-window w))
  27537. +       (if (eq w start-w)
  27538. +           (setq done t))))
  27539. +     (select-window w)
  27540. +     rel-coordinate))
  27541. + 
  27542. + (defun amiga-mouse-keep-one-window (arg)
  27543. +   "Select Emacs window mouse is on, then kill all other Emacs windows."
  27544. +   (if (amiga-mouse-select arg)
  27545. +       (delete-other-windows)))
  27546. + 
  27547. + (defun amiga-mouse-select-and-split (arg)
  27548. +   "Select Emacs window mouse is on, then split it vertically in half."
  27549. +   (if (amiga-mouse-select arg)
  27550. +       (split-window-vertically nil)))
  27551. + 
  27552. + 
  27553. + (defun amiga-mouse-set-point (arg)
  27554. +   "Select Emacs window mouse is on, and move point to mouse position."
  27555. +   (let* ((relative-coordinate (amiga-mouse-select arg))
  27556. +      margin-column
  27557. +      (rel-x (car relative-coordinate))
  27558. +      (rel-y (car (cdr relative-coordinate))))
  27559. +     (if relative-coordinate
  27560. +     (let ((prompt-width (if (eq (selected-window) (minibuffer-window))
  27561. +                 minibuffer-prompt-width 0)))
  27562. +       (move-to-window-line rel-y)
  27563. +       (setq margin-column
  27564. +         (if (or truncate-lines (> (window-hscroll) 0))
  27565. +             (current-column)
  27566. +           ;; If we are using line continuation,
  27567. +           ;; compensate if first character on a continuation line
  27568. +           ;; does not start precisely at the margin.
  27569. +           (- (current-column)
  27570. +              (% (current-column) (1- (window-width))))))
  27571. +       (move-to-column (+ rel-x (1- (max 1 (window-hscroll)))
  27572. +                  (if (= (point) 1)
  27573. +                  (- prompt-width) 0)
  27574. +                  margin-column))))))
  27575. + 
  27576. + (defun amiga-mouse-set-mark (arg)
  27577. +   "Select Emacs window mouse is on, and set mark at mouse position.
  27578. + Display cursor at that position for a second."
  27579. +   (if (amiga-mouse-select arg)
  27580. +       (let ((point-save (point)))
  27581. +     (unwind-protect
  27582. +         (progn (amiga-mouse-set-point arg)
  27583. +            (push-mark nil t)
  27584. +            (sit-for 1))
  27585. +       (goto-char point-save)))))
  27586. + 
  27587. + (defun amiga-mouse-cut (arg)
  27588. +   "Select Emacs window mouse is on, and set mark at mouse position. 
  27589. + Display cursor at that position for a second. Then cut."
  27590. +   (if (amiga-mouse-select arg)
  27591. +       (let ((point-save (point)))
  27592. +     (unwind-protect
  27593. +         (progn (amiga-mouse-set-point arg)
  27594. +            (push-mark nil t)
  27595. +            (kill-region point-save (point))
  27596. +            (sit-for 1))
  27597. +       (goto-char point-save)))))
  27598. + 
  27599. + (defun amiga-mouse-copy (arg)
  27600. +   "Select Emacs window mouse is on, and set mark at mouse position. 
  27601. + Display cursor at that position for a second. Then copy."
  27602. +   (if (amiga-mouse-select arg)
  27603. +       (let ((point-save (point)))
  27604. +     (unwind-protect
  27605. +         (progn (amiga-mouse-set-point arg)
  27606. +            (push-mark nil t)
  27607. +            (copy-region-as-kill point-save (point))
  27608. +            (sit-for 1))
  27609. +       (goto-char point-save)))))
  27610. + 
  27611. + (defun amiga-mouse-paste (arg)
  27612. +   "Move point to mouse position (and select window), then paste."
  27613. +   (if (amiga-mouse-select arg)
  27614. +       (progn
  27615. +     (amiga-mouse-set-point arg)
  27616. +     (yank))))
  27617. + 
  27618. + (defun amiga-mouse-iconify (arg) (amiga-iconify))
  27619. + 
  27620. + (defun amiga-mouse-ignore (arg)
  27621. +   "Don't do anything.")
  27622. + 
  27623. + ; Prevent beeps. on button-up.  If the button isn't bound to anything, it
  27624. + (define-key mouse-map amiga-button-right 'amiga-mouse-ignore)
  27625. + (define-key mouse-map amiga-button-middle 'amiga-mouse-ignore)
  27626. + (define-key mouse-map amiga-button-left 'amiga-mouse-ignore)
  27627. + (define-key mouse-map amiga-button-right-up 'amiga-mouse-ignore)
  27628. + (define-key mouse-map amiga-button-middle-up 'amiga-mouse-ignore)
  27629. + (define-key mouse-map amiga-button-left-up 'amiga-mouse-ignore)
  27630. + (define-key mouse-map amiga-button-s-right 'amiga-mouse-ignore)
  27631. + (define-key mouse-map amiga-button-s-middle 'amiga-mouse-ignore)
  27632. + (define-key mouse-map amiga-button-s-left 'amiga-mouse-ignore)
  27633. + (define-key mouse-map amiga-button-s-right-up 'amiga-mouse-ignore)
  27634. + (define-key mouse-map amiga-button-s-middle-up 'amiga-mouse-ignore)
  27635. + (define-key mouse-map amiga-button-s-left-up 'amiga-mouse-ignore)
  27636. + (define-key mouse-map amiga-button-m-right 'amiga-mouse-ignore)
  27637. + (define-key mouse-map amiga-button-m-middle 'amiga-mouse-ignore)
  27638. + (define-key mouse-map amiga-button-m-left 'amiga-mouse-ignore)
  27639. + (define-key mouse-map amiga-button-m-right-up 'amiga-mouse-ignore)
  27640. + (define-key mouse-map amiga-button-m-middle-up 'amiga-mouse-ignore)
  27641. + (define-key mouse-map amiga-button-m-left-up 'amiga-mouse-ignore)
  27642. + (define-key mouse-map amiga-button-c-right 'amiga-mouse-ignore)
  27643. + (define-key mouse-map amiga-button-c-middle 'amiga-mouse-ignore)
  27644. + (define-key mouse-map amiga-button-c-left 'amiga-mouse-ignore)
  27645. + (define-key mouse-map amiga-button-c-right-up 'amiga-mouse-ignore)
  27646. + (define-key mouse-map amiga-button-c-middle-up 'amiga-mouse-ignore)
  27647. + (define-key mouse-map amiga-button-c-left-up 'amiga-mouse-ignore)
  27648. + (define-key mouse-map amiga-button-m-s-right 'amiga-mouse-ignore)
  27649. + (define-key mouse-map amiga-button-m-s-middle 'amiga-mouse-ignore)
  27650. + (define-key mouse-map amiga-button-m-s-left 'amiga-mouse-ignore)
  27651. + (define-key mouse-map amiga-button-m-s-right-up 'amiga-mouse-ignore)
  27652. + (define-key mouse-map amiga-button-m-s-middle-up 'amiga-mouse-ignore)
  27653. + (define-key mouse-map amiga-button-m-s-left-up 'amiga-mouse-ignore)
  27654. + (define-key mouse-map amiga-button-c-s-right 'amiga-mouse-ignore)
  27655. + (define-key mouse-map amiga-button-c-s-middle 'amiga-mouse-ignore)
  27656. + (define-key mouse-map amiga-button-c-s-left 'amiga-mouse-ignore)
  27657. + (define-key mouse-map amiga-button-c-s-right-up 'amiga-mouse-ignore)
  27658. + (define-key mouse-map amiga-button-c-s-middle-up 'amiga-mouse-ignore)
  27659. + (define-key mouse-map amiga-button-c-s-left-up 'amiga-mouse-ignore)
  27660. + (define-key mouse-map amiga-button-c-m-right 'amiga-mouse-ignore)
  27661. + (define-key mouse-map amiga-button-c-m-middle 'amiga-mouse-ignore)
  27662. + (define-key mouse-map amiga-button-c-m-left 'amiga-mouse-ignore)
  27663. + (define-key mouse-map amiga-button-c-m-right-up 'amiga-mouse-ignore)
  27664. + (define-key mouse-map amiga-button-c-m-middle-up 'amiga-mouse-ignore)
  27665. + (define-key mouse-map amiga-button-c-m-left-up 'amiga-mouse-ignore)
  27666. + (define-key mouse-map amiga-button-c-m-s-right 'amiga-mouse-ignore)
  27667. + (define-key mouse-map amiga-button-c-m-s-middle 'amiga-mouse-ignore)
  27668. + (define-key mouse-map amiga-button-c-m-s-left 'amiga-mouse-ignore)
  27669. + (define-key mouse-map amiga-button-c-m-s-right-up 'amiga-mouse-ignore)
  27670. + (define-key mouse-map amiga-button-c-m-s-middle-up 'amiga-mouse-ignore)
  27671. + (define-key mouse-map amiga-button-c-m-s-left-up 'amiga-mouse-ignore)
  27672. + 
  27673. + ; Define a few events
  27674. + (define-key mouse-map amiga-button-left 'amiga-mouse-set-point)
  27675. + (define-key mouse-map amiga-button-s-left 'amiga-mouse-set-mark)
  27676. + (define-key mouse-map amiga-button-c-left 'amiga-mouse-cut)
  27677. + (define-key mouse-map amiga-button-m-left 'amiga-mouse-copy)
  27678. + (define-key mouse-map amiga-button-middle 'amiga-mouse-paste)
  27679. + (define-key mouse-map amiga-button-s-middle 'amiga-mouse-iconify)
  27680. + 
  27681. + (define-key amiga-map "M" 'amiga-flush-mouse-queue)
  27682. + (setq amiga-mouse-initialized t)  ;; Mouse commands can now be processed.
  27683. Binary files emacs-18.59/lisp/amiga-mouse.elc and /gnu/src/amiga/emacs-18.59/lisp/amiga-mouse.elc differ
  27684. diff -rc --new-file emacs-18.59/lisp/compile.el /gnu/src/amiga/emacs-18.59/lisp/compile.el
  27685. *** emacs-18.59/lisp/compile.el    Fri Aug 14 22:53:00 1992
  27686. --- /gnu/src/amiga/emacs-18.59/lisp/compile.el    Thu Dec 24 17:06:50 1992
  27687. ***************
  27688. *** 43,49 ****
  27689.   ;; The filename excludes colons to avoid confusion when error message
  27690.   ;; starts with digits.
  27691.   (defvar compilation-error-regexp
  27692. !   "\\([^ :\n]+\\(: *\\|, line \\|(\\)[0-9]+\\)\\|\\([0-9]+ *of *[^ \n]+\\)"
  27693.     "Regular expression for filename/linenumber in error in compilation log.")
  27694.   
  27695.   (defun compile (command)
  27696. --- 43,49 ----
  27697.   ;; The filename excludes colons to avoid confusion when error message
  27698.   ;; starts with digits.
  27699.   (defvar compilation-error-regexp
  27700. !   "^\\([^ :\e]+\\([ :] *\\|, line \\|(\\)[0-9]+\\)\\|\\([0-9]+ *of *[^ \n]+\\)"
  27701.     "Regular expression for filename/linenumber in error in compilation log.")
  27702.   
  27703.   (defun compile (command)
  27704. ***************
  27705. *** 61,67 ****
  27706.   While grep runs asynchronously, you can use the \\[next-error] command
  27707.   to find the text that grep hits refer to."
  27708.     (interactive "sRun grep (with args): ")
  27709. !   (compile1 (concat "grep -n " command " /dev/null")
  27710.           "No more grep hits" "grep"))
  27711.   
  27712.   (defun compile1 (command error-message &optional name-of-mode)
  27713. --- 61,68 ----
  27714.   While grep runs asynchronously, you can use the \\[next-error] command
  27715.   to find the text that grep hits refer to."
  27716.     (interactive "sRun grep (with args): ")
  27717. !   (compile1 (concat "grep -n " command (if (eq system-type 'amigados) " nil:"
  27718. !                      " /dev/null"))
  27719.           "No more grep hits" "grep"))
  27720.   
  27721.   (defun compile1 (command error-message &optional name-of-mode)
  27722. ***************
  27723. *** 195,201 ****
  27724.       (let* ((pop-up-windows t)
  27725.          (w (display-buffer (marker-buffer (car next-error)))))
  27726.         (set-window-point w (car next-error))
  27727. !       (set-window-start w (car next-error)))
  27728.       (set-marker (car next-error) nil)))
  27729.   
  27730.   ;; Set compilation-error-list to nil, and
  27731. --- 196,208 ----
  27732.       (let* ((pop-up-windows t)
  27733.          (w (display-buffer (marker-buffer (car next-error)))))
  27734.         (set-window-point w (car next-error))
  27735. !       (if compilation-parse-sasc
  27736. !       (let ((thiswin (selected-window)))
  27737. !         (select-window w)
  27738. !         (vertical-motion -1)
  27739. !         (set-window-start w (point))
  27740. !         (select-window thiswin))
  27741. !     (set-window-start w (car next-error))))
  27742.       (set-marker (car next-error) nil)))
  27743.   
  27744.   ;; Set compilation-error-list to nil, and
  27745. ***************
  27746. *** 222,227 ****
  27747. --- 229,236 ----
  27748.   and visits its location."
  27749.     (setq compilation-error-list nil)
  27750.     (message "Parsing error messages...")
  27751. +   (goto-char (point-min))
  27752. +   (setq compilation-parse-sasc (search-forward "SAS/C" nil t))
  27753.     (let (text-buffer
  27754.       last-filename last-linenum)
  27755.       ;; Don't reparse messages already seen at last parse.
  27756. Binary files emacs-18.59/lisp/compile.elc and /gnu/src/amiga/emacs-18.59/lisp/compile.elc differ
  27757. diff -rc --new-file emacs-18.59/lisp/files.el /gnu/src/amiga/emacs-18.59/lisp/files.el
  27758. *** emacs-18.59/lisp/files.el    Sun Oct 11 22:27:38 1992
  27759. --- /gnu/src/amiga/emacs-18.59/lisp/files.el    Sat Nov 21 16:14:10 1992
  27760. ***************
  27761. *** 141,146 ****
  27762. --- 141,156 ----
  27763.   after you find a file.  If you explicitly request such a scan with
  27764.   \\[normal-mode], there is no query, regardless of this variable.")
  27765.   
  27766. + (defconst backup-char (if (eq system-type 'amigados) "!" "~")
  27767. +   "Character to add to file names to make backup names.")
  27768. + 
  27769. + (defconst autosave-char (if (eq system-type 'amigados) "@" "#")
  27770. +   "Character to add to file names to make autosave names.")
  27771. + 
  27772. + (defconst bufferfile-char (if (eq system-type 'amigados) "^" "%")
  27773. +   "Character to add to buffer names to make file names.")
  27774. + 
  27775. + 
  27776.   ;; Avoid losing in versions where CLASH_DETECTION is disabled.
  27777.   (or (fboundp 'lock-buffer)
  27778.       (fset 'lock-buffer 'ignore))
  27779. ***************
  27780. *** 380,386 ****
  27781.         (funcall (intern (concat (downcase mode) "-mode")))
  27782.       (let ((alist auto-mode-alist)
  27783.             (name buffer-file-name))
  27784. !       (let ((case-fold-search (eq system-type 'vax-vms)))
  27785.           ;; Remove backup-suffixes from file name.
  27786.           (setq name (file-name-sans-versions name))
  27787.           ;; Find first matching alist entry.
  27788. --- 390,397 ----
  27789.         (funcall (intern (concat (downcase mode) "-mode")))
  27790.       (let ((alist auto-mode-alist)
  27791.             (name buffer-file-name))
  27792. !       (let ((case-fold-search (or (eq system-type 'amigados)
  27793. !                       (eq system-type 'vax-vms))))
  27794.           ;; Remove backup-suffixes from file name.
  27795.           (setq name (file-name-sans-versions name))
  27796.           ;; Find first matching alist entry.
  27797. ***************
  27798. *** 559,566 ****
  27799.           (setq setmodes (file-modes backupname)))
  27800.           (file-error
  27801.            ;; If trouble writing the backup, write it in ~.
  27802. !          (setq backupname (expand-file-name "~/%backup%~"))
  27803. !          (message "Cannot write backup file; backing up in ~/%%backup%%~")
  27804.            (sleep-for 1)
  27805.            (condition-case ()
  27806.            (delete-file backupname)
  27807. --- 570,580 ----
  27808.           (setq setmodes (file-modes backupname)))
  27809.           (file-error
  27810.            ;; If trouble writing the backup, write it in ~.
  27811. !          (setq backupname
  27812. !            (expand-file-name (concat "~/" bufferfile-char "backup"
  27813. !                          bufferfile-char backup-char)))
  27814. !          (message "Cannot write backup file; backing up in ~/%sbackup%s%s"
  27815. !               bufferfile-char bufferfile-char backup-char)
  27816.            (sleep-for 1)
  27817.            (condition-case ()
  27818.            (delete-file backupname)
  27819. ***************
  27820. *** 588,605 ****
  27821.            (or (string-match ";[0-9]*\\'" name)
  27822.                (and (string-match "\\." name (string-match "[]>]" name))
  27823.                 (string-match "\\.[0-9]*\\'" name (match-end 0))))
  27824. !            (string-match "\\(\\.~[0-9]+\\)?~\\'" name))))
  27825.   
  27826.   (defun make-backup-file-name (file)
  27827.     "Create the non-numeric backup file name for FILE.
  27828.   This is a separate function so you can redefine it for customization."
  27829. !   (concat file "~"))
  27830.   
  27831.   (defun backup-file-name-p (file)
  27832.     "Return non-nil if FILE is a backup file name (numeric or not).
  27833.   This is a separate function so you can redefine it for customization.
  27834.   You may need to redefine file-name-sans-versions as well."
  27835. !   (string-match "~$" file))
  27836.   
  27837.   ;; I believe there is no need to alter this behavior for VMS;
  27838.   ;; since backup files are not made on VMS, it should not get called.
  27839. --- 602,620 ----
  27840.            (or (string-match ";[0-9]*\\'" name)
  27841.                (and (string-match "\\." name (string-match "[]>]" name))
  27842.                 (string-match "\\.[0-9]*\\'" name (match-end 0))))
  27843. !            (string-match (concat "\\(\\." backup-char "[0-9]+\\)?"
  27844. !                      backup-char "\\'") name))))
  27845.   
  27846.   (defun make-backup-file-name (file)
  27847.     "Create the non-numeric backup file name for FILE.
  27848.   This is a separate function so you can redefine it for customization."
  27849. !   (concat file backup-char))
  27850.   
  27851.   (defun backup-file-name-p (file)
  27852.     "Return non-nil if FILE is a backup file name (numeric or not).
  27853.   This is a separate function so you can redefine it for customization.
  27854.   You may need to redefine file-name-sans-versions as well."
  27855. !   (string-match (concat backup-char "$") file))
  27856.   
  27857.   ;; I believe there is no need to alter this behavior for VMS;
  27858.   ;; since backup files are not made on VMS, it should not get called.
  27859. ***************
  27860. *** 609,615 ****
  27861.    and whose cdr is a list of old versions to consider deleting now."
  27862.     (if (eq version-control 'never)
  27863.         (list (make-backup-file-name fn))
  27864. !     (let* ((base-versions (concat (file-name-nondirectory fn) ".~"))
  27865.          (bv-length (length base-versions))
  27866.          (possibilities (file-name-all-completions
  27867.                  base-versions
  27868. --- 624,630 ----
  27869.    and whose cdr is a list of old versions to consider deleting now."
  27870.     (if (eq version-control 'never)
  27871.         (list (make-backup-file-name fn))
  27872. !     (let* ((base-versions (concat (file-name-nondirectory fn) "." backup-char))
  27873.          (bv-length (length base-versions))
  27874.          (possibilities (file-name-all-completions
  27875.                  base-versions
  27876. ***************
  27877. *** 626,645 ****
  27878.                   kept-old-versions kept-new-versions -1)))
  27879.         (if (not deserve-versions-p)
  27880.         (list (make-backup-file-name fn))
  27881. !     (cons (concat fn ".~" (int-to-string (1+ high-water-mark)) "~")
  27882.             (if (and (> number-to-delete 0)
  27883.                  ;; Delete nothing if there is overflow
  27884.                  ;; in the number of versions to keep.
  27885.                  (>= (+ kept-new-versions kept-old-versions -1) 0))
  27886.             (mapcar (function (lambda (n)
  27887. !                       (concat fn ".~"
  27888. !                           (int-to-string n) "~")))
  27889.                 (let ((v (nthcdr kept-old-versions versions)))
  27890.                   (rplacd (nthcdr (1- number-to-delete) v) ())
  27891.                   v))))))))
  27892.   
  27893.   (defun backup-extract-version (fn)
  27894. !   (if (and (string-match "[0-9]+~$" fn bv-length)
  27895.          (= (match-beginning 0) bv-length))
  27896.         (string-to-int (substring fn bv-length -1))
  27897.         0))
  27898. --- 641,661 ----
  27899.                   kept-old-versions kept-new-versions -1)))
  27900.         (if (not deserve-versions-p)
  27901.         (list (make-backup-file-name fn))
  27902. !     (cons (concat fn "." backup-char (int-to-string (1+ high-water-mark))
  27903. !               backup-char)
  27904.             (if (and (> number-to-delete 0)
  27905.                  ;; Delete nothing if there is overflow
  27906.                  ;; in the number of versions to keep.
  27907.                  (>= (+ kept-new-versions kept-old-versions -1) 0))
  27908.             (mapcar (function (lambda (n)
  27909. !                       (concat fn "." backup-char
  27910. !                           (int-to-string n) backup-char)))
  27911.                 (let ((v (nthcdr kept-old-versions versions)))
  27912.                   (rplacd (nthcdr (1- number-to-delete) v) ())
  27913.                   v))))))))
  27914.   
  27915.   (defun backup-extract-version (fn)
  27916. !   (if (and (string-match (concat "[0-9]+" backup-char "$") fn bv-length)
  27917.          (= (match-beginning 0) bv-length))
  27918.         (string-to-int (substring fn bv-length -1))
  27919.         0))
  27920. ***************
  27921. *** 741,747 ****
  27922.                  ;; If file is precious, rename it away before
  27923.                  ;; overwriting it.
  27924.                  (let ((rename t) nodelete
  27925. !                  (file (concat buffer-file-name "#")))
  27926.                (condition-case ()
  27927.                    (progn (rename-file buffer-file-name file t)
  27928.                       (setq setmodes (file-modes file)))
  27929. --- 757,763 ----
  27930.                  ;; If file is precious, rename it away before
  27931.                  ;; overwriting it.
  27932.                  (let ((rename t) nodelete
  27933. !                  (file (concat buffer-file-name autosave-char)))
  27934.                (condition-case ()
  27935.                    (progn (rename-file buffer-file-name file t)
  27936.                       (setq setmodes (file-modes file)))
  27937. ***************
  27938. *** 774,779 ****
  27939. --- 790,798 ----
  27940.                   ;; Change the mode back, after writing.
  27941.                   (setq setmodes (file-modes buffer-file-name))
  27942.                   (set-file-modes buffer-file-name 511)))
  27943. +              (if (eq system-type 'amigados)
  27944. +              (if amiga-create-icons
  27945. +                  (amiga-put-icon buffer-file-name nil)))
  27946.                (write-region (point-min) (point-max) 
  27947.                      buffer-file-name nil t)))))
  27948.         (if setmodes
  27949. ***************
  27950. *** 983,998 ****
  27951.   See also auto-save-file-name-p."
  27952.     (if buffer-file-name
  27953.         (concat (file-name-directory buffer-file-name)
  27954. !           "#"
  27955.             (file-name-nondirectory buffer-file-name)
  27956. !           "#")
  27957. !     (expand-file-name (concat "#%" (buffer-name) "#"))))
  27958.   
  27959.   (defun auto-save-file-name-p (filename)
  27960.     "Return non-nil if FILENAME can be yielded by make-auto-save-file-name.
  27961.   FILENAME should lack slashes.
  27962.   You can redefine this for customization."
  27963. !   (string-match "^#.*#$" filename))
  27964.   
  27965.   (defconst list-directory-brief-switches "-CF"
  27966.     "*Switches for list-directory to pass to `ls' for brief listing,")
  27967. --- 1002,1018 ----
  27968.   See also auto-save-file-name-p."
  27969.     (if buffer-file-name
  27970.         (concat (file-name-directory buffer-file-name)
  27971. !           autosave-char
  27972.             (file-name-nondirectory buffer-file-name)
  27973. !           autosave-char)
  27974. !     (expand-file-name (concat autosave-char bufferfile-char (buffer-name)
  27975. !                   autosave-char))))
  27976.   
  27977.   (defun auto-save-file-name-p (filename)
  27978.     "Return non-nil if FILENAME can be yielded by make-auto-save-file-name.
  27979.   FILENAME should lack slashes.
  27980.   You can redefine this for customization."
  27981. !   (string-match (concat "^" autosave-char ".*" autosave-char "$") filename))
  27982.   
  27983.   (defconst list-directory-brief-switches "-CF"
  27984.     "*Switches for list-directory to pass to `ls' for brief listing,")
  27985. Binary files emacs-18.59/lisp/files.elc and /gnu/src/amiga/emacs-18.59/lisp/files.elc differ
  27986. diff -rc --new-file emacs-18.59/lisp/loadup.el /gnu/src/amiga/emacs-18.59/lisp/loadup.el
  27987. *** emacs-18.59/lisp/loadup.el    Wed May 13 19:42:48 1992
  27988. --- /gnu/src/amiga/emacs-18.59/lisp/loadup.el    Sat Nov 21 16:14:52 1992
  27989. ***************
  27990. *** 28,34 ****
  27991.   (load "simple")
  27992.   (garbage-collect)
  27993.   (load "help")
  27994. - (garbage-collect)
  27995.   (load "files")
  27996.   (garbage-collect)
  27997.   (load "indent")
  27998. --- 28,33 ----
  27999. ***************
  28000. *** 64,69 ****
  28001. --- 63,72 ----
  28002.       (progn
  28003.         (garbage-collect)
  28004.         (load "vms-patch")))
  28005. + (if (eq system-type 'amigados)
  28006. +     (progn
  28007. +       (garbage-collect)
  28008. +       (load "amiga-init")))
  28009.   
  28010.   ;If you want additional libraries to be preloaded and their
  28011.   ;doc strings kept in the DOC file rather than in core,
  28012. diff -rc --new-file emacs-18.59/lisp/simple.el /gnu/src/amiga/emacs-18.59/lisp/simple.el
  28013. *** emacs-18.59/lisp/simple.el    Wed Apr 15 08:13:32 1992
  28014. --- /gnu/src/amiga/emacs-18.59/lisp/simple.el    Sat Nov 21 16:16:00 1992
  28015. ***************
  28016. *** 539,549 ****
  28017.   (defvar kill-ring-yank-pointer nil
  28018.     "The tail of the kill ring whose car is the last thing yanked.")
  28019.   
  28020.   (defun kill-append (string before-p)
  28021.     (setcar kill-ring
  28022.         (if before-p
  28023.             (concat string (car kill-ring))
  28024. !           (concat (car kill-ring) string))))
  28025.   
  28026.   (defun kill-region (beg end)
  28027.     "Kill between point and mark.
  28028. --- 539,585 ----
  28029.   (defvar kill-ring-yank-pointer nil
  28030.     "The tail of the kill ring whose car is the last thing yanked.")
  28031.   
  28032. + (if (eq system-type 'amigados)
  28033. +     (progn
  28034. +       (defun safe-amiga-paste ()
  28035. +     "Paste from the amiga clipboard, trapping any errors."
  28036. +     (condition-case nil
  28037. +         (amiga-paste)
  28038. +       (error nil)))
  28039. + 
  28040. +       (defun check-clipboard ()
  28041. +     "If there is anything new in the clipboard, add it to the emacs kill ring.
  28042. + Returns t if there was something added, nil otherwise."
  28043. +     (let (added)
  28044. +       (if amiga-new-clip
  28045. +           (let ((str (safe-amiga-paste)))
  28046. +         (setq amiga-new-clip nil)
  28047. +         (if str
  28048. +             (progn
  28049. +               (kill-add str)
  28050. +               (setq added t)
  28051. +               (setq kill-ring-yank-pointer kill-ring)))))
  28052. +       added))
  28053. +       (defun update-clipboard (str)
  28054. +     (amiga-cut str)
  28055. +     (setq amiga-new-clip nil)))
  28056. +     (progn ; These could be defined for X-Windows.
  28057. +       (defun check-clipboard () nil)
  28058. +       (defun update-clipboard () nil)))
  28059. + 
  28060.   (defun kill-append (string before-p)
  28061.     (setcar kill-ring
  28062.         (if before-p
  28063.             (concat string (car kill-ring))
  28064. !           (concat (car kill-ring) string)))
  28065. !   (update-clipboard (car kill-ring)))
  28066. ! 
  28067. ! (defun kill-add (string)
  28068. !   (check-clipboard)
  28069. !   (setq kill-ring (cons string kill-ring))
  28070. !   (update-clipboard string)
  28071. !   (if (> (length kill-ring) kill-ring-max)
  28072. !       (setcdr (nthcdr (1- kill-ring-max) kill-ring) nil)))
  28073.   
  28074.   (defun kill-region (beg end)
  28075.     "Kill between point and mark.
  28076. ***************
  28077. *** 571,579 ****
  28078.       (delete-region beg end)
  28079.       ;; Take the same string recorded for undo
  28080.       ;; and put it in the kill-ring.
  28081. !     (setq kill-ring (cons (car (car buffer-undo-list)) kill-ring))
  28082. !     (if (> (length kill-ring) kill-ring-max)
  28083. !         (setcdr (nthcdr (1- kill-ring-max) kill-ring) nil))
  28084.       (setq this-command 'kill-region)
  28085.       (setq kill-ring-yank-pointer kill-ring))
  28086.       (copy-region-as-kill beg end)
  28087. --- 607,613 ----
  28088.       (delete-region beg end)
  28089.       ;; Take the same string recorded for undo
  28090.       ;; and put it in the kill-ring.
  28091. !     (kill-add (car (car buffer-undo-list)))
  28092.       (setq this-command 'kill-region)
  28093.       (setq kill-ring-yank-pointer kill-ring))
  28094.       (copy-region-as-kill beg end)
  28095. ***************
  28096. *** 584,594 ****
  28097.   (defun copy-region-as-kill (beg end)
  28098.     "Save the region as if killed, but don't kill it."
  28099.     (interactive "r")
  28100. !   (if (eq last-command 'kill-region)
  28101.         (kill-append (buffer-substring beg end) (< end beg))
  28102. !     (setq kill-ring (cons (buffer-substring beg end) kill-ring))
  28103. !     (if (> (length kill-ring) kill-ring-max)
  28104. !     (setcdr (nthcdr (1- kill-ring-max) kill-ring) nil)))
  28105.     (setq this-command 'kill-region)
  28106.     (setq kill-ring-yank-pointer kill-ring))
  28107.   
  28108. --- 618,626 ----
  28109.   (defun copy-region-as-kill (beg end)
  28110.     "Save the region as if killed, but don't kill it."
  28111.     (interactive "r")
  28112. !   (if (and (eq last-command 'kill-region) (not (check-clipboard)))
  28113.         (kill-append (buffer-substring beg end) (< end beg))
  28114. !     (kill-add (buffer-substring beg end)))
  28115.     (setq this-command 'kill-region)
  28116.     (setq kill-ring-yank-pointer kill-ring))
  28117.   
  28118. ***************
  28119. *** 643,648 ****
  28120. --- 675,681 ----
  28121.   text.
  28122.   See also the command \\[yank-pop]."
  28123.     (interactive "*P")
  28124. +   (check-clipboard)
  28125.     (rotate-yank-pointer (if (listp arg) 0
  28126.                (if (eq arg '-) -1
  28127.                  (1- arg))))
  28128. Binary files emacs-18.59/lisp/simple.elc and /gnu/src/amiga/emacs-18.59/lisp/simple.elc differ
  28129. diff -rc --new-file emacs-18.59/lisp/startup.el /gnu/src/amiga/emacs-18.59/lisp/startup.el
  28130. *** emacs-18.59/lisp/startup.el    Sun Apr 19 05:20:08 1992
  28131. --- /gnu/src/amiga/emacs-18.59/lisp/startup.el    Sat Nov 21 16:16:08 1992
  28132. ***************
  28133. *** 113,121 ****
  28134.       ;; Load user's init file, or load default one.
  28135.       (condition-case error
  28136.       (if init
  28137. !         (progn (load (if (eq system-type 'vax-vms)
  28138. !                  "sys$login:.emacs"
  28139. !                  (concat "~" init "/.emacs"))
  28140.                t t t)
  28141.              (or inhibit-default-init
  28142.                  (let ((inhibit-startup-message nil))
  28143. --- 113,121 ----
  28144.       ;; Load user's init file, or load default one.
  28145.       (condition-case error
  28146.       (if init
  28147. !         (progn (load (cond ((eq system-type 'vax-vms) "sys$login:.emacs")
  28148. !                    ((eq system-type 'amigados) "s:.emacs")
  28149. !                    (t (concat "~" init "/.emacs")))
  28150.                t t t)
  28151.              (or inhibit-default-init
  28152.                  (let ((inhibit-startup-message nil))
  28153. ***************
  28154. *** 129,134 ****
  28155. --- 129,138 ----
  28156.       (save-excursion
  28157.         (set-buffer "*scratch*")
  28158.         (funcall initial-major-mode)))
  28159. +     ;; On Amiga, initialise clipboard
  28160. +     (if (eq system-type 'amigados)
  28161. +     (let ((clip (safe-amiga-paste)))
  28162. +       (if clip (kill-add clip))))
  28163.       ;; Load library for our terminal type.
  28164.       ;; User init file can set term-file-prefix to nil to prevent this.
  28165.       (and term-file-prefix (not noninteractive)
  28166. Binary files emacs-18.59/lisp/startup.elc and /gnu/src/amiga/emacs-18.59/lisp/startup.elc differ
  28167. diff -rc --new-file emacs-18.59/lisp/term/intuition-win.el /gnu/src/amiga/emacs-18.59/lisp/term/intuition-win.el
  28168. *** emacs-18.59/lisp/term/intuition-win.el    Thu Jan  1 00:00:00 1970
  28169. --- /gnu/src/amiga/emacs-18.59/lisp/term/intuition-win.el    Sat Nov 21 16:08:08 1992
  28170. ***************
  28171. *** 0 ****
  28172. --- 1,47 ----
  28173. + (load "s:.emacs-menu" t t)
  28174. + (setq command-switch-alist (append '(("-fn" . amiga-handle-set-font)
  28175. +                      ("-fg" . amiga-handle-set-foreground)
  28176. +                      ("-bg" . amiga-handle-set-background)
  28177. +                      ("-geometry" . amiga-handle-set-geometry)
  28178. +                      ("-screen" . amiga-handle-set-screen))
  28179. +                    command-switch-alist))
  28180. + 
  28181. + (defun amiga-handle-set-font (switch)
  28182. +   (condition-case err
  28183. +       (let ((wfont (car command-line-args-left))
  28184. +         (height (car (read-from-string (car (cdr command-line-args-left))))))
  28185. +     (setq command-line-args-left (cdr (cdr command-line-args-left)))
  28186. +     (amiga-set-font wfont height))
  28187. +     (error (message "Failed to load font"))))
  28188. + 
  28189. + (defun amiga-handle-set-foreground (switch)
  28190. +   (condition-case err
  28191. +       (let ((pen (car (read-from-string (car command-line-args-left)))))
  28192. +     (setq command-line-args-left (cdr command-line-args-left))
  28193. +     (amiga-set-foreground-color pen))
  28194. +     (error (message "Failed to set foreground colour"))))
  28195. + 
  28196. + (defun amiga-handle-set-background (switch)
  28197. +   (condition-case err
  28198. +       (let ((pen (car (read-from-string (car command-line-args-left)))))
  28199. +     (setq command-line-args-left (cdr command-line-args-left))
  28200. +     (amiga-set-background-color pen))
  28201. +     (error (message "Failed to set background colour"))))
  28202. + 
  28203. + (defun amiga-handle-set-screen (switch)
  28204. +   (condition-case err
  28205. +       (let ((name (car command-line-args-left)))
  28206. +     (setq command-line-args-left (cdr command-line-args-left))
  28207. +     (amiga-set-geometry nil nil nil nil name))
  28208. +     (error (message "Couldn't open on public screen"))))
  28209. + 
  28210. + (defun amiga-handle-set-geometry (switch)
  28211. +   (condition-case err
  28212. +       (let ((x (car (read-from-string (car command-line-args-left))))
  28213. +         (y (car (read-from-string (car (cdr command-line-args-left)))))
  28214. +         (w (car (read-from-string (car (cdr (cdr command-line-args-left))))))
  28215. +         (h (car (read-from-string (car (cdr (cdr (cdr command-line-args-left)))))))
  28216. + )
  28217. +     (setq command-line-args-left (cdr (cdr (cdr (cdr command-line-args-left)))))
  28218. +     (amiga-set-geometry x y w h nil))
  28219. +     (error (message "Couldn't set window size"))))
  28220. diff -rc --new-file emacs-18.59/lisp/term/intuition-win.elc /gnu/src/amiga/emacs-18.59/lisp/term/intuition-win.elc
  28221. *** emacs-18.59/lisp/term/intuition-win.elc    Thu Jan  1 00:00:00 1970
  28222. --- /gnu/src/amiga/emacs-18.59/lisp/term/intuition-win.elc    Sun May 16 10:57:14 1993
  28223. ***************
  28224. *** 0 ****
  28225. --- 1,16 ----
  28226. + 
  28227. + (load "s:.emacs-menu" t t)
  28228. + 
  28229. + (setq command-switch-alist (append (quote (("-fn" . amiga-handle-set-font) ("-fg" . amiga-handle-set-foreground) ("-bg" . amiga-handle-set-background) ("-geometry" . amiga-handle-set-geometry) ("-screen" . amiga-handle-set-screen))) command-switch-alist))
  28230. + 
  28231. + (defun amiga-handle-set-font (switch) (byte-code "ÀÁ‡" [err (byte-code "    @à   A@!@    AA‰ˆÄ
  28232. + \"*‡" [wfont command-line-args-left height read-from-string amiga-set-font] 4) ((error (byte-code "ÀÁ!‡" [message "Failed to load font"] 2)))] 3))
  28233. + 
  28234. + (defun amiga-handle-set-foreground (switch) (byte-code "ÀÁ‡" [err (byte-code "    @!@    A‰ˆÃ!)‡" [pen command-line-args-left read-from-string amiga-set-foreground-color] 3) ((error (byte-code "ÀÁ!‡" [message "Failed to set foreground colour"] 2)))] 3))
  28235. + 
  28236. + (defun amiga-handle-set-background (switch) (byte-code "ÀÁ‡" [err (byte-code "    @!@    A‰ˆÃ!)‡" [pen command-line-args-left read-from-string amiga-set-background-color] 3) ((error (byte-code "ÀÁ!‡" [message "Failed to set background colour"] 2)))] 3))
  28237. + 
  28238. + (defun amiga-handle-set-screen (switch) (byte-code "ÀÁ‡" [err (byte-code "    @    A‰ˆÃÂÂÂÂ%)‡" [name command-line-args-left nil amiga-set-geometry] 6) ((error (byte-code "ÀÁ!‡" [message "Couldn't open on public screen"] 2)))] 3))
  28239. + 
  28240. + (defun amiga-handle-set-geometry (switch) (byte-code "ÀÁ‡" [err (byte-code "Æ    @!@Æ    A@!@Æ    AA@!@Æ    AAA@!@    AAAA‰ˆÇ
  28241. +  Å%,‡" [x command-line-args-left y w h nil read-from-string amiga-set-geometry] 10) ((error (byte-code "ÀÁ!‡" [message "Couldn't set window size"] 2)))] 3))
  28242. diff -rc --new-file emacs-18.59/lisp/texinfmt.el /gnu/src/amiga/emacs-18.59/lisp/texinfmt.el
  28243. *** emacs-18.59/lisp/texinfmt.el    Sun Dec  8 05:28:09 1991
  28244. --- /gnu/src/amiga/emacs-18.59/lisp/texinfmt.el    Sat Nov 21 16:16:32 1992
  28245. ***************
  28246. *** 874,880 ****
  28247.       (insert "\n* Menu:\n\n")
  28248.       (setq opoint (point))
  28249.       (texinfo-print-index nil indexelts)
  28250. !     (if (eq system-type 'vax-vms) 
  28251.       (texinfo-sort-region opoint (point))
  28252.         (shell-command-on-region opoint (point) "sort -fd" 1))))
  28253.   
  28254. --- 874,880 ----
  28255.       (insert "\n* Menu:\n\n")
  28256.       (setq opoint (point))
  28257.       (texinfo-print-index nil indexelts)
  28258. !     (if (or (eq system-type 'amigados) (eq system-type 'vax-vms)) 
  28259.       (texinfo-sort-region opoint (point))
  28260.         (shell-command-on-region opoint (point) "sort -fd" 1))))
  28261.   
  28262. Binary files emacs-18.59/lisp/texinfmt.elc and /gnu/src/amiga/emacs-18.59/lisp/texinfmt.elc differ
  28263. diff -rc --new-file emacs-18.59/src/SCOPTIONS /gnu/src/amiga/emacs-18.59/src/SCOPTIONS
  28264. *** emacs-18.59/src/SCOPTIONS    Thu Jan  1 00:00:00 1970
  28265. --- /gnu/src/amiga/emacs-18.59/src/SCOPTIONS    Sat Oct  2 15:31:56 1993
  28266. ***************
  28267. *** 0 ****
  28268. --- 1,15 ----
  28269. + STRINGMERGE
  28270. + STRUCTUREEQUIVALENCE
  28271. + NOWARNVOIDRETURN
  28272. + NOVERSION
  28273. + MEMORYSIZE=HUGE
  28274. + INCLUDEDIR=//unix/include
  28275. + IGNORE=147
  28276. + IGNORE=62
  28277. + IGNORE=132
  28278. + IGNORE=154
  28279. + IGNORE=104
  28280. + IGNORE=100
  28281. + IGNORE=161
  28282. + IGNORE=84
  28283. + IGNORE=93
  28284. diff -rc --new-file emacs-18.59/src/alloc.c /gnu/src/amiga/emacs-18.59/src/alloc.c
  28285. *** emacs-18.59/src/alloc.c    Mon Sep 21 05:45:30 1992
  28286. --- /gnu/src/amiga/emacs-18.59/src/alloc.c    Sun Dec  6 12:42:02 1992
  28287. ***************
  28288. *** 76,81 ****
  28289. --- 76,86 ----
  28290.      Preallocated since perhaps we can't allocate it when memory is full.  */
  28291.   Lisp_Object memory_exhausted_message;
  28292.   
  28293. + #ifdef AMIGA_DUMP
  28294. + int *pure;   /* pure array is allocated at run-time */
  28295. + int puresize = DEF_PURESIZE; /* and has a variable size */
  28296. + #define PUREBEG (char *) pure
  28297. + #else /* not AMIGA_DUMP */
  28298.   #ifndef HAVE_SHM
  28299.   #ifdef VMS
  28300.   int pure[PURESIZE / sizeof (int)];    /*no need to initialize - wasted space*/
  28301. ***************
  28302. *** 87,92 ****
  28303. --- 92,98 ----
  28304.   #define pure PURE_SEG_BITS   /* Use shared memory segment */
  28305.   #define PUREBEG (char *)PURE_SEG_BITS
  28306.   #endif /* not HAVE_SHM */
  28307. + #endif /* not AMIGA_DUMP */
  28308.   
  28309.   /* Index in pure at which next pure object will be allocated. */
  28310.   int pureptr;
  28311. ***************
  28312. *** 608,614 ****
  28313.         XSET (val, Lisp_String,
  28314.           (struct Lisp_String *) current_string_block->chars);
  28315.       }
  28316. !     
  28317.     XSTRING (val)->size = length;
  28318.     XSTRING (val)->data[length] = 0;
  28319.   
  28320. --- 614,620 ----
  28321.         XSET (val, Lisp_String,
  28322.           (struct Lisp_String *) current_string_block->chars);
  28323.       }
  28324. ! 
  28325.     XSTRING (val)->size = length;
  28326.     XSTRING (val)->data[length] = 0;
  28327.   
  28328. ***************
  28329. *** 727,735 ****
  28330. --- 733,745 ----
  28331.   #ifdef __GNUC__
  28332.   Lisp_Object *staticvec[NSTATICS] = {0};
  28333.   #else
  28334. + #ifdef AMIGA_DUMP
  28335. + Lisp_Object *staticvec[NSTATICS]; /* Doesn't need to be pure */
  28336. + #else
  28337.   char staticvec1[NSTATICS * sizeof (Lisp_Object *)] = {0};
  28338.   #define staticvec ((Lisp_Object **) staticvec1)
  28339.   #endif
  28340. + #endif
  28341.   
  28342.   /* Put an entry in staticvec, pointing at the variable whose address is given */
  28343.   
  28344. ***************
  28345. *** 859,870 ****
  28346.       {
  28347.         mark_object (&catch->tag);
  28348.         mark_object (&catch->val);
  28349. !     }  
  28350.     for (handler = handlerlist; handler; handler = handler->next)
  28351.       {
  28352.         mark_object (&handler->handler);
  28353.         mark_object (&handler->var);
  28354. !     }  
  28355.     for (backlist = backtrace_list; backlist; backlist = backlist->next)
  28356.       {
  28357.         if (!XMARKBIT (*backlist->function))
  28358. --- 869,880 ----
  28359.       {
  28360.         mark_object (&catch->tag);
  28361.         mark_object (&catch->val);
  28362. !     }
  28363.     for (handler = handlerlist; handler; handler = handler->next)
  28364.       {
  28365.         mark_object (&handler->handler);
  28366.         mark_object (&handler->var);
  28367. !     }
  28368.     for (backlist = backtrace_list; backlist; backlist = backlist->next)
  28369.       {
  28370.         if (!XMARKBIT (*backlist->function))
  28371. ***************
  28372. *** 882,888 ****
  28373.           mark_object (&backlist->args[i]);
  28374.           XMARK (backlist->args[i]);
  28375.         }
  28376. !     }  
  28377.   
  28378.     gc_sweep ();
  28379.   
  28380. --- 892,898 ----
  28381.           mark_object (&backlist->args[i]);
  28382.           XMARK (backlist->args[i]);
  28383.         }
  28384. !     }
  28385.   
  28386.     gc_sweep ();
  28387.   
  28388. ***************
  28389. *** 900,906 ****
  28390.       i = backlist->nargs - 1;
  28391.         for (; i >= 0; i--)
  28392.       XUNMARK (backlist->args[i]);
  28393. !     }  
  28394.     XUNMARK (buffer_defaults.name);
  28395.     XUNMARK (buffer_local_symbols.name);
  28396.   
  28397. --- 910,916 ----
  28398.       i = backlist->nargs - 1;
  28399.         for (; i >= 0; i--)
  28400.       XUNMARK (backlist->args[i]);
  28401. !     }
  28402.     XUNMARK (buffer_defaults.name);
  28403.     XUNMARK (buffer_local_symbols.name);
  28404.   
  28405. ***************
  28406. *** 936,942 ****
  28407.     {
  28408.       register struct cons_block *cblk;
  28409.       register int lim = cons_block_index;
  28410. !   
  28411.       for (cblk = cons_block; cblk; cblk = cblk->next)
  28412.         {
  28413.       register int i;
  28414. --- 946,952 ----
  28415.     {
  28416.       register struct cons_block *cblk;
  28417.       register int lim = cons_block_index;
  28418. ! 
  28419.       for (cblk = cons_block; cblk; cblk = cblk->next)
  28420.         {
  28421.       register int i;
  28422. ***************
  28423. *** 949,955 ****
  28424.     {
  28425.       register struct symbol_block *sblk;
  28426.       register int lim = symbol_block_index;
  28427. !   
  28428.       for (sblk = symbol_block; sblk; sblk = sblk->next)
  28429.         {
  28430.       register int i;
  28431. --- 959,965 ----
  28432.     {
  28433.       register struct symbol_block *sblk;
  28434.       register int lim = symbol_block_index;
  28435. ! 
  28436.       for (sblk = symbol_block; sblk; sblk = sblk->next)
  28437.         {
  28438.       register int i;
  28439. ***************
  28440. *** 964,970 ****
  28441.     {
  28442.       register struct marker_block *sblk;
  28443.       register int lim = marker_block_index;
  28444. !   
  28445.       for (sblk = marker_block; sblk; sblk = sblk->next)
  28446.         {
  28447.       register int i;
  28448. --- 974,980 ----
  28449.     {
  28450.       register struct marker_block *sblk;
  28451.       register int lim = marker_block_index;
  28452. ! 
  28453.       for (sblk = marker_block; sblk; sblk = sblk->next)
  28454.         {
  28455.       register int i;
  28456. ***************
  28457. *** 1197,1203 ****
  28458.       register int num_free = 0, num_used = 0;
  28459.   
  28460.       cons_free_list = 0;
  28461. !   
  28462.       for (cblk = cons_block; cblk; cblk = cblk->next)
  28463.         {
  28464.       register int i;
  28465. --- 1207,1213 ----
  28466.       register int num_free = 0, num_used = 0;
  28467.   
  28468.       cons_free_list = 0;
  28469. ! 
  28470.       for (cblk = cons_block; cblk; cblk = cblk->next)
  28471.         {
  28472.       register int i;
  28473. ***************
  28474. *** 1226,1232 ****
  28475.       register int num_free = 0, num_used = 0;
  28476.   
  28477.       symbol_free_list = 0;
  28478. !   
  28479.       for (sblk = symbol_block; sblk; sblk = sblk->next)
  28480.         {
  28481.       register int i;
  28482. --- 1236,1242 ----
  28483.       register int num_free = 0, num_used = 0;
  28484.   
  28485.       symbol_free_list = 0;
  28486. ! 
  28487.       for (sblk = symbol_block; sblk; sblk = sblk->next)
  28488.         {
  28489.       register int i;
  28490. ***************
  28491. *** 1260,1266 ****
  28492.       register int num_free = 0, num_used = 0;
  28493.   
  28494.       marker_free_list = 0;
  28495. !   
  28496.       for (mblk = marker_block; mblk; mblk = mblk->next)
  28497.         {
  28498.       register int i;
  28499. --- 1270,1276 ----
  28500.       register int num_free = 0, num_used = 0;
  28501.   
  28502.       marker_free_list = 0;
  28503. ! 
  28504.       for (mblk = marker_block; mblk; mblk = mblk->next)
  28505.         {
  28506.       register int i;
  28507. ***************
  28508. *** 1400,1406 ****
  28509.             while ((unsigned) size > STRING_BLOCK_SIZE)
  28510.           {
  28511.             if (size & 1) size ^= MARKBIT | 1;
  28512. !           size = *(int *)size & ~MARKBIT;
  28513.           }
  28514.   
  28515.             total_string_size += size;
  28516. --- 1410,1417 ----
  28517.             while ((unsigned) size > STRING_BLOCK_SIZE)
  28518.           {
  28519.             if (size & 1) size ^= MARKBIT | 1;
  28520. !           size = *(int *)size;
  28521. !                   size &= ~MARKBIT;
  28522.           }
  28523.   
  28524.             total_string_size += size;
  28525. ***************
  28526. *** 1438,1444 ****
  28527.             if (size & 1) size ^= MARKBIT | 1;
  28528.             objptr = (Lisp_Object *)size;
  28529.   
  28530. !           size = XFASTINT (*objptr) & ~MARKBIT;
  28531.             if (XMARKBIT (*objptr))
  28532.               {
  28533.                 XSET (*objptr, Lisp_String, newaddr);
  28534. --- 1449,1456 ----
  28535.             if (size & 1) size ^= MARKBIT | 1;
  28536.             objptr = (Lisp_Object *)size;
  28537.   
  28538. !           size = XFASTINT (*objptr);
  28539. !                   size &= ~MARKBIT;
  28540.             if (XMARKBIT (*objptr))
  28541.               {
  28542.                 XSET (*objptr, Lisp_String, newaddr);
  28543. ***************
  28544. *** 1498,1504 ****
  28545.        Qt tends to return NULL, which effectively turns undo back on.
  28546.        So don't call truncate_undo_list if undo_list is Qt.  */
  28547.         if (! EQ (nextb->undo_list, Qt))
  28548. !     nextb->undo_list 
  28549.         = truncate_undo_list (nextb->undo_list, undo_threshold,
  28550.                   undo_high_threshold);
  28551.         nextb = nextb->next;
  28552. --- 1510,1516 ----
  28553.        Qt tends to return NULL, which effectively turns undo back on.
  28554.        So don't call truncate_undo_list if undo_list is Qt.  */
  28555.         if (! EQ (nextb->undo_list, Qt))
  28556. !     nextb->undo_list
  28557.         = truncate_undo_list (nextb->undo_list, undo_threshold,
  28558.                   undo_high_threshold);
  28559.         nextb = nextb->next;
  28560. diff -rc --new-file emacs-18.59/src/alloca.c /gnu/src/amiga/emacs-18.59/src/alloca.c
  28561. *** emacs-18.59/src/alloca.c    Sat Jul 25 21:40:32 1992
  28562. --- /gnu/src/amiga/emacs-18.59/src/alloca.c    Sun Nov 22 10:12:50 1992
  28563. ***************
  28564. *** 72,78 ****
  28565.   #define    STACK_DIRECTION    0        /* direction unknown */
  28566.   #endif
  28567.   
  28568. ! #if STACK_DIRECTION != 0
  28569.   
  28570.   #define    STACK_DIR    STACK_DIRECTION    /* known at compile-time */
  28571.   
  28572. --- 72,78 ----
  28573.   #define    STACK_DIRECTION    0        /* direction unknown */
  28574.   #endif
  28575.   
  28576. ! #if (STACK_DIRECTION) != 0
  28577.   
  28578.   #define    STACK_DIR    STACK_DIRECTION    /* known at compile-time */
  28579.   
  28580. ***************
  28581. *** 137,142 ****
  28582. --- 137,144 ----
  28583.   
  28584.   static header *last_alloca_header = NULL; /* -> last alloca header */
  28585.   
  28586. + int alloca_calling;
  28587. + 
  28588.   pointer
  28589.   alloca (size)            /* returns pointer to storage */
  28590.        unsigned    size;        /* # bytes to allocate */
  28591. ***************
  28592. *** 176,185 ****
  28593. --- 178,189 ----
  28594.   
  28595.     /* Allocate combined header + user data storage. */
  28596.   
  28597. +   alloca_calling = 1;
  28598.     {
  28599.       register pointer    new = xmalloc (sizeof (header) + size);
  28600.       /* address of header */
  28601.   
  28602. +     alloca_calling = 0;
  28603.       ((header *)new)->h.next = last_alloca_header;
  28604.       ((header *)new)->h.deep = depth;
  28605.   
  28606. diff -rc --new-file emacs-18.59/src/amiga.h /gnu/src/amiga/emacs-18.59/src/amiga.h
  28607. *** emacs-18.59/src/amiga.h    Thu Jan  1 00:00:00 1970
  28608. --- /gnu/src/amiga/emacs-18.59/src/amiga.h    Sat Dec  5 18:07:10 1992
  28609. ***************
  28610. *** 0 ****
  28611. --- 1,145 ----
  28612. + 
  28613. + /* Prototypes for functions defined in amiga_clipboard.c */
  28614. + void syms_of_amiga_clipboard(void);
  28615. + void early_clipboard(void);
  28616. + void init_clipboard(void);
  28617. + void cleanup_clipboard(void);
  28618. + 
  28619. + /* Prototypes for functions defined in amiga_dump.c */
  28620. + void map_out_data(char *fn);
  28621. + void map_in_data(int load);
  28622. + extern void *far first_fn, *far last_fn;
  28623. + 
  28624. + /* Prototypes for functions defined in amiga_menu.c */
  28625. + void suspend_menus(void);
  28626. + int resume_menus(void);
  28627. + void syms_of_amiga_menu(void);
  28628. + void init_amiga_menu(void);
  28629. + void cleanup_amiga_menu(void);
  28630. + 
  28631. + /* Prototypes for functions defined in amiga_processes.c */
  28632. + /* Simulation of unix processes & signals */
  28633. + int wait_for_termination(int pid);
  28634. + int wait_without_blocking(void);
  28635. + char *amiga_path(void);
  28636. + void init_amiga_processes(void);
  28637. + void cleanup_amiga_processes(void);
  28638. + 
  28639. + /* Prototypes for functions defined in amiga_rexx.c */
  28640. + int check_arexx(int force, int kbd);
  28641. + void init_amiga_rexx(void);
  28642. + void cleanup_amiga_rexx(void);
  28643. + void syms_of_amiga_rexx(void);
  28644. + 
  28645. + /* Prototypes for functions defined in amiga_screen.c */
  28646. + extern struct Window *emacs_win;
  28647. + void get_window_size(int *widthp, int *heightp);
  28648. + void reset_window(void);
  28649. + void force_window(void);
  28650. + void add_wbevent(struct WBArg *wbarg);
  28651. + void check_window(int force);
  28652. + void setup_intchar(char intchar);
  28653. + 
  28654. + void start_count(int n);
  28655. + void stop_count(int n);
  28656. + void suspend_count(int n);
  28657. + void resume_count(int n);
  28658. + int disp_counts(void);
  28659. + 
  28660. + void screen_puts(char *str, unsigned int len);
  28661. + void syms_of_amiga_screen(void);
  28662. + void init_amiga_screen(void);
  28663. + void cleanup_amiga_screen(void);
  28664. + 
  28665. + /* Prototypes for functions defined in amiga_serial.c */
  28666. + void init_amiga_serial(void);
  28667. + void cleanup_amiga_serial(void);
  28668. + void check_serial(int force);
  28669. + void serial_puts(char *str, int len);
  28670. + unsigned long serial_baud_rate(void);
  28671. + 
  28672. + /* Prototypes for functions defined in amiga_sysdep.c */
  28673. + extern int selecting;
  28674. + 
  28675. + int set_exclusive_use(int fd);
  28676. + int sys_suspend(void);
  28677. + char *get_system_name(void);
  28678. + char *expand_path(char *path, char *buf, int len);
  28679. + int syms_of_amiga(void);
  28680. + void cleanup_amiga(void);
  28681. + void amiga_undump_reinit(void);
  28682. + void *early_xmalloc(long size);
  28683. + void *early_xrealloc(void *old, long size);
  28684. + 
  28685. + /* Failure stuff */
  28686. + void wbmessage(char *msg);
  28687. + void fail(char *cause);
  28688. + void fail_nomem(void);
  28689. + void _fail_internal(char *file, int line);
  28690. + #define fail_internal() _fail_internal(__FILE__, __LINE__);
  28691. + enum exit_method { use_exit, use_xcexit, use_safe };
  28692. + extern enum exit_method amiga_fail_exit;
  28693. + 
  28694. + #define MALLOC_HUNK_SIZE 92000 /* Default malloc hunk size */
  28695. + extern long malloc_hunk_size; /* Amount of memory malloc'ed by a to-be-dumped emacs */
  28696. + extern long malloc_bytes_used;    /* Amount of this hunk actually used */
  28697. + extern long far pre_alloc;    /* amount of memory to reserve for emacs */
  28698. + extern int puresize;        /* Size of pure hunk */
  28699. + 
  28700. + /* Various special values used to find the beginning & end of the text, data,
  28701. +    bss and malloc segments. */
  28702. + extern int first_data, last_data, first_bss, last_bss;
  28703. + extern void first_function(), last_function();
  28704. + extern char *malloc_hunk;
  28705. + extern int amiga_initialized;    /* True once Emacs has been undumped or initialised */
  28706. + struct mem_header        /* sizeof() must be multiple of 4 ! */
  28707. + {
  28708. +     struct mem_header *next, *prev;
  28709. +     long size;
  28710. +     /* Data follows */
  28711. + };
  28712. + extern struct mem_header *free_list;
  28713. + 
  28714. + 
  28715. + /* Prototypes for functions defined in amiga_term.c */
  28716. + int amiga_term_init(void);
  28717. + 
  28718. + /* Prototypes for functions defined in amiga_tty.c */
  28719. + extern struct timeinfo *far odd_timer;
  28720. + extern unsigned long odd_sig;
  28721. + int setpgrp_of_tty(int pid);
  28722. + int init_sigio(void);
  28723. + int reset_sigio(void);
  28724. + int request_sigio(void);
  28725. + int unrequest_sigio(void);
  28726. + int tabs_safe_p(void);
  28727. + int get_screen_size(int *widthp, int *heightp);
  28728. + int init_baud_rate(void);
  28729. + void check_intuition(void);
  28730. + #define AMIGASEQ 256 /* When passed to enque, insert the Amiga sequence introducer
  28731. +                 C-x C-^ */
  28732. + void enque(unsigned int c, int meta);
  28733. + int init_sys_modes(void);
  28734. + int reset_sys_modes(void);
  28735. + void amiga_consume_input(void);
  28736. + int discard_tty_input(void);
  28737. + int emacs_fflush(struct __iobuf *f);
  28738. + void emacs_putchar(int c);
  28739. + void emacs_output(char *str, int size);
  28740. + void emacs_fwrite(char *str, unsigned int nblocks, unsigned int len, FILE *f);
  28741. + void syms_of_amiga_tty(void);
  28742. + void init_amiga_tty(void);
  28743. + void cleanup_amiga_tty(void);
  28744. + void early_amiga_tty(void);
  28745. + void amiga_term_open(void);
  28746. + /* Signal mask used to detect available keyboard input.
  28747. +    Must be set by amiga_serial or amiga_screen */
  28748. + extern unsigned long inputsig;
  28749. + 
  28750. + /* Prototypes for functions defined in amiga_unix.c */
  28751. + void MemCleanup(void);
  28752. + char *malloc(int size);
  28753. + int free(void *p);
  28754. + char *calloc(long n, long size);
  28755. + char *realloc(char *p, long size);
  28756. + void emacs_malloc_init(void);
  28757. diff -rc --new-file emacs-18.59/src/amiga_clipboard.c /gnu/src/amiga/emacs-18.59/src/amiga_clipboard.c
  28758. *** emacs-18.59/src/amiga_clipboard.c    Thu Jan  1 00:00:00 1970
  28759. --- /gnu/src/amiga/emacs-18.59/src/amiga_clipboard.c    Tue Mar 23 09:41:50 1993
  28760. ***************
  28761. *** 0 ****
  28762. --- 1,225 ----
  28763. + #include "config.h"
  28764. + #undef NULL
  28765. + #include "lisp.h"
  28766. + #include "termchar.h"
  28767. + #include "amiga.h"
  28768. + 
  28769. + #include <stdio.h>
  28770. + #include <internal/devices.h>
  28771. + 
  28772. + #undef LONGBITS
  28773. + 
  28774. + #include <exec/types.h>
  28775. + #include <exec/io.h>
  28776. + #include <devices/clipboard.h>
  28777. + #include <libraries/iffparse.h>
  28778. + #include <utility/hooks.h>
  28779. + 
  28780. + #include <proto/exec.h>
  28781. + #include <proto/iffparse.h>
  28782. + 
  28783. + #define  ID_FTXT    MAKE_ID('F','T','X','T')
  28784. + #define  ID_CHRS    MAKE_ID('C','H','R','S')
  28785. + 
  28786. + /*
  28787. +  * Text error messages for possible IFFERR_#? returns from various
  28788. +  * IFF routines.  To get the index into this array, take your IFFERR code,
  28789. +  * negate it, and subtract one.
  28790. +  *  idx = -error - 1;
  28791. +  */
  28792. + static char *far ifferrormsgs[] = {
  28793. +     "End of file (not an error).",
  28794. +     "End of context (not an error).",
  28795. +     "No lexical scope.",
  28796. +     "Insufficient memory.",
  28797. +     "Stream read error.",
  28798. +     "Stream write error.",
  28799. +     "Stream seek error.",
  28800. +     "File is corrupt.",
  28801. +     "IFF syntax error.",
  28802. +     "Not an IFF file.",
  28803. +     "Required call-back hook missing.",
  28804. +     "Return to client.  You should never see this."
  28805. + };
  28806. + 
  28807. + Lisp_Object amiga_new_clip;
  28808. + static struct IFFHandle *far iff;
  28809. + struct Library *IFFParseBase;
  28810. + 
  28811. + static struct IOClipReq *far ClipRequest;
  28812. + static struct Hook cliphook;
  28813. + 
  28814. + /* added __interrupt flag this disables stack checking for this function
  28815. +  * so we can compile with stack checking on.  -ch3/19/93. */
  28816. + static ULONG __saveds __asm __interrupt
  28817. + clip_change(    register __a0 struct Hook    *hook,
  28818. +         register __a2 VOID        *object,
  28819. +         register __a1 ULONG        *message )
  28820. + {
  28821. +     amiga_new_clip = 1;
  28822. +     return 0;
  28823. + }
  28824. + 
  28825. + static Lisp_Object clip_unwind(Lisp_Object dummy)
  28826. + {
  28827. +     CloseIFF (iff);
  28828. +     CloseClipboard ((struct ClipboardHandle *) iff->iff_Stream);
  28829. + 
  28830. +     return Qnil;
  28831. + }
  28832. + 
  28833. + static int clip_protect(void)
  28834. + {
  28835. +     int count = specpdl_ptr - specpdl;
  28836. + 
  28837. +     record_unwind_protect(clip_unwind, Qnil);
  28838. + 
  28839. +     return count;
  28840. + }
  28841. + 
  28842. + static long clip_check(long err)
  28843. + {
  28844. +     if(err) error ("Clipboard IO failed, error %ld: %s\n",
  28845. +            err, ifferrormsgs[-err - 1]);
  28846. +     return err;
  28847. + }
  28848. + 
  28849. + 
  28850. + static void cut(char *str, int size)
  28851. + {
  28852. +     int count;
  28853. + 
  28854. +     if (!(iff->iff_Stream = (ULONG) OpenClipboard (0)))
  28855. +     error ("Clipboard open failed.");
  28856. + 
  28857. +     count = clip_protect();
  28858. + 
  28859. +     /* Open clipbaord */
  28860. +     InitIFFasClip (iff);
  28861. +     clip_check(OpenIFF (iff, IFFF_WRITE));
  28862. + 
  28863. +     /* Write data */
  28864. +     clip_check(PushChunk(iff, ID_FTXT, ID_FORM, IFFSIZE_UNKNOWN));
  28865. +     clip_check(PushChunk(iff, 0, ID_CHRS, IFFSIZE_UNKNOWN));
  28866. +     if (WriteChunkBytes(iff, str, size) != size) clip_check(IFFERR_WRITE);
  28867. +     clip_check(PopChunk(iff));
  28868. +     clip_check(PopChunk(iff));
  28869. + 
  28870. +     /* & close */
  28871. +     unbind_to (count);
  28872. + }
  28873. + 
  28874. + DEFUN ("amiga-cut", Famiga_cut, Samiga_cut,
  28875. +   1, 1, 0,
  28876. +   "Copy string into Amiga clipboard.")
  28877. +   (arg)
  28878. +      Lisp_Object arg;
  28879. + {
  28880. +     struct Lisp_String *p;
  28881. + 
  28882. +     CHECK_STRING (arg, 0);
  28883. + 
  28884. +     p = XSTRING (arg);
  28885. +     cut(p->data, p->size);
  28886. + 
  28887. +     return Qnil;
  28888. + }
  28889. + 
  28890. + DEFUN ("amiga-paste", Famiga_paste, Samiga_paste,
  28891. +   0, 0, 0,
  28892. +   "Returns text currently in the Amiga clipboard, or NIL if there is none.")
  28893. +   ()
  28894. + {
  28895. +     long err = 0;
  28896. +     Lisp_Object result = Qnil;
  28897. +     struct ContextNode  *cn;
  28898. +     int count;
  28899. + 
  28900. +     if (!(iff->iff_Stream = (ULONG) OpenClipboard (0)))
  28901. +     error ("Clipboard open failed.");
  28902. + 
  28903. +     count = clip_protect();
  28904. + 
  28905. +     /* Open clipbaord */
  28906. +     InitIFFasClip (iff);
  28907. +     clip_check(OpenIFF (iff, IFFF_READ));
  28908. +     clip_check(StopChunk(iff, ID_FTXT, ID_CHRS));
  28909. + 
  28910. +     /* Find the first FTXT CHRS chunks */
  28911. +     while (result == Qnil)
  28912. +     {
  28913. +     long err = ParseIFF(iff, IFFPARSE_SCAN);
  28914. + 
  28915. +     if (err == IFFERR_EOC) continue; /* enter next context */
  28916. +     else if (err == IFFERR_EOF) break;
  28917. +     else clip_check(err);
  28918. + 
  28919. +     /* We only asked to stop at FTXT CHRS chunks
  28920. +      * If no error we've hit a stop chunk
  28921. +      * Read the CHRS chunk data
  28922. +      */
  28923. +     cn = CurrentChunk(iff);
  28924. + 
  28925. +     if ((cn) && (cn->cn_Type == ID_FTXT) && (cn->cn_ID == ID_CHRS))
  28926. +     {
  28927. +         int size = cn->cn_Size, rlen;
  28928. + 
  28929. +         result = make_string("", size);
  28930. + 
  28931. +         if ((rlen = ReadChunkBytes(iff, XSTRING (result)->data, size)) != size)
  28932. +         if (rlen < 0) clip_check(rlen);
  28933. +         else clip_check(IFFERR_EOC);
  28934. +     }
  28935. +     }
  28936. +     unbind_to (count);
  28937. + 
  28938. +     return result;
  28939. + }
  28940. + 
  28941. + void syms_of_amiga_clipboard(void)
  28942. + {
  28943. +     DEFVAR_BOOL ("amiga-new-clip", &amiga_new_clip,
  28944. +          "Set to t every time a new clip is put in the Amiga clipboard");
  28945. +     amiga_new_clip = 0;
  28946. + 
  28947. +     defsubr (&Samiga_cut);
  28948. +     defsubr (&Samiga_paste);
  28949. + }
  28950. + 
  28951. + void early_clipboard(void)
  28952. + {
  28953. +     IFFParseBase = 0;
  28954. + }
  28955. + 
  28956. + void init_clipboard(void)
  28957. + {
  28958. +     /* Initialise IFF for clipboard */
  28959. +     if (!(IFFParseBase = OpenLibrary("iffparse.library", 0)))
  28960. +       _fail("iffparse.library is required");
  28961. +     if (!(iff = AllocIFF())) no_memory();
  28962. + 
  28963. +     ClipRequest = (struct IOClipReq *)
  28964. +     _device_open("clipboard.device", 0L, 0L, 0L, 0, sizeof(struct IOClipReq));
  28965. +     if (!ClipRequest) _fail("clipboard.device missing !?");
  28966. + 
  28967. +     cliphook.h_Entry = (ULONG (*)())clip_change;
  28968. +     ClipRequest->io_Command = CBD_CHANGEHOOK;
  28969. +     ClipRequest->io_Length = 1; /* install */
  28970. +     ClipRequest->io_Data = (APTR)&cliphook;
  28971. +     DoIO((struct IORequest *)ClipRequest);
  28972. + }
  28973. + 
  28974. + void cleanup_clipboard(void)
  28975. + {
  28976. +     if (ClipRequest)
  28977. +     {
  28978. +     cliphook.h_Entry = (ULONG (*)())clip_change;
  28979. +     ClipRequest->io_Command = CBD_CHANGEHOOK;
  28980. +     ClipRequest->io_Length = 0; /* remove */
  28981. +     ClipRequest->io_Data = (APTR)&cliphook;
  28982. +     DoIO((struct IORequest *)ClipRequest);
  28983. +     }
  28984. +     if (iff) FreeIFF(iff);
  28985. +     if (IFFParseBase) CloseLibrary(IFFParseBase);
  28986. +     _device_close((struct IORequest *)ClipRequest);
  28987. + }
  28988. diff -rc --new-file emacs-18.59/src/amiga_data.c /gnu/src/amiga/emacs-18.59/src/amiga_data.c
  28989. *** emacs-18.59/src/amiga_data.c    Thu Jan  1 00:00:00 1970
  28990. --- /gnu/src/amiga/emacs-18.59/src/amiga_data.c    Sun Nov 22 10:12:54 1992
  28991. ***************
  28992. *** 0 ****
  28993. --- 1 ----
  28994. + /* Declarations of data that should not be squashed by the dump routine */
  28995. diff -rc --new-file emacs-18.59/src/amiga_dump.c /gnu/src/amiga/emacs-18.59/src/amiga_dump.c
  28996. *** emacs-18.59/src/amiga_dump.c    Thu Jan  1 00:00:00 1970
  28997. --- /gnu/src/amiga/emacs-18.59/src/amiga_dump.c    Sun Nov 22 10:13:00 1992
  28998. ***************
  28999. *** 0 ****
  29000. --- 1,721 ----
  29001. + #include <exec/types.h>
  29002. + #include <fcntl.h>
  29003. + #include <stdio.h>
  29004. + #include <assert.h>
  29005. + #include <proto/dos.h>
  29006. + #include <internal/messages.h>
  29007. + #include "config.h"
  29008. + #include "lisp.h"
  29009. + #include "buffer.h"
  29010. + #include "regex.h"
  29011. + #include "amiga.h"
  29012. + #include "dispextern.h"
  29013. + #include "termchar.h"
  29014. + 
  29015. + #define RANGE(ptr, s, e) ((char *)ptr >= (char *)s && (char *)ptr < (char *)e)
  29016. + #define HUNK_POS (VALBITS - 3)
  29017. + #define HUNK_MASK (7 << HUNK_POS)
  29018. + #define HUNK_CODE (0 << HUNK_POS)
  29019. + #define HUNK_DATA (1 << HUNK_POS)
  29020. + #define HUNK_BSS (2 << HUNK_POS)
  29021. + #define HUNK_MALLOC (3 << HUNK_POS)
  29022. + #define HUNK_PURE (4 << HUNK_POS)
  29023. + #define ARRAY_MARK_FLAG ((MARKBIT >> 1) & ~MARKBIT)
  29024. + 
  29025. + void *far first_fn = first_function, *far last_fn = last_function;
  29026. + 
  29027. + extern int *pure, puresize;
  29028. + extern struct gcpro *gcprolist;
  29029. + 
  29030. + extern Lisp_Object *staticvec[];
  29031. + extern int staticidx;
  29032. + extern struct cons_block *cons_block;
  29033. + extern struct Lisp_Cons *cons_free_list;
  29034. + extern struct Lisp_Vector *all_vectors;
  29035. + extern struct symbol_block *symbol_block;
  29036. + extern struct Lisp_Symbol *symbol_free_list;
  29037. + extern struct marker_block *marker_block;
  29038. + extern struct Lisp_Marker *marker_free_list;
  29039. + 
  29040. + struct string_block_head
  29041. +   {
  29042. +     struct string_block_head *next, *prev;
  29043. +     int pos;
  29044. +   };
  29045. + extern struct string_block_head *current_string_block;
  29046. + extern struct string_block_head *first_string_block;
  29047. + extern struct string_block_head *large_string_blocks;
  29048. + extern char *kbd_macro_buffer, *read_buffer, *chars_wasted, *copybuf;
  29049. + extern struct minibuf_save_data *minibuf_save_vector;
  29050. + extern struct re_pattern_buffer searchbuf;
  29051. + extern int *ILcost, *DLcost, *ILncost, *DLncost;
  29052. + extern Lisp_Object MouseMap, global_map, Vglobal_map, Vesc_map, Vctl_x_map;
  29053. + extern Lisp_Object Qvariable_documentation, selected_window;
  29054. + 
  29055. + extern char *callint_argfuns[];
  29056. + 
  29057. + static void *dump_malloc(int size)
  29058. + {
  29059. +   void *new = malloc(size);
  29060. + 
  29061. +   if (!new) no_memory();
  29062. + 
  29063. +   return new;
  29064. + }
  29065. + 
  29066. + static void bailout(char *fn)
  29067. + {
  29068. +   if (fn) _message("%s isn't a dump file for this version of Emacs, aborting", fn);
  29069. +   else _message("Dump file isn't for this version of Emacs, aborting");
  29070. + 
  29071. +   /* We are in deep trouble, as all our variables are potentially corrupt */
  29072. +   /* Therefore, no cleanup is possible */
  29073. +   /* Remove cleanup routines */
  29074. +   onexit(0);
  29075. +   /* However, the library & the memory allocation should be ok, so
  29076. +      we can exit reasonably */
  29077. +   _fail("Some system resources may have been lost");
  29078. + }
  29079. + 
  29080. + static void *hunk_pointer(void *ptr)
  29081. + {
  29082. +     if (!ptr) return ptr;
  29083. + 
  29084. +     if (RANGE(ptr, first_fn, last_fn))
  29085. +     return (void *)(HUNK_CODE | (char *)ptr - (char *)first_fn);
  29086. +     else if (RANGE(ptr, &first_data, &last_data))
  29087. +     return (void *)(HUNK_DATA | (char *)ptr - (char *)&first_data);
  29088. +     else if (RANGE(ptr, &first_bss, &last_bss))
  29089. +     return (void *)(HUNK_BSS | (char *)ptr - (char *)&first_bss);
  29090. +     else if (RANGE(ptr, malloc_hunk, malloc_hunk + malloc_hunk_size))
  29091. +     return (void *)(HUNK_MALLOC | (char *)ptr - malloc_hunk);
  29092. +     else if (RANGE(ptr, pure, (char *)pure + puresize))
  29093. +     return (void *)(HUNK_PURE | (char *)ptr - (char *)pure);
  29094. +     else bailout(0);
  29095. + }
  29096. + 
  29097. + static Lisp_Object hunk_lispptr(Lisp_Object *objptr, Lisp_Object val)
  29098. + {
  29099. +     int type = val & ~VALMASK;
  29100. +     void *ptr = (void *)XPNTR(val);
  29101. + 
  29102. +     if (RANGE(ptr, first_fn, last_fn))
  29103. +     return type | HUNK_CODE | (char *)ptr - (char *)first_fn;
  29104. +     else if (RANGE(ptr, &first_data, &last_data))
  29105. +     return type | HUNK_DATA | (char *)ptr - (char *)&first_data;
  29106. +     else if (RANGE(ptr, &first_bss, &last_bss))
  29107. +     return type | HUNK_BSS | (char *)ptr - (char *)&first_bss;
  29108. +     else if (RANGE(ptr, pure, (char *)pure + puresize))
  29109. +     return type | HUNK_PURE | (char *)ptr - (char *)pure;
  29110. +     else if (RANGE(ptr, malloc_hunk, malloc_hunk + malloc_hunk_size))
  29111. +     return type | HUNK_MALLOC | (char *)ptr - malloc_hunk;
  29112. +     else bailout(0);
  29113. + }
  29114. + 
  29115. + static void patch_pointers ();
  29116. + 
  29117. + static void patch_buffer (buf)
  29118. +      Lisp_Object buf;
  29119. + {
  29120. +   Lisp_Object tem;
  29121. +   register struct buffer *buffer = XBUFFER (buf);
  29122. +   register Lisp_Object *ptr;
  29123. + 
  29124. +   buffer->text.beg = hunk_pointer (buffer->text.beg);
  29125. +   patch_pointers (&buffer->markers);
  29126. + 
  29127. +   /* This is the buffer's markbit */
  29128. +   patch_pointers (&buffer->name);
  29129. +   XMARK (buffer->name);
  29130. + 
  29131. +   for (ptr = &buffer->name + 1;
  29132. +        (char *)ptr < (char *)buffer + sizeof (struct buffer);
  29133. +        ptr++)
  29134. +     patch_pointers (ptr);
  29135. + }
  29136. + 
  29137. + static void patch_pointers (objptr)
  29138. +      Lisp_Object *objptr;
  29139. + {
  29140. +   register Lisp_Object obj;
  29141. + 
  29142. +   obj = *objptr;
  29143. +   XUNMARK (obj);
  29144. + 
  29145. + 
  29146. +  loop:
  29147. + 
  29148. +   switch (XGCTYPE (obj))
  29149. +     {
  29150. +     case Lisp_String:
  29151. +       *objptr = hunk_lispptr(objptr, *objptr);
  29152. +       break;
  29153. + 
  29154. +     case Lisp_Vector:
  29155. +     case Lisp_Window:
  29156. +     case Lisp_Process:
  29157. +     case Lisp_Window_Configuration:
  29158. +       *objptr = hunk_lispptr(objptr, *objptr);
  29159. +       {
  29160. +     register struct Lisp_Vector *ptr = XVECTOR (obj);
  29161. +     register int size = ptr->size;
  29162. +     register int i;
  29163. + 
  29164. +     if (size & ARRAY_MARK_FLAG) break;   /* Already marked */
  29165. +     ptr->size |= ARRAY_MARK_FLAG; /* Else mark it */
  29166. +     for (i = 0; i < size; i++)     /* and then mark its elements */
  29167. +       patch_pointers (&ptr->contents[i]);
  29168. +       }
  29169. +       break;
  29170. + 
  29171. +     case Lisp_Symbol:
  29172. +       *objptr = hunk_lispptr(objptr, *objptr);
  29173. +       {
  29174. +     register struct Lisp_Symbol *ptr = XSYMBOL (obj);
  29175. +     struct Lisp_Symbol *ptrx;
  29176. + 
  29177. +     if (XMARKBIT (ptr->plist)) break;
  29178. +     XMARK (ptr->plist);
  29179. +     XSETTYPE (*(Lisp_Object *) &ptr->name, Lisp_String);
  29180. +     patch_pointers (&ptr->name);
  29181. +     patch_pointers ((Lisp_Object *) &ptr->value);
  29182. +     patch_pointers (&ptr->function);
  29183. +     patch_pointers (&ptr->plist);
  29184. +     objptr = (Lisp_Object *)&ptr->next;
  29185. +     ptr = ptr->next;
  29186. +     if (ptr)
  29187. +       {
  29188. +         ptrx = ptr;        /* Use pf ptrx avoids compiler bug on Sun */
  29189. +         XSETSYMBOL (obj, ptrx);
  29190. +         goto loop;
  29191. +       }
  29192. +       }
  29193. +       break;
  29194. + 
  29195. +     case Lisp_Marker: {
  29196. +     struct Lisp_Marker *ptr = XMARKER (obj);
  29197. + 
  29198. +     *objptr = hunk_lispptr(objptr, *objptr);
  29199. +     if (XMARKBIT (ptr->chain)) break;
  29200. +     XMARK (ptr->chain);
  29201. +     ptr->buffer = hunk_pointer (ptr->buffer);
  29202. +     patch_pointers (&ptr->chain);
  29203. +     break;
  29204. +     }
  29205. + 
  29206. +     case Lisp_Cons:
  29207. +     case Lisp_Buffer_Local_Value:
  29208. +     case Lisp_Some_Buffer_Local_Value:
  29209. +       *objptr = hunk_lispptr(objptr, *objptr);
  29210. +       {
  29211. +     register struct Lisp_Cons *ptr = XCONS (obj);
  29212. +     if (XMARKBIT (ptr->car)) break;
  29213. +     XMARK (ptr->car);
  29214. +     patch_pointers (&ptr->car);
  29215. +     objptr = &ptr->cdr;
  29216. +     obj = ptr->cdr;
  29217. +     goto loop;
  29218. +       }
  29219. + 
  29220. +     case Lisp_Buffer:
  29221. +       *objptr = hunk_lispptr(objptr, *objptr);
  29222. +       if (!XMARKBIT (XBUFFER (obj)->name))
  29223. +     patch_buffer (obj);
  29224. +       break;
  29225. + 
  29226. +     case Lisp_Subr: {
  29227. +     struct Lisp_Subr *subr = XSUBR(obj);
  29228. + 
  29229. +     *objptr = hunk_lispptr(objptr, *objptr);
  29230. +     if (subr->min_args & 0x8000) break;
  29231. +     subr->min_args |= 0x8000;
  29232. +     subr->function = hunk_pointer(subr->function);
  29233. +     subr->symbol_name = hunk_pointer(subr->symbol_name);
  29234. +     subr->prompt = hunk_pointer(subr->prompt);
  29235. +     if ((long)subr->doc >= 0) /* Make sure that not a doc offset */
  29236. +         subr->doc = hunk_pointer(subr->doc);
  29237. +     break;
  29238. +     }
  29239. + 
  29240. +     case Lisp_Int:
  29241. +     case Lisp_Void:
  29242. +     case Lisp_Buffer_Objfwd: break;
  29243. + 
  29244. +     case Lisp_Intfwd:
  29245. +     case Lisp_Boolfwd:
  29246. +     case Lisp_Objfwd:
  29247. +     case Lisp_Internal_Stream:
  29248. +       *objptr = hunk_lispptr(objptr, *objptr);
  29249. +     /* Don't bother with Lisp_Buffer_Objfwd,
  29250. +        since all markable slots in current buffer marked anyway.  */
  29251. +     /* Don't need to do Lisp_Objfwd, since the places they point
  29252. +        are protected with staticpro.  */
  29253. +       break;
  29254. + 
  29255. +     default:
  29256. +       abort ();
  29257. +     }
  29258. + }
  29259. + 
  29260. + static void patch_chain(void **ptr, int offset)
  29261. + {
  29262. +     while (*ptr)
  29263. +     {
  29264. +     void **next = (void **)((char *)*ptr + offset);
  29265. + 
  29266. +     *ptr = hunk_pointer(*ptr);
  29267. +     ptr = next;
  29268. +     }
  29269. + }
  29270. + 
  29271. + static void patch(void)
  29272. + {
  29273. +     int i;
  29274. +     struct string_block_head *sptr;
  29275. +     struct buffer *bptr;
  29276. +     struct mem_header *mem;
  29277. + 
  29278. +     for (i = 0; i < staticidx; i++)
  29279. +     {
  29280. +     if (!XMARKBIT(*staticvec[i]))
  29281. +     {
  29282. +         patch_pointers(staticvec[i]);
  29283. +         XMARK(*staticvec[i]);
  29284. +     }
  29285. +     staticvec[i] = hunk_pointer(staticvec[i]);
  29286. +     }
  29287. + 
  29288. +     /* Patch all the pointers normally used before a dump ! */
  29289. +     patch_chain((void **)&cons_block, 0);
  29290. +     patch_chain((void **)&cons_free_list, 0);
  29291. + 
  29292. +     patch_chain((void **)&all_vectors, 4);
  29293. + 
  29294. +     patch_chain((void **)&symbol_block, 0);
  29295. +     patch_chain((void **)&symbol_free_list, 4);
  29296. + 
  29297. +     patch_chain((void **)&marker_block, 0);
  29298. +     patch_chain((void **)&marker_free_list, 4);
  29299. + 
  29300. +     /* Strings are lots of fun */
  29301. +     patch_chain((void **)&large_string_blocks, 0);
  29302. +     sptr = first_string_block;
  29303. +     while (sptr)
  29304. +     {
  29305. +     struct string_block *next = sptr->next;
  29306. + 
  29307. +     if (sptr->next) sptr->next = hunk_pointer(sptr->next);
  29308. +     if (sptr->prev) sptr->prev = hunk_pointer(sptr->prev);
  29309. +     sptr = next;
  29310. +     }
  29311. +     first_string_block = hunk_pointer(first_string_block);
  29312. +     current_string_block = hunk_pointer(current_string_block);
  29313. + 
  29314. +     /* More fun with buffers */
  29315. +     bptr = all_buffers;
  29316. +     if (bptr)
  29317. +     {
  29318. +     while (bptr->next)
  29319. +     {
  29320. +         struct buffer *next = bptr->next;
  29321. + 
  29322. +         bptr->next = hunk_pointer(bptr->next);
  29323. +         bptr = next;
  29324. +     }
  29325. +     }
  29326. +     all_buffers = hunk_pointer(all_buffers);
  29327. +     current_buffer = hunk_pointer(current_buffer);
  29328. + 
  29329. +     kbd_macro_buffer = hunk_pointer(kbd_macro_buffer);
  29330. +     minibuf_save_vector = hunk_pointer(minibuf_save_vector);
  29331. +     searchbuf.buffer = hunk_pointer(searchbuf.buffer);
  29332. +     searchbuf.fastmap = hunk_pointer(searchbuf.fastmap);
  29333. +     specpdl = hunk_pointer(specpdl);
  29334. +     read_buffer = hunk_pointer(read_buffer);
  29335. + 
  29336. +     MouseMap = hunk_lispptr(&MouseMap, MouseMap);
  29337. +     global_map = hunk_lispptr(&global_map, global_map);
  29338. +     Vglobal_map = hunk_lispptr(&Vglobal_map, Vglobal_map);
  29339. +     Vesc_map = hunk_lispptr(&Vesc_map, Vesc_map);
  29340. +     Vctl_x_map = hunk_lispptr(&Vctl_x_map, Vctl_x_map);
  29341. + 
  29342. +     Qvariable_documentation = hunk_lispptr(&Qvariable_documentation, Qvariable_documentation);
  29343. +     selected_window = hunk_lispptr(&selected_window, selected_window);
  29344. + 
  29345. +     mem = free_list;
  29346. +     free_list = hunk_pointer(free_list);
  29347. +     while (mem)
  29348. +     {
  29349. +     struct mem_header *next = mem->next;
  29350. + 
  29351. +     mem->prev = hunk_pointer(mem->prev);
  29352. +     mem->next = hunk_pointer(mem->next);
  29353. +     mem = next;
  29354. +     }
  29355. + 
  29356. +     for (i = 0; i <= 4; i++)
  29357. +       callint_argfuns[i] = hunk_pointer(callint_argfuns[i]);
  29358. + }
  29359. + 
  29360. + static dump(char *fn)
  29361. + {
  29362. +     BPTR fd;
  29363. +     long size;
  29364. + 
  29365. +     fd = Open(fn, MODE_NEWFILE);
  29366. +     if (!fd)
  29367. +       {
  29368. +         static void unpatch();
  29369. + 
  29370. +         unpatch();
  29371. +         _fail("emacs hasn't been dumped (%s missing)", fn);
  29372. +       }
  29373. + 
  29374. +     Write(fd, (char *)&puresize, sizeof puresize);
  29375. +     Write(fd, (char *)&malloc_hunk_size, sizeof malloc_hunk_size);
  29376. +     Write(fd, (char *)&first_data, (char *)&last_data - (char *)&first_data);
  29377. +     Write(fd, (char *)&first_bss, (char *)&last_bss - (char *)&first_bss);
  29378. +     Write(fd, (char *)pure, puresize);
  29379. +     Write(fd, (char *)malloc_hunk, malloc_hunk_size);
  29380. +     Write(fd, (char *)&staticidx, sizeof staticidx);
  29381. +     Write(fd, (char *)staticvec, staticidx * sizeof(Lisp_Object *));
  29382. +     size = (char *)last_fn - (char *)first_fn;
  29383. +     Write(fd, (char *)&size, sizeof size);
  29384. + 
  29385. +     Close(fd);
  29386. + }
  29387. + 
  29388. + static void *make_pointer(void *ptr)
  29389. + {
  29390. +     int hunk = (long)ptr & HUNK_MASK;
  29391. +     int offset = (long)ptr & (VALMASK & ~HUNK_MASK);
  29392. + 
  29393. +     if (!ptr) return 0;
  29394. + 
  29395. +     if (hunk == HUNK_CODE) return (char *)first_fn + offset;
  29396. +     if (hunk == HUNK_DATA) return (char *)&first_data + offset;
  29397. +     if (hunk == HUNK_BSS) return (char *)&first_bss + offset;
  29398. +     if (hunk == HUNK_PURE) return (char *)pure + offset;
  29399. +     if (hunk == HUNK_MALLOC) return malloc_hunk + offset;
  29400. +     assert(0);
  29401. + }
  29402. + 
  29403. + static Lisp_Object make_lispptr(Lisp_Object *objptr, Lisp_Object obj)
  29404. + {
  29405. +     long val = XUINT(obj);
  29406. +     int hunk = val & HUNK_MASK;
  29407. +     int offset = val & ~HUNK_MASK;
  29408. +     char *ptr;
  29409. + 
  29410. +     if (hunk == HUNK_CODE) ptr = (char *)first_fn + offset;
  29411. +     else if (hunk == HUNK_DATA) ptr = (char *)&first_data + offset;
  29412. +     else if (hunk == HUNK_BSS) ptr = (char *)&first_bss + offset;
  29413. +     else if (hunk == HUNK_PURE) ptr = (char *)pure + offset;
  29414. +     else if (hunk == HUNK_MALLOC) ptr = malloc_hunk + offset;
  29415. +     else assert(0);
  29416. + 
  29417. +     XSETPNTR(obj, (long)ptr);
  29418. +     return obj;
  29419. + }
  29420. + 
  29421. + static void unpatch_pointers ();
  29422. + 
  29423. + static void unpatch_buffer (buf)
  29424. +      Lisp_Object buf;
  29425. + {
  29426. +   Lisp_Object tem;
  29427. +   register struct buffer *buffer = XBUFFER (buf);
  29428. +   register Lisp_Object *ptr;
  29429. + 
  29430. +   buffer->text.beg = make_pointer (buffer->text.beg);
  29431. +   unpatch_pointers (&buffer->markers);
  29432. + 
  29433. +   /* This is the buffer's markbit */
  29434. +   XUNMARK (buffer->name);
  29435. +   unpatch_pointers (&buffer->name);
  29436. + 
  29437. +   for (ptr = &buffer->name + 1;
  29438. +        (char *)ptr < (char *)buffer + sizeof (struct buffer);
  29439. +        ptr++)
  29440. +     unpatch_pointers (ptr);
  29441. + }
  29442. + 
  29443. + static void unpatch_pointers (objptr)
  29444. +      Lisp_Object *objptr;
  29445. + {
  29446. +   register Lisp_Object obj;
  29447. + 
  29448. +   obj = *objptr;
  29449. +   XUNMARK (obj);
  29450. + 
  29451. + 
  29452. +  loop:
  29453. + 
  29454. +   switch (XGCTYPE (obj))
  29455. +     {
  29456. +     case Lisp_String:
  29457. +       *objptr = make_lispptr(objptr, *objptr);
  29458. +       break;
  29459. + 
  29460. +     case Lisp_Vector:
  29461. +     case Lisp_Window:
  29462. +     case Lisp_Process:
  29463. +     case Lisp_Window_Configuration:
  29464. +       obj = *objptr = make_lispptr(objptr, *objptr);
  29465. +       {
  29466. +     register struct Lisp_Vector *ptr = XVECTOR (obj);
  29467. +     register int size;
  29468. +     register int i;
  29469. + 
  29470. +     if (!(ptr->size & ARRAY_MARK_FLAG)) break;   /* Already unmarked */
  29471. +     size = ptr->size &= ~ARRAY_MARK_FLAG; /* Else unmark it */
  29472. +     for (i = 0; i < size; i++)     /* and then unmark its elements */
  29473. +       unpatch_pointers (&ptr->contents[i]);
  29474. +       }
  29475. +       break;
  29476. + 
  29477. +     case Lisp_Symbol:
  29478. +       obj = *objptr = make_lispptr(objptr, *objptr);
  29479. +       {
  29480. +     register struct Lisp_Symbol *ptr = XSYMBOL (obj);
  29481. +     struct Lisp_Symbol *ptrx;
  29482. + 
  29483. +     if (!XMARKBIT (ptr->plist)) break;
  29484. +     XUNMARK (ptr->plist);
  29485. +     unpatch_pointers (&ptr->name);
  29486. +     ptr->name = XSTRING (*(Lisp_Object *)&ptr->name);
  29487. +     unpatch_pointers ((Lisp_Object *) &ptr->value);
  29488. +     unpatch_pointers (&ptr->function);
  29489. +     unpatch_pointers (&ptr->plist);
  29490. +     objptr = (Lisp_Object *)&ptr->next;
  29491. +     ptr = ptr->next;
  29492. +     if (ptr)
  29493. +       {
  29494. +         ptrx = ptr;        /* Use pf ptrx avoids compiler bug on Sun */
  29495. +         XSET (obj, Lisp_Symbol, ptrx);
  29496. +         goto loop;
  29497. +       }
  29498. +       }
  29499. +       break;
  29500. + 
  29501. +     case Lisp_Marker: {
  29502. +     struct Lisp_Marker *ptr;
  29503. + 
  29504. +     obj = *objptr = make_lispptr(objptr, *objptr);
  29505. +     ptr = XMARKER (obj);
  29506. +     if (!XMARKBIT (ptr->chain)) break;
  29507. +     XUNMARK (ptr->chain);
  29508. +     ptr->buffer = make_pointer (ptr->buffer);
  29509. +     unpatch_pointers (&ptr->chain);
  29510. +     break;
  29511. +     }
  29512. + 
  29513. +     case Lisp_Cons:
  29514. +     case Lisp_Buffer_Local_Value:
  29515. +     case Lisp_Some_Buffer_Local_Value:
  29516. +       obj = *objptr = make_lispptr(objptr, *objptr);
  29517. +       {
  29518. +     register struct Lisp_Cons *ptr = XCONS (obj);
  29519. +     if (!XMARKBIT (ptr->car)) break;
  29520. +     XUNMARK (ptr->car);
  29521. +     unpatch_pointers (&ptr->car);
  29522. +     objptr = &ptr->cdr;
  29523. +     obj = ptr->cdr;
  29524. +     goto loop;
  29525. +       }
  29526. + 
  29527. +     case Lisp_Buffer:
  29528. +       obj = *objptr = make_lispptr(objptr, *objptr);
  29529. +       if (XMARKBIT (XBUFFER (obj)->name))
  29530. +     unpatch_buffer (obj);
  29531. +       break;
  29532. + 
  29533. +     case Lisp_Subr: {
  29534. +     struct Lisp_Subr *subr;
  29535. + 
  29536. +     obj = *objptr = make_lispptr(objptr, *objptr);
  29537. +     subr = XSUBR(obj);
  29538. +     if (!(subr->min_args & 0x8000)) break;
  29539. +     subr->min_args &= ~0x8000;
  29540. +     subr->function = make_pointer(subr->function);
  29541. +     subr->symbol_name = make_pointer(subr->symbol_name);
  29542. +     subr->prompt = make_pointer(subr->prompt);
  29543. +     if ((long)subr->doc >= 0) /* Make sure that not a doc offset */
  29544. +         subr->doc = make_pointer(subr->doc);
  29545. +     break;
  29546. +     }
  29547. + 
  29548. +     case Lisp_Int:
  29549. +     case Lisp_Void:
  29550. +     case Lisp_Buffer_Objfwd: break;
  29551. + 
  29552. +     case Lisp_Intfwd:
  29553. +     case Lisp_Boolfwd:
  29554. +     case Lisp_Objfwd:
  29555. +     case Lisp_Internal_Stream:
  29556. +       *objptr = make_lispptr(objptr, *objptr);
  29557. +     /* Don't bother with Lisp_Buffer_Objfwd,
  29558. +        since all markable slots in current buffer marked anyway.  */
  29559. +     /* Don't need to do Lisp_Objfwd, since the places they point
  29560. +        are protected with staticpro.  */
  29561. +       break;
  29562. + 
  29563. +     default:
  29564. +       abort ();
  29565. +     }
  29566. + }
  29567. + 
  29568. + static void unpatch_chain(void **ptr, int offset)
  29569. + {
  29570. +     while (*ptr)
  29571. +     {
  29572. +     *ptr = make_pointer(*ptr);
  29573. +     ptr = (void **)((char *)*ptr + offset);
  29574. +     }
  29575. + }
  29576. + 
  29577. + /* Reconstructs the addresses that were patched */
  29578. + static void unpatch(void)
  29579. + {
  29580. +     int fd, i;
  29581. +     struct string_block_head *sptr;
  29582. +     struct buffer *bptr;
  29583. +     struct mem_header *mem;
  29584. + 
  29585. +     for (i = 0; i < staticidx; i++)
  29586. +     {
  29587. +     staticvec[i] = make_pointer(staticvec[i]);
  29588. +     if (XMARKBIT(*staticvec[i]))
  29589. +     {
  29590. +         XUNMARK(*staticvec[i]);
  29591. +         unpatch_pointers(staticvec[i]);
  29592. +     }
  29593. +     }
  29594. + 
  29595. +     /* Unpatch all the pointers normally used before a dump ! */
  29596. +     unpatch_chain((void **)&cons_block, 0);
  29597. +     unpatch_chain((void **)&cons_free_list, 0);
  29598. + 
  29599. +     unpatch_chain((void **)&all_vectors, 4);
  29600. + 
  29601. +     unpatch_chain((void **)&symbol_block, 0);
  29602. +     unpatch_chain((void **)&symbol_free_list, 4);
  29603. + 
  29604. +     unpatch_chain((void **)&marker_block, 0);
  29605. +     unpatch_chain((void **)&marker_free_list, 4);
  29606. + 
  29607. +     /* Strings are lots of fun */
  29608. +     unpatch_chain((void **)&large_string_blocks, 0);
  29609. +     sptr = first_string_block = make_pointer(first_string_block);
  29610. +     current_string_block = make_pointer(current_string_block);
  29611. +     while (sptr)
  29612. +     {
  29613. +     if (sptr->next) sptr->next = make_pointer(sptr->next);
  29614. +     if (sptr->prev) sptr->prev = make_pointer(sptr->prev);
  29615. +     sptr = sptr->next;
  29616. +     }
  29617. + 
  29618. +     /* More fun with buffers */
  29619. +     bptr = all_buffers = make_pointer(all_buffers);
  29620. +     if (bptr)
  29621. +     {
  29622. +     while (bptr->next)
  29623. +     {
  29624. +         bptr->next = make_pointer(bptr->next);
  29625. +         bptr = bptr->next;
  29626. +     }
  29627. +     }
  29628. +     current_buffer = make_pointer(current_buffer);
  29629. + 
  29630. +     kbd_macro_buffer = make_pointer(kbd_macro_buffer);
  29631. +     minibuf_save_vector = make_pointer(minibuf_save_vector);
  29632. +     searchbuf.buffer = make_pointer(searchbuf.buffer);
  29633. +     searchbuf.fastmap = make_pointer(searchbuf.fastmap);
  29634. +     specpdl = make_pointer(specpdl);
  29635. +     read_buffer = make_pointer(read_buffer);
  29636. + 
  29637. +     MouseMap = make_lispptr(&MouseMap, MouseMap);
  29638. +     global_map = make_lispptr(&global_map, global_map);
  29639. +     Vglobal_map = make_lispptr(&Vglobal_map, Vglobal_map);
  29640. +     Vesc_map = make_lispptr(&Vesc_map, Vesc_map);
  29641. +     Vctl_x_map = make_lispptr(&Vctl_x_map, Vctl_x_map);
  29642. + 
  29643. +     Qvariable_documentation = make_lispptr(&Qvariable_documentation, Qvariable_documentation);
  29644. +     selected_window = make_lispptr(&selected_window, selected_window);
  29645. + 
  29646. +     free_list = make_pointer(free_list);
  29647. +     mem = free_list;
  29648. +     while (mem)
  29649. +     {
  29650. +     mem->prev = make_pointer(mem->prev);
  29651. +     mem->next = make_pointer(mem->next);
  29652. +     mem = mem->next;
  29653. +     }
  29654. + 
  29655. +     for (i = 0; i <= 4; i++)
  29656. +       callint_argfuns[i] = make_pointer(callint_argfuns[i]);
  29657. + }
  29658. + 
  29659. + static undump(char *fn)
  29660. + {
  29661. +   BPTR fd;
  29662. +   long code_size;
  29663. +   char *_malloc_hunk;
  29664. +   int *_pure;
  29665. +   /*extern struct Library *FifoBase;
  29666. +   struct Library *_FifoBase = FifoBase;*/
  29667. + 
  29668. +   fd = Open(fn, MODE_OLDFILE);
  29669. +   if (!fd) return 0;
  29670. + 
  29671. +   Read(fd, (char *)&puresize, sizeof puresize);
  29672. +   Read(fd, (char *)&malloc_hunk_size, sizeof malloc_hunk_size);
  29673. +   _pure = dump_malloc(puresize);
  29674. +   _malloc_hunk = dump_malloc(malloc_hunk_size + pre_alloc);
  29675. +   Read(fd, (char *)&first_data, (char *)&last_data - (char *)&first_data);
  29676. +   Read(fd, (char *)&first_bss, (char *)&last_bss - (char *)&first_bss);
  29677. +   Read(fd, (char *)_pure, puresize);
  29678. +   Read(fd, (char *)_malloc_hunk, malloc_hunk_size);
  29679. +   Read(fd, (char *)&staticidx, sizeof staticidx);
  29680. +   Read(fd, (char *)staticvec, staticidx * sizeof(Lisp_Object *));
  29681. +   /*FifoBase = _FifoBase;*/
  29682. +   if (Read(fd, (char *)&code_size, sizeof code_size) != sizeof code_size ||
  29683. +       code_size != (char *)last_fn - (char *)first_fn)
  29684. +     bailout(fn);
  29685. + 
  29686. +   Close(fd);
  29687. +   malloc_hunk = _malloc_hunk;
  29688. +   pure = _pure;
  29689. +   return 1;
  29690. + }
  29691. + 
  29692. + void map_out_data(char *fn)
  29693. + {
  29694. +     if (amiga_initialized) error("You can only dump once !");
  29695. +     Fgarbage_collect();
  29696. + 
  29697. +     patch();
  29698. +     dump(fn);
  29699. +     unpatch();
  29700. +     amiga_initialized = 1;
  29701. + }
  29702. + 
  29703. + void map_in_data(int load)
  29704. + {
  29705. +     if (load && undump("GNUEmacs:etc/EMACS-DATA"))
  29706. +     {
  29707. +     unpatch();
  29708. +     current_screen = new_screen = temp_screen = 0;
  29709. +     message_buf = 0;
  29710. +     chars_wasted = copybuf = 0;
  29711. +     DC_ICcost = 0;
  29712. +     ILcost = DLcost = ILncost = DLncost = 0;
  29713. +     initialized = amiga_initialized = 1;
  29714. +     }
  29715. +     else
  29716. +       {
  29717. +     malloc_hunk = dump_malloc(malloc_hunk_size + pre_alloc);
  29718. +     pure = dump_malloc(puresize);
  29719. +       }
  29720. +     amiga_undump_reinit();
  29721. + }
  29722. diff -rc --new-file emacs-18.59/src/amiga_malloc.c /gnu/src/amiga/emacs-18.59/src/amiga_malloc.c
  29723. *** emacs-18.59/src/amiga_malloc.c    Thu Jan  1 00:00:00 1970
  29724. --- /gnu/src/amiga/emacs-18.59/src/amiga_malloc.c    Sat Dec  5 16:36:46 1992
  29725. ***************
  29726. *** 0 ****
  29727. --- 1,321 ----
  29728. + /* Emulation of some unix functions for emacs.
  29729. + Copyright (C) 1985, 1986, 1987, 1988 Free Software Foundation, Inc.
  29730. + 
  29731. + This file is part of GNU Emacs.
  29732. + 
  29733. + GNU Emacs is distributed in the hope that it will be useful,
  29734. + but WITHOUT ANY WARRANTY.  No author or distributor
  29735. + accepts responsibility to anyone for the consequences of using it
  29736. + or for whether it serves any particular purpose or works at all,
  29737. + unless he says so in writing.  Refer to the GNU Emacs General Public
  29738. + License for full details.
  29739. + 
  29740. + Everyone is granted permission to copy, modify and redistribute
  29741. + GNU Emacs, but only under the conditions described in the
  29742. + GNU Emacs General Public License.   A copy of this license is
  29743. + supposed to have been given to you along with GNU Emacs so you
  29744. + can know your rights and responsibilities.  It should be in a
  29745. + file named COPYING.  Among other things, the copyright notice
  29746. + and this notice must be preserved on all copies.  */
  29747. + 
  29748. + #include <exec/types.h>
  29749. + #include <exec/memory.h>
  29750. + #include <proto/exec.h>
  29751. + 
  29752. + #undef LONGBITS
  29753. + #undef NULL
  29754. + #include "config.h"
  29755. + #include "lisp.h"
  29756. + #include "amiga.h"
  29757. + 
  29758. + /* Memory stuff */
  29759. + long far DataSegBits;
  29760. + static int DataSegFound;
  29761. + static struct mem_header *far current;
  29762. + struct mem_header *free_list;
  29763. + extern int alloca_calling;
  29764. + extern int *pure;
  29765. + long far pre_alloc;    /* amount of memory to reserve for emacs */
  29766. + char *malloc_hunk;
  29767. + long malloc_hunk_size = MALLOC_HUNK_SIZE; /* Amount of memory malloc'ed by a
  29768. +                          to-be-dumped emacs */
  29769. + long malloc_bytes_used;    /* Amount of this hunk actually used */
  29770. + static int early_malloc = TRUE;    /* Before we undump, we want system allocations */
  29771. + 
  29772. + #define ADDR_OK(x) (((long)x & ~VALMASK) == DataSegBits)
  29773. + 
  29774. + /* Memory allocation code */
  29775. + /* ---------------------- */
  29776. + 
  29777. + static void *alloc_sys(long memsize)
  29778. + /* Effect: Allocate from AmigaOS (via AllocMem). */
  29779. + {
  29780. +   /* Allocation rounded up to multiple of 4 */
  29781. +   long size = ((memsize + 3) & ~3) + sizeof(struct mem_header);
  29782. +   struct mem_header *mem;
  29783. + 
  29784. +   if (!DataSegFound)
  29785. +     {
  29786. +       /* Find page containing Pure data. All data used by emacs must be
  29787. +      on the same page (As a page is 2^26 bytes, this shouldn't be too
  29788. +      unlikely). */
  29789. +       DataSegBits = (long)&first_data & ~VALMASK;
  29790. +       if (!(ADDR_OK(first_fn) && ADDR_OK(last_fn) &&
  29791. +         ADDR_OK(&first_data) && ADDR_OK(&last_data) &&
  29792. +         ADDR_OK(&first_bss) && ADDR_OK(&last_bss)))
  29793. +     _fail("I can't handle your memory configuration");
  29794. +       DataSegFound = TRUE;
  29795. +     }
  29796. + 
  29797. +   mem = AllocMem(size, 0);
  29798. +   if (!mem) return 0;
  29799. +   /* All memory *must* be allocated on the same page ! */
  29800. +   if (!ADDR_OK(mem))
  29801. +     {
  29802. +       FreeMem(mem, size);
  29803. +       return 0;
  29804. +     }
  29805. +   if (current) current->prev = mem;
  29806. +   mem->next = current;
  29807. +   mem->prev = 0;
  29808. +   current = mem;
  29809. +   mem->size = size;
  29810. + 
  29811. +   return mem + 1;
  29812. + }
  29813. + 
  29814. + static void free_sys(char *p)
  29815. + {
  29816. +   struct mem_header *old = (struct mem_header *)p - 1;
  29817. + 
  29818. +   if (old == current)
  29819. +     {
  29820. +       current = current->next;
  29821. +       if (current) current->prev = 0;
  29822. +     }
  29823. +   else
  29824. +     {
  29825. +       old->prev->next = old->next;
  29826. +       if (old->next) old->next->prev = old->prev;
  29827. +     }
  29828. +   FreeMem(old, old->size);
  29829. + }
  29830. + 
  29831. + void _MemCleanup(void)
  29832. + {
  29833. +   struct mem_header *next;
  29834. + 
  29835. +   while (current)
  29836. +     {
  29837. +       next = current->next;
  29838. +       FreeMem(current, current->size);
  29839. +       current = next;
  29840. +     }
  29841. + }
  29842. + 
  29843. + static void *alloc_hunk(long memsize)
  29844. + /* Effect: Allocates from the malloc hunk (which is dumped to disk).
  29845. + */
  29846. + {
  29847. +   /* Allocation rounded up to multiple of 4 */
  29848. +   long size = ((memsize + 3) & ~3) + sizeof(struct mem_header);
  29849. +   /* Find a free block in the memory list */
  29850. +   struct mem_header *scan = free_list->next;
  29851. + 
  29852. +   while (scan->size > 0)
  29853. +     {
  29854. +       if (size < scan->size)    /* Found ! */
  29855. +     {
  29856. +       long end;
  29857. + 
  29858. +       /* Split block if big enough */
  29859. +       if (size + sizeof(struct mem_header) + 8 > scan->size)
  29860. +         {
  29861. +           /* Remove block from list */
  29862. +           scan->prev->next = scan->next;
  29863. +           scan->next->prev = scan->prev;
  29864. +         }
  29865. +       else
  29866. +         {
  29867. +           /* Split block */
  29868. +           struct mem_header *new = (struct mem_header *)((char *)scan + size);
  29869. + 
  29870. +           new->prev = scan->prev;
  29871. +           new->next = scan->next;
  29872. +           scan->prev->next = new;
  29873. +           scan->next->prev = new;
  29874. +           new->size = scan->size - size;
  29875. +           scan->size = size;
  29876. +         }
  29877. +       if (!amiga_initialized)
  29878. +         {
  29879. +           end = (char *)scan - (char *)free_list + scan->size +
  29880. +         sizeof(long) + sizeof(struct mem_header);
  29881. +           if (end > malloc_bytes_used) malloc_bytes_used = end;
  29882. +         }
  29883. +       return scan + 1;
  29884. +     }
  29885. +       scan = scan->next;
  29886. +     }
  29887. +   return 0;
  29888. + }
  29889. + 
  29890. + static void free_hunk(char *p)
  29891. + {
  29892. +   struct mem_header *old = (struct mem_header *)p - 1, *scan = free_list;
  29893. + 
  29894. +   do scan = scan->next; while (scan < old);
  29895. + 
  29896. +   /* Check for merges (potentially with both sides) */
  29897. +   if ((char *)scan->prev + scan->prev->size == (char *)old)
  29898. +     if ((char *)old + old->size == (char *)scan)
  29899. +       {
  29900. +     /* Merge all 3 blocks together */
  29901. +     scan->prev->size += old->size + scan->size;
  29902. +     scan->next->prev = scan->prev;
  29903. +     scan->prev->next = scan->next;
  29904. +       }
  29905. +     else            /* Merge with previous block */
  29906. +       scan->prev->size += old->size;
  29907. +   else if ((char *)old + old->size == (char *)scan)
  29908. +     {
  29909. +       /* Merge with next block */
  29910. +       old->size += scan->size;
  29911. +       scan->prev->next = old;
  29912. +       scan->next->prev = old;
  29913. +       old->prev = scan->prev;
  29914. +       old->next = scan->next;
  29915. +     }
  29916. +   else                /* Add a new block */
  29917. +     {
  29918. +       old->next = scan;
  29919. +       old->prev = scan->prev;
  29920. +       scan->prev->next = old;
  29921. +       scan->prev = old;
  29922. +     }
  29923. + }
  29924. + 
  29925. + char *__halloc(long size)
  29926. + {
  29927. +   if (early_malloc) return alloc_sys(size);
  29928. + 
  29929. +   if (!amiga_initialized)
  29930. +     if (alloca_calling)
  29931. +       {
  29932. +     alloca_calling = 0;
  29933. +     return alloc_sys(size);
  29934. +       }
  29935. +     else
  29936. +       {
  29937. +     void *mem = alloc_hunk(size);
  29938. + 
  29939. +     if (!mem) 
  29940. +       _fail("Emacs dump: ran out of memory for malloc. \n"
  29941. +         "See the -malloc option for more information.\n");
  29942. +     return mem;
  29943. +       }
  29944. +   else
  29945. +     {
  29946. +       alloca_calling = 0;
  29947. +       if (pre_alloc)
  29948. +     {
  29949. +       void *mem;
  29950. + 
  29951. +       if (mem = alloc_hunk(size)) return mem;
  29952. +     }
  29953. +       return alloc_sys(size);
  29954. +     }
  29955. + }
  29956. + 
  29957. + char *malloc(int size)
  29958. + {
  29959. +   return __halloc(size);
  29960. + }
  29961. + 
  29962. + free(void *p)
  29963. + {
  29964. +   struct mem_header *old = (struct mem_header *)p - 1;
  29965. + 
  29966. +   if ((char *)p >= malloc_hunk &&
  29967. +       (char *)p <= malloc_hunk + malloc_hunk_size + pre_alloc)
  29968. +     {
  29969. +       if (!amiga_initialized || pre_alloc) free_hunk(p);
  29970. +     }
  29971. +   else free_sys(p);
  29972. + }
  29973. + 
  29974. + char *calloc(long n, long size)
  29975. + {
  29976. +   char *t;
  29977. +   long rsize = n * size;
  29978. + 
  29979. +   t = malloc(rsize);
  29980. +   if (t) memset (t, 0, rsize);
  29981. + 
  29982. +   return t;
  29983. + }
  29984. + 
  29985. + char *realloc(char *p, long size)
  29986. + {
  29987. +   char *new = malloc(size);
  29988. +   struct mem_header *old = (struct mem_header *)p - 1;
  29989. + 
  29990. +   if (new)
  29991. +     {
  29992. +       long minsize;
  29993. +       long oldsize = old->size - sizeof(struct mem_header);
  29994. + 
  29995. +       if (size < oldsize) minsize = size;
  29996. +       else minsize = oldsize;
  29997. + 
  29998. +       memcpy(new, p, minsize);
  29999. +     }
  30000. +   free(p);
  30001. +   return new;
  30002. + }
  30003. + 
  30004. + void emacs_malloc_init(void)
  30005. + {
  30006. +   struct mem_header *end_sentinel, *new_end, *new_block;
  30007. + 
  30008. +   early_malloc = FALSE;        /* We now have a malloc hunk */
  30009. + 
  30010. +   /* Set up the memory allocation in the malloc hunk */
  30011. +   free_list = (struct mem_header *)malloc_hunk;
  30012. +   end_sentinel = (struct mem_header *)((char *)free_list + malloc_hunk_size
  30013. +                        - sizeof(struct mem_header));
  30014. +   if (!amiga_initialized)
  30015. +     {
  30016. +       /* Before dumping */
  30017. +       free_list->next = free_list + 1;
  30018. +       free_list->prev = 0;
  30019. +       free_list->size = 0;    /* Prevents merges with this pseudo-block */
  30020. +       free_list[1].prev = free_list;
  30021. +       free_list[1].next = end_sentinel;
  30022. +       free_list[1].size =
  30023. +     malloc_hunk_size - 2 * sizeof(struct mem_header) - sizeof(long);
  30024. +       /* The - sizeof(long) prevents any merges with end_sentinel */
  30025. + 
  30026. +       end_sentinel->size = 0;
  30027. +       end_sentinel->prev = free_list + 1;
  30028. +       end_sentinel->next = 0;
  30029. + 
  30030. +       malloc_bytes_used = 0;
  30031. +     }
  30032. +   else if (pre_alloc)
  30033. +     {
  30034. +       /* After having undumped extend malloc block */
  30035. +       /* Move end_sentinel: */
  30036. +       new_end = (struct mem_header *)((char *)free_list + malloc_hunk_size +
  30037. +                       pre_alloc - sizeof(struct mem_header));
  30038. +       new_end->size = 0;
  30039. +       new_end->next = 0;
  30040. +       new_end->prev = end_sentinel->prev;
  30041. +       end_sentinel->prev->next = new_end;
  30042. + 
  30043. +       /* Add extra memory (pre_alloc bytes) */
  30044. +       new_block = (struct mem_header *)((char *)end_sentinel - sizeof(long));
  30045. +       new_block->size = pre_alloc;
  30046. +       free_hunk((char *)(new_block + 1));
  30047. +     }
  30048. + }
  30049. diff -rc --new-file emacs-18.59/src/amiga_menu.c /gnu/src/amiga/emacs-18.59/src/amiga_menu.c
  30050. *** emacs-18.59/src/amiga_menu.c    Thu Jan  1 00:00:00 1970
  30051. --- /gnu/src/amiga/emacs-18.59/src/amiga_menu.c    Thu Sep 30 21:27:42 1993
  30052. ***************
  30053. *** 0 ****
  30054. --- 1,309 ----
  30055. + #include <exec/types.h>
  30056. + #include <libraries/gadtools.h>
  30057. + #include <intuition/intuition.h>
  30058. + #include <proto/exec.h>
  30059. + #include <proto/dos.h>
  30060. + #include <proto/gadtools.h>
  30061. + #include <proto/intuition.h>
  30062. + #include "config.h"
  30063. + #undef NULL
  30064. + #include "lisp.h"
  30065. + #include "amiga.h"
  30066. + 
  30067. + #ifndef GTMN_NewLookMenus
  30068. + #define GTMN_NewLookMenus    GT_TagBase+67
  30069. + #endif
  30070. + 
  30071. + static struct Menu *emacs_menu;
  30072. + static char *emacs_menu_strings;
  30073. + static APTR win_vi;
  30074. + struct Library *GadToolsBase;
  30075. + 
  30076. + void suspend_menus(void)
  30077. + {
  30078. +   if (emacs_win)
  30079. +     {
  30080. +       ClearMenuStrip(emacs_win);
  30081. +       if (win_vi)
  30082. +     {
  30083. +       FreeVisualInfo(win_vi);
  30084. +       win_vi = 0;
  30085. +     }
  30086. +     }
  30087. + }
  30088. + 
  30089. + int resume_menus(void)
  30090. + {
  30091. +   if (emacs_win && emacs_menu)
  30092. +     {
  30093. +       win_vi = GetVisualInfo(emacs_win->WScreen, TAG_END);
  30094. + 
  30095. +       if (!win_vi || !LayoutMenus(emacs_menu, win_vi,
  30096. +                   GTMN_NewLookMenus, 1L,
  30097. +                   TAG_END))
  30098. +     {
  30099. +       if (win_vi) FreeVisualInfo(win_vi);
  30100. +       Famiga_delete_menus();
  30101. + 
  30102. +       return FALSE;
  30103. +     }
  30104. +       SetMenuStrip(emacs_win, emacs_menu);
  30105. +     }
  30106. +   return TRUE;
  30107. + }
  30108. + 
  30109. + DEFUN ("amiga-menus", Famiga_menus, Samiga_menus, 1, 1, 0,
  30110. +   "Define menus for emacs. The argument is a list structured as follows:\n\
  30111. +    ((menu1-name ((item1-name item1-expr item1-key item1-disabled) ...)\n\
  30112. +      menu1-disabled) ...)\n\
  30113. + menu-name is the name of the menu item header.\n\
  30114. + The menu is disabled if menu-disabled is not nil [optional].\n\
  30115. + item-name is the name of an item.\n\
  30116. + The item-expr fields are ignored.\n\
  30117. + If item-key is nil, no shortcut is allowed.\n\
  30118. + If item-disabled is not nil, the item is disabled.\n\
  30119. + If the item information list is nil, a line is drawn in the menu.\n\
  30120. + item-key & item-disabled are optional.")
  30121. +   (menus)
  30122. +      Lisp_Object menus;
  30123. + {
  30124. +     Lisp_Object s_menus, s_items;
  30125. +     int citems, slen;
  30126. +     char *strdata;
  30127. +     struct NewMenu *menudata, *mkm;
  30128. +     struct Lisp_String *name;
  30129. + 
  30130. + /*    int i;
  30131. +     extern int total[], nb[];
  30132. + 
  30133. +     for (i = 0; i < 16; i++)
  30134. +     {
  30135. +     printf("%d(%d) ", total[i], nb[i]);
  30136. +     total[i] = nb[i] = 0;
  30137. +     }
  30138. +     printf("\n");
  30139. +     start_count(15);
  30140. +     for (i = 0; i < 100; i++) { suspend_count(15); resume_count(15); }
  30141. +     stop_count(15);
  30142. +     for (i = 0; i < 100; i++) { start_count(14); stop_count(14); }
  30143. +     printf("100 s/r: %d, 100 s/s: %d\n", total[15], total[14]);
  30144. + 
  30145. +     return Qnil;
  30146. + */
  30147. +     check_intuition();
  30148. + 
  30149. +     /* Check structure of parameter & count # items & menus */
  30150. +     s_menus = menus;
  30151. +     citems = slen = 0;
  30152. + 
  30153. +     while (!NULL(s_menus))
  30154. +     {
  30155. +     struct Lisp_Cons *menu, *menu_cell;
  30156. + 
  30157. +     CHECK_CONS(s_menus, 0);
  30158. +     menu_cell = XCONS(s_menus);
  30159. +     citems++;
  30160. +     CHECK_CONS(menu_cell->car, 0); /* Each menu is a list */
  30161. +     menu = XCONS(menu_cell->car);
  30162. + 
  30163. +     CHECK_STRING(menu->car, 0); /* Check name */
  30164. +     name = XSTRING(menu->car);
  30165. +     slen += name->size + 1;
  30166. +     CHECK_CONS(menu->cdr, 0);
  30167. + 
  30168. +     menu = XCONS(menu->cdr); /* Check items */
  30169. + 
  30170. +     s_items = menu->car;
  30171. +     while (!NULL(s_items))
  30172. +     {
  30173. +         struct Lisp_Cons *item, *item_cell;
  30174. + 
  30175. +         CHECK_CONS(s_items, 0);
  30176. +         item_cell = XCONS(s_items);
  30177. +         citems++;
  30178. +         if (!NULL(item_cell->car))
  30179. +         {
  30180. +         CHECK_CONS(item_cell->car, 0); /* Each item is a list */
  30181. +         item = XCONS(item_cell->car);
  30182. + 
  30183. +         CHECK_STRING(item->car, 0);
  30184. +         name = XSTRING(item->car);
  30185. +         slen += name->size + 1;
  30186. + 
  30187. +         if (!NULL(item->cdr)) /* Only name is necessary */
  30188. +         {
  30189. +             CHECK_CONS(item->cdr, 0);
  30190. +             item = XCONS(item->cdr);
  30191. + 
  30192. +             /* Expr is arbitrary */
  30193. +             if (!NULL(item->cdr))
  30194. +             {
  30195. +             CHECK_CONS(item->cdr, 0);
  30196. +             item = XCONS(item->cdr);
  30197. + 
  30198. +             /* Check shortcut */
  30199. +             if (!NULL(item->car))
  30200. +             {
  30201. +                 CHECK_NUMBER(item->car, 0);
  30202. +                 slen += 2;
  30203. +             }
  30204. + 
  30205. +             if (!NULL(item->cdr))
  30206. +             {
  30207. +                 CHECK_CONS(item->cdr, 0);
  30208. +                 item = XCONS(item->cdr);
  30209. + 
  30210. +                 /* Check that end of list */
  30211. +                 if (!NULL(item->cdr)) error("Badly formed item");
  30212. +             }
  30213. +             }
  30214. +         }
  30215. +         }
  30216. +         s_items = item_cell->cdr;
  30217. +     }
  30218. +     if (!NULL(menu->cdr))
  30219. +     {
  30220. +         CHECK_CONS(menu->cdr, 0);
  30221. +         menu = XCONS(menu->cdr);
  30222. +         if (!NULL(menu->cdr)) error("Badly formed menu");
  30223. +     }
  30224. +     s_menus = menu_cell->cdr;
  30225. +     }
  30226. + 
  30227. +     suspend_menus();
  30228. +     if (emacs_menu) Famiga_delete_menus();
  30229. + 
  30230. +     /* Now create menu structure */
  30231. +     menudata = (struct NewMenu *)alloca(sizeof(struct NewMenu) * (citems + 1));
  30232. +     emacs_menu_strings = strdata = (char *)xmalloc(slen);
  30233. +     mkm = menudata;
  30234. +     s_menus = menus;
  30235. +     while (!NULL(s_menus))
  30236. +     {
  30237. +     struct Lisp_Cons *menu, *menu_cell;
  30238. +     struct NewMenu *menu1;
  30239. + 
  30240. +     menu_cell = XCONS(s_menus);
  30241. +     mkm->nm_Type = NM_TITLE;
  30242. +     menu = XCONS(menu_cell->car);
  30243. +     name = XSTRING(menu->car);
  30244. +     strcpy(strdata, name->data);
  30245. +     mkm->nm_Label = strdata;
  30246. +     strdata += name->size + 1;
  30247. +     mkm->nm_CommKey = 0;
  30248. +     mkm->nm_Flags = 0;
  30249. +     mkm->nm_MutualExclude = 0;
  30250. +     menu1 = mkm++;
  30251. + 
  30252. +     menu = XCONS(menu->cdr); /* Check items */
  30253. + 
  30254. +     s_items = menu->car;
  30255. +     while (!NULL(s_items))
  30256. +     {
  30257. +         struct Lisp_Cons *item, *item_cell;
  30258. + 
  30259. +         item_cell = XCONS(s_items);
  30260. +         mkm->nm_Type = NM_ITEM;
  30261. +         mkm->nm_CommKey = 0;
  30262. +         mkm->nm_Flags = 0;
  30263. +         mkm->nm_MutualExclude = 0;
  30264. +         if (NULL(item_cell->car))
  30265. +         {
  30266. +         mkm->nm_Type = IM_ITEM;
  30267. +         mkm->nm_Label = NM_BARLABEL;
  30268. +         }
  30269. +         else
  30270. +         {
  30271. + 
  30272. +         item = XCONS(item_cell->car);
  30273. +         name = XSTRING(item->car);
  30274. +         strcpy(strdata, name->data);
  30275. +         mkm->nm_Label = strdata;
  30276. +         strdata += name->size + 1;
  30277. + 
  30278. +         if (!NULL(item->cdr)) /* Only name is necessary */
  30279. +         {
  30280. +             item = XCONS(item->cdr);
  30281. + 
  30282. +             /* Expr is ignored */
  30283. + 
  30284. +             if (!NULL(item->cdr))
  30285. +             {
  30286. +             item = XCONS(item->cdr);
  30287. + 
  30288. +             /* Check shortcut */
  30289. +             if (!NULL(item->car))
  30290. +             {
  30291. +                 mkm->nm_CommKey = strdata;
  30292. +                 strdata[0] = XFASTINT(item->car);
  30293. +                 strdata[1] = '\0';
  30294. +                 strdata += 2;
  30295. +             }
  30296. +             if (!NULL(item->cdr))
  30297. +             {
  30298. +                 item = XCONS(item->cdr);
  30299. +                 if (!NULL(item->car))
  30300. +                 mkm->nm_Flags |= NM_ITEMDISABLED;
  30301. +             }
  30302. +             }
  30303. +         }
  30304. +         }
  30305. +         mkm++;
  30306. +         s_items = item_cell->cdr;
  30307. +     }
  30308. +     if (!NULL(menu->cdr))
  30309. +     {
  30310. +         menu = XCONS(menu->cdr);
  30311. +         if (!NULL(menu->car)) menu1->nm_Flags |= NM_MENUDISABLED;
  30312. +     }
  30313. +     s_menus = menu_cell->cdr;
  30314. +     }
  30315. +     mkm->nm_Type = NM_END;
  30316. +     mkm->nm_Label = 0;
  30317. +     mkm->nm_CommKey = 0;
  30318. +     mkm->nm_Flags = 0;
  30319. +     mkm->nm_MutualExclude = 0;
  30320. +     if (!(emacs_menu = CreateMenus(menudata, TAG_END)))
  30321. +     {
  30322. +     free(emacs_menu_strings);
  30323. +     emacs_menu_strings = 0;
  30324. +     error("Menu couldn't be created");
  30325. +     }
  30326. +     if (!resume_menus()) error("Menu couldn't be layed out");
  30327. + 
  30328. +     return Qt;
  30329. + }
  30330. + 
  30331. + DEFUN ("amiga-delete-menus", Famiga_delete_menus, Samiga_delete_menus, 0, 0, 0,
  30332. +        "Remove & free menu strip")
  30333. +    ()
  30334. + {
  30335. +     check_intuition();
  30336. + 
  30337. +     suspend_menus();
  30338. +     if (emacs_menu) FreeMenus(emacs_menu);
  30339. +     emacs_menu = 0;
  30340. +     if (emacs_menu_strings) free(emacs_menu_strings);
  30341. +     emacs_menu_strings = 0;
  30342. + 
  30343. +     return Qt;
  30344. + }
  30345. + 
  30346. + void syms_of_amiga_menu(void)
  30347. + {
  30348. +     defsubr(&Samiga_delete_menus);
  30349. +     defsubr(&Samiga_menus);
  30350. + }
  30351. + 
  30352. + void init_amiga_menu(void)
  30353. + {
  30354. +     GadToolsBase = OpenLibrary("gadtools.library", 0);
  30355. +     if (!GadToolsBase) _fail("gadtools.library required");
  30356. + }
  30357. + 
  30358. + void cleanup_amiga_menu(void)
  30359. + {
  30360. +   suspend_menus();
  30361. +   if (emacs_menu) Famiga_delete_menus();
  30362. +   if (GadToolsBase) CloseLibrary(GadToolsBase);
  30363. + }
  30364. diff -rc --new-file emacs-18.59/src/amiga_processes.c /gnu/src/amiga/emacs-18.59/src/amiga_processes.c
  30365. *** emacs-18.59/src/amiga_processes.c    Thu Jan  1 00:00:00 1970
  30366. --- /gnu/src/amiga/emacs-18.59/src/amiga_processes.c    Sun Nov 22 10:13:02 1992
  30367. ***************
  30368. *** 0 ****
  30369. --- 1,94 ----
  30370. + #include <exec/types.h>
  30371. + #include <exec/execbase.h>
  30372. + #include <exec/memory.h>
  30373. + #include <dos/dos.h>
  30374. + #include <dos/dosextens.h>
  30375. + #include <dos/dostags.h>
  30376. + #include <proto/exec.h>
  30377. + #include <proto/dos.h>
  30378. + #include <clib/alib_protos.h>
  30379. + #include <signal.h>
  30380. + #undef signal
  30381. + #include <ios1.h>
  30382. + #include <string.h>
  30383. + #include <errno.h>
  30384. + #include <stdio.h>
  30385. + #include <internal/vars.h>
  30386. + 
  30387. + #include "config.h"
  30388. + #include "lisp.h"
  30389. + #include "amiga.h"
  30390. + #include "emacssignal.h"
  30391. + 
  30392. + extern struct ExecBase *SysBase;
  30393. + 
  30394. + int amiga_process_stack_size;
  30395. + 
  30396. + /* A few emacs support functions */
  30397. + /* ----------------------------- */
  30398. + 
  30399. + wait_for_termination (pid)
  30400. +      int pid;
  30401. + {
  30402. +   while (1)
  30403. +     {
  30404. +       sigsetmask (sigmask (SIGCHLD));
  30405. +       if (0 > kill (pid, 0))
  30406. +         {
  30407. +       sigsetmask (SIGEMPTYMASK);
  30408. +       break;
  30409. +     }
  30410. +       sigpause (SIGEMPTYMASK);
  30411. +     }
  30412. + }
  30413. + 
  30414. + char *amiga_path(void)
  30415. + {
  30416. +   char *path, *pp, name[128];
  30417. +   int pathsize;
  30418. +   struct CommandLineInterface *cli;
  30419. +   BPTR lock;
  30420. +   long l, *lp, nlen;
  30421. + 
  30422. +   pathsize = 128;
  30423. +   path = (char *)xmalloc(pathsize);
  30424. + 
  30425. +   strcpy(path, ".");
  30426. +   pp = path + 1;
  30427. + 
  30428. +   if (!(cli = (struct CommandLineInterface *)((long)_us->pr_CLI << 2)))
  30429. +     return path;
  30430. + 
  30431. +   l = (long)cli->cli_CommandDir;
  30432. +   while (l) {
  30433. +     *pp++ = ',';
  30434. +     l <<= 2;
  30435. +     lp = (long *)l;
  30436. +     lock = (BPTR)*(lp + 1);
  30437. +     NameFromLock(lock, name, 128);
  30438. +     nlen = strlen(name);
  30439. +     if (pp + nlen + 5 >= path + pathsize)
  30440. +       {
  30441. +     char *newpath;
  30442. + 
  30443. +     pathsize = 2 * pathsize + nlen;
  30444. +     newpath = (char *)xrealloc(path);
  30445. +     pp = newpath + (pp - path);
  30446. +     path = newpath;
  30447. +       }
  30448. +     memcpy(pp, name, nlen);
  30449. +     pp += nlen;
  30450. +     l = *lp;
  30451. +   }
  30452. +   /* Use of +5 above guarantees that there is enough space for c: */
  30453. +   strcpy(pp, ",c:");
  30454. + 
  30455. +   return path;
  30456. + }
  30457. + 
  30458. + void syms_of_amiga_processes(void)
  30459. + {
  30460. +   amiga_process_stack_size = 0;
  30461. +   DEFVAR_INT("amiga-process-stack-size", &amiga_process_stack_size,
  30462. +      "Size of stack for called processes. 0 means same size as emacs stack.");
  30463. + }
  30464. diff -rc --new-file emacs-18.59/src/amiga_rexx.c /gnu/src/amiga/emacs-18.59/src/amiga_rexx.c
  30465. *** emacs-18.59/src/amiga_rexx.c    Thu Jan  1 00:00:00 1970
  30466. --- /gnu/src/amiga/emacs-18.59/src/amiga_rexx.c    Sat Jun  5 13:21:16 1993
  30467. ***************
  30468. *** 0 ****
  30469. --- 1,460 ----
  30470. + /* low level ARexx code for use in amiga version of Emacs.
  30471. +    Copyright (C) 1993 Christian E. Hopps.
  30472. + 
  30473. + This file is part of GNU Emacs.
  30474. + 
  30475. + GNU Emacs is free software; you can redistribute it and/or modify
  30476. + it under the terms of the GNU General Public License as published by
  30477. + the Free Software Foundation; either version 1, or (at your option)
  30478. + any later version.
  30479. + 
  30480. + GNU Emacs is distributed in the hope that it will be useful,
  30481. + but WITHOUT ANY WARRANTY; without even the implied warranty of
  30482. + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  30483. + GNU General Public License for more details.
  30484. + 
  30485. + You should have received a copy of the GNU General Public License
  30486. + along with GNU Emacs; see the file COPYING.  If not, write to
  30487. + the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  30488. + 
  30489. + #include "SimpleRexx.h"
  30490. + #include <proto/exec.h>
  30491. + #undef NULL
  30492. + #include "config.h"
  30493. + #include "lisp.h"
  30494. + 
  30495. + #include "amiga.h"
  30496. + 
  30497. + #define XLRXMSG(x) ((struct LispRexxMsg *) XPNTR((x)))
  30498. + #define XSETLRXMSG(x,v) (XSET((x), Lisp_Int, v))
  30499. + 
  30500. + static AREXXCONTEXT far handle;
  30501. + static int amiga_arexx_initialized;
  30502. + 
  30503. + /* This structure should be allocated with emacs_malloc() its pointer will be */
  30504. + /* used as an msgid. (emacs XUINT())*/
  30505. + struct LispRexxMsg {
  30506. +   struct MinNode  lrm_Node;              /* A node for tracking messages. */
  30507. +   struct RexxMsg *lrm_Msg;              /* The actual Rexx Msg. */
  30508. +   ULONG  lrm_Flags;
  30509. + };
  30510. + /* Flags for LispRexxMessage indicating what to do with it. */
  30511. + #define LRMF_SENTCMD (1L << 0)              /* this msg originated here. */
  30512. + #define LRMF_DOERRORS (1L << 1)              /* handle error replies */
  30513. + #define LRMF_DORESULTS (1L << 2)          /* handle result strings */
  30514. + 
  30515. + struct LispRexxList {
  30516. +     struct MinList lrl_List;
  30517. +     int    lrl_Count;
  30518. + };
  30519. + 
  30520. + struct LispRexxList pending;              /* The list of pending */
  30521. +                           /* (outgoing) Rexx Messages. */
  30522. + struct LispRexxList returned;              /* The list of pending */
  30523. +                           /* (outgoing) Rexx Messages */
  30524. +                           /* that have been received. */
  30525. + struct LispRexxList incoming;              /* The message that are */
  30526. +                           /* incoming to Emacs (sent */
  30527. +                           /* from some other rexx host. */
  30528. + 
  30529. + /* allocate a rexx message properly */
  30530. + Lisp_Object alloc_rexx_msg(ULONG flags)
  30531. + {
  30532. +     Lisp_Object rm = Qnil;
  30533. +     struct LispRexxMsg *lrm = (struct LispRexxMsg *)malloc(sizeof(*lrm));
  30534. +     if(lrm) {
  30535. +     lrm->lrm_Flags = flags;
  30536. +     XSETLRXMSG(rm,lrm);
  30537. +     return(rm);
  30538. +     }
  30539. +     return(Qnil);
  30540. + }
  30541. + 
  30542. + /* free an arexx message allocated with alloc_arexx_msg() */
  30543. + void free_rexx_msg (Lisp_Object rm)
  30544. + {
  30545. +     if(!NULL(rm)) {
  30546. +     void *mem = XLRXMSG(rm);
  30547. +     free(mem);
  30548. +     }
  30549. + }
  30550. + 
  30551. + /* The next 2 functions imlement FIFO lists. */
  30552. + 
  30553. + /* add LispRexxMsg to a LispRexxLisp Tail. */
  30554. + void add_rexx_msg_to_tail(struct LispRexxList *rl, Lisp_Object rm)
  30555. + {
  30556. +     AddTail((struct List *)rl,(struct Node *)XPNTR(rm));
  30557. +     rl->lrl_Count++;
  30558. + }
  30559. + 
  30560. + /* remove LispRexxMsg from head of a LispRexxLisp. */
  30561. + Lisp_Object remove_rexx_msg_from_head(struct LispRexxList *rl)
  30562. + {
  30563. +     Lisp_Object rm = (Lisp_Object)RemHead((struct List *)rl);
  30564. +     if(rm != 0) {
  30565. +     rl->lrl_Count--;
  30566. +     return(rm);
  30567. +     } else {
  30568. +         return Qnil;
  30569. +     }
  30570. + }
  30571. + 
  30572. + void remove_rexx_msg(struct LispRexxList *rl, Lisp_Object rm)
  30573. + {
  30574. +     Remove((struct Node *)XPNTR(rm));
  30575. +     rl->lrl_Count--;
  30576. + }
  30577. + 
  30578. + 
  30579. + /* find a rexx message on a list given an msgid (ptr) */
  30580. + int is_rexx_msgid_on_list(struct LispRexxList *rl,
  30581. +                     Lisp_Object id)
  30582. + {
  30583. +     struct MinNode *mn = rl->lrl_List.mlh_Head;
  30584. +     for(mn; mn->mln_Succ; mn = mn->mln_Succ) {
  30585. +     Lisp_Object cmpid = Qnil;
  30586. +     XSETLRXMSG(cmpid,mn);
  30587. +     if( EQ(cmpid,id)) {
  30588. +         return(1);
  30589. +     }
  30590. +     }
  30591. +     return(0);
  30592. + }
  30593. + 
  30594. + Lisp_Object find_rexx_msg_on_list(struct LispRexxList *rl,
  30595. +                   struct RexxMsg *msg)
  30596. + {
  30597. +     Lisp_Object pnt = Qnil;
  30598. +     struct MinNode *mn = rl->lrl_List.mlh_Head;
  30599. +     for(mn; mn->mln_Succ; mn = mn->mln_Succ) {
  30600. +     if( ((struct LispRexxMsg *)mn)->lrm_Msg == msg) {
  30601. +         XSETLRXMSG(pnt,mn);
  30602. +     }
  30603. +     }
  30604. +     return(pnt);
  30605. + }
  30606. + 
  30607. + /* This function is given a RexxMsg and it goes and find (or doesn't) the */
  30608. + /* corisponding pending message, removes it from the list and sets up the lisp */
  30609. + /* list for return values.  if it is not found nil is returned. (it deals with */
  30610. + /* the errors for incoming messages properly.  Some thought is needed on how to */
  30611. + /* handle errors from replied sent commands that were not asking for results. */
  30612. + Lisp_Object handle_rexx_msg_replied(struct RexxMsg *msg)
  30613. + {
  30614. +     Lisp_Object rm = find_rexx_msg_on_list(&pending, msg);
  30615. +     if(!NULL(rm)) {
  30616. +     /* Process the command.  If it was requesting results strings handle */
  30617. +     /* them otherwise just delete. */
  30618. +     struct LispRexxMsg *lrm = XLRXMSG(rm);
  30619. +     remove_rexx_msg(&pending, rm);
  30620. + 
  30621. +     if(msg->rm_Result1 == 0) {
  30622. +         if(lrm->lrm_Flags & LRMF_DORESULTS) {
  30623. +         /* add to returned so that result can be fetched. */
  30624. +         add_rexx_msg_to_tail(&returned,rm);
  30625. +         } else {
  30626. +         /* simply delete rexx message. */
  30627. +         DeleteARexxMsg(handle,msg);
  30628. +         free_rexx_msg(rm);
  30629. +         }
  30630. +     } else {
  30631. +         /* an error occured with our message. */
  30632. +         if(lrm->lrm_Flags & LRMF_DOERRORS) {
  30633. +         /* add to returned so that error can be fetched. */
  30634. +         add_rexx_msg_to_tail(&returned,rm);
  30635. +         } else {
  30636. +         /* simply delete rexx message. */
  30637. +         DeleteARexxMsg(handle,msg);
  30638. +         free_rexx_msg(rm);
  30639. +         }
  30640. +     }
  30641. +     } else {
  30642. +     /* This should never happen we received a rexx message reply */
  30643. +     /* that we never sent out. */
  30644. +     DeleteARexxMsg(handle,msg);
  30645. +     }
  30646. + }
  30647. + 
  30648. + /* This function takes incoming messages and place them on the incoming msg */
  30649. + /* list.  */
  30650. + Lisp_Object handle_rexx_msg_received(struct RexxMsg *msg)
  30651. + {
  30652. +     Lisp_Object rm = alloc_rexx_msg(LRMF_DORESULTS|LRMF_DOERRORS);
  30653. +     if(!NULL(rm)) {
  30654. +     /* Add message to incoming list. */
  30655. +     struct LispRexxMsg *lrm = XLRXMSG(rm);
  30656. +     lrm->lrm_Msg = msg;              /* set msg pointer. */
  30657. +     add_rexx_msg_to_tail(&incoming,rm);
  30658. +     } else {
  30659. +     /* This should never happen we received a rexx message but ran out of */
  30660. +     /* memory.  Set last error msg. and reply with fail. */
  30661. +     SetARexxLastError(handle, msg, "Out of emacs memory.");
  30662. +     ReplyARexxMsg(handle, msg, 0, 20);
  30663. +     }
  30664. + }
  30665. + 
  30666. + /* Almost the same as old one, but we now call handle_pending_arexx_reply() for */
  30667. + /* replied messages that we sent, so that we can setup result strings and such. */
  30668. + int check_arexx(int force, int kbd)
  30669. + {
  30670. +     struct RexxMsg *msg;
  30671. +     int msg_received = FALSE;
  30672. +     while (msg = GetARexxMsg(handle)) {
  30673. +     msg_received = TRUE;
  30674. +     if(msg->rm_Node.mn_Node.ln_Type == NT_REPLYMSG)    {
  30675. +         /* This is a reply to a rexx command we send out. */
  30676. +         handle_rexx_msg_replied(msg);
  30677. +     } else {
  30678. +         handle_rexx_msg_received(msg);
  30679. +     }
  30680. +     }
  30681. +     if ((kbd && amiga_arexx_initialized)) {
  30682. +     /* if we got a message or we have some out, or we have some waiting to */
  30683. +     /* be processes then enque the Key sequence that will call the rexx */
  30684. +     /* message handler.  We obviously don't do this for returned commands :^) */
  30685. +     if ((msg_received || force && incoming.lrl_Count > 0) &&
  30686. +         get_ttycount() == 0) {
  30687. +         enque(AMIGASEQ, FALSE); enque('X', FALSE);
  30688. +     }
  30689. +     }
  30690. +     return msg_received;
  30691. + }
  30692. + 
  30693. + DEFUN ("amiga-arexx-wait", Famiga_arexx_wait, Samiga_arexx_wait, 0, 0, 0,
  30694. +        "Wait for an ARexx event (command or reply) before proceeding.")
  30695. +     ()
  30696. + {
  30697. +     while (!check_arexx(FALSE, FALSE)) Wait(ARexxSignal(handle));
  30698. + }
  30699. + 
  30700. + DEFUN ("amiga-arexx-check-command",
  30701. +        Famiga_arexx_check_command, Samiga_arexx_check_command, 1, 1, 0,
  30702. +        "Return t if command ID has finished, nil otherwise.")
  30703. +     (id)
  30704. + Lisp_Object id;
  30705. + {
  30706. +     CHECK_NUMBER(id,0);
  30707. + 
  30708. +     if(is_rexx_msgid_on_list(&pending,id)) {
  30709. +     /* still on pending return false. */
  30710. +     return Qnil;
  30711. +     } else if(is_rexx_msgid_on_list(&returned,id)) {
  30712. +     /* is waiting to be processed return true. */
  30713. +     return Qt;
  30714. +     }
  30715. + 
  30716. +     /* is nowhere to be found. error. */
  30717. +     error("id not found.");
  30718. +     return Qnil;
  30719. + }
  30720. + 
  30721. + DEFUN ("amiga-arexx-get-next-msg", Famiga_arexx_get_next_msg,
  30722. +        Samiga_get_next_msg, 0, 0, 0,
  30723. + "Returns the oldest arexx msg sent to emacs rexx port.\n\
  30724. + When you are through with this message call (amiga-arexx-reply).\n\
  30725. + if the msg is not replied this function will continue to\n\
  30726. + return that msg until it has been replied to.")
  30727. +   ()
  30728. + {
  30729. +     struct RexxMsg *rmsg;
  30730. + 
  30731. +     check_arexx(FALSE, FALSE);
  30732. +     if (incoming.lrl_Count) {
  30733. +     struct RexxMsg *msg = ((struct LispRexxMsg *)
  30734. +                    incoming.lrl_List.mlh_Head)->lrm_Msg;
  30735. +     return build_string(ARG0(msg));
  30736. +     }
  30737. +     /* nothing to be gotten. */
  30738. +     return Qnil;
  30739. + }
  30740. + 
  30741. + DEFUN("amiga-arexx-get-msg-results", Famiga_arexx_get_msg_results,
  30742. +       Samiga_arexx_get_msg_results, 1,1,0,
  30743. + "Returns the results from MSGID. will be a list of the form:\n\
  30744. +   (msgid resultcode secondary)\n\n\
  30745. + If resultcode is 0 then secondary will be a string or nil.\n\
  30746. + else resulcode will be greater than 0 and secondary will be\n\
  30747. + an error-code (int).\n\n\
  30748. + If MSGID has not yet completed nil is returned.\n\
  30749. + if MSGID has been dealt with or is invalid and error will occur.")
  30750. +     (msgid)
  30751. + Lisp_Object msgid;
  30752. + {
  30753. +     CHECK_NUMBER(msgid,0);
  30754. + 
  30755. +     if(is_rexx_msgid_on_list(&returned,msgid)) {
  30756. +     /* msgid has completed build list and delete LispRexxMsg. */
  30757. +     struct LispRexxMsg *lrm = XLRXMSG(msgid);
  30758. +     Lisp_Object rc, error_or_string, ret;
  30759. +     struct RexxMsg *msg = lrm->lrm_Msg;
  30760. + 
  30761. +     remove_rexx_msg(&returned,msgid);
  30762. + 
  30763. +     rc = make_number(msg->rm_Result1);
  30764. +     if(msg->rm_Result1 == 0) {
  30765. +         error_or_string = msg->rm_Result2 ? build_string(msg->rm_Result2) : 0;
  30766. +     } else {
  30767. +         /* error occurred */
  30768. +         error_or_string = make_number(msg->rm_Result2); /* save error code. */
  30769. +     }
  30770. +     free_rexx_msg(msgid);              /* free our rexx msg. */
  30771. +     DeleteARexxMsg(handle,msg);          /* free ARexx msg proper */
  30772. + 
  30773. +     /* build lisp list. */
  30774. +     ret = Fcons( msgid, Fcons( rc, Fcons(error_or_string, Qnil)));
  30775. +     if(NULL(ret)) {
  30776. +         error("Couldn't get memory.");
  30777. +     }
  30778. +     return(ret);
  30779. +     } else if(is_rexx_msgid_on_list(&pending,msgid)) {
  30780. +     return Qnil;                  /* this msgid has not yet completed. */
  30781. +     } else {
  30782. +     error("Unknown MSGID.");
  30783. +     return Qnil;
  30784. +     }
  30785. + }
  30786. + 
  30787. + DEFUN ("amiga-arexx-reply", Famiga_arexx_reply, Samiga_arexx_reply,
  30788. +        2, 2, 0,
  30789. + "Replies to the first arexx message (the one got via amiga-arexx-get-event)\n\
  30790. + with RC as return code.\n\
  30791. + If RC=0, TEXT is the result, otherwise it is the error text. It can be nil.")
  30792. +     (rc, text)
  30793. + Lisp_Object rc, text;
  30794. + {
  30795. +     int retcode, ok = TRUE;
  30796. +     char *result;
  30797. +     struct RexxMsg *rmsg;
  30798. +     Lisp_Object rm = remove_rexx_msg_from_head(&incoming);
  30799. +     struct LispRexxMsg *lrm = XLRXMSG(rm);
  30800. + 
  30801. +     if (NULL(rm))
  30802. +     error("No ARexx message to reply to.");
  30803. + 
  30804. +     rmsg = lrm->lrm_Msg;
  30805. + 
  30806. +     CHECK_NUMBER(rc, 0);
  30807. +     retcode = XINT(rc);
  30808. + 
  30809. +     if (!NULL (text)) {
  30810. +     CHECK_STRING(text, 0);
  30811. +     result = XSTRING (text)->data;
  30812. +     } else {
  30813. +     result = 0;
  30814. +     }
  30815. +     if (retcode && result)
  30816. +     ok = SetARexxLastError(handle, rmsg, result);
  30817. +     ReplyARexxMsg(handle, rmsg, result, retcode);
  30818. + 
  30819. +     if (!ok)
  30820. +     error("Failed to set ARexx error message.");
  30821. + 
  30822. +     return Qnil;
  30823. + }
  30824. + 
  30825. + Lisp_Object send_rexx_command(Lisp_Object str, Lisp_Object as_file,
  30826. +                   ULONG flags)
  30827. + {
  30828. +     struct RexxMsg *rmsg;
  30829. +     int i;
  30830. +     Lisp_Object id, rm;
  30831. +     struct LispRexxMsg *lrm;
  30832. + 
  30833. +     rm = alloc_rexx_msg(flags);
  30834. +     if(NULL(rm)) {
  30835. +     error("Failed to send command to ARexx.");
  30836. +     return Qnil;
  30837. +     }
  30838. + 
  30839. +     CHECK_STRING (str, 0);
  30840. +     if (!(rmsg = SendARexxMsg(handle, XSTRING (str)->data,!NULL (as_file),
  30841. +                   (flags & LRMF_DORESULTS ? 1 : 0)))) {
  30842. +     free_rexx_msg(rm);
  30843. +     error("Failed to send command to ARexx.");
  30844. +     return Qnil;
  30845. +     }
  30846. +     lrm = XLRXMSG(rm);
  30847. +     lrm->lrm_Msg = rmsg;              /* set rexx message pointer. */
  30848. +     add_rexx_msg_to_tail(&pending,rm);          /* add to pending list. */
  30849. + 
  30850. +     return(rm);
  30851. + }
  30852. + 
  30853. + DEFUN ("amiga-arexx-send-command", Famiga_arexx_send_command,
  30854. +        Samiga_arexx_send_command, 1, 2, 0,
  30855. + "Sends a command to ARexx for execution.\n\
  30856. + If the second arg is non-nil, the command is directly interpreted.\n\
  30857. + Returns an integer that uniquely identifies this message.  This must\n\
  30858. + then be used to get the results from the command.\n\
  30859. + NOTE: this is very different from old way things worked.\n\
  30860. +       earlier versions of emacs discarded successful results\n\
  30861. +       and errors always got replied to becuase they caused failures\n\
  30862. +       Neither of these are true now.\
  30863. + This function is also no longer interactive.\n\
  30864. + Use (amiga-arexx-do-command)\n")
  30865. +     (str, as_file)
  30866. + Lisp_Object str, as_file;
  30867. + {
  30868. +     return(send_rexx_command(str,as_file,
  30869. +                  LRMF_DORESULTS|
  30870. +                  LRMF_DOERRORS|
  30871. +                  LRMF_SENTCMD));
  30872. + }
  30873. + 
  30874. + void init_amiga_rexx(void)
  30875. + {
  30876. +     extern ULONG inputsig;
  30877. +     int i;
  30878. + 
  30879. +     handle = InitARexx("Emacs", "elx");
  30880. +     inputsig |= ARexxSignal(handle);
  30881. + 
  30882. +     /* init exec lists. */
  30883. +     NewList((struct List *)&incoming.lrl_List);
  30884. +     incoming.lrl_Count = 0;
  30885. + 
  30886. +     NewList((struct List *)&pending.lrl_List);
  30887. +     pending.lrl_Count = 0;
  30888. + 
  30889. +     NewList((struct List *)&returned.lrl_List);
  30890. +     returned.lrl_Count = 0;
  30891. + }
  30892. + 
  30893. + void cleanup_amiga_rexx(void)
  30894. + {
  30895. +     /* Delete and reply all rexx messages we have gotten. */
  30896. +     Lisp_Object rm = remove_rexx_msg_from_head(&returned);
  30897. +     while(!NULL(rm)) {
  30898. +     struct LispRexxMsg *lrm = XLRXMSG(rm);
  30899. +     DeleteARexxMsg(handle,lrm->lrm_Msg);
  30900. +     free_rexx_msg(rm);
  30901. +     rm = remove_rexx_msg_from_head(&returned);
  30902. +     }
  30903. + 
  30904. +     rm = remove_rexx_msg_from_head(&incoming);
  30905. +     while(!NULL(rm)) {
  30906. +     struct LispRexxMsg *lrm = XLRXMSG(rm);
  30907. +     ReplyARexxMsg(handle, lrm->lrm_Msg, 0, 20);
  30908. +     free_rexx_msg(rm);
  30909. +     rm = remove_rexx_msg_from_head(&incoming);
  30910. +     }
  30911. + 
  30912. +     /* Free the rest of rexx, will wait for pending msgs to return */
  30913. +     FreeARexx(handle);
  30914. + }
  30915. + 
  30916. + void syms_of_amiga_rexx(void)
  30917. + {
  30918. +     DEFVAR_BOOL ("amiga-arexx-initialized", &amiga_arexx_initialized,
  30919. +          "Set this to t when Emacs is ready to respond to ARexx messages.\n"
  30920. +          "(ie C-\ X causes all pending ARexx messages to be answered)");
  30921. +     amiga_arexx_initialized = 0;
  30922. + 
  30923. +     defsubr(&Samiga_arexx_send_command);
  30924. +     defsubr(&Samiga_arexx_reply);
  30925. +     defsubr(&Samiga_get_next_msg);
  30926. +     defsubr(&Samiga_arexx_get_msg_results);
  30927. +     defsubr(&Samiga_arexx_check_command);
  30928. +     defsubr(&Samiga_arexx_wait);
  30929. + }
  30930. diff -rc --new-file emacs-18.59/src/amiga_screen.c /gnu/src/amiga/emacs-18.59/src/amiga_screen.c
  30931. *** emacs-18.59/src/amiga_screen.c    Thu Jan  1 00:00:00 1970
  30932. --- /gnu/src/amiga/emacs-18.59/src/amiga_screen.c    Tue Aug 31 18:16:14 1993
  30933. ***************
  30934. *** 0 ****
  30935. --- 1,1396 ----
  30936. + #include "config.h"
  30937. + #undef NULL
  30938. + #include "lisp.h"
  30939. + #include "termchar.h"
  30940. + #include "dispextern.h"
  30941. + 
  30942. + #include <stdio.h>
  30943. + #include <string.h>
  30944. + #include <stddef.h>
  30945. + #include <internal/devices.h>
  30946. + #include <internal/vars.h>
  30947. + 
  30948. + #define min(x,y) ((x) > (y) ? (y) : (x))
  30949. + #define max(x,y) ((x) < (y) ? (y) : (x))
  30950. + 
  30951. + #undef LONGBITS
  30952. + 
  30953. + #include <exec/types.h>
  30954. + #include <exec/interrupts.h>
  30955. + #include <devices/input.h>
  30956. + #include <devices/inputevent.h>
  30957. + #include <intuition/intuitionbase.h>
  30958. + #include <intuition/intuition.h>
  30959. + #include <devices/conunit.h>
  30960. + #include <devices/inputevent.h>
  30961. + #include <graphics/gfxbase.h>
  30962. + #include <graphics/gfxmacros.h>
  30963. + #include <utility/hooks.h>
  30964. + #include <workbench/startup.h>
  30965. + #include <workbench/workbench.h>
  30966. + 
  30967. + #include <proto/exec.h>
  30968. + #include <proto/dos.h>
  30969. + #include <proto/intuition.h>
  30970. + #include <proto/graphics.h>
  30971. + #include <proto/console.h>
  30972. + #include <proto/diskfont.h>
  30973. + #include <proto/wb.h>
  30974. + 
  30975. + /* this is defined for those unlucky enough
  30976. +  * not to have the 3.0 headers  -ch3/16/93. */
  30977. + #ifndef WA_NewLookMenus
  30978. + #define WA_NewLookMenus (WA_Dummy + 0x30)
  30979. + #endif
  30980. + 
  30981. + #include "amiga.h"
  30982. + 
  30983. + #define SHIFT_MASK (IEQUALIFIER_LSHIFT | IEQUALIFIER_RSHIFT)
  30984. + #define CONTROL_MASK IEQUALIFIER_CONTROL
  30985. + #define META_MASK IEQUALIFIER_LALT
  30986. + 
  30987. + struct GfxBase *GfxBase;
  30988. + struct IntuitionBase *IntuitionBase;
  30989. + struct Library *DiskfontBase, *KeymapBase, *WorkbenchBase;
  30990. + 
  30991. + static char intkey_code, intkey_qualifier;
  30992. + static struct IOStdReq *input_req;
  30993. + static struct Interrupt int_handler_hook;
  30994. + static int hooked;
  30995. + 
  30996. + static struct MsgPort *wbport;
  30997. + static struct AppWindow *emacs_app_win;
  30998. + static struct AppIcon *emacs_icon;
  30999. + 
  31000. + struct Library *ConsoleDevice;
  31001. + static struct TextFont *font;
  31002. + static int font_opened;
  31003. + /* The reset string resets the console, turns off scrolling and sets up
  31004. +    the foreground & background colors. */
  31005. + #define CONSOLE_RESET "\x1b""c\x9b>1l\x9b""3%d;4%d;>%dm"
  31006. + static char reset_string[20]; /* Must be big enough for
  31007. +               printf(CONSOLE_RESET, foreground, background, background);
  31008. +               (0 <= foreground, background <= 7) */
  31009. + 
  31010. + /* These are the pen numbers for emacs window's base colors */
  31011. + int foreground = 1, background = 0;
  31012. + 
  31013. + /* Current window, and its main characteristics */
  31014. + struct Window *emacs_win;
  31015. + WORD emacs_x = 0, emacs_y = 0, emacs_w = 640, emacs_h = 200;
  31016. + char *emacs_screen_name;
  31017. + char emacs_screen_name_storage[MAXPUBSCREENNAME+1];
  31018. + int emacs_backdrop = 0;        /* Use backdrop window ? */
  31019. + 
  31020. + /* Current window size: */
  31021. + #define EMACS_X() (emacs_win ? emacs_win->LeftEdge : emacs_x)
  31022. + #define EMACS_Y() (emacs_win ? emacs_win->TopEdge : emacs_y)
  31023. + #define EMACS_W() (emacs_win ? emacs_win->Width : emacs_w)
  31024. + #define EMACS_H() (emacs_win ? emacs_win->Height : emacs_h)
  31025. + 
  31026. + /* used for setting the color of standout text  -ch3/16/93. */
  31027. + int inverse_fill_pen = 8, inverse_text_pen = 8;
  31028. + 
  31029. + /* IO request for all console io. */
  31030. + static struct IOStdReq *emacs_console;
  31031. + 
  31032. + /* a storage area for the name of the screen last opened on */
  31033. + 
  31034. + #define emacs_icon_width 57
  31035. + #define emacs_icon_height 55
  31036. + #define emacs_icon_num_planes 1
  31037. + #define emacs_icon_words_per_plane 220
  31038. + 
  31039. + UWORD chip emacs_icon_data[1][55][4] = {
  31040. +   {
  31041. +     0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  31042. +     0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  31043. +     0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0fe0,0x6000,
  31044. +     0x0000,0x0000,0x0060,0x6000,0x0000,0x0000,0x0fff,0xe000,
  31045. +     0x0000,0x0000,0x1800,0x2000,0x0000,0x0000,0x13ff,0xa000,
  31046. +     0x0000,0x0000,0x1400,0xa000,0x0000,0x0000,0x3600,0xa000,
  31047. +     0x0000,0x0000,0x0000,0xa000,0x0000,0x0000,0x0c00,0xa000,
  31048. +     0x0000,0x0000,0x1e00,0xa000,0x0000,0x0000,0x0c00,0xa000,
  31049. +     0x0000,0x0000,0x0000,0xa000,0x0000,0x0000,0x2100,0xa000,
  31050. +     0x0000,0x0000,0x3300,0xa000,0x0000,0x0000,0x0c00,0xa000,
  31051. +     0x003f,0xffff,0xffff,0xb000,0x001f,0xffff,0xffff,0x8000,
  31052. +     0x004e,0x0000,0x0001,0xf000,0x00c6,0x00f0,0x0001,0x8000,
  31053. +     0x00c6,0x0100,0x0001,0x8000,0x0006,0x0103,0x9201,0x8000,
  31054. +     0x0006,0x013a,0x5201,0x8000,0x00c6,0x010a,0x5201,0x8000,
  31055. +     0x00c6,0x010a,0x5601,0x8000,0x0086,0x00f2,0x4a01,0x8000,
  31056. +     0x0006,0x0000,0x0001,0x8000,0x0046,0x0000,0x0001,0x8000,
  31057. +     0x00c6,0x7c00,0x0001,0x8000,0x00c6,0x4000,0x0001,0x8000,
  31058. +     0x0006,0x41d8,0xc319,0x8000,0x0006,0x7925,0x24a1,0x8000,
  31059. +     0x00c6,0x4125,0x2419,0x8000,0x01c6,0x4125,0x2485,0x8000,
  31060. +     0x0086,0x7d24,0xd319,0x8000,0x0007,0x0000,0x0003,0x8000,
  31061. +     0x0003,0xffe3,0xffff,0x0000,0x0081,0xfff7,0xfffe,0x0000,
  31062. +     0x01c0,0x0036,0x0000,0x0000,0x0180,0x0014,0x0f80,0x0000,
  31063. +     0x0000,0x0014,0x1040,0x0000,0x0000,0x0014,0x2720,0x0000,
  31064. +     0x0000,0x0012,0x28a0,0x0000,0x0080,0x000a,0x48a0,0x0000,
  31065. +     0x01c0,0x0009,0x90a0,0x0000,0x0180,0x0004,0x20a0,0x0000,
  31066. +     0x0000,0x0003,0xc0a0,0x0000,0x0000,0x0000,0x00a0,0x0000,
  31067. +     0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  31068. +     0x0000,0x0000,0x0000,0x0000
  31069. +   },
  31070. + };
  31071. + 
  31072. + struct Image far emacs_icon_image = {
  31073. +   0, 0,
  31074. +   emacs_icon_width, emacs_icon_height, emacs_icon_num_planes,
  31075. +   (UWORD *)emacs_icon_data,
  31076. +   3, 0,
  31077. +   0
  31078. + };
  31079. + 
  31080. + static struct DiskObject far emacs_icon_object = {
  31081. +   0, 0,
  31082. +   { 0, 0, 0, emacs_icon_width, emacs_icon_height, 0, 0, 0, (APTR)&emacs_icon_image },
  31083. +   0, 0, 0,
  31084. +   NO_ICON_POSITION, NO_ICON_POSITION
  31085. + };
  31086. + 
  31087. + static struct Hook background_hook;
  31088. + 
  31089. + #define EVENTSIZE 32
  31090. + 
  31091. + static struct event {
  31092. +   ULONG class;
  31093. +   UWORD code, qual;
  31094. +   WORD x, y;
  31095. + } events[EVENTSIZE];
  31096. + static int event_num, event_in, event_out;
  31097. + 
  31098. + static struct wbevent {
  31099. +   struct wbevent *next;
  31100. +   char file[1];
  31101. + } *wbevents;
  31102. + 
  31103. + Lisp_Object Vamiga_mouse_pos;
  31104. + Lisp_Object Vamiga_mouse_item;
  31105. + extern Lisp_Object MouseMap;
  31106. + int amiga_remap_bsdel;
  31107. + int amiga_remap_numeric_keypad;
  31108. + int amiga_mouse_initialized;
  31109. + int amiga_wb_initialized;
  31110. + int emacs_iconified;
  31111. + 
  31112. + static int amiga_pos_x(int x)
  31113. + {
  31114. +   return (x - emacs_win->BorderLeft) / emacs_win->RPort->Font->tf_XSize;
  31115. + }
  31116. + 
  31117. + static int amiga_pos_y(int y)
  31118. + {
  31119. +   return (y - emacs_win->BorderTop) / emacs_win->RPort->Font->tf_YSize;
  31120. + }
  31121. + 
  31122. + static void amiga_change_size(void)
  31123. + {
  31124. +   int new_height = amiga_pos_y(emacs_win->Height - emacs_win->BorderBottom);
  31125. +   int new_width = amiga_pos_x(emacs_win->Width - emacs_win->BorderRight);
  31126. + 
  31127. +   /* Hack to force redisplay */
  31128. +   if (screen_height == new_height) screen_height--;
  31129. +   /* I consider that refreshes are possible during a select, which is
  31130. +      true for the current state of emacs */
  31131. +   change_screen_size(new_height, new_width, 0, !selecting && !waiting_for_input, 1);
  31132. + }
  31133. + 
  31134. + /* Get terminal size from system.
  31135. +    Store number of lines into *heightp and width into *widthp.
  31136. +    If zero or a negative number is stored, the value is not valid.  */
  31137. + 
  31138. + void get_window_size (widthp, heightp)
  31139. +      int *widthp, *heightp;
  31140. + {
  31141. +   if (emacs_win)
  31142. +     {
  31143. +       *heightp = amiga_pos_y(emacs_win->Height - emacs_win->BorderBottom);
  31144. +       *widthp = amiga_pos_x(emacs_win->Width - emacs_win->BorderRight);
  31145. +     }
  31146. +   else
  31147. +     {
  31148. +       *heightp = 0;
  31149. +       *widthp = 0;
  31150. +     }
  31151. + }
  31152. + 
  31153. + static int set_min_size(struct Window *win, struct TextFont *font,
  31154. +             WORD *minw, WORD *minh)
  31155. + {
  31156. +   *minw = 11 * font->tf_XSize + win->BorderLeft + win->BorderRight;
  31157. +   *minh = 4 * font->tf_YSize + win->BorderTop + win->BorderBottom;
  31158. + 
  31159. +   return (int)WindowLimits(win, *minw, *minh, 0, 0);
  31160. + }
  31161. + 
  31162. + struct fill
  31163. + {
  31164. +   struct Layer *layer;
  31165. +   struct Rectangle bounds;
  31166. +   WORD offsetx, offsety;
  31167. + };
  31168. + 
  31169. + /* __interrupt disables stack checking.   -ch3/19/93. */
  31170. + static ULONG __asm __saveds __interrupt
  31171. + fill_background(register __a2 struct RastPort *obj,
  31172. +         register __a1 struct fill *msg)
  31173. + {
  31174. +   struct Layer *l;
  31175. + 
  31176. +   SetAPen(obj, background);
  31177. +   SetDrMd(obj, JAM1);
  31178. +   SetAfPt(obj, 0, 0);
  31179. +   SetWrMsk(obj, 0xff);
  31180. +   /* Gross hack starts here */
  31181. +   l = obj->Layer;
  31182. +   obj->Layer = 0;
  31183. +   /* Stops */
  31184. +   RectFill(obj, msg->bounds.MinX, msg->bounds.MinY,
  31185. +        msg->bounds.MaxX, msg->bounds.MaxY);
  31186. +   /* Starts again */
  31187. +   obj->Layer = l;
  31188. +   /* And finally dies */
  31189. + 
  31190. +   return 0;
  31191. + }
  31192. + 
  31193. + static void clear_window(void)
  31194. + {
  31195. +   SetAPen(emacs_win->RPort, background);
  31196. +   RectFill(emacs_win->RPort, emacs_win->BorderLeft, emacs_win->BorderTop,
  31197. +        emacs_win->Width - emacs_win->BorderRight - 1,
  31198. +        emacs_win->Height - emacs_win->BorderBottom - 1);
  31199. + }
  31200. + 
  31201. + static int make_reset_string(void)
  31202. + {
  31203. +   sprintf(reset_string, CONSOLE_RESET, foreground, background, background);
  31204. + }
  31205. + 
  31206. + void reset_window(void)
  31207. + {
  31208. +   make_reset_string();
  31209. +   if (emacs_win)
  31210. +     {
  31211. +       screen_puts (reset_string, strlen(reset_string));
  31212. +       clear_window();
  31213. +       amiga_change_size ();
  31214. +     }
  31215. + }
  31216. + 
  31217. + static void close_app_win(void)
  31218. + {
  31219. +   if (emacs_app_win)
  31220. +     {
  31221. +       struct AppMessage *msg;
  31222. + 
  31223. +       RemoveAppWindow(emacs_app_win); /* What can I do if it fails ?! */
  31224. +       while (msg = (struct AppMessage *)GetMsg(wbport)) ReplyMsg(msg);
  31225. +     }
  31226. + }
  31227. + 
  31228. + static int close_emacs_window(void)
  31229. + {
  31230. +   close_app_win();
  31231. +   inputsig &= ~(1L << emacs_win->UserPort->mp_SigBit);
  31232. +   _device_close(emacs_console);
  31233. +   if(emacs_win)
  31234. +     {
  31235. +       /* put title back the way it should be   -ch3/19/93. */
  31236. +       ShowTitle(emacs_win->WScreen, !emacs_backdrop);
  31237. +     }
  31238. +   CloseWindow(emacs_win);
  31239. +   emacs_console = 0;
  31240. +   emacs_win = 0;
  31241. +   ConsoleDevice = 0;
  31242. + }
  31243. + 
  31244. + /* We need this function becuase we do not always have the string
  31245. +  * for the screen we opened on. for example LockPubScreen(NULL);
  31246. +  * This function will get the name by looping through all public
  31247. +  * screens looking for the one that matches ours. -ch3/20/93 */
  31248. + 
  31249. + char *get_screen_name(struct Screen *this, char *namebuf)
  31250. + {
  31251. +   struct PubScreenNode *pubscreens =
  31252. +     (struct PubScreenNode *)LockPubScreenList()->lh_Head;
  31253. + 
  31254. +   while (pubscreens->psn_Node.ln_Succ)
  31255. +     {
  31256. +       if (pubscreens->psn_Screen == this)
  31257. +     {
  31258. +       strcpy(namebuf, pubscreens->psn_Node.ln_Name);
  31259. +       UnlockPubScreenList();
  31260. +       return namebuf;
  31261. +     }
  31262. +       pubscreens = (struct PubScreenNode *)pubscreens->psn_Node.ln_Succ;
  31263. +     }
  31264. +   /* Failed to find screen */
  31265. +   namebuf[0] = '\0';
  31266. +   UnlockPubScreenList();
  31267. + 
  31268. +   return 0;
  31269. + }
  31270. + 
  31271. + /* added two parameters to eliminate the need for the global
  31272. +  * which was causing some unwanted effect (bugs). -ch3/19/93 */
  31273. + 
  31274. + static enum { ok, no_screen, no_window }
  31275. + open_emacs_window(UWORD x, UWORD y, UWORD w, UWORD h, int backdrop,
  31276. +           char *pubscreen_name)
  31277. +      /* Open or reopen emacs window */
  31278. + {
  31279. +   WORD minw, minh;
  31280. +   struct Screen *new_screen;
  31281. +   struct Window *new_win;
  31282. +   struct IOStdReq *new_console;
  31283. +   int no_backdrop = !backdrop;
  31284. + 
  31285. +   new_screen = LockPubScreen(pubscreen_name);
  31286. + 
  31287. +   if (!new_screen)
  31288. +     return no_screen;
  31289. + 
  31290. +   /* removed newwindow structure, and added as tag
  31291. +    * items so that we can change them easier. -ch3/16/93. */
  31292. + 
  31293. +   new_win = OpenWindowTags(0, WA_Left, x, WA_Top, y,
  31294. +                   WA_Width, w, WA_Height, h,    /* Static items */
  31295. +                   WA_AutoAdjust, 1, WA_NewLookMenus, 1,
  31296. +                   WA_IDCMP, IDCMP_CLOSEWINDOW | IDCMP_RAWKEY |
  31297. +                             IDCMP_MOUSEBUTTONS| IDCMP_NEWSIZE |
  31298. +                             IDCMP_MENUPICK | IDCMP_MENUHELP,
  31299. +                   WA_PubScreen, new_screen,
  31300. +                   WA_BackFill, &background_hook,
  31301. +                   WA_MenuHelp, 1, WA_Activate, 1,
  31302. +                   WA_SimpleRefresh, 1,
  31303. +                   WA_MaxWidth, -1, WA_MaxHeight, -1,
  31304. +                   WA_Backdrop, backdrop,    /* changing items */
  31305. +                   WA_Borderless, backdrop,
  31306. +                   WA_CloseGadget, no_backdrop,
  31307. +                   WA_SizeGadget, no_backdrop,
  31308. +                   WA_DragBar, no_backdrop,
  31309. +                   WA_DepthGadget, no_backdrop,
  31310. +                   WA_Title, no_backdrop ?
  31311. +                    "GNU Emacs 18.59, Amiga port "VERS : 0,
  31312. +                               TAG_END);
  31313. + 
  31314. +   UnlockPubScreen(0L, new_screen);
  31315. + 
  31316. +   if (new_win)
  31317. +     {
  31318. +       /* if emacs_backdrop then the screen title will show BEHIND the window
  31319. +      -ch3/16/93. */
  31320. +       ShowTitle(new_screen, !emacs_backdrop);
  31321. +       SetFont(new_win->RPort, font);
  31322. + 
  31323. +       if (set_min_size(new_win, font, &minw, &minh) &&
  31324. +       (new_console = (struct IOStdReq *)
  31325. +        _device_open("console.device", CONU_CHARMAP, CONFLAG_NODRAW_ON_NEWSIZE,
  31326. +             (APTR)new_win, sizeof(*new_win),
  31327. +             sizeof(struct IOStdReq))))
  31328. +     {
  31329. +       inputsig |= 1L << new_win->UserPort->mp_SigBit;
  31330. +       ConsoleDevice = (struct Library *)new_console->io_Device;
  31331. +       emacs_app_win = AddAppWindowA(0, 0, new_win, wbport, 0);
  31332. + 
  31333. +       /* Copy the info into permanent storage */
  31334. +       emacs_win = new_win;
  31335. +       emacs_console = new_console;
  31336. + 
  31337. +       /* fetch the name of the current screen -ch3/19/93 */
  31338. +       emacs_screen_name = get_screen_name(emacs_win->WScreen,
  31339. +                           emacs_screen_name_storage);
  31340. + 
  31341. +       emacs_backdrop = backdrop;
  31342. + 
  31343. +       reset_window();
  31344. + 
  31345. +       return ok;
  31346. +     }
  31347. +       CloseWindow(new_win);
  31348. +     }
  31349. +   return no_window;
  31350. + }
  31351. + 
  31352. + void force_window(void)
  31353. + {
  31354. +   if (!emacs_win && !emacs_iconified)
  31355. +     {
  31356. +       if (open_emacs_window(emacs_x, emacs_y, emacs_w, emacs_h, emacs_backdrop,
  31357. +                 emacs_screen_name) != ok)
  31358. +     {
  31359. +       /* Try to return to defaults (Workbench, etc) */
  31360. +       if (open_emacs_window(0, 0, 640, 200, 0, 0) != ok)
  31361. +           _fail("I've lost my window ! Exiting.");
  31362. +     }
  31363. +       resume_menus();
  31364. +     }
  31365. + }
  31366. + 
  31367. + /* returns:
  31368. +  *    -2 if msg is not class RAWKEY
  31369. +  *    same as RawKeyConvert otherwise:
  31370. +  *    buffer length if <= kbsize
  31371. +  *    -1 else
  31372. +  */
  31373. + static DeadKeyConvert(struct IntuiMessage *msg, UBYTE *kbuffer, int kbsize,
  31374. +               struct KeyMap *kmap)
  31375. + {
  31376. +   static struct InputEvent ievent = {0, IECLASS_RAWKEY, 0, 0, 0};
  31377. +   int extra = 0, res;
  31378. + 
  31379. +   if (msg->Class != RAWKEY) return (-2);
  31380. + 
  31381. +   /* Do some keymapping ourselves to make emacs users happy */
  31382. + 
  31383. +   /* Ctrl-space becomes Ctrl-@ */
  31384. +   if (msg->Code == 0x40 && msg->Qualifier & CONTROL_MASK)
  31385. +     {
  31386. +       *kbuffer = 0;
  31387. +       return 1;
  31388. +     }
  31389. +   /* Backspace becomes DEL */
  31390. +   if (msg->Code == 0x41 && amiga_remap_bsdel)
  31391. +     {
  31392. +       *kbuffer = 0177;
  31393. +       return 1;
  31394. +     }
  31395. +   /* And DEL becomes CTRL-D */
  31396. +   if (msg->Code == 0x46 && amiga_remap_bsdel)
  31397. +     {
  31398. +       *kbuffer = 04;
  31399. +       return 1;
  31400. +     }
  31401. +   /* Stick numeric pad prefix in front of numeric keypad chars */
  31402. +   if (msg->Qualifier & IEQUALIFIER_NUMERICPAD && amiga_remap_numeric_keypad)
  31403. +     {
  31404. +       *kbuffer++ = 'x' & 037;
  31405. +       *kbuffer++ = '^' & 037;
  31406. +       *kbuffer++ = 'K';
  31407. +       kbsize -= 3;
  31408. +       extra = 3;
  31409. +     }
  31410. + 
  31411. +   /* pack input event */
  31412. +   ievent.ie_Code = msg->Code;
  31413. + 
  31414. +   /* Ignore meta in decoding keys */
  31415. +   ievent.ie_Qualifier = msg->Qualifier & ~META_MASK;
  31416. + 
  31417. +   /* get previous codes from location pointed to by IAddress
  31418. +    *  this pointer is valid until IntuiMessage is replied.
  31419. +    */
  31420. +   ievent.ie_position.ie_addr = *((APTR *)msg->IAddress);
  31421. +   ievent.ie_position.ie_dead.ie_prev1DownQual &= ~META_MASK;
  31422. +   ievent.ie_position.ie_dead.ie_prev2DownQual &= ~META_MASK;
  31423. + 
  31424. +   res = RawKeyConvert(&ievent, kbuffer, kbsize, kmap);
  31425. +   return res ? res + extra : 0;
  31426. + }
  31427. + 
  31428. + void add_wbevent(struct WBArg *wbarg)
  31429. + {
  31430. +   char filename[256];
  31431. + 
  31432. +   if (wbarg->wa_Lock && NameFromLock(wbarg->wa_Lock, filename, 256))
  31433. +     {
  31434. +       struct wbevent *event;
  31435. + 
  31436. +       if (wbarg->wa_Name) AddPart(filename, wbarg->wa_Name, 256);
  31437. +       if (event = (struct wbevent *)malloc(offsetof(struct wbevent, file) +
  31438. +                        strlen(filename) + 1))
  31439. +     {
  31440. +       event->next = wbevents;
  31441. +       strcpy(event->file, filename);
  31442. +       wbevents = event;
  31443. +     }
  31444. +     }
  31445. + }
  31446. + 
  31447. + void check_window(int force)
  31448. + {
  31449. +   ULONG class;
  31450. +   USHORT code, qualifier;
  31451. +   UWORD mx, my;
  31452. +   unsigned char buf[32];
  31453. +   int buflen, deiconify, i;
  31454. +   struct IntuiMessage *msg;
  31455. +   int mouse_event = FALSE, wb_event = FALSE;
  31456. +   struct AppMessage *amsg;
  31457. + 
  31458. +   force_window();
  31459. + 
  31460. +   if (emacs_win)
  31461. +     while (msg = (struct IntuiMessage *)GetMsg(emacs_win->UserPort))
  31462. +       {
  31463. +     class = msg->Class;
  31464. +     code = msg->Code;
  31465. +     qualifier = msg->Qualifier;
  31466. +     mx = msg->MouseX; my = msg->MouseY;
  31467. +     buflen = DeadKeyConvert(msg, buf, 32, 0);
  31468. +     ReplyMsg(msg);
  31469. + 
  31470. +     switch (class)
  31471. +       {
  31472. +       case IDCMP_CLOSEWINDOW: {
  31473. +         enque(030, FALSE); enque(03, FALSE); /* ^X^C */
  31474. +         break;
  31475. +       }
  31476. +       case IDCMP_RAWKEY: {
  31477. +         if (buflen > 0)
  31478. +           {
  31479. +         unsigned char *sbuf = buf;
  31480. +         int meta = qualifier & META_MASK;
  31481. + 
  31482. +         /* Don't set META on CSI */
  31483. +         do enque(*sbuf++, meta); while (--buflen);
  31484. +           }
  31485. +         break;
  31486. +       }
  31487. +       case IDCMP_NEWSIZE: amiga_change_size(); break;
  31488. +       case IDCMP_MENUPICK: case IDCMP_MENUHELP:
  31489. +         if (code == MENUNULL) break; /* else fall through */
  31490. +       case IDCMP_MOUSEBUTTONS: {
  31491. +         mouse_event = TRUE;
  31492. +         if (event_num == EVENTSIZE) break;
  31493. + 
  31494. +         events[event_in].class = class;
  31495. +         events[event_in].code = code;
  31496. +         events[event_in].qual = qualifier;
  31497. +         events[event_in].x = mx;
  31498. +         events[event_in].y = my;
  31499. +         event_num++;
  31500. +         event_in = (event_in + 1) % EVENTSIZE;
  31501. + 
  31502. +         break;
  31503. +       }
  31504. +       }
  31505. +       }
  31506. +   /* Handle App requests */
  31507. +   while (amsg = (struct AppMessage *)GetMsg(wbport))
  31508. +       switch (amsg->am_Type)
  31509. +     {
  31510. +     case MTYPE_APPICON: case MTYPE_APPWINDOW:
  31511. +       /* Add an event for all these files */
  31512. +       for (i = 0; i < amsg->am_NumArgs; i++) add_wbevent(amsg->am_ArgList + i);
  31513. +       wb_event = TRUE;
  31514. +       /* Reply to the message, and deiconify if was icon */
  31515. +       deiconify = amsg->am_Type == MTYPE_APPICON;
  31516. +       ReplyMsg(amsg);
  31517. +       if (deiconify && emacs_icon)
  31518. +         /* Reopen window */
  31519. +         if (open_emacs_window(emacs_x, emacs_y, emacs_w, emacs_h, emacs_backdrop,
  31520. +                   emacs_screen_name) == ok)
  31521. +           {
  31522. +         resume_menus();
  31523. +         RemoveAppIcon(emacs_icon);
  31524. +         emacs_icon = 0;
  31525. +         emacs_iconified = 0;
  31526. +           }
  31527. +       break;
  31528. +     default: ReplyMsg(amsg); break;
  31529. +     }
  31530. + 
  31531. +   if (amiga_mouse_initialized && (force && event_num > 0 || mouse_event))
  31532. +     {
  31533. +       enque(AMIGASEQ, FALSE); enque('M', FALSE);
  31534. +     }
  31535. +   if (amiga_wb_initialized && (force && wbevents || wb_event))
  31536. +     {
  31537. +       enque(AMIGASEQ, FALSE); enque('W', FALSE);
  31538. +     }
  31539. + }
  31540. + 
  31541. + void setup_intchar(char intchar)
  31542. + {
  31543. +   char cqbuf[2];
  31544. + 
  31545. +   if (MapANSI(&intchar, 1, cqbuf, 1, 0) == 1)
  31546. +     {
  31547. +       intkey_code = cqbuf[0];
  31548. +       intkey_qualifier = cqbuf[1];
  31549. +     }
  31550. +   else
  31551. +     {
  31552. +       /* Default is CTRL-G in usa0 keymap */
  31553. +       intkey_code = 0x24;
  31554. +       intkey_qualifier = IEQUALIFIER_CONTROL;
  31555. +     }
  31556. + }
  31557. + 
  31558. + /* Hack to detect interrupt char as soon as it is pressed */
  31559. + /* __interrupt disables stack checking.  -ch3/19/93.*/
  31560. + static long __saveds __interrupt __asm
  31561. + int_handler(register __a0 struct InputEvent *ev)
  31562. + {
  31563. +   struct InputEvent *ep, *laste;
  31564. +   static struct InputEvent retkey;
  31565. +   ULONG lock = LockIBase(0);
  31566. + 
  31567. +   if (emacs_win && IntuitionBase->ActiveWindow == emacs_win)
  31568. +     {
  31569. +       laste = 0;
  31570. + 
  31571. +       /* run down the list of events to see if they pressed the magic key */
  31572. +       for (ep = ev; ep; laste = ep, ep = ep->ie_NextEvent)
  31573. +     if (ep->ie_Class == IECLASS_RAWKEY &&
  31574. +         (ep->ie_Qualifier & 0xff) == intkey_qualifier &&
  31575. +         ep->ie_Code == intkey_code)
  31576. +       {
  31577. +         /* Remove this key from input sequence */
  31578. +         if (laste) laste->ie_NextEvent = ep->ie_NextEvent;
  31579. +         else ev = ep->ie_NextEvent;
  31580. + 
  31581. +         Vquit_flag = Qt;
  31582. +         Signal(_us, SIGBREAKF_CTRL_C);
  31583. +       }
  31584. +     }
  31585. +   UnlockIBase(lock);
  31586. + 
  31587. +   /* pass on the pointer to the event */
  31588. +   return (long)ev;
  31589. + }
  31590. + 
  31591. + DEFUN ("amiga-mouse-events", Famiga_mouse_events, Samiga_mouse_events, 0, 0, 0,
  31592. +        "Return number of pending mouse events from Intuition.")
  31593. +      ()
  31594. + {
  31595. +   register Lisp_Object tem;
  31596. + 
  31597. +   check_intuition ();
  31598. + 
  31599. +   XSET (tem, Lisp_Int, event_num);
  31600. + 
  31601. +   return tem;
  31602. + }
  31603. + 
  31604. + DEFUN ("amiga-proc-mouse-event", Famiga_proc_mouse_event, Samiga_proc_mouse_event,
  31605. +        0, 0, 0,
  31606. +        "Pulls a mouse event out of the mouse event buffer and dispatches\n\
  31607. + the appropriate function to act upon this event.")
  31608. + ()
  31609. + {
  31610. +   register Lisp_Object mouse_cmd;
  31611. +   register char com_letter;
  31612. +   register char key_mask;
  31613. +   register Lisp_Object tempx;
  31614. +   register Lisp_Object tempy;
  31615. +   extern Lisp_Object get_keyelt ();
  31616. +   extern int meta_prefix_char;
  31617. +   struct event *ev;
  31618. +   int posx, posy;
  31619. + 
  31620. +   check_intuition ();
  31621. + 
  31622. +   if (event_num) {
  31623. +     ev = &events[event_out];
  31624. +     event_out = (event_out + 1) % EVENTSIZE;
  31625. +     event_num--;
  31626. +     if (ev->class == MOUSEBUTTONS)
  31627. +       {
  31628. +     switch (ev->code)
  31629. +       {
  31630. +       case SELECTDOWN: com_letter = 2; break;
  31631. +       case SELECTUP: com_letter = 6; break;
  31632. +       case MIDDLEDOWN: com_letter = 1; break;
  31633. +       case MIDDLEUP: com_letter = 5; break;
  31634. +       case MENUDOWN: com_letter = 0; break;
  31635. +       case MENUUP: com_letter = 4; break;
  31636. +       default: com_letter = 3; break;
  31637. +       }
  31638. +     posx = amiga_pos_x(ev->x);
  31639. +     posy = amiga_pos_y(ev->y);
  31640. +     XSET (tempx, Lisp_Int, min (screen_width-1, max (0, posx)));
  31641. +     XSET (tempy, Lisp_Int, min (screen_height-1, max (0, posy)));
  31642. +       }
  31643. +     else
  31644. +       {
  31645. +     /* Must be Menu Pick or Help */
  31646. +     com_letter = ev->class == IDCMP_MENUPICK ? 3 : 7;
  31647. + 
  31648. +     /* The parameters passed describe the selected item */
  31649. +     XSET (tempx, Lisp_Int, MENUNUM(ev->code));
  31650. +     XSET (tempy, Lisp_Int, ITEMNUM(ev->code));
  31651. +       }
  31652. +     if (ev->qual & META_MASK) com_letter |= 0x20;
  31653. +     if (ev->qual & SHIFT_MASK) com_letter |= 0x10;
  31654. +     if (ev->qual & CONTROL_MASK) com_letter |= 0x40;
  31655. + 
  31656. +     Vamiga_mouse_pos = Fcons (tempx, Fcons (tempy, Qnil));
  31657. +     Vamiga_mouse_item = make_number (com_letter);
  31658. +     mouse_cmd = get_keyelt (access_keymap (MouseMap, com_letter));
  31659. +     if (NULL (mouse_cmd)) {
  31660. +       bell ();
  31661. +       Vamiga_mouse_pos = Qnil;
  31662. +     }
  31663. +     else return call1 (mouse_cmd, Vamiga_mouse_pos);
  31664. +   }
  31665. +   return Qnil;
  31666. + }
  31667. + 
  31668. + DEFUN ("amiga-get-mouse-event", Famiga_get_mouse_event, Samiga_get_mouse_event,
  31669. +        1, 1, 0,
  31670. +        "Get next mouse event out of mouse event buffer (com-letter (x y)).\n\
  31671. + ARG non-nil means return nil immediately if no pending event;\n\
  31672. + otherwise, wait for an event.")
  31673. + (arg)
  31674. + Lisp_Object arg;
  31675. + {
  31676. +   register char com_letter;
  31677. +   register char key_mask;
  31678. + 
  31679. +   register Lisp_Object tempx;
  31680. +   register Lisp_Object tempy;
  31681. +   struct event *ev;
  31682. +   int posx, posy;
  31683. + 
  31684. +   check_intuition ();
  31685. + 
  31686. +   if (NULL (arg))
  31687. +     {
  31688. +       amiga_consume_input();
  31689. +       while (!event_num)
  31690. +     {
  31691. +       int rfds = 1;
  31692. + 
  31693. +       select(1, &rfds, 0, 0, 0);
  31694. +       amiga_consume_input();
  31695. +     }
  31696. +     }
  31697. +   /*** ??? Surely you don't mean to busy wait??? */
  31698. + 
  31699. +   if (event_num) {
  31700. +     ev = &events[event_out];
  31701. +     event_out = (event_out + 1) % EVENTSIZE;
  31702. +     event_num--;
  31703. +     switch (ev->code)
  31704. +       {
  31705. +       case SELECTDOWN: com_letter = 2; break;
  31706. +       case SELECTUP: com_letter = 6; break;
  31707. +       case MIDDLEDOWN: com_letter = 1; break;
  31708. +       case MIDDLEUP: com_letter = 5; break;
  31709. +       case MENUDOWN: com_letter = 0; break;
  31710. +       case MENUUP: com_letter = 4; break;
  31711. +       default: com_letter = 3; break;
  31712. +       }
  31713. +     if (ev->qual & META_MASK) com_letter |= 0x20;
  31714. +     if (ev->qual & SHIFT_MASK) com_letter |= 0x10;
  31715. +     if (ev->qual & CONTROL_MASK) com_letter |= 0x40;
  31716. + 
  31717. +     posx = amiga_pos_x(ev->x);
  31718. +     posy = amiga_pos_y(ev->y);
  31719. +     XSET (tempx, Lisp_Int, min (screen_width-1, max (0, posx)));
  31720. +     XSET (tempy, Lisp_Int, min (screen_height-1, max (0, posy)));
  31721. + 
  31722. +     Vamiga_mouse_pos = Fcons (tempx, Fcons (tempy, Qnil));
  31723. +     Vamiga_mouse_item = make_number (com_letter);
  31724. +     return Fcons (com_letter, Fcons (Vamiga_mouse_pos, Qnil));
  31725. +   }
  31726. +   return Qnil;
  31727. + }
  31728. + 
  31729. + DEFUN ("amiga-get-wb-event", Famiga_get_wb_event, Samiga_get_wb_event,
  31730. +        1, 1, 0,
  31731. +        "Get next Workbench event out of workbench event buffer (a file name).\n\
  31732. + ARG non-nil means return nil immediately if no pending event;\n\
  31733. + otherwise, wait for an event.")
  31734. + (arg)
  31735. + Lisp_Object arg;
  31736. + {
  31737. +   Lisp_Object file;
  31738. +   struct wbevent *ev;
  31739. + 
  31740. +   check_intuition ();
  31741. + 
  31742. +   if (NULL (arg))
  31743. +     {
  31744. +       amiga_consume_input();
  31745. +       while (!wbevents)
  31746. +     {
  31747. +       int rfds = 1;
  31748. + 
  31749. +       select(1, &rfds, 0, 0, 0);
  31750. +       amiga_consume_input();
  31751. +     }
  31752. +     }
  31753. +   /*** ??? Surely you don't mean to busy wait??? */
  31754. + 
  31755. +   if (wbevents) {
  31756. +     file = build_string(wbevents->file);
  31757. +     ev = wbevents;
  31758. +     wbevents = wbevents->next;
  31759. +     free(ev);
  31760. +     return file;
  31761. +   }
  31762. +   return Qnil;
  31763. + }
  31764. + 
  31765. + DEFUN("amiga-set-foreground-color", Famiga_set_foreground_color,
  31766. +       Samiga_set_foreground_color, 1, 1, "nPen number: ",
  31767. +       "Use PEN as foreground color")
  31768. +      (pen)
  31769. + {
  31770. +   int fg;
  31771. + 
  31772. +   check_intuition();
  31773. +   CHECK_NUMBER(pen, 0);
  31774. + 
  31775. +   fg = XUINT (pen);
  31776. +   if (pen > 7) error("Pen colors must be between 0 & 7");
  31777. +   foreground = fg;
  31778. +   reset_window();
  31779. +   return Qnil;
  31780. + }
  31781. + 
  31782. + DEFUN("amiga-set-background-color", Famiga_set_background_color,
  31783. +       Samiga_set_background_color, 1, 1, "nPen number: ",
  31784. +       "Use PEN as background color")
  31785. +      (pen)
  31786. + {
  31787. +   int bg;
  31788. + 
  31789. +   check_intuition();
  31790. +   CHECK_NUMBER(pen, 0);
  31791. + 
  31792. +   bg = XUINT (pen);
  31793. +   if (pen > 7) error("Pen colors must be between 0 & 7");
  31794. +   background = bg;
  31795. +   reset_window();
  31796. +   return Qnil;
  31797. + }
  31798. + 
  31799. + DEFUN("amiga-set-inverse-fill-pen", Famiga_set_inverse_fill_pen,
  31800. +       Samiga_set_inverse_fill_pen, 1, 1, "nPen number: ",
  31801. +       "Use PEN's color for inverse fills (0-7 or 8 for reverse)")
  31802. +      (pen)
  31803. + {
  31804. +   int ifp = 8;
  31805. + 
  31806. +   check_intuition();
  31807. +   CHECK_NUMBER(pen, 0);
  31808. + 
  31809. +   ifp = XUINT (pen);
  31810. +   if (pen > 8)
  31811. +     error("choices are from 0 to 8");
  31812. +   inverse_fill_pen = ifp;
  31813. +   reset_window();
  31814. +   return Qnil;
  31815. + }
  31816. + 
  31817. + DEFUN("amiga-set-inverse-text-pen", Famiga_set_inverse_text_pen,
  31818. +       Samiga_set_inverse_text_pen, 1, 1, "nPen number: ",
  31819. +       "Use PEN's color for inverse fills (0-7 or 8 for reverse)")
  31820. +      (pen)
  31821. + {
  31822. +   int itp = 8;
  31823. + 
  31824. +   check_intuition();
  31825. +   CHECK_NUMBER(pen, 0);
  31826. + 
  31827. +   itp = XUINT (pen);
  31828. +   if (pen > 8)
  31829. +     error("choices are from 0 to 8");
  31830. +   inverse_text_pen = itp;
  31831. +   reset_window();
  31832. +   return Qnil;
  31833. + }
  31834. + 
  31835. + DEFUN("amiga-set-font", Famiga_set_font, Samiga_set_font, 2, 2,
  31836. +       "sFont: \n\
  31837. + nSize: ",
  31838. +       "Set font used for window to FONT with given HEIGHT.\n\
  31839. + The font used must be non-proportional.")
  31840. + (wfont, height)
  31841. + {
  31842. +   struct TextAttr attr;
  31843. +   struct TextFont *newfont;
  31844. +   char *fname;
  31845. +   struct Lisp_String *fstr;
  31846. +   WORD minw, minh, oldmw, oldmh;
  31847. + 
  31848. +   CHECK_STRING (wfont, 0);
  31849. +   CHECK_NUMBER (height, 0);
  31850. + 
  31851. +   check_intuition();
  31852. + 
  31853. +   fstr = XSTRING (wfont);
  31854. +   fname = (char *)alloca (fstr->size + 6);
  31855. +   strcpy (fname, fstr->data);
  31856. +   strcat (fname, ".font");
  31857. +   attr.ta_Name = fname;
  31858. +   attr.ta_YSize = XFASTINT (height);
  31859. +   attr.ta_Style = 0;
  31860. +   attr.ta_Flags = 0;
  31861. +   newfont = OpenDiskFont (&attr);
  31862. + 
  31863. +   if (!newfont)
  31864. +     error ("Font %s %d not found", fstr->data, XFASTINT (height));
  31865. +   if (newfont->tf_Flags & FPF_PROPORTIONAL)
  31866. +     {
  31867. +       CloseFont(newfont);
  31868. +       error ("Font %s %d is proportional", fstr->data, XFASTINT (height));
  31869. +     }
  31870. + 
  31871. +   if (emacs_win)
  31872. +     {
  31873. +       if (!set_min_size(emacs_win, newfont, &minw, &minh))
  31874. +     {
  31875. +       CloseFont(newfont);
  31876. +       if (!set_min_size(emacs_win, font, &oldmw, &oldmh))
  31877. +         _fail("Failed to restore old font, exiting.");
  31878. +       error("Window is too small for this font, need at least %d(w) by %d(h)",
  31879. +         minw, minh);
  31880. +     }
  31881. +       SetFont(emacs_win->RPort, newfont);
  31882. +     }
  31883. +   if (font_opened) CloseFont(font);
  31884. +   font_opened = TRUE;
  31885. +   font = newfont;
  31886. +   reset_window();
  31887. +   return Qnil;
  31888. + }
  31889. + 
  31890. + DEFUN("amiga-set-geometry", Famiga_set_geometry, Samiga_set_geometry, 4, MANY, 0,
  31891. +       "Set Emacs window geometry and screen.\n\
  31892. + First 4 parameters are the (X,Y) position of the top-left corner of the window\n\
  31893. + and its WIDTH and HEIGHT. These must be big enough for an 11x4 characters window.\n\
  31894. + If nil is given for any of these, that means to keep the same value as before.\n\
  31895. + The optional argument SCREEN specifies which screen to use, nil stands for the\n\
  31896. + same screen as the window is on, t stands for the default public screen (normally\n\
  31897. + the Workbench), a string specifies a given public screen.\n\
  31898. + If optional argument BACKDROP is t, a backdrop window is used.")
  31899. +   (nargs, args)
  31900. +     int nargs;
  31901. +     Lisp_Object *args;
  31902. + {
  31903. +   Lisp_Object x, y, w, h, scr = Qnil, backdrop = Qnil;
  31904. +   int opened;
  31905. +   WORD tempx, tempy, tempw, temph;
  31906. +   char *screen_name;
  31907. +   int use_backdrop;
  31908. + 
  31909. +   if (nargs > 6) error("Too many arguments to amiga-set-geometry");
  31910. +   x = args[0]; y = args[1]; w = args[2]; h = args[3];
  31911. +   if (nargs > 4)
  31912. +     {
  31913. +       scr = args[4];
  31914. +       if (nargs > 5) backdrop = args[5];
  31915. +     }
  31916. + 
  31917. +   check_intuition();
  31918. + 
  31919. +   if (!NULL (x))
  31920. +     {
  31921. +       CHECK_NUMBER(x, 0);
  31922. +       tempx = XUINT(x);
  31923. +     }
  31924. +   else tempx = EMACS_X();
  31925. +   if (!NULL (y))
  31926. +     {
  31927. +       CHECK_NUMBER(y, 0);
  31928. +       tempy = XUINT(y);
  31929. +     }
  31930. +   else tempy = EMACS_Y();
  31931. +   if (!NULL (w))
  31932. +     {
  31933. +       CHECK_NUMBER(w, 0);
  31934. +       tempw = XUINT(w);
  31935. +     }
  31936. +   else tempw = EMACS_W();
  31937. +   if (!NULL (h))
  31938. +     {
  31939. +       CHECK_NUMBER(h, 0);
  31940. +       temph = XUINT(h);
  31941. +     }
  31942. +   else temph = EMACS_H();
  31943. + 
  31944. +   use_backdrop = !NULL(backdrop);
  31945. + 
  31946. +   if (scr == Qt) screen_name = 0; /* set to zero for def. */
  31947. +   else if (!NULL (scr))
  31948. +     {
  31949. +       CHECK_STRING (scr, 0);
  31950. +       screen_name = XSTRING (scr)->data;
  31951. +     }
  31952. +   else screen_name = emacs_screen_name;
  31953. + 
  31954. +   if (emacs_win)
  31955. +     {
  31956. +       struct Window *old_win = emacs_win;
  31957. +       struct IOStdReq *old_console = emacs_console;
  31958. + 
  31959. +       suspend_menus();
  31960. +       opened = open_emacs_window(tempx, tempy, tempw, temph, use_backdrop,
  31961. +                  screen_name);
  31962. +       if (opened != ok)
  31963. +     {
  31964. +       resume_menus();
  31965. + 
  31966. +       if (opened == no_window) error("Failed to open desired window");
  31967. +       else if (screen_name)
  31968. +         error("Unknown public screen %s", screen_name);
  31969. +       else error("The default screen wasn't found !?");
  31970. +     }
  31971. + 
  31972. +       _device_close(old_console);
  31973. +       CloseWindow(old_win);
  31974. +       if (!resume_menus()) error("Failed to recover menus (No memory?)");
  31975. +     }
  31976. +   else /* No window, set defaults */
  31977. +     {
  31978. +       emacs_screen_name = screen_name;
  31979. +       if (screen_name)
  31980. +     {
  31981. +       emacs_screen_name_storage[MAXPUBSCREENNAME] = '\0';
  31982. +       strncpy(emacs_screen_name_storage, screen_name, MAXPUBSCREENNAME);
  31983. +     }
  31984. +       emacs_x = tempx;
  31985. +       emacs_y = tempy;
  31986. +       emacs_w = tempw;
  31987. +       emacs_h = temph;
  31988. +       emacs_backdrop = use_backdrop;
  31989. +     }
  31990. +   return Qnil;
  31991. + }
  31992. + 
  31993. + 
  31994. + /* The next 2 functions are very usefull for writing
  31995. +  * arexx/lisp functions that interact with other programs
  31996. +  * that will be sharing the same screen.  -ch3/19/93. */
  31997. + 
  31998. + DEFUN("amiga-get-window-geometry",
  31999. +       Famiga_get_window_geometry, Samiga_get_window_geometry, 0, 0, 0,
  32000. +       "Get Emacs window geometry.\n\
  32001. + a list returned is of the form:  (iconified x y width height backdrop)\n\
  32002. + where x, y, width, height are integers, backdrop is t or nil and iconified\n\
  32003. + is t if the window is iconified and nil otherwise")
  32004. + ()
  32005. + {
  32006. +   Lisp_Object x, y, w, h, b, i;
  32007. + 
  32008. +   XSET(x, Lisp_Int, EMACS_X());
  32009. +   XSET(y, Lisp_Int, EMACS_Y());
  32010. +   XSET(w, Lisp_Int, EMACS_W());
  32011. +   XSET(h, Lisp_Int, EMACS_H());
  32012. +   b = emacs_backdrop ? Qt : Qnil;
  32013. +   i = emacs_iconified ? Qt : Qnil;
  32014. + 
  32015. +   return Fcons(i, Fcons(x, Fcons(y, Fcons(w, Fcons(h, Fcons(b, Qnil))))));
  32016. + }
  32017. + 
  32018. + DEFUN("amiga-get-screen-geometry",
  32019. +       Famiga_get_screen_geometry, Samiga_get_screen_geometry, 0, 0, 0,
  32020. +       "Get geometry of the screen emacs window resides on.\n\
  32021. + a list returned is of the form:  (name x y width height)\n\
  32022. + where name is a string, x, y, width, height are integers.\n\
  32023. + Only the public screen name is returned if the window is not currently open.\n\
  32024. + In this last case, the name may be nil if the window will be opened on the\n\
  32025. + default public screen.")
  32026. + ()
  32027. + {
  32028. +   Lisp_Object name;
  32029. + 
  32030. +   if (emacs_screen_name) name = Qnil;
  32031. +   else name = build_string(emacs_screen_name);
  32032. + 
  32033. +   if(emacs_win)
  32034. +     {
  32035. +       struct Screen *s = emacs_win->WScreen;
  32036. +       Lisp_Object x, y, w, h;
  32037. + 
  32038. +       XSET(x, Lisp_Int, s->LeftEdge);
  32039. +       XSET(y, Lisp_Int, s->TopEdge);
  32040. +       XSET(w, Lisp_Int, s->Width);
  32041. +       XSET(h, Lisp_Int, s->Height);
  32042. + 
  32043. +       return Fcons(name, Fcons(x, Fcons(y, Fcons(w, Fcons(h, Qnil)))));
  32044. +     }
  32045. +   return Fcons(name, Qnil);
  32046. + }
  32047. + 
  32048. + DEFUN("amiga-iconify", Famiga_iconify, Samiga_iconify, 0, 0, "",
  32049. +       "Toggle the emacs iconification state.")
  32050. + ()
  32051. + {
  32052. +   check_intuition();
  32053. + 
  32054. +   if (emacs_iconified)
  32055. +     {
  32056. +       /* Deiconify */
  32057. + 
  32058. +       /* Reopen window */
  32059. +       if (open_emacs_window(emacs_x, emacs_y, emacs_w, emacs_h, emacs_backdrop,
  32060. +                 emacs_screen_name) != ok)
  32061. +     error("Failed to deiconify (No memory?)");
  32062. +       resume_menus();
  32063. + 
  32064. +       RemoveAppIcon(emacs_icon);
  32065. +       emacs_icon = 0;
  32066. +       emacs_iconified = 0;
  32067. +     }
  32068. +   else
  32069. +     if (emacs_icon = AddAppIconA(0, 0, "Emacs", wbport, 0, &emacs_icon_object, 0))
  32070. +       {
  32071. +     if (emacs_win)
  32072. +       {
  32073. +         /* Close window */
  32074. +         emacs_x = EMACS_X(); emacs_y = EMACS_Y();
  32075. +         emacs_w = EMACS_W(); emacs_h = EMACS_H();
  32076. +         suspend_menus();
  32077. +         close_emacs_window();
  32078. +       }
  32079. +     emacs_iconified = 1;
  32080. +       }
  32081. +     else error("Iconify attempt failed\n");
  32082. + 
  32083. +   return Qnil;
  32084. + }
  32085. + 
  32086. + DEFUN("amiga-set-icon-pos", Famiga_set_icon_pos, Samiga_set_icon_pos, 2, 2,
  32087. + "nX position: \n\
  32088. + nY position: ",
  32089. +       "Set the X Y position of the icon for emacs when iconified.")
  32090. +   (Lisp_Object x, Lisp_Object y)
  32091. + {
  32092. +   long xpos, ypos;
  32093. + 
  32094. +   if (NULL (x)) emacs_icon_object.do_CurrentX = NO_ICON_POSITION;
  32095. +   else
  32096. +     {
  32097. +       CHECK_NUMBER (x, 0);
  32098. +       emacs_icon_object.do_CurrentX = XINT(x);
  32099. +     }
  32100. +   if (NULL (y)) emacs_icon_object.do_CurrentY = NO_ICON_POSITION;
  32101. +   else
  32102. +     {
  32103. +       CHECK_NUMBER (y, 0);
  32104. +       emacs_icon_object.do_CurrentY = XINT(y);
  32105. +     }
  32106. + 
  32107. +   return Qnil;
  32108. + }
  32109. + 
  32110. + struct EClockVal scount[16], ecount[16];
  32111. + long total[16], counting[16], nb[16], susp[16];
  32112. + 
  32113. + void start_count(int n)
  32114. + {
  32115. +   nb[n]++;
  32116. +   if (counting[n]) printf("Restarted %d\n", n);
  32117. +   counting[n] = 1;
  32118. +   /*ReadEClock(&scount[n]);*/
  32119. + }
  32120. + 
  32121. + void stop_count(int n)
  32122. + {
  32123. +   if (counting[n])
  32124. +     {
  32125. +       /*ReadEClock(&ecount[n]);*/
  32126. +       counting[n] = 0;
  32127. + 
  32128. +       total[n] += ecount[n].ev_lo - scount[n].ev_lo;
  32129. +     }
  32130. + }
  32131. + 
  32132. + void suspend_count(int n)
  32133. + {
  32134. +   if (counting[n] && susp[n]++ == 0)
  32135. +     {
  32136. +       /*ReadEClock(&ecount[n]);*/
  32137. +       total[n] += ecount[n].ev_lo - scount[n].ev_lo;
  32138. +     }
  32139. + }
  32140. + 
  32141. + void resume_count(int n)
  32142. + {
  32143. +   if (counting[n] && --susp[n] == 0) /*ReadEClock(&scount[n])*/;
  32144. + }
  32145. + 
  32146. + disp_counts(void)
  32147. + {
  32148. +   int i;
  32149. + 
  32150. +   for (i = 0; i < 16; i++)
  32151. +     {
  32152. +       printf("%d(%d) ", total[i], nb[i]);
  32153. +       total[i] = nb[i] = 0;
  32154. +     }
  32155. +   printf("\n");
  32156. + }
  32157. + 
  32158. + void screen_puts(char *str, unsigned int len)
  32159. + {
  32160. +   if (emacs_win)
  32161. +     {
  32162. +       int i;
  32163. + 
  32164. +       emacs_console->io_Command = CMD_WRITE;
  32165. +       emacs_console->io_Data    = (APTR)str;
  32166. +       emacs_console->io_Length  = len;
  32167. + 
  32168. +       /*    start_count(0);
  32169. +         for (i = 1; i <= 6; i++) suspend_count(i);*/
  32170. +       DoIO(emacs_console);
  32171. +       /*    for (i = 1; i <= 6; i++) resume_count(i);
  32172. +         stop_count(0);*/
  32173. +     }
  32174. + }
  32175. + 
  32176. + DEFUN ("amiga-activate-window", Famiga_activate_window, Samiga_activate_window, 0, 0, 0,
  32177. +        "Makes emacs window the currently active one.")
  32178. +      ()
  32179. + {
  32180. +   if(emacs_win) {
  32181. +     ActivateWindow(emacs_win);
  32182. +     return Qnil;
  32183. +   }
  32184. +   error("No window to make active.");
  32185. +   return Qnil;
  32186. + }
  32187. + 
  32188. + DEFUN ("amiga-window-to-front", Famiga_window_to_front, Samiga_window_to_front, 0, 0, 0,
  32189. +        "Pulls the emacs window to the front (including screen)")
  32190. +      ()
  32191. + {
  32192. +   if(emacs_win) {
  32193. +     WindowToFront(emacs_win);
  32194. +     ScreenToFront(emacs_win->WScreen);
  32195. +     return Qnil;
  32196. +   }
  32197. +   error("No window to pull to the front.");
  32198. +   return Qnil;
  32199. + }
  32200. + 
  32201. + DEFUN ("amiga-window-to-back", Famiga_window_to_back, Samiga_window_to_back, 0, 0, 0,
  32202. +        "Pushes the emacs window to the back (including screen)")
  32203. +      ()
  32204. + {
  32205. +   if(emacs_win) {
  32206. +     WindowToBack(emacs_win);
  32207. +     ScreenToBack(emacs_win->WScreen);
  32208. +     return Qnil;
  32209. +   }
  32210. +   error("No window to push back.");
  32211. +   return Qnil;
  32212. + }
  32213. + 
  32214. + 
  32215. + void syms_of_amiga_screen(void)
  32216. + {
  32217. +   DEFVAR_LISP ("amiga-mouse-item", &Vamiga_mouse_item,
  32218. +            "Encoded representation of last mouse click, corresponding to\n\
  32219. + numerical entries in amiga-mouse-map.");
  32220. +   Vamiga_mouse_item = Qnil;
  32221. +   DEFVAR_LISP ("amiga-mouse-pos", &Vamiga_mouse_pos,
  32222. +            "Current x-y position of mouse by row, column as specified by font.");
  32223. +   Vamiga_mouse_pos = Qnil;
  32224. + 
  32225. +   DEFVAR_BOOL ("amiga-remap-bsdel", &amiga_remap_bsdel,
  32226. +            "*If true, map DEL to Ctrl-D and Backspace to DEL. \n\
  32227. + This is the most convenient (and default) setting. If nil, don't remap.");
  32228. +   amiga_remap_bsdel = 1;
  32229. + 
  32230. +   DEFVAR_BOOL ("amiga-remap-numeric-keypad", &amiga_remap_numeric_keypad,
  32231. +            "*If true, numeric keypad keys are prefixed with C-x C-^ K.\n\
  32232. + This enables you to remap them, but causes problems with functions like\n\
  32233. + isearch-forward-regexp on some keyboards. Default to true.");
  32234. +   amiga_remap_numeric_keypad = 1;
  32235. + 
  32236. +   DEFVAR_BOOL ("amiga-mouse-initialized", &amiga_mouse_initialized,
  32237. +            "Set to true once lisp has been setup to process mouse commands.\n\
  32238. + No mouse processing request (C-X C-^ M) will be queued while this is nil.");
  32239. +   amiga_mouse_initialized = 0;
  32240. + 
  32241. +   DEFVAR_BOOL ("amiga-wb-initialized", &amiga_wb_initialized,
  32242. +            "Set to true once lisp has been setup to process workbench commands.\n\
  32243. + No workbench processing request (C-X C-^ W) will be queued while this is nil.");
  32244. +   amiga_mouse_initialized = 0;
  32245. + 
  32246. +   defsubr (&Samiga_mouse_events);
  32247. +   defsubr (&Samiga_proc_mouse_event);
  32248. +   defsubr (&Samiga_get_mouse_event);
  32249. +   defsubr (&Samiga_get_wb_event);
  32250. +   defsubr (&Samiga_set_font);
  32251. +   defsubr (&Samiga_set_geometry);
  32252. +   defsubr (&Samiga_set_background_color);
  32253. +   defsubr (&Samiga_set_foreground_color);
  32254. +   defsubr (&Samiga_iconify);
  32255. +   defsubr (&Samiga_set_icon_pos);
  32256. + 
  32257. +   /* New functions  -ch3/19/93. */
  32258. +   defsubr (&Samiga_set_inverse_text_pen);
  32259. +   defsubr (&Samiga_set_inverse_fill_pen);
  32260. +   defsubr (&Samiga_window_to_front);
  32261. +   defsubr (&Samiga_window_to_back);
  32262. +   defsubr (&Samiga_activate_window);
  32263. +   defsubr (&Samiga_get_window_geometry);
  32264. +   defsubr (&Samiga_get_screen_geometry);
  32265. + 
  32266. + }
  32267. + 
  32268. + void init_amiga_screen(void)
  32269. + {
  32270. +   event_num = event_in = event_out = 0;
  32271. + 
  32272. +   if (!((IntuitionBase = (struct IntuitionBase *)
  32273. +      OpenLibrary("intuition.library", 37L)) &&
  32274. +     (GfxBase = (struct GfxBase *)OpenLibrary("graphics.library", 0L)) &&
  32275. +     (DiskfontBase = OpenLibrary("diskfont.library", 0L)) &&
  32276. +     (WorkbenchBase = OpenLibrary("workbench.library", 37)) &&
  32277. +     (KeymapBase = OpenLibrary("keymap.library", 36)) &&
  32278. +     (input_req = (struct IOStdReq *)_device_open("input.device", 0, 0, 0, 0,
  32279. +                              sizeof(struct IOStdReq)))))
  32280. +     _fail("Need version 2.04 and diskfont.library!");
  32281. + 
  32282. +   if (!(wbport = CreateMsgPort())) no_memory();
  32283. + 
  32284. +   /* Add Ctrl-G detector */
  32285. +   int_handler_hook.is_Data = 0;
  32286. +   int_handler_hook.is_Code = (void *)int_handler;
  32287. +   int_handler_hook.is_Node.ln_Pri = 100; /* 100 not 127 is the standard value
  32288. +                       * for input stream handlers.  -ch3/19/93. */
  32289. +   /* it is standard for interrupts to have names  -ch3/19/93.*/
  32290. +   int_handler_hook.is_Node.ln_Name = "GNU Emacs CTRL-G handler";
  32291. +   input_req->io_Command = IND_ADDHANDLER;
  32292. +   input_req->io_Data = (APTR)&int_handler_hook;
  32293. + 
  32294. +   /* wasn't checking for error. -ch3/19/93. */
  32295. +   if(0 == DoIO(input_req))
  32296. +     hooked = TRUE;
  32297. +   else
  32298. +     {
  32299. +       hooked = FALSE;
  32300. +       _fail("couldn't get input handler hook for CTRL-G");
  32301. +     }
  32302. + 
  32303. +   inputsig |= 1L << wbport->mp_SigBit;
  32304. + 
  32305. +   background_hook.h_Entry = (ULONG (*)()) fill_background; /* added cast. */
  32306. +   font = GfxBase->DefaultFont;
  32307. + 
  32308. +   init_amiga_menu();
  32309. + }
  32310. + 
  32311. + void cleanup_amiga_screen(void)
  32312. + {
  32313. +   if (hooked)
  32314. +     {
  32315. +       input_req->io_Command = IND_REMHANDLER;
  32316. +       input_req->io_Data = (APTR)&int_handler_hook;
  32317. +       DoIO(input_req);
  32318. +     }
  32319. +   close_app_win();
  32320. +   if (wbport) DeleteMsgPort(wbport);
  32321. +   cleanup_amiga_menu();
  32322. +   _device_close(emacs_console);
  32323. +   if (emacs_win) CloseWindow(emacs_win);
  32324. +   if (font_opened) CloseFont(font);
  32325. +   if (IntuitionBase) CloseLibrary(IntuitionBase);
  32326. +   if (GfxBase) CloseLibrary(GfxBase);
  32327. +   if (DiskfontBase) CloseLibrary(DiskfontBase);
  32328. +   if (WorkbenchBase) CloseLibrary(WorkbenchBase);
  32329. +   if (KeymapBase) CloseLibrary(KeymapBase);
  32330. +   _device_close(input_req);
  32331. + }
  32332. diff -rc --new-file emacs-18.59/src/amiga_serial.c /gnu/src/amiga/emacs-18.59/src/amiga_serial.c
  32333. *** emacs-18.59/src/amiga_serial.c    Thu Jan  1 00:00:00 1970
  32334. --- /gnu/src/amiga/emacs-18.59/src/amiga_serial.c    Sat Jun  5 11:37:38 1993
  32335. ***************
  32336. *** 0 ****
  32337. --- 1,72 ----
  32338. + #include <exec/types.h>
  32339. + #include <devices/serial.h>
  32340. + #include <stdio.h>
  32341. + #include <internal/devices.h>
  32342. + 
  32343. + #include <proto/exec.h>
  32344. + #include <proto/dos.h>
  32345. + 
  32346. + #include "amiga.h"
  32347. + 
  32348. + static struct MsgPort  *SerReadPort;
  32349. + static struct IOExtSer *SerReadRequest, *SerWriteRequest;
  32350. + static char ser_inbuf[2];
  32351. + char *far serial_device = "serial.device";
  32352. + long far serial_unit;
  32353. + 
  32354. + void init_amiga_serial(void)
  32355. + {
  32356. +     if ((SerWriteRequest = (struct IOExtSer *)
  32357. +      _device_open(serial_device, serial_unit, 0L,
  32358. +               0L, 0, sizeof(struct IOExtSer))) &&
  32359. +     (SerReadPort = CreateMsgPort()) &&
  32360. +     (SerReadRequest  = (struct IOExtSer *)CreateIORequest(SerReadPort, sizeof (struct IOExtSer))))
  32361. +     {
  32362. +     SerReadRequest->IOSer.io_Device = SerWriteRequest->IOSer.io_Device;
  32363. +     SerReadRequest->IOSer.io_Unit = SerWriteRequest->IOSer.io_Unit;
  32364. +     ser_inbuf[1]=0;
  32365. +     SerReadRequest->IOSer.io_Command = CMD_READ;
  32366. +     SerWriteRequest->IOSer.io_Command = CMD_WRITE;
  32367. +     SerReadRequest->IOSer.io_Length = 1;
  32368. +     SerReadRequest->IOSer.io_Data = &ser_inbuf[0];
  32369. +     SendIO(SerReadRequest);
  32370. + 
  32371. +     inputsig |= 1L << SerReadPort->mp_SigBit;
  32372. +     }
  32373. +     else _fail("No memory or serial.device missing");
  32374. + }
  32375. + 
  32376. + void cleanup_amiga_serial(void)
  32377. + {
  32378. +     if (SerReadRequest)
  32379. +     {
  32380. +     AbortIO(SerReadRequest);
  32381. +     WaitIO(SerReadRequest);
  32382. +     DeleteIORequest(SerReadRequest);
  32383. +     }
  32384. +     if (SerReadPort) DeletePort(SerReadPort);
  32385. +     _device_close(SerWriteRequest);
  32386. + }
  32387. + 
  32388. + void check_serial(int force)
  32389. + {
  32390. +     while (CheckIO(SerReadRequest))
  32391. +     {
  32392. +     int c = ser_inbuf[0];
  32393. +     SendIO(SerReadRequest);
  32394. +     enque(c, FALSE);
  32395. +     }
  32396. + }
  32397. + 
  32398. + void serial_puts(char *str, int len)
  32399. + {
  32400. + 
  32401. +     SerWriteRequest->IOSer.io_Length = len;
  32402. +     SerWriteRequest->IOSer.io_Data = str;
  32403. +     DoIO(SerWriteRequest);
  32404. + }
  32405. + 
  32406. + unsigned long serial_baud_rate(void)
  32407. + {
  32408. +     return SerWriteRequest->io_Baud;
  32409. + }
  32410. diff -rc --new-file emacs-18.59/src/amiga_sysdep.c /gnu/src/amiga/emacs-18.59/src/amiga_sysdep.c
  32411. *** emacs-18.59/src/amiga_sysdep.c    Thu Jan  1 00:00:00 1970
  32412. --- /gnu/src/amiga/emacs-18.59/src/amiga_sysdep.c    Sat Jun  5 11:39:12 1993
  32413. ***************
  32414. *** 0 ****
  32415. --- 1,375 ----
  32416. + /* Interfaces to system-dependent kernel and library entries.
  32417. + Copyright (C) 1985, 1986, 1987, 1988 Free Software Foundation, Inc.
  32418. + 
  32419. + This file is part of GNU Emacs.
  32420. + 
  32421. + GNU Emacs is distributed in the hope that it will be useful,
  32422. + but WITHOUT ANY WARRANTY.  No author or distributor
  32423. + accepts responsibility to anyone for the consequences of using it
  32424. + or for whether it serves any particular purpose or works at all,
  32425. + unless he says so in writing.  Refer to the GNU Emacs General Public
  32426. + License for full details.
  32427. + 
  32428. + Everyone is granted permission to copy, modify and redistribute
  32429. + GNU Emacs, but only under the conditions described in the
  32430. + GNU Emacs General Public License.   A copy of this license is
  32431. + supposed to have been given to you along with GNU Emacs so you
  32432. + can know your rights and responsibilities.  It should be in a
  32433. + file named COPYING.  Among other things, the copyright notice
  32434. + and this notice must be preserved on all copies.  */
  32435. + 
  32436. + #include <exec/types.h>
  32437. + #include <dos/dos.h>
  32438. + #include <dos/dosextens.h>
  32439. + #include <dos/var.h>
  32440. + #include <exec/execbase.h>
  32441. + #include <exec/tasks.h>
  32442. + #include <utility/tagitem.h>
  32443. + #include <workbench/startup.h>
  32444. + #include <workbench/workbench.h>
  32445. + #include <proto/exec.h>
  32446. + #include <proto/dos.h>
  32447. + #include <proto/icon.h>
  32448. + 
  32449. + #include <string.h>
  32450. + #include <ios1.h>
  32451. + #include <stdio.h>
  32452. + #include <sys/types.h>
  32453. + #include <sys/stat.h>
  32454. + #include <signal.h>
  32455. + #include <setjmp.h>
  32456. + #include <unistd.h>
  32457. + #include <internal/vars.h>
  32458. + 
  32459. + #undef LONGBITS
  32460. + #undef NULL
  32461. + #include "config.h"
  32462. + #include "lisp.h"
  32463. + #include "emacssignal.h"
  32464. + 
  32465. + #define min(x,y) ((x) > (y) ? (y) : (x))
  32466. + 
  32467. + #include "termhooks.h"
  32468. + #include "termchar.h"
  32469. + #include "termopts.h"
  32470. + #include "dispextern.h"
  32471. + #include "amiga.h"
  32472. + 
  32473. + #define EMACS_TOOL_SIZE 128    /* Room for path to emacs executable */
  32474. + 
  32475. + struct Library *IconBase;
  32476. + extern struct ExecBase *SysBase;
  32477. + 
  32478. + /*long __stack = 40000;*/        /* Minimum stack size, used by c.o */
  32479. + int amiga_process_stack_size;
  32480. + 
  32481. + int amiga_initialized;
  32482. + int amiga_create_icons;        /* If true, we create icons when saving files */
  32483. + enum exit_method amiga_fail_exit = use_xcexit;
  32484. + int selecting;
  32485. + 
  32486. + /* Emacs sysdep routines */
  32487. + /* --------------------- */
  32488. + 
  32489. + set_exclusive_use(int fd) {}
  32490. + 
  32491. + /* Suspend the Emacs process; give terminal to its superior.  */
  32492. + sys_suspend()
  32493. + {
  32494. +   /* This could have been iconify, but:
  32495. +      a) Not good for serial lines.
  32496. +      b) emacs stays active while iconified */
  32497. + }
  32498. + 
  32499. + char *get_system_name()
  32500. + {
  32501. +   static char sysname[32];
  32502. + 
  32503. +   gethostname(sysname, sizeof sysname);
  32504. +   return sysname;
  32505. + }
  32506. + 
  32507. + /*
  32508. +  *    flush any pending output
  32509. +  *      (may flush input as well; it does not matter the way we use it)
  32510. +  */
  32511. + 
  32512. + flush_pending_output (channel)
  32513. +      int channel;
  32514. + {
  32515. + }
  32516. + 
  32517. + wait_for_termination (pid)
  32518. +      int pid;
  32519. + {
  32520. +   while (1)
  32521. +     {
  32522. +       sigsetmask (sigmask (SIGCHLD));
  32523. +       if (0 > kill (pid, 0))
  32524. +         {
  32525. +       sigsetmask (SIGEMPTYMASK);
  32526. +       break;
  32527. +     }
  32528. +       sigpause (SIGEMPTYMASK);
  32529. +     }
  32530. + }
  32531. + 
  32532. + /* A few general amiga support routines */
  32533. + /* ------------------------------------ */
  32534. + 
  32535. + char *expand_path(char *path, char *buf, int len)
  32536. + {
  32537. +   BPTR dirlock;
  32538. +   APTR window;
  32539. + 
  32540. +   window = _us->pr_WindowPtr;
  32541. +   _us->pr_WindowPtr = (APTR)-1;
  32542. +   dirlock = Lock(path, ACCESS_READ);
  32543. +   _us->pr_WindowPtr = window;
  32544. +   if (dirlock)            /* Expand lock name */
  32545. +     {
  32546. +       if (!NameFromLock(dirlock, buf, len)) buf = 0;
  32547. +       UnLock(dirlock);
  32548. +       return buf;
  32549. +     }
  32550. +   return 0;
  32551. + }
  32552. + 
  32553. + #undef select
  32554. + int emacs_select(int nfds, int *rfds, int *wfds, int *efds, struct timeval *timeout)
  32555. + {
  32556. +   int ret;
  32557. + 
  32558. +   selecting = TRUE;
  32559. +   ret = select(nfds, rfds, wfds, efds, timeout);
  32560. +   selecting = FALSE;
  32561. +   return ret;
  32562. + }
  32563. + 
  32564. + void no_memory(void)
  32565. + {
  32566. +   _fail("No memory");
  32567. + }
  32568. + 
  32569. + char *amiga_path(void)
  32570. + {
  32571. +   char *path, *pp, name[128];
  32572. +   int pathsize;
  32573. +   struct CommandLineInterface *cli;
  32574. +   BPTR lock;
  32575. +   long l, *lp, nlen;
  32576. + 
  32577. +   pathsize = 128;
  32578. +   path = (char *)xmalloc(pathsize);
  32579. + 
  32580. +   strcpy(path, ".");
  32581. +   pp = path + 1;
  32582. + 
  32583. +   if (!(cli = (struct CommandLineInterface *)((long)_us->pr_CLI << 2)))
  32584. +     return path;
  32585. + 
  32586. +   l = (long)cli->cli_CommandDir;
  32587. +   while (l) {
  32588. +     *pp++ = ',';
  32589. +     l <<= 2;
  32590. +     lp = (long *)l;
  32591. +     lock = (BPTR)*(lp + 1);
  32592. +     NameFromLock(lock, name, 128);
  32593. +     nlen = strlen(name);
  32594. +     if (pp + nlen + 5 >= path + pathsize)
  32595. +       {
  32596. +     char *newpath;
  32597. + 
  32598. +     pathsize = 2 * pathsize + nlen;
  32599. +     newpath = (char *)xrealloc(path, pathsize);
  32600. +     pp = newpath + (pp - path);
  32601. +     path = newpath;
  32602. +       }
  32603. +     memcpy(pp, name, nlen);
  32604. +     pp += nlen;
  32605. +     l = *lp;
  32606. +   }
  32607. +   /* Use of +5 above guarantees that there is enough space for c: */
  32608. +   strcpy(pp, ",c:");
  32609. + 
  32610. +   return path;
  32611. + }
  32612. + 
  32613. + /* Some general amiga commands */
  32614. + /* --------------------------- */
  32615. + 
  32616. + #define emacs_file_icon_width 54
  32617. + #define emacs_file_icon_height 22
  32618. + #define emacs_file_icon_num_planes 2
  32619. + 
  32620. + static UWORD chip emacs_file_icon_data[2][22][4] = {
  32621. +     {
  32622. +         0x0000,0x0000,0x0000,0x0400,0x0000,0x0000,0x0000,0x0c00,
  32623. +         0x0000,0x0000,0x0000,0x0c00,0x07ff,0xffff,0xffe0,0x0c00,
  32624. +         0x0400,0x0000,0x0030,0x0c00,0x0400,0x0000,0x0028,0x0c00,
  32625. +         0x04ff,0xffff,0xfe24,0x0c00,0x0400,0x0000,0x0022,0x0c00,
  32626. +         0x04ff,0xffff,0xfe3f,0x0c00,0x0400,0x0000,0x0000,0x8c00,
  32627. +         0x04ff,0xffc0,0x0000,0x8c00,0x0400,0x0000,0x0000,0x8c00,
  32628. +         0x0400,0x0000,0x0000,0x8c00,0x0400,0x0000,0x0000,0x8c00,
  32629. +         0x04ff,0xffff,0xfe00,0x8c00,0x0400,0x0000,0x0000,0x8c00,
  32630. +         0x04ff,0xffff,0xfe00,0x8c00,0x0400,0x0000,0x0000,0x8c00,
  32631. +         0x07ff,0xffff,0xffff,0x8c00,0x0000,0x0000,0x0000,0x0c00,
  32632. +         0x0000,0x0000,0x0000,0x0c00,0x7fff,0xffff,0xffff,0xfc00
  32633. +     },
  32634. +     {
  32635. +         0xffff,0xffff,0xffff,0xf800,0x8000,0x0000,0x0000,0x0000,
  32636. +         0x8000,0x0000,0x0000,0x0000,0x8000,0x0000,0x0000,0x0000,
  32637. +         0x83ff,0xffff,0xffc0,0x0000,0x83ff,0xffff,0xffd0,0x0000,
  32638. +         0x8300,0x0000,0x01d8,0x0000,0x83ff,0xffff,0xffdc,0x0000,
  32639. +         0x8300,0x0000,0x01c0,0x0000,0x83ff,0xffff,0xffff,0x0000,
  32640. +         0x8300,0x003f,0xffff,0x0000,0x83ff,0xffff,0xffff,0x0000,
  32641. +         0x83ff,0xffff,0xffff,0x0000,0x83ff,0xffff,0xffff,0x0000,
  32642. +         0x8300,0x0000,0x01ff,0x0000,0x83ff,0xffff,0xffff,0x0000,
  32643. +         0x8300,0x0000,0x01ff,0x0000,0x83ff,0xffff,0xffff,0x0000,
  32644. +         0x8000,0x0000,0x0000,0x0000,0x8000,0x0000,0x0000,0x0000,
  32645. +         0x8000,0x0000,0x0000,0x0000,0x8000,0x0000,0x0000,0x0000
  32646. +     },
  32647. + };
  32648. + struct Image far emacs_file_icon_image = {
  32649. +   0, 0,
  32650. +   emacs_file_icon_width, emacs_file_icon_height, emacs_file_icon_num_planes,
  32651. +   (UWORD *)emacs_file_icon_data,
  32652. +   3, 0,
  32653. +   0
  32654. + };
  32655. + 
  32656. + static char *far emacs_file_tooltypes[] = {
  32657. +   "FILETYPE=TEXT",
  32658. +   0
  32659. + };
  32660. + 
  32661. + static char far emacs_tool[EMACS_TOOL_SIZE];
  32662. + 
  32663. + static struct DiskObject far emacs_file_icon_object = {
  32664. +   WB_DISKMAGIC, WB_DISKVERSION,
  32665. +   { 0, 0, 0, emacs_file_icon_width, emacs_file_icon_height,
  32666. +     GFLG_GADGIMAGE | GADGBACKFILL, GACT_IMMEDIATE | GACT_RELVERIFY, GTYP_BOOLGADGET,
  32667. +     (APTR)&emacs_file_icon_image },
  32668. +   WBPROJECT, emacs_tool, emacs_file_tooltypes,
  32669. +   NO_ICON_POSITION, NO_ICON_POSITION,
  32670. +   0, 0,
  32671. +   40000                /* Stack size for emacs */
  32672. + };
  32673. + 
  32674. + DEFUN ("amiga-put-icon", Famiga_put_icon, Samiga_put_icon, 2, 2, 0,
  32675. +        "Create an icon for FILE.\n\
  32676. + If FORCE is non-nil create it unconditionally, otherwise only if one doesn't exist.\n\
  32677. + Returns t if an icon was created, nil otherwise.")
  32678. +      (file, force)
  32679. + Lisp_Object file, force;
  32680. + {
  32681. +   char *fname;
  32682. +   struct DiskObject *obj;
  32683. + 
  32684. +   CHECK_STRING(file, 0);
  32685. +   fname = XSTRING(file)->data;
  32686. + 
  32687. +   if (NULL (force) && (obj = GetDiskObject(fname)))
  32688. +     {
  32689. +       /* Icon exists, don't overwrite */
  32690. +       FreeDiskObject(obj);
  32691. +       return Qnil;
  32692. +     }
  32693. +   emacs_file_icon_object.do_StackSize = _stack_size;
  32694. +   if (PutDiskObject(fname, &emacs_file_icon_object)) return Qt;
  32695. +   error("Icon for %s couldn't be created", fname);
  32696. + }
  32697. + 
  32698. + /* Amiga initialisation routines */
  32699. + /* ----------------------------- */
  32700. + 
  32701. + syms_of_amiga ()
  32702. + {
  32703. +   DEFVAR_BOOL("amiga-initialized", &amiga_initialized, "");
  32704. +   DEFVAR_INT("amiga-malloc-bytes-used", &malloc_bytes_used,
  32705. +          "Number of malloc bytes used when emacs was dumped");
  32706. +   DEFVAR_BOOL("amiga-create-icons", &amiga_create_icons,
  32707. +          "If non-nil, create icons when saving files.");
  32708. +   defsubr(&Samiga_put_icon);
  32709. +   amiga_process_stack_size = 0;
  32710. +   DEFVAR_INT("amiga-process-stack-size", &amiga_process_stack_size,
  32711. +      "Size of stack for called processes. 0 means same size as emacs stack.");
  32712. +   syms_of_amiga_tty();
  32713. +   syms_of_amiga_menu();
  32714. +   syms_of_amiga_clipboard();
  32715. + }
  32716. + 
  32717. + static void amiga_early_init(int *_argc, char ***_argv)
  32718. + {
  32719. +   int argc = *_argc;
  32720. +   char **argv = *_argv;
  32721. + 
  32722. +   if (argc > 2 && !strcmp(argv[1], "-pure"))
  32723. +     {
  32724. +       puresize = atoi(argv[2]);
  32725. +       argc -= 2; argv += 2;
  32726. +     }
  32727. +   if (argc > 2 && !strcmp(argv[1], "-malloc"))
  32728. +     {
  32729. +       malloc_hunk_size = atoi(argv[2]);
  32730. +       argc -= 2; argv += 2;
  32731. +     }
  32732. +   if (argc > 2 && !strcmp(argv[1], "-prealloc"))
  32733. +     {
  32734. +       pre_alloc = atoi(argv[2]);
  32735. +       argc -= 2; argv += 2;
  32736. +     }
  32737. +   /* Handle the -dev switch, which specifies device & unit to use as terminal */
  32738. +   if (argc > 3 && !strcmp (argv[1], "-dev"))
  32739. +     {
  32740. +       extern char *far serial_device;
  32741. +       extern long far serial_unit;
  32742. + 
  32743. +       serial_device = argv[2];
  32744. +       serial_unit = atoi(argv[3]);
  32745. +       fprintf (stderr, "Using %s (unit %d)\n", serial_device ,serial_unit);
  32746. +       argc -= 3; argv += 3;
  32747. +     }
  32748. +   /* Patch real argc, argv to hide arguments we used */
  32749. +   argv[0] = (*_argv)[0];
  32750. +   *_argv = argv;
  32751. +   *_argc = argc;
  32752. + 
  32753. +   expand_path(argv[0], emacs_tool, EMACS_TOOL_SIZE);
  32754. + }
  32755. + 
  32756. + void cleanup_amiga(void)
  32757. + {
  32758. +   cleanup_clipboard();
  32759. +   cleanup_amiga_tty();
  32760. +   if (IconBase) CloseLibrary(IconBase);
  32761. + }
  32762. + 
  32763. + void amiga_undump_reinit(void)
  32764. + /* Post-undump initialisation */
  32765. + {
  32766. +   extern struct WBStartup *_WBenchMsg;
  32767. + 
  32768. +   emacs_malloc_init();
  32769. +   early_amiga_tty();
  32770. +   early_clipboard();
  32771. + 
  32772. +   if (!onexit(cleanup_amiga)) _fail("Internal problem with onexit");
  32773. + 
  32774. +   make_environ();
  32775. +   IconBase = OpenLibrary("icon.library", 0);
  32776. +   if (!IconBase) _fail("Need icon.library");
  32777. +   amiga_create_icons = _WBenchMsg != 0;
  32778. + 
  32779. +   init_amiga_tty(); init_clipboard();
  32780. + }
  32781. + 
  32782. + #undef main
  32783. + main(int argc, char **argv)
  32784. + /* Effect: Call emacs_main after doing some early amiga initialisation for emacs.
  32785. + */
  32786. + {
  32787. +   /* This initialisation may steal some command line options */
  32788. +   amiga_early_init(&argc, &argv);
  32789. +   emacs_main(argc, argv);
  32790. + }
  32791. diff -rc --new-file emacs-18.59/src/amiga_term.c /gnu/src/amiga/emacs-18.59/src/amiga_term.c
  32792. *** emacs-18.59/src/amiga_term.c    Thu Jan  1 00:00:00 1970
  32793. --- /gnu/src/amiga/emacs-18.59/src/amiga_term.c    Tue Mar 23 09:45:12 1993
  32794. ***************
  32795. *** 0 ****
  32796. --- 1,388 ----
  32797. + /* Amiga terminal control routines.
  32798. +    Copyright (C) 1985, 1986, 1987 Free Software Foundation, Inc.
  32799. + 
  32800. + This file is part of GNU Emacs.
  32801. + 
  32802. + GNU Emacs is free software; you can redistribute it and/or modify
  32803. + it under the terms of the GNU General Public License as published by
  32804. + the Free Software Foundation; either version 1, or (at your option)
  32805. + any later version.
  32806. + 
  32807. + GNU Emacs is distributed in the hope that it will be useful,
  32808. + but WITHOUT ANY WARRANTY; without even the implied warranty of
  32809. + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  32810. + GNU General Public License for more details.
  32811. + 
  32812. + You should have received a copy of the GNU General Public License
  32813. + along with GNU Emacs; see the file COPYING.  If not, write to
  32814. + the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  32815. + 
  32816. + 
  32817. + #include <stdio.h>
  32818. + #include <ctype.h>
  32819. + #include "config.h"
  32820. + #include "termhooks.h"
  32821. + #include "termchar.h"
  32822. + #include "termopts.h"
  32823. + 
  32824. + /* internal state */
  32825. + 
  32826. + /* nonzero means supposed to write text in standout mode.  */
  32827. + static int standout_requested;
  32828. + 
  32829. + static int standout_mode;    /* Nonzero when in standout mode.  */
  32830. + 
  32831. + static char tens[100] = {
  32832. +     '0', '0', '0', '0', '0', '0', '0', '0', '0', '0',
  32833. +     '1', '1', '1', '1', '1', '1', '1', '1', '1', '1',
  32834. +     '2', '2', '2', '2', '2', '2', '2', '2', '2', '2',
  32835. +     '3', '3', '3', '3', '3', '3', '3', '3', '3', '3',
  32836. +     '4', '4', '4', '4', '4', '4', '4', '4', '4', '4',
  32837. +     '5', '5', '5', '5', '5', '5', '5', '5', '5', '5',
  32838. +     '6', '6', '6', '6', '6', '6', '6', '6', '6', '6',
  32839. +     '7', '7', '7', '7', '7', '7', '7', '7', '7', '7',
  32840. +     '8', '8', '8', '8', '8', '8', '8', '8', '8', '8',
  32841. +     '9', '9', '9', '9', '9', '9', '9', '9', '9', '9',
  32842. + };
  32843. + 
  32844. + static char ones[100] = {
  32845. +     '0', '1', '2', '3', '4', '5', '6', '7', '8', '9',
  32846. +     '0', '1', '2', '3', '4', '5', '6', '7', '8', '9',
  32847. +     '0', '1', '2', '3', '4', '5', '6', '7', '8', '9',
  32848. +     '0', '1', '2', '3', '4', '5', '6', '7', '8', '9',
  32849. +     '0', '1', '2', '3', '4', '5', '6', '7', '8', '9',
  32850. +     '0', '1', '2', '3', '4', '5', '6', '7', '8', '9',
  32851. +     '0', '1', '2', '3', '4', '5', '6', '7', '8', '9',
  32852. +     '0', '1', '2', '3', '4', '5', '6', '7', '8', '9',
  32853. +     '0', '1', '2', '3', '4', '5', '6', '7', '8', '9',
  32854. +     '0', '1', '2', '3', '4', '5', '6', '7', '8', '9',
  32855. + };
  32856. + 
  32857. + #define addnum(str, num) if (num < 100) \
  32858. +                              { *--str = ones[num]; *--str = tens[num]; } \
  32859. +                          else do { *--str = '0' + num % 10; num /= 10; } while (num != 0)
  32860. + 
  32861. + static background_highlight ();
  32862. + static turn_off_highlight ();
  32863. + 
  32864. + 
  32865. + /* Cursor motion stuff (from cm.c) */
  32866. + static int curX, curY;
  32867. + 
  32868. + /* Move to absolute position, specified origin 0 */
  32869. + 
  32870. + Amove_cursor (row, col)
  32871. + {
  32872. +   char buf[32], *pos = buf + 32;
  32873. + 
  32874. +   if (curY == row && curX == col)
  32875. +     return;
  32876. + 
  32877. +   curX = col; curY = row;
  32878. +   *--pos = 'H';
  32879. +   col = col + 1; row = row + 1;
  32880. +   addnum(pos, col);
  32881. +   *--pos = ';';
  32882. +   addnum(pos, row);
  32883. +   *--pos = 0x9b;
  32884. +   emacs_output(pos, buf + 32 - pos);
  32885. +   if (pos < buf) abort();
  32886. + }
  32887. + 
  32888. + 
  32889. + Aring_bell ()
  32890. + {
  32891. +   emacs_output("\07", 1);
  32892. + }
  32893. + 
  32894. + Aset_terminal_modes ()
  32895. + {
  32896. + }
  32897. + 
  32898. + Areset_terminal_modes ()
  32899. + {
  32900. +   turn_off_highlight ();
  32901. + }
  32902. + 
  32903. + Aupdate_begin ()
  32904. + {
  32905. +   /* Hide cursor */
  32906. +   emacs_output("\x9b\x30\x20\x70", 4);
  32907. + }
  32908. + 
  32909. + Aupdate_end ()
  32910. + {
  32911. +   background_highlight ();
  32912. +   standout_requested = 0;
  32913. +   emacs_output("\x9b\x20\x70", 3); /* Show cursor */
  32914. + }
  32915. + 
  32916. + 
  32917. + /* Handle highlighting when TN_standout_width (termcap sg) is not specified.
  32918. +    In these terminals, output is affected by the value of standout
  32919. +    mode when the output is written.
  32920. + 
  32921. +    These functions are called on all terminals, but do nothing
  32922. +    on terminals whose standout mode does not work that way.  */
  32923. + 
  32924. + static turn_off_highlight ()
  32925. + {
  32926. +   if (standout_mode)
  32927. +     {
  32928. +       extern int background, foreground;      
  32929. +       extern int inverse_fill_pen, inverse_text_pen;
  32930. +       int b = background + 40, f = foreground + 30;
  32931. +       if(inverse_fill_pen < 8 && inverse_text_pen < 8)
  32932. +     {
  32933. +       char buf[32], *pos = buf + 32;
  32934. +       /* UnDo inverse fill */
  32935. +       *--pos = '\0';
  32936. +       *--pos = 'm';
  32937. +       addnum(pos, b);
  32938. +       *--pos = ';';
  32939. +       /* UnDo inverse text */
  32940. +       addnum(pos, f);
  32941. +       *--pos = 0x9b;
  32942. +       emacs_output(pos, buf + 32 - pos);
  32943. +     }
  32944. +       else
  32945. +     {
  32946. +       emacs_output("\x9b""27m", 4);
  32947. +     }
  32948. +     }
  32949. +   standout_mode = 0;
  32950. + }
  32951. + 
  32952. + static turn_on_highlight ()
  32953. + {
  32954. +   if (!standout_mode)
  32955. +     {
  32956. +       extern int inverse_fill_pen, inverse_text_pen;
  32957. +       int b = inverse_fill_pen + 40, f = inverse_text_pen + 30;
  32958. +       if(inverse_fill_pen < 8 && inverse_text_pen < 8)
  32959. +     {
  32960. +       char buf[32], *pos = buf + 32;
  32961. +       /* Do inverse fill */
  32962. +       *--pos = '\0';
  32963. +       *--pos = 'm';
  32964. +       addnum(pos, b);
  32965. +       *--pos = ';';
  32966. + 
  32967. +       /* Do inverse text */
  32968. +       addnum(pos, f);
  32969. +       *--pos = 0x9b;
  32970. +       emacs_output(pos, buf + 32 - pos);
  32971. +     }
  32972. +       else
  32973. +     {
  32974. +       emacs_output("\x9b\x37m", 3);
  32975. +     }
  32976. +     }
  32977. +   standout_mode = 1;
  32978. + }
  32979. + 
  32980. + /* Set standout mode to the state it should be in for
  32981. +    empty space inside windows.  What this is,
  32982. +    depends on the user option inverse-video.  */
  32983. + 
  32984. + static background_highlight ()
  32985. + {
  32986. +   if (inverse_video)
  32987. +     turn_on_highlight ();
  32988. +   else
  32989. +     turn_off_highlight ();
  32990. + }
  32991. + 
  32992. + /* Set standout mode to the mode specified for the text to be output.  */
  32993. + 
  32994. + static
  32995. + highlight_if_desired ()
  32996. + {
  32997. +   if (!inverse_video == !standout_requested)
  32998. +     turn_off_highlight ();
  32999. +   else
  33000. +     turn_on_highlight ();
  33001. + }
  33002. + 
  33003. + /* External interface to control of standout mode.
  33004. +    Call this when about to modify line at position VPOS
  33005. +    and not change whether it is highlighted.  */
  33006. + 
  33007. + Areassert_line_highlight (highlight, vpos)
  33008. +      int highlight;
  33009. +      int vpos;
  33010. + {
  33011. +   standout_requested = highlight;
  33012. + }
  33013. + 
  33014. + /* Call this when about to modify line at position VPOS
  33015. +    and change whether it is highlighted.  */
  33016. + 
  33017. + Achange_line_highlight (new_highlight, vpos, first_unused_hpos)
  33018. +      int new_highlight, vpos, first_unused_hpos;
  33019. + {
  33020. +   standout_requested = new_highlight;
  33021. + 
  33022. +   move_cursor (vpos, 0);
  33023. + 
  33024. +   background_highlight ();
  33025. +   clear_end_of_line (first_unused_hpos);
  33026. +   reassert_line_highlight (new_highlight, curY);
  33027. + }
  33028. + 
  33029. + /* Erase operations */
  33030. + 
  33031. + /* clear from cursor to end of screen */
  33032. + Aclear_to_end ()
  33033. + {
  33034. +   background_highlight ();
  33035. +   emacs_output("\x9bJ", 2);
  33036. + }
  33037. + 
  33038. + /* Clear entire screen */
  33039. + 
  33040. + Aclear_screen ()
  33041. + {
  33042. +   background_highlight ();
  33043. +   emacs_output("\f", 1);
  33044. +   curX = curY = 0;
  33045. + }
  33046. + 
  33047. + /* Clear to end of line, but do not clear any standout marker.
  33048. +    Assumes that the cursor is positioned at a character of real text,
  33049. +    which implies it cannot be before a standout marker
  33050. +    unless the marker has zero width.
  33051. + 
  33052. +    Note that the cursor may be moved.  */
  33053. + 
  33054. + Aclear_end_of_line (first_unused_hpos)
  33055. +      int first_unused_hpos;
  33056. + {
  33057. +   if (curX >= first_unused_hpos)
  33058. +     return;
  33059. + 
  33060. +   background_highlight ();
  33061. +   emacs_output("\x9bK", 2);
  33062. + }
  33063. + 
  33064. + Aoutput_chars (string, len)
  33065. +      register char *string;
  33066. +      int len;
  33067. + {
  33068. +   highlight_if_desired ();
  33069. + 
  33070. +   curX += len;
  33071. +   emacs_output(string, len);
  33072. + }
  33073. + 
  33074. + /* If start is zero, insert blanks instead of a string at start */
  33075. + 
  33076. + Ainsert_chars (start, len)
  33077. +      register char *start;
  33078. +      int len;
  33079. + {
  33080. +   char buf[32], *pos = buf + 32;
  33081. + 
  33082. +   highlight_if_desired ();
  33083. + 
  33084. +   *--pos = '@';
  33085. +   addnum(pos, len);
  33086. +   *--pos = 0x9b;
  33087. +   emacs_output(pos, buf + 32 - pos);
  33088. +   if (pos < buf) abort();
  33089. +   if (start) emacs_output(start, len);
  33090. + }
  33091. + 
  33092. + Adelete_chars (n)
  33093. +      register int n;
  33094. + {
  33095. +   char buf[32], *pos = buf + 32;
  33096. + 
  33097. +   *--pos = 'P';
  33098. +   addnum(pos, n);
  33099. +   *--pos = 0x9b;
  33100. +   emacs_output(pos, buf + 32 - pos);
  33101. +   if (pos < buf) abort();
  33102. + }
  33103. + 
  33104. + /* Insert N lines at vpos VPOS.  If N is negative, delete -N lines.  */
  33105. + 
  33106. + Ains_del_lines (vpos, n)
  33107. +      int vpos, n;
  33108. + {
  33109. +   register int i = n > 0 ? n : -n;
  33110. +   char buf[32], *pos = buf + 32;
  33111. + 
  33112. +   if (n > 0)
  33113. +     {
  33114. +       i = n;
  33115. +       *--pos = 'L';
  33116. +     }
  33117. +   else
  33118. +     {
  33119. +       i = -n;
  33120. +       *--pos = 'M';
  33121. +     }
  33122. +   if (vpos + i >= screen_height) return;
  33123. + 
  33124. +   move_cursor (vpos, 0);
  33125. +   background_highlight ();
  33126. +   addnum(pos, i);
  33127. +   *--pos = 0x9b;
  33128. +   emacs_output(pos, buf + 32 - pos);
  33129. +   if (pos < buf) abort();
  33130. + }
  33131. + 
  33132. + Acalculate_costs (extra, costvec, ncostvec)
  33133. +      int extra;
  33134. +      int *costvec, *ncostvec;
  33135. + {
  33136. +   CalcLID(2, 40, extra, 0, costvec, ncostvec);
  33137. + }
  33138. + 
  33139. + Aset_terminal_window (size)
  33140. + int size;
  33141. + {
  33142. + }
  33143. + 
  33144. + 
  33145. + amiga_term_init ()
  33146. + {
  33147. +   must_write_spaces = FALSE;
  33148. +   min_padding_speed = 0;
  33149. +   memory_below_screen = FALSE;
  33150. +   meta_key = TRUE;
  33151. +   scroll_region_ok = FALSE;
  33152. +   line_ins_del_ok = FALSE;    /* much cleaner display when FALSE  -ch3/19/93. */
  33153. +   char_ins_del_ok = FALSE;
  33154. +   fast_clear_end_of_line = TRUE;
  33155. +   no_redraw_on_reenter = FALSE;
  33156. + 
  33157. +   clear_screen_hook = Aclear_screen;
  33158. +   clear_end_of_line_hook = Aclear_end_of_line;
  33159. +   clear_to_end_hook = Aclear_to_end;
  33160. +   ins_del_lines_hook = Ains_del_lines;
  33161. +   change_line_highlight_hook = Achange_line_highlight;
  33162. +   insert_chars_hook = Ainsert_chars;
  33163. +   output_chars_hook = Aoutput_chars;
  33164. +   delete_chars_hook = Adelete_chars;
  33165. +   ring_bell_hook = Aring_bell;
  33166. +   reset_terminal_modes_hook = Areset_terminal_modes;
  33167. +   set_terminal_modes_hook = Aset_terminal_modes;
  33168. +   update_begin_hook = Aupdate_begin;
  33169. +   update_end_hook = Aupdate_end;
  33170. +   set_terminal_window_hook = Aset_terminal_window;
  33171. +   move_cursor_hook = Amove_cursor;
  33172. +   reassert_line_highlight_hook = Areassert_line_highlight;
  33173. + 
  33174. +   dont_calculate_costs = 1;
  33175. +   calculate_costs_hook = Acalculate_costs;
  33176. + 
  33177. +   /* Get screen size from system, or else from somewhere ...  */
  33178. +   get_screen_size (&screen_width, &screen_height);
  33179. +   /* Random defaults to avoid any problems */
  33180. +   if (screen_width <= 0) screen_width = 80;
  33181. +   if (screen_height <= 0) screen_height = 23;
  33182. + 
  33183. +   init_baud_rate ();
  33184. + }
  33185. diff -rc --new-file emacs-18.59/src/amiga_tty.c /gnu/src/amiga/emacs-18.59/src/amiga_tty.c
  33186. *** emacs-18.59/src/amiga_tty.c    Thu Jan  1 00:00:00 1970
  33187. --- /gnu/src/amiga/emacs-18.59/src/amiga_tty.c    Sat Jun  5 13:20:50 1993
  33188. ***************
  33189. *** 0 ****
  33190. --- 1,305 ----
  33191. + #include "config.h"
  33192. + #undef NULL
  33193. + #include "lisp.h"
  33194. + #include "termchar.h"
  33195. + 
  33196. + #include <stdio.h>
  33197. + #include <errno.h>
  33198. + #include <internal/files.h>
  33199. + #include <internal/vars.h>
  33200. + 
  33201. + #undef LONGBITS
  33202. + 
  33203. + #include <exec/types.h>
  33204. + #include <dos/dos.h>
  33205. + #include <proto/exec.h>
  33206. + 
  33207. + #include "amiga.h"
  33208. + #include "termhooks.h"
  33209. + 
  33210. + static int term_initialised;
  33211. + ULONG inputsig;
  33212. + 
  33213. + /* A few tty system dependent routines unused on the Amiga */
  33214. + 
  33215. + setpgrp_of_tty(int pid) {}
  33216. + init_sigio() {}
  33217. + reset_sigio() {}
  33218. + request_sigio() {}
  33219. + unrequest_sigio() {}
  33220. + 
  33221. + /* Return nonzero if safe to use tabs in output.
  33222. +    At the time this is called, init_sys_modes has not been done yet.  */
  33223. + 
  33224. + tabs_safe_p()
  33225. + {
  33226. +   if (noninteractive)
  33227. +     return 1;
  33228. + 
  33229. +   return 0;            /* Not safe on Amiga !? */
  33230. + }
  33231. + 
  33232. + /* Get terminal size from system.
  33233. +    Store number of lines into *heightp and width into *widthp.
  33234. +    If zero or a negative number is stored, the value is not valid.  */
  33235. + 
  33236. + get_screen_size (widthp, heightp)
  33237. +      int *widthp, *heightp;
  33238. + {
  33239. +     if (term_initialised && !inhibit_window_system)
  33240. +     get_window_size(widthp, heightp);
  33241. +     else /* We don't known what size the terminal is */
  33242. +     {
  33243. +     *widthp = 0;
  33244. +     *heightp = 0;
  33245. +     }
  33246. + }
  33247. + 
  33248. + init_baud_rate ()
  33249. + {
  33250. +   if (noninteractive || !term_initialised) baud_rate = 1200;
  33251. +   else if (!inhibit_window_system) baud_rate = 38400;
  33252. +   else baud_rate = serial_baud_rate();
  33253. + }
  33254. + 
  33255. + void check_intuition ()
  33256. + {
  33257. +     if (noninteractive || inhibit_window_system)
  33258. +         error ("You aren't using a window.");
  33259. + }
  33260. + 
  33261. + #define TTYBUFSIZE 256        /* Same size as kbd_buffer */
  33262. + static char ttybuf[TTYBUFSIZE];
  33263. + static int tty_count;
  33264. + #define TTYPUT(c) { if (tty_count < TTYBUFSIZE) ttybuf[tty_count++] = c; }
  33265. + 
  33266. + static int interrupt_char;
  33267. + 
  33268. + void enque(unsigned int c, int meta)
  33269. + /* place input keys in keyboard buffer
  33270. +    If high bit is set, precede character with ^Q (hack).
  33271. +    If meta is true, set high bit.
  33272. +    If both the high bit & meta are true, we have a problem. Ignore it.
  33273. +    If c == AMIGASEQ (256) enqueue the amiga sequence introducer (C-x C-^)
  33274. + */
  33275. + {
  33276. +   /* Hack CSI to be AMIGASEQ (to allow defining function keys, etc) */
  33277. +   if (c == 0233 || c == AMIGASEQ)
  33278. +     {
  33279. +       TTYPUT('x' & 037);
  33280. +       TTYPUT('^' & 037);
  33281. +     }
  33282. +   else if (c >= 0200)    /* Special character, precede with ^Q */
  33283. +     {
  33284. +       TTYPUT('q' & 037);
  33285. +       TTYPUT(c);
  33286. +     }
  33287. +   else
  33288. +     {
  33289. +       if (meta) c |= 0200;
  33290. +       if (c == interrupt_char) Signal(_us, SIGBREAKF_CTRL_C);
  33291. +       else TTYPUT(c);
  33292. +     }
  33293. + }
  33294. + 
  33295. + int get_ttycount(void)
  33296. + {
  33297. +   return tty_count;
  33298. + }
  33299. + 
  33300. + init_sys_modes ()
  33301. + {
  33302. +   extern int quit_char;
  33303. + 
  33304. +   if (noninteractive)
  33305. +     return;
  33306. + 
  33307. +   if (inhibit_window_system) clear_screen();
  33308. + 
  33309. +   interrupt_char = quit_char;
  33310. +   if (!inhibit_window_system) setup_intchar(interrupt_char);
  33311. + }
  33312. + 
  33313. + reset_sys_modes ()
  33314. + {
  33315. +   if (noninteractive)
  33316. +     {
  33317. +       fflush (stdout);
  33318. +       return;
  33319. +     }
  33320. +   move_cursor (screen_height - 1, 0);
  33321. +   clear_end_of_line (screen_width);
  33322. +   /* clear_end_of_line may move the cursor */
  33323. +   move_cursor (screen_height - 1, 0);
  33324. + }
  33325. + 
  33326. + void amiga_consume_input(void)
  33327. + {
  33328. +   extern int this_command_key_count;
  33329. +   int force = this_command_key_count == 0;
  33330. +   /* If force is TRUE & some non-keyboard (eg mouse events) input is pending,
  33331. +      insert the appropriate magic sequence in the input stream */
  33332. + 
  33333. +   if (term_initialised)
  33334. +     {
  33335. +       if (!inhibit_window_system) check_window(force);
  33336. +       else check_serial(force);
  33337. +       check_arexx(force, TRUE);
  33338. +     }
  33339. + }
  33340. + 
  33341. + discard_tty_input ()
  33342. + {
  33343. +   if (noninteractive)
  33344. +     return;
  33345. + 
  33346. +   amiga_consume_input();
  33347. +   tty_count = 0;
  33348. +   chkabort();
  33349. + }
  33350. + 
  33351. + /* Code for the fd describing the emacs input (terminal or window) */
  33352. + 
  33353. + static ULONG __regargs ttyin_select_start(void *userinfo, int rd, int wr)
  33354. + {
  33355. +   if (!inhibit_window_system) force_window();
  33356. + 
  33357. +   return tty_count ? -1 : inputsig;
  33358. + }
  33359. + 
  33360. + static void __regargs ttyin_select_poll(void *userinfo, int *rd, int *wr)
  33361. + {
  33362. +   amiga_consume_input();
  33363. +   if (!tty_count) *rd = 0;
  33364. + }
  33365. + 
  33366. + static int __regargs ttyin_read(void *userinfo, void *buffer, unsigned int length)
  33367. + {
  33368. +   amiga_consume_input();
  33369. +   if (length > tty_count) length = tty_count;
  33370. +   memcpy(buffer, ttybuf, length);
  33371. +   tty_count -= length;
  33372. +   if (tty_count) memmove(ttybuf, ttybuf + length, tty_count - length);
  33373. + 
  33374. +   return (int)length;
  33375. + }
  33376. + 
  33377. + static int __regargs ttyin_write(void *userinfo, void *buffer, unsigned int length)
  33378. + {
  33379. +   errno = EACCES;
  33380. +   return -1;
  33381. + }
  33382. + 
  33383. + static int __regargs ttyin_lseek(void *userinfo, long rpos, int mode)
  33384. + {
  33385. +   errno = ESPIPE;
  33386. +   return -1;
  33387. + }
  33388. + 
  33389. + static int __regargs ttyin_close(void *userinfo, int internal)
  33390. + {
  33391. +   return 0;
  33392. + }
  33393. + 
  33394. + static int __regargs ttyin_ioctl(void *userinfo, int request, void *data)
  33395. + {
  33396. +   errno = EINVAL;
  33397. +   return -1;
  33398. + }
  33399. + 
  33400. + #define CBUFSIZE 1024
  33401. + #undef fwrite
  33402. + #undef fflush
  33403. + 
  33404. + char cbuffer[CBUFSIZE + 16], *cbuffer_pos;
  33405. + 
  33406. + int emacs_fflush(FILE *f)
  33407. + {
  33408. +     if (noninteractive || f != stdout) return fflush(f);
  33409. +     else
  33410. +     {
  33411. +     int len;
  33412. + 
  33413. +     len = cbuffer_pos - cbuffer;
  33414. +     if (term_initialised)
  33415. +         if (!inhibit_window_system) screen_puts(cbuffer, len);
  33416. +         else serial_puts(cbuffer, len);
  33417. +     if (termscript) fwrite (cbuffer, 1, len, termscript);
  33418. +     cbuffer_pos = cbuffer;
  33419. + 
  33420. +     return 0;
  33421. +     }
  33422. + }
  33423. + 
  33424. + void emacs_putchar(int c)
  33425. + {
  33426. +     if (cbuffer_pos >= cbuffer + CBUFSIZE) emacs_fflush(stdout);
  33427. +     *cbuffer_pos++ = c;
  33428. + }
  33429. + 
  33430. + void emacs_output(char *str, int size)
  33431. + {
  33432. +     if (cbuffer_pos + size > cbuffer + CBUFSIZE) emacs_fflush(stdout);
  33433. +     if (size > CBUFSIZE)
  33434. +     {
  33435. +     if (term_initialised)
  33436. +         if (!inhibit_window_system) screen_puts(str, size);
  33437. +         else serial_puts(str, size);
  33438. +     }
  33439. +     else
  33440. +     {
  33441. +     memcpy(cbuffer_pos, str, size);
  33442. +     cbuffer_pos += size;
  33443. +     }
  33444. + }
  33445. + 
  33446. + void emacs_fwrite(char *str, unsigned int nblocks, unsigned int len, FILE *f)
  33447. + {
  33448. +     if (noninteractive || f != stdout) fwrite (str, nblocks, len, f);
  33449. +     else
  33450. +     {
  33451. +     unsigned int size;
  33452. + 
  33453. +     if (nblocks == 1) size = len; /* Emacs always uses 1 "block" */
  33454. +     else size = nblocks * len;
  33455. + 
  33456. +     emacs_output(str, size);
  33457. +     }
  33458. + }
  33459. + 
  33460. + void syms_of_amiga_tty(void)
  33461. + {
  33462. +   syms_of_amiga_screen();
  33463. +   syms_of_amiga_rexx();
  33464. + }
  33465. + 
  33466. + void init_amiga_tty()
  33467. + {
  33468. +   inputsig = 0;
  33469. +   term_initialised = FALSE;
  33470. +   init_amiga_rexx();
  33471. + }
  33472. + 
  33473. + void cleanup_amiga_tty()
  33474. + {
  33475. +   cleanup_amiga_rexx();
  33476. +   cleanup_amiga_serial();
  33477. +   cleanup_amiga_screen();
  33478. + }
  33479. + 
  33480. + void early_amiga_tty()
  33481. + {
  33482. +   cbuffer_pos = cbuffer;
  33483. +   tty_count = 0;
  33484. + }
  33485. + 
  33486. + void amiga_term_open(void)
  33487. + {
  33488. +   inhibit_window_system ? init_amiga_serial() : init_amiga_screen();
  33489. +   close(0);
  33490. +   if (_alloc_fd((void *)1, FI_READ, ttyin_select_start, ttyin_select_poll, ttyin_read,
  33491. +         ttyin_write, ttyin_lseek, ttyin_close, ttyin_ioctl) == 0)
  33492. +     term_initialised = TRUE;
  33493. +   else _fail("Failed to initialise I/O, no memory ?");
  33494. + }
  33495. + 
  33496. diff -rc --new-file emacs-18.59/src/buffer.c /gnu/src/amiga/emacs-18.59/src/buffer.c
  33497. *** emacs-18.59/src/buffer.c    Wed May 13 19:39:33 1992
  33498. --- /gnu/src/amiga/emacs-18.59/src/buffer.c    Sun Nov 22 10:13:24 1992
  33499. ***************
  33500. *** 1137,1143 ****
  33501.   #ifndef VMS
  33502.     /* Maybe this should really use some standard subroutine
  33503.        whose definition is filename syntax dependent.  */
  33504. !   if (buf[strlen (buf) - 1] != '/')
  33505.       strcat (buf, "/");
  33506.   #endif /* not VMS */
  33507.     current_buffer->directory = build_string (buf);
  33508. --- 1137,1147 ----
  33509.   #ifndef VMS
  33510.     /* Maybe this should really use some standard subroutine
  33511.        whose definition is filename syntax dependent.  */
  33512. !   if (buf[strlen (buf) - 1] != '/'
  33513. ! #ifdef AMIGA
  33514. ! && buf[strlen (buf) -1] != ':'
  33515. ! #endif /*AMIGA  */
  33516. ! )
  33517.       strcat (buf, "/");
  33518.   #endif /* not VMS */
  33519.     current_buffer->directory = build_string (buf);
  33520. diff -rc --new-file emacs-18.59/src/callproc.c /gnu/src/amiga/emacs-18.59/src/callproc.c
  33521. *** emacs-18.59/src/callproc.c    Sun Jul 12 03:26:01 1992
  33522. --- /gnu/src/amiga/emacs-18.59/src/callproc.c    Sun Nov 22 10:13:32 1992
  33523. ***************
  33524. *** 124,134 ****
  33525.     CHECK_STRING (args[0], 0);
  33526.   
  33527.     if (nargs <= 1 || NULL (args[1]))
  33528. ! #ifdef VMS
  33529. !     args[1] = build_string ("NLA0:");
  33530. ! #else
  33531. !     args[1] = build_string ("/dev/null");
  33532. ! #endif /* not VMS */
  33533.     else
  33534.       args[1] = Fexpand_file_name (args[1], current_buffer->directory);
  33535.   
  33536. --- 124,130 ----
  33537.     CHECK_STRING (args[0], 0);
  33538.   
  33539.     if (nargs <= 1 || NULL (args[1]))
  33540. !     args[1] = build_string (PATH_NULL);
  33541.     else
  33542.       args[1] = Fexpand_file_name (args[1], current_buffer->directory);
  33543.   
  33544. ***************
  33545. *** 177,186 ****
  33546.   
  33547.     if (XTYPE (buffer) == Lisp_Int)
  33548.   #ifdef VMS
  33549. !     fd[1] = open ("NLA0:", 0), fd[0] = -1;
  33550.   #else
  33551. !     fd[1] = open ("/dev/null", O_WRONLY), fd[0] = -1;
  33552. ! #endif /* not VMS */
  33553.     else
  33554.       {
  33555.         pipe (fd);
  33556. --- 173,181 ----
  33557.   
  33558.     if (XTYPE (buffer) == Lisp_Int)
  33559.   #ifdef VMS
  33560. !     fd[1] = open (PATH_NULL, 0), fd[0] = -1;
  33561.   #else
  33562. !     fd[1] = open (PATH_NULL, O_WRONLY), fd[0] = -1;
  33563.     else
  33564.       {
  33565.         pipe (fd);
  33566. ***************
  33567. *** 193,198 ****
  33568. --- 188,209 ----
  33569.     synch_process_death = 0;
  33570.     synch_process_retcode = 0;
  33571.   
  33572. + #ifdef AMIGA
  33573. +   {
  33574. +     register unsigned char *temp;
  33575. + 
  33576. +     if (XTYPE (current_buffer->directory) == Lisp_String)
  33577. +       {
  33578. +     register int i;
  33579. + 
  33580. +     i = XSTRING (current_buffer->directory)->size;
  33581. +     temp = (unsigned char *) alloca (i + 1);
  33582. +     bcopy (XSTRING (current_buffer->directory)->data, temp, i);
  33583. +     temp[i] = 0;
  33584. +       }
  33585. +     pid = exec(new_argv[0], new_argv, filefd, fd[1], temp, amiga_process_stack_size);
  33586. +   }
  33587. + #else  
  33588.     {
  33589.       /* child_setup must clobber environ in systems with true vfork.
  33590.          Protect it from permanent change.  */
  33591. ***************
  33592. *** 230,235 ****
  33593. --- 241,247 ----
  33594.       close (filefd);
  33595.       close (fd1);
  33596.     }
  33597. + #endif /* not AMIGA */
  33598.   
  33599.     if (pid < 0)
  33600.       {
  33601. ***************
  33602. *** 302,308 ****
  33603.     register Lisp_Object filename_string, start, end, status;
  33604.     char tempfile[20];
  33605.   
  33606. !   strcpy (tempfile, "/tmp/emacsXXXXXX");
  33607.     mktemp (tempfile);
  33608.   
  33609.     filename_string = build_string (tempfile);
  33610. --- 314,320 ----
  33611.     register Lisp_Object filename_string, start, end, status;
  33612.     char tempfile[20];
  33613.   
  33614. !   strcpy (tempfile, PATH_TEMP);
  33615.     mktemp (tempfile);
  33616.   
  33617.     filename_string = build_string (tempfile);
  33618. ***************
  33619. *** 318,323 ****
  33620. --- 330,336 ----
  33621.     unlink (tempfile);
  33622.     return status;
  33623.   }
  33624. + #ifndef AMIGA
  33625.   
  33626.   /* This is the last thing run in a newly forked inferior
  33627.      either synchronous or asynchronous.
  33628. ***************
  33629. *** 425,430 ****
  33630. --- 438,444 ----
  33631.     write (1, new_argv[0], strlen (new_argv[0]));
  33632.     _exit (1);
  33633.   }
  33634. + #endif /* not AMIGA */
  33635.   
  33636.   init_callproc ()
  33637.   {
  33638. ***************
  33639. *** 437,442 ****
  33640. --- 451,465 ----
  33641.     Vexec_path = decode_env_path (0, PATH_EXEC);
  33642.     Vexec_directory = Ffile_name_as_directory (Fcar (Vexec_path));
  33643.     Vexec_path = nconc2 (decode_env_path ("PATH", ""), Vexec_path);
  33644. + #ifdef AMIGA
  33645. +   {
  33646. +     char *amiga_path(), *apath = amiga_path();
  33647. + 
  33648. +     Vexec_path = nconc2 (decode_env_path (0, apath), Vexec_path);
  33649. +     Vexec_path = nconc2 (decode_env_path (0, "GNUEmacs:c"), Vexec_path);
  33650. +     free(apath);
  33651. +   }
  33652. + #endif  
  33653.   
  33654.     execdir = Fdirectory_file_name (Vexec_directory);
  33655.     if (access (XSTRING (execdir)->data, 0) < 0)
  33656. ***************
  33657. *** 447,453 ****
  33658.       }
  33659.   
  33660.     sh = (char *) egetenv ("SHELL");
  33661. !   Vshell_file_name = build_string (sh ? sh : "/bin/sh");
  33662.   
  33663.   #ifndef MAINTAIN_ENVIRONMENT
  33664.     /* The equivalent of this operation was done
  33665. --- 470,476 ----
  33666.       }
  33667.   
  33668.     sh = (char *) egetenv ("SHELL");
  33669. !   Vshell_file_name = build_string (sh ? sh : PATH_SHELL);
  33670.   
  33671.   #ifndef MAINTAIN_ENVIRONMENT
  33672.     /* The equivalent of this operation was done
  33673. diff -rc --new-file emacs-18.59/src/dired.c /gnu/src/amiga/emacs-18.59/src/dired.c
  33674. *** emacs-18.59/src/dired.c    Mon Mar 23 04:16:41 1992
  33675. --- /gnu/src/amiga/emacs-18.59/src/dired.c    Sun Nov 22 10:13:54 1992
  33676. ***************
  33677. *** 385,391 ****
  33678. --- 385,395 ----
  33679.   
  33680.     bcopy (XSTRING (dirname)->data, fullname, pos);
  33681.   #ifndef VMS
  33682. + #ifdef AMIGA
  33683. +   if ((fullname[pos - 1] != '/')&&(fullname[pos - 1] != ':'))
  33684. + #else
  33685.     if (fullname[pos - 1] != '/')
  33686. + #endif
  33687.       fullname[pos++] = '/';
  33688.   #endif
  33689.   
  33690. diff -rc --new-file emacs-18.59/src/dispnew.c /gnu/src/amiga/emacs-18.59/src/dispnew.c
  33691. *** emacs-18.59/src/dispnew.c    Fri Jul 24 19:31:36 1992
  33692. --- /gnu/src/amiga/emacs-18.59/src/dispnew.c    Sun Nov 22 10:14:00 1992
  33693. ***************
  33694. *** 674,684 ****
  33695. --- 674,700 ----
  33696.     int preempt_count = baud_rate / 2400 + 1;
  33697.     extern input_pending;
  33698.   
  33699. +   start_count(0);
  33700. + 
  33701.     if (screen_height == 0) abort (); /* Some bug zeros some core */
  33702.   
  33703.     if (force_redisplay)
  33704.       force = 1;
  33705.   
  33706. + #ifdef FAST_DISPLAY
  33707. +   /* Don't compute for i/d line if just want cursor motion. */
  33708. +   /* Don't allow preemption, etc either */
  33709. +   for (i = 0; i < screen_height; i++)
  33710. +     if (new_screen->enable[i])
  33711. +       break;
  33712. + 
  33713. +   if (i >= screen_height)
  33714. +     {
  33715. +       update_begin();
  33716. +       goto update_done;
  33717. +     }
  33718. + #endif
  33719. + 
  33720.     if (!force)
  33721.       detect_input_pending ();
  33722.     if (!force
  33723. ***************
  33724. *** 695,704 ****
  33725.     if (!line_ins_del_ok)
  33726.       inhibit_hairy_id = 1;
  33727.   
  33728.     /* Don't compute for i/d line if just want cursor motion. */
  33729.     for (i = 0; i < screen_height; i++)
  33730. !     if (new_screen->enable)
  33731.         break;
  33732.   
  33733.     /* Try doing i/d line, if not yet inhibited.  */
  33734.     if (!inhibit_hairy_id && i < screen_height)
  33735. --- 711,722 ----
  33736.     if (!line_ins_del_ok)
  33737.       inhibit_hairy_id = 1;
  33738.   
  33739. + #ifndef FAST_DISPLAY
  33740.     /* Don't compute for i/d line if just want cursor motion. */
  33741.     for (i = 0; i < screen_height; i++)
  33742. !     if (new_screen->enable[i])
  33743.         break;
  33744. + #endif
  33745.   
  33746.     /* Try doing i/d line, if not yet inhibited.  */
  33747.     if (!inhibit_hairy_id && i < screen_height)
  33748. ***************
  33749. *** 742,747 ****
  33750. --- 760,768 ----
  33751.         update_line (i);
  33752.       }
  33753.       }
  33754. + #ifdef FAST_DISPLAY
  33755. + update_done:
  33756. + #endif
  33757.     pause = (i < screen_height - 1) ? i + 1 : 0;
  33758.   
  33759.     /* Now just clean up termcap drivers and set cursor, etc.  */
  33760. ***************
  33761. *** 781,786 ****
  33762. --- 802,808 ----
  33763.       }
  33764.   
  33765.     bzero (new_screen->enable, screen_height);
  33766. +   stop_count(0);
  33767.     return pause;
  33768.   }
  33769.   
  33770. ***************
  33771. *** 894,899 ****
  33772. --- 916,972 ----
  33773.     else
  33774.       reassert_line_highlight (new_screen->highlight[vpos], vpos);
  33775.   
  33776. + #ifdef FAST_DISPLAY
  33777. +   if (current_screen->enable[vpos])
  33778. +   {
  33779. +       obody = current_screen->contents[vpos];
  33780. +       olen = current_screen->used[vpos];
  33781. +   }
  33782. +   else olen = 0;
  33783. + 
  33784. +   nbody = new_screen->contents[vpos];
  33785. +   nlen = new_screen->used[vpos];
  33786. +   
  33787. +   /* Pretend trailing spaces are not there at all,
  33788. +      unless for one reason or another we must write all spaces.  */
  33789. +   /* We know that the previous character byte contains 0.  */
  33790. +   if (! new_screen->highlight[vpos])
  33791. +   {
  33792. +       if (!must_write_spaces)
  33793. +       while (nbody[nlen - 1] == ' ')
  33794. +           nlen--;
  33795. +   }
  33796. +   else
  33797. +   {
  33798. +       /* For an inverse-video line, give it extra trailing spaces
  33799. +      all the way to the screen edge
  33800. +      so that the reverse video extends all the way across.  */
  33801. +       while (nlen < screen_width - 1)
  33802. +       nbody[nlen++] = ' ';
  33803. +   }
  33804. +   
  33805. +   while (olen > 0 && nlen > 0 && *obody == *nbody)
  33806. +   {
  33807. +       olen--; nlen--; obody++; nbody++;
  33808. +   }
  33809. +   if (olen > 0 || nlen > 0)
  33810. +       move_cursor (vpos, nbody - new_screen->contents[vpos]);
  33811. +   if (nlen > 0) output_chars (nbody, nlen);
  33812. +   
  33813. +   if (olen > nlen && new_screen->used[vpos] != screen_width)
  33814. +       clear_end_of_line(current_screen->used[vpos]);
  33815. +   /* Exchange contents between current_screen and new_screen.  */
  33816. +   temp = new_screen->contents[vpos];
  33817. +   new_screen->contents[vpos] = current_screen->contents[vpos];
  33818. +   current_screen->contents[vpos] = temp;
  33819. +   
  33820. +   /* One way or another, this will enable the line being updated.  */
  33821. +   current_screen->enable[vpos] = 1;
  33822. +   current_screen->used[vpos] = new_screen->used[vpos];
  33823. +   current_screen->highlight[vpos] = new_screen->highlight[vpos];
  33824. + 
  33825. + #else /* not FAST_DISPLAY */
  33826. + 
  33827.     /* ??? */
  33828.     if (! current_screen->enable[vpos])
  33829.       {
  33830. ***************
  33831. *** 1172,1177 ****
  33832. --- 1245,1251 ----
  33833.     temp = new_screen->contents[vpos];
  33834.     new_screen->contents[vpos] = current_screen->contents[vpos];
  33835.     current_screen->contents[vpos] = temp;
  33836. + #endif /* not FAST_DISPLAY */
  33837.   }
  33838.   
  33839.   count_blanks (str)
  33840. ***************
  33841. *** 1577,1584 ****
  33842. --- 1651,1668 ----
  33843.     cursor_in_echo_area = 0;
  33844.     terminal_type = (char *) 0;
  33845.   
  33846. + #ifdef AMIGA
  33847. +   amiga_term_open();
  33848. + #endif
  33849.     if (!inhibit_window_system)
  33850.       {
  33851. + #ifdef AMIGA
  33852. +       amiga_term_init();
  33853. +       /* Using Intuition V2.04 */
  33854. +       Vwindow_system = intern ("intuition");
  33855. +       Vwindow_system_version = make_number (2);
  33856. +       goto term_init_done;
  33857. + #endif /* AMIGA */
  33858.   #ifdef HAVE_X_WINDOWS
  33859.         extern char *alternate_display;
  33860.         char *disp = (char *) egetenv ("DISPLAY");
  33861. diff -rc --new-file emacs-18.59/src/doc.c /gnu/src/amiga/emacs-18.59/src/doc.c
  33862. *** emacs-18.59/src/doc.c    Tue Jan  8 17:25:38 1991
  33863. --- /gnu/src/amiga/emacs-18.59/src/doc.c    Sun Nov 22 10:14:02 1992
  33864. ***************
  33865. *** 21,26 ****
  33866. --- 21,27 ----
  33867.   #include "config.h"
  33868.   #include "lisp.h"
  33869.   #include "buffer.h"
  33870. + #include "paths.h"
  33871.   
  33872.   #include <sys/types.h>
  33873.   #include <sys/file.h>    /* Must be after sys/types.h for USG and BSD4_1*/
  33874. ***************
  33875. *** 188,194 ****
  33876.   
  33877.   #ifndef CANNOT_DUMP
  33878.     name = (char *) alloca (XSTRING (filename)->size + 8);
  33879. !   strcpy (name, "../etc/");
  33880.   #else /* CANNOT_DUMP */
  33881.     CHECK_STRING (Vexec_directory, 0);
  33882.     name = (char *) alloca (XSTRING (filename)->size +
  33883. --- 189,195 ----
  33884.   
  33885.   #ifndef CANNOT_DUMP
  33886.     name = (char *) alloca (XSTRING (filename)->size + 8);
  33887. !   strcpy (name, RELPATH_DOC);
  33888.   #else /* CANNOT_DUMP */
  33889.     CHECK_STRING (Vexec_directory, 0);
  33890.     name = (char *) alloca (XSTRING (filename)->size +
  33891. diff -rc --new-file emacs-18.59/src/dostrip.c /gnu/src/amiga/emacs-18.59/src/dostrip.c
  33892. *** emacs-18.59/src/dostrip.c    Thu Jan  1 00:00:00 1970
  33893. --- /gnu/src/amiga/emacs-18.59/src/dostrip.c    Sun Nov 22 10:14:02 1992
  33894. ***************
  33895. *** 0 ****
  33896. --- 1,23 ----
  33897. + #include <stdio.h>
  33898. + 
  33899. + #define SIZE 2048
  33900. + 
  33901. + main(int argc, char **argv)
  33902. + {
  33903. +     char buf[SIZE];
  33904. + 
  33905. +     buf[SIZE - 1] = 0;
  33906. +     while (fgets(buf, SIZE - 1, stdin))
  33907. +     {
  33908. +     if (buf[0] != '#')
  33909. +     {
  33910. +         char *p = buf, *e;
  33911. + 
  33912. +         while (*p && *p == ' ') p++;
  33913. +         e = p + strlen(p);
  33914. +         while (e > p && (e[-1] == ' ' || e[-1] == '\t' || e[-1] == '\n')) e--;
  33915. +         *e = '\0';
  33916. +         if (*p) puts(p);
  33917. +     }
  33918. +     }
  33919. + }
  33920. diff -rc --new-file emacs-18.59/src/emacs.c /gnu/src/amiga/emacs-18.59/src/emacs.c
  33921. *** emacs-18.59/src/emacs.c    Sat Oct 17 03:51:00 1992
  33922. --- /gnu/src/amiga/emacs-18.59/src/emacs.c    Sun Nov 22 10:14:08 1992
  33923. ***************
  33924. *** 78,83 ****
  33925. --- 78,87 ----
  33926.   #endif
  33927.   #endif
  33928.   
  33929. + #ifdef AMIGA_DUMP
  33930. + #define HAVE_SHM        /* Simplifies the ifdefs */
  33931. + #endif
  33932. + 
  33933.   #ifndef O_RDWR
  33934.   #define O_RDWR 2
  33935.   #endif
  33936. ***************
  33937. *** 323,328 ****
  33938. --- 327,333 ----
  33939.     xargc = argc;
  33940.   #endif
  33941.   
  33942. + #ifndef AMIGA
  33943.   /* Handle the -t switch, which specifies filename to use as terminal */
  33944.     if (skip_args + 2 < argc && !strcmp (argv[skip_args + 1], "-t"))
  33945.       {
  33946. ***************
  33947. *** 336,341 ****
  33948. --- 341,347 ----
  33949.         inhibit_window_system = 1;    /* -t => -nw */
  33950.   #endif
  33951.       }
  33952. + #endif
  33953.   #ifdef HAVE_X_WINDOWS
  33954.   /* Handle the -d switch, which means use a different display for X */
  33955.     if (skip_args + 2 < argc && (!strcmp (argv[skip_args + 1], "-d") ||
  33956. ***************
  33957. *** 717,723 ****
  33958. --- 723,733 ----
  33959.   #ifdef VMS
  33960.   #define SEPCHAR ','
  33961.   #else
  33962. + #ifdef AMIGA            /* Can't use : on Amiga */
  33963. + #define SEPCHAR ','
  33964. + #else
  33965.   #define SEPCHAR ':'
  33966. + #endif
  33967.   #endif
  33968.   
  33969.   Lisp_Object
  33970. diff -rc --new-file emacs-18.59/src/exec.c /gnu/src/amiga/emacs-18.59/src/exec.c
  33971. *** emacs-18.59/src/exec.c    Thu Jan  1 00:00:00 1970
  33972. --- /gnu/src/amiga/emacs-18.59/src/exec.c    Sat Oct 24 12:59:54 1992
  33973. ***************
  33974. *** 0 ****
  33975. --- 1,138 ----
  33976. + #include "amiga.h"
  33977. + #include "processes.h"
  33978. + #include <amiga/ioctl.h>
  33979. + #include <exec/memory.h>
  33980. + #include <dos/dosextens.h>
  33981. + #include <dos/dostags.h>
  33982. + #include <string.h>
  33983. + 
  33984. + int eexec(char *program, char **argv, int input, int output, int error,
  33985. +       char *dir, int stacksize)
  33986. + /* input = -1 -> inherit Input()
  33987. +    output = -1 -> inherit Output()
  33988. +    error = -1 -> inherit pr_CES
  33989. +    error = -2 -> stderr = stdout */
  33990. + {
  33991. +   int index, comsize, close_input, close_output, close_error;
  33992. +   char *combuf, *bp;
  33993. +   BPTR in, out, err, dirlock;
  33994. +   int _pseudo_close(int fd);
  33995. + 
  33996. +   comsize = 256;
  33997. +   combuf = malloc(comsize);
  33998. + 
  33999. +   if (input == -1)
  34000. +     {
  34001. +       in = Input();
  34002. +       close_input = FALSE;
  34003. +     }
  34004. +   else
  34005. +     {
  34006. +       if (ioctl(input, _AMIGA_GET_FH, &in) == -1) in = 0;
  34007. +       close_input = TRUE;
  34008. +       _pseudo_close(input);
  34009. +     }
  34010. + 
  34011. +   if (output == -1)
  34012. +     {
  34013. +       out = Output();
  34014. +       close_output = FALSE;
  34015. +     }
  34016. +   else
  34017. +     {
  34018. +       if (ioctl(output, _AMIGA_GET_FH, &out) == -1) out = 0;
  34019. +       close_output = out != in;
  34020. +       _pseudo_close(output);
  34021. +     }
  34022. + 
  34023. +   if (error == -1)
  34024. +     {
  34025. +       err = _us->pr_CES;
  34026. +       close_error = FALSE;
  34027. +     }
  34028. +   else if (error == -2)
  34029. +     {
  34030. +       err = out;
  34031. +       close_error = FALSE;
  34032. +     }
  34033. +   else
  34034. +     {
  34035. +       if (ioctl(error, _AMIGA_GET_FH, &err) == -1) err = 0;
  34036. +       close_error = err != out && err != in;
  34037. +       _pseudo_close(error);
  34038. +     }
  34039. + 
  34040. +   /* pr_CES is not always defined */
  34041. +   if (in && out && (err || error == -1))
  34042. +     if (combuf)
  34043. +       {
  34044. +     bp = combuf;
  34045. +     for (index = 0; argv[index] != 0; index++)
  34046. +       {
  34047. +         /* Use program as argv[0]. This loses some information, but ... */
  34048. +         char *arg = index == 0 ? program : argv[index];
  34049. +         char *s;
  34050. +         int len;
  34051. + 
  34052. +         len = 3;
  34053. +         s = arg;
  34054. +         while (*s)
  34055. +           {
  34056. +         len++;
  34057. +         if (*s == '*' || *s == '"' || *s == '\n') len++;
  34058. +         s++;
  34059. +           }
  34060. +         if (bp + len + 1 >= combuf + comsize)
  34061. +           {
  34062. +         char *newbuf;
  34063. + 
  34064. +         comsize += comsize + len;
  34065. +         newbuf = realloc(combuf, comsize);
  34066. +         if (!newbuf) { errno = ENOMEM; goto error; }
  34067. +         bp = newbuf + (bp - combuf);
  34068. +         combuf = newbuf;
  34069. +           }
  34070. +         *bp++ = ' ';
  34071. +         *bp++ = '"';
  34072. +         s = arg;
  34073. +         while (*s)
  34074. +           {
  34075. +         if (*s == '"' || *s == '*') *bp++ = '*';
  34076. +         else if (*s == '\n') *bp++ = '+';
  34077. +         *bp++ = *s++;
  34078. +           }
  34079. +         *bp++ = '"';
  34080. +       }
  34081. +     *bp = '\0';
  34082. +     if (dir) dirlock = Lock(dir, SHARED_LOCK);
  34083. +     else dirlock = 0;
  34084. + 
  34085. +     if (dirlock || !dir)
  34086. +       {
  34087. +         int pid = _start_process(combuf, in, close_input, out, close_output,
  34088. +                      err, close_error, dirlock, stacksize);
  34089. + 
  34090. +         if (pid != -1)
  34091. +           {
  34092. +         free(combuf);
  34093. +         return pid;
  34094. +           }
  34095. +       }
  34096. +     else errno = convert_oserr(IoErr());
  34097. +     if (dirlock) UnLock(dirlock);
  34098. +       }
  34099. +     else errno = ENOMEM;
  34100. + 
  34101. +  error:
  34102. +   if (in && close_input) Close(in);
  34103. +   if (out && close_output) Close(out);
  34104. +   if (err && close_error) Close(err);
  34105. +   if (combuf) free(combuf);
  34106. +   return -1;
  34107. + }
  34108. + 
  34109. + int exec(char *program, char **argv, int input, int output, 
  34110. +       char *dir, int stacksize)
  34111. + {
  34112. +   return eexec(program, argv, input, output, -1, dir, stacksize);
  34113. + }
  34114. diff -rc --new-file emacs-18.59/src/fileio.c /gnu/src/amiga/emacs-18.59/src/fileio.c
  34115. *** emacs-18.59/src/fileio.c    Tue Oct  6 22:02:20 1992
  34116. --- /gnu/src/amiga/emacs-18.59/src/fileio.c    Sun Nov 22 10:14:24 1992
  34117. ***************
  34118. *** 147,152 ****
  34119. --- 147,155 ----
  34120.     p = beg + XSTRING (file)->size;
  34121.   
  34122.     while (p != beg && p[-1] != '/'
  34123. + #ifdef    AMIGA
  34124. +          && p[-1] != ':'
  34125. + #endif    /* AMIGA */
  34126.   #ifdef VMS
  34127.        && p[-1] != ':' && p[-1] != ']' && p[-1] != '>'
  34128.   #endif /* VMS */
  34129. ***************
  34130. *** 174,179 ****
  34131. --- 177,185 ----
  34132.     end = p = beg + XSTRING (file)->size;
  34133.   
  34134.     while (p != beg && p[-1] != '/'
  34135. + #ifdef    AMIGA
  34136. +          && p[-1] != ':'
  34137. + #endif    /* AMIGA */
  34138.   #ifdef VMS
  34139.        && p[-1] != ':' && p[-1] != ']' && p[-1] != '>'
  34140.   #endif /* VMS */
  34141. ***************
  34142. *** 248,256 ****
  34143. --- 254,268 ----
  34144.         out[size] = '\0';
  34145.       }
  34146.   #else /* not VMS */
  34147. + #ifdef    AMIGA
  34148. +   /* AmigaDOS syntax, append slash if the last char isn't a ':' or '/' */
  34149. +   if (out[size] != '/' && out[size] != ':' && size != 0)
  34150. +     strcat (out, "/");
  34151. + #else    /* not AMIGA */
  34152.     /* For Unix syntax, Append a slash if necessary */
  34153.     if (out[size] != '/')
  34154.       strcat (out, "/");
  34155. + #endif /* not AMIGA */
  34156.   #endif /* not VMS */
  34157.     return out;
  34158.   }
  34159. ***************
  34160. *** 464,469 ****
  34161. --- 476,585 ----
  34162.        (name, defalt)
  34163.        Lisp_Object name, defalt;
  34164.   {
  34165. + #ifdef AMIGA
  34166. +   unsigned char *nm, *tilde, *newdir, *colon, *t_pos, *target;
  34167. + 
  34168. +   CHECK_STRING (name, 0);
  34169. + 
  34170. +   nm = XSTRING (name)->data;
  34171. +   /* Find base directory */
  34172. +   if (NULL (defalt))
  34173. +       defalt = current_buffer->directory;
  34174. +   CHECK_STRING (defalt, 1);
  34175. +   newdir = XSTRING (defalt)->data;
  34176. + 
  34177. +   /* Concat newdir w/ nm and canonicalize */
  34178. +   /* newdir always contains at least the device name.
  34179. +      It is assumed canonical */
  34180. +   target = (unsigned char *)alloca(strlen(nm) + strlen(newdir) + 2);
  34181. +   file_name_as_directory (target, newdir);
  34182. +   t_pos = target + strlen(target);
  34183. + 
  34184. +   while (*nm)
  34185. +   {
  34186. +       unsigned char *comp_end = nm;
  34187. +       int comp_len;
  34188. + 
  34189. +       /* Find next component of path (everything upto the next /) */
  34190. +       do comp_end++; while (comp_end[0] && comp_end[-1] != '/' && comp_end[-1] != ':');
  34191. +       comp_len = comp_end - nm;
  34192. + 
  34193. +       if (comp_len == 1 && nm[0] == '/' ||
  34194. +       nm[0] == '.' && nm[1] == '.' &&
  34195. +       (comp_len == 2 || comp_len == 3 && nm[2] == '/'))
  34196. +       {
  34197. +       /* Previous directory */
  34198. +       if (t_pos > target && t_pos[-1] != ':')
  34199. +       {
  34200. +           t_pos--; /* Back up over / */
  34201. +           while (t_pos > target &&
  34202. +              t_pos[-1] != ':' && t_pos[-1] != '/') t_pos--;
  34203. +       }
  34204. +       }
  34205. +       else if (comp_len == 2 && nm[0] == '.' && nm[1] == '/' ||
  34206. +            comp_len == 1 && nm[0] == '.') ; /* Ignore . */
  34207. +       else if (nm[0] == ':') /* Just keep disk name */
  34208. +       {
  34209. +       char *new_pos;
  34210. + 
  34211. +       *t_pos = 0; /* Limit search for : */
  34212. +       t_pos = index(target, ':');
  34213. +       if (t_pos) t_pos++;
  34214. +       else t_pos = target;
  34215. +       }
  34216. +       else if (nm[0] == '~' || index(nm, ':'))
  34217. +       {
  34218. +       char *exp_name;
  34219. + 
  34220. +       if (nm[0] == '~')
  34221. +           if (nm[1] == '/' || nm[1] == 0) /* Home directory */
  34222. +           {
  34223. +           newdir = (unsigned char *) egetenv ("HOME");
  34224. +           if (!newdir) newdir = (unsigned char *) "s:";
  34225. +           }
  34226. +           else
  34227. +           {
  34228. +           /* Handle ~ followed by user name.  */
  34229. +           char lastc = nm[comp_len - 1];
  34230. +           int len = comp_len - 1;
  34231. + 
  34232. +           if (lastc == ':' || lastc == '/') len--;
  34233. + 
  34234. +           /* ~name becomes name: */
  34235. +           newdir = (unsigned char *) alloca (len + 2);
  34236. +           bcopy((char *) nm + 1, newdir, len);
  34237. +           newdir[len] = ':';
  34238. +           newdir[len + 1] = 0;
  34239. +           }
  34240. +       else /* we have name: */
  34241. +       {
  34242. +           newdir = (char *)alloca(comp_len + 1);
  34243. +           bcopy(nm, newdir, comp_len);
  34244. +           newdir[comp_len] = 0;
  34245. +       }
  34246. +       exp_name = (char *)alloca(1024);
  34247. +       if (expand_path(newdir, exp_name, 1024))
  34248. +       {
  34249. +           char *colon = strchr(exp_name, ':');
  34250. + 
  34251. +           /* Detect paths with multiple colons (eg from PATH:) and
  34252. +          leave them alone. They create confusion. */
  34253. +           if (!(colon && strchr(colon + 1, ':'))) newdir = exp_name;
  34254. +       }
  34255. +       target = (unsigned char *)alloca(strlen(nm) + strlen(newdir) + 2);
  34256. +       file_name_as_directory (target, newdir);
  34257. +       t_pos = target + strlen(target);
  34258. +       }
  34259. +       else /* Copy component */
  34260. +       {
  34261. +       bcopy(nm, t_pos, comp_len);
  34262. +       t_pos += comp_len;
  34263. +       }
  34264. + 
  34265. +       nm = comp_end;
  34266. +   }
  34267. +   return make_string (target, t_pos - target);
  34268. + #else /* not AMIGA */
  34269.     unsigned char *nm;
  34270.     
  34271.     register unsigned char *newdir, *p, *o;
  34272. ***************
  34273. *** 795,800 ****
  34274. --- 911,917 ----
  34275.       }
  34276.   
  34277.     return make_string (target, o - target);
  34278. + #endif /* not AMIGA */
  34279.   }
  34280.   
  34281.   DEFUN ("substitute-in-file-name", Fsubstitute_in_file_name,
  34282. ***************
  34283. *** 825,830 ****
  34284. --- 942,964 ----
  34285.   
  34286.     for (p = nm; p != endp; p++)
  34287.       {
  34288. + #ifdef AMIGA
  34289. +       if (p[0] == '~' && p != nm && p[-1] == '/')
  34290. +     {
  34291. +         nm = p;
  34292. +         substituted = 1;
  34293. +     }
  34294. +       else if (p[0] == ':')
  34295. +     {
  34296. +           char *p2 = p;
  34297. +       while (p2 > nm && p2[-1] != ':' && p2[-1] != '/') p2--;
  34298. +       if (p2 != nm)
  34299. +         {
  34300. +           nm = p2;
  34301. +           substituted = 1;
  34302. +         }
  34303. +     }
  34304. + #else /* not AMIGA */
  34305.         if ((p[0] == '~' ||
  34306.   #ifdef APOLLO
  34307.          /* // at start of file name is meaningful in Apollo system */
  34308. ***************
  34309. *** 845,850 ****
  34310. --- 979,985 ----
  34311.         nm = p;
  34312.         substituted = 1;
  34313.       }
  34314. + #endif /* not AMIGA */
  34315.       }
  34316.   
  34317.   #ifdef VMS
  34318. ***************
  34319. *** 1353,1358 ****
  34320. --- 1488,1500 ----
  34321.   
  34322.     CHECK_STRING (filename, 0);
  34323.     ptr = XSTRING (filename)->data;
  34324. + #ifdef    AMIGA
  34325. +   /* An absolute filename has a non-leading ':' in it */
  34326. +   if (*ptr != ':')
  34327. +       while (*ptr)
  34328. +       if (*ptr++ == ':') return Qt;
  34329. +   return Qnil;
  34330. + #else    /* not AMIGA */
  34331.     if (*ptr == '/' || *ptr == '~'
  34332.   #ifdef VMS
  34333.   /* ??? This criterion is probably wrong for '<'.  */
  34334. ***************
  34335. *** 1364,1369 ****
  34336. --- 1506,1512 ----
  34337.       return Qt;
  34338.     else
  34339.       return Qnil;
  34340. + #endif /* not AMIGA */
  34341.   }
  34342.   
  34343.   DEFUN ("file-exists-p", Ffile_exists_p, Sfile_exists_p, 1, 1, 0,
  34344. diff -rc --new-file emacs-18.59/src/firstfile.c /gnu/src/amiga/emacs-18.59/src/firstfile.c
  34345. *** emacs-18.59/src/firstfile.c    Thu Jan  1 00:00:00 1970
  34346. --- /gnu/src/amiga/emacs-18.59/src/firstfile.c    Sun Nov 22 10:14:28 1992
  34347. ***************
  34348. *** 0 ****
  34349. --- 1,4 ----
  34350. + int first_data = 1;
  34351. + int first_bss;
  34352. + 
  34353. + void first_function() { }
  34354. diff -rc --new-file emacs-18.59/src/indent.c /gnu/src/amiga/emacs-18.59/src/indent.c
  34355. *** emacs-18.59/src/indent.c    Sat Apr 18 16:01:07 1992
  34356. --- /gnu/src/amiga/emacs-18.59/src/indent.c    Sun Nov 22 10:14:38 1992
  34357. ***************
  34358. *** 35,40 ****
  34359. --- 35,45 ----
  34360.   #define min(a, b) ((a) < (b) ? (a) : (b))
  34361.   #define max(a, b) ((a) > (b) ? (a) : (b))
  34362.   
  34363. + #ifdef EIGHT_BIT
  34364. + /* Visible characters */
  34365. + extern char visible[];
  34366. + #endif
  34367. + 
  34368.   /* These three values memoize the current column to avoid recalculation */
  34369.   /* Some things in set last_known_column_point to -1
  34370.     to mark the memoized value as invalid */
  34371. ***************
  34372. *** 115,121 ****
  34373. --- 120,130 ----
  34374.       }
  34375.   
  34376.         c = *--ptr;
  34377. + #ifdef EIGHT_BIT
  34378. +       if (visible[c])
  34379. + #else
  34380.         if (c >= 040 && c < 0177)
  34381. + #endif
  34382.       {
  34383.         col++;
  34384.       }
  34385. ***************
  34386. *** 326,332 ****
  34387. --- 335,345 ----
  34388.       }
  34389.         else if (ctl_arrow && (c < 040 || c == 0177))
  34390.           col++;
  34391. + #ifdef EIGHT_BIT
  34392. +       else if (!visible[c])
  34393. + #else
  34394.         else if (c < 040 || c >= 0177)
  34395. + #endif
  34396.           col += 3;
  34397.       }
  34398.   
  34399. ***************
  34400. *** 373,381 ****
  34401.         prev_hpos = hpos;
  34402.   
  34403.         c = FETCH_CHAR (pos);
  34404.         if (c >= 040 && c < 0177)
  34405. !     hpos++;
  34406. !       else if (c == '\t')
  34407.       {
  34408.         hpos += tab_width - ((hpos + tab_offset + hscroll - (hscroll > 0)
  34409.                   /* Add tab_width here to make sure positive.
  34410. --- 386,442 ----
  34411.         prev_hpos = hpos;
  34412.   
  34413.         c = FETCH_CHAR (pos);
  34414. + #ifdef EIGHT_BIT
  34415. +       if (visible[c])
  34416. + #else
  34417.         if (c >= 040 && c < 0177)
  34418. ! #endif
  34419. !         {
  34420. !       unsigned char *p;
  34421. !       int gap_pos;
  34422. !       int maxhpos;
  34423. ! 
  34424. !       if (vpos == tovpos)
  34425. !         {
  34426. !           maxhpos = tohpos;
  34427. !           if (maxhpos > width) maxhpos = width;
  34428. !         }
  34429. !       else maxhpos = width;
  34430. ! 
  34431. !       if (pos < GPT)
  34432. !         {
  34433. !           gap_pos = GPT;
  34434. !           p = BEG_ADDR + pos;
  34435. !         }
  34436. !       else
  34437. !         {
  34438. !           gap_pos = -1;
  34439. !           p = GAP_SIZE + BEG_ADDR + pos;
  34440. !         }
  34441. !       do
  34442. !         {
  34443. !           hpos++;
  34444. !           if (hpos >= maxhpos)
  34445. !           {
  34446. !           prev_hpos = hpos - 1;
  34447. !           if (hpos >= width) goto check_hpos;
  34448. !           /* We've reached the target pos */
  34449. !           pos++;
  34450. !           goto done;
  34451. !           }
  34452. !           pos++;
  34453. !           if (pos >= to)
  34454. !             {
  34455. !           prev_hpos = hpos - 1;
  34456. !           goto done;
  34457. !             }
  34458. !           if (gap_pos == pos) p += GAP_SIZE;
  34459. !           c = *p++;
  34460. !         }
  34461. !       while (visible[c]);
  34462. !       prev_hpos = hpos;
  34463. !         }
  34464. !       if (c == '\t')
  34465.       {
  34466.         hpos += tab_width - ((hpos + tab_offset + hscroll - (hscroll > 0)
  34467.                   /* Add tab_width here to make sure positive.
  34468. ***************
  34469. *** 433,438 ****
  34470. --- 494,500 ----
  34471.         else
  34472.       hpos += (ctl_arrow && c < 0200) ? 2 : 4;
  34473.   
  34474. + check_hpos:
  34475.         /* Handle right margin.  */
  34476.         if (hpos >= width
  34477.         && (hpos > width
  34478. ***************
  34479. *** 462,467 ****
  34480. --- 524,530 ----
  34481.   
  34482.       }
  34483.       }
  34484. +   done:
  34485.   
  34486.     val_compute_motion.bufpos = pos;
  34487.     val_compute_motion.hpos = hpos;
  34488. diff -rc --new-file emacs-18.59/src/keyboard.c /gnu/src/amiga/emacs-18.59/src/keyboard.c
  34489. *** emacs-18.59/src/keyboard.c    Sun May 17 06:57:15 1992
  34490. --- /gnu/src/amiga/emacs-18.59/src/keyboard.c    Sun Nov 22 10:14:48 1992
  34491. ***************
  34492. *** 1313,1319 ****
  34493. --- 1313,1325 ----
  34494.   #endif
  34495.       fcntl (fileno (stdin), F_SETFL, 0);
  34496.   #else /* not USG */
  34497. + #ifdef    AMIGA    /* This is where the input work finally gets done */
  34498. +   /* Note, The nread != 0 case isn't handled as it doesn't arise on the Amiga.
  34499. +      (Look carefully at calls to read_avail_input) */
  34500. +   nread = read(0, buf, sizeof buf);
  34501. + #else  /* not AMIGA */
  34502.     you lose
  34503. + #endif /* not AMIGA */
  34504.   #endif /* not USG */
  34505.   #endif /* no FIONREAD */
  34506.   
  34507. diff -rc --new-file emacs-18.59/src/keymap.c /gnu/src/amiga/emacs-18.59/src/keymap.c
  34508. *** emacs-18.59/src/keymap.c    Sat Jul 27 17:43:27 1991
  34509. --- /gnu/src/amiga/emacs-18.59/src/keymap.c    Sun Nov 22 10:14:52 1992
  34510. ***************
  34511. *** 29,34 ****
  34512. --- 29,38 ----
  34513.   
  34514.   /* Actually allocate storage for these variables */
  34515.   
  34516. + #ifdef AMIGA
  34517. + #define HAVE_X_WINDOWS        /* We want the mouse map too */
  34518. + #endif
  34519. + 
  34520.   #ifdef HAVE_X_WINDOWS
  34521.   Lisp_Object MouseMap;        /* Keymap for mouse commands */
  34522.   #endif /* HAVE_X_WINDOWS */
  34523. diff -rc --new-file emacs-18.59/src/lastfile.c /gnu/src/amiga/emacs-18.59/src/lastfile.c
  34524. *** emacs-18.59/src/lastfile.c    Sat Mar 30 23:05:55 1991
  34525. --- /gnu/src/amiga/emacs-18.59/src/lastfile.c    Sat Dec  5 18:16:44 1992
  34526. ***************
  34527. *** 35,43 ****
  34528. --- 35,57 ----
  34529.    coming from libraries.
  34530.   */
  34531.   
  34532. + #ifdef AMIGA
  34533. + /* I need to find the end of initialised and unitialised data, as well as of
  34534. +    executable code.
  34535. + */
  34536. + int last_data = 1;
  34537. + int last_bss;
  34538. + 
  34539. + void last_function() { }
  34540. + 
  34541. + /* Some data that shouldn't be dumped */
  34542. + #include "amiga_data.c" 
  34543. + 
  34544. + #else /* not AMIGA */
  34545.   #ifdef VMS
  34546.   /* Prevent the file from being totally empty.  */
  34547.   static dummy () {}
  34548.   #endif
  34549.   
  34550.   char my_edata = 0;
  34551. + #endif /* not AMIGA */
  34552. diff -rc --new-file emacs-18.59/src/lisp.h /gnu/src/amiga/emacs-18.59/src/lisp.h
  34553. *** emacs-18.59/src/lisp.h    Thu Mar  5 23:11:31 1992
  34554. --- /gnu/src/amiga/emacs-18.59/src/lisp.h    Sun Nov 22 10:14:58 1992
  34555. ***************
  34556. *** 287,293 ****
  34557.     (XUINT (a) | (XUINT (a) > PURESIZE ? DATA_SEG_BITS : PURE_SEG_BITS))
  34558.   #else /* not HAVE_SHM */
  34559.   #ifdef DATA_SEG_BITS
  34560. ! /* This case is used for the rt-pc.
  34561.      In the diffs I was given, it checked for ptr = 0
  34562.      and did not adjust it in that case.
  34563.      But I don't think that zero should ever be found
  34564. --- 287,293 ----
  34565.     (XUINT (a) | (XUINT (a) > PURESIZE ? DATA_SEG_BITS : PURE_SEG_BITS))
  34566.   #else /* not HAVE_SHM */
  34567.   #ifdef DATA_SEG_BITS
  34568. ! /* This case is used for the rt-pc and the Amiga.
  34569.      In the diffs I was given, it checked for ptr = 0
  34570.      and did not adjust it in that case.
  34571.      But I don't think that zero should ever be found
  34572. ***************
  34573. *** 520,525 ****
  34574. --- 520,532 ----
  34575.     { if (XTYPE ((x)) == Lisp_Marker) XFASTINT (x) = marker_position (x); \
  34576.       else if (XTYPE ((x)) != Lisp_Int) x = wrong_type_argument (Qinteger_or_marker_p, (x)); }
  34577.   
  34578. + #ifdef AMIGA_DUMP
  34579. + #define CHECK_IMPURE(obj) \
  34580. +   { extern int *pure, puresize; \
  34581. +     if ((PNTR_COMPARISON_TYPE) XPNTR (obj) < (PNTR_COMPARISON_TYPE) ((char *) pure + puresize) \
  34582. +     && (PNTR_COMPARISON_TYPE) XPNTR (obj) >= (PNTR_COMPARISON_TYPE) pure) \
  34583. +       pure_write_error (); }
  34584. + #else /* not AMIGA_DUMP */
  34585.   #ifdef VIRT_ADDR_VARIES
  34586.   
  34587.   /* For machines like APOLLO where text and data can go anywhere
  34588. ***************
  34589. *** 529,535 ****
  34590.       if ((PNTR_COMPARISON_TYPE) XPNTR (obj) < (PNTR_COMPARISON_TYPE) ((char *) pure + PURESIZE) \
  34591.       && (PNTR_COMPARISON_TYPE) XPNTR (obj) >= (PNTR_COMPARISON_TYPE) pure) \
  34592.         pure_write_error (); }
  34593. - 
  34594.   #else /* not VIRT_ADDR_VARIES */
  34595.   #ifdef PNTR_COMPARISON_TYPE
  34596.   
  34597. --- 536,541 ----
  34598. ***************
  34599. *** 548,553 ****
  34600. --- 554,560 ----
  34601.   
  34602.   #endif /* PNTR_COMPARISON_TYPE */
  34603.   #endif /* VIRT_ADDRESS_VARIES */
  34604. + #endif /* not AMIGA_DUMP */
  34605.   
  34606.   /* Cast pointers to this type to compare them.  Some machines want int.  */
  34607.   #ifndef PNTR_COMPARISON_TYPE
  34608. diff -rc --new-file emacs-18.59/src/lread.c /gnu/src/amiga/emacs-18.59/src/lread.c
  34609. *** emacs-18.59/src/lread.c    Mon Mar 23 04:18:17 1992
  34610. --- /gnu/src/amiga/emacs-18.59/src/lread.c    Sun Nov 22 10:15:02 1992
  34611. ***************
  34612. *** 240,250 ****
  34613. --- 240,254 ----
  34614.        Lisp_Object pathname;
  34615.   {
  34616.     register unsigned char *s = XSTRING (pathname)->data;
  34617. + #ifdef AMIGA
  34618. +   return (*s && index(s + 1, ':')); /* Non-leading : */
  34619. + #else
  34620.     return (*s == '~' || *s == '/'
  34621.   #ifdef VMS
  34622.         || index (s, ':')
  34623.   #endif /* VMS */
  34624.         );
  34625. + #endif /* not AMIGA */
  34626.   }
  34627.   
  34628.   /* Search for a file whose name is STR, looking in directories
  34629. ***************
  34630. *** 559,565 ****
  34631.   }
  34632.   
  34633.   static int read_buffer_size;
  34634. ! static char *read_buffer;
  34635.   
  34636.   static Lisp_Object
  34637.   read1 (readcharfun)
  34638. --- 563,569 ----
  34639.   }
  34640.   
  34641.   static int read_buffer_size;
  34642. ! char *read_buffer;
  34643.   
  34644.   static Lisp_Object
  34645.   read1 (readcharfun)
  34646. diff -rc --new-file emacs-18.59/src/m-amiga.h /gnu/src/amiga/emacs-18.59/src/m-amiga.h
  34647. *** emacs-18.59/src/m-amiga.h    Thu Jan  1 00:00:00 1970
  34648. --- /gnu/src/amiga/emacs-18.59/src/m-amiga.h    Sun Nov 22 10:20:16 1992
  34649. ***************
  34650. *** 0 ****
  34651. --- 1,129 ----
  34652. + /* m- file for GNU Emacs running on AmigaDOS 2.04, SAS C compiler 5.10b
  34653. +    Copyright (C) 1985, 1986 Free Software Foundation, Inc.
  34654. + 
  34655. + This file is part of GNU Emacs.
  34656. + 
  34657. + GNU Emacs is distributed in the hope that it will be useful,
  34658. + but WITHOUT ANY WARRANTY.  No author or distributor
  34659. + accepts responsibility to anyone for the consequences of using it
  34660. + or for whether it serves any particular purpose or works at all,
  34661. + unless he says so in writing.  Refer to the GNU Emacs General Public
  34662. + License for full details.
  34663. + 
  34664. + Everyone is granted permission to copy, modify and redistribute
  34665. + GNU Emacs, but only under the conditions described in the
  34666. + GNU Emacs General Public License.   A copy of this license is
  34667. + supposed to have been given to you along with GNU Emacs so you
  34668. + can know your rights and responsibilities.  It should be in a
  34669. + file named COPYING.  Among other things, the copyright notice
  34670. + and this notice must be preserved on all copies.  */
  34671. + 
  34672. + 
  34673. + /* The following three symbols give information on
  34674. +  the size of various data types.  */
  34675. + /* lisp.h doesn't make any concessions for INTBITS = 16 and
  34676. +    NO_UNION_TYPE (use int as lisp object) defined.  The following is
  34677. +    assuming that the Manx 32 bit int. math package is faster than
  34678. +    bitfield implementation, overall.  If you want to use INTBITS = 16,
  34679. +    you *cannot* define NO_UNION_TYPE.    */
  34680. + 
  34681. + #define SHORTBITS 16        /* Number of bits in a short */
  34682. + 
  34683. + #define INTBITS 32        /* Number of bits in an int */
  34684. + 
  34685. + #define LONGBITS 32        /* Number of bits in a long */
  34686. + 
  34687. + #define VALBITS 26        /* Number of bits in an int or pointer offset */
  34688. + 
  34689. + #define GCTYPEBITS 5        /* Number of bits in a type. */
  34690. + 
  34691. + /* Define BIG_ENDIAN iff lowest-numbered byte in a word
  34692. +    is the most significant byte.  */
  34693. + 
  34694. + #define BIG_ENDIAN
  34695. + 
  34696. + /* Define NO_ARG_ARRAY if you cannot take the address of the first of a
  34697. +  * group of arguments and treat it as an array of the arguments.  */
  34698. + 
  34699. + /* #define NO_ARG_ARRAY */
  34700. + 
  34701. + /* Define WORD_MACHINE if addresses and such have
  34702. +  * to be corrected before they can be used as byte counts.  */
  34703. + 
  34704. + #define WORD_MACHINE
  34705. + 
  34706. + /* Define how to take a char and sign-extend into an int.
  34707. +    On machines where char is signed, this is a no-op.  */
  34708. + 
  34709. + #define SIGN_EXTEND_CHAR(c) (c)
  34710. + 
  34711. + /* Now define a symbol for the cpu type, if your compiler
  34712. +    does not define it automatically:
  34713. +    Ones defined so far include vax, m68000, ns16000, pyramid,
  34714. +    orion, tahoe, APOLLO and many others */
  34715. + 
  34716. + #ifndef    m68000
  34717. + #define m68000
  34718. + #endif
  34719. + 
  34720. + /* Use type int rather than a union, to represent Lisp_Object */
  34721. + /* This is desirable for most machines.  */
  34722. + 
  34723. + #define NO_UNION_TYPE
  34724. + /* Use a struct rather than an int. */
  34725. + 
  34726. + 
  34727. + /* Define EXPLICIT_SIGN_EXTEND if XINT must explicitly sign-extend
  34728. +    the 24-bit bit field into an int.  In other words, if bit fields
  34729. +    are always unsigned.
  34730. + 
  34731. +    If you use NO_UNION_TYPE, this flag does not matter.  */
  34732. + 
  34733. + #define EXPLICIT_SIGN_EXTEND
  34734. + 
  34735. + /* We don't have /dev/kmem, so LOAD_AVE_TYPE and LOAD_AVE_CVT are
  34736. +    not defined. */
  34737. + 
  34738. + /* Define CANNOT_DUMP on machines where unexec does not work.
  34739. +    Then the function dump-emacs will not be defined
  34740. +    and temacs will do (load "loadup") automatically unless told otherwise.  */
  34741. + 
  34742. + /* #define CANNOT_DUMP */
  34743. + 
  34744. + /* Define VIRT_ADDR_VARIES if the virtual addresses of
  34745. +    pure and impure space as loaded can vary, and even their
  34746. +    relative order cannot be relied on.
  34747. + 
  34748. +    Otherwise Emacs assumes that text space precedes data space,
  34749. +    numerically.  */
  34750. + 
  34751. + /* #define VIRT_ADDR_VARIES */
  34752. + /* I now rely on AMIGA_DUMP to make appropriate patches in the source */
  34753. + 
  34754. + /* Define C_ALLOCA if this machine does not support a true alloca
  34755. +    and the one written in C should be used instead.
  34756. +    Define HAVE_ALLOCA to say that the system provides a properly
  34757. +    working alloca function and it should be used.
  34758. +    Define neither one if an assembler-language alloca
  34759. +    in the file alloca.s should be used.  */
  34760. + 
  34761. + #define C_ALLOCA
  34762. + /* #define HAVE_ALLOCA */
  34763. + 
  34764. + /* Define STACK_DIRECTION for alloca.c */
  34765. + #define    STACK_DIRECTION    -1    /* Grows downward */
  34766. + 
  34767. + /* Define NO_REMAP if memory segmentation makes it not work well
  34768. +    to change the boundary between the text section and data section
  34769. +    when Emacs is dumped.  If you define this, the preloaded Lisp
  34770. +    code will not be sharable; but that's better than failing completely.  */
  34771. + 
  34772. + #define NO_REMAP
  34773. + 
  34774. + /* Set high (32 - VALBITS) = 6 bits of every pointer to the same as those of
  34775. +    &pure[0].
  34776. + */
  34777. + #ifdef emacs
  34778. + extern long far DataSegBits;
  34779. + #endif
  34780. + #define DATA_SEG_BITS DataSegBits
  34781. diff -rc --new-file emacs-18.59/src/paths.h-dist /gnu/src/amiga/emacs-18.59/src/paths.h-dist
  34782. *** emacs-18.59/src/paths.h-dist    Wed Sep 12 00:51:18 1990
  34783. --- /gnu/src/amiga/emacs-18.59/src/paths.h-dist    Sun Nov 22 10:16:24 1992
  34784. ***************
  34785. *** 17,19 ****
  34786. --- 17,35 ----
  34787.   /* the name of the file !!!SuperLock!!! in the directory
  34788.    specified by PATH_LOCK.  Yes, this is redundant.  */
  34789.   #define PATH_SUPERLOCK "/usr/local/emacs/lock/!!!SuperLock!!!"
  34790. + 
  34791. + /* The path to the file containing the termcap descriptions */
  34792. + #define PATH_TERMCAP "/etc/termcap"
  34793. + 
  34794. + /* The relative path (while dumping) to the directory containing 
  34795. +    the DOC file */
  34796. + #define RELPATH_DOC "../etc/"
  34797. + 
  34798. + /* The path for a /dev/null-like device */
  34799. + #define PATH_NULL "/dev/null"
  34800. + 
  34801. + /* Path for temporary files (for call-process-region) */
  34802. + #define PATH_TEMP "/tmp/emacsXXXXXX"
  34803. + 
  34804. + /* Path to the shell (the one in shell-file-name) */
  34805. + #define PATH_SHELL "/bin/sh"
  34806. diff -rc --new-file emacs-18.59/src/process.c /gnu/src/amiga/emacs-18.59/src/process.c
  34807. *** emacs-18.59/src/process.c    Sun Oct 25 04:42:04 1992
  34808. --- /gnu/src/amiga/emacs-18.59/src/process.c    Sun Nov 22 10:16:38 1992
  34809. ***************
  34810. *** 1203,1208 ****
  34811. --- 1203,1225 ----
  34812.        If fork fails, remove_process will clear the bit.  */
  34813.     FD_SET (inchannel, &input_wait_mask);
  34814.   
  34815. + #ifdef AMIGA
  34816. +   {
  34817. +     register unsigned char *temp;
  34818. + 
  34819. +     if (XTYPE (current_buffer->directory) == Lisp_String)
  34820. +       {
  34821. +     register int i;
  34822. + 
  34823. +     i = XSTRING (current_buffer->directory)->size;
  34824. +     temp = (unsigned char *) alloca (i + 1);
  34825. +     bcopy (XSTRING (current_buffer->directory)->data, temp, i);
  34826. +     temp[i] = 0;
  34827. +       }
  34828. +     pid = exec(new_argv[0], new_argv, forkin, forkout, temp,
  34829. +            amiga_process_stack_size);
  34830. +   }
  34831. + #else /* not AMIGA */
  34832.     {
  34833.       /* child_setup must clobber environ on systems with true vfork.
  34834.          Protect it from permanent change.  */
  34835. ***************
  34836. *** 1305,1310 ****
  34837. --- 1322,1328 ----
  34838.         }
  34839.       environ = save_environ;
  34840.     }
  34841. + #endif /* not AMIGA */
  34842.   
  34843.     if (pid < 0)
  34844.       {
  34845. ***************
  34846. *** 1314,1319 ****
  34847. --- 1332,1338 ----
  34848.   
  34849.     XFASTINT (XPROCESS (process)->pid) = pid;
  34850.   
  34851. + #ifndef AMIGA
  34852.     /* If the subfork execv fails, and it exits,
  34853.        this close hangs.  I don't know why.
  34854.        So have an interrupt jar it loose.  */
  34855. ***************
  34856. *** 1326,1331 ****
  34857. --- 1345,1351 ----
  34858.     start_polling ();
  34859.     if (forkin != forkout && forkout >= 0)
  34860.       close (forkout);
  34861. + #endif
  34862.   
  34863.   #ifdef SIGCHLD
  34864.   #ifdef BSD4_1
  34865. diff -rc --new-file emacs-18.59/src/s-amiga.h /gnu/src/amiga/emacs-18.59/src/s-amiga.h
  34866. *** emacs-18.59/src/s-amiga.h    Thu Jan  1 00:00:00 1970
  34867. --- /gnu/src/amiga/emacs-18.59/src/s-amiga.h    Sat Oct  2 15:32:32 1993
  34868. ***************
  34869. *** 0 ****
  34870. --- 1,215 ----
  34871. + /* file for GNU Emacs running on AmigaDOS 2.04, SAS C compiler 5.10b
  34872. +    Copyright (C) 1985, 1986 Free Software Foundation, Inc.
  34873. + 
  34874. + This file is part of GNU Emacs.
  34875. + 
  34876. + GNU Emacs is distributed in the hope that it will be useful,
  34877. + but WITHOUT ANY WARRANTY.  No author or distributor
  34878. + accepts responsibility to anyone for the consequences of using it
  34879. + or for whether it serves any particular purpose or works at all,
  34880. + unless he says so in writing.  Refer to the GNU Emacs General Public
  34881. + License for full details.
  34882. + 
  34883. + Everyone is granted permission to copy, modify and redistribute
  34884. + GNU Emacs, but only under the conditions described in the
  34885. + GNU Emacs General Public License.   A copy of this license is
  34886. + supposed to have been given to you along with GNU Emacs so you
  34887. + can know your rights and responsibilities.  It should be in a
  34888. + file named COPYING.  Among other things, the copyright notice
  34889. + and this notice must be preserved on all copies.  */
  34890. + 
  34891. + 
  34892. + /*
  34893. +  *    Define symbols to identify the version of Unix this is.
  34894. +  *    Define all the symbols that apply correctly.
  34895. +  */
  34896. + 
  34897. + #ifndef AMIGA
  34898. + #define AMIGA
  34899. + #endif /* AMIGA */
  34900. + 
  34901. + /* SYSTEM_TYPE should indicate the kind of system you are using.
  34902. +  It sets the Lisp variable system-type.  */
  34903. + 
  34904. + #define SYSTEM_TYPE "amigados"
  34905. + 
  34906. + /* Define this if you want a faster redisplay. This saves a lot of CPU
  34907. +    time at the expense of more characters to be redrawn.
  34908. +    On a bitmapped display you win, with a serial line you probably lose.
  34909. + */
  34910. + #define FAST_DISPLAY
  34911. + 
  34912. + /* Define this to display eight bit characters. The actual characters
  34913. +    that are visible can be set in init_xdisp ().
  34914. + */
  34915. + #define EIGHT_BIT
  34916. + 
  34917. + /* nomultiplejobs should be defined if your system's shell
  34918. +  does not have "job control" (the ability to stop a program,
  34919. +  run some other program, then continue the first one).  */
  34920. + 
  34921. + #define NOMULTIPLEJOBS
  34922. + 
  34923. + /* Define this to include various patches that allow the Amiga to dump.
  34924. +    This *must* be defined on the Amiga!
  34925. + */
  34926. + #define AMIGA_DUMP
  34927. + 
  34928. + /* Do not use interrupt_input = 1 by default, because in 4.3
  34929. +    we can make noninterrupt input work properly.  */
  34930. + 
  34931. + /* #undef INTERRUPT_INPUT */    /* This file borrowed from s-bsd4-3.h */
  34932. + 
  34933. + /* First pty name is /dev/ptyp0.  */
  34934. + 
  34935. + /* #define FIRST_PTY_LETTER 'p' */
  34936. + /*
  34937. +  *    Define HAVE_TIMEVAL if the system supports the BSD style clock values.
  34938. +  *    Look in <sys/time.h> for a timeval structure.
  34939. +  */
  34940. + 
  34941. + #define HAVE_TIMEVAL
  34942. + #define USE_UTIME
  34943. + 
  34944. + /*
  34945. +  *    Define HAVE_SELECT if the system supports the `select' system call.
  34946. +  */
  34947. + 
  34948. + #define HAVE_SELECT
  34949. + 
  34950. + /*
  34951. +  *    Define HAVE_PTYS if the system supports pty devices.
  34952. +  */
  34953. + 
  34954. + /* #define HAVE_PTYS */
  34955. + 
  34956. + /* Define HAVE_SOCKETS if system supports 4.2-compatible sockets.  */
  34957. + 
  34958. + /* #define HAVE_SOCKETS */
  34959. + 
  34960. + /* But we do have socket pairs for processes ... */
  34961. + #define SKTPAIR
  34962. + 
  34963. + /*
  34964. +  *    Define NONSYSTEM_DIR_LIBRARY to make Emacs emulate
  34965. +  *      The 4.2 opendir, etc., library functions.
  34966. +  */
  34967. + 
  34968. + /* #define NONSYSTEM_DIR_LIBRARY */
  34969. + #define SYSV_SYSTEM_DIR
  34970. + 
  34971. + /* Define this symbol if your system has the functions bcopy, etc. */
  34972. + 
  34973. + #define BSTRING        /* #define'ed later on */
  34974. + 
  34975. + /* subprocesses should be defined if you want to
  34976. +    have code for asynchronous subprocesses
  34977. +    (as used in M-x compile and M-x shell).
  34978. +    This is generally OS dependent, and not supported
  34979. +    under most USG systems. */
  34980. + 
  34981. + #define subprocesses
  34982. + 
  34983. + #define DID_REMOTE        /* Use 0 length write to send eof */
  34984. + 
  34985. + /* If your system uses COFF (Common Object File Format) then define the
  34986. +    preprocessor symbol "COFF". */
  34987. + 
  34988. + /* #define COFF */
  34989. + 
  34990. + /* define MAIL_USE_FLOCK if the mailer uses flock
  34991. +    to interlock access to /usr/spool/mail/$USER.
  34992. +    The alternative is that a lock file named
  34993. +    /usr/spool/mail/$USER.lock.  */
  34994. + 
  34995. + /* #define MAIL_USE_FLOCK */
  34996. + 
  34997. + /* Define CLASH_DETECTION if you want lock files to be written
  34998. +    so that Emacs can tell instantly when you try to modify
  34999. +    a file that someone else has modified in his Emacs.  */
  35000. + 
  35001. + /* #define CLASH_DETECTION */
  35002. + 
  35003. + /* We use the Berkeley (and usg5.2.2) interface to nlist.  */
  35004. + 
  35005. + /* #define NLIST_STRUCT */
  35006. + 
  35007. + /* The file containing the kernel's symbol table is called /vmunix.  */
  35008. + 
  35009. + /* #define KERNEL_FILE "/vmunix" */
  35010. + 
  35011. + /* The symbol in the kernel where the load average is found
  35012. +    is named _avenrun.  */
  35013. + 
  35014. + /* #define LDAV_SYMBOL "_avenrun" */
  35015. + 
  35016. + /* We use our own malloc for 2 reasons:
  35017. +      - To check that the 6 (INTBITS - VALBITS) of allocated data are
  35018. +        the same as &pure[0].
  35019. +      - To release unused memory to the system (SAS's malloc keeps it
  35020. +        till you quit)
  35021. + */
  35022. + 
  35023. + #define SYMS_SYSTEM syms_of_amiga()
  35024. + 
  35025. + #define SYSTEM_MALLOC        /* But I have replaced the system malloc ... */
  35026. + 
  35027. + #define DEF_PURESIZE 132000        /* Leave space for extra code for Amiga */
  35028. + #ifdef emacs
  35029. + extern int puresize;
  35030. + #endif
  35031. + #define PURESIZE puresize    /* Puresize is variable ... */
  35032. + 
  35033. + #ifdef emacs
  35034. + /* Stdio must be included before redefining putchar */
  35035. + #include <stdio.h>
  35036. + extern char cbuffer[], *cbuffer_pos;
  35037. + #define PENDING_OUTPUT_COUNT(x) (cbuffer_pos - cbuffer)
  35038. + #endif
  35039. + /* We divert some calls to our routines */
  35040. + #define putchar(c) do { extern int noninteractive; \
  35041. +              if (noninteractive) putc (c, stdout); \
  35042. +              else emacs_putchar(c); } while(0)
  35043. + #define fwrite emacs_fwrite
  35044. + #define fflush emacs_fflush
  35045. + #define random rand
  35046. + #define srandom srand
  35047. + #define main emacs_main
  35048. + #define select emacs_select
  35049. + 
  35050. + #ifdef emacs
  35051. + #include <string.h>
  35052. + #undef index
  35053. + #undef rindex
  35054. + #define index strchr
  35055. + #define rindex strrchr
  35056. + #endif
  35057. + 
  35058. + #define fsync(x) 0        /* Emulate fsync ... */
  35059. + 
  35060. + #ifdef emacs
  35061. + #include <sys/wait.h>        /* process.c doesn't have appropriate #ifdef's */
  35062. + extern int amiga_process_stack_size;
  35063. + #endif
  35064. + 
  35065. + /* Here are some symbols for ymakefile's benefit */
  35066. + 
  35067. + #define    LIB_STANDARD        //unix/src/unix.lib lib:sc.lib lib:amiga.lib
  35068. + #define    START_FILES        lib:c.o firstfile.o
  35069. + #define    C_DEBUG_SWITCH        debug s
  35070. + #define    C_OPTIMIZE_SWITCH    opt
  35071. + #define    LD_SWITCH_SYSTEM
  35072. + #define    C_SWITCH_SYSTEM
  35073. + #define    S_SWITCH_MACHINE    /* Nothing! */
  35074. + #define UNEXEC amiga_dump.o
  35075. + #define OBJECTS_SYSTEM        amiga_clipboard.o amiga_tty.o amiga_serial.o \
  35076. +                 amiga_screen.o amiga_menu.o amiga_malloc.o \
  35077. +                                 amiga_rexx.o simplerexx.o amiga_term.o
  35078. + 
  35079. + 
  35080. + /* Amiga window-specific stuff */
  35081. + 
  35082. + #define VERS "1.28DG Beta"
  35083. + 
  35084. + #define FALSE 0
  35085. + #define TRUE 1
  35086. diff -rc --new-file emacs-18.59/src/scroll.c /gnu/src/amiga/emacs-18.59/src/scroll.c
  35087. *** emacs-18.59/src/scroll.c    Tue Jan  8 18:04:52 1991
  35088. --- /gnu/src/amiga/emacs-18.59/src/scroll.c    Sun Nov 22 10:17:30 1992
  35089. ***************
  35090. *** 55,60 ****
  35091. --- 55,119 ----
  35092.   int *ILncost;
  35093.   int *DLncost;
  35094.   
  35095. + #ifdef FAST_DISPLAY
  35096. + scrolling_1 (window_size, unchanged_at_top, unchanged_at_bottom,
  35097. +          draw_cost, old_hash, new_hash, free_at_end)
  35098. +      int window_size, unchanged_at_top, unchanged_at_bottom;
  35099. +      int *draw_cost;
  35100. +      int *old_hash;
  35101. +      int *new_hash;
  35102. +      int free_at_end;
  35103. + {
  35104. +   int lines, i;
  35105. +   int window_end = unchanged_at_top + window_size;
  35106. + 
  35107. +   /* Rebase arrays at line 0 */
  35108. +   old_hash -= unchanged_at_top - 1;
  35109. +   new_hash -= unchanged_at_top - 1;
  35110. +   draw_cost -= unchanged_at_top - 1;
  35111. + 
  35112. +   /* We can't allow un-enabled lines to be scrolled (they are not redrawable). 
  35113. +      Restrict window to the first set of contiguous enabled lines 
  35114. +      (an enabled line has draw_cost[x] != INFINITY) */
  35115. +   for (i = unchanged_at_top; i < window_end && draw_cost[i] != INFINITY; i++) ;
  35116. +   /*unchanged_at_bottom += window_size - i;*/
  35117. +   /*window_size = i - unchanged_at_top;*/
  35118. +   window_end = i;
  35119. + 
  35120. +   if (lines = calc_scroll(old_hash, new_hash, unchanged_at_top, window_end))
  35121. +       scroll_screen_lines(unchanged_at_top, window_end - lines, lines);
  35122. +   else if (lines = calc_scroll(new_hash, old_hash, unchanged_at_top, window_end))
  35123. +       scroll_screen_lines(unchanged_at_top + lines, window_end, -lines);
  35124. + }
  35125. + 
  35126. + int calc_scroll(int *old_hash, int *new_hash, int from, int to)
  35127. + /* For insert attempt, the parameters are correct.
  35128. +    For delete attempt, swap the old & new hash parameters
  35129. + */
  35130. + {
  35131. +     int try = from + 1, lines, i;
  35132. +     int hash1 = old_hash[from];
  35133. + 
  35134. +     do
  35135. +     {
  35136. +     if (hash1 == new_hash[try])
  35137. +     {
  35138. +         /* Check if other lines match too */
  35139. +         lines = try - from; /* Amount to insert */
  35140. +         for (i = try + 1; i < to; i++)
  35141. +         if (old_hash[i - lines] != new_hash[i]) break;
  35142. +         if (i == to) /* It works ! */
  35143. +         return lines;
  35144. +     }
  35145. +     try++;
  35146. +     }
  35147. +     while (try < to);
  35148. + 
  35149. +     return 0;
  35150. + }
  35151. + 
  35152. + #else /* not FAST_DISPLAY */
  35153. + 
  35154.   scrolling_1 (window_size, unchanged_at_top, unchanged_at_bottom,
  35155.            draw_cost, old_hash, new_hash, free_at_end)
  35156.        int window_size, unchanged_at_top, unchanged_at_bottom;
  35157. ***************
  35158. *** 320,325 ****
  35159. --- 379,385 ----
  35160.     if (window)
  35161.       set_terminal_window (0);
  35162.   }
  35163. + #endif /* not FAST_DISPLAY */
  35164.   
  35165.   /* Return number of lines in common between current screen contents
  35166.      and the text to be displayed,
  35167. diff -rc --new-file emacs-18.59/src/simplerexx.c /gnu/src/amiga/emacs-18.59/src/simplerexx.c
  35168. *** emacs-18.59/src/simplerexx.c    Thu Jan  1 00:00:00 1970
  35169. --- /gnu/src/amiga/emacs-18.59/src/simplerexx.c    Mon May 10 14:35:42 1993
  35170. ***************
  35171. *** 0 ****
  35172. --- 1,416 ----
  35173. + /*
  35174. +  * Simple ARexx interface by Michael Sinz
  35175. +  *
  35176. +  * This is a very "Simple" interface to the world of ARexx...
  35177. +  * For more complex interfaces into ARexx, it is best that you
  35178. +  * understand the functions that are provided by ARexx.
  35179. +  * In many cases they are more powerful than what is presented
  35180. +  * here.
  35181. +  *
  35182. +  * This code is fully re-entrant and self-contained other than
  35183. +  * the use of SysBase/AbsExecBase and the ARexx RVI support
  35184. +  * library which is also self-contained...
  35185. +  */
  35186. + 
  35187. + #include    <exec/types.h>
  35188. + #include    <exec/nodes.h>
  35189. + #include    <exec/lists.h>
  35190. + #include    <exec/ports.h>
  35191. + #include    <exec/memory.h>
  35192. + 
  35193. + #include    <proto/exec.h>
  35194. + 
  35195. + #include    <rexx/storage.h>
  35196. + #include    <rexx/rxslib.h>
  35197. + 
  35198. + #include    <string.h>
  35199. + #include    <ctype.h>
  35200. + 
  35201. + /*
  35202. +  * The prototypes for the few ARexx functions we will call...
  35203. +  */
  35204. + struct RexxMsg *CreateRexxMsg(struct MsgPort *,char *,char *);
  35205. + void *CreateArgstring(char *,long);
  35206. + void DeleteRexxMsg(struct RexxMsg *);
  35207. + void DeleteArgstring(char *);
  35208. + BOOL IsRexxMsg(struct Message *);
  35209. + 
  35210. + /*
  35211. +  * Pragmas for the above functions...  (To make this all self-contained...)
  35212. +  * If you use RexxGlue.o, this is not needed...
  35213. +  *
  35214. +  * These are for Lattice C 5.x  (Note the use of RexxContext->RexxSysBase)
  35215. +  */
  35216. + #pragma libcall RexxContext->RexxSysBase CreateRexxMsg 90 09803
  35217. + #pragma libcall RexxContext->RexxSysBase CreateArgstring 7E 0802
  35218. + #pragma libcall RexxContext->RexxSysBase DeleteRexxMsg 96 801
  35219. + #pragma libcall RexxContext->RexxSysBase DeleteArgstring 84 801
  35220. + #pragma libcall RexxContext->RexxSysBase IsRexxMsg A8 801
  35221. + 
  35222. + /*
  35223. +  * Now, we have made the pragmas needed, let's get to work...
  35224. +  */
  35225. + 
  35226. + /*
  35227. +  * A structure for the ARexx handler context
  35228. +  * This is *VERY* *PRIVATE* and should not be touched...
  35229. +  */
  35230. + struct    ARexxContext
  35231. + {
  35232. + struct    MsgPort    *ARexxPort;    /* The port messages come in at... */
  35233. + struct    Library    *RexxSysBase;    /* We will hide the library pointer here... */
  35234. +     long    Outstanding;    /* The count of outstanding ARexx messages... */
  35235. +     char    PortName[24];    /* The port name goes here... */
  35236. +     char    ErrorName[28];    /* The name of the <base>.LASTERROR... */
  35237. +     char    Extension[8];    /* Default file name extension... */
  35238. + };
  35239. + 
  35240. + #define    AREXXCONTEXT    struct ARexxContext *
  35241. + 
  35242. + #include    "SimpleRexx.h"
  35243. + 
  35244. + /*
  35245. +  * This function returns the port name of your ARexx port.
  35246. +  * It will return NULL if there is no ARexx port...
  35247. +  *
  35248. +  * This string is *READ ONLY*  You *MUST NOT* modify it...
  35249. +  */
  35250. + char *ARexxName(AREXXCONTEXT RexxContext)
  35251. + {
  35252. +     register    char    *tmp=NULL;
  35253. + 
  35254. +     if (RexxContext) tmp=RexxContext->PortName;
  35255. +     return(tmp);
  35256. + }
  35257. + 
  35258. + /*
  35259. +  * This function returns the signal mask that the Rexx port is
  35260. +  * using.  It returns NULL if there is no signal...
  35261. +  *
  35262. +  * Use this signal bit in your Wait() loop...
  35263. +  */
  35264. + ULONG ARexxSignal(AREXXCONTEXT RexxContext)
  35265. + {
  35266. +     register    ULONG    tmp=NULL;
  35267. + 
  35268. +     if (RexxContext) tmp=1L << (RexxContext->ARexxPort->mp_SigBit);
  35269. +     return(tmp);
  35270. + }
  35271. + 
  35272. + /*
  35273. +  * This function returns a structure that contains the commands sent from
  35274. +  * ARexx or the results of commands you sent.  You will need to parse it 
  35275. +  * and return the structure back so that the memory can be freed.
  35276. +  *
  35277. +  * This returns NULL if there was no message.
  35278. +  */
  35279. + struct RexxMsg *GetARexxMsg(AREXXCONTEXT RexxContext)
  35280. + {
  35281. +     register    struct    RexxMsg    *tmp=NULL;
  35282. +     register        short    flag;
  35283. + 
  35284. +     if (RexxContext) tmp=(struct RexxMsg *)GetMsg(RexxContext->ARexxPort);
  35285. +     return(tmp);
  35286. + }
  35287. + 
  35288. + /* Use this to delete a message sent via SendARexxMsg and that has now been
  35289. +    returned to you.
  35290. + */
  35291. + void DeleteARexxMsg(AREXXCONTEXT RexxContext, struct RexxMsg *rmsg)
  35292. + {
  35293. +     /*
  35294. +      * Free the arguments and the message...
  35295. +      */
  35296. +     if(rmsg->rm_Action & RXFF_RESULT) {
  35297. +     if(rmsg->rm_Result1 == 0 && rmsg->rm_Result2) {
  35298. +         DeleteArgstring((STRPTR)rmsg->rm_Result2);
  35299. +     }
  35300. +     }
  35301. +     DeleteArgstring(rmsg->rm_Args[0]);
  35302. +     DeleteRexxMsg(rmsg);
  35303. +     RexxContext->Outstanding-=1;
  35304. + }
  35305. + 
  35306. + /*
  35307. +  * Use this to return a ARexx message...
  35308. +  *
  35309. +  * If you wish to return something, it must be in the RString.
  35310. +  * If you wish to return an Error, it must be in the Error.
  35311. +  * If there is an error, the RString is ignored.
  35312. +  */
  35313. + void ReplyARexxMsg(AREXXCONTEXT RexxContext,struct RexxMsg *rmsg,
  35314. +            char *RString,LONG Error)
  35315. + {
  35316. +     if (RexxContext) if (rmsg) if (rmsg!=REXX_RETURN_ERROR)
  35317. +     {
  35318. +     rmsg->rm_Result2=0;
  35319. +     if (!(rmsg->rm_Result1=Error))
  35320. +     {
  35321. +         /*
  35322. +          * if you did not have an error we return the string
  35323. +          */
  35324. +         if (rmsg->rm_Action & (1L << RXFB_RESULT)) if (RString)
  35325. +         {
  35326. +         rmsg->rm_Result2=(LONG)CreateArgstring(RString,
  35327. +                                (LONG)strlen(RString));
  35328. +         }
  35329. +     }
  35330. + 
  35331. +     /*
  35332. +      * Reply the message to ARexx...
  35333. +      */
  35334. +     ReplyMsg((struct Message *)rmsg);
  35335. +     }
  35336. + }
  35337. + 
  35338. + /*
  35339. +  * This function will set an error string for the ARexx
  35340. +  * application in the variable defined as <appname>.LASTERROR
  35341. +  *
  35342. +  * Note that this can only happen if there is an ARexx message...
  35343. +  *
  35344. +  * This returns TRUE if it worked, FALSE if it did not...
  35345. +  */
  35346. + short SetARexxLastError(AREXXCONTEXT RexxContext,struct RexxMsg *rmsg,
  35347. +             char *ErrorString)
  35348. + {
  35349. +     register    short    OkFlag=FALSE;
  35350. + 
  35351. +     if (RexxContext) if (rmsg) if (CheckRexxMsg(rmsg))
  35352. +     {
  35353. +     /*
  35354. +      * Note that SetRexxVar() has more than just a TRUE/FALSE
  35355. +      * return code, but for this "basic" case, we just care if
  35356. +      * it works or not.
  35357. +      */
  35358. +     if (!SetRexxVar(rmsg,RexxContext->ErrorName,ErrorString,
  35359. +             (long)strlen(ErrorString)))
  35360. +     {
  35361. +         OkFlag=TRUE;
  35362. +     }
  35363. +     }
  35364. +     return(OkFlag);
  35365. + }
  35366. + 
  35367. + /*
  35368. +  * This function will send a string to ARexx...
  35369. +  *
  35370. +  * The default host port will be that of your task...
  35371. +  *
  35372. +  * If you set StringFile to TRUE, it will set that bit for the message...
  35373. +  *
  35374. +  * Returns the message sent, or NULL in case of error.
  35375. +  */
  35376. + struct RexxMsg *SendARexxMsg(AREXXCONTEXT RexxContext,char *RString,
  35377. +                   short StringFile, short results)
  35378. + {
  35379. +     register    struct    MsgPort    *RexxPort;
  35380. +     register    struct    RexxMsg    *rmsg;
  35381. +     register        short    flag=FALSE;
  35382. + 
  35383. +     if (RexxContext) if (RString)
  35384. +     {
  35385. +     if (rmsg=CreateRexxMsg(RexxContext->ARexxPort,
  35386. +                    RexxContext->Extension,
  35387. +                    RexxContext->PortName))
  35388. +     {
  35389. +         rmsg->rm_Action=RXCOMM | (StringFile ?
  35390. +                       (1L << RXFB_STRING):0);
  35391. +         rmsg->rm_Action |= (results ? RXFF_RESULT : 0);
  35392. +         if (rmsg->rm_Args[0]=CreateArgstring(RString,
  35393. +                          (LONG)strlen(RString)))
  35394. +         {
  35395. +         /*
  35396. +          * We need to find the RexxPort and this needs
  35397. +          * to be done in a Forbid()
  35398. +          */
  35399. +         Forbid();
  35400. +         if (RexxPort=FindPort(RXSDIR))
  35401. +         {
  35402. +             /*
  35403. +              * We found the port, so put the
  35404. +              * message to ARexx...
  35405. +              */
  35406. +             PutMsg(RexxPort,(struct Message *)rmsg);
  35407. +             RexxContext->Outstanding+=1;
  35408. +             flag=TRUE;
  35409. +         }
  35410. +         else
  35411. +         {
  35412. +             /*
  35413. +              * No port, so clean up...
  35414. +              */
  35415. +             DeleteArgstring(rmsg->rm_Args[0]);
  35416. +             DeleteRexxMsg(rmsg);
  35417. +         }
  35418. +         Permit();
  35419. +         }
  35420. +         else DeleteRexxMsg(rmsg);
  35421. +     }
  35422. +     }
  35423. +     return flag ? rmsg : NULL;
  35424. + }
  35425. + 
  35426. + int PendingCommands(AREXXCONTEXT RexxContext)
  35427. + {
  35428. +     if (RexxContext) return RexxContext->Outstanding;
  35429. +     else return 0;
  35430. + }
  35431. + 
  35432. + /*
  35433. +  * This function closes down the ARexx context that was opened
  35434. +  * with InitARexx...
  35435. +  */
  35436. + void FreeARexx(AREXXCONTEXT RexxContext)
  35437. + {
  35438. +     register    struct    RexxMsg    *rmsg;
  35439. + 
  35440. +     if (RexxContext)
  35441. +     {
  35442. +     /*
  35443. +      * Clear port name so it can't be found...
  35444. +      */
  35445. +     RexxContext->PortName[0]='\0';
  35446. + 
  35447. +     /*
  35448. +      * Clean out any outstanding messages we had sent out...
  35449. +      */
  35450. +     while (RexxContext->Outstanding)
  35451. +     {
  35452. +         WaitPort(RexxContext->ARexxPort);
  35453. +         while (rmsg=GetARexxMsg(RexxContext))
  35454. +         {
  35455. +         if (rmsg!=REXX_RETURN_ERROR)
  35456. +         {
  35457. +             /*
  35458. +              * Any messages that come now are blown
  35459. +              * away...
  35460. +              */
  35461. +             SetARexxLastError(RexxContext,rmsg,
  35462. +                       "99: Port Closed!");
  35463. +             /* removed ReplyARexxMsg() this was a bug that would */
  35464. +             /* obviously cause a loop (we would continue to reply and */
  35465. +             /* then get the message.  It now deletes the message as */
  35466. +             /* should be done.  -ch5/10/93. */
  35467. +             DeleteARexxMsg(RexxContext,rmsg);
  35468. +         }
  35469. +         }
  35470. +     }
  35471. + 
  35472. +     /*
  35473. +      * Clean up the port and delete it...
  35474. +      */
  35475. +     if (RexxContext->ARexxPort)
  35476. +     {
  35477. +         while (rmsg=GetARexxMsg(RexxContext))
  35478. +         {
  35479. +         /*
  35480. +          * Any messages that still are coming in are
  35481. +          * "dead"  We just set the LASTERROR and
  35482. +          * reply an error of 100...
  35483. +          */
  35484. +         SetARexxLastError(RexxContext,rmsg,
  35485. +                   "99: Port Closed!");
  35486. +         ReplyARexxMsg(RexxContext,rmsg,NULL,100);
  35487. +         }
  35488. +         RemPort(RexxContext->ARexxPort);
  35489. +         DeleteMsgPort(RexxContext->ARexxPort);
  35490. +     }
  35491. + 
  35492. +     /*
  35493. +      * Make sure we close the library...
  35494. +      */
  35495. +     if (RexxContext->RexxSysBase)
  35496. +     {
  35497. +         CloseLibrary(RexxContext->RexxSysBase);
  35498. +     }
  35499. + 
  35500. +     /*
  35501. +      * Free the memory of the RexxContext
  35502. +      */
  35503. +     FreeMem(RexxContext,sizeof(struct ARexxContext));
  35504. +     }
  35505. + }
  35506. + 
  35507. + /*
  35508. +  * This routine initializes an ARexx port for your process
  35509. +  * This should only be done once per process.  You must call it
  35510. +  * with a valid application name and you must use the handle it
  35511. +  * returns in all other calls...
  35512. +  *
  35513. +  * NOTE:  The AppName should not have spaces in it...
  35514. +  *        Example AppNames:  "MyWord" or "FastCalc" etc...
  35515. +  *        The name *MUST* be less that 16 characters...
  35516. +  *        If it is not, it will be trimmed...
  35517. +  *        The name will also be UPPER-CASED...
  35518. +  *
  35519. +  * NOTE:  The Default file name extension, if NULL will be
  35520. +  *        "rexx"  (the "." is automatic)
  35521. +  */
  35522. + AREXXCONTEXT InitARexx(char *AppName,char *Extension)
  35523. + {
  35524. +     register    AREXXCONTEXT    RexxContext=NULL;
  35525. +     register    short        loop;
  35526. +     register    short        count;
  35527. +     register    char        *tmp;
  35528. + 
  35529. +     if (RexxContext=AllocMem(sizeof(struct ARexxContext),
  35530. +                  MEMF_PUBLIC|MEMF_CLEAR))
  35531. +     {
  35532. +     if (RexxContext->RexxSysBase=OpenLibrary("rexxsyslib.library", NULL))
  35533. +     {
  35534. +         /*
  35535. +          * Set up the extension...
  35536. +          */
  35537. +         if (!Extension) Extension="rexx";
  35538. +         tmp=RexxContext->Extension;
  35539. +         for (loop=0;(loop<7)&&(Extension[loop]);loop++)
  35540. +         {
  35541. +         *tmp++=Extension[loop];
  35542. +         }
  35543. +         *tmp='\0';
  35544. + 
  35545. +         /*
  35546. +          * Set up a port name...
  35547. +          */
  35548. +         tmp=RexxContext->PortName;
  35549. +         for (loop=0;(loop<16)&&(AppName[loop]);loop++)
  35550. +         {
  35551. +         *tmp++=toupper(AppName[loop]);
  35552. +         }
  35553. +         *tmp='\0';
  35554. + 
  35555. +         /*
  35556. +          * Set up the last error RVI name...
  35557. +          *
  35558. +          * This is <appname>.LASTERROR
  35559. +          */
  35560. +         strcpy(RexxContext->ErrorName,RexxContext->PortName);
  35561. +         strcat(RexxContext->ErrorName,".LASTERROR");
  35562. + 
  35563. +         /* We need to make a unique port name... */
  35564. +         Forbid();
  35565. +         for (count=1,RexxContext->ARexxPort=(VOID *)1;
  35566. +          RexxContext->ARexxPort;count++)
  35567. +         {
  35568. +         stci_d(tmp,count);
  35569. +         RexxContext->ARexxPort=
  35570. +             FindPort(RexxContext->PortName);
  35571. +         }
  35572. + 
  35573. +         /*RexxContext->ARexxPort=CreatePort(RexxContext->PortName,NULL);*/
  35574. +         RexxContext->ARexxPort=CreateMsgPort();
  35575. +         RexxContext->ARexxPort->mp_Node.ln_Name = RexxContext->PortName;
  35576. +         RexxContext->ARexxPort->mp_Node.ln_Pri = 0;
  35577. +         AddPort(RexxContext->ARexxPort);
  35578. +         Permit();
  35579. +     }
  35580. + 
  35581. +     if (!RexxContext->RexxSysBase || !RexxContext->ARexxPort)
  35582. +     {
  35583. +         FreeARexx(RexxContext);
  35584. +         RexxContext=NULL;
  35585. +     }
  35586. +     }
  35587. +     return(RexxContext);
  35588. + }
  35589. diff -rc --new-file emacs-18.59/src/simplerexx.h /gnu/src/amiga/emacs-18.59/src/simplerexx.h
  35590. *** emacs-18.59/src/simplerexx.h    Thu Jan  1 00:00:00 1970
  35591. --- /gnu/src/amiga/emacs-18.59/src/simplerexx.h    Mon May 10 14:35:42 1993
  35592. ***************
  35593. *** 0 ****
  35594. --- 1,119 ----
  35595. + /*
  35596. +  * Simple ARexx interface by Michael Sinz
  35597. +  *
  35598. +  * This is a very "Simple" interface...
  35599. +  */
  35600. + 
  35601. + #ifndef    SIMPLE_REXX_H
  35602. + #define    SIMPLE_REXX_H
  35603. + 
  35604. + #include    <exec/types.h>
  35605. + #include    <exec/nodes.h>
  35606. + #include    <exec/lists.h>
  35607. + #include    <exec/ports.h>
  35608. + 
  35609. + #include    <rexx/storage.h>
  35610. + #include    <rexx/rxslib.h>
  35611. + 
  35612. + /*
  35613. +  * This is the handle that SimpleRexx will give you
  35614. +  * when you initialize an ARexx port...
  35615. +  *
  35616. +  * The conditional below is used to skip this if we have
  35617. +  * defined it earlier...
  35618. +  */
  35619. + #ifndef    AREXXCONTEXT
  35620. + 
  35621. + typedef void *AREXXCONTEXT;
  35622. + 
  35623. + #endif    /* AREXXCONTEXT */
  35624. + 
  35625. + /*
  35626. +  * The value of RexxMsg (from GetARexxMsg) if there was an error returned
  35627. +  */
  35628. + #define    REXX_RETURN_ERROR    ((struct RexxMsg *)-1L)
  35629. + #define    REXX_RETURN_OK            ((struct RexxMsg *)-3L)
  35630. + 
  35631. + /*
  35632. +  * This function closes down the ARexx context that was opened
  35633. +  * with InitARexx...
  35634. +  */
  35635. + void FreeARexx(AREXXCONTEXT);
  35636. + 
  35637. + /*
  35638. +  * This routine initializes an ARexx port for your process
  35639. +  * This should only be done once per process.  You must call it
  35640. +  * with a valid application name and you must use the handle it
  35641. +  * returns in all other calls...
  35642. +  *
  35643. +  * NOTE:  The AppName should not have spaces in it...
  35644. +  *        Example AppNames:  "MyWord" or "FastCalc" etc...
  35645. +  *        The name *MUST* be less that 16 characters...
  35646. +  *        If it is not, it will be trimmed...
  35647. +  *        The name will also be UPPER-CASED...
  35648. +  *
  35649. +  * NOTE:  The Default file name extension, if NULL will be
  35650. +  *        "rexx"  (the "." is automatic)
  35651. +  */
  35652. + AREXXCONTEXT InitARexx(char *,char *);
  35653. + 
  35654. + /*
  35655. +  * This function returns the port name of your ARexx port.
  35656. +  * It will return NULL if there is no ARexx port...
  35657. +  *
  35658. +  * This string is *READ ONLY*  You *MUST NOT* modify it...
  35659. +  */
  35660. + char *ARexxName(AREXXCONTEXT);
  35661. + 
  35662. + /*
  35663. +  * This function returns the signal mask that the Rexx port is
  35664. +  * using.  It returns NULL if there is no signal...
  35665. +  *
  35666. +  * Use this signal bit in your Wait() loop...
  35667. +  */
  35668. + ULONG ARexxSignal(AREXXCONTEXT);
  35669. + 
  35670. + /*
  35671. +  * This function returns a structure that contains the commands sent from
  35672. +  * ARexx...  You will need to parse it and return the structure back
  35673. +  * so that the memory can be freed...
  35674. +  *
  35675. +  * This returns NULL if there was no message...
  35676. +  */
  35677. + struct RexxMsg *GetARexxMsg(AREXXCONTEXT);
  35678. + 
  35679. + /* Use this to delete a message sent via SendARexxMsg and that has now been
  35680. +    returned to you.
  35681. + */
  35682. + void DeleteARexxMsg(AREXXCONTEXT RexxContext, struct RexxMsg *rmsg);
  35683. + 
  35684. + /*
  35685. +  * Use this to return a ARexx message...
  35686. +  *
  35687. +  * If you wish to return something, it must be in the RString.
  35688. +  * If you wish to return an Error, it must be in the Error.
  35689. +  */
  35690. + void ReplyARexxMsg(AREXXCONTEXT,struct RexxMsg *,char *,LONG);
  35691. + 
  35692. + /*
  35693. +  * This function will send a string to ARexx...
  35694. +  *
  35695. +  * The default host port will be that of your task...
  35696. +  *
  35697. +  * If you set StringFile to TRUE, it will set that bit for the message...
  35698. +  *
  35699. +  * Returns the message sent, or NULL in case of error.
  35700. +  */
  35701. + struct RexxMsg *SendARexxMsg(AREXXCONTEXT,char *,short,short);
  35702. + 
  35703. + /*
  35704. +  * This function will set an error string for the ARexx
  35705. +  * application in the variable defined as <appname>.LASTERROR
  35706. +  *
  35707. +  * Note that this can only happen if there is an ARexx message...
  35708. +  *
  35709. +  * This returns TRUE if it worked, FALSE if it did not...
  35710. +  */
  35711. + short SetARexxLastError(AREXXCONTEXT,struct RexxMsg *,char *);
  35712. + 
  35713. + #endif    /* SIMPLE_REXX_H */
  35714. diff -rc --new-file emacs-18.59/src/smakefile /gnu/src/amiga/emacs-18.59/src/smakefile
  35715. *** emacs-18.59/src/smakefile    Thu Jan  1 00:00:00 1970
  35716. --- /gnu/src/amiga/emacs-18.59/src/smakefile    Sat Dec  5 16:43:56 1992
  35717. ***************
  35718. *** 0 ****
  35719. --- 1,45 ----
  35720. + CPP = /cpp/cpp -DAMIGA
  35721. + MAKE = smake  # BSD doesn't have it as a default.
  35722. + #Note: an alternative is  CPP = /lib/cpp
  35723. + 
  35724. + all: xmakefile doall
  35725. + 
  35726. + doall:
  35727. +     $(MAKE) $(MAKEOVERRIDES) -f xmakefile ${MFLAGS} all
  35728. + 
  35729. + #This is used in making a distribution.
  35730. + #Do not use it on development directories!
  35731. + distclean:
  35732. +     -delete force paths.h config.h emacs-* temacs xemacs xmakefile \
  35733. +    *! @* *.o
  35734. + 
  35735. + clean:
  35736. +     -delete force temacs xemacs xmakefile @* *.o
  35737. + 
  35738. + xemacs: xmakefile doxemacs
  35739. + 
  35740. + doxemacs:
  35741. +     $(MAKE) $(MAKEOVERRIDES) -f xmakefile ${MFLAGS} xemacs
  35742. + 
  35743. + temacs: xmakefile dotemacs
  35744. + 
  35745. + dotemacs:
  35746. +     $(MAKE) $(MAKEOVERRIDES) -f xmakefile ${MFLAGS} temacs
  35747. + 
  35748. + demacs: xmakefile dodemacs
  35749. + 
  35750. + dodemacs:
  35751. +     $(MAKE) $(MAKEOVERRIDES) -f xmakefile ${MFLAGS} demacs
  35752. + 
  35753. + # If you have a problem with cc -E here, changing
  35754. + # the definition of CPP above may fix it.
  35755. + xmakefile: ymakefile config.h dostrip
  35756. +     -delete force xmakefile
  35757. +     ${CPP} ymakefile > t:ymkf
  35758. +     dostrip <t:ymkf >xmakefile
  35759. + 
  35760. + dostrip: dostrip.c
  35761. +     sc link dostrip
  35762. + 
  35763. + tags:
  35764. +     etags [a-z]*.h [a-z]*.c /lisp/[a-z]*.el
  35765. diff -rc --new-file emacs-18.59/src/term.c /gnu/src/amiga/emacs-18.59/src/term.c
  35766. *** emacs-18.59/src/term.c    Fri Jan  3 07:46:47 1992
  35767. --- /gnu/src/amiga/emacs-18.59/src/term.c    Sun Nov 22 10:18:02 1992
  35768. ***************
  35769. *** 161,167 ****
  35770.      or'd with 0100.  Zero if no standout marker at all.  */
  35771.   /* used iff TN_standout_width >= 0. */
  35772.   char *chars_wasted;
  35773. ! static char *copybuf;
  35774.   
  35775.   /* nonzero means supposed to write text in standout mode.  */
  35776.   int standout_requested;
  35777. --- 161,167 ----
  35778.      or'd with 0100.  Zero if no standout marker at all.  */
  35779.   /* used iff TN_standout_width >= 0. */
  35780.   char *chars_wasted;
  35781. ! char *copybuf;
  35782.   
  35783.   /* nonzero means supposed to write text in standout mode.  */
  35784.   int standout_requested;
  35785. diff -rc --new-file emacs-18.59/src/termcap.c /gnu/src/amiga/emacs-18.59/src/termcap.c
  35786. *** emacs-18.59/src/termcap.c    Tue Jan  8 18:08:50 1991
  35787. --- /gnu/src/amiga/emacs-18.59/src/termcap.c    Sun Nov 22 10:18:04 1992
  35788. ***************
  35789. *** 30,35 ****
  35790. --- 30,36 ----
  35791.   
  35792.   #ifdef emacs
  35793.   #include "config.h"
  35794. + #include "paths.h"
  35795.   #endif
  35796.   
  35797.   #ifndef BUFSIZE
  35798. ***************
  35799. *** 344,350 ****
  35800. --- 345,355 ----
  35801.   #ifdef VMS
  35802.     filep = tem && legal_filename_p (tem);
  35803.   #else
  35804. + #ifdef AMIGA
  35805. +   filep = tem != 0;            /* Always assume that it is a file */
  35806. + #else
  35807.     filep = tem && (*tem == '/');
  35808. + #endif
  35809.   #endif /* VMS */
  35810.   
  35811.     /* If tem is non-null and starts with / (in the un*x case, that is),
  35812. ***************
  35813. *** 374,384 ****
  35814.       indirect = (char *) 0;
  35815.   
  35816.     if (!tem)
  35817. ! #ifdef VMS
  35818. !     tem = "emacs_library:[etc]termcap.dat";
  35819. ! #else
  35820. !     tem = "/etc/termcap";
  35821. ! #endif
  35822.   
  35823.     /* Here we know we must search a file and tem has its name.  */
  35824.   
  35825. --- 379,385 ----
  35826.       indirect = (char *) 0;
  35827.   
  35828.     if (!tem)
  35829. !     tem = PATH_TERMCAP;
  35830.   
  35831.     /* Here we know we must search a file and tem has its name.  */
  35832.   
  35833. diff -rc --new-file emacs-18.59/src/tparam.c /gnu/src/amiga/emacs-18.59/src/tparam.c
  35834. *** emacs-18.59/src/tparam.c    Tue Jan  8 18:09:27 1991
  35835. --- /gnu/src/amiga/emacs-18.59/src/tparam.c    Sun Nov 22 10:18:10 1992
  35836. ***************
  35837. *** 258,264 ****
  35838.     return outstring;
  35839.   }
  35840.   
  35841. ! #ifdef DEBUG
  35842.   
  35843.   main (argc, argv)
  35844.        int argc;
  35845. --- 258,264 ----
  35846.     return outstring;
  35847.   }
  35848.   
  35849. ! #ifdef TPARAM_DEBUG
  35850.   
  35851.   main (argc, argv)
  35852.        int argc;
  35853. ***************
  35854. *** 274,277 ****
  35855.     return 0;
  35856.   }
  35857.   
  35858. ! #endif /* DEBUG */
  35859. --- 274,277 ----
  35860.     return 0;
  35861.   }
  35862.   
  35863. ! #endif /* TPARAM_DEBUG */
  35864. diff -rc --new-file emacs-18.59/src/xdisp.c /gnu/src/amiga/emacs-18.59/src/xdisp.c
  35865. *** emacs-18.59/src/xdisp.c    Fri Jul 24 19:08:13 1992
  35866. --- /gnu/src/amiga/emacs-18.59/src/xdisp.c    Sun Nov 22 10:19:14 1992
  35867. ***************
  35868. *** 31,36 ****
  35869. --- 31,47 ----
  35870.   #include "commands.h"
  35871.   #include "macros.h"
  35872.   
  35873. + #define MAX_WIN_LINE 64
  35874. + static int win_line_bufpos[MAX_WIN_LINE];
  35875. + static int win_line_modified;
  35876. + static struct buffer *win_line_buffer;
  35877. + #define CLEAR_WIN_LINE() (win_line_buffer = 0)
  35878. + 
  35879. + #ifdef EIGHT_BIT
  35880. + char visible[256];        /* visible[i] is true if character i is
  35881. +                    displayable */
  35882. + #endif
  35883. + 
  35884.   extern int interrupt_input;
  35885.   extern int command_loop_level;
  35886.   
  35887. ***************
  35888. *** 275,281 ****
  35889.       windows_or_buffers_changed++;
  35890.   
  35891.     if (EQ (minibuf_window, selected_window))
  35892. !     this_line_bufpos = 0;
  35893.   
  35894.     prev_echo_area_contents = echo_area_contents;
  35895.   }
  35896. --- 286,295 ----
  35897.       windows_or_buffers_changed++;
  35898.   
  35899.     if (EQ (minibuf_window, selected_window))
  35900. !     {
  35901. !       this_line_bufpos = 0;
  35902. !       CLEAR_WIN_LINE();
  35903. !     }
  35904.   
  35905.     prev_echo_area_contents = echo_area_contents;
  35906.   }
  35907. ***************
  35908. *** 327,332 ****
  35909. --- 341,348 ----
  35910.         must_finish = 1;
  35911.       }
  35912.   
  35913. +   if (windows_or_buffers_changed) CLEAR_WIN_LINE();
  35914. + 
  35915.     if (clip_changed || windows_or_buffers_changed)
  35916.       update_mode_lines++;
  35917.   
  35918. ***************
  35919. *** 453,458 ****
  35920. --- 469,475 ----
  35921.        Also, don't forget to check every line to update the arrow.  */
  35922.     if (pause)
  35923.       {
  35924. +       CLEAR_WIN_LINE();
  35925.         this_line_bufpos = 0;
  35926.         if (!NULL (last_arrow_position))
  35927.       {
  35928. ***************
  35929. *** 709,717 ****
  35930.         && (just_this_one || XFASTINT (w->width) == screen_width)
  35931.         && !EQ (window, minibuf_window))
  35932.       {
  35933. !       pos = *compute_motion (startp, 0, (hscroll ? 1 - hscroll : 0),
  35934.                   point, height + 1, 10000, width, hscroll,
  35935. !                 pos_tab_offset (w, startp));
  35936.   
  35937.         if (pos.vpos < height)
  35938.       {
  35939. --- 726,754 ----
  35940.         && (just_this_one || XFASTINT (w->width) == screen_width)
  35941.         && !EQ (window, minibuf_window))
  35942.       {
  35943. !       int *wlb;
  35944. !       int line, best_startp, best_vpos;
  35945. ! 
  35946. !       best_startp = startp; best_vpos = 0;
  35947. !       if (win_line_buffer && BUF_MODIFF(win_line_buffer) > win_line_modified)
  35948. !       CLEAR_WIN_LINE();
  35949. !       if (current_buffer == win_line_buffer && current_buffer == XBUFFER (w->buffer))
  35950. !         {
  35951. !       /* Try & find line to start from */
  35952. !       wlb = win_line_bufpos; line = 0;
  35953. !       while (line < MAX_WIN_LINE)
  35954. !         {
  35955. !           if (*wlb && point > *wlb && *wlb > best_startp)
  35956. !             {
  35957. !           best_startp = *wlb;
  35958. !           best_vpos = line;
  35959. !             }
  35960. !           line++; wlb++;
  35961. !         }
  35962. !         }
  35963. !       pos = *compute_motion (best_startp, best_vpos, (hscroll ? 1 - hscroll : 0),
  35964.                   point, height + 1, 10000, width, hscroll,
  35965. !                 pos_tab_offset (w, best_startp));
  35966.   
  35967.         if (pos.vpos < height)
  35968.       {
  35969. ***************
  35970. *** 843,848 ****
  35971. --- 880,887 ----
  35972.   
  35973.     struct position val;
  35974.   
  35975. +   if (XBUFFER(w->buffer) == win_line_buffer) CLEAR_WIN_LINE();
  35976. + 
  35977.     Fset_marker (w->start, make_number (pos), Qnil);
  35978.   
  35979.     point_vpos = -1;
  35980. ***************
  35981. *** 908,913 ****
  35982. --- 947,954 ----
  35983.     int delta;
  35984.     int tab_offset, epto;
  35985.   
  35986. +   if (XBUFFER(w->buffer) == win_line_buffer) CLEAR_WIN_LINE();
  35987. + 
  35988.     if (GPT - BEG < beg_unchanged)
  35989.       beg_unchanged = GPT - BEG;
  35990.     if (Z - GPT < end_unchanged)
  35991. ***************
  35992. *** 1334,1339 ****
  35993. --- 1375,1381 ----
  35994.     pause = pos;
  35995.     while (p1 < endp)
  35996.       {
  35997. + restart:
  35998.         p1prev = p1;
  35999.         if (pos == pause)
  36000.       {
  36001. ***************
  36002. *** 1354,1366 ****
  36003.         p = &FETCH_CHAR (pos);
  36004.       }
  36005.         c = *p++;
  36006.         if (c >= 040 && c < 0177)
  36007. !     {
  36008.         if (p1 >= startp)
  36009. !         *p1 = c;
  36010. !       p1++;
  36011. !     }
  36012. !       else if (c == '\n')
  36013.       {
  36014.         invis = 0;
  36015.         while (pos < end
  36016. --- 1396,1439 ----
  36017.         p = &FETCH_CHAR (pos);
  36018.       }
  36019.         c = *p++;
  36020. + #ifdef EIGHT_BIT
  36021. +       if (visible[c])
  36022. + #else
  36023.         if (c >= 040 && c < 0177)
  36024. ! #endif
  36025. !       /* This optimises the frequent part (displayable characters) of
  36026. !      this inner loop. If the conditions aren't met, return to old
  36027. !      inner loop. */
  36028. !         {
  36029.         if (p1 >= startp)
  36030. !         {
  36031. !           do
  36032. !             {
  36033. !           *p1++ = c;
  36034. !           pos++;
  36035. !           if (p1 >= endp)
  36036. !             {
  36037. !               p1prev = p1 - 1;
  36038. !               goto done;
  36039. !             }
  36040. !           if (pos == pause) goto restart;
  36041. !           c = *p++;
  36042. !             }
  36043. ! #ifdef EIGHT_BIT
  36044. !           while (visible[c]);
  36045. ! #else
  36046. !           while (c >= 040 && c < 0177);
  36047. ! #endif
  36048. !           p1prev = p1;
  36049. !         }
  36050. !       else
  36051. !         {
  36052. !           p1++;
  36053. !           pos++;
  36054. !           goto restart;
  36055. !         }
  36056. !         }
  36057. !       if (c == '\n')
  36058.       {
  36059.         invis = 0;
  36060.         while (pos < end
  36061. ***************
  36062. *** 1434,1439 ****
  36063. --- 1507,1513 ----
  36064.       }
  36065.         pos++;
  36066.       }
  36067. + done:
  36068.   
  36069.     val.hpos = - XINT (w->hscroll);
  36070.     if (val.hpos)
  36071. ***************
  36072. *** 1525,1530 ****
  36073. --- 1599,1623 ----
  36074.           this_line_bufpos = 0;
  36075.       }
  36076.       }
  36077. +   /* Save positions of all lines of current window */
  36078. +   if (w == XWINDOW(selected_window) && vpos < MAX_WIN_LINE)
  36079. +   {
  36080. +       /* Line is not continued and did not start in middle of character */
  36081. +       if (hpos == (XINT (w->hscroll) ? 1 - XINT (w->hscroll) : 0)
  36082. +       && val.vpos)
  36083. +       {
  36084. +       if (current_buffer != win_line_buffer ||
  36085. +           !(win_line_modified >= MODIFF))
  36086. +       {
  36087. +           win_line_buffer = current_buffer;
  36088. +           win_line_modified = MODIFF;
  36089. +           bzero(win_line_bufpos, sizeof win_line_bufpos);
  36090. +       }
  36091. +       win_line_bufpos[vpos - XINT (w->top)] = start;
  36092. +       }
  36093. +       else
  36094. +       win_line_bufpos[vpos - XINT (w->top)] = 0;
  36095. +   }
  36096.   
  36097.     /* If hscroll and line not empty, insert truncation-at-left marker */
  36098.     if (hscroll && lastpos != start)
  36099. ***************
  36100. *** 1994,2000 ****
  36101. --- 2087,2097 ----
  36102.       {
  36103.         c = *string++;
  36104.         if (!c) break;
  36105. + #ifdef EIGHT_BIT
  36106. +       if (visible[c])
  36107. + #else
  36108.         if (c >= 040 && c < 0177)
  36109. + #endif
  36110.       {
  36111.         if (p1 >= start)
  36112.           *p1 = c;
  36113. ***************
  36114. *** 2109,2115 ****
  36115. --- 2206,2216 ----
  36116.     register
  36117.   #endif COMPILER_REGISTER_BUG
  36118.       struct window *mini_w;
  36119. + #ifdef EIGHT_BIT
  36120. +   int i;
  36121. + #endif
  36122.   
  36123. +   CLEAR_WIN_LINE();
  36124.     this_line_bufpos = 0;
  36125.   
  36126.     mini_w = XWINDOW (minibuf_window);
  36127. ***************
  36128. *** 2128,2131 ****
  36129. --- 2229,2238 ----
  36130.         XFASTINT (XWINDOW (root_window)->width) = screen_width;
  36131.         XFASTINT (mini_w->width) = screen_width;
  36132.       }
  36133. + #ifdef EIGHT_BIT
  36134. +   for (i = 040; i < 0177; i++) visible[i] = 1;
  36135. + #ifdef AMIGA
  36136. +   for (i = 0240; i <= 0377; i++) visible[i] = 1;
  36137. + #endif
  36138. + #endif
  36139.   }
  36140. diff -rc --new-file emacs-18.59/src/ymakefile /gnu/src/amiga/emacs-18.59/src/ymakefile
  36141. *** emacs-18.59/src/ymakefile    Tue Oct  6 18:44:28 1992
  36142. --- /gnu/src/amiga/emacs-18.59/src/ymakefile    Thu Sep 30 20:52:04 1993
  36143. ***************
  36144. *** 18,24 ****
  36145. --- 18,32 ----
  36146.   the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  36147.   
  36148.   
  36149. + #ifdef amiga
  36150. + #undef amiga
  36151. + #endif
  36152. + 
  36153. + #ifdef AMIGA
  36154. + dot =
  36155. + #else
  36156.   dot = .
  36157. + #endif
  36158.   /* on Xenix, replace double-dot below with $(dot)$(dot) */
  36159.   lispdir = $(dot)$(dot)/lisp/
  36160.   etcdir = $(dot)$(dot)/etc/
  36161. ***************
  36162. *** 161,167 ****
  36163.   #define LINKER gcc -nostdlib
  36164.   #else
  36165.   #define LINKER ld
  36166. ! #endif 
  36167.   #endif /* not ORDINARY_LINK */
  36168.   #endif /* no LINKER */
  36169.   
  36170. --- 169,175 ----
  36171.   #define LINKER gcc -nostdlib
  36172.   #else
  36173.   #define LINKER ld
  36174. ! #endif
  36175.   #endif /* not ORDINARY_LINK */
  36176.   #endif /* no LINKER */
  36177.   
  36178. ***************
  36179. *** 191,197 ****
  36180. --- 199,209 ----
  36181.   SHORT= shortnames
  36182.   #endif /* SHORTNAMES */
  36183.   
  36184. + #ifdef AMIGA
  36185. + CFLAGS= C_DEBUG_SWITCH def emacs $(MYCPPFLAG) C_SWITCH_MACHINE C_SWITCH_SYSTEM C_SWITCH_X_MACHINE C_SWITCH_X_SYSTEM
  36186. + #else
  36187.   CFLAGS= C_DEBUG_SWITCH -Demacs $(MYCPPFLAG) C_SWITCH_MACHINE C_SWITCH_SYSTEM C_SWITCH_X_MACHINE C_SWITCH_X_SYSTEM
  36188. + #endif
  36189.   /* DO NOT use -R.  There is a special hack described in lastfile.c
  36190.      which is used instead.  Some initialized data areas are modified
  36191.      at initial startup, then labeled as part of the text area when
  36192. ***************
  36193. *** 258,264 ****
  36194.   GNULIB_VAR = `if [ -f LIB_GCC ] ; then echo LIB_GCC; else echo; fi`
  36195.   #endif /* __GNUC__ <= 1 */
  36196.   #else
  36197. ! GNULIB_VAR = 
  36198.   #endif
  36199.   
  36200.   #ifdef MAINTAIN_ENVIRONMENT
  36201. --- 270,276 ----
  36202.   GNULIB_VAR = `if [ -f LIB_GCC ] ; then echo LIB_GCC; else echo; fi`
  36203.   #endif /* __GNUC__ <= 1 */
  36204.   #else
  36205. ! GNULIB_VAR =
  36206.   #endif
  36207.   
  36208.   #ifdef MAINTAIN_ENVIRONMENT
  36209. ***************
  36210. *** 270,280 ****
  36211.   #define UNEXEC unexec.o
  36212.   #endif
  36213.   
  36214.   /* lastfile must follow all files
  36215.      whose initialized data areas should be dumped as pure by dump-emacs. */
  36216.   obj=    dispnew.o scroll.o xdisp.o window.o \
  36217. !     term.o cm.o $(XOBJ) \
  36218. !     emacs.o keyboard.o macros.o keymap.o sysdep.o \
  36219.       buffer.o filelock.o insdel.o marker.o \
  36220.       minibuf.o fileio.o dired.o filemode.o \
  36221.       cmds.o casefiddle.o indent.o search.o regex.o undo.o \
  36222. --- 282,300 ----
  36223.   #define UNEXEC unexec.o
  36224.   #endif
  36225.   
  36226. + termobjs= term.o cm.o
  36227. + 
  36228. + #ifdef AMIGA
  36229. + SYSDEP= amiga_sysdep.o
  36230. + #else
  36231. + SYSDEP= sysdep.o
  36232. + #endif
  36233. + 
  36234.   /* lastfile must follow all files
  36235.      whose initialized data areas should be dumped as pure by dump-emacs. */
  36236.   obj=    dispnew.o scroll.o xdisp.o window.o \
  36237. !     $(termobjs) $(XOBJ) \
  36238. !     emacs.o keyboard.o macros.o keymap.o $(SYSDEP) \
  36239.       buffer.o filelock.o insdel.o marker.o \
  36240.       minibuf.o fileio.o dired.o filemode.o \
  36241.       cmds.o casefiddle.o indent.o search.o regex.o undo.o \
  36242. ***************
  36243. *** 360,376 ****
  36244. --- 380,422 ----
  36245.   #ifdef CANNOT_DUMP
  36246.       mv temacs xemacs
  36247.   #else
  36248. + #ifdef AMIGA
  36249. +     -delete ${etcdir}EMACS-DATA xemacs force
  36250. +     temacs -nl -batch -l inc-vers
  36251. +     temacs -nl -batch -l loadup.el dump
  36252. +     -touch xemacs
  36253. +     -delete /temacs force
  36254. +     makelink from /temacs temacs
  36255. + #else
  36256.       ./temacs -batch -l inc-vers
  36257.       ./temacs -batch -l loadup.el dump
  36258. + #endif /* not AMIGA */
  36259.   #endif /* not CANNOT_DUMP */
  36260.   #endif /* not HAVE_SHM */
  36261.   
  36262.   ${etcdir}DOC: ${etcdir}make-docfile ${obj} ${lisp}
  36263. + #ifdef AMIGA
  36264. + REDIRECT_IN= <
  36265. +     -delete force ${etcdir}DOC
  36266. +     ${etcdir}make-docfile >${etcdir}DOC $(REDIRECT_IN) < <
  36267. + ${obj}
  36268. + ${lisp}
  36269. + ${lispdir}version.el
  36270. + ${lispdir}amiga-menu.elc ${lispdir}amiga-init.elc ${lispdir}amiga-mouse.elc
  36271. + OBJECTS_SYSTEM
  36272. + <
  36273. + #else
  36274.       rm -f ${etcdir}DOC
  36275.       ${etcdir}make-docfile ${obj} ${lisp} ${lispdir}version.el > ${etcdir}DOC
  36276. + #endif
  36277.   
  36278. + #ifdef AMIGA
  36279. + ${etcdir}make-docfile: ${etcdir}make-docfile.c
  36280. +     sc link /etc/make-docfile
  36281. + #else
  36282.   ${etcdir}make-docfile:
  36283.       cd ${etcdir}; ${MAKE} ${MFLAGS} make-docfile
  36284. + #endif
  36285.   
  36286.   /* Some systems define this to cause parallel Make-ing.  */
  36287.   #ifndef MAKE_PARALLEL
  36288. ***************
  36289. *** 378,384 ****
  36290. --- 424,453 ----
  36291.   #endif
  36292.   
  36293.   temacs: MAKE_PARALLEL $(LOCALCPP) $(SHORT) $(STARTFILES) $(OLDXMENU) ${obj} ${otherobj} OBJECTS_SYSTEM OBJECTS_MACHINE
  36294. + #ifdef AMIGA
  36295. +     slink <with <
  36296. + from ${STARTFILES} $(obj) OBJECTS_SYSTEM OBJECTS_MACHINE $(otherobj)
  36297. + to temacs
  36298. + lib LIB_STANDARD
  36299. + nodebug
  36300. + batch
  36301. + <
  36302. + #endif
  36303. + 
  36304. + demacs: MAKE_PARALLEL $(LOCALCPP) $(SHORT) $(STARTFILES) $(OLDXMENU) ${obj} ${otherobj} OBJECTS_SYSTEM OBJECTS_MACHINE
  36305. + #ifdef AMIGA
  36306. +     slink <with <
  36307. + from ${STARTFILES} $(obj) OBJECTS_SYSTEM OBJECTS_MACHINE $(otherobj)
  36308. + to demacs
  36309. + lib LIB_STANDARD
  36310. + map ram:emacs.map,h,x
  36311. + addsym
  36312. + swidth 16
  36313. + batch
  36314. + <
  36315. + #else
  36316.       $(LD) ${STARTFLAGS} ${LDFLAGS} -o temacs ${STARTFILES} ${obj} ${otherobj} OBJECTS_SYSTEM OBJECTS_MACHINE ${LIBES}
  36317. + #endif
  36318.   
  36319.   /* These are needed for C compilation, on the systems that need them */
  36320.   #ifdef NEED_CPP
  36321. ***************
  36322. *** 460,510 ****
  36323.      it is so often changed in ways that do not require any recompilation
  36324.      and so rarely changed in ways that do require any.  */
  36325.   
  36326. ! abbrev.o : abbrev.c buffer.h commands.h config.h 
  36327. ! buffer.o : buffer.c syntax.h buffer.h commands.h window.h config.h 
  36328. ! callint.o : callint.c window.h commands.h buffer.h config.h 
  36329. ! callproc.o : callproc.c paths.h buffer.h commands.h config.h 
  36330. ! casefiddle.o : casefiddle.c syntax.h commands.h buffer.h config.h 
  36331.   cm.o : cm.c cm.h termhooks.h config.h
  36332. ! cmds.o : cmds.c syntax.h buffer.h commands.h config.h 
  36333.   crt0.o : crt0.c config.h
  36334.       $(CC) -c $(CFLAGS) C_SWITCH_ASM crt0.c
  36335.   dired.o : dired.c commands.h buffer.h config.h regex.h
  36336.   dispnew.o : dispnew.c commands.h window.h buffer.h dispextern.h termchar.h termopts.h cm.h config.h lisp.h
  36337.   doc.o : doc.c buffer.h config.h paths.h
  36338.   doprnt.o : doprnt.c
  36339. ! editfns.o : editfns.c window.h buffer.h config.h 
  36340. ! emacs.o : emacs.c commands.h config.h 
  36341.   #ifdef MAINTAIN_ENVIRONMENT
  36342.   environ.o : environ.c buffer.h commands.h config.h
  36343.   #endif /* MAINTAIN_ENVIRONMENT */
  36344. ! fileio.o : fileio.c window.h buffer.h config.h 
  36345.   filelock.o : filelock.c buffer.h paths.h config.h
  36346. ! filemode.o : filemode.c 
  36347.   indent.o : indent.c window.h indent.h buffer.h config.h termchar.h termopts.h
  36348. ! insdel.o : insdel.c window.h buffer.h config.h 
  36349. ! keyboard.o : keyboard.c termchar.h termhooks.h termopts.h buffer.h commands.h window.h macros.h config.h 
  36350. ! keymap.o : keymap.c buffer.h commands.h config.h 
  36351. ! lastfile.o : lastfile.c 
  36352.   macros.o : macros.c window.h buffer.h commands.h macros.h config.h
  36353.   malloc.o : malloc.c config.h
  36354. ! marker.o : marker.c buffer.h config.h 
  36355. ! minibuf.o : minibuf.c syntax.h window.h buffer.h commands.h config.h 
  36356.   mocklisp.o : mocklisp.c buffer.h config.h
  36357. ! process.o : process.c process.h buffer.h window.h termhooks.h termopts.h commands.h dispextern.h config.h 
  36358. ! regex.o : regex.c syntax.h buffer.h config.h regex.h 
  36359.   scroll.o : scroll.c termchar.h config.h dispextern.h termhooks.h
  36360. ! search.o : search.c regex.h commands.h buffer.h syntax.h config.h 
  36361. ! syntax.o : syntax.c syntax.h buffer.h commands.h config.h 
  36362.   sysdep.o : sysdep.c config.h dispextern.h termhooks.h termchar.h termopts.h window.h
  36363.   term.o : term.c termchar.h termhooks.h termopts.h config.h cm.h
  36364.   termcap.o : termcap.c config.h
  36365.   terminfo.o : terminfo.c config.h
  36366.   tparam.o : tparam.c config.h
  36367. ! undo.o : undo.c buffer.h commands.h config.h 
  36368.   UNEXEC : config.h getpagesize.h
  36369.   window.o : window.c indent.h commands.h window.h buffer.h config.h termchar.h
  36370. ! xdisp.o : xdisp.c macros.h commands.h indent.h buffer.h dispextern.h termchar.h window.h config.h 
  36371.   xfns.o : xfns.c xterm.h window.h config.h
  36372.   xmenu.o : xmenu.c xterm.h window.h config.h
  36373.   xterm.o : xterm.c xterm.h termhooks.h termopts.h termchar.h \
  36374. --- 529,579 ----
  36375.      it is so often changed in ways that do not require any recompilation
  36376.      and so rarely changed in ways that do require any.  */
  36377.   
  36378. ! abbrev.o : abbrev.c buffer.h commands.h config.h
  36379. ! buffer.o : buffer.c syntax.h buffer.h commands.h window.h config.h
  36380. ! callint.o : callint.c window.h commands.h buffer.h config.h
  36381. ! callproc.o : callproc.c paths.h buffer.h commands.h config.h
  36382. ! casefiddle.o : casefiddle.c syntax.h commands.h buffer.h config.h
  36383.   cm.o : cm.c cm.h termhooks.h config.h
  36384. ! cmds.o : cmds.c syntax.h buffer.h commands.h config.h
  36385.   crt0.o : crt0.c config.h
  36386.       $(CC) -c $(CFLAGS) C_SWITCH_ASM crt0.c
  36387.   dired.o : dired.c commands.h buffer.h config.h regex.h
  36388.   dispnew.o : dispnew.c commands.h window.h buffer.h dispextern.h termchar.h termopts.h cm.h config.h lisp.h
  36389.   doc.o : doc.c buffer.h config.h paths.h
  36390.   doprnt.o : doprnt.c
  36391. ! editfns.o : editfns.c window.h buffer.h config.h
  36392. ! emacs.o : emacs.c commands.h config.h
  36393.   #ifdef MAINTAIN_ENVIRONMENT
  36394.   environ.o : environ.c buffer.h commands.h config.h
  36395.   #endif /* MAINTAIN_ENVIRONMENT */
  36396. ! fileio.o : fileio.c window.h buffer.h config.h
  36397.   filelock.o : filelock.c buffer.h paths.h config.h
  36398. ! filemode.o : filemode.c
  36399.   indent.o : indent.c window.h indent.h buffer.h config.h termchar.h termopts.h
  36400. ! insdel.o : insdel.c window.h buffer.h config.h
  36401. ! keyboard.o : keyboard.c termchar.h termhooks.h termopts.h buffer.h commands.h window.h macros.h config.h
  36402. ! keymap.o : keymap.c buffer.h commands.h config.h
  36403. ! lastfile.o : lastfile.c
  36404.   macros.o : macros.c window.h buffer.h commands.h macros.h config.h
  36405.   malloc.o : malloc.c config.h
  36406. ! marker.o : marker.c buffer.h config.h
  36407. ! minibuf.o : minibuf.c syntax.h window.h buffer.h commands.h config.h
  36408.   mocklisp.o : mocklisp.c buffer.h config.h
  36409. ! process.o : process.c process.h buffer.h window.h termhooks.h termopts.h commands.h dispextern.h config.h
  36410. ! regex.o : regex.c syntax.h buffer.h config.h regex.h
  36411.   scroll.o : scroll.c termchar.h config.h dispextern.h termhooks.h
  36412. ! search.o : search.c regex.h commands.h buffer.h syntax.h config.h
  36413. ! syntax.o : syntax.c syntax.h buffer.h commands.h config.h
  36414.   sysdep.o : sysdep.c config.h dispextern.h termhooks.h termchar.h termopts.h window.h
  36415.   term.o : term.c termchar.h termhooks.h termopts.h config.h cm.h
  36416.   termcap.o : termcap.c config.h
  36417.   terminfo.o : terminfo.c config.h
  36418.   tparam.o : tparam.c config.h
  36419. ! undo.o : undo.c buffer.h commands.h config.h
  36420.   UNEXEC : config.h getpagesize.h
  36421.   window.o : window.c indent.h commands.h window.h buffer.h config.h termchar.h
  36422. ! xdisp.o : xdisp.c macros.h commands.h indent.h buffer.h dispextern.h termchar.h window.h config.h
  36423.   xfns.o : xfns.c xterm.h window.h config.h
  36424.   xmenu.o : xmenu.c xterm.h window.h config.h
  36425.   xterm.o : xterm.c xterm.h termhooks.h termopts.h termchar.h \
  36426. ***************
  36427. *** 517,529 ****
  36428.   
  36429.   /* The files of Lisp proper */
  36430.   
  36431. ! alloc.o : alloc.c window.h buffer.h config.h 
  36432. ! bytecode.o : bytecode.c buffer.h config.h 
  36433. ! data.o : data.c buffer.h config.h 
  36434.   eval.o : eval.c commands.h config.h
  36435.   fns.o : fns.c buffer.h commands.h config.h
  36436. ! print.o : print.c process.h window.h buffer.h dispextern.h termchar.h config.h 
  36437. ! lread.o : lread.c buffer.h paths.h config.h 
  36438.   
  36439.   /* System-specific programs to be made.
  36440.      OTHER_FILES, OBJECTS_SYSTEM and OBJECTS_MACHINE
  36441. --- 586,598 ----
  36442.   
  36443.   /* The files of Lisp proper */
  36444.   
  36445. ! alloc.o : alloc.c window.h buffer.h config.h
  36446. ! bytecode.o : bytecode.c buffer.h config.h
  36447. ! data.o : data.c buffer.h config.h
  36448.   eval.o : eval.c commands.h config.h
  36449.   fns.o : fns.c buffer.h commands.h config.h
  36450. ! print.o : print.c process.h window.h buffer.h dispextern.h termchar.h config.h
  36451. ! lread.o : lread.c buffer.h paths.h config.h
  36452.   
  36453.   /* System-specific programs to be made.
  36454.      OTHER_FILES, OBJECTS_SYSTEM and OBJECTS_MACHINE
  36455. ***************
  36456. *** 533,535 ****
  36457. --- 602,619 ----
  36458.   
  36459.   ${etcdir}emacstool: ${etcdir}emacstool.c
  36460.       cd ${etcdir}; ${MAKE} ${MFLAGS} emacstool
  36461. + 
  36462. + SimpleRexx.o: SimpleRexx.c SimpleRexx.h
  36463. + amiga_clipboard.o: amiga_clipboard.c termchar.h amiga.h config.h
  36464. + amiga_dump.o: amiga_dump.c termchar.h buffer.h dispextern.h regex.h amiga.h config.h
  36465. + amiga_menu.o: amiga_menu.c amiga.h config.h
  36466. + amiga_processes.o: amiga_processes.c amiga.h config.h
  36467. + amiga_rexx.o: amiga_rexx.c SimpleRexx.h amiga.h config.h
  36468. + amiga_screen.o: amiga_screen.c termchar.h dispextern.h amiga.h config.h
  36469. + amiga_serial.o: amiga_serial.c amiga.h config.h
  36470. + amiga_sysdep.o: amiga_sysdep.c termopts.h termhooks.h termchar.h dispextern.h \
  36471. +         amiga.h config.h
  36472. + amiga_term.o: amiga_term.c termopts.h termhooks.h  termchar.h config.h
  36473. + amiga_tty.o: amiga_tty.c termhooks.h termchar.h amiga.h config.h
  36474. + amiga_malloc.o: amiga_malloc.c amiga.h config.h
  36475. +     $(CC) $(CFLAGS) parms=both amiga_malloc.c
  36476.