home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / emacs-18.59-diffs.gz / emacs-18.59-diffs
Text File  |  1996-10-13  |  1MB  |  36,473 lines
  1. This file contains patches that transform the baseline version into
  2. the amiga version.  Assuming that you have unarchived the baseline
  3. version in the current directory, just run the command:
  4.  
  5.     patch -p1 -E -b .pbak <diff-file
  6.  
  7. where 'diff-file' is this patch file.  After running patch you should
  8. remove all the generated *.pbak files, and look for any *.rej files
  9. that indicate a problem patching the baseline source.
  10.  
  11. diff -rup --new-file baseline/fsf/emacs18/Product-Info amiga/fsf/emacs18/Product-Info
  12. --- baseline/fsf/emacs18/Product-Info    Wed Dec 31 17:00:00 1969
  13. +++ amiga/fsf/emacs18/Product-Info    Sat Sep 28 00:00:00 1996
  14. @@ -0,0 +1,62 @@
  15. +.name
  16. +emacs
  17. +.fullname
  18. +GNU Emacs editor
  19. +.type
  20. +Text Editing
  21. +.short
  22. +GNU Emacs editor
  23. +.description
  24. +GNU Emacs is the GNU incarnation of the advanced, self-documenting,
  25. +customizable, extensible real-time display editor Emacs. (The `G' in
  26. +`GNU' is not silent.)
  27. +
  28. +We say that Emacs is a "display" editor because normally the text
  29. +being edited is visible on the screen and is updated automatically as
  30. +you type your commands.
  31. +
  32. +We call it a "real-time" editor because the display is updated very
  33. +frequently, usually after each character or pair of characters you
  34. +type.  This minimizes the amount of information you must keep in your
  35. +head as you edit.
  36. +
  37. +We call Emacs advanced because it provides facilities that go beyond
  38. +simple insertion and deletion: filling of text; automatic indentation
  39. +of programs; viewing two or more files at once; and dealing in terms
  40. +of characters, words, lines, sentences, paragraphs, and pages, as well
  41. +as expressions and comments in several different programming
  42. +languages.  It is much easier to type one command meaning "go to the
  43. +end of the paragraph" than to find that spot with simple cursor keys.
  44. +
  45. +"Self-documenting" means that at any time you can type a special
  46. +character, `Control-h', to find out what your options are.  You can
  47. +also use it to find out what any command does, or to find all the
  48. +commands that pertain to a topic.
  49. +
  50. +"Customizable" means that you can change the definitions of Emacs
  51. +commands in little ways.  For example, if you use a programming
  52. +language in which comments start with `<**' and end with `**>', you
  53. +can tell the Emacs comment manipulation commands to use those strings.
  54. +Another sort of customization is rearrangement of the command set.
  55. +For example, if you prefer the four basic cursor motion commands (up,
  56. +down, left and right) on keys in a diamond pattern on the keyboard,
  57. +you can have it.
  58. +
  59. +"Extensible" means that you can go beyond simple customization and
  60. +write entirely new commands, programs in the Lisp language to be run
  61. +by Emacs's own Lisp interpreter.  Emacs is an "on-line extensible"
  62. +system, which means that it is divided into many functions that call
  63. +each other, any of which can be redefined in the middle of an editing
  64. +session.  Any part of Emacs can be replaced without making a separate
  65. +copy of all of Emacs.  Most of the editing commands of Emacs are
  66. +written in Lisp already; the few exceptions could have been written in
  67. +Lisp but are written in C for efficiency.  Although only a programmer
  68. +can write an extension, anybody can use it afterward.
  69. +.version
  70. +18.59
  71. +.author
  72. +Richard Stallman
  73. +.distribution
  74. +GNU Public License
  75. +.described-by
  76. +Fred Fish (fnf@amigalib.com)
  77. diff -rup --new-file baseline/fsf/emacs18/amiga/README amiga/fsf/emacs18/amiga/README
  78. --- baseline/fsf/emacs18/amiga/README    Wed Dec 31 17:00:00 1969
  79. +++ amiga/fsf/emacs18/amiga/README    Sat Sep 28 00:00:00 1996
  80. @@ -0,0 +1,11 @@
  81. +This version of emacs is still built with SAS C.  It also requires
  82. +David Gay's unix emulation library, which can be found in the unix
  83. +subdirectory here.  You may have to go through some contortions to
  84. +recompile it though.
  85. +
  86. +The files in amiga-extra are various things I received in the emacs
  87. +distribution from David Gay, but didn't have any time to examine
  88. +very closely, so they are stuck there in limbo for the time being.
  89. +
  90. +-Fred  ><>
  91. + 12-Jul-94
  92. diff -rup --new-file baseline/fsf/emacs18/amiga/amiga-extra/INSTALL.AMIGA amiga/fsf/emacs18/amiga/amiga-extra/INSTALL.AMIGA
  93. --- baseline/fsf/emacs18/amiga/amiga-extra/INSTALL.AMIGA    Wed Dec 31 17:00:00 1969
  94. +++ amiga/fsf/emacs18/amiga/amiga-extra/INSTALL.AMIGA    Sat Sep 28 00:00:00 1996
  95. @@ -0,0 +1,58 @@
  96. +DON'T FORGET: This version of Emacs REQUIRES AmigaOS V2.04 or later !!
  97. +
  98. +If you are updating from a previous version, the following steps apply:
  99. +- You must redefine your GNUEMACS: assign (the name of the directory
  100. +  has changed from emacs-18.58 to emacs-18.59).
  101. +- You should make sure you are using the lisp files (*.el and *.elc) which
  102. +  come with this release, as several of them have changed.
  103. +
  104. +New users should do the following (assuming you are in the emacs-18.59
  105. +directory):
  106. +
  107. +1. Copy amiga/.emacs, amiga/.emacs-menu.menu, amiga/.emacs-menu.el to s:
  108. +2. Copy amiga/c/#? to somewhere in your path.
  109. +3. Add an assign GNUEMACS: <wherever you've put the emacs directory> to 
  110. +   your User-Startup.
  111. +4. Install Matt Dillon's fifo.library and fifo: handler if you want to use
  112. +   external processes (This can be found on Fish disks). If you have any
  113. +   problems, try a version at least as recent as that on Fish Disk 588.
  114. +5. Define various environment variables (these all have defaults, so this
  115. +   isn't absolutely necessary, except for ESHELL) :
  116. +
  117. +     USER     - a username (a la Unix) (default "user")
  118. +     USERNAME - your full name (default same as $USER)
  119. +     HOME     - your "home" directory (This is the directory refered to
  120. +        by ~/<file>, and where the .emacs file is looked for)
  121. +        (default "s:").
  122. +     HOSTNAME - a name for your system (default "amiga")
  123. +     ESHELL   - where to find an unix-like shell (no default). By unix-like
  124. +        I mean that it should not open a window to get its input.
  125. +        The only tested value for this is GNUEMACS:etc/sh.
  126. +
  127. +   For instance, I have the following values:
  128. +     USER: dgay, USERNAME: David E. Gay, HOSTNAME: owl,
  129. +     ESHELL: gnuemacs:etc/sh
  130. +
  131. +6. If you want to check that emacs is working, type 
  132. + 
  133. +  assign gnuemacs: ""
  134. +  emacs
  135. +
  136. +   If all goes well, emacs should open a window. If you get
  137. +     memacs: Unknown command
  138. +   you have an alias for emacs. Try editing s:Shell-Startup and removing it.
  139. +
  140. +   If you get
  141. +     emacs: file is not executable
  142. +   try typing
  143. +     protect <wherever you put the commands from step 2>/emacs +s
  144. +
  145. +   And finally, if you get
  146. +     wrong number of arguments
  147. +     if failed returncode 10
  148. +   make sure that you have getstack in your path
  149. +
  150. +7. If you are going to use emacs over a serial line, you must install 
  151. +   the termcap file, which comes with the source version. To do so, type:
  152. +
  153. +     join gnuemacs:etc/termcap.ucb gnuemacs:etc/termcap.amiga as s:termcap
  154. diff -rup --new-file baseline/fsf/emacs18/amiga/amiga-extra/amiga/.emacs amiga/fsf/emacs18/amiga/amiga-extra/amiga/.emacs
  155. --- baseline/fsf/emacs18/amiga/amiga-extra/amiga/.emacs    Wed Dec 31 17:00:00 1969
  156. +++ amiga/fsf/emacs18/amiga/amiga-extra/amiga/.emacs    Sat Sep 28 00:00:00 1996
  157. @@ -0,0 +1 @@
  158. +;; Put your configuration commands here.
  159. diff -rup --new-file baseline/fsf/emacs18/amiga/amiga-extra/amiga/.emacs-menu.el amiga/fsf/emacs18/amiga/amiga-extra/amiga/.emacs-menu.el
  160. --- baseline/fsf/emacs18/amiga/amiga-extra/amiga/.emacs-menu.el    Wed Dec 31 17:00:00 1969
  161. +++ amiga/fsf/emacs18/amiga/amiga-extra/amiga/.emacs-menu.el    Sat Sep 28 00:00:00 1996
  162. @@ -0,0 +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 -rup --new-file baseline/fsf/emacs18/amiga/amiga-extra/amiga/.emacs-menu.menu amiga/fsf/emacs18/amiga/amiga-extra/amiga/.emacs-menu.menu
  166. --- baseline/fsf/emacs18/amiga/amiga-extra/amiga/.emacs-menu.menu    Wed Dec 31 17:00:00 1969
  167. +++ amiga/fsf/emacs18/amiga/amiga-extra/amiga/.emacs-menu.menu    Sat Sep 28 00:00:00 1996
  168. @@ -0,0 +1,38 @@
  169. +(("Project" ("Open" find-file ?O)
  170. +        ("Save" save-buffer ?S)
  171. +        ("Save As" write-file ?W)
  172. +        ()
  173. +        ("Quit" save-buffers-kill-emacs ?Q))
  174. + ("Edit" ("Undo" undo ?U)
  175. +         ()
  176. +     ("Mark" set-mark-command ?M)
  177. +     ("Cut" kill-region ?X)
  178. +     ("Copy" copy-region-as-kill ?C)
  179. +     ("Paste" yank ?V)
  180. +     ("Paste Previous" yank-pop))
  181. + ("Search" ("Find Forward" isearch-forward ?F)
  182. +       ("Find Backward" isearch-backward ?B)
  183. +       ()
  184. +       ("Find Fwd Regexp" isearch-forward-regexp)
  185. +       ("Find Bwd Regexp" isearch-backward-regexp)
  186. +       ()
  187. +       ("Query Replace" query-replace ?R)
  188. +       ("Query Rpl Regexp" query-replace-regexp))
  189. + ("Window" ("Split" split-window-vertically ?2)
  190. +       ("Split H" split-window-horizontally)
  191. +       ()
  192. +       ("One Window" delete-other-windows ?1)
  193. +       ("Delete" delete-window ?0)
  194. +       ()
  195. +       ("Enlarge" enlarge-window ?E)
  196. +       ("Next" other-window ?N))
  197. + ("Buffers" ("List" list-buffers)
  198. +        ("Change" switch-to-buffer)
  199. +        ("Kill" kill-buffer))
  200. + ("Help" ("Tutorial" help-with-tutorial ?T)
  201. +         ("Information" info ?H)
  202. +     ()
  203. +     ("Where Is Command" where-is)
  204. +     ("What Is Command" describe-function)
  205. +     ("What Is Key" describe-key)
  206. +     ("Apropos" command-apropos)))
  207. diff -rup --new-file baseline/fsf/emacs18/amiga/amiga-extra/amiga/amiga.doc amiga/fsf/emacs18/amiga/amiga-extra/amiga/amiga.doc
  208. --- baseline/fsf/emacs18/amiga/amiga-extra/amiga/amiga.doc    Wed Dec 31 17:00:00 1969
  209. +++ amiga/fsf/emacs18/amiga/amiga-extra/amiga/amiga.doc    Sat Sep 28 00:00:00 1996
  210. @@ -0,0 +1,605 @@
  211. +1. Introduction
  212. +---------------
  213. +
  214. +Emacs is a powerful, but sometimes cryptic, editor. In this Amiga
  215. +version, I have tried to make it easier to use with menus, mouse
  216. +support and arrow key support, but it still requires some getting used
  217. +to. I would recommend starting with the tutorial, which can be started
  218. +from the Help menu (if it is missing, you didn't install emacs
  219. +correctly. Check that the file s:.emacs-menu.el exists) or from the
  220. +keyboard by typing Control-H and then t.
  221. +
  222. +This file only describes the Amiga specific features of emacs, and it
  223. +assumes a working knowledge of emacs. For more documentation you can
  224. +consult the emacs help (Information in the Help menu, or C-h i) or
  225. +read the emacs manual (which is the same document in a printed form).
  226. +This manual can be bought from the
  227. +
  228. +     Free Software Foundation
  229. +     675 Mass Ave
  230. +     Cambridge, MA 02139
  231. +     USA
  232. +
  233. +See the file gnuemacs:etc/DISTRIB for more information (you can type
  234. +C-h C-d to view it).
  235. +
  236. +To install emacs, read the file INSTALLATION.
  237. +
  238. +
  239. +2. Changes since the last version
  240. +---------------------------------
  241. +
  242. +Several features have been added since v1.26:
  243. +
  244. +- based on emacs 18.59 instead of 18.58
  245. +- changes contributed by Christian E. Hopps: new AREXX code, enhancements
  246. +to the screen routines (more flexibility, read window & screen size,
  247. +...).
  248. +- amiga-iconify is now a toggle (to allow deiconification from AREXX).
  249. +- the infamous 'vfork: not enough memory' message is now more explicit :-)
  250. +- miscellaneous bug fixes
  251. +
  252. +3. Using emacs in a window
  253. +--------------------------
  254. +
  255. +Emacs runs in a window on the Workbench (this can be changed). It
  256. +basically works like just any other version of GNU Emacs, using the
  257. +same keys, etc. It uses the standard amiga keymap, but with some strange
  258. +modifications:
  259. +
  260. +o The left alt key is stolen as a meta key for emacs. This means you can't use
  261. +it to enter accents. However, the right alt key remains untouched. Hence
  262. +'left alt-f e' moves forward one word and inserts an e, while
  263. +'right alt-f e' inserts an e acute. In the rest of the text, the meta key
  264. +always means the 'left alt' key.
  265. +
  266. +o C-space is always mapped to C-@, the set-mark command, for convenience.
  267. +
  268. +o The backspace key always sends DEL (delete previous character in emacs),
  269. +and DEL sends C-d (delete character under cursor). If you don't like this, 
  270. +add the line
  271. +    (setq amiga-remap-bsdel nil)
  272. +to your .emacs file (in s:).
  273. +
  274. +o Keypad keys are prefixed with C-x C-^ K (so 0 generates C-x C-^ K 0).
  275. +Normally, C-x C-^ K is a do-nothing operation, so the keypad keys just
  276. +insert the usual character. If you want to redefine the keypad keys, you
  277. +must do the following:
  278. +
  279. +  (global-set-key "\C-x\C-^K" (make-sparse-keymap))
  280. +  (global-set-key "\C-x\C-^K0" '<function for key 0>)
  281. +  (global-set-key "\C-x\C-^K1" '<function for key 0>)
  282. +  ...
  283. +
  284. +Once you have redefined one key, you must define all of them (as C-x C-^ K
  285. +is no longer a do-nothing command). If you still want a keypad to insert
  286. +its usual character, you can use (for +)
  287. +
  288. +  (global-set-key "\C-x\C-^K+" 'self-insert-command)
  289. +
  290. +Even with this, the numeric keypad will not work with the incremental
  291. +search function. The only way past that is to disable the C-x C-^ K
  292. +prefix, with the following code:
  293. +
  294. +  (setq amiga-remap-numeric-keypad nil)
  295. +
  296. +(and you will then not be able to redefine the keypad keys).
  297. +
  298. +o The sequences for function & arrow keys are the standard Amiga ones, 
  299. +except that the initial character (CSI, code 155) is replaced by
  300. +C-x C-^. For example, F1 is C-x C-^ 0 ~. You can always find the 
  301. +characters generated by a key by pressing it, and then executing
  302. +M-x view-lossage. This displays the last 100 characters seen by emacs. So
  303. +to define F1 to be view-lossage you would add
  304. +
  305. +  (global-set-key "\C-x\C-^0~" 'view-lossage)
  306. +
  307. +to s:.emacs (trying to define F1 interactively with M-x global-set-key
  308. +will fail ...).
  309. +
  310. +
  311. +There are several extra features:
  312. +
  313. +a) Mouse support, similar to the X-Windows version.
  314. +
  315. +You can position the cursor with the left mouse button. Other possibilites are:
  316. +
  317. +action            result
  318. +------------------------------
  319. +shift-left button    set mark at mouse position
  320. +control-left button    cut between point and mouse position
  321. +meta-left button    copy between point and mouse position
  322. +middle button        paste
  323. +shift-middle button    iconify emacs window (double click to deiconify)
  324. +
  325. +Some of the control, meta, etc combinations may be stolen by Intuition or
  326. +commodities programs, so don't be surprised if they don't all work.
  327. +
  328. +All of these actions may be redefined (this is emacs after all!), see the
  329. +file lisp/amiga-mouse.el for details (you will need to learn lisp if you don't
  330. +already know it ...) [Note: this file is not included in the binary only
  331. +distribution, you will need the source code version].
  332. +
  333. +b) Clipboard
  334. +
  335. +At first glance, emacs uses the Amiga clipboard, ie it cuts to the
  336. +clipboard and pastes from it (via the menu operations or the C-w
  337. +(kill-region), M-w (copy-region-as-kill) & C-y (yank) commands).
  338. +
  339. +Things are actually complicated by emacs use of a "kill ring" (ie it
  340. +remembers the last 30 things cut. The M-y (yank-pop, menu command
  341. +Paste Previous) allows you to recover old cuts):
  342. +
  343. +- When you cut (or copy) something in emacs it is placed in the
  344. +clipboard.
  345. +
  346. +- When you paste (yank) something in emacs, it checks the clipboard to
  347. +see if it contains anything new. If so, it pastes that.
  348. +
  349. +[Note: It also checks the clipboard when you cut something, and saves
  350. +that in the kill-ring if necessary]
  351. +
  352. +All this effort is used to make the clipboard appear to operate
  353. +transparently in emacs.
  354. +
  355. +c) Window
  356. +
  357. +By default, emacs runs in a window on the workbench screen using the
  358. +system default font and the standard colours. All this can be changed:
  359. +
  360. +o The font can be specified with the -fn <font> <size> option when you
  361. +run emacs. You can also use the amiga-set-font command interactively,
  362. +or add a line like
  363. +   (amiga-set-font "topaz" 11)
  364. +to your s:.emacs file. The font must be non-proportional.
  365. +
  366. +o The window size and screen can be changed with the
  367. +amiga-set-geometry function. It takes 4, 5 or 6 parameters, the (x,y)
  368. +position of the window and its (width,height). The 5th optional
  369. +parameter specifies the screen: a string gives the name of a public
  370. +screen, t stands for the default public screen (normally the
  371. +workbench) and nil means keep the same screen. Finally, if the 6th
  372. +parameter is present and not nil, a backdrop window is used.
  373. +
  374. +For example, the lisp code
  375. +  (amiga-set-geometry 0 0 640 400)
  376. +resizes the emacs window to 640x400. If the screen would be too small
  377. +given the current font (there must be room for 11x4 characters), the
  378. +change is refused.
  379. +
  380. +Michael Kaiser has contributed a simple public screen creation
  381. +utility: gnuemacs:amiga/contrib/kaiser/pub is a program that creates
  382. +a public screen called "EmacsPublicScreen".
  383. +
  384. +o The foreground & background colours can be changed with the 
  385. +amiga-set-foreground-color & amiga-set-background-color commands. You
  386. +specify the pen and not the actual colour (from 0 to 7 only,
  387. +because of restrictions in console.device).
  388. +
  389. +o The inverse text & fill colours can be specified with
  390. +amiga-set-inverse-text-pen and amiga-set-inverse-fill-pen. The
  391. +choices are also pens 0 to 7, or 8 for reverse.
  392. +
  393. +o The emacs window can be iconified (onto the workbench) with the
  394. +amiga-iconify command. This is bound to shift-middle button on a 3
  395. +button mouse, and to C-z (which is normally bound to suspend-emacs,
  396. +which doesn't work on the Amiga).
  397. +
  398. +To deiconify emacs, double click on the icon.
  399. +
  400. +Emacs will continue to answer to ARexx commands while iconified. The
  401. +variable amiga-emacs-iconfied is set to 't' while emacs is iconified,
  402. +'nil' the rest of the time.  You can test this, eg to make sure that
  403. +emacs is not iconified before reading some user input. If you wish to
  404. +deiconify emacs from arexx, simply call (amiga-iconify) again (it is a
  405. +toggle).
  406. +
  407. +You can specify the position for the icon with (amiga-set-icon-pos x
  408. +y), or get the default position with (amiga-set-icon-pos nil nil).
  409. +
  410. +If you use the functions described above in s:.emacs, they will take 
  411. +effect before emacs's window is opened. This will avoid the nasty
  412. +visual effects of the previous version.
  413. +
  414. +o You can manipulate the emacs window with amiga-activate-window,
  415. +amiga-window-to-front and amiga-window-to-back.
  416. +
  417. +o You can get the window and screen size with (amiga-get-window-geometry)
  418. +and (amiga-get-screen-geometry). The iconified status is now returned 
  419. +by amiga-get-window-geometry instead of the amiga-emacs-iconified variable.
  420. +
  421. +d) Menus
  422. +
  423. +If you have installed emacs correctly (see the INSTALLATION file), it
  424. +will startup with some menus containing some useful basic
  425. +functions (the layout was inspired from that of TurboText, another
  426. +good editor which has the disadvantage of being more expensive than
  427. +emacs ...). Alongside each item is the emacs key sequence which
  428. +invokes that function, if any.
  429. +
  430. +Using the Menu Help functionality of AmigaOS 2.04, you can get help
  431. +on any menu item by highlighting it with the mouse and pressing the
  432. +Help key [This is easier if you're left handed :-)].
  433. +
  434. +The menus are not fixed, they are defined by the s:.emacs-menu.el file
  435. +(which isn't human-readable). To modify them, edit s:.emacs-menu.menu.
  436. +This contains a lisp-like (but quite legible even for lisp-haters)
  437. +representation of the menus, which you can modify by adding items or
  438. +menus. The format should be obvious (just make sure that closing
  439. +brackets correspond to the correct opening ones, emacs always shows
  440. +the corresponding '(' when you type a ')'. Also the last bracket
  441. +should correspond with the first).
  442. +
  443. +When you have finished your changes, type C-c C-c. This will save your
  444. +menus, and then generate a .el file from them (this takes several
  445. +seconds even on an A3000. Be patient). Then save the resulting file.
  446. +To have the new menus take effect immediately, type M-C-x while in the
  447. +.el file.
  448. +
  449. +Enterprising lisp programmers can customise the menus even more by
  450. +modifying the functions amiga-menus-dispatch and/or amiga-menus-help
  451. +in lisp/amiga-mouse.el. This code basically receives a (menu-number
  452. +menu-item-number) list and must take the appropriate action
  453. +(currently, execute the command associated with that particular menu
  454. +item). The lack of comments will surely not deter these audacious
  455. +pionneers ...
  456. +
  457. +e) Command line options
  458. +
  459. +Beyond the standard emacs command line options (for which
  460. +documentation tends to be rather sketchy, not to say missing), you can
  461. +also use:
  462. +
  463. +-prealloc <n>: Reserve n bytes of memory for emacs exclusively. This
  464. +option *must* be the first on the command line. On the A3000, chip
  465. +memory can't be used for emacs (the details are complicated ...), so
  466. +you will run out of memory sooner than expected. This option allows
  467. +you to reserve some for emacs before it gets eaten by other programs.
  468. +
  469. +-fn <font> <size>: Set the font that emacs uses, like the
  470. +amiga-set-font command (see section c, on windows). Note that there
  471. +must be enough room for 11x4 characters in the standard 640x200
  472. +window. So avoid fonts bigger than 40 points ...
  473. +
  474. +-nw: Don't use a window, use a serial port. See part 3, Using Emacs
  475. +over a serial line.
  476. +
  477. +f) ARexx
  478. +
  479. +[The ARexx interface has been rewritten for this version by Christian
  480. +E. Hopps]
  481. +
  482. +Emacs has a full ARexx interface. It can execute scripts and commands
  483. +synchronously (waiting for the result) or asynchronously, and has an
  484. +ARexx port from which it accepts commands. 
  485. +
  486. +To execute a script, use the amiga-arexx-do-command command.  This
  487. +asks for the script file name (the default extension is .elx). If you
  488. +just want to execute a simple ARexx command, you can prefix those
  489. +commands with C-u and specify the string to execute.
  490. +
  491. +From lisp, you can use
  492. +  (amiga-arexx-send-command "<file>" nil) for a script, and
  493. +  (amiga-arexx-send-command "<commands>" t) for direct execution.
  494. +(and the same for amiga-arexx-do-command). The result of
  495. +amiga-arexx-send-command is an integer that can be passed to
  496. +amiga-arexx-wait-command to wait for the completion of the script or
  497. +command. It can also be used with amiga-arexx-check-command to check
  498. +if the script has finished. For example:
  499. +
  500. +  (let ((arexx-id (amiga-send-command "start-fun" nil)))
  501. +    ... do something here ...
  502. +    ; and wait for arexx script to end
  503. +    (amiga-arexx-wait-command arexx-id))
  504. +
  505. +amiga-arexx-wait-command returns the result of the script/command.
  506. +
  507. +amiga-arexx-do-command-with-results is like amiga-arexx-do-command,
  508. +but it returns the result of the script/command.
  509. +
  510. +Emacs's ARexx port accepts commands in lisp, and is usually called
  511. +EMACS1 (if you run emacs twice simulatenously, the second one will
  512. +have EMACS2, and so on). For example (from a shell),
  513. +
  514. +  rx "address EMACS1 '(beginning-of-buffer)'"
  515. +
  516. +will set point to the beginning of the buffer.
  517. +
  518. +ARexx commands are only processed at certain times, so be careful how
  519. +you design your applications. These are:
  520. +
  521. +o While waiting for commands from the keyboard (ie when emacs is
  522. +idle or iconified).
  523. +o While processing a synchronous (amiga-arexx-do-command) script or
  524. +waiting for a script to terminate with amiga-arexx-wait-command.
  525. +o When the amiga-arexx-process function is called.
  526. +
  527. +They also affect the user visible state by default (ie calling
  528. +beginning-of-buffer as above modifies the user's position). Avoid
  529. +sending random commands at random times, or use save-excursion.
  530. +
  531. +As usual, all this behaviour can be modified to some extent. Look in
  532. +amiga-init.el for details [The source code is the documentation...].
  533. +
  534. +There are a few arexx examples in the amiga/contrib directory.
  535. +
  536. +g) Workbench support
  537. +
  538. +Beyond iconification (see the section on the emacs window), emacs 
  539. +supports a number of features for Workbench users:
  540. +
  541. +- emacs can be run from the Workbench, by all the usual methods
  542. +  (double clicking on the tool, double clicking on a project which
  543. +  has temacs as its default tool, etc). All the projects that are
  544. +  passed to temacs will be loaded (if they are files), or listed 
  545. +  with dired (if they are directories).
  546. +
  547. +- icons can be dropped in emacs's window, the corresponding file
  548. +  or directory will be loaded or listed.
  549. +
  550. +- icons can be created for files that are saved. This is the default
  551. +  when emacs is run from the workbench. This is controlled by the
  552. +  amiga-create-icons variable: if you always want icons to be
  553. +  created, add
  554. +
  555. +    (setq amiga-create-icons t)
  556. +
  557. +  to s:.emacs, or
  558. +
  559. +    (setq amiga-create-icons nil)
  560. +
  561. +  if you never want them.
  562. +
  563. +h) external processes
  564. +
  565. +This version of emacs fully supports synchronous (used to get the
  566. +result of ls for dired, for instance) and asynchronous (as in the
  567. +'shell' command) processes. However, it requires Matt Dillon's
  568. +'fifo.device' and 'fifo:' devices to function. See the INSTALLATION
  569. +file for details.
  570. +
  571. +This allows full support for all emacs functions which call external
  572. +programs, providing that said programs exist on the Amiga. The
  573. +following work:
  574. +  compile (for SAS C 5.10b, with a few occasional problems)
  575. +  grep
  576. +  shell (but see the discussions below)
  577. +  display-time
  578. +  dired
  579. +  list-directory
  580. +  sort-...
  581. +
  582. +The compile command sometimes has problems finding file names in the
  583. +error messages, and tries to read the current directory instead. If
  584. +you are patient, it moves on to the next file.
  585. +
  586. +Because of differences between AmigaOS & Unix, sending signals (eg
  587. +interrupt, kill) to processes is not very reliable. The following
  588. +points must be kept in mind:
  589. +
  590. +- In some unlikely cases, the appropriate process to signal won't be 
  591. +  found. 
  592. +- The stop-process & continue-process functions don't work.
  593. +- interrupt-process & quit-process send a ctrl-c & ctrl-d to the
  594. +  process and all its children (probably).
  595. +- kill-process also sends a ctrl-c & ctrl-d. It then pretends that
  596. +  the process has died.
  597. +
  598. +All input sent to a process after an end-of-file is ignored. The process
  599. +just sees an endless sequence of end-of-files. This is most visible with
  600. +the shell command, where if you send an end-of-file to a program (eg type)
  601. +with C-c C-d, the shell will exit. The bug is in fifo.device, not in emacs.
  602. +
  603. +The input & output of processes run inside emacs look like interactive
  604. +files (which allows, for instance, shells to run correctly). However, this
  605. +confuses some programs which expect all interactive files to be Amiga
  606. +consoles and causes them to crash. Several versions of ls suffer from this
  607. +problem (they run into problems while trying to get the window size).
  608. +
  609. +amiga-process-stack-size is the size of the stack for new processes. If it
  610. +is 0 (the default), emacs's stack size is used.
  611. +
  612. +
  613. +4. Using emacs over a serial line
  614. +---------------------------------
  615. +
  616. +To use emacs over a serial port, you must do:
  617. +
  618. +  setenv TERM <terminal type> (eg vt100)
  619. +  emacs -nw
  620. +
  621. +The setenv line can be put in your User-Startup, so as to avoid typing
  622. +it every time.
  623. +
  624. +Emacs cannot simply guess how your terminal works from its name, it
  625. +needs a description of it. This is found in a termcap file, which
  626. +emacs looks for in s:termcap. If you didn't install this file with emacs,
  627. +you can do so by typing (in a CLI):
  628. +
  629. +  join gnuemacs:etc/termcap.ucb gnuemacs:etc/termcap.amiga as s:termcap
  630. +
  631. +[Note: These files only come with the source version]
  632. +
  633. +The -nw prevents the use of a window.
  634. +
  635. +If you have several serial ports, you can type
  636. +
  637. +  emacs -dev ser2.device 2 -nw
  638. +
  639. +to use port 2 of device ser2.device. Use of the -dev option still requires the
  640. +-nw.
  641. +
  642. +These options (-dev & -nw) *must* be specified at the start of the
  643. +command line.
  644. +
  645. +The descriptions of the Clipboard, the command line options and the
  646. +ARexx port in part 2 above also apply to use over a serial port.
  647. +
  648. +
  649. +5. Redumping emacs [This section for expert users only]
  650. +-------------------------------------------------------
  651. +
  652. +Enterprising users may want to change the lisp files which are loaded
  653. +into the Emacs dump file. The procedure for doing this is very similar
  654. +to that with the Unix version, except that the amount of pure storage
  655. +can be changed without recompiling emacs. This will allow users
  656. +without SAS C v5.10b to still make such changes.
  657. +
  658. +The necessary lisp files are only included in the source distribution,
  659. +so you will have to get that first. Once that is available, that you
  660. +have made all your changes (eg adding some extra files to be dumped),
  661. +use the following sequence to redump emacs:
  662. +
  663. +  cd gnuemacs:etc
  664. +  stack 20000
  665. +  /temacs -pure <n> -malloc <m> -nl -batch -l loadup dump
  666. +
  667. +The -pure <n> and -malloc <m> options should only be necessary if you
  668. +add extra files to be dumped, see below how to choose values for n &
  669. +m. The above order for the parameters must be preserved. Specifying
  670. +dump without -nl & -batch will have unpredicatable consequences.
  671. +
  672. +Once all the files are loaded, a new copy of gnuemacs:etc/EMACS-DATA
  673. +will be saved, and all should work correctly. If you get one of the
  674. +following messages:
  675. +
  676. +  Pure Lisp storage exhausted
  677. +
  678. +  Emacs dump: ran out of memory for malloc.
  679. +
  680. +read the following description of the -pure & -malloc options:
  681. +
  682. +When emacs is dumped, it saves (amongst other things) the copies of
  683. +two zones of memory, called the pure storage area and the malloc hunk.
  684. +These contain an internal representation of the lisp code, so the more
  685. +code you include in a dumped emacs, the bigger these need to be. The
  686. +default sizes of these are reasonable sizes for the standard lisp code
  687. +which is dumped, but you will probably need to increase them if you
  688. +add some more lisp modules. The best way to find the new values for n
  689. +(size of pure area) and m (size of the malloc hunk), is to run the
  690. +command
  691. +
  692. +  cd gnuemacs:etc
  693. +  stack 20000
  694. +  /temacs -pure 200000 -malloc 200000 -nl -batch -l loadup dump
  695. +
  696. +(these sizes should be largely sufficient, but if you still get one of
  697. +the two error messages above, increase them). Then run emacs as usual,
  698. +and look at the values of the 2 lisp variables
  699. +
  700. +     pure-bytes-used
  701. +and  amiga-malloc-bytes-used
  702. +
  703. +pure-bytes used contains the minimum value for n, and
  704. +amiga-malloc-bytes-used the minimum value for m. Add 1000 to these for
  705. +luck to get values for n and m, and redump emacs using these.
  706. +
  707. +For those who are into modifying the C source, the default values are
  708. +130000 for n (see DEF_PURESIZE in s-amiga.h) and 92000 for m (see
  709. +MALLOC_HUNK_SIZE in amiga.h).
  710. +
  711. +6. Source
  712. +---------
  713. +
  714. +Source for emacs and all the programs included with it should be
  715. +obtainable from the same place as this file. If not, please send me
  716. +mail (if you are on the Internet) and I will provide the missing
  717. +pieces. Specifically, there should be:
  718. +
  719. +- The emacs sources
  720. +- Sources for the 'unix library' needed to compile emacs
  721. +- Source for the programs in the c directory (ls, sort, rmdir, grep).
  722. +This consists of the GNU fileutils, textutils and grep packages.
  723. +
  724. +Distributing the binary without these packages is a violation of
  725. +the GNU General Public License (see the file COPYRIGHT in the etc
  726. +directory) under which emacs is distributed.
  727. +
  728. +7. Thanks & Problems
  729. +--------------------
  730. +
  731. +I would like to thank the following people for their help while porting
  732. +emacs:
  733. +
  734. +- Mark D. Henning for the early port of emacs. He's the person who got
  735. +emacs working on the Amiga ...
  736. +- Christian E. Hopps for enhancements to the screen display code, a
  737. +rewrite of the AREXX code, testing and useful suggestions.
  738. +- All the beta testers and people who contributed useful utilities (see
  739. +the amiga/contrib directory):
  740. +  Jean-Marc Vandel
  741. +  Philippe Morel
  742. +  Jukka Partanen
  743. +  Michael Witbrock
  744. +  Tero Manninen
  745. +  Alan Bair
  746. +  Hugh D. Gamble
  747. +  Tapio Heiskanen
  748. +  Teddy Wang
  749. +  Richard McGowen
  750. +  Keith Hanlan
  751. +  Carsten Heyl
  752. +  Anders Lindgren
  753. +  Michel Schinz
  754. +  Hans-Joachim Widmaier
  755. +  Michael Kaiser
  756. +
  757. +Please send any bug reports, enhancement requests, etc to:
  758. +
  759. +Post:                E-mail:
  760. +David Gay            dgay@di.epfl.ch
  761. +19 Chemin de la Source
  762. +CH-1296 Coppet
  763. +Vaud
  764. +Switzerland
  765. +
  766. +8. Ordering Information
  767. +-----------------------
  768. +
  769. +I can provide a complete copy of my development directory, which
  770. +includes:
  771. +
  772. +o the standard emacs-18.59 files
  773. +o modified and new lisp files
  774. +o Amiga-specific source, as text and in RCS format (highlighting the
  775. +changes from a standard unix distribution, and the different versions).
  776. +o assorted lisp packages hacked for the Amiga (I will be posting some
  777. +of these in due course):
  778. +  - a tags-like access to the 2.0 autodocs (you must already have a
  779. +    copy of these ...)
  780. +  - gnus (a news reader) for use with Matt Dillon's uucp package. 
  781. +  - getris, a tetris clone for emacs
  782. +
  783. +All these as a tar file on a QIC-150 tape, for $200 (the same price as
  784. +the FSF, so as not to undercut them), or 300SF. This price is valid
  785. +until the 31st December 1993, and includes shipping by surface mail.
  786. +
  787. +Please send all orders, by postal mail, to
  788. +
  789. +  David Gay
  790. +  19 Chemin de la Source
  791. +  CH-1296 Coppet
  792. +  Vaud
  793. +  Switzerland
  794. +
  795. +  Tel: +(41)-22 776 35 81 [Evenings, Central European Time]
  796. +  Fax: +(41)-22 776 70 58
  797. +
  798. +Include with your order:
  799. +- A cheque, in dollars or Swiss francs.
  800. +- Your *complete* address (don't forget the country, etc).
  801. +- A phone or fax number so I can contact you if I have any problems.
  802. +
  803. +I will be glad to include, on request, and with full source, some
  804. +other pieces of software I have written:
  805. +- An HP11 calculator (this is an update to the version available on
  806. +fish disks, with some bug fixes and 2.0 specific features).
  807. +- A scheme compiler for the Amiga, still in an alpha state.
  808. +- A fortune cookie program, including 1 megabyte of cookies (merged
  809. +from various sources).
  810. +
  811. +
  812. +Dvaid Gay
  813. +dgay@di.epfl.ch
  814. +Ecole Polytechnique Federale de Lausanne - Switzerland
  815. +Laboratoire d'Informatique Technique
  816. diff -rup --new-file baseline/fsf/emacs18/amiga/amiga-extra/amiga/announce1.28 amiga/fsf/emacs18/amiga/amiga-extra/amiga/announce1.28
  817. --- baseline/fsf/emacs18/amiga/amiga-extra/amiga/announce1.28    Wed Dec 31 17:00:00 1969
  818. +++ amiga/fsf/emacs18/amiga/amiga-extra/amiga/announce1.28    Sat Sep 28 00:00:00 1996
  819. @@ -0,0 +1,39 @@
  820. +GNU Emacs 18.59, Amiga RELEASE 1.28
  821. +-----------------------------------
  822. +
  823. +Emacs is a very powerful, but sometimes cryptic, text editor. Its basic
  824. +features are similar to those of the MEmacs editor which comes with 
  825. +AmigaOS (in the Tools directory), but has numerous other facilities:
  826. +- unlimited undo.
  827. +- language specific editing, with automatic (re)indentation.
  828. +- a dialect of lisp as extension language, leading to extreme 
  829. +  reconfigurability.
  830. +- abbreviations for commonly typed words.
  831. +- complete on-line manual.
  832. +- powerful search & replace facilities (including wildcards).
  833. +
  834. +In this Amiga version, I have tried to make it easier to use with menus, 
  835. +mouse, clipboard, rexx and workbench support.
  836. +
  837. +This version (1.28) is an update on version 1.26. It tracks the update
  838. +from GNU Emacs 18.58 to 18.59.
  839. +
  840. +System requirements:
  841. +- AmigaOS 2.04
  842. +- At least 2MB of memory (emacs uses about 750k + memory for the files
  843. +  being edited).
  844. +- 2.5MB of free disk space for the binary version, 8MB for the 
  845. +  source version (but you can remove some of the files once it has been
  846. +  installed).
  847. +- Emacs works with a 68000 (A500,A2000), but is a bit slow. It is very
  848. +  pleasant to use with a 68030/25MHz ...
  849. +
  850. +This port was originally based on that of Mark Henning (gnuemacs
  851. +v1.10), but after having made rather extensive modifications, added
  852. +numerous features and updated it to Emacs 18.59, I decided to
  853. +release it myself. 
  854. +
  855. +David Gay
  856. +dgay@di.epfl.ch
  857. +Ecole Polytechnique Federale de Lausanne, Switzerland.
  858. +Laboratoire d'Informatique Technique.
  859. diff -rup --new-file baseline/fsf/emacs18/amiga/amiga-extra/amiga/c/emacs amiga/fsf/emacs18/amiga/amiga-extra/amiga/c/emacs
  860. --- baseline/fsf/emacs18/amiga/amiga-extra/amiga/c/emacs    Wed Dec 31 17:00:00 1969
  861. +++ amiga/fsf/emacs18/amiga/amiga-extra/amiga/c/emacs    Sat Sep 28 00:00:00 1996
  862. @@ -0,0 +1,26 @@
  863. +.key a1,a2,a3,a4,a5,a6,a7,a8,a9
  864. +.bra {                                       
  865. +.ket }   
  866. +; Startup script for GNU Emacs                                    
  867. +; Make sure the FIFO handler is ready        
  868. +assign >NIL: FIFO: exists                    
  869. +if warn                                      
  870. +  if exists L:fifo-handler                   
  871. +    echo "Starting fifo-handler"             
  872. +    run <NIL: >NIL: L:fifo-handler           
  873. +  else                                       
  874. +    echo "Cannot find L:fifo-handler."       
  875. +    echo "External processes will not work." 
  876. +  endif                                      
  877. +endif                                        
  878. +; Increase the stack size as needed          
  879. +set stack=`getstack`
  880. +if not $stack gt 40000 val
  881. +  stack 40000
  882. +endif
  883. +; Invoke GNU Emacs
  884. +run gnuemacs:temacs {a1} {a2} {a3} {a4} {a5} {a6} {a7} {a8} {a9}
  885. +; Restore the previous stack size                                       
  886. +stack $stack
  887. +unset stack
  888. +
  889. diff -rup --new-file baseline/fsf/emacs18/amiga/amiga-extra/amiga/c/etags.uue amiga/fsf/emacs18/amiga/amiga-extra/amiga/c/etags.uue
  890. --- baseline/fsf/emacs18/amiga/amiga-extra/amiga/c/etags.uue    Wed Dec 31 17:00:00 1969
  891. +++ amiga/fsf/emacs18/amiga/amiga-extra/amiga/c/etags.uue    Sat Sep 28 00:00:00 1996
  892. @@ -0,0 +1,610 @@
  893. +begin 666 etags
  894. +M```#\P`````````"``````````$``!B&```"^P```^D``!B&2.=^_B1()`!)
  895. +M^0`````L>``$1_D```=`<@`@/````2M@`B;!4<C__"E/!W`I3@=H)FX!%"`K
  896. +M`*QG#.6(($`@*``TY8A@!B`/D*L`.B(/DH`&@0```(`I00=$L*P&B&14("P&
  897. +MB`:`````@"E`!Y`B/``!``%.KO\Z2H!G``'2*4`'C"(`!H````"`*4`'1-"L
  898. +M!H@,;@`D`!1M&"E`!X@I00>$DJP'D$'L!X`@@4ZN_21@`BY`0JP';'``(CP`
  899. +M`#``3J[^SB9N`11#^@&*<`!.KOW8*4`+Y&8&<&1@``#F*6L`F`=D2JL`K&<`
  900. +M`'X@:P"LT<C1R")H`!#3R=/)(`)R`!(9*4D'=-"!7H`"0/_\*4`'?$CG0$`B
  901. +M/``!``%.KO\Z3-\"`DJ`9@AP%"\`9P`!%B!`*4`'>"`"4X#4@1&R```@`E."
  902. +M4<C_]A&\`"`@`E."$;P`(B`"$;$@`"`!4<K_^!"\`"(O"&!*0>L`7$ZN_H!!
  903. +MZP!<3J[^C"E`!VPO`"1`("H`)&<8+&P+Y"!`(B@``$ZN_Z`I0`=D(@!.KO^"
  904. +M(&P';"\(2&P'0"!H`"0I:``$!W1.ND=P3KHRNG``8`0@+P`$)&P'<"4`+'@`
  905. +M!`QN`"0`%&T22JP'@&<,0>P'@%FL!XA.KOTD+DH@+`=<9P0@0$Z03KI'2$ZZ
  906. +M1UP@+`>09PPB;`>,+'@`!$ZN_RY*K`=L9R`L;`OD(BP'9&<$3J[_IBQX``1.
  907. +MKO]\(FP';$ZN_H9@$BQX``0@+`=\9P@B;`=X3J[_+B)L"^1.KOYB(!],WW]^
  908. +M3G5D;W,N;&EB<F%R>0`@#Y!\`'2PK`=$90!*^)[\`&1(YP<4+B\`?"IO`(!Z
  909. +M`"E5"B9P`2E``#IP`;Z`;P`!$B!M``1R+;(09@`!!BP`(&T`!")(T\9*$6<`
  910. +M`.[1QA`02(!(P')"D(%G-EF`9T!R&Y"!9TA9@&=,4X!G3G(.D(%G``"44X!G
  911. +M``"44X!G``">4X!G``"24X!G``"@8```N!E\`#\`!$*L`#I@``"6&7P`+P`$
  912. +M0JP`.F```(A2K``B8```@%*L`#I@>$J%;Q8O+`HF2'H#&DAL!M!.NE#@3^\`
  913. +M#&!R4H53AUB-<`&^@&\((&T`!$H09A8O+`HF2'H#%$AL!M!.NE"V3^\`#&!(
  914. +M*6T`!``&8#)2K``F8"92K``J0JP`.F`<4JP`+F`64JP`,E*L`#9"K``Z8`A2
  915. +MK``V0JP`.E*&8`#_"%.'6(U@`/[J<`&^@&X<+RP*)DAZ`N)(;`;03KI06$AX
  916. +M``%.ND]Z3^\`$$JL``9F$D'Z`OA*K``Z9P1!^@+H*4@`!F$`!6!(;`HV80`@
  917. +MYDAL"CYA`"#>4$]*K``Z9T1!^@+22JP`(F<$0?H"QB\(+RP`!DZZ5_I03RE`
  918. +M"BYF)"\L"B9(>@*P2&P&T$ZZ3^@NK``&3KHD\DAX``%.ND\"3^\`$'`!*4``
  919. +M'B`L`!ZPAVQ,(@#E@29U&``O"V$`!=!83TJL`#IG,"\L"C)A``\6+H`O"TAZ
  920. +M`F8O+`HN3KI/F"ZL"C)A``KZ+JP*,F$`">I/[P`00JP*,E*L`!Y@K$JL`#IG
  921. +M$"\L"BY.NE7"0I=.NDZ06$]*K``V9Q`O+`HR80`*P$*73KI.>EA/2JP`*F=&
  922. +M?`&\AVP\2'H"#B\L``9.NC[X(`;E@"ZU"``O+``&2'H!_$AO`"1.NDZP2&\`
  923. +M*$ZZ38A(>@'B3KHHW$_O`!Q2AF#`4JP`(D'Z`;Q*K``B9P1!^@&P+P@O+``&
  924. +M3KI6Y%!/*4`*+F8D+RP`!DAZ`9I(;`;03KI.TBZL``9.NB/<2'@``4ZZ3>Q/
  925. +M[P`0+RP*,F$`"B`NK`HN3KI5!%A/2JP`*F<@(&P`!B\(+PA(>@&*2&\`($ZZ
  926. +M3B1(;P`D3KI,_$_O`!1"ITZZ3:I83TS?*.#>_`!D3G4@#`D*```@"0HB)R,H
  927. +M*5M=>WT]+2LE*B\F?%Y^(3P^.RPN.C\``$%"0T1%1D=(24I+3$U.3U!14E-4
  928. +M55976%E:7V%B8V1E9F=H:6IK;&UN;W!Q<G-T=79W>'EZ)```04)#1$5&1TA)
  929. +M2DM,34Y/4%%24U155E=865I?86)C9&5F9VAI:FML;6YO<'%R<W1U=G=X>7HD
  930. +M,#$R,S0U-C<X.0``+#L``"5S.B`M9B!F;&%G(&UA>2!O;FQY(&)E(&=I=F5N
  931. +M(&]N8V4*`"5S.B`M9B!F;&%G(&UU<W0@8F4@9F]L;&]W960@8GD@82!F:6QE
  932. +M;F%M90H`57-A9V4Z("5S(%LM0D9A971U=W9X72!;+68@;W5T9FEL95T@9FEL
  933. +M92`N+BX*`%1!1U,``'1A9W,``&$`=P`E<SH@```,"B5S+"5D"@``3U1!1U,`
  934. +M96=R97`@/B5S("UV("<))7,))R!/5$%'4P!C.G-O<G0@9G)O;2`E<R!T;R`E
  935. +M<P``<@!T97@`875X`&)B;`!L`&5L``!L<W``;&ES<```8VP``&-L:7-P`'-M
  936. +M``!S8VT`<V-H96UE``!T`'-C:`!330``4T--`"5S.B!T;V\@;6%N>2!E;G1R
  937. +M:65S('1O('-O<G0*`&UA:6X``$T````E<R0`)2XU,',`)7,Z($1U<&QI8V%T
  938. +M92!E;G1R>2!I;B!F:6QE("5S+"!L:6YE("5D.B`E<PH``%-E8V]N9"!E;G1R
  939. +M>2!I9VYO<F5D"@`E<SH@1'5P;&EC871E(&5N=')Y(&EN(&9I;&5S("5S(&%N
  940. +M9"`E<SH@)7,@*%=A<FYI;F<@;VYL>2D*```E<R5C)60L)60*```E<PDE<PD`
  941. +M`"5D```E<R`E<R`E9`H`)2TQ-G,E-&0@)2TQ-G,@)7,*``!D969I;F4``'1Y
  942. +M<&5D968`<W1R=6-T``!U;FEO;@!E;G5M``!$148`:6YT96=E<@!R96%L``!L
  943. +M;V=I8V%L`&-O;7!L97@`8VAA<F%C=&5R`&1O=6)L90``<')E8VES:6]N`&9U
  944. +M;F-T:6]N``!S=6)R;W5T:6YE``!P<F]G<F%M`'!R;V-E9'5R90`Z8VAA<'1E
  945. +M<CIS96-T:6]N.G-U8G-E8W1I;VXZ<W5B<W5B<V5C=&EO;CIE<6YO.FQA8F5L
  946. +M.G)E9CIC:71E.F)I8FET96TZ='EP96]U=`!415A404=3``H`=FER='5A;"!M
  947. +M96UO<GD@97AH875S=&5D``"_[`=$90!$($CG`01^`'!_OH!L,'``0>P)%A&`
  948. +M>`!![`B7$8!X`$'L"!@1@'@`0>P'F1&`>`!![`F5$;P``7@`4H=@RBIL``H0
  949. +M%6<2$@!(@4'L!YD1O``!$`!2C6#J*FP`#A`59Q(2`$B!0>P(&!&\``$0`%*-
  950. +M8.HJ;``6$!5G$A(`2(%![`B7$;P``1``4HU@ZBIL`!(0%6<2$@!(@4'L"181
  951. +MO``!$`!2C6#J*FP`&A`59Q`2`$B!0>P)E4(P$`!2C6#L&6P'HP>9&6P((@@8
  952. +M&6P)(`D6&6P(H0B7&6P)GPF53-\@@$YU(`^0?``,L*P'1&4`0S)(YP`4*F\`
  953. +M#$AZ_-8O#4ZZ4<103RE`"BIF'B\L"B9(>OQZ2&P&T$ZZ2;(NC4ZZ'KY/[P`,
  954. +M8``"7"\-80`;3BE`"B)(>``N+PUA`!NF3^\`#"9`(`MG4D'K``%(>OR&+PA.
  955. +MND,B4$]*@&<H0>L``4AZ_'8O"$ZZ0PY03TJ`9Q1!ZP`!2'K\9B\(3KI"^E!/
  956. +M2H!F%B\L"BIA`!:4+JP**DZZ3Y!83V```>P@"V<``)!!ZP`!2'K\.B\(3KI"
  957. +MRE!/2H!G9$'K``%(>OPH+PA.ND*V4$]*@&=00>L``4AZ_!@O"$ZZ0J)03TJ`
  958. +M9SQ!ZP`!2'K\""\(3KI"CE!/2H!G*$'K``%(>OOZ+PA.ND)Z4$]*@&<40>L`
  959. +M`4AZ^^HO"$ZZ0F903TJ`9A8O+`HJ80`2L"ZL"BI.ND[\6$]@``%8(`MG``#Z
  960. +M0>L``4AZ^\`O"$ZZ0C903TJ`9P``T$'K``%(>ONN+PA.ND(@4$]*@&<``+I!
  961. +MZP`!2'K[G"\(3KI""E!/2H!G``"D0>L``4AZ^XXO"$ZZ0?103TJ`9P``CD'K
  962. +M``%(>OMZ+PA.ND'>4$]*@&=X0>L``4AZ^VHO"$ZZ0<I03TJ`9V1!ZP`!2'K[
  963. +M6B\(3KI!ME!/2H!G4'!ML"O__V8@<&.P*__^9AAP<[`K__UF$$'K``$O"&$`
  964. +M`*)83TJ`9BAP3;`K__]F-'!#L"O__F8L<%.P*__]9B1!ZP`!+PAA``!Z6$]*
  965. +M@&<4+RP**F$`$O@NK`HJ3KI-_%A/8%@@"V=&$"L``7)CL`%G/')HL`%G-G)Y
  966. +ML`%G,$HK``)F*B\L"BIA``W@6$]*@&<,+RP**DZZ3<)83V`>0J="IR\L"BI.
  967. +MNDLJ3^\`#&$`!S0O+`HJ3KI-HEA/3-\H`$YUO^P'1&4`0)(O#2IO``@0%6<0
  968. +M<C"P`6T&<CFP`6_P<`!@`G`!*E].=2`/D'P`1+"L!T1E`$!DGOP`.$CG#Q0H
  969. +M+P!H*B\`9"PO`&`>+P!;2'@`($ZZ0PQ83R9`(`MF,B\L"B9(>OHJ2&P&T$ZZ
  970. +M1M8NK`HR80`"."ZL"C)A``$H0JP*,DAX`"!A`!HV3^\`$"9`2JP`.F9J2JP`
  971. +M-F9D2'KZ#B\O`%A.ND!&4$]*@&922'@`+R\L"B)A`!B@4$\J0$J`9@8J;`HB
  972. +M8`)2C4AZ^>@O#4AZ^>!A`!E<2'@`+B\`+T``8&$`&'1/[P`4*D`@#6<(2BT`
  973. +M`F8"0A4@;P!,+T@`5"\O`%1A`!?L6$\F@"=L"B(`!!='``@G10`*)T0`#I'(
  974. +M)T@`'"=(`!A*K``Z9PHB;P!<0C%H`&`Z2JP`-F8T+R\`7$ZZ/V183W(RL(%L
  975. +M!D'Z^69@!$'Z^60O+P!<+PA(;P`A3KI%<$_O``Q![P`9+T@`7"\O`%QA`!=Z
  976. +M6$\G0``22JP*,F8(($LI2`HR8`PO+`HR+PMA```^4$],WRCPWOP`.$YU(`]9
  977. +M0+"L!T1E`#[J+PTJ;P`((`UG%B\M`!QAY"Z-3KI`,%A/($TJ:``88.8J7TYU
  978. +M(`^0?``8L*P'1&4`/KA(YP$4)F\`%"IO`!`O$R\53KH^^%!/+@!*K``Z9G1*
  979. +MAV9P(&T`!")K``2SR&8R2JP`+F8``)`O%2\L"A8O""\L"B9(>OB:2&P&T$ZZ
  980. +M111(>OB\2&P&T$ZZ10A/[P`@8&1**P`69B1*K``N9AXO%2\K``0O+0`$+RP*
  981. +M)DAZ^*9(;`;03KI$W$_O`!@7?``!`!9@,DJ':A@@*P`89PPO`"\-80#_4%!/
  982. +M8!PG30`88!8@*P`<9PPO`"\-80#_.%!/8`0G30`<3-\H@$YU(`^0?``8L*P'
  983. +M1&4`/>!(YR`4*F\`$"`-9P`#Y"\M`!AAWEA/2JP`.F<D+RT`#B\M``I(>`!_
  984. +M+RT`$DAZ^%@O+`HN3KI$4D_O`!A@``.H2JP`-F8``U8O+0`$+Q5(>OA"+RP*
  985. +M+DZZ1#!/[P`02BT`"&<``K`@;`HN""@``0`;9W!2J``,(&P*+B`H``RPJ``4
  986. +M;CXB2"!I``12J0`$$"P`!!"`<@JP`68>(&P*+@@H``8`&V<2+PA.NDE@6$\0
  987. +M+``$<@`2`&`($"P`!'(`$@!@'B!L"BY3J``,$"P`!$B`2,`O+`HN+P!.ND00
  988. +M4$\B`&`6$"P`!$B`2,`O+`HN+P!.ND/X4$\B`"!L"BX(*``!`!MG6E*H``P@
  989. +M;`HN("@`#+"H`!1N,")((&D`!%*I``1P7A"`<@JP`688(&P*+@@H``8`&V<,
  990. +M+PA.NDC06$]P7F`"<%Y@%B!L"BY3J``,+RP*+DAX`%Y.ND.24$]@#B\L"BY(
  991. +M>`!>3KI#@E!/)FT`$A`39P`!#G)<L`%G"!0L``2P`F9P(&P*+@@H``$`&V=6
  992. +M4J@`#"!L"BX@*``,L*@`%&XL(F@`!%*H``02@7`*L@!F&"!L"BX(*``&`!MG
  993. +M#"\(3KI(2%A/<%Q@`G!<8!8@;`HN4Z@`#"\L"BY(>`!<3KI#"E!/8`XO+`HN
  994. +M2'@`7$ZZ0OI03R!L"BX(*``!`!MG:%*H``P@;`HN("@`#+"H`!1N.")((&D`
  995. +M!%*I``00$Q"`<@JP`68<(&P*+@@H``8`&V<0+PA.ND?46$\0$W(`$@!@!A`3
  996. +M<@`2`&`<(&P*+E.H``P0$TB`2,`O+`HN+P!.ND**4$\B`&`4$!-(@$C`+RP*
  997. +M+B\`3KI"=%!/(@!2BV``_O`@;`HN""@``0`;9VY2J``,(&P*+B`H``RPJ``4
  998. +M;CPB:``$4J@`!!`L``02@'(*L`%F'B!L"BX(*``&`!MG$B\(3KI'1EA/$"P`
  999. +M!'(`$@!@"!`L``1R`!(`8!X@;`HN4Z@`#!`L``1(@$C`+RP*+B\`3KI!]E!/
  1000. +M(@!@+!`L``1(@$C`+RP*+B\`3KI!WE!/(@!@%"\M``I(>O6`+RP*+DZZ069/
  1001. +M[P`,(&P*+@@H``$`&V=84J@`#"!L"BX@*``,L*@`%&XN(D@@:0`$4JD`!'`*
  1002. +M$("P`&88(&P*+@@H``8`&V<,+PA.ND:B6$]P"F`"<`I@%B!L"BY3J``,+RP*
  1003. +M+DAX``I.ND%D4$]@6B\L"BY(>``*3KI!5%!/8$I*K``R9R9P/]"M``IR0$ZZ
  1004. +M.3XO`"\M``0O%4AZ].9(;`:N3KI`R$_O`!1@'B\M`!(O+0`$+RT`"B\52'KT
  1005. +MT$AL!JY.ND"H3^\`&"\M`!QA`/P&6$],WR@$3G4@#UE`L*P'1&4`.=Y(YP,$
  1006. +M*F\`$'X`(`UG4B\M`!AAX"X`+JT`'&'8WH`NK0`23KHYR%A/5H#>@"PM``I*
  1007. +MAF<.4H<@!G(*3KHXK"P`8.XL+0`.2H9F`E*'2H9G#E*'(`9R"DZZ.)`L`&#N
  1008. +M(`=,WR#`3G4@#Y!\`CRPK`=$90`Y:I[\`B1(YR<T0JP*%D*L"AHD;`HZ0A)"
  1009. +MK`>4?``@!AH`(@4900>80J\"/$*L``!"+`H4'T``'Q]!`!X@;`HJ""@`!``;
  1010. +M9@`"Z!X:2(=(QV8H*6P*&@H>4JP*%B\(2&P*-F$`$)903U*`T:P*&B1L"CI"
  1011. +MK`>40BP'F'!<OH!F,!X:2(=(QV8B*6P*&@H>4JP*%B\L"BI(;`HV80`07E!/
  1012. +M4H#1K`H:)&P*.GX@8``!'$H&9TYP*KZ`9@`!$!X:2(=(QW`JOH!F`F#R2H=F
  1013. +M)BEL"AH*'E*L"A8O+`HJ2&P*-F$`$!A03U*`T:P*&B1L"CI"K`>4<"^^@&8`
  1014. +M`-!\`&```,I*!6<.<"*^@&8`_S!Z`&``_RI*+P`?9Q!P)[Z`9@#_'$(O`!]@
  1015. +M`/\4(`=R(I"!9QI3@&<V68!G&%&`9QYR3)"!9SY5@&=08```@'H!8`#^[!]\
  1016. +M``$`'V``_N)P*K`29@#^VE**?`%@`/[2(&P*.E*(M<AF`/[&<`$I0`>48`#^
  1017. +MO'`"L*P``&8&<`,I0```4J\"/&``_J8@;`HZ4HBUR&8(<``O0`(\8`13KP(\
  1018. +M2J\"/&8`_HAP`["L``!F`/Y^<`0I0```8`#^="`O`CQF``%&2@5F``%`2@9F
  1019. +M``$Z$BP'F$H!9@`!,$HO`!YG``$20>P(&$HP>`!G``#X(&P*.B(*)`&4K`HZ
  1020. +M+TH`+"]L"A8`*"]L"AX`)"\`2&\`/"\-2&\`."]"`$`O2`!$80`!#$_O`!`D
  1021. +M;P`L+T``(&<``*H@+P`D(BP*'K*`9U0O`&$``]P@+`I"D*\`."!-T<`@"R(-
  1022. +MD(%2@"Z`+PA(;P!$3KHW;B`+(@V0@4'O`$G1P$(0+J\`,"\O`#0O`B\L"D(O
  1023. +M+P!02&\`6&$`]F)/[P`@8$`@"R(-D(%2@"\`+P%(;P!$3KHW+"`+(@V0@4'O
  1024. +M`$G1P$(0+J\`,"\O`#0O`B\L"CHO+P!02&\`6&$`]B!/[P`@("\`.!E`!YA"
  1025. +M+P`>*DI3C6`D0>P(ETHP>`!G&E*+8!9![`D62C!X`&<,)DI3BRI+'WP``0`>
  1026. +M<#N^@&8`_2!P!+"L``!F`/T60JP``&``_0Y,WRSDWOP")$YU(`^0?``0L*P'
  1027. +M1&4`-B193TCG+Q0N+P`P*F\`)"95<`$@;P`L((`<*___>`!*K`>49D80!DB`
  1028. +M0>P'F4HP``!G;AP;2@9F["!L"BH(*``$`!MF7"EL"AH*'E*L"A8O"$AL"C9A
  1029. +M``U<4$]2@-&L"AHF;`HZ0JP'E&"Z4JP'E"`L!Y1R!+"!;!Q5@&8D2'@`!DAZ
  1030. +M\'XO+P`P3KHUO$_O``Q*@&<,&7P``0>8>`%@``(H2JP`)F<T2'@`!TAZ\%PO
  1031. +M+P`P3KHUDD_O``Q*@&8<(&\`*!`H``=(@$'L"!A*,```9PAP`2E```!@P'`!
  1032. +ML*P``&8``)!(>``&2'KP)B\O`#!.NC543^\`#$J`9A0@;P`H$"@`!DB`0>P(
  1033. +M&$HP``!F6$AX``5(>O`"+R\`,$ZZ-2A/[P`,2H!F%"!O`"@0*``%2(!![`@8
  1034. +M2C```&8L2'@`!$AZ[]PO+P`P3KHT_$_O``Q*@&8>(&\`*!`H``1(@$'L"!A*
  1035. +M,```9PIP`BE```!@`/\J<`*PK```9@IP`RE```!@`/\8<`&PK```9@IR!"E!
  1036. +M``!@`/\&<@.RK```9@I*AV8&=`0I0@``=`2TK```9@X@;P`L0I`O0``<8``!
  1037. +M"DJL!Y1F("\!2'KO7"\O`#!.NC1V3^\`#$J`9@IP`1E`"A1@`/ZX2BP*%&<.
  1038. +M0BP*%'`!+T``'&```-!P*+P`9@#^G'H`'!MP*;P`9V)*!F8P(&P**@@H``0`
  1039. +M&V92*6P*&@H>4JP*%B\(2&P*-F$`"X903U*`T:P*&B9L"CI"K`>4$`9(@$'L
  1040. +M"19*,```9@9P+[P`9@12!6"L$`9(@$'L!YE*,```9IY*!6::8`#^,!P;$`9(
  1041. +M@$'L!YE*,```9S9*!F;L(&P**@@H``0`&V8F*6P*&@H>4JP*%B\(2&P*-F$`
  1042. +M"Q103U*`T:P*&B9L"CI"K`>48+H0!DB`0>P)E1(P``!(@4C!+T$`'"!+4X@J
  1043. +MB$J$9@I*KP`<9P1P`6`"<`!,WRCT6$].=2`/D'P`#+"L!T1E`#,R2.<#`"XO
  1044. +M``PO+`HJ3KH]"BP`0I<O!R\L"BI.NCV,+JP**DAL"CYA``J80I<O!B\L"BI.
  1045. +MNCUT3^\`&$S?`,!.=2`/44"PK`=$90`RYB\-*F\`"$*L"A9"K`H:0JP*2@@M
  1046. +M``0`&V8``<92K`H6*6P*&@H>+PU(;`HV80`*1E!/4H#1K`H:(&P*.BE("D80
  1047. +M$'(EL`%F!%*L"D8@;`I&$!!(@$C`0^P%A0@Q``,(`&<&4JP*1F#D(&P*1A`0
  1048. +M2@!GH$B`2,``0``@<F.0@6=64X!G=%N`9PQ7@&<V78!G'&```*Q(>NU480`!
  1049. +M3EA/2H!G``"<80`!A&```)1(>NU$80`!-EA/2H!G``"$80`!;&!\2'KM-&$`
  1050. +M`2!83TJ`9VYA``%88&A(>NTH80`!#%A/2H!F#DAZ[2)A``#^6$]*@&=,80`!
  1051. +M-F!&2'KM&&$``.I83TJ`9S@@;`I&$!!(@$C`0^P%A0@Q``,(`&<&4JP*1F#D
  1052. +M(&P*1A`02@!G`/[F2'KLZF$``+183TJ`9P#^UB!L"D80$$B`2,!#[`6%"#$`
  1053. +M`P@`9P92K`I&8.0@;`I&$!!*`&<`_JY(@$C``$``(')FD(%G#G(*D(%G.%>`
  1054. +M9QQ@`/Z22'KLH&$``&!83TJ`9P#^@F$``1Y@`/YZ2'KLDF$``$A83TJ`9P#^
  1055. +M:F$``09@`/YB2'KLAF$``#!83TJ`9PAA``#P8`#^3$AZ['AA```:6$]*@&<`
  1056. +M_CQA``#88`#^-"`L"DHJ7TYUO^P'1&4`,/9(YP$$*F\`#'X`$!5G&`(`_]\@
  1057. +M;`I&T<=RW\(0L`%F!E*-4H=@Y$H59@C?K`I&<`%@`G``3-\@@$YUO^P'1&4`
  1058. +M,+0@;`I&$!!(@$C`0^P%A0@Q``,(`&<&4JP*1F#D(&P*1A`0<BJP`6964JP*
  1059. +M1B!L"D80$$B`2,!#[`6%"#$``P@`9P92K`I&8.0@;`I&$!!(@$C`0^P%A0@Q
  1060. +M``((`&8&4ZP*1F`:4JP*1B!L"D80$$B`2,!![`6%"#```@@`9N9.=2`/D'P"
  1061. +M&+"L!T1E`#`FGOP"`$CG`00@;`I&$!!(@$C`0^P%A0@Q``,(`&<&4JP*1F#D
  1062. +M(&P*1A`02@!G``"82(!(P'(#0^P%A<(Q"`!*`68.$!!R7[`!9P9R)+`!9G9+
  1063. +MZ``!$!5G,DB`2,!R`T'L!87",`@`2@%F'!`52(!(P`@P``((`&8.$!5R7[`!
  1064. +M9P9R)+`!9@12C6#*'A5"%2\L"D9(;P`,3KHP)!J'(`V0K`HZ4H`NK`H>+RP*
  1065. +M%B\`+RP*.DAX``%(;P`@80#N^%*L"DI/[P`<3-\@@-[\`@!.=2`/44"PK`=$
  1066. +M90`O2B\-*F\`"$*L"A9"K`H:0JP*2@@M``0`&V8``*!2K`H6*6P*&@H>+PU(
  1067. +M;`HV80`&JE!/4H#1K`H:*6P*.@I&(&P*1A`0<BBP`6;($"@``7)$L`%G!G)D
  1068. +ML`%FN!`H``)R1;`!9P9R9;`!9J@0*``#<D:P`6<&<F:P`6:8(&P*1A`02(!(
  1069. +MP$/L!84(,0`#"`!F!E*L"D9@Y"!L"D80$$B`2,!#[`6%"#$``P@`9P92K`I&
  1070. +M8.1A```*8`#_6BI?3G4@#Y!\`ABPK`=$90`N?I[\`@!(YP$$(&P*1A`02@!G
  1071. +M5$OH``$0%6<0<BBP`6<*<B"P`6<$4HU@[!X50A4O+`I&2&\`#$ZZ+MP:AR`-
  1072. +MD*P*.E*`+JP*'B\L"A8O`"\L"CI(>``!2&\`(&$`[;!2K`I*3^\`'$S?((#>
  1073. +M_`(`3G4@#U%`L*P'1&4`+@(O#2IO``A"K`H60JP*&D*L"DH(+0`$`!MF``%0
  1074. +M4JP*%BEL"AH*'B\-2&P*-F$`!6)03U*`T:P*&BEL"CH*1B!L"D80$'(HL`%F
  1075. +M=A`H``%R1+`!9P9R9+`!9F80*``"<D6P`6<&<F6P`696$"@``W)&L`%G!G)F
  1076. +ML`%F1B!L"D80$$B`2,!#[`6%"#$``P@`9@92K`I&8.0@;`I&$!!G'DB`2,!#
  1077. +M[`6%"#$``P@`9@@0$'(HL`%F!E*L"D9@VF$``+`@;`I&$!!R*+`!9@#_1A`H
  1078. +M``%R4[`!9PAR<[`!9@#_-!`H``)R1;`!9PAR9;`!9@#_(A`H``-R5+`!9PAR
  1079. +M=+`!9@#_$!`H``1R(;`!9P:P`68`_P`0*``%2(!(P$'L!84(,``#"`!G`/[J
  1080. +M(&P*1A`02(!(P$/L!84(,0`#"`!F!E*L"D9@Y"!L"D80$$B`2,!#[`6%"#$`
  1081. +M`P@`9P92K`I&8.1A```*8`#^JBI?3G4@#Y!\`ABPK`=$90`LAI[\`@!(YP$$
  1082. +M(&P*1A`02@!G9$OH``$0%6<@<BBP`6<:<BFP`6<42(!(P$'L!84(,``#"`!F
  1083. +M!%*-8-P>%4(5+RP*1DAO``Q.NBS4&H<@#9"L"CI2@"ZL"AXO+`H6+P`O+`HZ
  1084. +M2'@``4AO`"!A`.NH4JP*2D_O`!Q,WR"`WOP"`$YU(`]10+"L!T1E`"OZ2.<A
  1085. +M%"IO`!1"K`H60JP*&D*L"DHO#6$``*Y83TJL`#YF$B\L`$)(>N>&80`!5E!/
  1086. +M*4``/@@M``0`&V8``(12K`H6*6P*&@H>+PU(;`HV80`#.%!/4H#1K`H:(&P*
  1087. +M.BE("D8F2!`L`$9(@$C`+P`O+`I&80`$<E!/*4`*1F>V4JP*1B!L"D9*$&>J
  1088. +M(`@B`"0+DH+3K`H>)D`O"V$``FY83RX`2H=KOB`'YX`@;``^T<`O*``$+PMA
  1089. +M``'*4$]@`/]V3-\HA$YU(`^0?``,L*P'1&4`*R9(YP,$*F\`$'P`""T````;
  1090. +M9RA3K0`(;18(+0`-`!YF#B!M``12K0`$<``0$&`(+PU.NC-R6$\N`&`*+PU.
  1091. +MNC-F6$\N`"`'4H!G)'`EOH!F!'P!8+9P"KZ`9@1\`&"L2H9FJ'!<OH!G!G`A
  1092. +MOH!FG'!<OH!F%!E\`%P`1AE\`'L`1QE\`'T`2&`2&7P`(0!&&7P`/`!'&7P`
  1093. +M/@!(0J="IR\-3KHT^D_O``Q,WR#`3G4@#Y!\`!2PK`=$90`J:E%/2.<C%"\O
  1094. +M`"!.NC`L6$\J0"`-9@8J;P`D8!1(>N1F+R\`*"\-80`#VD_O``PJ0'X!)DT@
  1095. +M"V<>2'@`.B\+80`#%E!/)D`@2R`(9^A2BTH39^)2AV#>(`=2@"(`YX$O`6$`
  1096. +M!"Q83WP`+T``&$H59W9(>``Z+PUA``+>4$\F0"`+9@PO#4ZZ*?)83R9-U\`@
  1097. +M"R(-D(%*@&\T)`;G@B\`+P%A``)&(&\`("&`*``@!N>`+K`(`"]``!Q.NBF^
  1098. +M4$\@;P`8(B\`%"&`&`12ADH39P9+ZP`!8)8@!N>`(&\`&$*P"`!"L`@$("\`
  1099. +M&$S?*,103TYU(`^0?`(8L*P'1&4`*6J>_`(`2.<!%"XO`A0J;P(0)DW7QTH5
  1100. +M9U@0$V<*L"P`2&<$4HM@\B`+(@V0@2\`+P%(;P`43KHIIB`+(@V0@4'O`!C1
  1101. +MP$(0+JP*.DZZ*2PNK`H>+RP*%B\`+RP*.DAX``%(;P`H80#HDE*L"DI/[P`@
  1102. +M3-\H@-[\`@!.=2`/D'P`#+"L!T1E`"CB2.<!!"IO``Q^`"`'YX`@;``^(DC3
  1103. +MP"`I``1*@&\B(`?G@-'`+R@`!"\-+Q!.NBC63^\`#$J`9@0@!V`&4H=@RG#_
  1104. +M3-\@@$YU(`]90+"L!T1E`"B.+PTJ;P`(<&30@"J`+P!A``*B*T``!%A/*E].
  1105. +M=2`/D'P`#+"L!T1E`"AD64](YP$V*F\`(")O`!P@:0`$)D@B2RQO`!S3UB1)
  1106. +M+T@`%`@M````&V<H4ZT`"&T6""T`#0`>9@X@;0`$4JT`!'``$!!@""\-3KHP
  1107. +MF%A/+@!@"B\-3KHPC%A/+@"WRF8X(&\`'"`0(@#2@2"!+P$O+P`880`"2E!/
  1108. +M(@`@;P`<DJ@`!-?!($`B0"QO`!S3UB1)+4``!"]``!1*AVL&<`J^@&8$0A-@
  1109. +M""`'%L!@`/]V(`N0KP`43-]L@%A/3G4@#U%`L*P'1&4`)YPO#2IO``@O#4ZZ
  1110. +M)Z`N@"\-80``"%!/*E].=2`/D'P`#+"L!T1E`"=T2.<!%"XO`!0J;P`0(`=2
  1111. +M@"\`80`!A"9`+H<O#2\+3KHGQD(S>`!/[P`,(`M,WRB`3G6_[`=$90`G.DCG
  1112. +M`10>+P`7*F\`$)?+$!6P!V8")DT@35*-2A!F\"`+3-\H@$YUO^P'1&4`)PQ(
  1113. +MYP$$'B\`$RIO``P0%;`'9@0@#6`*($U2C4H09NYP`$S?((!.=2`/44"PK`=$
  1114. +M90`FVDCG`!0F;P`0*F\`#"\++PUA```42'@``4ZZ+))/[P`,3-\H`$YU(`^0
  1115. +M?``,L*P'1&4`)J9(YP`4)F\`$"IO``PO+`HF2'K?_$AL!M!.NBTT+HLO#4AL
  1116. +M!M!.NBTH2'KB.$AL!M!.NBT<3^\`'$S?*`!.=2`/D'P`#+"L!T1E`"9:64](
  1117. +MYP<4)F\`("IO`!PO#4ZZ)E8N`"Z+3KHF3BP`+J\`*$ZZ)D0J`"`'T(;0A5*`
  1118. +M+H!A``!*+HTO`"]``!Q.NB:P(&\`'-''+HLO"$ZZ)J(@;P`@T<?1QBZO`#`O
  1119. +M"$ZZ)I`@;P`D(DC3Q]/&T\5"$4_O`!`@"$S?*.!83TYU(`]10+"L!T1E`"70
  1120. +M2.<#`"XO``PO!TZZ*(I83RP`2H9F#$*G2'KA=&$`_LQ03R`&3-\`P$YU(`]1
  1121. +M0+"L!T1E`"6:2.<#!"XO`!0J;P`0+P<O#4ZZ)EI03RP`2H9F"DAZX3IA`/Z2
  1122. +M6$\@!DS?(,!.=0``2.<@,B!O`!A#[P`<1?H`'"9O`!0D"RQY````!$ZN_?8@
  1123. +M"Y""3-],!$YU%L!.=0``(&\`!")O``A93TCG,S8J2'X`(&P+>"PH`.`O20`@
  1124. +M2H9F($JL!VQF&D'L`&0B""0\```#[2QL"^1.KO_B+`!G`GX!2H9G-B(&0>P`
  1125. +M;B0(0>P'="8(+&P+Y$ZN_IXB!B0-)B\`($ZN_IXB!G0*3J[^R$J'9U@B!DZN
  1126. +M_]Q@4"!L"W@F:`"X,'S__[?(9T!#[`!T<"4L>``$3J[]V"1`2H!G+"EL!W0`
  1127. +M6"E-`%PO"B!++$I#[`!0E<HF;P`D3J[]M$S?!``B2BQX``1.KOYB3-]LS%A/
  1128. +M3G4@;P`$0^\`"&``_RH@;P`$0^\`"&$`_QYP%$[Z*B```"!O``2>_`!42.<X
  1129. +M%BI((`UG)$H59R`@34H89OQ3B)'-(@AP`B!-3KH;IG`"(@!![`"(3KH;FB`L
  1130. +M"YQO$K"L!6)N#.6`0>P$QB9P"`!@+%*`9B0B+`=(=`!![P`;)@AX42QL"^1.
  1131. +MKOXL2D!G!"9#8`I'[`",8`1'[`"0($M*&&;\4XB1RR((<`(@2TZZ&T)P`G(!
  1132. +M0>P`I$ZZ&S9,WV@<WOP`5$YU2.<`!G`(<@`L>``$3J[_.BI`2H!F!'``8"Y"
  1133. +MK0`$2'@`*'``+P!R`4'L`*B3R<%!3KH>CE!/*H!F#")-<`A.KO\N<`!@`B`-
  1134. +M3-]@`$YU(&\`!$CG``8J2"`-9Q@@36$``!X@54ZZ'M(B37`(+'@`!$ZN_RY,
  1135. +MWV``3G4@;P`$2.<`!BI(2JT`!&<4(E4L>``$3J[^(")53J[^)D*M``1,WV``
  1136. +M3G4@;P`$(%`B:``.<``0*0`/<@'AH2`!3G4@;P`$("\`""(O``Q(YP,&+`$N
  1137. +M`"I(8:I*AV8$2H9G'B)5(T<`("-&`"0S?``)`!PL>``$3J[^,G`!*T``!$S?
  1138. +M8,!.=2!O``1(YP`&*DA*K0`$9QPB52QX``1.KOXL2D!G#B)53J[^)D*M``1P
  1139. +M`6`"<`!,WV``3G4O#B`L"X0B`$A!0D'2@"`L"WBS@"E`"E1"K`I80^P`O'``
  1140. +M+'@`!$ZN_=@I0`I0</].KOZV2(!(P"E``+A*K`I09PA*@&L$<`%@`G``*4`*
  1141. +M7"Q?3G4O#B`L`+AK""QX``1.KOZP("P*4&<*(D`L>``$3J[^8BQ?3G4@+P`$
  1142. +M44](YP,`+@!.N@4H(`=.N@&02H!G*")`(&D`'')`Y8G"D2](``P@`2!I``0B
  1143. +M;P`,3I$L`"`'3KH!2"`&8`)P_TS?`,!03TYU("\`!"\'+A]@K@``(&\`!"`O
  1144. +M``@B;P`,+V\`$``$+V\`%``(+V\`&``,+V\`'``0+V\`(``4+V\`)``844](
  1145. +MYP<4+@!([P,``!1\`"IL"F!@%DJM``1F"C!\``$K2``$8`Q2AMK\`"2\K`ID
  1146. +M;>0@+`IDO(!F>'(*TZP*9"`L"F0B`.>!TH#E@2`!3KHCZ"I`2H!F#'`,*4`+
  1147. +MG'#_8```CG#VT*P*9"(`YX'2@.6!(&P*8")-8`(2V%.!9/H@+`I@9P8@0$ZZ
  1148. +M(D(I30I@>O;:K`ID(`7G@-"%Y8#;P)?+*TL`!%*%VOP`)+JL"F1M\"`&YX#0
  1149. +MAN6`(&P*8"&O`!0(!"&'"``AKP`8"`A+[P`@(9T(#"&="!`AG0@42^\`+"&=
  1150. +M"!@AG0@<(9T(("`&3-\HX%!/3G4@+P`$(@!K%K*L"F1L$"`!YX#0@>6`(&P*
  1151. +M8$*P"`1.=2`O``1(YP$$+@!K'KZL"F1L&"`'YX#0A^6`*FP*8-O`2JT`!&<$
  1152. +M(`U@"'`)*4`+G'``3-\@@$YU("P*9$YU```@+P`$64\N@$'L`-`@"%A/3G4@
  1153. +M;P`$64\NB$'L`-`@"%A/3G4@+`#03G4``"!O``193TCG(P(B"'3^+&P+Y$ZN
  1154. +M_ZPO0``09SHN+`N<3KK_JBP`8!Y(;P`02'@(!2\&3KH-!$_O``Q*@&8(*4<+
  1155. +MG'``8!)3AFS>(B\`$"QL"^1.KO^F</],WT#$6$].=2!O``1(YR$&*DA.N@*^
  1156. +M(@TL;`OD3J[_N$J`9P1P`&!03J[_?"X`<F_2@;"!9B`B#70`3J[_1DJ`9PXB
  1157. +M#4ZN_[A*@&<$(`)@*$ZN_WPN`'!ET("^@&8.($UA`/]*2H!F!'``8`P@!TZZ
  1158. +M&`PI0`N<</],WV"$3G4``"`O``193RZ`("P+=&<.($!.NOQB2H!G!'(!8`)R
  1159. +M`"`!6$].=2`O``1R`"!L"W1.^OP(3KK[/"E`"W1F"DAL`/!.NOIV6$\@;`MT
  1160. +M3KK[S(&L"FA.=2!L"W1.^OMH".P`#`IJ3G4@+P`$"```#%;`1`!(@$C`3G4(
  1161. +M[``-"FI.=2`O``0(```-5L!$`$B`2,!.=4ZZ&,)P`"!L"]00*``/<@'AH8.L
  1162. +M"FA.=4[Z&10@+P`$64](YP$6+T``$'X`8"X@+0`43KH8:B9`2H!G%$JK`!1F
  1163. +M#GX!<`$G0``4)VT`&``8(DUP'"QX``1.KO\N(&P+U"QX``1.KOZ,*D!*@&;`
  1164. +M(`=,WVB`6$].=2`O``1(YP\$+@!P`>^@+`!P";Z`9@9P`$ZZ"Q`@+`MLP(9G
  1165. +M!HVL"W!@>BH&1H7+K`MP2H=K9G`@OH!L8"`'YX!![`IL*G`(`#!\``&[R&8L
  1166. +M(`=5@&<44X!G$'(-D(%G/%F`9SA1@&<T8`I(;`$(3KKY-%A/<`!.N@JR8"`@
  1167. +M#6<<(`?G@"@&0>P*;(BP"`2)K`ML(`=.E4:$R:P+;"`L"W#`AF:*3-\@\$YU
  1168. +M("\`!"\.(BP*:(*`<``L>``$3J[^SBQ?3G4@+P`$+PXB`"`L"FB`@2QX``1.
  1169. +MKO["+%].=2`O``1(YP,`+@!\`&$`_A!*@&<(?`%P#F$`_PP@!V$`_F)*@&<(
  1170. +M?`%P`F$`_OH@!V$`_FI*@&<(?`%P`V$`_N@@!V$`_H9*@&<(?`%P%&$`_M8@
  1171. +M!DS?`,!.=2`O``0O!RE`!TQP""X?8`#^O'``80#_8&"08/9(YP$4?@!+[`IL
  1172. +M-GP``2J+0JT`!%*'4(UP(+Z`;?!"K`MP0JP+;$*L"FAA`/W480#]ZF$`_:),
  1173. +MWRB`8`#]^&$`_;A@`/X(``!(;`$<3KKX#EA/3G4@+P`$+PU.NA\D*D!*@&8"
  1174. +M8>(@#2I?3G4@;P`$("\`""\+3KH=&"9`2H!F`F'&(`LF7TYU(&\`!"\-*D@@
  1175. +M#68$2^P!)B!-2AAF_%.(D<T@"%*`3KH>V"!`2H!F!'``8`@B2!+=9OP@""I?
  1176. +M3G593TCG`S1^`'P`(&P+>"9H`-!@+$HK``AF)#`\!0#`:P`.9AI2AR!K``H@
  1177. +M"$H89OQ3B)'`(`C<@-RK`!14AB932I-FT"`'4H#E@-"&80#_2BE`"Y#EAR!`
  1178. +M(D#3QT7I``0O0``49@I![`$8*4@+D&!6(&P+>"IH`-!@0DHM``AF.C`\!0#`
  1179. +M;0`.9C`F;0`*+BT`%"!O`!0@RB](`!1@`A3;2A-F^A3\`#TF;0`08`(4VR`'
  1180. +M4X=*@&;V0AHJ54J59KH@;P`40I!,WRS`6$].=2!O``0@+P`(+PTJ2"J`0JT`
  1181. +M!.6`80#^M"M```@J7TYU(&\`!")O``@@+P`,2.<B-"9)*DA*@&<*($MA`/["
  1182. +M)$!@`B1+(`IG/B(5)"T`!+2!;2(L`=R&=!#2@KR!;0(B!BJ!(`'E@"!M``A.
  1183. +MNAN6*T``"&<21^T`!"(34IOE@2!;(8H8`'`!3-\L1$YU(&\`!")O``@@+P`,
  1184. +M89)*@&8$80#^&DYU(&\`!")O``A(YP`4)DDJ2"`M``30JP`$L)5O$M"`*H#E
  1185. +M@"!M``AA`/X:*T``""(M``3E@2!M``C1P2`K``0B`.6!(FL`"&`"$-E3@63Z
  1186. +MT:T`!"!K``A,WR@`3OH;AB!O``0B;P`(+V\`#``$("\`$"(O`!193TCG`C0L
  1187. +M`2I))$@O2``02H!G1%.`9PI3@&<``+9@``#T4X9G(B`O`!@B#9"!(&\`$$(P
  1188. +M"``@02)O`!!@`A+84X!D^F```,Y![`$H(F\`$!+89OQ@``"^)F\`&&!N<%RP
  1189. +M%69F2BT``6=@5(UP`;R`9@84_`!A8%0@!E6`9D80+?__2(!(P'(CD(%G+E6`
  1190. +M9RI5@&<F4X!G(E.`9QY3@&<:<A60@6<4<AR0@6<.58!G"G(?D(%G!%6`9@04
  1191. +M_``G%.W__V`(%.W__V`"%-V[RV6.8$`F;P`88#9P*K`59BY*+0`!9RA4C1`M
  1192. +M__](@$C`<F60@6<,<@F0@68,%/P`"F`.%/P`&V`(%.W__V`"%-V[RV7&0A),
  1193. +MWRQ`6$].=9[\`2Q(YS\V*F\!6"!L!V@,:``E`!1D"DAX`!1.NLTN6$]"K`:H
  1194. +M<`$I0`:D*4`&RG`"*4`&QBE`!NPI?````(0&Z)/)+'@`!$ZN_MHI0`MX3KKU
  1195. +M`"E`"WQF"DAL`2I.NO0Z6$\@;`M\3KKUD"E`"X`L;`M\(%8L:``4*4X+C$'O
  1196. +M`3!.KO^^*6\!,`N$3KKU^$ZZ^ZP@;`MX("@`K&<0Y8`B0"(I`#3E@2E!"XA@
  1197. +M!BEH`(0+B$H59@``Z$'L`4(B""0\```#[BQL"^1.KO_B+`!![`%((@A.KO_B
  1198. +M+@!![`%.(@A.KO_B*@!*AF<(2H=G!$J%9B)*AF<&(@9.KO_<2H=G!B('3J[_
  1199. +MW$J%9P8B!4ZN_]QA`/MR<`$O`"\%+P`O!R(&P4%.N@VV(&P';"`H`!Q![P%8
  1200. +M80#\GD_O`!!\`'X`8%`B;`=L(&D`)"`P>`!G/B(`0^\`,"0)=D#EBRQL"^1.
  1201. +MKOYN2H!G)B)L!VP@:0`DT<<@*``$9P@B`B0`3J[\CG`!0>\!2$/O`#!A`/S8
  1202. +M4H90AR!L!VR\J``<;:9@``+&+&P+Y$ZN_\HH`$ZN_\0J`'X`(&P+>"PH`.!F
  1203. +M*'X!0>P!5"(()#P```/M3J[_XBP`9A)![`%6(@A.KO_B+`!F!&$`^J0O!R\&
  1204. +M<``O`"\%(@3!04ZZ#.AP`4'O`5AA`/O6(#P```4:80#ZCB!`,7P$```2+T``
  1205. +M/'!`Y8AA`/IZ3^\`$'Y`Y8\O0`$X8`)2C1`52(!(P$'L!84(,``#"`!F[!`5
  1206. +M9P`"$'(BL`%F,%*-)DU@$'`JL!5F"$HM``%G`E*-4HT0%6<&<B*P`6;F)$T0
  1207. +M%7(BL`%F`E*-?`)@4G`GL!5F(%*-)DU@`E*-$!5G!G(GL`%F]"1-<">P%68"
  1208. +M4HU\`6`L)DU@$'!<L!5F"$HM``%G`E*-4HT0%6<02(!(P$'L!84(,``#"`!G
  1209. +MW"1-?``@2RH*FHL@!5*`+T@`*&$`^;@F0$JO`4QF("`%($LB;P`H3KH6@$(S
  1210. +M6`!P`$'O`4@B2V$`^V)@`/\HVH5R$-J!NH=O%"!O`3A.NA<Z(`5A`/EX+@4O
  1211. +M0`$X+PH@!G(!($LB;P`L80#[L%A/(@LD+P$X)@<L;`OD3J[\N"H`;!!"$B\O
  1212. +M`"A(;`%<3KKQ0E!/2H5F(B\*(`9R`"!+(F\`+&$`^W9P`$'O`4PB2V$`^NI8
  1213. +M3V``_JYZ`2!O`"Q"J``(0B@`$4(H`!`O"B`&<@(@2R)O`"QA`/M"<!!![P%`
  1214. +M80#Z*%A/(@LD+P`L+&P+Y$ZN_,I@*'H`(F\`+-+\`1AP`4'O`3QA`/HF2H!F
  1215. +M!'AG8!(B+P`L+&P+Y$ZN_,0H`$J$9](B+P`L+&P+Y$ZN_+YP=-"`N(!G"DAL
  1216. +M`7!.NO"26$]*A6<B+PH@!G(`($LB;P`L80#ZQG``0>\!3")+80#Z.EA/8`#]
  1217. +M_B`O`4`@;P%$3KH13$'O`4A#[P$\80#Z,"!+3KH6!&``_=P@;P$X3KH5^"!O
  1218. +M`"Q.NA7P80#XF$'L`8I.N@P<*4``T&8(0>P!D"E(`-!![`&63KH,!BE``.1F
  1219. +M!BEL`-``Y$'L`:!.N@OR*4``Z&8(0>P!IBE(`.A![`&J3KH+W"E``.QF"$'L
  1220. +M`;`I2`#L0>P!N$ZZ"\8I0`N49@A![`'"*4@+E"`O`4P@;P%0(FP+D$ZZ*+1P
  1221. +M`$ZZ&>),WVS\WOP!+$YU```@+P`$2.<#`"X`2JP+F&<$(`=@8'P`(`<"@```
  1222. +M`21G`GP("`<`!V<$`$8`!0@'``1G!`C&``((!P`!9P0(Q@``"`<``V<$",8`
  1223. +M`0@'``!G!`C&``8@!W))P(%R0+"!9@0`1@!""`<`"6<$",8`!2`&"D``#TS?
  1224. +M`,!.=2`O``1(YP8`+`!*K`N89P@@!@)`#_]@7GH`"D8`#P@&``-G!'I)Y8T@
  1225. +M!G(%P(%;@&8$",4`!P@&``)G!`C%``0(!@``9P0(Q0`!(`9R0L"!9P0(Q0`&
  1226. +M"`8``6<$",4``P@&``9G!`C%```(!@`%9P0(Q0`)(`5,WP!@3G4``$CG`P!.
  1227. +MNO+B+@!\`&`*+P9.NO%*6$]2AKR';?),WP#`3G4@+P`$+P<N`&'43KKPODZZ
  1228. +M]EP@;`M\3KKO?"\'3KK''EA/+A].=2`O``0O!RX?8-0``"`O``0B+P`((&\`
  1229. +M#%%/2.<#)"P!+@`J2$ZZ]=@@!TZZ\D!*@&<:(D`@:0`@+T@`%"`&(&D`!")-
  1230. +M)&\`%$Z28`)P_TS?),!03TYU``">_``,2.<O-BIO`#1^`\ZO`#A\`2!L"W@F
  1231. +M:`"X*CP```/L3KKU@DJ'9PIP`KZ`9P1R`&`"<@$O00`H<`&^@&<(58=G!'``
  1232. +M8`)P`2]``"P@34/L`<A.N@[22H!F!GC_8``!5G#_(&P+>"%``+@B#73^+&P+
  1233. +MY$ZN_ZPN`"!L"W@A2P"X2H!F>"QL"^1.KO]\3KH*P"P`("P'2'(N1@&P@6<$
  1234. +M2H!F"GX!*CP```/N8!8@!E6`9@P(+P`(`#IG!'`!8`)P`"X`2H=G+'P`""\`
  1235. +M"``Z9QP(+P`/`#IG!G@"8```V"`O`#Q.NOV&*`!@``#*>/]@``#$*48+G'#_
  1236. +M8``!1$*G<@(L;`OD)`].KO\<W_P````$)$!*@&<,(@<D"DZN_YI*@&86(`IG
  1237. +M"'(")`I.KO\63KH+&'#_8``!""@J`'1R`B0*3J[_%B('3J[_IG!0Z8C`KP`X
  1238. +M#(````4`9@QP$2E`"YQP_V```-I*KP`H9P8(!``#9@Q*KP`L9Q((!``"9PQP
  1239. +M#2E`"YQP_V```+8(+P`)`#IG(B(-)#P```/N3J[_XDJ`9P@B`$ZN_]Q@"DZZ
  1240. +M"IQP_V```(P(+P`(`#IG!"`%8`8@/````^TD`"(-+&P+Y$ZN_^(J`&8(3KH*
  1241. +M<'#_8&`(+P`)`#IF!$J&9@0L!&`"?/]^`$JO`"AG`GX!2J\`+&<$",<``0@O
  1242. +M``,`.V<$",<``R\'(`4B!DZZ!9Y83RX`;!QP_R!L"W@A0`"X(@4L;`OD3J[_
  1243. +MW"!L"W@A2P"X(`=,WVSTWOP`#$YU(&\`!"\O``PO+P`,+PAA`/VF3^\`#$YU
  1244. +M``">_``,2-<!`W#_WOP`#$YU44](UP,`4$].=4CG,`(B$$HH``UG!'``8!PD
  1245. +M"28`+&P+Y$ZN_]8B`%*`9@A.N@FH</]@`B`!3-]`#$YU44](YS\V+@`J22)(
  1246. +M+!$O1@`H+T@`+$HI``UG!G``8```C$HI``QG9B9-U\=Z`&!8)$U@`E**M<MD
  1247. +M!G`*L!)F]+?*9@0H"F`&0>H``2@(F(TB+P`H)`TF!"QL"^1.KO_0+`!2@&8(
  1248. +M3KH),G#_8#[:AK:&9C9+Z@`!GH9P`$ZZ\=Q.NO(,2H!F(DJ'9J1@'"(&)`TF
  1249. +M!RQL"^1.KO_0*@!2@&8(3KH(]G#_8`(@!4S?;/Q03TYU64](YSX"+!`O00`8
  1250. +M2B@`#6<$<`!@4E.!)@$B!B0`+&P+Y$ZN_[XJ`$ZN_WPH`%*%9P1*A&<.(`1.
  1251. +MN@>R*4`+G'#_8"0B!G0`)@).KO^^+`!2@&<$2H1G#B`$3KH'D"E`"YQP_V`"
  1252. +M(`9,WT!\6$].=9[\`0!(YS\&+@`J2"P5*BT`""`M``1G"B(`+&P+Y$ZN_Z88
  1253. +M+0`-2(1(Q"!-3KH/PDJ$9P1P`&!$(@9![P`@)`AV0.6++&P+Y$ZN_F@H`$J'
  1254. +M9@HB!DZN_]Q*@&<:2H1G$G#_NH!G#"(")`5.KO]&2H!G!'``8`9.N@?^</],
  1255. +MWV#\WOP!`$YU("\`!$CG(`(B`'0`+&P+Y$ZN_S1.KO]\="Y&`K""5\%$`4B!
  1256. +M2,$@`4S?0`1.=2`O``0@;P`((F\`#)[\`!!(YS<6+@`F22I(?`!AN$J`9GPB
  1257. +M!W0!+&P+Y$ZN_E9*@&=L(@=![`'0)`AV!$ZN_]!9@&92(@<D/```)Q!.KO\T
  1258. +M2H!G0B('0>\`("0(=A!.KO_6<@FP@6\N<)NP+P`@9B9![P`E(@@D"TZN_-`J
  1259. +M`$'O`";1P"(()`U.KOS04H!G!E*%9P)\`2('=`!.KOY6(`9,WVCLWOP`$$YU
  1260. +M("\`!"(O``B>_`(02.<_!BX`</\O0`(H+T$`)"('=`!V`2QL"^1.KO^^+T``
  1261. +M("('3J[_OBP`3J[_?"H`+T`"+&8``,(H+P`D(@<D!';_3J[^.+""9@``KKR"
  1262. +M;```GBH$FH8H!2`$<@%(02QX``1.KO\Z*D!*@&9J<@)(04ZN_RCBB"H`#(4`
  1263. +M``(`;1`@!7(!2$%.KO\Z*D!*@&9&>D#GC4OO`"@P/`'_<@!![P`H$,%1R/_\
  1264. +M8"RXA6\$(`5@`B`$)@!.NN^P(@<D#2QL"^1.KO_0L(-G"DZN_WPO0`(L8`:8
  1265. +M@TJ$;M!![P`HL<UG#")-(`4L>``$3J[_+BHO`BQF!$*O`B@L+P`@O*\`)&P.
  1266. +M(@<D!G;_+&P+Y$ZN_[XL+P(H9PH@!4ZZ!/@I0`N<(`9,WV#\WOP"$$YUGOP!
  1267. +M"$CG-Q8N`"9)*D@L%4HM``UF``$8(`<$@```!`!G(`2````$`&=*4X!G6%.`
  1268. +M9UQ3@&=>4X!G9E.`9VQ@``#N2BT`#&<F(`9![P$D0^\!(&$`_=9*@&<4("\!
  1269. +M)#=```(@+P$@-H!P`&```,IP&6```+XB!BQL"^1.KO\H)H!P`&```+(FAG``
  1270. +M8```JG``8```I"`&(A-A`/XV8```F"M3``AP`&```(XJ$TJM``1F#B(5+&P+
  1271. +MY$ZN_HPK0``$("T`!&=B)``B!2QL"^1.KOY<2H!F4B(&0>\`("0(=D#EBTZN
  1272. +M_FA*@&<^(@5.KO^F(BT`!$ZN_Z8B!DZN_]PB`G0`3J[_1AM\``$`#2J"*T(`
  1273. +M!$'O`"`B""QL"^1.KO^X2H!G!"`"8`Y.N@2V8`9P%BE`"YQP_TS?:.S>_`$(
  1274. +M3G4@+P`$(B\`""]O``P`!$CG#P8J+P`<+`$N`'`.3KH-:"I`2H!F"G`,*4`+
  1275. +MG'#_8$Y#U2+'0IDBQD(M``TB!RQL"^1.KO\H&T``#$AZ_G1(>OO:2'K[9DAZ
  1276. +M^JY(>OIX2'KZ:B`%($U#^OI23KKHXD_O`!@H`&P&($U.N@N@(`1,WV#P3G4@
  1277. +M+P`$(B\`""]O``P`!"]O`!``""]O`!0`#"]O`!@`$$CG#0`H+P`4*B\`$"X`
  1278. +M<`!*@68$<$#EB`!```$O`"`'<O]A`/]&6$]*@&9`<`!*A&8$<$#EB`!```(O
  1279. +M`"`%<O]A`/\H6$]3@&8B<`!*KP`<9@1P0.6(`$```B\`("\`''+_80#_!EA/
  1280. +M58!G$$'L`=8O2``03-\`L$[ZY41,WP"P3G4@;P`$(F\`"$CG(18F22I(3KKL
  1281. +MQ"(-)`LL;`OD3J[_LDJ`9P1P`&!L3J[_?"X`<C1&`;"!9E(B`DZN_[A*@&<.
  1282. +M(@U.KO^R2H!G!'``8$9.KO]\+@!R;]*!L(%F+"("=`!.KO]&2H!G&B(+3J[_
  1283. +MN$J`9Q`B#20+3J[_LDJ`9P1P`&`23J[_?"X`(`=.N@'T*4`+G'#_3-]HA$YU
  1284. +M```@+P`$(&\`""(O``Q93TCG`S0L`2X`*DA.NNP@(`=.NNB()D!*@&=$""L`
  1285. +M`0`#9S8(*P`#``-G%B!K`!@O2``4<`!R`B!K``0B;P`43I$@:P`4+T@`%"`&
  1286. +M(&L`!")-)&\`%$Z28`AP#2E`"YQP_TS?+,!83TYU("\`!"!O``@B+P`,2.<#
  1287. +M!$S?(,!@@"!O``2>_`!`2.<[%BI(3KKKGB`-9U)*%6=.(@U![P`@)`AV0'@`
  1288. +M+&P+Y$ZN_'8N`&TV3J[_?"P`4H!.N@K\)D!*@&<DOH9G%"8&4H,B#20+3J[\
  1289. +M=DJ`;Q`@`F`.($(B2Q+89OP@"V`"<`!,WVC<WOP`0$YU("\`!"(O``@O;P`,
  1290. +M``113TCG!P`J+P`8+`$N`$ZZZQP@!TZZYX1*@&<:(D`@:0`8+T@`$"`&(@4@
  1291. +M:0`$(F\`$$Z18`)P_TS?`.!03TYU("\`!"(O``@O;P`,``1(YP<`*B\`$"]%
  1292. +M`!!,WP#@8*```"`O``0@;P`((B\`#%E/2.<#-"P!+@`J2$ZZZK`@!TZZYQ@F
  1293. +M0$J`9R8(*P````-G&"!K`!`O2``4(`8@:P`$(DTD;P`43I)@"'`-*4`+G'#_
  1294. +M3-\LP%A/3G4@+P`$(&\`""(O``Q(YP,$3-\@P&">```@+P`$*4`'2$J`9P``
  1295. +MAG)GD(%G``""58!G``"`<@F0@6=\4X!G>%.`9W13@&=P4X!G;%.`9VA3@&=H
  1296. +M4X!G:')1D(%G9E.`9V93@&=F4X!G9E.`9V93@&=F58!G9E.`9V93@&=F4X!G
  1297. +M9E6`9V93@&=F4X!G9E.`9V93@&=F4X!G9E6`9V93@&=F4X!G9E.`9V9@:'``
  1298. +M8&9P#&!B<`M@7G`68%IP!V!6<`A@4G`08$YP$6!*<`)@1G`"8$)P%F`^<`=@
  1299. +M.G`68#9P)&`R<!9@+G`68"IP'F`F<!)@(G`E8!YP)F`:<!-@%G`68!)P'&`.
  1300. +M<`U@"G`-8`9P#6`"</].=2\.+&P+Y$ZN_WQA`/[Z*4`+G"Q?3G4@;P`$2.<`
  1301. +M!BI((DTL>``$3J[_!"!-3-]@`$[Z!T@@+P`$2.<!!"X`*FP+J&`.("T`#+"'
  1302. +M9@0@#6`(*E5*E6;N<`!,WR"`3G5(YR`"0>P+J$ZZ&7(@+`MX(BP+A"0`LX("
  1303. +M@@!___\I0@ND4H(I0@N@+P$O`$AL!6A(;`NT3KK@'D_O`!`L>``$3J[]9BE`
  1304. +M"]AG$'``0>P+M$ZZ&88I0`O49@I(;`5V3KKA!%A/3-]`!$YU+PX@+`O89PH@
  1305. +M0"QX``1.KOU@2JP+U&<X+'@`!$ZN_WQ@#")(<!PL>``$3J[_+B!L"]0L>``$
  1306. +M3J[^C"!`2H!FXB!L"]1.NAC@+'@`!$ZN_W8L7TYU```@;P`$("\`""(O``PB
  1307. +M;P`0+V\`%``$+V\`&``(64](YP\V*"\`+"HO`"@L`2X`*DDO2``@+'@`!$ZN
  1308. +M_68F0$J`9S`@2R`$3J[]<B1`2H!G(B`-9P@E30`H)44`)"!O`"`@!R)*(@9.
  1309. +MKOY$2@!F!"`*8!8@"F<&($I.KOUL(`MG!B!+3KH83'``3-]L\%A/3G4@;P`$
  1310. +M2.<`!BI((`UG&")-+'@`!$ZN_CX@;0`.3KH8(B!-3J[];$S?8`!.=5E/0?D`
  1311. +M````+HAG""!Y_____$Z06$].=5E/0?D`````+HAG""!Y_____$Z06$].=4CG
  1312. +M`Q<J;`O<8!0F57`4T*T`!")-+'@`!$ZN_RXJ2R`-9NA"K`O<8$PJ;`OH<)S0
  1313. +MK`=$)D`@+0`$*4`+Z"EM``@'1"XM`!A*@&8>(&P':`QH`"0`%&42($\L"$'M
  1314. +M``PL>``$3J[])"Y&(DL@!RQX``1.KO\N2JP+Z&:N3-_HP$YU(&\`!")O``@@
  1315. +M4")1$!BP&68$2@!F]I`A2(!(P$YU(&\`!"`O``A#^O_@<@1.^@>N(&\`!")O
  1316. +M``@@+P`,2H!O"A(0$-$2P5.`9O9.=2!O``0B;P`(<`!R`!`8$AD,``!A;0H,
  1317. +M``!Z;@0$```@#`$`86T*#`$`>FX$!`$`()"!9@1*`6;43G4``"`O``@@;P`$
  1318. +M3E7_]")/<@I.N@(T!D$`,!+!2H!F\"`)$.&_R6;Z0A"0CTY=3G4``"`O``@@
  1319. +M;P`$3E7_]")/(@`"00`'!D$`,!+!YHAF\"`)$.&_R6;Z0A"0CTY=3G4``#`Q
  1320. +M,C,T-38W.#EA8F-D968@+P`((&\`!%%/(D\R``)!``\2^Q#<Z(AF\B`)$.&_
  1321. +MR6;Z0A"0B5!/3G4``"!O``0B;P`(2.<P("1(<@`@`28!#!``*V<(#!``+68$
  1322. +M=@%22!`8!```,&T:#```"6X4)`'E@=*"TH%*`V8$TH!@XI*`8-XB@2`(D(I3
  1323. +M@$S?!`Q.=2!O``0O#2I(""T``P`;9C`@+`;T3KH$SBM```0K0``09@IP#"E`
  1324. +M"YQP_V`6*VP&]``4<//!K0`80JT`#$*M``AP`"I?3G4``"!O``1(YR`4*D@F
  1325. +M36`@<``0$T'L!84(,``!"`!G"G(`$@!T()*"8`1R`!(`%L%*$V;<(`U,WR@$
  1326. +M3G4``)[\`%!(YS$V0_H`A'``+'@`!$ZN_=@J0$J`9@9P%$ZZ[I9^`"!L!W0>
  1327. +M*/__(`=#[P`<8`(2V%.`9/I"-W@<0>\`'"E(!PQ#[`<41^P'*"Q-D<B5RG``
  1328. +M(@!T?=2"=BA.KOZD<!1.NNY03-]LC-[\`%!.=2HJ(%-T86-K($]V97)F;&]W
  1329. +M("HJ``!%6$E4``!I;G1U:71I;VXN;&EB<F%R>0!*@&H``!Y$@$J!:@``#$2!
  1330. +M80``($2!3G5A```81(!$@4YU2H%J```,1(%A```&1(!.=2\"2$$T`68``")(
  1331. +M0$A!2$(T`&<```:$P3`"2$`T`(3!,`)(0C(")!].=2\#=A`,00"`9```!N&9
  1332. +M44,,00@`9```!NF964,,02``9```!N6954-*06L```;CF5-#-`#FJ$A"0D+F
  1333. +MJDA#@,$V`#`"-`-(0<3!D()D```&4T/0@7(`,@-(0^>X2$#!028?)!].=0``
  1334. +M2.=P`"0`9R!*@68$0H!@&"8`QL%(0L3!2$)"0M:"2$'`P4A`0D#0@TS?``Y.
  1335. +M=0``("P'<`1``?0N0$[Z_F```"!O``0@"$H89OQ32)'`(`A.=0``(&\`!")O
  1336. +M``@@+P`,2H!G$%.`$ABR&68,2@%G!%.`:O)P`$YU;@1P_TYU<`%.=0``(&\`
  1337. +M!")O``@2&+(99@A*`6;V<`!.=6X$</].=7`!3G4B;P`((&\`!"`O``PB"&`$
  1338. +M$-EG"%.`9/A@!D(84X!D^B`!3G4B;P`((&\`!"`($-EF_$YU(F\`""!O``0@
  1339. +M+P`,(@A*@&\6L<EE#-/`T<`1(5.`9OI@!A#94X!F^B`!3G4@;P`$("\`"$CG
  1340. +M`Q0N`"I(9A(@#68$<`!@:"!-3KH`;G``8%X@#68*(`=,WRC`3OH!R"9-58LP
  1341. +M/'__P%-(P.6`+``($P`/9PP,:X``__YF!"PK__(@!TZZ`:`F0$J`9@1P`&`>
  1342. +MO(=C!"`'8`(@!B!-(DM@`A+84X!D^B!-3KH`#B`+3-\HP$YU(&\`!"`(9@).
  1343. +M=5F`2.<\,B(L"]QF#BE\````%@N<3-],/$YU(D&P@6\2)`'4J0`$!H(````4
  1344. +ML()L`F`((BD``&?48.`F`0:#````$+"#;<9G$B1#0H(T*@`":[KEBM:"6(-@
  1345. +MZ"1`-"H``&JJ"*H`!P``0H,V*@`"`D-__^6+2FH``FM`1_(X!$IK``!K-D*$
  1346. +M."L``@)$?__EC-B#6(3DC%B#2FL``FH$`$2``#5$``)K$BH$Y8PT,D@$`D*`
  1347. +M`(I"-85(!$*$."H``&=,Y8Q$A$?R2/Q*:P``:SY"A#@K``+EC$*%.BH``@)%
  1348. +M?__EC=B%6(18@^2,2FH``FH$`$2``#=$``)K$BH$Y8PT,T@$`D*``(I"-X5(
  1349. +M!->I``@F*0`$MJP%@&X,MJD`"&8Z2JD``&<T("P+W"!`LH!F#"EI```+W&`0
  1350. +M(&@``+*H``!F]B%I`````"`I``0&@````!0L>``$3J[_+DS?3#Q.=2`O``1*
  1351. +M@&8,*7P````6"YQP`$YU2.<^,E:``H#____\#(```?_\;@``N+"L!8!N``"P
  1352. +M)BP+W&<``*@B0["I``AN,B(L"^"RJ0`,9BA%Z0`02E)K$$*$."H``@)$?__E
  1353. +MC+"$;QI"A#@J``)K".6,1?)(!&#<)BD``&=F(D-@O@CJ``<``$?R"`1"A;"$
  1354. +M9SPL!)R`689F!"`$8##DCDIJ``)J!`!&@``J`.2--T8``C=%```U10`">@1*
  1355. +M1FL.-#)(!`)"@`",0C6&2`0F*0`(EH"6A2-#``@@"EB`3-],?$YU*@"PK`6`
  1356. +M:@0@+`6`*``&@````!0B+`O@+'@`!$ZN_SI*@&8**7P````,"YQ@S")`1>D`
  1357. +M$"-L"]P``"E)"]PC1``$(VP+X``,)@26A6<H68-G)"-#``A'\E@$-7R`````
  1358. +MY(TU10`"-T4``.2+`$.``#=#``)@%$*I``@U?(````#DC`!$@``U1``"(`I8
  1359. +M@$S?3'Q.=2!O``0@+P`((B\`#")O`!!93TCG#S8L`2X`*D@O20`@<`&^@&,`
  1360. +M`+(F3=?&(`=5@&8D+PLO#2!-(DLL;P`H3I903TJ`;P``DB`&($TB2TZZ^"!@
  1361. +M``"$(`?BB"(&3KK[-B)-T\`@!B!-3KKX!B1->@!X`6`J+PTO"R!+(DTL;P`H
  1362. +M3I903TJ`:A)2A=7&M<MG"B`&($LB2DZZ]]C7QE*$N(=ETK7-9PH@!B!-(DI.
  1363. +MNO?")F\`("`%(@8@32)+80#_4B!*T<8@!Y"%4X`B!B)+3-]L\%B/8`#_.DS?
  1364. +M;/!83TYU(&\`!)[\`!A(YS<6*DA^`"9X``0@#68&<`%@``"$+&P+Y$ZN_\0L
  1365. +M`&840?H`?B(()#P```/N3J[_XBP`?@$,:P`D`!1E+"]\@```(0`@3J[_RD?O
  1366. +M`"0FP";\@```(B;&0ILB#4'O`"`D"$ZN_:(J`&`B(@TF!G0`3J[_(DJ`9A).
  1367. +MKO]\*4`'2'+_*4$+G"H`8`(J`DJ'9P8B!DZN_]P@!4S?:.S>_``83G5.24PZ
  1368. +M``!.^O'*3OKQPB`O``1(YP$$+@`J;`<\8`@@;0`$3I`J52`-9O1+[`:,<`;`
  1369. +MK0`858!F&"`M``20K0`09PXB+0`<(&T`$,%!3KKQ`"!-*E`@#6;6(`=,WR"`
  1370. +M3OKF_"`O``0@;P`(0]!2F2!14ID0@$YU44\@;P`,0I<O2``$2&\`%"\O`!1!
  1371. +M^O_>0^\`"$ZZ#/H@;P`,0A!03R`74$].=0``("\`!"!O``@O#2(`*DA2E4/M
  1372. +M``@@$5*1&X$(#"`9#(````(`;11![0`,(FT`!'(!P4%.N@1@0JT`""I?3G6>
  1373. +M_`(,+PTJ;P(40J\`#$*O``0O30`(2&\"'"\O`AQ!^O^J0^\`#$ZZ#()03R`O
  1374. +M``QG$$'O`!`B;P`(<@'!04ZZ!!8(+0`%`!MF"`@M``0`&V<$</]@!"`O``0J
  1375. +M7][\`@Q.=2`O``0@;P`(64](YP,$+@`J2'P`'T``#W)!TH'"K0`89@P([0`%
  1376. +M`!MP_V```4!P,\"M`!A5@&=0<$Q&`,"M`!AR0-*!L(%F#`CM``$`&T*M``Q@
  1377. +M-`@M``4`&V<&</]@``$,<&Y&`,"M`!AR;D8!L(%F#`CM``$`&T*M``Q@"G``
  1378. +M*T``#&```.8@+0`,L*T`%&PR(&T`!%*M``0@!Q"`4JT`#`@M``8`&V<.<@J^
  1379. +M@68(($U.N@1P+`!*AF<``*H@!F```*H(+0`"`!MG+D*M``P@+0`<0>\`#W(!
  1380. +M3KKO+"P`4H!F"`CM``4`&V!R(`93@&=L".T`!``;8&1*K0`49B`@34ZZ]=Q*
  1381. +M@&<*".T`!0`;</]@6'``*T``#"MM`!``!"`M``RPK0`4;0@@34ZZ`_8L``CM
  1382. +M``$`&R!M``12K0`$(`<0@%*M``P(+0`&`!MG#G(*OH%F""!-3KH#RBP`2H9G
  1383. +M!"`&8`9R`!('(`%,WR#`6$].=2!O``193TCG`00J2$'L!HR[R&9$0>P&KDZZ
  1384. +M`Y8(+0`-`!IG-"`M`!Q![P`+<@%.NN_4+@!O"GX`'B\`"V```2!*AV8(".T`
  1385. +M!``;8`8([0`%`!M^_V```0A3K0`(;1`@;0`$4JT`!'``$!!@``#T<#/`K0`8
  1386. +M4X!G-'!<1@#`K0`8<D#2@;"!9A0([0```!L(+0`$`!MG%G#_8```QD*M``@(
  1387. +M[0`%`!MP_V```+8(+0`"`!MG1D*M``A^`!XM`"!*AV<(0BT`(&```)8@+0`<
  1388. +M0>\`"W(!3KKO+BX`;PA^`!XO``M@>DJ'9@@([0`$`!M@!@CM``4`&W[_8&1*
  1389. +MK0`49A0@34ZZ]&A*@&<*".T`!0`;</]@3"!M`!`K2``$("T`'"(M`!0@;0`0
  1390. +M3KKNVBM```@N`&\24ZT`""!M``12K0`$?@`>$&`82H=F"`CM``0`&V`*".T`
  1391. +M!0`;0JT`"'[_(`=,WR"`6$].=2!O``1(YP<4*DA^`"`M`!AF"G()*4$+G'#_
  1392. +M8&X@/```@`+`K0`8#(```(`"9@@@34ZZ`A9^`4AX``$@+0`<<@!.NNWL6$\L
  1393. +M`$H'9CP(+0`/`!IG(B9M``0J+0`(8!!R"K(;5\!$`$B`2@!G`E.&(`53A4J`
  1394. +M9N@(+0`!`!MG!MRM``Q@!)RM``@@!DS?*.!.=2!O``0@+P`((B\`#$CG`P0L
  1395. +M`2X`*D@(+0`!`!MG!B!-3KH!EB`&4X!F"B!-3KK_1MZ`?``K;0`0``1"K0`,
  1396. +M0JT`"$(M`"`(+0`'`!MG!G#\P:T`&"\&("T`'"('3KKM0%A/4H!F!'#_8`AP
  1397. +MS\&M`!AP`$S?(,!.=2!O``0@+P`((B\`#")O`!!93TCG#Q`L`2X`)DDO2``4
  1398. +M(`8B!TZZ]+HJ`'@`2H=G!$J&9@9P`&```/QP,,"K`!AF"G!!T(#`JP`89@P(
  1399. +MZP`%`!MP`&```-YP,\"K`!A5@&=0<$Q&`,"K`!AR0-*!L(%F#`CK``$`&T*K
  1400. +M``Q@-`@K``4`&V<&<`!@``"J<&Y&`,"K`!AR;D8!L(%F#`CK``$`&T*K``Q@
  1401. +M"D*K``QP`&```(1*JP`49DP(*P`"`!MF1"!+3KKR.$J`9SH(ZP`%`!MP`&!@
  1402. +M(&\`%!`8(FL`!!*`4JL`!%*K``Q3A5*$+T@`%'(*L`%F#@@K``8`&V<&($M.
  1403. +MN@`^("L`#+"K`!1L!$J%;L)*A6\6($M.N@`F("L`'"(%(&\`%$ZZZOS8@"`$
  1404. +M(@=.NO,<3-\(\%A/3G4@;P`$2.<!!"I((`UG``"@<$'0@,"M`!AF+"!M`!!#
  1405. +M[0`$(LA"F4(M`"!P`"+`""T`!P`;9P8(K0```!L(K0`$`!M@``"*2JT`%&=$
  1406. +M("T`#&H&<@`K00`,("T`#&<H(BT`'"!M`!#!04ZZZGXN`%*`9@@([0`%`!M@
  1407. +M#+ZM``QG!@CM``0`&RMM`!``!$*M``QP,,"M`!AF$@@M``<`&V<&</S!K0`8
  1408. +M<`!@)'#_8"!^`$OL!HQ*K0`89PP@36$`_T9*@&<"?O\J52`-9N@@!TS?((!.
  1409. +M=2!O``1(YP$$*DA^`"`-9P8@+0`89@1P_V!`""T``0`;9P@@34ZZ_PHN`'`,
  1410. +MP*T`&&8.2JT`%&<((&T`$$ZZ]")"K0`8("T`'$ZZT,92AV<$2H!G!'#_8`)P
  1411. +M`$S?((!.=2!O``0B;P`(+V\`#``$64](YP\4)F\`("I)+T@`&'X`+"P&^'H`
  1412. +M2JL`&&<&($M.NO]T<``0+0`!<BN0@6<@<C:0@6<&4X!G!&`@?`!R*[(M``)7
  1413. +MP$0`2(!(P"H`8`QZ`7!AL"T``F8"?`!P`!`5<F&0@6<,<A&0@6<:6X!G)&`V
  1414. +M2H56P'(!D@``00$(C(%^0.&/8"A*A5;`<@"2`)(`C(%@&DJ%5L!R`9(``$$!
  1415. +M``!!`@",@6`&<`!@``"`+RP&_"\&+R\`($ZZWW1/[P`,*`!2@&8$<`!@8DJ%
  1416. +M9P8(QP`'8#!P`!`5<F&0@6<,<A&0@6<:6X!G&F`:",<``4AX``(@!'(`3KKI
  1417. +ML%A/8`9^`6`"?@((!@`/9@0(QP`/D<A+ZP`0*L@JR"=$`!PG2``$)T@`#"=(
  1418. +M``@JQR`+3-\H\%A/3G4``"!O``0B;P`(44](YP`42.\#```(2^P&C&`$)DTJ
  1419. +M4R`-9P9*K0`89O(@#68><").NO/X*D!*@&8$<`!@'B!-)HAP(7(`$,%1R/_\
  1420. +M+PT@;P`,(F\`$$ZZ_G183TS?*`!03TYU```@;P`$(F\`""]O``P`!"]O`!``
  1421. +M")[\`#1(YR\V)F\`8"IO`%Q([P,``"Q"+P`[0B\`.D(O`#E"+P`X'WP`(``W
  1422. +M0J\`5'#_+T``4$(O`#9^`'P`1>\`/&!*<``@;P`L$!!R()"!9R)7@&<F48!G
  1423. +M$E6`9P97@&<B8#(??``!`#M@'A]\``$`.F`6'WP``0`Y8`X??``!`#A@!A]\
  1424. +M`#``-U*O`"P@;P`L2A!FKG`!L"\`.V8&'WP`(``W<BH@;P`LLA!F'BQO`#`B
  1425. +M5EB6(A$O00!4;`A$KP!4'T``.U*O`"Q@#$/O`%1.NNVNT:\`+"!O`"P0$'(N
  1426. +ML`%F1E*O`"QP*B!O`"RP$&8<(F\`,"!16)$@$"]``%!L!G#_+T``4%*O`"Q@
  1427. +M%D/O`%!.NNUL*@!F!D*O`%!@!-NO`"P??``@`#=P`"!O`"P0$'),D(%G%'(<
  1428. +MD(%G!EF`9PI@$A]\``(`-F`&'WP``0`V4J\`+"!O`"Q2B")O`"P0$7(`$@`?
  1429. +M0``D+T@`)G!0DH!G``$048%G``$<<`N2@&<``=!3@6=06X%G3%N!9R)3@6<`
  1430. +M`0)3@6<``.I7@6<``8!5@6<``/!7@6<``.I@``&X)&\`,'`"L"\`-F8.(%)8
  1431. +MDB)0(!,R@&```DH@4EB2(E`BDV```CXB;P`P(%%8D2@0:@1^`42$2H=G#$7O
  1432. +M`#T??``M`#Q@(DHO`#IG#$7O`#T??``K`#Q@$$HO`#EG#$7O`#T??``@`#Q\
  1433. +M`2`$($I.NNO"*@`@+P!09@9*A&<``>0@+P!0:@9R`2]!`%`H+P!0F(5O'"!*
  1434. +MT<0@!2)*3KKO2'(P($I@`A#!4X1D^BHO`%#<A2`%4X!F``$$$!*P+P`W9@``
  1435. +M^DJO`%!F``#R0A)@``#L("\`4&H&<`@O0`!0'WP``0`V<`*P+P`V9A`B;P`P
  1436. +M(%%8D2`0>``X`&`*(F\`,"!16)$H$!`O`"1R=;`!9P#_6G)OL`%F'DHO`#AG
  1437. +M#$7O`#T??``P`#Q\`2`$($I.NNLR8`#_/DHO`#AG$A]\`#``/$7O`#X??`!X
  1438. +M`#U\`B`$($I.NNM.*@`(+P`%`"1F`/\40>\`/$ZZZ_Y@`/\((F\`,"!16)$D
  1439. +M4"`*9@1%^@#R($I*&&;\4XB1RBH(("\`4&L$L(5O!"]%`%`L+P!08"!\`2)O
  1440. +M`#`@45B1(!`?0``\0B\`/6`&<`!@``"L1>\`/"`O`%2PAFP(<@`O00!48`2=
  1441. +MKP!42B\`.V<>8`AP`!`:($M.E5.&;/1@!B!+<"!.E5.O`%1L]&!J2H=F#$HO
  1442. +M`#EF!DHO`#IG1A`2<B"P`6<,="NP`F<&="VP`F8R2H9K+K(O`#=F$F`*<``0
  1443. +M+P`W($M.E5.O`%1L\'``$!H@2TZ54X9@"G``$"\`-R!+3I53KP!4;/!@"'``
  1444. +M$!H@2TZ54X9L]"`O`"9,WVSTWOP`-$YU```@;P`$(F\`""]O``P`!"]O`!``
  1445. +M")[\``Q(YP`4)DDJ2"]O`!P`$&`X<"6P+P`,9B8@;P`8L!!F!E*O`!A@&"\+
  1446. +M+PU#[P`83KK[E%!/2H!G!B]``!A@"G``$"\`#"!+3I4@;P`8$!@?0``,+T@`
  1447. +M&$H`9K9,WR@`WOP`#$YU(&\`!""(6)!"J``$(4@`"$YU```@;P`$2.<`!BI(
  1448. +M2JT`"F<*(DTL>``$3J[^F!M\`/\`"'#_*T``%'``$"T`#RQX``1.KOZP(DUP
  1449. +M(DZN_RY,WV``3G4``"!O``0@+P`(2.<#%BX`*DAP_RQX``1.KOZV'`!(ADC&
  1450. +M(`92@&8$<`!@8'`B(CP``0`!3J[_.B9`2H!F""`&3J[^L&!$0>L`"B#-%T<`
  1451. +M"1=\``0`"$(8$,:3R4ZN_MHG0``0(`UG"")+3J[^GF`:0>L`&"=(`!1!ZP`4
  1452. +M)T@`'$*K`!@7?``"`"`@"TS?:,!.=2\(+P!.N0```F!03TYU``````/L````
  1453. +M`0```````&(.`````@````$````4````"@````````/R```#Z@```=``````
  1454. +M+P`````````%G```!:(```7"```%^@``!CP`````````````````````````
  1455. +M``````````````````````````C,7'M]````3VL``````!0`````````````
  1456. +M``````!,8V]N<V]L93H``"5S.B```&EN='5I=&EO;BYL:6)R87)Y````.B``
  1457. +M`#0R``!5;FMN;W=N(&5R<F]R(&-O9&4```H```!T:6UE<BYD979I8V4`````
  1458. +M_____V9I9F\N;&EB<F%R>0```````````````````,P``0```````````,X`
  1459. +M``````````````!&86EL960@=&\@8W)E871E('1I;65R``!U<V5R(&EN=&5R
  1460. +M<G5P=````````$YO(&UE;6]R>0```&$`1F%I;&5D('1O(&-R96%T92!T:6UE
  1461. +M<@``3DE,.@``3DE,.@``3DE,.@``*@!.24PZ``!);G9A;&ED('=I;&1C87)D
  1462. +M("5S`$5R<F]R(&5X<&%N9&EN9R!A<F=U;65N=',`55-%4@``=7-E<@``55-%
  1463. +M4DY!344``$A/344``',Z``!32$5,3`!B:6XZ<V@``$A/4U1.04U%``!A;6EG
  1464. +M80!.24PZ`````)LP('$``$9A:6QE9"!T;R!I;FET:6%L:7-E($DO3P``86UI
  1465. +M9V$@<W!E8VEF:6,@97)R;W(``````?!5;FMN;W=N(&5R<F]R`&YO="!O=VYE
  1466. +M<@!N;R!S=6-H(&9I;&4@;W(@9&ER96-T;W)Y`&YO('-U8V@@<')O8V5S<P!I
  1467. +M;G1E<G)U<'1E9"!S>7-T96T@8V%L;`!I+V\@97)R;W(`;F\@<W5C:"!D979I
  1468. +M8V4@;W(@861D<F5S<P!A<F=U;65N="!L:7-T('1O;R!L;VYG``!E>&5C(&9O
  1469. +M<FUA="!E<G)O<@!B860@9FEL92!N=6UB97(`;F\@8VAI;&0@<')O8V5S<P``
  1470. +M;F\@;6]R92!P<F]C97-S97,`;F]T(&5N;W5G:"!M96UO<GD`<&5R;6ES<VEO
  1471. +M;B!D96YI960`8F%D(&%D9')E<W,`8FQO8VL@9&5V:6-E(')E<75I<F5D`&UO
  1472. +M=6YT(&1E=FEC97,@8G5S>0``9FEL92!E>&ES=',`8W)O<W,M9&5V:6-E(&QI
  1473. +M;FL`;F\@<W5C:"!D979I8V4``&YO="!A(&1I<F5C=&]R>0!I<R!A(&1I<F5C
  1474. +M=&]R>0``:6YV86QI9"!A<F=U;65N=```9FEL92!T86)L92!O=F5R9FQO=P!T
  1475. +M;V\@;6%N>2!O<&5N(&9I;&5S`&YO="!A('1Y<&5W<FET97(``'1E>'0@9FEL
  1476. +M92!B=7-Y``!F:6QE('1O;R!B:6<``&YO('-P86-E(&QE9G0@;VX@9&5V:6-E
  1477. +M`&EL;&5G86P@<V5E:P``<F5A9"UO;FQY(&9I;&4@<WES=&5M`'1O;R!M86YY
  1478. +M(&QI;FMS``!B<F]K96X@<&EP90!M871H(&%R9W5M96YT`')E<W5L="!T;V\@
  1479. +M;&%R9V4``$DO3R!S=')E86T@96UP='D``&9I;&4@;F%M92!T;V\@;&]N9P``
  1480. +M9&ER96-T;W)Y(&YO="!E;7!T>0!T;V\@;6%N>2!S;V9T(&QI;FMS("AL;V]P
  1481. +M/RD````""@```A@```(B```"/````DP```)D```";@```H@```*@```"L@``
  1482. +M`L(```+4```"Y@```O@```,*```#%@```RP```-````#3````UX```-N```#
  1483. +M?@```XX```.@```#M````\@```/:```#Z@```_@```00```$'@``!#0```1$
  1484. +M```$4```!%X```1P```$@@``!)8```2J````)@``9&]O<BXE;'@N)6QX``!.
  1485. +M;R!M96UO<GD```!````@("`@("`@("`H*"@H*"`@("`@("`@("`@("`@("`@
  1486. +M($@0$!`0$!`0$!`0$!`0$!"$A(2$A(2$A(2$$!`0$!`0$(&!@8&!@0$!`0$!
  1487. +M`0$!`0$!`0$!`0$!`0$!$!`0$!`0@H*"@H*"`@("`@("`@("`@("`@("`@("
  1488. +M`@(0$!`0(```````````````````````````````````````````````````
  1489. +M````````````````````````````````````````````````````````````
  1490. +M````````````````````````````````````````````````````````````
  1491. +M```````/H```!JX```````````````````````````````````````````;0
  1492. +M````````````````````````````````````````````````````````````
  1493. +M```````````````````````````````"````@``````-__\````.``X`````
  1494. +M``````````#__P````0`!````````$Q"```'`/__````!``$````````3%@`
  1495. +M`````````````^P````(````````!S0```<@````0@```!H````6````$@``
  1496. +M``X````*````+@````$```<D```&K@``!HP```5>```%6@``!58```52```%
  1497. +M3@``!4H```5&```%0@``!3X```4Z```%-@``!3(```4N```%*@``!28```4B
  1498. +M```%'@``!1H```46```%$@``!0X```4*```%!@``!0(```3^```$^@``!/8`
  1499. +M``3R```$[@``!.H```3F```$X@``!-X```3:```$U@``!-(```3.```$R@``
  1500. +:!,8```(&````X````-0```!@`````````_+:
  1501. +`
  1502. +end
  1503. diff -rup --new-file baseline/fsf/emacs18/amiga/amiga-extra/amiga/c/getstack.uue amiga/fsf/emacs18/amiga/amiga-extra/amiga/c/getstack.uue
  1504. --- baseline/fsf/emacs18/amiga/amiga-extra/amiga/c/getstack.uue    Wed Dec 31 17:00:00 1969
  1505. +++ amiga/fsf/emacs18/amiga/amiga-extra/amiga/c/getstack.uue    Sat Sep 28 00:00:00 1996
  1506. @@ -0,0 +1,8 @@
  1507. +begin 666 getstack
  1508. +M```#\P`````````!```````````````G```#Z0```"=93TCG(!Y)^0````"3
  1509. +MR2QX``1.KO[:*D!#^@!P<"4L>``$3J[]V"9`2H!G-B(M`*SE@2]!`!0@;P`4
  1510. +M(B@`-.6!+P%!^@!2(@@L2R0/3J[\1D_O``0B2RQX``1.KOYB<`!@`G`43-]X
  1511. +M!%A/3G4D5D52.B!G971S=&%C:R`Q+C`@*#(Q+C,N.3,I``!D;W,N;&EB<F%R
  1512. +,>0`E;&0*``````/R
  1513. +`
  1514. +end
  1515. diff -rup --new-file baseline/fsf/emacs18/amiga/amiga-extra/amiga/c/grep.uue amiga/fsf/emacs18/amiga/amiga-extra/amiga/c/grep.uue
  1516. --- baseline/fsf/emacs18/amiga/amiga-extra/amiga/c/grep.uue    Wed Dec 31 17:00:00 1969
  1517. +++ amiga/fsf/emacs18/amiga/amiga-extra/amiga/c/grep.uue    Sat Sep 28 00:00:00 1996
  1518. @@ -0,0 +1,1028 @@
  1519. +begin 666 grep
  1520. +M```#\P`````````"``````````$``"F2```+:@```^D``"F22.=^_B1()`!)
  1521. +M^0`````L>``$1_D```QX<@`@/```"$Q@`B;!4<C__"E/#*@I3@R@)FX!%"`K
  1522. +M`*QG#.6(($`@*``TY8A@!B`/D*L`.B(/DH`&@0```(`I00Q\L*P+P&14("P+
  1523. +MP`:`````@"E`#,@B/``!``%.KO\Z2H!G``'2*4`,Q"(`!H````"`*4`,?-"L
  1524. +M"\`,;@`D`!1M&"E`#,`I00R\DJP,R$'L#+@@@4ZN_21@`BY`0JP,I'``(CP`
  1525. +M`#``3J[^SB9N`11#^@&*<`!.KOW8*4`ME&8&<&1@``#F*6L`F`R<2JL`K&<`
  1526. +M`'X@:P"LT<C1R")H`!#3R=/)(`)R`!(9*4D,K-"!7H`"0/_\*4`,M$CG0$`B
  1527. +M/``!``%.KO\Z3-\"`DJ`9@AP%"\`9P`!%B!`*4`,L"`"4X#4@1&R```@`E."
  1528. +M4<C_]A&\`"`@`E."$;P`(B`"$;$@`"`!4<K_^!"\`"(O"&!*0>L`7$ZN_H!!
  1529. +MZP!<3J[^C"E`#*0O`"1`("H`)&<8+&PME"!`(B@``$ZN_Z`I0`R<(@!.KO^"
  1530. +M(&P,I"\(2&P,>"!H`"0I:``$#*Q.N@"R3KIM_G``8`0@+P`$)&P,J"4`+'@`
  1531. +M!`QN`"0`%&T22JP,N&<,0>P,N%FL#,!.KOTD+DH@+`R49P0@0$Z03KH`;$ZZ
  1532. +M`'0@+`S(9PPB;`S$+'@`!$ZN_RY*K`RD9R`L;"V4(BP,G&<$3J[_IBQX``1.
  1533. +MKO]\(FP,I$ZN_H9@$BQX``0@+`RT9P@B;`RP3J[_+B)L+91.KOYB(!],WW]^
  1534. +M3G5D;W,N;&EB<F%R>0!.^0``A1A.^0``A0!.^0``ADQP82`/44"PK`Q\90`N
  1535. +MY"\-("\`#"(O``@O`"\!3KHNS%!/*D!*@&8*2&P``$ZZ7?!83R`-*E].=2`/
  1536. +MD'P`$+"L#'QE`"ZL2.<!!"XO``PO!TZZ+J0J0$J'5L!$`$B`2,!(>``]2&P`
  1537. +M&DAL`!(O`$ZZ+IA/[P`4(`UF"DAL`"!.NEV>6$\@#4S?((!.=2`/D'P`$+"L
  1538. +M#'QE`"Y82.<!$"XO`!`@;P`,+P<O"$ZZ+F@F0$J'5L!$`$B`2,!(>`!*2&P`
  1539. +M.DAL`#(O`$ZZ+CY/[P`8(`MF"DAL`$!.NEU$6$\@"TS?"(!.=;_L#'QE`"X$
  1540. +M+P(@+P`((&\`#"0`<A_$@7(!Y:'JB.6`(#`(`,"!)!].=;_L#'QE`"W:+P(@
  1541. +M+P`((&\`#"(`ZHGE@70?P()T`>&BA;`8`"0?3G6_[`Q\90`MLB\"("\`""!O
  1542. +M``PB`.J)Y8%T'\""=`'AHD:"Q;`8`"0?3G6_[`Q\90`MB$CG`Q0F;P`8*F\`
  1543. +M%'X`?``GM6@`:`!2AUB&<`B^@&7P3-\HP$YUO^P,?&4`+5H@;P`$<!]R`!#!
  1544. +M4<C__$YUO^P,?&4`+4)(YP$0)F\`#'X`1IM2AW`(OH!E]DS?"(!.=;_L#'QE
  1545. +M`"T@2.<#%"9O`!@J;P`4?@!\`"`U:`"PLV@`9P1P`&`,4H=8AG`(OH!EZ'`!
  1546. +M3-\HP$YU(`]10+"L#'QE`"SD2.<#!"IO`!!^`'P`8!HB;!$D(%'1QB\(+PUA
  1547. +MH%!/2H!F=%*'<"#<@"!L$22^J``$;=P@;!$D("@`!+"H``AM.&`.(&P1)"(H
  1548. +M``C2@2%!``@@;!$D("@`!+"H``ALY"!L$20B*``(ZX$O`2\080#^$%!/(&P1
  1549. +M)""`(&P1)%*H``0@!^N`(FP1)"!1T<`O""\-80#^PE!/(`=,WR#`3G6_[`Q\
  1550. +M90`L/B\'(B\`#"XO``AP`2E`$2PI1Q$H*4$1,"X?3G4@#Y!\`"BPK`Q\90`L
  1551. +M%)[\`"!(YS\$2JP1/&8&</]@``9>2^P1."!5$!@JR'X`'@!3G2E($3@@!W(*
  1552. +MD(%G``-.<AJ0@6<``(Q9@&<``TQ3@&<``V13@&<``MI3@&<``NY7@&<``VYR
  1553. +M$9"!9P`"HG(<D(%G``.:4X!G``$:58!G#'(>D(%G``+H8``%;@@L``41*V8>
  1554. +M2JP10&<`!5X(+``#$2MG#B!L$3A3B+'L$31F``5(0JP10`@L``,1*V<*(#P`
  1555. +M``$#8``%N"`\```!`F``!:X(+``%$2MF``"@("P1/&<``)@(+``#$2MF``4,
  1556. +M""P``!$K9QA*@&\0(&P1.!(0="FR`F8$=@%@)G8`8")R`;"!;QH@;!$X%!!V
  1557. +M7+0#9@X8*``!=BFX`V8$=@%@`G8`2H-F1@@L``$1*V<82H!O$"!L$3@2$'1\
  1558. +ML@)F!'8!8"1V`&`@<@&P@6\6<%P@;!$XL!!F#'!\L"@``68$<`%@`G``)@!*
  1559. +M@V<`!(`(+``#$2MG"B`\```!!6``!/1P0>6(8``$[$JL$3QF"DAL`&9.NEFN
  1560. +M6$]+[!$X(%40&"K(?@`>`%.=*4@1."`'<BB0@6<``3)3@&<``3I5@&<``0Q=
  1561. +M@&=.4X!G2E.`9T93@&="4X!G/E.`9SI3@&<V4X!G,E.`9RY7@&<^58!G2%.`
  1562. +M9P``SE>`9UAR%9"!9V!R"Y"!9T!R%9"!9U1;@&<``,I@``/:0JP10'`!*4`1
  1563. +M1"`\```!`6``!$Q"K!%`(#P```$&8``$/D*L$4`@/````0=@``0P0JP10'!"
  1564. +MY8A@``0D0JP10"`\```!"6``!!9(;P`<80#\4%A/?`!P?[R`8AAP!T'L"KW`
  1565. +M,&@`9PQ(;P`<+P9A`/NP4$]2A@R&```!`&W8<%>^@&8*2&\`'&$`_"Y83T*L
  1566. +M$4!P`2E`$41(;P`<80#\=`:````!$5A/8``#M`@L``(1*V<``R1@0`@L``(1
  1567. +M*V<``QA@<@@L``$1*V8``PQ@``"(""P``!$K9@`"_F```*0(+```$2MF``+P
  1568. +M8```M`@L``(1*V8``N((+``%$2MF"$JL$41G``+2(#P```$*8``#3@@L``41
  1569. +M*V8(2JP11&<``K@@/````0M@``,T""P``A$K9@`"I`@L``41*V8(2JP11&<`
  1570. +M`I1P0^6(8``#$@@L``$1*V<``H)P`2E`$4!"K!%$(#P```$.8``"]`@L``01
  1571. +M*V;D8``"8@@L```1*V<``EAP`2E`$4!"K!%$(#P```$/8``"R@@L```1*V<`
  1572. +M`CI"K!%`<`$I0!%$<$3EB&```JY(;P`<80#ZZ$AO`"!A`/KX2&\`)$AX``IA
  1573. +M`/I\0JP10'`!*4`11$AO`"QA`/LT!H````$13^\`%&```G)(;P`<80#ZK%A/
  1574. +M2JP1/&8*2&P`B$ZZ5RI83TOL$3@@51`8*LA^`!X`4YTI2!$X<%Z^@&8H2JP1
  1575. +M/&8*2&P`I$ZZ5P!83TOL$3@@51`8*LA^`!X`4YU\`2E($3A@`GP`2JP1/&8*
  1576. +M2&P`P$ZZ5M983TOL$3@@51`8*LAZ`!H`4YTI2!$X<"VZ@&8``,!*K!$\9@I(
  1577. +M;`#<3KI6JEA/2^P1."!5$!@JR'H`&@!3G2E($3A@;DAO`!PO!V$`^7I03TJL
  1578. +M$3!G6G!_OH!B*$OL"KW;QP@5``!G'`@5``!G""`'<B#0@6`"(`=(;P`<+P!A
  1579. +M`/E&8"J^@&(H2^P*O=O'"!4``6<<"!4``6<((`=R()"!8`(@!TAO`!PO`&$`
  1580. +M^1I03U*'OH5OCDJL$3QF"DAL`/A.NE826$]+[!$X(%40&"K(?@`>`%.=*4@1
  1581. +M.&!N2&\`'"\'80#XXE!/2JP1,&=:<'^^@&(H2^P*O=O'"!4``&<<"!4``&<(
  1582. +M(`=R(-"!8`(@!TAO`!PO`&$`^*Y@*KZ`8BA+[`J]V\<(%0`!9QP(%0`!9P@@
  1583. +M!W(@D(%@`B`'2&\`'"\`80#X@E!/+@5P7;Z`9@#^HDJ&9PI(;P`<80#Y`EA/
  1584. +M0JP10'`!*4`11$AO`!QA`/E(!H````$16$]@``"(0JP10'`!*4`11$JL$3!G
  1585. +M='!_OH!B;DOL"KW;QW`#P!5G8DAO`!QA`/B@6$\(%0``9Q((%0``9P@@!W(@
  1586. +MT(%@`B`'+@!(;P`<+P=A`/?\4$]![`J]"#```7@`9P@@!W(@D(%@`B`'2&\`
  1587. +M'"\`80#WVDAO`"1A`/C$!H````$13^\`#&`"(`=,WR#\WOP`($YU(`]10+"L
  1588. +M#'QE`'[$+P<N+P`((&P1)"`H`!"PJ``4;3Q@#B!L$20B*``4TH$A00`4(&P1
  1589. +M)"`H`!"PJ``4;.0@;!$D(B@`%.6!+P$O*``,80#VY%!/(&P1)"%```P@;!$D
  1590. +M(B@`$%*H`!#E@2)L$20@:0`,(`<A@!@`!(````$`9R9R"I"!9R13@&<@4X!G
  1591. +M'%.`9P93@&<"8`93K!%,8`P@;!$D4J@`'%*L$4P@+!%,(&P1)+"H`!AO!"%`
  1592. +M`!@N'TYU(`]90+"L#'QE`'X$("P12&L(#(````$`;4`,@````1%L.`R````!
  1593. +M`6<P#(````$"9R@,@````01G(`R````!!F<8#(````$'9Q`,@````0AG"`R`
  1594. +M```!"682+P!A`/[B80#X5EA/*4`12&`\#(````$/9BIA`/A"*4`12&$``*P,
  1595. +MK````1`12&<*2&P!!DZZ4W983V$`^"(I0!%(8`I(>`$`80#^G%A/3G4@#UE`
  1596. +ML*P,?&4`?5IA`/](8!(O+!%(80#^?F$`]_)83RE`$4@@+!%(#(````$*9^(,
  1597. +M@````0MGV@R````!#&?23G4@#UE`L*P,?&4`?1AAL&`,8:Q(>`$-80#^/%A/
  1598. +M("P12`R````!$&<4#(````$.9PP,@````05G!$J`:M1.=2`/64"PK`Q\90!\
  1599. +MVF&T8!1A`/=\*4`12&&H2'@!#F$`_?983PRL```!#A%(9^).=2`/64"PK`Q\
  1600. +M90!\JDCG`!0@+P`0)F\`%"!O``PI2Q$D2^P1/"K`<`$JP$*=*4@1-"E($3A*
  1601. +MK!$L9@I(;`$43KI2;%A/80#W&"EK`!@13"E`$4@,@````0-F($AX`0)A`/V&
  1602. +M80#V^BE`$4AA`/]D2'@!#6$`_7)03V`$80#_5`RL```!!1%(9AI(>`$$80#]
  1603. +M6$AX`0UA`/U080#VQ%!/*4`12'#_L*P12&<*2&P!*$ZZ4?Q83W#_D*L`("\`
  1604. +M80#]*$AX`0UA`/T@4$]*JP`@9PI(>`$.80#]$%A/4JL`($S?*`!.=;_L#'QE
  1605. +M`'O*2.<#%"9O`!@J;P`4?@!\`&`0(%/1QB)5T\8@V2#94H=0AKZM``1MZB=M
  1606. +M``0`!$S?*,!.=2`/D'P`$+"L#'QE`'N(GOP`$$CG!S8J;P`X?@!\`"HM``1@
  1607. +M!%*'4(:^A6P,(%71QB`O`#"PD&7L("T`!+Z`;!PB!^>!(%71P29((B\`,+*3
  1608. +M9@HB+P`T@ZL`!&!`0>\`,$/O`"0BV"+84JT`!"P'YX9@)"!5(DC3QD7O`!PL
  1609. +M2BS9+-E2A]'&0^\`)"Q)(-X@WB+:(MI0AKZM``1MUDS?;.#>_``03G4@#UE`
  1610. +ML*P,?&4`>N193TCG+S9^`'P`(&\`-$*H``1Z`$*O`"1@``"`)E/7Q2@O`"0D
  1611. +M4M7$(A(D$[2!4L!$`$B`2,`B+0`$YX$J5=O!2H!G$"!O`#12J``$4H<JVRK;
  1612. +M8$12AE"O`"2TDF0.(&\`-%*H``0JVBK:8"Y2ARK;*ML@;P`T(B@`!%*H``3G
  1613. +M@2!O`#0F4-?!+&\`,"I6V\0@+0`$@:L`!%"%)F\`+"IO`#0D;P`POJL`!&P(
  1614. +MO*H`!&T`_VHH!^>$8!HB+0`$4JT`!%*'(%/1Q.>!(E73P2+8(MA0A+ZK``1M
  1615. +MX"X&YX=@&B(M``12K0`$4H8@4M''YX$B5=/!(M@BV%"'O*H`!&W@3-]L]%A/
  1616. +M3G6_[`Q\90!YU$CG!P0J;P`<?@!\`"HM``1@$"!5("\`%+"P:`!G"%*'4(:^
  1617. +MA6WL("T`!+Z`;"!3K0`$+`?GAF`0(%71QD/H``@@V2#94H=0AKZM``1MZDS?
  1618. +M(.!.=2`/D'P`)+"L#'QE`'ERGOP`'$CG/S9-[P!,)EXJ;P!(?`!*GE;`<@"2
  1619. +M`"]!`#Q*GE;`=`"4`'@`*BL`!'X`+T(`,&`0(%/1QR`0T*@`!+&&4H10A[B%
  1620. +M;>P@!G@`?``B+0`H+T``."]!`#1@="1M`"35QKZ29F0@*P`$(BH`"+*`9E@2
  1621. +M*@`,2(%(P;J!9DP2*@`-2(%(P20O`#"T@68\?@!X`"HK``1@'B!3T<0B:@`$
  1622. +MT\0@*``$L*D`!&8.(!"PD68(4H=0A+Z%;=XH+P!`OJL`!&8&(`1@``'J4H1P
  1623. +M%-R`+T0`0"XO`#@J+P`\N*\`-&T`_WH@+0`HL*T`+&TR8`HB+0`LTH$K00`L
  1624. +M("T`*+"M`"QL["`M`"PB`.6!TH#E@2\!+RT`)&$`\+Q03RM``"0@!.6`T(3E
  1625. +M@"@`)&T`)-7$)(<B*P`$YX$O`6$`\$0E0``$(&T`)-'$0^@`!"Z)+PMA`/Q,
  1626. +M4$\@;0`DT<1-Z``,',4B+P`P',%"'D(H``]"J``0>@!^`"PO`$!@``$H(E/3
  1627. +MQR(1Y8$D;0`,(#(8`&H``.XH*0`$(B\`/%;!=`"4`90!6()R`28!Y:/&A&<6
  1628. +M("\`,%;`=@"6`)8`)`'GHL2$9@``@B`O`#Q6P'8`E@"6`%B#)`'GHL2$9Q8@
  1629. +M+P`P5L!V`)8`E@!2@R0!YZ+$A&94("\`/%;`=@"6`)8`6H,D`>>BQ(1G%"`O
  1630. +M`#!6P'8`E@"6`"0!YZ+$A&8J2J\`/%;"=@"6`I8"6H,D`>>BQ(1G)DJO`#!6
  1631. +MPG8`E@*6`E*#YZ'"A&<2)`;E@M2&Y8(L;0`DW<*)+@`/(`;E@-"&Y8`B;0`D
  1632. +MT\!*J0`09C8L4R0V>`#E@BQM``PC=B@``!!@(@R````!`68:(`;E@-"&Y8`@
  1633. +M;0`DT<`1?`#_``\1?``!``Y2A5"'NJL`!&T`_M12K0`H(`9,WVS\WOP`'$YU
  1634. +M(`^0?``DL*P,?&4`=J:>_``<2.<'-BIO`$`B+0`0Y8$O`6$`[J!83WX`)D`O
  1635. +M0``<8`1"FU*'OJT`$&WV?@!@``$L+`?GAB13U<8B$N6!)FT`#"`S&``,@```
  1636. +M`0!M``$,#(````$!9P`!`@R````!$6P``/@@2D/O`"@BV"+8+V\`+``T(F\`
  1637. +M/"!1T<9-[P`@+-@LV"\)3>\`))[\``@B3W`'$MY1R/_\80#\+D_O``PB+P`H
  1638. +MY8$F;P`<U\%*DV<&4X=@``"F<@$F@2(O`"CE@2!M``S1P2`0!(````$";40,
  1639. +M@`````AL/-!`,#L`!D[[``0`#@`P`!(`,``6`!P`(@`H<#!@&'!08!1P>="`
  1640. +M8!!P>M"`8`IP>]"`8`1P!D8`P:\`-'X`?``J+P`HYX4D;P`\8"@B4R]Q:```
  1641. +M,"\*0^\`-)[\``@L3W`''-E1R/_\80#YS$_O``Q2AU"&)FT`,-?%OJL`!&W,
  1642. +M?O]2AR9O`#R^JP`$;0#^S"\O`!Q.NG:86$],WVS@WOP`'$YU(`^0?`!4L*P,
  1643. +M?&4`=1J>_`!$2.</-BIO`&@K;P!L`#0B+0`8Y8$O`6$`[0XB+0`8Y8$N@2]`
  1644. +M`&0O0``T80#L^B(M`!SG@2Z!+T``8"]``#!A`.SF(BT`'.>!($`B0-/!(BT`
  1645. +M&.6!+H$O0``L+TD`7&$`[,8B+0`<YX$N@2]``%@O0``H80#LLB(M`!SG@2!`
  1646. +M(D#3P2(M`!#E@2Z!+T``)"])`%1A`.R26$\D0'X`)D!@!$*;4H>^K0`0;?8B
  1647. +M+0`<YX$O`6$`['(O0`!$2'@`""\M`!!A`.PL3^\`#"M``#!^`"]*`#1\`&``
  1648. +M`T`J;P!4(`?E@"!K``P@,`@`!(````$`9R!R"I"!9P``[%.`9SA3@&<T4X!G
  1649. +M``$`4X!G``)68``"D'`!(&\`8"#`0^T`!$*5+&\`7$*>+T@`8"])`%0O3@!<
  1650. +M8``"W"!O`%PO:/_\`$PO;P!8`$AZ`"IO`%!@``"*(A7G@2!K`##1P4AO`$`O
  1651. +M"$AO`%!A`/C`3^\`#"(5Y8$@+P!$4X"PLA@`;3Y@!B(3TH$F@2(5Y8$F2M?!
  1652. +M("\`1%.`L)-LZ"`5(@#G@2)O`&@F:0`PU\'E@"`R"`#G@"\`+Q-A`.O&4$\F
  1653. +M@"9O`&@B%>>!(&L`,-'!+PA(;P!$80#W=%!/4H50C2!O`%2ZJ/_\;0#_;B`'
  1654. +MY8`@:P`,#+````$,"`!G``(:<`$@;P!@(4#__&```@P@;P!<+VC__`!,+V\`
  1655. +M6`!(>@`B+?_\YX$J;P!0V\%@``"*(A7G@2!K`##1P4AO`$`O"$AO`%!A`/?H
  1656. +M3^\`#"(5Y8$@+P!$4X"PLA@`;3Y@!B(3TH$F@2(5Y8$F2M?!("\`1%.`L)-L
  1657. +MZ"`5(@#G@2)O`&@F:0`PU\'E@"`R"`#G@"\`+Q-A`.KN4$\F@"9O`&@B%>>!
  1658. +M(&L`,-'!+PA(;P!$80#VG%!/4H50C2!O`%2ZJ/_X;0#_;B9O`&`J;P!<2JO_
  1659. +M^&<*("W__-&M__A@"B(M__SG@=.O`%@@35F(*F\`5"](`%Q*J__\9PH@+?_\
  1660. +MT:W_^&`^(BW_^.>!)F\`4-?!*BW__%.%*`7GA&`2(&\`4-'$(DO3Q"+8(MA3
  1661. +MA5&$2H5JZB(M__CG@=.O`%`K;?_\__A9C29O`&`O30!42JO__&<*2JO_^&<$
  1662. +M<`%@`G``)T#_^%F++TL`8&```+!-[P!<(%8@*/_\T:C_^%F>("W__-&M__A9
  1663. +MC29>+TT`5$JK__QF"DJK__AF!'``8`)P`2=`__A9BR]+`&!@<"`'Y8`@:P`,
  1664. +MT<`,D````0%7P$0`2(!(P")O`&`BP$'M``1P`2J`+&\`7"S`4:\`6$OO`%!1
  1665. +MG2('*L@@;P!0(($O20!@(ETB@7(`1@$A00`$(T$`!"!O`#0@@"9K`##7QDAX
  1666. +M``@O3@!@80#I'%A/)H!2AUBO`#10AB9O`&B^JP`0;0#\N'X`?`!Z`&!Z*FL`
  1667. +M#"`U:``,@````0!M$`R````!`6<(#(````$1;50@:P`PT<5(;P!`+PAA`/3J
  1668. +M+HM(;P!(80#Y_D_O``PF:P`PU\4@+P!$(BL`!+*`;`[G@"\`+Q-A`.CV4$\F
  1669. +M@"9O`&@@:P`PT<4O"$AO`$1A`/2H4$]2AUB&4(6^JP`0;8!"KP!$?@`F;P!8
  1670. +M*F\`7&`L($M#[P`X(M@BV$AO`$!#[P`\GOP`""Q/<`<<V5'(__QA`/2B3^\`
  1671. +M#%*'4(N^K?_\;<XJ;P!H+PU(;P!$80#Y:%!/?`!^`"HO`$0F;P!`8!IP,,"K
  1672. +M``1R8-*!PJL`!.2)LH!G`GP!4H=0B[Z%;>)P`2M``"Q"K0`H2'@`%&$`Y^PK
  1673. +M0``D0I<O!DAO`$@O#6$`]DHNKP!`3KIQ)"ZO`#Q.NG$<+J\`.$ZZ<10NKP`T
  1674. +M3KIQ#"ZO`#!.NG$$+HI.NG#^+J\`4$ZZ</9/[P`03-]L\-[\`$1.=2`/D'PH
  1675. +MS+"L#'QE`&]VGOPHO$CG+S9"KP#<2JP-#&8^<`$I0`T,?`!P?[R`8AAP!T'L
  1676. +M"KW`,&@`9PQ(;`S,+P9A`.@J4$]2A@R&```!`&W82&P,[$AX``IA`.@24$](
  1677. +M;P"T80#HB%A/0J\`6$*O`#A+[P#@0>\@X"`O*.0B`.6!TH#E@21O*.@O00`D
  1678. +M+T@`,&```P(@:P`$T>\`.$/O`-0BV"+8(B\`U.6!)FH`#"`S&`!K%`R````!
  1679. +M`&P,2&\`M"\`80#GJ&`@#(````$1;0`"O`2````!$>N`(%+1P$AO`+0O"&$`
  1680. +MY]A03R`O`-AR`$8!L(%G``#V(&H`)-'&2B@`#%;!=`"4`90!6H)R`>6AP(%F
  1681. +M#DAO`+1(>``*80#G=E!/)FH`)-?&2BL`#%;`<@"2`)(`6(%P`>.@(B\`V,*`
  1682. +M9AY\`'X`0>\`M$/L#.P@,7@`P;!X`%*&6(=P"+R`9>9**P`-5L!R`)(`D@!2
  1683. +M@7`!XZ`B+P#8PH!F('P`?@!![P"T0^P,S"`Q>`!&@,&P>`!2AEB'<`B\@&7D
  1684. +M2BL`#5;`<@"2`)(`<`'CH"(O`-C"@&8>?`!^`$'O`+1#[`S,(#%X`,&P>`!2
  1685. +MAEB'<`B\@&7F?`!'[P"T8`12AEB+<`B\@&0$2I-G\E&&9P`!HGH`1>\`X"]-
  1686. +M`$`O;P`P`#Q+[R#@8``!*B(O`-3E@2)O*.@F:0`,(#,8`&L8#(````$`;!`O
  1687. +M"B\`80#F'%!/2H!G``#V>`!\`'X`0>\`D$/O`+0@,7@`P+)X`"&`>`!G`G@!
  1688. +M4H98AW`(O(!EWDJ$9P``R$*O`+!"KP!L?`!^`$?O`+37QR@3*C)X`$'O`'`@
  1689. +M!$:`P(4A@'@`9P9P`2]``&Q&A<B%)H1G!G`!+T``L%*&6(=P"+R`9<8L+P#<
  1690. +M2J\`;&=6)F\`0"\+2&\`=&$`Y@0NBDAO`)AA`.7Z(&\H]"(H`!SG@2Z!80#D
  1691. +MP"!O`$@@@"Z(+PUA`/#03^\`$%*&+T8`W$'K`"!0KP`\<"#1KP`T4*\`,"](
  1692. +M`$`B+0`$4JT`!.>!(%71P4/O`-0@V2#9*B\`5$JO`+!G%E*%U/P`(%"-+T4`
  1693. +M5"PO`-RZAFT`_LPJ;P`T)&\HZ+J&9D8O#4AO`+AA`.5P2&\`O&$`Y98B*@`<
  1694. +MYX$N@6$`Y#)/[P`,(&\`,""`<@$A00`$(E!-[P#4(MXBWE*&VOP`(%"O`#`O
  1695. +M1@#<4J\`6%"O`#@O30`T+"\`)"9J`"37QB`O`%BPJP`(;0#\Z"(J`!SG@2\!
  1696. +M80#CW"]``&@B*@`<YX$N@6$`X\Q83WP`*F\H["]``"A*J@`T9P``Z'H`0J\`
  1697. +M7"1J`"0H*@`(?@!@."9J``37QW`PP*L`!')@TH'"JP`$Y(FR@&<">@%P`\"K
  1698. +M``1R#,*K``3DB;*`9P9P`2]``%Q2AE"'O(1MQ$AO`&1(:@`$80#O?"9O*/!P
  1699. +M`"Z`+P!(;P!P+PMA`/&Z3^\`%"@`2H5G&$*G2'@``4AO`&PO"V$`\:!/[P`0
  1700. +M*@!@`BH$2J\`7&<82'@``4*G2&\`;"\+80#Q@$_O`!`N`&`"+@1\`"9-<`J\
  1701. +M@&8$)H5@&'!_O(!B$'`'0>P*O<`P:`!G!":'8`(FA%*&6(L,A@```0!MTF`0
  1702. +M)DUP_R;`4H8,A@```0!M\D*O`%A%[R#@0>\`X"](`"Q@``(:0J\`:'H`>`!@
  1703. +M4'P`?@!@+B!3T<=#[P!,(M@BV$AO`&1#[P!0GOP`""Q/<`<<V5'(__QA`.[2
  1704. +M3^\`#%*&4(<@4B(P2`#G@2)O*.@F:0`PU\&\JP`$;;I2A5"$NJH`!&VJ)F\H
  1705. +MZ$JK`#1G1'P`?@!@-"!K`"0B:``$T\=![P!$(-D@V4AO`&1#[P!(GOP`""Q/
  1706. +M<`<<V5'(__QA`.YL3^\`#%*&4(<@:P`DO*@`"&W">@`O+P`L2'@`"F$`XJ!0
  1707. +M3TJ`9RI\`"XO`&@F;P!D8!IP,,"K``1R8-*!PJL`!.2)LH!G`GH!4H90B[R'
  1708. +M;>)X`'X`?``F;P`L(#-H`$'L#,S`L&@`9@I2AUB&<`B^@&7H<`B^@&0H?``N
  1709. +M+P!H)F\`9&`8<`/`JP`$<@S"JP`$Y(FR@&<">`%2AE"+O(=MY"9O*.AP`"\`
  1710. +M+P!(;P!L+PMA`._.3^\`$"P`+T``)$J%9QI"ITAX``%(;P!L+PMA`.^P3^\`
  1711. +M$"]``&!@!"]&`&!*A&<82'@``4*G2&\`;"\+80#OCD_O`!`J`&`"*@9"KP!4
  1712. +M)F\`+'@`8%Q^`'`![Z`D$\2`9SXL!-R'<@J\@68*Y88KKP!@:`!@*G)_O(%B
  1713. +M%'('0>P*O<(P:`!G".6&*X5H`&`0#(8```$`;`CEABNO`"1H`%*'<""^@&6P
  1714. +M4J\`5%B+<"#8@`RO````"`!499I2KP!84(IP(-&O`"PN+P#<("\`6+"';0#]
  1715. +MW'P`1^\@X&`,+Q-.NFG,6$]2AE"+O(=M\"\O`&1.NFFZ+J\`+$ZZ:;)83TS?
  1716. +M;/3>_"B\3G4@#Y!\`!2PK`Q\90!H-%%/2.<_-"IO`#0H+P`P#*T```0``#QM
  1717. +M2'P`>@!@-B!M`$`@,%@`9PXO`$ZZ:6I83R!M`$!@%B!M`$@@,%@`9Q`O`$ZZ
  1718. +M:5)83R!M`$A"L%@`4H98A;RM`#AMQ'``*T``/%*M`#PL!.6&(`8B;0!,0K$(
  1719. +M`"($Y8'2A.6!)FT`)-?!+T``*"]!`"04*P`,5L)V`)8"E@):@W0!YZ(6*P`/
  1720. +MQ`-G(!0K``U6PG``D`*0`G0!X:+$`V<,(FT`3-/&".D``@`#$"L`#%;`=`"4
  1721. +M`)0`6()P`28`Y:,4*P`/Q@)G(A8K``U6PW(`D@.2`U*!)@#CH\8"9PPB;0!,
  1722. +MT\8(Z0`!``-**P`,5L%T`)0!E`%8@B(`Y:$4*P`/P@)G'DHK``U6P78`E@&6
  1723. +M`>>@Q`!G#"!M`$S1Q@CH`````TAX!`!A`-\&)D`N@"\-+P1A`/=F3^\`#'X`
  1724. +M)$M@``"J("T`."(2LH!M``":*@!@"B(M`#C2@2M!`#@@$K"M`#AL[B(M`#A2
  1725. +M@>6!+P$O+0!$80#?#BM``$0@0$/H``0K20!`(BT`..6!+H$O+0!(80#>\"M`
  1726. +M`$@B+0`XY8$N@2\M`$QA`-[<*T``3"(M`#CE@2Z!+RT`4&$`WLA/[P`4*T``
  1727. +M4"@M`#@L!>6&8!0@;0!`0K!H`%*%(&T`2$*P:`!8AKJ$;>A2AUB*#(<```$`
  1728. +M;0#_4"(O`"@@;0!0(:L`*!@`</\G0``H(&T`)-'O`"1**``/9P8@;0!(8`0@
  1729. +M;0!`(8L8`$S?+/Q03TYU(`]10+"L#'QE`&7F+PTJ;P`(<`$K0``X0JT`/$AX
  1730. +M``1(>``"80#=IBM``$0@0$/H``0K20!`2'@`!"\M`#AA`-V,*T``2"(M`#CE
  1731. +M@2Z!80#=LBM``$PB+0`XY8$N@6$`W:(K0`!0+HU"IV$`_41/[P`4*E].=2`/
  1732. +M44"PK`Q\90!E<$CG#S9*K!$09CQP`2E`$1!^`$OL#1!P"KZ`9@1P!&`8<'^^
  1733. +M@&(0<`=![`J]P#!X`&<$<`)@`G`!*H!2AUB-#(<```$`;=`J;P`D2JT`.&8(
  1734. +M+PUA`/\J6$]\`"9O`"@D;0!`(&\`+!"\``H@!N6`*G((`"`-9SAP`!`;2,#E
  1735. +M@"HU"``@!>6`*G((`"`-9QIP`!`;2,#E@"PU"``@!N6`*G((`"`-9M!@!B`&
  1736. +M+`4J`$J&:VP@;P`LM\AB9"@&Y80L;P`D*FX`2-O$2I5G4G``$!-(P"X`Y8<B
  1737. +M;@!,(#%(`$/L#1#`L7@`9R@J;P`X(`UG'"`&Y8#0AN6`(FX`)-/`2BD`#F<&
  1738. +M<`$J@&`"0I4@"V!P*@92BR)5+#%X`&``_TXJ;P`L2J\`-&<2M\UB#G`*L"O_
  1739. +M_V8&(&\`-%*0M\UE!'``8#XJ;P`D2H9K$B\-+P9A`/O>4$\D;0!`8`#_$'`*
  1740. +ML"O__V862J\`,&<0(`7E@"!M`%`L,`@`8`#^\GP`8`#^[$S?;/!.=2`/64"P
  1741. +MK`Q\90!CWB\-*F\`"'`!*T``"$AX`"!A`-O<*H!"K0`$<`$K0``42'@`!&$`
  1742. +MV\@K0``,0JT`($*M`!Q"K0`80JT`$$*M`#1"K0`X4$\J7TYU(`^0?``,L*P,
  1743. +M?&4`8X9(YP<T+"\`*"XO`"`F;P`D*F\`'$JL$3!G``"^+P=.NF9L6$\D0$J`
  1744. +M9@I(;`$V3KHY3%A/0JP1,'H`8$@@3='%$!!R?[`!;C9(@$C`0^P*O0@Q```(
  1745. +M`&<F$!!(@$C`"#$```@`9PP0$$B`2,!R(-"!8`80$$B`2,`5@%@`8`05D%@`
  1746. +M4H6ZAV6T+PMA`/\00JL`AD(K`%0NBR\'+PIA`.8R+HI.NF1$+HMA``3^+H8O
  1747. +M"V$`[:QP`2E`$3`NBV$`_MXNBR\'+PUA`.8(+H8O"V$`[8Y/[P`<8"(O"V$`
  1748. +M_L`NBR\'+PUA`.7J+HMA``2\+H8O"V$`[6I/[P`03-\LX$YU(`]90+"L#'QE
  1749. +M`&)Z2.<#!"IO`!`O%4ZZ8]`NK0`,3KICR%A/?@!\`&`6(&T`)-'&+R@`!$ZZ
  1750. +M8[)83U*'<!3<@+ZM`"AMY"\M`"1.NF.<6$]^`'P`8!8@;0`P(#!H`&<(+P!.
  1751. +MNF.$6$]2AU"&OJT`$&WD+RT`,$ZZ8W!83WX`?`!@*"!M`$`@,&@`9P@O`$ZZ
  1752. +M8UA@$"!M`$@@,&@`9P@O`$ZZ8T983U*'6(:^K0`X;=(O+0!$3KIC,BZM`$A.
  1753. +MNF,J6$\@;0!0+T@`$$S?(,!.^F,8(`]10+"L#'QE`&&H2.<#%"IO`!@F;P`4
  1754. +M(`UF!'``8`P@34H89OQ3B)'-(`@N`"`+9@1\`&`02H=G/B!+2AAF_%.(D<LL
  1755. +M""`+9@Q2AR\'3KID:EA/8!`@!M"'4H`O`"\+3KIB+%!/)D`@"V<,(`UG""!+
  1756. +MT<80W6;\(`M,WRC`3G4@#U%`L*P,?&4`82@@;P`$+PA"IV$`_VI03TYU(`^0
  1757. +M?``,L*P,?&4`80I(YP$4*F\`%"!-2AAF_%.(D<TN""9O`!!@&"\'+PTO"TZZ
  1758. +M82)/[P`,2H!F!"`+8`A2BTH39N1P`$S?*(!.=2`/64"PK`Q\90!@P"!O``0@
  1759. +M"&<(+PA.NF(66$].=2`/64"PK`Q\90!@HDCG`!0J;P`,(`UG$B9-8`HO$TZZ
  1760. +M8?!83T*;2I-F\DS?*`!.=2`/44"PK`Q\90!@<DCG!S0N+P`D*F\`'"`-9@9P
  1761. +M`&```*HO+P`@80#_(EA/)D!*@&8,+PUAFEA/<`!@``".0C-X`'P`)$U@'B\+
  1762. +M+Q)A`/\84$]*@&<,+PM.NF&&6$\@#6!H4H98BDJ29MYZ`"`&Y8`D3=7`8"@O
  1763. +M%2\+80#^ZE!/2H!F!E*%6(U@%"\53KIA4EA/4X99BKR%9P@JDD*22I5FU"(&
  1764. +M5('E@2\!+R\`($ZZ8*A03R!`2H!F!'``8`SEAB&+:`!"L&@$(`A,WRS@3G4@
  1765. +M#Y!\``RPK`Q\90!?H$CG`S0J;P`8(`UG!DJO`!QF!G``8```@$AX``1.NF*(
  1766. +M6$\F0$J`9@1P`&!J0I,D36!>?@`0$DB`2,`O`"\O`"!.NE^`8"A\`6`"4H80
  1767. +M,F@`9P:P-6@`9_*\AV\"+@80$DB`2,`O`$AM``%.NE]64$\J0"`-9M!*AV<4
  1768. +M+P<O"B\+80#^H$_O``PF0$J`9P92BDH29IX@"TS?+,!.=2`/D'P`#+"L#'QE
  1769. +M`%[V2.<`-"9O`!0J;P`0(`UG!"`+9@1P`&`L)$M@(B!2(`A*&&;\4XB1P"\(
  1770. +M+P`O#6$`_DA/[P`,*D!*@&<&6(I*DF;:(`U,WRP`3G4@#Y!\``RPK`Q\90!>
  1771. +MGEE/2.<`-"IO`!0@#6<&2J\`&&8$<`!@;$AX``1.NF&&6$\F0$J`9@1P`&!8
  1772. +M0I,D36!(*F\`&&`X+Q4O$F$`_K)03R1`2H!F#"\+80#]I%A/<`!@,"\*+PMA
  1773. +M`/]`)D`NBF$`_8Y03R`+9@1P`&`66(TD;P`,2I5FP%B*+TH`#$J29K`@"TS?
  1774. +M+`!83TYU(`]90+"L#'QE`%X&2.<`)"IO``P@;0`$(FT`""1M``Q"$D(10A`@
  1775. +M52](``Q,WR0`8`#],B`/D'P`(+"L#'QE`%W0GOP`%$CG/S8F;P!`0JL`AD(K
  1776. +M`%0B*P`04H'I@2\!3KI@MEA/*D`O0``L9P`$6B1-?@!@%$'L$10B32+8(M@B
  1777. +MV"+84H?:_``0OJL`$&_F?@`J2F!H2'@`!$ZZ8'PJ@$AX``).NF!R*T``!$AX
  1778. +M``).NF!F*T``"$AX``).NF!:3^\`$"M```PB%6<``X(D+0`$9P`#>B8M``AG
  1779. +M``-R2H!G``-L(&T`!")M``@L0$(60A%"$"!50I!2A]K\`!"^JP`0;Y)![`%$
  1780. +M0J\`-$*O`#`O2``X8``#*"!M``S1[P`P+A`F;P`L(`=2@&<``7H$@````0%G
  1781. +M4%.`9TQ3@&=(4X!G``,,4X!G/E.`9P`#`E.`9S13@&<P4X!G+%.`9RA3@&<P
  1782. +M4X!G+%.`9P`!*%.`9P`!?%.`9S)3@&<``M13@&<``LY@``)0+PIA`/YV6$]@
  1783. +M``*BM<MC``*XE/P`$"\*80#^8%A/8``"C$'K`""UR&4``IXF2I;\`!"4_``@
  1784. +M(&H`#")K``P0&+`99@9*`&;V9P8@:@`,0A!^`"IJ``1@`E*'$#5X`&<*(&L`
  1785. +M!+`P>`!G[B!J``1",'@`(&H`""`(2AAF_%.(D<`J""!K``@@"$H89OQ3B)'`
  1786. +M*`@N!;Z(;P(N!'P`8"`@!)"&(&L`"-'`(`60AB)J``C3P!`I__^P*/__9@92
  1787. +MAKR';=Q^`&`4(&H`"")((`60AM"'$[`(`'@`4H>^AFWH(&H`"$(P>``O$R\2
  1788. +M80#\]%!/*D!*@&<``=(O$F$`^N(NDDZZ7.Q83R2-8``!HK7+8P`!N)3\`!`@
  1789. +M:@`,0A!@``&.0>L`$+7(9@`!H'X`1>P!1&`D(%4@"$H89OQ3B)'`+`@@2DH8
  1790. +M9OQ3B)'*O(AC!B!3)'!X`%B'*E/;QTJ59M0O2@`X8``!9$'K`""UR&4``5HF
  1791. +M2I;\`!"4_``@+Q,O$F$`_`A03R2`9P`!0"IJ``A*%6=2(&L`!$H09THO#6$`
  1792. +M^;I83RI`2H!G``$@+RL`!"\-80#Y)E!/*D!*@&<``0P@34H89OQ3B)'-+P@O
  1793. +M#2\280#Z/B2`+HU.NEP63^\`#$J29P``YB!J``Q*$&<6+RL`!"\J``1A`/CB
  1794. +M4$\E0``$9P``R"!K``Q*$&8&(&H`"$(0+RL`""\J``AA`/B^4$\E0``(9P``
  1795. +MI"!J``Q*$&<<*FL`#$H59Q0O#2\(80#XG%!/)4``#&9F8```@$(08%YP_[Z`
  1796. +M;71*AV=P#(<```$1;0HO"F$`_!983V!"+PIA`/P,2^H`#"!51^H`!");+%,<
  1797. +MAQ*'$(<@52)J``0L6T(N``%"*0`!0B@``4AX``$O'2\280#Y;$_O`!`D@&<<
  1798. +MU/P`$%*O`#18KP`P*F\`0"`O`#2PK0`0;0#\S"IO`$!(>``Q+R\`/$AM`%1.
  1799. +MNEH\3^\`#$(M`(5![0!4(DA*&6;\4XF3R"M)`(9^`"9O`"PD2V`L+Q)A`/C:
  1800. +M+I)A`/BV+JH`!&$`^*XNJ@`(80#XIBZJ``QA`/B>6$]2A]3\`!"^K0`0;\XO
  1801. +M2P!`3-]L_-[\`!1.^EJN3-]L_-[\`!1.=0``3OD``(UH3OD``(J83OD``(V@
  1802. +M3OD``(J\3OD``(K43OD``*7H3OD``(O\3OD``(MT3OD``(LD<&$@#Y!\``RP
  1803. +MK`Q\90!8^$JL`4AF.C`\`/]R`$'L$5`0P5'(__QP&7(!0>P1L1#!4<C__'`9
  1804. +M0>P1D1#!4<C__'`)0>P1@!#!4<C__"E!`4A.=;_L#'QE`%BN(B\`!"`L`4PI
  1805. +M00%,3G4@#Y!\`-2PK`Q\90!8DI[\`,1(YS<V*F\`]"95)&\`["!*T>\`\")M
  1806. +M`!!"KP#D0J\`X$*O`-PO2P#83>\`.'X!0BT`%"](`"@O20`L+TX`-&$`_TA*
  1807. +MK0`$9@`(.'`<*T``!"(59PPO`"\!3KI9#E!/8`@O`$ZZ6S!83RJ`2H!G``AR
  1808. +M)D`O2P#88``("'#VT*T`!"(+DI6R@&]X($TJ4`RH``$````$9P`(1"!O`/0B
  1809. +M*``$TH$A00`$#($``0``;PAP`4A`(4``!"\H``0O$$ZZ6*I03R!O`/0@@&<`
  1810. +M"!:0C2P`U\8J;P#@(`UG!MO&+TT`X"IO`-P@#6<&V\8O30#<W:\`V"IO`.0@
  1811. +M#6<&V\8O30#D(&\`*+'*9P`'QGP`'!HJ;P`L(`UG""!-T<9\`!P0(`9R"I"!
  1812. +M9P`$&G(:D(%G1EF`9P`#\E.`9P`#^E.`9P`!1E.`9P`!-E>`9P`"3G(1D(%G
  1813. +M``$H<AR0@6<``L93@&<``_Q5@&<``,QR'I"!9P`#X&``!H8J;P`H""P``P%/
  1814. +M9S((+``%`4]F!K7-9@`&;"IO`.`@#6<0+PM(>``$+PUA``=03^\`#$*O`.!P
  1815. +M`Q;`8``&T+7-9W00$G(*L`%G;`@L``4!3V9D""P```%/9PYT*;`"5\%$`4B!
  1816. +M2,%@&')<L`%F#A0J``%V*;0#9@1V`6`"=@`B`TJ!9C((+``!`4]G#G1\L`)7
  1817. +MP40!2(%(P6`6<ERP`68,<'RP*@`!9@1P`6`"<``B`$J!9P`%T!;\``-@``90
  1818. +M2J\`W&<2<`JP*O_^9PH(+``%`4]G``6P""P``P%/9R`@;P#L4HBUR&<*""P`
  1819. +M!0%/9P`%E'`"%L`O2P#88``&$!;\``)@``8(""P``@%/9@`%=DJO`-QF"@@L
  1820. +M``4!3V<`!69"+P`S0B\`,G(KO(%6P$0`2("!+P`S=#^\@E;`1`!(@($O`#(@
  1821. +M;P`HL<I7P$0`2(!(P"P`9F1*AF8`!@!\`!P:(`UG"")-T\9\`!P1<"J\@&>V
  1822. +M""P``@%/9@B\@6>JO()GI@@L``(!3V<N<%R\@&8HL<IG``7&>@`:&B`-9P@@
  1823. +M3='%>@`:$+J!9PBZ@F<$58I@""P%8`#_<E.**F\`W"`-9P`%2DHO`#)G%B!-
  1824. +M2&C__4AX``<O"V$`!:1/[P`,5HM+ZP`#+PLO#2\O`.1(>``%80`%PD_O`!!"
  1825. +MKP#D)DU*+P`S9@`%""!O`-PO"TAH``8O"$AX``AA``6<3^\`$%:+8``$ZB!+
  1826. +M4HL0O``)+T@`W&``!-H@32I0#*@``0````1G``4D(&\`]"(H``32@2%!``0,
  1827. +M@0`!``!O"'`!2$`A0``$+R@`!"\03KI5BE!/(&\`]""`9P`$]I"-+`#7QBIO
  1828. +M`.`@#6<&V\8O30#@*F\`W"`-9P;;QB]-`-S=KP#8*F\`Y"`-9P;;QB]-`.0J
  1829. +M;P#T(`N0E7+=TJT`!+"!;@#_=B!+2^@``2](`-QP7K`29@P@2R9-$+P`"U**
  1830. +M8`@@2R9-$+P`"B!*%OP`("](`"1P'W(`(DL2P5'(__PJ;P`L(&\`*+'*9P`$
  1831. +M5'P`'!H@#6<((DW3QGP`'!%P7;R`9@HB;P`D4HFSRF9L<"VP$F9.<%VP*@`!
  1832. +M9T:QRF<`!"!+Z@`!L<UG``061>T``7H`&A4J;P`L(`UG("!-T<5Z`!H08!8@
  1833. +M!N:((@9T!\*"=`$F`N.CAS,(`%*&O(5CYF""(`;FB'0'S()T`>VBA3,(`&``
  1834. +M_W!3*___$"O__V\*2(!(P$HS"/]G[!`K__](@-;`8``#7@@L```!3V8``.I@
  1835. +M``+(""P```%/9@`!5&```KH(+``$`4]F``'*8``"K`@L``$!3V8``;Q@``*>
  1836. +M(&\`*+'*5\!$`$B`2,`L`&8``TY*AF8``UI\`!P:(`9R)Y"!9P`"(E.`9P``
  1837. +MA%.`9P``]E6`9P`"4%V`9P`"$E.`9P`"#%.`9P`"!E.`9P`"`%.`9P`!^E.`
  1838. +M9P`!]%.`9P`![E.`9P`!Z%.`9P`!XE>`9P`!K%6`9P`!KE.`9P`""%>`9P`!
  1839. +MLG(5D(%G``&"<@F0@6<``:I5@&<``91R%9"!9P`!7%N`9P`!`F```>0(+```
  1840. +M`4]F``':*F\`-$'O`-BQS6<``K)P"KZ`;`X@2Q"\``Q4BR`'$4```2!+(DT@
  1841. +M"RQO`/20EB*`6(U'Z0`(("\`X&<&D)92@&`"<``J@":'4H=#ZP`(("\`V)"6
  1842. +M)T``!$*O`.!"KP#<)D@O2P#8+TD`-&```?X(+````4]F``%B*F\`-$'O`#BQ
  1843. +MS6<``BY9C2)O`/0@4='5+T@`V"`O`.!G$"\+2'@`!"\`80`"-D_O``P@+?_\
  1844. +M<@JP@6P0($L0O``-5(L@+?_\$4```5&-0J\`X"`59PXB;P#T(E'3P%.)+TD`
  1845. +MX%F-+&\`]")6T]4O30`T+TD`W&```7H(+``!`4]F``#>+PM(:P`&+R\`X$AX
  1846. +M``5A``(&3^\`$$*O`.1+ZP`#)F\`X"`+9Q`O#4AX``0O"V$``:Y/[P`,1^T`
  1847. +M`T*O`-PO2P#8+TT`X&```28@2U*+$+P`%"](`-Q@``$6($M2BQ"\`!4O2`#<
  1848. +M8``!!A;\`!9@``#^%OP`%V```/86_``88```[A;\`!E@``#F%OP`$F```-X6
  1849. +M_``38```UBH&<#":@+J'9$(J;P`T48U@"B`5L(5G-)K\`!!![P`XN\AB[B!+
  1850. +M$+P`#E2+$44``2](`-Q@``">""P``@%/9@#ZF"`-9P;;QGP`'!4J;P#D(`UG
  1851. +M8A`52(`@3=#`0^@``;/+9E)R?[`!9TP0$G(JL`%G1')>L`%G/@@L``(!3V<>
  1852. +M<ERP`684$BH``70KL@)G!G8_L@-F!'(!8!AR`&`4<BNP`6<*<C^P`6<$<`!@
  1853. +M`G`!(@!*@6<:+TL`W'`!(&\`W!"`2^L``2]-`.14BW(`&H$6QE(5*F\`]+7O
  1854. +M`"AF`/?P)&\`X"`*9Q`O"TAX``0O"F$``%)/[P`,0>\`.")O`#2SR&82(`N0
  1855. +ME2M```AP`&`J0>P!4&`B0>P!;&`<0>P!>F`60>P!B&`00>P!K&`*0>P!OF`$
  1856. +M0>P!VB`(3-]L[-[\`,1.=;_L#'QE`$^62.<A%!XO`!LF;P`<*F\`%$/5$L=!
  1857. +M[0`#(`N0B"(`=`!&`L*"$L'@@!+`3-\HA$YU(`^0?``,L*P,?&4`3UA(YP$T
  1858. +M'B\`%RIO`!@F;P`@5HLD;P`@8`93BU.*%I*US6;V$`=(@$C`+TT`%"]``!A,
  1859. +MWRR`8(0@#Y!\`5BPK`Q\90!/%)[\`4Q(YS$V*F\!;"9M``PD52!*T>T`"")M
  1860. +M`!!-[P`H+T@`("])`!PO3@`D,#P`_W(`+$L<P5'(__P;?``!`!1"+0`58``"
  1861. +MUB!O`""QRF8.(&\!;!%\``$`%6```L8J;P`<<``0&E.`;0`"G`R`````&6P`
  1862. +M`I+00#`[``9.^P`$`#`"F@!:`(H!!`"*`(H`B@%(`;`"!@$T`30!.@*:`IH"
  1863. +MF@*:`IH!<`&0`IH"F@*:`IH@#6<6<``0*@`!<@`2-0``=`$7@A``8``"/'``
  1864. +M$"H``1>\``$``&```BP@#6<.<``0+0`*<@$7@0``8`9P`1=```HJ;P%L<`&P
  1865. +M+0`59P`"!AM\``(`%6```?P@;P%L$7P``0`5$"H``4B`2,#A@'(`$A(D`78`
  1866. +M1@/$@]2`(`)2@"!*T<!%Z``!2H)N``'><`6P$F8``=80*@`"2(!(P.&`<@`2
  1867. +M*@`!PH/2@%*!($K1P47H``(J;P`D0>\`*+'-9P`!JB!5L<IF``&B68TO30`D
  1868. +M8``!F"!*5(I8KP`D$"@``4B`2,#A@'(`$A`D`78`1@/$@]2`T<)#Z``"+&\`
  1869. +M)"R)8``!:%**8``!8G`!(&\!;!%``!470``*?@!P"KZ`9P87O``!>`!2APR'
  1870. +M```!`&WJ(&\!;$HH`!5G``$:8``!,GX`<`%![!%0L#!X`&8$%X!X`%*'#(<`
  1871. +M``$`;>9@``#V?@!P`4'L$5"P,'@`9P07@'@`4H<,AP```0!MYF```-9+Z@`!
  1872. +M<``0$B(`YX$N`5.')&\`'&`X(`=R"$ZZ2]!P`20`XZ(@!W((3KI+PA(U"`#"
  1873. +M`F<8(`IG#G``$#)X`'(!%X$``&`&%[P``7@`4X=*AVK$8```@'``$!(N`.>'
  1874. +M8!H@#6<.<``0-7@`<@$7@0``8`87O``!>`!2APR'```!`&W>2^H``7``$!(B
  1875. +M`.>!+@%3AR1O`!Q@."`'<@A.NDM.<`$D`..B(`=R"$ZZ2T`2-0@`P@)F&"`*
  1876. +M9PYP`!`R>`!R`1>!``!@!A>\``%X`%.'2H=JQ"IO`"1![P`HL<UG$"!-68@D
  1877. +M52](`"0@"F8`_2A,WVR,WOP!3$YU(`^0?``DL*P,?&4`2]HO!R`O`!@B+P`4
  1878. +M+B\`$"!O``PB;P`(+P<O+P`@+P`O`2\'+PAP`"\`+P`O"6$```I/[P`D+A].
  1879. +M=2`/D'P`++"L#'QE`$N4GOP`#$CG+S0J+P!(+"\`1"XO`#@J;P`P)FT`#"1M
  1880. +M`!`H!]BO`$`O1``D(@MG#DHM`!1F""\-80#\.EA/("T`"&\4(%5P$K`09@Q*
  1881. +MA6\(2H9N``$^>@$@"V<``-*\A&P``,QP`;`M`!5G``#"2H5O8G@`+T4`(+R'
  1882. +M;`XB!M*%LH=M!B@%F(?8AKR';0@@;P`\D<=@!"!O`#31QBI((@IG'&`"4X6Z
  1883. +MA&\B<``0'7(`$C(``$HS$`!GZF`04X6ZA&\*<``0'4HS``!G\-RO`""<A6!:
  1884. +MO(=M$B`&D(<@;P`\$C`(`!]!`"M@#"!O`#00,&@`'T``*W#_P"\`*R(*9QAR
  1885. +M`!(`=``4,A``2C,@`%?!1`%(@4C!8!)R`!(`2C,0`%?`1`!(@$C`(@!*@69,
  1886. +M*"\`)"IO`#!*A6L.N(9F"B`+9P9*+0`59THO+P!0+R\`4"\&+R\`3"\O`$PO
  1887. +M!R\O`$PO#6$``'9/[P`@2H!K#%2`9@1P_F`>(`9@&DJ%9Q1*A6\(4X52AF``
  1888. +M_M!2A5.&8`#^R'#_3-\L]-[\``Q.=2`/D'P`(+"L#'QE`$GJ("\`$"(O``P@
  1889. +M;P`((F\`!"\!+R\`&"\`+P$O"'``+P`O`"\)80``"$_O`"!.=2`/D'P#++"L
  1890. +M#'QE`$FNGOP#'$CG/S8N+P-0+"\#6"HO`V0L;P-((%8O2`-`T>X`"")N`!!-
  1891. +M[P"P+T@`/$'O`S`D;P-,2^\`I"K(+TD`,"K.*LY*AF80($HL!Y7*+TH#3'X`
  1892. +M+T@#5"I*V\<@329O`U0L2]W&+T@`-"].`#BZAVX.($K1Q2]+`S@O2`,\8`XO
  1893. +M30,\($O1Q9''+T@#.'H`2^\`5#1\__\JRE*%<`JZ@&7V*B\#7+J';@X@;P-,
  1894. +MT<4O;P,\`S!@#"!+T<61QR]O`S@#,"](`S0F;P-`)&\#-"IO`S"W[P`\9@``
  1895. +MU"9O`V`J+P-<(`MG``"F)H6[[P,\9@PB"I*O`TPG00`H8`P@"I"O`U30AR=`
  1896. +M`"AX`4?O`%@P?/__+T@`+"!++`3EAB)3+&\`++W)9@QP_R)O`V`C@&@`8$Q'
  1897. +M[P!\U\8B3]+\`$I*,4@`9P@B$Y*O`TQ@""(3DJ\#5-*'(F\#8".!:``F2"!/
  1898. +MT/P`0$HP2`!G#"(3DJ\#3".!:"A@#"`3D*\#5-"'(X!H*%*$6(MP"KB`;8J[
  1899. +M[P,\9@P@"I"O`TR0A6``!]P@"I"O`U30AY"%8``'SB!+0^@``29O`SAP`!`0
  1900. +M+TD#0%.`;0`'9`R`````&6P`!UK00#`[``9.^P`$!M0"7@)T!$@"L@1$`U`$
  1901. +M<@&6`<P!S``P`&@`H`=,!TP'3`:L!K@&7`:,!9P%\@38!3H@;P-`<``0$$C`
  1902. +M(@#E@4/O`'S3P2**4J\#0+OO`SQ7P$0`2(!(P'(`$A`@3]#\`$H1@!``8`#^
  1903. +MAB!O`T!P`!`02,`B`.6!0^\`5-/!(HI2KP-`N^\#/%?`1`!(@$C`<@`2$"!/
  1904. +MT/P`0!&`$`!@`/Y.>``@;P-`&!@@!.6`0^\`?"9Q"``O2`-`($_0_`!*$C!(
  1905. +M`")/TOP`0+(Q2`!F"D'O`%31P")08`0B;P,\)$E@'B!O`SBQRF<:(`3E@$'O
  1906. +M`%31P"I(M=5G"B9O`U0D5;?*9]XJ;P,TM\IF&F``_>`@;P,X(F\#,+/(9P`&
  1907. +M.BIO`U0O2`,PN^\#,&?D*B\#,"(-FH$@"B0+D(*Z@&\"*@`@+P`P9Q(O`"\%
  1908. +M+P(O`6$`!EI/[P`08!P@!2!-(D)R`$J`9PX2&)(99@13@&;V2(%(P2`!2H!F
  1909. +M``7>($W1Q=?%+T@#-&``_WJ[RV<`!<HD;P-4*DLO30,PM<UG[$OJ``$F;P`P
  1910. +M(`MG$"]-`S1P`!`2<@`2,P``8`HO30,T<``0$B(`<`JR@&8`_29@``6*>`!P
  1911. +M"R!O`T"P*/__9A1X`6`0N\MG``5R)&\#5"I++TT#,+7-9^PJ;P`P(`UG#'``
  1912. +M$!)Z`!HU``!@!'H`&A(J;P-`<``0%2(`YX&Z@6PH(`5R"$ZZ1+QP`20`XZ(@
  1913. +M!7((3KI$KA(U"`'"`F<*2H17Q$0$2(1(Q'``$!52@"!-T<`O2`-`2H1G``4`
  1914. +M0>H``6``_(RU[P-,9P#\B'`*L"K__V8`!.9@`/QZ(&\`.+'*9P#\<+7O`#1F
  1915. +M%DJ&9PYP"B!O`U2P$&<$<@!@$G(!8`YR"K(25\!$`$B`2,`B`$J!9P`$J&``
  1916. +M_#PJ;P"D)F\`J+?-9EHJ#9JO`*SDA2(L`>S2@;J!;P9P_F``!,HH!=B$(`3E
  1917. +M@"\`3KHC;"I`(@7E@2Z!+R\`L"\`3KI%C$_O``PB"Y*O`*SD@>6!)DW7P2`$
  1918. +MY8`@3='`+TT`K"](`*0@;P-`5*\#0!`H``%(@$C`X8!R`!(0)`%V`$8#Q(/4
  1919. +M@-'"0^@``B:)0>L`""=*``0O2`"H8`#[GB!O`T`0*``!2(!(P.&`<O_"$'0`
  1920. +M%`'4@"H"1>@``BI*)F\`/&`"4HV[RV<.$!5R#;`!9_)R#+`!9^R[RV<``)@0
  1921. +M%7(!L`%G"'0#L`)F``".5P!F!'`*8`9P`!`M``(H`"I*V\40+0`#L`%F$G(`
  1922. +M$BT`!;*$9PAR!A5!__U@7G(*L`%G!G(+L`%F4G(+L`%7P$0`2(!(P"H`<``0
  1923. +M+0`$YX"X@&PN(`1R"$ZZ0N)P`>.@'T``*"`$<@A.ND+2$B\`*!0U"`7$`6<*
  1924. +M2H57Q40%2(5(Q4J%9@9P!A5`__T@2E6(+T@#0'`&L"C__V<($7P`!/__8`11
  1925. +MKP"H(&\#0!`H``%(@$C`X8!R`!(0=`!&`L*"TH!2@='!0^@``2])`T!@`/I\
  1926. +M*F\`I"1O`*BUS69()F\`K"H-FHODA2@%V(0@!.6`+P!.NB&Z*D`B!>6!+H$O
  1927. +M"R\`3KI#W$_O``P@"I"+Y(#E@"1-U<`@!.6`($W1P"]-`*PO2`"D0I)!Z@`(
  1928. +M0JH`!"](`*A@`/]R(&\#3+'*9P#Z#"!O`#BQRF<`^@(J;P`TM<UF!DJ&9P#Y
  1929. +M]+7-9@IP`"!O`U00$&`$<``0$G0!0>P14+0P"`!7P40!2(%(P7``$"K__[0P
  1930. +M``!7PD0"2()(PK2!9P`"(&``^;0@;P-,L<IG``(2(&\`.+'*9P`"""IO`#2U
  1931. +MS68&2H9G``'ZM<UF"G``(&\#5!`08`1P`!`2=`%![!%0M#`(`%?!1`%(@4C!
  1932. +M<``0*O__M#```%?"1`)(@DC"M(%G`/E68``!NB!O`#BQRF<``;`J;P`TM<UF
  1933. +M!DJ&9P`!HKO*9@8@;P-48`(@2G``$!!R`4'L$5"R,```9@`!A+7O`TQG`/D4
  1934. +M<``0*O__<@%![!%0LC```&<``6A@`/C\(&\#3+'*9P`!6G``$"K__W(!0>P1
  1935. +M4+(P``!F``%&(&\`.+'*9P#XU"IO`#2US68&2H9G`/C&M<UF"G``(&\#5!`0
  1936. +M8`1P`!`2<@%![!%0LC`(`&<``0Y@`/BBN\MG``$$)&\#5"I++TT#,+7-9^Q!
  1937. +MZ@`!<``0$B](`S1![!%02C```&8`^'9@``#:N\MG``#4)&\#5"I++TT#,+7-
  1938. +M9^Q!Z@`!<``0$B](`S1![!%02C```&<`^$9@``"JM>\#3&8``*)@`/@V(&\`
  1939. +M.+'*9P#X++7O`#1F``",2H9F``"&8`#X&GH`(&\#0!H8+T@#0$JO`#!G2&`.
  1940. +MN\MG:"1O`U0J2R]-`S"US6?N<``0&B!O`#`4,```(F\#0+095L%$`4B!+TD#
  1941. +M0$H!9CI3A6;88"R[RV<P)&\#5"I++TT#,+7-9^X2&B!O`T"R&%;`1`!(@"](
  1942. +M`T!*`&8,4X5FXB]*`S1@`/>:*F\`J"!O`*RQS6<\2JW_^&8(48TO30"H8.8@
  1943. +M;?_\(DU1B2]1`T`O2`,T+TD`J+'O`TQE`/=DL>\`-&(`]UPO;P,\`S!@`/=2
  1944. +M</],WVS\WOP#'$YUO^P,?&4`0")(YR$T+B\`("IO`"0F;P`8)&\`'&`8<``0
  1945. +M&G(`$AL4-1``M#4``&<$<`%@"%.'2H=FY'``3-\LA$YU(`^0?``,L*P,?&4`
  1946. +M/]HO#2IO``@@#682("P24&8(0>P!\"`(8%QP`&!82JP24&8X2'@`R$ZZ0KA8
  1947. +M3RE`$E!F"$'L`A`@"&`Z*7P```#($E1(>`$`3KI"F%A/*4`27&8(0>P"(B`(
  1948. +M8!H@34H89OQ3B)'-2&P24"\(+PUA`.;,3^\`#"I?3G4@#Y!\`!BPK`Q\90`_
  1949. +M5")O``0@24H89OQ3B)')<``O`"\(+P`O""\)2&P24&$`\TQ*@%K!1`%(@4C!
  1950. +M3^\`&"`!3G4``+_L#'QE`#\62.<!!"XO`!`J;P`,8!`0%4B`2,"PAV8$(`U@
  1951. +M"%*-2A5F['``3-\@@$YUO^P,?&4`/N1(YP,4+B\`'"9O`!@J;P`4?`!@"!>U
  1952. +M:`!H`%*&O(=M]$S?*,!.=2`/D'P`#+"L#'QE`#ZP2.<!%"IO`!`N+!)TGJP2
  1953. +M<.6'+P=.NAT6)D`B+!)PY8$@3='!+H<O`"\(89@@+!)T(@#E@2!-T<$B+!)P
  1954. +MY8$B3=/!(BP".)*`Y8$N@2\)+PAA`/]R(BP2<-*L`CB2K!)TY8';P2Z'+PTO
  1955. +M"V$`_U@@+`(X2^P2<"(=TH"2E4_O`!PJP"E!$G!,WRB`3G4@#Y!\`"2PK`Q\
  1956. +M90`^%I[\`!!(YS\T*F\`1$*L`C1*K`(X9E1P`2E``CA"K!)H*4`2<"E`$G0@
  1957. +M;P!`$A!T+;("9@QT`BE"$FQ2KP!`8"IT*[("9@I"K!)L4J\`0&`:2&P"0$ZZ
  1958. +M0QY83TJ`9P9"K!)L8`9P`2E`$FPN+P`X2JP2:&<*(&P2:$H09@`!7'`!L*P2
  1959. +M;&9R("P2="(L$G"R@&<2L*P".&<,+R\`/&$`_KI83V`,(BP".+"!9P0I01)P
  1960. +M(BP"..6!)F\`/-?!8`92K`(X6(L@+`(XL(=L)"!+)%`0$G(ML`%F"")02BD`
  1961. +M`680(@UGVG(KL`%FU$HJ``%GSB`L`C@I0!)T("P".+Z`9U#E@$AL`E`@;P!`
  1962. +M+S`(`$ZZ/7!03TJ`9CA2K`(X("P2="(L$G"R@&<2L*P".&<,+R\`/&$`_B18
  1963. +M3V`,LH!F""`L`C@I0!)P(`<I0`(X*4`2="`L`CBPAV86("P2<"(L$G2R@&<$
  1964. +M*4`".'#_8``$9"(L`CCE@2!O`#PD<!@`%!)V+;0#9@HB<!@`2BD``68NNOP`
  1965. +M`&<,=BNT`V8&2BH``68<2JP2;&8&</]@``0F4JP"."EP&``"-'`!8``$%E**
  1966. +M(`UG#!`2<BVP`68$=`%@`G0`(DK3PBE)$F@@#6<``M(@+`(X(@#E@2!O`#PD
  1967. +M<!@`$!)T+;`"9A`@<!@`M"@``6<.2J\`3&8(<BNP`68``J(D;!)H0J\`+'P`
  1968. +M0J\`*&`"4HH0$F<&<CVP`6;T+TT`,'H`8&(@"I"L$F@O`"\L$F@@;P`X+Q!.
  1969. +MNCP*3^\`#$J`9CPN"IZL$F@@;P`P+Q!.NCO&6$^^@&82(&\`,"@%<`$O0``L
  1970. +M+T@`*&`D2J\`*&8,(&\`,"@%+T@`*&`"?`%P$-&O`#!2A2!O`#!*D&:62H9G
  1971. +M1$JO`"QF/DJL`CQG("(L`CCE@2!O`#PO,!@`+Q!(;`)42&P,"$ZZ0:!/[P`0
  1972. +M+RP2:$ZZ.U+1K!)H4JP".%A/<#]@``+N+B\`.$JO`"AG``$:4JP".$H29W@@
  1973. +M;P`H2J@`!&<,0^H``2E)`C1@``#`2JP"/&=((BP"..6!(F\`/"1Q&/QP+;`J
  1974. +M``%F%B\0+Q%(;`)R2&P,"$ZZ02Y/[P`08!P0$DB`2,`O$"\`+Q%(;`*@2&P,
  1975. +M"$ZZ01!/[P`4+RP2:$ZZ.L+1K!)H6$]P/V```F)P`2!O`"BPJ``$9E`B+`(X
  1976. +MLH=L$E*L`CCE@2!O`#PI<!@``C1@-DJL`CQG'.6!(&\`/"\P&/PO$$AL`LY(
  1977. +M;`P(3KI`M$_O`!`O+!)H3KHZ9M&L$FA83W`_8``"!B\L$FA.NCI26$_1K!)H
  1978. +M)&\`2"`*9P(DA"!O`"@@*``(9PXB*``,($`@@7``8``!UB!O`"@@*``,8``!
  1979. +MRDJO`$QG-B(L`CCE@2!O`#PD<!@`<"VP*@`!9R!P*[`29QH@;!)H$!!(@$C`
  1980. +M+P`O+P!$80#ZO%!/2H!F:DJL`CQG3"(L`CCE@2!O`#PD<!@`<"VP*@`!9A@O
  1981. +M+!)H+Q!(;`+T2&P,"$ZZ/_9/[P`08!X0$DB`2,`O+!)H+P`O$$AL`Q1(;`P(
  1982. +M3KH_UD_O`!0O+!)H3KHYB-&L$FA2K`(X6$]P/V```21+[!)H(%40&"J('T``
  1983. +M)TB`2,`O`"\O`$0JR&$`^BY03R1`(&P2:$H09@12K`(X(`IG"A`O`"=R.K`!
  1984. +M9E)*K`(\9T80+P`G<B"P`6T&<G^P`6T:2(!(P"\`(&\`0"\02&P#-$AL#`A.
  1985. +MNC]08!A(@$C`+P`@;P!`+Q!(;`-B2&P,"$ZZ/S9/[P`0<#]@``"6<#JP*@`!
  1986. +M9@``A+`J``)F'B!L$F@0$&<**4@"-%*L`CA@!$*L`C23R2E)$FA@7B!L$FA*
  1987. +M$&<**4@"-%*L`CA@2"`L`CBPAV8N2JP"/&<@$"\`)TB`2,`O`"!O`$`O$$AL
  1988. +M`X)(;`P(3KH^PD_O`!!P/Q]``"=@$E*L`C@B`.6!(&\`/"EP&``"-$*L$F@0
  1989. +M+P`G2(!(P$S?+/S>_``03G4@#Y!\`!BPK`Q\90`X+B`O``0@;P`,(F\`"$*G
  1990. +M0J="IR\(+PDO`&$`^?!/[P`83G4``"`/D'P`$+"L#'QE`#?\*7P``"``$I!P
  1991. +M8.^(+P`I0!*(3KHZ[EA/*4`2@&8J(BPM3.6!0>P)_B\P&``O+!)\2&P#K$AL
  1992. +M#`A.NCX22'@``DZZ/1Q/[P`43G4@#Y!\`!2PK`Q\90`WI$CG)A0L+P`8("P2
  1993. +MB)"&L*P2D&)@8!0B+!*(TH$D+!*0U((I01*(*4(2D"`L$HB0AK"L$I!CX"\L
  1994. +M$H@O+!*`3KHX/E!/*4`2@&8J(BPM3.6!0>P)_B\P&``O+!)\2&P#R$AL#`A.
  1995. +MNCV.2'@``DZZ/)A/[P`4("P2A"(L$HS2@)*&*@8J;!*`)DW7P)?&*4$2C&`"
  1996. +M&ML@!5.%2H!F]BE&$H1*K!*<9P1P`&!\(&P2@-'L$H0O+!*0+P@O+!*43KHL
  1997. +MX$_O``PL`&PV0>P$`"`L$IAG`B!`(BPM3.6!0^P)_B\Q&``O""\L$GQ(;`/D
  1998. +M2&P,"$ZZ/0)/[P`4<`$I0!)X2H9F'B`L$H1O&'(*(&P2@+(P"/]G#'P!=`$I
  1999. +M0A*<$8$(`-VL$H0@!DS?*&1.=2`/D'P`#+"L#'QE`#9J2.<'!"PO`!PN+P`8
  2000. +M*F\`%'H`2JP2M&<44H5R"K(=5L!$`$B`2,!F\&```.(@+!*89QY*K!*L9AAR
  2001. +M.DJ&9@)R+2\!+P!(;`0(3KH]!$_O``Q*K!*H9R)P.DJ&9@)P+2(-DJP2@-*L
  2002. +M$HPO`"\!2&P$#DZZ/-Q/[P`,2JP2L&<8<#I*AF8"<"TO`"\'2&P$%$ZZ/+Y/
  2003. +M[P`,4H4(+``!#`%G3%*L"_(@+`ORL*P+^FXF(&P+ZE*L"^H0%1"`<@JP`68^
  2004. +M""P`!@P!9S9(;`OF3KI`XEA/8"I3K`OR$!5(@$C`2&P+YB\`3KH\LE!/8!(0
  2005. +M%4B`2,!(;`OF+P!.NCR>4$]R"K(=5L!$`$B`2,!FBD*L$VPI31-H(`5,WR#@
  2006. +M3G4@#Y!\`)BPK`Q\90`U0)[\`'A(YR\T?@!\`'`!+T``E'H`0J\`A$*L$VQ@
  2007. +M``24)FP2@-?L$H1@`E.+M^P2@&,(<`JP*___9O`@2R](`"@B;!*`M\EF""XL
  2008. +M$H1@``1D$!,I21-HT\8J22]-`(@H+P"4'T``+&```O0D2V`"4XJUS6,(<`JP
  2009. +M*O__9O(@2BI+)F\`*"](`"2[RV0.<@JR'5;`1`!(@$C`9NX@32](`"Y*KP"0
  2010. +M9P``XGH`+`V<BE.&8```QB`&D(5(;P`T+P`O!2\&+PI(;!-23KKHCD_O`!@N
  2011. +M`%*`9P``J"`O`%R0ARH`2JP2O&<,2H=F``"4NH9F``".2JP2N&<``)!@=$J'
  2012. +M;R00,GC_<G^P`6(0=``4`'`'0>P*O<`P*`!F6A`R>/]T7[`"9U#:A[J&;%X0
  2013. +M,E@`<G^P`6(0<@`2`'`'0>P*O<`P&`!F"A`R6`!R7[`!9CH@!5.`+P!(;P`X
  2014. +M+P<O!B\*0J="ITAL$U).NNH<3^\`("H`2H5NB"H'4H6ZAF\`_SB[RV8``=I@
  2015. +M``'X+B\`C"HO`(0F;P"(2JP2P&8``,12AR]'`(Q@%B`$4H1"IR\`+PMA`/T8
  2016. +M3^\`#-?`4X5*A6<$M\IEXBHL$J1@%K7L$VAC"E.*<`JP*O__9O!3KP"44X5*
  2017. +MA6\&M>P3:&+@2JP2I&8&2JP2H&<B2JP2M&8<2JP$&F862JP3;&8&M>P3:&,*
  2018. +M2&P$'DZZ+<183T*L!!HJ;P`D8!@@+P"44J\`E$*G+P`O"F$`_)A/[P`,U<"U
  2019. +MS67D("\`E%*O`)1(>``!+P`O"F$`_'I/[P`,+VP2H`"$8```[+?*9B)*A6\6
  2020. +M4X5"IR\O`)@O"B]%`)!A`/Q23^\`#%*O`)1@``#&M<MC``"\*DLJ+!*D8!2[
  2021. +M[!-H8PI3C7`*L"W__V;P4X13A;OL$VAC!$J%9N)*K!*D9@9*K!*@9R)*K!*T
  2022. +M9AQ*K`0:9A9*K!-L9@:[[!-H8PI(;`0J3KHL_%A/0JP$&F`4(`12A$*G+P`O
  2023. +M#6$`^]A/[P`,V\"[RV7H8!A2AR`$4H1(>``!+P`O#6$`^[I/[P`,V\"[RF7D
  2024. +M+T<`C$JL$J!G&D*G+R\`F"\*80#[FD_O``P@+!*@4X`O0`"$4J\`E&`$3KHI
  2025. +M("@O`)0J;P`N+TT`B"9O`"B[RV<B2&\`D$AO`)A"IR\++PU(;!+(80`'^$_O
  2026. +M`!@F0$J`9@#\[BIO`"@:KP`L*B\`C"9O`(A*K!+`9BXN+P"$8!H@!%*$0J<O
  2027. +M`"\+80#[(D_O``S7P%.'+T<`A+?-9```MDJ'9MQ@``"NN\MC``"H)$LN+!*D
  2028. +M8!2U[!-H8PI3BG`*L"K__V;P4X13A[7L$VAC!$J'9N)*K!*D9@9*K!*@9R)*
  2029. +MK!*T9AQ*K`0:9A9*K!-L9@:U[!-H8PI(;`0V3KHKOEA/0JP$&F`4(`12A$*G
  2030. +M+P`O"F$`^II/[P`,U<"URV7H8!A2A2`$4H1(>``!+P`O"F$`^GQ/[P`,U<"U
  2031. +MS67D+VP2H`"$?``B#9*L$H`N+!*$GH%@1"XL$J0D36`0M>P3:&,*4XIP"K`J
  2032. +M__]F\+7L$VAC""`'4X=*@&;B+`TB"IR!(`&0K!*`+BP2A)Z`LJP3:&,&<`$I
  2033. +M0!-L+T4`C"\'80#XU%A/2H!N`/M>(`5,WRSTWOP`>$YU(`^0?``,L*P,?&4`
  2034. +M,&(O+!)\2&P$0DAL#`A.NC:D2'@``DZZ-:Y/[P`03G4@#Y!\`2BPK`Q\90`P
  2035. +M-I[\`11(YR\T+B\!.$*O`3";S9?+?`!Z`$*O`2PD;P$\2'@`+R\23KHP,%!/
  2036. +M2H!G#"!`0^@``2E)$GQ@!"E2$GQ"K`(\8``"*B`$<C"0@6<``*93@&<``*!3
  2037. +M@&<``)I3@&<``)13@&<``(Y3@&<``(A3@&<``()3@&=\4X!G>%.`9W1=@&=H
  2038. +M58!G``"84X!G``"Z4X!G``#<<A.0@6<``.)R#)"!9P``[E.`9P``\E6`9P``
  2039. +M^%.`9P`!`E6`9P`!#%.`9P`!$%>`9P`!7%6`9P`!8%N`9P`!8E>`9P`!9%.`
  2040. +M9P`!9E.`9P`!:&```6QA`/[68``!?$/L$J`@$2(`Y8'2@-*!TH1P,)*`(L$B
  2041. +M&20!Y8+4@=2"U(24@"E"$J1@``%02&P2H$AL!-0O+`(T3KHTO$_O``Q*@&<(
  2042. +M("P2H&H``3!A`/Z"8``!*$AL$J1(;`38+RP"-$ZZ-)1/[P`,2H!G""`L$J1J
  2043. +M``$(80#^6F```0!P`BE`$J0I0!*@8```\DAL!)M(;`3<2&P,"$ZZ-/A@``#:
  2044. +M<`$I0!*H8```U'P!<`$I0!*T8```R"`+9P1A`/X6*FP"-&```+@@#6<$80#^
  2045. +M!B9L`C1@``"H<`$I0!*L8```GG`!+T`!,'@`0>P*O0@P``!(`&<>"#```$@`
  2046. +M9P@@!'(@T(%@`B`$($_0_``L$8!(`&`,(`0@3]#\`"P1@`@`4H0,A````0!M
  2047. +MP$'O`"PI2!-B8$IZ`7`!*4`2M&!`<`$I0!*P8#AP`2E`$K1@,'`!*4`2P&`H
  2048. +M<`$I0!*X8"!P`2E`$KQ@&"\L$GQ(;`3@2&P,"$ZZ-"!A`/U<3^\`#$AL!+0O
  2049. +M"B\'3KKU@$_O``PH`%*`9@#]PB\O`3!(>``4+T8`,"]%`"Q.NJ@@2'@`%$ZZ
  2050. +MU-Y/[P`,(`MG``#$2&P$_"\+3KH[/E!/)$!\0.6.>@!*@&8L(BPM3.6!0>P)
  2051. +M_B\P&``O"R\L$GQ(;`3^2&P,"$ZZ,Z)(>``"3KHRK$_O`!A(>`$`3KHP1%A/
  2052. +M8!H@15*%(@@;A!@`NH9F#MR&+P8O#4ZZ+?Q03RI`""H````;9R93J@`(;18(
  2053. +M*@`-`!YF#B!J``12J@`$<``0$&`2+PI.NC666$]@""\*3KHUC%A/*`!2@&:H
  2054. +M+PI.NCCV6$]*A6\*<`JP-5C_9@)3A2P%8#(@#68B("P".+"';01A`/Q((BP"
  2055. +M.%*L`CCE@2IR&``@34H89OQ@!B!-2AAF_%.(D<TL"$JL$KAF"$JL$KQG``".
  2056. +M(`9R,M"!+P!.NB^"6$\F0$JL$KAG#$'L!0HB2Q+89OQ@"D'L!1XB2Q+89OP@
  2057. +M2TH89OQ3B)'+*`@@"")+T\`O!B\-+PE.NBSN3^\`#-B&)$O5Q$JL$KAG#$'L
  2058. +M!2(B2A+89OQ@"D'L!38B2A+89OP@2DH89OQ3B)'*V(A(>``!2&P2R"\$+PM.
  2059. +MNLAJ8!!(>``!2&P2R"\&+PU.NLA83^\`$$AL$U(O!B\-3KK3/$_O``Q*@&<(
  2060. +M+P!A``'$6$]*K!*P9F)*K!+`9EP@+!-.9QYR,K"!9QA"ITAL$QQ.NBO,4$]%
  2061. +M[!,<U>P33K"*9P9"K!+$8#)"$DAL!3I.NB!*6$]*@&<.2&P3'$AL!41.NB9(
  2062. +M4$\O+P$P2&P3'&$``R903W`!*4`2Q"`'D*P".'("L(%L!G`!*4`2K&$`\T0L
  2063. +M+P`H*B\`)+ZL`CAO``#.)&\!/&```+I"K!*<0JP2C"(L`CA2K`(XY8$@<A@`
  2064. +M<``O`"\`+P@I2!*83KH8ND_O``PI0!*4:BXB+"U,Y8%![`G^+S`8`"\L$I@O
  2065. +M+!)\2&P%5DAL#`A.NC$T3^\`%'`!*4`2>&!:80#UAB@`9P9P`2]``2PO+!*4
  2066. +M3KH'4%A/2H9G*$JL$JQF%"\$+RP2F$AL!6).NB5V3^\`#&`D+P1(;`5J3KHE
  2067. +M9E!/8!9*A6<22H1G#B\L$IA(;`5N3KHE3E!/("P".+"';0#_0&`R80#U("@`
  2068. +M9P9P`2]``2Q*AF<.+P1(;`5R3KHE)%!/8!)*A6<.2H1G"DAL!79.NB386$]*
  2069. +MK!)X9PI(>``"3KHOE%A/2J\!+&<(0J=.NB^&6$](>``!3KHO?%A/<`%,WRST
  2070. +MWOP!%$YU(`^0?``0L*P,?&4`*?P@;P`$+P@O+!)\2&P%@$AL#`A.NC`XWOP`
  2071. +M$'`"+T``!$[Z+SP@#Y!\`!RPK`Q\90`IREE/2.<!-"XO`"0J;P`<)DTD;P`@
  2072. +M2JP2Q&9J1^\`'";-)LHFQTS?+(!8CT[ZQ"(F2BIO`!Q@`E.+M\UC!G`*L!-F
  2073. +M]"I*)&\`(&`"4HV[RF0&<`JP%6;T4HT0%4(5+R\`+"\O`"PO!R\-+PLO+P`L
  2074. +M'T``*$ZZP]I/[P`8&J\`$$J`9A@F32`*D(TO`"\+80``%%!/)$!*@&:6<`!,
  2075. +MWRR`6$].=2`/64"PK`Q\90`I'%E/2.<"-"PO`!PJ;P`8("PK^+"&;@``MB9-
  2076. +MU\8@+"OX(@#E@;R!;PH@2Y'!+T@`$&`$+TT`$"1-U<!3BBIO`!!@(-7&<``0
  2077. +M$DC`Y8!#[!-PU?$(`'``$!)(P"(`Y8'5\1@`M<UD&'``$!)(P"(`Y8%![!-P
  2078. +M+#`8`&;(8`)2BK7+9!1P`!`22,`B`.6!0>P3<$JP&`!FYK?*9S(L+"OX4X8J
  2079. +M2E.&;1A3C7``$!5![!=P$C```$/L&'"R,6@`9^1*AFL&4HI@`/]V(`I@`G``
  2080. +M3-\L0%A/3G4@#Y!\``RPK`Q\90`H.$CG+A0L+P`@*F\`'"!-2AAF_%.(D<TI
  2081. +M2"OX2H9G4GH`*`A@1B9-U\40$TB`2,!![`J]"#````@`9QX(,```"`!G#!`3
  2082. +M2(!(P'(@T(%@#A`U6`!(@$C`8`00-5@`2(!(P$'L&'`1@%@`4H6ZA&VV8!(O
  2083. +M+"OX+PU(;!AP3KHH:D_O``QZ`$OL$W`H+"OX*L0@!4'L%W`1@`@`4H4,A0``
  2084. +M`0!MZGH`*"PK^%.$8")P`$'L&'`0,%@`2,`B`.6!("PK^)"%4X!![!-P(8`8
  2085. +M`%*%NH1MVDOL&&_;["OX<``0%4C`Y8!![!-P0K`(`$J&9P``I'P`8$)'[!AP
  2086. +M<``0,V@`0>P*O0@P``$(`&<J"#```0@`9PIR`!(`=""2@F`$<@`2`"`!Y8`B
  2087. +M+"OXDH93@4'L$W`A@0@`4H:\A&VZ<``0%4'L"KT(,``!"`!G(`@P``$(`&<*
  2088. +M<@`2`'0@DH)@!'(`$@#E@4'L$W!"L!@`?$%![`J]"#```&@`9P@@!G(@T(%@
  2089. +M`B`&0>P7<!&`:`!2AG!:O(!OVDS?*'1.=0``2.<@,B!O`!A#[P`<1?H`'"9O
  2090. +M`!0D"RQY````!$ZN_?8@"Y""3-],!$YU%L!.=0``3KH'O"`L+51.=0``(&\`
  2091. +M!")O``A93TCG,S8J2'X`(&PM*"PH`.`O20`@2H9F($JL#*1F&D'L!:`B""QL
  2092. +M+90D/````^U.KO_B+`!G`GX!2H9G-B(&0>P%JB0(0>P,K"8(+&PME$ZN_IXB
  2093. +M!B0-)B\`($ZN_IXB!G0*3J[^R$J'9U@B!DZN_]Q@4"!L+2@F:`"X,'S__[?(
  2094. +M9T!#[`6P<"4L>``$3J[]V"1`2H!G+"EL#*P%E"E-!9@O"B!++$I#[`6,E<HF
  2095. +M;P`D3J[]M$S?!``B2BQX``1.KOYB3-]LS%A/3G4@;P`$0^\`"&$`_RI.=2!O
  2096. +M``1#[P`(80#_''`43KHJUDYU``!(YP`&<`AR`"QX``1.KO\Z*D!*@&8$<`!@
  2097. +M+D*M``1(>``H<``O`$'L!<1R`9/)P4%.NA[^4$\J@&8,(DUP"$ZN_RYP`&`"
  2098. +M(`U,WV``3G4@;P`$2.<`!BI((`UG&"!-80``'B!53KH?0B)-<`@L>``$3J[_
  2099. +M+DS?8`!.=2!O``1(YP`&*DA*K0`$9Q0B52QX``1.KOX@(E5.KOXF0JT`!$S?
  2100. +M8`!.=2!O``0@4")H``YP`!`I``]R`>&A(`%.=2!O``0@+P`((B\`#$CG`P8L
  2101. +M`2X`*DAAJDJ'9@1*AF<>(E4C1P`@(T8`)#-\``D`'"QX``1.KOXR<`$K0``$
  2102. +M3-]@P$YU(&\`!$CG``8J2$JM``1G'")5+'@`!$ZN_BQ*0&<.(E5.KOXF0JT`
  2103. +M!'`!8`)P`$S?8`!.=2\.("PM-"(`2$%"0=*`("PM*+.`*4`L`$*L+`1#[`78
  2104. +M<``L>``$3J[]V"E`*_QP_TZN_K9(@$C`*4`%U$JL*_QG"$J`:P1P`6`"<``I
  2105. +M0"P(+%].=2\.("P%U&L(+'@`!$ZN_K`@+"O\9PHB0"QX``1.KOYB+%].=2`O
  2106. +M``113TCG`P`N`$ZZ!0`@!TZZ`9!*@&<H(D`@:0`<<D#EB<*1+T@`#"`!(&D`
  2107. +M!")O``Q.D2P`(`=.N@%((`9@`G#_3-\`P%!/3G4@+P`$+P<N'V"N```@;P`$
  2108. +M("\`"")O``PO;P`0``0O;P`4``@O;P`8``PO;P`<`!`O;P`@`!0O;P`D`!A1
  2109. +M3TCG!Q0N`$CO`P``%'P`*FPL#&`62JT`!&8*,'P``2M(``1@#%*&VOP`)+RL
  2110. +M+!!MY"`L+!"\@&9X<@K3K"P0("PL$"(`YX'2@.6!(`%.NB7P*D!*@&8,<`PI
  2111. +M0"U,</]@``".</;0K"P0(@#G@=*`Y8$@;"P,(DU@`A+84X%D^B`L+`QG!B!`
  2112. +M3KHD$BE-+`QZ]MJL+!`@!>>`T(7E@-O`E\LK2P`$4H7:_``DNJPL$&WP(`;G
  2113. +M@-"&Y8`@;"P,(:\`%`@$(8<(`"&O`!@("$OO`"`AG0@,(9T($"&="!1+[P`L
  2114. +M(9T(&"&="!PAG0@@(`9,WRC@4$].=2`O``0B`&L6LJPL$&P0(`'G@-"!Y8`@
  2115. +M;"P,0K`(!$YU("\`!$CG`00N`&L>OJPL$&P8(`?G@-"'Y8`J;"P,V\!*K0`$
  2116. +M9P0@#6`(<`DI0"U,<`!,WR"`3G4@+"P03G4``"`O``193RZ`0>P%["`(6$].
  2117. +M=2!O``193RZ(0>P%["`(6$].=2`L!>Q.=0``64]*K`8>9@Q![P`#*4@&'F'N
  2118. +M8!9![P`#(FP&'K/(9`1P`6`"</\I0"P46$].=5E/2.<!%"XO`!1*K"P49@)A
  2119. +MP"IL!B)@+B`L+!1O#$'O``\B;0`$L\AB$$J`:AQ![P`/(FT`!+/(9!`F52\-
  2120. +M3KHBIEA/*DL@#6;.*4T&(DJ'9@1P`&`B4(<O!TZZ)"X@0""L!B)#[P`3(4D`
  2121. +M!$/H``A83RE`!B(@"4S?*(!83TYU```@+P`$64\N@"`L+21G#B!`3KK\BDJ`
  2122. +M9P1R`6`"<@`@`5A/3G4@+P`$(&PM)'(`3OK\,$ZZ^V0I0"TD9@I(;`8H3KK[
  2123. +M0%A/(&PM)$ZZ^_2!K"P83G4@;"TD3OK[D`CL``PL&DYU("\`!`@```Q6P$0`
  2124. +M2(!(P$YU".P`#2P:3G4@+P`$"```#5;`1`!(@$C`3G5.NAE6<``@;"V$$"@`
  2125. +M#W(!X:&#K"P83G5.^AFH("\`!%E/2.<!%B]``!!^`&`N("T`%$ZZ&/XF0$J`
  2126. +M9Q1*JP`49@Y^`7`!)T``%"=M`!@`&")-<!PL>``$3J[_+B!L+80L>``$3J[^
  2127. +MC"I`2H!FP"`'3-]H@%A/3G4@+P`$2.</!"X`<`'OH"P`<`F^@&8&<`!.N@L4
  2128. +M("PM',"&9P:-K"T@8'HJ!D:%RZPM($J':V9P(+Z`;&`@!^>`0>PL'"IP"``P
  2129. +M?``!N\AF+"`'58!G%%.`9Q!R#9"!9SQ9@&<X48!G-&`*2&P&0$ZZ^?Q83W``
  2130. +M3KH*MF`@(`UG'"`'YX`H!D'L+!R(L`@$B:PM'"`'3I5&A,FL+1P@+"T@P(9F
  2131. +MBDS?(/!.=2`O``0O#B(L+!B"@'``+'@`!$ZN_LXL7TYU("\`!"\.(@`@+"P8
  2132. +M@($L>``$3J[^PBQ?3G4@+P`$2.<#`"X`?`!A`/X02H!G"'P!<`YA`/\,(`=A
  2133. +M`/YB2H!G"'P!<`)A`/[Z(`=A`/YJ2H!G"'P!<`-A`/[H(`=A`/Z&2H!G"'P!
  2134. +M<!1A`/[6(`9,WP#`3G4@+P`$+P<I0`R$<`@N'V``_KQP`&$`_V!@D&#V2.<!
  2135. +M%'X`2^PL'#9\``$JBT*M``12AU"-<""^@&WP0JPM($*L+1Q"K"P880#]U&$`
  2136. +M_>IA`/VB3-\H@&``_?AA`/VX8`#^"```2&P&5$ZZ^-A83TYU("\`!"\-3KHA
  2137. +M5"I`2H!F`F'B(`TJ7TYU(&\`!"`O``@O"TZZ'Q`F0$J`9@)AQB`+)E].=2!O
  2138. +M``0O#2I((`UF!$OL!EX@34H89OQ3B)'-(`A2@$ZZ(0@@0$J`9@1P`&`((D@2
  2139. +MW6;\(`@J7TYU64](YP,T?@!\`"!L+2@F:`#08"Q**P`(9B0P/`4`P&L`#F8:
  2140. +M4H<@:P`*(`A*&&;\4XB1P"`(W(#<JP`45(8F4TJ39M`@!U*`Y8#0AF$`_THI
  2141. +M0"U`Y8<@0")`T\=%Z0`$+T``%&8*0>P&4"E(+4!@5B!L+2@J:`#08$)*+0`(
  2142. +M9CHP/`4`P&T`#F8P)FT`"BXM`!0@;P`4(,HO2``48`(4VTH39OH4_``])FT`
  2143. +M$&`"%-L@!U.'2H!F]D(:*E5*E6:Z(&\`%$*03-\LP%A/3G4@;P`$("\`""\-
  2144. +M*D@J@$*M``3E@&$`_K0K0``(*E].=2!O``0B;P`(("\`#$CG(C0F22I(2H!G
  2145. +M"B!+80#^PB1`8`(D2R`*9SXB%20M``2T@6TB+`'<AG00TH*\@6T"(@8J@2`!
  2146. +MY8`@;0`(3KH=CBM```AG$D?M``0B$U*;Y8$@6R&*&`!P`4S?+$1.=2!O``0B
  2147. +M;P`(("\`#&&22H!F!&$`_AI.=2!O``0B;P`(2.<`%"9)*D@@+0`$T*L`!+"5
  2148. +M;Q+0@"J`Y8`@;0`(80#^&BM```@B+0`$Y8$@;0`(T<$@*P`$(@#E@2)K``A@
  2149. +M`A#94X%D^M&M``0@:P`(3-\H`$[Z'7X@;P`$(F\`""]O``P`!"`O`!`B+P`4
  2150. +M64](YP(T+`$J221(+T@`$$J`9T13@&<*4X!G``"V8```]%.&9R(@+P`8(@V0
  2151. +M@2!O`!!",`@`($$B;P`08`(2V%.`9/I@``#.0>P&8")O`!`2V&;\8```OB9O
  2152. +M`!A@;G!<L!5F9DHM``%G8%2-<`&\@&8&%/P`86!4(`95@&9&$"W__TB`2,!R
  2153. +M(Y"!9RY5@&<J58!G)E.`9R)3@&<>4X!G&G(5D(%G%'(<D(%G#E6`9PIR'Y"!
  2154. +M9P15@&8$%/P`)Q3M__]@"!3M__]@`A3=N\MECF!`)F\`&&`V<"JP%68N2BT`
  2155. +M`6<H5(T0+?__2(!(P')ED(%G#'()D(%F#!3\``I@#A3\`!M@"!3M__]@`A3=
  2156. +MN\MEQD(23-\L0%A/3G6>_`$L2.<_-BIO`5@@;`R@#&@`)0`49`I(>``43KJ1
  2157. +MZEA/0JP+X'`!*4`+W"E`#`)P`BE`"_XI0`PD*7P```"$#""3R2QX``1.KO[:
  2158. +M*4`M*$ZZ]2@I0"TL9@I(;`9B3KKU!%A/(&PM+$ZZ];@I0"TP+&PM+"!6+&@`
  2159. +M%"E.+3Q![P$P3J[_OBEO`3`M-$ZZ]B!.NONL(&PM*"`H`*QG$.6`(D`B*0`T
  2160. +MY8$I02TX8`8I:`"$+3A*%68``.A![`9Z(@@L;"V4)#P```/N3J[_XBP`0>P&
  2161. +M@"((3J[_XBX`0>P&AB((3J[_XBH`2H9G"$J'9P1*A68B2H9G!B(&3J[_W$J'
  2162. +M9P8B!TZN_]Q*A6<&(@5.KO_<80#[<G`!+P`O!2\`+P<B!L%!3KH-;"!L#*0@
  2163. +M*``<0>\!6&$`_)Y/[P`0?`!^`&!0(FP,I"!I`"0@,'@`9SXB`$/O`#`D"2QL
  2164. +M+91V0.6+3J[^;DJ`9R8B;`RD(&D`)-''("@`!&<((@(D`$ZN_(Y![P%(0^\`
  2165. +M,'`!80#\V%*&4(<@;`RDO*@`'&VF8``"S"QL+91.KO_**`!.KO_$*@!^`"!L
  2166. +M+2@L*`#@9BA^`4'L!HPB""0\```#[4ZN_^(L`&820>P&CB((3J[_XBP`9@1A
  2167. +M`/JD+P<O!G``+P`O!2($P4%.N@R>0>\!6'`!80#[UB`\```%&F$`^HX@0#%\
  2168. +M!```$B]``#QP0.6(80#Z>D_O`!!^0.6/+T`!.&`"4HT0%4B`2,!![`J]"#``
  2169. +M`P@`9NP0%6<``A9R(K`!9C!2C29-8!!P*K`59@A*+0`!9P)2C5*-$!5G!G(B
  2170. +ML`%FYB1-$!5R(K`!9@)2C7P"8%1P)[`59B!2C29-8`)2C1`59P9R)[`!9O0D
  2171. +M37`GL!5F`E*-?`%@+B9-8!!P7+`59@A*+0`!9P)2C5*-$!5G$G(@L`%G#'(*
  2172. +ML`%G!G()L`%FVB1-?``@2RH*FHL@!5*`+T@`*&$`^;8F0$JO`4QF("`%($LB
  2173. +M;P`H3KH8AD(S6`!![P%((DMP`&$`^V!@`/\FVH5R$-J!NH=O%"!O`3A.NADP
  2174. +M(`5A`/EV+@4O0`$X+PH@!B!+(F\`+'(!80#[KEA/(@LD+P$X)@<L;"V43J[\
  2175. +MN"H`;!!"$B\O`"A(;`:43KKR"E!/2H5F(B\*(`8@2R)O`"QR`&$`^W1![P%,
  2176. +M(DMP`&$`^NA83V``_JQZ`2!O`"Q"J``(0B@`$4(H`!`O"B`&($LB;P`L<@)A
  2177. +M`/M`0>\!0'`080#Z)EA/(@LD+P`L+&PME$ZN_,HH`&8\8"IZ`")O`"S2_`$8
  2178. +M0>\!/'`!80#Z($J`9@1X9V`2(B\`+"QL+91.KOS$*`!*A&?2(B\`+"QL+91.
  2179. +MKOR^<'30@+B`9PI(;`:H3KKQ5EA/2H5G(B\*(`8@2R)O`"QR`&$`^L!![P%,
  2180. +M(DMP`&$`^C183V``_?@@+P%`(&\!1$ZZ$OI![P%(0^\!/&$`^BH@2TZZ%_9@
  2181. +M`/W6(&\!.$ZZ%^H@;P`L3KH7XF$`^))![`;"3KH+,BE`!>QF"$'L!L@I2`7L
  2182. +M0>P&SDZZ"QPI0`8`9@8I;`7L!@!![`;83KH+""E`!@1F"$'L!MXI2`8$0>P&
  2183. +MXDZZ"O(I0`8(9@A![`;H*4@&"$'L!O!.N@K<*4`M1&8(0>P&^BE(+40@+P%,
  2184. +M(&\!4")L+4!.NC$Z<`!.NAM<3-]L_-[\`2Q.=2`O``1(YP,`+@!*K"U(9P0@
  2185. +M!V!@?``@!P*````!)&<"?`@(!P`'9P0`1@`%"`<`!&<$",8``@@'``%G!`C&
  2186. +M```(!P`#9P0(Q@`!"`<``&<$",8`!B`'<DG`@7)`L(%F!`!&`$((!P`)9P0(
  2187. +MQ@`%(`8*0``/3-\`P$YU("\`!$CG!@`L`$JL+4AG""`&`D`/_V!>>@`*1@`/
  2188. +M"`8``V<$>DGEC2`&<@7`@5N`9@0(Q0`'"`8``F<$",4`!`@&``!G!`C%``$@
  2189. +M!G)"P(%G!`C%``8(!@`!9P0(Q0`#"`8`!F<$",4```@&``5G!`C%``D@!4S?
  2190. +M`&!.=0``2.<#`$ZZ\P8N`'P`8`HO!DZZ\6Y83U*&O(=M\DS?`,!.=2`O``0O
  2191. +M!RX`8=1.NO#B3KKV6"!L+2Q.NN^@+P=.NHO66$\N'TYU("\`!"\'+A]@U```
  2192. +MGOP`#$CG+S8J;P`T?@/.KP`X?`$@;"TH)F@`N"H\```#[$ZZ]<I*AV<*<`*^
  2193. +M@&<$<@!@`G(!+T$`*'`!OH!G"%6'9P1P`&`"<`$O0``L($U#[`<`3KH0SDJ`
  2194. +M9@9X_V```51P_R!L+2@A0`"X(@TL;"V4=/Y.KO^L+@`@;"TH(4L`N$J`9G@L
  2195. +M;"V43J[_?$ZZ"B0L`"`L#(!R+D8!L(%G!$J`9@I^`2H\```#[F`6(`95@&8,
  2196. +M""\`"``Z9P1P`6`"<``N`$J'9RQ\``@O``@`.F<<""\`#P`Z9P9X`F```-8@
  2197. +M+P`\3KK]TB@`8```R'C_8```PBE&+4QP_V```4)"IRQL+91R`B0/3J[_'$_O
  2198. +M``0D0$J`9PPB!R0*3J[_FDJ`9A8@"F<()`IR`DZN_Q9.N@I^</]@``$(*"H`
  2199. +M="0*<@).KO\6(@=.KO^F<%#IB,"O`#@,@```!0!F#'`1*4`M3'#_8```VDJO
  2200. +M`"AG!@@$``-F#$JO`"QG$@@$``)G#'`-*4`M3'#_8```M@@O``D`.F<B(@TD
  2201. +M/````^Y.KO_B2H!G""(`3J[_W&`*3KH*`G#_8```C`@O``@`.F<$(`5@!B`\
  2202. +M```#[20`(@TL;"V43J[_XBH`9@A.N@G6</]@8`@O``D`.F8$2H9F!"P$8`)\
  2203. +M_WX`2J\`*&<"?@%*KP`L9P0(QP`!""\``P`[9P0(QP`#+P<@!2(&3KH%GEA/
  2204. +M+@!L''#_(&PM*"%``+@B!2QL+91.KO_<(&PM*"%+`+@@!TS?;/3>_``,3G4@
  2205. +M;P`$+R\`#"\O``PO"&$`_:A/[P`,3G6>_``,2-<!`W#_WOP`#$YU44](UP,`
  2206. +M4$].=4CG,`(B$$HH``UG!'``8!PD"28`+&PME$ZN_]8B`%*`9@A.N@D0</]@
  2207. +M`B`!3-]`#$YU44](YS\V+@`J229(+!,O1@`H+T@`+$HK``UG!G``8```C$HK
  2208. +M``QG9B9-U\=Z`&!8)$U@`E**M<MD!G`*L!)F]+?*9@0H"F`&0>H``2@(F(TB
  2209. +M+P`H)`TF!"QL+91.KO_0+`!2@&8(3KH(FG#_8#[:AK:&9C9+Z@`!GH9P`$ZZ
  2210. +M\BA.NO)82H!F(DJ'9J1@'"(&)`TF!RQL+91.KO_0*@!2@&8(3KH(7G#_8`(@
  2211. +M!4S?;/Q03TYU64](YS\"+@`L$"]!`!Q**``-9P1P`&!24X$F`2(&)`<L;"V4
  2212. +M3J[_OBH`3J[_?"@`4H5G!$J$9PX@!$ZZ!Q@I0"U,</]@)"(&=``F`DZN_[XL
  2213. +M`%*`9P1*A&<.(`1.N@;V*4`M3'#_8`(@!DS?0/Q83TYUGOP!`$CG/P8N`"I(
  2214. +M+!4J+0`(("T`!&<*(@`L;"V43J[_IA@M``U(A$C$($U.NA($2H1G!'``8$0B
  2215. +M!D'O`"`D""QL+91V0.6+3J[^:"@`2H=F"B(&3J[_W$J`9QI*A&<2</^Z@&<,
  2216. +M(@(D!4ZN_T9*@&<$<`!@!DZZ!V1P_TS?8/S>_`$`3G4@+P`$2.<@`B(`+&PM
  2217. +ME'0`3J[_-$ZN_WQT+D8"L()7P40!2(%(P2`!3-]`!$YU("\`!"!O``@B;P`,
  2218. +MGOP`$$CG-Q8N`"9)*DA\`&&X2H!F?"('+&PME'0!3J[^5DJ`9VPB!T'L!P@D
  2219. +M"'8$3J[_T%F`9E(B!R0\```G$$ZN_S1*@&="(@=![P`@)`AV$$ZN_]9R";"!
  2220. +M;RYPF[`O`"!F)D'O`"4B""0+3J[\T"H`0>\`)M'`(@@D#4ZN_-!2@&<&4H5G
  2221. +M`GP!(@=T`$ZN_E8@!DS?:.S>_``03G4@+P`$(B\`")[\`A!(YS\&+@!P_R]`
  2222. +M`B@O00`D(@<L;"V4=`!V`4ZN_[XO0``@(@=.KO^^+`!.KO]\*@`O0`(L9@``
  2223. +MPB@O`"0B!R0$=O].KOXXL()F``"NO()L``">*@2:AB@%(`1R`4A!+'@`!$ZN
  2224. +M_SHJ0$J`9FIR`DA!3J[_*.*(*@`,A0```@!M$"`%<@%(04ZN_SHJ0$J`9D9Z
  2225. +M0.>-2^\`*#`\`?]R`$'O`"@0P5'(__Q@++B%;P0@!6`"(`0F`$ZZ[_HB!R0-
  2226. +M+&PME$ZN_]"P@V<*3J[_?"]``BQ@!IB#2H1NT$'O`"BQS6<,(DT@!2QX``1.
  2227. +MKO\N*B\"+&8$0J\"*"PO`""\KP`D;`XB!R0&+&PME';_3J[_OBPO`BAG"B`%
  2228. +M3KH$7BE`+4P@!DS?8/S>_`(03G6>_`$(2.<W%BX`)DDJ2"P52BT`#68``1@@
  2229. +M!P2````$`&<@!(````0`9TI3@&=84X!G7%.`9UY3@&=F4X!G;&```.Y*+0`,
  2230. +M9R8@!D'O`21#[P$@80#]UDJ`9Q0@+P$D-T```B`O`2`V@'``8```RG`98```
  2231. +MOB(&+&PME$ZN_R@F@'``8```LB:&<`!@``"J<`!@``"D(`8B$V$`_C9@``"8
  2232. +M*U,`"'``8```CBH32JT`!&8.(A4L;"V43J[^C"M```0@+0`$9V(D`"(%+&PM
  2233. +ME$ZN_EQ*@&92(@9![P`@)`AV0.6+3J[^:$J`9SXB!4ZN_Z8B+0`$3J[_IB(&
  2234. +M3J[_W"("=`!.KO]&&WP``0`-*H(K0@`$0>\`("((+&PME$ZN_[A*@&<$(`)@
  2235. +M#DZZ!!Q@!G`6*4`M3'#_3-]H[-[\`0A.=2`O``0B+P`(+V\`#``$2.</!BHO
  2236. +M`!PL`2X`<`Y.N@_B*D!*@&8*<`PI0"U,</]@3D/5(L="F2+&0BT`#2('+&PM
  2237. +ME$ZN_R@;0``,2'K^=$AZ^]I(>OMD2'KZK$AZ^G9(>OIH(`4@34/Z^E!.NNE4
  2238. +M3^\`&"@`;`8@34ZZ#>(@!$S?8/!.=2`O``0B+P`(+V\`#``$+V\`$``(+V\`
  2239. +M%``,+V\`&``02.<-`"@O`!0J+P`0+@!P`$J!9@1P0.6(`$```2\`(`=R_V$`
  2240. +M_T983TJ`9D!P`$J$9@1P0.6(`$```B\`(`5R_V$`_RA83U.`9B)P`$JO`!QF
  2241. +M!'!`Y8@`0``"+P`@+P`<<O]A`/\&6$]5@&<00>P'#B](`!!,WP"P3OKF6$S?
  2242. +M`+!.=0``("\`!"!O``@B+P`,64](YP,T+`$N`"I(3KKM!"`'3KKIE"9`2H!G
  2243. +M1`@K``$``V<V""L``P`#9Q8@:P`8+T@`%"!K``1P`'("(F\`%$Z1(&L`%"](
  2244. +M`!0@!B!K``0B321O`!1.DF`(<`TI0"U,</],WRS`6$].=2`O``0@;P`((B\`
  2245. +M#$CG`P1,WR#`8(`@;P`$GOP`0$CG.Q8J2$ZZ[((@#6=22A5G3B(-0>\`("0(
  2246. +M+&PME'9`>`!.KOQV+@!M-DZN_WPL`%*`3KH.$"9`2H!G)+Z&9Q0F!E*#(@TD
  2247. +M"TZN_'9*@&\0(`)@#B!"(DL2V&;\(`M@`G``3-]HW-[\`$!.=2`O``0B+P`(
  2248. +M+V\`#``$44](YP<`*B\`&"P!+@!.NNP`(`=.NNB02H!G&B)`(&D`&"](`!`@
  2249. +M!B(%(&D`!")O`!!.D6`"</],WP#@4$].=2`O``0B+P`(+V\`#``$2.<'`"HO
  2250. +M`!`O10`03-\`X&"@```@+P`$(&\`""(O``Q93TCG`S0L`2X`*DA.NNN4(`=.
  2251. +MNN@D)D!*@&<F""L````#9Q@@:P`0+T@`%"`&(&L`!")-)&\`%$Z28`AP#2E`
  2252. +M+4QP_TS?+,!83TYU("\`!"!O``@B+P`,2.<#!$S?(,!@G@``("\`!"E`#(!*
  2253. +M@&<``(9R9Y"!9P``@E6`9P``@'()D(%G?%.`9WA3@&=T4X!G<%.`9VQ3@&=H
  2254. +M4X!G:%.`9VAR49"!9V93@&=F4X!G9E.`9V93@&=F4X!G9E6`9V93@&=F4X!G
  2255. +M9E.`9V95@&=F4X!G9E.`9V93@&=F4X!G9E.`9V95@&=F4X!G9E.`9V93@&=F
  2256. +M8&AP`&!F<`Q@8G`+8%YP%F!:<`=@5G`(8%)P$&!.<!%@2G`"8$9P`F!"<!9@
  2257. +M/G`'8#IP%F`V<"1@,G`68"YP%F`J<!Y@)G`28")P)6`><"9@&G`38!9P%F`2
  2258. +M<!Q@#G`-8`IP#6`&<`U@`G#_3G4O#BQL+91.KO]\80#^^BE`+4PL7TYU3KKJ
  2259. +M*$ZZ\^).NN)B<@9.^@#R```@;P`$("\`"%E/2.<!%BX`+T@`$"!O`!`J4&!D
  2260. +M<`VP+0`(9EH@+0"L9P;E@"!`8`*1R"9(("T`G+"'9S0@+0"@L(=G+"`M`."P
  2261. +MAV<D(`MG+B`K`!RPAV<8("L`(+"'9Q`@*P`XL(=G""`K`#"PAV8.(DUP8.^(
  2262. +M+'@`!$ZN_KPJ54J59IA,WVB`6$].=2`O``0B+P`(2.<!`BX`(`%3@&<,4X!G
  2263. +M"%.`9P1=@&8L+'@`!$ZN_WP@;`R@T/P!EB`'80#_2"!L#*#0_`&D(`=A`/\Z
  2264. +M3J[_=G``8`AP%BE`+4QP_TS?0(!.=2`O``0B+P`(2.<&!"P!*@!.NND>2H5J
  2265. +M`D2%NJPM5&8.2H9G!B`&3KKGPG``8$@@!4ZZ`&XJ0$J`9P9*K0`49PIP`RE`
  2266. +M+4QP_V`L(`9G*"(M`!#!06$`_U@B`'`)O(!F%'(!*T$`%"M``!AP%$ZZYWQP
  2267. +M`&`"(`%,WR!@3G4``"!O``1(YP`&*D@B32QX``1.KO\$($U,WV``3OH(K"`O
  2268. +M``1(YP$$+@`J;"U88`X@+0`,L(=F!"`-8`@J54J59NYP`$S?((!.=4CG(`)!
  2269. +M["U83KHA:B`L+2@B+"TT)`"S@@*"`'___RE"+512@BE"+5`O`2\`2&P*H$AL
  2270. +M+61.NN!&3^\`$"QX``1.KOUF*4`MB&<00>PM9'``3KHA?BE`+81F"DAL"JY.
  2271. +MNN$Z6$],WT`$3G5(YP`&("PMB&<*($`L>``$3J[]8$JL+81G."QX``1.KO]\
  2272. +M8`PB37`<+'@`!$ZN_RX@;"V$+'@`!$ZN_HPJ0$J`9N(@;"V$3KH@UBQX``1.
  2273. +MKO]V3-]@`$YU```@;P`$("\`""(O``PB;P`0+V\`%``$+V\`&``(64](YP\V
  2274. +M*"\`+"HO`"@L`2X`*DDO2``@+'@`!$ZN_68F0$J`9S`@2R`$3J[]<B1`2H!G
  2275. +M(B`-9P@E30`H)44`)"!O`"`@!R)*(@9.KOY$2@!F!"`*8!8@"F<&($I.KOUL
  2276. +M(`MG!B!+3KH@0'``3-]L\%A/3G4@;P`$2.<`!BI((`UG&")-+'@`!$ZN_CX@
  2277. +M;0`.3KH@%B!-3J[];$S?8`!.=5E/0?D`````+HAG""!Y_____$Z06$].=5E/
  2278. +M0?D`````+HAG""!Y_____$Z06$].=4CG`P0J;P`0($U*&&;\4XB1S2X(8`H@
  2279. +M!D'L"^9.N@R"?``<'4J&9NY![`OF3KH0AB`'3-\@P$YUGOP`$$CG!Q1^`$OO
  2280. +M`"Q@``":<"6P+P`49@``@"!O`"A2KP`H$!!R`!(`'T``%7!DDH!G.G`,DH!G
  2281. +M#E>!9P9;@6<&8$0F76`T+!U'[P`>>@<@!G(/P(%!^@!XT<`6D%.+Z(93A4J%
  2282. +M:NA"+P`?8`H@'4'O`!=.N@(:1^\`%R\+3KK_2%A/WH!@(E*'<``0+P`50>P+
  2283. +MYDZZ"])@$%*'<``0+P`40>P+YDZZ"\`@;P`H4J\`*!`0'T``%&8`_UA![`OF
  2284. +M3KH/NB`'3-\HX-[\`!!.=3`Q,C,T-38W.#E!0D-$148`````2.<#%RIL+8Q@
  2285. +M%"95<!30K0`$(DTL>``$3J[_+BI+(`UFZ$*L+8Q@3"IL+9APG-"L#'PF0"`M
  2286. +M``0I0"V8*6T`"`Q\+BT`&$J`9AX@;`R@#&@`)``491(@3RP(0>T`#"QX``1.
  2287. +MKOTD+D8B2R`'+'@`!$ZN_RY*K"V89JY,W^C`3G4@;P`$(F\`""!0(E$0&+`9
  2288. +M9@1*`&;VD"%(@$C`3G4@;P`$("\`"$/Z_^!R!$[Z""H@;P`$(F\`""`O``Q*
  2289. +M@&\*$A`0T1+!4X!F]DYU(&\`!")O``AP`'(`$!@2&0P``&%M"@P``'IN!`0`
  2290. +M`"`,`0!A;0H,`0!Z;@0$`0`@D(%F!$H!9M1.=0``("\`""!O``1.5?_T(D]R
  2291. +M"DZZ`G`&00`P$L%*@&;P(`D0X;_)9OI"$)"/3EU.=0``("\`""!O``1.5?_T
  2292. +M(D\B``)!``<&00`P$L'FB&;P(`D0X;_)9OI"$)"/3EU.=0``,#$R,S0U-C<X
  2293. +M.6%B8V1E9B`O``@@;P`$44\B3S(``D$`#Q+[$-SHB&;R(`D0X;_)9OI"$)")
  2294. +M4$].=0``("\`""!O``0O"$J`3E7_]")/;`80_``M1(!R"DZZ`<@&00`P$L%*
  2295. +M@&;P$.&_R6;Z0A`@"$Y=D)].=0``(&\`!")O``A(YS`@)$AR`"`!)@$,$``K
  2296. +M9P@,$``M9@1V`5)($!@$```P;1H,```);A0D`>6!TH+2@4H#9@32@&#BDH!@
  2297. +MWB*!(`B0BE.`3-\$#$YU(&\`!"\-*D@(+0`#`!MF,"`L#"Q.N@4.*T``!"M`
  2298. +M`!!F"G`,*4`M3'#_8!8K;`PL`!1P\\&M`!A"K0`,0JT`"'``*E].=0``(&\`
  2299. +M!$CG(!0J2"9-8"!P`!`30>P*O0@P``$(`&<*<@`2`'0@DH)@!'(`$@`6P4H3
  2300. +M9MP@#4S?*`1.=0``GOP`4$CG,39#^@"$<``L>``$3J[]V"I`2H!F!G`43KKL
  2301. +MJGX`(&P,K!XH__\@!T/O`!Q@`A+84X!D^D(W>!Q![P`<*4@,1$/L#$Q'[`Q@
  2302. +M+$V1R)7*<``B`'1]U()V*$ZN_J1P%$ZZ[&1,WVR,WOP`4$YU*BH@4W1A8VL@
  2303. +M3W9E<F9L;W<@*BH``$58250``&EN='5I=&EO;BYL:6)R87)Y`$J`:@``'D2`
  2304. +M2H%J```,1(%A```@1(%.=6$``!A$@$2!3G5*@6H```Q$@6$```9$@$YU+P)(
  2305. +M030!9@``(DA`2$%(0C0`9P``!H3!,`)(0#0`A,$P`DA",@(D'TYU+P-V$`Q!
  2306. +M`(!D```&X9E10PQ!"`!D```&Z9E90PQ!(`!D```&Y9E50TI!:P``!N.94T,T
  2307. +M`.:H2$)"0N:J2$.`P38`,`(T`TA!Q,&0@F0```930]"!<@`R`TA#Y[A(0,%!
  2308. +M)A\D'TYU``!(YW``)`!G($J!9@1"@&`8)@#&P4A"Q,%(0D)"UH)(0<#!2$!"
  2309. +M0-"#3-\`#DYU```@+`RH!$`!]"Y`3OK^8```(&\`!"`(2AAF_%-(D<`@"$YU
  2310. +M```@;P`$("\`"+`09PA*&&;X<`!.=2`(3G4@;P`$(F\`""`O``Q*@&<04X`2
  2311. +M&+(99@Q*`6<$4X!J\G``3G5N!'#_3G5P`4YU```@;P`$(F\`"!(8LAEF"$H!
  2312. +M9O9P`$YU;@1P_TYU<`%.=2)O``@@;P`$("\`#"((8`00V6<(4X!D^&`&0AA3
  2313. +M@&3Z(`%.=2)O``@@;P`$("\`#"((2H!O%K')90S3P-'`$2%3@&;Z8`80V5.`
  2314. +M9OH@`4YU(&\`!"`O``A(YP,4+@`J2&82(`UF!'``8&@@34ZZ`&YP`&!>(`UF
  2315. +M"B`'3-\HP$[Z`@`F356+,#Q__\!32,#E@"P`"!,`#V<,#&N``/_^9@0L*__R
  2316. +M(`=.N@'8)D!*@&8$<`!@'KR'8P0@!V`"(`8@32)+8`(2V%.`9/H@34ZZ``X@
  2317. +M"TS?*,!.=2!O``0@"&8"3G59@$CG/#(B+"V,9@XI?````!8M3$S?3#Q.=2)!
  2318. +ML(%O$B0!U*D`!`:"````%+"";`)@""(I``!GU&#@)@$&@P```!"P@VW&9Q(D
  2319. +M0T*"-"H``FNZY8K6@EB#8.@D0#0J``!JJ@BJ``<``$*#-BH``@)#?__EBTIJ
  2320. +M``)K0$?R.`1*:P``:S9"A#@K``("1'__Y8S8@UB$Y(Q8@TIK``)J!`!$@``U
  2321. +M1``":Q(J!.6,-#)(!`)"@`"*0C6%2`1"A#@J``!G3.6,1(1'\DC\2FL``&L^
  2322. +M0H0X*P`"Y8Q"A3HJ``("17__Y8W8A5B$6(/DC$IJ``)J!`!$@``W1``":Q(J
  2323. +M!.6,-#-(!`)"@`"*0C>%2`37J0`()BD`!+:L"KAN#+:I``AF.DJI``!G-"`L
  2324. +M+8P@0+*`9@PI:0``+8Q@$"!H``"RJ```9O8A:0`````@*0`$!H`````4+'@`
  2325. +M!$ZN_RY,WTP\3G4@+P`$(B\`"$CG#`1.NOSR*@!.N@`H*D!*@&8$<`!@$'@`
  2326. +M8`9"-4@`4H2XA67V(`U,WR`P3G4``"`O``1*@&8,*7P````6+4QP`$YU2.<^
  2327. +M,E:``H#____\#(```?_\;@``N+"L"KAN``"P)BPMC&<``*@B0["I``AN,B(L
  2328. +M+9"RJ0`,9BA%Z0`02E)K$$*$."H``@)$?__EC+"$;QI"A#@J``)K".6,1?)(
  2329. +M!&#<)BD``&=F(D-@O@CJ``<``$?R"`1"A;"$9SPL!)R`689F!"`$8##DCDIJ
  2330. +M``)J!`!&@``J`.2--T8``C=%```U10`">@1*1FL.-#)(!`)"@`",0C6&2`0F
  2331. +M*0`(EH"6A2-#``@@"EB`3-],?$YU*@"PK`JX:@0@+`JX*``&@````!0B+"V0
  2332. +M+'@`!$ZN_SI*@&8**7P````,+4Q@S")`1>D`$"-L+8P``"E)+8PC1``$(VPM
  2333. +MD``,)@26A6<H68-G)"-#``A'\E@$-7R`````Y(TU10`"-T4``.2+`$.``#=#
  2334. +M``)@%$*I``@U?(````#DC`!$@``U1``"(`I8@$S?3'Q.=2!O``0@+P`((B\`
  2335. +M#")O`!!93TCG#S8L`2X`*D@O20`@<`&^@&,``+(F3=?&(`=5@&8D+PLO#2!-
  2336. +M(DLL;P`H3I903TJ`;P``DB`&($TB2TZZ]Z1@``"$(`?BB"(&3KKZ]B)-T\`@
  2337. +M!B!-3KKWBB1->@!X`6`J+PTO"R!+(DTL;P`H3I903TJ`:A)2A=7&M<MG"B`&
  2338. +M($LB2DZZ]US7QE*$N(=ETK7-9PH@!B!-(DI.NO=&)F\`("`%(@8@32)+80#_
  2339. +M4B!*T<8@!Y"%4X`B!B)+3-]L\%B/8`#_.DS?;/!83TYU3OKO9D[Z[UX@+P`$
  2340. +M2.<!!"X`*FP,=&`((&T`!$Z0*E4@#6;T2^P+Q'`&P*T`&%6`9A@@+0`$D*T`
  2341. +M$&<.(BT`'"!M`!#!04ZZ[IP@32I0(`UFUB`'3-\@@$[ZY8`@;P`$0JPMG"E(
  2342. +M+:!(;P`,+R\`#$AL+9Q!^@`00_H`+$ZZ$K1/[P`,3G5#["V<4IEP`"!1$!@B
  2343. +MB'+_(LA*@&<"(@`@`4YU("\`!%E/+H!3K"V<4ZPMH%A/3G4``"`O``0@;P`(
  2344. +M+PTB`"I(4I5#[0`((!%2D1N!"`P@&0R````"`&T40>T`#")M``1R`<%!3KH#
  2345. +MU$*M``@J7TYUGOP"#"\-*F\"%$*O``Q"KP`$+TT`"$AO`APO+P(<0?K_JD/O
  2346. +M``Q.NA-V4$\@+P`,9Q!![P`0(F\`"'(!P4%.N@.*""T`!0`;9@@(+0`$`!MG
  2347. +M!'#_8`0@+P`$*E_>_`(,3G4O#2(`*DA#U5*9(!%2D1N!"`@@&0R````"`&T2
  2348. +M0>T`"$/L"^9R`4ZZ`T!"K0`$*E].=9[\`@A"KP`$0I=(;P(0+R\"$$'Z_[I#
  2349. +M[P`(3KH2[E!/("\`!&<00>\`"$/L"^9R`<%!3KH#`G`PP*P+_F<$</]@`B`7
  2350. +MWOP""$YU("\`!"!O``A93TCG`P0N`"I(?``?0``/<D'2@<*M`!AF#`CM``4`
  2351. +M&W#_8``!0'`SP*T`&%6`9U!P3$8`P*T`&')`TH&P@68,".T``0`;0JT`#&`T
  2352. +M""T`!0`;9P9P_V```0QP;D8`P*T`&')N1@&P@68,".T``0`;0JT`#&`*<``K
  2353. +M0``,8```YB`M``RPK0`4;#(@;0`$4JT`!"`'$(!2K0`,""T`!@`;9PYR"KZ!
  2354. +M9@@@34ZZ`V@L`$J&9P``JB`&8```J@@M``(`&V<N0JT`#"`M`!Q![P`/<@%.
  2355. +MNNPT+`!2@&8(".T`!0`;8'(@!E.`9VP([0`$`!M@9$JM`!1F("!-3KKUN$J`
  2356. +M9PH([0`%`!MP_V!8<``K0``,*VT`$``$("T`#+"M`!1M""!-3KH"[BP`".T`
  2357. +M`0`;(&T`!%*M``0@!Q"`4JT`#`@M``8`&V<.<@J^@68(($U.N@+"+`!*AF<$
  2358. +M(`9@!G(`$@<@`4S?(,!83TYU(&\`!%E/2.<!!"I(0>P+Q+O(9D1![`OF3KH"
  2359. +MC@@M``T`&F<T("T`'$'O``MR`4ZZ[-PN`&\*?@`>+P`+8``!($J'9@@([0`$
  2360. +M`!M@!@CM``4`&W[_8``!"%.M``AM$"!M``12K0`$<``0$&```/1P,\"M`!A3
  2361. +M@&<T<%Q&`,"M`!AR0-*!L(%F%`CM````&P@M``0`&V<6</]@``#&0JT`"`CM
  2362. +M``4`&W#_8```M@@M``(`&V=&0JT`"'X`'BT`($J'9PA"+0`@8```EB`M`!Q!
  2363. +M[P`+<@%.NNPV+@!O"'X`'B\`"V!Z2H=F"`CM``0`&V`&".T`!0`;?O]@9$JM
  2364. +M`!1F%"!-3KKT1$J`9PH([0`%`!MP_V!,(&T`$"M(``0@+0`<(BT`%"!M`!!.
  2365. +MNNOB*T``""X`;Q)3K0`((&T`!%*M``1^`!X08!A*AV8(".T`!``;8`H([0`%
  2366. +M`!M"K0`(?O\@!TS?((!83TYU(&\`!"`O``@B+P`,(F\`$%E/2.</$"P!+@`F
  2367. +M22](`!0@!B('3KKUGBH`>`!*AV<$2H9F!G``8```_'`PP*L`&&8*<$'0@,"K
  2368. +M`!AF#`CK``4`&W``8```WG`SP*L`&%6`9U!P3$8`P*L`&')`TH&P@68,".L`
  2369. +M`0`;0JL`#&`T""L`!0`;9P9P`&```*IP;D8`P*L`&')N1@&P@68,".L``0`;
  2370. +M0JL`#&`*0JL`#'``8```A$JK`!1F3`@K``(`&V9$($M.NO,<2H!G.@CK``4`
  2371. +M&W``8&`@;P`4$!@B:P`$$H!2JP`$4JL`#%.%4H0O2``4<@JP`68.""L`!@`;
  2372. +M9P8@2TZZ`#X@*P`,L*L`%&P$2H5NPDJ%;Q8@2TZZ`"8@*P`<(@4@;P`43KKI
  2373. +M#-B`(`0B!TZZ]`!,WPCP6$].=2!O``1(YP$$*D@@#6<``*!P0="`P*T`&&8L
  2374. +M(&T`$$/M``0BR$*90BT`('``(L`(+0`'`!MG!@BM````&PBM``0`&V```(I*
  2375. +MK0`49T0@+0`,:@9R`"M!``P@+0`,9R@B+0`<(&T`$,%!3KKHCBX`4H!F"`CM
  2376. +M``4`&V`,OJT`#&<&".T`!``;*VT`$``$0JT`#'`PP*T`&&82""T`!P`;9P9P
  2377. +M_,&M`!AP`&`D</]@('X`2^P+Q$JM`!AG#"!-80#_1DJ`9P)^_RI5(`UFZ"`'
  2378. +M3-\@@$YU(&\`!$CG`00J2'X`(`UG!B`M`!AF!'#_8$`(+0`!`!MG""!-3KK_
  2379. +M"BX`<`S`K0`89@Y*K0`49P@@;0`03KKU#D*M`!@@+0`<3KK/XE*'9P1*@&<$
  2380. +M</]@`G``3-\@@$YU(&\`!")O``@O;P`,``193TCG#Q0F;P`@*DDO2``8?@`L
  2381. +M+`PP>@!*JP`89P8@2TZZ_W1P`!`M``%R*Y"!9R!R-I"!9P93@&<$8"!\`'(K
  2382. +MLBT``E?`1`!(@$C`*@!@#'H!<&&P+0`"9@)\`'``$!5R89"!9PQR$9"!9QI;
  2383. +M@&<D8#9*A5;`<@&2``!!`0B,@7Y`X8]@*$J%5L!R`)(`D@",@6`:2H56P'(!
  2384. +MD@``00$``$$"`(R!8`9P`&```(`O+`PT+P8O+P`@3KK>($_O``PH`%*`9@1P
  2385. +M`&!B2H5G!@C'``=@,'``$!5R89"!9PQR$9"!9QI;@&<:8!H(QP`!2'@``B`$
  2386. +M<@!.NN?`6$]@!GX!8`)^`@@&``]F!`C'``^1R$OK`!`JR"K()T0`'"=(``0G
  2387. +M2``,)T@`""K'(`M,WRCP6$].=0``(&\`!")O``A13TCG`!1([P,```A+[`O$
  2388. +M8`0F32I3(`UG!DJM`!AF\B`-9AYP(DZZ]1PJ0$J`9@1P`&`>($TFB'`A<@`0
  2389. +MP5'(__PO#2!O``PB;P`03KK^=%A/3-\H`%!/3G4``"!O``0B;P`(+V\`#``$
  2390. +M+V\`$``(+V\`%``,+V\`&``0GOP`&$CG#S8F;P!$*DDO2``D)&\`2'X`?`!Z
  2391. +M`"`+9P9P`22`8`)"DG``(&\`)!`00>P*O0@P``((`&<P<`\@;P`DP!A(@$C`
  2392. +M(@?E@=*'TH'2@"X!+T@`)'``(&\`)!`00>P*O0@P``((`&;0(&\`)!`0<FRP
  2393. +M`6<4<FBP`68(4J\`)'P!8`QR3+`!9@92KP`D>@$O1@`P+T4`-$Z5*``@;P`D
  2394. +M$!!R8[`!9QYR;K`!9QAR6[`!9Q)@!$Z5*`!![`J]"#```T@`9O!P_[B`9@P@
  2395. +M;P!`((1P`&``!11P`"!O`"00$')8D(%G``'P5X!G``-D48!G``+T4X!G``#:
  2396. +M6X!G7EN`9R)3@&<``6)3@&<``;I7@&<``PY5@&<``)I7@&<``;A@``2V<``D
  2397. +M@"(+9P`$L"1O`#Q*AF802H5F#"!3(A)3@2"!8``$F"X24X<D4TJ&9P8TAV``
  2398. +M!(@DAV``!()Z`$J'9P9P`;Z`;QYP+;B`9P9R*[B!9A*X@&8$</]@`G``*@!.
  2399. +ME2@`4X=P,+B`9G!.E2@`0>P*O0@P``$(`&<((`1R()"!8`(@!')8L(%F``#4
  2400. +M8``!,'H`<"VX@&<&<BNX@68\N(!F!'#_8`)P`"H`3I4H`&`J>@!*AV<&<`&^
  2401. +M@&\><"VX@&<&<BNX@682N(!F!'#_8`)P`"H`3I4H`%.'0>P*O0@P``)(`&8,
  2402. +M(&\`0""$<`!@``/8?``@!'(/P($B!N6!TH;2@=*`+`%.E2@`4X=G#$'L"KT(
  2403. +M,``"2`!FVB`+9P`#G$J%:@)$AB132J\`-&<&)(9@``.(2J\`,&<&-(9@``-\
  2404. +M)(9@``-V<#"X@&T&<#>X@&\,(&\`0""$<`!@``-L?``@!'('P('GAMR`3I4H
  2405. +M`%.'9PQP,+B`;09P-[B`;^(@"V<``S@D4TJO`#1G!B2&8``#*DJO`#!G!C2&
  2406. +M8``#'B2&8``#&$J'9@)^"$*O`#!P`2]``#1Z`7`MN(!F!GK_3I4H`"1O`$`O
  2407. +M10`@0>P*O0@P``=(`&8()(1P`&```NPJ!$Z5*`!*AV<&<`*^@&\P<#"Z@&8J
  2408. +M<'BX@&<&<%BX@&8>3I4H`$'L"KT(,``'"`!F""2$<`!@``*R?`!3AV!H2H=G
  2409. +M!G`!OH!O+$7L"KW5Q0@2``)G!BP%<#"<@`@2``!G!BP%<#><@`@2``%G.BP%
  2410. +M<%><@&`R?`!@+NF&"!(``F<((`1R,)"!C(`($@``9P@@!'(WD(&,@`@2``%G
  2411. +M!G)7F(&,A$Z5*`!3AV<,1>P*O=7$"!(`!V;"(`MG``(@("\`(&H"1(8D4TJO
  2412. +M`#1G!B2&8``""DJO`#!G!C2&8``!_B2&8``!^"`+9QX@4U*3(`00@&`43I4H
  2413. +M`%*`9Q`@"V<((%-2DR`$$(!3AV[H</^X@&8``=`@;P!`((1P`&```<P@"V<&
  2414. +M(%-2DQ"$3I4H`%*`9Q!3AV<,0>P*O0@P``-(`&?>(`MG``&6(%-"$&```8Y2
  2415. +MKP`D<%X@;P`DL!!F#'P!4J\`)"!O`"1@`GP`+T@`+'!=L!!F'E*O`"1@&"!O
  2416. +M`"1*$&8,(F\`0"*$<`!@``%<4J\`)'!=(&\`)+`09MY*AF<``+`O;P`L`"A\
  2417. +M`&!X(&\`*!`0<BVP`69"2H9G/D7H``$B;P`DL\IG,BQ*>@`:$B].`"B\A6,&
  2418. +M(`8L!2H`N(9E0+B%8CP@"V<$(%-"$"!O`$`@A$'I``%@``#N<@`2`+*$9AHB
  2419. +M"V<$(E-"$2)O`$`BA")O`"12B2`)8```SGP`'!!2KP`H(&\`*+'O`"1F`/]^
  2420. +M(`MG!B!34I,0A$Z5*`!2@&<&4X=F`/]<(%-"$&```(PO;P`L`"A\`&!,(&\`
  2421. +M*!`0<BVP`68L2H9G*$7H``$B;P`DL\IG'")*>@`:$B])`"B\A6,&(`8L!2H`
  2422. +MN(9E!+B%8RA\`"!O`"@<$'``$!"PA&<84J\`*"!O`"BQ[P`D9JH@"V<F(%-"
  2423. +M$&`@(`MG!B!34I,0A$Z5*`!2@&<$4X=F@"!30A!@!'``8`X@;P!`((0@;P`D
  2424. +M4H@@"$S?;/#>_``83G4``"!O``0B;P`(+V\`#``$+V\`$``(GOP`-$CG+S8F
  2425. +M;P!@*F\`7$CO`P``+$(O`#M"+P`Z0B\`.4(O`#@??``@`#="KP!4</\O0`!0
  2426. +M0B\`-GX`?`!%[P`\8$IP`"!O`"P0$'(@D(%G(E>`9R91@&<258!G!E>`9R)@
  2427. +M,A]\``$`.V`>'WP``0`Z8!8??``!`#E@#A]\``$`.&`&'WP`,``W4J\`+"!O
  2428. +M`"Q*$&:N<`&P+P`[9@8??``@`#=R*B!O`"RR$&8>+&\`,")66)8B$2]!`%1L
  2429. +M"$2O`%0?0``[4J\`+&`,0^\`5$ZZZ'K1KP`L(&\`+!`0<BZP`69&4J\`+'`J
  2430. +M(&\`++`09APB;P`P(%%8D2`0+T``4&P&</\O0`!04J\`+&`60^\`4$ZZZ#@J
  2431. +M`&8&0J\`4&`$VZ\`+!]\`"``-W``(&\`+!`0<DR0@6<4<AR0@6<&68!G"F`2
  2432. +M'WP``@`V8`8??``!`#92KP`L(&\`+%*((F\`+!`1<@`2`!]``"0O2``F<%"2
  2433. +M@&<``1!1@6<``1QP"Y*`9P`!T%.!9U!;@6=,6X%G(E.!9P`!`E.!9P``ZE>!
  2434. +M9P`!@%6!9P``\%>!9P``ZF```;@D;P`P<`*P+P`V9@X@4EB2(E`@$S*`8``"
  2435. +M2B!26)(B4"*38``"/B)O`#`@45B1*!!J!'X!1(1*AV<,1>\`/1]\`"T`/&`B
  2436. +M2B\`.F<,1>\`/1]\`"L`/&`02B\`.6<,1>\`/1]\`"``/'P!(`0@2DZZYE(J
  2437. +M`"`O`%!F!DJ$9P`!Y"`O`%!J!G(!+T$`4"@O`%"8A6\<($K1Q"`%(DI.NNH<
  2438. +M<C`@2F`"$,%3A&3Z*B\`4-R%(`53@&8``000$K`O`#=F``#Z2J\`4&8``/)"
  2439. +M$F```.P@+P!0:@9P""]``%`??``!`#9P`K`O`#9F$")O`#`@45B1(!!X`#@`
  2440. +M8`HB;P`P(%%8D2@0$"\`)')UL`%G`/]:<F^P`68>2B\`.&<,1>\`/1]\`#``
  2441. +M/'P!(`0@2DZZY<)@`/\^2B\`.&<2'WP`,``\1>\`/A]\`'@`/7P"(`0@2DZZ
  2442. +MY=XJ``@O``4`)&8`_Q1![P`\3KKFRF``_P@B;P`P(%%8D210(`IF!$7Z`/(@
  2443. +M2DH89OQ3B)'**@@@+P!0:P2PA6\$+T4`4"PO`%!@('P!(F\`,"!16)$@$!]`
  2444. +M`#Q"+P`]8`9P`&```*Q%[P`\("\`5+"&;`AR`"]!`%1@!)VO`%1*+P`[9QY@
  2445. +M"'``$!H@2TZ54X9L]&`&($MP($Z54Z\`5&ST8&I*AV8,2B\`.68&2B\`.F=&
  2446. +M$!)R(+`!9PQT*[`"9P9T+;`"9C)*AFLNLB\`-V828`IP`!`O`#<@2TZ54Z\`
  2447. +M5&SP<``0&B!+3I53AF`*<``0+P`W($M.E5.O`%1L\&`(<``0&B!+3I53AFST
  2448. +M("\`)DS?;/3>_``T3G4``"!O``0B;P`(+V\`#``$+V\`$``(+V\`%``,GOP`
  2449. +M#$CG`S0J2"])`!1^`"9O`"Q@``$@0J\`&'P`(&\`*!P8)&\`%"](`"A#[`J]
  2450. +M"#$``V@`9@``VG`EO(!F``"H<"6P$&8@4J\`*$Z5+`!![`J]"#```V@`9O!P
  2451. +M);R`9P``U&```-IP*B!O`"BP$&<&)$M8BV`&E<I2KP`H0J\`'$AO`!@O"DAO
  2452. +M`"0O+P`P(&\`.")-3KKU'D_O`!`D0$J`5L%$`4B!2,$L`6<$+TH`*"`O`!QR
  2453. +M_["!9A!*AF<$WJ\`&$J';G@@`6!V("\`'&<,<@`2`"`!(&\`%$Z0(`IG7MZO
  2454. +M`!A@3DZ5+T``'"!O`!Q#[`J](`@(,0`#"`!FZ"`O`!R\@&<N<@`2`"`!3I)@
  2455. +M+DZ5+T``'"!O`!Q#[`J](`@(,0`#"`!FZ"`O`!QR`!(`(`%.DB!O`"A*$&8`
  2456. +M_MH@!TS?+,#>_``,3G4``"!O``0B;P`(+V\`#``$+V\`$``(GOP`#$CG`!0F
  2457. +M22I(+V\`'``08#AP);`O``QF)B!O`!BP$&8&4J\`&&`8+PLO#4/O`!A.NOHL
  2458. +M4$]*@&<&+T``&&`*<``0+P`,($M.E2!O`!@0&!]```PO2``82@!FMDS?*`#>
  2459. +M_``,3G4@;P`$((A8D$*H``0A2``(3G4``"!O``1(YP`&*DA*K0`*9PHB32QX
  2460. +M``1.KOZ8&WP`_P`(</\K0``4<``0+0`/+'@`!$ZN_K`B37`B3J[_+DS?8`!.
  2461. +M=0``(&\`!"`O``A(YP,6+@`J2'#_+'@`!$ZN_K8<`$B&2,8@!E*`9@1P`&!@
  2462. +M<"(B/``!``%.KO\Z)D!*@&8((`9.KOZP8$1!ZP`*(,T71P`)%WP`!``(0A@0
  2463. +MQI/)3J[^VB=``!`@#6<((DM.KOZ>8!I!ZP`8)T@`%$'K`!0G2``<0JL`&!=\
  2464. +M``(`("`+3-]HP$YU+P@O`$ZY``!:5E!/3G4``"`O``0@;P`((F\`#"(O`!!*
  2465. +M@&8:+P$O"2\(2'H`%$AL#`A.NNK>WOP`%$[ZVZQ.=4%S<V5R=&EO;B`H)7,I
  2466. +M(&9A:6QE9"!I;B!F:6QE("5S(&%T(&QI;F4@)60*`````````^P````-````
  2467. +M````I=X``#&.```Q<```,78``#&"```QB```,7P``#%J```Q7@``,60```)N
  2468. +M```"8@```F@````"`````0```!0````*`````````_(```/J```#'DUE;6]R
  2469. +M>2!E>&AA=7-T960``&X@(3T@,```9&9A+F,`365M;W)Y(&5X:&%U<W1E9```
  2470. +M;B`A/2`P``!D9F$N8P!-96UO<GD@97AH875S=&5D``!5;F9I;FES:&5D(%P@
  2471. +M<75O=&4``%5N9FEN:7-H960@7"!Q=6]T90``56YB86QA;F-E9"!;``!5;F)A
  2472. +M;&%N8V5D(%L``%5N8F%L86YC960@6P``56YB86QA;F-E9"!;``!5;F)A;&%N
  2473. +M8V5D(%L``%5N8F%L86YC960@6P``56YB86QA;F-E9"!;``!5;F)A;&%N8V5D
  2474. +M(%L``%5N8F%L86YC960@6P``56YB86QA;F-E9"!;``!5;F)A;&%N8V5D("@`
  2475. +M`$YO('-Y;G1A>"!S<&5C:69I960`56YB86QA;F-E9"`I``!O=70@;V8@;65M
  2476. +M;W)Y`````````````````$EN=F%L:60@<F5G=6QA<B!E>'!R97-S:6]N``!5
  2477. +M;FUA=&-H960@7"@``%5N;6%T8VAE9"!<*0``4')E;6%T=7)E(&5N9"!O9B!R
  2478. +M96=U;&%R(&5X<')E<W-I;VX`3F5S=&EN9R!T;V\@9&5E<```4F5G=6QA<B!E
  2479. +M>'!R97-S:6]N('1O;R!B:6<``$UE;6]R>2!E>&AA=7-T960`````!]!.;R!P
  2480. +M<F5V:6]U<R!R96=U;&%R(&5X<')E<W-I;VX``$UE;6]R>2!E>&AA=7-T960`
  2481. +M`$UE;6]R>2!E>&AA=7-T960``````````````````5!/4TE83%E?0T]24D5#
  2482. +M5``M+0``)7,Z(&]P=&EO;B!@)7,G(&ES(&%M8FEG=6]U<PH`)7,Z(&]P=&EO
  2483. +M;B!@+2TE<R<@9&]E<VXG="!A;&QO=R!A;B!A<F=U;65N=`H``"5S.B!O<'1I
  2484. +M;VX@8"5C)7,G(&1O97-N)W0@86QL;W<@86X@87)G=6UE;G0*```E<SH@;W!T
  2485. +M:6]N(&`E<R<@<F5Q=6ER97,@86X@87)G=6UE;G0*`"5S.B!U;G)E8V]G;FEZ
  2486. +M960@;W!T:6]N(&`M+25S)PH`)7,Z('5N<F5C;V=N:7IE9"!O<'1I;VX@8"5C
  2487. +M)7,G"@`E<SH@=6YR96-O9VYI>F5D(&]P=&EO;BP@8VAA<F%C=&5R(&-O9&4@
  2488. +M,"5O"@``)7,Z('5N<F5C;V=N:7IE9"!O<'1I;VX@8"TE8R<*```E<SH@;W!T
  2489. +M:6]N(&`M)6,G(')E<75I<F5S(&%N(&%R9W5M96YT"@`````E<SH@365M;W)Y
  2490. +M(&5X:&%U<W1E9"`H)7,I"@``)7,Z($UE;6]R>2!E>&AA=7-T960@*"5S*0H`
  2491. +M`"5S.B!R96%D(&]N("5S(&9A:6QE9"`H)7,I"@`\<W1D:6X^`"5S)6,``"5D
  2492. +M)6,``"5D)6,```````$M+2TM+2TM+2TM"@`M+2TM+2TM+2TM"@`M+2TM+2TM
  2493. +M+2TM"@!5<V%G93H@)7,@6RU#5F)C:&EL;G-V=WA=(%LM;G5M72!;+4$@;G5M
  2494. +M72!;+4(@;G5M72!;+68@9FEL95T*("`@("`@(%LM95T@97AP<B!;9FEL92XN
  2495. +M+ET*`$=.52!E/V=R97`L('9E<G-I;VX@,2XV```P,3(S-#4V-S@Y03I".D-6
  2496. +M8F-E.F8Z:&EL;G-V=W@``"5D```E9```)7,*`"5S.B!G971O<'0H,RD@;&5T
  2497. +M(&]N92!B>2$*``!R`"5S.B`E<SH@)7,*`%PH7EQ\6UY!+5IA+7I?75PI7"@`
  2498. +M7EPH`%PI7"A;7D$M6F$M>E]=7'PD7"D`7"DD`$U54U1$14)51P!M=7-T(&AA
  2499. +M=F4Z("(E<R(*```E<SH@)7,Z("5S"@`E<SHE9`H``"5D"@`E<PH`)60*`#QS
  2500. +M=&1I;CX*```E<SH@)7,*`$]K```````4```````````````````%B&-O;G-O
  2501. +M;&4Z```E<SH@``!I;G1U:71I;VXN;&EB<F%R>0```'1I;65R+F1E=FEC90``
  2502. +M``#_____9FEF;RYL:6)R87)Y```````````````````%Z``!```````````%
  2503. +MZ@```````````````$`H(REA;&QO8V$N8PDQ+C$```````````````!&86EL
  2504. +M960@=&\@8W)E871E('1I;65R``!U<V5R(&EN=&5R<G5P=````````$YO(&UE
  2505. +M;6]R>0```&$`1F%I;&5D('1O(&-R96%T92!T:6UE<@``3DE,.@``3DE,.@``
  2506. +M3DE,.@``*@!.24PZ``!);G9A;&ED('=I;&1C87)D("5S`$5R<F]R(&5X<&%N
  2507. +M9&EN9R!A<F=U;65N=',`55-%4@``=7-E<@``55-%4DY!344``$A/344``',Z
  2508. +M``!32$5,3`!B:6XZ<V@``$A/4U1.04U%``!A;6EG80!.24PZ`````)LP('$`
  2509. +M`$9A:6QE9"!T;R!I;FET:6%L:7-E($DO3P``86UI9V$@<W!E8VEF:6,@97)R
  2510. +M;W(`````!RA5;FMN;W=N(&5R<F]R`&YO="!O=VYE<@!N;R!S=6-H(&9I;&4@
  2511. +M;W(@9&ER96-T;W)Y`&YO('-U8V@@<')O8V5S<P!I;G1E<G)U<'1E9"!S>7-T
  2512. +M96T@8V%L;`!I+V\@97)R;W(`;F\@<W5C:"!D979I8V4@;W(@861D<F5S<P!A
  2513. +M<F=U;65N="!L:7-T('1O;R!L;VYG``!E>&5C(&9O<FUA="!E<G)O<@!B860@
  2514. +M9FEL92!N=6UB97(`;F\@8VAI;&0@<')O8V5S<P``;F\@;6]R92!P<F]C97-S
  2515. +M97,`;F]T(&5N;W5G:"!M96UO<GD`<&5R;6ES<VEO;B!D96YI960`8F%D(&%D
  2516. +M9')E<W,`8FQO8VL@9&5V:6-E(')E<75I<F5D`&UO=6YT(&1E=FEC97,@8G5S
  2517. +M>0``9FEL92!E>&ES=',`8W)O<W,M9&5V:6-E(&QI;FL`;F\@<W5C:"!D979I
  2518. +M8V4``&YO="!A(&1I<F5C=&]R>0!I<R!A(&1I<F5C=&]R>0``:6YV86QI9"!A
  2519. +M<F=U;65N=```9FEL92!T86)L92!O=F5R9FQO=P!T;V\@;6%N>2!O<&5N(&9I
  2520. +M;&5S`&YO="!A('1Y<&5W<FET97(``'1E>'0@9FEL92!B=7-Y``!F:6QE('1O
  2521. +M;R!B:6<``&YO('-P86-E(&QE9G0@;VX@9&5V:6-E`&EL;&5G86P@<V5E:P``
  2522. +M<F5A9"UO;FQY(&9I;&4@<WES=&5M`'1O;R!M86YY(&QI;FMS``!B<F]K96X@
  2523. +M<&EP90!M871H(&%R9W5M96YT`')E<W5L="!T;V\@;&%R9V4``$DO3R!S=')E
  2524. +M86T@96UP='D``&9I;&4@;F%M92!T;V\@;&]N9P``9&ER96-T;W)Y(&YO="!E
  2525. +M;7!T>0!T;V\@;6%N>2!S;V9T(&QI;FMS("AL;V]P/RD````'0@``!U````=:
  2526. +M```'=```!X0```><```'I@``!\````?8```'Z@``!_H```@,```('@``"#``
  2527. +M``A"```(3@``"&0```AX```(A```")8```BF```(M@``",8```C8```([```
  2528. +M"0````D2```)(@``"3````E(```)5@``"6P```E\```)B```"98```FH```)
  2529. +MN@``"<X```GB````)@``9&]O<BXE;'@N)6QX``!.;R!M96UO<GD```!````@
  2530. +M("`@("`@("`H*"@H*"`@("`@("`@("`@("`@("`@($@0$!`0$!`0$!`0$!`0
  2531. +M$!"$A(2$A(2$A(2$$!`0$!`0$(&!@8&!@0$!`0$!`0$!`0$!`0$!`0$!`0$!
  2532. +M$!`0$!`0@H*"@H*"`@("`@("`@("`@("`@("`@("`@(0$!`0(```````````
  2533. +M````````````````````````````````````````````````````````````
  2534. +M````````````````````````````````````````````````````````````
  2535. +M```````````````````````````````````````````````/H```"^8`````
  2536. +M``````````````````````````````````````P(````````````````````
  2537. +M````````````````````````````````````````````````````````````
  2538. +M```````````"````@``````-__\````.``X```````````````#__P````0`
  2539. +M!````````(EV```,./__````!``$````````B8P``````````````^P````"
  2540. +M````````#&P```Q8````+@````$```Q<```+Y@``"\0```J6```*D@``"HX`
  2541. +M``J*```*A@``"H(```I^```*>@``"G8```IR```*;@``"FH```IF```*8@``
  2542. +M"EX```I:```*5@``"E(```I.```*2@``"D8```I"```*/@``"CH```HV```*
  2543. +M,@``"BX```HJ```*)@``"B(```H>```*&@``"A8```H2```*#@``"@H```H&
  2544. +@```*`@``"?X```<^```%_```!?````6<`````````_(2
  2545. +`
  2546. +end
  2547. diff -rup --new-file baseline/fsf/emacs18/amiga/amiga-extra/amiga/c/ls.uue amiga/fsf/emacs18/amiga/amiga-extra/amiga/c/ls.uue
  2548. --- baseline/fsf/emacs18/amiga/amiga-extra/amiga/c/ls.uue    Wed Dec 31 17:00:00 1969
  2549. +++ amiga/fsf/emacs18/amiga/amiga-extra/amiga/c/ls.uue    Sat Sep 28 00:00:00 1996
  2550. @@ -0,0 +1,929 @@
  2551. +begin 666 ls
  2552. +M```#\P`````````"``````````$``".[```$S````^D``".[2.=^_B1()`!)
  2553. +M^0`````L>``$+P)(YP#@)FX!%"(K`*QG#.6)($$B*``TY8E@!B(/DJL`.G0`
  2554. +M(#P``"H@LJP0[&0((BP0[-"!=`$F02(\``$``4ZN_SI*@&8(3-\'!&```D`@
  2555. +M0"1`(D`@/```!&>9_``````@W%.`9OH@'&<.($G1W-70((HD25.`8/`H2=G\
  2556. +M`````"E\```J(!'H3-\'`"E.$<1*`DS?``1([(``$<QG2"`,!(``````!H``
  2557. +M`"H@T*P0["(`!(````"`#&X`)``4;1@I0!'D*4$1X)*L$.Q![!'<((%.KOTD
  2558. +M8`(N0"`L$.PO0``$T:P1Z"(/DHL&@0```(`I01&@0JP1R'``(CP``#``3J[^
  2559. +MSB9N`11#^@&(<`!.KOW8*4`J%&8&<&1@``#F*6L`F!'`2JL`K&<``'X@:P"L
  2560. +MT<C1R")H`!#3R=/)(`)R`!(9*4D1T-"!7H`"0/_\*4`1V$CG0$`B/``!``%.
  2561. +MKO\Z3-\"`DJ`9@AP%"\`9P`!!"!`*4`1U"`"4X#4@1&R```@`E."4<C_]A&\
  2562. +M`"`@`E."$;P`(B`"$;$@`"`!4<K_^!"\`"(O"&!*0>L`7$ZN_H!!ZP!<3J[^
  2563. +MC"E`$<@O`"1`("H`)&<8+&PJ%"!`(B@``$ZN_Z`I0!'`(@!.KO^"(&P1R"\(
  2564. +M2&P1G"!H`"0I:``$$=!.NG:83KHV*G``8`0@+P`$)&P1S"4`+'@`!`QN`"0`
  2565. +M%&T22JP1W&<,0>P1W%FL$>1.KOTD+DH@+!&X9P0@0$Z03KIV<$ZZ=Z!*K!'(
  2566. +M9R`L;"H4(BP1P&<$3J[_IBQX``1.KO]\(FP1R$ZN_H9@$BQX``0@+!'89P@B
  2567. +M;!'43J[_+B)L*A1.KOYB("P1Z"),D_P`````3J[_+B`?3-]_?DYU9&]S+FQI
  2568. +M8G)A<GD````@#Y!\``RPK!&@90![>$CG`Q`N+P`0)F\`%$*L$FQP`4*L$?Q"
  2569. +MIRE`$F`I0!)<3KI<Z"E3$>PNBR\'*4`2`&$``<Q03RP`2JP2=&<:+RP'GDAL
  2570. +M`]Y(;!$T3KHA[D*73KHB!D_O``Q*K!)P9P1A`"&@("P2%'(#L(%G+%F`9RA*
  2571. +MK!((9R)*K!(T9AQ*K!(X9A9*K!(L9A!*K!(D9@I*K!(P9@1P`&`"<`%R9"E!
  2572. +M$?1(>"`(*4`2:$ZZ9GA"K!'X*4`1\&$`"!I83[R';`1"K!)<(`;E@-?`8!1(
  2573. +M;`/B2'@``2\;80`(3$_O``Q2AKR';>A*K!)<9RA*K!(\9Q9(;`/F2'@``4AL
  2574. +M`^1A``@F3^\`#&`,0J=(;`/H80`%EE!/2JP1^&<680`-\$JL$CQF#$*G2&P#
  2575. +MZF$`#')03TJL$?AG:&$`$/A*K!'\9P``K`@L``$1+6=$4JP1'B`L$1ZPK!$F
  2576. +M;B(@;!$64JP1%A"\``H(+``&$2UG``"`2&P1$DZZ(-983V!R4ZP1'DAL$1)(
  2577. +M>``*3KH@R%!/8%Y(;!$22'@`"DZZ(+A03V!.2JP1_&=((&P1_$JH``AF/D*L
  2578. +M$F!@."9L$?PI:P`($?PO*P`$+Q-A``4R+I-.NGM*4$\@*P`$9P@O`$ZZ>SQ8
  2579. +M3R\+3KI[-%A/<`$I0!)@2JP1_&;"("P2;"]``!!,WPC`3OI_%B`/D'P`'+"L
  2580. +M$:!E`'EL44](YR,4+B\`("IO`"1"K!)00JP23$AX``%.NEHB6$]*@&<.<`(I
  2581. +M0!((<`$I0!)08`IP`4*L$E`I0!((1^P2#$*;0IM"K!(80JP2($*L$B1(;`/L
  2582. +M)L!.NGYR2H!7P40!2(%(P4?L$BQ"FT*;0IM'[!(X0IM"FT*;0JP21$*L$DA"
  2583. +MK!)42&P#_"E!$BA.NGX\4$]*@&<*+P!.NGXT6$]@`G!02&\`%$AX!`!(>``!
  2584. +M*4`29$ZZ./I/[P`,4H!G#C`O`!9G"'(`,@`I01)D2&P$!$ZZ??A83TJ`9PHO
  2585. +M`$ZZ??!83V`"<`B7RRE`$EA@``-^(`9*@&<``W9R"I"!9P`"P%.`9P`"\%.`
  2586. +M9P`#(%.`9P`#4'(DD(%G``*<<A"0@6<``<Q3@&<``=!3@&<``>!7@&<``>13
  2587. +M@&<``>A5@&<``>Q7@&<``?15@&<``?A7@&<``?Y3@&<``@I3@&<``@Y3@&<`
  2588. +M`A)3@&<``CI7@&<``CQR"9"!9VY3@&=X4X!G``""4X!G``"&58!G``"*4X!G
  2589. +M``+<58!G``"N58!G``"R4X!G``"V4X!G``"X4X!G``"\58!G``#`4X!G``#$
  2590. +M4X!G``#,4X!G``#04X!G``#44X!G``#858!G``#<4X!G``$$8``"AG`!*4`2
  2591. +M1"E`$D!@``)\<`$I0!),0JP24&```FYP`2E`$@Q@``)D<`$I0!(\8``"6G`!
  2592. +M0JP2%"E`$D0I0!)`2JP2"&84+P!.NE@26$]*@%;!=`&4`2E"$@A"K!(D8``"
  2593. +M*G`!*4`2,&```B!P`2E`$BA@``(60JP2"&```@YP!"E`$@A@``($<`$I0!(@
  2594. +M8``!^G`"*4`2+&```?!P`2E`$E!"K!),8``!XG`!*4`2&&```=AP`2E`$B1@
  2595. +M``'.<`,I0!(48``!Q'`"*4`2#&```;HO+`Y43KI\%%A/*4`29'(!L(%L``&D
  2596. +M+RP.5$AL!#)"IR\!3KIO*D_O`!!@``&,<`,I0!((8``!@G`!*4`20&```7A(
  2597. +M;`1*80`#,$AL!$YA``,H4$]@``%B<`(I0!((8``!6'`!*4`2+&```4YP`2E`
  2598. +M$AQ@``%$+RP.5&$``OQ83V```39P`2E`$C1@``$L0JP23$*L$E!@``$@<`%"
  2599. +MK!)0*4`23"E`$E1@``$.<`$I0!(X8``!!'`$*4`2%&```/HO+`Y43KI[5%A/
  2600. +M*4`26'(!L(%L``#D+RP.5$AL!%)"IR\!3KIN:D_O`!!@``#,0JP2%&```,1P
  2601. +M`BE`$A1@``"Z<`$I0!((8```L$AL`VXO+`Y43KIO*E!/+`!L%B\&+RP.5$AL
  2602. +M!&A.NF^(80`<%$_O``SEAD'L`X(I<&@`$A1@>$AL`[(O+`Y43KIN]%!/+`!L
  2603. +M%B\&+RP.5$AL!').NF]280`;WD_O``SEAD'L`\HI<&@`$@Q@0DAL`Q8O+`Y4
  2604. +M3KINOE!/+`!L%B\&+RP.5$AL!'Q.NF\<80`;J$_O``SEAD'L`S8I<&@`$@A@
  2605. +M#'`!*4`4T&`$80`;BB\+2&P!!$AL!`PO#2\'3KICND_O`!0L`%*`9@#\:"`L
  2606. +M#EA,WRC$4$].=2`/64"PK!&@90!TRDCG`!0J;P`02'@`#$ZZ8&8F0"!`(6P1
  2607. +M_``(+J\`$"E`$?Q.NF`<6$\F@"`-9PXO#4ZZ8`Y83R=```1@!$*K``1,WR@`
  2608. +M3G4@#Y!\`!"PK!&@90!T=DCG`30J;P`4?@!"K"FL+PU.NA]06$\F0$J`9AXO
  2609. +M#4AL!(@O+"FL0J=.NFSB<`$I0!)L3^\`$&```/AA``&28!XO"F$``2!83TJ`
  2610. +M9Q(O#4*G2&H`#&$``<I/[P`,WH`O"TZZ(#)83R1`2H!FU"\+3KH?XF$`!Y)8
  2611. +M3TJL$CAG#$AX``$O#6$`!A)03TJL$F!G("1O`!@@"F<,+PI(;`203KINI&`*
  2612. +M+PU(;`263KINF%!/2JP2"&<&2JP2)&<,+P=(;`2<3KIZME!/2JP1^&<$80`*
  2613. +M6DJL$?QG6`@L``$1+6="4JP1'B`L$1ZPK!$F;B`@;!$64JP1%A"\``H(+``&
  2614. +M$2UG+DAL$1).NGV@6$]@(E.L$1Y(;!$22'@`"DZZ>MQ03V`.2&P1$DAX``I.
  2615. +MNGK,4$],WRR`3G4@#UE`L*P1H&4`<S0O#2IO``A(>``(3KI>TB!`((TA;!)(
  2616. +M``183RE`$D@J7TYU(`^0?``,L*P1H&4`<P1(YP`4*F\`#"9L$DA@&DAX``1(
  2617. +M;0`,+Q-.NEAL3^\`#$J`9S(F:P`$(`MFXDJL$D1F'G`NL"T`#&862JP20&<4
  2618. +M$BT`#6<.L@!F!DHM``YG!'`!8`)P`$S?*`!.=2`/64"PK!&@90!RG$CG`P!^
  2619. +M`'P`8"8@;!'P+S!H`$ZZ=")83R!L$?`@,&A&9P@O`$ZZ=!!83U*'<%+<@+ZL
  2620. +M$?AMU$*L$?AP!"E`$@1,WP#`3G4@#Y!\`%2PK!&@90!R2)[\`$1(YP8V+"\`
  2621. +M9"IO`&`D;P!H("P1]"(L$?BR@&8H(@#2@2`!Y8"0@="`D('G@-"!T(`O`"\L
  2622. +M$?`I01'T3KI=[%!/*4`1\"`L$?@B`.6!DH#2@9*`YX'2@-*!)FP1\-?!0JL`
  2623. +M1D*K`$I*AF8(2JP2:&<``MA*%6<22'@`.DAM``%.NG(&4$]*@&8$2A)F!"9-
  2624. +M8#`@34H89OQ3B)'-(@@@2DH89OQ3B)'*THA4@2\!3KHDSB9`+HTO"B\`80`7
  2625. +MND_O``P@+!'X(@#E@9*`TH&2@.>!TH#2@2!L$?#1P47H``1*K!(T9S@O"B\+
  2626. +M3KH:&E!/*@!L-B`L$?@B`.6!DH#2@9*`YX'2@-*!(&P1\-'!2&@`!"\+3KH:
  2627. +M*%!/*@!@#"\*+PM.NAH:4$\J`$J%:B`O"TAL!*8O+"FL0J=.NFF@<`$I0!)L
  2628. +M3^\`$'``8``"$"`L$?@B`.6!DH#2@9*`YX'2@-*!)&P1\-7!(#P``/``P*H`
  2629. +M#`R```"@`&8``09*AF8(2JP2"&8``/HO"B\+80`!V"`L$?@B`.6!DH#2@9*`
  2630. +MYX'2@-*!(&P1\"ZP&$8O"V$``B)/[P`,)D!*@&<``+A*AF<&2JP2"&8(2JP2
  2631. +M+&<``*9(;P`:+PM.NADN4$]*@&8``)1*AF=P2JP2"&=J(#P``/``P*\`(@R`
  2632. +M``!``&982JP2/&8D($TJ2R`L$?@B`.6!DH#2@9*`YX'2@-*!(FP1\"9Q&$8C
  2633. +MB!A&("P1^"(`Y8&2@-*!DH#G@=*`TH$B;!'PT\%-Z0`$0^\`&G(/+-E1R?_\
  2634. +M/-E@'B`L$?@B`.6!DH#2@9*`YX'2@-*!(&P1\"&O`"(82B`+9P@O"TZZ<618
  2635. +M3R`L$?@B`.6!DH#2@9*`YX'2@-*!)FP1\-?!*CP``/``RJL`#`R%``"@`&8&
  2636. +M0JL`3F`D#(4``$``9A9*AF<*2JP2/&8$<`)@"G`!)T``3F`&<`,G0`!.(#P`
  2637. +M``'_T*L`&G)`YXE.NFYJ+`!*K!(H9PP@!E*`:@)2@.*`8`(@!BP`#(```"<0
  2638. +M;1`,K`````42!&P&<`4I0!($#(8``8:@;1`,K`````82!&P&<`8I0!($#(8`
  2639. +M#T)`;10,K`````<2!&P*<`<I0!($8`)\`"\-3KI:;":`4JP1^%A/(`9,WVQ@
  2640. +MWOP`1$YU(`^0?``0L*P1H&4`;M)(YP$T)F\`&"IO`!0N*P`:(`=2@"\`3KI:
  2641. +M9"1`+H<O`"\-3KHA$$_O``PN`&PB+PU(;`2J+RPIK$*G3KIG+'`!*4`2;"Z*
  2642. +M3KIP)$_O`!!@"$(R>``G2@!&3-\L@$YU(`^0?``,L*P1H&4`;F9(YS$V)F\`
  2643. +M)"IO`"`@"V8$<`!@;DAX`"\O#4ZZ;FQ03R1`2H!F#DAX`#HO#4ZZ;EI03R1`
  2644. +M(`IF#"]+`"!,WVR,3OI9FBX*GHU2AR!+2AAF_%.(D<LF!]:(4H,O`TZZ6;(D
  2645. +M0"('(D!@`A+=4X%D^D(R>``B"B0++&PJ%$ZN_(Y83R`*3-]LC$YU(`^0?``,
  2646. +ML*P1H&4`;=!(YP\T+B\`)"IO`"`@34H89OQ3B)'-+`A4ABHL$?A3A2@%Y828
  2647. +MA=B$F(7GA-B%V(1@``"B)FP1\-?$("L`3G(!L(%G!E6`9@``ADJ'9PPO$V$`
  2648. +M`,983TJ`9W0F;!'PU\0D4W`OL!)G!$H59@XO*P!&+Q-A`/B&4$]@/B!*2AAF
  2649. +M_%.(D<H@"-"&+P!.NECN)D`@;!'P+K!(`"\-+P!A`!-B(&P1\"ZP2$8O"V$`
  2650. +M^$XNBTZZ;KA/[P`0<`(@;!'PL+!(3F8*+S!(`$ZZ;J!83U.%<*[8@$J%:@#_
  2651. +M7'P`>@`J;!'P)DU@(G`"L*T`3F<44H4@32)+<!,BV%'(__PRV-;\`%)2AMK\
  2652. +M`%*\K!'X;=@I11'X3-\L\$YU(`]10+"L$:!E`&RL+PTJ;P`(2'@`+R\-3KIL
  2653. +MP%!/2H!G!B!`2^@``7`NL!5F%!(M``%G"K(`9@I*+0`"9@1P`&`"<`$J7TYU
  2654. +M(`^0?``0L*P1H&4`;&(O#2`L$A0,@`````5D``"*T$`P.P`&3OL`!`"2`$P`
  2655. +M7``(`&P@+!(,2H!G&E.`9P93@&<B8&)!^@!Z2JP2&&=60?H`BF!00?H`GDJL
  2656. +M$AAG1D'Z`*Y@0$'Z`,)*K!(89P1!^@#2*DA@,$'Z`1A*K!(89R1!^@$X8!Y!
  2657. +M^@%<2JP2&&<40?H!\F`.0?H`Q$JL$AAG!$'Z`-0J2"\-2'@`4B\L$?@O+!'P
  2658. +M3KIP-$_O`!`J7TYUO^P1H&4`:Z@@;P`((F\`!"`H`"Z0J0`N3G6_[!&@90!K
  2659. +MCB!O``@B;P`$("D`+I"H`"Y.=;_L$:!E`&MT(&\`"")O``0@*``FD*D`)DYU
  2660. +MO^P1H&4`:UH@;P`((F\`!"`I`":0J``F3G6_[!&@90!K0"!O``@B;P`$("@`
  2661. +M'I"I`!Y.=;_L$:!E`&LF(&\`"")O``0@*0`>D*@`'DYUO^P1H&4`:PP@;P`(
  2662. +M(F\`!"`H`!J0J0`:3G6_[!&@90!J\B!O``@B;P`$("D`&I"H`!I.=2`/44"P
  2663. +MK!&@90!JU")O``@@;P`$(%`B41`8L!EF!$H`9O:0(4B`2,!.=2`/44"PK!&@
  2664. +M90!JJB!O``@B;P`$(%`B41`8L!EF!$H`9O:0(4B`2,!.=2`/44"PK!&@90!J
  2665. +M@$CG`38J;P`82'@`+B\53KIJDB9`2'@`+B!O`"@O$$ZZ:H)/[P`0)$`@"V8>
  2666. +M(`IF&B!5+&\`'")6$!BP&68$2@!F]I`A2(!(P&!$(`MF!'#_8#P@"F8$<`%@
  2667. +M-"!+(DH0&+`99@1*`&;VD"%(@$C`+@!F&B!5+&\`'")6$!BP&68$2@!F]I`A
  2668. +M2(!(P&`"(`=,WVR`3G4@#U%`L*P1H&4`:>!(YP$V*F\`'$AX`"XO%4ZZ:?(F
  2669. +M0$AX`"X@;P`D+Q!.NFGB3^\`$"1`(`MF'B`*9AH@52QO`!@B5A`8L!EF!$H`
  2670. +M9O:0(4B`2,!@1"`+9@1P_V`\(`IF!'`!8#0@2R)*$!BP&68$2@!F]I`A2(!(
  2671. +MP"X`9AH@52QO`!@B5A`8L!EF!$H`9O:0(4B`2,!@`B`'3-]L@$YU(`]10+"L
  2672. +M$:!E`&E`2.<#`"`L$@@,@`````5D``$@T$`P.P`&3OL`!`":``@`A`",`)1^
  2673. +M`'P`8&P@;!'PT<8O"&$`!EY83P@L``$1+6="4JP1'B`L$1ZPK!$F;B`@;!$6
  2674. +M4JP1%A"\``H(+``&$2UG+DAL$1).NG,(6$]@(E.L$1Y(;!$22'@`"DZZ<$10
  2675. +M3V`.2&P1$DAX``I.NG`T4$]2AW!2W("^K!'X;8Y@``"080`)4&```(AA``JR
  2676. +M8```@&$`#"!@>'X`?`!@;"!L$?#1QB\(80``;EA/""P``1$M9T)2K!$>("P1
  2677. +M'K"L$29N("!L$192K!$6$+P`"@@L``81+6<N2&P1$DZZ<G983V`B4ZP1'DAL
  2678. +M$1)(>``*3KIOLE!/8`Y(;!$22'@`"DZZ;Z)03U*'<%+<@+ZL$?AMCDS?`,!.
  2679. +M=2`/D'P`3+"L$:!E`&?\GOP`0$CG(00J;P!02&\`."\M``Q.NEXH4$]"+P!"
  2680. +M("P2#$J`9Q)3@&<&4X!G$F`6+VT`+@`,8`XO;0`F``Q@!B]M`!X`#$AO``Q.
  2681. +MNCN.6$\@0$/O`!`2V&;\2JP2$&<&0B\`*&`P(#P`[4X`T*\`#"(L$@"R@&X.
  2682. +M(#S___'PT*\`#+*`;`Q![P`C0^\`&Q+89OQ"+P`@2JP2,&<.+RT`"$AL!*Y.
  2683. +MNFY:4$]*K!(D9SH@/````?_0K0`:<D#GB4ZZ9D8N`$JL$BAG#"`'4H!J`E*`
  2684. +MXH!@`B`'+P`O+!($2&P$M$ZZ;AQ/[P`,<``P+0`0+P!(;P`\2&P$NDZZ;@1/
  2685. +M[P`,2JP2(&<2<``P+0`2+P!(;`3"3KIMZF`8<``P+0`2+P!.NE,>6$\O`$AL
  2686. +M!,A.NFW04$]*K!(<9C)*K!(@9Q)P`#`M`!0O`$AL!-!.NFVR8!AP`#`M`!0O
  2687. +M`$ZZ5"A83R\`2&P$UDZZ;9A03R`\``#P`,"M``P,@```(`!G"`R```!@`&8B
  2688. +M("T`%B(`X(ET`$8"PH+`@B\`+P%(;`3>3KIM8$_O``Q@#B\M`!I(;`3H3KIM
  2689. +M3E!/0>\`%$JL$A!G!$'O`!`O"$AL!.Y.NF#^+I5A``!24$]*K0!.9BY*K0!&
  2690. +M9SA(;!$22&P$\DZZ;5XNK0!&80``,%!/2JP2+&<<+RT`2F$``]183V`02JP2
  2691. +M+&<*+RT`#&$``\)83TS?((3>_`!`3G4@#Y!\``RPK!&@90!EREE/+PTJ;P`,
  2692. +M2JP25&<``K0(+``!$2UG-%*L$1X@+!$>L*P1)FX0(&P1%E*L$180O``B8``"
  2693. +MCE.L$1Y(;!$22'@`(DZZ;0A03V```GA(;!$22'@`(DZZ;/903V```F9*K!),
  2694. +M9P`!+'``$"\`!%&`9SQ3@&=44X!G)E6`9UI3@&<Z<A.0@6=>58!G:'(ZD(%F
  2695. +M<$AL!/A.NE_*6$]@``(F2&P$_$ZZ7[Q83V```AA(;`4`3KI?KEA/8``""DAL
  2696. +M!01.NE^@6$]@``'\2&P%"$ZZ7Y)83V```>Y(;`4,3KI?A%A/8``!X$AL!1!.
  2697. +MNE]V6$]@``'22&P%%$ZZ7VA83V```<00+P`$<B"P`6-R<G^P`61L""P``1$M
  2698. +M9U!2K!$>(BP1'K*L$29N*B!L$192K!$6$(!R"K`!9@`!C`@L``81+6<``8)(
  2699. +M;!$23KINM%A/8``!=%.L$1YR`!(`2&P1$B\!3KIK[%!/8``!7'(`$@!(;!$2
  2700. +M+P%.NFO84$]@``%(<@`2`"\!2&P%&$ZZ:T903V```300+P`$<B"P`65R<G^P
  2701. +M`61L""P``1$M9U!2K!$>(BP1'K*L$29N*B!L$192K!$6$(!R"K`!9@``_`@L
  2702. +M``81+6<``/)(;!$23KIN)%A/8```Y%.L$1YR`!(`2&P1$B\!3KIK7%!/8```
  2703. +MS'(`$@!(;!$2+P%.NFM(4$]@``"X2JP24&9J""P``1$M9U!2K!$>("P1'K"L
  2704. +M$29N*B!L$192K!$6$"\`!!"`<@JP`68``(8(+``&$2UG?$AL$1).NFVP6$]@
  2705. +M<%.L$1YP`!`O``1(;!$2+P!.NFKH4$]@6'(`$@!(;!$2+P%.NFK64$]@1@@L
  2706. +M``$1+6<P4JP1'B`L$1ZPK!$F;@X@;!$64JP1%A"\`#]@(E.L$1Y(;!$22'@`
  2707. +M/TZZ:IY03V`.2&P1$DAX`#].NFJ.4$\0'1]```1F`/V42JP25&=&""P``1$M
  2708. +M9S!2K!$>("P1'K"L$29N#B!L$192K!$6$+P`(F`B4ZP1'DAL$1)(>``B3KIJ
  2709. +M2%!/8`Y(;!$22'@`(DZZ:CA03RI?6$].=2`/D'P`#+"L$:!E`&*>2.<!!"IO
  2710. +M``Q*K!(P9PXO+0`(2&P%'DZZ:8I03TJL$B1G.B`\```!_]"M`!IR0.>)3KIA
  2711. +M=BX`2JP2*&<,(`=2@&H"4H#B@&`"(`<O`"\L$@1(;`4D3KII3$_O``PO%6$`
  2712. +M_&983TJL$BQG"B\M``QA```*6$],WR"`3G4@#U%`L*P1H&4`8AA(YR,`+B\`
  2713. +M$"P'`H8``/``#(8``$``9D8(+``!$2UG,%*L$1X@+!$>L*P1)FX.(&P1%E*L
  2714. +M$180O``O8")3K!$>2&P1$DAX`"].NFE04$]@#DAL$1)(>``O3KII0%!/#(8`
  2715. +M`*``9D8(+``!$2UG,%*L$1X@+!$>L*P1)FX.(&P1%E*L$180O`!`8")3K!$>
  2716. +M2&P1$DAX`$!.NFD"4$]@#DAL$1)(>`!`3KIH\E!/#(8``!``9D8(+``!$2UG
  2717. +M,%*L$1X@+!$>L*P1)FX.(&P1%E*L$180O`!\8")3K!$>2&P1$DAX`'Q.NFBT
  2718. +M4$]@#DAL$1)(>`!\3KIHI%!/#(8``,``9D8(+``!$2UG,%*L$1X@+!$>L*P1
  2719. +M)FX.(&P1%E*L$180O``]8")3K!$>2&P1$DAX`#U.NFAF4$]@#DAL$1)(>``]
  2720. +M3KIH5E!/#(8``(``9FIP`;"L$BQF8B(L%-!G#`@'``9F$`@'``%G"DJ!9DQT
  2721. +M2<Z"9T8(+``!$2UG,%*L$1XB+!$>LJP1)FX.(&P1%E*L$180O``J8")3K!$>
  2722. +M2&P1$DAX`"I.NF?T4$]@#DAL$1)(>``J3KIGY%!/3-\`Q$YU(`]90+"L$:!E
  2723. +M`&!,64](YP,4*F\`&"95?@!*K!(P9P)^!TJL$B1G"B`'T*P2!"X`4H=*K!)4
  2724. +M9UY4AV!:2JP23&=2$"\`$$B`2,!1@&<@4X!G'%.`9QA5@&<44X!G$'(3D(%G
  2725. +M"E6`9PIR.I"!9A)4AV`D2JP25&<$5(=@&E*'8!80+P`0<B"P`6T&<G^P`6T$
  2726. +M6(=@`E*'$!L?0``09IX@+!(L9UXL/```\`#,K0`,#(8``(``9BI3@&9(("P4
  2727. +MT&<0""T`!@`/9A0(+0`!``]G#$J`9BYP2<"M``QG)E*'8"(,A@``0`!G&`R&
  2728. +M``"@`&<0#(8``!``9P@,A@``P`!F`E*'(`=,WRC`6$].=2`/D'P`&+"L$:!E
  2729. +M`%\^GOP`$$CG#P!^`'H`?`!@&B!L$?#1QB\(80#^S%A/L(=O`BX`4H5P4MR`
  2730. +MNJP1^&W@5(<O1P`8("P29"(O`!A.NEX(+@!F`GX!("P1^"('3KI=^"]``!`@
  2731. +M+!'X(@=.NEWJ2H%6P$0`2(!(P"(O`!#2@$*O`!PO00`48```RBP%>``@!>6`
  2732. +MD(70@)"%YX#0A="`*@`@!^6`D(?0@)"'YX#0A]"`+T``$"!L$?#1Q2\(80#[
  2733. +MXB!L$?#1Q2Z(80#^*EA/+@#<KP`4VJ\`$+RL$?AL&"`'T(0N!-ZO`!@O!R\`
  2734. +M80`#HE!/*`=@O@@L``$1+6="4JP1'B`L$1ZPK!$F;B`@;!$64JP1%A"\``H(
  2735. +M+``&$2UG+DAL$1).NFA86$]@(E.L$1Y(;!$22'@`"DZZ99103V`.2&P1$DAX
  2736. +M``I.NF6$4$]2KP`<+B\`%"HO`!RZAVT`_RQ,WP#PWOP`$$YU(`^0?``0L*P1
  2737. +MH&4`7=113TCG#P!^`'H`?`!@&B!L$?#1QB\(80#]9%A/L(=O`BX`4H5P4MR`
  2738. +MNJP1^&W@5(<O1P`0("P29"(O`!!.NER@+T``%&8&<`$O0``4>@!^`'P`>`!@
  2739. +M``"J2H9G``""(`8B+P`43KI<>$J!9EP(+``!$2UG0E*L$1X@+!$>L*P1)FX@
  2740. +M(&P1%E*L$180O``*""P`!A$M9RY(;!$23KIG:EA/8")3K!$>2&P1$DAX``I.
  2741. +MNF2F4$]@#DAL$1)(>``*3KIDEE!/>@!@%B`'T(4N!=ZO`!`O!R\`80`"0%!/
  2742. +M*@<@;!'PT<0O"&$`^D`@;!'PT<0NB&$`_(A83RX`4H9P4MB`O*P1^&T`_U((
  2743. +M+``!$2UG0E*L$1X@+!$>L*P1)FX@(&P1%E*L$180O``*""P`!A$M9RY(;!$2
  2744. +M3KIFSEA/8")3K!$>2&P1$DAX``I.NF0*4$]@#DAL$1)(>``*3KIC^E!/3-\`
  2745. +M\%!/3G4@#U%`L*P1H&4`7&!(YP\`?@!\`&```30J!R@&Y828AMB$F(;GA-B&
  2746. +MV(0@;!'PT<0O"&$`^^!83]Z`4H:\K!'X;`)4ATJ%9V"^K!)D;5H(+``!$2UG
  2747. +M0E*L$1X@+!$>L*P1)FX@(&P1%E*L$180O``*""P`!A$M9RY(;!$23KIF(%A/
  2748. +M8")3K!$>2&P1$DAX``I.NF-<4$]@#DAL$1)(>``*3KIC3%!/GH4@;!'PT<0O
  2749. +M"&$`^0Y83[RL$?AL``".""P``1$M9S!2K!$>("P1'K"L$29N#B!L$192K!$6
  2750. +M$+P`+&`B4ZP1'DAL$1)(>``L3KIB_E!/8`Y(;!$22'@`+$ZZ8NY03P@L``$1
  2751. +M+6<P4JP1'B`L$1ZPK!$F;@X@;!$64JP1%A"\`"!@(E.L$1Y(;!$22'@`($ZZ
  2752. +M8KA03V`.2&P1$DAX`"!.NF*H4$^\K!'X;0#^R`@L``$1+6="4JP1'B`L$1ZP
  2753. +MK!$F;B`@;!$64JP1%A"\``H(+``&$2UG+DAL$1).NF4<6$]@(E.L$1Y(;!$2
  2754. +M2'@`"DZZ8EA03V`.2&P1$DAX``I.NF)(4$],WP#P3G4@#Y!\``RPK!&@90!:
  2755. +MKEE/2.<#`"PO`!0N+P`08```P"`'(BP26$ZZ69XO0``((`8B+!)83KI9D+"O
  2756. +M``AO6`@L``$1+6<P4JP1'B`L$1ZPK!$F;@X@;!$64JP1%A"\``E@(E.L$1Y(
  2757. +M;!$22'@`"4ZZ8<Y03V`.2&P1$DAX``E.NF&^4$\@!R(L$EA.NEDZWJP26)Z!
  2758. +M8$@(+``!$2UG,%*L$1X@+!$>L*P1)FX.(&P1%E*L$180O``@8")3K!$>2&P1
  2759. +M$DAX`"!.NF%V4$]@#DAL$1)(>``@3KIA9E!/4H>^AFT`_SY,WP#`6$].=;_L
  2760. +M$:!E`%G(2.<@-"9O`!PJ;P`4)&\`&'`NL!)F#B!O`!A**``!9R1@`AK:2A)F
  2761. +M^K7O`!AC%A`J__]R+[`!9PQT.K`"9P8:P6`"&MM*$V;Z0A5,WRP$3G4@#Y!\
  2762. +M``RPK!&@90!9:B\L$>Q(;`4J2&P1-$ZZ7\Q(;`942&P1-$ZZ7\!(>``!3KI>
  2763. +MXD_O`!A.=0``3OD``(2J3OD``(.83OD``(AL3OD``(6\3OD``(.<3OD``(/4
  2764. +M3OD``(6(3OD``(4^3OD``(*T<&%(YR`R(&\`&$/O`!Q%^@`<)F\`%"0++'D`
  2765. +M```$3J[]]B`+D(),WTP$3G46P$YU```@;P`$("\`"")O``PO;P`0``193TCG
  2766. +M(30N`"9O`!PJ2"1)+TD`%&`"&MI*$F<$4X=N]K7O`!1C&A`J__]R+[`!9Q!T
  2767. +M.K`"9PI3AV\&&L%@`AK;2A-G!%.';O9"%4J'7L!$`$B`2,!,WRR$6$].=2`O
  2768. +M``0@;P`((F\`#%E/2.<G-BX`*D@O20`@2JP3?&<``/X@;!-\)F@`#$ZZ!0XB
  2769. +M*P`$LH!F``#H(&P3@$AH`"Q!["BL(E-P`$8`80#_6%A/2H!G``#*0>PHK")-
  2770. +M$!BP&68``+Q*`&;T9@``M$J'9A`@;!.`("@`&'(#L(%G``"@(&P3@"`H`!AR
  2771. +M_+"!9P19@&8^(FP3?"(1+&PJ%$ZN_X(L`"!L$X#0_``L(@AT_DZN_ZPJ`&<2
  2772. +M(@5![!)X)`A.KO^:(@5.KO^F(@9.KO^"8`8I:``@$G@@;!.`*6@`!!+X*6@`
  2773. +M"!+T0^@`#$7L$OPDV239)-D@;!.`*6@`&!)\*6@`'!+L+R\`("\K`1@@34/L
  2774. +M$GAP`$ZZ-FA03W`!8`)P`$S?;.183TYU(&\`!")O``A(YP`4)DDJ2$ZZ#5X@
  2775. +M32)+<`!A`/[(2H!G!'``8`P@32)+3-\H`$[Z-SQ,WR@`3G4@;P`$(F\`"$CG
  2776. +M`!0F22I(3KH-)B!-(DMP`6$`_I!*@&9P2'@`_TAL**PO#4ZZ"3Q/[P`,2H!J
  2777. +M#"!-(DM,WR@`3OHV\DO30IU"JP`2<`$W0``.0FL`$"=\```"```R-T``#$*K
  2778. +M`#9!["BL(DA*&6;\4XF3R"=)`!9"G2`\#PP_`"=``"(G0``:)T``*BK\``"A
  2779. +M_W``3-\H`$YU(&\`!%E/2.<`%"](``@@;P`(*F@!#&`*)E4@34ZZ5^XJ2R`-
  2780. +M9O),WR@`6$].=2!O``2>_``02.<@-BI()FT`#$/K`0PO2``<+TD`("!+8;1"
  2781. +MK!-\0JL!#$*M``0@%>6`($`G:``,`1A!ZP`(+T@`&&```)Y!ZP`0(DA*&6;\
  2782. +M4XF3R"`)D<C0_``L<@`R`-*(4H%T`#0!/T``%C]!`!0@`DZZ6-8D0$J`9@9P
  2783. +M#&```)Q-TD*>(&\`(""*+U``("SK`(@LZP"$0>L`C$/J``PBV"+8(M@E:P`,
  2784. +M`!@E:P!\`!Q+Z@`@.V\`%``$.V\`%@`&(&\`'"`H``12J``$*T``"$'J`"Q#
  2785. +MZP`0$-EF_"JK``@J;P`<(A4D+P`8+&PJ%$ZN_Y1*@&8`_TXG:P$,`1!"K0`$
  2786. +M+&PJ%$ZN_WQR=-*!L(%F!'`!8`I.NC?0*4`IK'``3-]L!-[\`!!.=2!O``19
  2787. +M3TCG(#8O2``4<!!.NE@,*D!P1^6(3KI8`B9`(&\`%"`(2AAF_%.(D<`@"%*`
  2788. +M3KI7ZB1`3KH+"B`-9P``@B`*9WP@"V=X*TL`#"M\```!'``(D<@G2`$0)T@!
  2789. +M#"=(`10FBB!O`!04V&;\3KH!=B=```0B+P`4+&PJ%'3^3J[_K"J`9R)!ZP`(
  2790. +M(@`D""QL*A1.KO^:2H!G#B!-80#^.$J`9Q0@#6`^+&PJ%$ZN_WQ.NC<**4`I
  2791. +MK"!-80``-F`D<`PI0"FL(`UG!B!-3KI5XB`*9P8@2DZZ5=@@"V<&($M.NE7.
  2792. +M<`!,WVP$6$].=2!O``1(YP`6*D@F;0`,3KH*1$*L$WP@2V$`_:`@4TZZ5:(@
  2793. +M%6<*(@`L;"H43J[_IB!M``Q.NE6,($U,WV@`3OI5@B!O``193TCG`S0O2``4
  2794. +M(&\`%"IH``R7RTZZ"?A*K0$49R1^`"1M`0P@;P`4+"@`!&`$4H<D4KZ&;`0@
  2795. +M"F;T*TH!$$*M`10@+0$09R(F0-;\`"`I;P`4$WQ%[0$0(%(I2!.`(%(DT"!O
  2796. +M`!12J``$(`M,WRS`6$].=2!O``0O#2I(3KH)D"`M``0J7TYU(&\`!"`O``A(
  2797. +MYP$4+@`J2"9M``Q.N@EP<`$G0`$4*T<`!$S?*(!.=4CG`0(L;"H4<@!.KO^"
  2798. +M+@`B`$ZN_X(@!TS?0(!.=0``(&\`!")O``A93TCG,S8J2'X`(&P4L"PH`.`O
  2799. +M20`@2H9F($JL$<AF&D'L![PB""QL*A0D/````^U.KO_B+`!G`GX!2H9G-B(&
  2800. +M0>P'QB0(0>P1T"8(+&PJ%$ZN_IXB!B0-)B\`($ZN_IXB!G0*3J[^R$J'9U@B
  2801. +M!DZN_]Q@4"!L%+`F:`"X,'S__[?(9T!#[`?,<"4L>``$3J[]V"1`2H!G+"EL
  2802. +M$=`'L"E-![0O"B!++$I#[`>HE<HF;P`D3J[]M$S?!``B2BQX``1.KOYB3-]L
  2803. +MS%A/3G4@;P`$0^\`"&$`_RI.=2!O``1#[P`(80#_''`43KI7NDYU``!(YP`&
  2804. +M<`AR`"QX``1.KO\Z*D!*@&8$<`!@+D*M``1(>``H<``O`$'L!^!R`9/)P4%.
  2805. +MNC;&4$\J@&8,(DUP"$ZN_RYP`&`"(`U,WV``3G4@;P`$2.<`!BI((`UG&"!-
  2806. +M80``'B!53KHW"B)-<`@L>``$3J[_+DS?8`!.=2!O``1(YP`&*DA*K0`$9Q0B
  2807. +M52QX``1.KOX@(E5.KOXF0JT`!$S?8`!.=2!O``0@4")H``YP`!`I``]R`>&A
  2808. +M(`%.=2!O``0@+P`((B\`#$CG`P8L`2X`*DAAJDJ'9@1*AF<>(E4C1P`@(T8`
  2809. +M)#-\``D`'"QX``1.KOXR<`$K0``$3-]@P$YU(&\`!$CG``8J2$JM``1G'")5
  2810. +M+'@`!$ZN_BQ*0&<.(E5.KOXF0JT`!'`!8`)P`$S?8`!.=2\.("P4O"(`2$%"
  2811. +M0=*`("P4L+.`*4`3B$*L$XQ#[`?T<``L>``$3J[]V"E`$X1P_TZN_K9(@$C`
  2812. +M*4`'\$JL$X1G"$J`:P1P`6`"<``I0!.0+%].=2\.("P'\&L(+'@`!$ZN_K`@
  2813. +M+!.$9PHB0"QX``1.KOYB+%].=2`O``113TCG`P`N`$ZZ!HP@!TZZ`9!*@&<H
  2814. +M(D`@:0`<<D#EB<*1+T@`#"`!(&D`!")O``Q.D2P`(`=.N@%((`9@`G#_3-\`
  2815. +MP%!/3G4@+P`$+P<N'V"N```@;P`$("\`"")O``PO;P`0``0O;P`4``@O;P`8
  2816. +M``PO;P`<`!`O;P`@`!0O;P`D`!A13TCG!Q0N`$CO`P``%'P`*FP3E&`62JT`
  2817. +M!&8*,'P``2M(``1@#%*&VOP`)+RL$YAMY"`L$YB\@&9X<@K3K!.8("P3F"(`
  2818. +MYX'2@.6!(`%.NE*<*D!*@&8,<`PI0"FL</]@``".</;0K!.8(@#G@=*`Y8$@
  2819. +M;!.4(DU@`A+84X%D^B`L$Y1G!B!`3KI0]BE-$Y1Z]MJL$Y@@!>>`T(7E@-O`
  2820. +ME\LK2P`$4H7:_``DNJP3F&WP(`;G@-"&Y8`@;!.4(:\`%`@$(8<(`"&O`!@(
  2821. +M"$OO`"`AG0@,(9T($"&="!1+[P`L(9T(&"&="!PAG0@@(`9,WRC@4$].=2`O
  2822. +M``0B`&L6LJP3F&P0(`'G@-"!Y8`@;!.40K`(!$YU("\`!$CG`00N`&L>OJP3
  2823. +MF&P8(`?G@-"'Y8`J;!.4V\!*K0`$9P0@#6`(<`DI0"FL<`!,WR"`3G4@+!.8
  2824. +M3G4``"!O``1(YP`&*D@L;!3$3J[_O@:5#PP_`'``3-]@`$YU("\`!"!O``A9
  2825. +M3P2`#PP_`"(\``%1@"Z`3KI-6B"`(!<B/``!48!.NDU,(`$N@7(\3KI-0B%`
  2826. +M``0@%W(\3KI--B`!Y8"0@>>`T('0@"%```A83TYU(&\`!%E/2.<@!$O0(!TB
  2827. +M`.F!DH`@`>>`T($B`.6!TH#O@2`=)`#I@I2`Y8(@'2]!``AR,DZZ3.K0@M"O
  2828. +M``@&@`\,/P!,WR`$6$].=2`O``193RZ`0>P(""`(6$].=2!O``193RZ(0>P(
  2829. +M""`(6$].=2`L"`A.=0``(&\`!")O``@@+P`,64](YS\V+@`J2"])`"B7RTZZ
  2830. +M`[`B#20++&PJ%$ZN_7XF0"("3J[]>"`+9@9.NC$(8%XD;P`H0A(J!U*%(A,D
  2831. +M*P`$)@TH"BQL*A1.KOY*2H!G&"(+3J[]>$H29@1P`F`L+P1.NDT\6$]@*$ZN
  2832. +M_WPL`'(R1@&P@68(""L``0`+9I0B"TZN_7@@!DZZ+[(I0"FL</],WVS\6$].
  2833. +M=0``64]*K`@Z9@Q![P`#*4@(.F'N8!9![P`#(FP(.K/(9`1P`6`"</\I0!.<
  2834. +M6$].=5E/2.<!%"XO`!1*K!.<9@)AP"IL"#Y@+B`L$YQO#$'O``\B;0`$L\AB
  2835. +M$$J`:AQ![P`/(FT`!+/(9!`F52\-3KI.(EA/*DL@#6;.*4T(/DJ'9@1P`&`B
  2836. +M4(<O!TZZ3W(@0""L"#Y#[P`3(4D`!$/H``A83RE`"#X@"4S?*(!83TYU```@
  2837. +M+P`$64\N@$'L"%H@"%A/3G4@;P`$64\NB$'L"%H@"%A/3G4@+P`$64\N@"`L
  2838. +M%*QG#B!`3KKZ_DJ`9P1R`6`"<@`@`5A/3G4@+P`$(&P4K'(`3OKZI$ZZ^=@I
  2839. +M0!2L9@I(;`AH3KKYM%A/(&P4K$ZZ^FB!K!.@3G4@;!2L3OKZ!`CL``P3HDYU
  2840. +M("\`!`@```Q6P$0`2(!(P$YU".P`#1.B3G4@+P`$"```#5;`1`!(@$C`3G5.
  2841. +MNB^2<``@;"GD$"@`#W(!X:&#K!.@3G5.^B_D("\`!%E/2.<!%B]``!!^`&`N
  2842. +M("T`%$ZZ+SHF0$J`9Q1*JP`49@Y^`7`!)T``%"=M`!@`&")-<!PL>``$3J[_
  2843. +M+B!L*>0L>``$3J[^C"I`2H!FP"`'3-]H@%A/3G4@+P`$2.</!"X`<`'OH"P`
  2844. +M<`F^@&8&<`!.N@L4("P4I,"&9P:-K!2H8'HJ!D:%RZP4J$J':V9P(+Z`;&`@
  2845. +M!^>`0>P3I"IP"``P?``!N\AF+"`'58!G%%.`9Q!R#9"!9SQ9@&<X48!G-&`*
  2846. +M2&P(@$ZZ^'!83W``3KH*MF`@(`UG'"`'YX`H!D'L$Z2(L`@$B:P4I"`'3I5&
  2847. +MA,FL%*0@+!2HP(9FBDS?(/!.=2`O``0O#B(L$Z""@'``+'@`!$ZN_LXL7TYU
  2848. +M("\`!"\.(@`@+!.@@($L>``$3J[^PBQ?3G4@+P`$2.<#`"X`?`!A`/X02H!G
  2849. +M"'P!<`YA`/\,(`=A`/YB2H!G"'P!<`)A`/[Z(`=A`/YJ2H!G"'P!<`-A`/[H
  2850. +M(`=A`/Z&2H!G"'P!<!1A`/[6(`9,WP#`3G4@+P`$+P<I0!&H<`@N'V``_KQP
  2851. +M`&$`_V!@D&#V2.<!%'X`2^P3I#9\``$JBT*M``12AU"-<""^@&WP0JP4J$*L
  2852. +M%*1"K!.@80#]U&$`_>IA`/VB3-\H@&``_?AA`/VX8`#^"```2&P(E$ZZ]TQ8
  2853. +M3TYU("\`!"\-3KI,="I`2H!F`F'B(`TJ7TYU(&\`!"`O``@O"TZZ2F@F0$J`
  2854. +M9@)AQB`+)E].=2!O``0O#2I((`UF!$OL")X@34H89OQ3B)'-(`A2@$ZZ3"@@
  2855. +M0$J`9@1P`&`((D@2W6;\(`@J7TYU64](YP,T?@!\`"!L%+`F:`#08"Q**P`(
  2856. +M9B0P/`4`P&L`#F8:4H<@:P`*(`A*&&;\4XB1P"`(W(#<JP`45(8F4TJ39M`@
  2857. +M!U*`Y8#0AF$`_THI0!3(Y8<@0")`T\=%Z0`$+T``%&8*0>P(D"E(%,A@5B!L
  2858. +M%+`J:`#08$)*+0`(9CHP/`4`P&T`#F8P)FT`"BXM`!0@;P`4(,HO2``48`(4
  2859. +MVTH39OH4_``])FT`$&`"%-L@!U.'2H!F]D(:*E5*E6:Z(&\`%$*03-\LP%A/
  2860. +M3G4@;P`$("\`""\-*D@J@$*M``3E@&$`_K0K0``(*E].=2!O``0B;P`(("\`
  2861. +M#$CG(C0F22I(2H!G"B!+80#^PB1`8`(D2R`*9SXB%20M``2T@6TB+`'<AG00
  2862. +MTH*\@6T"(@8J@2`!Y8`@;0`(3KI(YBM```AG$D?M``0B$U*;Y8$@6R&*&`!P
  2863. +M`4S?+$1.=2!O``0B;P`(("\`#&&22H!F!&$`_AI.=2!O``0B;P`(2.<`%"9)
  2864. +M*D@@+0`$T*L`!+"5;Q+0@"J`Y8`@;0`(80#^&BM```@B+0`$Y8$@;0`(T<$@
  2865. +M*P`$(@#E@2)K``A@`A#94X%D^M&M``0@:P`(3-\H`$[Z2-8@;P`$(F\`""]O
  2866. +M``P`!"`O`!`B+P`464](YP(T+`$J221(+T@`$$J`9T13@&<*4X!G``"V8```
  2867. +M]%.&9R(@+P`8(@V0@2!O`!!",`@`($$B;P`08`(2V%.`9/I@``#.0>P(H")O
  2868. +M`!`2V&;\8```OB9O`!A@;G!<L!5F9DHM``%G8%2-<`&\@&8&%/P`86!4(`95
  2869. +M@&9&$"W__TB`2,!R(Y"!9RY5@&<J58!G)E.`9R)3@&<>4X!G&G(5D(%G%'(<
  2870. +MD(%G#E6`9PIR'Y"!9P15@&8$%/P`)Q3M__]@"!3M__]@`A3=N\MECF!`)F\`
  2871. +M&&`V<"JP%68N2BT``6<H5(T0+?__2(!(P')ED(%G#'()D(%F#!3\``I@#A3\
  2872. +M`!M@"!3M__]@`A3=N\MEQD(23-\L0%A/3G6>_`$L2.<_-BIO`5@@;!'$#&@`
  2873. +M)0`49`I(>``43KK)OEA/0JP1#'`!*4`1""E`$2YP`BE`$2HI0!%0*7P```"$
  2874. +M$4R3R2QX``1.KO[:*4`4L$ZZ\YPI0!2T9@I(;`BB3KKS>%A/(&P4M$ZZ]"PI
  2875. +M0!2X+&P4M"!6+&@`%"E.%,1![P$P3J[_OBEO`3`4O$ZZ])1.NONL(&P4L"`H
  2876. +M`*QG$.6`(D`B*0`TY8$I013`8`8I:`"$%,!*%68``.A![`BZ(@@L;"H4)#P`
  2877. +M``/N3J[_XBP`0>P(P"((3J[_XBX`0>P(QB((3J[_XBH`2H9G"$J'9P1*A68B
  2878. +M2H9G!B(&3J[_W$J'9P8B!TZN_]Q*A6<&(@5.KO_<80#[<G`!+P`O!2\`+P<B
  2879. +M!L%!3KHC6"!L$<@@*``<0>\!6&$`_)Y/[P`0?`!^`&!0(FP1R"!I`"0@,'@`
  2880. +M9SXB`$/O`#`D"2QL*A1V0.6+3J[^;DJ`9R8B;!'((&D`)-''("@`!&<((@(D
  2881. +M`$ZN_(Y![P%(0^\`,'`!80#\V%*&4(<@;!'(O*@`'&VF8``"S"QL*A1.KO_*
  2882. +M*`!.KO_$*@!^`"!L%+`L*`#@9BA^`4'L",PB""0\```#[4ZN_^(L`&820>P(
  2883. +MSB((3J[_XBP`9@1A`/JD+P<O!G``+P`O!2($P4%.NB**0>\!6'`!80#[UB`\
  2884. +M```%&F$`^HX@0#%\!```$B]``#QP0.6(80#Z>D_O`!!^0.6/+T`!.&`"4HT0
  2885. +M%4B`2,!![`_I"#```P@`9NP0%6<``A9R(K`!9C!2C29-8!!P*K`59@A*+0`!
  2886. +M9P)2C5*-$!5G!G(BL`%FYB1-$!5R(K`!9@)2C7P"8%1P)[`59B!2C29-8`)2
  2887. +MC1`59P9R)[`!9O0D37`GL!5F`E*-?`%@+B9-8!!P7+`59@A*+0`!9P)2C5*-
  2888. +M$!5G$G(@L`%G#'(*L`%G!G()L`%FVB1-?``@2RH*FHL@!5*`+T@`*&$`^;8F
  2889. +M0$JO`4QF("`%($LB;P`H3KI#WD(S6`!![P%((DMP`&$`^V!@`/\FVH5R$-J!
  2890. +MNH=O%"!O`3A.ND2((`5A`/EV+@4O0`$X+PH@!B!+(F\`+'(!80#[KEA/(@LD
  2891. +M+P$X)@<L;"H43J[\N"H`;!!"$B\O`"A(;`C43KKP?E!/2H5F(B\*(`8@2R)O
  2892. +M`"QR`&$`^W1![P%,(DMP`&$`^NA83V``_JQZ`2!O`"Q"J``(0B@`$4(H`!`O
  2893. +M"B`&($LB;P`L<@)A`/M`0>\!0'`080#Z)EA/(@LD+P`L+&PJ%$ZN_,HH`&8\
  2894. +M8"IZ`")O`"S2_`$80>\!/'`!80#Z($J`9@1X9V`2(B\`+"QL*A1.KOS$*`!*
  2895. +MA&?2(B\`+"QL*A1.KOR^<'30@+B`9PI(;`CH3KKOREA/2H5G(B\*(`8@2R)O
  2896. +M`"QR`&$`^L!![P%,(DMP`&$`^C183V``_?@@+P%`(&\!1$ZZ/AI![P%(0^\!
  2897. +M/&$`^BH@2TZZ0TY@`/W6(&\!.$ZZ0T(@;P`L3KI#.F$`^))![`D"3KHC5BE`
  2898. +M"`AF"$'L"0@I2`@(0>P)#DZZ(T`I0`@<9@8I;`@("!Q![`D83KHC+"E`""!F
  2899. +M"$'L"1XI2`@@0>P)(DZZ(Q8I0`@D9@A![`DH*4@()$'L"3!.NB,`*4`4S&8(
  2900. +M0>P).BE(%,P@+P%,(&\!4")L%,A.NE&^<`!.ND:T3-]L_-[\`2Q.=2`O``1(
  2901. +MYP,`+@!*K!309P0@!V!@?``@!P*````!)&<"?`@(!P`'9P0`1@`%"`<`!&<$
  2902. +M",8``@@'``%G!`C&```(!P`#9P0(Q@`!"`<``&<$",8`!B`'<DG`@7)`L(%F
  2903. +M!`!&`$((!P`)9P0(Q@`%(`8*0``/3-\`P$YU("\`!$CG!@`L`$JL%-!G""`&
  2904. +M`D`/_V!>>@`*1@`/"`8``V<$>DGEC2`&<@7`@5N`9@0(Q0`'"`8``F<$",4`
  2905. +M!`@&``!G!`C%``$@!G)"P(%G!`C%``8(!@`!9P0(Q0`#"`8`!F<$",4```@&
  2906. +M``5G!`C%``D@!4S?`&!.=0``2.<#`$ZZ\7HN`'P`8`HO!DZZ[^)83U*&O(=M
  2907. +M\DS?`,!.=2`O``0O!RX`8=1.NN]63KKV6"!L%+1.NNX4+P=.NL.J6$\N'TYU
  2908. +M("\`!"\'+A]@U```("\`!"(O``@@;P`,44](YP,D+`$N`"I(3KKUU"`'3KKP
  2909. +MV$J`9QHB0"!I`"`O2``4(`8@:0`$(DTD;P`43I)@`G#_3-\DP%!/3G4``)[\
  2910. +M``Q(YR\V*F\`-'X#SJ\`.'P!(&P4L"9H`+@J/````^Q.NO5^2H=G"G`"OH!G
  2911. +M!'(`8`)R`2]!`"AP`;Z`9PA5AV<$<`!@`G`!+T``+"!-0^P)0$ZZ.Z)*@&8&
  2912. +M>/]@``%4</\@;!2P(4``N"(-+&PJ%'3^3J[_K"X`(&P4L"%+`+A*@&9X+&PJ
  2913. +M%$ZN_WQ.NB&,+``@+!&D<BY&`;"!9P1*@&8*?@$J/````^Y@%B`&58!F#`@O
  2914. +M``@`.F<$<`%@`G``+@!*AV<L?``(+P`(`#IG'`@O``\`.F<&>`)@``#6("\`
  2915. +M/$ZZ_88H`&```,AX_V```,(I1BFL</]@``%"0J<L;"H4<@(D#TZN_QQ/[P`$
  2916. +M)$!*@&<,(@<D"DZN_YI*@&86(`IG""0*<@).KO\63KHAYG#_8``!""@J`'0D
  2917. +M"G("3J[_%B('3J[_IG!0Z8C`KP`X#(````4`9@QP$2E`*:QP_V```-I*KP`H
  2918. +M9P8(!``#9@Q*KP`L9Q((!``"9PQP#2E`*:QP_V```+8(+P`)`#IG(B(-)#P`
  2919. +M``/N3J[_XDJ`9P@B`$ZN_]Q@"DZZ(6IP_V```(P(+P`(`#IG!"`%8`8@/```
  2920. +M`^TD`"(-+&PJ%$ZN_^(J`&8(3KHA/G#_8&`(+P`)`#IF!$J&9@0L!&`"?/]^
  2921. +M`$JO`"AG`GX!2J\`+&<$",<``0@O``,`.V<$",<``R\'(`4B!DZZ&SY83RX`
  2922. +M;!QP_R!L%+`A0`"X(@4L;"H43J[_W"!L%+`A2P"X(`=,WVSTWOP`#$YU(&\`
  2923. +M!"\O``PO+P`,+PAA`/VH3^\`#$YU(&\`!$CG.`!P_\`H``-R`!(`</_`*``"
  2924. +M=``4`'#_P"@``78`%@!P_\`0>``8`.&$B(/AA(B"X82(@2`$3-\`'$YU2.<C
  2925. +M-$OL%49![`ED1>P)5"3(0>P):"3(0JP)8$*:?@`L+!5.1^P<D&`\("L`!"(`
  2926. +MY8$@3='K``A#Z`?J1>P)5"6)&`!*@&<&<`$I0`E@2H=G!DJK``1F""`31(`I
  2927. +M0`E<4H?6_``0OH9MP'X`+"P52F`Z<``B!P:!```%V!`U&`!(P.F`($TB``:!
  2928. +M```'4M'U&``&@```!TXD-0@`Y8)#Z`?J1>P)5"6)*`!2A[Z&;<),WRS$3G4@
  2929. +M;P`$(F\`")[\"BA(YSLV+T@`*"])`"P@"&8(3>P);"].`"AP.B!O`"BP$&8$
  2930. +M4J\`*"!O`"AP.DZZ/"I*@&9.<`HB`"!O`"@@"$H89OQ3B)'`THA2@7!!LH!E
  2931. +M!G#_8``"3$'L"7A#[P`Q$MAF_$'O`#%#[`F$3KH\5$'O`#$B;P`H3KH\2$'O
  2932. +M`#$O2``H0J<O+P`L3KK^6E!/+@!2@&8&</]@``(((`=![P!R(CP```G:3KH>
  2933. +M`"P`(`=.NNM$2H!F!G`LO(!D!G#_8``!X$'O`(IA`/XX+@!![P".80#^+BIO
  2934. +M`"PJ@$'O`))A`/X@*T``!$'O`)9A`/X4*T``"$'O`)IA`/X(*T``#"(5:S!T
  2935. +M,K*";BHF+0`(;R1X"K:$;AXH+0`$:Q@,A````7)N$$J`:PRP@FX(MH=G"DJ'
  2936. +M9P9P_V```6K2@>6!("T`""0`U(+4@-2"("T`!"8`Y8/6@-:"UJT`#-:!UH=P
  2937. +M+-:`O(-D!G#_8``!.$?O`)Y\`"1-8!`@2V$`_8@E0``06(M2AEB*O*T`!&WJ
  2938. +M?`!@(!`;(@8&@0``!=@;@!@`<@`2`+*M``AM!G#_8```]E*&O*T`!&W:?`!!
  2939. +M[0=*)$@O2``D8$H@2V$`_3HD@$OK``40*P`$<@`2`"5!``1G"E.!9P9P_V``
  2940. +M`+Q'[0`!$!5R`!(`)4$`"&T**F\`++*M``QO!G#_8```G%*&U/P`$+RM``AM
  2941. +ML'P`8`X@!@:````'ZAN;"`!2AKRM``QM["`&!H````?J0C4(`'P`VOP('F`>
  2942. +M($MA`/R^*H!%ZP`$($IA`/RR*T``!$?J``12AE"-(&\`++R0;=I\`"1O`"0J
  2943. +M;P`L8"A*AV8&0JH`#&`8$!M(@$C`)4``#'(!L(%G"$J`9P1P_V`.4H;4_``0
  2944. +MO*T`"&W2<`!,WVS<WOP**$YU(&\`!%E/+PTJ2&`"4HT0%1]```1G)DB`2,!!
  2945. +M[`_I"#```@@`9A80+P`$<BRP`6<,<BVP`6<&<BNP`6;0(`TJ7UA/3G4@;P`$
  2946. +M(F\`""`O``PB+P`064](YP<4+`$N`"9)*D@@#6<2$!5(@$C`0>P/Z0@P``((
  2947. +M`&8$<`!@2GH`8"(0+P`42(!(P"(%Y8'2A=*!TH`J`7`PFH"ZAF\$<`!@)E*-
  2948. +M$!4?0``49Q!(@$C`0>P/Z0@P``((`&;&NH=L!'``8`0FA2`-3-\HX%A/3G4@
  2949. +M;P`$(F\`"%E/2.<`%"9)0^\`"'``<AAA`/]L*D!*@&8$<`!@:B`O``@B`.F!
  2950. +MDH`@`>F`D('I@":`<#JP%69.0>T``4/O``AP`'([80#_."I`2H!F!'``8#8@
  2951. +M+P`((@#I@9*`Y8'3DW`ZL!5F($'M``%#[P`(<`!R.V$`_PHJ0$J`9@1P`&`(
  2952. +M("\`"-&3(`U,WR@`6$].=2!O``0B;P`(64](YP$4*DDO2``,$!!R+;`!9@A^
  2953. +M`5*O``Q@,$B`2,!![`_I"#```@@`9AAR*R!O``RR&%?`1`!(@$C`+T@`#$J`
  2954. +M9P1^`&`$<`!@'"!O``PB36$`_Q0F0$J`9@1P`&`(2H=G`D25(`M,WRB`6$].
  2955. +M=2!O``0B;P`(GOP`#$CG`"0J22](`!!P2K`09BA"E4/H``%![0`$+T@`#"!)
  2956. +M(F\`#'`!(CP```%M80#^/"]``!!@``"T<$VP$&9\<`(J@$/H``%![0`,+T@`
  2957. +M#"!)(F\`#'`!<@QA`/X0(D!*@&8&<`!@``#`1>D``7`NL!%G!G``8```L$'M
  2958. +M``@B2"!*<`%R!6$`_>0B0$J`9@9P`&```)1%Z0`!<"ZP$6<&<`!@``"$0>T`
  2959. +M!")(($IP`'(&80#]N"]``!!@,!`02(!(P$/L#^D(,0`""`!G&G`!*H!#[0`$
  2960. +M<``B/````6UA`/V,+T``$&`$<`!@/"`O`!!F!'``8#)P+R!O`!"P$&8<0^@`
  2961. +M`4'M`!`O2``,($DB;P`,80#]VB]``!!@""M\```<(``0("\`$$S?)`#>_``,
  2962. +M3G4@+P`$(B\`""!O``PO;P`0``2>_``D2.<_%"I(*@`N`20'=@/$@R]``#@O
  2963. +M00`\2H)F#"`'<F1.NC4<2H%F$B`'<F3EB4ZZ-0Y*@6<$<`!@`G`!+``@%4J`
  2964. +M9PQ3@&=(4X!G9F```7X@+0`$(@!3@20!U(+4@28"Z8.6@B0#Z8*4@^^"+@7>
  2965. +M@B]'`$!*AF<``51R/+"!;0`!3`:'``%1@"]'`$!@``$^("T`!"(`TH'2@"0!
  2966. +MZ8*4@2("Z8&2@N^!VH$O10!`8``!'"@%?@`J+0`,4X4@!M"`T(;I@$?L"8;7
  2967. +MP"]``"!@&B`;(@#2@=*`)`'I@I2!(@+I@9*"[X'8@5*'OH5MXBXO`#PO1``D
  2968. +M(BT`#'0"LH)N!B8'4X-@`B8'(`-R9$ZZ-#`B`-*!2H!J`E:`Y(`O0``L(`,O
  2969. +M00`P<F1.NC04(`%J`E:`Y(!V"=:M``PO0``T(`,O00`H<@Q.NC/V4H$@`>>`
  2970. +MD('0@)"!T(!5@'(*3KHSX$?O`"C0F]"O`#30FY";4H!R!TZZ,\HN`6H"7H<L
  2971. +M+0`$G(=J`EZ&>@$H+0`(8!PN!EZ'(BT`#.6!0>P)@M'O`""^L!@`;`@L!U*%
  2972. +MNH1MX"`&T(#0AB(`Z8&2@"`!Z8"0@>^`(B\`)-*`+T$`0"`O`$#0K0`0T*\`
  2973. +M2$S?*/S>_``D3G4@;P`$(F\`""`O``R>_`!82.<_-BI(+$U'[P`T)L`FR";)
  2974. +M+TX`,$J`9QP@"$H89OQ3B)'`+`@B"-.O`#AP,[*`91Q\,F`880#ZJBP`G(TO
  2975. +M0``X<@.\@6P&</]@``-Z+T8`+"!O`#A*$&8&</]@``-H0^\`=&$`^^8O0``X
  2976. +M9@9P_V```U0F;P`\0>P)[B)+80#WL"X`9P)"DR!O`#A*$&<``KXJ2"](`'QA
  2977. +M`/I((@"2C2]``#@O00!X=@.R@VP&</]@``,4(&\`.!`09R!R++`!9QIR.[`!
  2978. +M9Q1#[P!P80#[?B]``#AF%'#_8``"["`\___Q\-"O`'0O0`!P(&\`.!`0<BRP
  2979. +M`6<(<CNP`68``5A#Z``!($E#[P!<80#[NBI`2H!F!G#_8``"L$7M``%P++`5
  2980. +M9P9P_V```J`@2D/O`$AA`/N4+T``.&8&</]@``**(&\`.$H09P9P_V```GP@
  2981. +M2W`"(4``""%\````B``$("\`<$2`3>@'2BS`<`$LP%*&+,8@+P!T1(!-Z`=:
  2982. +M+,!"GD*>UOP`$$7H!=AZ`"P\```'LB!*+R\`="](`"P@!2(&0>\`8&$`_&8N
  2983. +M`"ZO`'0@!2(&0>\`3&$`_%183R@`2^H``D7K``B^@&\:($L@A'`!(F\`*!*`
  2984. +M)DHA1P`$)$U"*0`!8!@@2R"'(F\`*$(1)DHA1``$)$T3?``!``$@!G(#P(%F
  2985. +M#"`&<F1.NC%$2H%F$B`&<F3EB4ZZ,39*@6<$<`!@`G`!(@#E@4'L">8@,!@`
  2986. +M(@#2@=*`)@'I@Y:!)`/I@I2#[X+:@E*&#(8```?U;P#_0F```1P@;P`X2A!G
  2987. +M!G#_8``!9DJ'9P9P_V```5QX`'P`>@!"KP!$?@`J2V!P2JT'3F<^("\`1"('
  2988. +MZ8$D+P!P!H$```=*)C,8`-:"+T,`1$J&9PJP@V<&</]@``$<1((K0@=*("\`
  2989. +M+%*`*T`'4GP!8"8@!2(O`'0J+0=*VH%*A&<*L(5G!G#_8```[D2!*T$'2D*M
  2990. +M!U)X`5*'VOP`$+ZK``AMBDJ&9P1*A&8&</]@``#(?`!^`"I+*"\`1&`Z<``B
  2991. +M!P:!```%V!`S&`!(P.F`($O1P$/H!THO20!`2H9G"DJI``QF!"`$8`(@!=&M
  2992. +M`!`L*0`$4H=8C;ZK``1MP&`@<`!R`2=!``@G0``$)"\`=$2"3>L'2BS"+,`L
  2993. +MP"]``'@J;P`\+B\`+"`'4H`K0``,+"\`>&<(T(92@"M```QR,["!8P1P_V`P
  2994. +MVOP'ZB`'($TB;P`P3KHQ;"!-T<=+Z``!0A!*AF<0(`8@32)O`'Q.NC%20C5H
  2995. +M`'``3-]L_-[\`%A.=2!O``0O#2I(0>P)2")-80#T4$J`9PQ![`E((DUP`6$`
  2996. +M_`PJ7TYU+PU![`GZ3KH2"BI`2H!F!BI?8```7'`!*4`HHDH59AY"K!5&0JP5
  2997. +M2D*L')!"K!R80>P)2$/L'3`2V&;\8"P@34/L%49A`//T2H!G'G`ZL!5G$"!-
  2998. +M0^P51G``80#[JDJ`9PA![!5&80#_=BI?8`#S#G`!*4`HHD/L%4:1R&$`\[Q*
  2999. +M@&<(0>P51F$`_U1@`/+N(&\`!"`O``@B;P`,GOP`$$CG`Q0J24CO`0$`$"!O
  3000. +M`!0O4``82JPHHF8$80#_1$JL%4IG"B`O`!BPK!56;"!^`$?L%49@$%*'UOP`
  3001. +M$+ZL%4YM!'X`8#)*JP=.9NI@*GX!1^P52BPL%4I@#B`O`!BPJP`0;0A2AUB+
  3002. +MOH9M[D/L%4;3QWX`'BD%U^F'0>P<D-''+PTO2``@(!!![P`<0^P51F$``,(@
  3003. +M;P`@(B@`!"M!`"#E@4'L'3`B;P`@T>D`"$/L"50CB!@`*T@`*%A/3-\HP-[\
  3004. +M`!!.=2!O``1#[!34<`!A`/\J0>P4U"`(3G4@;P`$("\`"")O``Q(YP$4+@`F
  3005. +M22I(2JPHIF8.<`$I0"BF0>P>]&$`_CHO"R`'($U#[![T80``0EA/2H=G!D'L
  3006. +M"@)@!$'L)MXG2``H3-\H@$YU(&\`!$/L%0!P`&&N0>P5`"`(3G4@;P`$("\`
  3007. +M"")O``PO;P`0``2>_``,2.</-"X`)F\`+"I(?`!Z`"@1(`3G@"])`"#3P$7I
  3008. +M"!Y@0"]*`"0@%;"2;38@;P`DL)!F*$J$9@8@*``$;AKGA"(H``0B;P`@!H0`
  3009. +M``@:LK%(`&X$<`!@`G`!*@`L*``$8`93A%&*;+H@%2(\``%1@$ZZ+.PH`"`5
  3010. +M(CP``5&`3KHLWM*'DH8L`6`(!H8``5&`4X1*AFOT8`@$A@`!48!2A`R&``%1
  3011. +M@&SP(`8B/```#A!.NBRL)T``""`&(CP```X03KHLG"`!+T$`''(\3KHLD"=`
  3012. +M``0@+P`<<CQ.NBR")H%*A6<"4I,@!%B`<@=.NBQP)T$`&&P$7JL`&"P\```'
  3013. +MLDJ$:T`@!G(#P(%F#"`&<F1.NBQ,2H%F$B`&<F3EB4ZZ+#Y*@6<$<`!@`G`!
  3014. +M*@`B`.6!1>P)YB`R&`"X@&U`4H:8@&#`4X8@!G(#P(%F#"`&<F1.NBP*2H%F
  3015. +M$B`&<F3EB4ZZ*_Q*@6<$<`!@`G`!*@#E@$'L">;8L`@`2H1KQ@2&```';"=&
  3016. +M`!0G1``<(`70@-"%Z8!%[`F&U<!"JP`08`XB*P`0Y8&8LA@`4JL`$"(K`!#E
  3017. +M@;BR&`!LYE*$)T0`#$*K`"`G1P`D3-\L\-[\``Q.=2!O``0O#2I(("T`&"(`
  3018. +MTH'2@$'L"@;1P2`M`!`B`-*!TH!#[`H;T\$@/```!VS0K0`4+P`O%2\M``0O
  3019. +M+0`(+RT`#"\)+PA(;`I`2&P5+$ZZ,C1/[P`D0>P5+"`(*E].=2!O``0O#6$`
  3020. +M_3@@0"I?8)0@;P`$(F\`""`O``PO!RX`(!&PAVT4(@=.NBL"T9`@$2('3KHJ
  3021. +M^"*!8"I*@&HF4Y#?D6P@(!%$@"('3KHJX"(0DH!3@2"!(!%$@"('3KHJSIZ!
  3022. +M(H<N'TYU(&\`!")O``A(YP$4)DDJ2"XM`!2>JP`49BPN+0`0GJL`$&8B+BT`
  3023. +M#)ZK``QF&"XM``B>JP`(9@XN+0`$GJL`!&8$+A6>DR`'3-\H@$YU(&\`!")O
  3024. +M``@@+P`,+V\`$``$GOP`<$CG/S0N`"IO`)@O20`L0I4O2``H0^\`7'`*(MA1
  3025. +MR/_\("\`7'(^L(%L!$J`:@Y![P!@0^\`7'`\80#_%D'O`&1#[P!@<#QA`/\(
  3026. +M0>\`:$/O`&1P&&$`_OI![P!P0^\`;'`,80#^[&!,("\`<%.O`'`&@```!VLB
  3027. +M`'0#PH)F"G)D3KHIWDJ!9AH@/```!VS0KP!P<F3EB4ZZ*<A*@6<$<`!@`G`!
  3028. +M(@#E@4'L">8@,!@`T:\`:"`O`&AOKBP\```';-RO`'`@!G(#P(%F#"`&<F1.
  3029. +MNBF.2H%F$B`&<F3EB4ZZ*8!*@6<$<`!@`G`!)"\`;.6")@#6@]:`Z8-![`F&
  3030. +MT<,L,"@`("\`:+"&;QI'[P!HG9M2DPR;````#&V>0J\`;%*O`'!@E"`O`%Q"
  3031. +MKP!<>@!R`2]!`(@O0``D4H4@+P"(T(`O0`"(("\`B&[N("\`B&H$<`!@!'`!
  3032. +MZZ`O0`"(2&\`,"\'2&\`D"!O`#A.D$'O`#Q#[P!H80#^+$_O``PH`&<N(`53
  3033. +MA4J`:@9P_V```1!*A6H&4Z\`B&#$<`'KH"P`2H1O!IVO`(A@M-VO`(A@KB`O
  3034. +M`'QK``#$(B\`4+*`9P``ND'Z^>(B;P`LL\AF!D'L%49@!$'L'O1\`"9(+T@`
  3035. +MD&```(@@*P=.L*\`?&9V>@`D;P"08&0@*@=.L*\`?&=4(`7I@"(O`(@@;P"0
  3036. +M!H````=*TK`(`)*K!THO00",2&\`,"\'2&\`E"!O`#A.D$'O`#Q#[P!H80#]
  3037. +M;$_O``Q*@&82("\`4+"O`'QF""]O`(P`B&`F4H74_``0(&\`D+JH``AMDE*&
  3038. +MUOP`$"!O`)"\J``(;0#_<'#_8"0@+P`DT:\`B"\O`"@O!TAO`)`@;P`X3I!P
  3039. +M`2J`3^\`#"`O`(A,WRS\WOP`<$YU(&\`!")O``@@+P`,GOP`#$CG!S0N`"I(
  3040. +M+TD`&`RM`````0`@;P9P`2M``"!(;P`<(`<@36$`_1Y83RP`2J\`'&8&("T`
  3041. +M(&H&(`9@``#&0?KXKB)O`!BSR&8&0>P51F`$0>P>]'P`)D@O2``@8```EB`K
  3042. +M!TZPK0`@9@``A'H`)&\`(&!P("T`("(J!TZR@&=>(`7I@"(5(&\`(`:````'
  3043. +M2M*P"`"2JP=**H%*K0`@5\!$`$B`2,`K0``@2&\`'"`'($TB;P`<80#\C%A/
  3044. +M2J\`'&9`(!60J@=*T*L'2BJ`2JT`(%?`1`!(@$C`*T``(%*%U/P`$"!O`""Z
  3045. +MJ``(;892AM;\`!`@;P`@O*@`"&T`_V)P_TS?+.#>_``,3G4@;P`$+PU#^O?:
  3046. +M<``J7V``_N!*K"BB9@1A`/<L3G4``)[\``Q(UP$#</_>_``,3G513TC7`P!0
  3047. +M3TYU2.<P`B(02B@`#6<$<`!@'"0))@`L;"H43J[_UB(`4H!F"$ZZ"MAP_V`"
  3048. +M(`%,WT`,3G513TCG/S8N`"I))D@L$R]&`"@O2``L2BL`#6<&<`!@``",2BL`
  3049. +M#&=F)DW7QWH`8%@D36`"4HJURV0&<`JP$F;TM\IF!"@*8`9!Z@`!*`B8C2(O
  3050. +M`"@D#28$+&PJ%$ZN_]`L`%*`9@A.N@IB</]@/MJ&MH9F-DOJ``&>AG``3KK<
  3051. +M/$ZZW&Q*@&8B2H=FI&`<(@8D#28'+&PJ%$ZN_]`J`%*`9@A.N@HF</]@`B`%
  3052. +M3-]L_%!/3G593TCG/P(N`"P0+T$`'$HH``UG!'``8%)3@28!(@8D!RQL*A1.
  3053. +MKO^^*@!.KO]\*`!2A6<$2H1G#B`$3KH(X"E`*:QP_V`D(@9T`"8"3J[_OBP`
  3054. +M4H!G!$J$9PX@!$ZZ"+XI0"FL</]@`B`&3-]`_%A/3G6>_`$`2.<_!BX`*D@L
  3055. +M%2HM``@@+0`$9PHB`"QL*A1.KO^F&"T`#4B$2,0@34ZZ)W!*A&<$<`!@1"(&
  3056. +M0>\`("0(+&PJ%'9`Y8M.KOYH*`!*AV8*(@9.KO_<2H!G&DJ$9Q)P_[J`9PPB
  3057. +M`B0%3J[_1DJ`9P1P`&`&3KH)+'#_3-]@_-[\`0!.=2`O``1(YR`"(@`L;"H4
  3058. +M=`!.KO\T3J[_?'0N1@*P@E?!1`%(@4C!(`%,WT`$3G4@+P`$(&\`"")O``R>
  3059. +M_``02.<W%BX`)DDJ2'P`8;A*@&9\(@<L;"H4=`%.KOY62H!G;"('0>P*:"0(
  3060. +M=@1.KO_068!F4B(')#P``"<03J[_-$J`9T(B!T'O`"`D"'803J[_UG()L(%O
  3061. +M+G";L"\`(&8F0>\`)2(()`M.KOS0*@!![P`FT<`B""0-3J[\T%*`9P92A6<"
  3062. +M?`$B!W0`3J[^5B`&3-]H[-[\`!!.=2`O``0B+P`(GOP"$$CG/P8N`'#_+T`"
  3063. +M*"]!`"0B!RQL*A1T`'8!3J[_OB]``"`B!TZN_[XL`$ZN_WPJ`"]``BQF``#"
  3064. +M*"\`)"(')`1V_TZN_CBP@F8``*Z\@FP``)XJ!)J&*`4@!'(!2$$L>``$3J[_
  3065. +M.BI`2H!F:G("2$%.KO\HXH@J``R%```"`&T0(`5R`4A!3J[_.BI`2H!F1GI`
  3066. +MYXU+[P`H,#P!_W(`0>\`*!#!4<C__&`LN(5O!"`%8`(@!"8`3KK:#B(')`TL
  3067. +M;"H43J[_T+"#9PI.KO]\+T`"+&`&F(-*A&[00>\`*+'-9PPB32`%+'@`!$ZN
  3068. +M_RXJ+P(L9@1"KP(H+"\`(+RO`"1L#B(')`8L;"H4=O].KO^^+"\"*&<*(`5.
  3069. +MN@8F*4`IK"`&3-]@_-[\`A!.=9[\`0A(YS<6+@`F22I(+!5*+0`-9@`!&"`'
  3070. +M!(````0`9R`$@```!`!G2E.`9UA3@&=<4X!G7E.`9V93@&=L8```[DHM``QG
  3071. +M)B`&0>\!)$/O`2!A`/W62H!G%"`O`20W0``"("\!(#:`<`!@``#*<!E@``"^
  3072. +M(@8L;"H43J[_*":`<`!@``"R)H9P`&```*IP`&```*0@!B(380#^-F```)@K
  3073. +M4P`(<`!@``".*A-*K0`$9@XB%2QL*A1.KOZ,*T``!"`M``1G8B0`(@4L;"H4
  3074. +M3J[^7$J`9E(B!D'O`"`D"'9`Y8M.KOYH2H!G/B(%3J[_IB(M``1.KO^F(@9.
  3075. +MKO_<(@)T`$ZN_T8;?``!``TJ@BM"``1![P`@(@@L;"H43J[_N$J`9P0@`F`.
  3076. +M3KH%Y&`&<!8I0"FL</],WVCLWOP!"$YU("\`!"(O``@O;P`,``1(YP\&*B\`
  3077. +M'"P!+@!P#DZZ)18J0$J`9@IP#"E`*:QP_V!.0]4BQT*9(L9"+0`-(@<L;"H4
  3078. +M3J[_*!M```Q(>OYT2'K[VDAZ^V1(>OJL2'KZ=DAZ^F@@!2!-0_KZ4$ZZT=Q/
  3079. +M[P`8*`!L!B!-3KHC3B`$3-]@\$YU("\`!"(O``@O;P`,``0O;P`0``@O;P`4
  3080. +M``PO;P`8`!!(YPT`*"\`%"HO`!`N`'``2H%F!'!`Y8@`0``!+P`@!W+_80#_
  3081. +M1EA/2H!F0'``2H1F!'!`Y8@`0``"+P`@!7+_80#_*%A/4X!F(G``2J\`'&8$
  3082. +M<$#EB`!```(O`"`O`!QR_V$`_P983U6`9Q!![`IN+T@`$$S?`+!.^L[@3-\`
  3083. +ML$YU```@;P`$(F\`""]O``P`!"`O`!`O;P`4``A(YP<T+@`D;P`@)DDJ2"PK
  3084. +M`'0DKP`<0JH`$G`!-4``#D)J`!`E?````@``,C5```PE:P"``#8@*P!\9A`B
  3085. +M*P`$;PHE?```"```%F`$)4``%B53``1!ZP"$3KK2?B5``"(E0``:)4``*B`K
  3086. +M``1:@&<^58!G4%F`9T!5@&9F(`UG'$AX`/](;"BL+PU.NM+`3^\`#"H`;P8E
  3087. +M10`68`@E?````0``%B5\``"@```(8$HE?```$```"&!`)7P``$````A\`&`T
  3088. +M2I-F$$HK``AF"B5\```@```(8"`E?```@```"&`6("L`!&\&<$#AB&`&(#P`
  3089. +M`(``)4``"$J'9P)\`"`&3KK?7(&J``A,WRS@3G4@;P`$(F\`"%E/2.<C%BI(
  3090. +M?@`O20`80J<L;"H4<@(D#TZN_QQ/[P`$)D!*@&=0(@UT_DZN_ZPN`&=$(@<D
  3091. +M"TZN_YI*@&<X(@=.KO\N2H!7QD0&2(9(QDJ`9P8B`$ZN_Z8@!^6`+R\`&"!`
  3092. +M+R@`#")"(`8@36$`_GQ03WP`8`Y\_TZN_WQ.N@(`*4`IK$J'9P8B!TZN_Z8@
  3093. +M"V<()`MR`DZN_Q8@!DS?:,183TYU```@+P`$64\O!RX`3KK54DAO``1(>`@`
  3094. +M+P=.NM]63^\`#$J`9P1P`&`$("\`!"X?6$].=0``("\`!"!O``@B+P`,64](
  3095. +MYP,T+`$N`"I(3KK5$"`'3KK0%"9`2H!G1`@K``$``V<V""L``P`#9Q8@:P`8
  3096. +M+T@`%"!K``1P`'("(F\`%$Z1(&L`%"](`!0@!B!K``0B321O`!1.DF`(<`TI
  3097. +M0"FL</],WRS`6$].=2`O``0@;P`((B\`#$CG`P1,WR#`8(`@;P`$44\O#2I(
  3098. +M0>\`!$ZZS]A*@&H$</]@#B`-9P8@+P`$*H`@+P`$*E]03TYU```@;P`$GOP`
  3099. +M0$CG.Q8J2$ZZU%X@#6=22A5G3B(-0>\`("0(+&PJ%'9`>`!.KOQV+@!M-DZN
  3100. +M_WPL`%*`3KHA#"9`2H!G)+Z&9Q0F!E*#(@TD"TZN_'9*@&\0(`)@#B!"(DL2
  3101. +MV&;\(`M@`G``3-]HW-[\`$!.=2`O``0@;P`((B\`#%E/2.<#-"P!+@`J2$ZZ
  3102. +MT^`@!TZZSN0F0$J`9R8(*P````-G&"!K`!`O2``4(`8@:P`$(DTD;P`43I)@
  3103. +M"'`-*4`IK'#_3-\LP%A/3G4@+P`$(&\`""(O``Q(YP,$3-\@P&">```@+P`$
  3104. +M*4`1I$J`9P``AG)GD(%G``""58!G``"`<@F0@6=\4X!G>%.`9W13@&=P4X!G
  3105. +M;%.`9VA3@&=H4X!G:')1D(%G9E.`9V93@&=F4X!G9E.`9V93@&=F58!G9E.`
  3106. +M9V93@&=F4X!G9E6`9V93@&=F4X!G9E.`9V93@&=F4X!G9E6`9V93@&=F4X!G
  3107. +M9E.`9V9@:'``8&9P#&!B<`M@7G`68%IP!V!6<`A@4G`08$YP$6!*<`)@1G`"
  3108. +M8$)P%F`^<`=@.G`68#9P)&`R<!9@+G`68"IP'F`F<!)@(G`E8!YP)F`:<!-@
  3109. +M%G`68!)P'&`.<`U@"G`-8`9P#6`"</].=2\.+&PJ%$ZN_WQA`/[Z*4`IK"Q?
  3110. +M3G4@;P`$2.<`!BI((DTL>``$3J[_!"!-3-]@`$[Z'<@@+P`$2.<!!"X`*FPI
  3111. +MN&`.("T`#+"'9@0@#6`(*E5*E6;N<`!,WR"`3G5(YR`"0>PIN$ZZ*[(@+!2P
  3112. +M(BP4O"0`LX("@@!___\I0BFT4H(I0BFP+P$O`$AL#@!(;"G$3KK"PD_O`!`L
  3113. +M>``$3J[]9BE`*>AG$$'L*<1P`$ZZ*\8I0"GD9@I(;`X.3KK)<EA/3-]`!$YU
  3114. +M2.<`!B`L*>AG"B!`+'@`!$ZN_6!*K"GD9S@L>``$3J[_?&`,(DUP'"QX``1.
  3115. +MKO\N(&PIY"QX``1.KOZ,*D!*@&;B(&PIY$ZZ*QXL>``$3J[_=DS?8`!.=0``
  3116. +M(&\`!"`O``@B+P`,(F\`$"]O`!0`!"]O`!@`"%E/2.</-B@O`"PJ+P`H+`$N
  3117. +M`"I)+T@`("QX``1.KOUF)D!*@&<P($L@!$ZN_7(D0$J`9R(@#6<()4T`*"5%
  3118. +M`"0@;P`@(`<B2B(&3J[^1$H`9@0@"F`6(`IG!B!*3J[];"`+9P8@2TZZ*HAP
  3119. +M`$S?;/!83TYU(&\`!$CG``8J2"`-9Q@B32QX``1.KOX^(&T`#DZZ*EX@34ZN
  3120. +M_6Q,WV``3G4@#Y!\`!RPK!&@90`:<)[\`!!(YR<4+B\`-"IO`#`O;P`L`"0O
  3121. +M30`@8``%C@@'``1G,A`O`!E(@$C`1^P/Z=?`"!,``&<>"!,``&<.$"\`&4B`
  3122. +M2,!R(-"!8!(0+P`92(!(P&`($"\`&4B`2,`L`!`&2(!(P'(JD(%G``$(<A60
  3123. +M@6<0<AR0@6<``EA3@&=*8``$TB!O`"`0$&<`!4X(!P``9PH0$'(OL`%G``4^
  3124. +M"`<``F<`!0)P+K`09@`$^K'-9P`%*`@'``!G``3L<"^P*/__9@`$XF``!1((
  3125. +M!P`!9DP@;P`D$!@?0``8+T@`)`@'``1G+DB`2,!'[`_IU\`($P``9QX($P``
  3126. +M9PX0+P`82(!(P'(@T(%@$A`O`!A(@$C`8`@0+P`82(!(P"P`"`<`!&<X(&\`
  3127. +M(!`02(!(P$?L#^G7P`@3``!G(@@3``!G$"!O`"`0$$B`2,!R(-"!8!8@;P`@
  3128. +M$!!(@$C`8`H@;P`@$!!(@$C`$@9(@4C!L(%G``0X8``$:`@'``)G('`N(&\`
  3129. +M(+`09A:QS6<`!%((!P``9PIP+[`H__]G``1"(&\`)!P88"X(!P``9PX@;P`@
  3130. +M$!!R+[`!9P`$)G`_O`!F"B!O`"!*$&<`!!8@;P`D'!A2KP`@+T@`)'`_O`!G
  3131. +MR'`JO`!GPDH&9@9P`&```_0(!P`!9@YP7+P`9@@@;P`D$!!@`A`&2(!(P!]`
  3132. +M`!@(!P`$9RY(@$C`2^P/Z=O`"!4``&<>"!4``&<.$"\`&$B`2,!R(-"!8!(0
  3133. +M+P`82(!(P&`($"\`&$B`2,`J;P`D4XT?0``88'9P6[P`9TP(!P`$9S`@;P`@
  3134. +M$!!(@$C`1^P/Z=?`"!,``&<:"!,``&<,$!!(@$C`<B#0@6`2$!!(@$C`8`H@
  3135. +M;P`@$!!(@$C`$B\`&$B!2,&P@68@(`<"0/_[+P`O+P`D+PUA`/U`3^\`#$J`
  3136. +M9@9P`&```QQ2KP`@(&\`($H09H)@``,*(&\`(!`09P`#``@'``)G''`NL!!F
  3137. +M%K'-9P`"[@@'``!G"G`OL"C__V<``MX@;P`D$!!R(;`!9PIR7K`!9P1P`&`"
  3138. +M<`$J`&<$4J\`)"!O`"0<&"](`"0?1@`?"`<``684<%R\`&8.(&\`)!(8'T$`
  3139. +M'R](`"0(!P`$9S(0+P`?2(!(P$?L#^G7P`@3``!G'@@3``!G#A`O`!](@$C`
  3140. +M<B#0@6`2$"\`'TB`2,!@"!`O`!](@$C`'T``&A]``!Y*!F<``D@@;P`D$!@?
  3141. +M0``8+T@`)`@'``1G+DB`2,!'[`_IU\`($P``9QX($P``9PX0+P`82(!(P'(@
  3142. +MT(%@$A`O`!A(@$C`8`@0+P`82(!(P"P`"`<``&<(<"^\`&<``>YP+;P`9GAP
  3143. +M7;`09W(2&!]!`!XO2``D"`<``680=%RR`F8*%!@?0@`>+T@`)!(O`!YG``&Z
  3144. +M"`<`!&<N2(%(P4?L#^G7P0@3``!G'@@3``!G#A`O`!Y(@$C`<B#0@6`2$"\`
  3145. +M'DB`2,!@"!`O`!Y(@$C`(&\`)!P8'T``'B](`"0(!P`$9S@@;P`@$!!(@$C`
  3146. +M1^P/Z=?`"!,``&<B"!,``&<0(F\`(!`12(!(P'(@T(%@%B)O`"`0$4B`2,!@
  3147. +M"B!O`"`0$$B`2,`2+P`:2(%(P;"!;50(!P`$9S@@;P`@$!!(@$C`1^P/Z=?`
  3148. +M"!,``&<B"!,``&<0(&\`(!`02(!(P'(@T(%@%B!O`"`0$$B`2,!@"B!O`"`0
  3149. +M$$B`2,`2+P`>2(%(P;"!;S)P7;P`9@#^#DJ%9@``AF```+9*!F<``+`@;P`D
  3150. +M'!@O2``D"`<``68*<%R\`&8$4J\`)'!=O`!FVDJ%9U9@``"("`<`!&<X(&\`
  3151. +M(!`02(!(P$?L#^G7P`@3``!G(@@3``!G$"!O`"`0$$B`2,!R(-"!8!8@;P`@
  3152. +M$!!(@$C`8`H@;P`@$!!(@$C`$@9(@4C!LH!F-%*O`"`@;P`D$!@?0``9+T@`
  3153. +M)$H`9@#Z8B!O`"`0$&8$<`!@$@@'``-G"G`OL!!F!'``8`)P`4S?*.3>_``0
  3154. +M3G4@#U%`L*P1H&4`%'XO#2IO``@@34H89OQ3B)'-(`A2@"\`3KH`$")`$MUF
  3155. +M_%A/*E].=0``(`^0?``,L*P1H&4`%$@O#2`O``@O`$ZZ%T183RI`2H!F$DAL
  3156. +M#AA"ITAX``).N@R^3^\`#"`-*E].=2`/D'P`#+"L$:!E`!0.2.<!%"XO`!0F
  3157. +M;P`0(`MF"B]'`!!,WRB`8)Y*AV8,+PM.NA6&6$]P`&`D+P<O"TZZ%/!03R9`
  3158. +M2H!F$DAL#C)"ITAX``).N@Q>3^\`#"`+3-\H@$YU(`^0?``@L*P1H&4`$ZR>
  3159. +M_``42.<!%#XO`"8J;"GL8!`P%;!'9@8@+0`"8&(J;0`&(`UF['``,`<O`$ZZ
  3160. +MQ;0J0$AX``I.NO\>4$\F0"!`,(<@#68@<``P!R\`2&P.3$AO`!1.NAE82&\`
  3161. +M&$ZZ_L1/[P`08`@O%4ZZ_KA83R=```(G;"GL``8I2RGL("L``DS?*(#>_``4
  3162. +M3G4@#U%`L*P1H&4`$Q9(YP`T*F\`$"9L*>Q@("!K``(0$+`59A(B31`8L!EF
  3163. +M"DH`9O9F!"`+8&XF:P`&(`MFW"9L*?!@'"!K``(0$+`59@XB31`8L!EF!DH`
  3164. +M9O9G1B9K``8@"V;@+PU.NL4")D!(>``*3KK^6B1`+HU.NOX>4$\E0``"(`MG
  3165. +M$C2K``A+["GL)54`!BJ*(!U@#"5L*?``!BE**?!P`$S?+`!.=2`/D'P`(+"L
  3166. +M$:!E`!)JGOP`%$CG`10^+P`F*FPI]&`0,!6P1V8&("T``F!B*FT`!B`-9NQP
  3167. +M`#`'+P!.NL7V*D!(>``*3KK]W%!/)D`@0#"'(`UF('``,`<O`$AL#E!(;P`4
  3168. +M3KH8%DAO`!A.NOV"3^\`$&`(+Q5.NOUV6$\G0``")VPI]``&*4LI]"`K``),
  3169. +MWRB`WOP`%$YU(`]10+"L$:!E`!'42.<`-"IO`!`F;"GT8"`@:P`"$!"P%682
  3170. +M(DT0&+`99@I*`&;V9@0@"V!N)FL`!B`+9MPF;"GX8!P@:P`"$!"P%68.(DT0
  3171. +M&+`99@9*`&;V9T8F:P`&(`MFX"\-3KK%1"9`2'@`"DZZ_1@D0"Z-3KK\W%!/
  3172. +M)4```B`+9Q(TJP`(2^PI]"55``8JBB`=8`PE;"GX``8I2BGX<`!,WRP`3G4@
  3173. +M#Y!\`!BPK!&@90`1*"`O``0@;P`,(F\`"$*G+R\`&"\O`!@O""\)+P!.N@$Z
  3174. +M3^\`&$YU(`^0?``8L*P1H&4`$/0@+P`$(&\`#")O``A(>``!+R\`&"\O`!@O
  3175. +M""\)+P!.N@$$3^\`&$YU``"_[!&@90`0PDCG`00N+P`0*F\`#&`0$!5(@$C`
  3176. +ML(=F!"`-8`A2C4H59NQP`$S?((!.=;_L$:!E`!"02.<#%"XO`!PF;P`8*F\`
  3177. +M%'P`8`@7M6@`:`!2AKR';?1,WRC`3G4@#Y!\``RPK!&@90`07$CG`10J;P`0
  3178. +M+BPJ")ZL*@3EAR\'3KK#?B9`(BPJ!.6!($W1P2Z'+P`O"&&8("PJ""(`Y8$@
  3179. +M3='!(BPJ!.6!(DW3P2(L#EB2@.6!+H$O"2\(80#_<B(L*@32K`Y8DJPJ".6!
  3180. +MV\$NAR\-+PMA`/]8("P.6$OL*@0B'=*`DI5/[P`<*L`I02H$3-\H@$YU(`^0
  3181. +M?``DL*P1H&4`#\*>_``02.<_-"IO`$@D;P!$0JP.5$JL#EAF5'`!*4`.6$*L
  3182. +M*?PI0"H$*4`J""!O`$`2$'0ML@)F#'0"*4(J`%*O`$!@*G0KL@)F"D*L*@!2
  3183. +MKP!`8!I(;`YD3KH4QEA/2H!G!D*L*@!@!G`!*4`J`"XO`#A*K"G\9PH@;"G\
  3184. +M2A!F``$P<`&PK"H`9EP@+"H((BPJ!+*`9Q*PK`Y89PPO+P`\80#^MEA/8`PB
  3185. +M+`Y8L(%G!"E!*@0B+`Y8Y8$F;P`\U\%@!E*L#EA8BR`L#EBPAVP.(E-P+;`1
  3186. +M9NI**0`!9^0@+`Y8*4`J""`L#EB^@&=0Y8!(;`YT(&\`0"\P"`!.N@].4$]*
  3187. +M@&8X4JP.6"`L*@@B+"H$LH!G$K"L#EAG#"\O`#QA`/XV6$]@#+*`9@@@+`Y8
  3188. +M*4`J!"`'*4`.6"E`*@@@+`Y8L(=F%B`L*@0B+"H(LH!G!"E`#EAP_V``!$0B
  3189. +M+`Y8Y8$@;P`\)G`8`!03=BVT`V8*(G`8`$HI``%F'$JL*@!F!G#_8``$&%*L
  3190. +M#E@I<!@`#E1P`6``!`A2BR`*9PBV$V8$<`%@`G``(DO3P"E)*?P@"F<``L8B
  3191. +M+`Y8Y8$@;P`\('`8`'`ML!!F``*PL"@``6<(2J\`3&<``J(F;"G\0J\`+'P`
  3192. +M0J\`*&`"4HL0$V<&<CVP`6;T+TH`,'H`8&(@"Y"L*?PO`"\L*?P@;P`X+Q!.
  3193. +MN@X*3^\`#$J`9CPN"YZL*?P@;P`P+Q!.N@VF6$^^@&82(&\`,"@%<`$O0``L
  3194. +M+T@`*&`D2J\`*&8,(&\`,"@%+T@`*&`"?`%P$-&O`#!2A2!O`#!*D&:62H9G
  3195. +M1$JO`"QF/DJL#EQG("(L#ECE@2!O`#PO,!@`+Q!(;`YX2&P1-$ZZ$Z!/[P`0
  3196. +M+RPI_$ZZ#3+1K"G\4JP.6%A/<#]@``+P+B\`.$JO`"AG``$F4JP.6$H39W@@
  3197. +M;P`H2J@`!&<,0^L``2E)#E1@``#02JP.7&=((BP.6.6!(F\`/"1Q&/QP+;`J
  3198. +M``%F%B\0+Q%(;`Z62&P1-$ZZ$RY/[P`08!P0$DB`2,`O$"\`+Q%(;`[$2&P1
  3199. +M-$ZZ$Q!/[P`4+RPI_$ZZ#*+1K"G\6$]P/V```F1P`2!O`"BPJ``$9F`B+`Y8
  3200. +MLH=L$E*L#ECE@2!O`#PI<!@`#E1@1DJL#EQG'.6!(&\`/"\P&/PO$$AL#O)(
  3201. +M;!$T3KH2M$_O`!`O+"G\3KH,1EA/T:PI_'`Z(&\`0+`09@9P.F```?YP/V``
  3202. +M`?@O+"G\3KH,(EA/T:PI_"`-9P(JA"!O`"@@*``(9PXB*``,($`@@7``8``!
  3203. +MS"!O`"@@*``,8``!P$JO`$QG,"(L#ECE@2!O`#P@<!@`<"VP*``!9QH@;"G\
  3204. +M$!!(@$C`+P`O+P!$80#ZZE!/2H!F9$JL#EQG3"(L#ECE@2!O`#PD<!@`<"VP
  3205. +M*@`!9A@O+"G\+Q!(;`\82&P1-$ZZ$?!/[P`08!X0$DB`2,`O+"G\+P`O$$AL
  3206. +M#SA(;!$T3KH1T$_O`!1![`]84JP.6"E(*?QP/V```29+["G\(%40&"J('T``
  3207. +M)TB`2,`O`"\O`$0JR&$`^F)03R1`(&PI_$H09@12K`Y8(`IG"A`O`"=R.K`!
  3208. +M9CA*K`Y<9R`0+P`G2(!(P"\`(&\`0"\02&P/6DAL$31.NA%<3^\`$!`O`"=(
  3209. +M@$C`*4`.8'`_8```LG`ZL"H``68``*"P*@`"9AX@;"G\$!!G"BE(#E12K`Y8
  3210. +M8`1"K`Y4D\DI22G\8'H@;"G\2A!G"BE(#E12K`Y88&0@+`Y8L(=F2DJL#EQG
  3211. +M(!`O`"=(@$C`+P`@;P!`+Q!(;`]T2&P1-$ZZ$-Q/[P`0$"\`)TB`2,`I0`Y@
  3212. +M<#H@;P!`L!!F!A]``"=@&G`_'T``)V`24JP.6"(`Y8$@;P`\*7`8``Y40JPI
  3213. +M_!`O`"=(@$C`3-\L_-[\`!!.=2`/D'P`&+"L$:!E``H,("\`!"!O``PB;P`(
  3214. +M0J="IT*G+P@O"2\`80#Z(D_O`!A.=2`/44"PK!&@90`)WDCG`!0@;P`0(F\`
  3215. +M#"`I``@O0``,+T@`$$S?*`!@```"(`]10+"L$:!E``FR2.<!!#XO``XJ;P`0
  3216. +M<``P!R\`80``[%A/&H!*K!309P``B@@'``=G!'!H8`)P+1M```$(!P`&9P1P
  3217. +M<V`"<"T;0``""`<`!6<$<'!@`G`M&T```P@'``1G!'!A8`)P+1M```0(!P`#
  3218. +M9P1P+6`"<'(;0``%"`<``F<$<"U@`G!W&T``!@@'``%G!'`M8`)P91M```<(
  3219. +M!P``9P1P+6`"<&0;0``(&WP`(``)8%`P!P)``<!R`#(`2&T``2\!80``KC`'
  3220. +M`D``.$C`YX!![0`$+H@O`&$``)@P!P)```=(P.V`0>T`!RZ(+P!A``""<``P
  3221. +M!RZ-+P!A``"^3^\`%$S?((!.=;_L$:!E``BJ("\`!`*```#P``R```!@`&8$
  3222. +M<&)@2@R````@`&8$<&-@/@R```!``&8$<&1@,@R```"``&8$<"U@)@R````0
  3223. +M`&8$<'!@&@R```"@`&8$<&Q@#@R```#``&8$<'-@`G`_3G6_[!&@90`(0$CG
  3224. +M`00^+P`.*F\`$`@'``AG!'!R8`)P+1J`"`<`!V<$<'=@`G`M&T```0@'``9G
  3225. +M!'!X8`)P+1M```),WR"`3G6_[!&@90`'^$CG`00^+P`.*F\`$`@'``MG$G!X
  3226. +ML"T``V<$<E-@`G)S&T$``P@'``IG%G!XL"T`!F<(&WP`4P`&8`8;?`!S``8(
  3227. +M!P`)9Q9P>+`M``EG"!M\`%0`"6`&&WP`=``)3-\@@$YUO^P1H&4`!XXO!RXO
  3228. +M``AO$KZL#?IN#.6'0>P-7B`P>`!@!D'L#YP@""X?3G4@#Y!\`"BPK!&@90`'
  3229. +M7$CG`Q0L+P`8+B\`%"9O`"`J;P`<+RP1[$AL#[)(;!$T3KH-JBZO`$@O+P!$
  3230. +M+R\`1"\O`$0O+P!$+R\`1"\O`$0O"R\-2&P1-$ZZ#8)/[P`P2H9G&"\&80#_
  3231. +M;BZ`2&P/N$AL$31.N@UF3^\`#`@L``$13V="4JP10"`L$4"PK!%(;B`@;!$X
  3232. +M4JP1.!"\``H(+``&$4]G+DAL$31.NA#R6$]@(E.L$4!(;!$T2'@`"DZZ#BY0
  3233. +M3V`.2&P1-$AX``I.N@X>4$](;!$T3KH0Q%A/2H=G""\'3KH,(%A/3-\HP$YU
  3234. +M```@#Y!\``RPK!&@90`&;$CG#Q0J;P`<?O]\`"\-3KH&:EA/*@!X`"9O`"!@
  3235. +M,B\%+PTO$TZZ!J!/[P`,2H!F'"\33KH&1EA/L(5F!"`$8!X@!U*`9@0N!&`"
  3236. +M?`%2A%B+2I-FRDJ&9P1P_F`"(`=,WRCP3G4@#Y!\`!"PK!&@90`%^DCG`10N
  3237. +M+P`8)F\`%"IO`!`O+!'L2&P/P$AL$31.N@Q,3^\`#%*'9@Y(;`_&2&P1-$ZZ
  3238. +M##A@#$AL#\Y(;!$T3KH,*E!/+PLO#4AL#]A(;!$T3KH,&$_O`!!,WRB`3G4`
  3239. +M`%E/0?D`````+HAG""!Y_____$Z06$].=5E/0?D`````+HAG""!Y_____$Z0
  3240. +M6$].=4CG`P0J;P`0($U*&&;\4XB1S2X(8`H@!D'L$1).N@S6?``<'4J&9NY!
  3241. +M[!$23KH/<B`'3-\@P$YUGOP`$$CG!Q1^`$OO`"Q@``":<"6P+P`49@``@"!O
  3242. +M`"A2KP`H$!!R`!(`'T``%7!DDH!G.G`,DH!G#E>!9P9;@6<&8$0F76`T+!U'
  3243. +M[P`>>@<@!G(/P(%!^@!XT<`6D%.+Z(93A4J%:NA"+P`?8`H@'4'O`!=.N@(:
  3244. +M1^\`%R\+3KK_2%A/WH!@(E*'<``0+P`50>P1$DZZ#"9@$%*'<``0+P`40>P1
  3245. +M$DZZ#!0@;P`H4J\`*!`0'T``%&8`_UA![!$23KH.IB`'3-\HX-[\`!!.=3`Q
  3246. +M,C,T-38W.#E!0D-$148`````2.<#%RIL*@Q@%"95<!30K0`$(DTL>``$3J[_
  3247. +M+BI+(`UFZ$*L*@Q@3"IL*AAPG-"L$:`F0"`M``0I0"H8*6T`"!&@+BT`&$J`
  3248. +M9AX@;!'$#&@`)``491(@3RP(0>T`#"QX``1.KOTD+D8B2R`'+'@`!$ZN_RY*
  3249. +MK"H89JY,W^C`3G4@;P`$(F\`""!0(E$0&+`99@1*`&;VD"%(@$C`3G4@;P`$
  3250. +M("\`"$/Z_^!R!$[Z""H@;P`$(F\`""`O``Q*@&\*$A`0T1+!4X!F]DYU(&\`
  3251. +M!")O``AP`'(`$!@2&0P``&%M"@P``'IN!`0``"`,`0!A;0H,`0!Z;@0$`0`@
  3252. +MD(%F!$H!9M1.=0``("\`""!O``1.5?_T(D]R"DZZ`G`&00`P$L%*@&;P(`D0
  3253. +MX;_)9OI"$)"/3EU.=0``("\`""!O``1.5?_T(D\B``)!``<&00`P$L'FB&;P
  3254. +M(`D0X;_)9OI"$)"/3EU.=0``,#$R,S0U-C<X.6%B8V1E9B`O``@@;P`$44\B
  3255. +M3S(``D$`#Q+[$-SHB&;R(`D0X;_)9OI"$)")4$].=0``("\`""!O``0O"$J`
  3256. +M3E7_]")/;`80_``M1(!R"DZZ`<@&00`P$L%*@&;P$.&_R6;Z0A`@"$Y=D)].
  3257. +M=0``(&\`!")O``A(YS`@)$AR`"`!)@$,$``K9P@,$``M9@1V`5)($!@$```P
  3258. +M;1H,```);A0D`>6!TH+2@4H#9@32@&#BDH!@WB*!(`B0BE.`3-\$#$YU(&\`
  3259. +M!"\-*D@(+0`#`!MF,"`L$5A.N@4.*T``!"M``!!F"G`,*4`IK'#_8!8K;!%8
  3260. +M`!1P\\&M`!A"K0`,0JT`"'``*E].=0``(&\`!$CG(!0J2"9-8"!P`!`30>P/
  3261. +MZ0@P``$(`&<*<@`2`'0@DH)@!'(`$@`6P4H39MP@#4S?*`1.=0``GOP`4$CG
  3262. +M,39#^@"$<``L>``$3J[]V"I`2H!F!G`43KK!BGX`(&P1T!XH__\@!T/O`!Q@
  3263. +M`A+84X!D^D(W>!Q![P`<*4@1:$/L$7!'[!&$+$V1R)7*<``B`'1]U()V*$ZN
  3264. +M_J1P%$ZZP41,WVR,WOP`4$YU*BH@4W1A8VL@3W9E<F9L;W<@*BH``$58250`
  3265. +M`&EN='5I=&EO;BYL:6)R87)Y`$J`:@``'D2`2H%J```,1(%A```@1(%.=6$`
  3266. +M`!A$@$2!3G5*@6H```Q$@6$```9$@$YU+P)(030!9@``(DA`2$%(0C0`9P``
  3267. +M!H3!,`)(0#0`A,$P`DA",@(D'TYU+P-V$`Q!`(!D```&X9E10PQ!"`!D```&
  3268. +MZ9E90PQ!(`!D```&Y9E50TI!:P``!N.94T,T`.:H2$)"0N:J2$.`P38`,`(T
  3269. +M`TA!Q,&0@F0```930]"!<@`R`TA#Y[A(0,%!)A\D'TYU``!(YW``)`!G($J!
  3270. +M9@1"@&`8)@#&P4A"Q,%(0D)"UH)(0<#!2$!"0-"#3-\`#DYU```@+!',!$`!
  3271. +M]"Y`3OK^8```(&\`!"`(2AAF_%-(D<`@"$YU```@;P`$("\`"")\`````$H0
  3272. +M9PJP&&;X0^C__V#R(`E.=2!O``0@+P`(L!!G"$H89OAP`$YU(`A.=2!O``0B
  3273. +M;P`(("\`#$J`9Q!3@!(8LAEF#$H!9P13@&KR<`!.=6X$</].=7`!3G4``"!O
  3274. +M``0B;P`($ABR&68(2@%F]G``3G5N!'#_3G5P`4YU(F\`""!O``0@"$H89OQ3
  3275. +MB!#99OQ.=0``(F\`""!O``0@+P`,(@A@!!#99PA3@&3X8`9"&%.`9/H@`4YU
  3276. +M(F\`""!O``0@+P`,(@A*@&\6L<EE#-/`T<`1(5.`9OI@!A#94X!F^B`!3G4@
  3277. +M;P`$("\`"$CG`Q0N`"I(9A(@#68$<`!@:"!-3KH`;G``8%X@#68*(`=,WRC`
  3278. +M3OH!R"9-58LP/'__P%-(P.6`+``($P`/9PP,:X``__YF!"PK__(@!TZZ`:`F
  3279. +M0$J`9@1P`&`>O(=C!"`'8`(@!B!-(DM@`A+84X!D^B!-3KH`#B`+3-\HP$YU
  3280. +M(&\`!"`(9@).=5F`2.<\,B(L*@QF#BE\````%BFL3-],/$YU(D&P@6\2)`'4
  3281. +MJ0`$!H(````4L()L`F`((BD``&?48.`F`0:#````$+"#;<9G$B1#0H(T*@`"
  3282. +M:[KEBM:"6(-@Z"1`-"H``&JJ"*H`!P``0H,V*@`"`D-__^6+2FH``FM`1_(X
  3283. +M!$IK``!K-D*$."L``@)$?__EC-B#6(3DC%B#2FL``FH$`$2``#5$``)K$BH$
  3284. +MY8PT,D@$`D*``(I"-85(!$*$."H``&=,Y8Q$A$?R2/Q*:P``:SY"A#@K``+E
  3285. +MC$*%.BH``@)%?__EC=B%6(18@^2,2FH``FH$`$2``#=$``)K$BH$Y8PT,T@$
  3286. +M`D*``(I"-X5(!->I``@F*0`$MJP/Y&X,MJD`"&8Z2JD``&<T("PJ#"!`LH!F
  3287. +M#"EI```J#&`0(&@``+*H``!F]B%I`````"`I``0&@````!0L>``$3J[_+DS?
  3288. +M3#Q.=2`O``1*@&8,*7P````6*:QP`$YU2.<^,E:``H#____\#(```?_\;@``
  3289. +MN+"L#^1N``"P)BPJ#&<``*@B0["I``AN,B(L*A"RJ0`,9BA%Z0`02E)K$$*$
  3290. +M."H``@)$?__EC+"$;QI"A#@J``)K".6,1?)(!&#<)BD``&=F(D-@O@CJ``<`
  3291. +M`$?R"`1"A;"$9SPL!)R`689F!"`$8##DCDIJ``)J!`!&@``J`.2--T8``C=%
  3292. +M```U10`">@1*1FL.-#)(!`)"@`",0C6&2`0F*0`(EH"6A2-#``@@"EB`3-],
  3293. +M?$YU*@"PK`_D:@0@+`_D*``&@````!0B+"H0+'@`!$ZN_SI*@&8**7P````,
  3294. +M*:Q@S")`1>D`$"-L*@P``"E)*@PC1``$(VPJ$``,)@26A6<H68-G)"-#``A'
  3295. +M\E@$-7R`````Y(TU10`"-T4``.2+`$.``#=#``)@%$*I``@U?(````#DC`!$
  3296. +M@``U1``"(`I8@$S?3'Q.=2!O``0@+P`((B\`#")O`!!93TCG#S8L`2X`*D@O
  3297. +M20`@<`&^@&,``+(F3=?&(`=5@&8D+PLO#2!-(DLL;P`H3I903TJ`;P``DB`&
  3298. +M($TB2TZZ]Z1@``"$(`?BB"(&3KKZ]B)-T\`@!B!-3KKWBB1->@!X`6`J+PTO
  3299. +M"R!+(DTL;P`H3I903TJ`:A)2A=7&M<MG"B`&($LB2DZZ]US7QE*$N(=ETK7-
  3300. +M9PH@!B!-(DI.NO=&)F\`("`%(@8@32)+80#_4B!*T<8@!Y"%4X`B!B)+3-]L
  3301. +M\%B/8`#_.DS?;/!83TYU3OK<:D[ZW&(@;P`$64\O"R`(9R0F0&`"4HMP`!`3
  3302. +M0>P/Z0@P``,(`&;N($M#[P`$3KKX#B`O``0F7UA/3G4``"`O``1(YP$$+@`J
  3303. +M;!&88`@@;0`$3I`J52`-9O1+[!#P<`;`K0`858!F&"`M``20K0`09PXB+0`<
  3304. +M(&T`$,%!3KK;."!-*E`@#6;6(`=,WR"`3OJZ*"`O``0@;P`(0]!2F2!14ID0
  3305. +M@$YU44\@;P`,0I<O2``$2&\`%"\O`!1!^O_>0^\`"$ZZ"3(@;P`,0A!03R`7
  3306. +M4$].=0``("\`!"!O``@O#2(`*DA2E4/M``@@$5*1&X$(#"`9#(````(`;11!
  3307. +M[0`,(FT`!'(!P4%.N@*@0JT`""I?3G6>_`(,+PTJ;P(40J\`#$*O``0O30`(
  3308. +M2&\"'"\O`AQ!^O^J0^\`#$ZZ"+I03R`O``QG$$'O`!`B;P`(<@'!04ZZ`E8(
  3309. +M+0`%`!MF"`@M``0`&V<$</]@!"`O``0J7][\`@Q.=2\-(@`J2$/54ID@$5*1
  3310. +M&X$(""`9#(````(`;1)![0`(0^P1$G(!3KH"#$*M``0J7TYUGOP""$*O``1"
  3311. +METAO`A`O+P(00?K_ND/O``A.N@@R4$\@+P`$9Q!![P`(0^P1$G(!P4%.N@'.
  3312. +M<##`K!$J9P1P_V`"(!?>_`((3G4@;P`$(F\`"$CG`10F22I(8!`@!R!+3KH`
  3313. +M)%*`9@1P_V`*?@`>'4J'9NAP`$S?*(!.=0``("\`!"!O``A93TCG`P0N`"I(
  3314. +M?``?0``/<D'2@<*M`!AF#`CM``4`&W#_8``!0'`SP*T`&%6`9U!P3$8`P*T`
  3315. +M&')`TH&P@68,".T``0`;0JT`#&`T""T`!0`;9P9P_V```0QP;D8`P*T`&')N
  3316. +M1@&P@68,".T``0`;0JT`#&`*<``K0``,8```YB`M``RPK0`4;#(@;0`$4JT`
  3317. +M!"`'$(!2K0`,""T`!@`;9PYR"KZ!9@@@34ZZ`@`L`$J&9P``JB`&8```J@@M
  3318. +M``(`&V<N0JT`#"`M`!Q![P`/<@%.NMBT+`!2@&8(".T`!0`;8'(@!E.`9VP(
  3319. +M[0`$`!M@9$JM`!1F("!-3KKU9$J`9PH([0`%`!MP_V!8<``K0``,*VT`$``$
  3320. +M("T`#+"M`!1M""!-3KH!ABP`".T``0`;(&T`!%*M``0@!Q"`4JT`#`@M``8`
  3321. +M&V<.<@J^@68(($U.N@%:+`!*AF<$(`9@!G(`$@<@`4S?(,!83TYU(&\`!"`O
  3322. +M``@B+P`,(F\`$%E/2.</$"P!+@`F22](`!0@!B('3KKVLBH`>`!*AV<$2H9F
  3323. +M!G``8```_'`PP*L`&&8*<$'0@,"K`!AF#`CK``4`&W``8```WG`SP*L`&%6`
  3324. +M9U!P3$8`P*L`&')`TH&P@68,".L``0`;0JL`#&`T""L`!0`;9P9P`&```*IP
  3325. +M;D8`P*L`&')N1@&P@68,".L``0`;0JL`#&`*0JL`#'``8```A$JK`!1F3`@K
  3326. +M``(`&V9$($M.NO0P2H!G.@CK``4`&W``8&`@;P`4$!@B:P`$$H!2JP`$4JL`
  3327. +M#%.%4H0O2``4<@JP`68.""L`!@`;9P8@2TZZ`#X@*P`,L*L`%&P$2H5NPDJ%
  3328. +M;Q8@2TZZ`"8@*P`<(@4@;P`43KK6]-B`(`0B!TZZ]11,WPCP6$].=2!O``1(
  3329. +MYP$$*D@@#6<``*!P0="`P*T`&&8L(&T`$$/M``0BR$*90BT`('``(L`(+0`'
  3330. +M`!MG!@BM````&PBM``0`&V```(I*K0`49T0@+0`,:@9R`"M!``P@+0`,9R@B
  3331. +M+0`<(&T`$,%!3KK6=BX`4H!F"`CM``4`&V`,OJT`#&<&".T`!``;*VT`$``$
  3332. +M0JT`#'`PP*T`&&82""T`!P`;9P9P_,&M`!AP`&`D</]@('X`2^P0\$JM`!AG
  3333. +M#"!-80#_1DJ`9P)^_RI5(`UFZ"`'3-\@@$YU(&\`!")O``@O;P`,``0O;P`0
  3334. +M``B>_``T2.<O-B9O`&`J;P!<2.\#```L0B\`.T(O`#I"+P`Y0B\`.!]\`"``
  3335. +M-T*O`%1P_R]``%!"+P`V?@!\`$7O`#Q@2G``(&\`+!`0<B"0@6<B5X!G)E&`
  3336. +M9Q)5@&<&5X!G(F`R'WP``0`[8!X??``!`#I@%A]\``$`.6`.'WP``0`X8`8?
  3337. +M?``P`#=2KP`L(&\`+$H09JYP`;`O`#MF!A]\`"``-W(J(&\`++(09AXL;P`P
  3338. +M(E98EB(1+T$`5&P(1*\`5!]``#M2KP`L8`Q#[P!43KKQKM&O`"P@;P`L$!!R
  3339. +M+K`!9D92KP`L<"H@;P`LL!!F'")O`#`@45B1(!`O0`!0;`9P_R]``%!2KP`L
  3340. +M8!9#[P!03KKQ;"H`9@9"KP!08`3;KP`L'WP`(``W<``@;P`L$!!R3)"!9Q1R
  3341. +M')"!9P99@&<*8!(??``"`#9@!A]\``$`-E*O`"P@;P`L4H@B;P`L$!%R`!(`
  3342. +M'T``)"](`"9P4)*`9P`!$%&!9P`!''`+DH!G``'04X%G4%N!9TQ;@6<B4X%G
  3343. +M``$"4X%G``#J5X%G``&`58%G``#P5X%G``#J8``!N"1O`#!P`K`O`#9F#B!2
  3344. +M6)(B4"`3,H!@``)*(%)8DB)0(I-@``(^(F\`,"!16)$H$&H$?@%$A$J'9PQ%
  3345. +M[P`]'WP`+0`\8")*+P`Z9PQ%[P`]'WP`*P`\8!!*+P`Y9PQ%[P`]'WP`(``\
  3346. +M?`$@!"!*3KKOABH`("\`4&8&2H1G``'D("\`4&H&<@$O00!0*"\`4)B%;QP@
  3347. +M2M'$(`4B2DZZ\XAR,"!*8`(0P5.$9/HJ+P!0W(4@!5.`9@`!!!`2L"\`-V8`
  3348. +M`/I*KP!09@``\D(28```["`O`%!J!G`(+T``4!]\``$`-G`"L"\`-F80(F\`
  3349. +M,"!16)$@$'@`.`!@"B)O`#`@45B1*!`0+P`D<G6P`6<`_UIR;[`!9AY*+P`X
  3350. +M9PQ%[P`]'WP`,``\?`$@!"!*3KKN]F``_SY*+P`X9Q(??``P`#Q%[P`^'WP`
  3351. +M>``]?`(@!"!*3KKO$BH`""\`!0`D9@#_%$'O`#Q.NN_^8`#_"")O`#`@45B1
  3352. +M)%`@"F8$1?H`\B!*2AAF_%.(D<HJ""`O`%!K!+"%;P0O10!0+"\`4&`@?`$B
  3353. +M;P`P(%%8D2`0'T``/$(O`#U@!G``8```K$7O`#P@+P!4L(9L"'(`+T$`5&`$
  3354. +MG:\`5$HO`#MG'F`(<``0&B!+3I53AFST8`8@2W`@3I53KP!4;/1@:DJ'9@Q*
  3355. +M+P`Y9@9*+P`Z9T80$G(@L`%G#'0KL`)G!G0ML`)F,DJ&:RZR+P`W9A)@"G``
  3356. +M$"\`-R!+3I53KP!4;/!P`!`:($M.E5.&8`IP`!`O`#<@2TZ54Z\`5&SP8`AP
  3357. +M`!`:($M.E5.&;/0@+P`F3-]L]-[\`#1.=0``(&\`!")O``@O;P`,``0O;P`0
  3358. +M``B>_``,2.<`%"9)*D@O;P`<`!!@.'`EL"\`#&8F(&\`&+`09@92KP`88!@O
  3359. +M"R\-0^\`&$ZZ^Y103TJ`9P8O0``88`IP`!`O``P@2TZ5(&\`&!`8'T``#"](
  3360. +M`!A*`&:V3-\H`-[\``Q.=2!O``0@B%B00J@`!"%(``A.=0``(&\`!$CG``8J
  3361. +M2$JM``IG"B)-+'@`!$ZN_I@;?`#_``AP_RM``!1P`!`M``\L>``$3J[^L")-
  3362. +M<").KO\N3-]@`$YU```@;P`$("\`"$CG`Q8N`"I(</\L>``$3J[^MAP`2(9(
  3363. +MQB`&4H!F!'``8&!P(B(\``$``4ZN_SHF0$J`9@@@!DZN_K!@1$'K``H@S1='
  3364. +M``D7?``$``A"&!#&D\E.KO[:)T``$"`-9P@B2TZN_IY@&D'K`!@G2``40>L`
  3365. +M%"=(`!Q"JP`8%WP``@`@(`M,WVC`3G4O""\`3KD```*T4$].=0`````#[```
  3366. +M``H```````".X@``)2(``"4N```E*```)18``"4$```E$```)0H``"4<```D
  3367. +M_@````$````!````"@````````/R```#Z@``!,QA;&P`97-C87!E``!D:7)E
  3368. +M8W1O<GD`9G5L;"UT:6UE`&EN;V1E`&MI;&]B>71E<P!N=6UE<FEC+75I9"UG
  3369. +M:60`;F\M9W)O=7```&AI9&4M8V]N=')O;"UC:&%R<P``<F5V97)S90!S:7IE
  3370. +M``!W:61T:`!A;&UO<W0M86QL``!I9VYO<F4M8F%C:W5P<P``8VQA<W-I9GD`
  3371. +M`&9I;&4M='EP90!I9VYO<F4``&1E<F5F97)E;F-E`&QI=&5R86P`<75O=&4M
  3372. +M;F%M90``<F5C=7)S:79E`&9O<FUA=```<V]R=```=&%B<VEZ90!T:6UE``!H
  3373. +M96QP``!V97)S:6]N`&%M:6=A`````````````````````&$````$````````
  3374. +M``````!B````#```````````````9````!8````````2$`````$````@````
  3375. +M``````````!I````)@``````````````:P```#```````````````&X```!`
  3376. +M``````````````!'````2@``````````````<0```%X``````````````'(`
  3377. +M``!F``````````````!S````;`````$`````````=P```'(`````````````
  3378. +M`$$```!^``````````````!"````C@``````````````1@```)@`````````
  3379. +M`````$8```"B`````0````````!)````J@``````````````3````+8`````
  3380. +M`````````$X```"^``````````````!1````R@``````````````4@```-0`
  3381. +M```!``````````P```#<`````0`````````*````X@````$`````````5```
  3382. +M`.H````!``````````L```#P````````$G`````!````]@```````!)T````
  3383. +M`0```/X```````````````T`````````````````````=F5R8F]S90!L;VYG
  3384. +M``!C;VUM87,``&AO<FEZ;VYT86P``&%C<F]S<P``=F5R=&EC86P``'-I;F=L
  3385. +M92UC;VQU;6X````"U````MP```+B```"Z@```O8```+^```#"```````````
  3386. +M``````````0````#`````P````(````!;F]N90``=&EM90``<VEZ90``97AT
  3387. +M96YS:6]N`````U(```-8```#7@```V0```````````````,````$`````F%T
  3388. +M:6UE`&%C8V5S<P``=7-E`&-T:6UE`'-T871U<P`````#D@```Y@```.@```#
  3389. +MI````ZH``````````@````(````"`````0````$E<PH``````````````%!/
  3390. +M4TE83%E?0T]24D5#5`!#3TQ534Y3`%1!0E-)6D4`86)C9&9G:6ML;6YP<7)S
  3391. +M='5W.GA!0D-&1TDZ3$Y14E-4.E58,0!I;G9A;&ED(&QI;F4@=VED=&@Z("5S
  3392. +M```J(0``+BHA`&EN=F%L:60@=&%B('-I>F4Z("5S``!S;W)T('1Y<&4`=&EM
  3393. +M92!T>7!E`&9O<FUA="!T>7!E`"5S```E<P``)7,Z"@``)7,Z"@``=&]T86P@
  3394. +M)74*`"5S```E<P``)39U(```)2IU(```)7,@)3-U(``E+3AU(``E+3@N.',@
  3395. +M`"4M.'4@`"4M."XX<R``)3-U+"`E,W4@`"4X;'4@`"5S(``@+3X@``!<7```
  3396. +M7&X``%QB``!<<@``7'0``%QF``!<(```7"(``%PE,#-O`"4V=2```"4J=2``
  3397. +M`%5S86=E.B`E<R!;+6%B8V1G:6ML;6YP<7)S='5X04)#1D=,3E%24U58,5T@
  3398. +M6RUW(&-O;'-=(%LM5"!C;VQS72!;+4D@<&%T=&5R;ET*("`@("`@(%LM+6%L
  3399. +M;%T@6RTM97-C87!E72!;+2UD:7)E8W1O<GE=(%LM+6EN;V1E72!;+2UK:6QO
  3400. +M8GET97-=(%LM+6QI=&5R86Q="B`@("`@("!;+2UN=6UE<FEC+75I9"UG:61=
  3401. +M(%LM+6AI9&4M8V]N=')O;"UC:&%R<UT@6RTM<F5V97)S95T@6RTM<VEZ95T*
  3402. +M("`@("`@(%LM+7=I9'1H/6-O;'-=(%LM+71A8G-I>F4]8V]L<UT@6RTM86QM
  3403. +M;W-T+6%L;%T@6RTM:6=N;W)E+6)A8VMU<'-="@`@("`@("`@6RTM8VQA<W-I
  3404. +M9GE=(%LM+69I;&4M='EP95T@6RTM:6=N;W)E/7!A='1E<FY=(%LM+61E<F5F
  3405. +M97)E;F-E70H@("`@("`@6RTM<75O=&4M;F%M95T@6RTM<F5C=7)S:79E72!;
  3406. +M+2US;W)T/7MN;VYE+'1I;64L<VEZ92QE>'1E;G-I;VY]70H@("`@("`@6RTM
  3407. +M9F]R;6%T/7ML;VYG+'9E<F)O<V4L8V]M;6%S+&%C<F]S<RQV97)T:6-A;"QS
  3408. +M:6YG;&4M8V]L=6UN?5T*("`@("`@(%LM+71I;64]>V%T:6UE+&%C8V5S<RQU
  3409. +M<V4L8W1I;64L<W1A='5S?5T@6RTM;F\M9W)O=7!="B`@("`@("!;+2UH96QP
  3410. +M72!;+2UV97)S:6]N72!;<&%T:"XN+ET*``!'3E4@9FEL975T:6QS(#,N-@``
  3411. +M``>,``!/:P``````%```````````````````!Z1C;VYS;VQE.@``)7,Z(```
  3412. +M:6YT=6ET:6]N+FQI8G)A<GD```!T:6UE<BYD979I8V4`````_____V9I9F\N
  3413. +M;&EB<F%R>0``````````````````"`0``0``````````"`8`````````````
  3414. +M``!`*",I86QL;V-A+F,),2XQ````````````````=7-E<@`````(1`````!W
  3415. +M:&5E;```````"%(```A8``````A*1F%I;&5D('1O(&-R96%T92!T:6UE<@``
  3416. +M=7-E<B!I;G1E<G)U<'0```````!.;R!M96UO<GD```!A`$9A:6QE9"!T;R!C
  3417. +M<F5A=&4@=&EM97(``$Y)3#H``$Y)3#H``$Y)3#H``"H`3DE,.@``26YV86QI
  3418. +M9"!W:6QD8V%R9"`E<P!%<G)O<B!E>'!A;F1I;F<@87)G=6UE;G1S`%5315(`
  3419. +M`'5S97(``%5315).04U%``!(3TU%``!S.@``4TA%3$P`8FEN.G-H``!(3U-4
  3420. +M3D%-10``86UI9V$`3DE,.@````!'350`("`@`"`@(`````E,```)4```````
  3421. +M````("`@`"`@(`!S.FQO8V%L=&EM90!S.GIO;F5I;F9O```O`````!\````<
  3422. +M````'P```!X````?````'@```!\````?````'@```!\````>````'P```!\`
  3423. +M```=````'P```!X````?````'@```!\````?````'@```!\````>````'P``
  3424. +M`6T```%N<&]S:7AR=6QE<P``54Y)6%1:```@("``4W5N36]N5'5E5V5D5&AU
  3425. +M1G)I4V%T2F%N1F5B36%R07!R36%Y2G5N2G5L075G4V5P3V-T3F]V1&5C`"4N
  3426. +M,W,@)2XS<R4S9"`E,#(N,F0Z)3`R+C)D.B4P,BXR9"`E9`H```";,"!Q``!&
  3427. +M86EL960@=&\@:6YI=&EA;&ES92!)+T\``&%M:6=A('-P96-I9FEC(&5R<F]R
  3428. +M``````J(56YK;F]W;B!E<G)O<@!N;W0@;W=N97(`;F\@<W5C:"!F:6QE(&]R
  3429. +M(&1I<F5C=&]R>0!N;R!S=6-H('!R;V-E<W,`:6YT97)R=7!T960@<WES=&5M
  3430. +M(&-A;&P`:2]O(&5R<F]R`&YO('-U8V@@9&5V:6-E(&]R(&%D9')E<W,`87)G
  3431. +M=6UE;G0@;&ES="!T;V\@;&]N9P``97AE8R!F;W)M870@97)R;W(`8F%D(&9I
  3432. +M;&4@;G5M8F5R`&YO(&-H:6QD('!R;V-E<W,``&YO(&UO<F4@<')O8V5S<V5S
  3433. +M`&YO="!E;F]U9V@@;65M;W)Y`'!E<FUI<W-I;VX@9&5N:65D`&)A9"!A9&1R
  3434. +M97-S`&)L;V-K(&1E=FEC92!R97%U:7)E9`!M;W5N="!D979I8V5S(&)U<WD`
  3435. +M`&9I;&4@97AI<W1S`&-R;W-S+61E=FEC92!L:6YK`&YO('-U8V@@9&5V:6-E
  3436. +M``!N;W0@82!D:7)E8W1O<GD`:7,@82!D:7)E8W1O<GD``&EN=F%L:60@87)G
  3437. +M=6UE;G0``&9I;&4@=&%B;&4@;W9E<F9L;W<`=&]O(&UA;GD@;W!E;B!F:6QE
  3438. +M<P!N;W0@82!T>7!E=W)I=&5R``!T97AT(&9I;&4@8G5S>0``9FEL92!T;V\@
  3439. +M8FEG``!N;R!S<&%C92!L969T(&]N(&1E=FEC90!I;&QE9V%L('-E96L``')E
  3440. +M860M;VYL>2!F:6QE('-Y<W1E;0!T;V\@;6%N>2!L:6YK<P``8G)O:V5N('!I
  3441. +M<&4`;6%T:"!A<F=U;65N=`!R97-U;'0@=&]O(&QA<F=E``!)+T\@<W1R96%M
  3442. +M(&5M<'1Y``!F:6QE(&YA;64@=&]O(&QO;F<``&1I<F5C=&]R>2!N;W0@96UP
  3443. +M='D`=&]O(&UA;GD@<V]F="!L:6YK<R`H;&]O<#\I````"J(```JP```*N@``
  3444. +M"M0```KD```*_```"P8```L@```+.```"TH```M:```+;```"WX```N0```+
  3445. +MH@``"ZX```O$```+V```"^0```OV```,!@``#!8```PF```,.```#$P```Q@
  3446. +M```,<@``#((```R0```,J```#+8```S,```,W```#.@```SV```-"```#1H`
  3447. +M``TN```-0@```"8``&1O;W(N)6QX+B5L>```3F\@;65M;W)Y`'9I<G1U86P@
  3448. +M;65M;W)Y(&5X:&%U<W1E9```=FER='5A;"!M96UO<GD@97AH875S=&5D```E
  3449. +M=0``)74``````````````````0```#]03U-)6$Q97T-/4E)%0U0`+2T``"5S
  3450. +M.B!O<'1I;VX@8"5S)R!I<R!A;6)I9W5O=7,*`"5S.B!O<'1I;VX@8"TM)7,G
  3451. +M(&1O97-N)W0@86QL;W<@86X@87)G=6UE;G0*```E<SH@;W!T:6]N(&`E8R5S
  3452. +M)R!D;V5S;B=T(&%L;&]W(&%N(&%R9W5M96YT"@``)7,Z(&]P=&EO;B!@)7,G
  3453. +M(')E<75I<F5S(&%N(&%R9W5M96YT"@`E<SH@=6YR96-O9VYI>F5D(&]P=&EO
  3454. +M;B!@+2TE<R<*`"5S.B!U;G)E8V]G;FEZ960@;W!T:6]N(&`E8R5S)PH````E
  3455. +M<SH@:6QL96=A;"!O<'1I;VX@+2T@)6,*`"5S.B!O<'1I;VX@<F5Q=6ER97,@
  3456. +M86X@87)G=6UE;G0@+2T@)6,*``!5;FMN;W=N('-Y<W1E;2!E<G)O<@``)7,Z
  3457. +M(```.B`E<P`````E<SH@``!I;G9A;&ED`&%M8FEG=6]U<P`@)7,@8"5S)PH`
  3458. +M`````$```"`@("`@("`@("@H*"@H("`@("`@("`@("`@("`@("`@2!`0$!`0
  3459. +M$!`0$!`0$!`0$(2$A(2$A(2$A(00$!`0$!`0@8&!@8&!`0$!`0$!`0$!`0$!
  3460. +M`0$!`0$!`0$0$!`0$!""@H*"@H("`@("`@("`@("`@("`@("`@("`A`0$!`@
  3461. +M````````````````````````````````````````````````````````````
  3462. +M````````````````````````````````````````````````````````````
  3463. +M``````````````````````````````````````````````````````````^@
  3464. +M```1$@``````````````````````````````````````````$30`````````
  3465. +M````````````````````````````````````````````````````````````
  3466. +M``````````````````````(`__\````.``X```````````````#__P````0`
  3467. +M!````````'T6```17/__````!``$````````?2P``````````````&0```/"
  3468. +M```#O@```[H```.V```#L@```WH```-V```#<@```VX```,N```#*@```R8`
  3469. +M``,B```#'@```QH```,6```"M````J0```*4```"A````G0```)D```"5```
  3470. +M`D0```(T```")````A0```($```!]````>0```'4```!Q````;0```&D```!
  3471. +ME````80```%T```!9````50```%$```!-````20```$4```!!````JP```*<
  3472. +M```!/```!YX```>X```(&```"`P```AD```(7@``"%H```A*```)6```"50`
  3473. +M``WV```-\@``#>X```WJ```-Y@``#>(```W>```-V@``#=8```W2```-S@``
  3474. +M#<H```W&```-P@``#;X```VZ```-M@``#;(```VN```-J@``#:8```VB```-
  3475. +MG@``#9H```V6```-D@``#8X```V*```-A@``#8(```U^```->@``#78```UR
  3476. +M```-;@``#6H```UF```-8@``#5X```J>```1$@``$/```!&````#[`````(`
  3477. +3```````1D```$7P````````#\EX`
  3478. +`
  3479. +end
  3480. diff -rup --new-file baseline/fsf/emacs18/amiga/amiga-extra/amiga/c/rmdir.uue amiga/fsf/emacs18/amiga/amiga-extra/amiga/c/rmdir.uue
  3481. --- baseline/fsf/emacs18/amiga/amiga-extra/amiga/c/rmdir.uue    Wed Dec 31 17:00:00 1969
  3482. +++ amiga/fsf/emacs18/amiga/amiga-extra/amiga/c/rmdir.uue    Sat Sep 28 00:00:00 1996
  3483. @@ -0,0 +1,404 @@
  3484. +begin 666 rmdir
  3485. +M```#\P`````````"``````````$```\'```"=````^D```\'2.=^_B1()`!)
  3486. +M^0`````L>``$+P)(YP#@)FX!%"(K`*QG#.6)($$B*``TY8E@!B(/DJL`.G0`
  3487. +M(#P```L$LJP(2&0((BP(2-"!=`$F02(\``$``4ZN_SI*@&8(3-\'!&```D`@
  3488. +M0"1`(D`@/````CZ9_``````@W%.`9OH@'&<.($G1W-70((HD25.`8/`H2=G\
  3489. +M`````"E\```+!`E$3-\'`"E."2!*`DS?``1([(``"2AG2"`,!(``````!H``
  3490. +M``L$T*P(2"(`!(````"`#&X`)``4;1@I0`E`*4$)/)*L"$A![`DX((%.KOTD
  3491. +M8`(N0"`L"$@O0``$T:P)1"(/DHL&@0```(`I00C\0JP))'``(CP``#``3J[^
  3492. +MSB9N`11#^@&(<`!.KOW8*4`*_&8&<&1@``#F*6L`F`D<2JL`K&<``'X@:P"L
  3493. +MT<C1R")H`!#3R=/)(`)R`!(9*4D)+-"!7H`"0/_\*4`)-$CG0$`B/``!``%.
  3494. +MKO\Z3-\"`DJ`9@AP%"\`9P`!!"!`*4`),"`"4X#4@1&R```@`E."4<C_]A&\
  3495. +M`"`@`E."$;P`(B`"$;$@`"`!4<K_^!"\`"(O"&!*0>L`7$ZN_H!!ZP!<3J[^
  3496. +MC"E`"20O`"1`("H`)&<8+&P*_"!`(B@``$ZN_Z`I0`D<(@!.KO^"(&P))"\(
  3497. +M2&P(^"!H`"0I:``$"2Q.NB:X3KH-TG``8`0@+P`$)&P)*"4`+'@`!`QN`"0`
  3498. +M%&T22JP).&<,0>P).%FL"4!.KOTD+DH@+`D49P0@0$Z03KHFD$ZZ)J1*K`DD
  3499. +M9R`L;`K\(BP)'&<$3J[_IBQX``1.KO]\(FP))$ZN_H9@$BQX``0@+`DT9P@B
  3500. +M;`DP3J[_+B)L"OQ.KOYB("P)1"),D_P`````3J[_+B`?3-]_?DYU9&]S+FQI
  3501. +M8G)A<GD````@#Y!\`!2PK`C\90`J!$CG!Q0N+P`8*F\`''P`*54)2$*L"4R7
  3502. +MRV`:(`5*@&<4<G"0@6<"8`AP`2E`"4Q@!&$``1`O"TAL`!1(;`!4+PTO!TZZ
  3503. +M'5)/[P`4*@!2@&;*2JP)5&<:+RP`IDAL`%9(;`B03KHO9$*73KHNS$_O``Q*
  3504. +MK`E09P1A``#*("P%V+"'9F)A``"^8%PB+`78Y8$O-1@`3KH<PB(L!=CE@2ZU
  3505. +M&`!.NA@X6$]*@&<@(BP%V.6!+S48`$AL`%HO+`JD0J=.NB1.3^\`$'P!8!9*
  3506. +MK`E,9Q`B+`78Y8$O-1@`80``'%A/4JP%V"`L!=BPAVV<+T8`&$S?*.!.^BY`
  3507. +M(`]10+"L"/QE`"D`2.<`%"IO``Q(>``O+PU.NBD24$\F0$J`9@1@'%.+M\UC
  3508. +M!G`OL!-G]$(K``$O#4ZZ%Z983TJ`9]!,WR@`3G4@#Y!\``RPK`C\90`HM"\L
  3509. +M"4A(;`!>2&P(D$ZZ+FI(>``!3KHMT$_O`!!.=4CG(#(@;P`80^\`'$7Z`!PF
  3510. +M;P`4)`LL>0````1.KOWV(`N0@DS?3`1.=1;`3G4``"!O``0B;P`(64](YS,V
  3511. +M*DA^`"!L"H0L*`#@+TD`($J&9B!*K`DD9AI![`#$(@@L;`K\)#P```/M3J[_
  3512. +MXBP`9P)^`4J&9S8B!D'L`,XD"$'L"2PF""QL"OQ.KOZ>(@8D#28O`"!.KOZ>
  3513. +M(@9T"DZN_LA*AV=8(@9.KO_<8%`@;`J$)F@`N#!\__^WR&=`0^P`U'`E+'@`
  3514. +M!$ZN_=@D0$J`9RPI;`DL`+@I30"\+PH@2RQ*0^P`L)7*)F\`)$ZN_;1,WP0`
  3515. +M(DHL>``$3J[^8DS?;,Q83TYU(&\`!$/O``AA`/\J3G4@;P`$0^\`"&$`_QQP
  3516. +M%$ZZ+*I.=0``2.<`!G`(<@`L>``$3J[_.BI`2H!F!'``8"Y"K0`$2'@`*'``
  3517. +M+P!![`#H<@&3R<%!3KH9[E!/*H!F#")-<`A.KO\N<`!@`B`-3-]@`$YU(&\`
  3518. +M!$CG``8J2"`-9Q@@36$``!X@54ZZ&C(B37`(+'@`!$ZN_RY,WV``3G4@;P`$
  3519. +M2.<`!BI(2JT`!&<4(E4L>``$3J[^(")53J[^)D*M``1,WV``3G4@;P`$(%`B
  3520. +M:``.<``0*0`/<@'AH2`!3G4@;P`$("\`""(O``Q(YP,&+`$N`"I(8:I*AV8$
  3521. +M2H9G'B)5(T<`("-&`"0S?``)`!PL>``$3J[^,G`!*T``!$S?8,!.=2!O``1(
  3522. +MYP`&*DA*K0`$9QPB52QX``1.KOXL2D!G#B)53J[^)D*M``1P`6`"<`!,WV``
  3523. +M3G4O#B`L"I`B`$A!0D'2@"`L"H2S@"E`"5Q"K`E@0^P`_'``+'@`!$ZN_=@I
  3524. +M0`E8</].KOZV2(!(P"E``/A*K`E89PA*@&L$<`%@`G``*4`)9"Q?3G4O#B`L
  3525. +M`/AK""QX``1.KOZP("P)6&<*(D`L>``$3J[^8BQ?3G4@+P`$44](YP,`+@!.
  3526. +MN@4`(`=.N@&02H!G*")`(&D`'')`Y8G"D2](``P@`2!I``0B;P`,3I$L`"`'
  3527. +M3KH!2"`&8`)P_TS?`,!03TYU("\`!"\'+A]@K@``(&\`!"`O``@B;P`,+V\`
  3528. +M$``$+V\`%``(+V\`&``,+V\`'``0+V\`(``4+V\`)``844](YP<4+@!([P,`
  3529. +M`!1\`"IL"6A@%DJM``1F"C!\``$K2``$8`Q2AMK\`"2\K`EL;>0@+`ELO(!F
  3530. +M>'(*TZP);"`L"6PB`.>!TH#E@2`!3KHGQ"I`2H!F#'`,*4`*I'#_8```CG#V
  3531. +MT*P);"(`YX'2@.6!(&P):")-8`(2V%.!9/H@+`EH9P8@0$ZZ)AXI30EH>O;:
  3532. +MK`EL(`7G@-"%Y8#;P)?+*TL`!%*%VOP`)+JL"6QM\"`&YX#0AN6`(&P):"&O
  3533. +M`!0(!"&'"``AKP`8"`A+[P`@(9T(#"&="!`AG0@42^\`+"&="!@AG0@<(9T(
  3534. +M("`&3-\HX%!/3G4@+P`$(@!K%K*L"6QL$"`!YX#0@>6`(&P):$*P"`1.=2`O
  3535. +M``1(YP$$+@!K'KZL"6QL&"`'YX#0A^6`*FP):-O`2JT`!&<$(`U@"'`)*4`*
  3536. +MI'``3-\@@$YU("P);$YU```@+P`$64\N@$'L`1`@"%A/3G4@;P`$64\NB$'L
  3537. +M`1`@"%A/3G4@+`$03G4``%E/2JP!0F8,0>\``RE(`4)A[F`60>\``R)L`4*S
  3538. +MR&0$<`%@`G#_*4`)<%A/3G593TCG`10N+P`42JP)<&8"8<`J;`%&8"X@+`EP
  3539. +M;PQ![P`/(FT`!+/(8A!*@&H<0>\`#R)M``2SR&00)E4O#4ZZ)+)83RI+(`UF
  3540. +MSBE-`49*AV8$<`!@(E"'+P=.NB8"($`@K`%&0^\`$R%)``1#Z``(6$\I0`%&
  3541. +M(`E,WRB`6$].=0``("\`!%E/+H`@+`J`9PX@0$ZZ_(I*@&<$<@%@`G(`(`%8
  3542. +M3TYU("\`!"!L"H!R`$[Z_#!.NOMD*4`*@&8*2&P!3$ZZ^T!83R!L"H!.NOOT
  3543. +M@:P)=$YU(&P*@$[Z^Y`([``,"79.=2`O``0(```,5L!$`$B`2,!.=0CL``T)
  3544. +M=DYU("\`!`@```U6P$0`2(!(P$YU3KH41G``(&P*W!`H``]R`>&A@ZP)=$YU
  3545. +M3OH4F"`O``193TCG`18O0``0?@!@+B`M`!1.NA/N)D!*@&<42JL`%&8.?@%P
  3546. +M`2=``!0G;0`8`!@B37`<+'@`!$ZN_RX@;`K<+'@`!$ZN_HPJ0$J`9L`@!TS?
  3547. +M:(!83TYU("\`!$CG#P0N`'`![Z`L`'`)OH!F!G``3KH*'"`L"GC`AF<&C:P*
  3548. +M?&!Z*@9&A<NL"GQ*AVMF<""^@&Q@(`?G@$'L"7@J<`@`,'P``;O(9BP@!U6`
  3549. +M9Q13@&<0<@V0@6<\68!G.%&`9S1@"DAL`61.NOG\6$]P`$ZZ";Y@("`-9QP@
  3550. +M!^>`*`9![`EXB+`(!(FL"G@@!TZ51H3)K`IX("P*?,"&9HI,WR#P3G4@+P`$
  3551. +M+PXB+`ET@H!P`"QX``1.KO[.+%].=2`O``0O#B(`("P)=("!+'@`!$ZN_L(L
  3552. +M7TYU("\`!$CG`P`N`'P`80#^$$J`9PA\`7`.80#_#"`'80#^8DJ`9PA\`7`"
  3553. +M80#^^B`'80#^:DJ`9PA\`7`#80#^Z"`'80#^ADJ`9PA\`7`480#^UB`&3-\`
  3554. +MP$YU("\`!"\'*4`)!'`(+A]@`/Z\<`!A`/]@8)!@]DCG`11^`$OL"7@V?``!
  3555. +M*HM"K0`$4H=0C7`@OH!M\$*L"GQ"K`IX0JP)=&$`_=1A`/WJ80#]HDS?*(!@
  3556. +M`/WX80#]N&``_@@``$AL`7A.NOC86$].=2`O``0O#4ZZ(R@J0$J`9@)AXB`-
  3557. +M*E].=2!O``0@+P`(+PM.NB$<)D!*@&8"8<8@"R9?3G4@;P`$+PTJ2"`-9@1+
  3558. +M[`&"($U*&&;\4XB1S2`(4H!.NB+<($!*@&8$<`!@"")($MUF_"`(*E].=5E/
  3559. +M2.<#-'X`?``@;`J$)F@`T&`L2BL`"&8D,#P%`,!K``YF&E*'(&L`"B`(2AAF
  3560. +M_%.(D<`@"-R`W*L`%%2&)E-*DV;0(`=2@.6`T(9A`/]**4`*G.6'($`B0-/'
  3561. +M1>D`!"]``!1F"D'L`70I2`J<8%8@;`J$*F@`T&!"2BT`"&8Z,#P%`,!M``YF
  3562. +M,"9M``HN+0`4(&\`%"#*+T@`%&`"%-M*$V;Z%/P`/29M`!!@`A3;(`=3ATJ`
  3563. +M9O9"&BI52I5FNB!O`!1"D$S?+,!83TYU(&\`!"`O``@O#2I(*H!"K0`$Y8!A
  3564. +M`/ZT*T``""I?3G4@;P`$(F\`""`O``Q(YR(T)DDJ2$J`9PH@2V$`_L(D0&`"
  3565. +M)$L@"F<^(A4D+0`$M(%M(BP!W(9T$-*"O(%M`B(&*H$@`>6`(&T`"$ZZ'YHK
  3566. +M0``(9Q)'[0`$(A-2F^6!(%LABA@`<`%,WRQ$3G4@;P`$(F\`""`O``QADDJ`
  3567. +M9@1A`/X:3G4@;P`$(F\`"$CG`!0F22I(("T`!-"K``2PE6\2T(`J@.6`(&T`
  3568. +M"&$`_AHK0``((BT`!.6!(&T`"-'!("L`!"(`Y8$B:P`(8`(0V5.!9/K1K0`$
  3569. +M(&L`"$S?*`!.^A^*(&\`!")O``@O;P`,``0@+P`0(B\`%%E/2.<"-"P!*DDD
  3570. +M2"](`!!*@&=$4X!G"E.`9P``MF```/13AF<B("\`&"(-D($@;P`00C`(`"!!
  3571. +M(F\`$&`"$MA3@&3Z8```SD'L`80B;P`0$MAF_&```+XF;P`88&YP7+`59F9*
  3572. +M+0`!9V!4C7`!O(!F!A3\`&%@5"`&58!F1A`M__](@$C`<B.0@6<N58!G*E6`
  3573. +M9R93@&<B4X!G'E.`9QIR%9"!9Q1R')"!9PY5@&<*<A^0@6<$58!F!!3\`"<4
  3574. +M[?__8`@4[?__8`(4W;O+98Y@0"9O`!A@-G`JL!5F+DHM``%G*%2-$"W__TB`
  3575. +M2,!R99"!9PQR"9"!9@P4_``*8`X4_``;8`@4[?__8`(4W;O+9<9"$DS?+$!8
  3576. +M3TYUGOP!+$CG/S8J;P%8(&P)(`QH`"4`%&0*2'@`%$ZZ\A983T*L"&AP`2E`
  3577. +M"&0I0`B*<`(I0`B&*4`(K"E\````A`BHD\DL>``$3J[^VBE`"H1.NO4H*4`*
  3578. +MB&8*2&P!ADZZ]0183R!L"HA.NO6X*4`*C"QL"H@@5BQH`!0I3@J80>\!,$ZN
  3579. +M_[XI;P$P"I!.NO8@3KK[K"!L"H0@*`"L9Q#E@")`(BD`-.6!*4$*E&`&*6@`
  3580. +MA`J42A5F``#H0>P!GB((+&P*_"0\```#[DZN_^(L`$'L`:0B"$ZN_^(N`$'L
  3581. +M`:HB"$ZN_^(J`$J&9PA*AV<$2H5F(DJ&9P8B!DZN_]Q*AV<&(@=.KO_<2H5G
  3582. +M!B(%3J[_W&$`^W)P`2\`+P4O`"\'(@;!04ZZ"A0@;`DD("@`'$'O`5AA`/R>
  3583. +M3^\`$'P`?@!@4")L"20@:0`D(#!X`&<^(@!#[P`P)`DL;`K\=D#EBTZN_FY*
  3584. +M@&<F(FP))"!I`"31QR`H``1G""(")`!.KOR.0>\!2$/O`#!P`6$`_-A2AE"'
  3585. +M(&P))+RH`!QMIF```LPL;`K\3J[_RB@`3J[_Q"H`?@`@;`J$+"@`X&8H?@%!
  3586. +M[`&P(@@D/````^U.KO_B+`!F$D'L`;(B"$ZN_^(L`&8$80#ZI"\'+P9P`"\`
  3587. +M+P4B!,%!3KH)1D'O`5AP`6$`^]8@/```!1IA`/J.($`Q?`0``!(O0``\<$#E
  3588. +MB&$`^GI/[P`0?D#ECR]``3A@`E*-$!5(@$C`0>P'10@P``,(`&;L$!5G``(6
  3589. +M<B*P`68P4HTF36`0<"JP%68(2BT``6<"4HU2C1`59P9R(K`!9N8D31`5<B*P
  3590. +M`68"4HU\`F!4<">P%68@4HTF36`"4HT0%6<&<B>P`6;T)$UP)[`59@)2C7P!
  3591. +M8"XF36`0<%RP%68(2BT``6<"4HU2C1`59Q)R(+`!9PQR"K`!9P9R";`!9MHD
  3592. +M37P`($LJ"IJ+(`52@"](`"AA`/FV)D!*KP%,9B`@!2!+(F\`*$ZZ&I)",U@`
  3593. +M0>\!2")+<`!A`/M@8`#_)MJ%<A#:@;J';Q0@;P$X3KH;/"`%80#Y=BX%+T`!
  3594. +M."\*(`8@2R)O`"QR`6$`^ZY83R(+)"\!."8'+&P*_$ZN_+@J`&P00A(O+P`H
  3595. +M2&P!N$ZZ\@I03TJ%9B(O"B`&($LB;P`L<@!A`/MT0>\!3")+<`!A`/KH6$]@
  3596. +M`/ZL>@$@;P`L0J@`"$(H`!%"*``0+PH@!B!+(F\`+'("80#[0$'O`4!P$&$`
  3597. +M^B983R(+)"\`+"QL"OQ.KOS**`!F/&`J>@`B;P`LTOP!&$'O`3QP`6$`^B!*
  3598. +M@&8$>&=@$B(O`"PL;`K\3J[\Q"@`2H1GTB(O`"PL;`K\3J[\OG!TT("X@&<*
  3599. +M2&P!S$ZZ\5983TJ%9R(O"B`&($LB;P`L<@!A`/K`0>\!3")+<`!A`/HT6$]@
  3600. +M`/WX("\!0"!O`41.NA5V0>\!2$/O`3QA`/HJ($M.NAH"8`#]UB!O`3A.NAGV
  3601. +M(&\`+$ZZ&>YA`/B20>P!YDZZ"'HI0`$09@A![`'L*4@!$$'L`?).N@AD*4`!
  3602. +M)&8&*6P!$`$D0>P!_$ZZ"%`I0`$H9@A![`("*4@!*$'L`@9.N@@Z*4`!+&8(
  3603. +M0>P"#"E(`2Q![`(43KH()"E`"J!F"$'L`AXI2`J@("\!3"!O`5`B;`J<3KHG
  3604. +M1G``3KH=,$S?;/S>_`$L3G5(YP,`3KKS_BX`?`!@"B\&3KKR9EA/4H:\AVWR
  3605. +M3-\`P$YU("\`!"\'+@!AU$ZZ\=I.NO=0(&P*B$ZZ\)@O!TZZ[/I83RX?3G4@
  3606. +M+P`$+P<N'V#4``">_``,2-<!`W#_WOP`#$YU44](UP,`4$].=4CG,`(B$$HH
  3607. +M``UG!'``8!PD"28`+&P*_$ZN_]8B`%*`9@A.N@C0</]@`B`!3-]`#$YU44](
  3608. +MYS\V+@`J229(+!,O1@`H+T@`+$HK``UG!G``8```C$HK``QG9B9-U\=Z`&!8
  3609. +M)$U@`E**M<MD!G`*L!)F]+?*9@0H"F`&0>H``2@(F(TB+P`H)`TF!"QL"OQ.
  3610. +MKO_0+`!2@&8(3KH(6G#_8#[:AK:&9C9+Z@`!GH9P`$ZZ]8!.NO6P2H!F(DJ'
  3611. +M9J1@'"(&)`TF!RQL"OQ.KO_0*@!2@&8(3KH('G#_8`(@!4S?;/Q03TYU64](
  3612. +MYS\"+@`L$"]!`!Q**``-9P1P`&!24X$F`2(&)`<L;`K\3J[_OBH`3J[_?"@`
  3613. +M4H5G!$J$9PX@!$ZZ!M@I0`JD</]@)"(&=``F`DZN_[XL`%*`9P1*A&<.(`1.
  3614. +MN@:V*4`*I'#_8`(@!DS?0/Q83TYUGOP!`$CG/P8N`"I(+!4J+0`(("T`!&<*
  3615. +M(@`L;`K\3J[_IA@M``U(A$C$($U.NA=H2H1G!'``8$0B!D'O`"`D""QL"OQV
  3616. +M0.6+3J[^:"@`2H=F"B(&3J[_W$J`9QI*A&<2</^Z@&<,(@(D!4ZN_T9*@&<$
  3617. +M<`!@!DZZ!R1P_TS?8/S>_`$`3G4@+P`$2.<@`B(`+&P*_'0`3J[_-$ZN_WQT
  3618. +M+D8"L()7P40!2(%(P2`!3-]`!$YU("\`!"!O``@B;P`,GOP`$$CG-Q8N`"9)
  3619. +M*DA\`&&X2H!F?"('+&P*_'0!3J[^5DJ`9VPB!T'L`B0D"'8$3J[_T%F`9E(B
  3620. +M!R0\```G$$ZN_S1*@&="(@=![P`@)`AV$$ZN_]9R";"!;RYPF[`O`"!F)D'O
  3621. +M`"4B""0+3J[\T"H`0>\`)M'`(@@D#4ZN_-!2@&<&4H5G`GP!(@=T`$ZN_E8@
  3622. +M!DS?:.S>_``03G4@+P`$(B\`")[\`A!(YS\&+@!P_R]``B@O00`D(@<L;`K\
  3623. +M=`!V`4ZN_[XO0``@(@=.KO^^+`!.KO]\*@`O0`(L9@``PB@O`"0B!R0$=O].
  3624. +MKOXXL()F``"NO()L``">*@2:AB@%(`1R`4A!+'@`!$ZN_SHJ0$J`9FIR`DA!
  3625. +M3J[_*.*(*@`,A0```@!M$"`%<@%(04ZN_SHJ0$J`9D9Z0.>-2^\`*#`\`?]R
  3626. +M`$'O`"@0P5'(__Q@++B%;P0@!6`"(`0F`$ZZ\U(B!R0-+&P*_$ZN_]"P@V<*
  3627. +M3J[_?"]``BQ@!IB#2H1NT$'O`"BQS6<,(DT@!2QX``1.KO\N*B\"+&8$0J\"
  3628. +M*"PO`""\KP`D;`XB!R0&+&P*_';_3J[_OBPO`BAG"B`%3KH$'BE`"J0@!DS?
  3629. +M8/S>_`(03G6>_`$(2.<W%BX`)DDJ2"P52BT`#68``1@@!P2````$`&<@!(``
  3630. +M``0`9TI3@&=84X!G7%.`9UY3@&=F4X!G;&```.Y*+0`,9R8@!D'O`21#[P$@
  3631. +M80#]UDJ`9Q0@+P$D-T```B`O`2`V@'``8```RG`98```OB(&+&P*_$ZN_R@F
  3632. +M@'``8```LB:&<`!@``"J<`!@``"D(`8B$V$`_C9@``"8*U,`"'``8```CBH3
  3633. +M2JT`!&8.(A4L;`K\3J[^C"M```0@+0`$9V(D`"(%+&P*_$ZN_EQ*@&92(@9!
  3634. +M[P`@)`AV0.6+3J[^:$J`9SXB!4ZN_Z8B+0`$3J[_IB(&3J[_W"("=`!.KO]&
  3635. +M&WP``0`-*H(K0@`$0>\`("((+&P*_$ZN_[A*@&<$(`)@#DZZ`]Q@!G`6*4`*
  3636. +MI'#_3-]H[-[\`0A.=2`O``0B+P`(+V\`#``$2.</!BHO`!PL`2X`<`Y.NA4.
  3637. +M*D!*@&8*<`PI0`JD</]@3D/5(L="F2+&0BT`#2('+&P*_$ZN_R@;0``,2'K^
  3638. +M=$AZ^]I(>OMD2'KZK$AZ^G9(>OIH(`4@34/Z^E!.NNRL3^\`&"@`;`8@34ZZ
  3639. +M$T8@!$S?8/!.=2`O``0B+P`(+V\`#``$+V\`$``(+V\`%``,+V\`&``02.<-
  3640. +M`"@O`!0J+P`0+@!P`$J!9@1P0.6(`$```2\`(`=R_V$`_T983TJ`9D!P`$J$
  3641. +M9@1P0.6(`$```B\`(`5R_V$`_RA83U.`9B)P`$JO`!QF!'!`Y8@`0``"+P`@
  3642. +M+P`<<O]A`/\&6$]5@&<00>P"*B](`!!,WP"P3OKIL$S?`+!.=0``(&\`!$CG
  3643. +M(Q8J2'X`0J<L;`K\<@(D#TZN_QQ/[P`$)D!*@&=2(@UT_DZN_ZPN`&=&(@<D
  3644. +M"TZN_YI*@&<Z(BL`!%[`1`!(@$C`+``B!TZN_Z9R`DZN_Q9*AF<4(@U.KO^X
  3645. +M2H!G!'``8#).N@(T8"IP%"E`"J1@(DZN_WQ.N@$H*4`*I$J'9P8B!TZN_Z8@
  3646. +M"V<()`MR`DZN_Q9P_TS?:,1.=2`O``0@;P`((B\`#%E/2.<#-"P!+@`J2$ZZ
  3647. +M[[P@!TZZ[$PF0$J`9T0(*P`!``-G-@@K``,``V<6(&L`&"](`!0@:P`$<`!R
  3648. +M`B)O`!1.D2!K`!0O2``4(`8@:P`$(DTD;P`43I)@"'`-*4`*I'#_3-\LP%A/
  3649. +M3G4@+P`$(&\`""(O``Q(YP,$3-\@P&"`(&\`!)[\`$!(YSL6*DA.NN\Z(`UG
  3650. +M4DH59TXB#4'O`"`D""QL"OQV0'@`3J[\=BX`;39.KO]\+`!2@$ZZ$IPF0$J`
  3651. +M9R2^AF<4)@92@R(-)`M.KOQV2H!O$"`"8`X@0B)+$MAF_"`+8`)P`$S?:-S>
  3652. +M_`!`3G4@+P`$*4`)`$J`9P``AG)GD(%G``""58!G``"`<@F0@6=\4X!G>%.`
  3653. +M9W13@&=P4X!G;%.`9VA3@&=H4X!G:')1D(%G9E.`9V93@&=F4X!G9E.`9V93
  3654. +M@&=F58!G9E.`9V93@&=F4X!G9E6`9V93@&=F4X!G9E.`9V93@&=F4X!G9E6`
  3655. +M9V93@&=F4X!G9E.`9V9@:'``8&9P#&!B<`M@7G`68%IP!V!6<`A@4G`08$YP
  3656. +M$6!*<`)@1G`"8$)P%F`^<`=@.G`68#9P)&`R<!9@+G`68"IP'F`F<!)@(G`E
  3657. +M8!YP)F`:<!-@%G`68!)P'&`.<`U@"G`-8`9P#6`"</].=2\.+&P*_$ZN_WQA
  3658. +M`/[Z*4`*I"Q?3G4@;P`$2.<`!BI((DTL>``$3J[_!"!-3-]@`$[Z#\@@+P`$
  3659. +M2.<!!"X`*FP*L&`.("T`#+"'9@0@#6`(*E5*E6;N<`!,WR"`3G5(YR`"0>P*
  3660. +ML$ZZ'(8@+`J$(BP*D"0`LX("@@!___\I0@JL4H(I0@JH+P$O`$AL!;Q(;`J\
  3661. +M3KKE8D_O`!`L>``$3J[]9BE`"N!G$$'L"KQP`$ZZ')HI0`K<9@I(;`7*3KKF
  3662. +M2EA/3-]`!$YU2.<`!B`L"N!G"B!`+'@`!$ZN_6!*K`K<9S@L>``$3J[_?&`,
  3663. +M(DUP'"QX``1.KO\N(&P*W"QX``1.KOZ,*D!*@&;B(&P*W$ZZ&_(L>``$3J[_
  3664. +M=DS?8`!.=0``(&\`!"`O``@B+P`,(F\`$"]O`!0`!"]O`!@`"%E/2.</-B@O
  3665. +M`"PJ+P`H+`$N`"I)+T@`("QX``1.KOUF)D!*@&<P($L@!$ZN_7(D0$J`9R(@
  3666. +M#6<()4T`*"5%`"0@;P`@(`<B2B(&3J[^1$H`9@0@"F`6(`IG!B!*3J[];"`+
  3667. +M9P8@2TZZ&UQP`$S?;/!83TYU(&\`!$CG``8J2"`-9Q@B32QX``1.KOX^(&T`
  3668. +M#DZZ&S(@34ZN_6Q,WV``3G4@#UE`L*P(_&4`#*)(YP$$*F\`#"!-2AAF_%.(
  3669. +MD<TN"%.'8`H@1U.'(`A"-0@`2H=O"'`OL#5X`&?J3-\@@$YU(`^0?``8L*P(
  3670. +M_&4`#&`@+P`$(&\`#")O``A"IR\O`!@O+P`8+P@O"2\`3KH!.D_O`!A.=2`/
  3671. +MD'P`&+"L"/QE``PL("\`!"!O``PB;P`(2'@``2\O`!@O+P`8+P@O"2\`3KH!
  3672. +M!$_O`!A.=0``O^P(_&4`"_I(YP$$+B\`$"IO``Q@$!`52(!(P+"'9@0@#6`(
  3673. +M4HU*%6;L<`!,WR"`3G6_[`C\90`+R$CG`Q0N+P`<)F\`&"IO`!1\`&`(%[5H
  3674. +M`&@`4H:\AVWT3-\HP$YU(`^0?``,L*P(_&4`"Y1(YP$4*F\`$"XL"O">K`KL
  3675. +MY8<O!TZZY_8F0"(L"NSE@2!-T<$NAR\`+PAAF"`L"O`B`.6!($W1P2(L"NSE
  3676. +M@2)-T\$B+`78DH#E@2Z!+PDO"&$`_W(B+`KLTJP%V)*L"O#E@=O!+H<O#2\+
  3677. +M80#_6"`L!=A+[`KL(AW2@)*53^\`'"K`*4$*[$S?*(!.=2`/D'P`)+"L"/QE
  3678. +M``KZGOP`$$CG/S0J;P!()&\`1$*L!=1*K`789E1P`2E`!=A"K`KD*4`*["E`
  3679. +M"O`@;P!`$A!T+;("9@QT`BE""NA2KP!`8"IT*[("9@I"K`KH4J\`0&`:2&P%
  3680. +MY$ZZ#\Y83TJ`9P9"K`KH8`9P`2E`"N@N+P`X2JP*Y&<*(&P*Y$H09@`!,'`!
  3681. +ML*P*Z&9<("P*\"(L"NRR@&<2L*P%V&<,+R\`/&$`_K983V`,(BP%V+"!9P0I
  3682. +M00KL(BP%V.6!)F\`/-?!8`92K`786(L@+`78L(=L#B)3<"VP$6;J2BD``6?D
  3683. +M("P%V"E`"O`@+`78OH!G4.6`2&P%]"!O`$`O,`@`3KH*;E!/2H!F.%*L!=@@
  3684. +M+`KP(BP*[+*`9Q*PK`789PPO+P`\80#^-EA/8`RR@&8(("P%V"E`"NP@!RE`
  3685. +M!=@I0`KP("P%V+"'9A8@+`KL(BP*\+*`9P0I0`78</]@``1$(BP%V.6!(&\`
  3686. +M/"9P&``4$W8MM`-F"B)P&`!**0`!9AQ*K`KH9@9P_V``!!A2K`78*7`8``74
  3687. +M<`%@``0(4HL@"F<(MA-F!'`!8`)P`")+T\`I20KD(`IG``+&(BP%V.6!(&\`
  3688. +M/"!P&`!P+;`09@`"L+`H``%G"$JO`$QG``*B)FP*Y$*O`"Q\`$*O`"A@`E*+
  3689. +M$!-G!G(]L`%F]"]*`#!Z`&!B(`N0K`KD+P`O+`KD(&\`."\03KH)*D_O``Q*
  3690. +M@&8\+@N>K`KD(&\`,"\03KH(WEA/OH!F$B!O`#`H!7`!+T``+"](`"A@)$JO
  3691. +M`"AF#"!O`#`H!2](`"A@`GP!<!#1KP`P4H4@;P`P2I!FEDJ&9T1*KP`L9CY*
  3692. +MK`7<9R`B+`78Y8$@;P`\+S`8`"\02&P%^$AL")!.N@XL3^\`$"\L"N1.N@AJ
  3693. +MT:P*Y%*L!=A83W`_8``"\"XO`#A*KP`H9P`!)E*L!=A*$V=X(&\`*$JH``1G
  3694. +M#$/K``$I20748```T$JL!=QG2"(L!=CE@2)O`#PD<1C\<"VP*@`!9A8O$"\1
  3695. +M2&P&%DAL")!.N@VZ3^\`$&`<$!)(@$C`+Q`O`"\12&P&1$AL")!.N@V<3^\`
  3696. +M%"\L"N1.N@?:T:P*Y%A/<#]@``)D<`$@;P`HL*@`!&9@(BP%V+*';!)2K`78
  3697. +MY8$@;P`\*7`8``748$9*K`7<9QSE@2!O`#PO,!C\+Q!(;`9R2&P(D$ZZ#4!/
  3698. +M[P`0+RP*Y$ZZ!WY83]&L"N1P.B!O`$"P$&8&<#I@``'^<#]@``'X+RP*Y$ZZ
  3699. +M!UI83]&L"N0@#6<"*H0@;P`H("@`"&<.(B@`#"!`((%P`&```<P@;P`H("@`
  3700. +M#&```<!*KP!,9S`B+`78Y8$@;P`\('`8`'`ML"@``6<:(&P*Y!`02(!(P"\`
  3701. +M+R\`1&$`^NI03TJ`9F1*K`7<9TPB+`78Y8$@;P`\)'`8`'`ML"H``688+RP*
  3702. +MY"\02&P&F$AL")!.N@Q\3^\`$&`>$!)(@$C`+RP*Y"\`+Q!(;`:X2&P(D$ZZ
  3703. +M#%Q/[P`40>P&V%*L!=@I2`KD<#]@``$F2^P*Y"!5$!@JB!]``"=(@$C`+P`O
  3704. +M+P!$*LAA`/IB4$\D0"!L"N1*$&8$4JP%V"`*9PH0+P`G<CJP`68X2JP%W&<@
  3705. +M$"\`)TB`2,`O`"!O`$`O$$AL!MI(;`B03KH+Z$_O`!`0+P`G2(!(P"E`!>!P
  3706. +M/V```+)P.K`J``%F``"@L"H``F8>(&P*Y!`09PHI2`744JP%V&`$0JP%U)/)
  3707. +M*4D*Y&!Z(&P*Y$H09PHI2`744JP%V&!D("P%V+"'9DI*K`7<9R`0+P`G2(!(
  3708. +MP"\`(&\`0"\02&P&]$AL")!.N@MH3^\`$!`O`"=(@$C`*4`%X'`Z(&\`0+`0
  3709. +M9@8?0``G8!IP/Q]``"=@$E*L!=@B`.6!(&\`/"EP&``%U$*L"N00+P`G2(!(
  3710. +MP$S?+/S>_``03G4@#Y!\`!BPK`C\90`%1"`O``0@;P`,(F\`"$*G0J="IR\(
  3711. +M+PDO`&$`^B)/[P`83G6_[`C\90`%&B\'+B\`"&\2OJP%MFX,Y8=![`4:(#!X
  3712. +M`&`&0>P''"`(+A].=2`/D'P`*+"L"/QE``3H2.<#%"PO`!@N+P`4)F\`("IO
  3713. +M`!PO+`E(2&P',DAL")!.N@J*+J\`2"\O`$0O+P!$+R\`1"\O`$0O+P!$+R\`
  3714. +M1"\++PU(;`B03KH*8D_O`#!*AF<8+P9A`/]N+H!(;`<X2&P(D$ZZ"D9/[P`,
  3715. +M""P``0BK9T)2K`B<("P(G+"L"*1N("!L")12K`B4$+P`"@@L``8(JV<N2&P(
  3716. +MD$ZZ#2)83V`B4ZP(G$AL")!(>``*3KH*7E!/8`Y(;`B02'@`"DZZ"DY03TAL
  3717. +M")!.N@ST6$]*AV<(+P=.N@E$6$],WRC`3G4``%E/0?D`````+HAG""!Y____
  3718. +M_$Z06$].=5E/0?D`````+HAG""!Y_____$Z06$].=4CG`Q<J;`KT8!0F57`4
  3719. +MT*T`!")-+'@`!$ZN_RXJ2R`-9NA"K`KT8$PJ;`L`<)S0K`C\)D`@+0`$*4`+
  3720. +M`"EM``@(_"XM`!A*@&8>(&P)(`QH`"0`%&42($\L"$'M``PL>``$3J[])"Y&
  3721. +M(DL@!RQX``1.KO\N2JP+`&:N3-_HP$YU(&\`!")O``@@4")1$!BP&68$2@!F
  3722. +M]I`A2(!(P$YU(&\`!"`O``A#^O_@<@1.^@>"(&\`!")O``@@+P`,2H!O"A(0
  3723. +M$-$2P5.`9O9.=2`O``@@;P`$3E7_]")/<@I.N@(T!D$`,!+!2H!F\"`)$.&_
  3724. +MR6;Z0A"0CTY=3G4``"`O``@@;P`$3E7_]")/(@`"00`'!D$`,!+!YHAF\"`)
  3725. +M$.&_R6;Z0A"0CTY=3G4``#`Q,C,T-38W.#EA8F-D968@+P`((&\`!%%/(D\R
  3726. +M``)!``\2^Q#<Z(AF\B`)$.&_R6;Z0A"0B5!/3G4``"!O``0B;P`(2.<P("1(
  3727. +M<@`@`28!#!``*V<(#!``+68$=@%22!`8!```,&T:#```"6X4)`'E@=*"TH%*
  3728. +M`V8$TH!@XI*`8-XB@2`(D(I3@$S?!`Q.=2!O``0O#2I(""T``P`;9C`@+`BT
  3729. +M3KH$WBM```0K0``09@IP#"E`"J1P_V`6*VP(M``4<//!K0`80JT`#$*M``AP
  3730. +M`"I?3G4``"!O``1(YR`4*D@F36`@<``0$T'L!T4(,``!"`!G"G(`$@!T()*"
  3731. +M8`1R`!(`%L%*$V;<(`U,WR@$3G4``)[\`%!(YS$V0_H`A'``+'@`!$ZN_=@J
  3732. +M0$J`9@9P%$ZZZ:Y^`"!L"2P>*/__(`=#[P`<8`(2V%.`9/I"-W@<0>\`'"E(
  3733. +M",1#[`C,1^P(X"Q-D<B5RG``(@!T?=2"=BA.KOZD<!1.NNEH3-]LC-[\`%!.
  3734. +M=2HJ(%-T86-K($]V97)F;&]W("HJ``!%6$E4``!I;G1U:71I;VXN;&EB<F%R
  3735. +M>0!*@&H``!Y$@$J!:@``#$2!80``($2!3G5A```81(!$@4YU2H%J```,1(%A
  3736. +M```&1(!.=2\"2$$T`68``")(0$A!2$(T`&<```:$P3`"2$`T`(3!,`)(0C("
  3737. +M)!].=2\#=A`,00"`9```!N&944,,00@`9```!NF964,,02``9```!N6954-*
  3738. +M06L```;CF5-#-`#FJ$A"0D+FJDA#@,$V`#`"-`-(0<3!D()D```&4T/0@7(`
  3739. +M,@-(0^>X2$#!028?)!].=0``2.=P`"0`9R!*@68$0H!@&"8`QL%(0L3!2$)"
  3740. +M0M:"2$'`P4A`0D#0@TS?``Y.=0``("P)*`1``?0N0$[Z_F```"!O``0@"$H8
  3741. +M9OQ32)'`(`A.=0``(&\`!"`O``@B?`````!*$&<*L!AF^$/H__]@\B`)3G4@
  3742. +M;P`$(F\`""`O``Q*@&<04X`2&+(99@Q*`6<$4X!J\G``3G5N!'#_3G5P`4YU
  3743. +M```@;P`$(F\`"!(8LAEF"$H!9O9P`$YU;@1P_TYU<`%.=2)O``@@;P`$("\`
  3744. +M#"((8`00V6<(4X!D^&`&0AA3@&3Z(`%.=2)O``@@;P`$("\`#"((2H!O%K')
  3745. +M90S3P-'`$2%3@&;Z8`80V5.`9OH@`4YU(&\`!"`O``A(YP,4+@`J2&82(`UF
  3746. +M!'``8&@@34ZZ`&YP`&!>(`UF"B`'3-\HP$[Z`<@F356+,#Q__\!32,#E@"P`
  3747. +M"!,`#V<,#&N``/_^9@0L*__R(`=.N@&@)D!*@&8$<`!@'KR'8P0@!V`"(`8@
  3748. +M32)+8`(2V%.`9/H@34ZZ``X@"TS?*,!.=2!O``0@"&8"3G59@$CG/#(B+`KT
  3749. +M9@XI?````!8*I$S?3#Q.=2)!L(%O$B0!U*D`!`:"````%+"";`)@""(I``!G
  3750. +MU&#@)@$&@P```!"P@VW&9Q(D0T*"-"H``FNZY8K6@EB#8.@D0#0J``!JJ@BJ
  3751. +M``<``$*#-BH``@)#?__EBTIJ``)K0$?R.`1*:P``:S9"A#@K``("1'__Y8S8
  3752. +M@UB$Y(Q8@TIK``)J!`!$@``U1``":Q(J!.6,-#)(!`)"@`"*0C6%2`1"A#@J
  3753. +M``!G3.6,1(1'\DC\2FL``&L^0H0X*P`"Y8Q"A3HJ``("17__Y8W8A5B$6(/D
  3754. +MC$IJ``)J!`!$@``W1``":Q(J!.6,-#-(!`)"@`"*0C>%2`37J0`()BD`!+:L
  3755. +M!T!N#+:I``AF.DJI``!G-"`L"O0@0+*`9@PI:0``"O1@$"!H``"RJ```9O8A
  3756. +M:0`````@*0`$!H`````4+'@`!$ZN_RY,WTP\3G4@+P`$2H!F#"E\````%@JD
  3757. +M<`!.=4CG/C)6@`*`_____`R```'__&X``+BPK`=`;@``L"8L"O1G``"H(D.P
  3758. +MJ0`(;C(B+`KXLJD`#&8H1>D`$$I2:Q!"A#@J``("1'__Y8RPA&\:0H0X*@`"
  3759. +M:PCEC$7R2`1@W"8I``!G9B)#8+X(Z@`'``!'\@@$0H6PA&<\+`2<@%F&9@0@
  3760. +M!&`PY(Y*:@`":@0`1H``*@#DC3=&``(W10``-44``GH$2D9K#C0R2`0"0H``
  3761. +MC$(UAD@$)BD`"):`EH4C0P`((`I8@$S?3'Q.=2H`L*P'0&H$("P'0"@`!H``
  3762. +M```4(BP*^"QX``1.KO\Z2H!F"BE\````#`JD8,PB0$7I`!`C;`KT```I20KT
  3763. +M(T0`!"-L"O@`#"8$EH5G*%F#9R0C0P`(1_)8!#5\@````.2--44``C=%``#D
  3764. +MBP!#@``W0P`"8!1"J0`(-7R`````Y(P`1(``-40``B`*6(!,WTQ\3G4@;P`$
  3765. +M("\`""(O``PB;P`064](YP\V+`$N`"I(+TD`('`!OH!C``"R)DW7QB`'58!F
  3766. +M)"\++PT@32)++&\`*$Z64$]*@&\``)(@!B!-(DM.NOA,8```A"`'XH@B!DZZ
  3767. +M^R8B3=/`(`8@34ZZ^#(D37H`>`%@*B\-+PL@2R)-+&\`*$Z64$]*@&H24H75
  3768. +MQK7+9PH@!B!+(DI.NO@$U\92A+B'9=*US6<*(`8@32)*3KKW[B9O`"`@!2(&
  3769. +M($TB2V$`_U(@2M'&(`>0A5.`(@8B2TS?;/!8CV``_SI,WVSP6$].=4[ZZMI.
  3770. +M^NK2("\`!$CG`00N`"IL"/1@""!M``1.D"I5(`UF]$OL"$QP!L"M`!A5@&88
  3771. +M("T`!)"M`!!G#B(M`!P@;0`0P4%.NNH0($TJ4"`-9M8@!TS?((!.^N*T("\`
  3772. +M!"!O``@O#2(`*DA2E4/M``@@$5*1&X$(#"`9#(````(`;11![0`,(FT`!'(!
  3773. +MP4%.N@'P0JT`""I?3G6>_`(,+PTJ;P(40J\`#$*O``0O30`(2&\"'"\O`AQ!
  3774. +M^O^J0^\`#$ZZ"`I03R`O``QG$$'O`!`B;P`(<@'!04ZZ`:8(+0`%`!MF"`@M
  3775. +M``0`&V<$</]@!"`O``0J7][\`@Q.=2`O``0@;P`(64](YP,$+@`J2'P`'T``
  3776. +M#W)!TH'"K0`89@P([0`%`!MP_V```4!P,\"M`!A5@&=0<$Q&`,"M`!AR0-*!
  3777. +ML(%F#`CM``$`&T*M``Q@-`@M``4`&V<&</]@``$,<&Y&`,"M`!AR;D8!L(%F
  3778. +M#`CM``$`&T*M``Q@"G``*T``#&```.8@+0`,L*T`%&PR(&T`!%*M``0@!Q"`
  3779. +M4JT`#`@M``8`&V<.<@J^@68(($U.N@(`+`!*AF<``*H@!F```*H(+0`"`!MG
  3780. +M+D*M``P@+0`<0>\`#W(!3KKH@"P`4H!F"`CM``4`&V!R(`93@&=L".T`!``;
  3781. +M8&1*K0`49B`@34ZZ]L!*@&<*".T`!0`;</]@6'``*T``#"MM`!``!"`M``RP
  3782. +MK0`4;0@@34ZZ`88L``CM``$`&R!M``12K0`$(`<0@%*M``P(+0`&`!MG#G(*
  3783. +MOH%F""!-3KH!6BP`2H9G!"`&8`9R`!('(`%,WR#`6$].=2!O``0@+P`((B\`
  3784. +M#")O`!!93TCG#Q`L`2X`)DDO2``4(`8B!TZZ^`XJ`'@`2H=G!$J&9@9P`&``
  3785. +M`/QP,,"K`!AF"G!!T(#`JP`89@P(ZP`%`!MP`&```-YP,\"K`!A5@&=0<$Q&
  3786. +M`,"K`!AR0-*!L(%F#`CK``$`&T*K``Q@-`@K``4`&V<&<`!@``"J<&Y&`,"K
  3787. +M`!AR;D8!L(%F#`CK``$`&T*K``Q@"D*K``QP`&```(1*JP`49DP(*P`"`!MF
  3788. +M1"!+3KKUC$J`9SH(ZP`%`!MP`&!@(&\`%!`8(FL`!!*`4JL`!%*K``Q3A5*$
  3789. +M+T@`%'(*L`%F#@@K``8`&V<&($M.N@`^("L`#+"K`!1L!$J%;L)*A6\6($M.
  3790. +MN@`F("L`'"(%(&\`%$ZZYL#8@"`$(@=.NO9P3-\(\%A/3G4@;P`$2.<!!"I(
  3791. +M(`UG``"@<$'0@,"M`!AF+"!M`!!#[0`$(LA"F4(M`"!P`"+`""T`!P`;9P8(
  3792. +MK0```!L(K0`$`!M@``"*2JT`%&=$("T`#&H&<@`K00`,("T`#&<H(BT`'"!M
  3793. +M`!#!04ZZYD(N`%*`9@@([0`%`!M@#+ZM``QG!@CM``0`&RMM`!``!$*M``QP
  3794. +M,,"M`!AF$@@M``<`&V<&</S!K0`8<`!@)'#_8"!^`$OL"$Q*K0`89PP@36$`
  3795. +M_T9*@&<"?O\J52`-9N@@!TS?((!.=2!O``0B;P`(+V\`#``$+V\`$``(GOP`
  3796. +M-$CG+S8F;P!@*F\`7$CO`P``+$(O`#M"+P`Z0B\`.4(O`#@??``@`#="KP!4
  3797. +M</\O0`!00B\`-GX`?`!%[P`\8$IP`"!O`"P0$'(@D(%G(E>`9R91@&<258!G
  3798. +M!E>`9R)@,A]\``$`.V`>'WP``0`Z8!8??``!`#E@#A]\``$`.&`&'WP`,``W
  3799. +M4J\`+"!O`"Q*$&:N<`&P+P`[9@8??``@`#=R*B!O`"RR$&8>+&\`,")66)8B
  3800. +M$2]!`%1L"$2O`%0?0``[4J\`+&`,0^\`5$ZZ\PK1KP`L(&\`+!`0<BZP`69&
  3801. +M4J\`+'`J(&\`++`09APB;P`P(%%8D2`0+T``4&P&</\O0`!04J\`+&`60^\`
  3802. +M4$ZZ\L@J`&8&0J\`4&`$VZ\`+!]\`"``-W``(&\`+!`0<DR0@6<4<AR0@6<&
  3803. +M68!G"F`2'WP``@`V8`8??``!`#92KP`L(&\`+%*((F\`+!`1<@`2`!]``"0O
  3804. +M2``F<%"2@&<``1!1@6<``1QP"Y*`9P`!T%.!9U!;@6=,6X%G(E.!9P`!`E.!
  3805. +M9P``ZE>!9P`!@%6!9P``\%>!9P``ZF```;@D;P`P<`*P+P`V9@X@4EB2(E`@
  3806. +M$S*`8``"2B!26)(B4"*38``"/B)O`#`@45B1*!!J!'X!1(1*AV<,1>\`/1]\
  3807. +M`"T`/&`B2B\`.F<,1>\`/1]\`"L`/&`02B\`.6<,1>\`/1]\`"``/'P!(`0@
  3808. +M2DZZ\1XJ`"`O`%!F!DJ$9P`!Y"`O`%!J!G(!+T$`4"@O`%"8A6\<($K1Q"`%
  3809. +M(DI.NO2T<C`@2F`"$,%3A&3Z*B\`4-R%(`53@&8``000$K`O`#=F``#Z2J\`
  3810. +M4&8``/)"$F```.P@+P!0:@9P""]``%`??``!`#9P`K`O`#9F$")O`#`@45B1
  3811. +M(!!X`#@`8`HB;P`P(%%8D2@0$"\`)')UL`%G`/]:<F^P`68>2B\`.&<,1>\`
  3812. +M/1]\`#``/'P!(`0@2DZZ\(Y@`/\^2B\`.&<2'WP`,``\1>\`/A]\`'@`/7P"
  3813. +M(`0@2DZZ\*HJ``@O``4`)&8`_Q1![P`\3KKQ6F``_P@B;P`P(%%8D210(`IF
  3814. +M!$7Z`/(@2DH89OQ3B)'**@@@+P!0:P2PA6\$+T4`4"PO`%!@('P!(F\`,"!1
  3815. +M6)$@$!]``#Q"+P`]8`9P`&```*Q%[P`\("\`5+"&;`AR`"]!`%1@!)VO`%1*
  3816. +M+P`[9QY@"'``$!H@2TZ54X9L]&`&($MP($Z54Z\`5&ST8&I*AV8,2B\`.68&
  3817. +M2B\`.F=&$!)R(+`!9PQT*[`"9P9T+;`"9C)*AFLNLB\`-V828`IP`!`O`#<@
  3818. +M2TZ54Z\`5&SP<``0&B!+3I53AF`*<``0+P`W($M.E5.O`%1L\&`(<``0&B!+
  3819. +M3I53AFST("\`)DS?;/3>_``T3G4``"!O``0B;P`(+V\`#``$+V\`$``(GOP`
  3820. +M#$CG`!0F22I(+V\`'``08#AP);`O``QF)B!O`!BP$&8&4J\`&&`8+PLO#4/O
  3821. +M`!A.NON44$]*@&<&+T``&&`*<``0+P`,($M.E2!O`!@0&!]```PO2``82@!F
  3822. +MMDS?*`#>_``,3G4@;P`$((A8D$*H``0A2``(3G4``"!O``1(YP`&*DA*K0`*
  3823. +M9PHB32QX``1.KOZ8&WP`_P`(</\K0``4<``0+0`/+'@`!$ZN_K`B37`B3J[_
  3824. +M+DS?8`!.=0``(&\`!"`O``A(YP,6+@`J2'#_+'@`!$ZN_K8<`$B&2,8@!E*`
  3825. +M9@1P`&!@<"(B/``!``%.KO\Z)D!*@&8((`9.KOZP8$1!ZP`*(,T71P`)%WP`
  3826. +M!``(0A@0QI/)3J[^VB=``!`@#6<((DM.KOZ>8!I!ZP`8)T@`%$'K`!0G2``<
  3827. +M0JL`&!=\``(`("`+3-]HP$YU+P@O`$ZY```"M%!/3G4``````^P````!````
  3828. +M````/!(````!`````0````H````````#\@```^H```)T<&%T:```:&5L<```
  3829. +M=F5R<VEO;@``````````````"4P````!````!@````````E0`````0````P`
  3830. +M```````)5`````$`````````````````````<``E<PH`)7,``%5S86=E.B`E
  3831. +M<R!;+7!=(%LM+7!A=&A=(%LM+6AE;'!=(%LM+79E<G-I;VY=(&1I<BXN+@H`
  3832. +M`$=.52!F:6QE=71I;',@,RXV`````)0``$]K```````4````````````````
  3833. +M````K&-O;G-O;&4Z```E<SH@``!I;G1U:71I;VXN;&EB<F%R>0```'1I;65R
  3834. +M+F1E=FEC90````#_____9FEF;RYL:6)R87)Y```````````````````!#``!
  3835. +M```````````!#@```````````````$`H(REA;&QO8V$N8PDQ+C$`````````
  3836. +M``````!&86EL960@=&\@8W)E871E('1I;65R``!U<V5R(&EN=&5R<G5P=```
  3837. +M`````$YO(&UE;6]R>0```&$`1F%I;&5D('1O(&-R96%T92!T:6UE<@``3DE,
  3838. +M.@``3DE,.@``3DE,.@``*@!.24PZ``!);G9A;&ED('=I;&1C87)D("5S`$5R
  3839. +M<F]R(&5X<&%N9&EN9R!A<F=U;65N=',`55-%4@``=7-E<@``55-%4DY!344`
  3840. +M`$A/344``',Z``!32$5,3`!B:6XZ<V@``$A/4U1.04U%``!A;6EG80";,"!Q
  3841. +M``!&86EL960@=&\@:6YI=&EA;&ES92!)+T\``&%M:6=A('-P96-I9FEC(&5R
  3842. +M<F]R``````)$56YK;F]W;B!E<G)O<@!N;W0@;W=N97(`;F\@<W5C:"!F:6QE
  3843. +M(&]R(&1I<F5C=&]R>0!N;R!S=6-H('!R;V-E<W,`:6YT97)R=7!T960@<WES
  3844. +M=&5M(&-A;&P`:2]O(&5R<F]R`&YO('-U8V@@9&5V:6-E(&]R(&%D9')E<W,`
  3845. +M87)G=6UE;G0@;&ES="!T;V\@;&]N9P``97AE8R!F;W)M870@97)R;W(`8F%D
  3846. +M(&9I;&4@;G5M8F5R`&YO(&-H:6QD('!R;V-E<W,``&YO(&UO<F4@<')O8V5S
  3847. +M<V5S`&YO="!E;F]U9V@@;65M;W)Y`'!E<FUI<W-I;VX@9&5N:65D`&)A9"!A
  3848. +M9&1R97-S`&)L;V-K(&1E=FEC92!R97%U:7)E9`!M;W5N="!D979I8V5S(&)U
  3849. +M<WD``&9I;&4@97AI<W1S`&-R;W-S+61E=FEC92!L:6YK`&YO('-U8V@@9&5V
  3850. +M:6-E``!N;W0@82!D:7)E8W1O<GD`:7,@82!D:7)E8W1O<GD``&EN=F%L:60@
  3851. +M87)G=6UE;G0``&9I;&4@=&%B;&4@;W9E<F9L;W<`=&]O(&UA;GD@;W!E;B!F
  3852. +M:6QE<P!N;W0@82!T>7!E=W)I=&5R``!T97AT(&9I;&4@8G5S>0``9FEL92!T
  3853. +M;V\@8FEG``!N;R!S<&%C92!L969T(&]N(&1E=FEC90!I;&QE9V%L('-E96L`
  3854. +M`')E860M;VYL>2!F:6QE('-Y<W1E;0!T;V\@;6%N>2!L:6YK<P``8G)O:V5N
  3855. +M('!I<&4`;6%T:"!A<F=U;65N=`!R97-U;'0@=&]O(&QA<F=E``!)+T\@<W1R
  3856. +M96%M(&5M<'1Y``!F:6QE(&YA;64@=&]O(&QO;F<``&1I<F5C=&]R>2!N;W0@
  3857. +M96UP='D`=&]O(&UA;GD@<V]F="!L:6YK<R`H;&]O<#\I`````EX```)L```"
  3858. +M=@```I````*@```"N````L(```+<```"]````P8```,6```#*````SH```-,
  3859. +M```#7@```VH```.````#E````Z````.R```#P@```](```/B```#]```!`@`
  3860. +M``0<```$+@``!#X```1,```$9```!'(```2(```$F```!*0```2R```$Q```
  3861. +M!-8```3J```$_@```"8``&1O;W(N)6QX+B5L>```3F\@;65M;W)Y````````
  3862. +M`````````0```#]03U-)6$Q97T-/4E)%0U0`+2T``"5S.B!O<'1I;VX@8"5S
  3863. +M)R!I<R!A;6)I9W5O=7,*`"5S.B!O<'1I;VX@8"TM)7,G(&1O97-N)W0@86QL
  3864. +M;W<@86X@87)G=6UE;G0*```E<SH@;W!T:6]N(&`E8R5S)R!D;V5S;B=T(&%L
  3865. +M;&]W(&%N(&%R9W5M96YT"@``)7,Z(&]P=&EO;B!@)7,G(')E<75I<F5S(&%N
  3866. +M(&%R9W5M96YT"@`E<SH@=6YR96-O9VYI>F5D(&]P=&EO;B!@+2TE<R<*`"5S
  3867. +M.B!U;G)E8V]G;FEZ960@;W!T:6]N(&`E8R5S)PH````E<SH@:6QL96=A;"!O
  3868. +M<'1I;VX@+2T@)6,*`"5S.B!O<'1I;VX@<F5Q=6ER97,@86X@87)G=6UE;G0@
  3869. +M+2T@)6,*``!5;FMN;W=N('-Y<W1E;2!E<G)O<@``)7,Z(```.B`E<P``````
  3870. +M`$```"`@("`@("`@("@H*"@H("`@("`@("`@("`@("`@("`@2!`0$!`0$!`0
  3871. +M$!`0$!`0$(2$A(2$A(2$A(00$!`0$!`0@8&!@8&!`0$!`0$!`0$!`0$!`0$!
  3872. +M`0$!`0$0$!`0$!""@H*"@H("`@("`@("`@("`@("`@("`@("`A`0$!`@````
  3873. +M````````````````````````````````````````````````````````````
  3874. +M````````````````````````````````````````````````````````````
  3875. +M``````````````````````````````````````````````````````^@```(
  3876. +M;@``````````````````````````````````````````")``````````````
  3877. +M````````````````````````````````````````````````````````````
  3878. +M``````````````````(`__\````.``X```````````````#__P````0`!```
  3879. +M`````"NB```(N/__````!``$````````*[@``````````````#4````T````
  3880. +M)````!0````\````+````!P```"F````P````2````$4```%L@``!:X```6J
  3881. +M```%I@``!:(```6>```%F@``!98```62```%C@``!8H```6&```%@@``!7X`
  3882. +M``5Z```%=@``!7(```5N```%:@``!68```5B```%7@``!5H```56```%4@``
  3883. +M!4X```5*```%1@``!4(```4^```%.@``!38```4R```%+@``!2H```4F```%
  3884. +M(@``!1X```4:```"6@``"&X```A,```(W````^P````"````````".P```C8
  3885. +(`````````_(:
  3886. +`
  3887. +end
  3888. diff -rup --new-file baseline/fsf/emacs18/amiga/amiga-extra/amiga/c/sort.uue amiga/fsf/emacs18/amiga/amiga-extra/amiga/c/sort.uue
  3889. --- baseline/fsf/emacs18/amiga/amiga-extra/amiga/c/sort.uue    Wed Dec 31 17:00:00 1969
  3890. +++ amiga/fsf/emacs18/amiga/amiga-extra/amiga/c/sort.uue    Sat Sep 28 00:00:00 1996
  3891. @@ -0,0 +1,650 @@
  3892. +begin 666 sort
  3893. +M```#\P`````````"``````````$``!F=```"L@```^D``!F=2.=^_B1()`!)
  3894. +M^0`````L>``$+P)(YP#@)FX!%"(K`*QG#.6)($$B*``TY8E@!B(/DJL`.G0`
  3895. +M(#P``!T<LJP)(&0((BP)(-"!=`$F02(\``$``4ZN_SI*@&8(3-\'!&```D`@
  3896. +M0"1`(D`@/````G:9_``````@W%.`9OH@'&<.($G1W-70((HD25.`8/`H2=G\
  3897. +M`````"E\```='`HD3-\'`"E."@!*`DS?``1([(``"@AG2"`,!(``````!H``
  3898. +M`!T<T*P)("(`!(````"`#&X`)``4;1@I0`H@*4$*')*L"2!![`H8((%.KOTD
  3899. +M8`(N0"`L"2`O0``$T:P*)"(/DHL&@0```(`I00G<0JP*!'``(CP``#``3J[^
  3900. +MSB9N`11#^@&(<`!.KOW8*4`=%&8&<&1@``#F*6L`F`G\2JL`K&<``'X@:P"L
  3901. +MT<C1R")H`!#3R=/)(`)R`!(9*4D*#-"!7H`"0/_\*4`*%$CG0$`B/``!``%.
  3902. +MKO\Z3-\"`DJ`9@AP%"\`9P`!!"!`*4`*$"`"4X#4@1&R```@`E."4<C_]A&\
  3903. +M`"`@`E."$;P`(B`"$;$@`"`!4<K_^!"\`"(O"&!*0>L`7$ZN_H!!ZP!<3J[^
  3904. +MC"E`"@0O`"1`("H`)&<8+&P=%"!`(B@``$ZN_Z`I0`G\(@!.KO^"(&P*!"\(
  3905. +M2&P)V"!H`"0I:``$"@Q.NDPD3KHVGG``8`0@+P`$)&P*""4`+'@`!`QN`"0`
  3906. +M%&T22JP*&&<,0>P*&%FL"B!.KOTD+DH@+`GT9P0@0$Z03KI+_$ZZ32Q*K`H$
  3907. +M9R`L;!T4(BP)_&<$3J[_IBQX``1.KO]\(FP*!$ZN_H9@$BQX``0@+`H49P@B
  3908. +M;`H03J[_+B)L'11.KOYB("P*)"),D_P`````3J[_+B`?3-]_?DYU9&]S+FQI
  3909. +M8G)A<GD````@#UE`L*P)W&4`408O#2IL&WI@#"\53KHO2%A/*FT`!"`-9O`J
  3910. +M7TYU(`^0?``,L*P)W&4`4-PO#2`O``@O`$ZZ4TA83RI`2H!F'$AL`)QP`"\`
  3911. +M+P!.NBA"8:9(>``"3KI5?$_O`!`@#2I?3G4@#Y!\``RPK`G<90!0F$CG`10N
  3912. +M+P`4)F\`$"`+9@HO1P`03-\H@&"42H=F#"\+3KI1@%A/<`!@,"\'+PM.NE#J
  3913. +M4$\F0$J`9AY(;`"V<``O`"\`3KHGV&$`_SQ(>``"3KI5$$_O`!`@"TS?*(!.
  3914. +M=2`/D'P`$+"L"=QE`%`J2.<`%"IO``P@34/L`-`0&+`99@9*`&;V9Q`O+P`0
  3915. +M+PU.NERF4$\@0&`$0>P))"9((`AF("\-2&P`TB\L',Q"ITZZ)VYA`/[22'@`
  3916. +M`DZZ5*9/[P`40>P))+'+9@9P`2E`&T(@"TS?*`!.=2`/D'P`#+"L"=QE`$^R
  3917. +M+PTJ;P`(+PU.NEG.6$]![`DDL<UG-$'L"4:QS6<L+PU.NEJ*6$]*@&<F2&P`
  3918. +MUB\L',Q"ITZZ)P)A`/YF2'@``DZZ5#I/[P`08`9PS\&M`!@J7TYU(`^0?``0
  3919. +ML*P)W&4`3U`O!BPO`!`@+P`,(&\`%")O``@O""\&+P`O"4ZZ5JI/[P`0L(9G
  3920. +M'DAL`.HO+!S,0J=.NB:D80#^"$AX``).NE/<3^\`$"P?3G4@#Y!\`!2PK`G<
  3921. +M90!.^DCG`10@;!LP(`A*&&;\4XB1P"X((`AR$-"!+P!A`/WR*D!(>``(80#]
  3922. +MZ%!/)D!*AV<J<"\@;!LPL#!X_V<>3KHG8%*L"B@O+`HH+P`O+!LP2&P`]B\-
  3923. +M3KI3U&`<3KHG0E*L"B@O+`HH+P`O+!LP2&P!""\-3KI3MD_O`!0FC2=L&WH`
  3924. +M!"E+&WH@#4S?*(!.=2`/44"PK`G<90!.7DCG`#0F;P`02^P;=F`6(&T`!")+
  3925. +M)%`0&;`:9@9*`&;V9P@J2$JM``1FY"9M``0@"V<:+Q-.NBQV+I-.ND\L*VL`
  3926. +M!``$+HM.ND\@6$],WRP`3G6_[`G<90!.!$CG(P1^`'P`<""^@&<&<@F^@68*
  3927. +M<@%![`XP(8%H`')_OH%B%D'L"!T(,``">`!G"G0!0^P*,".":`"^@6(,=%=!
  3928. +M[`@=Q#!X`&8*=`%![!(P(8)H`+Z!8@QT!T'L"!W$,'@`9A2^@&<0=`F^@F<*
  3929. +M=`%![!8P(8)H`+Z!8B9+[`@=V\<(%0`!9QH(%0`!9P@@!W(@D(%@`B`'0>P:
  3930. +M,!&`>`!@"B`'0>P:,!&`"`!2AUB&#(<```$`;0#_4$S?(,1.=2`/64"PK`G<
  3931. +M90!-."\-("\`#"IO``@K0``(+P!A`/P\*H!"K0`,0JT`!%A/*E].=2`/D'P`
  3932. +M$+"L"=QE`$T&2.<!%"9O`!0J;P`0(%4B2-/M``0@+0`,D\`O`"\)+PA.NDTZ
  3933. +M3^\`#"MM``P`!&!J("T`""(M``2R@&82T(`K0``(+P`O%6$`_!A03RJ`("T`
  3934. +M!"!5T<`B+0`(DH`O"R\!2'@``2\(3KI54$_O`!`N``@K``4`&V<>2&P!&B\L
  3935. +M',Q"ITZZ)`AA`/ML2'@``DZZ44!/[P`0WZT`!`@K``0`&V8<("T`!&>(+P!(
  3936. +M>``*+Q5.NDQB3^\`#$J`9P#_=`@K``0`&V=`2JT`!&<Z("T`!")5T\!R"K(I
  3937. +M__]G*B(M``BP@682TH$K00`(+P$O%6$`^W!03RJ`("T`!%*M``0@51&\``H(
  3938. +M`"`M``1,WRB`3G4@#UE`L*P)W&4`2^I(YP($+"\`%"(O`!`J;P`,*T$`".F!
  3939. +M+P%A`/KF*H!"K0`$*T8`#%A/3-\@0$YUO^P)W&4`2[1(YP,T*F\`'"!O`!@F
  3940. +M4"1+(F\`&-7I``0N%2PM``1*+!L\9UY@%%*+M\ID"!`3L"P;/&;RM\ID`E*+
  3941. +MM\ID4"`'4X=*@&;B8$92B[?*9!H0$W(`$@!(P2`!Y8!![`XP2K`(`&;D8`)2
  3942. +MB[?*9!80$W(`$@!(P2`!Y8!![`XP2K`(`&?DM\ID""`'4X=*@&:\2JT`"&<B
  3943. +M8`)2B[?*9!H0$W(`$@!(P2`!Y8!![`XP2K`(`&;D8`)2B[?*9`@@!E.&2H!F
  3944. +M\B`+3-\LP$YUO^P)W&4`2N)(YP,T*F\`'"!O`!@F4"1+(F\`&-7I``0N+0`,
  3945. +M+"T`$$HL&SQG:&`>4HNWRF0($!.P+!L\9O*WRF0,2H=F!DJM`!1G`E*+M\ID
  3946. +M4"`'4X=*@&;88$92B[?*9!H0$W(`$@!(P2`!Y8!![`XP2K`(`&;D8`)2B[?*
  3947. +M9!80$W(`$@!(P2`!Y8!![`XP2K`(`&?DM\ID""`'4X=*@&:\2JT`%&<B8`)2
  3948. +MB[?*9!H0$W(`$@!(P2`!Y8!![`XP2K`(`&;D8`)2B[?*9`@@!E.&2H!F\B`+
  3949. +M3-\LP$YU(`^0?``8L*P)W&4`2?Z>_``,2.<@-"IO`"0@;P`@)E`@2R)O`"#1
  3950. +MZ0`$(FP;<D*M``0O2``8+TD`$&```.1"$B`M``@B+0`$LH!F%-"`*T``".F`
  3951. +M+P`O%6$`^0Q03RJ`(BT`!.F!(E73P2*+(`J0BR-```0D;P`0(`IG``"(("H`
  3952. +M#&L<("T`!.F`)%75P"\O`!`O"F$`_HQ03R5```Q@$"0M``3I@B)5T\(C;P`4
  3953. +M``PD;P`0(!)K'"(M``3I@215U<$O+P`0+PIA`/V&4$\E0``(8$)*J@`(9QI@
  3954. +M`E*+$!-R`!(`2,$@`>6`0>P.,$JP"`!FZ"(M``3I@2)5T\$C2P`(8!(B+0`$
  3955. +MZ8$@5='!0J@`"$*H``Q2K0`$)F\`%%*+)&\`&+?*9"H@"B(+D($O`$AX``HO
  3956. +M`4ZZ2.)/[P`,)$`O0``49PPB+0`$LJT`#&T`_NX@+P`8D(L@;P`@(4``#$S?
  3957. +M+`3>_``,3G6_[`G<90!(FDCG`S0F;P`<*F\`&!`5?@`>`!`3?``<`'`NOH!F
  3958. +M``">O(!F``"84HT0%7X`'@!2BQ`3?``<`+R'9@X@!^6`0>P*,$JP"`!FWB`'
  3959. +MY8!![`HP)$C5P"`29Q(B!N6!2K`8`&<((`>0AF```)Y*DF<@8`A2C1`5?@`>
  3960. +M`'`POH!G\N6'0>P*,$JP>`!G>G`!8'@@!N6`0>P*,$JP"`!G:&`(4HL0$WP`
  3961. +M'`!P,+R`9_+EAD'L"C!*L&@`9TQP_V!*<"Z^@&8>4HT0%7X`'@!P,+Z`9_+E
  3962. +MAT'L"C!*L'@`9RAP`6`F<"Z\@&8>4HL0$WX`'@!P,+Z`9_+EAT'L"C!*L'@`
  3963. +M9P1P_V`"<`!,WRS`3G4@#U%`L*P)W&4`1X)(YR\4)F\`)"IO`"`0%7X`'@`0
  3964. +M$WP`'`!@"%*-$!5^`!X`(`?E@$'L#C!*L`@`9NI@"%*+$!-\`!P`(`;E@$'L
  3965. +M#C!*L`@`9NIP+;Z`9@`!)E*-$A5^`!X!O(!G(.6'0>P*,$JP>`!G#N6&2K!H
  3966. +M`&<&</]@``(><`!@``(84HL0$WP`'`!@"%*-$!5^`!X`<#"^@&?R8`A2BQ`3
  3967. +M?``<`'`PO(!G\F`04HT0%7X`'@!2BQ`3?``<`+R'9@X@!^6`0>P*,$JP"`!F
  3968. +MWG`NOH!F#B(&Y8%![`HP2K`8`&<2O(!F'B`'Y8!![`HP2K`(`&80+PLO#6$`
  3969. +M_>Q$@%!/8``!EB`'Y8!![`HP2K`(`&<@>@%@`E*%4HT0%7(`$@!(P2`!Y8!!
  3970. +M[`HP2K`(`&;F8`)Z`"`&Y8!![`HP2K`(`&<@>`%@`E*$4HL0$W(`$@!(P2`!
  3971. +MY8!![`HP2K`(`&;F8`)X`"`$D(5F``$N(`5G``$H(`:0AV```2!P+;R`9CIR
  3972. +M`!('2,$D`>6"0>P*,$JP*`!G&!(K``%T`!0!2,+E@DJP*`!G!G`!8```[G``
  3973. +M8```Z%*-$!5^`!X`<#"^@&?R8`A2BQ`3?``<`'`PO(!G\F`04HT0%7X`'@!2
  3974. +MBQ`3?``<`+R'9@X@!^6`0>P*,$JP"`!FWG`NOH!F#B(&Y8%![`HP2K`8`&<2
  3975. +MO(!F'B`'Y8!![`HP2K`(`&80+TT`("]+`"1,WRCT8`#\OB`'Y8!![`HP2K`(
  3976. +M`&<@>@%@`E*%4HT0%7(`$@!(P2`!Y8!![`HP2K`(`&;F8`)Z`"`&Y8!![`HP
  3977. +M2K`(`&<@>`%@`E*$4HL0$W(`$@!(P2`!Y8!![`HP2K`(`&;F8`)X`"`%D(1F
  3978. +M""`%9P0@!Y"&3-\H]$YU(`^0?``,L*P)W&4`1-Q93TCG#A0H+P`@)F\`''P`
  3979. +M>@Q@!%*+4X1*A&\6$!-R`!(`2,$@`>6`0>P.,$JP"`!FXG`#N(!M``"$2],0
  3980. +M'7(`$@!![!HP1^\`%!;P$``0'7(`$@`6\!``$!UR`!(`%O`0`$(;*`;8A6H"
  3981. +M4H3BA"`$YX!![P`40^P`,")Q"``2&+(99@1*`6;V;`0J!&`"+`0@!9"&<@&P
  3982. +M@6[*(`;G@$?L`##7P$'O`!0B4Q`8L!EF#$H`9O9F!B`K``1@`G``3-\H<%A/
  3983. +M3G4@#Y!\`""PK`G<90!$")[\`!1(YS\V?@!\`"]L&W(`,&```Y@F;0`8(&T`
  3984. +M'"1O`$`O2``J2H9F$DJJ``AG#")O`$1*J0`(9@``MB`M``QK("\-+PIA`/C6
  3985. +M+HTO+P!,+T``1&$`^,A/[P`,+T``-&`8(E+3Z@`$(&\`1"Q0W>@`!"])`#@O
  3986. +M3@`T(!5K'B\-+PIA`/?(*D`NKP`X+R\`3&$`][I/[P`,)$!@<"I2(&\`1"10
  3987. +M(&\`,$JH``AG7F`"4HV[[P`X9!H0%7(`$@!(P2`!Y8!![`XP2K`(`&;B8`)2
  3988. +MBK7O`#1D-!`2<@`2`$C!(`'E@$'L#C!*L`@`9N)@'"IJ``@@:@`,+&\`1"1N
  3989. +M``@B;@`,+T@`."])`#0J+P`X(@V:@2`O`#0D`"8*E(,H`DJ%:@)Z`$J$:@)X
  3990. +M`"!O`#!*J``@9UHF0"!O`#@0$&8$2A-G(A030A-"$"\#+P$?0``Q80#[)E!/
  3991. +M+@`@;P`X$*\`*1:"8`PO`R\!80#[#E!/+@!*AV<``BH@;P`P2J@`*&<((`=$
  3992. +M@&```C`@!V```BH@;P`P2J@`)&<T+P4O#6$`_7XN`"Z$+P-A`/UT3^\`#)Z`
  3993. +M9P`!["!O`#!*J``H9P@@!T2`8``!\B`'8``!["`+9P``I$JO`"IG``"<8```
  3994. +MA%*-N^\`.&06$!5R`!(`2,$@`>6`2K,(`&;F8`)2BK7O`#1D$A`2<@`2`$C!
  3995. +M(`'E@$JS"`!FYKOO`#AD1K7O`#1D0!`:<@`2`!`==``4`"!O`"H0,"``L#`0
  3996. +M`&<F$"K__W(`$@`0,!``2(!(P!(M__]T`!0!$C`@`$B!2,&2@&```0J[[P`X
  3997. +M9``!!+7O`#1E`/]R8```^"`+9WA@9E*-N^\`.&06$!5R`!(`2,$@`>6`2K,(
  3998. +M`&;F8`)2BK7O`#1D$A`2<@`2`$C!(`'E@$JS"`!FYKOO`#AD*K7O`#1D)!(=
  3999. +MLAI6P$0`2(!*`&<6$"K__TB`2,`2+?__2(%(P9*`8```BKOO`#AD``"$M>\`
  4000. +M-&6.8'I*KP`J9U`F;P`T8#X0&G(`$@`0'70`%``@;P`J$#`@`+`P$`!G)!`J
  4001. +M__]R`!(`$#`0`$B`2,`2+?__=``4`1(P(`!(@4C!DH!@+KOO`#AD*K7+9;A@
  4002. +M)+J$;`0@!6`"(`0@32)*<@!*@&<.$AB2&68$4X!F]DB!2,$N`4J'9Q8@;P`P
  4003. +M("@`*&<&(@=$@6`"(@<@`6`R+@6>A&<4(&\`,$JH`"AG!B`'1(!@'"`'8!@@
  4004. +M;P`P+V@`+``P4H8J;P`P(`UF`/QB<`!,WVS\WOP`%$YU(`^0?``,L*P)W&4`
  4005. +M0#A(YR\4)F\`)"IO`"!*K!MR9QXO"R\-80#\"E!/2H!F:$JL&SYF!DJL&SAG
  4006. +M!'``8%@N+0`$+"L`!+Z&;`0@!V`"(`8J`&<P(%4B4Q`1<@`2`!`0=``4`)2!
  4007. +M*`)F'B`%<@!*@&<.$AB2&68$4X!F]DB!2,$H`68$*`>8ADJL&S1G!B`$1(!@
  4008. +M`B`$3-\H]$YU(`^0?`!`L*P)W&4`/YR>_``T2.</!"IO`$QP`2]``!0O+`"4
  4009. +M2&\`/&$`\CP@+`"4(BP`F$ZZ/GY2@$AX`@`O`$AO`#AA`/-N+BP`F"Z'80#N
  4010. +M<"]``"PNC4AO`$QA`/(X+`!(;P!`2&\`5&$`]3)/[P`@2H9G``#R?`!Z`&`P
  4011. +M(&\`*-'%2&@`$"\(80#^V%!/*`!*K!L^9P1*A&H$2H1O"$*O`!1@``#"4H9P
  4012. +M$-J`("\`+%.`O(!MQB(O`"SI@2!O`"C1P9#\`!`@*``$L(=O'"P`4H9@`MZ'
  4013. +MO(=N^B\'+R\`'&$`[B!03R]``!@B+P`LZ8$@;P`HT<$@*/_T4H`O`"\H__`O
  4014. +M+P`@3KH^]B(O`#CI@2!O`#31P2]H__0`*"Z-2&\`1&$`\7!/[P`0+`!G,DAO
  4015. +M`"A(;P`\80#T9"ZO`#!(;P`@80#^'D_O``PJ`$JL&SYG!$J%:@1*A6\&0J\`
  4016. +M%&`&2H9F`/\2+PUA`.Y^+J\`/$ZZ/T`NKP`L3KH_."ZO`!Q.NC\P6$\@+P`4
  4017. +M3-\@\-[\`#1.=2`/D'P"M+"L"=QE`#X&GOP"I$CG+S8N+P+0*F\"U$*O`+1*
  4018. +MK!L^9Q0@+`"8+P`O0`"T80#L]EA/+T``N'H`?`!X`&```*!'[P'(U\8O+`"4
  4019. +M+PMA`/!\4$]@)"\280#M]EA/4X<L!2`&Y8`D;P+,U<!@""2J``12AEB*O(=M
  4020. +M]+J';!0D;P+,U<0O$B\+80#P<E!/2H!GQ"PO`"RZAV8*+Q-.NCY\6$]@-$7O
  4021. +M`,C5QB`L`)0B+`"83KH\9E*`2'@"`"\`+PIA`/%8+HHO"V$`\SI/[P`00>\`
  4022. +M<$*P2`!2A7`0W(!8A"]&`"RZAVT`_UI\`$7O`#!@!"3&4H:\AVWX?`%@7B`&
  4023. +MY8!%[P`PU<`@*O_\(@#E@4/O`'#I@$WO`,@@3B(Q&`#I@2)P"`#3P2`2(@#E
  4024. +M@4'O`'#I@"(P&`#I@2!V"`#1P2\(+PEA`/R$4$]*@&\,("K__"52__PD@'P`
  4025. +M4H:\AVV>)&\"S&```[Q*K!L^9P`!?DJ&9P``GB`O`#`B`.6!0>\`<.F`0^\`
  4026. +MR"(P&`#I@2!Q"`#1P2\(2&\`O&$`_"Y03TJ`9VXO#2\O`,!(>``!+R\`Q&$`
  4027. +M[/Y/[P`0""T``0`;9SY2K0`,("T`#+"M`!1N'B!M``12K0`$$+P`"@@M``8`
  4028. +M&V<H+PU.ND9.6$]@'E.M``PO#4AX``I.ND(84$]@#"\-2'@`"DZZ0@I03WP`
  4029. +M0J\`M$J&9@`!6B`O`#`B`.6!0>\`<"0P&`#I@NF`0>\`R")P"`#3PBPI``12
  4030. +MABHO`+"ZAFP<8`+:A;J&;?HO10"P+P4O+P"\80#K$E!/+T``N"`O`#`B`.6!
  4031. +M0>\`<.F`0^\`R"(P&`#I@2!Q"`#1P2`H``0O0`"\4H`O`"\0+R\`P$ZZ.]1/
  4032. +M[P`,("\`,"(`Y8%-[P!P(C88`.F!Z8!-[P#(W<`O3@`H(F\`*"91U\$B*P`(
  4033. +M9PR2DRQO`+C=P2].`,`B*P`,9PR2DR)O`+C3P2])`,1R`2]!`+1@``"&("\`
  4034. +M,"(`Y8%![P!PZ8!#[P#((C`8`.F!('$(`-'!+PTO*``$2'@``2\080#KFD_O
  4035. +M`!`(+0`!`!MG/E*M``P@+0`,L*T`%&X>(&T`!%*M``00O``*""T`!@`;9R@O
  4036. +M#4ZZ1.I83V`>4ZT`#"\-2'@`"DZZ0+103V`,+PU(>``*3KI`IE!/(B\`,.6!
  4037. +M0>\`<-'!4I`D+P`PZ8)#[P#(T\(@$+"I``1F``$$0>\!R-'"+S(8`"\(80#M
  4038. +M6E!/2H!G+B(O`##I@4'O`<C1P4/O`,C3P2\)+PAA`/!"4$\B+P`PY8%![P!P
  4039. +M0K`8`&```,!\`4?O`#1@#B`3L*\`,&\"4Y-2AEB+O(=M[E.'(B\`,.6!+S(8
  4040. +M`&$`ZE`B+P`TZ8%![P',+K`8`$ZZ.P@B+P`TZ8%![P#,+K`8`$ZZ.O983RPO
  4041. +M`#`J!N6%*`;IA&`\);)8!%@`0>\!R-'$0^@`$"#9(-D@V2#90>\`R-'$0^@`
  4042. +M$"#9(-D@V2#90>\`<-'%(*@`!%*&6(5P$-B`O(=MP'P`1^\`-&`0(`;E@"!/
  4043. +MT/P`,"&;"`!2AKR';>Q@``".>@%'[P`T8%0@+P`P(@#E@4/O`'#I@$WO`,@@
  4044. +M3B(Q&`#I@2)P"`#3P2`3(@#E@4'O`'#I@"(P&`#I@2!V"`#1P2\(+PEA`/CN
  4045. +M4$\L`&8&+"\`,)R32H9K"%*%6(NZAVVH*"\`,'P!1^\`,&`0(`;E@"!/T/P`
  4046. +M,";P"`!2AKR%;>SEA2!/T/P`+"&$6``L+P"T2H=F`/P^2JP;/F=V2H9G<B\-
  4047. +M+R\`P$AX``$O+P#$80#I;$_O`!`(+0`!`!MG/E*M``P@+0`,L*T`%&X>(&T`
  4048. +M!%*M``00O``*""T`!@`;9R@O#4ZZ0KQ83V`>4ZT`#"\-2'@`"DZZ/H903V`,
  4049. +M+PU(>``*3KH^>%!/+R\`N$ZZ.7983TS?;/3>_`*D3G4@#Y!\`!"PK`G<90`X
  4050. +M4%E/2.<.-"PO`"0J;P`@)F\`*"`&58!F.$AM`!`O#6$`]^I03TJ`;P``^B!-
  4051. +M(DLBV"+8(M@BV$'M`!`B2"K9*MDJV2K9(-L@VR#;(-M@``#4*@9J`E*%XH4D
  4052. +M32@&F(4@!>F`V\`O30`8<`&Z@&\.+PLO!2\*80#_?$_O``QP`;B`;PXO"R\$
  4053. +M+PUA`/]H3^\`#"I+8$(O+P`8+PIA`/=N4$]'[0`02H!N%B!-*DLB2B#9(-D@
  4054. +MV2#9U/P`$%.%8!@@32I+(F\`&"#9(-D@V2#9<!#1KP`84X1*A6<:2H1FMF`4
  4055. +M($HB32+8(M@BV"+8U/P`$-K\`!`@!5.%2H!FY"IO`""<A"9O`"A@%B!+(DTB
  4056. +MV"+8(M@BV-K\`!#6_``04X9*AF;F3-\L<%A/3G4@#Y!\``RPK`G<90`W&$CG
  4057. +M!Q`N+P`8)F\`%'P`>@!@+DAL`28O$V$`YL8N@&$`]TY03TJ`9A0O$R\L"BQ(
  4058. +M;`$H3KHQLD_O``Q2AE*%6(NZAVW.(`9,WPC@3G4@#Y!\`%2PK`G<90`VOI[\
  4059. +M`$A(YP\T*F\`:&```1I^`"`&<A!.NC6P>@`O30`@+T``'&!X1^\`)"(%TH;E
  4060. +M@4AL`3PO-1@`80#F3%!/)L!2AG`0O(!MXF$`YVPD0$AL`3XO`&$`YC`F0"Z`
  4061. +M2'@`$$AO`#!A`/A$+HMA`.:23^\`$'P`(@72AN6!+S48`&$`Y]183U*&<!"\
  4062. +M@&WH4H<@;P`@(,I2A'`0VH`O2``@?`"XKP`<;8`@+P!L<A!.NC4:*@%'[P`D
  4063. +M8!HB!.F!TH;E@4AL`4`O-1@`80#EO%!/)L!2AKR%;>)A`.;>)D!(;`%"+P!A
  4064. +M`.6B)$`N@"\%2&\`,&$`][@NBF$`Y@9/[P`0?`!@%"($Z8'2AN6!+S48`&$`
  4065. +MYT183U*&O(5MZ"`'Y8`KBP@`4H<O1P!L>``L+P!L<!"\@&X`_MQZ`&`<2&P!
  4066. +M1"\U6`!A`.5"4$\@3]#\`"0A@%@`4H18A;B&;>`O+P!P+P1(;P`L80#W1$_O
  4067. +M``QZ`"9-8`HO&V$`YMY83U*%NH9M\DS?+/#>_`!(3G4@#Y!\`#2PK`G<90`U
  4068. +M)I[\`"1(YR\T?@`O+`"02&\`.&$`Y\X@+`"0(BP`F$ZZ-!!2@$AX0``O`$AO
  4069. +M`#1A`.D`+"\`0"`&Z8`N@&$`X_Y/[P`4*D`H+P!,8``!9"!O`$A8KP!(2&P!
  4070. +M1B\080#DD%!/)D!@``$L2&\`)$AO`#AA`.JH4$\@+P`HL(9O&BH`8`+<AKJ&
  4071. +M;OH@!NF`+P`O#6$`X^Y03RI`+PTO+P`L+R\`+&$`_"1/[P`,""L`!``;9Q1*
  4072. +MA&802H=F#$JO`$!F!B1O`%!@%%*'80#E5$AL`4@O`&$`Y!I03R1`>`!Z`&``
  4073. +M`)I*K!L^9R!*A&<<(&\`)-'%+T@`($AH__`O+P`D80#SX%!/2H!G;"!O`"31
  4074. +MQ2\*+R@`!$AX``$O$&$`Y*Q/[P`0""H``0`;9SY2J@`,("H`#+"J`!1N'B!J
  4075. +M``12J@`$$+P`"@@J``8`&V<H+PI.NCW\6$]@'E.J``PO"DAX``I.NCG&4$]@
  4076. +M#"\*2'@`"DZZ.;A03U*$<!#:@+BO`"AM`/]B(&\`4+'*9P@O"F$`X]A83R\+
  4077. +M2&\`.&$`YGA03R@O`$Q*@&8`_L(O"V$`X[I83R`$4X`O0`!,2H1F`/Z2+R\`
  4078. +M-$ZZ-&PNKP`H3KHT9"Z-3KHT7EA/2H=G1"`'Y8`O`&$`XEI83R9`*`<D;!MZ
  4079. +M)`=3@N6"*D#;PF`*4X0JDB1J``19C4J$;O(O+P!0+P<O"V$`_$@NBTZZ-!A/
  4080. +M[P`,3-\L]-[\`"1.=;_L"=QE`#+V2.<`%"IO``Q'[!M&8`0F:P`L2JL`+&;V
  4081. +M)TT`+$*M`"Q,WR@`3G4@#Y!\`!"PK`G<90`RPB!O``0O"$AL`4I"ITAX``).
  4082. +MN@HV3^\`$$YU(`]10+"L"=QE`#*<+P<N+P`(,'P``2\(+P=.N@N880#A=DZZ
  4083. +M"RHNAR\`3KHJG$_O``PN'TYUO^P)W&4`,FI(YP$4+B\`&"9O`!0J;P`08```
  4084. +M@A`52(!(P')-D(%G7'(5D(%G%E6`9S15@&<Z5X!G0%N`9TY9@&=28%Y*AV<&
  4085. +M<`*^@&8&<`$G0``(<`&^@&<&(@=5@68Z)T``%&`T0>P6,"=(`!A@*D'L&C`G
  4086. +M2``<8"!![!(P)T@`&&`6<`$G0``D8`YP`2=``"!@!G`!)T``*%*-2A5F`/]\
  4087. +M(`U,WRB`3G4@#Y!\(&2PK`G<90`QNI[\(%1(YP\T+B\@=)?+0J\@/$*O(#A"
  4088. +MKR`T0>P!;"]((#`J;R!X*54*+$*L&T(O2"`L80#C>DAL`6Y.NB906$\I0!LP
  4089. +M9@A![`%V*4@;,$*G2'@``DZZ"G!03TJ`9PY(>OZR2'@``DZZ"EY03T*G2'@`
  4090. +M`4ZZ"E)03TJ`9PY(>OZ42'@``4ZZ"D!03T*G2'@`#4ZZ"C103TJ`9PY(>OYV
  4091. +M2'@`#4ZZ"B)03T*G2'@`#TZZ"A903TJ`9PY(>OY82'@`#TZZ"@103W#_+T`@
  4092. +M3"]`($!#[R!80IE"F4*O(&A"KR!D0IE"KR!40J\@2"`'Y8`O`&$`W]Y83W@!
  4093. +M1>T`!$'M``@O0``@+T`@*"](`"1@``56(%)P*[`09@``_B`+9P@O"V$`_9I8
  4094. +M3TAX`#!A`-^D6$\F0'+_($`A00`,0^@`&$*90IE"J``40J@`"$*H`"A"J``D
  4095. +M0ID@4DOH``$0%7(`$@!(P2`!Y8!#[`HP2K$(`&8(+PAA`/UV6$]Z`&`6$!U(
  4096. +M@$C`(@7E@=*%TH'2@"H!<#":@!`5<@`2`$C!(`'E@$'L"C!*L`@`9M1\`'`N
  4097. +ML!5F,%*-8!80'4B`2,`B!N6!TH;2@=*`+`%P,)R`$!5R`!(`2,$@`>6`0>P*
  4098. +M,$JP"`!FU$J&9@1*A6<()H4G1@`$8`1P_R:`0J<O"R\-80#]3$_O``P@0$H0
  4099. +M9P`$5"\280#\W%A/8``$2"I2$!5R+;`!9@`$+"!22B@``6<`!")2C1`5<@`2
  4100. +M`$C!Y8%![`HP2K`8`&<`!`(@"V8$80`&GGH`8!80'4B`2,`B!>6!TH72@=*`
  4101. +M*@%P,)J`$!5R`!(`2,$@`>6`0>P*,$JP"`!FU'P`<"ZP%68P4HU@%A`=2(!(
  4102. +MP"(&Y8'2AM*!TH`L`7`PG(`0%7(`$@!(P2`!Y8!![`HP2K`(`&;4)T4`#"=&
  4103. +M`!!(>``!+PLO#6$`_()/[P`,($!*$&<(+Q)A`/P46$\O"V$`^]Y83Y?+8``#
  4104. +M=DAX``)(;R!$+PUA`/Q43^\`#"I`($`2$$B!2,%*@6<``S9P5)*`9P`"R'`/
  4105. +MDH!G)E&!9RQ5@6<``AY5@6<``B)9@6<``F!3@6<``F13@6<``MQ@``+@<`$O
  4106. +M0"`\8``"^$HM``%G!%*-8"H@!U.`N(!F%$AL`7Q"ITAX``).N@7:3^\`#&`.
  4107. +M4H0@;P`D*EA8BB](`"0@2B](`!P@"V<(+PMA`/LR6$](>``P80#=/%A/)D!R
  4108. +M_R!`(4$`#$/H`!A"F4*90J@`%$*H``A"J``H0J@`)$*9$!5R`!(`2,$@`>6`
  4109. +M0>P*,$JP"`!F""\280#[%%A/>@!@%A`=2(!(P"(%Y8'2A=*!TH`J`7`PFH`0
  4110. +M%7(`$@!(P2`!Y8!![`HP2K`(`&;42H5G`E.%?`!P+K`59C92C6`6$!U(@$C`
  4111. +M(@;E@=*&TH'2@"P!<#"<@!`5<@`2`$C!(`'E@$'L"C!*L`@`9M1*AF<"4X9*
  4112. +MAF8$2H5G"":%)T8`!&`$</\F@$*G+PLO#6$`^MY/[P`,)$`@0$H09Q1P++`2
  4113. +M9PXD;P`<+Q)A`/ID8```I"!*2^@``21O`!Q*$&<``)9Z`&`6$!U(@$C`(@7E
  4114. +M@=*%TH'2@"H!<#":@!`5<@`2`$C!(`'E@$'L"C!*L`@`9M1\`'`NL!5F-E*-
  4115. +M8!80'4B`2,`B!N6!TH;2@=*`+`%P,)R`$!5R`!(`2,$@`>6`0>P*,$JP"`!F
  4116. +MU$J&9P)3A2=%``PG1@`02'@``2\++PUA`/HL3^\`#"!`2A!G""\280#YOEA/
  4117. +M+PMA`/F(6$^7RV```2!P`2]`(#A@``#X2BT``6<,0>T``2](("Q@``$$(`=3
  4118. +M@+B`9A9(;`&>0J=(>``"3KH#TD_O``Q@``#F4H0@;P`D+U@@+%B*+T@`)&``
  4119. +M`-)P`2E`&SA@``"J2BT``6<*4HT951L\8```FB`'4X"X@&P64H0B;P`D(%D9
  4120. +M4!L\6(HO20`D8```FDAL`<!"ITAX``).N@-P3^\`#&!F2BT``6<(4HTI31LP
  4121. +M8%@@!U.`N(!L$E*$(&\`)"E8&S!8BB](`"1@7$AL`>)"ITAX``).N@,T3^\`
  4122. +M#&`J<`$I0!L^8"(0%4B`2,`O`"!O('PO$$AL`@1(;`EH3KHQ)F$``K!/[P`0
  4123. +M2A5G`E*-2A5F`/R@8!!2AB!O`"`@S2]&(#0O2``@4H18BEBO`"0L+R`TN(=M
  4124. +M`/JD(`MG""\+80#X1EA/*FP;<F!42JT`&&9*2JT`'&9$2JT`"&8^2JT`*&8X
  4125. +M2JT`%&8R2JT`)&8L2JT`(&8F1^\@6$7M`!@DVR3;*V\@2``(*V\@5``4*V\@
  4126. +M9``D)-LK;R!H`"@J;0`L(`UFJ$JL&W)F+DJO(%AF'DJO(%QF&$JO($AF$DJO
  4127. +M(%1F#$JO(&1F!DJO(&!G"DAO($!A`/>T6$\I;R!H&S1*AF8*?`%![R`P+T@@
  4128. +M*"1O("A*KR`\9QHO!B\*80#S9$J`5L%$`4B!2,$N@4ZZ+T103RIO("P@34/L
  4129. +M`B00&+`99@A*`&;V9P``W'H`8!0@32)2$!BP&68&2@!F]F<(4H58BKJ&;>BZ
  4130. +MAF822&P")B\-80#9_E!/)D!@``"N2&P"*"\-80#9["1`80#;%B9`2&P"*B\`
  4131. +M80#9VD_O`!`J0&`4+PTO!$AX``%(;P`T80#:G$_O`!`O"DAX(`!(>``!2&\`
  4132. +M-$ZZ,I9/[P`0*`!NT@@J``4`&V<B+R\@+$AL`BPO+!S,0J=.N@%(80#8K$AX
  4133. +M``).NBZ`3^\`%"\-80#9["Z*80#9YN6%(&\@+"&+6``J;R`P2&P","\-80#9
  4134. +M5D_O``PF0&`$1^P)1B!O("A*KR`X9PPO"R\&+PAA`/*B8`HO"R\&+PAA`/0N
  4135. +M3^\`#&$`V$@O"TZZ,WI83TJ`:A8O#4AL`C(O+!S,2'@``4ZZ`,)/[P`02JP;
  4136. +M0F<B2&P))$ZZ-"183U*`9A1(;`(Z+RP<S$AX``%.N@":3^\`#`@L``4)868.
  4137. +M2&P)1DZZ,_I83U*`9A1(;`(\+RP<S$AX``%.N@!P3^\`#$*G3KHMJEA/3-\L
  4138. +M\-[\(%1.=2`/D'P`#+"L"=QE`"C$+RP*+$AL`DA(;`EH3KHN5DAX``).NBUX
  4139. +M3^\`$$YUO^P)W&4`*)XO!RXO``AO$KZL!_IN#.6'0>P'7B`P>`!@!D'L`N`@
  4140. +M""X?3G4@#Y!\`"BPK`G<90`H;$CG`Q0L+P`8+B\`%"9O`"`J;P`<+RP*+$AL
  4141. +M`O9(;`EH3KHMZBZO`$@O+P!$+R\`1"\O`$0O+P!$+R\`1"\O`$0O"R\-2&P)
  4142. +M:$ZZ+<)/[P`P2H9G&"\&80#_;BZ`2&P"_$AL"6A.NBVF3^\`#`@L``$)@V="
  4143. +M4JP)="`L"72PK`E\;B`@;`EL4JP);!"\``H(+``&"8-G+DAL"6A.NC'V6$]@
  4144. +M(E.L"71(;`EH2'@`"DZZ+;Y03V`.2&P):$AX``I.NBVN4$](;`EH3KHQR%A/
  4145. +M2H=G""\'3KHL8%A/3-\HP$YU``!(YR`R(&\`&$/O`!Q%^@`<)F\`%"0++'D`
  4146. +M```$3J[]]B`+D(),WTP$3G46P$YU``!.N@AP("P<U$YU```@+P`$(&\`"")O
  4147. +M``Q(YP$4+@`F22I(3KH(3G`!OH!M+'`@OH!L)B`+9PX@!^>`0^P;G-/`)MDF
  4148. +MV2`-9PSGAT'L&YS1QR#=(-UP`&`(<!8I0!S,</],WRB`3G4@+P`$(&\`")[\
  4149. +M`!`O2``(0J\`#$'O``A#UV&62H!G"#!\__\@"&`"(!?>_``03G4``"!O``0B
  4150. +M;P`(64](YS,V*DA^`"!L'*@L*`#@+TD`($J&9B!*K`H$9AI![`,<(@@L;!T4
  4151. +M)#P```/M3J[_XBP`9P)^`4J&9S8B!D'L`R8D"$'L"@PF""QL'11.KOZ>(@8D
  4152. +M#28O`"!.KOZ>(@9T"DZN_LA*AV=8(@9.KO_<8%`@;!RH)F@`N#!\__^WR&=`
  4153. +M0^P#+'`E+'@`!$ZN_=@D0$J`9RPI;`H,`Q`I30,4+PH@2RQ*0^P#")7*)F\`
  4154. +M)$ZN_;1,WP0`(DHL>``$3J[^8DS?;,Q83TYU(&\`!$/O``AA`/\J3G4@;P`$
  4155. +M0^\`"&$`_QQP%$ZZ*IY.=0``2.<`!G`(<@`L>``$3J[_.BI`2H!F!'``8"Y"
  4156. +MK0`$2'@`*'``+P!![`-`<@&3R<%!3KH?7E!/*H!F#")-<`A.KO\N<`!@`B`-
  4157. +M3-]@`$YU(&\`!$CG``8J2"`-9Q@@36$``!X@54ZZ'Z(B37`(+'@`!$ZN_RY,
  4158. +MWV``3G4@;P`$2.<`!BI(2JT`!&<4(E4L>``$3J[^(")53J[^)D*M``1,WV``
  4159. +M3G4@;P`$(%`B:``.<``0*0`/<@'AH2`!3G4@;P`$("\`""(O``Q(YP,&+`$N
  4160. +M`"I(8:I*AV8$2H9G'B)5(T<`("-&`"0S?``)`!PL>``$3J[^,G`!*T``!$S?
  4161. +M8,!.=2!O``1(YP`&*DA*K0`$9QPB52QX``1.KOXL2D!G#B)53J[^)D*M``1P
  4162. +M`6`"<`!,WV``3G4O#B`L'+0B`$A!0D'2@"`L'*BS@"E`&X1"K!N(0^P#5'``
  4163. +M+'@`!$ZN_=@I0!N`</].KOZV2(!(P"E``U!*K!N`9PA*@&L$<`%@`G``*4`;
  4164. +MC"Q?3G4O#B`L`U!K""QX``1.KOZP("P;@&<*(D`L>``$3J[^8BQ?3G4@+P`$
  4165. +M44](YP,`+@!.N@4H(`=.N@&02H!G*")`(&D`'')`Y8G"D2](``P@`2!I``0B
  4166. +M;P`,3I$L`"`'3KH!2"`&8`)P_TS?`,!03TYU("\`!"\'+A]@K@``(&\`!"`O
  4167. +M``@B;P`,+V\`$``$+V\`%``(+V\`&``,+V\`'``0+V\`(``4+V\`)``844](
  4168. +MYP<4+@!([P,``!1\`"IL&Y!@%DJM``1F"C!\``$K2``$8`Q2AMK\`"2\K!N4
  4169. +M;>0@+!N4O(!F>'(*TZP;E"`L&Y0B`.>!TH#E@2`!3KHEP"I`2H!F#'`,*4`<
  4170. +MS'#_8```CG#VT*P;E"(`YX'2@.6!(&P;D")-8`(2V%.!9/H@+!N09P8@0$ZZ
  4171. +M)!HI31N0>O;:K!N4(`7G@-"%Y8#;P)?+*TL`!%*%VOP`)+JL&Y1M\"`&YX#0
  4172. +MAN6`(&P;D"&O`!0(!"&'"``AKP`8"`A+[P`@(9T(#"&="!`AG0@42^\`+"&=
  4173. +M"!@AG0@<(9T(("`&3-\HX%!/3G4@+P`$(@!K%K*L&Y1L$"`!YX#0@>6`(&P;
  4174. +MD$*P"`1.=2`O``1(YP$$+@!K'KZL&Y1L&"`'YX#0A^6`*FP;D-O`2JT`!&<$
  4175. +M(`U@"'`)*4`<S'``3-\@@$YU("P;E$YU```@+P`$64\N@$'L`V@@"%A/3G4@
  4176. +M;P`$64\NB$'L`V@@"%A/3G4@+`-H3G4``"!O``193TCG(P(B""QL'11T_DZN
  4177. +M_ZPO0``09SHN+!S,3KK_JBP`8!Y(;P`02'@(!2\&3KH-"$_O``Q*@&8(*4<<
  4178. +MS'``8!)3AFS>(B\`$"QL'11.KO^F</],WT#$6$].=2!O``1(YR$&*DA.N@*^
  4179. +M(@TL;!T43J[_N$J`9P1P`&!03J[_?"X`<F_2@;"!9B`B#70`3J[_1DJ`9PXB
  4180. +M#4ZN_[A*@&<$(`)@*$ZN_WPN`'!ET("^@&8.($UA`/]*2H!F!'``8`P@!TZZ
  4181. +M%W0I0!S,</],WV"$3G4``"`O``193RZ`("P<I&<.($!.NOQB2H!G!'(!8`)R
  4182. +M`"`!6$].=2`O``0@;!RD<@!.^OP(3KK[/"E`'*1F"DAL`XA.NOL86$\@;!RD
  4183. +M3KK[S(&L&YA.=2!L'*1.^OMH".P`#!N:3G4@+P`$"```#%;`1`!(@$C`3G4(
  4184. +M[``-&YI.=2`O``0(```-5L!$`$B`2,!.=4ZZ&8YP`"!L'000*``/<@'AH8.L
  4185. +M&YA.=4[Z&>`@+P`$64](YP$6+T``$'X`8"X@+0`43KH9-B9`2H!G%$JK`!1F
  4186. +M#GX!<`$G0``4)VT`&``8(DUP'"QX``1.KO\N(&P=!"QX``1.KOZ,*D!*@&;`
  4187. +M(`=,WVB`6$].=2`O``1(YP\$+@!P`>^@+`!P";Z`9@9P`$ZZ"Q0@+!R<P(9G
  4188. +M!HVL'*!@>BH&1H7+K!R@2H=K9G`@OH!L8"`'YX!![!N<*G`(`#!\``&[R&8L
  4189. +M(`=5@&<44X!G$'(-D(%G/%F`9SA1@&<T8`I(;`.@3KKYU%A/<`!.N@JV8"`@
  4190. +M#6<<(`?G@"@&0>P;G(BP"`2)K!R<(`=.E4:$R:P<G"`L'*#`AF:*3-\@\$YU
  4191. +M("\`!"\.(BP;F(*`<``L>``$3J[^SBQ?3G4@+P`$+PXB`"`L&YB`@2QX``1.
  4192. +MKO["+%].=2`O``1(YP,`+@!\`&$`_A!*@&<(?`%P#F$`_PP@!V$`_F)*@&<(
  4193. +M?`%P`F$`_OH@!V$`_FI*@&<(?`%P`V$`_N@@!V$`_H9*@&<(?`%P%&$`_M8@
  4194. +M!DS?`,!.=2`O``0O!RE`">1P""X?8`#^O'``80#_8&"08/9(YP$4?@!+[!N<
  4195. +M-GP``2J+0JT`!%*'4(UP(+Z`;?!"K!R@0JP<G$*L&YAA`/W480#]ZF$`_:),
  4196. +MWRB`8`#]^&$`_;A@`/X(``!(;`.T3KKXL%A/3G4@+P`$+PU.NB#\*D!*@&8"
  4197. +M8>(@#2I?3G4@;P`$("\`""\+3KH>\"9`2H!F`F'&(`LF7TYU(&\`!"\-*D@@
  4198. +M#68$2^P#OB!-2AAF_%.(D<T@"%*`3KH@L"!`2H!F!'``8`@B2!+=9OP@""I?
  4199. +M3G593TCG`S1^`'P`(&P<J"9H`-!@+$HK``AF)#`\!0#`:P`.9AI2AR!K``H@
  4200. +M"$H89OQ3B)'`(`C<@-RK`!14AB932I-FT"`'4H#E@-"&80#_2BE`',#EAR!`
  4201. +M(D#3QT7I``0O0``49@I![`.P*4@<P&!6(&P<J"IH`-!@0DHM``AF.C`\!0#`
  4202. +M;0`.9C`F;0`*+BT`%"!O`!0@RB](`!1@`A3;2A-F^A3\`#TF;0`08`(4VR`'
  4203. +M4X=*@&;V0AHJ54J59KH@;P`40I!,WRS`6$].=2!O``0@+P`(+PTJ2"J`0JT`
  4204. +M!.6`80#^M"M```@J7TYU(&\`!")O``@@+P`,2.<B-"9)*DA*@&<*($MA`/["
  4205. +M)$!@`B1+(`IG/B(5)"T`!+2!;2(L`=R&=!#2@KR!;0(B!BJ!(`'E@"!M``A.
  4206. +MNAUN*T``"&<21^T`!"(34IOE@2!;(8H8`'`!3-\L1$YU(&\`!")O``@@+P`,
  4207. +M89)*@&8$80#^&DYU(&\`!")O``A(YP`4)DDJ2"`M``30JP`$L)5O$M"`*H#E
  4208. +M@"!M``AA`/X:*T``""(M``3E@2!M``C1P2`K``0B`.6!(FL`"&`"$-E3@63Z
  4209. +MT:T`!"!K``A,WR@`3OH=7B!O``0B;P`(+V\`#``$("\`$"(O`!193TCG`C0L
  4210. +M`2I))$@O2``02H!G1%.`9PI3@&<``+9@``#T4X9G(B`O`!@B#9"!(&\`$$(P
  4211. +M"``@02)O`!!@`A+84X!D^F```,Y![`/`(F\`$!+89OQ@``"^)F\`&&!N<%RP
  4212. +M%69F2BT``6=@5(UP`;R`9@84_`!A8%0@!E6`9D80+?__2(!(P'(CD(%G+E6`
  4213. +M9RI5@&<F4X!G(E.`9QY3@&<:<A60@6<4<AR0@6<.58!G"G(?D(%G!%6`9@04
  4214. +M_``G%.W__V`(%.W__V`"%-V[RV6.8$`F;P`88#9P*K`59BY*+0`!9RA4C1`M
  4215. +M__](@$C`<F60@6<,<@F0@68,%/P`"F`.%/P`&V`(%.W__V`"%-V[RV7&0A),
  4216. +MWRQ`6$].=9[\`2Q(YS\V*F\!6"!L"@`,:``E`!1D"DAX`!1.NLE*6$]"K`E`
  4217. +M<`$I0`D\*4`)8G`"*4`)7BE`"80I?````(0)@)/)+'@`!$ZN_MHI0!RH3KKU
  4218. +M`"E`'*QF"DAL`\).NO3<6$\@;!RL3KKUD"E`'+`L;!RL(%8L:``4*4X<O$'O
  4219. +M`3!.KO^^*6\!,!RT3KKU^$ZZ^ZP@;!RH("@`K&<0Y8`B0"(I`#3E@2E!'+A@
  4220. +M!BEH`(0<N$H59@``Z$'L`]HB""QL'10D/````^Y.KO_B+`!![`/@(@A.KO_B
  4221. +M+@!![`/F(@A.KO_B*@!*AF<(2H=G!$J%9B)*AF<&(@9.KO_<2H=G!B('3J[_
  4222. +MW$J%9P8B!4ZN_]QA`/MR<`$O`"\%+P`O!R(&P4%.N@VX(&P*!"`H`!Q![P%8
  4223. +M80#\GD_O`!!\`'X`8%`B;`H$(&D`)"`P>`!G/B(`0^\`,"0)+&P=%'9`Y8M.
  4224. +MKOYN2H!G)B)L"@0@:0`DT<<@*``$9P@B`B0`3J[\CD'O`4A#[P`P<`%A`/S8
  4225. +M4H90AR!L"@2\J``<;:9@``+,+&P=%$ZN_\HH`$ZN_\0J`'X`(&P<J"PH`.!F
  4226. +M*'X!0>P#["(()#P```/M3J[_XBP`9A)![`/N(@A.KO_B+`!F!&$`^J0O!R\&
  4227. +M<``O`"\%(@3!04ZZ#.I![P%8<`%A`/O6(#P```4:80#ZCB!`,7P$```2+T``
  4228. +M/'!`Y8AA`/IZ3^\`$'Y`Y8\O0`$X8`)2C1`52(!(P$'L"!T(,``#"`!F[!`5
  4229. +M9P`"%G(BL`%F,%*-)DU@$'`JL!5F"$HM``%G`E*-4HT0%6<&<B*P`6;F)$T0
  4230. +M%7(BL`%F`E*-?`)@5'`GL!5F(%*-)DU@`E*-$!5G!G(GL`%F]"1-<">P%68"
  4231. +M4HU\`6`N)DU@$'!<L!5F"$HM``%G`E*-4HT0%6<2<B"P`6<,<@JP`6<&<@FP
  4232. +M`6;:)$U\`"!+*@J:BR`%4H`O2``H80#YMB9`2J\!3&8@(`4@2R)O`"A.NAAF
  4233. +M0C-8`$'O`4@B2W``80#[8&``_R;:A7(0VH&ZAV\4(&\!.$ZZ&1`@!6$`^78N
  4234. +M!2]``3@O"B`&($LB;P`L<@%A`/NN6$\B"R0O`3@F!RQL'11.KORX*@!L$$(2
  4235. +M+R\`*$AL`_1.NO'B4$]*A68B+PH@!B!+(F\`+'(`80#[=$'O`4PB2W``80#Z
  4236. +MZ%A/8`#^K'H!(&\`+$*H``A"*``10B@`$"\*(`8@2R)O`"QR`F$`^T!![P%`
  4237. +M<!!A`/HF6$\B"R0O`"PL;!T43J[\RB@`9CQ@*GH`(F\`+-+\`1A![P$\<`%A
  4238. +M`/H@2H!F!'AG8!(B+P`L+&P=%$ZN_,0H`$J$9](B+P`L+&P=%$ZN_+YP=-"`
  4239. +MN(!G"DAL!`A.NO$N6$]*A6<B+PH@!B!+(F\`+'(`80#ZP$'O`4PB2W``80#Z
  4240. +M-%A/8`#]^"`O`4`@;P%$3KH3,D'O`4A#[P$\80#Z*B!+3KH7UF``_=8@;P$X
  4241. +M3KH7RB!O`"Q.NA?"80#XDD'L!").N@M^*4`#:&8(0>P$*"E(`VA![`0N3KH+
  4242. +M:"E``WQF!BEL`V@#?$'L!#A.N@M4*4`#@&8(0>P$/BE(`X!![`1"3KH+/BE`
  4243. +M`X1F"$'L!$@I2`.$0>P$4$ZZ"R@I0!S$9@A![`1:*4@<Q"`O`4P@;P%0(FP<
  4244. +MP$ZZ*-)P`$ZZ&OQ,WVS\WOP!+$YU("\`!$CG`P`N`$JL',AG!"`'8&!\`"`'
  4245. +M`H````$D9P)\"`@'``=G!`!&``4(!P`$9P0(Q@`""`<``6<$",8```@'``-G
  4246. +M!`C&``$(!P``9P0(Q@`&(`=R2<"!<D"P@68$`$8`0@@'``EG!`C&``4@!@I`
  4247. +M``],WP#`3G4@+P`$2.<&`"P`2JP<R&<((`8"0`__8%YZ``I&``\(!@`#9P1Z
  4248. +M2>6-(`9R!<"!6X!F!`C%``<(!@`"9P0(Q0`$"`8``&<$",4``2`&<D+`@6<$
  4249. +M",4`!@@&``%G!`C%``,(!@`&9P0(Q0``"`8`!6<$",4`"2`%3-\`8$YU``!(
  4250. +MYP,`3KKRWBX`?`!@"B\&3KKQ1EA/4H:\AVWR3-\`P$YU("\`!"\'+@!AU$ZZ
  4251. +M\+I.NO98(&P<K$ZZ[W@O!TZZPS983RX?3G4@+P`$+P<N'V#4```@+P`$(B\`
  4252. +M""!O``Q13TCG`R0L`2X`*DA.NO74(`=.NO(\2H!G&B)`(&D`("](`!0@!B!I
  4253. +M``0B321O`!1.DF`"</],WR3`4$].=0``GOP`#$CG+S8J;P`T?@/.KP`X?`$@
  4254. +M;!RH)F@`N"H\```#[$ZZ]7Y*AV<*<`*^@&<$<@!@`G(!+T$`*'`!OH!G"%6'
  4255. +M9P1P`&`"<`$O0``L($U#[`1@3KH0NDJ`9@9X_V```51P_R!L'*@A0`"X(@TL
  4256. +M;!T4=/Y.KO^L+@`@;!RH(4L`N$J`9G@L;!T43J[_?$ZZ"B0L`"`L">!R+D8!
  4257. +ML(%G!$J`9@I^`2H\```#[F`6(`95@&8,""\`"``Z9P1P`6`"<``N`$J'9RQ\
  4258. +M``@O``@`.F<<""\`#P`Z9P9X`F```-8@+P`\3KK]AB@`8```R'C_8```PBE&
  4259. +M',QP_V```4)"IRQL'11R`B0/3J[_'$_O``0D0$J`9PPB!R0*3J[_FDJ`9A8@
  4260. +M"F<()`IR`DZN_Q9.N@I^</]@``$(*"H`="0*<@).KO\6(@=.KO^F<%#IB,"O
  4261. +M`#@,@```!0!F#'`1*4`<S'#_8```VDJO`"AG!@@$``-F#$JO`"QG$@@$``)G
  4262. +M#'`-*4`<S'#_8```M@@O``D`.F<B(@TD/````^Y.KO_B2H!G""(`3J[_W&`*
  4263. +M3KH*`G#_8```C`@O``@`.F<$(`5@!B`\```#[20`(@TL;!T43J[_XBH`9@A.
  4264. +MN@G6</]@8`@O``D`.F8$2H9F!"P$8`)\_WX`2J\`*&<"?@%*KP`L9P0(QP`!
  4265. +M""\``P`[9P0(QP`#+P<@!2(&3KH%GEA/+@!L''#_(&P<J"%``+@B!2QL'11.
  4266. +MKO_<(&P<J"%+`+@@!TS?;/3>_``,3G4@;P`$+R\`#"\O``PO"&$`_:A/[P`,
  4267. +M3G6>_``,2-<!`W#_WOP`#$YU44](UP,`4$].=4CG,`(B$$HH``UG!'``8!PD
  4268. +M"28`+&P=%$ZN_]8B`%*`9@A.N@D0</]@`B`!3-]`#$YU44](YS\V+@`J229(
  4269. +M+!,O1@`H+T@`+$HK``UG!G``8```C$HK``QG9B9-U\=Z`&!8)$U@`E**M<MD
  4270. +M!G`*L!)F]+?*9@0H"F`&0>H``2@(F(TB+P`H)`TF!"QL'11.KO_0+`!2@&8(
  4271. +M3KH(FG#_8#[:AK:&9C9+Z@`!GH9P`$ZZ\=Q.NO(,2H!F(DJ'9J1@'"(&)`TF
  4272. +M!RQL'11.KO_0*@!2@&8(3KH(7G#_8`(@!4S?;/Q03TYU64](YS\"+@`L$"]!
  4273. +M`!Q**``-9P1P`&!24X$F`2(&)`<L;!T43J[_OBH`3J[_?"@`4H5G!$J$9PX@
  4274. +M!$ZZ!Q@I0!S,</]@)"(&=``F`DZN_[XL`%*`9P1*A&<.(`1.N@;V*4`<S'#_
  4275. +M8`(@!DS?0/Q83TYUGOP!`$CG/P8N`"I(+!4J+0`(("T`!&<*(@`L;!T43J[_
  4276. +MIA@M``U(A$C$($U.NA&82H1G!'``8$0B!D'O`"`D""QL'11V0.6+3J[^:"@`
  4277. +M2H=F"B(&3J[_W$J`9QI*A&<2</^Z@&<,(@(D!4ZN_T9*@&<$<`!@!DZZ!V1P
  4278. +M_TS?8/S>_`$`3G4@+P`$2.<@`B(`+&P=%'0`3J[_-$ZN_WQT+D8"L()7P40!
  4279. +M2(%(P2`!3-]`!$YU("\`!"!O``@B;P`,GOP`$$CG-Q8N`"9)*DA\`&&X2H!F
  4280. +M?"('+&P=%'0!3J[^5DJ`9VPB!T'L!&@D"'8$3J[_T%F`9E(B!R0\```G$$ZN
  4281. +M_S1*@&="(@=![P`@)`AV$$ZN_]9R";"!;RYPF[`O`"!F)D'O`"4B""0+3J[\
  4282. +MT"H`0>\`)M'`(@@D#4ZN_-!2@&<&4H5G`GP!(@=T`$ZN_E8@!DS?:.S>_``0
  4283. +M3G4@+P`$(B\`")[\`A!(YS\&+@!P_R]``B@O00`D(@<L;!T4=`!V`4ZN_[XO
  4284. +M0``@(@=.KO^^+`!.KO]\*@`O0`(L9@``PB@O`"0B!R0$=O].KOXXL()F``"N
  4285. +MO()L``">*@2:AB@%(`1R`4A!+'@`!$ZN_SHJ0$J`9FIR`DA!3J[_*.*(*@`,
  4286. +MA0```@!M$"`%<@%(04ZN_SHJ0$J`9D9Z0.>-2^\`*#`\`?]R`$'O`"@0P5'(
  4287. +M__Q@++B%;P0@!6`"(`0F`$ZZ[ZXB!R0-+&P=%$ZN_]"P@V<*3J[_?"]``BQ@
  4288. +M!IB#2H1NT$'O`"BQS6<,(DT@!2QX``1.KO\N*B\"+&8$0J\"*"PO`""\KP`D
  4289. +M;`XB!R0&+&P=%';_3J[_OBPO`BAG"B`%3KH$7BE`',P@!DS?8/S>_`(03G6>
  4290. +M_`$(2.<W%BX`)DDJ2"P52BT`#68``1@@!P2````$`&<@!(````0`9TI3@&=8
  4291. +M4X!G7%.`9UY3@&=F4X!G;&```.Y*+0`,9R8@!D'O`21#[P$@80#]UDJ`9Q0@
  4292. +M+P$D-T```B`O`2`V@'``8```RG`98```OB(&+&P=%$ZN_R@F@'``8```LB:&
  4293. +M<`!@``"J<`!@``"D(`8B$V$`_C9@``"8*U,`"'``8```CBH32JT`!&8.(A4L
  4294. +M;!T43J[^C"M```0@+0`$9V(D`"(%+&P=%$ZN_EQ*@&92(@9![P`@)`AV0.6+
  4295. +M3J[^:$J`9SXB!4ZN_Z8B+0`$3J[_IB(&3J[_W"("=`!.KO]&&WP``0`-*H(K
  4296. +M0@`$0>\`("((+&P=%$ZN_[A*@&<$(`)@#DZZ!!Q@!G`6*4`<S'#_3-]H[-[\
  4297. +M`0A.=2`O``0B+P`(+V\`#``$2.</!BHO`!PL`2X`<`Y.N@\^*D!*@&8*<`PI
  4298. +M0!S,</]@3D/5(L="F2+&0BT`#2('+&P=%$ZN_R@;0``,2'K^=$AZ^]I(>OMD
  4299. +M2'KZK$AZ^G9(>OIH(`4@34/Z^E!.NNC@3^\`&"@`;`8@34ZZ#78@!$S?8/!.
  4300. +M=2`O``0B+P`(+V\`#``$+V\`$``(+V\`%``,+V\`&``02.<-`"@O`!0J+P`0
  4301. +M+@!P`$J!9@1P0.6(`$```2\`(`=R_V$`_T983TJ`9D!P`$J$9@1P0.6(`$``
  4302. +M`B\`(`5R_V$`_RA83U.`9B)P`$JO`!QF!'!`Y8@`0``"+P`@+P`<<O]A`/\&
  4303. +M6$]5@&<00>P$;B](`!!,WP"P3OKEY$S?`+!.=0``("\`!"!O``@B+P`,64](
  4304. +MYP,T+`$N`"I(3KKLN"`'3KKI("9`2H!G1`@K``$``V<V""L``P`#9Q8@:P`8
  4305. +M+T@`%"!K``1P`'("(F\`%$Z1(&L`%"](`!0@!B!K``0B321O`!1.DF`(<`TI
  4306. +M0!S,</],WRS`6$].=2`O``0@;P`((B\`#$CG`P1,WR#`8(`@;P`$GOP`0$CG
  4307. +M.Q8J2$ZZ[#8@#6=22A5G3B(-0>\`("0(+&P=%'9`>`!.KOQV+@!M-DZN_WPL
  4308. +M`%*`3KH-;"9`2H!G)+Z&9Q0F!E*#(@TD"TZN_'9*@&\0(`)@#B!"(DL2V&;\
  4309. +M(`M@`G``3-]HW-[\`$!.=2`O``0B+P`(+V\`#``$44](YP<`*B\`&"P!+@!.
  4310. +MNNNT(`=.NN@<2H!G&B)`(&D`&"](`!`@!B(%(&D`!")O`!!.D6`"</],WP#@
  4311. +M4$].=2`O``0B+P`(+V\`#``$2.<'`"HO`!`O10`03-\`X&"@```@+P`$(&\`
  4312. +M""(O``Q93TCG`S0L`2X`*DA.NNM((`=.NN>P)D!*@&<F""L````#9Q@@:P`0
  4313. +M+T@`%"`&(&L`!")-)&\`%$Z28`AP#2E`',QP_TS?+,!83TYU("\`!"!O``@B
  4314. +M+P`,2.<#!$S?(,!@G@``("\`!"E`">!*@&<``(9R9Y"!9P``@E6`9P``@'()
  4315. +MD(%G?%.`9WA3@&=T4X!G<%.`9VQ3@&=H4X!G:%.`9VAR49"!9V93@&=F4X!G
  4316. +M9E.`9V93@&=F4X!G9E6`9V93@&=F4X!G9E.`9V95@&=F4X!G9E.`9V93@&=F
  4317. +M4X!G9E.`9V95@&=F4X!G9E.`9V93@&=F8&AP`&!F<`Q@8G`+8%YP%F!:<`=@
  4318. +M5G`(8%)P$&!.<!%@2G`"8$9P`F!"<!9@/G`'8#IP%F`V<"1@,G`68"YP%F`J
  4319. +M<!Y@)G`28")P)6`><"9@&G`38!9P%F`2<!Q@#G`-8`IP#6`&<`U@`G#_3G4O
  4320. +M#BQL'11.KO]\80#^^BE`',PL7TYU(&\`!"`O``A93TCG`18N`"](`!`@;P`0
  4321. +M*E!@9'`-L"T`"&9:("T`K&<&Y8`@0&`"D<@F2"`M`)RPAV<T("T`H+"'9RP@
  4322. +M+0#@L(=G)"`+9RX@*P`<L(=G&"`K`""PAV<0("L`.+"'9P@@*P`PL(=F#B)-
  4323. +M<&#OB"QX``1.KOZ\*E5*E6:83-]H@%A/3G4@+P`$(B\`"$CG`0(N`"`!4X!G
  4324. +M#%.`9PA3@&<$78!F+"QX``1.KO]\(&P*`-#\`98@!V$`_T@@;`H`T/P!I"`'
  4325. +M80#_.DZN_W9P`&`(<!8I0!S,</],WT"`3G4@+P`$(B\`"$CG!@0L`2H`3KKH
  4326. +MYDJ%:@)$A;JL'-1F#DJ&9P8@!DZZYXIP`&!((`5.N@!N*D!*@&<&2JT`%&<*
  4327. +M<`,I0!S,</]@+"`&9R@B+0`0P4%A`/]8(@!P";R`9A1R`2M!`!0K0``8<!1.
  4328. +MNN=$<`!@`B`!3-\@8$YU```@;P`$2.<`!BI((DTL>``$3J[_!"!-3-]@`$[Z
  4329. +M"%0@+P`$2.<!!"X`*FP<V&`.("T`#+"'9@0@#6`(*E5*E6;N<`!,WR"`3G5(
  4330. +MYR`"0>P<V$ZZ&,H@+!RH(BP<M"0`LX("@@!___\I0AS44H(I0AS0+P$O`$AL
  4331. +M"`!(;!SD3KK?6D_O`!`L>``$3J[]9BE`'0AG$$'L'.1P`$ZZ&-XI0!T$9@I(
  4332. +M;`@.3KK@VEA/3-]`!$YU2.<`!B`L'0AG"B!`+'@`!$ZN_6!*K!T$9S@L>``$
  4333. +M3J[_?&`,(DUP'"QX``1.KO\N(&P=!"QX``1.KOZ,*D!*@&;B(&P=!$ZZL
  4334. +M>``$3J[_=DS?8`!.=0``(&\`!"`O``@B+P`,(F\`$"]O`!0`!"]O`!@`"%E/
  4335. +M2.</-B@O`"PJ+P`H+`$N`"I)+T@`("QX``1.KOUF)D!*@&<P($L@!$ZN_7(D
  4336. +M0$J`9R(@#6<()4T`*"5%`"0@;P`@(`<B2B(&3J[^1$H`9@0@"F`6(`IG!B!*
  4337. +M3J[];"`+9P8@2TZZ%Z!P`$S?;/!83TYU(&\`!$CG``8J2"`-9Q@B32QX``1.
  4338. +MKOX^(&T`#DZZ%W8@34ZN_6Q,WV``3G593T'Y`````"Z(9P@@>?____Q.D%A/
  4339. +M3G593T'Y`````"Z(9P@@>?____Q.D%A/3G5(YP,$*F\`$"!-2AAF_%.(D<TN
  4340. +M"&`*(`9![`E&3KH+5GP`'!U*AF;N0>P)1DZZ#V8@!TS?(,!.=9[\`!!(YP<4
  4341. +M?@!+[P`L8```FG`EL"\`%&8``(`@;P`H4J\`*!`0<@`2`!]``!5P9)*`9SIP
  4342. +M#)*`9PY7@6<&6X%G!F!$)EU@-"P=1^\`'GH'(`9R#\"!0?H`>-'`%I!3B^B&
  4343. +M4X5*A6KH0B\`'V`*(!U![P`73KH"&D?O`!<O"TZZ_TA83]Z`8")2AW``$"\`
  4344. +M%4'L"49.N@JF8!!2AW``$"\`%$'L"49.N@J4(&\`*%*O`"@0$!]``!1F`/]8
  4345. +M0>P)1DZZ#IH@!TS?*.#>_``03G4P,3(S-#4V-S@Y04)#1$5&`````$CG`Q<J
  4346. +M;!T,8!0F57`4T*T`!")-+'@`!$ZN_RXJ2R`-9NA"K!T,8$PJ;!T8<)S0K`G<
  4347. +M)D`@+0`$*4`=&"EM``@)W"XM`!A*@&8>(&P*``QH`"0`%&42($\L"$'M``PL
  4348. +M>``$3J[])"Y&(DL@!RQX``1.KO\N2JP=&&:N3-_HP$YU(&\`!")O``@@4")1
  4349. +M$!BP&68$2@!F]I`A2(!(P$YU(&\`!"`O``A#^O_@<@1.^@>:(&\`!")O``@@
  4350. +M+P`,2H!O"A(0$-$2P5.`9O9.=2!O``0B;P`(<`!R`!`8$AD,``!A;0H,``!Z
  4351. +M;@0$```@#`$`86T*#`$`>FX$!`$`()"!9@1*`6;43G4``"`O``@@;P`$3E7_
  4352. +M]")/<@I.N@)P!D$`,!+!2H!F\"`)$.&_R6;Z0A"0CTY=3G4``"`O``@@;P`$
  4353. +M3E7_]")/(@`"00`'!D$`,!+!YHAF\"`)$.&_R6;Z0A"0CTY=3G4``#`Q,C,T
  4354. +M-38W.#EA8F-D968@+P`((&\`!%%/(D\R``)!``\2^Q#<Z(AF\B`)$.&_R6;Z
  4355. +M0A"0B5!/3G4``"`O``@@;P`$+PA*@$Y5__0B3VP&$/P`+42`<@I.N@'(!D$`
  4356. +M,!+!2H!F\!#AO\EF^D(0(`A.79"?3G4``"!O``0B;P`(2.<P("1(<@`@`28!
  4357. +M#!``*V<(#!``+68$=@%22!`8!```,&T:#```"6X4)`'E@=*"TH%*`V8$TH!@
  4358. +MXI*`8-XB@2`(D(I3@$S?!`Q.=2!O``0O#2I(""T``P`;9C`@+`F,3KH$?BM`
  4359. +M``0K0``09@IP#"E`',QP_V`6*VP)C``4<//!K0`80JT`#$*M``AP`"I?3G4`
  4360. +M`"!O``1(YR`4*D@F36`@<``0$T'L"!T(,``!"`!G"G(`$@!T()*"8`1R`!(`
  4361. +M%L%*$V;<(`U,WR@$3G4``)[\`%!(YS$V0_H`A'``+'@`!$ZN_=@J0$J`9@9P
  4362. +M%$ZZ[')^`"!L"@P>*/__(`=#[P`<8`(2V%.`9/I"-W@<0>\`'"E(":1#[`FL
  4363. +M1^P)P"Q-D<B5RG``(@!T?=2"=BA.KOZD<!1.NNPL3-]LC-[\`%!.=2HJ(%-T
  4364. +M86-K($]V97)F;&]W("HJ``!%6$E4``!I;G1U:71I;VXN;&EB<F%R>0!*@&H`
  4365. +M`!Y$@$J!:@``#$2!80``($2!3G5A```81(!$@4YU2H%J```,1(%A```&1(!.
  4366. +M=2\"2$$T`68``")(0$A!2$(T`&<```:$P3`"2$`T`(3!,`)(0C(")!].=2\#
  4367. +M=A`,00"`9```!N&944,,00@`9```!NF964,,02``9```!N6954-*06L```;C
  4368. +MF5-#-`#FJ$A"0D+FJDA#@,$V`#`"-`-(0<3!D()D```&4T/0@7(`,@-(0^>X
  4369. +M2$#!028?)!].=0``2.=P`"0`9R!*@68$0H!@&"8`QL%(0L3!2$)"0M:"2$'`
  4370. +MP4A`0D#0@TS?``Y.=0``("P*"`1``?0N0$[Z_F```"!O``0@+P`((B\`#%.!
  4371. +M:P2P&&;X4TA2@4J!9@``!)'((`A.=2)O``@@;P`$("\`#"((8`00V6<(4X!D
  4372. +M^&`&0AA3@&3Z(`%.=2)O``@@;P`$("\`#"((2H!O%K')90S3P-'`$2%3@&;Z
  4373. +M8`80V5.`9OH@`4YU(&\`!"`O``A(YP,4+@`J2&82(`UF!'``8&@@34ZZ`&YP
  4374. +M`&!>(`UF"B`'3-\HP$[Z`<@F356+,#Q__\!32,#E@"P`"!,`#V<,#&N``/_^
  4375. +M9@0L*__R(`=.N@&@)D!*@&8$<`!@'KR'8P0@!V`"(`8@32)+8`(2V%.`9/H@
  4376. +M34ZZ``X@"TS?*,!.=2!O``0@"&8"3G59@$CG/#(B+!T,9@XI?````!8<S$S?
  4377. +M3#Q.=2)!L(%O$B0!U*D`!`:"````%+"";`)@""(I``!GU&#@)@$&@P```!"P
  4378. +M@VW&9Q(D0T*"-"H``FNZY8K6@EB#8.@D0#0J``!JJ@BJ``<``$*#-BH``@)#
  4379. +M?__EBTIJ``)K0$?R.`1*:P``:S9"A#@K``("1'__Y8S8@UB$Y(Q8@TIK``)J
  4380. +M!`!$@``U1``":Q(J!.6,-#)(!`)"@`"*0C6%2`1"A#@J``!G3.6,1(1'\DC\
  4381. +M2FL``&L^0H0X*P`"Y8Q"A3HJ``("17__Y8W8A5B$6(/DC$IJ``)J!`!$@``W
  4382. +M1``":Q(J!.6,-#-(!`)"@`"*0C>%2`37J0`()BD`!+:L"!AN#+:I``AF.DJI
  4383. +M``!G-"`L'0P@0+*`9@PI:0``'0Q@$"!H``"RJ```9O8A:0`````@*0`$!H``
  4384. +M```4+'@`!$ZN_RY,WTP\3G4@+P`$2H!F#"E\````%AS,<`!.=4CG/C)6@`*`
  4385. +M_____`R```'__&X``+BPK`@8;@``L"8L'0QG``"H(D.PJ0`(;C(B+!T0LJD`
  4386. +M#&8H1>D`$$I2:Q!"A#@J``("1'__Y8RPA&\:0H0X*@`":PCEC$7R2`1@W"8I
  4387. +M``!G9B)#8+X(Z@`'``!'\@@$0H6PA&<\+`2<@%F&9@0@!&`PY(Y*:@`":@0`
  4388. +M1H``*@#DC3=&``(W10``-44``GH$2D9K#C0R2`0"0H``C$(UAD@$)BD`"):`
  4389. +MEH4C0P`((`I8@$S?3'Q.=2H`L*P(&&H$("P(&"@`!H`````4(BP=$"QX``1.
  4390. +MKO\Z2H!F"BE\````#!S,8,PB0$7I`!`C;!T,```I21T,(T0`!"-L'1``#"8$
  4391. +MEH5G*%F#9R0C0P`(1_)8!#5\@````.2--44``C=%``#DBP!#@``W0P`"8!1"
  4392. +MJ0`(-7R`````Y(P`1(``-40``B`*6(!,WTQ\3G4@;P`$("\`""(O``PB;P`0
  4393. +M64](YP\V+`$N`"I(+TD`('`!OH!C``"R)DW7QB`'58!F)"\++PT@32)++&\`
  4394. +M*$Z64$]*@&\``)(@!B!-(DM.NO@T8```A"`'XH@B!DZZ^X8B3=/`(`8@34ZZ
  4395. +M^!HD37H`>`%@*B\-+PL@2R)-+&\`*$Z64$]*@&H24H75QK7+9PH@!B!+(DI.
  4396. +MNO?LU\92A+B'9=*US6<*(`8@32)*3KKWUB9O`"`@!2(&($TB2V$`_U(@2M'&
  4397. +M(`>0A5.`(@8B2TS?;/!8CV``_SI,WVSP6$].=2`O``1(YP$$+@`J;`G48`@@
  4398. +M;0`$3I`J52`-9O1+[`DD<`;`K0`858!F&"`M``20K0`09PXB+0`<(&T`$,%!
  4399. +M3KKO2"!-*E`@#6;6(`=,WR"`3OKEX"`O``0@;P`(0]!2F2!14ID0@$YU44\@
  4400. +M;P`,0I<O2``$2&\`%"\O`!1!^O_>0^\`"$ZZ"_X@;P`,0A!03R`74$].=0``
  4401. +M("\`!"!O``@O#2(`*DA2E4/M``@@$5*1&X$(#"`9#(````(`;11![0`,(FT`
  4402. +M!'(!P4%.N@'P0JT`""I?3G6>_`(,+PTJ;P(40J\`#$*O``0O30`(2&\"'"\O
  4403. +M`AQ!^O^J0^\`#$ZZ"X903R`O``QG$$'O`!`B;P`(<@'!04ZZ`:8(+0`%`!MF
  4404. +M"`@M``0`&V<$</]@!"`O``0J7][\`@Q.=2`O``0@;P`(64](YP,$+@`J2'P`
  4405. +M'T``#W)!TH'"K0`89@P([0`%`!MP_V```4!P,\"M`!A5@&=0<$Q&`,"M`!AR
  4406. +M0-*!L(%F#`CM``$`&T*M``Q@-`@M``4`&V<&</]@``$,<&Y&`,"M`!AR;D8!
  4407. +ML(%F#`CM``$`&T*M``Q@"G``*T``#&```.8@+0`,L*T`%&PR(&T`!%*M``0@
  4408. +M!Q"`4JT`#`@M``8`&V<.<@J^@68(($U.N@-T+`!*AF<``*H@!F```*H(+0`"
  4409. +M`!MG+D*M``P@+0`<0>\`#W(!3KKM="P`4H!F"`CM``4`&V!R(`93@&=L".T`
  4410. +M!``;8&1*K0`49B`@34ZZ]N1*@&<*".T`!0`;</]@6'``*T``#"MM`!``!"`M
  4411. +M``RPK0`4;0@@34ZZ`OHL``CM``$`&R!M``12K0`$(`<0@%*M``P(+0`&`!MG
  4412. +M#G(*OH%F""!-3KH"SBP`2H9G!"`&8`9R`!('(`%,WR#`6$].=2!O``0@+P`(
  4413. +M(B\`#")O`!!93TCG#Q`L`2X`)DDO2``4(`8B!TZZ^#(J`'@`2H=G!$J&9@9P
  4414. +M`&```/QP,,"K`!AF"G!!T(#`JP`89@P(ZP`%`!MP`&```-YP,\"K`!A5@&=0
  4415. +M<$Q&`,"K`!AR0-*!L(%F#`CK``$`&T*K``Q@-`@K``4`&V<&<`!@``"J<&Y&
  4416. +M`,"K`!AR;D8!L(%F#`CK``$`&T*K``Q@"D*K``QP`&```(1*JP`49DP(*P`"
  4417. +M`!MF1"!+3KKUL$J`9SH(ZP`%`!MP`&!@(&\`%!`8(FL`!!*`4JL`!%*K``Q3
  4418. +MA5*$+T@`%'(*L`%F#@@K``8`&V<&($M.N@&R("L`#+"K`!1L!$J%;L)*A6\6
  4419. +M($M.N@&:("L`'"(%(&\`%$ZZZ[38@"`$(@=.NO:43-\(\%A/3G4@;P`$("\`
  4420. +M""(O``PB;P`044](YP\4+@`J22P!)D@O00`8+T@`'$J'9P1*AF8&<`!@``$X
  4421. +M(`8B!TZZ]N(L`'H`<##`K0`89P9P`&```1YP?D8`P*T`&&<``1)P,\"M`!A3
  4422. +M@&<T<%Q&`,"M`!AR0-*!L(%F%`CM````&P@M``0`&V<6<`!@``#D0JT`"`CM
  4423. +M``4`&W``8```U$JM`!1F+@@M``(`&V8F($U.NO2.2H!G'`CM``4`&W``8```
  4424. +ML$/M``0@41;04IE3F5.&4H5*K0`(9P1*AF[F2H9O``"(""T``@`;9@:\K0`4
  4425. +M;S`@+0`<(@8@2TZZ[!PH`$J&:A`([0`%`!L@!2('3KKU@F!>N(9L!@CM``0`
  4426. +M&]J$8$@@;0`0*T@`!"`M`!PB+0`4(&T`$$ZZZ^`H`&P0".T`!0`;(`4B!TZZ
  4427. +M]4A@)$J$9A`([0`$`!L@!2('3KKU-&`0*T0`"&``_VP@!2('3KKU(DS?*/!0
  4428. +M3TYU```@;P`$2.<!!"I((`UG``"@<$'0@,"M`!AF+"!M`!!#[0`$(LA"F4(M
  4429. +M`"!P`"+`""T`!P`;9P8(K0```!L(K0`$`!M@``"*2JT`%&=$("T`#&H&<@`K
  4430. +M00`,("T`#&<H(BT`'"!M`!#!04ZZZ<(N`%*`9@@([0`%`!M@#+ZM``QG!@CM
  4431. +M``0`&RMM`!``!$*M``QP,,"M`!AF$@@M``<`&V<&</S!K0`8<`!@)'#_8"!^
  4432. +M`$OL"21*K0`89PP@36$`_T9*@&<"?O\J52`-9N@@!TS?((!.=2!O``1(YP$$
  4433. +M*DA^`"`-9P8@+0`89@1P_V!`""T``0`;9P@@34ZZ_PHN`'`,P*T`&&8.2JT`
  4434. +M%&<((&T`$$ZZ]=9"K0`8("T`'$ZZT*)2AV<$2H!G!'#_8`)P`$S?((!.=2!O
  4435. +M``0B;P`(+V\`#``$64](YP\4)F\`("I)+T@`&'X`+"P)D'H`2JL`&&<&($M.
  4436. +MNO]T<``0+0`!<BN0@6<@<C:0@6<&4X!G!&`@?`!R*[(M``)7P$0`2(!(P"H`
  4437. +M8`QZ`7!AL"T``F8"?`!P`!`5<F&0@6<,<A&0@6<:6X!G)&`V2H56P'(!D@``
  4438. +M00$(C(%^0.&/8"A*A5;`<@"2`)(`C(%@&DJ%5L!R`9(``$$!``!!`@",@6`&
  4439. +M<`!@``"`+RP)E"\&+R\`($ZZWU1/[P`,*`!2@&8$<`!@8DJ%9P8(QP`'8#!P
  4440. +M`!`5<F&0@6<,<A&0@6<:6X!G&F`:",<``4AX``(@!'(`3KKH]%A/8`9^`6`"
  4441. +M?@((!@`/9@0(QP`/D<A+ZP`0*L@JR"=$`!PG2``$)T@`#"=(``@JQR`+3-\H
  4442. +M\%A/3G4``"!O``0B;P`(44](YP`42.\#```(2^P))&`$)DTJ4R`-9P9*K0`8
  4443. +M9O(@#68><").NO6L*D!*@&8$<`!@'B!-)HAP(7(`$,%1R/_\+PT@;P`,(F\`
  4444. +M$$ZZ_G183TS?*`!03TYU```@;P`$(F\`""]O``P`!"]O`!``")[\`#1(YR\V
  4445. +M)F\`8"IO`%Q([P,``"Q"+P`[0B\`.D(O`#E"+P`X'WP`(``W0J\`5'#_+T``
  4446. +M4$(O`#9^`'P`1>\`/&!*<``@;P`L$!!R()"!9R)7@&<F48!G$E6`9P97@&<B
  4447. +M8#(??``!`#M@'A]\``$`.F`6'WP``0`Y8`X??``!`#A@!A]\`#``-U*O`"P@
  4448. +M;P`L2A!FKG`!L"\`.V8&'WP`(``W<BH@;P`LLA!F'BQO`#`B5EB6(A$O00!4
  4449. +M;`A$KP!4'T``.U*O`"Q@#$/O`%1.NN^RT:\`+"!O`"P0$'(NL`%F1E*O`"QP
  4450. +M*B!O`"RP$&8<(F\`,"!16)$@$"]``%!L!G#_+T``4%*O`"Q@%D/O`%!.NN]P
  4451. +M*@!F!D*O`%!@!-NO`"P??``@`#=P`"!O`"P0$'),D(%G%'(<D(%G!EF`9PI@
  4452. +M$A]\``(`-F`&'WP``0`V4J\`+"!O`"Q2B")O`"P0$7(`$@`?0``D+T@`)G!0
  4453. +MDH!G``$048%G``$<<`N2@&<``=!3@6=06X%G3%N!9R)3@6<``0)3@6<``.I7
  4454. +M@6<``8!5@6<``/!7@6<``.I@``&X)&\`,'`"L"\`-F8.(%)8DB)0(!,R@&``
  4455. +M`DH@4EB2(E`BDV```CXB;P`P(%%8D2@0:@1^`42$2H=G#$7O`#T??``M`#Q@
  4456. +M(DHO`#IG#$7O`#T??``K`#Q@$$HO`#EG#$7O`#T??``@`#Q\`2`$($I.NNV*
  4457. +M*@`@+P!09@9*A&<``>0@+P!0:@9R`2]!`%`H+P!0F(5O'"!*T<0@!2)*3KKP
  4458. +M_'(P($I@`A#!4X1D^BHO`%#<A2`%4X!F``$$$!*P+P`W9@``^DJO`%!F``#R
  4459. +M0A)@``#L("\`4&H&<`@O0`!0'WP``0`V<`*P+P`V9A`B;P`P(%%8D2`0>``X
  4460. +M`&`*(F\`,"!16)$H$!`O`"1R=;`!9P#_6G)OL`%F'DHO`#AG#$7O`#T??``P
  4461. +M`#Q\`2`$($I.NNSZ8`#_/DHO`#AG$A]\`#``/$7O`#X??`!X`#U\`B`$($I.
  4462. +MNNT6*@`(+P`%`"1F`/\40>\`/$ZZ[@)@`/\((F\`,"!16)$D4"`*9@1%^@#R
  4463. +M($I*&&;\4XB1RBH(("\`4&L$L(5O!"]%`%`L+P!08"!\`2)O`#`@45B1(!`?
  4464. +M0``\0B\`/6`&<`!@``"L1>\`/"`O`%2PAFP(<@`O00!48`2=KP!42B\`.V<>
  4465. +M8`AP`!`:($M.E5.&;/1@!B!+<"!.E5.O`%1L]&!J2H=F#$HO`#EF!DHO`#IG
  4466. +M1A`2<B"P`6<,="NP`F<&="VP`F8R2H9K+K(O`#=F$F`*<``0+P`W($M.E5.O
  4467. +M`%1L\'``$!H@2TZ54X9@"G``$"\`-R!+3I53KP!4;/!@"'``$!H@2TZ54X9L
  4468. +M]"`O`"9,WVSTWOP`-$YU```@;P`$(F\`""]O``P`!"]O`!``")[\``Q(YP`4
  4469. +M)DDJ2"]O`!P`$&`X<"6P+P`,9B8@;P`8L!!F!E*O`!A@&"\++PU#[P`83KK[
  4470. +ME%!/2H!G!B]``!A@"G``$"\`#"!+3I4@;P`8$!@?0``,+T@`&$H`9K9,WR@`
  4471. +MWOP`#$YU(&\`!""(6)!"J``$(4@`"$YU```@;P`$2.<`!BI(2JT`"F<*(DTL
  4472. +M>``$3J[^F!M\`/\`"'#_*T``%'``$"T`#RQX``1.KOZP(DUP(DZN_RY,WV``
  4473. +M3G4``"!O``0@+P`(2.<#%BX`*DAP_RQX``1.KOZV'`!(ADC&(`92@&8$<`!@
  4474. +M8'`B(CP``0`!3J[_.B9`2H!F""`&3J[^L&!$0>L`"B#-%T<`"1=\``0`"$(8
  4475. +M$,:3R4ZN_MHG0``0(`UG"")+3J[^GF`:0>L`&"=(`!1!ZP`4)T@`'$*K`!@7
  4476. +M?``"`"`@"TS?:,!.=2\(+P!.N0``(?Y03TYU``````/L`````0```````&9J
  4477. +M`````0````$````*`````````_(```/J```"LD%04@!!54<`1$5#`$9%0@!*
  4478. +M04X`2E5,`$I53@!-05(`34%9`$Y/5@!/0U0`4T50```````````$````!```
  4479. +M``@````(````#`````P````"````$`````$````4````!P```!@````&````
  4480. +M'`````,````@````!0```"0````+````*`````H````L````"0`(`````$``
  4481. +M````'G9I<G1U86P@;65M;W)Y(&5X:&%U<W1E9```=FER='5A;"!M96UO<GD@
  4482. +M97AH875S=&5D```M`"5S``!E<G)O<B!C;&]S:6YG(&9I;&4``'=R:71E(&5R
  4483. +M<F]R`"5S+W-O<G0E-2XU9"4U+C5D`"5S<V]R="4U+C5D)34N-60``')E860@
  4484. +M97)R;W(``'(`)7,Z(&1I<V]R9&5R(&]N("5S"@!R`'<`<@!W`'(`<@!W`&EN
  4485. +M=F%L:60@9FEE;&0@<W!E8VEF:6-A=&EO;B!@)7,G```M`%1-4$1)4@``+W1M
  4486. +M<```;W!T:6]N(&`M:R<@<F5Q=6ER97,@86X@87)G=6UE;G0``&]P=&EO;B!@
  4487. +M+6\G(')E<75I<F5S(&%N(&%R9W5M96YT``!O<'1I;VX@8"UT)R!R97%U:7)E
  4488. +M<R!A;B!A<F=U;65N=```;W!T:6]N(&`M5"<@<F5Q=6ER97,@86X@87)G=6UE
  4489. +M;G0``"5S.B!U;G)E8V]G;FEZ960@;W!T:6]N(&`M)6,G"@``+0!W`'(`=P`E
  4490. +M<P``=P!F9FQU<V@``"T`=W)I=&4@97)R;W(`57-A9V4Z("5S(%LM8VUU<UT@
  4491. +M6RUT('-E<&%R871O<ET@6RUO(&]U='!U="UF:6QE72!;+50@=&5M<&1I<ET@
  4492. +M6RUB9&9I36YR70H@("`@("`@6RM03U,Q(%LM4$]3,EU=(%LM:R!03U,Q6RQ0
  4493. +M3U,R75T@6V9I;&4N+BY="@````!'3E4@=&5X='5T:6QS(#$N-@````+(``!5
  4494. +M;FMN;W=N('-Y<W1E;2!E<G)O<@``)7,Z(```.B`E<P````!/:P``````%```
  4495. +M`````````````````P1C;VYS;VQE.@``)7,Z(```:6YT=6ET:6]N+FQI8G)A
  4496. +M<GD```!T:6UE<BYD979I8V4`````_____V9I9F\N;&EB<F%R>0``````````
  4497. +M`````````V0``0```````````V8```````````````!&86EL960@=&\@8W)E
  4498. +M871E('1I;65R``!U<V5R(&EN=&5R<G5P=````````$YO(&UE;6]R>0```&$`
  4499. +M1F%I;&5D('1O(&-R96%T92!T:6UE<@``3DE,.@``3DE,.@``3DE,.@``*@!.
  4500. +M24PZ``!);G9A;&ED('=I;&1C87)D("5S`$5R<F]R(&5X<&%N9&EN9R!A<F=U
  4501. +M;65N=',`55-%4@``=7-E<@``55-%4DY!344``$A/344``',Z``!32$5,3`!B
  4502. +M:6XZ<V@``$A/4U1.04U%``!A;6EG80!.24PZ`````)LP('$``$9A:6QE9"!T
  4503. +M;R!I;FET:6%L:7-E($DO3P``86UI9V$@<W!E8VEF:6,@97)R;W(`````!(A5
  4504. +M;FMN;W=N(&5R<F]R`&YO="!O=VYE<@!N;R!S=6-H(&9I;&4@;W(@9&ER96-T
  4505. +M;W)Y`&YO('-U8V@@<')O8V5S<P!I;G1E<G)U<'1E9"!S>7-T96T@8V%L;`!I
  4506. +M+V\@97)R;W(`;F\@<W5C:"!D979I8V4@;W(@861D<F5S<P!A<F=U;65N="!L
  4507. +M:7-T('1O;R!L;VYG``!E>&5C(&9O<FUA="!E<G)O<@!B860@9FEL92!N=6UB
  4508. +M97(`;F\@8VAI;&0@<')O8V5S<P``;F\@;6]R92!P<F]C97-S97,`;F]T(&5N
  4509. +M;W5G:"!M96UO<GD`<&5R;6ES<VEO;B!D96YI960`8F%D(&%D9')E<W,`8FQO
  4510. +M8VL@9&5V:6-E(')E<75I<F5D`&UO=6YT(&1E=FEC97,@8G5S>0``9FEL92!E
  4511. +M>&ES=',`8W)O<W,M9&5V:6-E(&QI;FL`;F\@<W5C:"!D979I8V4``&YO="!A
  4512. +M(&1I<F5C=&]R>0!I<R!A(&1I<F5C=&]R>0``:6YV86QI9"!A<F=U;65N=```
  4513. +M9FEL92!T86)L92!O=F5R9FQO=P!T;V\@;6%N>2!O<&5N(&9I;&5S`&YO="!A
  4514. +M('1Y<&5W<FET97(``'1E>'0@9FEL92!B=7-Y``!F:6QE('1O;R!B:6<``&YO
  4515. +M('-P86-E(&QE9G0@;VX@9&5V:6-E`&EL;&5G86P@<V5E:P``<F5A9"UO;FQY
  4516. +M(&9I;&4@<WES=&5M`'1O;R!M86YY(&QI;FMS``!B<F]K96X@<&EP90!M871H
  4517. +M(&%R9W5M96YT`')E<W5L="!T;V\@;&%R9V4``$DO3R!S=')E86T@96UP='D`
  4518. +M`&9I;&4@;F%M92!T;V\@;&]N9P``9&ER96-T;W)Y(&YO="!E;7!T>0!T;V\@
  4519. +M;6%N>2!S;V9T(&QI;FMS("AL;V]P/RD````$H@``!+````2Z```$U```!.0`
  4520. +M``3\```%!@``!2````4X```%2@``!5H```5L```%?@``!9````6B```%K@``
  4521. +M!<0```78```%Y```!?8```8&```&%@``!B8```8X```&3```!F````9R```&
  4522. +M@@``!I````:H```&M@``!LP```;<```&Z```!O8```<(```'&@``!RX```="
  4523. +M````)@``9&]O<BXE;'@N)6QX``!.;R!M96UO<GD```!````@("`@("`@("`H
  4524. +M*"@H*"`@("`@("`@("`@("`@("`@($@0$!`0$!`0$!`0$!`0$!"$A(2$A(2$
  4525. +MA(2$$!`0$!`0$(&!@8&!@0$!`0$!`0$!`0$!`0$!`0$!`0$!$!`0$!`0@H*"
  4526. +M@H*"`@("`@("`@("`@("`@("`@("`@(0$!`0(```````````````````````
  4527. +M````````````````````````````````````````````````````````````
  4528. +M````````````````````````````````````````````````````````````
  4529. +M```````````````````````````````````/H```"48`````````````````
  4530. +M``````````````````````````EH````````````````````````````````
  4531. +M```````````````````````````````````````````````````````````"
  4532. +M````@``````-__\````.``X```````````````#__P````0`!````````%*B
  4533. +M```)F/__````!``$````````4K@``````````````#L```"(````@````'@`
  4534. +M``!P````:````&````!8````4````$@```!`````.````#````+:```#&```
  4535. +M`W@```-L```']@``!_(```?N```'Z@``!^8```?B```'W@``!]H```?6```'
  4536. +MT@``!\X```?*```'Q@``!\(```>^```'N@``![8```>R```'K@``!ZH```>F
  4537. +M```'H@``!YX```>:```'E@``!Y(```>.```'B@``!X8```>"```'?@``!WH`
  4538. +M``=V```'<@``!VX```=J```'9@``!V(```=>```$G@``"48```DD```)O```
  4539. +:`^P````"````````"<P```FX`````````_)>
  4540. +`
  4541. +end
  4542. diff -rup --new-file baseline/fsf/emacs18/amiga/amiga-extra/amiga/compile.doc amiga/fsf/emacs18/amiga/amiga-extra/amiga/compile.doc
  4543. --- baseline/fsf/emacs18/amiga/amiga-extra/amiga/compile.doc    Wed Dec 31 17:00:00 1969
  4544. +++ amiga/fsf/emacs18/amiga/amiga-extra/amiga/compile.doc    Sat Sep 28 00:00:00 1996
  4545. @@ -0,0 +1,34 @@
  4546. +To compile emacs, you will need SAS C 6.01. If you try to make it work
  4547. +with Aztec C or gcc, you might run into difficulties with the dumping code:
  4548. +- The "small" data model (A4-relative) is used, to get all the variables
  4549. +  in one hunk.
  4550. +- Some variables are declared with the "far" attribute to get them out
  4551. +  of this hunk (and the dumping code depends on this). Move these to
  4552. +  the amiga_data.c module (which is for variables that shouldn't be
  4553. +  dumped).
  4554. +
  4555. +To compile:
  4556. +
  4557. +a) Install my 'unix compatibility' library (available by ftp and on fish
  4558. +   disks).
  4559. +
  4560. +b) Install as usual (see INSTALLATION).
  4561. +
  4562. +c) Compile the C preprocessor (SAS's one has a few problems ...):
  4563. +
  4564. +     cd gnuemacs:cpp
  4565. +     smake
  4566. +
  4567. +d) Compile & dump emacs
  4568. +
  4569. +     stack 20000
  4570. +     cd gnuemacs:src
  4571. +     smake
  4572. +     copy temacs /
  4573. +
  4574. +   (This takes around 20 minutes from scratch on an A2500/30).
  4575. +
  4576. +If all goes well, you should have a new version of emacs ...
  4577. +
  4578. +[Note: The DOC strings are not remade systematically. To change this,
  4579. +edit ymakefile and remove the comment from the rule for xemacs]
  4580. diff -rup --new-file baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/chopps/lisp/amiga-user-name.el amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/chopps/lisp/amiga-user-name.el
  4581. --- baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/chopps/lisp/amiga-user-name.el    Wed Dec 31 17:00:00 1969
  4582. +++ amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/chopps/lisp/amiga-user-name.el    Sat Sep 28 00:00:00 1996
  4583. @@ -0,0 +1,23 @@
  4584. +;;
  4585. +;;  User-Name.el.
  4586. +;;  ------------
  4587. +;;   -ch3/11/93.
  4588. +;;
  4589. +;;  This is a replacement for the (user-full-name) function that comes
  4590. +;;  comes with emacs, so that it fetches the login name from $USERNAME
  4591. +;;  and the full name from $REALNAME.  As is the default on most amiga
  4592. +;;  systems that are running UUCP and related utils.
  4593. +;;
  4594. +;;  It will also check $USER for the login name.
  4595. +;;
  4596. +
  4597. +(defun user-login-name ()
  4598. +  (if (eq nil (getenv "UserName"))
  4599. +      (getenv "User")
  4600. +    (getenv "UserName")))
  4601. +
  4602. +(defun user-full-name ()
  4603. +  (if (eq nil (getenv "RealName"))
  4604. +      (user-login-name)
  4605. +    (getenv "RealName")))
  4606. +
  4607. diff -rup --new-file baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/chopps/lisp/fix-endif-no-comment.el amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/chopps/lisp/fix-endif-no-comment.el
  4608. --- baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/chopps/lisp/fix-endif-no-comment.el    Wed Dec 31 17:00:00 1969
  4609. +++ amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/chopps/lisp/fix-endif-no-comment.el    Sat Sep 28 00:00:00 1996
  4610. @@ -0,0 +1,14 @@
  4611. +;;
  4612. +;;  This small bit of lisp will fix the so common #endif somthing
  4613. +;; (with no comment) code.
  4614. +;;
  4615. +
  4616. +(defun fix-endif-no-comment ()
  4617. +  (interactive)
  4618. +  (save-excursion
  4619. +    (beginning-of-buffer)
  4620. +    (replace-regexp "^#endif \\(.*\\)" "#endif /* \\1 */")
  4621. +    (beginning-of-buffer)
  4622. +    (replace-regexp "^#endif /\\* /\\* \\(.*\\) \\*/ \\*/" "#endif /* \\1 */")))
  4623. +
  4624. +    
  4625. \ No newline at end of file
  4626. diff -rup --new-file baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/chopps/rexx/invoker amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/chopps/rexx/invoker
  4627. --- baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/chopps/rexx/invoker    Wed Dec 31 17:00:00 1969
  4628. +++ amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/chopps/rexx/invoker    Sat Sep 28 00:00:00 1996
  4629. @@ -0,0 +1,286 @@
  4630. +From: chopps@ro-chp.UUCP (Chris Hopps)
  4631. +Subject: Emacs invoker.
  4632. +
  4633. +    This is the newest invoker of mine I am very pleased with it
  4634. +and think it would be good for inclusion in the main distribution.
  4635. +With the included rexx file (and some of the mods to emacs I sent you
  4636. +earlier,) this invoker supports multiple files on the cmd line.  It
  4637. +also supports turning backups off for the files loaded on that line,
  4638. +and a WAIT command that will have Emacs return the prompt only after
  4639. +the files specified on the command line have been killed.  The invoker
  4640. +also checks to see if Emacs is iconified if so it will de-iconify it.
  4641. +It brings emacs to the front and activates it (my mods needed for
  4642. +this.)
  4643. +
  4644. +This makes leaving GNUEmacs up and running all the time very feasable.
  4645. +The invoker can be used for programs like ``Arn'', ``Elm'' or whatever
  4646. +else kind of program that does something with a file after the editor
  4647. +returns.
  4648. +
  4649. +Here is the lisp code required for using the ``WAIT'' option of the
  4650. +invoker.  It should be loaded in the .emacs file.
  4651. +
  4652. +-------8<-------------8<-------------8<-------------8<-------------8<--
  4653. +;; [notify-rexx-wait.el] notification of kill of a buffer to rexx.
  4654. +;; Copyright © 1993 Christian E. Hopps.
  4655. +
  4656. +;; This program is free software; you can redistribute it and/or modify
  4657. +;; it under the terms of the GNU General Public License as published by
  4658. +;; the Free Software Foundation; either version 2 of the License, or
  4659. +;; (at your option) any later version.
  4660. +
  4661. +;; This program is distributed in the hope that it will be useful,
  4662. +;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  4663. +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  4664. +;; GNU General Public License for more details.
  4665. +
  4666. +;; You should have received a copy of the GNU General Public License
  4667. +;; along with this program; if not, write to the Free Software
  4668. +;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  4669. +
  4670. +;; I can be contacted at:
  4671. +;; bix: chopps
  4672. +;; uucp: chopps@ro-chp.UUCP (sycom.mi.org!ro-chp!chopps)
  4673. +
  4674. +(provide 'notify-rexx-wait)
  4675. +
  4676. +(make-variable-buffer-local 'notify-rexx-port)
  4677. +(set-default 'notify-rexx-port nil)
  4678. +
  4679. +;;; Set old-kill-buffer to the internal version
  4680. +;; first check to see if it has already been bound.
  4681. +;; if not then bind it to the internal.
  4682. +;;
  4683. +(if (not (fboundp 'old-rexx-notify-kill-buffer ))
  4684. +    (fset 'old-rexx-notify-kill-buffer (symbol-function 'kill-buffer)))
  4685. +
  4686. +;;; redefine kill-buffer to check to see if it should
  4687. +;;  notify rexx that the buffer is being killed.
  4688. +;;
  4689. +(defun kill-buffer (buffer-strp)
  4690. +  "Notifys rexx that the current buffer is about to be killed. If it has one."
  4691. +  (interactive "bBuffer:")
  4692. +  (let ((buf nil))
  4693. +    (setq buf (get-buffer buffer-strp))
  4694. +    (switch-to-buffer buf)
  4695. +    (if (eq notify-rexx-port nil)
  4696. +    (old-rexx-notify-kill-buffer buffer-strp)
  4697. +      (amiga-arexx-send-command (concat "ADDRESS " notify-rexx-port "; QUIT") t)
  4698. +      (old-rexx-notify-kill-buffer buf))))
  4699. +-------8<-------------8<-------------8<-------------8<-------------8<--
  4700. +
  4701. +Here is the rexx code for the invoker, it can be copied to ``rexx:g.rexx''
  4702. +to be called from wshell with ``[prompt]g myfile.c WAIT'' or copied
  4703. +to ``s:g'' (or somewhere in path) to be called from the AmigaShell 
  4704. +(make sure to set the ``s'' script bit.
  4705. +-------8<-------------8<-------------8<-------------8<-------------8<--
  4706. +/***[g.rexx]***************************************************/
  4707. +/* An invoker for GNU Emacs.
  4708. + * Copyright © 1993 Christian E. Hopps
  4709. + *
  4710. + * FILES/M,WAIT=STICKY/S,NOBACKUPS/S"
  4711. + *
  4712. + * use WAIT or STICKY option to have g.rexx wait for buffers 
  4713. + * to be killed before returning (same as TurboText's ``WAIT''
  4714. + * option or CED's ``STICKY'')
  4715. + *
  4716. + * NOBACKUPS will cause the files loaded by g.rexx not
  4717. + * to perform backup saves.
  4718. + *
  4719. + * all options aply only to FILES that are specified on this
  4720. + * invocation of g.rexx.
  4721. + *
  4722. + * This program is free software; you can redistribute it and/or modify
  4723. + * it under the terms of the GNU General Public License as published by
  4724. + * the Free Software Foundation; either version 2 of the License, or
  4725. + * (at your option) any later version.
  4726. + *
  4727. + * This program is distributed in the hope that it will be useful,
  4728. + * but WITHOUT ANY WARRANTY; without even the implied warranty of
  4729. + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  4730. + * GNU General Public License for more details.
  4731. + *
  4732. + * You should have received a copy of the GNU General Public License
  4733. + * along with this program; if not, write to the Free Software
  4734. + * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  4735. + *
  4736. + * I can be contacted at:
  4737. + * bix: chopps
  4738. + * uucp: chopps@ro-chp.UUCP (sycom.mi.org!ro-chp!chopps)
  4739. + * 
  4740. + */
  4741. + 
  4742. +options results
  4743. +PARSE ARG argv
  4744. +
  4745. +/* wait for buffer to be killed */
  4746. +wait = 0
  4747. +/* files that are being waited on. */
  4748. +waitingfiles = 0
  4749. +
  4750. +/* do not make backups */
  4751. +nobackups = 0
  4752. +
  4753. +/* Parse the args from command line. */
  4754. +idx = 0
  4755. +DO WHILE argv ~= ""
  4756. +    carg = GetNextItem()
  4757. +    uarg = UPPER(carg)
  4758. +    IF uarg = "STICKY" | uarg = "WAIT" THEN
  4759. +    wait = 1
  4760. +    ELSE IF uarg = "NOBACKUPS" THEN
  4761. +    nobackups = 1
  4762. +    ELSE IF uarg = "?" THEN DO
  4763. +    SAY "template: FILES/M,WAIT=STICKY/S,NOBACKUPS/S"
  4764. +    EXIT 0
  4765. +    END
  4766. +    ELSE IF uarg ~= "" THEN DO
  4767. +    IF SUBSTR(uarg,1,5) = "FILES" THEN DO
  4768. +        IF uarg = "FILES" THEN DO
  4769. +        file = GetNextItem()
  4770. +        IF file = "" THEN DO
  4771. +            SAY "template: FILES/M,WAIT=STICKY/S,NOBACKUPS/S"
  4772. +            EXIT 0
  4773. +        END
  4774. +        END
  4775. +        ELSE IF SUBSTR(uarg,6,1) = "=" THEN DO
  4776. +        file = SUBSTR(carg,7)
  4777. +        IF file = "" THEN DO
  4778. +            SAY "template: FILES/M,WAIT=STICKY/S,NOBACKUPS/S"
  4779. +            EXIT 0
  4780. +        END
  4781. +        END
  4782. +
  4783. +    END
  4784. +    ELSE DO
  4785. +        file = carg
  4786. +        IF file = "" THEN DO
  4787. +        SAY "template: FILES/M,WAIT=STICKY/S,NOBACKUPS/S"
  4788. +        EXIT 0
  4789. +        END
  4790. +    END
  4791. +    dir = PRAGMA('Directory')
  4792. +    IF 0 = pos(':',file) THEN DO
  4793. +        IF lc ~= '/' & lc ~= ':' THEN
  4794. +        dir = dir || '/'
  4795. +        filename = dir || file
  4796. +    END
  4797. +    ELSE DO
  4798. +        IF lc ~= '/' & lc ~= ':' THEN
  4799. +        dir = dir || '/'
  4800. +        filename = dir || file
  4801. +    END
  4802. +    filestoload.idx = filename
  4803. +    idx = idx + 1
  4804. +    END
  4805. +END
  4806. +
  4807. +IF wait = 1 THEN DO
  4808. +    start = 1
  4809. +    notifyport = "EMACS_NOTIFY" || start
  4810. +    DO WHILE SHOW('P',notifyport)
  4811. +    start = start + 1
  4812. +    notifyport = "EMACS_NOTIFY" || start
  4813. +    END
  4814. +
  4815. +    notifymp = OPENPORT(notifyport)
  4816. +    IF ~SHOW('P',notifyport) THEN DO
  4817. +    SAY "Cannot initialize the notification port."
  4818. +    EXIT 20
  4819. +    END
  4820. +END
  4821. +
  4822. +/* Load emacs if it is not already running */
  4823. +if (~show('p', 'EMACS1')) THEN DO
  4824. +    ADDRESS COMMAND
  4825. +    'run >NIL: emacs'
  4826. +    'waitforport EMACS1'
  4827. +END
  4828. +
  4829. +ADDRESS EMACS1
  4830. +
  4831. +IF wait = 1 THEN
  4832. +    "(require 'notify-rexx-wait)"
  4833. +
  4834. +/* will return either nil or t */
  4835. +"(symbol-value 'amiga-emacs-iconified)"
  4836. +
  4837. +IF result = "t" THEN
  4838. +    '(amiga-iconify)'
  4839. +
  4840. +fileidx = 0
  4841. +DO WHILE fileidx < idx
  4842. +    '(buffer-name)'
  4843. +    curbuf = RESULT
  4844. +
  4845. +    lisp = ' (progn '
  4846. +    IF curbuf ~= '"*scratch*"' THEN
  4847. +    lisp = lisp || ' (find-file-other-window "' || filestoload.fileidx || '"))'
  4848. +    ELSE
  4849. +    lisp = lisp || ' (find-file "' || filestoload.fileidx || '"))'
  4850. +
  4851. +    ADDRESS EMACS1 lisp
  4852. +
  4853. +    IF nobackups = 1 THEN DO
  4854. +    "(make-local-variable 'make-backup-files)"
  4855. +    '(setq make-backup-files nil)'
  4856. +    END
  4857. +
  4858. +    IF wait = 1 THEN DO
  4859. +    '(setq notify-rexx-port "' || notifyport || '")'
  4860. +    waitingfiles = waitingfiles + 1;
  4861. +    END
  4862. +    fileidx = fileidx + 1
  4863. +END
  4864. +
  4865. +'(amiga-window-to-front)'
  4866. +'(amiga-activate-window)'
  4867. +
  4868. +IF wait = 1 THEN DO
  4869. +    quitflag = 0
  4870. +    DO FOREVER
  4871. +    IF waitingfiles = 0 THEN
  4872. +        EXIT 0
  4873. +    t = WAITPKT(notifyport)
  4874. +
  4875. +    DO FOREVER
  4876. +        p = GETPKT(notifyport)
  4877. +        IF C2D(p) = 0 THEN BREAK
  4878. +        args = GETARG(p)
  4879. +
  4880. +        PARSE VAR args argval args
  4881. +        IF argval = "QUIT" THEN
  4882. +        waitingfiles = waitingfiles - 1
  4883. +
  4884. +        t = REPLY(p,1)
  4885. +    END
  4886. +    END
  4887. +END
  4888. +
  4889. +EXIT 0
  4890. +
  4891. +GetNextItem: PROCEDURE EXPOSE argv
  4892. +ch = LEFT(argv,1)
  4893. +DO WHILE ch = " " | ch = "    "
  4894. +    argv = SUBSTR(argv,2)
  4895. +    ch = LEFT(argv,1)
  4896. +END
  4897. +ch = LEFT(argv,1)
  4898. +IF ch = '"' THEN
  4899. +    PARSE VAR argv '"'string'"' argv
  4900. +ELSE
  4901. +    PARSE VAR argv string argv
  4902. +RETURN string
  4903. +
  4904. +
  4905. +
  4906. +StripWS: PROCEDURE
  4907. +
  4908. +ARG string
  4909. +RETURN string
  4910. +-------8<-------------8<-------------8<-------------8<-------------8<--
  4911. +------------------------
  4912. +The Royal Oak Chophouse >> Chris Hopps
  4913. +Royal Oak, Michigan     >> sycom.mi.org!ro-chp!chopps
  4914. +
  4915. +
  4916. \ No newline at end of file
  4917. diff -rup --new-file baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/chopps/rexx/sayval.rexx amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/chopps/rexx/sayval.rexx
  4918. --- baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/chopps/rexx/sayval.rexx    Wed Dec 31 17:00:00 1969
  4919. +++ amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/chopps/rexx/sayval.rexx    Sat Sep 28 00:00:00 1996
  4920. @@ -0,0 +1,29 @@
  4921. +/* sayval.rexx
  4922. + * -----------
  4923. + *  -ch3/18/93.
  4924. + *
  4925. + *  call from dos prompt:
  4926. + *
  4927. + *  sayval <some-emacs-symbol-name>
  4928. + *
  4929. + * ex:  sayval amiga-emacs-iconified
  4930. + * 
  4931. + *  Christian E. Hopps.
  4932. + */
  4933. +
  4934. +/* get the first arg from the command line and store in symbol */
  4935. +parse arg symbol
  4936. +
  4937. +/* address the emacs port */
  4938. +address EMACS1
  4939. +
  4940. +/* ask for full results */
  4941. +options results 
  4942. +
  4943. +/* construct lisp inside emacs this will look like this
  4944. + *
  4945. + * (symbol-value 'some-variable-name) */
  4946. +
  4947. +/* call function by quoting the lisp code. */
  4948. +"(symbol-value '" || symbol || ")"
  4949. +say RESULT
  4950. diff -rup --new-file baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/dgay/README amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/dgay/README
  4951. --- baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/dgay/README    Wed Dec 31 17:00:00 1969
  4952. +++ amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/dgay/README    Sat Sep 28 00:00:00 1996
  4953. @@ -0,0 +1,50 @@
  4954. +dtags allows you to quickly lookup the autodocs for the AmigaOS functions
  4955. +while programming. It is a modification of the emacs TAGS facility.
  4956. +
  4957. +For example, you have forgotten the parameters for MakeLink. Your buffer contains:
  4958. +
  4959. +  if (MakeLink(
  4960. +
  4961. +you press the magic key (in my case M-g), and you get in an other buffer:
  4962. +
  4963. +dos.library/MakeLink                                     dos.library/MakeLink
  4964. +
  4965. +   NAME
  4966. +    MakeLink -- Creates a filesystem link (V36)
  4967. +
  4968. +   SYNOPSIS
  4969. +   [...]
  4970. +
  4971. +which should solve all your problems ...
  4972. +
  4973. +To install this facility, you must:
  4974. +
  4975. +a) Have an assign of DOCS: to the directory containing the AmigaOS 2.0 autodocs.
  4976. +
  4977. +b) Copy dtags.el and dtags.elc to your lisp directory (probably gnuemacs:lisp).
  4978. +
  4979. +c) Execute the make-dtags.el file once (with M-x load-file). This will create
  4980. +a file called DTAGS in DOCS: to help emacs find the functions in the autodocs.
  4981. +
  4982. +d) Add the following lines to your .emacs file:
  4983. +
  4984. +(autoload 'visit-dtags-table "dtags" nil t)
  4985. +(autoload 'doc-tag "dtags" nil t)
  4986. +(autoload 'dtags-search "dtags" nil t)
  4987. +(autoload 'list-dtags "dtags" nil t)
  4988. +(autoload 'dtags-apropos "dtags" nil t)
  4989. +(autoload 'make-dtags "dtags" nil t)
  4990. +
  4991. +and optionally a key definition to execute doc-tag (the autodoc lookup function):
  4992. +
  4993. +(define-key global-map "\M-g" 'doc-tag)
  4994. +
  4995. +Usage:
  4996. +-----
  4997. +
  4998. +You just press M-g (if you chose that key). Emacs will prompt you for the
  4999. +function to lookup, but it will propose as a default a word near your
  5000. +cursor. Once this has been chosen, emacs will display the appropriate autodoc.
  5001. +You can enter a substring of the function name, in which case emacs will display
  5002. +the first one that matches it. If you want to see other functions containing the
  5003. +same substring, press M-, (or M-x tags-loop-continue).
  5004. diff -rup --new-file baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/dgay/dtags.el amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/dgay/dtags.el
  5005. --- baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/dgay/dtags.el    Wed Dec 31 17:00:00 1969
  5006. +++ amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/dgay/dtags.el    Sat Sep 28 00:00:00 1996
  5007. @@ -0,0 +1,237 @@
  5008. +;; Dtags facility for Emacs.
  5009. +;; Copyright (C) 1985, 1986, 1988 Free Software Foundation, Inc.
  5010. +
  5011. +;; This file is part of GNU Emacs.
  5012. +
  5013. +;; GNU Emacs is distributed in the hope that it will be useful,
  5014. +;; but WITHOUT ANY WARRANTY.  No author or distributor
  5015. +;; accepts responsibility to anyone for the consequences of using it
  5016. +;; or for whether it serves any particular purpose or works at all,
  5017. +;; unless he says so in writing.  Refer to the GNU Emacs General Public
  5018. +;; License for full details.
  5019. +
  5020. +;; Everyone is granted permission to copy, modify and redistribute
  5021. +;; GNU Emacs, but only under the conditions described in the
  5022. +;; GNU Emacs General Public License.   A copy of this license is
  5023. +;; supposed to have been given to you along with GNU Emacs so you
  5024. +;; can know your rights and responsibilities.  It should be in a
  5025. +;; file named COPYING.  Among other things, the copyright notice
  5026. +;; and this notice must be preserved on all copies.
  5027. +
  5028. +
  5029. +(provide 'dtags)
  5030. +(load "tags")
  5031. +
  5032. +(defvar dtag-table-files nil
  5033. +  "List of file names covered by current dtag table.
  5034. +nil means it has not been computed yet; do (dtag-table-files) to compute it.")
  5035. +
  5036. +(defvar dtags-file-name "docs:DTAGS"
  5037. +  "Where to find the doc tags, use visit-dtags-table to change it.")
  5038. +
  5039. +(defun visit-dtags-table (file)
  5040. +  "Tell dtags commands to use tag table file FILE.
  5041. +FILE should be the name of a file created with the `etags' program.
  5042. +A directory name is ok too; it means file TAGS in that directory."
  5043. +  (interactive (list (read-file-name "Visit tags table: (default TAGS) "
  5044. +                     default-directory
  5045. +                     (concat default-directory "TAGS")
  5046. +                     t)))
  5047. +  (setq file (expand-file-name file))
  5048. +  (if (file-directory-p file)
  5049. +      (setq file (concat file "DTAGS")))
  5050. +  (setq dtag-table-files nil
  5051. +    dtags-file-name file))
  5052. +
  5053. +(defun visit-dtags-table-buffer ()
  5054. +  "Select the buffer containing the current tag table.
  5055. +This is a file whose name is in the variable tags-file-name."
  5056. +  (or dtags-file-name
  5057. +      (call-interactively 'visit-dtags-table))
  5058. +  (set-buffer (or (get-file-buffer dtags-file-name)
  5059. +          (progn
  5060. +            (setq dtag-table-files nil)
  5061. +            (find-file-noselect dtags-file-name))))
  5062. +  (or (verify-visited-file-modtime (get-file-buffer dtags-file-name))
  5063. +      (cond ((yes-or-no-p "Dtags file has changed, read new contents? ")
  5064. +         (revert-buffer t t)
  5065. +         (setq dtag-table-files nil))))
  5066. +  (or (eq (char-after 1) ?\^L)
  5067. +      (error "File %s not a valid dtag table" dtags-file-name)))
  5068. +
  5069. +(defun dtag-table-files ()
  5070. +  "Return a list of files in the current dtag table.
  5071. +File names returned are absolute."
  5072. +  (save-excursion
  5073. +   (visit-dtags-table-buffer)
  5074. +   (or dtag-table-files
  5075. +       (let (files)
  5076. +    (goto-char (point-min))
  5077. +    (while (not (eobp))
  5078. +      (forward-line 1)
  5079. +      (end-of-line)
  5080. +      (skip-chars-backward "^,\n")
  5081. +      (setq prev (point))
  5082. +      (setq size (read (current-buffer)))
  5083. +      (goto-char prev)
  5084. +      (setq files (cons (expand-file-name
  5085. +                 (buffer-substring (1- (point))
  5086. +                           (save-excursion
  5087. +                         (beginning-of-line)
  5088. +                         (point)))
  5089. +                 (file-name-directory dtags-file-name))
  5090. +                files))
  5091. +      (forward-line 1)
  5092. +      (forward-char size))
  5093. +    (setq dtag-table-files (nreverse files))))))
  5094. +
  5095. +(defun doc-tag (tagname &optional next)
  5096. +  "Find tag (in current tag table) whose name contains TAGNAME.
  5097. + Selects the buffer that the tag is contained in
  5098. +and puts point at its definition.
  5099. + If TAGNAME is a null string, the expression in the buffer
  5100. +around or before point is used as the tag name.
  5101. + If second arg NEXT is non-nil (interactively, with prefix arg),
  5102. +searches for the next tag in the tag table
  5103. +that matches the tagname used in the previous find-tag.
  5104. +
  5105. +See documentation of variable tags-file-name."
  5106. +  (interactive (if current-prefix-arg
  5107. +           '(nil t)
  5108. +         (find-tag-tag "Find tag: ")))
  5109. +  (let (buffer file linebeg startpos)
  5110. +    (save-excursion
  5111. +     (visit-dtags-table-buffer)
  5112. +     (if (not next)
  5113. +     (goto-char (point-min))
  5114. +       (setq tagname last-tag))
  5115. +     (setq last-tag tagname)
  5116. +     (while (progn
  5117. +          (if (not (search-forward tagname nil t))
  5118. +          (error "No %sentries containing %s"
  5119. +             (if next "more " "") tagname))
  5120. +          (not (looking-at "[^\n\177]*\177"))))
  5121. +     (search-forward "\177")
  5122. +     (setq file (expand-file-name (file-of-tag)
  5123. +                  (file-name-directory dtags-file-name)))
  5124. +     (setq linebeg
  5125. +       (buffer-substring (1- (point))
  5126. +                 (save-excursion (beginning-of-line) (point))))
  5127. +     (search-forward ",")
  5128. +     (setq startpos (read (current-buffer))))
  5129. +    (let ((win (selected-window)))
  5130. +      (find-file-other-window file)
  5131. +      (widen)
  5132. +      (push-mark)
  5133. +      (let ((offset 1000)
  5134. +        found
  5135. +        (pat (concat (regexp-quote linebeg) "[ \t]")))
  5136. +    (or startpos (setq startpos (point-min)))
  5137. +    (while (and (not found)
  5138. +            (progn
  5139. +              (goto-char (- startpos offset))
  5140. +              (not (bobp))))
  5141. +      (setq found
  5142. +        (re-search-forward pat (+ startpos offset) t))
  5143. +      (setq offset (* 3 offset)))
  5144. +    (or found
  5145. +        (re-search-forward pat nil t)
  5146. +        (error "%s not found in %s" pat file)))
  5147. +      (beginning-of-line)
  5148. +      (recenter 0)
  5149. +      (select-window win)))
  5150. +  (setq tags-loop-form '(doc-tag nil t))
  5151. +  ;; Return t in case used as the tags-loop-form.
  5152. +  t)
  5153. +
  5154. +(defun dtags-search (regexp)
  5155. +  "Search through all files listed in tag table for match for REGEXP.
  5156. +Stops when a match is found.
  5157. +To continue searching for next match, use command \\[tags-loop-continue].
  5158. +
  5159. +See documentation of variable tags-file-name."
  5160. +  (interactive "sTags search (regexp): ")
  5161. +  (if (and (equal regexp "")
  5162. +       (eq (car tags-loop-form) 're-search-forward))
  5163. +      (tags-loop-continue nil)
  5164. +    (setq tags-loop-form
  5165. +      (list 're-search-forward regexp nil t))
  5166. +    (setq next-file-list (dtag-table-files))
  5167. +    (next-file)
  5168. +    (tags-loop-continue)))
  5169. +
  5170. +(defun list-dtags (string)
  5171. +  "Display list of dtags in file FILE.
  5172. +FILE should not contain a directory spec
  5173. +unless it has one in the dtag table."
  5174. +  (interactive "sList dtags (in file): ")
  5175. +  (with-output-to-temp-buffer "*Dtags List*"
  5176. +    (princ "Dtags in file ")
  5177. +    (princ string)
  5178. +    (terpri)
  5179. +    (save-excursion
  5180. +     (visit-dtags-table-buffer)
  5181. +     (goto-char 1)
  5182. +     (search-forward (concat "\f\n" string ","))
  5183. +     (forward-line 1)
  5184. +     (while (not (or (eobp) (looking-at "\f")))
  5185. +       (princ (buffer-substring (point)
  5186. +                (progn (skip-chars-forward "^\177")
  5187. +                       (point))))
  5188. +       (terpri)
  5189. +       (forward-line 1)))))
  5190. +
  5191. +(defun dtags-apropos (string)
  5192. +  "Display list of all dtags in dtag table REGEXP matches."
  5193. +  (interactive "sDtag apropos (regexp): ")
  5194. +  (with-output-to-temp-buffer "*Dtags List*"
  5195. +    (princ "Dtags matching regexp ")
  5196. +    (prin1 string)
  5197. +    (terpri)
  5198. +    (save-excursion
  5199. +     (visit-dtags-table-buffer)
  5200. +     (goto-char 1)
  5201. +     (while (re-search-forward string nil t)
  5202. +       (beginning-of-line)
  5203. +       (princ (buffer-substring (point)
  5204. +                (progn (skip-chars-forward "^\177")
  5205. +                       (point))))
  5206. +       (terpri)
  5207. +       (forward-line 1)))))
  5208. +
  5209. +(defun make-dtags (file)
  5210. +  (interactive "FDoc file: ")
  5211. +  (setq file (expand-file-name file))
  5212. +  (save-excursion
  5213. +    (find-file-noselect dtags-file-name)
  5214. +    (let ((buf-doc (get-buffer-create "*make-doc-temp*"))
  5215. +      (buf-tags (get-buffer-create dtags-file-name)))
  5216. +      ; First, create the header for the tags
  5217. +      (set-buffer buf-tags)
  5218. +      (goto-char (point-max))
  5219. +      (insert ?\f ?\n file ?,)
  5220. +      (let ((size-pos (point)))
  5221. +    (insert ?\n)
  5222. +    ; Now, we prepare the doc file
  5223. +    (set-buffer buf-doc)
  5224. +        (erase-buffer)
  5225. +    (insert-file file)
  5226. +    (goto-char (point-min))
  5227. +        ; We are now ready to find entries
  5228. +    (while (and (search-forward "\f" nil t)
  5229. +            (progn
  5230. +              (skip-chars-forward "\n")
  5231. +              (not (eobp))))
  5232. +      (let ((beg (point)))
  5233. +        (skip-chars-forward "^ \t")
  5234. +        (let ((fn (buffer-substring beg (point)))
  5235. +          (line (1+ (count-lines 1 beg))))
  5236. +          (set-buffer buf-tags)
  5237. +          (insert fn 127 (int-to-string line) ?, (int-to-string beg) ?\n)
  5238. +          (set-buffer buf-doc))))
  5239. +    (set-buffer buf-tags)
  5240. +    (let ((size (- (point) size-pos 1)))
  5241. +      (goto-char size-pos)
  5242. +      (insert (int-to-string size))))))
  5243. +  (pop-to-buffer (get-buffer dtags-file-name) t))
  5244. +
  5245. Binary files baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/dgay/dtags.elc and amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/dgay/dtags.elc differ
  5246. diff -rup --new-file baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/dgay/make-dtags.el amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/dgay/make-dtags.el
  5247. --- baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/dgay/make-dtags.el    Wed Dec 31 17:00:00 1969
  5248. +++ amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/dgay/make-dtags.el    Sat Sep 28 00:00:00 1996
  5249. @@ -0,0 +1,47 @@
  5250. +(require 'dtags)
  5251. +(make-dtags "docs:amiga.lib.doc")
  5252. +(make-dtags "docs:asl.doc")
  5253. +(make-dtags "docs:audio.doc")
  5254. +(make-dtags "docs:battclock.doc")
  5255. +(make-dtags "docs:battmem.doc")
  5256. +(make-dtags "docs:cia.doc")
  5257. +(make-dtags "docs:clipboard.doc")
  5258. +(make-dtags "docs:commodities.doc")
  5259. +(make-dtags "docs:console.doc")
  5260. +(make-dtags "docs:cx_lib.doc")
  5261. +(make-dtags "docs:debug.doc")
  5262. +(make-dtags "docs:disk.doc")
  5263. +(make-dtags "docs:diskfont.doc")
  5264. +(make-dtags "docs:dos.doc")
  5265. +(make-dtags "docs:exec.doc")
  5266. +(make-dtags "docs:expansion.doc")
  5267. +(make-dtags "docs:filesysres.doc")
  5268. +(make-dtags "docs:gadtools.doc")
  5269. +(make-dtags "docs:gameport.doc")
  5270. +(make-dtags "docs:graphics.doc")
  5271. +(make-dtags "docs:icon.doc")
  5272. +(make-dtags "docs:iffparse.doc")
  5273. +(make-dtags "docs:input.doc")
  5274. +(make-dtags "docs:intuition.doc")
  5275. +(make-dtags "docs:keyboard.doc")
  5276. +(make-dtags "docs:keymap.doc")
  5277. +(make-dtags "docs:layers.doc")
  5278. +(make-dtags "docs:mathffp.doc")
  5279. +(make-dtags "docs:mathieeedoubbas.doc")
  5280. +(make-dtags "docs:mathieeedoubtrans.doc")
  5281. +(make-dtags "docs:mathieeesingbas.doc")
  5282. +(make-dtags "docs:mathieeesingtrans.doc")
  5283. +(make-dtags "docs:mathtrans.doc")
  5284. +(make-dtags "docs:misc.doc")
  5285. +(make-dtags "docs:narrator.doc")
  5286. +(make-dtags "docs:parallel.doc")
  5287. +(make-dtags "docs:potgo.doc")
  5288. +(make-dtags "docs:printer.doc")
  5289. +(make-dtags "docs:rexxsyslib.doc")
  5290. +(make-dtags "docs:serial.doc")
  5291. +(make-dtags "docs:timer.doc")
  5292. +(make-dtags "docs:trackdisk.doc")
  5293. +(make-dtags "docs:translator.doc")
  5294. +(make-dtags "docs:utility.doc")
  5295. +(make-dtags "docs:wb.doc")
  5296. +
  5297. diff -rup --new-file baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/hessu/README amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/hessu/README
  5298. --- baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/hessu/README    Wed Dec 31 17:00:00 1969
  5299. +++ amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/hessu/README    Sat Sep 28 00:00:00 1996
  5300. @@ -0,0 +1,45 @@
  5301. +This directory contains several utilities sent by Tapio Hesikanen.
  5302. +
  5303. +Here follow a few explanations:
  5304. +
  5305. +From: hessu@fipnet.fi (Tapio Heiskanen)
  5306. +To: dgay@di.epfl.ch
  5307. +Subject: Here's a couple of software for you
  5308. +
  5309. +I was in need of fakemail and movemail, so I made them with some help of my
  5310. +friend. Both of those programs are in GNUEmacs distibution, so I thought if
  5311. +you'd like to include them.
  5312. +
  5313. +They should be developed further, but they fill my needs.
  5314. +If you make any changes to them, please send sources and binaries to me.
  5315. +
  5316. +I suppose you know how the progs should work so I won't write any docs for
  5317. +them.
  5318. +
  5319. +I also have an AREXX version of inews made up. If you would like to have,
  5320. +I could send to you. Maybe it should be in C, but REXX was enough for me.
  5321. +
  5322. +--
  5323. + Tapio (hessu) Heiskanen  _|_  Internet: hessu@diode.fipnet.fi
  5324. +  Sarkiniementie 11 B 18  \ /  ICBM: 60 08 58 N / 24 52 53 E
  5325. +         00210  HELSINKI  _Y_  Telephone: +358 0 678284
  5326. +                 FINLAND   |   Data: +358 0 6822206
  5327. +
  5328. +From: hessu@fipnet.fi (Tapio Heiskanen)
  5329. +To: dgay@di.epfl.ch
  5330. +Subject: Re: GNU Emacs 18.58, Amiga port 1.24
  5331. +
  5332. +[...]
  5333. +
  5334. +BTW: Included is a emacs.rexx script I made to ease my life. It checks first
  5335. +if the REXX-port exists and then starts emacs or just sends a rexx command
  5336. +respectively.
  5337. +
  5338. +--
  5339. + Tapio (hessu) Heiskanen  _|_  Internet: hessu@diode.fipnet.fi
  5340. +  Sarkiniementie 11 B 18  \ /  ICBM: 60 08 58 N / 24 52 53 E
  5341. +         00210  HELSINKI  _Y_  Telephone: +358 0 678284
  5342. +                 FINLAND   |   Data: +358 0 6822206
  5343. +
  5344. +distinews.lha contains directions for installing GNUS, the emacs news-reader,
  5345. +and a replacement for the inews command.
  5346. Binary files baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/hessu/distinews.lha and amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/hessu/distinews.lha differ
  5347. diff -rup --new-file baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/hessu/emacs.rexx amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/hessu/emacs.rexx
  5348. --- baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/hessu/emacs.rexx    Wed Dec 31 17:00:00 1969
  5349. +++ amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/hessu/emacs.rexx    Sat Sep 28 00:00:00 1996
  5350. @@ -0,0 +1,25 @@
  5351. +/* emacs.rexx */
  5352. +
  5353. +
  5354. +parse arg params
  5355. +id=pragma('id')
  5356. +
  5357. +if ~show('P', 'EMACS1') then do
  5358. +    if ~open(out, 't:emacs', 'w') then do
  5359. +        say "EMACS.REXX: Can't open temporary file!"
  5360. +        exit 5
  5361. +    end
  5362. +    call writeln(out, 'stack 49152')
  5363. +    call writeln(out, 'run >nil: <nil: temacs' params)
  5364. +    call writeln(out, 'stack 16384')
  5365. +    call close(out)
  5366. +    address command 'execute t:emacs'
  5367. +    exit
  5368. +end
  5369. +
  5370. +
  5371. +if word(params,1)='-f' then do
  5372. +    address 'EMACS1' '('subword(params, 2)')'
  5373. +    exit
  5374. +end
  5375. +address 'EMACS1' '(find-file "'params'")'
  5376. diff -rup --new-file baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/hessu/fakemail/cc amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/hessu/fakemail/cc
  5377. --- baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/hessu/fakemail/cc    Wed Dec 31 17:00:00 1969
  5378. +++ amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/hessu/fakemail/cc    Sat Sep 28 00:00:00 1996
  5379. @@ -0,0 +1,6 @@
  5380. +older fakemail.o fakemail.c
  5381. +if warn
  5382. +   incver version.h
  5383. +endif
  5384. +lc -L -M -E fakemail.c
  5385. +protect fakemail +p
  5386. Binary files baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/hessu/fakemail/fakemail and amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/hessu/fakemail/fakemail differ
  5387. diff -rup --new-file baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/hessu/fakemail/fakemail.c amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/hessu/fakemail/fakemail.c
  5388. --- baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/hessu/fakemail/fakemail.c    Wed Dec 31 17:00:00 1969
  5389. +++ amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/hessu/fakemail/fakemail.c    Sat Sep 28 00:00:00 1996
  5390. @@ -0,0 +1,68 @@
  5391. +/*
  5392. + * FAKEMAIL.C
  5393. + *
  5394. + * compile: cc
  5395. + *
  5396. + * Written by Tapio Heiskanen
  5397. + *
  5398. + * Copyright (c) 1992 Ferry Island Technologies
  5399. + * All rights reserved
  5400. + *
  5401. + * Created: 20-Jul-92
  5402. + */
  5403. +
  5404. +#include "version.h"
  5405. +
  5406. +#include <proto/dos.h>
  5407. +#include <stdio.h>
  5408. +#include <stdlib.h>
  5409. +
  5410. +char *version="$VER: fakemail V"VERSION;
  5411. +
  5412. +void main(int ac, char **arg)
  5413. +    {
  5414. +    char buf[256], hdr[256], name[256];
  5415. +    FILE *fifo, *sign;
  5416. +    int header=1;
  5417. +
  5418. +    sprintf(name, "T:fakemail%d", (int)name);
  5419. +
  5420. +    if(!(fifo=fopen(name, "w")))
  5421. +        {
  5422. +        printf("FAKEMAIL: Can't open temporary file %s\n", name);
  5423. +        exit(10);
  5424. +        }
  5425. +
  5426. +/* pipe stdin to t:<name> */
  5427. +
  5428. +    while(fgets(buf, 256, stdin))
  5429. +        {
  5430. +        if(*buf=='\n' && header)
  5431. +            if(sign=fopen("uulib:.fakemailhdrs", "r"))
  5432. +                {        
  5433. +                while(fgets(hdr, 256, sign))
  5434. +                    fputs(hdr, fifo);
  5435. +                fclose(sign);
  5436. +                header=0;
  5437. +                }
  5438. +        fputs(buf, fifo);
  5439. +        }
  5440. +
  5441. +
  5442. +/* cat uulib:.signature to t:<name> */
  5443. +
  5444. +    if(sign=fopen("uulib:.signature", "r"))
  5445. +        {        
  5446. +        while(fgets(buf, 256, sign))
  5447. +            fputs(buf, fifo);
  5448. +        fclose(sign);
  5449. +        }
  5450. +    fclose(fifo);
  5451. +
  5452. +/* give the file for sendmail */
  5453. +
  5454. +    sprintf(name, "sendmail -f $user <T:fakemail%d", (int)name);
  5455. +    Execute(name, 0, 0);
  5456. +    sprintf(name, "T:fakemail%d", (int)name);
  5457. +    remove(name);
  5458. +    }
  5459. diff -rup --new-file baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/hessu/fakemail/sascopts amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/hessu/fakemail/sascopts
  5460. --- baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/hessu/fakemail/sascopts    Wed Dec 31 17:00:00 1969
  5461. +++ amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/hessu/fakemail/sascopts    Sat Sep 28 00:00:00 1996
  5462. @@ -0,0 +1,7 @@
  5463. +-rr
  5464. +-v
  5465. +-cs
  5466. +-ms
  5467. +-Lc
  5468. +-Ld
  5469. +-Pfakemail
  5470. diff -rup --new-file baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/hessu/fakemail/version.h amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/hessu/fakemail/version.h
  5471. --- baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/hessu/fakemail/version.h    Wed Dec 31 17:00:00 1969
  5472. +++ amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/hessu/fakemail/version.h    Sat Sep 28 00:00:00 1996
  5473. @@ -0,0 +1 @@
  5474. +#define VERSION "0.06"
  5475. diff -rup --new-file baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/hessu/movemail/cc amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/hessu/movemail/cc
  5476. --- baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/hessu/movemail/cc    Wed Dec 31 17:00:00 1969
  5477. +++ amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/hessu/movemail/cc    Sat Sep 28 00:00:00 1996
  5478. @@ -0,0 +1,6 @@
  5479. +older movemail.o movemail.c
  5480. +if warn
  5481. +   incver version.h
  5482. +endif
  5483. +lc -L -M -E movemail.c
  5484. +protect movemail +p
  5485. Binary files baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/hessu/movemail/movemail and amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/hessu/movemail/movemail differ
  5486. diff -rup --new-file baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/hessu/movemail/movemail.c amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/hessu/movemail/movemail.c
  5487. --- baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/hessu/movemail/movemail.c    Wed Dec 31 17:00:00 1969
  5488. +++ amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/hessu/movemail/movemail.c    Sat Sep 28 00:00:00 1996
  5489. @@ -0,0 +1,44 @@
  5490. +/*
  5491. + * MOVEMAIL.C
  5492. + *
  5493. + * compile: cc
  5494. + *
  5495. + * Written by Tapio Heiskanen
  5496. + *
  5497. + * Copyright (c) 1992 Ferry Island Technologies
  5498. + * All rights reserved
  5499. + *
  5500. + * Created: 22-Jul-92
  5501. + */
  5502. +
  5503. +#include "version.h"
  5504. +
  5505. +#include <proto/dos.h>
  5506. +#include <stdio.h>
  5507. +#include <stdlib.h>
  5508. +
  5509. +char *version="$VER: movemail V"VERSION;
  5510. +
  5511. +void main(int ac, char **arg)
  5512. +    {
  5513. +    char buf[256];
  5514. +    FILE *tofile, *spoolfile;
  5515. +
  5516. +    if(!(spoolfile=fopen(arg[1], "r")))
  5517. +        {
  5518. +        printf("movemail: Can't open spool file %s\n", arg[1]);
  5519. +        exit(10);
  5520. +        }
  5521. +
  5522. +    if(!(tofile=fopen(arg[2], "a")))
  5523. +        {
  5524. +        printf("movemail: Can't open to file %s\n", arg[2]);
  5525. +        exit(10);
  5526. +        }
  5527. +
  5528. +    while(fgets(buf, 256, spoolfile))
  5529. +        fputs(buf, tofile);
  5530. +
  5531. +    fcloseall();
  5532. +    remove(arg[1]);
  5533. +    }
  5534. diff -rup --new-file baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/hessu/movemail/sascopts amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/hessu/movemail/sascopts
  5535. --- baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/hessu/movemail/sascopts    Wed Dec 31 17:00:00 1969
  5536. +++ amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/hessu/movemail/sascopts    Sat Sep 28 00:00:00 1996
  5537. @@ -0,0 +1,7 @@
  5538. +-rr
  5539. +-v
  5540. +-cs
  5541. +-ms
  5542. +-Lc
  5543. +-Ld
  5544. +-Pmovemail
  5545. diff -rup --new-file baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/hessu/movemail/version.h amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/hessu/movemail/version.h
  5546. --- baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/hessu/movemail/version.h    Wed Dec 31 17:00:00 1969
  5547. +++ amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/hessu/movemail/version.h    Sat Sep 28 00:00:00 1996
  5548. @@ -0,0 +1 @@
  5549. +#define VERSION "0.02"
  5550. diff -rup --new-file baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/kaiser/README amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/kaiser/README
  5551. --- baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/kaiser/README    Wed Dec 31 17:00:00 1969
  5552. +++ amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/kaiser/README    Sat Sep 28 00:00:00 1996
  5553. @@ -0,0 +1,24 @@
  5554. +Hi David !
  5555. +
  5556. +Just got your Emacs-port for my A 3000 - good work ! As I didn't have a
  5557. +tool for creating public screens, too, I simply wrote one. It's appended
  5558. +here (uuencoded). If you like it, include it in your next distribution.
  5559. +
  5560. +Regards, Michael
  5561. +
  5562. +------------------------------------------------------------------------------
  5563. +Michael Kaiser                                     / Only my personal opinions
  5564. +Universitaet Karlsruhe
  5565. +Institut fuer Prozessrechentechnik und Robotik    Internet : kaiser@ira.uka.de
  5566. +Postfach 6980                                     Tel.     : +49 721 608-4051
  5567. +D-7500 Karlsruhe 1, FR Germany                    FAX      : +49 721 606-740
  5568. +------------------------------------------------------------------------------
  5569. +Privat:
  5570. +Rintheimer Strasse 59                                     // Have you
  5571. +D-7500 Karlsruhe 1, FR Germany                           // hugged
  5572. +                                                     \\ // your 
  5573. +Tel.  : (+49) (721) 61 18 19                          \X/ Amiga today ?
  5574. +Komm. : Michael_Kaiser@KA.maus.de                        [A3000/20/260]
  5575. +------------------------------------------------------------------------------
  5576. +"Die schiessen auf mein schoenes Auto ... !"                         (Canardo)
  5577. +------------------------------------------------------------------------------
  5578. Binary files baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/kaiser/pub and amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/kaiser/pub differ
  5579. diff -rup --new-file baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/COPYING amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/COPYING
  5580. --- baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/COPYING    Wed Dec 31 17:00:00 1969
  5581. +++ amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/COPYING    Sat Sep 28 00:00:00 1996
  5582. @@ -0,0 +1,339 @@
  5583. +            GNU GENERAL PUBLIC LICENSE
  5584. +               Version 2, June 1991
  5585. +
  5586. + Copyright (C) 1989, 1991 Free Software Foundation, Inc.
  5587. +                          675 Mass Ave, Cambridge, MA 02139, USA
  5588. + Everyone is permitted to copy and distribute verbatim copies
  5589. + of this license document, but changing it is not allowed.
  5590. +
  5591. +                Preamble
  5592. +
  5593. +  The licenses for most software are designed to take away your
  5594. +freedom to share and change it.  By contrast, the GNU General Public
  5595. +License is intended to guarantee your freedom to share and change free
  5596. +software--to make sure the software is free for all its users.  This
  5597. +General Public License applies to most of the Free Software
  5598. +Foundation's software and to any other program whose authors commit to
  5599. +using it.  (Some other Free Software Foundation software is covered by
  5600. +the GNU Library General Public License instead.)  You can apply it to
  5601. +your programs, too.
  5602. +
  5603. +  When we speak of free software, we are referring to freedom, not
  5604. +price.  Our General Public Licenses are designed to make sure that you
  5605. +have the freedom to distribute copies of free software (and charge for
  5606. +this service if you wish), that you receive source code or can get it
  5607. +if you want it, that you can change the software or use pieces of it
  5608. +in new free programs; and that you know you can do these things.
  5609. +
  5610. +  To protect your rights, we need to make restrictions that forbid
  5611. +anyone to deny you these rights or to ask you to surrender the rights.
  5612. +These restrictions translate to certain responsibilities for you if you
  5613. +distribute copies of the software, or if you modify it.
  5614. +
  5615. +  For example, if you distribute copies of such a program, whether
  5616. +gratis or for a fee, you must give the recipients all the rights that
  5617. +you have.  You must make sure that they, too, receive or can get the
  5618. +source code.  And you must show them these terms so they know their
  5619. +rights.
  5620. +
  5621. +  We protect your rights with two steps: (1) copyright the software, and
  5622. +(2) offer you this license which gives you legal permission to copy,
  5623. +distribute and/or modify the software.
  5624. +
  5625. +  Also, for each author's protection and ours, we want to make certain
  5626. +that everyone understands that there is no warranty for this free
  5627. +software.  If the software is modified by someone else and passed on, we
  5628. +want its recipients to know that what they have is not the original, so
  5629. +that any problems introduced by others will not reflect on the original
  5630. +authors' reputations.
  5631. +
  5632. +  Finally, any free program is threatened constantly by software
  5633. +patents.  We wish to avoid the danger that redistributors of a free
  5634. +program will individually obtain patent licenses, in effect making the
  5635. +program proprietary.  To prevent this, we have made it clear that any
  5636. +patent must be licensed for everyone's free use or not licensed at all.
  5637. +
  5638. +  The precise terms and conditions for copying, distribution and
  5639. +modification follow.
  5640. +
  5641. +            GNU GENERAL PUBLIC LICENSE
  5642. +   TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
  5643. +
  5644. +  0. This License applies to any program or other work which contains
  5645. +a notice placed by the copyright holder saying it may be distributed
  5646. +under the terms of this General Public License.  The "Program", below,
  5647. +refers to any such program or work, and a "work based on the Program"
  5648. +means either the Program or any derivative work under copyright law:
  5649. +that is to say, a work containing the Program or a portion of it,
  5650. +either verbatim or with modifications and/or translated into another
  5651. +language.  (Hereinafter, translation is included without limitation in
  5652. +the term "modification".)  Each licensee is addressed as "you".
  5653. +
  5654. +Activities other than copying, distribution and modification are not
  5655. +covered by this License; they are outside its scope.  The act of
  5656. +running the Program is not restricted, and the output from the Program
  5657. +is covered only if its contents constitute a work based on the
  5658. +Program (independent of having been made by running the Program).
  5659. +Whether that is true depends on what the Program does.
  5660. +
  5661. +  1. You may copy and distribute verbatim copies of the Program's
  5662. +source code as you receive it, in any medium, provided that you
  5663. +conspicuously and appropriately publish on each copy an appropriate
  5664. +copyright notice and disclaimer of warranty; keep intact all the
  5665. +notices that refer to this License and to the absence of any warranty;
  5666. +and give any other recipients of the Program a copy of this License
  5667. +along with the Program.
  5668. +
  5669. +You may charge a fee for the physical act of transferring a copy, and
  5670. +you may at your option offer warranty protection in exchange for a fee.
  5671. +
  5672. +  2. You may modify your copy or copies of the Program or any portion
  5673. +of it, thus forming a work based on the Program, and copy and
  5674. +distribute such modifications or work under the terms of Section 1
  5675. +above, provided that you also meet all of these conditions:
  5676. +
  5677. +    a) You must cause the modified files to carry prominent notices
  5678. +    stating that you changed the files and the date of any change.
  5679. +
  5680. +    b) You must cause any work that you distribute or publish, that in
  5681. +    whole or in part contains or is derived from the Program or any
  5682. +    part thereof, to be licensed as a whole at no charge to all third
  5683. +    parties under the terms of this License.
  5684. +
  5685. +    c) If the modified program normally reads commands interactively
  5686. +    when run, you must cause it, when started running for such
  5687. +    interactive use in the most ordinary way, to print or display an
  5688. +    announcement including an appropriate copyright notice and a
  5689. +    notice that there is no warranty (or else, saying that you provide
  5690. +    a warranty) and that users may redistribute the program under
  5691. +    these conditions, and telling the user how to view a copy of this
  5692. +    License.  (Exception: if the Program itself is interactive but
  5693. +    does not normally print such an announcement, your work based on
  5694. +    the Program is not required to print an announcement.)
  5695. +
  5696. +These requirements apply to the modified work as a whole.  If
  5697. +identifiable sections of that work are not derived from the Program,
  5698. +and can be reasonably considered independent and separate works in
  5699. +themselves, then this License, and its terms, do not apply to those
  5700. +sections when you distribute them as separate works.  But when you
  5701. +distribute the same sections as part of a whole which is a work based
  5702. +on the Program, the distribution of the whole must be on the terms of
  5703. +this License, whose permissions for other licensees extend to the
  5704. +entire whole, and thus to each and every part regardless of who wrote it.
  5705. +
  5706. +Thus, it is not the intent of this section to claim rights or contest
  5707. +your rights to work written entirely by you; rather, the intent is to
  5708. +exercise the right to control the distribution of derivative or
  5709. +collective works based on the Program.
  5710. +
  5711. +In addition, mere aggregation of another work not based on the Program
  5712. +with the Program (or with a work based on the Program) on a volume of
  5713. +a storage or distribution medium does not bring the other work under
  5714. +the scope of this License.
  5715. +
  5716. +  3. You may copy and distribute the Program (or a work based on it,
  5717. +under Section 2) in object code or executable form under the terms of
  5718. +Sections 1 and 2 above provided that you also do one of the following:
  5719. +
  5720. +    a) Accompany it with the complete corresponding machine-readable
  5721. +    source code, which must be distributed under the terms of Sections
  5722. +    1 and 2 above on a medium customarily used for software interchange; or,
  5723. +
  5724. +    b) Accompany it with a written offer, valid for at least three
  5725. +    years, to give any third party, for a charge no more than your
  5726. +    cost of physically performing source distribution, a complete
  5727. +    machine-readable copy of the corresponding source code, to be
  5728. +    distributed under the terms of Sections 1 and 2 above on a medium
  5729. +    customarily used for software interchange; or,
  5730. +
  5731. +    c) Accompany it with the information you received as to the offer
  5732. +    to distribute corresponding source code.  (This alternative is
  5733. +    allowed only for noncommercial distribution and only if you
  5734. +    received the program in object code or executable form with such
  5735. +    an offer, in accord with Subsection b above.)
  5736. +
  5737. +The source code for a work means the preferred form of the work for
  5738. +making modifications to it.  For an executable work, complete source
  5739. +code means all the source code for all modules it contains, plus any
  5740. +associated interface definition files, plus the scripts used to
  5741. +control compilation and installation of the executable.  However, as a
  5742. +special exception, the source code distributed need not include
  5743. +anything that is normally distributed (in either source or binary
  5744. +form) with the major components (compiler, kernel, and so on) of the
  5745. +operating system on which the executable runs, unless that component
  5746. +itself accompanies the executable.
  5747. +
  5748. +If distribution of executable or object code is made by offering
  5749. +access to copy from a designated place, then offering equivalent
  5750. +access to copy the source code from the same place counts as
  5751. +distribution of the source code, even though third parties are not
  5752. +compelled to copy the source along with the object code.
  5753. +
  5754. +  4. You may not copy, modify, sublicense, or distribute the Program
  5755. +except as expressly provided under this License.  Any attempt
  5756. +otherwise to copy, modify, sublicense or distribute the Program is
  5757. +void, and will automatically terminate your rights under this License.
  5758. +However, parties who have received copies, or rights, from you under
  5759. +this License will not have their licenses terminated so long as such
  5760. +parties remain in full compliance.
  5761. +
  5762. +  5. You are not required to accept this License, since you have not
  5763. +signed it.  However, nothing else grants you permission to modify or
  5764. +distribute the Program or its derivative works.  These actions are
  5765. +prohibited by law if you do not accept this License.  Therefore, by
  5766. +modifying or distributing the Program (or any work based on the
  5767. +Program), you indicate your acceptance of this License to do so, and
  5768. +all its terms and conditions for copying, distributing or modifying
  5769. +the Program or works based on it.
  5770. +
  5771. +  6. Each time you redistribute the Program (or any work based on the
  5772. +Program), the recipient automatically receives a license from the
  5773. +original licensor to copy, distribute or modify the Program subject to
  5774. +these terms and conditions.  You may not impose any further
  5775. +restrictions on the recipients' exercise of the rights granted herein.
  5776. +You are not responsible for enforcing compliance by third parties to
  5777. +this License.
  5778. +
  5779. +  7. If, as a consequence of a court judgment or allegation of patent
  5780. +infringement or for any other reason (not limited to patent issues),
  5781. +conditions are imposed on you (whether by court order, agreement or
  5782. +otherwise) that contradict the conditions of this License, they do not
  5783. +excuse you from the conditions of this License.  If you cannot
  5784. +distribute so as to satisfy simultaneously your obligations under this
  5785. +License and any other pertinent obligations, then as a consequence you
  5786. +may not distribute the Program at all.  For example, if a patent
  5787. +license would not permit royalty-free redistribution of the Program by
  5788. +all those who receive copies directly or indirectly through you, then
  5789. +the only way you could satisfy both it and this License would be to
  5790. +refrain entirely from distribution of the Program.
  5791. +
  5792. +If any portion of this section is held invalid or unenforceable under
  5793. +any particular circumstance, the balance of the section is intended to
  5794. +apply and the section as a whole is intended to apply in other
  5795. +circumstances.
  5796. +
  5797. +It is not the purpose of this section to induce you to infringe any
  5798. +patents or other property right claims or to contest validity of any
  5799. +such claims; this section has the sole purpose of protecting the
  5800. +integrity of the free software distribution system, which is
  5801. +implemented by public license practices.  Many people have made
  5802. +generous contributions to the wide range of software distributed
  5803. +through that system in reliance on consistent application of that
  5804. +system; it is up to the author/donor to decide if he or she is willing
  5805. +to distribute software through any other system and a licensee cannot
  5806. +impose that choice.
  5807. +
  5808. +This section is intended to make thoroughly clear what is believed to
  5809. +be a consequence of the rest of this License.
  5810. +
  5811. +  8. If the distribution and/or use of the Program is restricted in
  5812. +certain countries either by patents or by copyrighted interfaces, the
  5813. +original copyright holder who places the Program under this License
  5814. +may add an explicit geographical distribution limitation excluding
  5815. +those countries, so that distribution is permitted only in or among
  5816. +countries not thus excluded.  In such case, this License incorporates
  5817. +the limitation as if written in the body of this License.
  5818. +
  5819. +  9. The Free Software Foundation may publish revised and/or new versions
  5820. +of the General Public License from time to time.  Such new versions will
  5821. +be similar in spirit to the present version, but may differ in detail to
  5822. +address new problems or concerns.
  5823. +
  5824. +Each version is given a distinguishing version number.  If the Program
  5825. +specifies a version number of this License which applies to it and "any
  5826. +later version", you have the option of following the terms and conditions
  5827. +either of that version or of any later version published by the Free
  5828. +Software Foundation.  If the Program does not specify a version number of
  5829. +this License, you may choose any version ever published by the Free Software
  5830. +Foundation.
  5831. +
  5832. +  10. If you wish to incorporate parts of the Program into other free
  5833. +programs whose distribution conditions are different, write to the author
  5834. +to ask for permission.  For software which is copyrighted by the Free
  5835. +Software Foundation, write to the Free Software Foundation; we sometimes
  5836. +make exceptions for this.  Our decision will be guided by the two goals
  5837. +of preserving the free status of all derivatives of our free software and
  5838. +of promoting the sharing and reuse of software generally.
  5839. +
  5840. +                NO WARRANTY
  5841. +
  5842. +  11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY
  5843. +FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW.  EXCEPT WHEN
  5844. +OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES
  5845. +PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED
  5846. +OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
  5847. +MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.  THE ENTIRE RISK AS
  5848. +TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU.  SHOULD THE
  5849. +PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING,
  5850. +REPAIR OR CORRECTION.
  5851. +
  5852. +  12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
  5853. +WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
  5854. +REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES,
  5855. +INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING
  5856. +OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED
  5857. +TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY
  5858. +YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER
  5859. +PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE
  5860. +POSSIBILITY OF SUCH DAMAGES.
  5861. +
  5862. +             END OF TERMS AND CONDITIONS
  5863. +
  5864. +    Appendix: How to Apply These Terms to Your New Programs
  5865. +
  5866. +  If you develop a new program, and you want it to be of the greatest
  5867. +possible use to the public, the best way to achieve this is to make it
  5868. +free software which everyone can redistribute and change under these terms.
  5869. +
  5870. +  To do so, attach the following notices to the program.  It is safest
  5871. +to attach them to the start of each source file to most effectively
  5872. +convey the exclusion of warranty; and each file should have at least
  5873. +the "copyright" line and a pointer to where the full notice is found.
  5874. +
  5875. +    <one line to give the program's name and a brief idea of what it does.>
  5876. +    Copyright (C) 19yy  <name of author>
  5877. +
  5878. +    This program is free software; you can redistribute it and/or modify
  5879. +    it under the terms of the GNU General Public License as published by
  5880. +    the Free Software Foundation; either version 2 of the License, or
  5881. +    (at your option) any later version.
  5882. +
  5883. +    This program is distributed in the hope that it will be useful,
  5884. +    but WITHOUT ANY WARRANTY; without even the implied warranty of
  5885. +    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  5886. +    GNU General Public License for more details.
  5887. +
  5888. +    You should have received a copy of the GNU General Public License
  5889. +    along with this program; if not, write to the Free Software
  5890. +    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  5891. +
  5892. +Also add information on how to contact you by electronic and paper mail.
  5893. +
  5894. +If the program is interactive, make it output a short notice like this
  5895. +when it starts in an interactive mode:
  5896. +
  5897. +    Gnomovision version 69, Copyright (C) 19yy name of author
  5898. +    Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
  5899. +    This is free software, and you are welcome to redistribute it
  5900. +    under certain conditions; type `show c' for details.
  5901. +
  5902. +The hypothetical commands `show w' and `show c' should show the appropriate
  5903. +parts of the General Public License.  Of course, the commands you use may
  5904. +be called something other than `show w' and `show c'; they could even be
  5905. +mouse-clicks or menu items--whatever suits your program.
  5906. +
  5907. +You should also get your employer (if you work as a programmer) or your
  5908. +school, if any, to sign a "copyright disclaimer" for the program, if
  5909. +necessary.  Here is a sample; alter the names:
  5910. +
  5911. +  Yoyodyne, Inc., hereby disclaims all copyright interest in the program
  5912. +  `Gnomovision' (which makes passes at compilers) written by James Hacker.
  5913. +
  5914. +  <signature of Ty Coon>, 1 April 1989
  5915. +  Ty Coon, President of Vice
  5916. +
  5917. +This General Public License does not permit incorporating your program into
  5918. +proprietary programs.  If your program is a subroutine library, you may
  5919. +consider it more useful to permit linking proprietary applications with the
  5920. +library.  If this is what you want to do, use the GNU Library General
  5921. +Public License instead of this License.
  5922. Binary files baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/COPYING.info and amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/COPYING.info differ
  5923. Binary files baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/Emacs.info and amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/Emacs.info differ
  5924. Binary files baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/icons/def_asm.info and amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/icons/def_asm.info differ
  5925. Binary files baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/icons/def_c.info and amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/icons/def_c.info differ
  5926. Binary files baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/icons/def_el.info and amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/icons/def_el.info differ
  5927. Binary files baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/icons/def_emacs.info and amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/icons/def_emacs.info differ
  5928. Binary files baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/icons/def_h.info and amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/icons/def_h.info differ
  5929. Binary files baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/icons/def_rexx.info and amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/icons/def_rexx.info differ
  5930. diff -rup --new-file baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/icons.el amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/icons.el
  5931. --- baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/icons.el    Wed Dec 31 17:00:00 1969
  5932. +++ amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/icons.el    Sat Sep 28 00:00:00 1996
  5933. @@ -0,0 +1,49 @@
  5934. +;;
  5935. +;;      A new icon-creating scheme.
  5936. +;;  When creating icons, the following replacement routine searches
  5937. +;;  for icons of the name "def_<extension>.info".
  5938. +;;  The routine searches first in the directories specified by the
  5939. +;;  user in the variable "amiga-icon-path" and then in "env:Icons/".
  5940. +;;  The directories in the list must contain the trailing slash.
  5941. +;;
  5942. +;;  If it can't find any appropriate icons, and the file
  5943. +;;  "env:Icons/def_emacs.info" exists, it is used. Otherwise
  5944. +;;  the original function is called.
  5945. +;;
  5946. +;;  Note that icons are only created when the variable
  5947. +;;  "amiga-create-icons" is non-nil.
  5948. +;;
  5949. +;;  Example: If the user would like to use the icons supplied by
  5950. +;;           the SAS C-complier, the following lines could be placed
  5951. +;;           in his or hers .emacs file:
  5952. +;;      (setq amiga-icon-path '("sc:Icons/"))
  5953. +;;      (setq amiga-create-icons t)
  5954. +;;
  5955. +
  5956. +(defvar amiga-icon-path '()
  5957. +  "A list of directories to scan when searching for new icons.")
  5958. +
  5959. +(if (not (fboundp 'old-amiga-put-icon))
  5960. +    (fset 'old-amiga-put-icon (symbol-function 'amiga-put-icon)))
  5961. +
  5962. +(defun amiga-put-icon (file force)
  5963. +  (if (or force (not (file-readable-p (concat file ".info"))))
  5964. +      (let ((extpos (string-match "\\.[a-zA-Z]\\'" file))
  5965. +            (iconname nil)
  5966. +            (path (append amiga-icon-path '("env:icons/")))
  5967. +            (found nil))
  5968. +        (if (and extpos (< 0 extpos))
  5969. +            (while (and (not found) path)
  5970. +              (setq iconname (concat (car path) "def_" (substring file (+ 1 extpos)) ".in\
  5971. +fo"))
  5972. +              (if (and iconname (file-readable-p iconname))
  5973. +                  (progn
  5974. +                    (copy-file iconname (concat file ".info"))
  5975. +                    (setq found t)))
  5976. +              (setq path (cdr path))))
  5977. +        (if (not found)
  5978. +            (if (file-readable-p "env:Icons/def_emacs.info")
  5979. +                (copy-file "env:Icons/def_emacs.info" (concat file ".info"))
  5980. +              (old-amiga-put-icon file force))))))
  5981. +
  5982. +
  5983. Binary files baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/icons.info and amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/icons.info differ
  5984. diff -rup --new-file baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/lisp/newicon.el amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/lisp/newicon.el
  5985. --- baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/lisp/newicon.el    Wed Dec 31 17:00:00 1969
  5986. +++ amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/lisp/newicon.el    Sat Sep 28 00:00:00 1996
  5987. @@ -0,0 +1,91 @@
  5988. +;;
  5989. +;;  FILE
  5990. +;;    newicon.el        $VER: V1.00 newicon.el
  5991. +;;
  5992. +;;  DESCRIPTION
  5993. +;;      A new icon-creating scheme.
  5994. +;;
  5995. +;;    When creating icons, the following replacement routine searches
  5996. +;;      for icons of the name "def_<extension>.info". 
  5997. +;;      The routine searches first in the directories specified a _list_
  5998. +;;      by the user in the variable "amiga-icon-path" and then in 
  5999. +;;      "Gnuemacs:Icons/". The directories in the list must contain the 
  6000. +;;    trailing slash.
  6001. +;;
  6002. +;;      If it can't find any appropriate icons, and the file 
  6003. +;;      "Gnuemacs:Icons/def_emacs.info" exists, it is used. Otherwise
  6004. +;;      the original function is called.
  6005. +;;
  6006. +;;      Note: icons are only created when the variable
  6007. +;;      "amiga-create-icons" is non-nil.
  6008. +;;
  6009. +;;  INSTALLATION
  6010. +;;    Copy this file to a lisp-directory, for example Gnuemacs:lisp
  6011. +;;
  6012. +;;    Create a directory called Gnuemacs:icons and copy the icons to it.
  6013. +;;
  6014. +;;    Place the following line in your s:.emacs
  6015. +;;            (setq amiga-create-icons t)
  6016. +;;        (load "newicon")
  6017. +;;
  6018. +;;      Example: If the user would like to use the icons supplied by
  6019. +;;    the SAS C-complier, the following lines could be placed
  6020. +;;    in his or hers .emacs file:
  6021. +;;      (setq amiga-icon-path '("sc:Icons/"))
  6022. +;;
  6023. +;;  LICENSE
  6024. +;;      Copyright (C) 1993  Anders Lindgren
  6025. +;;
  6026. +;;    This program is free software; you can redistribute it and/or modify
  6027. +;;    it under the terms of the GNU General Public License as published by
  6028. +;;    the Free Software Foundation; either version 2 of the License,or
  6029. +;;    (at your option) any later version.
  6030. +;;
  6031. +;;    This program is distributed in the hope that it will be useful,
  6032. +;;    but WITHOUT ANY WARRANTY; without even the implied warranty of
  6033. +;;    MERCHANTABILITY of FITNESS FOR A PARTICULAR PURPOSE. See the
  6034. +;;    GNU General Public License for more details.
  6035. +;;
  6036. +;;    You should have received a copy of the GNU General Public License
  6037. +;;    along with this program; if not, write to the Free Software
  6038. +;;    Foundation, Inc., 675 Mass Ave, Cambridge, Ma 02139, USA.
  6039. +;;
  6040. +;;  HOW TO CONTACT ME:
  6041. +;;    voice:   Scream  Anders Lindgren  LOUD
  6042. +;;    email:   d91ali@csd.uu.se
  6043. +;;    mail:    Anders Lindgren
  6044. +;;             Kantorsg. 2-331
  6045. +;;             S-754 24 Uppsala
  6046. +;;    SUGA BBS:+46 (0)8 34 85 23
  6047. +;;         +46 (0)8 34 32 76  
  6048. +;;
  6049. +
  6050. +(defvar amiga-icon-path '()
  6051. +  "A list of directories to scan when searching for new icons.")
  6052. +
  6053. +(if (not (fboundp 'old-amiga-put-icon))
  6054. +    (fset 'old-amiga-put-icon (symbol-function 'amiga-put-icon)))
  6055. +
  6056. +(defun amiga-put-icon (file force)
  6057. +  (if (or force (not (file-readable-p (concat file ".info"))))
  6058. +      (let ((extpos (string-match "\\.[a-zA-Z]*\\'" file))
  6059. +        (iconname nil)
  6060. +        (path (append amiga-icon-path '("gnuemacs:icons/")))
  6061. +        (found nil))
  6062. +    (if (and extpos (< 0 extpos))
  6063. +        (while (and (not found) path)
  6064. +          (setq iconname (concat (car path) "def_" (substring file (+ 1 extpos)) ".info"))
  6065. +          (if (and iconname (file-readable-p iconname))
  6066. +          (progn
  6067. +            (copy-file iconname (concat file ".info"))
  6068. +            (setq found t)))
  6069. +          (setq path (cdr path))))
  6070. +    (if (not found)
  6071. +        (if (file-readable-p "gnuemacs:Icons/def_emacs.info")
  6072. +        (copy-file "gnuemacs:Icons/def_emacs.info" (concat file ".info"))
  6073. +          (old-amiga-put-icon file force))))))
  6074. +      
  6075. +
  6076. +
  6077. +        
  6078. +        
  6079. Binary files baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/lisp/newicon.el.info and amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/lisp/newicon.el.info differ
  6080. Binary files baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/lisp/newicon.elc and amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/lisp/newicon.elc differ
  6081. Binary files baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/lisp/newicon.elc.info and amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/lisp/newicon.elc.info differ
  6082. diff -rup --new-file baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/lisp/sticky.el amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/lisp/sticky.el
  6083. --- baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/lisp/sticky.el    Wed Dec 31 17:00:00 1969
  6084. +++ amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/lisp/sticky.el    Sat Sep 28 00:00:00 1996
  6085. @@ -0,0 +1,70 @@
  6086. +;;;
  6087. +;;; FILE
  6088. +;;;    sticky.el        $VER: V1.00 sticky.el
  6089. +;;;
  6090. +;;; DESCRIPTION
  6091. +;;;    ELisp part of Emacs Starter Deluxe. This code 
  6092. +;;;    is loaded when Emacs is invoked in "sticky" mode.
  6093. +;;;
  6094. +;;;    Place this file somewhere in your lisp-path, for example
  6095. +;;;    in the directory GnuEmacs:lisp.
  6096. +;;;
  6097. +;;;    Please read the file "starter.doc".
  6098. +;;;
  6099. +;;; AUTHORS
  6100. +;;;    Anders Lindgren, d91ali@csd.uu.se
  6101. +;;;    Bo Liljegren, bo-lilje@dsv.su.se
  6102. +;;;
  6103. +;;; LICENSE
  6104. +;;;     Copyright (C) 1993  Anders Lindgren  and  Bo Liljegren
  6105. +;;;
  6106. +;;;    This program is free software; you can redistribute it and/or modify
  6107. +;;;    it under the terms of the GNU General Public License as published by
  6108. +;;;    the Free Software Foundation; either version 2 of the License, or
  6109. +;;;    (at your option) any later version.
  6110. +;;;
  6111. +;;;    This program is distributed in the hope that it will be useful,
  6112. +;;;    but WITHOUT ANY WARRANTY; without even the implied warranty of
  6113. +;;;    MERCHANTABILITY of FITNESS FOR A PARTICULAR PURPOSE. See the
  6114. +;;;    GNU General Public License for more details.
  6115. +;;;
  6116. +;;;    You should have received a copy of the GNU General Public License
  6117. +;;;    along with this program; if not, write to the Free Software
  6118. +;;;    Foundation, Inc., 675 Mass Ave, Cambridge, Ma 02139, USA.
  6119. +;;;
  6120. +;;; HISTORY
  6121. +;;;    24-Sep-93 ALi  Created this file.
  6122. +;;;
  6123. +
  6124. +
  6125. +(provide 'sticky)
  6126. +
  6127. +(make-variable-buffer-local 'sticky-rexx-port)
  6128. +(set-default 'sticky-rexx-port nil)
  6129. +
  6130. +(if (not (fboundp 'old-kill-buffer))
  6131. +    (fset 'old-kill-buffer (symbol-function 'kill-buffer)))
  6132. +
  6133. +;;; Redefine the kill-buffer function.
  6134. +;;; If the buffer is in "sticky" mode, notify the client that this buffer is no more.
  6135. +;;; The reason why we're asking whether to kill the buffer or not, is to avoid a situation
  6136. +;;; where the client is notified but the user answers no.
  6137. +(defun kill-buffer (buffer)
  6138. +  "One arg, a string or a buffer.  Get rid of the specified buffer.
  6139. +Any processes that have this buffer as the `process-buffer' are killed
  6140. +with `delete-process'.
  6141. +Patched to notify client."
  6142. +  (interactive "bKill buffer: ")
  6143. +  (if (eq (setq buffer (get-buffer buffer)) nil)
  6144. +      nil
  6145. +    (save-excursion
  6146. +      (set-buffer buffer)
  6147. +      (if (or (not (buffer-modified-p buffer))
  6148. +          (not (buffer-file-name))
  6149. +          noninteractive
  6150. +          (yes-or-no-p (format "Buffer %s modified; kill anyway? " (buffer-name))))
  6151. +      (progn
  6152. +        (set-buffer-modified-p nil)
  6153. +        (if sticky-rexx-port
  6154. +        (amiga-arexx-send-command (concat "ADDRESS " sticky-rexx-port " TERMINATING") t))
  6155. +        (old-kill-buffer buffer))))))
  6156. Binary files baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/lisp/sticky.el.info and amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/lisp/sticky.el.info differ
  6157. Binary files baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/lisp/sticky.elc and amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/lisp/sticky.elc differ
  6158. Binary files baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/lisp/sticky.elc.info and amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/lisp/sticky.elc.info differ
  6159. Binary files baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/lisp.info and amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/lisp.info differ
  6160. diff -rup --new-file baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/rexx/emacs.rexx amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/rexx/emacs.rexx
  6161. --- baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/rexx/emacs.rexx    Wed Dec 31 17:00:00 1969
  6162. +++ amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/rexx/emacs.rexx    Sat Sep 28 00:00:00 1996
  6163. @@ -0,0 +1,286 @@
  6164. +/*
  6165. +FILE         Emacs.rexx
  6166. +VERSION      $VER: V1.06 Emacs.rexx
  6167. +DESCRIPTION  Load a file into a (running) emacs.
  6168. +             emacs [flags and files]
  6169. +
  6170. +         The following options are supported:
  6171. +         -[not]tofront    (Don't) move the Emacs window and screen
  6172. +                     to the front.
  6173. +         -[not]sticky    Do not terminate until the files on the
  6174. +                command line are killed.
  6175. +         -[no]screen    Open a public screen (Requiers ScreenManager)
  6176. +
  6177. +             where the third and fourth argument corresponds to the
  6178. +             the screensize.
  6179. +AUTHOR       Anders Lindgren, d91ali@csd.uu.se
  6180. +             Bo Liljegren, bo-lilje@dsv.su.se
  6181. +STATUS       This file is in the public domain
  6182. +HISTORY
  6183. +  11-Aug-92 ALi        Created this file
  6184. +  13-Aug-92 ALi        Replaced "runwsh" with "run".
  6185. +                       "else nop" added.
  6186. +  14-Aug-92 ALi  1.00  V1.0 released.
  6187. +  20-Aug-92 Bo L 1.01  Added ScreenManager stuff.
  6188. +  03-Jan-93 ALi  1.02  MODE edited. COLOURS removed.
  6189. +                       amiga-set-geometry moved to .emacs
  6190. +  13-Jan-93 ALi  1.03  TOBACK added. SHANGHAI and DEFAULT removed,
  6191. +                       emacs can now open itself correctly.
  6192. +                       -nottofront flag added.
  6193. +  20-Jan-93 Bo L 1.04  Replaced the static portname with the dynamic
  6194. +                       in the 'WaitForPort'-line
  6195. +  16 aug 93 Bo L 1.05  Changed screenresolution argument to DISPID.
  6196. +                       To avoid nameconflict with different languages.
  6197. +                       Changed ScrenManager parse part for those
  6198. +                       (unblessed) who don't have WShell.
  6199. +  22-Sep-93 ALi     1.06  Real option and filename parser added.
  6200. +                 (amiga-window-to-front) and
  6201. +               (amiga-activate-window) called instead of
  6202. +               ScreenManager.
  6203. +               (cd ) removed. (Why should emacs move directry?)
  6204. +               Sticky option added.
  6205. +               Files loaded by (load-file ), even when Emacs
  6206. +               is started by the script.
  6207. +               Temporary file which sets the window size and
  6208. +               screen name added. (No use for anything in .emacs)
  6209. +               POPPUB option removed.
  6210. +               Now gets screen font from WB.
  6211. +*/
  6212. +
  6213. +OPTIONS RESULTS
  6214. +OPTIONS FAILAT 21
  6215. +
  6216. +/* Make sure required libraries are present */
  6217. +IF ~SHOW('l',"rexxsupport.library") THEN DO
  6218. +    IF ~ADDLIB("rexxsupport.library",0,-30,0) THEN DO
  6219. +    SAY "Can't find rexxsupport.library"
  6220. +    EXIT
  6221. +    END
  6222. +    END
  6223. +
  6224. +
  6225. +/* The name for the public screen */
  6226. +screenname = 'Emacs'
  6227. +
  6228. +portname = 'EMACS1'
  6229. +args = ARG(1)  
  6230. +
  6231. +/* The commandline to send to a new emacs */
  6232. +cmd = ""
  6233. +
  6234. +/* A stem containing the options, the defaults are set here */
  6235. +flags.batch   = 0        /* Batch mode, always start a new Emacs */
  6236. +flags.kill    = 0        /* Kill a running emacs. */
  6237. +flags.screen  = 1        /* Use a public screen (Requiers ScreenManager) */
  6238. +flags.sticky  = 0        /* Wait until the buffers are terminated */
  6239. +flags.tofront = 1        /* Send the screen to the front */
  6240. +
  6241. +/* Argument parser */
  6242. +
  6243. +filesidx = 0
  6244. +DO WHILE LENGTH(args) > 1
  6245. +    args = strip(args, 'L')    /* Strip leading blanks */
  6246. +    IF LEFT(args,1) = '"' THEN DO
  6247. +    filesidx = filesidx + 1
  6248. +    PARSE VAR args  '"' files.filesidx '"' args
  6249. +    END
  6250. +    ELSE DO
  6251. +    PARSE VAR args  onearg args
  6252. +    IF LEFT(onearg,1) = '-' THEN DO
  6253. +        SELECT
  6254. +        WHEN onearg = "-tofront"    THEN flags.tofront = 1
  6255. +        WHEN onearg = "-nottofront" THEN flags.tofront = 0
  6256. +        WHEN onearg = "-sticky"     THEN flags.sticky = 1
  6257. +        WHEN onearg = "-notsticky"  THEN flags.sticky = 0
  6258. +        WHEN onearg = "-screen"     THEN flags.screen = 1
  6259. +        WHEN onearg = "-noscreen"   THEN flags.screen = 0
  6260. +        WHEN onearg = "-batch"        THEN flags.batch = 1
  6261. +        WHEN onearg = "-kill"        THEN DO
  6262. +            flags.kill = 1
  6263. +            cmd = cmd onearg
  6264. +            END
  6265. +        /* Emacs options with one argument */
  6266. +        WHEN (onearg = "-l" | onearg = "-load" | onearg = "-f",
  6267. +              | onearg = "-funcall" | onearg = "-i" | onearg = "-insert",
  6268. +              | onearg = "-t" | onearg = "-u" | onearg = "-user") THEN DO
  6269. +            PARSE VAR args  optarg args
  6270. +            cmd = cmd onearg optarg
  6271. +            END
  6272. +        /* Emacs options with two arguments */
  6273. +        WHEN (onearg = "-dev" | onearg = "-fn") THEN DO
  6274. +            PARSE VAR args  optarg1 optarg2 args
  6275. +            cmd = cmd onearg optarg1 optarg2
  6276. +            END
  6277. +        OTHERWISE cmd = cmd onearg
  6278. +        END
  6279. +        END
  6280. +    ELSE IF LEFT(onearg,1) = '+' THEN DO
  6281. +        PARSE VAR onearg  '+' flags.linenumber
  6282. +        END
  6283. +    ELSE DO
  6284. +        filesidx = filesidx + 1
  6285. +        files.filesidx = onearg
  6286. +        END
  6287. +    END
  6288. +    END
  6289. +
  6290. +/* If in batch-mode, start a new Emacs synchronous using the
  6291. + * original options */
  6292. +IF flags.batch THEN DO
  6293. +    ADDRESS COMMAND "temacs" arg(1)
  6294. +    EXIT rc
  6295. +    END
  6296. +
  6297. +
  6298. +/* If an Emacs Screen doesn't exists, create one */
  6299. +IF flags.screen & ~SHOWLIST('W',screenname||'-Demon') THEN DO 
  6300. +    filnamn = 'T:SM'||d2x(random(256,1024,time('s')))
  6301. +    ADDRESS COMMAND 'ScreenManager INFO Workbench EXPERT >'||filnamn
  6302. +    IF ~OPEN(fil,filnamn,'R') THEN EXIT 20
  6303. +    cnt = 4
  6304. +    rad = READLN(fil)
  6305. +    IF EOF(fil) THEN cnt = 0
  6306. +    DO WHILE cnt ~= 0
  6307. +    ord = WORD(rad,1)
  6308. +    SELECT
  6309. +        WHEN ord = 'Position:' THEN DO
  6310. +        PARSE VAR rad . '=' xpos ' ' . '=' ypos ' ' .
  6311. +        cnt = cnt - 1
  6312. +        END
  6313. +        WHEN ord = 'Size:' THEN DO
  6314. +        PARSE VAR rad . '=' xsize ' ' . '=' ysize ' ' .
  6315. +        cnt = cnt - 1
  6316. +        END
  6317. +        WHEN ord = 'DisplayID:' THEN DO
  6318. +        resmode = WORD(rad,2)
  6319. +        cnt = cnt - 1
  6320. +        END
  6321. +        WHEN ord = 'Font:' THEN DO
  6322. +        PARSE VAR rad  'Font:'  font '.font ' fontsize
  6323. +        font = strip(font)
  6324. +        cnt = cnt - 1
  6325. +            END
  6326. +        OTHERWISE
  6327. +        NOP
  6328. +        END
  6329. +    rad = READLN(fil)
  6330. +    IF EOF(fil) THEN cnt = 0
  6331. +    END
  6332. +    CALL CLOSE(fil)
  6333. +    CALL DELETE(filnamn)
  6334. +    menubar = fontsize + 2
  6335. +    ypos = ypos + menubar
  6336. +    ysize = ysize - menubar
  6337. +    ScrMng = ' OPEN '||screenname||' TITLE="'||screenname||' Screen"'
  6338. +    ScrMng = ScrMng||' DISPID='||resmode
  6339. +    ScrMng = ScrMng||' PLANES=2'
  6340. +    ScrMng = ScrMng||' PENS=011213103'
  6341. +    ScrMng = ScrMng||' FONT='||font||'.'||fontsize
  6342. +    ScrMng = ScrMng||' AUTOCLOSE' /* close screen when Emacs exists */
  6343. +    ScrMng = ScrMng||' TOBACK'      /* It's moved to the front below  */
  6344. +    ScrMng = ScrMng||' CX_TOFRONT="LCOMMAND e"'
  6345. +    ScrMng = ScrMng||' CX_DEFAULT="LCOMMAND SHIFT e"'
  6346. +    ADDRESS COMMAND 'ScreenManager' ScrMng
  6347. +
  6348. +    /* Create a small elisp file which sets the screen and size of Emacs */
  6349. +    sizefilename = 't:size' || d2x(random(256,1024,time('s'))) || '.el'
  6350. +    IF ~OPEN(fil, sizefilename, 'W') THEN EXIT 20
  6351. +    CALL WRITELN(fil, ';; Automagically created by Emacs.rexx')
  6352. +    CALL WRITELN(fil, '(amiga-set-geometry 0' fontsize+3 xsize ysize '"' || screenname || '")')
  6353. +    CALL CLOSE(fil)
  6354. +    cmd = cmd '-load' sizefilename
  6355. +    END
  6356. +    
  6357. +/* Start a new Emacs, if no one exists. */
  6358. +IF SHOW('P', portname) = 0 THEN DO
  6359. +    
  6360. +    CALL PRAGMA('stack', 40000)
  6361. +
  6362. +    ADDRESS COMMAND 'run <nil: >nil: temacs' cmd
  6363. +    ADDRESS COMMAND 'WaitForPort' portname
  6364. +    flags.kill = 0
  6365. +
  6366. +    END
  6367. +
  6368. +
  6369. +ADDRESS VALUE portname
  6370. +
  6371. +/* This no-op call doesn't return until after the 
  6372. + * t:sizeXX file has been read */
  6373. +"()"
  6374. +
  6375. +/* Delete the temporary file, if it was created. */
  6376. +IF SYMBOL('sizefilename') = 'VAR' THEN CALL DELETE(sizefilename)
  6377. +
  6378. +/* If in sticky mode, load sticky module into Emacs and
  6379. + * open a communication port */
  6380. +IF flags.sticky THEN DO
  6381. +    "(require 'sticky)"
  6382. +
  6383. +    count = 1
  6384. +    DO UNTIL ~SHOW('P', stickyportname)
  6385. +    stickyportname = "EMACS_CLIENT" || count
  6386. +    count = count + 1
  6387. +    END
  6388. +
  6389. +    CALL OPENPORT(stickyportname)
  6390. +    IF ~SHOW('P', stickyportname) THEN DO
  6391. +    SAY "Emacs client: Can't open sticky port."
  6392. +    EXIT 20
  6393. +    END
  6394. +    END
  6395. +
  6396. +/* Get the current diretory. (There is no point in building a correct
  6397. + * filename, since Emacs does that for us.) */
  6398. +dir = PRAGMA('directory')
  6399. +IF RIGHT(dir,1) ~= ':' THEN dir = dir || '/'
  6400. +
  6401. +stickycount = 0            /* The number of files to wait for */
  6402. +
  6403. +/* Load the files into emacs */
  6404. +DO i = 1 TO filesidx
  6405. +    '(find-file "' || dir || files.i || '")'
  6406. +
  6407. +    IF flags.sticky THEN DO
  6408. +    '(setq sticky-rexx-port "' || stickyportname || '")'
  6409. +    stickycount = stickycount + 1
  6410. +    END
  6411. +    END
  6412. +
  6413. +/* If the +linenumber option was given, go to the correct line */
  6414. +IF SYMBOL('flags.linenumber') = 'VAR' THEN '(goto-line ' || flags.linenumber || ')'
  6415. +
  6416. +/* Bring an activated Emacs window and screen to the front */
  6417. +IF flags.tofront THEN DO
  6418. +    '(amiga-window-to-front)'
  6419. +    '(amiga-activate-window)'
  6420. +    END
  6421. +
  6422. +/* If in sticky mode, wait for the buffers to be deleted */
  6423. +IF flags.sticky THEN DO
  6424. +    DO WHILE stickycount > 0
  6425. +
  6426. +    CALL WAITPKT(stickyportname)
  6427. +    pkt = GETPKT(stickyportname)
  6428. +    IF pkt = NULL() then iterate
  6429. +
  6430. +    IF GETARG(pkt) = "TERMINATING" THEN
  6431. +        stickycount = stickycount - 1
  6432. +
  6433. +    CALL REPLY(pkt, 0)
  6434. +
  6435. +    END
  6436. +
  6437. +    CALL CLOSEPORT(stickyportname)
  6438. +    END
  6439. +
  6440. +
  6441. +IF flags.kill THEN DO
  6442. +    '(save-buffers-kill-emacs)'
  6443. +    /* Screen normally closed automatically, but this won't hurt */
  6444. +    IF flags.screen THEN DO
  6445. +        ADDRESS COMMAND 'ScreenManager close' screenname
  6446. +        END
  6447. +    END
  6448. +
  6449. +EXIT 0
  6450. Binary files baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/rexx/emacs.rexx.info and amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/rexx/emacs.rexx.info differ
  6451. Binary files baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/rexx.info and amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/rexx.info differ
  6452. Binary files baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/rexxmode10.lha and amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/rexxmode10.lha differ
  6453. Binary files baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/sas-c-emacs.lha and amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/sas-c-emacs.lha differ
  6454. diff -rup --new-file baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/starter.doc amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/starter.doc
  6455. --- baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/starter.doc    Wed Dec 31 17:00:00 1969
  6456. +++ amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/starter.doc    Sat Sep 28 00:00:00 1996
  6457. @@ -0,0 +1,260 @@
  6458. +
  6459. +
  6460. +
  6461. +        #### #   #   #    ###  ### 
  6462. +        #    ## ##  # #  #    #
  6463. +        ##   # # # #   # #     ##
  6464. +        #    #   # ##### #       #
  6465. +        #### #   # #   #  ### ### 
  6466. + 
  6467. +              ###  #####   #   ###  ##### #### ###
  6468. +             #       #    # #  #  #   #   #    #  #
  6469. +              ###    #   #   # ###    #   ##   ###
  6470. +                 #   #   ##### # #    #   #    # #
  6471. +              ###    #   #   # #  #   #   #### #  #
  6472. +
  6473. +                        ***  **** *    *  * *   * ****
  6474. +                        *  * *    *    *  *  * *  *
  6475. +                           *  * **   *    *  *   *   **
  6476. +                       *  * *    *    *  *  * *  *
  6477. +                           ***  **** **** **** *   * ****
  6478. +
  6479. +
  6480. +    ------------------------------------------------------
  6481. +                  Release 1
  6482. +                   
  6483. +                 Written by:
  6484. +               Anders Lindgren
  6485. +                 Bo Liljegren
  6486. +                   
  6487. +         A (in our humble opinion) good Emacs starter
  6488. +    ------------------------------------------------------
  6489. +                  FEATURING
  6490. +
  6491. +    o Load files into a running Emacs.
  6492. +
  6493. +    o Option to use a public screen (requiers ScreenManager).
  6494. +
  6495. +    o Full WB support; double-click icons into a running Emacs.
  6496. +
  6497. +    o New icon creating scheme, use different icons depending on what
  6498. +      type of file you are editing.
  6499. +
  6500. +    o Sticky flag, the script doesn't terminate until the requested
  6501. +      buffers are terminated.
  6502. +
  6503. +
  6504. +                   LICENSE
  6505. +
  6506. +        Copyright (C) 1993  Anders Lindgren  and  Bo Liljegren
  6507. + 
  6508. +     This program is free software; you can redistribute it and/or modify
  6509. +     it under the terms of the GNU General Public License as published by
  6510. +     the Free Software Foundation; either version 2 of the License, or
  6511. +     (at your option) any later version.
  6512. + 
  6513. +     This program is distributed in the hope that it will be useful,
  6514. +     but WITHOUT ANY WARRANTY; without even the implied warranty of
  6515. +     MERCHANTABILITY of FITNESS FOR A PARTICULAR PURPOSE. See the
  6516. +     GNU General Public License for more details.
  6517. + 
  6518. +     You should have received a copy of the GNU General Public License
  6519. +     along with this program; if not, write to the Free Software
  6520. +     Foundation, Inc., 675 Mass Ave, Cambridge, Ma 02139, USA.
  6521. +
  6522. +
  6523. +
  6524. +                   CONTENTS
  6525. +
  6526. +The following files are contained in the archive:
  6527. +
  6528. +COPYING            -- The Gnu General Public License
  6529. +starter.doc         -- This file
  6530. +Emacs.info        -- A nice Emacs icon drawn by Bo Liljegren
  6531. +rexx/emacs.rexx V1.06    -- The main starter script
  6532. +lisp/sticky.el    V1.00    -- ELisp code used when a buffer is started with
  6533. +               the "-sticky" flag
  6534. +lisp/newicon.el    V1.00    -- The ELisp code for the new icon creating scheme
  6535. +lisp/#?.elc        -- Bytecompiled versions of the above files
  6536. +wbarg/wbarg    V1.00    -- A utility which converts WB arguments 
  6537. +               to shell dito
  6538. +wbarg/wbarg.c        -- Source code for the above utility
  6539. +wbarg/makefile        -- Rules for building the above with SAS/C 6.x.
  6540. +icons/def_#?.info    -- Icons. All but def_el drawn by Christian A. Weber.
  6541. +
  6542. +
  6543. +
  6544. +
  6545. +
  6546. +                  NEWSFLASH
  6547. +
  6548. +SUGA, Swedish User Group of Amiga is a non-profit nation wide club for
  6549. +Amiga-freaks in Sweden. It has been operating for many years (I joined
  6550. +in around -87, and have been more or less active ever since.) A
  6551. +newspaper with 16 to 20 pages is beeing distrubuted quaterly. A BBS is
  6552. +runed using the command line program NiKom, which is written by a
  6553. +member of the club. (Too bad for you non swedish speaking people that
  6554. +it isn't translated yet.) For the members in Stockholm we have a
  6555. +meeting every sunday between 11am and 3pm.
  6556. +
  6557. +Join by inserting only 150:- (less than $20) into the PostGiro account
  6558. +13 43 32-2. You can also just show up at the "Verksta'n" to see what
  6559. +it's all about!
  6560. +
  6561. +    Address: SUGA
  6562. +         Disponentvillan, Verkstan
  6563. +         Norrtullsgatan 12k
  6564. +         S-113 27 Stockholm
  6565. +
  6566. +    SUGA BBS:+46 (0)8 34 85 23
  6567. +         +46 (0)8 34 32 76  
  6568. +
  6569. + 
  6570. +                 INSTALLATION
  6571. +
  6572. +Copy the files in the "lisp" directory into a directory in the
  6573. +Emacs load path, for example GnuEmacs:lisp.
  6574. +
  6575. +Copy the file in the "rexx" directory to REXX:
  6576. +
  6577. +Copy the file "wbarg/wbarg" into the GnuEmacs:etc directory.
  6578. +
  6579. +
  6580. +If you would like to use the new icon creating scheme then
  6581. +create a directory named GnuEmacs:icons and copy the contents
  6582. +of the "icons" to it and add the following line to your 
  6583. +s:.emacs file.
  6584. +
  6585. +    (load "newicon")
  6586. +    (setq amiga-create-icons t)
  6587. +
  6588. +Older revisions of the script Emacs.rexx required that the command
  6589. +(amiga-set-geometry ) were executed in s:.emacs. This is no longer the
  6590. +case, hence the line should be removed.
  6591. +
  6592. +If the -screen option should be used, the program ScreenManager must
  6593. +be installed. The program is not included in this archive since its
  6594. +license does not allow it to be fully freely distributable, it can be
  6595. +found one ONE (yes, ONE I understood the license correctly) PD disk
  6596. +serie, and on AmiNet. If you can't find it you can order it from the
  6597. +author (you can also inform him of the existence of the Gnu General
  6598. +Public License):
  6599. +
  6600. +    Bernhard Möllemann
  6601. +    Luisenstraße 17
  6602. +    D-7500 Karlsruhe 1
  6603. +    Germany
  6604. +
  6605. +In the future we might rewrite Emacs.rexx so it uses some other screen
  6606. +opener, if it turns out that ScreenManager is too difficult to find.
  6607. +
  6608. +
  6609. +                  EMACS.REXX
  6610. +
  6611. +The heart of the Emacs Starter Deluxe is the script emacs.rexx. It loads
  6612. +files into a running Emacs or starts a new Emacs. It is capable of opening
  6613. +a public screen by the help of the utility ScreenManager. The resolution
  6614. +and color of the screen is cloned from the Workbench, although the depth 
  6615. +will always be two bitplanes.
  6616. +
  6617. +
  6618. +    Usage:   [rx] emacs [options|+linenumber] [filenames]
  6619. +
  6620. +
  6621. +    -[not]tofront    Bring the Emacs window and screes to the front.
  6622. +            Default is -tofront.
  6623. +
  6624. +    -[not]sticky    Wait until the filenames requested are killed by
  6625. +            Emacs. Default is -notsticky.
  6626. +
  6627. +    -[no]screen        Open a public screen and place Emacs on it.
  6628. +            This option requiers the program "ScreenManager".
  6629. +            Default is -screen.
  6630. +
  6631. +The script also handles standard Emacs options, even though some are
  6632. +implemented as no-ops when loading files into a running Emacs.
  6633. +
  6634. +The meaning of the standard option "-kill" is extended; if a running Emacs
  6635. +exists it is terminated.
  6636. +
  6637. +
  6638. +              WORKBENCH SUPPORT
  6639. +
  6640. +The Emacs Starter Deluxe has full Workbench support. This means that a
  6641. +file conneted to an icon can be loaded into a running Emacs.
  6642. +
  6643. +This feature requiers a project icon with the default tool set to
  6644. +"GnuEmacs:etc/wbarg" and the tooltype:
  6645. +    COMMAND=sys:rexxc/rx emacs
  6646. +
  6647. +A number of icons with this setup can be found in the icons directory
  6648. +of this archive.
  6649. +
  6650. +If no file is connected to an icon which is double-clicked Emacs will
  6651. +be started, or brought to front, but no file would be loaded.
  6652. +
  6653. +Note that the icons Emacs normally creates does NOT have the tool and
  6654. +tooltype set correctly. But, gentle reader, a solution to this problem
  6655. +can be found in the next section.
  6656. +
  6657. +
  6658. +               NEW ICON SCHEME
  6659. +
  6660. +To make as life simple as possible for workbench users a new icon
  6661. +creating scheme has been invented. To activate it please place the
  6662. +following lines in your s:.emacs file:
  6663. +
  6664. +    (load "newicon")
  6665. +    (setq amiga-create-icons t)
  6666. +
  6667. +The new scheme checks the extension of the file edited and tries to
  6668. +find an icon with the name "def_<extension>.el" in the icon path. If
  6669. +no one is found an icon named "GnuEmacs:icons/def_emacs.el" is used.
  6670. +As an emergency exit, the old icon creation routine is called.
  6671. +
  6672. +The icon path is defined to be the directories contained in the list
  6673. +"amiga-icon-path" and in the directory "GnuEmacs:Icons". Note that the
  6674. +directories in the list must end in a colon or slash.
  6675. +
  6676. +Example: If the user would like to use the icons supplied by the SAS
  6677. +C-complier and the icons supplied by DefaultIcon, the following lines
  6678. +could be placed in his or hers .emacs file:
  6679. +    (setq amiga-icon-path '("sc:Icons/" "Env:Icons/"))
  6680. +
  6681. +
  6682. +               SO WHAT'S THE DARK SIDE?
  6683. +
  6684. +All programs must have something which isn't working properly, and yes,
  6685. +there is one thing we don't recomend:
  6686. +Don't iconify Emacs, since the screen closes automatically when the Emacs
  6687. +window is closed. There is a way around it though; execute the emacs.rexx
  6688. +script again to open a new screen and then deiconify Emacs.
  6689. +
  6690. +If for some reason Emacs fails to start but the screen shows up it must
  6691. +be closed before the next attempt to start Emacs. This is done by issuing
  6692. +the command "ScreenManager CLOSE Emacs".
  6693. +
  6694. +
  6695. +              HOW TO CONTACT US
  6696. +
  6697. +If you would like new features to be added to Emacs Starter Deluxe, or if
  6698. +you whould discover a bug, don't hesitate to contact us:
  6699. +
  6700. +email:   d91ali@csd.uu.se        bo-lilje@dsv.su.se
  6701. +     
  6702. +mail:    Anders Lindgren        Bo Liljegren
  6703. +         Kantorsg. 2-331        Skogvaktarg. 12
  6704. +         S-754 24 Uppsala        115 42 Stockholm
  6705. +
  6706. +voice:   Scream  Anders or Bosse  LOUD
  6707. +
  6708. +
  6709. +                 OTHER TITLES
  6710. +
  6711. +The following Emacs applications has been written by Anders Lindgren:
  6712. +
  6713. +rexx-mode        -- A Complete editing mode and a source level 
  6714. +               debugger for REXX. (Machine independent, but 
  6715. +               it works on the Amiga.)
  6716. +sas-c-mode        -- A minor mode for communication with the SAS/C
  6717. +               6.x message browser SCMSG and more.
  6718. Binary files baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/starter.doc.info and amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/starter.doc.info differ
  6719. diff -rup --new-file baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/wbarg/makefile amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/wbarg/makefile
  6720. --- baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/wbarg/makefile    Wed Dec 31 17:00:00 1969
  6721. +++ amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/wbarg/makefile    Sat Sep 28 00:00:00 1996
  6722. @@ -0,0 +1,12 @@
  6723. +
  6724. +wbarg:    wbarg.o
  6725. +    slink TO wbarg FROM lib:c.o wbarg.o LIB lib:sc.lib MAP wbarg.map hsflo
  6726. +    copy wbarg gnuemacs:etc
  6727. +
  6728. +wbarg.o: wbarg.c
  6729. +    sc wbarg.c
  6730. +
  6731. +release:
  6732. +    lha -x -a -r a wbarg.lha wbarg wbarg.c icons/\#? sc/\#? makefile newicon.el def_emacs.info README
  6733. +
  6734. +                   
  6735. Binary files baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/wbarg/makefile.info and amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/wbarg/makefile.info differ
  6736. Binary files baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/wbarg/wbarg and amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/wbarg/wbarg differ
  6737. diff -rup --new-file baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/wbarg/wbarg.c amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/wbarg/wbarg.c
  6738. --- baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/wbarg/wbarg.c    Wed Dec 31 17:00:00 1969
  6739. +++ amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/wbarg/wbarg.c    Sat Sep 28 00:00:00 1996
  6740. @@ -0,0 +1,379 @@
  6741. +/*
  6742. + *  FILE
  6743. + *    wbarg V1.0    by Anders Lindgren
  6744. + *
  6745. + *  DESCRIPTION
  6746. + *    Convert WB arguments into shell dito.
  6747. + *
  6748. + *    This programs looks for a tooltype of the name COMMAND, to which
  6749. + *    if adds the WB arguments, before executing the command as a shell
  6750. + *    process.
  6751. + *
  6752. + *    One area of use is to set the COMMAND tooltype to:
  6753. + *      COMMAND=sys:rexxc/rx rexxscript
  6754. + *    to run the rexx script "rexxscript" with WB arguments. 
  6755. + *
  6756. + *  WARNING
  6757. + *    This is a HACK, it might stop to work on future OS-releases, if
  6758. + *    Commodore would change the path mechanism.
  6759. + *
  6760. + *    This program should work under 1.3, but it hasn't been tested. If
  6761. + *    it is runed under V39 it takes advantage of new features. (under 
  6762. + *    V37 AllocDosObject(DOS_CLI, ...) is buggy.)
  6763. + *
  6764. + *  LICENSE
  6765. + *      Copyright (C) 1993  Anders Lindgren
  6766. + *
  6767. + *    This program is free software; you can redistribute it and/or modify
  6768. + *    it under the terms of the GNU General Public License as published by
  6769. + *    the Free Software Foundation; either version 2 of the License,or
  6770. + *    (at your option) any later version.
  6771. + *
  6772. + *    This program is distributed in the hope that it will be useful,
  6773. + *    but WITHOUT ANY WARRANTY; without even the implied warranty of
  6774. + *    MERCHANTABILITY of FITNESS FOR A PARTICULAR PURPOSE. See the
  6775. + *    GNU General Public License for more details.
  6776. + *
  6777. + *    You should have received a copy of the GNU General Public License
  6778. + *    along with this program; if not, write to the Free Software
  6779. + *    Foundation, Inc., 675 Mass Ave, Cambridge, Ma 02139, USA.
  6780. + *
  6781. + *  HOW TO CONTACT ME:
  6782. + *    voice:   Scream  Anders Lindgren  LOUD
  6783. + *    email:   d91ali@csd.uu.se
  6784. + *    mail:    Anders Lindgren
  6785. + *             Kantorsg. 2-331
  6786. + *             S-754 24 Uppsala
  6787. + *    SUGA BBS:+46 (0)8 34 85 23
  6788. + *         +46 (0)8 34 32 76  
  6789. + *
  6790. + *  TODO
  6791. + *    Define a STACK tooltype to set the stack size.
  6792. + *
  6793. + *  HISTORY
  6794. + *    09-Sep-93    Wrote the program.
  6795. + *    28-Sep-93    Added the add/free_cli functions
  6796. + *                V1.0 Released
  6797. + */
  6798. +
  6799. +#include <exec/types.h>
  6800. +
  6801. +#include <exec/memory.h>
  6802. +#include <exec/execbase.h>
  6803. +#include <dos/dos.h>
  6804. +#include <dos/dostags.h>
  6805. +#include <workbench/startup.h>
  6806. +
  6807. +#define __USE_SYSBASE
  6808. +
  6809. +#include <proto/exec.h>
  6810. +#include <proto/dos.h>
  6811. +#include <proto/icon.h>
  6812. +
  6813. +#include <stdio.h>
  6814. +#include <strings.h>
  6815. +
  6816. +
  6817. +#define CMDLINE 512        /* Length of the command line */
  6818. +
  6819. +
  6820. +/* Forward references */
  6821. +
  6822. +int  get_command(struct WBArg * wbarg, char buffer[], int maxlen);
  6823. +void name_of_lock(BPTR lock, char buffer[], int maxlen);
  6824. +void usage(void);
  6825. +int  add_cli(void);
  6826. +void free_cli(void);
  6827. +
  6828. +
  6829. +/* The version string */
  6830. +UBYTE *vers="\0$VER: wbarg 1.0 (" __DATE__ ")";
  6831. +
  6832. +/* The (secret?) structure of path */
  6833. +
  6834. +struct path {
  6835. +    BPTR next;
  6836. +    BPTR lock;
  6837. +};
  6838. +
  6839. +
  6840. +/* A combined cli-structure and BSTR:s used when KS < 39 */
  6841. +struct mycli {
  6842. +    struct CommandLineInterface cli; /* Must be the first entry in the structure! */
  6843. +    UBYTE set_name[80];
  6844. +    UBYTE command_name[80];
  6845. +    UBYTE prompt[80];
  6846. +    UBYTE command_file[80];
  6847. +};
  6848. +
  6849. +
  6850. +void
  6851. +main(int argc, char *argv[])
  6852. +{
  6853. +    char commandline[CMDLINE];    /* The commandline to issue */
  6854. +    char args[CMDLINE];
  6855. +
  6856. +    struct WBStartup * argmsg;
  6857. +    struct WBArg     * wbarg;
  6858. +
  6859. +    BPTR olddir;
  6860. +    BPTR lock;
  6861. +
  6862. +    int found_cmd = FALSE;    /* Flag: TRUE when a COMMAND tooltype is found */
  6863. +    int created_cli = FALSE;    /* Flag: TRUE when we created our own cli-structure */
  6864. +
  6865. +    int i;
  6866. +
  6867. +    /* If we haven't got a Cli-structure, create one */
  6868. +    if (Cli() == NULL) {
  6869. +    if (add_cli()) {
  6870. +        created_cli = TRUE;
  6871. +    }
  6872. +    else {
  6873. +        puts("wbarg: Error while creating Cli-structure and path\n");
  6874. +    }
  6875. +
  6876. +    }
  6877. +
  6878. +
  6879. +    if (argc) {
  6880. +    usage();        /* It's no point in running it from the shell */
  6881. +    }
  6882. +    else {
  6883. +    argmsg = (struct WBStartup *)argv;
  6884. +    wbarg = argmsg->sm_ArgList;
  6885. +
  6886. +    args[0] = '\0';
  6887. +
  6888. +    for (i=0; i<argmsg->sm_NumArgs; i++) {
  6889. +
  6890. +        olddir = -1;
  6891. +        if ((wbarg->wa_Lock) && (*wbarg->wa_Name)) {
  6892. +        olddir = CurrentDir(wbarg->wa_Lock);
  6893. +        }
  6894. +
  6895. +        /* Get the command to execute */
  6896. +        if (get_command(wbarg, commandline, CMDLINE)) {
  6897. +        found_cmd = TRUE;
  6898. +        }
  6899. +
  6900. +        /* Build all the arguments */
  6901. +        if ((i>0) && *wbarg->wa_Name) {
  6902. +        if (lock = Lock(wbarg->wa_Name, ACCESS_READ)) {
  6903. +            strncat(args, " \"", CMDLINE);
  6904. +            name_of_lock(lock, args, CMDLINE);
  6905. +            strncat(args, "\"", CMDLINE);
  6906. +            UnLock(lock);
  6907. +        }
  6908. +        }
  6909. +
  6910. +        if (olddir != -1) {
  6911. +        CurrentDir(olddir);
  6912. +        }
  6913. +
  6914. +        wbarg++;    /* Use the next argument to the next loop iteration */
  6915. +    }
  6916. +
  6917. +    if (found_cmd) {
  6918. +        strncat(commandline, args, CMDLINE);
  6919. +        Execute(commandline, NULL, NULL);
  6920. +    }
  6921. +    else {
  6922. +        usage();        /* No COMMAND tooltype found */
  6923. +    }
  6924. +    }
  6925. +    if (created_cli) {
  6926. +    /* ((struct Process *) FindTask(NULL))->pr_CLI = NULL; */
  6927. +    free_cli();
  6928. +    }
  6929. +}
  6930. +
  6931. +
  6932. +/*
  6933. + *  FUNCTION
  6934. + *    get_command
  6935. + *
  6936. + *  DESCRIPTION
  6937. + *    Find a icon with the COMMAND tooltype set.
  6938. + */
  6939. +
  6940. +int
  6941. +get_command(struct WBArg * wbarg, char buffer[], int maxlen)
  6942. +{
  6943. +    struct DiskObject * dobj;
  6944. +    char ** toolarray;
  6945. +    char * s = NULL;
  6946. +
  6947. +    if ((*wbarg->wa_Name) && (dobj = GetDiskObject(wbarg->wa_Name))) {
  6948. +    toolarray = (char **)dobj->do_ToolTypes;
  6949. +
  6950. +    if (s = (char *)FindToolType(toolarray, "COMMAND")) {
  6951. +        s[maxlen-1] = '\0';    /* Make sure the string is nullterminated */
  6952. +        strncpy(buffer, s, maxlen-1);
  6953. +    }
  6954. +    FreeDiskObject(dobj);
  6955. +    }
  6956. +    return(s == NULL ? FALSE : TRUE);
  6957. +}
  6958. +
  6959. +
  6960. +/*
  6961. + *  FUNCTION
  6962. + *    name_of_lock
  6963. + *
  6964. + *  DESCRIPTION
  6965. + *      Create the filename from the lock supplied.
  6966. + *      NOTE: The name is ADDED to the string in the buffer.
  6967. + */
  6968. +
  6969. +void
  6970. +name_of_lock(BPTR lock, char buffer[], int maxlen)
  6971. +{
  6972. +    BPTR newlock;
  6973. +        /* Static to save space on the stack during recursion */
  6974. +    static __aligned struct FileInfoBlock fib; 
  6975. +    int root;
  6976. +
  6977. +    if (newlock = ParentDir(lock)) {
  6978. +    name_of_lock(newlock, buffer, maxlen);
  6979. +    UnLock(newlock);
  6980. +    root = FALSE;
  6981. +    }
  6982. +    else {
  6983. +    root = TRUE;
  6984. +    }
  6985. +
  6986. +    if (Examine(lock, & fib)) {
  6987. +    strncat(buffer, fib.fib_FileName, maxlen);
  6988. +    if (fib.fib_DirEntryType > 0) {
  6989. +        strncat(buffer, root ? ":" : "/", maxlen);
  6990. +    }
  6991. +    }
  6992. +}
  6993. +    
  6994. +
  6995. +/*
  6996. + *  FUNCTION
  6997. + *    usage
  6998. + *
  6999. + *  DESCRIPTION
  7000. + *    Write a small information text.
  7001. + */
  7002. +
  7003. +void
  7004. +usage(void)
  7005. +{
  7006. +    puts("WBARG  A program which converts workbench");
  7007. +    puts("       arguments to command line dito.");
  7008. +    puts("Usage: Create a project icon and set"); 
  7009. +    puts("       the tooltype named COMMAND to the");
  7010. +    puts("       command you would like to run");
  7011. +    puts("Example: COMMAND=sys:rexxc/rx someprogram");
  7012. +}
  7013. +
  7014. +
  7015. +/*
  7016. + *  FUNCTION
  7017. + *    add_cli
  7018. + *
  7019. + *  DESCRIPTION
  7020. + *    Attaches a CommandLineInterface-structure to the current (WB-started)
  7021. + *    process and copies the path from the Workbench task.
  7022. + *
  7023. + *    Return non-FALSE on success;
  7024. + */
  7025. +
  7026. +int
  7027. +add_cli()
  7028. +{
  7029. +    struct CommandLineInterface * cli = NULL;
  7030. +    struct mycli * mycli;
  7031. +    struct Process * wb;
  7032. +    BPTR p;            /* The path structure to copy from */
  7033. +    struct path * newp;        /* The new path structure */
  7034. +    BPTR * prev;
  7035. +
  7036. +    /*
  7037. +     * Under 1.3 AllocDosObject does not exists, under <39 the DOS_CLI option is buggy 
  7038. +     */
  7039. +    if (SysBase->LibNode.lib_Version < 39) {
  7040. +    if (mycli = (struct mycli *)AllocMem(sizeof(struct mycli), MEMF_CLEAR|MEMF_PUBLIC)) {
  7041. +        cli = & mycli->cli;
  7042. +        mycli->cli.cli_FailLevel   = 10;
  7043. +        mycli->cli.cli_Background  = DOSTRUE;
  7044. +        mycli->cli.cli_SetName     = MKBADDR(& mycli->set_name);
  7045. +        mycli->cli.cli_CommandName = MKBADDR(& mycli->command_name);
  7046. +        mycli->cli.cli_Prompt      = MKBADDR(& mycli->prompt);
  7047. +        mycli->cli.cli_CommandFile = MKBADDR(& mycli->command_file);
  7048. +    }
  7049. +    }
  7050. +    else {
  7051. +    cli = (struct CommandLineInterface *)AllocDosObjectTags(DOS_CLI, TAG_DONE);
  7052. +    }
  7053. +    if (cli) {
  7054. +    cli->cli_DefaultStack = 4096;
  7055. +    ((struct Process *) FindTask(NULL))->pr_CLI = MKBADDR(cli);
  7056. +
  7057. +    if (wb = (struct Process *)FindTask("Workbench")) {
  7058. +        prev = & cli->cli_CommandDir;
  7059. +    
  7060. +        p = ((struct CommandLineInterface *)BADDR(wb->pr_CLI))->cli_CommandDir;
  7061. +        while(p){
  7062. +        if (newp = AllocMem(sizeof(struct path), MEMF_PUBLIC)) {
  7063. +            newp->lock = DupLock(((struct path *)BADDR(p))->lock);
  7064. +        
  7065. +            * prev = MKBADDR(newp);
  7066. +            prev = & newp->next;
  7067. +        }
  7068. +        else {
  7069. +            * prev = NULL;
  7070. +            free_cli();
  7071. +            return(FALSE);
  7072. +        }
  7073. +        p = ((struct path *)BADDR(p))->next;
  7074. +        }
  7075. +        * prev = NULL;    /* Terminate the linked list */
  7076. +    }
  7077. +        return(TRUE);        /* OK */
  7078. +    }
  7079. +    return(FALSE);        /* No cli structure allocated */
  7080. +}
  7081. +
  7082. +
  7083. +/*
  7084. + *  FUNCTION
  7085. + *    free_cli
  7086. + *
  7087. + *  DESCRIPTION
  7088. + *    Undo the work of add_cli
  7089. + */
  7090. +
  7091. +void
  7092. +free_cli()
  7093. +{
  7094. +    struct CommandLineInterface * cli;
  7095. +    struct path * p;
  7096. +    struct path * p_next;
  7097. +
  7098. +    if (cli = Cli()) {
  7099. +    p = (struct path *)BADDR(cli->cli_CommandDir);
  7100. +    cli->cli_CommandDir = NULL;
  7101. +
  7102. +    while (p) {
  7103. +        p_next = (struct path *)BADDR(p->next);
  7104. +        if (p->lock) {
  7105. +        UnLock(p->lock);
  7106. +        }
  7107. +        FreeMem((void *)p, sizeof(struct path));
  7108. +        p = p_next;
  7109. +    }
  7110. +    if (SysBase->LibNode.lib_Version < 39) {
  7111. +        FreeMem((void *)cli, sizeof(struct mycli));
  7112. +    }
  7113. +    else {
  7114. +        FreeDosObject(DOS_CLI, (void *)cli);
  7115. +    }
  7116. +
  7117. +    ((struct Process *) FindTask(NULL))->pr_CLI = NULL;
  7118. +    }
  7119. +}
  7120. Binary files baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/wbarg/wbarg.c.info and amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/wbarg/wbarg.c.info differ
  7121. Binary files baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/wbarg/wbarg.info and amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/wbarg/wbarg.info differ
  7122. Binary files baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/wbarg.info and amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/wbarg.info differ
  7123. Binary files baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/xsh11.lha and amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/xsh11.lha differ
  7124. diff -rup --new-file baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/schinz/functions.el amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/schinz/functions.el
  7125. --- baseline/fsf/emacs18/amiga/amiga-extra/amiga/contrib/schinz/functions.el    Wed Dec 31 17:00:00 1969
  7126. +++ amiga/fsf/emacs18/amiga/amiga-extra/amiga/contrib/schinz/functions.el    Sat Sep 28 00:00:00 1996
  7127. @@ -0,0 +1,88 @@
  7128. +;; Code contributed by :
  7129. +;;   Michel Schinz     | INTERNET: Week-end: schinz@guano.alphanet.ch
  7130. +;;   Epinettes 10a     |           Week    : schinz@di.epfl.ch
  7131. +;;   CH-2013 COLOMBIER | FIDONET:  2:302/562 (Michel Schinz)
  7132. +
  7133. +
  7134. +   (defun amiga-arexx-add-lib (lib entry)
  7135. +     "Adds the specified ARexx library, with given entry point."
  7136. +     (interactive "sLibrary name: \nnOffset: ")
  7137. +     (amiga-arexx-do-command (concat "CALL ADDLIB('" lib "',0," entry ")") t))
  7138. +
  7139. +   (defun amiga-reqtools-find-file ()
  7140. +     "Like find-file, but with RexxReqTools' file requester."
  7141. +     (interactive)
  7142. +     (amiga-arexx-add-lib "rexxreqtools.library" -30)
  7143. +     (amiga-arexx-do-command (concat "f = rtFileRequest('" default-directory
  7144. +                     "',,'Find file')\n"
  7145. +                     "IF f ~= '' THEN"
  7146. +                     "   '(find-file \"'||f||'\")'") t))
  7147. +
  7148. +   (defun amiga-reqtools-insert-file ()
  7149. +     "Like insert-file, but with RexxReqTools' file requester."
  7150. +     (interactive)
  7151. +     (amiga-arexx-add-lib "rexxreqtools.library" -30)
  7152. +     (amiga-arexx-do-command (concat "f = rtFileRequest('" default-directory
  7153. +                     "',,'Insert file')\n"
  7154. +                     "IF f ~= '' THEN"
  7155. +                     "   '(insert-file \"'||f||'\")'") t))
  7156. +
  7157. +   (defun amiga-reqtools-write-file ()
  7158. +     "Like write-file, but with RexxReqTools' file requester."
  7159. +     (interactive)
  7160. +     (let ((dir (file-name-directory buffer-file-name))
  7161. +       (file (file-name-nondirectory buffer-file-name)))
  7162. +       (amiga-arexx-add-lib "rexxreqtools.library" -30)
  7163. +       (amiga-arexx-do-command (concat "f = rtFileRequest('" dir "','" file
  7164. +                       "','Write file',,"
  7165. +                       "'rtfi_flags=freqf_save')\n"
  7166. +                       "IF f ~= '' THEN"
  7167. +                       "   '(write-file \"'||f||'\")'") t)))
  7168. +
  7169. +   ;;; amiga-update-version-string
  7170. +   ;;; Michel Schinz
  7171. +   ;;; $VER: amiga_verstring.el 1.0 (7.05.1993)
  7172. +
  7173. +   (defun amiga-update-version-string ()
  7174. +     "Create/update a version string (CBM style) on the current line.
  7175. +   If no version string is present on the current line, create a new one
  7176. +   that looks like `$VER: <buffer-name> 1.0 (<current_date>)' at the
  7177. +   point position. If a version string is already present on the current
  7178. +   line, the date is ... updated and the revision is incremented.
  7179. +   Please note that currently, no spaces are allowed in the `name' field."
  7180. +     (interactive)
  7181. +     (save-excursion
  7182. +       (let (end-of-line-pos
  7183. +         name version revision date
  7184. +         (old-point-pos (point-marker)))
  7185. +     (let* ((date-string (current-time-string))
  7186. +        (garbage (string-match
  7187. +              " \\([A-Z][a-z][a-z]\\) *\\([0-9]*\\) .* \\([0-9]*\\)$"
  7188. +              date-string))
  7189. +        (day (substring date-string (match-beginning 2) (match-end 2)))
  7190. +        (month
  7191. +         (cdr (assoc
  7192. +               (substring date-string (match-beginning 1) (match-end 1))
  7193. +               '(("Jan" . "01") ("Feb" . "02") ("Mar" . "03") ("Apr" . "04")
  7194. +             ("May" . "05") ("Jun" . "06") ("Jul" . "07") ("Aug" . "08")
  7195. +             ("Sep" . "09") ("Oct" . "10") ("Nov" . "11") ("Dec" . "12")))))
  7196. +        (year (substring date-string (match-beginning 3) (match-end 3))))
  7197. +       (setq date (concat day "." month "." year)))
  7198. +     (end-of-line)
  7199. +     (setq end-of-line-pos (point))
  7200. +     (beginning-of-line)
  7201. +     (if (search-forward "$VER: " end-of-line-pos t)
  7202. +         (let ((start-of-version-string (- (point) 6)))
  7203. +           (re-search-forward
  7204. +        " *\\([^ ]*\\) *\\([0-9]*\\)\.\\([0-9]*\\) *([0-9.]*)" end-of-line-pos t)
  7205. +           (setq name (buffer-substring (match-beginning 1) (match-end 1))
  7206. +             version (buffer-substring (match-beginning 2) (match-end 2))
  7207. +             revision (+ 1 (string-to-int
  7208. +                    (buffer-substring (match-beginning 3) (match-end 3)))))
  7209. +           (delete-region start-of-version-string (point)))
  7210. +       (progn (setq name (file-name-nondirectory (buffer-name))
  7211. +            version 1
  7212. +            revision 0)
  7213. +          (goto-char old-point-pos)))
  7214. +     (insert (concat "$VER: " name " " version "." revision " (" date ")")))))
  7215. +
  7216. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/include/alloca.h amiga/fsf/emacs18/amiga/unix/include/alloca.h
  7217. --- baseline/fsf/emacs18/amiga/unix/include/alloca.h    Wed Dec 31 17:00:00 1969
  7218. +++ amiga/fsf/emacs18/amiga/unix/include/alloca.h    Sat Sep 28 00:00:00 1996
  7219. @@ -0,0 +1,8 @@
  7220. +#ifndef ALLOCA_H
  7221. +#define ALLOCA_H
  7222. +
  7223. +#include <stddef.h>
  7224. +
  7225. +void *alloca(size_t size);
  7226. +
  7227. +#endif
  7228. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/include/amiga/ioctl.h amiga/fsf/emacs18/amiga/unix/include/amiga/ioctl.h
  7229. --- baseline/fsf/emacs18/amiga/unix/include/amiga/ioctl.h    Wed Dec 31 17:00:00 1969
  7230. +++ amiga/fsf/emacs18/amiga/unix/include/amiga/ioctl.h    Sat Sep 28 00:00:00 1996
  7231. @@ -0,0 +1,15 @@
  7232. +#ifndef _AMIGA_H
  7233. +#define _AMIGA_H
  7234. +
  7235. +/* Amiga specific ioctl's */
  7236. +
  7237. +#define _AMIGA_IOCTL_BASE 2048
  7238. +
  7239. +#define _AMIGA_INTERACTIVE (_AMIGA_IOCTL_BASE + 0) /* Is file Interactive ? */
  7240. +#define _AMIGA_GET_FH (_AMIGA_IOCTL_BASE + 1) /* Get an AmigaOS fh for file */
  7241. +#define _AMIGA_FREE_FH (_AMIGA_IOCTL_BASE + 2) /* Free a fh obtained by GET_FH */
  7242. +#define _AMIGA_TRUNCATE (_AMIGA_IOCTL_BASE + 3) /* Truncate file to given size */
  7243. +#define _AMIGA_SETPROTECTION (_AMIGA_IOCTL_BASE + 4) /* Set (amiga) protection on file */
  7244. +#define _AMIGA_DELETE_IF_ME (_AMIGA_IOCTL_BASE + 5) /* Delete myself if I am the file whose lock is passed as parameter */
  7245. +
  7246. +#endif
  7247. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/include/errno.h amiga/fsf/emacs18/amiga/unix/include/errno.h
  7248. --- baseline/fsf/emacs18/amiga/unix/include/errno.h    Wed Dec 31 17:00:00 1969
  7249. +++ amiga/fsf/emacs18/amiga/unix/include/errno.h    Sat Sep 28 00:00:00 1996
  7250. @@ -0,0 +1,51 @@
  7251. +/**
  7252. +*
  7253. +* The following symbols are the error codes returned by the UNIX system
  7254. +* functions.  Typically, a UNIX function returns -1 when an error occurs,
  7255. +* and the global integer named errno contains one of these values.
  7256. +*
  7257. +*/
  7258. +#define EOSERR -1    /* Operating system error */
  7259. +
  7260. +#define EPERM 1        /* User is not owner */
  7261. +#define ENOENT 2    /* No such file or directory */
  7262. +#define ESRCH 3        /* No such process */
  7263. +#define EINTR 4        /* Interrupted system call */
  7264. +#define EIO 5        /* I/O error */
  7265. +#define ENXIO 6        /* No such device or address */
  7266. +#define E2BIG 7        /* Arg list is too long */
  7267. +#define ENOEXEC 8    /* Exec format error */
  7268. +#define EBADF 9        /* Bad file number */
  7269. +#define ECHILD 10    /* No child process */
  7270. +#define EAGAIN 11    /* No more processes allowed */
  7271. +#define ENOMEM 12    /* No memory available */
  7272. +#define EACCES 13    /* Access denied */
  7273. +#define EFAULT 14    /* Bad address */
  7274. +#define ENOTBLK 15    /* Bulk device required */
  7275. +#define EBUSY 16    /* Resource is busy */
  7276. +#define EEXIST 17    /* File already exists */
  7277. +#define EXDEV 18    /* Cross-device link */
  7278. +#define ENODEV 19    /* No such device */
  7279. +#define ENOTDIR 20    /* Not a directory */
  7280. +#define EISDIR 21    /* Is a directory */
  7281. +#define EINVAL 22    /* Invalid argument */
  7282. +#define ENFILE 23    /* No more files (units) allowed */
  7283. +#define EMFILE 24    /* No more files (units) allowed for this process */
  7284. +#define ENOTTY 25    /* Not a terminal */
  7285. +#define ETXTBSY 26    /* Text file is busy */
  7286. +#define EFBIG 27    /* File is too large */
  7287. +#define ENOSPC 28    /* No space left */
  7288. +#define ESPIPE 29    /* Seek issued to pipe */
  7289. +#define EROFS 30    /* Read-only file system */
  7290. +#define EMLINK 31    /* Too many links */
  7291. +#define EPIPE 32    /* Broken pipe */
  7292. +#define EDOM 33        /* Math function argument error */
  7293. +#define ERANGE 34    /* Math function result is out of range */
  7294. +#define EWOULDBLOCK 35    /* Operation would block */
  7295. +#define ENAMETOOLONG 36 /* File name is too long */
  7296. +#define ENOTEMPTY 37    /* Directory is not empty */
  7297. +#define ELOOP 38    /* Too many soft links found */
  7298. +
  7299. +extern int errno, _OSERR;
  7300. +extern int sys_nerr;
  7301. +extern char *sys_errlist[];
  7302. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/include/fcntl.h amiga/fsf/emacs18/amiga/unix/include/fcntl.h
  7303. --- baseline/fsf/emacs18/amiga/unix/include/fcntl.h    Wed Dec 31 17:00:00 1969
  7304. +++ amiga/fsf/emacs18/amiga/unix/include/fcntl.h    Sat Sep 28 00:00:00 1996
  7305. @@ -0,0 +1 @@
  7306. +#include <sys/fcntl.h>
  7307. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/include/grp.h amiga/fsf/emacs18/amiga/unix/include/grp.h
  7308. --- baseline/fsf/emacs18/amiga/unix/include/grp.h    Wed Dec 31 17:00:00 1969
  7309. +++ amiga/fsf/emacs18/amiga/unix/include/grp.h    Sat Sep 28 00:00:00 1996
  7310. @@ -0,0 +1,12 @@
  7311. +#ifndef _GRP_H
  7312. +#define _GRP_H
  7313. +
  7314. +struct group {
  7315. +  char *gr_name;        /* name of the group */
  7316. +  char *gr_passwd;        /* encrypted password of the group */
  7317. +  gid_t gr_gid;            /* numerical group ID */
  7318. +  char **gr_mem;        /* null-terminated array of pointers to the
  7319. +                   individual member names */
  7320. +};
  7321. +
  7322. +#endif
  7323. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/include/internal/devices.h amiga/fsf/emacs18/amiga/unix/include/internal/devices.h
  7324. --- baseline/fsf/emacs18/amiga/unix/include/internal/devices.h    Wed Dec 31 17:00:00 1969
  7325. +++ amiga/fsf/emacs18/amiga/unix/include/internal/devices.h    Sat Sep 28 00:00:00 1996
  7326. @@ -0,0 +1,9 @@
  7327. +#ifndef DEVICES_H
  7328. +#define DEVICES_H
  7329. +
  7330. +struct IORequest *_device_open(char *name, unsigned long unit, unsigned long flags,
  7331. +                   void *data, unsigned long data_len, int req_size);
  7332. +
  7333. +void _device_close(struct IORequest *ioreq);
  7334. +
  7335. +#endif
  7336. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/include/internal/files.h amiga/fsf/emacs18/amiga/unix/include/internal/files.h
  7337. --- baseline/fsf/emacs18/amiga/unix/include/internal/files.h    Wed Dec 31 17:00:00 1969
  7338. +++ amiga/fsf/emacs18/amiga/unix/include/internal/files.h    Sat Sep 28 00:00:00 1996
  7339. @@ -0,0 +1,35 @@
  7340. +#ifndef FILES_H
  7341. +#define FILES_H
  7342. +
  7343. +struct fileinfo {
  7344. +  int flags;
  7345. +  void *userinfo;
  7346. +  unsigned long (*__regargs select_start)(void *userinfo, int rd, int wr);
  7347. +  void (*__regargs select_poll)(void *userinfo, int *rd, int *wr);
  7348. +  int (*__regargs read)(void *userinfo, void *buffer, unsigned int length);
  7349. +  int (*__regargs write)(void *userinfo, void *buffer, unsigned int length);
  7350. +  int (*__regargs lseek)(void *userinfo, long rpos, int mode);
  7351. +  int (*__regargs close)(void *userinfo, int internal);
  7352. +  int (*__regargs ioctl)(void *userinfo, int request, void *data);
  7353. +};
  7354. +
  7355. +/* FI_READ & WRITE replace O_RDONLY, WRONLY & RDWR. Other flags are left untouched */
  7356. +#define FI_READ 1
  7357. +#define FI_WRITE 2
  7358. +
  7359. +int _alloc_fd(void *userinfo, int flags,
  7360. +  unsigned long (*__regargs select_start)(void *userinfo, int rd, int wr),
  7361. +  void (*__regargs select_poll)(void *userinfo, int *rd, int *wr),
  7362. +  int (*__regargs read)(void *userinfo, void *buffer, unsigned int length),
  7363. +  int (*__regargs write)(void *userinfo, void *buffer, unsigned int length),
  7364. +  int (*__regargs lseek)(void *userinfo, long rpos, int mode),
  7365. +  int (*__regargs close)(void *userinfo, int internal),
  7366. +  int (*__regargs ioctl)(void *userinfo, int request, void *data)
  7367. +);
  7368. +
  7369. +void _free_fd(int fd);
  7370. +
  7371. +struct fileinfo *_find_fd(int fd);
  7372. +int _last_fd(void);
  7373. +
  7374. +#endif
  7375. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/include/internal/messages.h amiga/fsf/emacs18/amiga/unix/include/internal/messages.h
  7376. --- baseline/fsf/emacs18/amiga/unix/include/internal/messages.h    Wed Dec 31 17:00:00 1969
  7377. +++ amiga/fsf/emacs18/amiga/unix/include/internal/messages.h    Sat Sep 28 00:00:00 1996
  7378. @@ -0,0 +1,9 @@
  7379. +void _message(char *format, ...);
  7380. +/* Display a message which is as visible as possible (either to the console
  7381. +   or to a requester).
  7382. +   Assume very little about library state */
  7383. +void _fail(char *format, ...);
  7384. +/* Display a message which is as visible as possible (either to the console
  7385. +   or to a requester).
  7386. +   Assume very little about library state.
  7387. +   Exit with error code RETURN_FAIL after that. */
  7388. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/include/internal/timers.h amiga/fsf/emacs18/amiga/unix/include/internal/timers.h
  7389. --- baseline/fsf/emacs18/amiga/unix/include/internal/timers.h    Wed Dec 31 17:00:00 1969
  7390. +++ amiga/fsf/emacs18/amiga/unix/include/internal/timers.h    Sat Sep 28 00:00:00 1996
  7391. @@ -0,0 +1,20 @@
  7392. +#ifndef TIMERS_H
  7393. +#define TIMERS_H
  7394. +
  7395. +struct timeinfo {
  7396. +  struct timerequest *io;
  7397. +  int sent;
  7398. +};
  7399. +
  7400. +struct timeinfo *_alloc_timer(void);
  7401. +void _free_timer(struct timeinfo *timer);
  7402. +void _timer_abort(struct timeinfo *timer);
  7403. +ULONG _timer_sig(struct timeinfo *timer);
  7404. +
  7405. +void _timer_start(struct timeinfo *timer, int secs, int micros);
  7406. +/* _timer_start(timer, 0) stops a timer */
  7407. +
  7408. +int _timer_expired(struct timeinfo *timer);
  7409. +/* A non-started timer is defined to not have expired */
  7410. +
  7411. +#endif
  7412. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/include/internal/vars.h amiga/fsf/emacs18/amiga/unix/include/internal/vars.h
  7413. --- baseline/fsf/emacs18/amiga/unix/include/internal/vars.h    Wed Dec 31 17:00:00 1969
  7414. +++ amiga/fsf/emacs18/amiga/unix/include/internal/vars.h    Sat Sep 28 00:00:00 1996
  7415. @@ -0,0 +1,11 @@
  7416. +#ifndef VARS_H
  7417. +#define VARS_H
  7418. +
  7419. +/* <_us, _startup_time> should be a pretty good unique identifier of
  7420. +   this process */
  7421. +extern struct Process *_us;
  7422. +extern long _stack_size;
  7423. +extern long _startup_time;
  7424. +extern int use_amiga_flags;
  7425. +
  7426. +#endif
  7427. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/include/pwd.h amiga/fsf/emacs18/amiga/unix/include/pwd.h
  7428. --- baseline/fsf/emacs18/amiga/unix/include/pwd.h    Wed Dec 31 17:00:00 1969
  7429. +++ amiga/fsf/emacs18/amiga/unix/include/pwd.h    Sat Sep 28 00:00:00 1996
  7430. @@ -0,0 +1,19 @@
  7431. +#ifndef _PWD_H
  7432. +#define _PWD_H
  7433. +
  7434. +struct    passwd {
  7435. +  char *pw_name;
  7436. +  char *pw_passwd;
  7437. +  uid_t pw_uid;
  7438. +  gid_t pw_gid;
  7439. +  int  pw_quota;
  7440. +  char *pw_comment;
  7441. +  char *pw_gecos;
  7442. +  char *pw_dir;
  7443. +  char *pw_shell;
  7444. +};
  7445. +
  7446. +struct passwd *getpwuid(uid_t uid);
  7447. +struct passwd *getpwnam(char *name);
  7448. +
  7449. +#endif
  7450. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/include/setjmp.h amiga/fsf/emacs18/amiga/unix/include/setjmp.h
  7451. --- baseline/fsf/emacs18/amiga/unix/include/setjmp.h    Wed Dec 31 17:00:00 1969
  7452. +++ amiga/fsf/emacs18/amiga/unix/include/setjmp.h    Sat Sep 28 00:00:00 1996
  7453. @@ -0,0 +1,55 @@
  7454. +/*-
  7455. + * Copyright (c) 1990 The Regents of the University of California.
  7456. + * All rights reserved.
  7457. + *
  7458. + * Redistribution and use in source and binary forms, with or without
  7459. + * modification, are permitted provided that the following conditions
  7460. + * are met:
  7461. + * 1. Redistributions of source code must retain the above copyright
  7462. + *    notice, this list of conditions and the following disclaimer.
  7463. + * 2. Redistributions in binary form must reproduce the above copyright
  7464. + *    notice, this list of conditions and the following disclaimer in the
  7465. + *    documentation and/or other materials provided with the distribution.
  7466. + * 3. All advertising materials mentioning features or use of this software
  7467. + *    must display the following acknowledgement:
  7468. + *    This product includes software developed by the University of
  7469. + *    California, Berkeley and its contributors.
  7470. + * 4. Neither the name of the University nor the names of its contributors
  7471. + *    may be used to endorse or promote products derived from this software
  7472. + *    without specific prior written permission.
  7473. + *
  7474. + * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  7475. + * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  7476. + * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  7477. + * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  7478. + * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  7479. + * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  7480. + * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  7481. + * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  7482. + * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  7483. + * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  7484. + * SUCH DAMAGE.
  7485. + *
  7486. + *    @(#)setjmp.h    5.5 (Berkeley) 6/8/91
  7487. + */
  7488. +
  7489. +#ifndef _SETJMP_H_
  7490. +#define _SETJMP_H_
  7491. +
  7492. +#define _JBLEN 14
  7493. +
  7494. +typedef int jmp_buf[_JBLEN];
  7495. +
  7496. +#include <sys/cdefs.h>
  7497. +
  7498. +__BEGIN_DECLS
  7499. +int    setjmp __P((jmp_buf));
  7500. +void    longjmp __P((jmp_buf, int));
  7501. +
  7502. +#if !defined(_ANSI_SOURCE) && !defined(_POSIX_SOURCE)
  7503. +int    _setjmp __P((jmp_buf));
  7504. +void    _longjmp __P((jmp_buf, int));
  7505. +#endif /* neither ANSI nor POSIX */
  7506. +__END_DECLS
  7507. +
  7508. +#endif /* !_SETJMP_H_ */
  7509. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/include/signal.h amiga/fsf/emacs18/amiga/unix/include/signal.h
  7510. --- baseline/fsf/emacs18/amiga/unix/include/signal.h    Wed Dec 31 17:00:00 1969
  7511. +++ amiga/fsf/emacs18/amiga/unix/include/signal.h    Sat Sep 28 00:00:00 1996
  7512. @@ -0,0 +1,59 @@
  7513. +#ifndef _SIGNAL_H
  7514. +#define _SIGNAL_H
  7515. +
  7516. +#define NSIG 32            /* We define lots of signals (though most are never
  7517. +                   generated) */
  7518. +
  7519. +/* Signal number definitions */
  7520. +/* Those which can be generated other than by kill are described with
  7521. +    <name>, amiga: <cause> */
  7522. +   
  7523. +
  7524. +#define SIGHUP 1        /* hangup */
  7525. +#define SIGINT 2        /* interrupt, amiga: ctrl-c */
  7526. +#define SIGQUIT 3        /* quit, amiga: ctrl-d */
  7527. +#define SIGILL 4        /* illegal instruction */
  7528. +#define SIGTRAP 5        /* trace trap */
  7529. +#define SIGIOT 6        /* abort, amiga: abort() called */
  7530. +#define SIGEMT 7        /* emulator trap */
  7531. +#define SIGFPE 8        /* arithmetic exception, amiga: arith op */
  7532. +#define SIGKILL 9        /* kill */
  7533. +#define SIGBUS 10        /* bus error */
  7534. +#define SIGSEGV 11        /* segmentation violation */
  7535. +#define SIGSYS 12        /* bad argument to system call */
  7536. +#define SIGPIPE 13        /* write on pipe or socket with no reader,
  7537. +                   amiga: generated for 'pipe's or 'sktpair's */
  7538. +#define SIGALRM 14        /* alarm clock, amiga: see alarm */
  7539. +#define SIGTERM 15        /* software termination */
  7540. +#define SIGURG 16        /* urgent condition on socket */
  7541. +/* SIGSTOP, SIGTSTP, SIGCONT, SIGTTIN, SIGTTOU undefined to avoid creating the
  7542. +   belief that we support stopped processes */
  7543. +#define SIGCHLD 20        /* child status has changed */
  7544. +#define SIGIO 23        /* I/O possible on a descriptor */
  7545. +/* Less usual signals: SIGXCPU, SIGXFSZ, SIGVTALARM, SIGPROF, SIGLOST not defined */
  7546. +#define SIGWINCH 28        /* window changed */
  7547. +#define SIGUSR1 30        /* user-defined signal 1 */
  7548. +#define SIGUSR2 31        /* user-defined signal 2 */
  7549. +
  7550. +#define SIG_IGN (void *)0
  7551. +#define SIG_DFL (void *)1
  7552. +
  7553. +struct sigvec {
  7554. +  void (*sv_handler)();
  7555. +  long sv_mask;
  7556. +  /*int sv_flags;*/ /* Not implemented */
  7557. +};
  7558. +
  7559. +void (*signal(int sig,void (*fn)(int)))(int);
  7560. +int sigvec(int sig, struct sigvec *vec, struct sigvec *ovec);
  7561. +long sigsetmask(long mask);
  7562. +long sigblock(long mask);
  7563. +
  7564. +#define sigmask(s) (1 << (s))
  7565. +
  7566. +/* Only kill(getpid(), sig) works */
  7567. +/* Also, getpid() is a unique number for this process */
  7568. +int getpid(void);
  7569. +int kill(int pid, int sig);
  7570. +
  7571. +#endif
  7572. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/include/stat.h amiga/fsf/emacs18/amiga/unix/include/stat.h
  7573. --- baseline/fsf/emacs18/amiga/unix/include/stat.h    Wed Dec 31 17:00:00 1969
  7574. +++ amiga/fsf/emacs18/amiga/unix/include/stat.h    Sat Sep 28 00:00:00 1996
  7575. @@ -0,0 +1 @@
  7576. +#include <sys/stat.h>
  7577. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/include/stdio.h amiga/fsf/emacs18/amiga/unix/include/stdio.h
  7578. --- baseline/fsf/emacs18/amiga/unix/include/stdio.h    Wed Dec 31 17:00:00 1969
  7579. +++ amiga/fsf/emacs18/amiga/unix/include/stdio.h    Sat Sep 28 00:00:00 1996
  7580. @@ -0,0 +1,7 @@
  7581. +/* Avoid problems with conflicting declarations for mkdir */
  7582. +#define mkdir __fake_mkdir
  7583. +#include "include:stdio.h"
  7584. +
  7585. +#define P_tmpdir "t:"
  7586. +
  7587. +#undef mkdir
  7588. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/include/stdlib.h amiga/fsf/emacs18/amiga/unix/include/stdlib.h
  7589. --- baseline/fsf/emacs18/amiga/unix/include/stdlib.h    Wed Dec 31 17:00:00 1969
  7590. +++ amiga/fsf/emacs18/amiga/unix/include/stdlib.h    Sat Sep 28 00:00:00 1996
  7591. @@ -0,0 +1,4 @@
  7592. +/* Avoid problems with conflicting declarations for mkdir */
  7593. +#define mkdir __fake_mkdir
  7594. +#include "include:stdlib.h"
  7595. +#undef mkdir
  7596. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/include/strings.h amiga/fsf/emacs18/amiga/unix/include/strings.h
  7597. --- baseline/fsf/emacs18/amiga/unix/include/strings.h    Wed Dec 31 17:00:00 1969
  7598. +++ amiga/fsf/emacs18/amiga/unix/include/strings.h    Sat Sep 28 00:00:00 1996
  7599. @@ -0,0 +1 @@
  7600. +#include <string.h>
  7601. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/include/sys/cdefs.h amiga/fsf/emacs18/amiga/unix/include/sys/cdefs.h
  7602. --- baseline/fsf/emacs18/amiga/unix/include/sys/cdefs.h    Wed Dec 31 17:00:00 1969
  7603. +++ amiga/fsf/emacs18/amiga/unix/include/sys/cdefs.h    Sat Sep 28 00:00:00 1996
  7604. @@ -0,0 +1,78 @@
  7605. +/*
  7606. + * Copyright (c) 1991 The Regents of the University of California.
  7607. + * All rights reserved.
  7608. + *
  7609. + * Redistribution and use in source and binary forms, with or without
  7610. + * modification, are permitted provided that the following conditions
  7611. + * are met:
  7612. + * 1. Redistributions of source code must retain the above copyright
  7613. + *    notice, this list of conditions and the following disclaimer.
  7614. + * 2. Redistributions in binary form must reproduce the above copyright
  7615. + *    notice, this list of conditions and the following disclaimer in the
  7616. + *    documentation and/or other materials provided with the distribution.
  7617. + * 3. All advertising materials mentioning features or use of this software
  7618. + *    must display the following acknowledgement:
  7619. + *    This product includes software developed by the University of
  7620. + *    California, Berkeley and its contributors.
  7621. + * 4. Neither the name of the University nor the names of its contributors
  7622. + *    may be used to endorse or promote products derived from this software
  7623. + *    without specific prior written permission.
  7624. + *
  7625. + * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  7626. + * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  7627. + * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  7628. + * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  7629. + * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  7630. + * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  7631. + * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  7632. + * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  7633. + * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  7634. + * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  7635. + * SUCH DAMAGE.
  7636. + *
  7637. + *    @(#)cdefs.h    7.6 (Berkeley) 5/4/91
  7638. + */
  7639. +
  7640. +#ifndef    _CDEFS_H_
  7641. +#define    _CDEFS_H_
  7642. +
  7643. +#if defined(__cplusplus)
  7644. +#define    __BEGIN_DECLS    extern "C" {
  7645. +#define    __END_DECLS    };
  7646. +#else
  7647. +#define    __BEGIN_DECLS
  7648. +#define    __END_DECLS
  7649. +#endif
  7650. +
  7651. +/*
  7652. + * The __CONCAT macro is used to concatenate parts of symbol names, e.g.
  7653. + * with "#define OLD(foo) __CONCAT(old,foo)", OLD(foo) produces oldfoo.
  7654. + * The __CONCAT macro is a bit tricky -- make sure you don't put spaces
  7655. + * in between its arguments.  __CONCAT can also concatenate double-quoted
  7656. + * strings produced by the __STRING macro, but this only works with ANSI C.
  7657. + */
  7658. +#if defined(__STDC__) || defined(__cplusplus)
  7659. +#define    __P(protos)    protos        /* full-blown ANSI C */
  7660. +#define    __CONCAT(x,y)    x ## y
  7661. +#define    __STRING(x)    #x
  7662. +
  7663. +#else    /* !(__STDC__ || __cplusplus) */
  7664. +#define    __P(protos)    ()        /* traditional C preprocessor */
  7665. +#define    __CONCAT(x,y)    x/**/y
  7666. +#define    __STRING(x)    "x"
  7667. +
  7668. +#ifdef __GNUC__
  7669. +#define    const        __const        /* GCC: ANSI C with -traditional */
  7670. +#define    inline        __inline
  7671. +#define    signed        __signed
  7672. +#define    volatile    __volatile
  7673. +
  7674. +#else    /* !__GNUC__ */
  7675. +#define    const                /* delete ANSI C keywords */
  7676. +#define    inline
  7677. +#define    signed
  7678. +#define    volatile
  7679. +#endif    /* !__GNUC__ */
  7680. +#endif    /* !(__STDC__ || __cplusplus) */
  7681. +
  7682. +#endif /* !_CDEFS_H_ */
  7683. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/include/sys/fcntl.h amiga/fsf/emacs18/amiga/unix/include/sys/fcntl.h
  7684. --- baseline/fsf/emacs18/amiga/unix/include/sys/fcntl.h    Wed Dec 31 17:00:00 1969
  7685. +++ amiga/fsf/emacs18/amiga/unix/include/sys/fcntl.h    Sat Sep 28 00:00:00 1996
  7686. @@ -0,0 +1,193 @@
  7687. +/*-
  7688. + * Copyright (c) 1983, 1990 The Regents of the University of California.
  7689. + * All rights reserved.
  7690. + *
  7691. + * Redistribution and use in source and binary forms, with or without
  7692. + * modification, are permitted provided that the following conditions
  7693. + * are met:
  7694. + * 1. Redistributions of source code must retain the above copyright
  7695. + *    notice, this list of conditions and the following disclaimer.
  7696. + * 2. Redistributions in binary form must reproduce the above copyright
  7697. + *    notice, this list of conditions and the following disclaimer in the
  7698. + *    documentation and/or other materials provided with the distribution.
  7699. + * 3. All advertising materials mentioning features or use of this software
  7700. + *    must display the following acknowledgement:
  7701. + *    This product includes software developed by the University of
  7702. + *    California, Berkeley and its contributors.
  7703. + * 4. Neither the name of the University nor the names of its contributors
  7704. + *    may be used to endorse or promote products derived from this software
  7705. + *    without specific prior written permission.
  7706. + *
  7707. + * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  7708. + * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  7709. + * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  7710. + * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  7711. + * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  7712. + * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  7713. + * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  7714. + * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  7715. + * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  7716. + * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  7717. + * SUCH DAMAGE.
  7718. + *
  7719. + *    @(#)fcntl.h    5.14 (Berkeley) 7/1/91
  7720. + */
  7721. +
  7722. +#ifndef _FCNTL_H_
  7723. +#define    _FCNTL_H_
  7724. +
  7725. +/*
  7726. + * This file includes the definitions for open and fcntl
  7727. + * described by POSIX for <fcntl.h>; it also includes
  7728. + * related kernel definitions.
  7729. + */
  7730. +
  7731. +#ifndef KERNEL
  7732. +#include <sys/types.h>
  7733. +#endif
  7734. +
  7735. +/*
  7736. + * File status flags: these are used by open(2), fcntl(2).
  7737. + * They are also used (indirectly) in the kernel file structure f_flags,
  7738. + * which is a superset of the open/fcntl flags.  Open flags and f_flags
  7739. + * are inter-convertible using OFLAGS(fflags) and FFLAGS(oflags).
  7740. + * Open/fcntl flags begin with O_; kernel-internal flags begin with F.
  7741. + */
  7742. +/* open-only flags */
  7743. +#define    O_RDONLY    0x0000        /* open for reading only */
  7744. +#define    O_WRONLY    0x0001        /* open for writing only */
  7745. +#define    O_RDWR        0x0002        /* open for reading and writing */
  7746. +#define    O_ACCMODE    0x0003        /* mask for above modes */
  7747. +
  7748. +#ifdef KERNEL
  7749. +/*
  7750. + * Kernel encoding of open mode; separate read and write bits
  7751. + * that are independently testable: 1 greater than the above.
  7752. + */
  7753. +#define    FREAD        0x0001
  7754. +#define    FWRITE        0x0002
  7755. +#endif
  7756. +#define    O_NONBLOCK    0x0004        /* no delay */
  7757. +#define    O_APPEND    0x0008        /* set append mode */
  7758. +#ifndef _POSIX_SOURCE
  7759. +#define    O_SHLOCK    0x0010        /* open with shared file lock */
  7760. +#define    O_EXLOCK    0x0020        /* open with exclusive file lock */
  7761. +#define    O_ASYNC        0x0040        /* signal pgrp when data ready */
  7762. +#define    O_FSYNC        0x0080        /* synchronous writes */
  7763. +#endif
  7764. +#define    O_CREAT        0x0100        /* create if nonexistant */
  7765. +#define    O_TRUNC        0x0200        /* truncate to zero length */
  7766. +#define    O_EXCL        0x0400        /* error if already exists */
  7767. +#ifdef KERNEL
  7768. +#define    FMARK        0x1000        /* mark during gc() */
  7769. +#define    FDEFER        0x2000        /* defer for next gc pass */
  7770. +#define    FHASLOCK    0x4000        /* descriptor holds advisory lock */
  7771. +#endif
  7772. +
  7773. +/* defined by POSIX 1003.1; BSD default, so no bit required */
  7774. +#define    O_NOCTTY    0        /* don't assign controlling terminal */
  7775. +
  7776. +#ifdef KERNEL
  7777. +/* convert from open() flags to/from fflags; convert O_RD/WR to FREAD/FWRITE */
  7778. +#define    FFLAGS(oflags)    ((oflags) + 1)
  7779. +#define    OFLAGS(fflags)    ((fflags) - 1)
  7780. +
  7781. +/* bits to save after open */
  7782. +#define    FMASK        (FREAD|FWRITE|FAPPEND|FASYNC|FFSYNC|FNONBLOCK)
  7783. +/* bits settable by fcntl(F_SETFL, ...) */
  7784. +#define    FCNTLFLAGS    (FAPPEND|FASYNC|FFSYNC|FNONBLOCK)
  7785. +#endif
  7786. +
  7787. +/*
  7788. + * The O_* flags used to have only F* names, which were used in the kernel
  7789. + * and by fcntl.  We retain the F* names for the kernel f_flags field
  7790. + * and for backward compatibility for fcntl.
  7791. + */
  7792. +#ifndef _POSIX_SOURCE
  7793. +#define    FAPPEND        O_APPEND    /* kernel/compat */
  7794. +#define    FASYNC        O_ASYNC        /* kernel/compat */
  7795. +#define    FFSYNC        O_FSYNC        /* kernel */
  7796. +#define    FNONBLOCK    O_NONBLOCK    /* kernel */
  7797. +#define    FNDELAY        O_NONBLOCK    /* compat */
  7798. +#define    O_NDELAY    O_NONBLOCK    /* compat */
  7799. +#endif
  7800. +
  7801. +/*
  7802. + * Constants used for fcntl(2)
  7803. + */
  7804. +
  7805. +/* command values */
  7806. +#define    F_DUPFD        0        /* duplicate file descriptor */
  7807. +#define    F_GETFD        1        /* get file descriptor flags */
  7808. +#define    F_SETFD        2        /* set file descriptor flags */
  7809. +#define    F_GETFL        3        /* get file status flags */
  7810. +#define    F_SETFL        4        /* set file status flags */
  7811. +#ifndef _POSIX_SOURCE
  7812. +#define    F_GETOWN    5        /* get SIGIO/SIGURG proc/pgrp */
  7813. +#define F_SETOWN    6        /* set SIGIO/SIGURG proc/pgrp */
  7814. +#endif
  7815. +#define    F_GETLK        7        /* get record locking information */
  7816. +#define    F_SETLK        8        /* set record locking information */
  7817. +#define    F_SETLKW    9        /* F_SETLK; wait if blocked */
  7818. +
  7819. +/* file descriptor flags (F_GETFD, F_SETFD) */
  7820. +#define    FD_CLOEXEC    1        /* close-on-exec flag */
  7821. +
  7822. +/* record locking flags (F_GETLK, F_SETLK, F_SETLKW) */
  7823. +#define    F_RDLCK        1        /* shared or read lock */
  7824. +#define    F_UNLCK        2        /* unlock */
  7825. +#define    F_WRLCK        3        /* exclusive or write lock */
  7826. +#ifdef KERNEL
  7827. +#define    F_WAIT        0x010        /* Wait until lock is granted */
  7828. +#define    F_FLOCK        0x020         /* Use flock(2) semantics for lock */
  7829. +#define    F_POSIX        0x040         /* Use POSIX semantics for lock */
  7830. +#endif
  7831. +
  7832. +/*
  7833. + * Advisory file segment locking data type -
  7834. + * information passed to system by user
  7835. + */
  7836. +struct flock {
  7837. +    short    l_type;        /* lock type: read/write, etc. */
  7838. +    short    l_whence;    /* type of l_start */
  7839. +    off_t    l_start;    /* starting offset */
  7840. +    off_t    l_len;        /* len = 0 means until end of file */
  7841. +    pid_t    l_pid;        /* lock owner */
  7842. +};
  7843. +
  7844. +
  7845. +#ifndef _POSIX_SOURCE
  7846. +/* lock operations for flock(2) */
  7847. +#define    LOCK_SH        0x01        /* shared file lock */
  7848. +#define    LOCK_EX        0x02        /* exclusive file lock */
  7849. +#define    LOCK_NB        0x04        /* don't block when locking */
  7850. +#define    LOCK_UN        0x08        /* unlock file */
  7851. +#endif
  7852. +
  7853. +
  7854. +#ifndef KERNEL
  7855. +#include <sys/cdefs.h>
  7856. +
  7857. +__BEGIN_DECLS
  7858. +int    open __P((const char *, int, ...));
  7859. +int    creat __P((const char *, mode_t));
  7860. +int    fcntl __P((int, int, ...));
  7861. +#ifndef _POSIX_SOURCE
  7862. +int    flock __P((int, int));
  7863. +#endif /* !_POSIX_SOURCE */
  7864. +__END_DECLS
  7865. +#endif
  7866. +
  7867. +#ifdef AMIGA
  7868. +#define O_NO_CLOSE 0x100    /* An available value, means don't close
  7869. +                   underlying resource */
  7870. +/* Note: S_ISVTX (sticky) is mapped to the pure bit.
  7871. +         The amiga script bit is mapped to world execute ...
  7872. +     user S_IWRITE is the and of the amiga write & delete bits.
  7873. +     group S_IWRITE is the amiga write bit.
  7874. +     world S_IWRITE is the amiga delete bit.
  7875. +     We always set the archive bit off.
  7876. +*/
  7877. +#endif
  7878. +
  7879. +#endif /* !_FCNTL_H_ */
  7880. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/include/sys/file.h amiga/fsf/emacs18/amiga/unix/include/sys/file.h
  7881. --- baseline/fsf/emacs18/amiga/unix/include/sys/file.h    Wed Dec 31 17:00:00 1969
  7882. +++ amiga/fsf/emacs18/amiga/unix/include/sys/file.h    Sat Sep 28 00:00:00 1996
  7883. @@ -0,0 +1,2 @@
  7884. +#include <fcntl.h>
  7885. +#include <sys/unistd.h>
  7886. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/include/sys/filio.h amiga/fsf/emacs18/amiga/unix/include/sys/filio.h
  7887. --- baseline/fsf/emacs18/amiga/unix/include/sys/filio.h    Wed Dec 31 17:00:00 1969
  7888. +++ amiga/fsf/emacs18/amiga/unix/include/sys/filio.h    Sat Sep 28 00:00:00 1996
  7889. @@ -0,0 +1,3 @@
  7890. +#define FIONBIO 0        /* ioctl to change non blocking mode
  7891. +                   data (an int *) is a pointer a boolean,
  7892. +                   TRUE for non-blocking io */
  7893. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/include/sys/ioctl.h amiga/fsf/emacs18/amiga/unix/include/sys/ioctl.h
  7894. --- baseline/fsf/emacs18/amiga/unix/include/sys/ioctl.h    Wed Dec 31 17:00:00 1969
  7895. +++ amiga/fsf/emacs18/amiga/unix/include/sys/ioctl.h    Sat Sep 28 00:00:00 1996
  7896. @@ -0,0 +1 @@
  7897. +#include <sys/termios.h>
  7898. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/include/sys/param.h amiga/fsf/emacs18/amiga/unix/include/sys/param.h
  7899. --- baseline/fsf/emacs18/amiga/unix/include/sys/param.h    Wed Dec 31 17:00:00 1969
  7900. +++ amiga/fsf/emacs18/amiga/unix/include/sys/param.h    Sat Sep 28 00:00:00 1996
  7901. @@ -0,0 +1,11 @@
  7902. +#ifndef _PARAM_H
  7903. +#define _PARAM_H
  7904. +
  7905. +#define MAXPATHLEN 1024
  7906. +#define DEV_BSIZE 512
  7907. +
  7908. +#ifndef NULL
  7909. +#define NULL (0)
  7910. +#endif
  7911. +
  7912. +#endif
  7913. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/include/sys/socket.h amiga/fsf/emacs18/amiga/unix/include/sys/socket.h
  7914. --- baseline/fsf/emacs18/amiga/unix/include/sys/socket.h    Wed Dec 31 17:00:00 1969
  7915. +++ amiga/fsf/emacs18/amiga/unix/include/sys/socket.h    Sat Sep 28 00:00:00 1996
  7916. @@ -0,0 +1,4 @@
  7917. +/* Support for socket pairs only */
  7918. +
  7919. +#define AF_UNIX 0
  7920. +#define SOCK_STREAM 0
  7921. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/include/sys/stat.h amiga/fsf/emacs18/amiga/unix/include/sys/stat.h
  7922. --- baseline/fsf/emacs18/amiga/unix/include/sys/stat.h    Wed Dec 31 17:00:00 1969
  7923. +++ amiga/fsf/emacs18/amiga/unix/include/sys/stat.h    Sat Sep 28 00:00:00 1996
  7924. @@ -0,0 +1,133 @@
  7925. +#ifndef _STAT_H
  7926. +#define _STAT_H
  7927. +
  7928. +/*-
  7929. + * Copyright (c) 1982, 1986, 1989 The Regents of the University of California.
  7930. + * All rights reserved.
  7931. + *
  7932. + * Redistribution and use in source and binary forms, with or without
  7933. + * modification, are permitted provided that the following conditions
  7934. + * are met:
  7935. + * 1. Redistributions of source code must retain the above copyright
  7936. + *    notice, this list of conditions and the following disclaimer.
  7937. + * 2. Redistributions in binary form must reproduce the above copyright
  7938. + *    notice, this list of conditions and the following disclaimer in the
  7939. + *    documentation and/or other materials provided with the distribution.
  7940. + * 3. All advertising materials mentioning features or use of this software
  7941. + *    must display the following acknowledgement:
  7942. + *    This product includes software developed by the University of
  7943. + *    California, Berkeley and its contributors.
  7944. + * 4. Neither the name of the University nor the names of its contributors
  7945. + *    may be used to endorse or promote products derived from this software
  7946. + *    without specific prior written permission.
  7947. + *
  7948. + * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  7949. + * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  7950. + * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  7951. + * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  7952. + * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  7953. + * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  7954. + * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  7955. + * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  7956. + * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  7957. + * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  7958. + * SUCH DAMAGE.
  7959. + *
  7960. + *    @(#)stat.h    7.11 (Berkeley) 3/3/91
  7961. + */
  7962. +
  7963. +struct stat
  7964. +{
  7965. +    dev_t    st_dev;            /* inode's device */
  7966. +    ino_t    st_ino;            /* inode's number */
  7967. +    mode_t    st_mode;        /* inode protection mode */
  7968. +    nlink_t    st_nlink;        /* number of hard links */
  7969. +    uid_t    st_uid;            /* user ID of the file's owner */
  7970. +    gid_t    st_gid;            /* group ID of the file's group */
  7971. +    dev_t    st_rdev;        /* device type */
  7972. +    off_t    st_size;        /* file size, in bytes */
  7973. +    time_t    st_atime;        /* time of last access */
  7974. +    long    st_spare1;
  7975. +    time_t    st_mtime;        /* time of last data modification */
  7976. +    long    st_spare2;
  7977. +    time_t    st_ctime;        /* time of last file status change */
  7978. +    long    st_spare3;
  7979. +    long    st_blksize;        /* optimal blocksize for I/O */
  7980. +    long    st_blocks;        /* blocks allocated for file */
  7981. +    u_long    st_flags;        /* user defined flags for file */
  7982. +    u_long    st_gen;            /* file generation number */
  7983. +};
  7984. +
  7985. +#define    S_ISUID    0004000            /* set user id on execution */
  7986. +#define    S_ISGID    0002000            /* set group id on execution */
  7987. +#ifndef _POSIX_SOURCE
  7988. +#define    S_ISTXT    0001000            /* sticky bit */
  7989. +#endif
  7990. +
  7991. +#define    S_IRWXU    0000700            /* RWX mask for owner */
  7992. +#define    S_IRUSR    0000400            /* R for owner */
  7993. +#define    S_IWUSR    0000200            /* W for owner */
  7994. +#define    S_IXUSR    0000100            /* X for owner */
  7995. +
  7996. +#ifndef _POSIX_SOURCE
  7997. +#define    S_IREAD        S_IRUSR
  7998. +#define    S_IWRITE    S_IWUSR
  7999. +#define    S_IEXEC        S_IXUSR
  8000. +#endif
  8001. +
  8002. +#define    S_IRWXG    0000070            /* RWX mask for group */
  8003. +#define    S_IRGRP    0000040            /* R for group */
  8004. +#define    S_IWGRP    0000020            /* W for group */
  8005. +#define    S_IXGRP    0000010            /* X for group */
  8006. +
  8007. +#define    S_IRWXO    0000007            /* RWX mask for other */
  8008. +#define    S_IROTH    0000004            /* R for other */
  8009. +#define    S_IWOTH    0000002            /* W for other */
  8010. +#define    S_IXOTH    0000001            /* X for other */
  8011. +
  8012. +#ifndef _POSIX_SOURCE
  8013. +#define    S_IFMT     0170000        /* type of file */
  8014. +#define    S_IFIFO     0010000        /* named pipe (fifo) */
  8015. +#define    S_IFCHR     0020000        /* character special */
  8016. +#define    S_IFDIR     0040000        /* directory */
  8017. +#define    S_IFBLK     0060000        /* block special */
  8018. +#define    S_IFREG     0100000        /* regular */
  8019. +#define    S_IFLNK     0120000        /* symbolic link */
  8020. +#define    S_IFSOCK 0140000        /* socket */
  8021. +
  8022. +#define    S_ISVTX     0001000        /* save swapped text even after use */
  8023. +
  8024. +#define S_BLKSIZE    512        /* block size used in the stat struct */
  8025. +
  8026. +                    /* 0666 */
  8027. +#define    DEFFILEMODE    (S_IRUSR|S_IWUSR|S_IRGRP|S_IWGRP|S_IROTH|S_IWOTH)
  8028. +#endif
  8029. +
  8030. +#define    S_ISDIR(m)    ((m & 0170000) == 0040000)    /* directory */
  8031. +#define    S_ISCHR(m)    ((m & 0170000) == 0020000)    /* char special */
  8032. +#define    S_ISBLK(m)    ((m & 0170000) == 0060000)    /* block special */
  8033. +#define    S_ISREG(m)    ((m & 0170000) == 0100000)    /* regular file */
  8034. +#define    S_ISFIFO(m)    ((m & 0170000) == 0010000)    /* fifo */
  8035. +#ifndef _POSIX_SOURCE
  8036. +#define    S_ISLNK(m)    ((m & 0170000) == 0120000)    /* symbolic link */
  8037. +#define    S_ISSOCK(m)    ((m & 0170000) == 0140000)    /* socket */
  8038. +#endif
  8039. +
  8040. +#ifndef KERNEL
  8041. +#include <sys/cdefs.h>
  8042. +
  8043. +__BEGIN_DECLS
  8044. +mode_t    umask __P((mode_t));
  8045. +int    chmod __P((const char *, mode_t));
  8046. +int    fstat __P((int, struct stat *));
  8047. +int    mkdir __P((char *, mode_t));
  8048. +int    mkfifo __P((char *, mode_t));
  8049. +int    stat __P((char *, struct stat *));
  8050. +#ifndef _POSIX_SOURCE
  8051. +int    fchmod __P((int, mode_t));
  8052. +int    lstat __P((char *, struct stat *));
  8053. +#endif /* not POSIX */
  8054. +__END_DECLS
  8055. +#endif
  8056. +
  8057. +#endif
  8058. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/include/sys/termios.h amiga/fsf/emacs18/amiga/unix/include/sys/termios.h
  8059. --- baseline/fsf/emacs18/amiga/unix/include/sys/termios.h    Wed Dec 31 17:00:00 1969
  8060. +++ amiga/fsf/emacs18/amiga/unix/include/sys/termios.h    Sat Sep 28 00:00:00 1996
  8061. @@ -0,0 +1,15 @@
  8062. +#ifndef _TERMIOS_H
  8063. +#define _TERMIOS_H
  8064. +
  8065. +struct winsize {
  8066. +  unsigned short ws_row;    /* rows, in characters */
  8067. +  unsigned short ws_col;    /* columns, in characters */
  8068. +  unsigned short ws_xpixel;    /* horizontal size, pixels - not used */
  8069. +  unsigned short ws_ypixel;    /* vertical size, pixels - not used */
  8070. +};
  8071. +
  8072. +#define _TERMIO_IOCTL_BASE 1024
  8073. +
  8074. +#define TIOCGWINSZ (_TERMIO_IOCTL_BASE + 0)
  8075. +
  8076. +#endif
  8077. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/include/sys/time.h amiga/fsf/emacs18/amiga/unix/include/sys/time.h
  8078. --- baseline/fsf/emacs18/amiga/unix/include/sys/time.h    Wed Dec 31 17:00:00 1969
  8079. +++ amiga/fsf/emacs18/amiga/unix/include/sys/time.h    Sat Sep 28 00:00:00 1996
  8080. @@ -0,0 +1,90 @@
  8081. +/*
  8082. + * Copyright (c) 1982, 1986 The Regents of the University of California.
  8083. + * All rights reserved.
  8084. + *
  8085. + * Redistribution and use in source and binary forms, with or without
  8086. + * modification, are permitted provided that the following conditions
  8087. + * are met:
  8088. + * 1. Redistributions of source code must retain the above copyright
  8089. + *    notice, this list of conditions and the following disclaimer.
  8090. + * 2. Redistributions in binary form must reproduce the above copyright
  8091. + *    notice, this list of conditions and the following disclaimer in the
  8092. + *    documentation and/or other materials provided with the distribution.
  8093. + * 3. All advertising materials mentioning features or use of this software
  8094. + *    must display the following acknowledgement:
  8095. + *    This product includes software developed by the University of
  8096. + *    California, Berkeley and its contributors.
  8097. + * 4. Neither the name of the University nor the names of its contributors
  8098. + *    may be used to endorse or promote products derived from this software
  8099. + *    without specific prior written permission.
  8100. + *
  8101. + * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  8102. + * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  8103. + * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  8104. + * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  8105. + * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  8106. + * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  8107. + * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  8108. + * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  8109. + * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  8110. + * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  8111. + * SUCH DAMAGE.
  8112. + *
  8113. + *    @(#)time.h    7.6 (Berkeley) 2/22/91
  8114. + */
  8115. +
  8116. +#ifndef _SYS_TIME_H_
  8117. +#define _SYS_TIME_H_
  8118. +
  8119. +/*
  8120. + * Structure returned by gettimeofday(2) system call,
  8121. + * and used in other calls.
  8122. + */
  8123. +/* This defines a struct timeval, with basically equivalent fields. So we use it */
  8124. +#undef LONGBITS            /* This is for emacs's sake */
  8125. +#include <devices/timer.h>
  8126. +#undef LONGBITS
  8127. +/* But we need these defines */
  8128. +#define tv_sec tv_secs
  8129. +#define tv_usec tv_micro
  8130. +
  8131. +struct timezone {
  8132. +    int    tz_minuteswest;    /* minutes west of Greenwich */
  8133. +    int    tz_dsttime;    /* type of dst correction */
  8134. +};
  8135. +#define    DST_NONE    0    /* not on dst */
  8136. +#define    DST_USA        1    /* USA style dst */
  8137. +#define    DST_AUST    2    /* Australian style dst */
  8138. +#define    DST_WET        3    /* Western European dst */
  8139. +#define    DST_MET        4    /* Middle European dst */
  8140. +#define    DST_EET        5    /* Eastern European dst */
  8141. +#define    DST_CAN        6    /* Canada */
  8142. +
  8143. +/*
  8144. + * Operations on timevals.
  8145. + *
  8146. + * NB: timercmp does not work for >= or <=.
  8147. + */
  8148. +#define    timerisset(tvp)        ((tvp)->tv_sec || (tvp)->tv_usec)
  8149. +#define    timercmp(tvp, uvp, cmp)    \
  8150. +    ((tvp)->tv_sec cmp (uvp)->tv_sec || \
  8151. +     (tvp)->tv_sec == (uvp)->tv_sec && (tvp)->tv_usec cmp (uvp)->tv_usec)
  8152. +#define    timerclear(tvp)        (tvp)->tv_sec = (tvp)->tv_usec = 0
  8153. +
  8154. +#ifndef KERNEL
  8155. +#include <time.h>
  8156. +
  8157. +#ifndef _POSIX_SOURCE
  8158. +#include <sys/cdefs.h>
  8159. +
  8160. +__BEGIN_DECLS
  8161. +int    adjtime __P((const struct timeval *, struct timeval *));
  8162. +int    gettimeofday __P((struct timeval *, struct timezone *));
  8163. +int    settimeofday __P((const struct timeval *, const struct timezone *));
  8164. +int    utimes __P((const char *, const struct timeval *));
  8165. +__END_DECLS
  8166. +#endif /* !POSIX */
  8167. +
  8168. +#endif /* !KERNEL */
  8169. +
  8170. +#endif /* !_SYS_TIME_H_ */
  8171. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/include/sys/timeb.h amiga/fsf/emacs18/amiga/unix/include/sys/timeb.h
  8172. --- baseline/fsf/emacs18/amiga/unix/include/sys/timeb.h    Wed Dec 31 17:00:00 1969
  8173. +++ amiga/fsf/emacs18/amiga/unix/include/sys/timeb.h    Sat Sep 28 00:00:00 1996
  8174. @@ -0,0 +1,12 @@
  8175. +#ifndef _TIMEB_H
  8176. +#define _TIMEB_H
  8177. +
  8178. +struct timeb
  8179. +{
  8180. +  time_t   time;
  8181. +  unsigned short millitm;
  8182. +  short    timezone;
  8183. +  short    dstflag;
  8184. +};
  8185. +
  8186. +#endif
  8187. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/include/sys/types.h amiga/fsf/emacs18/amiga/unix/include/sys/types.h
  8188. --- baseline/fsf/emacs18/amiga/unix/include/sys/types.h    Wed Dec 31 17:00:00 1969
  8189. +++ amiga/fsf/emacs18/amiga/unix/include/sys/types.h    Sat Sep 28 00:00:00 1996
  8190. @@ -0,0 +1,90 @@
  8191. +/*-
  8192. + * Copyright (c) 1982, 1986, 1991 The Regents of the University of California.
  8193. + * All rights reserved.
  8194. + *
  8195. + * Redistribution and use in source and binary forms, with or without
  8196. + * modification, are permitted provided that the following conditions
  8197. + * are met:
  8198. + * 1. Redistributions of source code must retain the above copyright
  8199. + *    notice, this list of conditions and the following disclaimer.
  8200. + * 2. Redistributions in binary form must reproduce the above copyright
  8201. + *    notice, this list of conditions and the following disclaimer in the
  8202. + *    documentation and/or other materials provided with the distribution.
  8203. + * 3. All advertising materials mentioning features or use of this software
  8204. + *    must display the following acknowledgement:
  8205. + *    This product includes software developed by the University of
  8206. + *    California, Berkeley and its contributors.
  8207. + * 4. Neither the name of the University nor the names of its contributors
  8208. + *    may be used to endorse or promote products derived from this software
  8209. + *    without specific prior written permission.
  8210. + *
  8211. + * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  8212. + * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  8213. + * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  8214. + * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  8215. + * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  8216. + * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  8217. + * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  8218. + * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  8219. + * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  8220. + * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  8221. + * SUCH DAMAGE.
  8222. + *
  8223. + *    @(#)types.h    7.17 (Berkeley) 5/6/91
  8224. + */
  8225. +
  8226. +#ifndef _TYPES_H_
  8227. +#define    _TYPES_H_
  8228. +
  8229. +typedef    unsigned char    u_char;
  8230. +typedef    unsigned short    u_short;
  8231. +typedef    unsigned int    u_int;
  8232. +typedef    unsigned long    u_long;
  8233. +typedef    unsigned short    ushort;        /* Sys V compatibility */
  8234. +
  8235. +typedef    char *    caddr_t;        /* core address */
  8236. +typedef    long    daddr_t;        /* disk address */
  8237. +typedef    long    dev_t;            /* device number */
  8238. +typedef    u_long    ino_t;            /* inode number */
  8239. +typedef    long    off_t;            /* file offset (should be a quad) */
  8240. +typedef    u_short    nlink_t;        /* link count */
  8241. +typedef    long    swblk_t;        /* swap offset */
  8242. +typedef    long    segsz_t;        /* segment size */
  8243. +typedef    u_short    uid_t;            /* user id */
  8244. +typedef    u_short    gid_t;            /* group id */
  8245. +typedef    int    pid_t;            /* process id */
  8246. +typedef    int    mode_t;            /* permissions */
  8247. +typedef u_long    fixpt_t;        /* fixed point number */
  8248. +
  8249. +#ifndef _POSIX_SOURCE
  8250. +typedef    struct    _uquad    { u_long val[2]; } u_quad;
  8251. +typedef    struct    _quad    {   long val[2]; } quad;
  8252. +typedef    long *    qaddr_t;    /* should be typedef quad * qaddr_t; */
  8253. +
  8254. +#define    major(x)    ((int)(((u_int)(x) >> 8)&0xff))    /* major number */
  8255. +#define    minor(x)    ((int)((x)&0xff))        /* minor number */
  8256. +#define    makedev(x,y)    ((dev_t)(((x)<<8) | (y)))    /* create dev_t */
  8257. +#endif
  8258. +
  8259. +typedef    long clock_t;
  8260. +typedef long time_t;
  8261. +#ifndef _SIZE_T
  8262. +#define _SIZE_T
  8263. +typedef    unsigned int size_t;
  8264. +#endif
  8265. +
  8266. +#ifndef _POSIX_SOURCE
  8267. +/*
  8268. + * My implementation only allows 32 fds in select.
  8269. + */
  8270. +#define    FD_SETSIZE    32
  8271. +
  8272. +typedef    long fd_set;
  8273. +
  8274. +#define    FD_SET(n, p)    (*(p) |= (1 << (n)))
  8275. +#define    FD_CLR(n, p)    (*(p) &= ~(1 << (n)))
  8276. +#define    FD_ISSET(n, p)    (*(p) & (1 << (n)))
  8277. +#define    FD_ZERO(p)    bzero((char *)(p), sizeof(*(p)))
  8278. +
  8279. +#endif /* !_POSIX_SOURCE */
  8280. +#endif /* !_TYPES_H_ */
  8281. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/include/sys/unistd.h amiga/fsf/emacs18/amiga/unix/include/sys/unistd.h
  8282. --- baseline/fsf/emacs18/amiga/unix/include/sys/unistd.h    Wed Dec 31 17:00:00 1969
  8283. +++ amiga/fsf/emacs18/amiga/unix/include/sys/unistd.h    Sat Sep 28 00:00:00 1996
  8284. @@ -0,0 +1,61 @@
  8285. +/*
  8286. + * Copyright (c) 1989 The Regents of the University of California.
  8287. + * All rights reserved.
  8288. + *
  8289. + * Redistribution and use in source and binary forms, with or without
  8290. + * modification, are permitted provided that the following conditions
  8291. + * are met:
  8292. + * 1. Redistributions of source code must retain the above copyright
  8293. + *    notice, this list of conditions and the following disclaimer.
  8294. + * 2. Redistributions in binary form must reproduce the above copyright
  8295. + *    notice, this list of conditions and the following disclaimer in the
  8296. + *    documentation and/or other materials provided with the distribution.
  8297. + * 3. All advertising materials mentioning features or use of this software
  8298. + *    must display the following acknowledgement:
  8299. + *    This product includes software developed by the University of
  8300. + *    California, Berkeley and its contributors.
  8301. + * 4. Neither the name of the University nor the names of its contributors
  8302. + *    may be used to endorse or promote products derived from this software
  8303. + *    without specific prior written permission.
  8304. + *
  8305. + * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  8306. + * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  8307. + * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  8308. + * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  8309. + * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  8310. + * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  8311. + * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  8312. + * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  8313. + * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  8314. + * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  8315. + * SUCH DAMAGE.
  8316. + *
  8317. + *    @(#)unistd.h    5.14 (Berkeley) 4/1/91
  8318. + */
  8319. +
  8320. +#ifndef _SYS_UNISTD_H_
  8321. +#define    _SYS_UNISTD_H_
  8322. +
  8323. +/* compile-time symbolic constants */
  8324. +
  8325. +/* access function */
  8326. +#ifndef F_OK
  8327. +#define    F_OK        0    /* test for existence of file */
  8328. +#define    X_OK        0x01    /* test for execute or search permission */
  8329. +#define    W_OK        0x02    /* test for write permission */
  8330. +#define    R_OK        0x04    /* test for read permission */
  8331. +#endif
  8332. +
  8333. +/* whence values for lseek(2) */
  8334. +#define    SEEK_SET    0    /* set file offset to offset */
  8335. +#define    SEEK_CUR    1    /* set file offset to current plus offset */
  8336. +#define    SEEK_END    2    /* set file offset to EOF plus offset */
  8337. +
  8338. +#ifndef _POSIX_SOURCE
  8339. +/* whence values for lseek(2); renamed by POSIX 1003.1 */
  8340. +#define    L_SET        SEEK_SET
  8341. +#define    L_INCR        SEEK_CUR
  8342. +#define    L_XTND        SEEK_END
  8343. +#endif
  8344. +
  8345. +#endif /* !_SYS_UNISTD_H_ */
  8346. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/include/sys/vlimit.h amiga/fsf/emacs18/amiga/unix/include/sys/vlimit.h
  8347. --- baseline/fsf/emacs18/amiga/unix/include/sys/vlimit.h    Wed Dec 31 17:00:00 1969
  8348. +++ amiga/fsf/emacs18/amiga/unix/include/sys/vlimit.h    Sat Sep 28 00:00:00 1996
  8349. @@ -0,0 +1,2 @@
  8350. +/* Dummy for Emacs so that we can run on VMS... */
  8351. +#define LIM_DATA 0
  8352. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/include/sys/wait.h amiga/fsf/emacs18/amiga/unix/include/sys/wait.h
  8353. --- baseline/fsf/emacs18/amiga/unix/include/sys/wait.h    Wed Dec 31 17:00:00 1969
  8354. +++ amiga/fsf/emacs18/amiga/unix/include/sys/wait.h    Sat Sep 28 00:00:00 1996
  8355. @@ -0,0 +1,82 @@
  8356. +/*
  8357. + * Copyright (c) 1982, 1986, 1989 The Regents of the University of California.
  8358. + * All rights reserved.
  8359. + *
  8360. + * Redistribution and use in source and binary forms, with or without
  8361. + * modification, are permitted provided that the following conditions
  8362. + * are met:
  8363. + * 1. Redistributions of source code must retain the above copyright
  8364. + *    notice, this list of conditions and the following disclaimer.
  8365. + * 2. Redistributions in binary form must reproduce the above copyright
  8366. + *    notice, this list of conditions and the following disclaimer in the
  8367. + *    documentation and/or other materials provided with the distribution.
  8368. + * 3. All advertising materials mentioning features or use of this software
  8369. + *    must display the following acknowledgement:
  8370. + *    This product includes software developed by the University of
  8371. + *    California, Berkeley and its contributors.
  8372. + * 4. Neither the name of the University nor the names of its contributors
  8373. + *    may be used to endorse or promote products derived from this software
  8374. + *    without specific prior written permission.
  8375. + *
  8376. + * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  8377. + * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  8378. + * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  8379. + * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  8380. + * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  8381. + * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  8382. + * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  8383. + * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  8384. + * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  8385. + * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  8386. + * SUCH DAMAGE.
  8387. + *
  8388. + *    @(#)wait.h    7.17 (Berkeley) 6/19/91
  8389. + */
  8390. +
  8391. +/*
  8392. + * This file holds definitions relevent to the wait4 system call
  8393. + * and the alternate interfaces that use it (wait, wait3, waitpid).
  8394. + */
  8395. +
  8396. +/*
  8397. + * Macros to test the exit status returned by wait
  8398. + * and extract the relevant values.
  8399. + */
  8400. +#define    _W_INT(i)    (i)
  8401. +
  8402. +#define    _WSTATUS(x)    (_W_INT(x) & 0177)
  8403. +#define    _WSTOPPED    0177        /* _WSTATUS if process is stopped */
  8404. +#define WIFSTOPPED(x)    (_WSTATUS(x) == _WSTOPPED)
  8405. +#define WSTOPSIG(x)    (_W_INT(x) >> 8)
  8406. +#define WIFSIGNALED(x)    (_WSTATUS(x) != _WSTOPPED && _WSTATUS(x) != 0)
  8407. +#define WTERMSIG(x)    (_WSTATUS(x))
  8408. +#define WIFEXITED(x)    (_WSTATUS(x) == 0)
  8409. +#define WEXITSTATUS(x)    (_W_INT(x) >> 8)
  8410. +#define    W_EXITCODE(ret, sig)    ((ret) << 8 | (sig))
  8411. +#define    W_STOPCODE(sig)        ((sig) << 8 | _WSTOPPED)
  8412. +
  8413. +/*
  8414. + * Option bits for the second argument of wait4.  WNOHANG causes the
  8415. + * wait to not hang if there are no stopped or terminated processes, rather
  8416. + * returning an error indication in this case (pid==0).  WUNTRACED
  8417. + * indicates that the caller should receive status about untraced children
  8418. + * which stop due to signals.  If children are stopped and a wait without
  8419. + * this option is done, it is as though they were still running... nothing
  8420. + * about them is returned.
  8421. + */
  8422. +#define WNOHANG        1    /* dont hang in wait */
  8423. +#define WUNTRACED    2    /* tell about stopped, untraced children */
  8424. +
  8425. +#ifndef KERNEL
  8426. +#include <sys/types.h>
  8427. +#include <sys/cdefs.h>
  8428. +
  8429. +__BEGIN_DECLS
  8430. +struct rusage;    /* forward declaration */
  8431. +
  8432. +pid_t    wait __P((int *));
  8433. +pid_t    waitpid __P((pid_t, int *, int));
  8434. +pid_t    wait3 __P((int *, int, struct rusage *));
  8435. +pid_t    wait4 __P((pid_t, int *, int, struct rusage *));
  8436. +__END_DECLS
  8437. +#endif
  8438. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/include/time.h amiga/fsf/emacs18/amiga/unix/include/time.h
  8439. --- baseline/fsf/emacs18/amiga/unix/include/time.h    Wed Dec 31 17:00:00 1969
  8440. +++ amiga/fsf/emacs18/amiga/unix/include/time.h    Sat Sep 28 00:00:00 1996
  8441. @@ -0,0 +1,78 @@
  8442. +/*
  8443. + * Copyright (c) 1989 The Regents of the University of California.
  8444. + * All rights reserved.
  8445. + *
  8446. + * Redistribution and use in source and binary forms, with or without
  8447. + * modification, are permitted provided that the following conditions
  8448. + * are met:
  8449. + * 1. Redistributions of source code must retain the above copyright
  8450. + *    notice, this list of conditions and the following disclaimer.
  8451. + * 2. Redistributions in binary form must reproduce the above copyright
  8452. + *    notice, this list of conditions and the following disclaimer in the
  8453. + *    documentation and/or other materials provided with the distribution.
  8454. + * 3. All advertising materials mentioning features or use of this software
  8455. + *    must display the following acknowledgement:
  8456. + *    This product includes software developed by the University of
  8457. + *    California, Berkeley and its contributors.
  8458. + * 4. Neither the name of the University nor the names of its contributors
  8459. + *    may be used to endorse or promote products derived from this software
  8460. + *    without specific prior written permission.
  8461. + *
  8462. + * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  8463. + * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  8464. + * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  8465. + * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  8466. + * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  8467. + * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  8468. + * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  8469. + * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  8470. + * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  8471. + * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  8472. + * SUCH DAMAGE.
  8473. + *
  8474. + *    @(#)time.h    5.12 (Berkeley) 3/9/91
  8475. + */
  8476. +
  8477. +#ifndef _TIME_H_
  8478. +#define    _TIME_H_
  8479. +
  8480. +#include <sys/types.h>
  8481. +
  8482. +struct tm {
  8483. +    int    tm_sec;        /* seconds after the minute [0-60] */
  8484. +    int    tm_min;        /* minutes after the hour [0-59] */
  8485. +    int    tm_hour;    /* hours since midnight [0-23] */
  8486. +    int    tm_mday;    /* day of the month [1-31] */
  8487. +    int    tm_mon;        /* months since January [0-11] */
  8488. +    int    tm_year;    /* years since 1900 */
  8489. +    int    tm_wday;    /* days since Sunday [0-6] */
  8490. +    int    tm_yday;    /* days since January 1 [0-365] */
  8491. +    int    tm_isdst;    /* Daylight Savings Time flag */
  8492. +    long    tm_gmtoff;    /* offset from CUT in seconds */
  8493. +    char    *tm_zone;    /* timezone abbreviation */
  8494. +};
  8495. +
  8496. +#include <sys/cdefs.h>
  8497. +
  8498. +__BEGIN_DECLS
  8499. +char *asctime __P((const struct tm *));
  8500. +clock_t clock __P((void));
  8501. +char *ctime __P((const time_t *));
  8502. +double difftime __P((time_t, time_t));
  8503. +struct tm *gmtime __P((const time_t *));
  8504. +struct tm *localtime __P((const time_t *));
  8505. +time_t mktime __P((struct tm *));
  8506. +size_t strftime __P((char *, size_t, const char *, const struct tm *));
  8507. +time_t time __P((time_t *));
  8508. +
  8509. +#ifndef _ANSI_SOURCE
  8510. +void tzset __P((void));
  8511. +#endif /* not ANSI */
  8512. +
  8513. +#if !defined(_ANSI_SOURCE) && !defined(_POSIX_SOURCE)
  8514. +/*char *timezone __P((int, int));*/
  8515. +void tzsetwall __P((void));
  8516. +#endif /* neither ANSI nor POSIX */
  8517. +__END_DECLS
  8518. +
  8519. +#endif /* !_TIME_H_ */
  8520. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/include/tzfile.h amiga/fsf/emacs18/amiga/unix/include/tzfile.h
  8521. --- baseline/fsf/emacs18/amiga/unix/include/tzfile.h    Wed Dec 31 17:00:00 1969
  8522. +++ amiga/fsf/emacs18/amiga/unix/include/tzfile.h    Sat Sep 28 00:00:00 1996
  8523. @@ -0,0 +1,151 @@
  8524. +/*
  8525. + * Copyright (c) 1988 Regents of the University of California.
  8526. + * All rights reserved.
  8527. + *
  8528. + * This code is derived from software contributed to Berkeley by
  8529. + * Arthur David Olson of the National Cancer Institute.
  8530. + *
  8531. + * Redistribution and use in source and binary forms, with or without
  8532. + * modification, are permitted provided that the following conditions
  8533. + * are met:
  8534. + * 1. Redistributions of source code must retain the above copyright
  8535. + *    notice, this list of conditions and the following disclaimer.
  8536. + * 2. Redistributions in binary form must reproduce the above copyright
  8537. + *    notice, this list of conditions and the following disclaimer in the
  8538. + *    documentation and/or other materials provided with the distribution.
  8539. + * 3. All advertising materials mentioning features or use of this software
  8540. + *    must display the following acknowledgement:
  8541. + *    This product includes software developed by the University of
  8542. + *    California, Berkeley and its contributors.
  8543. + * 4. Neither the name of the University nor the names of its contributors
  8544. + *    may be used to endorse or promote products derived from this software
  8545. + *    without specific prior written permission.
  8546. + *
  8547. + * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  8548. + * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  8549. + * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  8550. + * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  8551. + * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  8552. + * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  8553. + * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  8554. + * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  8555. + * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  8556. + * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  8557. + * SUCH DAMAGE.
  8558. + *
  8559. + *    @(#)tzfile.h    5.10 (Berkeley) 4/3/91
  8560. + */
  8561. +
  8562. +#ifndef _TZFILE_H_
  8563. +#define    _TZFILE_H_
  8564. +
  8565. +/*
  8566. + * Information about time zone files.
  8567. + */
  8568. +            /* Time zone object file directory */
  8569. +#define TZDIR        "s:zoneinfo"
  8570. +#define TZDEFAULT    "s:localtime"
  8571. +#define TZDEFRULES    "posixrules"
  8572. +
  8573. +/*
  8574. +** Each file begins with. . .
  8575. +*/
  8576. +
  8577. +struct tzhead {
  8578. +    char    tzh_reserved[24];    /* reserved for future use */
  8579. +    char    tzh_ttisstdcnt[4];    /* coded number of trans. time flags */
  8580. +    char    tzh_leapcnt[4];        /* coded number of leap seconds */
  8581. +    char    tzh_timecnt[4];        /* coded number of transition times */
  8582. +    char    tzh_typecnt[4];        /* coded number of local time types */
  8583. +    char    tzh_charcnt[4];        /* coded number of abbr. chars */
  8584. +};
  8585. +
  8586. +/*
  8587. +** . . .followed by. . .
  8588. +**
  8589. +**    tzh_timecnt (char [4])s        coded transition times a la time(2)
  8590. +**    tzh_timecnt (unsigned char)s    types of local time starting at above
  8591. +**    tzh_typecnt repetitions of
  8592. +**        one (char [4])        coded GMT offset in seconds
  8593. +**        one (unsigned char)    used to set tm_isdst
  8594. +**        one (unsigned char)    that's an abbreviation list index
  8595. +**    tzh_charcnt (char)s        '\0'-terminated zone abbreviations
  8596. +**    tzh_leapcnt repetitions of
  8597. +**        one (char [4])        coded leap second transition times
  8598. +**        one (char [4])        total correction after above
  8599. +**    tzh_ttisstdcnt (char)s        indexed by type; if TRUE, transition
  8600. +**                    time is standard time, if FALSE,
  8601. +**                    transition time is wall clock time
  8602. +**                    if absent, transition times are
  8603. +**                    assumed to be wall clock time
  8604. +*/
  8605. +
  8606. +/*
  8607. +** In the current implementation, "tzset()" refuses to deal with files that
  8608. +** exceed any of the limits below.
  8609. +*/
  8610. +
  8611. +/*
  8612. +** The TZ_MAX_TIMES value below is enough to handle a bit more than a
  8613. +** year's worth of solar time (corrected daily to the nearest second) or
  8614. +** 138 years of Pacific Presidential Election time
  8615. +** (where there are three time zone transitions every fourth year).
  8616. +*/
  8617. +#define TZ_MAX_TIMES    370
  8618. +
  8619. +#define NOSOLAR            /* 4BSD doesn't currently handle solar time */
  8620. +
  8621. +#ifndef NOSOLAR
  8622. +#define TZ_MAX_TYPES    256    /* Limited by what (unsigned char)'s can hold */
  8623. +#else
  8624. +#define TZ_MAX_TYPES    10    /* Maximum number of local time types */
  8625. +#endif
  8626. +
  8627. +#define TZ_MAX_CHARS    50    /* Maximum number of abbreviation characters */
  8628. +
  8629. +#define    TZ_MAX_LEAPS    50    /* Maximum number of leap second corrections */
  8630. +
  8631. +#define SECSPERMIN    60
  8632. +#define MINSPERHOUR    60
  8633. +#define HOURSPERDAY    24
  8634. +#define DAYSPERWEEK    7
  8635. +#define DAYSPERNYEAR    365
  8636. +#define DAYSPERLYEAR    366
  8637. +#define SECSPERHOUR    (SECSPERMIN * MINSPERHOUR)
  8638. +#define SECSPERDAY    ((long) SECSPERHOUR * HOURSPERDAY)
  8639. +#define MONSPERYEAR    12
  8640. +
  8641. +#define TM_SUNDAY    0
  8642. +#define TM_MONDAY    1
  8643. +#define TM_TUESDAY    2
  8644. +#define TM_WEDNESDAY    3
  8645. +#define TM_THURSDAY    4
  8646. +#define TM_FRIDAY    5
  8647. +#define TM_SATURDAY    6
  8648. +
  8649. +#define TM_JANUARY    0
  8650. +#define TM_FEBRUARY    1
  8651. +#define TM_MARCH    2
  8652. +#define TM_APRIL    3
  8653. +#define TM_MAY        4
  8654. +#define TM_JUNE        5
  8655. +#define TM_JULY        6
  8656. +#define TM_AUGUST    7
  8657. +#define TM_SEPTEMBER    8
  8658. +#define TM_OCTOBER    9
  8659. +#define TM_NOVEMBER    10
  8660. +#define TM_DECEMBER    11
  8661. +
  8662. +#define TM_YEAR_BASE    1900
  8663. +
  8664. +#define EPOCH_YEAR    1970
  8665. +#define EPOCH_WDAY    TM_THURSDAY
  8666. +
  8667. +/*
  8668. +** Accurate only for the past couple of centuries;
  8669. +** that will probably do.
  8670. +*/
  8671. +
  8672. +#define isleap(y) (((y) % 4) == 0 && ((y) % 100) != 0 || ((y) % 400) == 0)
  8673. +
  8674. +#endif /* !_TZFILE_H_ */
  8675. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/include/unistd.h amiga/fsf/emacs18/amiga/unix/include/unistd.h
  8676. --- baseline/fsf/emacs18/amiga/unix/include/unistd.h    Wed Dec 31 17:00:00 1969
  8677. +++ amiga/fsf/emacs18/amiga/unix/include/unistd.h    Sat Sep 28 00:00:00 1996
  8678. @@ -0,0 +1,178 @@
  8679. +/*-
  8680. + * Copyright (c) 1991 The Regents of the University of California.
  8681. + * All rights reserved.
  8682. + *
  8683. + * Redistribution and use in source and binary forms, with or without
  8684. + * modification, are permitted provided that the following conditions
  8685. + * are met:
  8686. + * 1. Redistributions of source code must retain the above copyright
  8687. + *    notice, this list of conditions and the following disclaimer.
  8688. + * 2. Redistributions in binary form must reproduce the above copyright
  8689. + *    notice, this list of conditions and the following disclaimer in the
  8690. + *    documentation and/or other materials provided with the distribution.
  8691. + * 3. All advertising materials mentioning features or use of this software
  8692. + *    must display the following acknowledgement:
  8693. + *    This product includes software developed by the University of
  8694. + *    California, Berkeley and its contributors.
  8695. + * 4. Neither the name of the University nor the names of its contributors
  8696. + *    may be used to endorse or promote products derived from this software
  8697. + *    without specific prior written permission.
  8698. + *
  8699. + * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  8700. + * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  8701. + * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  8702. + * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  8703. + * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  8704. + * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  8705. + * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  8706. + * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  8707. + * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  8708. + * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  8709. + * SUCH DAMAGE.
  8710. + *
  8711. + *    @(#)unistd.h    5.13 (Berkeley) 6/17/91
  8712. + */
  8713. +
  8714. +#ifndef _UNISTD_H_
  8715. +#define    _UNISTD_H_
  8716. +
  8717. +#include <sys/cdefs.h>
  8718. +#include <sys/types.h>
  8719. +#include <sys/unistd.h>
  8720. +
  8721. +#define     STDIN_FILENO    0    /* standard input file descriptor */
  8722. +#define    STDOUT_FILENO    1    /* standard output file descriptor */
  8723. +#define    STDERR_FILENO    2    /* standard error file descriptor */
  8724. +
  8725. +#ifndef NULL
  8726. +#define    NULL        0    /* null pointer constant */
  8727. +#endif
  8728. +
  8729. +typedef    int ssize_t;        /* count of bytes or error indication */
  8730. +
  8731. +__BEGIN_DECLS
  8732. +void     _exit __P((int));
  8733. +int     access __P((const char *, int));
  8734. +u_int     alarm __P((u_int));
  8735. +int     chdir __P((const char *));
  8736. +int     chown __P((const char *, uid_t, gid_t));
  8737. +int     close __P((int));
  8738. +char    *cuserid __P((char *));
  8739. +int     dup __P((int));
  8740. +int     dup2 __P((int, int));
  8741. +int     execl __P((const char *, const char *, ...));
  8742. +int     execle __P((const char *, const char *, ...));
  8743. +int     execlp __P((const char *, const char *, ...));
  8744. +int     execv __P((const char *, char * const *));
  8745. +int     execve __P((const char *, char * const *, char * const *));
  8746. +int     execvp __P((const char *, char * const *));
  8747. +pid_t     fork __P((void));
  8748. +long     fpathconf __P((int, int));        /* not yet */
  8749. +char    *getcwd __P((const char *, int));
  8750. +gid_t     getegid __P((void));
  8751. +uid_t     geteuid __P((void));
  8752. +gid_t     getgid __P((void));
  8753. +int     getgroups __P((int, int *));        /* XXX (gid_t *) */
  8754. +char    *getlogin __P((void));
  8755. +pid_t     getpgrp __P((void));
  8756. +pid_t     getpid __P((void));
  8757. +pid_t     getppid __P((void));
  8758. +uid_t     getuid __P((void));
  8759. +int     isatty __P((int));
  8760. +int     link __P((const char *, const char *));
  8761. +off_t     lseek __P((int, off_t, int));
  8762. +long     pathconf __P((const char *, int));    /* not yet */
  8763. +int     pause __P((void));
  8764. +int     pipe __P((int *));
  8765. +ssize_t     read __P((int, void *, size_t));
  8766. +int     rmdir __P((const char *));
  8767. +int     setgid __P((gid_t));
  8768. +int     setpgid __P((pid_t, pid_t));
  8769. +pid_t     setsid __P((void));
  8770. +int     setuid __P((uid_t));
  8771. +u_int     sleep __P((u_int));
  8772. +long     sysconf __P((int));            /* not yet */
  8773. +pid_t     tcgetpgrp __P((int));
  8774. +int     tcsetpgrp __P((int, pid_t));
  8775. +char    *ttyname __P((int));
  8776. +int     unlink __P((const char *));
  8777. +ssize_t     write __P((int, const void *, size_t));
  8778. +
  8779. +#ifndef    _POSIX_SOURCE
  8780. +
  8781. +/* structure timeval required for select() */
  8782. +#include <sys/time.h>
  8783. +
  8784. +int     acct __P((const char *));
  8785. +int     async_daemon __P((void));
  8786. +char    *brk __P((const char *));
  8787. +int     chflags __P((const char *, long));
  8788. +int     chroot __P((const char *));
  8789. +char    *crypt __P((const char *, const char *));
  8790. +int     des_cipher __P((const char *, char *, long, int));
  8791. +int     des_setkey __P((const char *key));
  8792. +int     encrypt __P((char *, int));
  8793. +void     endusershell __P((void));
  8794. +int     exect __P((const char *, char * const *, char * const *));
  8795. +int     fchdir __P((int));
  8796. +int     fchflags __P((int, long));
  8797. +int     fchown __P((int, int, int));
  8798. +int     fnmatch __P((const char *, const char *, int));
  8799. +int     fsync __P((int));
  8800. +int     ftruncate __P((int, off_t));
  8801. +int     getdtablesize __P((void));
  8802. +long     gethostid __P((void));
  8803. +int     gethostname __P((char *, int));
  8804. +mode_t     getmode __P((const void *, mode_t));
  8805. +int     getpagesize __P((void));
  8806. +char    *getpass __P((const char *));
  8807. +char    *getusershell __P((void));
  8808. +char    *getwd __P((char *));            /* obsoleted by getcwd() */
  8809. +int     initgroups __P((const char *, int));
  8810. +int     mknod __P((const char *, mode_t, dev_t));
  8811. +int     mkstemp __P((char *));
  8812. +char    *mktemp __P((char *));
  8813. +int     nfssvc __P((int));
  8814. +int     nice __P((int));
  8815. +void     psignal __P((u_int, const char *));
  8816. +extern char *sys_siglist[];
  8817. +int     profil __P((char *, int, int, int));
  8818. +int     rcmd __P((char **, int, const char *,
  8819. +        const char *, const char *, int *));
  8820. +char    *re_comp __P((const char *));
  8821. +int     re_exec __P((const char *));
  8822. +int     readlink __P((const char *, char *, int));
  8823. +int     reboot __P((int));
  8824. +int     revoke __P((const char *));
  8825. +int     rresvport __P((int *));
  8826. +int     ruserok __P((const char *, int, const char *, const char *));
  8827. +void    *sbrk __P((unsigned));
  8828. +int     select __P((int, fd_set *, fd_set *, fd_set *, struct timeval *));
  8829. +int     setegid __P((gid_t));
  8830. +int     seteuid __P((uid_t));
  8831. +int     setgroups __P((int, const int *));
  8832. +void     sethostid __P((long));
  8833. +int     sethostname __P((const char *, int));
  8834. +int     setkey __P((const char *));
  8835. +int     setlogin __P((const char *));
  8836. +void    *setmode __P((const char *));
  8837. +int     setpgrp __P((pid_t pid, pid_t pgrp));    /* obsoleted by setpgid() */
  8838. +int     setregid __P((int, int));
  8839. +int     setreuid __P((int, int));
  8840. +int     setrgid __P((gid_t));
  8841. +int     setruid __P((uid_t));
  8842. +void     setusershell __P((void));
  8843. +int     swapon __P((const char *));
  8844. +int     symlink __P((const char *, const char *));
  8845. +void     sync __P((void));
  8846. +int     syscall __P((int, ...));
  8847. +int     truncate __P((const char *, off_t));
  8848. +int     ttyslot __P((void));
  8849. +u_int     ualarm __P((u_int, u_int));
  8850. +void     usleep __P((u_int));
  8851. +int     vfork __P((void));
  8852. +
  8853. +#endif /* !_POSIX_SOURCE */
  8854. +__END_DECLS
  8855. +
  8856. +#endif /* !_UNISTD_H_ */
  8857. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/include/utime.h amiga/fsf/emacs18/amiga/unix/include/utime.h
  8858. --- baseline/fsf/emacs18/amiga/unix/include/utime.h    Wed Dec 31 17:00:00 1969
  8859. +++ amiga/fsf/emacs18/amiga/unix/include/utime.h    Sat Sep 28 00:00:00 1996
  8860. @@ -0,0 +1,3 @@
  8861. +struct utimbuf { time_t actime, modtime; };
  8862. +
  8863. +int utime(char *path, struct utimbuf *times);
  8864. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/intro.doc amiga/fsf/emacs18/amiga/unix/intro.doc
  8865. --- baseline/fsf/emacs18/amiga/unix/intro.doc    Wed Dec 31 17:00:00 1969
  8866. +++ amiga/fsf/emacs18/amiga/unix/intro.doc    Sat Sep 28 00:00:00 1996
  8867. @@ -0,0 +1,44 @@
  8868. +A quick guide to programs compiled with the unix library
  8869. +--------------------------------------------------------
  8870. +
  8871. +If you are using programs compiled with my unix library, you should note
  8872. +the following points:
  8873. +
  8874. +a) The following environment variables are taken into account by the unix library,
  8875. +and therefore by any program compiled with it:
  8876. +
  8877. +USER - A user name for the sole Amiga user (default "user").
  8878. +USERNAME - The full name of the sole Amiga user (default $USER).
  8879. +HOME - A "home" directory (default "s:") for programs that want one. Configuration
  8880. +       files will probably end up here ...
  8881. +SHELL - A program which behaves reasonably like a Unix shell (default "bin:sh").
  8882. +    You should copy the sh executable there if you don't have a Unix-like shell.
  8883. +HOSTNAME - The name of your machine (default "amiga").
  8884. +
  8885. +b) Command line parsing is a mixture of AmigaOS and Unix conventions (this
  8886. +explanation assumes familiarity with Unix terminology ...) :
  8887. +
  8888. +- Arguments in single quotes (') are left as is.
  8889. +
  8890. +- Within arguments in double quotes ("), * acts as an escape character. Arguments
  8891. +cotaining wildcards are expanded into several arguments (note that this is a
  8892. +different from the Unix behaviour). ' must be used to escape wildcards (this is the
  8893. +standard AmigaOS convention).
  8894. +
  8895. +- Within unquoted arguments, \ acts as an escape character for wildcards, spaces, 
  8896. +etc. Arguments containing wildcards are expanded into several arguments.
  8897. +
  8898. +As an example, assume that uecho is an unix-like echo command compiled with the
  8899. +unix library, and that the current directory contains one file, echo.c. Then
  8900. +
  8901. +  uecho 'f*un\' "#?.c" "*.c" "\mad" \*.c \\ \n
  8902. +
  8903. +displays
  8904. +
  8905. +  f*un\ echo.c .c \mad *.c \ n
  8906. +
  8907. +c) Timezones. If you install the timezone information (provided with the
  8908. +unix library), you must set your system clock to GMT. Otherwise the times
  8909. +displayed or set by the unix library will be incorrect. To compensate, you
  8910. +won't have to adjust your system clock for daylight savings time (the local
  8911. +time calculated from GMT will always be correct).
  8912. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/mkmkf amiga/fsf/emacs18/amiga/unix/mkmkf
  8913. --- baseline/fsf/emacs18/amiga/unix/mkmkf    Wed Dec 31 17:00:00 1969
  8914. +++ amiga/fsf/emacs18/amiga/unix/mkmkf    Sat Sep 28 00:00:00 1996
  8915. @@ -0,0 +1,2 @@
  8916. +copy smakefile smakefile!
  8917. +perl src:unix/mkmkf.perl `glob *.c` >smakefile
  8918. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/mkmkf.perl amiga/fsf/emacs18/amiga/unix/mkmkf.perl
  8919. --- baseline/fsf/emacs18/amiga/unix/mkmkf.perl    Wed Dec 31 17:00:00 1969
  8920. +++ amiga/fsf/emacs18/amiga/unix/mkmkf.perl    Sat Sep 28 00:00:00 1996
  8921. @@ -0,0 +1,72 @@
  8922. +print "OBJS= ";
  8923. +for ($i = $#ARGV; $i >= 0; $i--)
  8924. +{
  8925. +    ($objs[$i] = $ARGV[$i]) =~ s/\.\w*$/\.o/;
  8926. +}
  8927. +&colprint(6, " ", @objs);
  8928. +print "\n\n";
  8929. +
  8930. +if (-f "smakefile.base")
  8931. +{
  8932. +    open(BASE, "smakefile.base");
  8933. +    print while (<BASE>);
  8934. +    close(BASE);
  8935. +}
  8936. +
  8937. +foreach $file (@ARGV)
  8938. +{
  8939. +    $dest = $file;
  8940. +    $dest =~ s/\.\w*$/\.o/;
  8941. +    if ($file =~ /\.c$/)
  8942. +    {
  8943. +    printf("%s: %s", $dest, $file);
  8944. +    $colto = length($dest) + length($file) + 2;
  8945. +    # Search for included files
  8946. +    %seen = ();
  8947. +    &included($file, 0);
  8948. +    &colprint($colto, " ", keys(%seen));
  8949. +    print "\n";
  8950. +    }
  8951. +    else
  8952. +    {
  8953. +    printf("%s: %s\n\n", $dest, $file);
  8954. +    }
  8955. +}
  8956. +
  8957. +sub colprint
  8958. +{
  8959. +    local($colto, $sep, @names) = @_;
  8960. +    $col = $colto;
  8961. +    $sl = length($sep);
  8962. +    foreach $name (@names)
  8963. +    {
  8964. +    $nl = length($name);
  8965. +    if ($col + $nl + $sl > 78)
  8966. +    {
  8967. +        print " \\\n", " " x $colto;
  8968. +        $col = $colto;
  8969. +    }
  8970. +    print $sep, $name;
  8971. +    $col += $sl + $nl;
  8972. +    }
  8973. +}
  8974. +
  8975. +sub included
  8976. +{
  8977. +    local($file, $input) = @_;
  8978. +    $input++;
  8979. +    if (!open($input, $file))
  8980. +    {
  8981. +    print STDERR "Can't open $file: $!\n";
  8982. +    return;
  8983. +    }
  8984. +    while (<$input>)
  8985. +    {
  8986. +    if (/^#\s*include\s*"([^"]*)"/ && !$seen{$1} && -e $1)
  8987. +        {
  8988. +        $seen{$1} = 1;
  8989. +        &included($1, $input);
  8990. +    }
  8991. +    }
  8992. +    close($input);
  8993. +}
  8994. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/SCOPTIONS amiga/fsf/emacs18/amiga/unix/src/SCOPTIONS
  8995. --- baseline/fsf/emacs18/amiga/unix/src/SCOPTIONS    Wed Dec 31 17:00:00 1969
  8996. +++ amiga/fsf/emacs18/amiga/unix/src/SCOPTIONS    Sat Sep 28 00:00:00 1996
  8997. @@ -0,0 +1,9 @@
  8998. +PARAMETERS=BOTH
  8999. +NOSTACKCHECK
  9000. +STRUCTUREEQUIVALENCE
  9001. +NOVERSION
  9002. +NOICONS
  9003. +INCLUDEDIR=/include/internal/
  9004. +INCLUDEDIR=/include/
  9005. +IGNORE=104
  9006. +IGNORE=74
  9007. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/_exit.c amiga/fsf/emacs18/amiga/unix/src/_exit.c
  9008. --- baseline/fsf/emacs18/amiga/unix/src/_exit.c    Wed Dec 31 17:00:00 1969
  9009. +++ amiga/fsf/emacs18/amiga/unix/src/_exit.c    Sat Sep 28 00:00:00 1996
  9010. @@ -0,0 +1,30 @@
  9011. +#include "amiga.h"
  9012. +#include "files.h"
  9013. +#include "fifofd.h"
  9014. +#include "signals.h"
  9015. +#include "timers.h"
  9016. +#include <fcntl.h>
  9017. +
  9018. +void _close_all(void)
  9019. +{
  9020. +  int fd, lfd = _last_fd();
  9021. +
  9022. +  for (fd = 0; fd < lfd; fd++) close(fd);
  9023. +}
  9024. +
  9025. +#undef _exit
  9026. +
  9027. +void __exit(int rc)
  9028. +{
  9029. +  _close_all();
  9030. +  _cleanup_fifo();
  9031. +  _cleanup_signals();
  9032. +  _free_timer(_odd_timer);
  9033. +  XCEXIT(rc);
  9034. +}
  9035. +
  9036. +void _exit(int rc)
  9037. +{
  9038. +  return __exit(rc);
  9039. +}
  9040. +
  9041. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/_main.c amiga/fsf/emacs18/amiga/unix/src/_main.c
  9042. --- baseline/fsf/emacs18/amiga/unix/src/_main.c    Wed Dec 31 17:00:00 1969
  9043. +++ amiga/fsf/emacs18/amiga/unix/src/_main.c    Sat Sep 28 00:00:00 1996
  9044. @@ -0,0 +1,471 @@
  9045. +#include "amiga.h"
  9046. +#include "signals.h"
  9047. +#include "fifofd.h"
  9048. +#include "timers.h"
  9049. +#include "amigaos.h"
  9050. +#include <exec/execbase.h>
  9051. +#include <dos/var.h>
  9052. +#include <workbench/startup.h>
  9053. +#include <proto/timer.h>
  9054. +#include <stdlib.h>
  9055. +#include <string.h>
  9056. +#include <ctype.h>
  9057. +#include <sys/time.h>
  9058. +#include <pwd.h>
  9059. +
  9060. +struct Process *_us;
  9061. +struct timeinfo *_odd_timer;
  9062. +ULONG _odd_sig;
  9063. +long _startup_time;
  9064. +long _stack_size;
  9065. +struct Library *TimerBase;
  9066. +
  9067. +static char *empty_env = 0;    /* A default empty environment */
  9068. +char **environ;            /* Unix style environment variable list */
  9069. +char *_system_name;
  9070. +
  9071. +extern struct ExecBase *SysBase;
  9072. +extern struct passwd _amiga_user;
  9073. +extern main(int argc, char **argv, char **envp);
  9074. +
  9075. +static void nomem(void)
  9076. +{
  9077. +  _fail("No memory");
  9078. +}
  9079. +
  9080. +static void *_xmalloc(unsigned n)
  9081. +{
  9082. +    void *p = malloc(n);
  9083. +
  9084. +    if (!p) nomem();
  9085. +
  9086. +    return p;
  9087. +}
  9088. +
  9089. +static void *_xrealloc(void *p, unsigned n)
  9090. +{
  9091. +    void *p2 = realloc(p, n);
  9092. +
  9093. +    if (!p2) nomem();
  9094. +
  9095. +    return p2;
  9096. +}
  9097. +
  9098. +static char *safe_copystr(char *str)
  9099. +{
  9100. +    char *new;
  9101. +
  9102. +    if (!str) str = "";
  9103. +    new = malloc(strlen(str) + 1);
  9104. +    if (!new) return 0;
  9105. +    return strcpy(new, str);
  9106. +}
  9107. +
  9108. +static char *copystr(char *str)
  9109. +{
  9110. +    char *new = safe_copystr(str);
  9111. +
  9112. +    if (!new) nomem();
  9113. +
  9114. +    return new;
  9115. +}
  9116. +
  9117. +void make_environ(void)
  9118. +/* Effect: Builds a UNIX style environ variable from the AmigaOS environment.
  9119. +*/
  9120. +{
  9121. +    int env_count = 0;
  9122. +    long env_len = 0;
  9123. +    struct LocalVar *scan_env;
  9124. +    char **new_environ, *env_text;
  9125. +
  9126. +    for (scan_env = (struct LocalVar *)_us->pr_LocalVars.mlh_Head;
  9127. +     scan_env->lv_Node.ln_Succ;
  9128. +     scan_env = (struct LocalVar *)scan_env->lv_Node.ln_Succ)
  9129. +    if (scan_env->lv_Node.ln_Type == LV_VAR &&
  9130. +        !(scan_env->lv_Flags & (GVF_GLOBAL_ONLY | GVF_BINARY_VAR)))
  9131. +    {
  9132. +        /* We only handle local text variables */
  9133. +        env_count++;
  9134. +        env_len += 2 + strlen(scan_env->lv_Node.ln_Name) + scan_env->lv_Len;
  9135. +    }
  9136. +
  9137. +    new_environ = environ = (char **)_xmalloc(sizeof(char *) * (1 + env_count) +
  9138. +                          env_len);
  9139. +    env_text = (char *)(environ + (1 + env_count));
  9140. +    if (!environ) environ = &empty_env;
  9141. +    else
  9142. +    {
  9143. +    for (scan_env = (struct LocalVar *)_us->pr_LocalVars.mlh_Head;
  9144. +         scan_env->lv_Node.ln_Succ;
  9145. +         scan_env = (struct LocalVar *)scan_env->lv_Node.ln_Succ)
  9146. +        if (scan_env->lv_Node.ln_Type == LV_VAR &&
  9147. +        !(scan_env->lv_Flags & (GVF_GLOBAL_ONLY | GVF_BINARY_VAR)))
  9148. +        {
  9149. +        /* We only handle local text variables */
  9150. +        char *env_name = scan_env->lv_Node.ln_Name;
  9151. +        int env_len = scan_env->lv_Len;
  9152. +
  9153. +        *new_environ++ = env_text;
  9154. +        while (*env_name) *env_text++ = *env_name++;
  9155. +        *env_text++ = '=';
  9156. +        env_name = scan_env->lv_Value;
  9157. +        while (env_len--) *env_text++ = *env_name++;
  9158. +        *env_text++ = '\0';
  9159. +        }
  9160. +    *new_environ = 0;
  9161. +    }
  9162. +}
  9163. +
  9164. +/* _main routine.
  9165. +   Hides the differences between wb & cli.
  9166. +   Provides a unix-like environment (including coomand-line parsing &
  9167. +   wildcard expansion)
  9168. +*/
  9169. +
  9170. +#define DEFPATLEN 256
  9171. +#define NAMELEN 1024
  9172. +
  9173. +struct args
  9174. +{
  9175. +    int size;
  9176. +    int argc;
  9177. +    char **argv;
  9178. +};
  9179. +
  9180. +static void make_argv(struct args *args, int argc)
  9181. +{
  9182. +    args->size = argc;
  9183. +    args->argc = 0;
  9184. +    args->argv = _xmalloc(sizeof(char *) * argc);
  9185. +}
  9186. +
  9187. +static int safe_add_arg(struct args *args, char *argument, int copy)
  9188. +{
  9189. +    char *arg_copy;
  9190. +
  9191. +    if (copy) arg_copy = safe_copystr(argument);
  9192. +    else arg_copy = argument;
  9193. +    if (!arg_copy) return 0;
  9194. +
  9195. +    if (args->argc >= args->size)
  9196. +    {
  9197. +    /* Make argv bigger */
  9198. +    if (args->size * 2 < args->size + 16) args->size += 16;
  9199. +    else args->size *= 2;
  9200. +    args->argv = realloc(args->argv, sizeof(char *) * args->size);
  9201. +    if (!args->argv) return 0;
  9202. +    }
  9203. +    args->argv[args->argc++] = arg_copy;
  9204. +    return 1;
  9205. +}
  9206. +
  9207. +static void add_arg(struct args *args, char *argument, int copy)
  9208. +{
  9209. +    if (!safe_add_arg(args, argument, copy)) nomem();
  9210. +}
  9211. +
  9212. +static void concat_args(struct args *args, struct args *add)
  9213. +{
  9214. +    if (args->argc + add->argc > args->size)
  9215. +    {
  9216. +    args->size = (args->argc + add->argc) * 2;
  9217. +    args->argv = _xrealloc(args->argv, sizeof(char *) * args->size);
  9218. +    }
  9219. +    memcpy(args->argv + args->argc, add->argv, add->argc * sizeof(char *));
  9220. +    args->argc += add->argc;
  9221. +    free(add->argv);
  9222. +}
  9223. +
  9224. +typedef enum { quote_none, quote_single, quote_double } quote_type;
  9225. +typedef enum { extract_normal, extract_test, extract_pattern } extract_type;
  9226. +
  9227. +static void extract(char *buf, char *start, char *end,
  9228. +            quote_type type, extract_type extract)
  9229. +{
  9230. +  char *res = buf;
  9231. +
  9232. +  switch (type)
  9233. +    {
  9234. +    case quote_single:
  9235. +      if (extract != extract_test)
  9236. +    {
  9237. +      buf[end - start] = '\0';
  9238. +      memcpy(buf, start, end - start);
  9239. +    }
  9240. +      else strcpy(buf, "a");    /* Things in quotes are never patterns */
  9241. +      break;
  9242. +
  9243. +    case quote_none:
  9244. +      while (start < end)
  9245. +    {
  9246. +      if (start[0] == '\\' && start[1])
  9247. +        {
  9248. +          start += 2;
  9249. +          /* Wildcard are escaped */
  9250. +          if (extract == extract_test) *res++ = 'a';
  9251. +          else if (extract == extract_pattern)
  9252. +        switch (start[-1])
  9253. +          {
  9254. +          case '?': case '#': case '(': case ')': case '|': case '[':
  9255. +          case ']': case '~': case '%': case '*': case '\'':
  9256. +            *res++ = '\'';
  9257. +          default:
  9258. +            *res++ = start[-1];
  9259. +            break;
  9260. +          }
  9261. +          else *res++ = start[-1];
  9262. +        }
  9263. +      else *res++ = *start++;
  9264. +    }
  9265. +      *res++ = '\0';
  9266. +      break;
  9267. +
  9268. +    case quote_double:
  9269. +      while (start < end)
  9270. +    {
  9271. +      if (start[0] == '*' && start[1])
  9272. +        {
  9273. +          start += 2;
  9274. +          switch (start[-1])
  9275. +        {
  9276. +        case 'n': *res++ = '\n'; break;
  9277. +        case 'e': *res++ = '\x1b'; break;
  9278. +        default: *res++ = start[-1]; break;
  9279. +        }
  9280. +        }
  9281. +      else *res++ = *start++;
  9282. +    }
  9283. +      *res++ = '\0';
  9284. +      break;
  9285. +    }
  9286. +}
  9287. +
  9288. +void __stdargs _main(char *line)
  9289. +/* Effect: Call unix_main with wildcards in argc & argv expanded (like unix)
  9290. +     Also, do some early amiga initialisation for emacs.
  9291. +*/
  9292. +{
  9293. +  struct args args, wildargs;
  9294. +  char *pattern, *arg_start, *arg_end, *arg;
  9295. +  quote_type arg_quoted;
  9296. +  long patlen = DEFPATLEN;
  9297. +  struct AnchorPath *anchor;
  9298. +  struct timeval now;
  9299. +
  9300. +  if (SysBase->LibNode.lib_Version < 37) XCEXIT(20);
  9301. +
  9302. +  stdin->_file = 0;
  9303. +  stdin->_flag = _IOREAD;
  9304. +  stdout->_file = 1;
  9305. +  stdout->_flag = _IOWRT;
  9306. +  stderr->_file = 2;
  9307. +  stderr->_flag = _IORW | _IONBF;
  9308. +
  9309. +  _us = (struct Process *)FindTask(0);
  9310. +  _odd_timer = _alloc_timer();
  9311. +  if (!_odd_timer) _fail("Failed to create timer");
  9312. +  _odd_sig = _timer_sig(_odd_timer);
  9313. +  TimerBase = _odd_timer->io->tr_node.io_Device;
  9314. +  GetSysTime(&now);
  9315. +  _startup_time = now.tv_secs;
  9316. +
  9317. +  /* These use _startup_time, so must be here */
  9318. +  _init_fifo();
  9319. +  _init_signals();
  9320. +
  9321. +  if (_us->pr_CLI) _stack_size = ((struct CommandLineInterface *)BADDR(_us->pr_CLI))->cli_DefaultStack << 2;
  9322. +  else _stack_size = _us->pr_StackSize;
  9323. +
  9324. +  /* Make unix-like argc, argv (expand wildcards) */
  9325. +  if (!line[0])            /* Workbench, create argc & argv from files passed */
  9326. +    {
  9327. +      extern struct WBStartup *_WBenchMsg;
  9328. +      int i;
  9329. +      BPTR nilin = Open("NIL:",MODE_NEWFILE);
  9330. +      BPTR nilout = Open("NIL:",MODE_NEWFILE);
  9331. +      BPTR nilerr = Open("NIL:",MODE_NEWFILE);
  9332. +
  9333. +      /* Initialise I/O. Nothing is available */
  9334. +      if (!nilin || !nilout || !nilerr)
  9335. +    {
  9336. +      if (nilin) Close(nilin);
  9337. +      if (nilout) Close(nilout);
  9338. +      if (nilerr) Close(nilerr);
  9339. +      nomem();
  9340. +    }
  9341. +      _init_unixio(nilin, TRUE, nilout, TRUE, nilerr, TRUE);
  9342. +
  9343. +      /* Make argc, argv from Workbench parameters */
  9344. +      make_argv(&args, _WBenchMsg->sm_NumArgs);
  9345. +
  9346. +      for (i = 0; i < _WBenchMsg->sm_NumArgs; i++)
  9347. +    {
  9348. +      char filename[256];
  9349. +
  9350. +      if (_WBenchMsg->sm_ArgList[i].wa_Lock &&
  9351. +          NameFromLock(_WBenchMsg->sm_ArgList[i].wa_Lock, filename, 256))
  9352. +        {
  9353. +          if (_WBenchMsg->sm_ArgList[i].wa_Name)
  9354. +        AddPart(filename, _WBenchMsg->sm_ArgList[i].wa_Name, 256);
  9355. +          add_arg(&args, filename, TRUE);
  9356. +        }
  9357. +      /* else A parameter was lost, cry, cry, cry */
  9358. +    }
  9359. +    }
  9360. +  else                /* From CLI expand wildcards (with unix-like command line parsing) */
  9361. +    {
  9362. +      int close_error;
  9363. +      BPTR in, out, error;
  9364. +
  9365. +      /* Initialise I/O. Copy CLI info */
  9366. +      in = Input();
  9367. +      out = Output();
  9368. +      close_error = FALSE;
  9369. +      if ((error = _us->pr_CES) == 0)
  9370. +    {
  9371. +      close_error = TRUE;
  9372. +      if ((error = Open("*", MODE_OLDFILE)) == 0)
  9373. +        if ((error = Open("NIL:", MODE_OLDFILE)) == 0) nomem();
  9374. +    }
  9375. +      _init_unixio(in, FALSE, out, FALSE, error, close_error);
  9376. +
  9377. +      make_argv(&args, 1);
  9378. +
  9379. +      anchor = _xmalloc(sizeof(struct AnchorPath) + NAMELEN);
  9380. +      anchor->ap_Strlen = NAMELEN;
  9381. +      pattern = _xmalloc(DEFPATLEN);
  9382. +      while (1)
  9383. +    {
  9384. +      long new_patlen;
  9385. +      int wild;
  9386. +
  9387. +      /* Skip white space */
  9388. +      while (isspace(*line)) line++;
  9389. +      if (!*line) break;    /* End of command line */
  9390. +
  9391. +      /* Extract next word */
  9392. +      /* Words in double quotes are handled AmigaOS style
  9393. +         (+ filename expansion) */
  9394. +      if (*line == '"')
  9395. +        {
  9396. +          line++;
  9397. +          arg_start = line;
  9398. +          /* Find end of word */
  9399. +          while (*line && *line != '"')
  9400. +        {
  9401. +          /* * is an escape character inside double quotes
  9402. +             (AmigaOS compatibility) */
  9403. +          if ((*line == '*') && line[1]) line++;
  9404. +          line++;
  9405. +        }
  9406. +          arg_end = line;
  9407. +          if (*line == '"') line++;
  9408. +          arg_quoted = quote_double;
  9409. +        }
  9410. +      /* Words in single quotes are handled unix style */
  9411. +      else if (*line == '\'')
  9412. +        {
  9413. +          line++;
  9414. +          arg_start = line;
  9415. +          /* Find end of word */
  9416. +          while (*line && *line != '\'') line++;
  9417. +          arg_end = line;
  9418. +          if (*line == '\'') line++;
  9419. +          arg_quoted = quote_single;
  9420. +        }
  9421. +      /* Unquoted words are handled unix style */
  9422. +      else            /* Plain word */
  9423. +        {
  9424. +          arg_start = line;
  9425. +          /* Find end of word */
  9426. +          while (*line && *line != ' ' && *line != '\n' && *line != '\t')
  9427. +        {
  9428. +          if (*line == '\\' && line[1]) line++;
  9429. +          line++;
  9430. +        }
  9431. +          arg_end = line;
  9432. +          arg_quoted = quote_none;
  9433. +        }
  9434. +      arg = _xmalloc(arg_end - arg_start + 1);
  9435. +      if (args.argc == 0)    /* Command name is left untouched */
  9436. +        {
  9437. +          strncpy(arg, arg_start, arg_end - arg_start);
  9438. +          arg[arg_end - arg_start] = 0;
  9439. +          add_arg(&args, arg, FALSE);
  9440. +        }
  9441. +      else
  9442. +        {
  9443. +          new_patlen = (arg_end - arg_start) * 2 + 16;
  9444. +          if (new_patlen > patlen)
  9445. +        {
  9446. +          free(pattern);
  9447. +          pattern = _xmalloc(new_patlen);
  9448. +          patlen = new_patlen;
  9449. +        }
  9450. +          extract(arg, arg_start, arg_end, arg_quoted, extract_test);
  9451. +          wild = ParsePattern(arg, pattern, patlen);
  9452. +          if (wild < 0)
  9453. +        {
  9454. +          *arg_end = 0;
  9455. +          _fail("Invalid wildcard %s", arg_start);
  9456. +        }
  9457. +          if (!wild)
  9458. +        {
  9459. +          extract(arg, arg_start, arg_end, arg_quoted, extract_normal);
  9460. +          add_arg(&args, arg, FALSE);
  9461. +        }
  9462. +          else
  9463. +        {
  9464. +          int none = TRUE;
  9465. +          long error;
  9466. +
  9467. +          anchor->ap_Flags = anchor->ap_Reserved = anchor->ap_BreakBits = 0;
  9468. +          extract(arg, arg_start, arg_end, arg_quoted, extract_pattern);
  9469. +          make_argv(&wildargs, 16);
  9470. +          if (!(error = MatchFirst(arg, anchor)))
  9471. +            {
  9472. +              while (!error)
  9473. +            {
  9474. +              none = FALSE;
  9475. +              if (!safe_add_arg(&wildargs, anchor->ap_Buf, TRUE))
  9476. +                {
  9477. +                  error = ERROR_NO_FREE_STORE;
  9478. +                  break;
  9479. +                }
  9480. +              error = MatchNext(anchor);
  9481. +            }
  9482. +              MatchEnd(anchor);
  9483. +            }
  9484. +          if (error != ERROR_NO_MORE_ENTRIES)
  9485. +              _fail("Error expanding arguments");
  9486. +          if (none)
  9487. +            {
  9488. +              extract(arg, arg_start, arg_end, arg_quoted, extract_normal);
  9489. +              add_arg(&args, arg, FALSE);
  9490. +            }
  9491. +          else
  9492. +            {
  9493. +              tqsort(wildargs.argv, wildargs.argc);
  9494. +              concat_args(&args, &wildargs);
  9495. +              free(arg);
  9496. +            }
  9497. +        }
  9498. +        }
  9499. +    }
  9500. +      free(pattern);
  9501. +      free(anchor);
  9502. +    }
  9503. +
  9504. +  make_environ();
  9505. +
  9506. +  if (!(_amiga_user.pw_name = getenv("USER"))) _amiga_user.pw_name = "user";
  9507. +  if (!(_amiga_user.pw_gecos = getenv("USERNAME")))
  9508. +    _amiga_user.pw_gecos = _amiga_user.pw_name;
  9509. +  if (!(_amiga_user.pw_dir = getenv("HOME"))) _amiga_user.pw_dir = "s:";
  9510. +  if (!(_amiga_user.pw_shell = getenv("SHELL"))) _amiga_user.pw_shell = "bin:sh";
  9511. +  if (!(_system_name = getenv("HOSTNAME"))) _system_name = "amiga";
  9512. +    
  9513. +  main(args.argc, args.argv, environ);
  9514. +  exit(0);
  9515. +}
  9516. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/_setjmp.asm amiga/fsf/emacs18/amiga/unix/src/_setjmp.asm
  9517. --- baseline/fsf/emacs18/amiga/unix/src/_setjmp.asm    Wed Dec 31 17:00:00 1969
  9518. +++ amiga/fsf/emacs18/amiga/unix/src/_setjmp.asm    Sat Sep 28 00:00:00 1996
  9519. @@ -0,0 +1,27 @@
  9520. +    XDEF    __setjmp
  9521. +    XDEF    __longjmp
  9522. +    XDEF    @_setjmp
  9523. +    XDEF    @_longjmp
  9524. +    
  9525. +    csect    text,0,,2,2
  9526. +
  9527. +__setjmp:
  9528. +    move.l    4(a7),a0        ; Get jmp_buf
  9529. +@_setjmp
  9530. +    move.l    (a7),(a0)+        ; Save return address
  9531. +    movem.l    a2-a7/d2-d7,(a0)    ; Save registers
  9532. +    moveq    #0,d0
  9533. +    rts
  9534. +
  9535. +__longjmp:
  9536. +    move.l    4(a7),a0        ; Get jmp_buf
  9537. +    move.l    8(a7),d0        ; Get result
  9538. +@_longjmp
  9539. +    bne.s    ok
  9540. +    moveq    #1,d0            ; Return must be != 0
  9541. +ok    move.l    (a0)+,a1        ; Get return address
  9542. +    movem.l    (a0),a2-a7/d2-d7    ; Get registers
  9543. +    addq.l    #4,a7            ; Pop return address
  9544. +    jmp    (a1)            ; And return to setjmp call
  9545. +
  9546. +    end
  9547. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/abort.c amiga/fsf/emacs18/amiga/unix/src/abort.c
  9548. --- baseline/fsf/emacs18/amiga/unix/src/abort.c    Wed Dec 31 17:00:00 1969
  9549. +++ amiga/fsf/emacs18/amiga/unix/src/abort.c    Sat Sep 28 00:00:00 1996
  9550. @@ -0,0 +1,11 @@
  9551. +#include "amiga.h"
  9552. +#include <signal.h>
  9553. +
  9554. +extern void _close_all(void);
  9555. +
  9556. +void abort(void)
  9557. +{
  9558. +  chkabort();
  9559. +  _close_all();
  9560. +  kill(getpid(), SIGIOT);
  9561. +}
  9562. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/access.c amiga/fsf/emacs18/amiga/unix/src/access.c
  9563. --- baseline/fsf/emacs18/amiga/unix/src/access.c    Wed Dec 31 17:00:00 1969
  9564. +++ amiga/fsf/emacs18/amiga/unix/src/access.c    Sat Sep 28 00:00:00 1996
  9565. @@ -0,0 +1,29 @@
  9566. +#include "amiga.h"
  9567. +#include "fibstat.h"
  9568. +#include <sys/types.h>
  9569. +#include <sys/stat.h>
  9570. +
  9571. +#undef access
  9572. +
  9573. +int __access(const char *name, int mode)
  9574. +{
  9575. +  int ret = -1;
  9576. +  struct stat sbuf;
  9577. +
  9578. +  chkabort();
  9579. +  if (_fibstat(name, &sbuf) == 0)
  9580. +    {
  9581. +      int fmode = (sbuf.st_mode & (S_IREAD | S_IEXEC)) >> 6 |
  9582. +    (sbuf.st_mode & (S_IWRITE >> 3)) >> 3;
  9583. +
  9584. +      if ((fmode & mode) == mode) ret = 0;
  9585. +      else errno = EACCES;
  9586. +    }
  9587. +  return ret;
  9588. +}
  9589. +
  9590. +int access(const char *name, int mode)
  9591. +{
  9592. +  return __access(name, mode);
  9593. +}
  9594. +
  9595. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/alloca.c amiga/fsf/emacs18/amiga/unix/src/alloca.c
  9596. --- baseline/fsf/emacs18/amiga/unix/src/alloca.c    Wed Dec 31 17:00:00 1969
  9597. +++ amiga/fsf/emacs18/amiga/unix/src/alloca.c    Sat Sep 28 00:00:00 1996
  9598. @@ -0,0 +1,194 @@
  9599. +/*
  9600. +    alloca -- (mostly) portable public-domain implementation -- D A Gwyn
  9601. +
  9602. +    last edit:    86/05/30    rms
  9603. +       include config.h, since on VMS it renames some symbols.
  9604. +       Use xmalloc instead of malloc.
  9605. +
  9606. +    This implementation of the PWB library alloca() function,
  9607. +    which is used to allocate space off the run-time stack so
  9608. +    that it is automatically reclaimed upon procedure exit, 
  9609. +    was inspired by discussions with J. Q. Johnson of Cornell.
  9610. +
  9611. +    It should work under any C implementation that uses an
  9612. +    actual procedure stack (as opposed to a linked list of
  9613. +    frames).  There are some preprocessor constants that can
  9614. +    be defined when compiling for your specific system, for
  9615. +    improved efficiency; however, the defaults should be okay.
  9616. +
  9617. +    The general concept of this implementation is to keep
  9618. +    track of all alloca()-allocated blocks, and reclaim any
  9619. +    that are found to be deeper in the stack than the current
  9620. +    invocation.  This heuristic does not reclaim storage as
  9621. +    soon as it becomes invalid, but it will do so eventually.
  9622. +
  9623. +    As a special case, alloca(0) reclaims storage without
  9624. +    allocating any.  It is a good idea to use alloca(0) in
  9625. +    your main control loop, etc. to force garbage collection.
  9626. +*/
  9627. +#ifndef lint
  9628. +static char    SCCSid[] = "@(#)alloca.c    1.1";    /* for the "what" utility */
  9629. +#endif
  9630. +
  9631. +#ifdef emacs
  9632. +#include "config.h"
  9633. +#ifdef static
  9634. +/* actually, only want this if static is defined as ""
  9635. +   -- this is for usg, in which emacs must undefine static
  9636. +   in order to make unexec workable
  9637. +   */
  9638. +#ifndef STACK_DIRECTION
  9639. +you
  9640. +lose
  9641. +-- must know STACK_DIRECTION at compile-time
  9642. +#endif /* STACK_DIRECTION undefined */
  9643. +#endif static
  9644. +#endif emacs
  9645. +
  9646. +#ifndef alloca  /* If compiling with GCC, this file's not needed.  */
  9647. +
  9648. +#ifdef __STDC__
  9649. +typedef void    *pointer;        /* generic pointer type */
  9650. +#else
  9651. +typedef char    *pointer;        /* generic pointer type */
  9652. +#endif
  9653. +
  9654. +#define    NULL    0            /* null pointer constant */
  9655. +
  9656. +extern void    free();
  9657. +extern pointer    malloc();
  9658. +
  9659. +/*
  9660. +    Define STACK_DIRECTION if you know the direction of stack
  9661. +    growth for your system; otherwise it will be automatically
  9662. +    deduced at run-time.
  9663. +
  9664. +    STACK_DIRECTION > 0 => grows toward higher addresses
  9665. +    STACK_DIRECTION < 0 => grows toward lower addresses
  9666. +    STACK_DIRECTION = 0 => direction of growth unknown
  9667. +*/
  9668. +
  9669. +#ifndef STACK_DIRECTION
  9670. +#define    STACK_DIRECTION    0        /* direction unknown */
  9671. +#endif
  9672. +
  9673. +#if (STACK_DIRECTION) != 0
  9674. +
  9675. +#define    STACK_DIR    STACK_DIRECTION    /* known at compile-time */
  9676. +
  9677. +#else    /* STACK_DIRECTION == 0; need run-time code */
  9678. +
  9679. +static int    stack_dir;        /* 1 or -1 once known */
  9680. +#define    STACK_DIR    stack_dir
  9681. +
  9682. +static void
  9683. +find_stack_direction (/* void */)
  9684. +{
  9685. +  static char    *addr = NULL;    /* address of first
  9686. +                   `dummy', once known */
  9687. +  auto char    dummy;        /* to get stack address */
  9688. +
  9689. +  if (addr == NULL)
  9690. +    {                /* initial entry */
  9691. +      addr = &dummy;
  9692. +
  9693. +      find_stack_direction ();    /* recurse once */
  9694. +    }
  9695. +  else                /* second entry */
  9696. +    if (&dummy > addr)
  9697. +      stack_dir = 1;        /* stack grew upward */
  9698. +    else
  9699. +      stack_dir = -1;        /* stack grew downward */
  9700. +}
  9701. +
  9702. +#endif    /* STACK_DIRECTION == 0 */
  9703. +
  9704. +/*
  9705. +    An "alloca header" is used to:
  9706. +    (a) chain together all alloca()ed blocks;
  9707. +    (b) keep track of stack depth.
  9708. +
  9709. +    It is very important that sizeof(header) agree with malloc()
  9710. +    alignment chunk size.  The following default should work okay.
  9711. +*/
  9712. +
  9713. +#ifndef    ALIGN_SIZE
  9714. +#define    ALIGN_SIZE    sizeof(double)
  9715. +#endif
  9716. +
  9717. +typedef union hdr
  9718. +{
  9719. +  char    align[ALIGN_SIZE];    /* to force sizeof(header) */
  9720. +  struct
  9721. +    {
  9722. +      union hdr *next;        /* for chaining headers */
  9723. +      char *deep;        /* for stack depth measure */
  9724. +    } h;
  9725. +} header;
  9726. +
  9727. +/*
  9728. +    alloca( size ) returns a pointer to at least `size' bytes of
  9729. +    storage which will be automatically reclaimed upon exit from
  9730. +    the procedure that called alloca().  Originally, this space
  9731. +    was supposed to be taken from the current stack frame of the
  9732. +    caller, but that method cannot be made to work for some
  9733. +    implementations of C, for example under Gould's UTX/32.
  9734. +*/
  9735. +
  9736. +static header *last_alloca_header = NULL; /* -> last alloca header */
  9737. +
  9738. +pointer
  9739. +alloca (size)            /* returns pointer to storage */
  9740. +     unsigned    size;        /* # bytes to allocate */
  9741. +{
  9742. +  auto char    probe;        /* probes stack depth: */
  9743. +  register char    *depth = &probe;
  9744. +
  9745. +#if STACK_DIRECTION == 0
  9746. +  if (STACK_DIR == 0)        /* unknown growth direction */
  9747. +    find_stack_direction ();
  9748. +#endif
  9749. +
  9750. +                /* Reclaim garbage, defined as all alloca()ed storage that
  9751. +                   was allocated from deeper in the stack than currently. */
  9752. +
  9753. +  {
  9754. +    register header    *hp;    /* traverses linked list */
  9755. +
  9756. +    for (hp = last_alloca_header; hp != NULL;)
  9757. +      if (STACK_DIR > 0 && hp->h.deep > depth
  9758. +      || STACK_DIR < 0 && hp->h.deep < depth)
  9759. +    {
  9760. +      register header    *np = hp->h.next;
  9761. +
  9762. +      free ((pointer) hp);    /* collect garbage */
  9763. +
  9764. +      hp = np;        /* -> next header */
  9765. +    }
  9766. +      else
  9767. +    break;            /* rest are not deeper */
  9768. +
  9769. +    last_alloca_header = hp;    /* -> last valid storage */
  9770. +  }
  9771. +
  9772. +  if (size == 0)
  9773. +    return NULL;        /* no allocation required */
  9774. +
  9775. +  /* Allocate combined header + user data storage. */
  9776. +
  9777. +  {
  9778. +    register pointer    new = malloc (sizeof (header) + size);
  9779. +    /* address of header */
  9780. +
  9781. +    ((header *)new)->h.next = last_alloca_header;
  9782. +    ((header *)new)->h.deep = depth;
  9783. +
  9784. +    last_alloca_header = (header *)new;
  9785. +
  9786. +    /* User storage begins just after header. */
  9787. +
  9788. +    return (pointer)((char *)new + sizeof(header));
  9789. +  }
  9790. +}
  9791. +
  9792. +#endif /* no alloca */
  9793. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/allocdos.c amiga/fsf/emacs18/amiga/unix/src/allocdos.c
  9794. --- baseline/fsf/emacs18/amiga/unix/src/allocdos.c    Wed Dec 31 17:00:00 1969
  9795. +++ amiga/fsf/emacs18/amiga/unix/src/allocdos.c    Sat Sep 28 00:00:00 1996
  9796. @@ -0,0 +1,6 @@
  9797. +#include <proto/dos.h>
  9798. +
  9799. +void *AllocDosObjectTags(ULONG type, ULONG tag1, ...)
  9800. +{
  9801. +  return AllocDosObject(type, &tag1);
  9802. +}
  9803. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/amiga.h amiga/fsf/emacs18/amiga/unix/src/amiga.h
  9804. --- baseline/fsf/emacs18/amiga/unix/src/amiga.h    Wed Dec 31 17:00:00 1969
  9805. +++ amiga/fsf/emacs18/amiga/unix/src/amiga.h    Sat Sep 28 00:00:00 1996
  9806. @@ -0,0 +1,39 @@
  9807. +#include <exec/types.h>
  9808. +#include <dos/dos.h>
  9809. +#include <proto/dos.h>
  9810. +#include <proto/exec.h>
  9811. +
  9812. +#include <errno.h>
  9813. +#include <stddef.h>
  9814. +#include <stdlib.h>
  9815. +#include <stdio.h>
  9816. +#include <sys/types.h>
  9817. +#include <internal/vars.h>
  9818. +
  9819. +extern struct timeinfo *_odd_timer;
  9820. +extern ULONG _odd_sig;
  9821. +extern struct Library *TimerBase;
  9822. +
  9823. +int convert_oserr(int ioerr);
  9824. +void _seterr(void);
  9825. +void chkabort(void);
  9826. +
  9827. +#define ERROR do { _seterr(); return -1; } while(0)
  9828. +#define AMIGA_UID 1
  9829. +#define AMIGA_GID 0
  9830. +
  9831. +int _make_protection(int mode);
  9832. +int _make_mode(int protection);
  9833. +
  9834. +void _message(char *format, ...);
  9835. +/* Display a message which is as visible as possible (either to the console
  9836. +   or to as a requester).
  9837. +   Assume very little about library state */
  9838. +
  9839. +void _fail(char *format, ...);
  9840. +/* Display a message which is as visible as possible (either to the console
  9841. +   or to as a requester).
  9842. +   Assume very little about library state.
  9843. +   Exit with error code RETURN_FAIL after that. */
  9844. +
  9845. +void _sprintf(char *dest, char *format, ...);
  9846. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/amigaos.c amiga/fsf/emacs18/amiga/unix/src/amigaos.c
  9847. --- baseline/fsf/emacs18/amiga/unix/src/amigaos.c    Wed Dec 31 17:00:00 1969
  9848. +++ amiga/fsf/emacs18/amiga/unix/src/amigaos.c    Sat Sep 28 00:00:00 1996
  9849. @@ -0,0 +1,299 @@
  9850. +#include "amiga.h"
  9851. +#include "files.h"
  9852. +#include "signals.h"
  9853. +#include <exec/memory.h>
  9854. +#include <fcntl.h>
  9855. +#include <sys/termios.h>
  9856. +#include <amiga/ioctl.h>
  9857. +#include <string.h>
  9858. +
  9859. +/* Code for fd's describing AmigaOS files */
  9860. +
  9861. +struct amigainfo
  9862. +{
  9863. +    BPTR fh;
  9864. +    BPTR lock;            /* A lock on the file (may be null) */
  9865. +    long protection;        /* To be set when file is closed, -1 for none */
  9866. +    char interactive;        /* True if file was interactive */
  9867. +    char deleted;        /* True if file has been deleted but not closed */
  9868. +};
  9869. +
  9870. +static ULONG __regargs file_select_start(void *userinfo, int rd, int wr)
  9871. +{
  9872. +  /* Input always immediately available, gniark */
  9873. +  return (ULONG)-1;
  9874. +}
  9875. +
  9876. +static void __regargs file_select_poll(void *userinfo, int *rd, int *wr)
  9877. +{
  9878. +  /* Input always immediately available, gniark */
  9879. +}
  9880. +
  9881. +static int __regargs file_read(void *userinfo, void *buffer, unsigned int length)
  9882. +{
  9883. +  struct amigainfo *info = userinfo;
  9884. +  BPTR fh = info->fh;
  9885. +  LONG cnt;
  9886. +
  9887. +  if (info->deleted) return 0;
  9888. +  if ((cnt = Read(fh, buffer, length)) == -1) ERROR;
  9889. +  return (int)cnt;
  9890. +}
  9891. +
  9892. +static int __regargs file_write(void *userinfo, void *buffer, unsigned int length)
  9893. +{
  9894. +  struct amigainfo *info = userinfo;
  9895. +  BPTR fh = info->fh;
  9896. +  int cnt;
  9897. +
  9898. +  if (info->deleted) return 0;
  9899. +  if (info->interactive)
  9900. +    {
  9901. +      char *bufend = (char *)buffer + length;
  9902. +
  9903. +      /* Write by lines, more pleasant for user */
  9904. +      cnt = 0;
  9905. +      while (length)
  9906. +    {
  9907. +      char *end = buffer;
  9908. +      long nb;
  9909. +      unsigned len;
  9910. +
  9911. +      while (end < bufend && *end != '\n') end++;
  9912. +      if (end == bufend) len = end - (char *)buffer;
  9913. +      else len = end + 1 - (char *)buffer;
  9914. +
  9915. +      if ((nb = Write(fh, buffer, len)) == -1) ERROR;
  9916. +      cnt += nb;
  9917. +      if (nb != len) break;
  9918. +
  9919. +      buffer = end + 1;
  9920. +      length -= nb;
  9921. +      /* Interrupt write ? */
  9922. +      if (_handle_signals(_check_signals(0))) break;
  9923. +    }
  9924. +    }
  9925. +  else if ((cnt = Write(fh, buffer, length)) == -1) ERROR;
  9926. +  return cnt;
  9927. +}
  9928. +
  9929. +static int __regargs file_lseek(void *userinfo, long rpos, int mode)
  9930. +{
  9931. +  struct amigainfo *info = userinfo;
  9932. +  BPTR fh = info->fh;
  9933. +  LONG pos, err;
  9934. +
  9935. +  if (info->deleted) return 0;
  9936. +  pos = Seek(fh, rpos, mode - 1);
  9937. +  err = IoErr();
  9938. +  if (pos == -1 || err)
  9939. +    {
  9940. +      errno = convert_oserr(err);
  9941. +      return -1;
  9942. +    }
  9943. +  pos = Seek(fh, 0, OFFSET_CURRENT);
  9944. +  if (pos == -1 || err)
  9945. +    {
  9946. +      errno = convert_oserr(err);
  9947. +      return -1;
  9948. +    }
  9949. +  return pos;
  9950. +}
  9951. +
  9952. +static int __regargs file_close(void *userinfo, int internal)
  9953. +{
  9954. +  struct amigainfo *info = userinfo;
  9955. +  BPTR fh = info->fh;
  9956. +  long protection = info->protection;
  9957. +  char name[256];
  9958. +  int ok, deleted;
  9959. +
  9960. +  if (info->lock) UnLock(info->lock);
  9961. +  deleted = info->deleted;
  9962. +  free(info);
  9963. +  if (deleted) return 0;
  9964. +
  9965. +  ok = NameFromFH(fh, name, 256);
  9966. +  if (internal || Close(fh))
  9967. +    if (!ok || protection == -1 || SetProtection(name, protection)) return 0;
  9968. +  ERROR;
  9969. +}
  9970. +
  9971. +static int isfifo(BPTR fh)
  9972. +/* Requires: IsInteractive(fh) */
  9973. +/* Try & find out if fh is a fifo: file */
  9974. +{
  9975. +    WaitForChar(fh, 0);
  9976. +
  9977. +    return IoErr() == ERROR_ACTION_NOT_KNOWN;
  9978. +}
  9979. +
  9980. +static int GetWinBounds (BPTR fh, long *width, long *height)
  9981. +{
  9982. +  char buffer[16];
  9983. +  int ok = 0;
  9984. +
  9985. +  if (!isfifo(fh) && SetMode (fh, 1))
  9986. +    {
  9987. +      if ((Write (fh, "\x9b" "0 q", 4) == 4) &&
  9988. +      WaitForChar (fh, 10000L) &&
  9989. +      (Read (fh, buffer, sizeof (buffer)) > 9) &&
  9990. +      (buffer[0] == '\x9b'))
  9991. +    {
  9992. +      int y = StrToLong (buffer+5, height);
  9993. +      int x = StrToLong (buffer+5+y+1, width);
  9994. +      if ((x != -1) && (y != -1)) ok = 1;
  9995. +    }
  9996. +      SetMode (fh, 0);
  9997. +    }
  9998. +  return ok;
  9999. +}
  10000. +
  10001. +int _do_truncate(BPTR fh, off_t length)
  10002. +{
  10003. +  int err, ret = -1;
  10004. +  long oldsize, oldpos;
  10005. +
  10006. +  oldpos = Seek(fh, 0, OFFSET_END);
  10007. +  oldsize = Seek(fh, 0, OFFSET_END);
  10008. +
  10009. +  if (!(err = IoErr()) &&
  10010. +      SetFileSize(fh, length, OFFSET_BEGINNING) == length)
  10011. +    {
  10012. +      if (oldsize < length)
  10013. +    {
  10014. +      /* Zero extra bytes */
  10015. +      off_t bufsize = length - oldsize, left = bufsize;
  10016. +      char *buf;
  10017. +      char reserve[512];
  10018. +
  10019. +      if (!(buf = AllocMem(bufsize, MEMF_CLEAR)))
  10020. +        {
  10021. +          bufsize = AvailMem(MEMF_LARGEST) / 2;
  10022. +
  10023. +          if (bufsize < 512 || !(buf = AllocMem(bufsize, MEMF_CLEAR)))
  10024. +        {
  10025. +          bufsize = 512;
  10026. +          buf = reserve;
  10027. +          memset(reserve, 0, 512);
  10028. +        }
  10029. +        }
  10030. +      while (left > 0)
  10031. +        {
  10032. +          long count = left > bufsize ? bufsize : left;
  10033. +
  10034. +          chkabort();
  10035. +          if (Write(fh, buf, count) != count)
  10036. +        {
  10037. +          err = IoErr();
  10038. +          break;
  10039. +        }
  10040. +          left -= count;
  10041. +        }
  10042. +      if (buf != reserve) FreeMem(buf, bufsize);
  10043. +    }
  10044. +      if (!err) ret = 0;
  10045. +    }
  10046. +  if (oldpos < length) Seek(fh, oldpos, OFFSET_BEGINNING);
  10047. +
  10048. +  if (ret) errno = convert_oserr(err);
  10049. +  return ret;
  10050. +}
  10051. +
  10052. +static int __regargs file_ioctl(void *userinfo, int request, void *data)
  10053. +{
  10054. +  struct amigainfo *info = userinfo;
  10055. +  BPTR fh = info->fh;
  10056. +
  10057. +  if (!info->deleted)
  10058. +    switch (request)
  10059. +      {
  10060. +      case TIOCGWINSZ: {
  10061. +    struct winsize *ws = data;
  10062. +    long col, row;
  10063. +
  10064. +    if (info->interactive && GetWinBounds(fh, &col, &row))
  10065. +      {
  10066. +        ws->ws_col = col; ws->ws_row = row;
  10067. +        return 0;
  10068. +      }
  10069. +    errno = ENOTTY;
  10070. +    return -1;
  10071. +      }
  10072. +      case _AMIGA_INTERACTIVE: {
  10073. +    int *inter = data;
  10074. +
  10075. +    *inter = IsInteractive(fh);
  10076. +    return 0;
  10077. +      }
  10078. +      case _AMIGA_GET_FH: {
  10079. +    BPTR *gotfh = data;
  10080. +
  10081. +    *gotfh = fh;
  10082. +    return 0;
  10083. +      }
  10084. +      case _AMIGA_FREE_FH: return 0;
  10085. +      case _AMIGA_TRUNCATE: {
  10086. +    off_t length = *(off_t *)data;
  10087. +
  10088. +    return _do_truncate(fh, length);
  10089. +      }
  10090. +      case _AMIGA_SETPROTECTION:
  10091. +    info->protection = *(long *)data;
  10092. +    return 0;
  10093. +      case _AMIGA_DELETE_IF_ME: {
  10094. +    BPTR nlock = *(BPTR *)data;
  10095. +
  10096. +    if (!info->lock) info->lock = DupLockFromFH(info->fh);
  10097. +    if (info->lock && SameLock(nlock, info->lock) == LOCK_SAME)
  10098. +      {
  10099. +        char name[256];
  10100. +
  10101. +        if (NameFromFH(fh, name, 256))
  10102. +          {
  10103. +        UnLock(nlock);
  10104. +        UnLock(info->lock);
  10105. +        Close(fh);
  10106. +        SetProtection(name, 0);
  10107. +        info->deleted = TRUE;
  10108. +        info->lock = info->fh = 0;
  10109. +        if (DeleteFile(name)) return 0;
  10110. +          }
  10111. +      }
  10112. +    ERROR;
  10113. +      }
  10114. +      }
  10115. +  errno = EINVAL;
  10116. +  return -1;
  10117. +}
  10118. +
  10119. +int _alloc_amigafd(BPTR fh, long protection, long flags)
  10120. +{
  10121. +  struct amigainfo *new = (struct amigainfo *)malloc(sizeof(struct amigainfo));
  10122. +  int fd;
  10123. +
  10124. +  if (!new) { errno = ENOMEM; return -1; }
  10125. +  new->fh = fh;
  10126. +  new->lock = NULL;
  10127. +  new->protection = protection;
  10128. +  new->deleted = FALSE;
  10129. +  new->interactive = IsInteractive(fh);
  10130. +
  10131. +  fd = _alloc_fd(new, flags,
  10132. +         file_select_start, file_select_poll, file_read, file_write,
  10133. +         file_lseek, file_close, file_ioctl);
  10134. +  if (fd < 0) free(new);
  10135. +
  10136. +  return fd;
  10137. +}
  10138. +
  10139. +void _init_unixio(BPTR in, int close_in, BPTR out, int close_out,
  10140. +          BPTR error, int close_error)
  10141. +{
  10142. +  if (_alloc_amigafd(in, -1, FI_READ | (close_in ? 0 : O_NO_CLOSE)) == 0 &&
  10143. +      _alloc_amigafd(out, -1, FI_WRITE | (close_out ? 0 : O_NO_CLOSE)) == 1 &&
  10144. +      _alloc_amigafd(error, -1, FI_WRITE | (close_error ? 0 : O_NO_CLOSE)) == 2)
  10145. +      return;
  10146. +
  10147. +  _fail("Failed to initialise I/O");
  10148. +}
  10149. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/amigaos.h amiga/fsf/emacs18/amiga/unix/src/amigaos.h
  10150. --- baseline/fsf/emacs18/amiga/unix/src/amigaos.h    Wed Dec 31 17:00:00 1969
  10151. +++ amiga/fsf/emacs18/amiga/unix/src/amigaos.h    Sat Sep 28 00:00:00 1996
  10152. @@ -0,0 +1,10 @@
  10153. +#ifndef AMIGAOS_H
  10154. +#define AMIGAOS_H
  10155. +
  10156. +int _alloc_amigafd(BPTR fh, long protection, long flags);
  10157. +
  10158. +void _init_unixio(BPTR in, int close_in, BPTR out, int close_out,
  10159. +          BPTR error, int close_error);
  10160. +int _do_truncate(BPTR fh, off_t length);
  10161. +
  10162. +#endif
  10163. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/amigatime.c amiga/fsf/emacs18/amiga/unix/src/amigatime.c
  10164. --- baseline/fsf/emacs18/amiga/unix/src/amigatime.c    Wed Dec 31 17:00:00 1969
  10165. +++ amiga/fsf/emacs18/amiga/unix/src/amigatime.c    Sat Sep 28 00:00:00 1996
  10166. @@ -0,0 +1,55 @@
  10167. +#include "amiga.h"
  10168. +#include "timeconvert.h"
  10169. +#include <sys/time.h>
  10170. +#include <sys/timeb.h>
  10171. +#include <string.h>
  10172. +
  10173. +extern char *tzname[2];
  10174. +extern int daylight;
  10175. +
  10176. +int gettimeofday(struct timeval *tp, struct timezone *tzp)
  10177. +{
  10178. +  struct timeval now;
  10179. +
  10180. +  chkabort();
  10181. +
  10182. +  _gettime(&now);
  10183. +  if (tp) *tp = now;
  10184. +
  10185. +  if (tzp)
  10186. +    {
  10187. +      int dst;
  10188. +      struct tm *local;
  10189. +
  10190. +      local = localtime(&now.tv_secs);
  10191. +      
  10192. +      tzp->tz_minuteswest = -local->tm_gmtoff / 60;
  10193. +      /* Guess a value for tz_dsttime, based on tzname[1] */
  10194. +      /* These guesses are not very good. */
  10195. +      dst = DST_NONE;
  10196. +      if (!strcmp(tzname[1], "MET DST")) dst = DST_MET;
  10197. +      else if (!strcmp(tzname[1], "WET DST")) dst = DST_WET;
  10198. +      else if (!strcmp(tzname[1], "EET DST")) dst = DST_EET;
  10199. +      else if (!strcmp(tzname[1], "EDT")) dst = DST_USA;
  10200. +      else if (!strcmp(tzname[1], "CDT")) dst = DST_USA;
  10201. +      else if (!strcmp(tzname[1], "MDT")) dst = DST_USA;
  10202. +      else if (!strcmp(tzname[1], "PDT")) dst = DST_USA;
  10203. +      else if (!strcmp(tzname[1], "AKDT")) dst = DST_USA;
  10204. +      tzp->tz_dsttime = dst;
  10205. +    }
  10206. +  return 0;
  10207. +}
  10208. +
  10209. +int ftime(struct timeb *ft)
  10210. +{
  10211. +  struct timeval now;
  10212. +  struct timezone zone;
  10213. +
  10214. +  gettimeofday(&now, &zone);
  10215. +  ft->time = now.tv_sec;
  10216. +  ft->millitm = now.tv_usec;
  10217. +  ft->timezone = zone.tz_minuteswest;
  10218. +  ft->dstflag = daylight;
  10219. +
  10220. +  return 0;
  10221. +}
  10222. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/bcmp.c amiga/fsf/emacs18/amiga/unix/src/bcmp.c
  10223. --- baseline/fsf/emacs18/amiga/unix/src/bcmp.c    Wed Dec 31 17:00:00 1969
  10224. +++ amiga/fsf/emacs18/amiga/unix/src/bcmp.c    Sat Sep 28 00:00:00 1996
  10225. @@ -0,0 +1,9 @@
  10226. +#include "amiga.h"
  10227. +#include <string.h>
  10228. +
  10229. +#undef bcmp
  10230. +
  10231. +int bcmp(char *b1, char *b2, int length)
  10232. +{
  10233. +  return length == 0 ? 0 : memcmp(b2, b1, length);
  10234. +}
  10235. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/bcopy.c amiga/fsf/emacs18/amiga/unix/src/bcopy.c
  10236. --- baseline/fsf/emacs18/amiga/unix/src/bcopy.c    Wed Dec 31 17:00:00 1969
  10237. +++ amiga/fsf/emacs18/amiga/unix/src/bcopy.c    Sat Sep 28 00:00:00 1996
  10238. @@ -0,0 +1,10 @@
  10239. +#include "amiga.h"
  10240. +#include <string.h>
  10241. +
  10242. +#undef bcopy
  10243. +
  10244. +void bcopy(char *b1, char *b2, int length)
  10245. +{
  10246. +  /* Unoptimised version */
  10247. +  memmove(b2, b1, length);
  10248. +}
  10249. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/bzero.c amiga/fsf/emacs18/amiga/unix/src/bzero.c
  10250. --- baseline/fsf/emacs18/amiga/unix/src/bzero.c    Wed Dec 31 17:00:00 1969
  10251. +++ amiga/fsf/emacs18/amiga/unix/src/bzero.c    Sat Sep 28 00:00:00 1996
  10252. @@ -0,0 +1,9 @@
  10253. +#include "amiga.h"
  10254. +#include <string.h>
  10255. +
  10256. +#undef bzero
  10257. +
  10258. +void bzero(char *b, int length)
  10259. +{
  10260. +  memset(b, 0, length);
  10261. +}
  10262. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/chmod.c amiga/fsf/emacs18/amiga/unix/src/chmod.c
  10263. --- baseline/fsf/emacs18/amiga/unix/src/chmod.c    Wed Dec 31 17:00:00 1969
  10264. +++ amiga/fsf/emacs18/amiga/unix/src/chmod.c    Sat Sep 28 00:00:00 1996
  10265. @@ -0,0 +1,8 @@
  10266. +#include "amiga.h"
  10267. +
  10268. +int chmod(const char *name, int mode)
  10269. +{
  10270. +  chkabort();
  10271. +  if (SetProtection(name, _make_protection(mode))) return 0;
  10272. +  ERROR;
  10273. +}
  10274. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/chown.c amiga/fsf/emacs18/amiga/unix/src/chown.c
  10275. --- baseline/fsf/emacs18/amiga/unix/src/chown.c    Wed Dec 31 17:00:00 1969
  10276. +++ amiga/fsf/emacs18/amiga/unix/src/chown.c    Sat Sep 28 00:00:00 1996
  10277. @@ -0,0 +1,4 @@
  10278. +#include "amiga.h"
  10279. +
  10280. +int chown(char *path, int owner, int group) { return 0; }
  10281. +int fchown(int fd, int owner, int group) { return 0; }
  10282. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/close.c amiga/fsf/emacs18/amiga/unix/src/close.c
  10283. --- baseline/fsf/emacs18/amiga/unix/src/close.c    Wed Dec 31 17:00:00 1969
  10284. +++ amiga/fsf/emacs18/amiga/unix/src/close.c    Sat Sep 28 00:00:00 1996
  10285. @@ -0,0 +1,26 @@
  10286. +#include "amiga.h"
  10287. +#include "files.h"
  10288. +#include <fcntl.h>
  10289. +
  10290. +#undef close
  10291. +
  10292. +int __close(int fd)
  10293. +{
  10294. +  struct fileinfo *fi;
  10295. +
  10296. +  chkabort();
  10297. +  if (fi = _find_fd(fd))
  10298. +    {
  10299. +      int err = fi->close(fi->userinfo, fi->flags & O_NO_CLOSE);
  10300. +
  10301. +      _free_fd(fd);
  10302. +      return err;
  10303. +    }
  10304. +  return -1;
  10305. +}
  10306. +
  10307. +int close(int fd)
  10308. +{
  10309. +  return __close(fd);
  10310. +}
  10311. +
  10312. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/creat.c amiga/fsf/emacs18/amiga/unix/src/creat.c
  10313. --- baseline/fsf/emacs18/amiga/unix/src/creat.c    Wed Dec 31 17:00:00 1969
  10314. +++ amiga/fsf/emacs18/amiga/unix/src/creat.c    Sat Sep 28 00:00:00 1996
  10315. @@ -0,0 +1,17 @@
  10316. +#include "amiga.h"
  10317. +#include "files.h"
  10318. +#include <fcntl.h>
  10319. +
  10320. +#undef creat
  10321. +
  10322. +int __creat(const char *file, int prot)
  10323. +{
  10324. +  chkabort();
  10325. +  return open(file, O_WRONLY | O_CREAT | O_TRUNC, prot);
  10326. +}
  10327. +
  10328. +int creat(const char *file, int prot)
  10329. +{
  10330. +  return __creat(file, prot);
  10331. +}
  10332. +
  10333. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/ctime.c amiga/fsf/emacs18/amiga/unix/src/ctime.c
  10334. --- baseline/fsf/emacs18/amiga/unix/src/ctime.c    Wed Dec 31 17:00:00 1969
  10335. +++ amiga/fsf/emacs18/amiga/unix/src/ctime.c    Sat Sep 28 00:00:00 1996
  10336. @@ -0,0 +1,1381 @@
  10337. +/*
  10338. + * Copyright (c) 1987, 1989 Regents of the University of California.
  10339. + * All rights reserved.
  10340. + *
  10341. + * This code is derived from software contributed to Berkeley by
  10342. + * Arthur David Olson of the National Cancer Institute.
  10343. + *
  10344. + * Redistribution and use in source and binary forms, with or without
  10345. + * modification, are permitted provided that the following conditions
  10346. + * are met:
  10347. + * 1. Redistributions of source code must retain the above copyright
  10348. + *    notice, this list of conditions and the following disclaimer.
  10349. + * 2. Redistributions in binary form must reproduce the above copyright
  10350. + *    notice, this list of conditions and the following disclaimer in the
  10351. + *    documentation and/or other materials provided with the distribution.
  10352. + * 3. All advertising materials mentioning features or use of this software
  10353. + *    must display the following acknowledgement:
  10354. + *    This product includes software developed by the University of
  10355. + *    California, Berkeley and its contributors.
  10356. + * 4. Neither the name of the University nor the names of its contributors
  10357. + *    may be used to endorse or promote products derived from this software
  10358. + *    without specific prior written permission.
  10359. + *
  10360. + * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  10361. + * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  10362. + * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  10363. + * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  10364. + * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  10365. + * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  10366. + * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  10367. + * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  10368. + * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  10369. + * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  10370. + * SUCH DAMAGE.
  10371. + */
  10372. +
  10373. +#if defined(LIBC_SCCS) && !defined(lint)
  10374. +static char sccsid[] = "@(#)ctime.c    5.26 (Berkeley) 2/23/91";
  10375. +#endif /* LIBC_SCCS and not lint */
  10376. +
  10377. +/*
  10378. +** Leap second handling from Bradley White (bww@k.gp.cs.cmu.edu).
  10379. +** POSIX-style TZ environment variable handling from Guy Harris
  10380. +** (guy@auspex.com).
  10381. +*/
  10382. +
  10383. +/*LINTLIBRARY*/
  10384. +
  10385. +#include <sys/param.h>
  10386. +#include <fcntl.h>
  10387. +#include <time.h>
  10388. +#include <tzfile.h>
  10389. +#include <string.h>
  10390. +#include <ctype.h>
  10391. +#include <stdio.h>
  10392. +#include <unistd.h>
  10393. +
  10394. +#ifdef __STDC__
  10395. +#include <stdlib.h>
  10396. +
  10397. +#define P(s)        s
  10398. +#define alloc_size_t    size_t
  10399. +#define qsort_size_t    size_t
  10400. +#define fread_size_t    size_t
  10401. +#define fwrite_size_t    size_t
  10402. +
  10403. +#else /* !defined __STDC__ */
  10404. +
  10405. +#define P(s)        ()
  10406. +
  10407. +typedef char *        genericptr_t;
  10408. +typedef unsigned    alloc_size_t;
  10409. +typedef int        qsort_size_t;
  10410. +typedef int        fread_size_t;
  10411. +typedef int        fwrite_size_t;
  10412. +
  10413. +extern char *    calloc();
  10414. +extern char *    malloc();
  10415. +extern char *    realloc();
  10416. +extern char *    getenv();
  10417. +
  10418. +#endif /* !defined __STDC__ */
  10419. +
  10420. +extern time_t    time();
  10421. +
  10422. +#define ACCESS_MODE    O_RDONLY
  10423. +#define OPEN_MODE    O_RDONLY
  10424. +
  10425. +#ifndef WILDABBR
  10426. +/*
  10427. +** Someone might make incorrect use of a time zone abbreviation:
  10428. +**    1.    They might reference tzname[0] before calling tzset (explicitly
  10429. +**         or implicitly).
  10430. +**    2.    They might reference tzname[1] before calling tzset (explicitly
  10431. +**         or implicitly).
  10432. +**    3.    They might reference tzname[1] after setting to a time zone
  10433. +**        in which Daylight Saving Time is never observed.
  10434. +**    4.    They might reference tzname[0] after setting to a time zone
  10435. +**        in which Standard Time is never observed.
  10436. +**    5.    They might reference tm.TM_ZONE after calling offtime.
  10437. +** What's best to do in the above cases is open to debate;
  10438. +** for now, we just set things up so that in any of the five cases
  10439. +** WILDABBR is used.  Another possibility:  initialize tzname[0] to the
  10440. +** string "tzname[0] used before set", and similarly for the other cases.
  10441. +** And another:  initialize tzname[0] to "ERA", with an explanation in the
  10442. +** manual page of what this "time zone abbreviation" means (doing this so
  10443. +** that tzname[0] has the "normal" length of three characters).
  10444. +*/
  10445. +#define WILDABBR    "   "
  10446. +#endif /* !defined WILDABBR */
  10447. +
  10448. +#ifndef TRUE
  10449. +#define TRUE        1
  10450. +#define FALSE        0
  10451. +#endif /* !defined TRUE */
  10452. +
  10453. +static const char GMT[] = "GMT";
  10454. +
  10455. +struct ttinfo {                /* time type information */
  10456. +    long        tt_gmtoff;    /* GMT offset in seconds */
  10457. +    int        tt_isdst;    /* used to set tm_isdst */
  10458. +    int        tt_abbrind;    /* abbreviation list index */
  10459. +    int        tt_ttisstd;    /* TRUE if transition is std time */
  10460. +};
  10461. +
  10462. +struct lsinfo {                /* leap second information */
  10463. +    time_t        ls_trans;    /* transition time */
  10464. +    long        ls_corr;    /* correction to apply */
  10465. +};
  10466. +
  10467. +struct state {
  10468. +    int        leapcnt;
  10469. +    int        timecnt;
  10470. +    int        typecnt;
  10471. +    int        charcnt;
  10472. +    time_t        ats[TZ_MAX_TIMES];
  10473. +    unsigned char    types[TZ_MAX_TIMES];
  10474. +    struct ttinfo    ttis[TZ_MAX_TYPES];
  10475. +    char        chars[(TZ_MAX_CHARS + 1 > sizeof GMT) ?
  10476. +                TZ_MAX_CHARS + 1 : sizeof GMT];
  10477. +    struct lsinfo    lsis[TZ_MAX_LEAPS];
  10478. +};
  10479. +
  10480. +struct rule {
  10481. +    int        r_type;        /* type of rule--see below */
  10482. +    int        r_day;        /* day number of rule */
  10483. +    int        r_week;        /* week number of rule */
  10484. +    int        r_mon;        /* month number of rule */
  10485. +    long        r_time;        /* transition time of rule */
  10486. +};
  10487. +
  10488. +#define    JULIAN_DAY        0    /* Jn - Julian day */
  10489. +#define    DAY_OF_YEAR        1    /* n - day of year */
  10490. +#define    MONTH_NTH_DAY_OF_WEEK    2    /* Mm.n.d - month, week, day of week */
  10491. +
  10492. +/*
  10493. +** Prototypes for static functions.
  10494. +*/
  10495. +
  10496. +static long        detzcode P((const char * codep));
  10497. +static const char *    getzname P((const char * strp));
  10498. +static const char *    getnum P((const char * strp, int * nump, int min,
  10499. +                int max));
  10500. +static const char *    getsecs P((const char * strp, long * secsp));
  10501. +static const char *    getoffset P((const char * strp, long * offsetp));
  10502. +static const char *    getrule P((const char * strp, struct rule * rulep));
  10503. +static void        gmtload P((struct state * sp));
  10504. +static void        gmtsub P((const time_t * timep, long offset,
  10505. +                struct tm * tmp));
  10506. +static void        localsub P((const time_t * timep, long offset,
  10507. +                struct tm * tmp));
  10508. +static void        normalize P((int * tensptr, int * unitsptr, int base));
  10509. +static void        settzname P((void));
  10510. +static time_t        time1 P((struct tm * tmp, void (* funcp)(),
  10511. +                long offset));
  10512. +static time_t        time2 P((struct tm *tmp, void (* funcp)(),
  10513. +                long offset, int * okayp));
  10514. +static void        timesub P((const time_t * timep, long offset,
  10515. +                const struct state * sp, struct tm * tmp));
  10516. +static int        tmcomp P((const struct tm * atmp,
  10517. +                const struct tm * btmp));
  10518. +static time_t        transtime P((time_t janfirst, int year,
  10519. +                const struct rule * rulep, long offset));
  10520. +static int        tzload P((const char * name, struct state * sp));
  10521. +static int        tzparse P((const char * name, struct state * sp,
  10522. +                int lastditch));
  10523. +
  10524. +#ifdef ALL_STATE
  10525. +static struct state *    lclptr;
  10526. +static struct state *    gmtptr;
  10527. +#endif /* defined ALL_STATE */
  10528. +
  10529. +#ifndef ALL_STATE
  10530. +static struct state    lclmem;
  10531. +static struct state    gmtmem;
  10532. +#define lclptr        (&lclmem)
  10533. +#define gmtptr        (&gmtmem)
  10534. +#endif /* State Farm */
  10535. +
  10536. +static int        lcl_is_set;
  10537. +static int        gmt_is_set;
  10538. +
  10539. +char *            tzname[2] = {
  10540. +    WILDABBR,
  10541. +    WILDABBR
  10542. +};
  10543. +
  10544. +time_t            timezone = 0;
  10545. +int            daylight = 0;
  10546. +
  10547. +#ifdef ALTZONE
  10548. +time_t            altzone = 0;
  10549. +#endif /* defined ALTZONE */
  10550. +
  10551. +static long
  10552. +detzcode(codep)
  10553. +const char * const    codep;
  10554. +{
  10555. +    register long    result;
  10556. +    register int    i;
  10557. +
  10558. +    result = 0;
  10559. +    for (i = 0; i < 4; ++i)
  10560. +        result = (result << 8) | (codep[i] & 0xff);
  10561. +    return result;
  10562. +}
  10563. +
  10564. +static void
  10565. +settzname()
  10566. +{
  10567. +    register const struct state * const    sp = lclptr;
  10568. +    register int                i;
  10569. +
  10570. +    tzname[0] = WILDABBR;
  10571. +    tzname[1] = WILDABBR;
  10572. +    daylight = 0;
  10573. +    timezone = 0;
  10574. +#ifdef ALTZONE
  10575. +    altzone = 0;
  10576. +#endif /* defined ALTZONE */
  10577. +#ifdef ALL_STATE
  10578. +    if (sp == NULL) {
  10579. +        tzname[0] = tzname[1] = GMT;
  10580. +        return;
  10581. +    }
  10582. +#endif /* defined ALL_STATE */
  10583. +    for (i = 0; i < sp->typecnt; ++i) {
  10584. +        register const struct ttinfo * const    ttisp = &sp->ttis[i];
  10585. +
  10586. +        tzname[ttisp->tt_isdst] =
  10587. +            (char *) &sp->chars[ttisp->tt_abbrind];
  10588. +        if (ttisp->tt_isdst)
  10589. +            daylight = 1;
  10590. +        if (i == 0 || !ttisp->tt_isdst)
  10591. +            timezone = -(ttisp->tt_gmtoff);
  10592. +#ifdef ALTZONE
  10593. +        if (i == 0 || ttisp->tt_isdst)
  10594. +            altzone = -(ttisp->tt_gmtoff);
  10595. +#endif /* defined ALTZONE */
  10596. +    }
  10597. +    /*
  10598. +    ** And to get the latest zone names into tzname. . .
  10599. +    */
  10600. +    for (i = 0; i < sp->timecnt; ++i) {
  10601. +        register const struct ttinfo * const    ttisp =
  10602. +                            &sp->ttis[sp->types[i]];
  10603. +
  10604. +        tzname[ttisp->tt_isdst] =
  10605. +            (char *) &sp->chars[ttisp->tt_abbrind];
  10606. +    }
  10607. +}
  10608. +
  10609. +static int
  10610. +tzload(name, sp)
  10611. +register const char *        name;
  10612. +register struct state * const    sp;
  10613. +{
  10614. +    register const char *    p;
  10615. +    register int        i;
  10616. +    register int        fid;
  10617. +
  10618. +    if (name == NULL && (name = TZDEFAULT) == NULL)
  10619. +        return -1;
  10620. +    {
  10621. +        char        fullname[FILENAME_MAX + 1];
  10622. +
  10623. +        if (name[0] == ':')
  10624. +            ++name;
  10625. +        if (!strchr(name, ':')) {
  10626. +            if ((p = TZDIR) == NULL)
  10627. +                return -1;
  10628. +            if ((strlen(p) + strlen(name) + 1) >= sizeof fullname)
  10629. +                return -1;
  10630. +            (void) strcpy(fullname, p);
  10631. +            (void) strcat(fullname, "/");
  10632. +            (void) strcat(fullname, name);
  10633. +            name = fullname;
  10634. +        }
  10635. +        if ((fid = open(name, OPEN_MODE)) == -1)
  10636. +            return -1;
  10637. +    }
  10638. +    {
  10639. +        register const struct tzhead *    tzhp;
  10640. +        char                buf[sizeof *sp + sizeof *tzhp];
  10641. +        int                ttisstdcnt;
  10642. +
  10643. +        i = read(fid, buf, sizeof buf);
  10644. +        if (close(fid) != 0 || i < sizeof *tzhp)
  10645. +            return -1;
  10646. +        tzhp = (struct tzhead *) buf;
  10647. +        ttisstdcnt = (int) detzcode(tzhp->tzh_ttisstdcnt);
  10648. +        sp->leapcnt = (int) detzcode(tzhp->tzh_leapcnt);
  10649. +        sp->timecnt = (int) detzcode(tzhp->tzh_timecnt);
  10650. +        sp->typecnt = (int) detzcode(tzhp->tzh_typecnt);
  10651. +        sp->charcnt = (int) detzcode(tzhp->tzh_charcnt);
  10652. +        if (sp->leapcnt < 0 || sp->leapcnt > TZ_MAX_LEAPS ||
  10653. +            sp->typecnt <= 0 || sp->typecnt > TZ_MAX_TYPES ||
  10654. +            sp->timecnt < 0 || sp->timecnt > TZ_MAX_TIMES ||
  10655. +            sp->charcnt < 0 || sp->charcnt > TZ_MAX_CHARS ||
  10656. +            (ttisstdcnt != sp->typecnt && ttisstdcnt != 0))
  10657. +                return -1;
  10658. +        if (i < sizeof *tzhp +
  10659. +            sp->timecnt * (4 + sizeof (char)) +
  10660. +            sp->typecnt * (4 + 2 * sizeof (char)) +
  10661. +            sp->charcnt * sizeof (char) +
  10662. +            sp->leapcnt * 2 * 4 +
  10663. +            ttisstdcnt * sizeof (char))
  10664. +                return -1;
  10665. +        p = buf + sizeof *tzhp;
  10666. +        for (i = 0; i < sp->timecnt; ++i) {
  10667. +            sp->ats[i] = detzcode(p);
  10668. +            p += 4;
  10669. +        }
  10670. +        for (i = 0; i < sp->timecnt; ++i) {
  10671. +            sp->types[i] = (unsigned char) *p++;
  10672. +            if (sp->types[i] >= sp->typecnt)
  10673. +                return -1;
  10674. +        }
  10675. +        for (i = 0; i < sp->typecnt; ++i) {
  10676. +            register struct ttinfo *    ttisp;
  10677. +
  10678. +            ttisp = &sp->ttis[i];
  10679. +            ttisp->tt_gmtoff = detzcode(p);
  10680. +            p += 4;
  10681. +            ttisp->tt_isdst = (unsigned char) *p++;
  10682. +            if (ttisp->tt_isdst != 0 && ttisp->tt_isdst != 1)
  10683. +                return -1;
  10684. +            ttisp->tt_abbrind = (unsigned char) *p++;
  10685. +            if (ttisp->tt_abbrind < 0 ||
  10686. +                ttisp->tt_abbrind > sp->charcnt)
  10687. +                    return -1;
  10688. +        }
  10689. +        for (i = 0; i < sp->charcnt; ++i)
  10690. +            sp->chars[i] = *p++;
  10691. +        sp->chars[i] = '\0';    /* ensure '\0' at end */
  10692. +        for (i = 0; i < sp->leapcnt; ++i) {
  10693. +            register struct lsinfo *    lsisp;
  10694. +
  10695. +            lsisp = &sp->lsis[i];
  10696. +            lsisp->ls_trans = detzcode(p);
  10697. +            p += 4;
  10698. +            lsisp->ls_corr = detzcode(p);
  10699. +            p += 4;
  10700. +        }
  10701. +        for (i = 0; i < sp->typecnt; ++i) {
  10702. +            register struct ttinfo *    ttisp;
  10703. +
  10704. +            ttisp = &sp->ttis[i];
  10705. +            if (ttisstdcnt == 0)
  10706. +                ttisp->tt_ttisstd = FALSE;
  10707. +            else {
  10708. +                ttisp->tt_ttisstd = *p++;
  10709. +                if (ttisp->tt_ttisstd != TRUE &&
  10710. +                    ttisp->tt_ttisstd != FALSE)
  10711. +                        return -1;
  10712. +            }
  10713. +        }
  10714. +    }
  10715. +    return 0;
  10716. +}
  10717. +
  10718. +static const int    mon_lengths[2][MONSPERYEAR] = {
  10719. +    31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31,
  10720. +    31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31
  10721. +};
  10722. +
  10723. +static const int    year_lengths[2] = {
  10724. +    DAYSPERNYEAR, DAYSPERLYEAR
  10725. +};
  10726. +
  10727. +/*
  10728. +** Given a pointer into a time zone string, scan until a character that is not
  10729. +** a valid character in a zone name is found.  Return a pointer to that
  10730. +** character.
  10731. +*/
  10732. +
  10733. +static const char *
  10734. +getzname(strp)
  10735. +register const char *    strp;
  10736. +{
  10737. +    register char    c;
  10738. +
  10739. +    while ((c = *strp) != '\0' && !isdigit(c) && c != ',' && c != '-' &&
  10740. +        c != '+')
  10741. +            ++strp;
  10742. +    return strp;
  10743. +}
  10744. +
  10745. +/*
  10746. +** Given a pointer into a time zone string, extract a number from that string.
  10747. +** Check that the number is within a specified range; if it is not, return
  10748. +** NULL.
  10749. +** Otherwise, return a pointer to the first character not part of the number.
  10750. +*/
  10751. +
  10752. +static const char *
  10753. +getnum(strp, nump, min, max)
  10754. +register const char *    strp;
  10755. +int * const        nump;
  10756. +const int        min;
  10757. +const int        max;
  10758. +{
  10759. +    register char    c;
  10760. +    register int    num;
  10761. +
  10762. +    if (strp == NULL || !isdigit(*strp))
  10763. +        return NULL;
  10764. +    num = 0;
  10765. +    while ((c = *strp) != '\0' && isdigit(c)) {
  10766. +        num = num * 10 + (c - '0');
  10767. +        if (num > max)
  10768. +            return NULL;    /* illegal value */
  10769. +        ++strp;
  10770. +    }
  10771. +    if (num < min)
  10772. +        return NULL;        /* illegal value */
  10773. +    *nump = num;
  10774. +    return strp;
  10775. +}
  10776. +
  10777. +/*
  10778. +** Given a pointer into a time zone string, extract a number of seconds,
  10779. +** in hh[:mm[:ss]] form, from the string.
  10780. +** If any error occurs, return NULL.
  10781. +** Otherwise, return a pointer to the first character not part of the number
  10782. +** of seconds.
  10783. +*/
  10784. +
  10785. +static const char *
  10786. +getsecs(strp, secsp)
  10787. +register const char *    strp;
  10788. +long * const        secsp;
  10789. +{
  10790. +    int    num;
  10791. +
  10792. +    strp = getnum(strp, &num, 0, HOURSPERDAY);
  10793. +    if (strp == NULL)
  10794. +        return NULL;
  10795. +    *secsp = num * SECSPERHOUR;
  10796. +    if (*strp == ':') {
  10797. +        ++strp;
  10798. +        strp = getnum(strp, &num, 0, MINSPERHOUR - 1);
  10799. +        if (strp == NULL)
  10800. +            return NULL;
  10801. +        *secsp += num * SECSPERMIN;
  10802. +        if (*strp == ':') {
  10803. +            ++strp;
  10804. +            strp = getnum(strp, &num, 0, SECSPERMIN - 1);
  10805. +            if (strp == NULL)
  10806. +                return NULL;
  10807. +            *secsp += num;
  10808. +        }
  10809. +    }
  10810. +    return strp;
  10811. +}
  10812. +
  10813. +/*
  10814. +** Given a pointer into a time zone string, extract an offset, in
  10815. +** [+-]hh[:mm[:ss]] form, from the string.
  10816. +** If any error occurs, return NULL.
  10817. +** Otherwise, return a pointer to the first character not part of the time.
  10818. +*/
  10819. +
  10820. +static const char *
  10821. +getoffset(strp, offsetp)
  10822. +register const char *    strp;
  10823. +long * const        offsetp;
  10824. +{
  10825. +    register int    neg;
  10826. +
  10827. +    if (*strp == '-') {
  10828. +        neg = 1;
  10829. +        ++strp;
  10830. +    } else if (isdigit(*strp) || *strp++ == '+')
  10831. +        neg = 0;
  10832. +    else    return NULL;        /* illegal offset */
  10833. +    strp = getsecs(strp, offsetp);
  10834. +    if (strp == NULL)
  10835. +        return NULL;        /* illegal time */
  10836. +    if (neg)
  10837. +        *offsetp = -*offsetp;
  10838. +    return strp;
  10839. +}
  10840. +
  10841. +/*
  10842. +** Given a pointer into a time zone string, extract a rule in the form
  10843. +** date[/time].  See POSIX section 8 for the format of "date" and "time".
  10844. +** If a valid rule is not found, return NULL.
  10845. +** Otherwise, return a pointer to the first character not part of the rule.
  10846. +*/
  10847. +
  10848. +static const char *
  10849. +getrule(strp, rulep)
  10850. +const char *            strp;
  10851. +register struct rule * const    rulep;
  10852. +{
  10853. +    if (*strp == 'J') {
  10854. +        /*
  10855. +        ** Julian day.
  10856. +        */
  10857. +        rulep->r_type = JULIAN_DAY;
  10858. +        ++strp;
  10859. +        strp = getnum(strp, &rulep->r_day, 1, DAYSPERNYEAR);
  10860. +    } else if (*strp == 'M') {
  10861. +        /*
  10862. +        ** Month, week, day.
  10863. +        */
  10864. +        rulep->r_type = MONTH_NTH_DAY_OF_WEEK;
  10865. +        ++strp;
  10866. +        strp = getnum(strp, &rulep->r_mon, 1, MONSPERYEAR);
  10867. +        if (strp == NULL)
  10868. +            return NULL;
  10869. +        if (*strp++ != '.')
  10870. +            return NULL;
  10871. +        strp = getnum(strp, &rulep->r_week, 1, 5);
  10872. +        if (strp == NULL)
  10873. +            return NULL;
  10874. +        if (*strp++ != '.')
  10875. +            return NULL;
  10876. +        strp = getnum(strp, &rulep->r_day, 0, DAYSPERWEEK - 1);
  10877. +    } else if (isdigit(*strp)) {
  10878. +        /*
  10879. +        ** Day of year.
  10880. +        */
  10881. +        rulep->r_type = DAY_OF_YEAR;
  10882. +        strp = getnum(strp, &rulep->r_day, 0, DAYSPERLYEAR - 1);
  10883. +    } else    return NULL;        /* invalid format */
  10884. +    if (strp == NULL)
  10885. +        return NULL;
  10886. +    if (*strp == '/') {
  10887. +        /*
  10888. +        ** Time specified.
  10889. +        */
  10890. +        ++strp;
  10891. +        strp = getsecs(strp, &rulep->r_time);
  10892. +    } else    rulep->r_time = 2 * SECSPERHOUR;    /* default = 2:00:00 */
  10893. +    return strp;
  10894. +}
  10895. +
  10896. +/*
  10897. +** Given the Epoch-relative time of January 1, 00:00:00 GMT, in a year, the
  10898. +** year, a rule, and the offset from GMT at the time that rule takes effect,
  10899. +** calculate the Epoch-relative time that rule takes effect.
  10900. +*/
  10901. +
  10902. +static time_t
  10903. +transtime(janfirst, year, rulep, offset)
  10904. +const time_t                janfirst;
  10905. +const int                year;
  10906. +register const struct rule * const    rulep;
  10907. +const long                offset;
  10908. +{
  10909. +    register int    leapyear;
  10910. +    register time_t    value;
  10911. +    register int    i;
  10912. +    int        d, m1, yy0, yy1, yy2, dow;
  10913. +
  10914. +    leapyear = isleap(year);
  10915. +    switch (rulep->r_type) {
  10916. +
  10917. +    case JULIAN_DAY:
  10918. +        /*
  10919. +        ** Jn - Julian day, 1 == January 1, 60 == March 1 even in leap
  10920. +        ** years.
  10921. +        ** In non-leap years, or if the day number is 59 or less, just
  10922. +        ** add SECSPERDAY times the day number-1 to the time of
  10923. +        ** January 1, midnight, to get the day.
  10924. +        */
  10925. +        value = janfirst + (rulep->r_day - 1) * SECSPERDAY;
  10926. +        if (leapyear && rulep->r_day >= 60)
  10927. +            value += SECSPERDAY;
  10928. +        break;
  10929. +
  10930. +    case DAY_OF_YEAR:
  10931. +        /*
  10932. +        ** n - day of year.
  10933. +        ** Just add SECSPERDAY times the day number to the time of
  10934. +        ** January 1, midnight, to get the day.
  10935. +        */
  10936. +        value = janfirst + rulep->r_day * SECSPERDAY;
  10937. +        break;
  10938. +
  10939. +    case MONTH_NTH_DAY_OF_WEEK:
  10940. +        /*
  10941. +        ** Mm.n.d - nth "dth day" of month m.
  10942. +        */
  10943. +        value = janfirst;
  10944. +        for (i = 0; i < rulep->r_mon - 1; ++i)
  10945. +            value += mon_lengths[leapyear][i] * SECSPERDAY;
  10946. +
  10947. +        /*
  10948. +        ** Use Zeller's Congruence to get day-of-week of first day of
  10949. +        ** month.
  10950. +        */
  10951. +        m1 = (rulep->r_mon + 9) % 12 + 1;
  10952. +        yy0 = (rulep->r_mon <= 2) ? (year - 1) : year;
  10953. +        yy1 = yy0 / 100;
  10954. +        yy2 = yy0 % 100;
  10955. +        dow = ((26 * m1 - 2) / 10 +
  10956. +            1 + yy2 + yy2 / 4 + yy1 / 4 - 2 * yy1) % 7;
  10957. +        if (dow < 0)
  10958. +            dow += DAYSPERWEEK;
  10959. +
  10960. +        /*
  10961. +        ** "dow" is the day-of-week of the first day of the month.  Get
  10962. +        ** the day-of-month (zero-origin) of the first "dow" day of the
  10963. +        ** month.
  10964. +        */
  10965. +        d = rulep->r_day - dow;
  10966. +        if (d < 0)
  10967. +            d += DAYSPERWEEK;
  10968. +        for (i = 1; i < rulep->r_week; ++i) {
  10969. +            if (d + DAYSPERWEEK >=
  10970. +                mon_lengths[leapyear][rulep->r_mon - 1])
  10971. +                    break;
  10972. +            d += DAYSPERWEEK;
  10973. +        }
  10974. +
  10975. +        /*
  10976. +        ** "d" is the day-of-month (zero-origin) of the day we want.
  10977. +        */
  10978. +        value += d * SECSPERDAY;
  10979. +        break;
  10980. +    }
  10981. +
  10982. +    /*
  10983. +    ** "value" is the Epoch-relative time of 00:00:00 GMT on the day in
  10984. +    ** question.  To get the Epoch-relative time of the specified local
  10985. +    ** time on that day, add the transition time and the current offset
  10986. +    ** from GMT.
  10987. +    */
  10988. +    return value + rulep->r_time + offset;
  10989. +}
  10990. +
  10991. +/*
  10992. +** Given a POSIX section 8-style TZ string, fill in the rule tables as
  10993. +** appropriate.
  10994. +*/
  10995. +
  10996. +static int
  10997. +tzparse(name, sp, lastditch)
  10998. +const char *            name;
  10999. +register struct state * const    sp;
  11000. +const int            lastditch;
  11001. +{
  11002. +    const char *            stdname;
  11003. +    const char *            dstname;
  11004. +    int                stdlen;
  11005. +    int                dstlen;
  11006. +    long                stdoffset;
  11007. +    long                dstoffset;
  11008. +    register time_t *        atp;
  11009. +    register unsigned char *    typep;
  11010. +    register char *            cp;
  11011. +    register int            load_result;
  11012. +
  11013. +    stdname = name;
  11014. +    if (lastditch) {
  11015. +        stdlen = strlen(name);    /* length of standard zone name */
  11016. +        name += stdlen;
  11017. +        if (stdlen >= sizeof sp->chars)
  11018. +            stdlen = (sizeof sp->chars) - 1;
  11019. +    } else {
  11020. +        name = getzname(name);
  11021. +        stdlen = name - stdname;
  11022. +        if (stdlen < 3)
  11023. +            return -1;
  11024. +    }
  11025. +    if (*name == '\0')
  11026. +        return -1;
  11027. +    else {
  11028. +        name = getoffset(name, &stdoffset);
  11029. +        if (name == NULL)
  11030. +            return -1;
  11031. +    }
  11032. +    load_result = tzload(TZDEFRULES, sp);
  11033. +    if (load_result != 0)
  11034. +        sp->leapcnt = 0;        /* so, we're off a little */
  11035. +    if (*name != '\0') {
  11036. +        dstname = name;
  11037. +        name = getzname(name);
  11038. +        dstlen = name - dstname;    /* length of DST zone name */
  11039. +        if (dstlen < 3)
  11040. +            return -1;
  11041. +        if (*name != '\0' && *name != ',' && *name != ';') {
  11042. +            name = getoffset(name, &dstoffset);
  11043. +            if (name == NULL)
  11044. +                return -1;
  11045. +        } else    dstoffset = stdoffset - SECSPERHOUR;
  11046. +        if (*name == ',' || *name == ';') {
  11047. +            struct rule    start;
  11048. +            struct rule    end;
  11049. +            register int    year;
  11050. +            register time_t    janfirst;
  11051. +            time_t        starttime;
  11052. +            time_t        endtime;
  11053. +
  11054. +            ++name;
  11055. +            if ((name = getrule(name, &start)) == NULL)
  11056. +                return -1;
  11057. +            if (*name++ != ',')
  11058. +                return -1;
  11059. +            if ((name = getrule(name, &end)) == NULL)
  11060. +                return -1;
  11061. +            if (*name != '\0')
  11062. +                return -1;
  11063. +            sp->typecnt = 2;    /* standard time and DST */
  11064. +            /*
  11065. +            ** Two transitions per year, from EPOCH_YEAR to 2037.
  11066. +            */
  11067. +            sp->timecnt = 2 * (2037 - EPOCH_YEAR + 1);
  11068. +            if (sp->timecnt > TZ_MAX_TIMES)
  11069. +                return -1;
  11070. +            sp->ttis[0].tt_gmtoff = -dstoffset;
  11071. +            sp->ttis[0].tt_isdst = 1;
  11072. +            sp->ttis[0].tt_abbrind = stdlen + 1;
  11073. +            sp->ttis[1].tt_gmtoff = -stdoffset;
  11074. +            sp->ttis[1].tt_isdst = 0;
  11075. +            sp->ttis[1].tt_abbrind = 0;
  11076. +            atp = sp->ats;
  11077. +            typep = sp->types;
  11078. +            janfirst = 0;
  11079. +            for (year = EPOCH_YEAR; year <= 2037; ++year) {
  11080. +                starttime = transtime(janfirst, year, &start,
  11081. +                    stdoffset);
  11082. +                endtime = transtime(janfirst, year, &end,
  11083. +                    dstoffset);
  11084. +                if (starttime > endtime) {
  11085. +                    *atp++ = endtime;
  11086. +                    *typep++ = 1;    /* DST ends */
  11087. +                    *atp++ = starttime;
  11088. +                    *typep++ = 0;    /* DST begins */
  11089. +                } else {
  11090. +                    *atp++ = starttime;
  11091. +                    *typep++ = 0;    /* DST begins */
  11092. +                    *atp++ = endtime;
  11093. +                    *typep++ = 1;    /* DST ends */
  11094. +                }
  11095. +                janfirst +=
  11096. +                    year_lengths[isleap(year)] * SECSPERDAY;
  11097. +            }
  11098. +        } else {
  11099. +            int        sawstd;
  11100. +            int        sawdst;
  11101. +            long        stdfix;
  11102. +            long        dstfix;
  11103. +            long        oldfix;
  11104. +            int        isdst;
  11105. +            register int    i;
  11106. +
  11107. +            if (*name != '\0')
  11108. +                return -1;
  11109. +            if (load_result != 0)
  11110. +                return -1;
  11111. +            /*
  11112. +            ** Compute the difference between the real and
  11113. +            ** prototype standard and summer time offsets
  11114. +            ** from GMT, and put the real standard and summer
  11115. +            ** time offsets into the rules in place of the
  11116. +            ** prototype offsets.
  11117. +            */
  11118. +            sawstd = FALSE;
  11119. +            sawdst = FALSE;
  11120. +            stdfix = 0;
  11121. +            dstfix = 0;
  11122. +            for (i = 0; i < sp->typecnt; ++i) {
  11123. +                if (sp->ttis[i].tt_isdst) {
  11124. +                    oldfix = dstfix;
  11125. +                    dstfix =
  11126. +                        sp->ttis[i].tt_gmtoff + dstoffset;
  11127. +                    if (sawdst && (oldfix != dstfix))
  11128. +                        return -1;
  11129. +                    sp->ttis[i].tt_gmtoff = -dstoffset;
  11130. +                    sp->ttis[i].tt_abbrind = stdlen + 1;
  11131. +                    sawdst = TRUE;
  11132. +                } else {
  11133. +                    oldfix = stdfix;
  11134. +                    stdfix =
  11135. +                        sp->ttis[i].tt_gmtoff + stdoffset;
  11136. +                    if (sawstd && (oldfix != stdfix))
  11137. +                        return -1;
  11138. +                    sp->ttis[i].tt_gmtoff = -stdoffset;
  11139. +                    sp->ttis[i].tt_abbrind = 0;
  11140. +                    sawstd = TRUE;
  11141. +                }
  11142. +            }
  11143. +            /*
  11144. +            ** Make sure we have both standard and summer time.
  11145. +            */
  11146. +            if (!sawdst || !sawstd)
  11147. +                return -1;
  11148. +            /*
  11149. +            ** Now correct the transition times by shifting
  11150. +            ** them by the difference between the real and
  11151. +            ** prototype offsets.  Note that this difference
  11152. +            ** can be different in standard and summer time;
  11153. +            ** the prototype probably has a 1-hour difference
  11154. +            ** between standard and summer time, but a different
  11155. +            ** difference can be specified in TZ.
  11156. +            */
  11157. +            isdst = FALSE;    /* we start in standard time */
  11158. +            for (i = 0; i < sp->timecnt; ++i) {
  11159. +                register const struct ttinfo *    ttisp;
  11160. +
  11161. +                /*
  11162. +                ** If summer time is in effect, and the
  11163. +                ** transition time was not specified as
  11164. +                ** standard time, add the summer time
  11165. +                ** offset to the transition time;
  11166. +                ** otherwise, add the standard time offset
  11167. +                ** to the transition time.
  11168. +                */
  11169. +                ttisp = &sp->ttis[sp->types[i]];
  11170. +                sp->ats[i] +=
  11171. +                    (isdst && !ttisp->tt_ttisstd) ?
  11172. +                        dstfix : stdfix;
  11173. +                isdst = ttisp->tt_isdst;
  11174. +            }
  11175. +        }
  11176. +    } else {
  11177. +        dstlen = 0;
  11178. +        sp->typecnt = 1;        /* only standard time */
  11179. +        sp->timecnt = 0;
  11180. +        sp->ttis[0].tt_gmtoff = -stdoffset;
  11181. +        sp->ttis[0].tt_isdst = 0;
  11182. +        sp->ttis[0].tt_abbrind = 0;
  11183. +    }
  11184. +    sp->charcnt = stdlen + 1;
  11185. +    if (dstlen != 0)
  11186. +        sp->charcnt += dstlen + 1;
  11187. +    if (sp->charcnt > sizeof sp->chars)
  11188. +        return -1;
  11189. +    cp = sp->chars;
  11190. +    (void) strncpy(cp, stdname, stdlen);
  11191. +    cp += stdlen;
  11192. +    *cp++ = '\0';
  11193. +    if (dstlen != 0) {
  11194. +        (void) strncpy(cp, dstname, dstlen);
  11195. +        *(cp + dstlen) = '\0';
  11196. +    }
  11197. +    return 0;
  11198. +}
  11199. +
  11200. +static void
  11201. +gmtload(sp)
  11202. +struct state * const    sp;
  11203. +{
  11204. +    if (tzload(GMT, sp) != 0)
  11205. +        (void) tzparse(GMT, sp, TRUE);
  11206. +}
  11207. +
  11208. +void
  11209. +tzset()
  11210. +{
  11211. +    register const char *    name;
  11212. +    void tzsetwall();
  11213. +
  11214. +    name = getenv("UNIXTZ");
  11215. +    if (name == NULL) {
  11216. +        tzsetwall();
  11217. +        return;
  11218. +    }
  11219. +    lcl_is_set = TRUE;
  11220. +#ifdef ALL_STATE
  11221. +    if (lclptr == NULL) {
  11222. +        lclptr = (struct state *) malloc(sizeof *lclptr);
  11223. +        if (lclptr == NULL) {
  11224. +            settzname();    /* all we can do */
  11225. +            return;
  11226. +        }
  11227. +    }
  11228. +#endif /* defined ALL_STATE */
  11229. +    if (*name == '\0') {
  11230. +        /*
  11231. +        ** User wants it fast rather than right.
  11232. +        */
  11233. +        lclptr->leapcnt = 0;        /* so, we're off a little */
  11234. +        lclptr->timecnt = 0;
  11235. +        lclptr->ttis[0].tt_gmtoff = 0;
  11236. +        lclptr->ttis[0].tt_abbrind = 0;
  11237. +        (void) strcpy(lclptr->chars, GMT);
  11238. +    } else if (tzload(name, lclptr) != 0)
  11239. +        if (name[0] == ':' || tzparse(name, lclptr, FALSE) != 0)
  11240. +            (void) gmtload(lclptr);
  11241. +    settzname();
  11242. +}
  11243. +
  11244. +void
  11245. +tzsetwall()
  11246. +{
  11247. +    lcl_is_set = TRUE;
  11248. +#ifdef ALL_STATE
  11249. +    if (lclptr == NULL) {
  11250. +        lclptr = (struct state *) malloc(sizeof *lclptr);
  11251. +        if (lclptr == NULL) {
  11252. +            settzname();    /* all we can do */
  11253. +            return;
  11254. +        }
  11255. +    }
  11256. +#endif /* defined ALL_STATE */
  11257. +    if (tzload((char *) NULL, lclptr) != 0)
  11258. +        gmtload(lclptr);
  11259. +    settzname();
  11260. +}
  11261. +
  11262. +/*
  11263. +** The easy way to behave "as if no library function calls" localtime
  11264. +** is to not call it--so we drop its guts into "localsub", which can be
  11265. +** freely called.  (And no, the PANS doesn't require the above behavior--
  11266. +** but it *is* desirable.)
  11267. +**
  11268. +** The unused offset argument is for the benefit of mktime variants.
  11269. +*/
  11270. +
  11271. +/*ARGSUSED*/
  11272. +static void
  11273. +localsub(timep, offset, tmp)
  11274. +const time_t * const    timep;
  11275. +const long        offset;
  11276. +struct tm * const    tmp;
  11277. +{
  11278. +    register struct state *    sp;
  11279. +    register const struct ttinfo *    ttisp;
  11280. +    register int            i;
  11281. +    const time_t            t = *timep;
  11282. +
  11283. +    if (!lcl_is_set)
  11284. +        tzset();
  11285. +    sp = lclptr;
  11286. +#ifdef ALL_STATE
  11287. +    if (sp == NULL) {
  11288. +        gmtsub(timep, offset, tmp);
  11289. +        return;
  11290. +    }
  11291. +#endif /* defined ALL_STATE */
  11292. +    if (sp->timecnt == 0 || t < sp->ats[0]) {
  11293. +        i = 0;
  11294. +        while (sp->ttis[i].tt_isdst)
  11295. +            if (++i >= sp->typecnt) {
  11296. +                i = 0;
  11297. +                break;
  11298. +            }
  11299. +    } else {
  11300. +        for (i = 1; i < sp->timecnt; ++i)
  11301. +            if (t < sp->ats[i])
  11302. +                break;
  11303. +        i = sp->types[i - 1];
  11304. +    }
  11305. +    ttisp = &sp->ttis[i];
  11306. +    /*
  11307. +    ** To get (wrong) behavior that's compatible with System V Release 2.0
  11308. +    ** you'd replace the statement below with
  11309. +    **    t += ttisp->tt_gmtoff;
  11310. +    **    timesub(&t, 0L, sp, tmp);
  11311. +    */
  11312. +    timesub(&t, ttisp->tt_gmtoff, sp, tmp);
  11313. +    tmp->tm_isdst = ttisp->tt_isdst;
  11314. +    tzname[tmp->tm_isdst] = (char *) &sp->chars[ttisp->tt_abbrind];
  11315. +    tmp->tm_zone = &sp->chars[ttisp->tt_abbrind];
  11316. +}
  11317. +
  11318. +struct tm *
  11319. +localtime(timep)
  11320. +const time_t * const    timep;
  11321. +{
  11322. +    static struct tm    tm;
  11323. +
  11324. +    localsub(timep, 0L, &tm);
  11325. +    return &tm;
  11326. +}
  11327. +
  11328. +/*
  11329. +** gmtsub is to gmtime as localsub is to localtime.
  11330. +*/
  11331. +
  11332. +static void
  11333. +gmtsub(timep, offset, tmp)
  11334. +const time_t * const    timep;
  11335. +const long        offset;
  11336. +struct tm * const    tmp;
  11337. +{
  11338. +    if (!gmt_is_set) {
  11339. +        gmt_is_set = TRUE;
  11340. +#ifdef ALL_STATE
  11341. +        gmtptr = (struct state *) malloc(sizeof *gmtptr);
  11342. +        if (gmtptr != NULL)
  11343. +#endif /* defined ALL_STATE */
  11344. +            gmtload(gmtptr);
  11345. +    }
  11346. +    timesub(timep, offset, gmtptr, tmp);
  11347. +    /*
  11348. +    ** Could get fancy here and deliver something such as
  11349. +    ** "GMT+xxxx" or "GMT-xxxx" if offset is non-zero,
  11350. +    ** but this is no time for a treasure hunt.
  11351. +    */
  11352. +    if (offset != 0)
  11353. +        tmp->tm_zone = WILDABBR;
  11354. +    else {
  11355. +#ifdef ALL_STATE
  11356. +        if (gmtptr == NULL)
  11357. +            tmp->TM_ZONE = GMT;
  11358. +        else    tmp->TM_ZONE = gmtptr->chars;
  11359. +#endif /* defined ALL_STATE */
  11360. +#ifndef ALL_STATE
  11361. +        tmp->tm_zone = gmtptr->chars;
  11362. +#endif /* State Farm */
  11363. +    }
  11364. +}
  11365. +
  11366. +struct tm *
  11367. +gmtime(timep)
  11368. +const time_t * const    timep;
  11369. +{
  11370. +    static struct tm    tm;
  11371. +
  11372. +    gmtsub(timep, 0L, &tm);
  11373. +    return &tm;
  11374. +}
  11375. +
  11376. +static void
  11377. +timesub(timep, offset, sp, tmp)
  11378. +const time_t * const            timep;
  11379. +const long                offset;
  11380. +register const struct state * const    sp;
  11381. +register struct tm * const        tmp;
  11382. +{
  11383. +    register const struct lsinfo *    lp;
  11384. +    register long            days;
  11385. +    register long            rem;
  11386. +    register int            y;
  11387. +    register int            yleap;
  11388. +    register const int *        ip;
  11389. +    register long            corr;
  11390. +    register int            hit;
  11391. +    register int            i;
  11392. +
  11393. +    corr = 0;
  11394. +    hit = FALSE;
  11395. +#ifdef ALL_STATE
  11396. +    i = (sp == NULL) ? 0 : sp->leapcnt;
  11397. +#endif /* defined ALL_STATE */
  11398. +#ifndef ALL_STATE
  11399. +    i = sp->leapcnt;
  11400. +#endif /* State Farm */
  11401. +    while (--i >= 0) {
  11402. +        lp = &sp->lsis[i];
  11403. +        if (*timep >= lp->ls_trans) {
  11404. +            if (*timep == lp->ls_trans)
  11405. +                hit = ((i == 0 && lp->ls_corr > 0) ||
  11406. +                    lp->ls_corr > sp->lsis[i - 1].ls_corr);
  11407. +            corr = lp->ls_corr;
  11408. +            break;
  11409. +        }
  11410. +    }
  11411. +    days = *timep / SECSPERDAY;
  11412. +    rem = *timep % SECSPERDAY;
  11413. +#ifdef mc68k
  11414. +    if (*timep == 0x80000000) {
  11415. +        /*
  11416. +        ** A 3B1 muffs the division on the most negative number.
  11417. +        */
  11418. +        days = -24855;
  11419. +        rem = -11648;
  11420. +    }
  11421. +#endif /* mc68k */
  11422. +    rem += (offset - corr);
  11423. +    while (rem < 0) {
  11424. +        rem += SECSPERDAY;
  11425. +        --days;
  11426. +    }
  11427. +    while (rem >= SECSPERDAY) {
  11428. +        rem -= SECSPERDAY;
  11429. +        ++days;
  11430. +    }
  11431. +    tmp->tm_hour = (int) (rem / SECSPERHOUR);
  11432. +    rem = rem % SECSPERHOUR;
  11433. +    tmp->tm_min = (int) (rem / SECSPERMIN);
  11434. +    tmp->tm_sec = (int) (rem % SECSPERMIN);
  11435. +    if (hit)
  11436. +        /*
  11437. +        ** A positive leap second requires a special
  11438. +        ** representation.  This uses "... ??:59:60".
  11439. +        */
  11440. +        ++(tmp->tm_sec);
  11441. +    tmp->tm_wday = (int) ((EPOCH_WDAY + days) % DAYSPERWEEK);
  11442. +    if (tmp->tm_wday < 0)
  11443. +        tmp->tm_wday += DAYSPERWEEK;
  11444. +    y = EPOCH_YEAR;
  11445. +    if (days >= 0)
  11446. +        for ( ; ; ) {
  11447. +            yleap = isleap(y);
  11448. +            if (days < (long) year_lengths[yleap])
  11449. +                break;
  11450. +            ++y;
  11451. +            days = days - (long) year_lengths[yleap];
  11452. +        }
  11453. +    else do {
  11454. +        --y;
  11455. +        yleap = isleap(y);
  11456. +        days = days + (long) year_lengths[yleap];
  11457. +    } while (days < 0);
  11458. +    tmp->tm_year = y - TM_YEAR_BASE;
  11459. +    tmp->tm_yday = (int) days;
  11460. +    ip = mon_lengths[yleap];
  11461. +    for (tmp->tm_mon = 0; days >= (long) ip[tmp->tm_mon]; ++(tmp->tm_mon))
  11462. +        days = days - (long) ip[tmp->tm_mon];
  11463. +    tmp->tm_mday = (int) (days + 1);
  11464. +    tmp->tm_isdst = 0;
  11465. +    tmp->tm_gmtoff = offset;
  11466. +}
  11467. +
  11468. +/*
  11469. +** A la X3J11
  11470. +*/
  11471. +
  11472. +char *
  11473. +asctime(timeptr)
  11474. +register const struct tm *    timeptr;
  11475. +{
  11476. +    static const char    wday_name[DAYSPERWEEK][3] = {
  11477. +        "Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat"
  11478. +    };
  11479. +    static const char    mon_name[MONSPERYEAR][3] = {
  11480. +        "Jan", "Feb", "Mar", "Apr", "May", "Jun",
  11481. +        "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"
  11482. +    };
  11483. +    static char    result[26];
  11484. +
  11485. +    (void) sprintf(result, "%.3s %.3s%3d %02.2d:%02.2d:%02.2d %d\n",
  11486. +        wday_name[timeptr->tm_wday],
  11487. +        mon_name[timeptr->tm_mon],
  11488. +        timeptr->tm_mday, timeptr->tm_hour,
  11489. +        timeptr->tm_min, timeptr->tm_sec,
  11490. +        TM_YEAR_BASE + timeptr->tm_year);
  11491. +    return result;
  11492. +}
  11493. +
  11494. +char *
  11495. +ctime(timep)
  11496. +const time_t * const    timep;
  11497. +{
  11498. +    return asctime(localtime(timep));
  11499. +}
  11500. +
  11501. +/*
  11502. +** Adapted from code provided by Robert Elz, who writes:
  11503. +**    The "best" way to do mktime I think is based on an idea of Bob
  11504. +**    Kridle's (so its said...) from a long time ago. (mtxinu!kridle now).
  11505. +**    It does a binary search of the time_t space.  Since time_t's are
  11506. +**    just 32 bits, its a max of 32 iterations (even at 64 bits it
  11507. +**    would still be very reasonable).
  11508. +*/
  11509. +
  11510. +#ifndef WRONG
  11511. +#define WRONG    (-1)
  11512. +#endif /* !defined WRONG */
  11513. +
  11514. +static void
  11515. +normalize(tensptr, unitsptr, base)
  11516. +int * const    tensptr;
  11517. +int * const    unitsptr;
  11518. +const int    base;
  11519. +{
  11520. +    if (*unitsptr >= base) {
  11521. +        *tensptr += *unitsptr / base;
  11522. +        *unitsptr %= base;
  11523. +    } else if (*unitsptr < 0) {
  11524. +        --*tensptr;
  11525. +        *unitsptr += base;
  11526. +        if (*unitsptr < 0) {
  11527. +            *tensptr -= 1 + (-*unitsptr) / base;
  11528. +            *unitsptr = base - (-*unitsptr) % base;
  11529. +        }
  11530. +    }
  11531. +}
  11532. +
  11533. +static int
  11534. +tmcomp(atmp, btmp)
  11535. +register const struct tm * const atmp;
  11536. +register const struct tm * const btmp;
  11537. +{
  11538. +    register int    result;
  11539. +
  11540. +    if ((result = (atmp->tm_year - btmp->tm_year)) == 0 &&
  11541. +        (result = (atmp->tm_mon - btmp->tm_mon)) == 0 &&
  11542. +        (result = (atmp->tm_mday - btmp->tm_mday)) == 0 &&
  11543. +        (result = (atmp->tm_hour - btmp->tm_hour)) == 0 &&
  11544. +        (result = (atmp->tm_min - btmp->tm_min)) == 0)
  11545. +            result = atmp->tm_sec - btmp->tm_sec;
  11546. +    return result;
  11547. +}
  11548. +
  11549. +static time_t
  11550. +time2(tmp, funcp, offset, okayp)
  11551. +struct tm * const    tmp;
  11552. +void (* const        funcp)();
  11553. +const long        offset;
  11554. +int * const        okayp;
  11555. +{
  11556. +    register const struct state *    sp;
  11557. +    register int            dir;
  11558. +    register int            bits;
  11559. +    register int            i, j ;
  11560. +    register int            saved_seconds;
  11561. +    time_t                newt;
  11562. +    time_t                t;
  11563. +    struct tm            yourtm, mytm;
  11564. +
  11565. +    *okayp = FALSE;
  11566. +    yourtm = *tmp;
  11567. +    if (yourtm.tm_sec >= SECSPERMIN + 2 || yourtm.tm_sec < 0)
  11568. +        normalize(&yourtm.tm_min, &yourtm.tm_sec, SECSPERMIN);
  11569. +    normalize(&yourtm.tm_hour, &yourtm.tm_min, MINSPERHOUR);
  11570. +    normalize(&yourtm.tm_mday, &yourtm.tm_hour, HOURSPERDAY);
  11571. +    normalize(&yourtm.tm_year, &yourtm.tm_mon, MONSPERYEAR);
  11572. +    while (yourtm.tm_mday <= 0) {
  11573. +        --yourtm.tm_year;
  11574. +        yourtm.tm_mday +=
  11575. +            year_lengths[isleap(yourtm.tm_year + TM_YEAR_BASE)];
  11576. +    }
  11577. +    for ( ; ; ) {
  11578. +        i = mon_lengths[isleap(yourtm.tm_year +
  11579. +            TM_YEAR_BASE)][yourtm.tm_mon];
  11580. +        if (yourtm.tm_mday <= i)
  11581. +            break;
  11582. +        yourtm.tm_mday -= i;
  11583. +        if (++yourtm.tm_mon >= MONSPERYEAR) {
  11584. +            yourtm.tm_mon = 0;
  11585. +            ++yourtm.tm_year;
  11586. +        }
  11587. +    }
  11588. +    saved_seconds = yourtm.tm_sec;
  11589. +    yourtm.tm_sec = 0;
  11590. +    /*
  11591. +    ** Calculate the number of magnitude bits in a time_t
  11592. +    ** (this works regardless of whether time_t is
  11593. +    ** signed or unsigned, though lint complains if unsigned).
  11594. +    */
  11595. +    for (bits = 0, t = 1; t > 0; ++bits, t <<= 1)
  11596. +        ;
  11597. +    /*
  11598. +    ** If time_t is signed, then 0 is the median value,
  11599. +    ** if time_t is unsigned, then 1 << bits is median.
  11600. +    */
  11601. +    t = (t < 0) ? 0 : ((time_t) 1 << bits);
  11602. +    for ( ; ; ) {
  11603. +        (*funcp)(&t, offset, &mytm);
  11604. +        dir = tmcomp(&mytm, &yourtm);
  11605. +        if (dir != 0) {
  11606. +            if (bits-- < 0)
  11607. +                return WRONG;
  11608. +            if (bits < 0)
  11609. +                --t;
  11610. +            else if (dir > 0)
  11611. +                t -= (time_t) 1 << bits;
  11612. +            else    t += (time_t) 1 << bits;
  11613. +            continue;
  11614. +        }
  11615. +        if (yourtm.tm_isdst < 0 || mytm.tm_isdst == yourtm.tm_isdst)
  11616. +            break;
  11617. +        /*
  11618. +        ** Right time, wrong type.
  11619. +        ** Hunt for right time, right type.
  11620. +        ** It's okay to guess wrong since the guess
  11621. +        ** gets checked.
  11622. +        */
  11623. +        sp = (const struct state *)
  11624. +            ((funcp == localsub) ? lclptr : gmtptr);
  11625. +#ifdef ALL_STATE
  11626. +        if (sp == NULL)
  11627. +            return WRONG;
  11628. +#endif /* defined ALL_STATE */
  11629. +        for (i = 0; i < sp->typecnt; ++i) {
  11630. +            if (sp->ttis[i].tt_isdst != yourtm.tm_isdst)
  11631. +                continue;
  11632. +            for (j = 0; j < sp->typecnt; ++j) {
  11633. +                if (sp->ttis[j].tt_isdst == yourtm.tm_isdst)
  11634. +                    continue;
  11635. +                newt = t + sp->ttis[j].tt_gmtoff -
  11636. +                    sp->ttis[i].tt_gmtoff;
  11637. +                (*funcp)(&newt, offset, &mytm);
  11638. +                if (tmcomp(&mytm, &yourtm) != 0)
  11639. +                    continue;
  11640. +                if (mytm.tm_isdst != yourtm.tm_isdst)
  11641. +                    continue;
  11642. +                /*
  11643. +                ** We have a match.
  11644. +                */
  11645. +                t = newt;
  11646. +                goto label;
  11647. +            }
  11648. +        }
  11649. +        return WRONG;
  11650. +    }
  11651. +label:
  11652. +    t += saved_seconds;
  11653. +    (*funcp)(&t, offset, tmp);
  11654. +    *okayp = TRUE;
  11655. +    return t;
  11656. +}
  11657. +
  11658. +static time_t
  11659. +time1(tmp, funcp, offset)
  11660. +struct tm * const    tmp;
  11661. +void (* const        funcp)();
  11662. +const long        offset;
  11663. +{
  11664. +    register time_t            t;
  11665. +    register const struct state *    sp;
  11666. +    register int            samei, otheri;
  11667. +    int                okay;
  11668. +
  11669. +    if (tmp->tm_isdst > 1)
  11670. +        tmp->tm_isdst = 1;
  11671. +    t = time2(tmp, funcp, offset, &okay);
  11672. +    if (okay || tmp->tm_isdst < 0)
  11673. +        return t;
  11674. +    /*
  11675. +    ** We're supposed to assume that somebody took a time of one type
  11676. +    ** and did some math on it that yielded a "struct tm" that's bad.
  11677. +    ** We try to divine the type they started from and adjust to the
  11678. +    ** type they need.
  11679. +    */
  11680. +    sp = (const struct state *) ((funcp == localsub) ? lclptr : gmtptr);
  11681. +#ifdef ALL_STATE
  11682. +    if (sp == NULL)
  11683. +        return WRONG;
  11684. +#endif /* defined ALL_STATE */
  11685. +    for (samei = 0; samei < sp->typecnt; ++samei) {
  11686. +        if (sp->ttis[samei].tt_isdst != tmp->tm_isdst)
  11687. +            continue;
  11688. +        for (otheri = 0; otheri < sp->typecnt; ++otheri) {
  11689. +            if (sp->ttis[otheri].tt_isdst == tmp->tm_isdst)
  11690. +                continue;
  11691. +            tmp->tm_sec += sp->ttis[otheri].tt_gmtoff -
  11692. +                    sp->ttis[samei].tt_gmtoff;
  11693. +            tmp->tm_isdst = !tmp->tm_isdst;
  11694. +            t = time2(tmp, funcp, offset, &okay);
  11695. +            if (okay)
  11696. +                return t;
  11697. +            tmp->tm_sec -= sp->ttis[otheri].tt_gmtoff -
  11698. +                    sp->ttis[samei].tt_gmtoff;
  11699. +            tmp->tm_isdst = !tmp->tm_isdst;
  11700. +        }
  11701. +    }
  11702. +    return WRONG;
  11703. +}
  11704. +
  11705. +time_t
  11706. +mktime(tmp)
  11707. +struct tm * const    tmp;
  11708. +{
  11709. +    return time1(tmp, localsub, 0L);
  11710. +}
  11711. +
  11712. +/* Call tzset() if necessary */
  11713. +void _tzset(void)
  11714. +{
  11715. +  if (!lcl_is_set) tzset();
  11716. +}
  11717. +
  11718. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/devices.c amiga/fsf/emacs18/amiga/unix/src/devices.c
  11719. --- baseline/fsf/emacs18/amiga/unix/src/devices.c    Wed Dec 31 17:00:00 1969
  11720. +++ amiga/fsf/emacs18/amiga/unix/src/devices.c    Sat Sep 28 00:00:00 1996
  11721. @@ -0,0 +1,33 @@
  11722. +#include "amiga.h"
  11723. +#include "devices.h"
  11724. +
  11725. +struct IORequest *_device_open(char *name, ULONG unit, ULONG flags,
  11726. +                   APTR data, ULONG data_len, int req_size)
  11727. +{
  11728. +    struct MsgPort *port;
  11729. +    struct IORequest *ioreq;
  11730. +
  11731. +    if ((port = CreateMsgPort()) && (ioreq = CreateIORequest(port, req_size)))
  11732. +    {
  11733. +    if (data)
  11734. +    {
  11735. +        struct IOStdReq *io2 = (struct IOStdReq *)ioreq;
  11736. +        io2->io_Data = data;
  11737. +        io2->io_Length = data_len;
  11738. +    }
  11739. +    if (OpenDevice(name, unit, ioreq, flags) == 0) return ioreq;
  11740. +    }
  11741. +    if (ioreq) DeleteIORequest(ioreq);
  11742. +    if (port) DeletePort(port);
  11743. +    return 0;
  11744. +}
  11745. +
  11746. +void _device_close(struct IORequest *ioreq)
  11747. +{
  11748. +    if (ioreq)
  11749. +    {
  11750. +    CloseDevice(ioreq);
  11751. +    DeletePort(ioreq->io_Message.mn_ReplyPort);
  11752. +    DeleteIORequest(ioreq);
  11753. +    }
  11754. +}
  11755. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/dir.c amiga/fsf/emacs18/amiga/unix/src/dir.c
  11756. --- baseline/fsf/emacs18/amiga/unix/src/dir.c    Wed Dec 31 17:00:00 1969
  11757. +++ amiga/fsf/emacs18/amiga/unix/src/dir.c    Sat Sep 28 00:00:00 1996
  11758. @@ -0,0 +1,177 @@
  11759. +#include "amiga.h"
  11760. +#include "dir_data.h"
  11761. +#include <string.h>
  11762. +
  11763. +/* opendir/readdir/etc ... emulation w/ stat support hack */
  11764. +
  11765. +static void free_entries(iDIR *info)
  11766. +{
  11767. +  struct idirent *scan = info->files;
  11768. +  
  11769. +  while (scan)
  11770. +    {
  11771. +      struct idirent *next = scan->next;
  11772. +      
  11773. +      free(scan);
  11774. +      scan = next;
  11775. +    }
  11776. +}
  11777. +
  11778. +static int gobble_dir(DIR *dir)
  11779. +{
  11780. +  iDIR *info = (iDIR *)dir->dd_buf;
  11781. +  long ioerr;
  11782. +  struct idirent **last = &info->files;
  11783. +  struct FileLock *dirlock;
  11784. +  
  11785. +  free_entries(info);
  11786. +  last_dir = 0;
  11787. +  info->files = 0;
  11788. +  dir->dd_loc = 0;
  11789. +  /* Find a value for st_dev of stat() calls */
  11790. +  dirlock = BADDR(dir->dd_fd);
  11791. +  info->task = dirlock->fl_Task;
  11792. +  while (ExNext(dir->dd_fd, &info->fib))
  11793. +    {
  11794. +      u_short namlen = strlen(info->fib.fib_FileName);
  11795. +      u_short reclen = namlen + 1 + offsetof(struct idirent, entry.d_name);
  11796. +      struct idirent *newentry = (struct idirent *)malloc(reclen);
  11797. +      struct dirent *entry;
  11798. +      
  11799. +      if (!newentry)
  11800. +    {
  11801. +      errno = ENOMEM;
  11802. +      return 0;
  11803. +    }
  11804. +      newentry->next = 0;
  11805. +      *last = newentry;
  11806. +      last = &newentry->next;
  11807. +      
  11808. +      newentry->numblocks = info->fib.fib_NumBlocks;
  11809. +      newentry->size = info->fib.fib_Size;
  11810. +      newentry->date = info->fib.fib_Date;
  11811. +      newentry->type = info->fib.fib_DirEntryType;
  11812. +      newentry->protection = info->fib.fib_Protection;
  11813. +      
  11814. +      entry = &newentry->entry;
  11815. +      entry->d_reclen = reclen;
  11816. +      entry->d_namlen = namlen;
  11817. +      entry->d_off = dir->dd_loc++;
  11818. +      strcpy(entry->d_name, info->fib.fib_FileName);
  11819. +      entry->d_ino = info->fib.fib_DiskKey;
  11820. +    }
  11821. +  info->pos = info->files;
  11822. +  dir->dd_loc = 0;
  11823. +  ioerr = IoErr();
  11824. +  if (ioerr == ERROR_NO_MORE_ENTRIES) return 1;
  11825. +  
  11826. +  errno = convert_oserr(ioerr);
  11827. +  return 0;
  11828. +}
  11829. +
  11830. +DIR *opendir(char *dirname)
  11831. +{
  11832. +  DIR *new = (DIR *)malloc(sizeof *new);
  11833. +  iDIR *info = (iDIR *)malloc(sizeof *info);
  11834. +  char *dircopy = malloc(strlen(dirname) + 1);
  11835. +
  11836. +  chkabort();
  11837. +  if (new && dircopy && info)
  11838. +    {
  11839. +      new->dd_buf = (char *)info;
  11840. +      new->dd_size = sizeof *info;
  11841. +      
  11842. +      info->files = info->pos = 0;
  11843. +      info->seeked = 0;
  11844. +      info->dirname = dircopy;
  11845. +      strcpy(dircopy, dirname);
  11846. +      info->cdir = _get_cd();
  11847. +      
  11848. +      if ((new->dd_fd = Lock(dirname, ACCESS_READ)) &&
  11849. +      Examine(new->dd_fd, &info->fib))
  11850. +    {
  11851. +      if (gobble_dir(new)) return new;
  11852. +    }
  11853. +      else errno = convert_oserr(IoErr());
  11854. +      closedir(new);
  11855. +      return 0;
  11856. +    }
  11857. +  
  11858. +  errno = ENOMEM;
  11859. +  if (new) free(new);
  11860. +  if (dircopy) free(dircopy);
  11861. +  if (info) free(info);
  11862. +  
  11863. +  return 0;
  11864. +}
  11865. +
  11866. +void closedir(DIR *dir)
  11867. +{
  11868. +  iDIR *info = (iDIR *)dir->dd_buf;
  11869. +  
  11870. +  chkabort();
  11871. +  last_dir = 0;
  11872. +  free_entries(info);
  11873. +  free(info->dirname);
  11874. +  if (dir->dd_fd) UnLock(dir->dd_fd);
  11875. +  free(dir->dd_buf);
  11876. +  free(dir);
  11877. +}
  11878. +
  11879. +struct dirent *readdir(DIR *dir)
  11880. +{
  11881. +  iDIR *info = (iDIR *)dir->dd_buf;
  11882. +  struct dirent *entry = 0;
  11883. +  
  11884. +  chkabort();
  11885. +  if (info->seeked)
  11886. +    {
  11887. +      long cloc = 0;
  11888. +      struct idirent *pos;
  11889. +      
  11890. +      pos = info->files;
  11891. +      
  11892. +      while (cloc < dir->dd_loc && pos)
  11893. +    {
  11894. +      cloc++; pos = pos->next;
  11895. +    }
  11896. +      /*if (cloc != dir->dd_loc) error ...
  11897. +    This doesn't seem to be defined very precisely */
  11898. +      info->pos = pos;
  11899. +      info->seeked = 0;
  11900. +    }
  11901. +  if (info->pos)
  11902. +    {
  11903. +      entry = &info->pos->entry;
  11904. +      
  11905. +      last_dir = dir;
  11906. +      last_entry = info->pos;
  11907. +      
  11908. +      info->pos = info->pos->next;
  11909. +      dir->dd_loc++;
  11910. +    }
  11911. +  return entry;
  11912. +}
  11913. +
  11914. +long telldir(DIR *dir)
  11915. +{
  11916. +  chkabort();
  11917. +  return dir->dd_loc;
  11918. +}
  11919. +
  11920. +void seekdir(DIR *dir, long loc)
  11921. +{
  11922. +  iDIR *info = (iDIR *)dir->dd_buf;
  11923. +  
  11924. +  chkabort();
  11925. +  info->seeked = 1;
  11926. +  dir->dd_loc = loc;
  11927. +}
  11928. +
  11929. +#if 0
  11930. +void rewwinddir(DIR *dir)
  11931. +{
  11932. +  chkabort();
  11933. +  gobble_dir(dir);
  11934. +}
  11935. +#endif
  11936. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/dir_data.c amiga/fsf/emacs18/amiga/unix/src/dir_data.c
  11937. --- baseline/fsf/emacs18/amiga/unix/src/dir_data.c    Wed Dec 31 17:00:00 1969
  11938. +++ amiga/fsf/emacs18/amiga/unix/src/dir_data.c    Sat Sep 28 00:00:00 1996
  11939. @@ -0,0 +1,15 @@
  11940. +#include "amiga.h"
  11941. +#include "dir_data.h"
  11942. +
  11943. +DIR *last_dir;
  11944. +struct idirent *last_entry;
  11945. +
  11946. +BPTR _get_cd(void)
  11947. +{
  11948. +  BPTR dir = CurrentDir(0);
  11949. +  
  11950. +  CurrentDir(dir);
  11951. +  
  11952. +  return dir;
  11953. +}
  11954. +
  11955. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/dir_data.h amiga/fsf/emacs18/amiga/unix/src/dir_data.h
  11956. --- baseline/fsf/emacs18/amiga/unix/src/dir_data.h    Wed Dec 31 17:00:00 1969
  11957. +++ amiga/fsf/emacs18/amiga/unix/src/dir_data.h    Sat Sep 28 00:00:00 1996
  11958. @@ -0,0 +1,33 @@
  11959. +#ifndef DIR_DATA_H
  11960. +#define DIR_DATA_H
  11961. +
  11962. +#include <sys/dir.h>
  11963. +
  11964. +typedef struct
  11965. +{
  11966. +  char *dirname;
  11967. +  BPTR cdir;
  11968. +  struct FileInfoBlock fib;
  11969. +  struct idirent *files, *pos;
  11970. +  int seeked;
  11971. +  struct MsgPort *task;        /* Used to fake a value for st_dev */
  11972. +} iDIR;
  11973. +
  11974. +struct idirent
  11975. +{
  11976. +  struct idirent *next;
  11977. +  /* Info needed for stat */
  11978. +  long numblocks;
  11979. +  long size;
  11980. +  struct DateStamp date;
  11981. +  long type;
  11982. +  long protection;
  11983. +  struct dirent entry;
  11984. +};
  11985. +
  11986. +extern DIR *last_dir;
  11987. +extern struct idirent *last_entry;
  11988. +
  11989. +BPTR _get_cd(void);
  11990. +
  11991. +#endif
  11992. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/error.c amiga/fsf/emacs18/amiga/unix/src/error.c
  11993. --- baseline/fsf/emacs18/amiga/unix/src/error.c    Wed Dec 31 17:00:00 1969
  11994. +++ amiga/fsf/emacs18/amiga/unix/src/error.c    Sat Sep 28 00:00:00 1996
  11995. @@ -0,0 +1,47 @@
  11996. +#include "amiga.h"
  11997. +
  11998. +int errno;
  11999. +
  12000. +int convert_oserr(int ioerr)
  12001. +{
  12002. +  extern int _OSERR;
  12003. +
  12004. +  _OSERR = ioerr;
  12005. +  switch (ioerr)
  12006. +    {
  12007. +    case 0: return 0;
  12008. +    case ERROR_NO_FREE_STORE: return ENOMEM;
  12009. +    case ERROR_TASK_TABLE_FULL: return EAGAIN;
  12010. +    case ERROR_BAD_TEMPLATE: case ERROR_REQUIRED_ARG_MISSING: case ERROR_BAD_NUMBER:
  12011. +    case ERROR_KEY_NEEDS_ARG: case ERROR_TOO_MANY_ARGS:
  12012. +    case ERROR_UNMATCHED_QUOTES: return EINVAL;
  12013. +    case ERROR_LINE_TOO_LONG: return E2BIG;
  12014. +    case ERROR_FILE_NOT_OBJECT: return ENOEXEC;
  12015. +    case ERROR_OBJECT_IN_USE: return EBUSY;
  12016. +    case ERROR_OBJECT_EXISTS: return EEXIST;
  12017. +    case ERROR_DIR_NOT_FOUND: return ENOENT;
  12018. +    case ERROR_OBJECT_NOT_FOUND: return ENOENT;
  12019. +    case ERROR_BAD_STREAM_NAME: return EINVAL;
  12020. +    case ERROR_OBJECT_TOO_LARGE: return E2BIG;
  12021. +    case ERROR_ACTION_NOT_KNOWN: return EINVAL;
  12022. +    case ERROR_INVALID_COMPONENT_NAME: return ENAMETOOLONG;
  12023. +    case ERROR_INVALID_LOCK: return EINVAL;
  12024. +    case ERROR_OBJECT_WRONG_TYPE: return EINVAL;
  12025. +    case ERROR_DISK_WRITE_PROTECTED: return EROFS;
  12026. +    case ERROR_RENAME_ACROSS_DEVICES: return EXDEV;
  12027. +    case ERROR_DIRECTORY_NOT_EMPTY: return ENOTEMPTY;
  12028. +    case ERROR_TOO_MANY_LEVELS: return ELOOP;
  12029. +    case ERROR_DEVICE_NOT_MOUNTED: return ENODEV;
  12030. +    case ERROR_SEEK_ERROR: return EINVAL;
  12031. +    case ERROR_DISK_FULL: return ENOSPC;
  12032. +    case ERROR_DELETE_PROTECTED: return EACCES;
  12033. +    case ERROR_WRITE_PROTECTED: return EACCES;
  12034. +    case ERROR_READ_PROTECTED: return EACCES;
  12035. +    default: return EOSERR;
  12036. +    }
  12037. +}
  12038. +
  12039. +void _seterr(void)
  12040. +{
  12041. +    errno = convert_oserr(IoErr());
  12042. +}
  12043. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/error_msg.c amiga/fsf/emacs18/amiga/unix/src/error_msg.c
  12044. --- baseline/fsf/emacs18/amiga/unix/src/error_msg.c    Wed Dec 31 17:00:00 1969
  12045. +++ amiga/fsf/emacs18/amiga/unix/src/error_msg.c    Sat Sep 28 00:00:00 1996
  12046. @@ -0,0 +1,48 @@
  12047. +#include "amiga.h"
  12048. +
  12049. +/* Gross hack because EOSERR is -1. */
  12050. +static char *sys_amiga_error = "amiga specific error";
  12051. +char *sys_errlist[] =
  12052. +  {
  12053. +    "Unknown error",
  12054. +    "not owner",
  12055. +    "no such file or directory",
  12056. +    "no such process",
  12057. +    "interrupted system call",
  12058. +    "i/o error",
  12059. +    "no such device or address",
  12060. +    "argument list too long",
  12061. +    "exec format error",
  12062. +    "bad file number",
  12063. +    "no child process",
  12064. +    "no more processes",
  12065. +    "not enough memory",
  12066. +    "permission denied",
  12067. +    "bad address",
  12068. +    "block device required",
  12069. +    "mount devices busy",
  12070. +    "file exists",
  12071. +    "cross-device link",
  12072. +    "no such device",
  12073. +    "not a directory",
  12074. +    "is a directory",
  12075. +    "invalid argument",
  12076. +    "file table overflow",
  12077. +    "too many open files",
  12078. +    "not a typewriter",
  12079. +    "text file busy",
  12080. +    "file too big",
  12081. +    "no space left on device",
  12082. +    "illegal seek",
  12083. +    "read-only file system",
  12084. +    "too many links",
  12085. +    "broken pipe",
  12086. +    "math argument",
  12087. +    "result too large",
  12088. +    "I/O stream empty",
  12089. +    "file name too long",
  12090. +    "directory not empty",
  12091. +    "too many soft links (loop?)"
  12092. +};
  12093. +
  12094. +int sys_nerr = ELOOP;
  12095. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/exec.c amiga/fsf/emacs18/amiga/unix/src/exec.c
  12096. --- baseline/fsf/emacs18/amiga/unix/src/exec.c    Wed Dec 31 17:00:00 1969
  12097. +++ amiga/fsf/emacs18/amiga/unix/src/exec.c    Sat Sep 28 00:00:00 1996
  12098. @@ -0,0 +1,143 @@
  12099. +#include "amiga.h"
  12100. +#include "processes.h"
  12101. +#include <amiga/ioctl.h>
  12102. +#include <exec/memory.h>
  12103. +#include <dos/dosextens.h>
  12104. +#include <dos/dostags.h>
  12105. +#include <string.h>
  12106. +
  12107. +int eexec(char *program, char **argv, int input, int output, int error,
  12108. +      char *dir, int stacksize)
  12109. +/* input = -1 -> inherit Input()
  12110. +   output = -1 -> inherit Output()
  12111. +   error = -1 -> inherit pr_CES
  12112. +   error = -2 -> stderr = stdout */
  12113. +{
  12114. +  int index, comsize, close_input, close_output, close_error;
  12115. +  char *combuf, *bp;
  12116. +  BPTR in, out, err, dirlock;
  12117. +  int _pseudo_close(int fd);
  12118. +
  12119. +  comsize = 256;
  12120. +  combuf = malloc(comsize);
  12121. +
  12122. +  if (input == -1)
  12123. +    {
  12124. +      in = Input();
  12125. +      close_input = FALSE;
  12126. +    }
  12127. +  else
  12128. +    {
  12129. +      if (ioctl(input, _AMIGA_GET_FH, &in) == -1) in = 0;
  12130. +      close_input = TRUE;
  12131. +      _pseudo_close(input);
  12132. +    }
  12133. +
  12134. +  if (output == -1)
  12135. +    {
  12136. +      out = Output();
  12137. +      close_output = FALSE;
  12138. +    }
  12139. +  else if (input == output)
  12140. +    {
  12141. +      out = in;
  12142. +      close_output = FALSE;
  12143. +    }
  12144. +  else
  12145. +    {
  12146. +      if (ioctl(output, _AMIGA_GET_FH, &out) == -1) out = 0;
  12147. +      close_output = out != in;
  12148. +      _pseudo_close(output);
  12149. +    }
  12150. +
  12151. +  if (error == -1)
  12152. +    {
  12153. +      err = _us->pr_CES;
  12154. +      close_error = FALSE;
  12155. +    }
  12156. +  else if (error == -2)
  12157. +    {
  12158. +      err = out;
  12159. +      close_error = FALSE;
  12160. +    }
  12161. +  else
  12162. +    {
  12163. +      if (ioctl(error, _AMIGA_GET_FH, &err) == -1) err = 0;
  12164. +      close_error = err != out && err != in;
  12165. +      _pseudo_close(error);
  12166. +    }
  12167. +
  12168. +  /* pr_CES is not always defined */
  12169. +  if (in && out && (err || error == -1))
  12170. +    if (combuf)
  12171. +      {
  12172. +    bp = combuf;
  12173. +    for (index = 0; argv[index] != 0; index++)
  12174. +      {
  12175. +        /* Use program as argv[0]. This loses some information, but ... */
  12176. +        char *arg = index == 0 ? program : argv[index];
  12177. +        char *s;
  12178. +        int len;
  12179. +
  12180. +        len = 3;
  12181. +        s = arg;
  12182. +        while (*s)
  12183. +          {
  12184. +        len++;
  12185. +        if (*s == '*' || *s == '"' || *s == '\n') len++;
  12186. +        s++;
  12187. +          }
  12188. +        if (bp + len + 1 >= combuf + comsize)
  12189. +          {
  12190. +        char *newbuf;
  12191. +
  12192. +        comsize += comsize + len;
  12193. +        newbuf = realloc(combuf, comsize);
  12194. +        if (!newbuf) { errno = ENOMEM; goto error; }
  12195. +        bp = newbuf + (bp - combuf);
  12196. +        combuf = newbuf;
  12197. +          }
  12198. +        *bp++ = ' ';
  12199. +        *bp++ = '"';
  12200. +        s = arg;
  12201. +        while (*s)
  12202. +          {
  12203. +        if (*s == '"' || *s == '*') *bp++ = '*';
  12204. +        else if (*s == '\n') *bp++ = '+';
  12205. +        *bp++ = *s++;
  12206. +          }
  12207. +        *bp++ = '"';
  12208. +      }
  12209. +    *bp = '\0';
  12210. +    if (dir) dirlock = Lock(dir, SHARED_LOCK);
  12211. +    else dirlock = 0;
  12212. +
  12213. +    if (dirlock || !dir)
  12214. +      {
  12215. +        int pid = _start_process(combuf, in, close_input, out, close_output,
  12216. +                     err, close_error, dirlock, stacksize);
  12217. +
  12218. +        if (pid != -1)
  12219. +          {
  12220. +        free(combuf);
  12221. +        return pid;
  12222. +          }
  12223. +      }
  12224. +    else errno = convert_oserr(IoErr());
  12225. +    if (dirlock) UnLock(dirlock);
  12226. +      }
  12227. +    else errno = ENOMEM;
  12228. +
  12229. + error:
  12230. +  if (in && close_input) Close(in);
  12231. +  if (out && close_output) Close(out);
  12232. +  if (err && close_error) Close(err);
  12233. +  if (combuf) free(combuf);
  12234. +  return -1;
  12235. +}
  12236. +
  12237. +int exec(char *program, char **argv, int input, int output, 
  12238. +      char *dir, int stacksize)
  12239. +{
  12240. +  return eexec(program, argv, input, output, -1, dir, stacksize);
  12241. +}
  12242. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/fchmod.c amiga/fsf/emacs18/amiga/unix/src/fchmod.c
  12243. --- baseline/fsf/emacs18/amiga/unix/src/fchmod.c    Wed Dec 31 17:00:00 1969
  12244. +++ amiga/fsf/emacs18/amiga/unix/src/fchmod.c    Sat Sep 28 00:00:00 1996
  12245. @@ -0,0 +1,10 @@
  12246. +#include "amiga.h"
  12247. +#include <amiga/ioctl.h>
  12248. +
  12249. +int fchmod(int fd, int mode)
  12250. +{
  12251. +  long amode = _make_protection(mode);
  12252. +
  12253. +  chkabort();
  12254. +  return ioctl(fd, _AMIGA_SETPROTECTION, &amode);
  12255. +}
  12256. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/fcntl.c amiga/fsf/emacs18/amiga/unix/src/fcntl.c
  12257. --- baseline/fsf/emacs18/amiga/unix/src/fcntl.c    Wed Dec 31 17:00:00 1969
  12258. +++ amiga/fsf/emacs18/amiga/unix/src/fcntl.c    Sat Sep 28 00:00:00 1996
  12259. @@ -0,0 +1,43 @@
  12260. +#include "amiga.h"
  12261. +#include "files.h"
  12262. +#include <fcntl.h>
  12263. +#include <sys/filio.h>
  12264. +#include <stdarg.h>
  12265. +
  12266. +/* Flags that can be changed with fcntl */
  12267. +#define FCNTL_FLAGS (O_NDELAY | O_APPEND)
  12268. +
  12269. +int fcntl(int fd, int cmd, ...)
  12270. +{
  12271. +  struct fileinfo *fi;
  12272. +  va_list args;
  12273. +  int arg;
  12274. +
  12275. +  chkabort();
  12276. +  va_start(args, cmd);
  12277. +  arg = va_arg(args, int);
  12278. +  va_end(args);
  12279. +
  12280. +  if (fi = _find_fd(fd))
  12281. +    {
  12282. +      switch (cmd)
  12283. +    {
  12284. +    default: errno = EINVAL; break;
  12285. +    case F_GETFL: return fi->flags & FCNTL_FLAGS;
  12286. +    case F_SETFL:
  12287. +      {
  12288. +        int oldfl = fi->flags;
  12289. +
  12290. +        fi->flags = (fi->flags & ~FCNTL_FLAGS) | (arg & FCNTL_FLAGS);
  12291. +        if ((oldfl & O_NDELAY) != (fi->flags & O_NDELAY))
  12292. +          {
  12293. +        int ndelay = fi->flags & O_NDELAY;
  12294. +
  12295. +        return fi->ioctl(fi->userinfo, FIONBIO, &ndelay);
  12296. +          }
  12297. +        return 0;
  12298. +      }
  12299. +    }
  12300. +    }
  12301. +  return -1;
  12302. +}
  12303. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/fibstat.c amiga/fsf/emacs18/amiga/unix/src/fibstat.c
  12304. --- baseline/fsf/emacs18/amiga/unix/src/fibstat.c    Wed Dec 31 17:00:00 1969
  12305. +++ amiga/fsf/emacs18/amiga/unix/src/fibstat.c    Sat Sep 28 00:00:00 1996
  12306. @@ -0,0 +1,90 @@
  12307. +#include "amiga.h"
  12308. +#include "fibstat.h"
  12309. +#include "timeconvert.h"
  12310. +#include <fcntl.h>
  12311. +#include <time.h>
  12312. +#include <sys/stat.h>
  12313. +#include <utility/tagitem.h>
  12314. +
  12315. +char _temp_fname[FNAMESIZE];
  12316. +
  12317. +void _lfibstat(char *name, struct FileInfoBlock *fib, struct MsgPort *task,
  12318. +           int isroot, struct stat *sbuf)
  12319. +{
  12320. +  long protection = fib->fib_Protection;
  12321. +  
  12322. +  sbuf->st_dev = (long)task;
  12323. +  sbuf->st_rdev = 0;
  12324. +  sbuf->st_uid = AMIGA_UID; sbuf->st_gid = AMIGA_GID;
  12325. +  sbuf->st_blksize = 512;
  12326. +#ifdef PRETEND_LINKED
  12327. +  /* This forces programs (tar) to consider potential hard links */
  12328. +  sbuf->st_nlink = 2;
  12329. +#else
  12330. +  sbuf->st_nlink = 1;
  12331. +#endif
  12332. +  sbuf->st_blocks = fib->fib_NumBlocks;
  12333. +  /* Give directories an arbitrary size */
  12334. +  if (fib->fib_Size == 0 && fib->fib_DirEntryType > 0) sbuf->st_size = 2048;
  12335. +  else sbuf->st_size = fib->fib_Size;
  12336. +  sbuf->st_ino = fib->fib_DiskKey;
  12337. +  sbuf->st_ctime = sbuf->st_atime = sbuf->st_mtime = _amiga2gmt(&fib->fib_Date);
  12338. +  
  12339. +  switch (fib->fib_DirEntryType)
  12340. +    {
  12341. +    case ST_SOFTLINK:
  12342. +      {
  12343. +    int len;
  12344. +
  12345. +    if (name && (len = readlink(name, _temp_fname, FNAMESIZE - 1)) > 0)
  12346. +      sbuf->st_size = len;
  12347. +    else sbuf->st_size = 256; /* A random safish value */
  12348. +    sbuf->st_mode = S_IFLNK;
  12349. +    break;
  12350. +      }
  12351. +    case ST_PIPEFILE: sbuf->st_mode = S_IFIFO; break;
  12352. +      /* If Examine wasn't braindead this would be the right test */
  12353. +    case ST_ROOT: sbuf->st_mode = S_IFDIR; protection = 0; break;
  12354. +    case ST_FILE: /* Try & detect special files (eg windows) */
  12355. +      if (fib->fib_DiskKey == 0 && !fib->fib_FileName[0])
  12356. +    sbuf->st_mode = S_IFCHR;
  12357. +      else sbuf->st_mode = S_IFREG;
  12358. +      break;
  12359. +    default: sbuf->st_mode = fib->fib_DirEntryType > 0 ? S_IFDIR : S_IFREG; break;
  12360. +    }
  12361. +  /* Examine is braindead. You can't tell if you've examined a root directory
  12362. +     (for which the protection flags are invalid) or not. */
  12363. +  if (isroot) protection = 0;
  12364. +
  12365. +  sbuf->st_mode |= _make_mode(protection);
  12366. +}
  12367. +
  12368. +int _fibstat(char *name, struct stat *sbuf)
  12369. +{
  12370. +  int ret;
  12371. +  struct FileInfoBlock *fib;
  12372. +  BPTR lock = 0;
  12373. +
  12374. +  if ((fib = AllocDosObjectTags(DOS_FIB, TAG_END)) &&
  12375. +      (lock = Lock(name, ACCESS_READ)) &&
  12376. +      Examine(lock, fib))
  12377. +    {
  12378. +      BPTR parent = ParentDir(lock);
  12379. +      int isroot = !parent;
  12380. +      struct FileLock *flock = BADDR(lock);
  12381. +      
  12382. +      if (parent) UnLock(parent);
  12383. +      _lfibstat(name, fib, flock->fl_Task, isroot, sbuf);
  12384. +      ret = 0;
  12385. +    }
  12386. +  else
  12387. +    {
  12388. +      ret = -1;
  12389. +      errno = convert_oserr(IoErr());
  12390. +    }
  12391. +  if (lock) UnLock(lock);
  12392. +  if (fib) FreeDosObject(DOS_FIB, fib);
  12393. +  return ret;
  12394. +}
  12395. +
  12396. +      
  12397. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/fibstat.h amiga/fsf/emacs18/amiga/unix/src/fibstat.h
  12398. --- baseline/fsf/emacs18/amiga/unix/src/fibstat.h    Wed Dec 31 17:00:00 1969
  12399. +++ amiga/fsf/emacs18/amiga/unix/src/fibstat.h    Sat Sep 28 00:00:00 1996
  12400. @@ -0,0 +1,12 @@
  12401. +#ifndef FIBSTAT_H
  12402. +
  12403. +#define FNAMESIZE 256
  12404. +
  12405. +extern char _temp_fname[FNAMESIZE];
  12406. +
  12407. +void _lfibstat(char *name, struct FileInfoBlock *fib, struct MsgPort *task,
  12408. +           int isroot, struct stat *sbuf);
  12409. +
  12410. +int _fibstat(char *name, struct stat *sbuf);
  12411. +
  12412. +#endif
  12413. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/fifo.h amiga/fsf/emacs18/amiga/unix/src/fifo.h
  12414. --- baseline/fsf/emacs18/amiga/unix/src/fifo.h    Wed Dec 31 17:00:00 1969
  12415. +++ amiga/fsf/emacs18/amiga/unix/src/fifo.h    Sat Sep 28 00:00:00 1996
  12416. @@ -0,0 +1,41 @@
  12417. +
  12418. +/*
  12419. + *  FIFO.H
  12420. + *
  12421. + *  PUBLIC FIFO STRUCTURES AND DEFINES
  12422. + */
  12423. +
  12424. +#ifndef LIBRARIES_FIFO_H
  12425. +#define LIBRARIES_FIFO_H
  12426. +
  12427. +#define FIFONAME    "fifo.library"
  12428. +
  12429. +#define FIFOF_READ      0x00000100L      /*  intend to read from fifo      */
  12430. +#define FIFOF_WRITE      0x00000200L      /*  intend to write to fifo      */
  12431. +#define FIFOF_RESERVED      0xFFFF0000L      /*  reserved for internal use   */
  12432. +#define FIFOF_NORMAL      0x00000400L      /*  request blocking/sig support*/
  12433. +#define FIFOF_NBIO      0x00000800L      /*  non-blocking IO          */
  12434. +
  12435. +#define FIFOF_KEEPIFD      0x00002000L      /*  keep fifo alive if data pending */
  12436. +#define FIFOF_EOF      0x00004000L      /*  EOF on close              */
  12437. +#define FIFOF_RREQUIRED   0x00008000L      /*  reader required to exist      */
  12438. +
  12439. +#define FREQ_RPEND    1
  12440. +#define FREQ_WAVAIL    2
  12441. +#define FREQ_ABORT    3
  12442. +
  12443. +typedef void *FifoHan;              /*  returned by OpenFifo()  */
  12444. +
  12445. +#ifndef IN_LIBRARY
  12446. +
  12447. +FifoHan OpenFifo(char *, long, long);
  12448. +void CloseFifo(FifoHan, long);
  12449. +long ReadFifo(FifoHan, char **, long);
  12450. +long WriteFifo(FifoHan, char *, long);
  12451. +void RequestFifo(FifoHan, struct Message *, long);
  12452. +long BufSizeFifo(FifoHan);
  12453. +
  12454. +#endif
  12455. +
  12456. +#endif
  12457. +
  12458. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/fifo_pragmas.h amiga/fsf/emacs18/amiga/unix/src/fifo_pragmas.h
  12459. --- baseline/fsf/emacs18/amiga/unix/src/fifo_pragmas.h    Wed Dec 31 17:00:00 1969
  12460. +++ amiga/fsf/emacs18/amiga/unix/src/fifo_pragmas.h    Sat Sep 28 00:00:00 1996
  12461. @@ -0,0 +1,7 @@
  12462. +/* "fifo.library"*/
  12463. +#pragma libcall _FifoBase OpenFifo 1E 81003
  12464. +#pragma libcall _FifoBase CloseFifo 24 1002
  12465. +#pragma libcall _FifoBase ReadFifo 2A 81003
  12466. +#pragma libcall _FifoBase WriteFifo 30 81003
  12467. +#pragma libcall _FifoBase RequestFifo 36 81003
  12468. +#pragma libcall _FifoBase BufSizeFifo 3C 001
  12469. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/fifofd.c amiga/fsf/emacs18/amiga/unix/src/fifofd.c
  12470. --- baseline/fsf/emacs18/amiga/unix/src/fifofd.c    Wed Dec 31 17:00:00 1969
  12471. +++ amiga/fsf/emacs18/amiga/unix/src/fifofd.c    Sat Sep 28 00:00:00 1996
  12472. @@ -0,0 +1,25 @@
  12473. +#include "amiga.h"
  12474. +#include "files.h"
  12475. +#include "fifofd.h"
  12476. +#include <time.h>
  12477. +
  12478. +struct Library *_FifoBase;
  12479. +int _fifo_sig = -1;
  12480. +long _fifo_base;
  12481. +long _fifo_offset;
  12482. +int _fifo_ok;
  12483. +
  12484. +void _init_fifo(void)
  12485. +{
  12486. +  _fifo_base = (int)_us ^ _startup_time * 65537;
  12487. +  _fifo_offset = 0;
  12488. +  _FifoBase = OpenLibrary("fifo.library", 0);
  12489. +  _fifo_sig = AllocSignal(-1);
  12490. +  _fifo_ok = _FifoBase != 0 && _fifo_sig >= 0;
  12491. +}
  12492. +
  12493. +void _cleanup_fifo(void)
  12494. +{
  12495. +  if (_fifo_sig >= 0) FreeSignal(_fifo_sig);
  12496. +  if (_FifoBase) CloseLibrary(_FifoBase);
  12497. +}
  12498. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/fifofd.h amiga/fsf/emacs18/amiga/unix/src/fifofd.h
  12499. --- baseline/fsf/emacs18/amiga/unix/src/fifofd.h    Wed Dec 31 17:00:00 1969
  12500. +++ amiga/fsf/emacs18/amiga/unix/src/fifofd.h    Sat Sep 28 00:00:00 1996
  12501. @@ -0,0 +1,31 @@
  12502. +#ifndef FIFO_H
  12503. +#define FIFO_H
  12504. +
  12505. +#include "fifo.h"
  12506. +#include "fifo_pragmas.h"
  12507. +
  12508. +#define FIFO_BUFSIZE 1024
  12509. +#define FIFO_NAMELEN 32
  12510. +
  12511. +struct fifoinfo
  12512. +{
  12513. +  char name[FIFO_NAMELEN];
  12514. +  void *rfifo, *wfifo;
  12515. +  long maxsend, skip;
  12516. +  int flags;
  12517. +  struct Message *rmsg, *wmsg;
  12518. +  struct MsgPort *reply;
  12519. +};
  12520. +
  12521. +#define FIFO_MASTER 0x8000
  12522. +
  12523. +extern struct Library *_FifoBase;
  12524. +extern int _fifo_sig;
  12525. +extern long _fifo_base;
  12526. +extern long _fifo_offset;
  12527. +extern int _fifo_ok;
  12528. +
  12529. +void _init_fifo(void);
  12530. +void _cleanup_fifo(void);
  12531. +
  12532. +#endif
  12533. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/files.c amiga/fsf/emacs18/amiga/unix/src/files.c
  12534. --- baseline/fsf/emacs18/amiga/unix/src/files.c    Wed Dec 31 17:00:00 1969
  12535. +++ amiga/fsf/emacs18/amiga/unix/src/files.c    Sat Sep 28 00:00:00 1996
  12536. @@ -0,0 +1,74 @@
  12537. +#include "amiga.h"
  12538. +#include "files.h"
  12539. +#include <string.h>
  12540. +
  12541. +/* Unix low-level IO emulation */
  12542. +/* --------------------------- */
  12543. +
  12544. +/* First, fd definition & allocation */
  12545. +
  12546. +static struct fileinfo *files;
  12547. +static int max_files;
  12548. +#define FILE_STEP 10        /* Nb of file descriptors to allocate at once */
  12549. +
  12550. +int _alloc_fd(void *userinfo, int flags,
  12551. +  ULONG (*__regargs select_start)(void *userinfo, int rd, int wr),
  12552. +  void (*__regargs select_poll)(void *userinfo, int *rd, int *wr),
  12553. +  int (*__regargs read)(void *userinfo, void *buffer, unsigned int length),
  12554. +  int (*__regargs write)(void *userinfo, void *buffer, unsigned int length),
  12555. +  int (*__regargs lseek)(void *userinfo, long rpos, int mode),
  12556. +  int (*__regargs close)(void *userinfo, int internal),
  12557. +  int (*__regargs ioctl)(void *userinfo, int request, void *data)
  12558. +)
  12559. +{
  12560. +  int fd;
  12561. +
  12562. +  for (fd = 0; fd < max_files; fd++)
  12563. +      if (!files[fd].userinfo)
  12564. +    {
  12565. +      files[fd].userinfo = (void *)1;
  12566. +      break;
  12567. +    }
  12568. +  if (fd == max_files)
  12569. +    {
  12570. +      struct fileinfo *newfiles;
  12571. +      int i;
  12572. +
  12573. +      /* Increase files array by FILE_STEP */
  12574. +      max_files += FILE_STEP;
  12575. +      newfiles = (struct fileinfo *)malloc(max_files * sizeof(struct fileinfo));
  12576. +      if (!newfiles)
  12577. +    {
  12578. +      errno = ENOMEM;
  12579. +      return -1;
  12580. +    }
  12581. +      memcpy(newfiles, files, (max_files - FILE_STEP) * sizeof(struct fileinfo));
  12582. +      if (files) free(files);
  12583. +      files = newfiles;
  12584. +      for (i = max_files - FILE_STEP; i < max_files; i++) files[i].userinfo = 0;
  12585. +    }
  12586. +  files[fd].userinfo = userinfo;
  12587. +  files[fd].flags = flags;
  12588. +  files[fd].select_start = select_start;
  12589. +  files[fd].select_poll = select_poll;
  12590. +  files[fd].read = read;
  12591. +  files[fd].write = write;
  12592. +  files[fd].lseek = lseek;
  12593. +  files[fd].close = close;
  12594. +  files[fd].ioctl = ioctl;
  12595. +  return fd;
  12596. +}
  12597. +
  12598. +void _free_fd(int fd)
  12599. +{
  12600. +  if (0 <= fd && fd < max_files) files[fd].userinfo = 0;
  12601. +}
  12602. +
  12603. +struct fileinfo *_find_fd(int fd)
  12604. +{
  12605. +  if (0 <= fd && fd < max_files && files[fd].userinfo) return &files[fd];
  12606. +  errno = EBADF;
  12607. +  return 0;
  12608. +}
  12609. +
  12610. +int _last_fd(void) { return max_files; }
  12611. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/fstat.c amiga/fsf/emacs18/amiga/unix/src/fstat.c
  12612. --- baseline/fsf/emacs18/amiga/unix/src/fstat.c    Wed Dec 31 17:00:00 1969
  12613. +++ amiga/fsf/emacs18/amiga/unix/src/fstat.c    Sat Sep 28 00:00:00 1996
  12614. @@ -0,0 +1,52 @@
  12615. +#include "amiga.h"
  12616. +#include "fibstat.h"
  12617. +#include <dos/dosextens.h>
  12618. +#include <utility/tagitem.h>
  12619. +#include <sys/types.h>
  12620. +#include <sys/stat.h>
  12621. +#include <amiga/ioctl.h>
  12622. +
  12623. +int fstat(int fd, struct stat *sbuf)
  12624. +{
  12625. +  BPTR fh;
  12626. +  struct FileInfoBlock *fib;
  12627. +  int ret;
  12628. +
  12629. +  chkabort();
  12630. +  if (ioctl(fd, _AMIGA_GET_FH, &fh) == -1) return -1;
  12631. +  if ((fib = AllocDosObjectTags(DOS_FIB, TAG_END)) && ExamineFH(fh, fib))
  12632. +    {
  12633. +      struct FileHandle *handle = BADDR(fh);
  12634. +
  12635. +      _lfibstat(NULL, fib, handle->fh_Type, 0, sbuf);
  12636. +      ret = 0;
  12637. +    }
  12638. +  else
  12639. +    {
  12640. +      int err = IoErr();
  12641. +
  12642. +      if (err == ERROR_ACTION_NOT_KNOWN)
  12643. +    /* Fake a stat result */
  12644. +    {
  12645. +      ret = 0;
  12646. +      sbuf->st_dev = (long)(((struct FileHandle *)BADDR(fh))->fh_Type);
  12647. +      sbuf->st_ino = 0;
  12648. +      sbuf->st_mode = 0777 | S_IFCHR;
  12649. +      sbuf->st_nlink = 1;
  12650. +      sbuf->st_uid = AMIGA_UID; sbuf->st_gid = AMIGA_GID;
  12651. +      sbuf->st_blksize = 512;
  12652. +      sbuf->st_blocks = 0;
  12653. +      sbuf->st_size = 0;
  12654. +      /* 1-Jan-1978 */
  12655. +      sbuf->st_ctime = sbuf->st_atime = sbuf->st_mtime = 252460800;
  12656. +    }
  12657. +      else
  12658. +    {
  12659. +      ret = -1;
  12660. +      errno = convert_oserr(err);
  12661. +    }
  12662. +    }
  12663. +  if (fib) FreeDosObject(DOS_FIB, fib);
  12664. +  ioctl(fd, _AMIGA_FREE_FH, &fh);
  12665. +  return ret;
  12666. +}
  12667. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/ftruncate.c amiga/fsf/emacs18/amiga/unix/src/ftruncate.c
  12668. --- baseline/fsf/emacs18/amiga/unix/src/ftruncate.c    Wed Dec 31 17:00:00 1969
  12669. +++ amiga/fsf/emacs18/amiga/unix/src/ftruncate.c    Sat Sep 28 00:00:00 1996
  12670. @@ -0,0 +1,8 @@
  12671. +#include "amiga.h"
  12672. +#include <amiga/ioctl.h>
  12673. +
  12674. +int ftruncate(int fd, off_t length)
  12675. +{
  12676. +  chkabort();
  12677. +  return ioctl(fd, _AMIGA_TRUNCATE, &length);
  12678. +}
  12679. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/getenv.c amiga/fsf/emacs18/amiga/unix/src/getenv.c
  12680. --- baseline/fsf/emacs18/amiga/unix/src/getenv.c    Wed Dec 31 17:00:00 1969
  12681. +++ amiga/fsf/emacs18/amiga/unix/src/getenv.c    Sat Sep 28 00:00:00 1996
  12682. @@ -0,0 +1,31 @@
  12683. +#include "amiga.h"
  12684. +#include <string.h>
  12685. +
  12686. +/* This getenv removes trailing newlines & multiple calls don't
  12687. +   destroy results */
  12688. +char *getenv (const char *varname)
  12689. +{
  12690. +  char *return_string;
  12691. +  char buf[64];
  12692. +
  12693. +  chkabort();
  12694. +  if (varname && varname[0])
  12695. +    {
  12696. +      int len, size;
  12697. +
  12698. +      len = GetVar(varname, buf, 64, LV_VAR);
  12699. +      if (len >= 0)
  12700. +    {
  12701. +      size = IoErr();
  12702. +      return_string = malloc(size + 1);
  12703. +      if (!return_string) return 0;
  12704. +      if (size != len)
  12705. +        {
  12706. +          if (GetVar(varname, return_string, size + 1, LV_VAR) > 0)
  12707. +        return return_string;
  12708. +        }
  12709. +      else return strcpy(return_string, buf);
  12710. +    }
  12711. +    }
  12712. +  return 0;
  12713. +}
  12714. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/gethostname.c amiga/fsf/emacs18/amiga/unix/src/gethostname.c
  12715. --- baseline/fsf/emacs18/amiga/unix/src/gethostname.c    Wed Dec 31 17:00:00 1969
  12716. +++ amiga/fsf/emacs18/amiga/unix/src/gethostname.c    Sat Sep 28 00:00:00 1996
  12717. @@ -0,0 +1,11 @@
  12718. +#include "amiga.h"
  12719. +#include <unistd.h>
  12720. +
  12721. +extern char *_system_name;
  12722. +
  12723. +int gethostname(char *buf, int len)
  12724. +{
  12725. +  strncpy(buf, _system_name, len);
  12726. +
  12727. +  return 0;
  12728. +}
  12729. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/getpid.c amiga/fsf/emacs18/amiga/unix/src/getpid.c
  12730. --- baseline/fsf/emacs18/amiga/unix/src/getpid.c    Wed Dec 31 17:00:00 1969
  12731. +++ amiga/fsf/emacs18/amiga/unix/src/getpid.c    Sat Sep 28 00:00:00 1996
  12732. @@ -0,0 +1,8 @@
  12733. +#include "amiga.h"
  12734. +#include "processes.h"
  12735. +
  12736. +int getpid(void)
  12737. +{
  12738. +  chkabort();
  12739. +  return _our_pid;
  12740. +}
  12741. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/getwd.c amiga/fsf/emacs18/amiga/unix/src/getwd.c
  12742. --- baseline/fsf/emacs18/amiga/unix/src/getwd.c    Wed Dec 31 17:00:00 1969
  12743. +++ amiga/fsf/emacs18/amiga/unix/src/getwd.c    Sat Sep 28 00:00:00 1996
  12744. @@ -0,0 +1,8 @@
  12745. +#include "amiga.h"
  12746. +#include <sys/param.h>
  12747. +
  12748. +char *getwd (char *pathname)
  12749. +{
  12750. +  chkabort();
  12751. +  return getcwd(pathname, MAXPATHLEN);
  12752. +}
  12753. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/gid.c amiga/fsf/emacs18/amiga/unix/src/gid.c
  12754. --- baseline/fsf/emacs18/amiga/unix/src/gid.c    Wed Dec 31 17:00:00 1969
  12755. +++ amiga/fsf/emacs18/amiga/unix/src/gid.c    Sat Sep 28 00:00:00 1996
  12756. @@ -0,0 +1,4 @@
  12757. +#include "amiga.h"
  12758. +
  12759. +gid_t getgid(void) { return AMIGA_GID; }
  12760. +gid_t getegid(void) { return AMIGA_GID; }
  12761. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/grp.c amiga/fsf/emacs18/amiga/unix/src/grp.c
  12762. --- baseline/fsf/emacs18/amiga/unix/src/grp.c    Wed Dec 31 17:00:00 1969
  12763. +++ amiga/fsf/emacs18/amiga/unix/src/grp.c    Sat Sep 28 00:00:00 1996
  12764. @@ -0,0 +1,14 @@
  12765. +#include "amiga.h"
  12766. +#include <grp.h>
  12767. +
  12768. +static char *wheel_members[] = { "user", 0 };
  12769. +
  12770. +static struct group wheel = {
  12771. +  "wheel",
  12772. +  "",
  12773. +  AMIGA_GID,
  12774. +  wheel_members
  12775. +};
  12776. +
  12777. +struct group *getgrgid(gid_t gid) { return &wheel; }
  12778. +struct group *getgrnam(char *name) { return &wheel; }
  12779. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/index.c amiga/fsf/emacs18/amiga/unix/src/index.c
  12780. --- baseline/fsf/emacs18/amiga/unix/src/index.c    Wed Dec 31 17:00:00 1969
  12781. +++ amiga/fsf/emacs18/amiga/unix/src/index.c    Sat Sep 28 00:00:00 1996
  12782. @@ -0,0 +1,8 @@
  12783. +#include <string.h>
  12784. +
  12785. +#undef index
  12786. +
  12787. +char *index(char *str, int c)
  12788. +{
  12789. +  return strchr(str, c);
  12790. +}
  12791. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/ioctl.c amiga/fsf/emacs18/amiga/unix/src/ioctl.c
  12792. --- baseline/fsf/emacs18/amiga/unix/src/ioctl.c    Wed Dec 31 17:00:00 1969
  12793. +++ amiga/fsf/emacs18/amiga/unix/src/ioctl.c    Sat Sep 28 00:00:00 1996
  12794. @@ -0,0 +1,14 @@
  12795. +#include "amiga.h"
  12796. +#include "files.h"
  12797. +
  12798. +int ioctl(int fd, int request, caddr_t arg)
  12799. +{
  12800. +  struct fileinfo *fi;
  12801. +
  12802. +  chkabort();
  12803. +  if (fi = _find_fd(fd))
  12804. +    {
  12805. +      return fi->ioctl(fi->userinfo, request, arg);
  12806. +    }
  12807. +  return -1;
  12808. +}
  12809. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/isatty.c amiga/fsf/emacs18/amiga/unix/src/isatty.c
  12810. --- baseline/fsf/emacs18/amiga/unix/src/isatty.c    Wed Dec 31 17:00:00 1969
  12811. +++ amiga/fsf/emacs18/amiga/unix/src/isatty.c    Sat Sep 28 00:00:00 1996
  12812. @@ -0,0 +1,11 @@
  12813. +#include "amiga.h"
  12814. +#include <amiga/ioctl.h>
  12815. +
  12816. +int isatty(int fd)
  12817. +{
  12818. +  int istty;
  12819. +
  12820. +  chkabort();
  12821. +  if (ioctl(fd, _AMIGA_INTERACTIVE, &istty) != 0) return 0;
  12822. +  return istty;
  12823. +}
  12824. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/kill.c amiga/fsf/emacs18/amiga/unix/src/kill.c
  12825. --- baseline/fsf/emacs18/amiga/unix/src/kill.c    Wed Dec 31 17:00:00 1969
  12826. +++ amiga/fsf/emacs18/amiga/unix/src/kill.c    Sat Sep 28 00:00:00 1996
  12827. @@ -0,0 +1,74 @@
  12828. +#include "amiga.h"
  12829. +#include "signals.h"
  12830. +#include "processes.h"
  12831. +#include <exec/execbase.h>
  12832. +
  12833. +extern struct ExecBase *SysBase;
  12834. +
  12835. +static void break_list(struct List *tasks, BPTR fh)
  12836. +{
  12837. +  struct Process *p;
  12838. +
  12839. +  for (p = (struct Process *)tasks->lh_Head; p->pr_Task.tc_Node.ln_Succ;
  12840. +       p = (struct Process *)p->pr_Task.tc_Node.ln_Succ)
  12841. +    {
  12842. +      if (p->pr_Task.tc_Node.ln_Type == NT_PROCESS)
  12843. +    {
  12844. +      struct CommandLineInterface *cli = p->pr_CLI ? BADDR(p->pr_CLI) : 0;
  12845. +
  12846. +      if (p->pr_CIS == fh || p->pr_COS == fh || p->pr_CES == fh ||
  12847. +          cli && (cli->cli_StandardInput == fh || cli->cli_CurrentInput == fh ||
  12848. +              cli->cli_StandardOutput == fh || cli->cli_CurrentOutput == fh))
  12849. +        Signal(p, SIGBREAKF_CTRL_C | SIGBREAKF_CTRL_D);
  12850. +    }
  12851. +    }
  12852. +}
  12853. +
  12854. +static int magickill(BPTR fh, int signo)
  12855. +{
  12856. +  switch (signo)
  12857. +    {
  12858. +    case SIGINT: case SIGQUIT: case SIGKILL: case SIGHUP:
  12859. +      Forbid();
  12860. +      break_list(&SysBase->TaskReady, fh);
  12861. +      break_list(&SysBase->TaskWait, fh);
  12862. +      Permit();
  12863. +      return 0;
  12864. +    default: errno = EINVAL; return -1;
  12865. +    }
  12866. +}
  12867. +
  12868. +int kill(int pid, int signal)
  12869. +{
  12870. +  chkabort();
  12871. +  /* Our process list is now reasonably upto date */
  12872. +  if (pid < 0) pid = -pid;    /* Consider that each process is a pg unto itself */
  12873. +  if (pid == _our_pid) 
  12874. +    {
  12875. +      if (signal) _sig_dispatch(signal);
  12876. +      return 0;
  12877. +    }
  12878. +  else 
  12879. +    {
  12880. +      struct process *entry;
  12881. +      int killrc;
  12882. +
  12883. +      entry = _find_pid(pid);
  12884. +      if (!entry || entry->status != alive)
  12885. +    {
  12886. +      errno = ESRCH;
  12887. +      return -1;
  12888. +    }
  12889. +      if (!signal) return 0;
  12890. +      killrc = magickill(entry->input, signal);
  12891. +      if (signal == SIGKILL)
  12892. +    {
  12893. +      /* Fake the kill from emacs point of view */
  12894. +      entry->status = exited;
  12895. +      entry->rc = SIGKILL;
  12896. +      _sig_dispatch(SIGCHLD);
  12897. +      return 0;
  12898. +    }
  12899. +      return killrc;
  12900. +    }
  12901. +}
  12902. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/link.c amiga/fsf/emacs18/amiga/unix/src/link.c
  12903. --- baseline/fsf/emacs18/amiga/unix/src/link.c    Wed Dec 31 17:00:00 1969
  12904. +++ amiga/fsf/emacs18/amiga/unix/src/link.c    Sat Sep 28 00:00:00 1996
  12905. @@ -0,0 +1,16 @@
  12906. +#include "amiga.h"
  12907. +
  12908. +int link(char *from, char *to)
  12909. +{
  12910. +  BPTR from_lock = Lock(from, ACCESS_READ);
  12911. +
  12912. +  chkabort();
  12913. +  if (from_lock)
  12914. +    {
  12915. +      int ok = MakeLink(to, from_lock, 0);
  12916. +
  12917. +      UnLock(from_lock);
  12918. +      if (ok) return 0;
  12919. +    }
  12920. +  ERROR;
  12921. +}
  12922. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/lseek.c amiga/fsf/emacs18/amiga/unix/src/lseek.c
  12923. --- baseline/fsf/emacs18/amiga/unix/src/lseek.c    Wed Dec 31 17:00:00 1969
  12924. +++ amiga/fsf/emacs18/amiga/unix/src/lseek.c    Sat Sep 28 00:00:00 1996
  12925. @@ -0,0 +1,23 @@
  12926. +#include "amiga.h"
  12927. +#include "files.h"
  12928. +#include <fcntl.h>
  12929. +
  12930. +#undef lseek
  12931. +
  12932. +int __lseek(int fd, long rpos, int mode)
  12933. +{
  12934. +  struct fileinfo *fi;
  12935. +
  12936. +  chkabort();
  12937. +  if (fi = _find_fd(fd))
  12938. +    {
  12939. +      return fi->lseek(fi->userinfo, rpos, mode);
  12940. +    }
  12941. +  return -1;
  12942. +}
  12943. +
  12944. +int lseek(int fd, long rpos, int mode)
  12945. +{
  12946. +  return __lseek(fd, rpos, mode);
  12947. +}
  12948. +
  12949. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/message.c amiga/fsf/emacs18/amiga/unix/src/message.c
  12950. --- baseline/fsf/emacs18/amiga/unix/src/message.c    Wed Dec 31 17:00:00 1969
  12951. +++ amiga/fsf/emacs18/amiga/unix/src/message.c    Sat Sep 28 00:00:00 1996
  12952. @@ -0,0 +1,78 @@
  12953. +#include "amiga.h"
  12954. +#include <intuition/intuition.h>
  12955. +#include <stdarg.h>
  12956. +
  12957. +static struct EasyStruct msg = {
  12958. +    sizeof (struct EasyStruct),
  12959. +    0,
  12960. +    NULL,
  12961. +    NULL,
  12962. +    "Ok",
  12963. +};
  12964. +
  12965. +static void message(char *format, long *args)
  12966. +/* Display a message which is as visible as possible (either to the console
  12967. +   or to as a requester).
  12968. +   Assume very little about library state */
  12969. +{
  12970. +  LONG msg_EasyRequestArgs(struct Window *window, struct EasyStruct *easyStruct,
  12971. +               ULONG *idcmpPtr, APTR args );
  12972. +#pragma libcall msg_IntuitionBase msg_EasyRequestArgs 24C BA9804
  12973. +  BPTR fh;
  12974. +  int close = FALSE;
  12975. +  extern char *_ProgramName;
  12976. +  extern struct WBStartup *_WBenchMsg;
  12977. +
  12978. +  fh = _us->pr_CES;
  12979. +  if (!fh)
  12980. +    if (!_WBenchMsg && (fh = Open("console:", MODE_OLDFILE))) close = TRUE;
  12981. +
  12982. +  if (fh)
  12983. +    {
  12984. +      VFPrintf(fh, "%s: ", &_ProgramName);
  12985. +      VFPrintf(fh, format, (long *)args);
  12986. +      FPutC(fh, '\n');
  12987. +      if (close) Close(fh);
  12988. +    }
  12989. +  else
  12990. +    {
  12991. +      struct Window *win = (struct Window *)_us->pr_WindowPtr;
  12992. +      if (win != (struct Window *)-1)
  12993. +    {
  12994. +      struct Library *msg_IntuitionBase = OpenLibrary("intuition.library", 37);
  12995. +
  12996. +      if (msg_IntuitionBase)
  12997. +        {
  12998. +          msg.es_Title = _ProgramName;
  12999. +          msg.es_TextFormat = format;
  13000. +          msg_EasyRequestArgs(win, &msg, 0, args);
  13001. +          CloseLibrary(msg_IntuitionBase);
  13002. +        }
  13003. +    }
  13004. +    }
  13005. +}
  13006. +
  13007. +void _message(char *format, ...)
  13008. +/* Display a message which is as visible as possible (either to the console
  13009. +   or to as a requester).
  13010. +   Assume very little about library state */
  13011. +{
  13012. +  va_list args;
  13013. +
  13014. +  va_start(args, format);
  13015. +  message(format, (long *)args);
  13016. +}
  13017. +
  13018. +void _fail(char *format, ...)
  13019. +/* Display a message which is as visible as possible (either to the console
  13020. +   or to as a requester).
  13021. +   Assume very little about library state.
  13022. +   Exit with error code RETURN_FAIL after that. */
  13023. +{
  13024. +  va_list args;
  13025. +
  13026. +  va_start(args, format);
  13027. +  message(format, (long *)args);
  13028. +
  13029. +  exit(RETURN_FAIL);        /* The library should always be cleanup-able */
  13030. +}
  13031. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/mkdir.c amiga/fsf/emacs18/amiga/unix/src/mkdir.c
  13032. --- baseline/fsf/emacs18/amiga/unix/src/mkdir.c    Wed Dec 31 17:00:00 1969
  13033. +++ amiga/fsf/emacs18/amiga/unix/src/mkdir.c    Sat Sep 28 00:00:00 1996
  13034. @@ -0,0 +1,20 @@
  13035. +#include "amiga.h"
  13036. +#include <stdarg.h>
  13037. +
  13038. +int mkdir(char *name, mode_t mode)
  13039. +{
  13040. +  BPTR lock;
  13041. +  long amode;
  13042. +
  13043. +  chkabort();
  13044. +
  13045. +  if (lock = CreateDir(name))
  13046. +    {
  13047. +      UnLock(lock);
  13048. +      /* We remove script because mode 777 contains it by def, but it is
  13049. +         meaningless for directories */
  13050. +      amode = _make_protection(mode) & ~(FIBF_SCRIPT);
  13051. +      if (SetProtection(name, _make_protection(mode))) return 0;
  13052. +    }
  13053. +  ERROR;
  13054. +}
  13055. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/mkfifo.c amiga/fsf/emacs18/amiga/unix/src/mkfifo.c
  13056. --- baseline/fsf/emacs18/amiga/unix/src/mkfifo.c    Wed Dec 31 17:00:00 1969
  13057. +++ amiga/fsf/emacs18/amiga/unix/src/mkfifo.c    Sat Sep 28 00:00:00 1996
  13058. @@ -0,0 +1,4 @@
  13059. +#include "amiga.h"
  13060. +
  13061. +int mkfifo(char *path, int mode, int dev) { errno = EOSERR; return -1; }
  13062. +int mknod(char *path, int mode, int dev) { errno = EOSERR; return -1; }
  13063. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/mktemp.c amiga/fsf/emacs18/amiga/unix/src/mktemp.c
  13064. --- baseline/fsf/emacs18/amiga/unix/src/mktemp.c    Wed Dec 31 17:00:00 1969
  13065. +++ amiga/fsf/emacs18/amiga/unix/src/mktemp.c    Sat Sep 28 00:00:00 1996
  13066. @@ -0,0 +1,26 @@
  13067. +#include "amiga.h"
  13068. +#include <string.h>
  13069. +#include <stdio.h>
  13070. +
  13071. +char *mktemp(char *name)
  13072. +{
  13073. +  int l;
  13074. +  char *change = name + strlen(name) - 6;
  13075. +  char letter = 'a';
  13076. +  char id[9], *end_id;
  13077. +
  13078. +  chkabort();
  13079. +  _sprintf(id, "%lx", _us);
  13080. +  l = strlen(id);
  13081. +  end_id = l > 5 ? id + l - 5 : id;
  13082. +  _sprintf(change, "a%s", end_id);
  13083. +
  13084. +  while (letter <= 'z')
  13085. +    {
  13086. +      *change = letter;
  13087. +      if (access(name, 0)) return name;
  13088. +      letter++;
  13089. +    }
  13090. +  name[0] = '\0';
  13091. +  return name;
  13092. +}
  13093. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/open.c amiga/fsf/emacs18/amiga/unix/src/open.c
  13094. --- baseline/fsf/emacs18/amiga/unix/src/open.c    Wed Dec 31 17:00:00 1969
  13095. +++ amiga/fsf/emacs18/amiga/unix/src/open.c    Sat Sep 28 00:00:00 1996
  13096. @@ -0,0 +1,141 @@
  13097. +#include "amiga.h"
  13098. +#include "files.h"
  13099. +#include "amigaos.h"
  13100. +#include <utility/tagitem.h>
  13101. +#include <stdarg.h>
  13102. +#include <fcntl.h>
  13103. +#include <string.h>
  13104. +
  13105. +
  13106. +#undef open
  13107. +
  13108. +int __open(const char *path, int flags, ...)
  13109. +{
  13110. +  int fd, acc = flags & 3, rd, wr, exists = TRUE, amode;
  13111. +  struct FileInfoBlock *fib;
  13112. +  BPTR plock, fh;
  13113. +  long fdflags, protection;
  13114. +  APTR pwindow = _us->pr_WindowPtr;
  13115. +  ULONG create = MODE_READWRITE; /* Mode to use when creating files. */
  13116. +
  13117. +  chkabort();
  13118. +
  13119. +  rd = acc == O_RDONLY || acc == O_RDWR;
  13120. +  wr = acc == O_WRONLY || acc == O_RDWR;
  13121. +
  13122. +  if (stricmp(path, "NIL:") == 0) amode = -1;
  13123. +  else
  13124. +    {
  13125. +      _us->pr_WindowPtr = (APTR)-1;
  13126. +      plock = Lock(path, ACCESS_READ);
  13127. +      _us->pr_WindowPtr = pwindow;
  13128. +      if (!plock)
  13129. +    {
  13130. +      int err = convert_oserr(IoErr()), ok;
  13131. +
  13132. +      /* Devices like pipe: don't like Lock ... */
  13133. +      if (_OSERR == ERROR_ACTION_NOT_KNOWN ||
  13134. +          _OSERR == 0) /* Some devices (tape:) don't set IoErr() ... */
  13135. +        {
  13136. +          ok = TRUE;
  13137. +          /* Most non-lockable devices don't like MODE_READWRITE.
  13138. +         So we have to throw shareable files out the window */
  13139. +          create = MODE_NEWFILE;
  13140. +        }
  13141. +      else /* Missing file ok if we are creating. */ 
  13142. +        ok = err == ENOENT && (flags & O_CREAT);
  13143. +
  13144. +      if (ok)
  13145. +        {
  13146. +          va_list vmode;
  13147. +
  13148. +          exists = FALSE;
  13149. +          if (flags & O_CREAT)
  13150. +        {
  13151. +          if (flags & 0x8000) /* SAS C runtime called us, no mode */
  13152. +            amode = FIBF_EXECUTE; /* Maybe 0 ? */
  13153. +          else
  13154. +            {
  13155. +              va_start(vmode, flags);
  13156. +              amode = _make_protection(va_arg(vmode, int));
  13157. +              va_end(vmode);
  13158. +            }
  13159. +        }
  13160. +          else amode = -1;    /* Assume complete access */
  13161. +        }
  13162. +      else
  13163. +        {
  13164. +          errno = err;
  13165. +          return -1;
  13166. +        }
  13167. +    }
  13168. +      else /* File already exists, play with it */
  13169. +    {
  13170. +      /* Get protection */
  13171. +      if (!((fib = AllocDosObjectTags(DOS_FIB, TAG_END)) &&
  13172. +        Examine(plock, fib)))
  13173. +        {
  13174. +          if (fib) FreeDosObject(DOS_FIB, fib);
  13175. +          ERROR;
  13176. +        }
  13177. +      amode = fib->fib_Protection;
  13178. +      FreeDosObject(DOS_FIB, fib);
  13179. +      UnLock(plock);
  13180. +
  13181. +      /* Check access */
  13182. +      if ((flags & (O_CREAT | O_EXCL)) == (O_CREAT | O_EXCL))
  13183. +        {
  13184. +          errno = EEXIST;
  13185. +          return -1;
  13186. +        }
  13187. +      if ((rd && (amode & FIBF_READ) || wr && (amode & FIBF_WRITE)))
  13188. +        {
  13189. +          errno = EACCES;
  13190. +          return -1;
  13191. +        }
  13192. +
  13193. +      /* Truncate files, by opening in MODE_NEWFILE, then closing it.
  13194. +         This allows the file to be opened in shared mode after that (READWRITE or
  13195. +         OLDFILE), which is consistent with the unix semantics. */
  13196. +      if (flags & O_TRUNC)
  13197. +        {
  13198. +          BPTR tfh;
  13199. +
  13200. +          if (tfh = Open(path, MODE_NEWFILE)) Close(tfh);
  13201. +          else ERROR;
  13202. +        }
  13203. +    }
  13204. +    }
  13205. +  if (!(fh = Open(path, flags & O_CREAT ? create : MODE_OLDFILE)))
  13206. +    ERROR;
  13207. +
  13208. +  
  13209. +  /* Protection is set when file is closed because OFS & FFS
  13210. +     don't appreciate it being done on MODE_NEWFILE files. */
  13211. +  if ((flags & O_TRUNC) || !exists) protection = amode;
  13212. +  else protection = -1;
  13213. +
  13214. +  fdflags = 0;
  13215. +  if (rd) fdflags |= FI_READ;
  13216. +  if (wr) fdflags |= FI_WRITE;
  13217. +  if (flags & O_APPEND) fdflags |= O_APPEND;
  13218. +
  13219. +  fd = _alloc_amigafd(fh, protection, fdflags);
  13220. +  if (fd < 0)
  13221. +    {
  13222. +      _us->pr_WindowPtr = (APTR)-1;
  13223. +      Close(fh);
  13224. +      _us->pr_WindowPtr = pwindow;
  13225. +    }
  13226. +  return fd;
  13227. +}
  13228. +
  13229. +int open(const char *path, int flags, ...)
  13230. +{
  13231. +  va_list vmode;
  13232. +
  13233. +  va_start(vmode, flags);
  13234. +  return __open(path, flags, va_arg(vmode, int));
  13235. +  va_end(vmode);
  13236. +}
  13237. +
  13238. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/perror.c amiga/fsf/emacs18/amiga/unix/src/perror.c
  13239. --- baseline/fsf/emacs18/amiga/unix/src/perror.c    Wed Dec 31 17:00:00 1969
  13240. +++ amiga/fsf/emacs18/amiga/unix/src/perror.c    Sat Sep 28 00:00:00 1996
  13241. @@ -0,0 +1,26 @@
  13242. +#include "amiga.h"
  13243. +#include <errno.h>
  13244. +#include <string.h>
  13245. +#include <unistd.h>
  13246. +
  13247. +void perror(const char *s)
  13248. +{
  13249. +  char *err;
  13250. +  char amiga_err[81];
  13251. +
  13252. +  if (s && *s) 
  13253. +    {
  13254. +      write(2, s, strlen(s));
  13255. +      write(2, ": ", 2);
  13256. +    }
  13257. +  if (errno > 0 && errno <= sys_nerr) err = sys_errlist[errno];
  13258. +  else if (errno == -1) 
  13259. +    {
  13260. +      if (Fault(_OSERR, NULL, amiga_err, 81)) err = amiga_err;
  13261. +      else err = "42";        /* Shouldn't appear ... */
  13262. +    }
  13263. +  else err = "Unknown error code";
  13264. +
  13265. +  write(2, err, strlen(err));
  13266. +  write(2, "\n", 1);
  13267. +}
  13268. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/pipe.c amiga/fsf/emacs18/amiga/unix/src/pipe.c
  13269. --- baseline/fsf/emacs18/amiga/unix/src/pipe.c    Wed Dec 31 17:00:00 1969
  13270. +++ amiga/fsf/emacs18/amiga/unix/src/pipe.c    Sat Sep 28 00:00:00 1996
  13271. @@ -0,0 +1,354 @@
  13272. +#include "amiga.h"
  13273. +#include "files.h"
  13274. +#include "fifofd.h"
  13275. +#include "signals.h"
  13276. +#include <sys/filio.h>
  13277. +#include <fcntl.h>
  13278. +#include <signal.h>
  13279. +#include <string.h>
  13280. +#include <stdio.h>
  13281. +#include <exec/memory.h>
  13282. +#include <amiga/ioctl.h>
  13283. +
  13284. +/* The pipe system call, using fifo: */
  13285. +
  13286. +static struct MsgPort *create_fifo_port(void)
  13287. +{
  13288. +  struct MsgPort *port = AllocMem(sizeof(*port), MEMF_CLEAR | MEMF_PUBLIC);
  13289. +
  13290. +  if (!port) return 0;
  13291. +  port->mp_Node.ln_Type = NT_MSGPORT;
  13292. +  port->mp_Flags = PA_SIGNAL;
  13293. +  port->mp_SigBit = _fifo_sig;
  13294. +  port->mp_SigTask = _us;
  13295. +  NewList(&port->mp_MsgList);
  13296. +
  13297. +  return port;
  13298. +}
  13299. +
  13300. +static void delete_fifo_port(struct MsgPort *port)
  13301. +{
  13302. +  FreeMem(port, sizeof(*port));
  13303. +}
  13304. +
  13305. +static void free_fifo(struct fifoinfo *fi)
  13306. +{
  13307. +  if (fi->rfifo) CloseFifo(fi->rfifo, 0);
  13308. +  if (fi->wfifo) CloseFifo(fi->wfifo, FIFOF_EOF);
  13309. +  if (fi->rmsg) free(fi->rmsg);
  13310. +  if (fi->wmsg) free(fi->wmsg);
  13311. +  delete_fifo_port(fi->reply);
  13312. +  free(fi);
  13313. +}
  13314. +
  13315. +/* Code for fd's describing fifos */
  13316. +
  13317. +static ULONG __regargs fifo_select_start(void *userinfo, int rd, int wr)
  13318. +{
  13319. +  struct fifoinfo *fi = userinfo;
  13320. +
  13321. +  if (rd) RequestFifo(fi->rfifo, fi->rmsg, FREQ_RPEND);
  13322. +  if (wr) RequestFifo(fi->wfifo, fi->wmsg, FREQ_WAVAIL);
  13323. +  return 1UL << _fifo_sig;
  13324. +}
  13325. +
  13326. +static void __regargs fifo_select_poll(void *userinfo, int *rd, int *wr)
  13327. +{
  13328. +  struct fifoinfo *fi = userinfo;
  13329. +  int rabort = *rd, wabort = *wr;
  13330. +  struct Message *msg;
  13331. +
  13332. +  while (msg = GetMsg(fi->reply))
  13333. +    {
  13334. +      if (msg == fi->rmsg) rabort = 0;
  13335. +      else if (msg == fi->wmsg) wabort = 0;
  13336. +    }
  13337. +  if (rabort)
  13338. +    {
  13339. +      *rd = 0;
  13340. +      RequestFifo(fi->rfifo, fi->rmsg, FREQ_ABORT);
  13341. +    }
  13342. +  if (wabort)
  13343. +    {
  13344. +      *wr = 0;
  13345. +      RequestFifo(fi->wfifo, fi->wmsg, FREQ_ABORT);
  13346. +    }
  13347. +  while (rabort || wabort)
  13348. +    {
  13349. +      while (!(msg = GetMsg(fi->reply))) Wait(1UL << _fifo_sig);
  13350. +      if (msg == fi->rmsg) rabort = 0;
  13351. +      else if (msg == fi->wmsg) wabort = 0;
  13352. +    }
  13353. +  /* Clear any signals we may have left behind */
  13354. +  SetSignal(0, 1UL << _fifo_sig);
  13355. +}
  13356. +
  13357. +/* Using 4.2BSD style semantics, with reads from fifo's returning immediately when
  13358. +   data is available, and blocking for empty fifo's only when O_NDELAY was not
  13359. +   specified on open */
  13360. +
  13361. +static int __regargs fifo_read(void *userinfo, void *buffer, unsigned int length)
  13362. +{
  13363. +  struct fifoinfo *fi = userinfo;
  13364. +  char *chars;
  13365. +  long ready;
  13366. +
  13367. +  while (!(ready = ReadFifo(fi->rfifo, &chars, fi->skip)))
  13368. +    {
  13369. +      ULONG sigs;
  13370. +
  13371. +      fi->skip = 0;
  13372. +      if (fi->flags & O_NDELAY)
  13373. +    {
  13374. +      errno = EWOULDBLOCK;
  13375. +      return -1;
  13376. +    }
  13377. +      Delay(1);            /* Perversely, this improves the performance */
  13378. +      RequestFifo(fi->rfifo, fi->rmsg, FREQ_RPEND);
  13379. +      sigs = _wait_signals(1L << fi->reply->mp_SigBit);
  13380. +      RequestFifo(fi->rfifo, fi->rmsg, FREQ_ABORT);
  13381. +      while (!GetMsg(fi->reply)) Wait(1UL << _fifo_sig);
  13382. +
  13383. +      _handle_signals(sigs);
  13384. +    }
  13385. +  if (ready == -1) ready = 0;
  13386. +  if (ready > length) ready = length;
  13387. +  memcpy(buffer, chars, ready);
  13388. +  fi->skip = ready;
  13389. +
  13390. +  return (int)ready;
  13391. +}
  13392. +
  13393. +static int __regargs fifo_write(void *userinfo, void *_buffer, unsigned int length)
  13394. +{
  13395. +  struct fifoinfo *fi = userinfo;
  13396. +  long cansend, written;
  13397. +  char *buffer = _buffer;
  13398. +
  13399. +  if (length == 0)        /* Send EOF */
  13400. +    {
  13401. +      char *fname, sname[FIFO_NAMELEN + 2], mname[FIFO_NAMELEN + 2];
  13402. +
  13403. +      /* Send EOF */
  13404. +      CloseFifo(fi->wfifo, FIFOF_EOF);
  13405. +      /* And reopen fifo */
  13406. +      /* Docs say that this clears EOF flag, maybe we should wait a bit ? */
  13407. +      /* The writer is the "master" in fifo: terms */
  13408. +      strcpy(mname, fi->name); strcat(mname, "_m");
  13409. +      strcpy(sname, fi->name); strcat(sname, "_s");
  13410. +
  13411. +      fname = !(fi->flags & FI_READ) || (fi->flags & FIFO_MASTER) ? mname : sname;
  13412. +      fi->wfifo = OpenFifo(fname, FIFO_BUFSIZE, FIFOF_NORMAL | FIFOF_NBIO |
  13413. +               FIFOF_WRITE | FIFOF_RREQUIRED);
  13414. +      if (fi->wfifo)
  13415. +    {
  13416. +      fi->maxsend = BufSizeFifo(fi->wfifo) / 2;
  13417. +      return 0;
  13418. +    }
  13419. +      /* We're in trouble. From now on, all writes will fail */
  13420. +    }
  13421. +  else if (fi->wfifo)
  13422. +    {
  13423. +      cansend = fi->maxsend;
  13424. +      written = 0;
  13425. +      while (length > 0)
  13426. +    {
  13427. +      long sent;
  13428. +
  13429. +      if (cansend > length) cansend = length;
  13430. +      while ((sent = WriteFifo(fi->wfifo, buffer, cansend)) == 0)
  13431. +        {
  13432. +          ULONG sigs;
  13433. +          int signaled;
  13434. +
  13435. +          if (fi->flags & O_NDELAY)
  13436. +        {
  13437. +          if (written != 0) return (int)written;
  13438. +          errno = EWOULDBLOCK;
  13439. +          return -1;
  13440. +        }
  13441. +          RequestFifo(fi->wfifo, fi->wmsg, FREQ_WAVAIL);
  13442. +          sigs = _wait_signals(1L << fi->reply->mp_SigBit);
  13443. +          RequestFifo(fi->wfifo, fi->wmsg, FREQ_ABORT);
  13444. +          while (!GetMsg(fi->reply)) Wait(1UL << _fifo_sig);
  13445. +          signaled = _handle_signals(sigs);
  13446. +          if (signaled && written != 0) return (int)written;
  13447. +        }
  13448. +      if (sent < 0) /* Some problem has occured */ goto fail;
  13449. +      written += sent;
  13450. +      length -= sent;
  13451. +      buffer += sent;
  13452. +    }
  13453. +      return (int)written;
  13454. +    }
  13455. + fail:
  13456. +  /* Some problem has occured */
  13457. +  _sig_dispatch(SIGPIPE);
  13458. +  errno = EPIPE;
  13459. +  return -1;
  13460. +}
  13461. +
  13462. +static int __regargs fifo_lseek(void *userinfo, long rpos, int mode)
  13463. +{
  13464. +  errno = ESPIPE;
  13465. +  return -1;
  13466. +}
  13467. +
  13468. +static int __regargs fifo_close(void *userinfo, int internal)
  13469. +{
  13470. +  struct fifoinfo *fi = userinfo;
  13471. +
  13472. +  free_fifo(fi);
  13473. +  return 0;
  13474. +}
  13475. +
  13476. +static int __regargs fifo_ioctl(void *userinfo, int request, void *data)
  13477. +{
  13478. +  struct fifoinfo *fi = userinfo;
  13479. +
  13480. +  switch (request)
  13481. +    {
  13482. +    case FIONBIO:
  13483. +      if (*(int *)data) fi->flags |= O_NDELAY;
  13484. +      else fi->flags &= ~O_NDELAY;
  13485. +      return 0;
  13486. +    case _AMIGA_GET_FH: {
  13487. +      BPTR *fh = data;
  13488. +      char name[FIFO_NAMELEN + 12];
  13489. +
  13490. +      /* Get an AmigaOS fifo: onto the same fifo in the same role */
  13491. +      if ((fi->flags & (FI_READ | FI_WRITE)) == (FI_READ | FI_WRITE))
  13492. +    _sprintf(name, "fifo:%s/rwesK%s",
  13493. +         fi->name, fi->flags & FIFO_MASTER ? "m" : "");
  13494. +      else if (fi->flags & FI_READ) _sprintf(name, "fifo:%s/r", fi->name);
  13495. +      else _sprintf(name, "fifo:%s/mweK", fi->name);
  13496. +      *fh = Open(name, MODE_OLDFILE);
  13497. +
  13498. +      if (*fh) return 0;
  13499. +      ERROR;
  13500. +    }
  13501. +    case _AMIGA_FREE_FH: {
  13502. +      BPTR *fh = data;
  13503. +
  13504. +      if (*fh) Close(*fh);
  13505. +      return 0;
  13506. +    }
  13507. +    default: errno = EINVAL; return -1;
  13508. +    }
  13509. +}
  13510. +
  13511. +static int alloc_fifo(char *name, int reader, int writer, int master)
  13512. +{
  13513. +  struct fifoinfo *fi;
  13514. +  int fd;
  13515. +  struct MsgPort *reply = 0;
  13516. +  struct Message *rmsg = 0, *wmsg = 0;
  13517. +
  13518. +  if ((fi = (struct fifoinfo *)malloc(sizeof(struct fifoinfo))) &&
  13519. +      (reply = create_fifo_port()) &&
  13520. +      (rmsg = (struct Message *)malloc(sizeof(struct Message))) &&
  13521. +      (wmsg = (struct Message *)malloc(sizeof(struct Message))))
  13522. +    {
  13523. +      rmsg->mn_Node.ln_Type = NT_MESSAGE;
  13524. +      rmsg->mn_ReplyPort = reply;
  13525. +      rmsg->mn_Length = sizeof(*rmsg);
  13526. +      wmsg->mn_Node.ln_Type = NT_MESSAGE;
  13527. +      wmsg->mn_ReplyPort = reply;
  13528. +      wmsg->mn_Length = sizeof(*wmsg);
  13529. +      fi->reply = reply;
  13530. +      fi->rmsg = rmsg;
  13531. +      fi->wmsg = wmsg;
  13532. +      fi->rfifo = fi->wfifo = 0;
  13533. +
  13534. +      fi->flags = 0;
  13535. +      if (reader) fi->flags |= FI_READ;
  13536. +      if (writer) fi->flags |= FI_WRITE;
  13537. +      fd = _alloc_fd(fi, fi->flags, fifo_select_start, fifo_select_poll, fifo_read,
  13538. +             fifo_write, fifo_lseek, fifo_close, fifo_ioctl);
  13539. +      if (fd)
  13540. +    {
  13541. +      char *fname, sname[FIFO_NAMELEN + 2], mname[FIFO_NAMELEN + 2];
  13542. +
  13543. +      if (master) fi->flags |= FIFO_MASTER;
  13544. +      strcpy(fi->name, name);
  13545. +      /* The writer is the "master" in fifo: terms */
  13546. +      strcpy(mname, fi->name); strcat(mname, "_m");
  13547. +      strcpy(sname, fi->name); strcat(sname, "_s");
  13548. +
  13549. +      if (reader)
  13550. +        {
  13551. +          fname = !writer || !master ? mname : sname;
  13552. +          fi->rfifo = OpenFifo(fname, FIFO_BUFSIZE, FIFOF_NORMAL | FIFOF_NBIO |
  13553. +                   FIFOF_READ);
  13554. +        }
  13555. +      if (writer)
  13556. +        {
  13557. +          fname = !reader || master ? mname : sname;
  13558. +          fi->wfifo = OpenFifo(fname, FIFO_BUFSIZE, FIFOF_NORMAL | FIFOF_NBIO |
  13559. +                   FIFOF_WRITE | FIFOF_RREQUIRED);
  13560. +        }
  13561. +      if ((fi->rfifo || !reader) && (fi->wfifo || !writer))
  13562. +        {
  13563. +          if (fi->wfifo) fi->maxsend = BufSizeFifo(fi->wfifo) / 2;
  13564. +          fi->skip = 0;
  13565. +          return fd;
  13566. +        }
  13567. +      if (fi->rfifo) CloseFifo(fi->rfifo, 0);
  13568. +      if (fi->wfifo) CloseFifo(fi->wfifo, 0);
  13569. +    }
  13570. +      if (fd >= 0) _free_fd(fd);
  13571. +    }
  13572. +  if (rmsg) free(rmsg);
  13573. +  if (wmsg) free(wmsg);
  13574. +  if (reply) delete_fifo_port(reply);
  13575. +  if (fi) free(fi);
  13576. +  return -1;
  13577. +}
  13578. +
  13579. +int pipe(int fd[2])
  13580. +{
  13581. +  char name[FIFO_NAMELEN];
  13582. +  struct fileinfo *f0;
  13583. +
  13584. +  chkabort();
  13585. +  if (!_fifo_ok)
  13586. +    {
  13587. +      errno = ENXIO;
  13588. +      return -1;
  13589. +    }
  13590. +
  13591. +  _sprintf(name, "uxfifo.%lx", _fifo_base + _fifo_offset++);
  13592. +
  13593. +  if ((fd[0] = alloc_fifo(name, TRUE, FALSE, FALSE)) >= 0)
  13594. +    if ((fd[1] = alloc_fifo(name, FALSE, TRUE, FALSE)) >= 0) return 0;
  13595. +    else
  13596. +      {
  13597. +    if (f0 = _find_fd(fd[0])) free_fifo(f0->userinfo);
  13598. +    _free_fd(fd[0]);
  13599. +      }
  13600. +  return -1;
  13601. +}
  13602. +
  13603. +int socketpair(int domain, int type, int protocol, int sv[2])
  13604. +{
  13605. +  char name[FIFO_NAMELEN];
  13606. +  struct fileinfo *f0;
  13607. +
  13608. +  chkabort();
  13609. +  if (!_fifo_ok)
  13610. +    {
  13611. +      errno = ENXIO;
  13612. +      return -1;
  13613. +    }
  13614. +
  13615. +  _sprintf(name, "uxfifo.%lx", _fifo_base + _fifo_offset++);
  13616. +
  13617. +  if ((sv[0] = alloc_fifo(name, TRUE, TRUE, TRUE)) >= 0)
  13618. +    if ((sv[1] = alloc_fifo(name, TRUE, TRUE, FALSE)) >= 0) return 0;
  13619. +    else
  13620. +      {
  13621. +    if (f0 = _find_fd(sv[0])) free_fifo(f0->userinfo);
  13622. +    _free_fd(sv[0]);
  13623. +      }
  13624. +  return -1;
  13625. +}
  13626. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/popen.c amiga/fsf/emacs18/amiga/unix/src/popen.c
  13627. --- baseline/fsf/emacs18/amiga/unix/src/popen.c    Wed Dec 31 17:00:00 1969
  13628. +++ amiga/fsf/emacs18/amiga/unix/src/popen.c    Sat Sep 28 00:00:00 1996
  13629. @@ -0,0 +1,93 @@
  13630. +#include "amiga.h"
  13631. +#include "processes.h"
  13632. +#include "fifofd.h"
  13633. +#include <amiga/ioctl.h>
  13634. +#include <exec/memory.h>
  13635. +#include <dos/dosextens.h>
  13636. +#include <dos/dostags.h>
  13637. +#include <string.h>
  13638. +
  13639. +struct pprocess
  13640. +{
  13641. +  struct pprocess *next;
  13642. +  FILE *f;
  13643. +  int pid;
  13644. +};
  13645. +
  13646. +static struct pprocess *_pplist;
  13647. +
  13648. +FILE *popen(char *command, char *type)
  13649. +{
  13650. +  FILE *pipe;
  13651. +  BPTR in, out;
  13652. +  int close_in, close_out;
  13653. +  char pname[24];
  13654. +  struct pprocess *pp = (struct pprocess *)malloc(sizeof(struct pprocess));
  13655. +
  13656. +  _sprintf(pname, "pipe:uxopen.%lx", _fifo_base + _fifo_offset++);
  13657. +
  13658. +  if (type[0] == 'w' && type[1] == '\0')
  13659. +    {
  13660. +      pipe = fopen(pname, "w");
  13661. +      out = Output(); close_out = FALSE;
  13662. +      in = Open(pname, MODE_OLDFILE); close_in = TRUE;
  13663. +    }
  13664. +  else if (type[0] == 'r' && type[1] == '\0')
  13665. +    {
  13666. +      pipe = fopen(pname, "r");
  13667. +      in = Input(); close_in = FALSE;
  13668. +      out = Open(pname, MODE_NEWFILE); close_out = TRUE;
  13669. +    }
  13670. +  else
  13671. +    {
  13672. +      errno = EINVAL;
  13673. +      return NULL;
  13674. +    }
  13675. +
  13676. +  if (!in || !out) _seterr();
  13677. +  if (pipe && in && out && pp)
  13678. +    {
  13679. +      pp->pid = _start_process(command, in, close_in, out, close_out,
  13680. +                   -1, FALSE, 0, 0);
  13681. +      
  13682. +      if (pp->pid)
  13683. +    {
  13684. +      pp->next = _pplist;
  13685. +      _pplist = pp;
  13686. +      pp->f = pipe;
  13687. +
  13688. +      return pipe;
  13689. +    }
  13690. +    }
  13691. +  if (pp) free(pp);
  13692. +  if (in && close_in) Close(in);
  13693. +  if (out && close_out) Close(out);
  13694. +  if (pipe) fclose(pipe);
  13695. +
  13696. +  return NULL;
  13697. +}
  13698. +
  13699. +int pclose(FILE *f)
  13700. +{
  13701. +  struct pprocess **scan = &_pplist;
  13702. +
  13703. +  while (*scan)
  13704. +    {
  13705. +      if ((*scan)->f == f) /* found */
  13706. +    {
  13707. +      struct pprocess *son = *scan;
  13708. +      int status;
  13709. +      int pid = son->pid;
  13710. +
  13711. +      *scan = son->next;    /* Remove process from list */
  13712. +
  13713. +      fclose(son->f);
  13714. +      free(son);
  13715. +      /* Wait for process to terminate */
  13716. +      if (waitpid(pid, &status, NULL) >= 0) return status;
  13717. +      return -1;
  13718. +    }
  13719. +      scan = &(*scan)->next;
  13720. +    }
  13721. +  return -1;
  13722. +}
  13723. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/processes.c amiga/fsf/emacs18/amiga/unix/src/processes.c
  13724. --- baseline/fsf/emacs18/amiga/unix/src/processes.c    Wed Dec 31 17:00:00 1969
  13725. +++ amiga/fsf/emacs18/amiga/unix/src/processes.c    Sat Sep 28 00:00:00 1996
  13726. @@ -0,0 +1,56 @@
  13727. +#include "amiga.h"
  13728. +#include <clib/alib_protos.h>
  13729. +
  13730. +#include "processes.h"
  13731. +
  13732. +int _next_pid, _our_pid;
  13733. +struct MinList _processes;
  13734. +char _door_name[DOOR_LEN];
  13735. +struct MsgPort *_children_exit;
  13736. +struct MsgPort *_startup_port;
  13737. +
  13738. +void _free_entry(struct process *p)
  13739. +{
  13740. +  Remove((struct Node *)p);
  13741. +  free(p);
  13742. +}
  13743. +
  13744. +struct process *_find_pid(int pid)
  13745. +{
  13746. +  struct process *entry;
  13747. +
  13748. +  scan_processes (entry) if (entry->pid == pid) return entry;
  13749. +
  13750. +  return 0;
  13751. +}
  13752. +
  13753. +void _init_processes(void)
  13754. +{
  13755. +  NewList((struct List *)&_processes);
  13756. +  /* Choose a fairly unique pid for ourselves, but keep it within a range
  13757. +     which guarantees positive pid's for all created processes.
  13758. +     This range is further restricted to 23 bits so that a pid fits within the
  13759. +     range of an emacs number (generally 24 bits, though it is 26 on the Amiga) */
  13760. +  _our_pid = ((int)_us ^ _startup_time) & 0x7fffff;
  13761. +  _next_pid = _our_pid + 1;
  13762. +  _sprintf(_door_name, "door.%lx.%lx", _us, _startup_time);
  13763. +  if ((_startup_port = CreateMsgPort()) &&
  13764. +      (_children_exit = CreatePort(_door_name, 0))) return;
  13765. +
  13766. +  _fail("No memory");
  13767. +}
  13768. +
  13769. +void _cleanup_processes(void)
  13770. +{
  13771. +  if (_startup_port) DeleteMsgPort(_startup_port);
  13772. +  if (_children_exit)
  13773. +    {
  13774. +      struct exit_message *msg;
  13775. +
  13776. +      Forbid();
  13777. +      while (msg = (struct exit_message *)GetMsg(_children_exit))
  13778. +    FreeMem(msg, sizeof(struct exit_message));
  13779. +      DeletePort(_children_exit);
  13780. +      Permit();
  13781. +    }
  13782. +}
  13783. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/processes.h amiga/fsf/emacs18/amiga/unix/src/processes.h
  13784. --- baseline/fsf/emacs18/amiga/unix/src/processes.h    Wed Dec 31 17:00:00 1969
  13785. +++ amiga/fsf/emacs18/amiga/unix/src/processes.h    Sat Sep 28 00:00:00 1996
  13786. @@ -0,0 +1,46 @@
  13787. +#ifndef _PROCESSES_H
  13788. +#define _PROCESSES_H_
  13789. +
  13790. +struct process
  13791. +{
  13792. +    struct MinNode node;
  13793. +    struct Task *process;
  13794. +    int pid;
  13795. +    BPTR input;
  13796. +    enum { alive, exited } status;
  13797. +    int rc;
  13798. +};
  13799. +
  13800. +struct exit_message        /* Sent by children when exiting */
  13801. +{
  13802. +  struct Message m;
  13803. +  int pid;
  13804. +  int rc;
  13805. +};
  13806. +
  13807. +extern int _next_pid, _our_pid;
  13808. +extern struct MinList _processes;
  13809. +#define DOOR_LEN 32
  13810. +extern char _door_name[DOOR_LEN];
  13811. +extern struct MsgPort *_children_exit;
  13812. +extern struct MsgPort *_startup_port;
  13813. +
  13814. +#define scan_processes(p) for (p = (struct process *)_processes.mlh_Head; \
  13815. +                   p->node.mln_Succ; \
  13816. +                   p = (struct process *)p->node.mln_Succ)
  13817. +
  13818. +#define no_processes() (_processes.mlh_Head->mln_Succ == 0)
  13819. +
  13820. +void _free_entry(struct process *p);
  13821. +struct process *_find_pid(int pid);
  13822. +void _init_processes(void);
  13823. +void _cleanup_processes(void);
  13824. +
  13825. +int _start_process(char *command,
  13826. +           BPTR input, int close_input,
  13827. +           BPTR output, int close_output,
  13828. +           BPTR error, int close_error,
  13829. +           BPTR dir,
  13830. +           long stacksize);
  13831. +
  13832. +#endif
  13833. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/protection.c amiga/fsf/emacs18/amiga/unix/src/protection.c
  13834. --- baseline/fsf/emacs18/amiga/unix/src/protection.c    Wed Dec 31 17:00:00 1969
  13835. +++ amiga/fsf/emacs18/amiga/unix/src/protection.c    Sat Sep 28 00:00:00 1996
  13836. @@ -0,0 +1,73 @@
  13837. +#include "amiga.h"
  13838. +#include <sys/stat.h>
  13839. +
  13840. +int use_amiga_flags;
  13841. +
  13842. +int _make_protection(int mode)
  13843. +{
  13844. +  int amode;
  13845. +
  13846. +  if (use_amiga_flags) return mode;
  13847. +
  13848. +  /* We always turn archive off */
  13849. +  amode = 0;
  13850. +
  13851. +  /* Read: if any unix read */
  13852. +  if (mode & (S_IRUSR | S_IRGRP | S_IROTH)) amode |= FIBF_READ;
  13853. +
  13854. +  /* Write: if user write or group write
  13855. +     Delete: if user write or world write */
  13856. +  if (mode & S_IWUSR) amode |= FIBF_WRITE | FIBF_DELETE;
  13857. +  if (mode & S_IWGRP) amode |= FIBF_WRITE;
  13858. +  if (mode & S_IWOTH) amode |= FIBF_DELETE;
  13859. +
  13860. +  /* Execute: if group execute or user execute and not world execute
  13861. +     Script: if world execute or user execute ant not group execute */
  13862. +  if (mode & S_IXGRP) amode |= FIBF_EXECUTE;
  13863. +  if (mode & S_IXOTH) amode |= FIBF_SCRIPT;
  13864. +  if ((mode & (S_IXUSR | S_IXGRP | S_IXOTH)) == S_IXUSR)
  13865. +    amode |= FIBF_EXECUTE | FIBF_SCRIPT;
  13866. +
  13867. +  /* Pure: if sticky */
  13868. +  if (mode & S_ISVTX) amode |= FIBF_PURE;
  13869. +
  13870. +  /* Make correct bits active 0 */
  13871. +  amode ^= FIBF_READ | FIBF_WRITE | FIBF_EXECUTE | FIBF_DELETE;
  13872. +  return amode;
  13873. +}
  13874. +
  13875. +int _make_mode(int protection)
  13876. +{
  13877. +    int mode;
  13878. +
  13879. +    if (use_amiga_flags) return protection & ~S_IFMT;
  13880. +
  13881. +    mode = 0;
  13882. +    /* make all bits active 1 */
  13883. +    protection ^= FIBF_READ | FIBF_WRITE | FIBF_EXECUTE | FIBF_DELETE;
  13884. +
  13885. +    /* Read user, group, world if amiga read */
  13886. +    if (protection & FIBF_READ) mode |= S_IRUSR | S_IRGRP | S_IROTH;
  13887. +
  13888. +    /* Write:
  13889. +         user if amiga write & delete
  13890. +     group if amiga write
  13891. +     other if amiga delete */
  13892. +    if ((protection & (FIBF_WRITE | FIBF_DELETE)) == (FIBF_WRITE | FIBF_DELETE))
  13893. +      mode |= S_IWUSR;
  13894. +    if (protection & FIBF_WRITE) mode |= S_IWGRP;
  13895. +    if (protection & FIBF_DELETE) mode |= S_IWOTH;
  13896. +
  13897. +    /* Execute:
  13898. +         user if amiga execute or script
  13899. +     group if amiga execute
  13900. +     world if amiga script */
  13901. +    if (protection & (FIBF_EXECUTE | FIBF_SCRIPT)) mode |= S_IXUSR;
  13902. +    if (protection & FIBF_EXECUTE) mode |= S_IXGRP;
  13903. +    if (protection & FIBF_SCRIPT) mode |= S_IXOTH;
  13904. +
  13905. +    /* Sticky: if pure */
  13906. +    if (protection & FIBF_PURE) mode |= S_ISVTX;
  13907. +
  13908. +    return mode;
  13909. +}
  13910. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/pseudo_c.c amiga/fsf/emacs18/amiga/unix/src/pseudo_c.c
  13911. --- baseline/fsf/emacs18/amiga/unix/src/pseudo_c.c    Wed Dec 31 17:00:00 1969
  13912. +++ amiga/fsf/emacs18/amiga/unix/src/pseudo_c.c    Sat Sep 28 00:00:00 1996
  13913. @@ -0,0 +1,18 @@
  13914. +#include "amiga.h"
  13915. +#include "files.h"
  13916. +#include <fcntl.h>
  13917. +
  13918. +int _pseudo_close(int fd)
  13919. +{
  13920. +  struct fileinfo *fi;
  13921. +
  13922. +  chkabort();
  13923. +  if (fi = _find_fd(fd))
  13924. +    {
  13925. +      int err = fi->close(fi->userinfo, TRUE);
  13926. +
  13927. +      _free_fd(fd);
  13928. +      return err;
  13929. +    }
  13930. +  return -1;
  13931. +}
  13932. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/pwd.c amiga/fsf/emacs18/amiga/unix/src/pwd.c
  13933. --- baseline/fsf/emacs18/amiga/unix/src/pwd.c    Wed Dec 31 17:00:00 1969
  13934. +++ amiga/fsf/emacs18/amiga/unix/src/pwd.c    Sat Sep 28 00:00:00 1996
  13935. @@ -0,0 +1,13 @@
  13936. +#include "amiga.h"
  13937. +#include <pwd.h>
  13938. +
  13939. +struct passwd _amiga_user = {
  13940. +  NULL, "",
  13941. +  AMIGA_UID, AMIGA_GID,
  13942. +  0, "", NULL,
  13943. +  NULL, NULL
  13944. +  };
  13945. +
  13946. +struct passwd *getpwuid(uid_t uid) { return &_amiga_user; }
  13947. +struct passwd *getpwnam(char *name) { return &_amiga_user; }
  13948. +char *getlogin(void) { return _amiga_user.pw_name; }
  13949. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/read.c amiga/fsf/emacs18/amiga/unix/src/read.c
  13950. --- baseline/fsf/emacs18/amiga/unix/src/read.c    Wed Dec 31 17:00:00 1969
  13951. +++ amiga/fsf/emacs18/amiga/unix/src/read.c    Sat Sep 28 00:00:00 1996
  13952. @@ -0,0 +1,24 @@
  13953. +#include "amiga.h"
  13954. +#include "files.h"
  13955. +#include <fcntl.h>
  13956. +
  13957. +#undef read
  13958. +
  13959. +int __read(int fd, void *buffer, unsigned int length)
  13960. +{
  13961. +  struct fileinfo *fi;
  13962. +
  13963. +  chkabort();
  13964. +  if (fi = _find_fd(fd))
  13965. +    {
  13966. +      if (fi->flags & FI_READ) return fi->read(fi->userinfo, buffer, length);
  13967. +      errno = EACCES;
  13968. +    }
  13969. +  return -1;
  13970. +}
  13971. +
  13972. +int read(int fd, void *buffer, unsigned int length)
  13973. +{
  13974. +  return __read(fd, buffer, length);
  13975. +}
  13976. +
  13977. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/readlink.c amiga/fsf/emacs18/amiga/unix/src/readlink.c
  13978. --- baseline/fsf/emacs18/amiga/unix/src/readlink.c    Wed Dec 31 17:00:00 1969
  13979. +++ amiga/fsf/emacs18/amiga/unix/src/readlink.c    Sat Sep 28 00:00:00 1996
  13980. @@ -0,0 +1,38 @@
  13981. +#include "amiga.h"
  13982. +#include <string.h>
  13983. +
  13984. +int readlink(char *path, char *buf, int bufsiz)
  13985. +{
  13986. +  struct DevProc *dev = NULL;
  13987. +
  13988. +  chkabort();
  13989. +
  13990. +  while (1)
  13991. +    {
  13992. +      struct DevProc *newdev = GetDeviceProc(path, dev);
  13993. +      long err;
  13994. +      
  13995. +      FreeDeviceProc(dev);
  13996. +      if (!(dev = newdev)) ERROR;
  13997. +
  13998. +      buf[0] = '\0';
  13999. +      if (ReadLink(dev->dvp_Port, dev->dvp_Lock, path, buf, bufsiz + 1))
  14000. +    {
  14001. +      FreeDeviceProc(dev);
  14002. +      if (!buf[0])
  14003. +        {
  14004. +          /* Play games with apparent 2.x ram: bug */
  14005. +          errno = ENOENT;
  14006. +          return -1;
  14007. +        }
  14008. +      return strlen(buf);
  14009. +    }
  14010. +      err = IoErr();
  14011. +      if (!(err == ERROR_OBJECT_NOT_FOUND && (dev->dvp_Flags & DVPF_ASSIGN)))
  14012. +    {
  14013. +      FreeDeviceProc(dev);
  14014. +      errno = convert_oserr(err);
  14015. +      return -1;
  14016. +    }
  14017. +    }
  14018. +}
  14019. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/rename.c amiga/fsf/emacs18/amiga/unix/src/rename.c
  14020. --- baseline/fsf/emacs18/amiga/unix/src/rename.c    Wed Dec 31 17:00:00 1969
  14021. +++ amiga/fsf/emacs18/amiga/unix/src/rename.c    Sat Sep 28 00:00:00 1996
  14022. @@ -0,0 +1,24 @@
  14023. +#include "amiga.h"
  14024. +
  14025. +int rename(const char *from, const char *to)
  14026. +{
  14027. +  long err;
  14028. +
  14029. +  chkabort();
  14030. +  if (Rename(from, to)) return 0;
  14031. +  err = IoErr();
  14032. +  if (err == ERROR_OBJECT_EXISTS)
  14033. +    {
  14034. +      if (DeleteFile(to) && Rename(from, to)) return 0;
  14035. +      err = IoErr();
  14036. +
  14037. +      if (err == ERROR_DELETE_PROTECTED)
  14038. +    {
  14039. +      if (SetProtection(to, 0) && DeleteFile(to) && Rename(from, to))
  14040. +        return 0;
  14041. +      err = IoErr();
  14042. +    }
  14043. +    }
  14044. +  errno = convert_oserr(err);
  14045. +  return -1;
  14046. +}
  14047. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/rindex.c amiga/fsf/emacs18/amiga/unix/src/rindex.c
  14048. --- baseline/fsf/emacs18/amiga/unix/src/rindex.c    Wed Dec 31 17:00:00 1969
  14049. +++ amiga/fsf/emacs18/amiga/unix/src/rindex.c    Sat Sep 28 00:00:00 1996
  14050. @@ -0,0 +1,8 @@
  14051. +#include <string.h>
  14052. +
  14053. +#undef rindex
  14054. +
  14055. +char *rindex(char *str, int c)
  14056. +{
  14057. +  return strrchr(str, c);
  14058. +}
  14059. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/rmdir.c amiga/fsf/emacs18/amiga/unix/src/rmdir.c
  14060. --- baseline/fsf/emacs18/amiga/unix/src/rmdir.c    Wed Dec 31 17:00:00 1969
  14061. +++ amiga/fsf/emacs18/amiga/unix/src/rmdir.c    Sat Sep 28 00:00:00 1996
  14062. @@ -0,0 +1,31 @@
  14063. +#include "amiga.h"
  14064. +#include <utility/tagitem.h>
  14065. +
  14066. +int rmdir(char *name)
  14067. +{
  14068. +  struct FileInfoBlock *fib = 0;
  14069. +  BPTR lock = 0;
  14070. +
  14071. +  if ((fib = AllocDosObjectTags(DOS_FIB, TAG_END)) &&
  14072. +      (lock = Lock(name, ACCESS_READ)) &&
  14073. +      Examine(lock, fib))
  14074. +    {
  14075. +      int isdir = fib->fib_DirEntryType > 0;
  14076. +
  14077. +      UnLock(lock);
  14078. +      FreeDosObject(DOS_FIB, fib);
  14079. +
  14080. +      if (isdir)
  14081. +    {
  14082. +      if (DeleteFile(name)) return 0;
  14083. +      ERROR;
  14084. +    }
  14085. +      errno = ENOTDIR;
  14086. +      return -1;
  14087. +    }
  14088. +  errno = convert_oserr(IoErr());
  14089. +
  14090. +  if (lock) UnLock(lock);
  14091. +  if (fib) FreeDosObject(DOS_FIB, fib);
  14092. +  return -1;
  14093. +}
  14094. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/select.c amiga/fsf/emacs18/amiga/unix/src/select.c
  14095. --- baseline/fsf/emacs18/amiga/unix/src/select.c    Wed Dec 31 17:00:00 1969
  14096. +++ amiga/fsf/emacs18/amiga/unix/src/select.c    Sat Sep 28 00:00:00 1996
  14097. @@ -0,0 +1,72 @@
  14098. +#include "amiga.h"
  14099. +#include "files.h"
  14100. +#include "signals.h"
  14101. +#include "timers.h"
  14102. +#include <sys/time.h>
  14103. +
  14104. +int select(int nfds, int *rfds, int *wfds, int *efds, struct timeval *timeout)
  14105. +{
  14106. +  int fdmask, i, fdcount;
  14107. +  int poll = timeout && timeout->tv_sec == 0 && timeout->tv_usec == 0;
  14108. +  ULONG eventmask, sigs;
  14109. +  int orfds = rfds ? *rfds : 0, owfds = wfds ? *wfds : 0, oefds = efds ? *efds : 0;
  14110. +  
  14111. +  for (i = 0, fdmask = 1; i < nfds; i++, fdmask <<= 1)
  14112. +    {
  14113. +      int rd = orfds & fdmask, wr = owfds & fdmask;
  14114. +
  14115. +  chkabort();
  14116. +      if (rd || wr)
  14117. +    {
  14118. +      struct fileinfo *fi = _find_fd(i);
  14119. +
  14120. +      if (!fi) return -1;
  14121. +      if (rd && !(fi->flags & FI_READ) || wr && !(fi->flags & FI_WRITE))
  14122. +        {
  14123. +          errno = EACCES;
  14124. +          return -1;
  14125. +        }
  14126. +    }
  14127. +    }
  14128. +
  14129. +  if (timeout) _timer_start(_odd_timer, timeout->tv_sec, timeout->tv_usec);
  14130. +  else _timer_abort(_odd_timer);
  14131. +  fdcount = 0;
  14132. +  do
  14133. +    {
  14134. +      eventmask = 0;
  14135. +      for (i = 0, fdmask = 1; i < nfds; i++, fdmask <<= 1)
  14136. +    {
  14137. +      int rd = orfds & fdmask, wr = owfds & fdmask;
  14138. +
  14139. +      if (rd || wr)
  14140. +        {
  14141. +          struct fileinfo *fi = _find_fd(i);
  14142. +
  14143. +          eventmask |= fi->select_start(fi->userinfo, rd, wr);
  14144. +        }
  14145. +    }
  14146. +
  14147. +      if (eventmask == -1 || poll) /* Don't wait */ sigs = _check_signals(0);
  14148. +      else /* Wait*/ sigs = _wait_signals(_odd_sig | eventmask);
  14149. +
  14150. +      for (i = 0, fdmask = 1; i < nfds; i++, fdmask <<= 1)
  14151. +    {
  14152. +      int rd = orfds & fdmask, wr = owfds & fdmask;
  14153. +
  14154. +      if (rd || wr)
  14155. +        {
  14156. +          struct fileinfo *fi = _find_fd(i);
  14157. +
  14158. +          fi->select_poll(fi->userinfo, &rd, &wr);
  14159. +          if (!rd && rfds) *rfds &= ~fdmask;
  14160. +          if (!wr && wfds) *wfds &= ~fdmask;
  14161. +          if (rd || wr) fdcount++;
  14162. +        }
  14163. +    }
  14164. +      _handle_signals(sigs);
  14165. +    }
  14166. +  while (fdcount == 0 && !_timer_expired(_odd_timer) && !poll);
  14167. +
  14168. +  return fdcount;
  14169. +}
  14170. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/setjmp.c amiga/fsf/emacs18/amiga/unix/src/setjmp.c
  14171. --- baseline/fsf/emacs18/amiga/unix/src/setjmp.c    Wed Dec 31 17:00:00 1969
  14172. +++ amiga/fsf/emacs18/amiga/unix/src/setjmp.c    Sat Sep 28 00:00:00 1996
  14173. @@ -0,0 +1,15 @@
  14174. +#include "amiga.h"
  14175. +#include "signals.h"
  14176. +#include <setjmp.h>
  14177. +
  14178. +int setjmp(jmp_buf jb)
  14179. +{
  14180. +  jb[0] = _sig_mask;
  14181. +  return _setjmp(jb + 1);
  14182. +}
  14183. +
  14184. +void longjmp(jmp_buf jb, int val)
  14185. +{
  14186. +  sigsetmask(jb[0]);
  14187. +  _longjmp(jb + 1, val);
  14188. +}
  14189. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/siglist.c amiga/fsf/emacs18/amiga/unix/src/siglist.c
  14190. --- baseline/fsf/emacs18/amiga/unix/src/siglist.c    Wed Dec 31 17:00:00 1969
  14191. +++ amiga/fsf/emacs18/amiga/unix/src/siglist.c    Sat Sep 28 00:00:00 1996
  14192. @@ -0,0 +1,35 @@
  14193. +char *sys_siglist[] =
  14194. +{
  14195. +    "no signal",
  14196. +    "hangup",
  14197. +    "interrupt",
  14198. +    "quit",
  14199. +    "illegal instruction",
  14200. +    "trace trap",
  14201. +    "abort",
  14202. +    "emt instruction",
  14203. +    "floating point exception",
  14204. +    "kill",
  14205. +    "bus error",
  14206. +    "segmentation violation",
  14207. +    "bad argument to system call",
  14208. +    "write on a pipe with no one to read it",
  14209. +    "alarm clock",
  14210. +    "software termination signal from kill",
  14211. +    "status signal",
  14212. +    "sendable stop signal not from tty",
  14213. +    "stop signal from tty",
  14214. +    "continue a stopped process",
  14215. +    "child status has changed",
  14216. +    "background read attempted from control tty",
  14217. +    "background write attempted from control tty",
  14218. +    "input record available at control tty",
  14219. +    "exceeded CPU time limit",
  14220. +    "exceeded file size limit",
  14221. +    "unknown signal",
  14222. +    "unknown signal",
  14223. +    "window changed",
  14224. +    "unknown signal",
  14225. +    "user signal 1",
  14226. +    "user signal 2",
  14227. +};
  14228. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/signal.c amiga/fsf/emacs18/amiga/unix/src/signal.c
  14229. --- baseline/fsf/emacs18/amiga/unix/src/signal.c    Wed Dec 31 17:00:00 1969
  14230. +++ amiga/fsf/emacs18/amiga/unix/src/signal.c    Sat Sep 28 00:00:00 1996
  14231. @@ -0,0 +1,26 @@
  14232. +#include "amiga.h"
  14233. +#include "signals.h"
  14234. +
  14235. +int sigvec(int sig, struct sigvec *vec, struct sigvec *ovec)
  14236. +{
  14237. +  chkabort();
  14238. +  if (sig >= 1 && sig < NSIG)
  14239. +    {
  14240. +      if (ovec) *ovec = _sig_handlers[sig];
  14241. +      if (vec) _sig_handlers[sig] = *vec;
  14242. +      return 0;
  14243. +    }
  14244. +  errno = EINVAL;
  14245. +  return -1;
  14246. +}
  14247. +
  14248. +void (*signal(int sig,void (*fn)(int)))(int)
  14249. +{
  14250. +  struct sigvec vec, ovec;
  14251. +
  14252. +  vec.sv_handler = fn;
  14253. +  vec.sv_mask = 0;
  14254. +  /*vec.sv_flags = 0;*/
  14255. +  if (sigvec(sig, &vec, &ovec)) return -1;
  14256. +  return ovec.sv_handler;
  14257. +}
  14258. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/signals.c amiga/fsf/emacs18/amiga/unix/src/signals.c
  14259. --- baseline/fsf/emacs18/amiga/unix/src/signals.c    Wed Dec 31 17:00:00 1969
  14260. +++ amiga/fsf/emacs18/amiga/unix/src/signals.c    Sat Sep 28 00:00:00 1996
  14261. @@ -0,0 +1,211 @@
  14262. +#include "amiga.h"
  14263. +#include "timers.h"
  14264. +#include "signals.h"
  14265. +#include "processes.h"
  14266. +
  14267. +static ULONG signalsigs;    /* When one of these occur, call handle_signals */
  14268. +struct sigvec _sig_handlers[NSIG];
  14269. +long _sig_mask, _sig_pending;
  14270. +
  14271. +/* Alarm signal */
  14272. +/* ------------ */
  14273. +
  14274. +static struct timeinfo *alarm_timer;
  14275. +
  14276. +static int check_alarm(ULONG sigs)
  14277. +{
  14278. +  return alarm_timer && _timer_expired(alarm_timer);
  14279. +}
  14280. +
  14281. +void alarm(int secs)
  14282. +/* Effect: Schedule a SIGALRM after secs seconds
  14283. +*/
  14284. +{
  14285. +  _timer_start(alarm_timer, secs, 0);
  14286. +}
  14287. +
  14288. +static void init_alarm(void)
  14289. +{
  14290. +  if (!(alarm_timer = _alloc_timer())) _fail("Failed to create timer");
  14291. +  signalsigs |= _timer_sig(alarm_timer);
  14292. +}
  14293. +
  14294. +static void cleanup_alarm(void)
  14295. +{
  14296. +  _free_timer(alarm_timer);
  14297. +}
  14298. +
  14299. +/* SIGINT definition */
  14300. +/* ----------------- */
  14301. +
  14302. +static void init_sigint(void)
  14303. +{
  14304. +  signalsigs |= SIGBREAKF_CTRL_C;
  14305. +}
  14306. +
  14307. +/*static void cleanup_sigint(void) { }*/
  14308. +
  14309. +static int check_sigint(ULONG sigs)
  14310. +{
  14311. +  return (sigs & SIGBREAKF_CTRL_C) != 0;
  14312. +}
  14313. +
  14314. +/* SIGQUIT definition */
  14315. +/* ------------------ */
  14316. +
  14317. +static void init_sigquit(void)
  14318. +{
  14319. +  signalsigs |= SIGBREAKF_CTRL_D;
  14320. +}
  14321. +
  14322. +/*static void cleanup_sigquit(void) { }*/
  14323. +
  14324. +static int check_sigquit(ULONG sigs)
  14325. +{
  14326. +  return (sigs & SIGBREAKF_CTRL_D) != 0;
  14327. +}
  14328. +
  14329. +/* SIGCHLD definition */
  14330. +/* ------------------ */
  14331. +
  14332. +static void init_children(void)
  14333. +{
  14334. +  _init_processes();
  14335. +  signalsigs |= 1L << _children_exit->mp_SigBit;
  14336. +}
  14337. +
  14338. +static void cleanup_children(void)
  14339. +{
  14340. +  _cleanup_processes();
  14341. +}
  14342. +
  14343. +static int check_children(ULONG sigs)
  14344. +{
  14345. +  struct exit_message *msg;
  14346. +  int change = FALSE;
  14347. +  
  14348. +  while (msg = (struct exit_message *)GetMsg(_children_exit))
  14349. +    {
  14350. +      struct process *p;
  14351. +
  14352. +      if ((p = _find_pid(msg->pid)) && p->status == alive)
  14353. +    {
  14354. +      change = TRUE;
  14355. +      p->status = exited;
  14356. +      p->rc = msg->rc;
  14357. +    }
  14358. +      FreeMem(msg, sizeof(struct exit_message));
  14359. +    }
  14360. +  return change;
  14361. +}
  14362. +
  14363. +/* Signal dispatching */
  14364. +/* ------------------ */
  14365. +
  14366. +void _sig_dispatch(int sig)
  14367. +/* Effect: Do the action associated with signal sig it it isn't masked
  14368. +     Mask it for the duration of the signal exec
  14369. +*/
  14370. +{
  14371. +  void (*fn)(int);
  14372. +  long smask = 1 << sig;
  14373. +
  14374. +  if (sig == SIGKILL) _exit(0);
  14375. +
  14376. +  if (_sig_mask & smask) _sig_pending |= smask;
  14377. +  else
  14378. +    do
  14379. +      {
  14380. +    _sig_pending &= ~smask;
  14381. +    if (sig >= 0 && sig < NSIG)
  14382. +      {
  14383. +        fn = _sig_handlers[sig].sv_handler;
  14384. +
  14385. +        if (fn == SIG_DFL)
  14386. +          switch (sig)
  14387. +        {
  14388. +        case SIGCHLD: case SIGURG: case SIGWINCH: break;
  14389. +        case SIGINT: case SIGQUIT: _message("user interrupt");
  14390. +        default: _exit(0);
  14391. +        }
  14392. +        else if (fn != SIG_IGN)
  14393. +          {
  14394. +        int mask = smask | _sig_handlers[sig].sv_mask;
  14395. +
  14396. +        _sig_mask |= mask;
  14397. +        fn(sig);
  14398. +        _sig_mask &= ~mask;
  14399. +          }
  14400. +      }
  14401. +      }
  14402. +    while (_sig_pending & smask); /* Signal may have been generated during the
  14403. +                     signal handling function. */
  14404. +}
  14405. +
  14406. +ULONG _check_signals(ULONG extra_sigs)
  14407. +{
  14408. +  return SetSignal(0, signalsigs | extra_sigs);
  14409. +}
  14410. +
  14411. +ULONG _wait_signals(ULONG extra_sigs)
  14412. +{
  14413. +  return Wait(signalsigs | extra_sigs);
  14414. +}
  14415. +
  14416. +int _handle_signals(ULONG sigs)
  14417. +{
  14418. +  int signaled = 0;
  14419. +
  14420. +  if (check_alarm(sigs)) { signaled = 1; _sig_dispatch(SIGALRM); }
  14421. +  if (check_sigint(sigs)) { signaled = 1; _sig_dispatch(SIGINT); }
  14422. +  if (check_sigquit(sigs)) { signaled = 1; _sig_dispatch(SIGQUIT); }
  14423. +  if (check_children(sigs)) { signaled = 1; _sig_dispatch(SIGCHLD); }
  14424. +
  14425. +  return signaled;
  14426. +}
  14427. +
  14428. +/* Patch into SAS signal stuff so as to replace it */
  14429. +
  14430. +void CXFERR(int code)
  14431. +{
  14432. +    extern int _FPERR;
  14433. +
  14434. +    _FPERR = code;
  14435. +    _sig_dispatch(SIGFPE);
  14436. +}
  14437. +
  14438. +void chkabort(void)
  14439. +/* Checks all signals */
  14440. +{
  14441. +  _handle_signals(_check_signals(0));
  14442. +}
  14443. +
  14444. +void Chk_Abort(void) { chkabort(); }
  14445. +
  14446. +/* Initialisation */
  14447. +/* -------------- */
  14448. +
  14449. +void _init_signals(void)
  14450. +{
  14451. +  int i;
  14452. +
  14453. +  for (i = 0; i < NSIG; i++)
  14454. +    {
  14455. +      _sig_handlers[i].sv_handler = SIG_DFL;
  14456. +      _sig_handlers[i].sv_mask = 0;
  14457. +      /*_sig_handlers[i].sv_flags = 0;*/
  14458. +    }
  14459. +      
  14460. +  _sig_mask = _sig_pending = 0;
  14461. +  signalsigs = 0;
  14462. +
  14463. +  init_sigint(); init_sigquit(); init_alarm(); init_children();
  14464. +}
  14465. +
  14466. +void _cleanup_signals(void)
  14467. +{
  14468. +  cleanup_alarm();
  14469. +  /*cleanup_sigquit();*/
  14470. +  /*cleanup_sigint();*/
  14471. +  cleanup_children();
  14472. +}
  14473. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/signals.h amiga/fsf/emacs18/amiga/unix/src/signals.h
  14474. --- baseline/fsf/emacs18/amiga/unix/src/signals.h    Wed Dec 31 17:00:00 1969
  14475. +++ amiga/fsf/emacs18/amiga/unix/src/signals.h    Sat Sep 28 00:00:00 1996
  14476. @@ -0,0 +1,21 @@
  14477. +#ifndef SIGNALS_H
  14478. +#define SIGNALS_H
  14479. +
  14480. +#include <signal.h>
  14481. +
  14482. +extern struct sigvec _sig_handlers[NSIG];
  14483. +extern long _sig_mask, _sig_pending;
  14484. +
  14485. +void _sig_dispatch(int sig);
  14486. +/* Effect: Do the action associated with signal sig it it isn't masked
  14487. +     Mask it for the duration of the signal exec
  14488. +*/
  14489. +
  14490. +ULONG _check_signals(ULONG extra_sigs);
  14491. +ULONG _wait_signals(ULONG extra_sigs);
  14492. +int _handle_signals(ULONG sigs);
  14493. +
  14494. +void _init_signals(void);
  14495. +void _cleanup_signals(void);
  14496. +
  14497. +#endif
  14498. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/sigpause.c amiga/fsf/emacs18/amiga/unix/src/sigpause.c
  14499. --- baseline/fsf/emacs18/amiga/unix/src/sigpause.c    Wed Dec 31 17:00:00 1969
  14500. +++ amiga/fsf/emacs18/amiga/unix/src/sigpause.c    Sat Sep 28 00:00:00 1996
  14501. @@ -0,0 +1,16 @@
  14502. +#include "amiga.h"
  14503. +#include "signals.h"
  14504. +
  14505. +int sigpause(long mask)
  14506. +{
  14507. +  long oldmask = sigsetmask(mask);
  14508. +  ULONG sigs;
  14509. +
  14510. +  sigs = _check_signals(0);
  14511. +  while (!_handle_signals(sigs)) sigs = _wait_signals(0);
  14512. +  
  14513. +  sigsetmask(oldmask);
  14514. +
  14515. +  errno = EINTR;
  14516. +  return -1;
  14517. +}
  14518. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/sigsetmask.c amiga/fsf/emacs18/amiga/unix/src/sigsetmask.c
  14519. --- baseline/fsf/emacs18/amiga/unix/src/sigsetmask.c    Wed Dec 31 17:00:00 1969
  14520. +++ amiga/fsf/emacs18/amiga/unix/src/sigsetmask.c    Sat Sep 28 00:00:00 1996
  14521. @@ -0,0 +1,22 @@
  14522. +#include "amiga.h"
  14523. +#include "signals.h"
  14524. +
  14525. +long sigsetmask(long mask)
  14526. +{
  14527. +  int oldmask = _sig_mask, i, imask;
  14528. +
  14529. +  chkabort();
  14530. +  _sig_mask = mask;
  14531. +
  14532. +  /* Check all pending signals */
  14533. +  for (i = 0, imask = 1; i < NSIG; i++, imask <<= 1)
  14534. +    if ((_sig_pending & imask) && !(_sig_mask & imask))
  14535. +      _sig_dispatch(i);
  14536. +
  14537. +  return oldmask;
  14538. +}
  14539. +
  14540. +long sigblock(long mask)
  14541. +{
  14542. +  return sigsetmask(_sig_mask | mask);
  14543. +}
  14544. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/sleep.c amiga/fsf/emacs18/amiga/unix/src/sleep.c
  14545. --- baseline/fsf/emacs18/amiga/unix/src/sleep.c    Wed Dec 31 17:00:00 1969
  14546. +++ amiga/fsf/emacs18/amiga/unix/src/sleep.c    Sat Sep 28 00:00:00 1996
  14547. @@ -0,0 +1,13 @@
  14548. +#include "amiga.h"
  14549. +#include "timers.h"
  14550. +#include "signals.h"
  14551. +
  14552. +int sleep(unsigned seconds)
  14553. +{
  14554. +  chkabort();
  14555. +  _timer_start(_odd_timer, seconds, 0);
  14556. +
  14557. +  while (!_timer_expired(_odd_timer)) _handle_signals(_wait_signals(_odd_sig));
  14558. +
  14559. +  return 0;
  14560. +}
  14561. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/smakefile amiga/fsf/emacs18/amiga/unix/src/smakefile
  14562. --- baseline/fsf/emacs18/amiga/unix/src/smakefile    Wed Dec 31 17:00:00 1969
  14563. +++ amiga/fsf/emacs18/amiga/unix/src/smakefile    Sat Sep 28 00:00:00 1996
  14564. @@ -0,0 +1,128 @@
  14565. +OBJS=  mkdir.o devices.o processes.o kill.o abort.o error.o error_msg.o \
  14566. +       fcntl.o select.o read.o lseek.o chmod.o getwd.o mktemp.o link.o \
  14567. +       getenv.o time.o write.o creat.o sleep.o uid.o exec.o truncate.o \
  14568. +       strftime.o rmdir.o sigpause.o isatty.o mkfifo.o fchmod.o ftruncate.o \
  14569. +       bzero.o fibstat.o bcmp.o chown.o rename.o amigaos.o ctime.o open.o \
  14570. +       ioctl.o _exit.o gid.o protection.o umask.o _main.o signals.o grp.o \
  14571. +       pipe.o unlink.o alloca.o readlink.o pwd.o timeconvert.o amigatime.o \
  14572. +       bcopy.o utime.o files.o close.o fifofd.o timers.o index.o rindex.o \
  14573. +       pseudo_c.o wait4.o siglist.o perror.o gethostname.o setjmp.o allocdos.o \
  14574. +       message.o symlink.o fstat.o access.o dir_data.o dir.o stat.o \
  14575. +       sigsetmask.o signal.o getpid.o start.o popen.o tmpnam.o
  14576. +
  14577. +DEFS = define=SOFTLINK
  14578. +OPTIMIZE = opt
  14579. +CFLAGS = $(OPTS) $(DEFS) gst=amiga.sym $(OPTIMIZE)
  14580. +
  14581. +all: amiga.sym unix.lib unix-hard.lib
  14582. +
  14583. +ALLOBJS = $(OBJS) sprintf.o _setjmp.o
  14584. +
  14585. +unix.lib: $(ALLOBJS)
  14586. +    -delete unix.lib ram:unix.lib
  14587. +    oml ram:unix.lib <@<
  14588. +r $(ALLOBJS)
  14589. +<
  14590. +    copy ram:unix.lib ""
  14591. +
  14592. +unix-hard.lib: unix.lib fibstat-hard.o
  14593. +    copy unix.lib ram:
  14594. +    oml ram:unix.lib d fibstat.c
  14595. +    oml ram:unix.lib r fibstat-hard.o
  14596. +    copy ram:unix.lib unix-hard.lib
  14597. +
  14598. +sprintf.o: sprintf.asm
  14599. +    asm -osprintf.o -iINCLUDE: sprintf.asm
  14600. +
  14601. +_setjmp.o: _setjmp.asm
  14602. +    asm -o_setjmp.o -iINCLUDE: _setjmp.asm
  14603. +
  14604. +amiga.sym: amiga.h
  14605. +    copy amiga.h am.c
  14606. +    sc makegst=amiga.sym $(OPTS) am.c
  14607. +    delete am.c
  14608. +
  14609. +fibstat-hard.o: fibstat.c
  14610. +    $(CC) $(CFLAGS) DEF PRETEND_LINKED objname $@ fibstat.c
  14611. +
  14612. +mkdir.o: mkdir.c amiga.h
  14613. +devices.o: devices.c amiga.h
  14614. +processes.o: processes.c processes.h amiga.h
  14615. +kill.o: kill.c processes.h signals.h amiga.h
  14616. +abort.o: abort.c amiga.h
  14617. +error.o: error.c amiga.h
  14618. +error_msg.o: error_msg.c amiga.h
  14619. +fcntl.o: fcntl.c amiga.h
  14620. +select.o: select.c signals.h amiga.h
  14621. +read.o: read.c amiga.h
  14622. +lseek.o: lseek.c amiga.h
  14623. +chmod.o: chmod.c amiga.h
  14624. +getwd.o: getwd.c amiga.h
  14625. +mktemp.o: mktemp.c amiga.h
  14626. +link.o: link.c amiga.h
  14627. +getenv.o: getenv.c amiga.h
  14628. +time.o: time.c timeconvert.h amiga.h
  14629. +write.o: write.c amiga.h
  14630. +creat.o: creat.c amiga.h
  14631. +sleep.o: sleep.c signals.h amiga.h
  14632. +uid.o: uid.c amiga.h
  14633. +exec.o: exec.c processes.h amiga.h
  14634. +truncate.o: truncate.c amigaos.h amiga.h
  14635. +strftime.o: strftime.c
  14636. +rmdir.o: rmdir.c amiga.h
  14637. +sigpause.o: sigpause.c signals.h amiga.h
  14638. +isatty.o: isatty.c amiga.h
  14639. +mkfifo.o: mkfifo.c amiga.h
  14640. +fchmod.o: fchmod.c amiga.h
  14641. +ftruncate.o: ftruncate.c amiga.h
  14642. +bzero.o: bzero.c amiga.h
  14643. +fibstat.o: fibstat.c timeconvert.h fibstat.h amiga.h
  14644. +bcmp.o: bcmp.c amiga.h
  14645. +chown.o: chown.c amiga.h
  14646. +rename.o: rename.c amiga.h
  14647. +amigaos.o: amigaos.c signals.h amiga.h
  14648. +ctime.o: ctime.c
  14649. +open.o: open.c amigaos.h amiga.h
  14650. +ioctl.o: ioctl.c amiga.h
  14651. +_exit.o: _exit.c fifo_pragmas.h fifo.h fifofd.h signals.h amiga.h
  14652. +gid.o: gid.c amiga.h
  14653. +protection.o: protection.c amiga.h
  14654. +umask.o: umask.c amiga.h
  14655. +_main.o: _main.c fifo_pragmas.h fifo.h amigaos.h fifofd.h signals.h amiga.h
  14656. +signals.o: signals.c processes.h signals.h amiga.h
  14657. +grp.o: grp.c amiga.h
  14658. +pipe.o: pipe.c fifo_pragmas.h fifo.h fifofd.h signals.h amiga.h
  14659. +unlink.o: unlink.c amiga.h
  14660. +alloca.o: alloca.c
  14661. +readlink.o: readlink.c amiga.h
  14662. +pwd.o: pwd.c amiga.h
  14663. +timeconvert.o: timeconvert.c timeconvert.h amiga.h
  14664. +amigatime.o: amigatime.c timeconvert.h amiga.h
  14665. +bcopy.o: bcopy.c amiga.h
  14666. +utime.o: utime.c timeconvert.h amiga.h
  14667. +files.o: files.c amiga.h
  14668. +close.o: close.c amiga.h
  14669. +fifofd.o: fifofd.c fifo_pragmas.h fifo.h fifofd.h amiga.h
  14670. +timers.o: timers.c amiga.h
  14671. +index.o: index.c
  14672. +rindex.o: rindex.c
  14673. +pseudo_c.o: pseudo_c.c amiga.h
  14674. +wait4.o: wait4.c processes.h signals.h amiga.h
  14675. +siglist.o: siglist.c
  14676. +perror.o: perror.c amiga.h
  14677. +gethostname.o: gethostname.c amiga.h
  14678. +setjmp.o: setjmp.c signals.h amiga.h
  14679. +allocdos.o: allocdos.c
  14680. +message.o: message.c amiga.h
  14681. +symlink.o: symlink.c amiga.h
  14682. +fstat.o: fstat.c fibstat.h amiga.h
  14683. +access.o: access.c fibstat.h amiga.h
  14684. +dir_data.o: dir_data.c dir_data.h amiga.h
  14685. +dir.o: dir.c dir_data.h amiga.h
  14686. +stat.o: stat.c dir_data.h fibstat.h amiga.h
  14687. +sigsetmask.o: sigsetmask.c signals.h amiga.h
  14688. +signal.o: signal.c signals.h amiga.h
  14689. +getpid.o: getpid.c processes.h amiga.h
  14690. +start.o: start.c processes.h amiga.h
  14691. +popen.o: popen.c fifo_pragmas.h fifo.h processes.h fifofd.h amiga.h
  14692. +tmpnam.o: tmpnam.c amiga.h
  14693. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/smakefile.base amiga/fsf/emacs18/amiga/unix/src/smakefile.base
  14694. --- baseline/fsf/emacs18/amiga/unix/src/smakefile.base    Wed Dec 31 17:00:00 1969
  14695. +++ amiga/fsf/emacs18/amiga/unix/src/smakefile.base    Sat Sep 28 00:00:00 1996
  14696. @@ -0,0 +1,26 @@
  14697. +DEFS = define=SOFTLINK
  14698. +OPTIMIZE = debug=sf
  14699. +CFLAGS = $(OPTS) $(DEFS) gst=amiga.sym $(OPTIMIZE)
  14700. +
  14701. +all: amiga.sym unix.lib
  14702. +
  14703. +ALLOBJS = $(OBJS) sprintf.o _setjmp.o
  14704. +
  14705. +unix.lib: $(ALLOBJS)
  14706. +    -delete unix.lib ram:unix.lib
  14707. +    oml ram:unix.lib <@<
  14708. +r $(ALLOBJS)
  14709. +<
  14710. +    copy ram:unix.lib ""
  14711. +
  14712. +sprintf.o: sprintf.asm
  14713. +    asm -osprintf.o -iINCLUDE: sprintf.asm
  14714. +
  14715. +_setjmp.o: _setjmp.asm
  14716. +    asm -o_setjmp.o -iINCLUDE: _setjmp.asm
  14717. +
  14718. +amiga.sym: amiga.h
  14719. +    copy amiga.h am.c
  14720. +    sc makegst=amiga.sym $(OPTS) am.c
  14721. +    delete am.c
  14722. +
  14723. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/sprintf.asm amiga/fsf/emacs18/amiga/unix/src/sprintf.asm
  14724. --- baseline/fsf/emacs18/amiga/unix/src/sprintf.asm    Wed Dec 31 17:00:00 1969
  14725. +++ amiga/fsf/emacs18/amiga/unix/src/sprintf.asm    Sat Sep 28 00:00:00 1996
  14726. @@ -0,0 +1,29 @@
  14727. +    XDEF __sprintf
  14728. +    XREF _AbsExecBase
  14729. +    XREF _LVORawDoFmt
  14730. +
  14731. +    csect    text,0,,2,2
  14732. +
  14733. +__sprintf
  14734. +save    equ    16
  14735. +    movem.l    a2/a3/a6/d2,-(a7)    ; save bytes copied to stack
  14736. +
  14737. +    move.l    save+8(a7),a0
  14738. +    lea    save+12(a7),a1
  14739. +    lea    copychar(pc),a2
  14740. +    move.l    save+4(a7),a3
  14741. +    move.l    a3,d2
  14742. +
  14743. +    move.l    _AbsExecBase,a6
  14744. +    jsr    _LVORawDoFmt(a6)
  14745. +    move.l    a3,d0            ; # of characters printed
  14746. +    sub.l    d2,d0
  14747. +
  14748. +    movem.l    (a7)+,a2/a3/a6/d2
  14749. +    rts
  14750. +    
  14751. +copychar
  14752. +    move.b    d0,(a3)+
  14753. +    rts
  14754. +
  14755. +    end
  14756. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/start.c amiga/fsf/emacs18/amiga/unix/src/start.c
  14757. --- baseline/fsf/emacs18/amiga/unix/src/start.c    Wed Dec 31 17:00:00 1969
  14758. +++ amiga/fsf/emacs18/amiga/unix/src/start.c    Sat Sep 28 00:00:00 1996
  14759. @@ -0,0 +1,118 @@
  14760. +#include "amiga.h"
  14761. +#include "processes.h"
  14762. +#include <amiga/ioctl.h>
  14763. +#include <exec/memory.h>
  14764. +#include <dos/dosextens.h>
  14765. +#include <dos/dostags.h>
  14766. +#include <string.h>
  14767. +
  14768. +/* Variables used by a child that is starting up */
  14769. +struct MemList *_child_entry;    /* Memory used for child's code */
  14770. +static struct Message startup_message;
  14771. +struct exit_message *_child_exit;
  14772. +char *_child_command;
  14773. +int _child_command_len;
  14774. +char *_child_door_name;
  14775. +
  14776. +static void __saveds __interrupt _child_startup(void)
  14777. +{
  14778. +  struct exit_message *exit = _child_exit;
  14779. +  char *command = _child_command;
  14780. +  int command_len = _child_command_len;
  14781. +  char *door_name = _child_door_name;
  14782. +  struct Process *us = (struct Process *)FindTask(0);
  14783. +  struct DOSBase *local_DOSBase = DOSBase;
  14784. +#pragma libcall local_DOSBase local_SystemTagList 25E 2102
  14785. +  struct TagItem stags[2];
  14786. +  struct MsgPort *parent;
  14787. +
  14788. +  AddTail(&us->pr_Task.tc_MemEntry, _child_entry);
  14789. +
  14790. +  PutMsg(_startup_port, &startup_message);
  14791. +
  14792. +  /* From now on parent may disappear */
  14793. +  stags[0].ti_Tag = SYS_UserShell; stags[0].ti_Data = TRUE;
  14794. +  stags[1].ti_Tag = TAG_END;
  14795. +  exit->rc = local_SystemTagList(command, stags) << 8;
  14796. +
  14797. +  /* Send result to parent if he is around */
  14798. +  Forbid();
  14799. +  if (parent = FindPort(door_name)) PutMsg(parent, exit);
  14800. +  else FreeMem(exit, sizeof(struct exit_message));
  14801. +  Permit();
  14802. +
  14803. +  FreeMem(door_name, DOOR_LEN);
  14804. +  FreeMem(command, command_len);
  14805. +}
  14806. +
  14807. +int _start_process(char *command,
  14808. +           BPTR input, int close_input,
  14809. +           BPTR output, int close_output,
  14810. +           BPTR error, int close_error,
  14811. +           BPTR dir,
  14812. +           long stacksize)
  14813. +{
  14814. +  struct process *entry = (struct process *)malloc(sizeof(struct process));
  14815. +  static struct MemList alloc_child = { { 0 }, 1 };
  14816. +
  14817. +  _child_command_len = strlen(command) + 1;
  14818. +  _child_command = AllocMem(_child_command_len, MEMF_PUBLIC);
  14819. +  strcpy(_child_command, command);
  14820. +
  14821. +  _child_exit = AllocMem(sizeof(struct exit_message), MEMF_PUBLIC);
  14822. +  _child_door_name = AllocMem(DOOR_LEN, MEMF_PUBLIC);
  14823. +
  14824. +  alloc_child.ml_ME[0].me_Reqs = MEMF_PUBLIC;
  14825. +  alloc_child.ml_ME[0].me_Length = (char *)&_start_process - (char *)&_child_startup;
  14826. +  _child_entry = AllocEntry(&alloc_child);
  14827. +
  14828. +  if (entry && _child_command && _child_exit && _child_door_name &&
  14829. +      (long)_child_entry > 0)
  14830. +    {
  14831. +      memcpy(_child_entry->ml_ME[0].me_Addr, &_child_startup,
  14832. +         _child_entry->ml_ME[0].me_Length);
  14833. +      strcpy(_child_door_name, _door_name);
  14834. +
  14835. +      entry->pid = _next_pid++;
  14836. +      entry->input = input;
  14837. +
  14838. +      /* This message is sent by the child when it has started */
  14839. +      startup_message.mn_Length = sizeof(startup_message);
  14840. +      startup_message.mn_Node.ln_Type = NT_MESSAGE;
  14841. +
  14842. +      /* This message is sent by the child when it exits */
  14843. +      _child_exit->m.mn_Length = sizeof(*_child_exit);
  14844. +      _child_exit->m.mn_Node.ln_Type = NT_MESSAGE;
  14845. +      _child_exit->pid = entry->pid;
  14846. +
  14847. +      entry->process = CreateNewProcTags(NP_Entry, _child_entry->ml_ME[0].me_Addr,
  14848. +                     NP_Input, input,
  14849. +                     NP_CloseInput, (long)close_input,
  14850. +                     NP_Output, output,
  14851. +                     NP_CloseOutput, (long)close_output,
  14852. +                     NP_Error, error,
  14853. +                     NP_CloseError, (long)close_error,
  14854. +                     dir ? NP_CurrentDir : TAG_IGNORE, dir,
  14855. +                     NP_StackSize,
  14856. +                     stacksize > 0 ? stacksize : _stack_size,
  14857. +                     NP_Cli, TRUE,
  14858. +                     TAG_END);
  14859. +      if (entry->process)
  14860. +    {
  14861. +      do WaitPort(_startup_port); while (!GetMsg(_startup_port));
  14862. +      entry->status = alive;
  14863. +      AddHead((struct List *)&_processes, (struct Node *)entry);
  14864. +      return entry->pid;
  14865. +    }
  14866. +      errno = convert_oserr(IoErr());
  14867. +    }
  14868. +  else errno = ENOMEM;
  14869. +
  14870. +  if (entry) free(entry);
  14871. +  if (_child_command) FreeMem(_child_command, _child_command_len);
  14872. +  if (_child_exit) FreeMem(_child_exit, sizeof(struct exit_message));
  14873. +  if (_child_door_name) FreeMem(_child_door_name, DOOR_LEN);
  14874. +  if ((long)_child_entry > 0) FreeEntry(_child_entry);
  14875. +
  14876. +  return -1;
  14877. +}
  14878. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/stat.c amiga/fsf/emacs18/amiga/unix/src/stat.c
  14879. --- baseline/fsf/emacs18/amiga/unix/src/stat.c    Wed Dec 31 17:00:00 1969
  14880. +++ amiga/fsf/emacs18/amiga/unix/src/stat.c    Sat Sep 28 00:00:00 1996
  14881. @@ -0,0 +1,96 @@
  14882. +#include "amiga.h"
  14883. +#include "fibstat.h"
  14884. +#include "dir_data.h"
  14885. +#include <sys/stat.h>
  14886. +#include <string.h>
  14887. +
  14888. +static int attach (char *dest, int dlen, char *dirname, char *name)
  14889. +{
  14890. +  char *dirnamep = dirname;
  14891. +  
  14892. +  while (*dirnamep && --dlen > 0)
  14893. +    *dest++ = *dirnamep++;
  14894. +  /* Add '/' if `dirname' doesn't already end with it. */
  14895. +  if (dirnamep > dirname && dirnamep[-1] != '/' && dirnamep[-1] != ':' && --dlen > 0)
  14896. +    *dest++ = '/';
  14897. +  
  14898. +  while (*name && --dlen > 0)
  14899. +    *dest++ = *name++;
  14900. +  *dest = 0;
  14901. +  
  14902. +  return dlen > 0;
  14903. +}
  14904. +
  14905. +static struct FileInfoBlock fakefib;
  14906. +
  14907. +static int fakestat(int soft, char *name, struct stat *sbuf)
  14908. +{
  14909. +  /* See if we want information on the last file returned from readdir */
  14910. +  if (last_dir)
  14911. +    {
  14912. +      iDIR *last_info = (iDIR *)last_dir->dd_buf;
  14913. +  
  14914. +      if (last_info->cdir == _get_cd() &&
  14915. +      attach(_temp_fname, FNAMESIZE - 1, last_info->dirname,
  14916. +         last_entry->entry.d_name) &&
  14917. +      strcmp(_temp_fname, name) == 0 &&
  14918. +      (soft || last_entry->type != ST_SOFTLINK))
  14919. +    {
  14920. +      if (last_entry->type == ST_LINKFILE || last_entry->type == ST_LINKDIR)
  14921. +        {
  14922. +          /* Find real block, this allows tar to detect hard links */
  14923. +          BPTR cd = CurrentDir(last_dir->dd_fd);
  14924. +          BPTR l = Lock(last_entry->entry.d_name, ACCESS_READ);
  14925. +
  14926. +          if (l)
  14927. +        {
  14928. +          Examine(l, &fakefib);
  14929. +          UnLock(l);
  14930. +        }
  14931. +          CurrentDir(cd);
  14932. +        }
  14933. +      else
  14934. +        fakefib.fib_DiskKey = last_entry->entry.d_ino;
  14935. +
  14936. +      fakefib.fib_NumBlocks = last_entry->numblocks;
  14937. +      fakefib.fib_Size = last_entry->size;
  14938. +      fakefib.fib_Date = last_entry->date;
  14939. +      fakefib.fib_DirEntryType = last_entry->type;
  14940. +      fakefib.fib_Protection = last_entry->protection;
  14941. +      
  14942. +      _lfibstat(name, &fakefib, last_info->task, 0, sbuf);
  14943. +
  14944. +      return 1;
  14945. +    }
  14946. +    }
  14947. +  return 0;
  14948. +}
  14949. +
  14950. +int stat(char *name, struct stat *sbuf)
  14951. +{
  14952. +  chkabort();
  14953. +  if (fakestat(0, name, sbuf)) return 0;
  14954. +  return _fibstat(name, sbuf);
  14955. +}
  14956. +
  14957. +int lstat(char *name, struct stat *sbuf)
  14958. +{
  14959. +  chkabort();
  14960. +  if (fakestat(1, name, sbuf)) return 0;
  14961. +  if (readlink(name, _temp_fname, FNAMESIZE - 1) < 0) return _fibstat(name, sbuf);
  14962. +
  14963. +  /* Symbolic link, fake a stat block */
  14964. +  sbuf->st_dev = 0;
  14965. +  sbuf->st_rdev = 0;
  14966. +  sbuf->st_uid = AMIGA_UID; sbuf->st_gid = AMIGA_GID;
  14967. +  sbuf->st_blksize = 512;
  14968. +  sbuf->st_nlink = 1;        
  14969. +  sbuf->st_blocks = 0;
  14970. +  sbuf->st_size = strlen(_temp_fname);
  14971. +  sbuf->st_ino = 0;
  14972. +  /* 1-Jan-1978 */
  14973. +  sbuf->st_ctime = sbuf->st_atime = sbuf->st_mtime = 252460800;
  14974. +  sbuf->st_mode = S_IFLNK | 0777;
  14975. +
  14976. +  return 0;
  14977. +}
  14978. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/strftime.c amiga/fsf/emacs18/amiga/unix/src/strftime.c
  14979. --- baseline/fsf/emacs18/amiga/unix/src/strftime.c    Wed Dec 31 17:00:00 1969
  14980. +++ amiga/fsf/emacs18/amiga/unix/src/strftime.c    Sat Sep 28 00:00:00 1996
  14981. @@ -0,0 +1,291 @@
  14982. +/*
  14983. + * Copyright (c) 1989 The Regents of the University of California.
  14984. + * All rights reserved.
  14985. + *
  14986. + * Redistribution and use in source and binary forms, with or without
  14987. + * modification, are permitted provided that the following conditions
  14988. + * are met:
  14989. + * 1. Redistributions of source code must retain the above copyright
  14990. + *    notice, this list of conditions and the following disclaimer.
  14991. + * 2. Redistributions in binary form must reproduce the above copyright
  14992. + *    notice, this list of conditions and the following disclaimer in the
  14993. + *    documentation and/or other materials provided with the distribution.
  14994. + * 3. All advertising materials mentioning features or use of this software
  14995. + *    must display the following acknowledgement:
  14996. + *    This product includes software developed by the University of
  14997. + *    California, Berkeley and its contributors.
  14998. + * 4. Neither the name of the University nor the names of its contributors
  14999. + *    may be used to endorse or promote products derived from this software
  15000. + *    without specific prior written permission.
  15001. + *
  15002. + * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  15003. + * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  15004. + * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  15005. + * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  15006. + * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  15007. + * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  15008. + * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  15009. + * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  15010. + * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  15011. + * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  15012. + * SUCH DAMAGE.
  15013. + */
  15014. +
  15015. +#if defined(LIBC_SCCS) && !defined(lint)
  15016. +static char sccsid[] = "@(#)strftime.c    5.11 (Berkeley) 2/24/91";
  15017. +#endif /* LIBC_SCCS and not lint */
  15018. +
  15019. +#include <sys/types.h>
  15020. +#include <sys/time.h>
  15021. +#include <tzfile.h>
  15022. +#include <string.h>
  15023. +
  15024. +static char *afmt[] = {
  15025. +    "Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat",
  15026. +};
  15027. +static char *Afmt[] = {
  15028. +    "Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday",
  15029. +    "Saturday",
  15030. +};
  15031. +static char *bfmt[] = {
  15032. +    "Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep",
  15033. +    "Oct", "Nov", "Dec",
  15034. +};
  15035. +static char *Bfmt[] = {
  15036. +    "January", "February", "March", "April", "May", "June", "July",
  15037. +    "August", "September", "October", "November", "December",
  15038. +};
  15039. +
  15040. +static size_t gsize;
  15041. +static char *pt;
  15042. +static int _add(), _conv(), _secs();
  15043. +
  15044. +size_t
  15045. +strftime(s, maxsize, format, t)
  15046. +    char *s;
  15047. +    size_t maxsize;
  15048. +    const char *format;
  15049. +    const struct tm *t;
  15050. +{
  15051. +    static size_t _fmt();
  15052. +
  15053. +    pt = s;
  15054. +    if ((gsize = maxsize) < 1)
  15055. +        return(0);
  15056. +    if (_fmt(format, t)) {
  15057. +        *pt = '\0';
  15058. +        return(maxsize - gsize);
  15059. +    }
  15060. +    return(0);
  15061. +}
  15062. +
  15063. +static size_t
  15064. +_fmt(format, t)
  15065. +    register char *format;
  15066. +    struct tm *t;
  15067. +{
  15068. +    for (; *format; ++format) {
  15069. +        if (*format == '%')
  15070. +            switch(*++format) {
  15071. +            case '\0':
  15072. +                --format;
  15073. +                break;
  15074. +            case 'A':
  15075. +                if (t->tm_wday < 0 || t->tm_wday > 6)
  15076. +                    return(0);
  15077. +                if (!_add(Afmt[t->tm_wday]))
  15078. +                    return(0);
  15079. +                continue;
  15080. +            case 'a':
  15081. +                if (t->tm_wday < 0 || t->tm_wday > 6)
  15082. +                    return(0);
  15083. +                if (!_add(afmt[t->tm_wday]))
  15084. +                    return(0);
  15085. +                continue;
  15086. +            case 'B':
  15087. +                if (t->tm_mon < 0 || t->tm_mon > 11)
  15088. +                    return(0);
  15089. +                if (!_add(Bfmt[t->tm_mon]))
  15090. +                    return(0);
  15091. +                continue;
  15092. +            case 'b':
  15093. +            case 'h':
  15094. +                if (t->tm_mon < 0 || t->tm_mon > 11)
  15095. +                    return(0);
  15096. +                if (!_add(bfmt[t->tm_mon]))
  15097. +                    return(0);
  15098. +                continue;
  15099. +            case 'C':
  15100. +                if (!_fmt("%a %b %e %H:%M:%S %Y", t))
  15101. +                    return(0);
  15102. +                continue;
  15103. +            case 'c':
  15104. +                if (!_fmt("%m/%d/%y %H:%M:%S", t))
  15105. +                    return(0);
  15106. +                continue;
  15107. +            case 'D':
  15108. +                if (!_fmt("%m/%d/%y", t))
  15109. +                    return(0);
  15110. +                continue;
  15111. +            case 'd':
  15112. +                if (!_conv(t->tm_mday, 2, '0'))
  15113. +                    return(0);
  15114. +                continue;
  15115. +            case 'e':
  15116. +                if (!_conv(t->tm_mday, 2, ' '))
  15117. +                    return(0);
  15118. +                continue;
  15119. +            case 'H':
  15120. +                if (!_conv(t->tm_hour, 2, '0'))
  15121. +                    return(0);
  15122. +                continue;
  15123. +            case 'I':
  15124. +                if (!_conv(t->tm_hour % 12 ?
  15125. +                    t->tm_hour % 12 : 12, 2, '0'))
  15126. +                    return(0);
  15127. +                continue;
  15128. +            case 'j':
  15129. +                if (!_conv(t->tm_yday + 1, 3, '0'))
  15130. +                    return(0);
  15131. +                continue;
  15132. +            case 'k':
  15133. +                if (!_conv(t->tm_hour, 2, ' '))
  15134. +                    return(0);
  15135. +                continue;
  15136. +            case 'l':
  15137. +                if (!_conv(t->tm_hour % 12 ?
  15138. +                    t->tm_hour % 12 : 12, 2, ' '))
  15139. +                    return(0);
  15140. +                continue;
  15141. +            case 'M':
  15142. +                if (!_conv(t->tm_min, 2, '0'))
  15143. +                    return(0);
  15144. +                continue;
  15145. +            case 'm':
  15146. +                if (!_conv(t->tm_mon + 1, 2, '0'))
  15147. +                    return(0);
  15148. +                continue;
  15149. +            case 'n':
  15150. +                if (!_add("\n"))
  15151. +                    return(0);
  15152. +                continue;
  15153. +            case 'p':
  15154. +                if (!_add(t->tm_hour >= 12 ? "PM" : "AM"))
  15155. +                    return(0);
  15156. +                continue;
  15157. +            case 'R':
  15158. +                if (!_fmt("%H:%M", t))
  15159. +                    return(0);
  15160. +                continue;
  15161. +            case 'r':
  15162. +                if (!_fmt("%I:%M:%S %p", t))
  15163. +                    return(0);
  15164. +                continue;
  15165. +            case 'S':
  15166. +                if (!_conv(t->tm_sec, 2, '0'))
  15167. +                    return(0);
  15168. +                continue;
  15169. +            case 's':
  15170. +                if (!_secs(t))
  15171. +                    return(0);
  15172. +                continue;
  15173. +            case 'T':
  15174. +            case 'X':
  15175. +                if (!_fmt("%H:%M:%S", t))
  15176. +                    return(0);
  15177. +                continue;
  15178. +            case 't':
  15179. +                if (!_add("\t"))
  15180. +                    return(0);
  15181. +                continue;
  15182. +            case 'U':
  15183. +                if (!_conv((t->tm_yday + 7 - t->tm_wday) / 7,
  15184. +                    2, '0'))
  15185. +                    return(0);
  15186. +                continue;
  15187. +            case 'W':
  15188. +                if (!_conv((t->tm_yday + 7 -
  15189. +                    (t->tm_wday ? (t->tm_wday - 1) : 6))
  15190. +                    / 7, 2, '0'))
  15191. +                    return(0);
  15192. +                continue;
  15193. +            case 'w':
  15194. +                if (!_conv(t->tm_wday, 1, '0'))
  15195. +                    return(0);
  15196. +                continue;
  15197. +            case 'x':
  15198. +                if (!_fmt("%m/%d/%y", t))
  15199. +                    return(0);
  15200. +                continue;
  15201. +            case 'y':
  15202. +                if (!_conv((t->tm_year + TM_YEAR_BASE)
  15203. +                    % 100, 2, '0'))
  15204. +                    return(0);
  15205. +                continue;
  15206. +            case 'Y':
  15207. +                if (!_conv(t->tm_year + TM_YEAR_BASE, 4, '0'))
  15208. +                    return(0);
  15209. +                continue;
  15210. +            case 'Z':
  15211. +                if (!t->tm_zone || !_add(t->tm_zone))
  15212. +                    return(0);
  15213. +                continue;
  15214. +            case '%':
  15215. +            /*
  15216. +             * X311J/88-090 (4.12.3.5): if conversion char is
  15217. +             * undefined, behavior is undefined.  Print out the
  15218. +             * character itself as printf(3) does.
  15219. +             */
  15220. +            default:
  15221. +                break;
  15222. +        }
  15223. +        if (!gsize--)
  15224. +            return(0);
  15225. +        *pt++ = *format;
  15226. +    }
  15227. +    return(gsize);
  15228. +}
  15229. +
  15230. +static
  15231. +_secs(t)
  15232. +    struct tm *t;
  15233. +{
  15234. +    static char buf[15];
  15235. +    register time_t s;
  15236. +    register char *p;
  15237. +    struct tm tmp;
  15238. +
  15239. +    /* Make a copy, mktime(3) modifies the tm struct. */
  15240. +    tmp = *t;
  15241. +    s = mktime(&tmp);
  15242. +    for (p = buf + sizeof(buf) - 2; s > 0 && p > buf; s /= 10)
  15243. +        *p-- = s % 10 + '0';
  15244. +    return(_add(++p));
  15245. +}
  15246. +
  15247. +static
  15248. +_conv(n, digits, pad)
  15249. +    int n, digits;
  15250. +    char pad;
  15251. +{
  15252. +    static char buf[10];
  15253. +    register char *p;
  15254. +
  15255. +    for (p = buf + sizeof(buf) - 2; n > 0 && p > buf; n /= 10, --digits)
  15256. +        *p-- = n % 10 + '0';
  15257. +    while (p > buf && digits-- > 0)
  15258. +        *p-- = pad;
  15259. +    return(_add(++p));
  15260. +}
  15261. +
  15262. +static
  15263. +_add(str)
  15264. +    register char *str;
  15265. +{
  15266. +    for (;; ++pt, --gsize) {
  15267. +        if (!gsize)
  15268. +            return(0);
  15269. +        if (!(*pt = *str++))
  15270. +            return(1);
  15271. +    }
  15272. +}
  15273. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/symlink.c amiga/fsf/emacs18/amiga/unix/src/symlink.c
  15274. --- baseline/fsf/emacs18/amiga/unix/src/symlink.c    Wed Dec 31 17:00:00 1969
  15275. +++ amiga/fsf/emacs18/amiga/unix/src/symlink.c    Sat Sep 28 00:00:00 1996
  15276. @@ -0,0 +1,14 @@
  15277. +#include "amiga.h"
  15278. +
  15279. +int symlink(char *from, char *to)
  15280. +{
  15281. +#ifdef SOFTLINK
  15282. +  chkabort();
  15283. +  if (MakeLink(to, from, 1)) return 0;
  15284. +  ERROR;
  15285. +#else
  15286. +  _OSERR = ERROR_NOT_IMPLEMENTED;
  15287. +  errno = EOSERR;
  15288. +  return -1;
  15289. +#endif
  15290. +}
  15291. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/time.c amiga/fsf/emacs18/amiga/unix/src/time.c
  15292. --- baseline/fsf/emacs18/amiga/unix/src/time.c    Wed Dec 31 17:00:00 1969
  15293. +++ amiga/fsf/emacs18/amiga/unix/src/time.c    Sat Sep 28 00:00:00 1996
  15294. @@ -0,0 +1,12 @@
  15295. +#include "amiga.h"
  15296. +#include "timeconvert.h"
  15297. +
  15298. +time_t time(time_t *clock)
  15299. +{
  15300. +  struct timeval now;
  15301. +
  15302. +  if (_gettime(&now) < 0) return -1;
  15303. +  if (clock) *clock = now.tv_secs;
  15304. +
  15305. +  return (time_t)now.tv_secs;
  15306. +}
  15307. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/timeconvert.c amiga/fsf/emacs18/amiga/unix/src/timeconvert.c
  15308. --- baseline/fsf/emacs18/amiga/unix/src/timeconvert.c    Wed Dec 31 17:00:00 1969
  15309. +++ amiga/fsf/emacs18/amiga/unix/src/timeconvert.c    Sat Sep 28 00:00:00 1996
  15310. @@ -0,0 +1,94 @@
  15311. +#include "amiga.h"
  15312. +#include "timeconvert.h"
  15313. +#include <time.h>
  15314. +#include <proto/timer.h>
  15315. +
  15316. +int _gettime(struct timeval *tp)
  15317. +{
  15318. +  struct tm *local;
  15319. +  time_t gmt;
  15320. +
  15321. +  GetSysTime(tp);
  15322. +  /* Correct for different epoch (78 vs 70) */
  15323. +  tp->tv_secs += 252460800;    
  15324. +
  15325. +#ifdef USE_LOCAL
  15326. +  /* correct for timezone */
  15327. +  local = gmtime(&tp->tv_secs);
  15328. +  local->tm_isdst = -1;        /* We don't know about dst */
  15329. +  gmt = mktime(local);
  15330. +
  15331. +  if (gmt == -1)
  15332. +    {
  15333. +      errno = EINVAL;
  15334. +      return -1;
  15335. +    }
  15336. +  tp->tv_secs = gmt;
  15337. +#endif
  15338. +  return 0;
  15339. +}
  15340. +
  15341. +#ifdef USE_LOCAL
  15342. +
  15343. +/* System is storing local time */
  15344. +
  15345. +void _gmt2amiga(time_t time, struct DateStamp *date)
  15346. +{
  15347. +  struct tm *local, *gmt;
  15348. +
  15349. +  local = localtime(&time);
  15350. +  gmt = gmtime(&time);
  15351. +  date->ds_Tick = 50 * local->tm_sec;
  15352. +  date->ds_Minute = local->tm_min + local->tm_hour * 60;
  15353. +
  15354. +  /* Now calculate the day assuming we are in GMT */
  15355. +  date->ds_Days = (time - 252460800) / 86400;
  15356. +  /* And correct by comparing local with GMT */
  15357. +  if (local->tm_year < gmt->tm_year ||
  15358. +      local->tm_year == gmt->tm_year && local->tm_yday < gmt->tm_yday)
  15359. +    date->ds_Days--;
  15360. +  if (local->tm_year > gmt->tm_year ||
  15361. +      local->tm_year == gmt->tm_year && local->tm_yday > gmt->tm_yday)
  15362. +    date->ds_Days++;
  15363. +}
  15364. +
  15365. +time_t _amiga2gmt(struct DateStamp *date)
  15366. +{
  15367. +  struct tm *local;
  15368. +  time_t secs;
  15369. +
  15370. +  secs = date->ds_Tick / 50 + date->ds_Minute * 60 + date->ds_Days * 86400 +
  15371. +    252460800;
  15372. +  local = gmtime(&secs);
  15373. +  local->tm_isdst = -1;        /* We don't know about dst */
  15374. +
  15375. +  return mktime(local);
  15376. +}
  15377. +
  15378. +#else
  15379. +
  15380. +/* System is storing GMT */
  15381. +/* Leap seconds are not handled !! */
  15382. +
  15383. +void _gmt2amiga(time_t time, struct DateStamp *date)
  15384. +{
  15385. +  time_t time78, day_secs;
  15386. +
  15387. +  time78 = time - 252460800;    /* Change Epoch */
  15388. +  date->ds_Days = time78 / 86400;
  15389. +  day_secs = time78 % 86400;
  15390. +  date->ds_Minute = day_secs / 60;
  15391. +  date->ds_Tick = 50 * (day_secs % 60);
  15392. +}
  15393. +
  15394. +time_t _amiga2gmt(struct DateStamp *date)
  15395. +{
  15396. +  time_t secs;
  15397. +
  15398. +  secs = date->ds_Tick / 50 + date->ds_Minute * 60 + date->ds_Days * 86400 +
  15399. +    252460800;
  15400. +
  15401. +  return secs;
  15402. +}
  15403. +
  15404. +#endif
  15405. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/timeconvert.h amiga/fsf/emacs18/amiga/unix/src/timeconvert.h
  15406. --- baseline/fsf/emacs18/amiga/unix/src/timeconvert.h    Wed Dec 31 17:00:00 1969
  15407. +++ amiga/fsf/emacs18/amiga/unix/src/timeconvert.h    Sat Sep 28 00:00:00 1996
  15408. @@ -0,0 +1,27 @@
  15409. +#ifndef TIMECONVERT_H
  15410. +#define TIMECONVERT_H
  15411. +
  15412. +#include <time.h>
  15413. +
  15414. +int _gettime(struct timeval *tp);
  15415. +/* Effect: Store GMT time into tp.
  15416. +     If USE_LOCAL is defined, assume system stores local time,
  15417. +     otherwise it stores GMT.
  15418. +*/
  15419. +
  15420. +void _gmt2amiga(time_t time, struct DateStamp *date);
  15421. +/* Effect: Converts a time expressed in seconds since
  15422. +     the 1 January 1970 0:00:00 GMT, to an Amiga time.
  15423. +     If USE_LOCAL is defined, Amiga time is assumed to
  15424. +     be stored as local time, otherwise as GMT.
  15425. +   Modifies: date, to contain the time in Amiga format
  15426. +*/
  15427. +
  15428. +time_t _amiga2gmt(struct DateStamp *date);
  15429. +/* Effect: Convert a date expressed in Amiga format (as a 
  15430. +     local time if USE_LOCAL is defined, as GMT otherwise)
  15431. +     to a number of seconds since 1 January 1970 0:00:00 GMT.
  15432. +   Returns: this latter time
  15433. +*/
  15434. +
  15435. +#endif
  15436. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/timers.c amiga/fsf/emacs18/amiga/unix/src/timers.c
  15437. --- baseline/fsf/emacs18/amiga/unix/src/timers.c    Wed Dec 31 17:00:00 1969
  15438. +++ amiga/fsf/emacs18/amiga/unix/src/timers.c    Sat Sep 28 00:00:00 1996
  15439. @@ -0,0 +1,72 @@
  15440. +#include "amiga.h"
  15441. +#include "devices.h"
  15442. +#include "timers.h"
  15443. +
  15444. +struct timeinfo *_alloc_timer(void)
  15445. +{
  15446. +  struct timeinfo *timer = AllocMem(sizeof(struct timeinfo), 0);
  15447. +
  15448. +  if (!timer) return 0;
  15449. +  timer->sent = FALSE;
  15450. +  timer->io = (struct timerequest *)
  15451. +    _device_open("timer.device", UNIT_VBLANK, 0L, 0L, 0, sizeof(struct timerequest));
  15452. +  if (!timer->io)
  15453. +    {
  15454. +      FreeMem(timer, sizeof(struct timeinfo));
  15455. +      return 0;
  15456. +    }
  15457. +  return timer;
  15458. +}
  15459. +
  15460. +void _free_timer(struct timeinfo *timer)
  15461. +{
  15462. +  if (timer)
  15463. +    {
  15464. +      _timer_abort(timer);
  15465. +      _device_close(timer->io);
  15466. +      FreeMem(timer, sizeof(struct timeinfo));
  15467. +    }
  15468. +}
  15469. +
  15470. +void _timer_abort(struct timeinfo *timer)
  15471. +{
  15472. +  if (timer->sent)
  15473. +    {
  15474. +      AbortIO(timer->io);
  15475. +      WaitIO(timer->io);
  15476. +      /* Clear timer io signal */
  15477. +      /*SetSignal(0, timer_sig(timer));*/
  15478. +      timer->sent = FALSE;
  15479. +    }
  15480. +}
  15481. +
  15482. +ULONG _timer_sig(struct timeinfo *timer)
  15483. +{
  15484. +  return 1UL << timer->io->tr_node.io_Message.mn_ReplyPort->mp_SigBit;
  15485. +}
  15486. +
  15487. +void _timer_start(struct timeinfo *timer, int secs, int micros)
  15488. +/* _timer_start(timer, 0) stops a timer */
  15489. +{
  15490. +  _timer_abort(timer);
  15491. +  if (secs || micros)
  15492. +    {
  15493. +      timer->io->tr_time.tv_secs = secs;
  15494. +      timer->io->tr_time.tv_micro = micros;
  15495. +      timer->io->tr_node.io_Command = TR_ADDREQUEST;
  15496. +      SendIO(timer->io);
  15497. +      timer->sent = TRUE;
  15498. +    }
  15499. +}
  15500. +
  15501. +int _timer_expired(struct timeinfo *timer)
  15502. +/* A non-started timer is defined to not have expired */
  15503. +{
  15504. +  if (timer->sent && CheckIO(timer->io))
  15505. +    {
  15506. +      WaitIO(timer->io);
  15507. +      timer->sent = FALSE;
  15508. +      return TRUE;
  15509. +    }
  15510. +  return FALSE;
  15511. +}
  15512. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/tmpnam.c amiga/fsf/emacs18/amiga/unix/src/tmpnam.c
  15513. --- baseline/fsf/emacs18/amiga/unix/src/tmpnam.c    Wed Dec 31 17:00:00 1969
  15514. +++ amiga/fsf/emacs18/amiga/unix/src/tmpnam.c    Sat Sep 28 00:00:00 1996
  15515. @@ -0,0 +1,13 @@
  15516. +#include "amiga.h"
  15517. +#include <string.h>
  15518. +#include <stdio.h>
  15519. +
  15520. +char *tmpnam(char *s)
  15521. +{
  15522. +  static char tmpbuf[L_tmpnam];
  15523. +
  15524. +  if (!s) s = tmpbuf;
  15525. +
  15526. +  strcpy(s, P_tmpdir "tmp_XXXXXX");
  15527. +  return mktemp(s);
  15528. +}
  15529. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/truncate.c amiga/fsf/emacs18/amiga/unix/src/truncate.c
  15530. --- baseline/fsf/emacs18/amiga/unix/src/truncate.c    Wed Dec 31 17:00:00 1969
  15531. +++ amiga/fsf/emacs18/amiga/unix/src/truncate.c    Sat Sep 28 00:00:00 1996
  15532. @@ -0,0 +1,21 @@
  15533. +#include "amiga.h"
  15534. +#include "amigaos.h"
  15535. +
  15536. +int truncate(char *path, off_t length)
  15537. +{
  15538. +  BPTR fh = Open(path, MODE_OLDFILE);
  15539. +  int err;
  15540. +
  15541. +  chkabort();
  15542. +  if (fh)
  15543. +    {
  15544. +      int ret = _do_truncate(fh, length);
  15545. +
  15546. +      if (Close(fh) || ret) return ret;
  15547. +      err = IoErr();
  15548. +    }
  15549. +  else err = IoErr();
  15550. +
  15551. +  errno = convert_oserr(err);
  15552. +  return -1;
  15553. +}
  15554. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/uid.c amiga/fsf/emacs18/amiga/unix/src/uid.c
  15555. --- baseline/fsf/emacs18/amiga/unix/src/uid.c    Wed Dec 31 17:00:00 1969
  15556. +++ amiga/fsf/emacs18/amiga/unix/src/uid.c    Sat Sep 28 00:00:00 1996
  15557. @@ -0,0 +1,4 @@
  15558. +#include "amiga.h"
  15559. +
  15560. +uid_t getuid(void) { return AMIGA_UID; }
  15561. +uid_t geteuid(void) { return AMIGA_UID; }
  15562. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/umask.c amiga/fsf/emacs18/amiga/unix/src/umask.c
  15563. --- baseline/fsf/emacs18/amiga/unix/src/umask.c    Wed Dec 31 17:00:00 1969
  15564. +++ amiga/fsf/emacs18/amiga/unix/src/umask.c    Sat Sep 28 00:00:00 1996
  15565. @@ -0,0 +1,3 @@
  15566. +#include "amiga.h"
  15567. +
  15568. +int umask(int mask) { return 0; }
  15569. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/unix-hard.lib.uue amiga/fsf/emacs18/amiga/unix/src/unix-hard.lib.uue
  15570. --- baseline/fsf/emacs18/amiga/unix/src/unix-hard.lib.uue    Wed Dec 31 17:00:00 1969
  15571. +++ amiga/fsf/emacs18/amiga/unix/src/unix-hard.lib.uue    Sat Sep 28 00:00:00 1996
  15572. @@ -0,0 +1,1186 @@
  15573. +begin 666 unix-hard.lib
  15574. +M```#^@``*UH```/I````"2!O``0@UTC0_/QP`$YU(&\`!"`O``AF`G`!(EA,
  15575. +MT/S\6(].T0```_(```/I````#$CG(#(@;P`80^\`'$7Z`!PF;P`4)`LL>0``
  15576. +M``!.K@``(`N0@DS?3`1.=1;`3G4``````^^!```#7T%B<T5X96-"87-E````
  15577. +M`0```!B&```#7TQ63U)A=T1O1FUT`````0```!X````````#\@```^D````*
  15578. +M(&\`!"\-*D@@#68$2^P``$'L```B31+89OPO#4ZZ``!83RI?3G4``````_@`
  15579. +M```!`````0```!(````!`````@````X````````#[X,```)?;6MT96UP````
  15580. +M``$````>`````````_$````#`````$]05%,`!`!````#\@```^H````$=#IT
  15581. +M;7!?6%A86%A8`````````_(```/K````"0```_(```/I````;R!O``0B;P`(
  15582. +MGOP`($CG+Q8F22](`"`O20`D<`Q.N@``*D`@+```4JP``"(L``#2@"\!2&P`
  15583. +M`$AO`#!.N@``3^\`#'!WL!-F-DHK``%F,$'O`"A#[``03KH``"9`+&P``$ZN
  15584. +M_\0N`'P`0>\`*"(()#P```/M3J[_XBH`>`%@1G!RL!-F-DHK``%F,$'O`"A#
  15585. +M[``23KH``"9`+&P``$ZN_\HJ`'@`0>\`*"(()#P```/N3J[_XBX`?`%@"G`6
  15586. +M*4```&```(Q*A6<$2H=F!$ZZ```@"V="2H5G/DJ'9SH@#6<V<``O`"\`+P!(
  15587. +M>/__+P8O!R`%(@0@;P`X3KH``$_O`!@K0``(9Q`JK```*4T``"M+``0@"V`Z
  15588. +M(`UG!B!-3KH``$J%9PY*A&<*(@4L;```3J[_W$J'9PY*AF<*(@<L;```3J[_
  15589. +MW"`+9P8@2TZZ``!P`$S?:/3>_``@3G4@;P`$44](YP$T)DA+[```+T@`$&`Z
  15590. +M(&H`!+'+9C`F52XK``@JDR!K``1.N@``($M.N@``0J=(;P`8+P=.N@``3^\`
  15591. +M#$J`:PX@+P`48`HJ2B15(`IFP'#_3-\L@%!/3G4``````_@````#`````0``
  15592. +M`)````!4````-`````,````"```!:````0P```$(`````````^^#```"0&UA
  15593. +M;&QO8P`````!````'H8```1?7V9I9F]?;V9F<V5T`````````@```"@````D
  15594. +MA@```U]?9FEF;U]B87-E``````$````L@P```U]?<W!R:6YT9@````````$`
  15595. +M```\@P```D!F;W!E;@```````@```)0```!8A@```E]$3U-"87-E````!```
  15596. +M`3X```$L````F@```%Z&```"7V5R<FYO```````!````OH,```)`7W-E=&5R
  15597. +M<@````$```#.@P``!$!?<W1A<G1?<')O8V5S<P`````!````^H,```)`9G)E
  15598. +M90````````(```&,```!'H,```)`9F-L;W-E``````(```&&```!3(,```)?
  15599. +M=V%I='!I9`````$```&8`````````_$````#`````$]05%,`!`!````#\@``
  15600. +M`^H````%<&EP93IU>&]P96XN)6QX`'<`<@````/R```#ZP````$```/R```#
  15601. +MZ0```,6>_``82.<A/DGY`````$7L`!@J6B!:+AHF;``D+T@`()/)+'@`!$ZN
  15602. +M_MHD;```($!#Z`!*($DB;```3J[_"B!L``!#[``$3J[^DD/O`"0B_(```"1P
  15603. +M`2+`0IDB+P`@0>\`)"0(+$I.KOVBX8`K0``8+'@`!$ZN_WPB2TZN_GI*@&<*
  15604. +M($`B34ZN_I)@"")-<!Q.KO\N3J[_=B)+<"!.KO\N(F\`("`'3J[_+DS??(3>
  15605. +M_``82H!.=2!O``0@+P`((B\`#"]O`!``!"]O`!0`""]O`!@`#"]O`!P`$"]O
  15606. +M`"``%"]O`"0`&%E/2.</%BHO`#@L+P`T+@`J2"]!`!QP'$ZZ```F0"!-2AAF
  15607. +M_%.(D<T@"%*`*4``('(!+'@`!$ZN_SHI0``<(D`2W6;\<!QR`4ZN_SHI0``8
  15608. +M<"!R`4ZN_SHI0``D<`$I0``00?K_G"`(0_K^L)")*4``%$'L``!.KO\B*4``
  15609. +M`"(+9P`!2DJL`!QG``%"2JP`&&<``3I*K``D9P`!,DJ`;P`!+"!L```@*``4
  15610. +M0?K^;B)L```B:0`08`(2V%.`9/I![```(FP`)!+89OP@+```4JP``"=```PG
  15611. +M1P`03>P`%CS\`!1P!1E```P@5C%\`!P`$A%```@@7B%K``P`%"`\@``#\DJ&
  15612. +M9@)P`2@`2H5O!"`%8`0@+```0J=(>``!+SR```/Z+P`O/(```_,O!B\$+R\`
  15613. +M3"\\@``#\2\O`%`O/(```_`O+P!4+SR```/O+R\`6"\\@``#[2\O`%@O/(``
  15614. +M`^XO!R\\@``#["!L```O*``0+SR```/K+&P``"(/3J[^#D_O`%0G0``(9S0@
  15615. +M;```+'@`!$ZN_H`@;```+'@`!$ZN_HQ*@&?D0JL`%$'L```B2RQX``1.KO\0
  15616. +M("L`#&!H+&P``$ZN_WQ.N@``8`)P#"E````@"V<&($M.N@``("P`'&<.(D`@
  15617. +M+``@+'@`!$ZN_RX@+``89PPB0'`<+'@`!$ZN_RX@+``D9PPB0'`@+'@`!$ZN
  15618. +M_RX@+```;PH@0"QX``1.KO\<</],WVCP6$].=0```_@````#`````0```5H`
  15619. +M``%6```!1@```!<````"```"_````NH```+8```"S````L0```)0```!S```
  15620. +M`<(```&J```!E@```8H```%\```!=````6P```%B```!0````30```$B```!
  15621. +M%````$0````X````&@```!`````````#[X$```-?3&EN:V5R1$(````````!
  15622. +M````"H8```)?1$]30F%S90````,```*F```"7@```"R&```$7U]S=&%R='5P
  15623. +M7W!O<G0```````,```)^```"<@```$"#```"0&UA;&QO8P`````!```!`(8`
  15624. +M``-?7V1O;W)?;F%M90`````!```!IH8```-?7VYE>'1?<&ED```````"```!
  15625. +MM@```;*&```#7U]S=&%C:U]S:7IE`````0```?J&```#7U]P<F]C97-S97,`
  15626. +M`````0```I*#```$0&-O;G9E<G1?;W-E<G(```````$```*NA@```E]E<G)N
  15627. +M;P```````0```K:#```"0&9R964````````!```"P`````````/Q`````P``
  15628. +M``!/4%13``0`0````_(```/J````!@````````````````````$`````````
  15629. +M`````_(```/K````"@```_(```/I`````TZZ```@+```3G4``````^^#```#
  15630. +M0&-H:V%B;W)T`````````0````*&```#7U]O=7)?<&ED`````````0````8`
  15631. +M```````#\0````,`````3U!44P`$`$````/R```#Z0```",@+P`$(&\`"")O
  15632. +M``Q(YP$4+@`F22I(3KH``'`!OH!M+'`@OH!L)B`+9PX@!^>`0^P``-/`)MDF
  15633. +MV2`-9PSGAT'L``#1QR#=(-UP`&`(<!8I0```</],WRB`3G4@+P`$(&\`")[\
  15634. +M`!`O2``(0J\`#$'O``A#UV&62H!G"#!\__\@"&`"(!?>_``03G4``````^^#
  15635. +M```#0&-H:V%B;W)T`````````0```!B&```$7U]S:6=?:&%N9&QE<G,`````
  15636. +M``(```!`````,(8```)?97)R;F\```````$```!0`````````_$````#````
  15637. +M`$]05%,`!`!````#\@```^D````5("\`!$CG#P`N`"PL``!.N@``*4<``'H`
  15638. +M>`$@+```P(1G#B`L``#`A&8&(`5.N@``4H78A'`@NH!MX"`&3-\`\$YU("\`
  15639. +M!"\'(@`@+```@($N'V"P```#[X8```-?7W-I9U]M87-K```````$````3```
  15640. +M`"0````4````#(,```-`8VAK86)O<G0````````!````$(8```1?7W-I9U]P
  15641. +M96YD:6YG`````````0```!R#```$0%]S:6=?9&ES<&%T8V@```````$````N
  15642. +M`````````_$````#`````$]05%,`!`!````#\@```^D```":(&\`!"`O``@B
  15643. +M;P`,+V\`$``$64](YR$T+@`F;P`<*D@D22])`!1@`AK:2A)G!%.';O:U[P`4
  15644. +M8QH0*O__<B^P`6<0=#JP`F<*4X=O!AK!8`(:VTH39P13AV[V0A5*AU[`1`!(
  15645. +M@$C`3-\LA%A/3G4@+P`$(&\`"")O``Q93TCG)S8N`"I(+TD`($JL``!G``#^
  15646. +M(&P``"9H``Q.N@``(BL`!+*`9@``Z"!L``!(:``L0>P``")3<`!&`&$`_UA8
  15647. +M3TJ`9P``RD'L```B31`8L!EF``"\2@!F]&8``+1*AV80(&P``"`H`!AR`["!
  15648. +M9P``H"!L```@*``8<ORP@6<$68!F/B)L```B$2QL``!.KO^"+``@;```T/P`
  15649. +M+"((=/Y.KO^L*@!G$B(%0>P``"0(3J[_FB(%3J[_IB(&3J[_@F`&*6@`(```
  15650. +M(&P``"EH``0`@"EH``@`?$/H``Q%[`"$)-DDV239(&P``"EH`!@`!"EH`!P`
  15651. +M="\O`"`O*P$8($U#[```<`!.N@``4$]P`6`"<`!,WVSD6$].=2!O``0B;P`(
  15652. +M2.<`%"9)*DA.N@``($TB2W``80#^R$J`9P1P`&`,($TB2TS?*`!.^@``3-\H
  15653. +M`$YU(&\`!")O``A(YP`4)DDJ2$ZZ```@32)+<`%A`/Z02H!F<$AX`/](;```
  15654. +M+PU.N@``3^\`#$J`:@P@32)+3-\H`$[Z``!+TT*=0JL`$G`!-T``#D)K`!`G
  15655. +M?````@``,C=```Q"JP`V0>P``")(2AEF_%.)D\@G20`60IT@/`\,/P`G0``B
  15656. +M)T``&B=``"HJ_```H?]P`$S?*`!.=0```_@````(`````0```7X```%P```!
  15657. +M:@```5H```%2```!3````4(```$H`````````^^&```#7VQA<W1?9&ER````
  15658. +M`````P```0(```"2````BH,```)`7V=E=%]C9`````$```":A@```U]L87-T
  15659. +M7V5N=')Y``````8```%D```!1@```1(```#P````X````*B&```#7U]T96UP
  15660. +M7V9N86UE````!````C8```'V````Q@```+"&```"7T1/4T)A<V4````!```!
  15661. +M"(,```-`7VQF:6)S=&%T```````!```!A(,```-`8VAK86)O<G0````````"
  15662. +M```!X````:B#```#0%]F:6)S=&%T`````````@```A````'&@P```U]R96%D
  15663. +M;&EN:P````````$```'\`````````_$````#`````$]05%,`!`!````#\@``
  15664. +M`^L```!!```#\@```^D```#0(&\`!%E/2.<`%"](``@@;P`(*F@!#&`*)E4@
  15665. +M34ZZ```J2R`-9O),WR@`6$].=2!O``2>_``02.<@-BI()FT`#$/K`0PO2``<
  15666. +M+TD`("!+8;1"K```0JL!#$*M``0@%>6`($`G:``,`1A!ZP`(+T@`&&```)Y!
  15667. +MZP`0(DA*&6;\4XF3R"`)D<C0_``L<@`R`-*(4H%T`#0!/T``%C]!`!0@`DZZ
  15668. +M```D0$J`9@9P#&```)Q-TD*>(&\`(""*+U``("SK`(@LZP"$0>L`C$/J``PB
  15669. +MV"+8(M@E:P`,`!@E:P!\`!Q+Z@`@.V\`%``$.V\`%@`&(&\`'"`H``12J``$
  15670. +M*T``"$'J`"Q#ZP`0$-EF_"JK``@J;P`<(A4D+P`8+&P``$ZN_Y1*@&8`_TXG
  15671. +M:P$,`1!"K0`$+&P``$ZN_WQR=-*!L(%F!'`!8`I.N@``*4```'``3-]L!-[\
  15672. +M`!!.=2!O``193TCG(#8O2``4<!!.N@``*D!P1^6(3KH``"9`(&\`%"`(2AAF
  15673. +M_%.(D<`@"%*`3KH``"1`3KH``"`-9P``@B`*9WP@"V=X*TL`#"M\```!'``(
  15674. +MD<@G2`$0)T@!#"=(`10FBB!O`!04V&;\3KH``"=```0B+P`4+&P``'3^3J[_
  15675. +MK"J`9R)!ZP`((@`D""QL``!.KO^:2H!G#B!-80#^.$J`9Q0@#6`^+&P``$ZN
  15676. +M_WQ.N@``*4```"!-80``-F`D<`PI0```(`UG!B!-3KH``"`*9P8@2DZZ```@
  15677. +M"V<&($M.N@``<`!,WVP$6$].=2!O``1(YP`6*D@F;0`,3KH``$*L```@2V$`
  15678. +M_:`@4TZZ```@%6<*(@`L;```3J[_IB!M``Q.N@``($U,WV@`3OH``"!O``19
  15679. +M3TCG`S0O2``4(&\`%"IH``R7RTZZ``!*K0$49R1^`"1M`0P@;P`4+"@`!&`$
  15680. +M4H<D4KZ&;`0@"F;T*TH!$$*M`10@+0$09R(F0-;\`"`I;P`4``!%[0$0(%(I
  15681. +M2```(%(DT"!O`!12J``$(`M,WRS`6$].=2!O``0O#2I(3KH``"`M``0J7TYU
  15682. +M(&\`!"`O``A(YP$4+@`J2"9M``Q.N@``<`$G0`$4*T<`!$S?*(!.=0```^^#
  15683. +M```"0&9R964````````'```"B@```H````)J```"/@```C0```(J````'H8`
  15684. +M``-?;&%S=%]D:7(````````#```"X@```EX```!2@P```D!M86QL;V,`````
  15685. +M!````8X```%V```!;````**&```"7T1/4T)A<V4````&```"=````@8```'L
  15686. +M```!U@```30```$<@P``!$!C;VYV97)T7V]S97)R```````"```"#@```4B&
  15687. +M```"7V5R<FYO```````#```"(````A(```%,@P```T!C:&MA8F]R=```````
  15688. +M``4```,N```##@```J8```):```!E(,```)`7V=E=%]C9`````$```'*A@``
  15689. +M`U]L87-T7V5N=')Y``````$```+L`````````_$````#`````$]05%,`!`!`
  15690. +M```#\@```^D````(2.<!`BQL``!R`$ZN_X(N`"(`3J[_@B`'3-]`@$YU````
  15691. +M``/OA@```E]$3U-"87-E`````0````8````````#\0````,`````3U!44P`$
  15692. +M`$````/R```#ZP````(```/R```#Z0```!L@;P`$("\`")[\`$1(YP,$+@`J
  15693. +M2'S_3KH``"!-0^\`#DZZ``!*@&8D<!#`KP`6YH!R4.6)PJ\`%NR!@H#"A[*'
  15694. +M9@1\`&`&<`TI0```(`9,WR#`WOP`1$YU(&\`!"`O``A(YP$$3-\@@&">````
  15695. +M``/O@P```T!C:&MA8F]R=`````````$````8@P```T!?9FEB<W1A=```````
  15696. +M``$````BA@```E]E<G)N;P```````0```$H````````#\0````,`````3U!4
  15697. +M4P`$`$````/R```#Z0```$$@+P`$(&\`"%E/2.<G%BX`*DA.N@``2&\`'$AX
  15698. +M"`$O!TZZ``!/[P`,4H!F!G#_8```RD*G+&P``'(")`].KO\<3^\`!"9`2H!G
  15699. +M+"(O`!PD"TZN_GI*0&<>("\`'.6`+PT@0"\H``@B0G``D<A.N@``4$]\`&!@
  15700. +M3J[_?"H`<BY&`;"!9D9\`"`O`!SE@"!`*J@`"$WM``1"GBS\```A_W`!/,`\
  15701. +MP$)>*WP```(``#)"K0`V0JT`%B`\#PP_`"M``"(K0``:*T``*F`,?/\@!4ZZ
  15702. +M```I0```(`MG#"0++&P``'("3J[_%DAO`!Q(>`@"+P=.N@``3^\`#"`&3-]H
  15703. +MY%A/3G4``````^^#```#0&-H:V%B;W)T`````````0```!2#```"7VEO8W1L
  15704. +M```````"````\@```"*&```"7T1/4T)A<V4````"````W@```#:#```#0%]L
  15705. +M9FEB<W1A=````````0```&Z#```$0&-O;G9E<G1?;W-E<G(```````$```#0
  15706. +MA@```E]E<G)N;P```````0```-0````````#\0````,`````3U!44P`$`$``
  15707. +M``/R```#Z0````X@;P`$(F\`"$CG,!8F22I(3KH``"(+)`TL;```=@%.KOY$
  15708. +M2H!G!'``8`9.N@``</],WV@,3G4``````^^#```#0&-H:V%B;W)T````````
  15709. +M`0```!*&```"7T1/4T)A<V4````!````&H,```)`7W-E=&5R<@````$````L
  15710. +M`````````_$````#`````$]05%,`!`!````#\@```^D````^(&\`!")O``A9
  15711. +M3TCG,S8J2'X`(&P``"PH`.`O20`@2H9F($JL``!F&D'L`!@B""QL```D/```
  15712. +M`^U.KO_B+`!G`GX!2H9G-B(&0>P`(B0(0>P``"8(+&P``$ZN_IXB!B0-)B\`
  15713. +M($ZN_IXB!G0*3J[^R$J'9U@B!DZN_]Q@4"!L```F:`"X,'S__[?(9T!#[``H
  15714. +M<"4L>``$3J[]V"1`2H!G+"EL````#"E-`!`O"B!++$I#[``$E<HF;P`D3J[]
  15715. +MM$S?!``B2BQX``1.KOYB3-]LS%A/3G4@;P`$0^\`"&$`_RI.=2!O``1#[P`(
  15716. +M80#_''`43KH``$YU``````/X````!@````$```"R````J````*0```".````
  15717. +M2@```"H````````#[X8```%?7W5S`````@```'X````4A@```U]?5T)E;F-H
  15718. +M37-G``````$````DA@```E]$3U-"87-E`````@```%8````PA@``!%]?4')O
  15719. +M9W)A;4YA;64````````"````H@```%"#```"0&5X:70````````!````\@``
  15720. +M``````/Q`````P````!/4%13``0`0````_(```/J````#T]K```````4````
  15721. +M`````````````````&-O;G-O;&4Z```E<SH@``!I;G1U:71I;VXN;&EB<F%R
  15722. +M>0```````^P````!`````0```!0````````#\@```^D````'2.<@`B(O``Q!
  15723. +M[P`0)`@L;```3J[_'$S?0`1.=0```^^&```"7T1/4T)A<V4````!````$```
  15724. +M``````/Q`````P````!/4%13``0`0````_(```/I````#R!O``0O#2I(*JP`
  15725. +M`$'M``0J7T[Z```@;P`$("\`"$CG`00N`"I((!5.N@``0>T`!"`'3-\@@$[Z
  15726. +M`````````^^&```#7U]S:6=?;6%S:P```````0````J#```"0%]S971J;7``
  15727. +M```!````%(,```-`<VEG<V5T;6%S:P`````!````*H,```-`7VQO;F=J;7``
  15728. +M```````!````.`````````/Q`````P````!/4%13``0`0````_(```/I````
  15729. +M!R!O``0@+P`(+P`O+```+PA.N@``3^\`#'``3G4```/OA@``!%]?<WES=&5M
  15730. +M7VYA;64````````!````#(,```)?<W1R;F-P>0````$````2`````````_$`
  15731. +M```#`````$]05%,`!`!````#\@```^D````I(&\`!)[\`%1(YS@6*D@@#6<D
  15732. +M2A5G("!-2AAF_%.(D<TB""!-<`).N@``0>P``'`"(@!.N@``("P``&\2L*P`
  15733. +M`&X,Y8!![```)G`(`&`L4H!F)"(L``!![P`;)@@L;```=`!X44ZN_BQ*0&<$
  15734. +M)D-@"D?L``1@!$?L``@@2TH89OQ3B)'+(@@@2W`"3KH``$'L`!QP`G(!3KH`
  15735. +M`$S?:!S>_`!43G4```/X````!`````$```"0````>````'(````L````````
  15736. +M`^^#```"0'=R:71E```````$````F````(P````T````*(8```)?97)R;F\`
  15737. +M``````$````XA@```U]S>7-?;F5R<@````````$````^A@```U]S>7-?97)R
  15738. +M;&ES=`````$```!&A@```E]?3U-%4E(``````0```%2&```"7T1/4T)A<V4`
  15739. +M```!````7@````````/Q`````P````!/4%13``0`0````_(```/J````"#H@
  15740. +M```T,@``56YK;F]W;B!E<G)O<B!C;V1E```*```````#\@```^D````````#
  15741. +M\0````,`````3U!44P`$``````/R```#Z@```,9N;R!S:6=N86P`:&%N9W5P
  15742. +M``!I;G1E<G)U<'0`<75I=```:6QL96=A;"!I;G-T<G5C=&EO;@!T<F%C92!T
  15743. +M<F%P``!A8F]R=`!E;70@:6YS=')U8W1I;VX`9FQO871I;F<@<&]I;G0@97AC
  15744. +M97!T:6]N``!K:6QL``!B=7,@97)R;W(`<V5G;65N=&%T:6]N('9I;VQA=&EO
  15745. +M;@``8F%D(&%R9W5M96YT('1O('-Y<W1E;2!C86QL`'=R:71E(&]N(&$@<&EP
  15746. +M92!W:71H(&YO(&]N92!T;R!R96%D(&ET``!A;&%R;2!C;&]C:P!S;V9T=V%R
  15747. +M92!T97)M:6YA=&EO;B!S:6=N86P@9G)O;2!K:6QL`'-T871U<R!S:6=N86P`
  15748. +M<V5N9&%B;&4@<W1O<"!S:6=N86P@;F]T(&9R;VT@='1Y`'-T;W`@<VEG;F%L
  15749. +M(&9R;VT@='1Y``!C;VYT:6YU92!A('-T;W!P960@<')O8V5S<P``8VAI;&0@
  15750. +M<W1A='5S(&AA<R!C:&%N9V5D``!B86-K9W)O=6YD(')E860@871T96UP=&5D
  15751. +M(&9R;VT@8V]N=')O;"!T='D``&)A8VMG<F]U;F0@=W)I=&4@871T96UP=&5D
  15752. +M(&9R;VT@8V]N=')O;"!T='D`:6YP=70@<F5C;W)D(&%V86EL86)L92!A="!C
  15753. +M;VYT<F]L('1T>0!E>&-E961E9"!#4%4@=&EM92!L:6UI=`!E>&-E961E9"!F
  15754. +M:6QE('-I>F4@;&EM:70``'5N:VYO=VX@<VEG;F%L``!U;FMN;W=N('-I9VYA
  15755. +M;```=VEN9&]W(&-H86YG960``'5N:VYO=VX@<VEG;F%L``!U<V5R('-I9VYA
  15756. +M;"`Q`'5S97(@<VEG;F%L(#(```````````H````2````'````"(````V````
  15757. +M0@```$@```!8````<@```'@```""````F@```+8```#>````Z@```1````$>
  15758. +M```!0````58```%R```!C````;@```'D```""@```B(```(\```"3````EP`
  15759. +M``)L```"?````HH```/L````(`````$```,4```#$````PP```,(```#!```
  15760. +M`P````+\```"^````O0```+P```"[````N@```+D```"X````MP```+8```"
  15761. +MU````M````+,```"R````L0```+````"O````K@```*T```"L````JP```*H
  15762. +M```"I````J````*<```"F`````````/R```#Z0```#H@+P`$(&\`""(O``PB
  15763. +M;P`064](YP<4+`$N`"I(+TD`%'H`)FP``&`N2H=G""`K``R^@&8@>@%P`;"K
  15764. +M`!1F%BHK``P@#6<$*JL`&"!+3KH``"`%8"HF4TJ39LX(!@``9P1P`&`:2H5F
  15765. +M"G`**4```'#_8`QP`$ZZ``!.N@``8*),WRC@6$].=2!O``0@+P`((F\`#$CG
  15766. +M`10B`'``3-\H@&``_W`@;P`$+PUP`"(`D\DJ7V``_UX@+P`$(&\`""(O``Q(
  15767. +MYP,$+`$N`"I(4H!F`GX`2H=J`D2'(`<B!B!-D\E,WR#`8`#_+``````#[X8`
  15768. +M``-?7W!R;V-E<W-E<P`````!````)(,```-`7V9R965?96YT<GD````!````
  15769. +M3H8```)?97)R;F\```````$```!L@P``!$!?=V%I=%]S:6=N86QS```````!
  15770. +M````=H,```1`7VAA;F1L95]S:6=N86QS`````0```'H````````#\0````,`
  15771. +M````3U!44P`$`$````/R```#Z0```!(@+P`$44](YP,`+@!.N@``(`=.N@``
  15772. +M2H!G(B)`(&D`'"](``P@:0`$<`$B;P`,3I$L`"`'3KH``"`&8`)P_TS?`,!0
  15773. +M3TYU``````/O@P```T!C:&MA8F]R=`````````$````.@P```T!?9FEN9%]F
  15774. +M9`````````$````4@P```T!?9G)E95]F9`````````$````V`````````_$`
  15775. +M```#`````$]05%,`!``````#\@```^D````#(&\`!"`O``A.^@`````#[X,`
  15776. +M``)`<W1R<F-H<@````$````*`````````_$````#`````$]05%,`!``````#
  15777. +M\@```^D````#(&\`!"`O``A.^@`````#[X,```)`<W1R8VAR``````$````*
  15778. +M`````````_$````#`````$]05%,`!``````#\@```^D```!-2.<`!G`(<@`L
  15779. +M>``$3J[_.BI`2H!F!'``8"Y"K0`$2'@`*'``+P!![```<@&3R<%!3KH``%!/
  15780. +M*H!F#")-<`A.KO\N<`!@`B`-3-]@`$YU(&\`!$CG``8J2"`-9Q@@36$``!X@
  15781. +M54ZZ```B37`(+'@`!$ZN_RY,WV``3G4@;P`$2.<`!BI(2JT`!&<4(E4L>``$
  15782. +M3J[^(")53J[^)D*M``1,WV``3G4@;P`$(%`B:``.<``0*0`/<@'AH2`!3G4@
  15783. +M;P`$("\`""(O``Q(YP,&+`$N`"I(8:I*AV8$2H9G'B)5(T<`("-&`"0S?``)
  15784. +M`!PL>``$3J[^,G`!*T``!$S?8,!.=2!O``1(YP`&*DA*K0`$9QPB52QX``1.
  15785. +MKOXL2D!G#B)53J[^)D*M``1P`6`"<`!,WV``3G4```/X`````0````$````H
  15786. +M`````````^^#```$0%]D979I8V5?;W!E;@````````$````R@P``!$!?9&5V
  15787. +M:6-E7V-L;W-E```````!````9@````````/Q`````P````!/4%13``0`0```
  15788. +M`_(```/J````!'1I;65R+F1E=FEC90````````/R```#Z0```!XO#B`L```B
  15789. +M`$A!0D'2@"`L``"S@"E```1"K``(0^P`!'``+'@`!$ZN_=@I0```</].KOZV
  15790. +M2(!(P"E```!*K```9PA*@&L$<`%@`G``*4``#"Q?3G4O#B`L``!K""QX``1.
  15791. +MKOZP("P``&<*(D`L>``$3J[^8BQ?3G4```/X`````P````$```!8````.@``
  15792. +M`!X````&`````@```&8```!.````/@```"P````:````%@````````/OA@``
  15793. +M!%]?<W1A<G1U<%]T:6UE```````!````!(8```%?7W5S`````0```!``````
  15794. +M```#\0````,`````3U!44P`$`$````/R```#Z@````7_____9FEF;RYL:6)R
  15795. +M87)Y`````````_(```/K````!````_(```/I````%B`O``113TCG`P`N`$ZZ
  15796. +M```@!TZZ``!*@&<H(D`@:0`<<D#EB<*1+T@`#"`!(&D`!")O``Q.D2P`(`=.
  15797. +MN@``(`9@`G#_3-\`P%!/3G4@+P`$+P<N'V"N``````/O@P```T!C:&MA8F]R
  15798. +M=`````````$````.@P```T!?9FEN9%]F9`````````$````4@P```T!?9G)E
  15799. +M95]F9`````````$````\`````````_$````#`````$]05%,`!``````#\@``
  15800. +M`^D```!B(&\`!"`O``@B;P`,+V\`$``$+V\`%``(+V\`&``,+V\`'``0+V\`
  15801. +M(``4+V\`)``844](YP<4+@!([P,``!1\`"IL``!@%DJM``1F"C!\``$K2``$
  15802. +M8`Q2AMK\`"2\K``$;>0@+``$O(!F>'(*TZP`!"`L``0B`.>!TH#E@2`!3KH`
  15803. +M`"I`2H!F#'`,*4```'#_8```CG#VT*P`!"(`YX'2@.6!(&P``")-8`(2V%.!
  15804. +M9/H@+```9P8@0$ZZ```I30``>O;:K``$(`7G@-"%Y8#;P)?+*TL`!%*%VOP`
  15805. +M)+JL``1M\"`&YX#0AN6`(&P``"&O`!0(!"&'"``AKP`8"`A+[P`@(9T(#"&=
  15806. +M"!`AG0@42^\`+"&="!@AG0@<(9T(("`&3-\HX%!/3G4@+P`$(@!K%K*L``1L
  15807. +M$"`!YX#0@>6`(&P``$*P"`1.=2`O``1(YP$$+@!K'KZL``1L&"`'YX#0A^6`
  15808. +M*FP``-O`2JT`!&<$(`U@"'`)*4```'``3-\@@$YU("P`!$YU``````/X````
  15809. +M$0````$```&"```!9````58```%````!,@```.P```#>````Q````+X```"R
  15810. +M````I````)@```!R````;@```&0```!>````0@````````/O@P```D!M86QL
  15811. +M;V,``````0```("&```"7V5R<FYO```````"```!=@```(R#```"0&9R964`
  15812. +M```````!````N@````````/Q`````P````!/4%13``0`0````_(```/K````
  15813. +M`@```_(```/I````&B!O``0B;P`(GOP`#$CG(18F22I(3KH``"`+9P8N*P`$
  15814. +M8`B1R$ZZ```N`'#_OH!F!'``8"@@!T'O`!1.N@``(@U![P`4)`@L;```3J[^
  15815. +M=$J`9P1P`&`&3KH``'#_3-]HA-[\``Q.=0`````#[X,```-`8VAK86)O<G0`
  15816. +M```````!````%H,```)`=&EM90````````$````F@P```T!?9VUT,F%M:6=A
  15817. +M``````$````\A@```E]$3U-"87-E`````0```$B#```"0%]S971E<G(````!
  15818. +M````6`````````/Q`````P````!/4%13``0`0````_(```/I````!R!O``0B
  15819. +M;P`(("\`#"\+)DDB2"!+)E].^@````````/O@P```D!M96UM;W9E`````0``
  15820. +M`!@````````#\0````,`````3U!44P`$``````/R```#Z0```%(@;P`$(F\`
  15821. +M"%%/2.<!%"9)*DA.N@``0>\`#$ZZ```@#6<(0>\`#"K8*M@@"V<``-)![P`,
  15822. +M3KH``"!`("@`)$2`<CQ.N@``)H!^`"!L``1#[```$!BP&68,2@!F]F8&?@1@
  15823. +M``":(&P`!$/L``@0&+`99@Q*`&;V9@9^`V```(`@;``$0^P`$!`8L!EF"DH`
  15824. +M9O9F!'X%8&8@;``$0^P`&!`8L!EF!DH`9O9G4"!L``1#[``<$!BP&68&2@!F
  15825. +M]F<\(&P`!$/L`"`0&+`99@9*`&;V9R@@;``$0^P`)!`8L!EF!DH`9O9G%"!L
  15826. +M``1#[``H$!BP&68(2@!F]F8"?@$G1P`$<`!,WRB`4$].=2!O``2>_``0+PTJ
  15827. +M2$'O``Q#[P`$80#^Z"JO``P@+P`00^T`!#+`("\`!#+`("P``#+`<``J7][\
  15828. +M`!!.=0`````#^`````@````!````[````-@```#$````L````)P```"$````
  15829. +M:@```%`````````#[X,```-`8VAK86)O<G0````````!````%(,```-`7V=E
  15830. +M='1I;64````````!````'(,```-`;&]C86QT:6UE```````!````-H,```)?
  15831. +M7T-81#,S``````$```!$A@```E]T>FYA;64`````"````.@```#4````P```
  15832. +M`*P```"8````@````&8```!,A@```U]D87EL:6=H=`````````$```$X````
  15833. +M`````_$````#`````$]05%,`!`!````#\@```^H````,3454($135`!7150@
  15834. +M1%-4`$5%5"!$4U0`1414`$-$5`!-1%0`4$14`$%+1%0````````#\@```^D`
  15835. +M```P(&\`!$CG``8J2"QL``!.KO^^!I4/##\`<`!,WV``3G4@+P`$(&\`"%E/
  15836. +M!(`/##\`(CP``5&`+H!.N@``((`@%R(\``%1@$ZZ```@`2Z!<CQ.N@``(4``
  15837. +M!"`7<CQ.N@``(`'E@)"!YX#0@="`(4``"%A/3G4@;P`$64](YR`$2]`@'2(`
  15838. +MZ8&2@"`!YX#0@2(`Y8'2@.^!(!TD`.F"E(#E@B`=+T$`"'(R3KH``-""T*\`
  15839. +M"`:`#PP_`$S?(`183TYU```#[X8```-?5&EM97)"87-E```````!````#(,`
  15840. +M``)?7T-81#,S``````4```"J````7@```%(```!(````.@````````/Q````
  15841. +M`P````!/4%13``0`0````_(```/I````"R`O``193RZ`0>P`!"`(6$].=2!O
  15842. +M``193RZ(0>P`!"`(6$].=2`L``1.=0`````#^`````,````!````)@```!P`
  15843. +M```*`````````_$````#`````$]05%,`!`!````#\@```^H````)````````
  15844. +M``````````$````````````"```````````````````#[`````(````!````
  15845. +M%`````@````````#\@```^D````J(&\`!")O``@@+P`,64](YS\V+@`J2"])
  15846. +M`"B7RTZZ```B#20++&P``$ZN_7XF0"("3J[]>"`+9@9.N@``8%XD;P`H0A(J
  15847. +M!U*%(A,D*P`$)@TH"BQL``!.KOY*2H!G&"(+3J[]>$H29@1P`F`L+P1.N@``
  15848. +M6$]@*$ZN_WPL`'(R1@&P@68(""L``0`+9I0B"TZN_7@@!DZZ```I0```</],
  15849. +MWVS\6$].=0`````#[X,```-`8VAK86)O<G0````````!````'H8```)?1$]3
  15850. +M0F%S90````(```!4````)H,```)`7W-E=&5R<@````$````Z@P```E]S=')L
  15851. +M96X``````0```'"#```$0&-O;G9E<G1?;W-E<G(```````$```"6A@```E]E
  15852. +M<G)N;P```````0```)H````````#\0````,`````3U!44P`$`$````/R```#
  15853. +MZ0```"Q93TJL`!)F#$'O``,I2``28>Y@%D'O``,B;``2L\AD!'`!8`)P_RE`
  15854. +M``!83TYU64](YP$4+B\`%$JL``!F`F'`*FP`%F`N("P``&\,0>\`#R)M``2S
  15855. +MR&(02H!J'$'O``\B;0`$L\AD$"95+PU.N@``6$\J2R`-9LXI30`62H=F!'``
  15856. +M8")0AR\'3KH``"!`(*P`%D/O`!,A20`$0^@`"%A/*4``%B`)3-\H@%A/3G4`
  15857. +M`````_@````'`````0```*(```"0````>@```$(````:````#@````0````#
  15858. +M`````@```$@````Z````*`````````/O@P```E]F<F5E`````````0```&Z#
  15859. +M```"7VUA;&QO8P`````!````B@````````/Q`````P````!/4%13``0`0```
  15860. +M`_(```/J````!T`H(REA;&QO8V$N8PDQ+C$```````````````````/R```#
  15861. +MZP````$```/R```#Z0```#8@;P`$64](YR,"(@@L;```=/Y.KO^L+T``$&<Z
  15862. +M+BP``$ZZ```L`&`>2&\`$$AX"`4O!DZZ``!/[P`,2H!F""E'``!P`&`24X9L
  15863. +MWB(O`!`L;```3J[_IG#_3-]`Q%A/3G4@;P`$2.<A!BI(3KH``"(-+&P``$ZN
  15864. +M_[A*@&<$<`!@4$ZN_WPN`')OTH&P@68@(@UT`$ZN_T9*@&<.(@U.KO^X2H!G
  15865. +M!"`"8"A.KO]\+@!P9="`OH!F#B!-80#_2DJ`9@1P`&`,(`=.N@``*4```'#_
  15866. +M3-]@A$YU``````/OA@```E]$3U-"87-E`````P```'(```!0````#H8```)?
  15867. +M97)R;F\```````,```#,````0````!Z#```#0%]L87-T7V9D`````````0``
  15868. +M`"*#```"7VEO8W1L```````!````-(,```-`8VAK86)O<G0````````!````
  15869. +M;(,```1`8V]N=F5R=%]O<V5R<@```````0```,@````````#\0````,`````
  15870. +M3U!44P`$`$````/R```#Z0```AI(YP`&<"(B/``!``$L>``$3J[_.BI`2H!F
  15871. +M!'``8"`;?``$``A-[0`.0AX@+```',`L[```0>T`%$ZZ```@#4S?8`!.=2!O
  15872. +M``0O#B)(<"(L>``$3J[_+BQ?3G4@;P`$2.<`!BI(("T`(&<*+&P``'(`3J[_
  15873. +MW"`M`"1G#"QL``!R0.&)3J[_W"`M`#1G!B!`3KH``"`M`#AG!B!`3KH``"!M
  15874. +M`#QAI"!-3-]@`$[Z``!(YP(&+`$J2$J`9Q0@+0`@(BT`-"QL```P?``!3J[_
  15875. +MRDJ&9Q0@+0`D(BT`."QL```P?``"3J[_RG`!(BP``..@3-]@0$YU2.<#-B9)
  15876. +M*D@N$R!O`!PL$&`4(&T`-+'*9@1^`&`(M>T`.&8"?``@;0`\+'@`!$ZN_HPD
  15877. +M0$J`9MI*AV<60I,@+0`@(BT`-"QL```P?``#3J[_RDJ&9U(@;P`<0I`@+0`D
  15878. +M(BT`."QL```P?``#3J[_RF`V<`$B+```XZ`L>``$3J[^PB!M`#PL>``$3J[^
  15879. +MC"1`2H!GWB!M`#2QRF8$?@!@"+7M`#AF`GP`2H=FUDJ&9M)P`2(L``#CH"(`
  15880. +M<``L>``$3J[^SDS?;,!.=5E/2.<#%BX`)DDJ2&```(9"K0`L""T``@`S9PQP
  15881. +M(RE```!P_V```*PL;```<@%.KO\Z("T`("(M`#0L;```,'P``4ZN_\H@;0`\
  15882. +M<``0*``/<@'AH2`!3KH``"P`("T`("(M`#0P?``#3J[_RF`0<`$B+```XZ`L
  15883. +M>``$3J[^PB!M`#PL>``$3J[^C$J`9^`@!DZZ```@+0`@0>\`%"(((&T`+"QL
  15884. +M``!.KO_6+`!G`/]B(`92@&8"?`"\AV,"+`<@!B!O`!1@`A;84X!D^B`&*T``
  15885. +M+$S?:,!83TYUGOP`2$CG#Q8N`"I()DDO20`<2H=F``"*("T`)"QL``!R0.&)
  15886. +M3J[_W"!-0^\`(!+89OQ![P`@0^P``$ZZ```@34/O`$(2V&;\0>\`0D/L``1.
  15887. +MN@``""T````S9P@(+0`/`#)G!D'O`"!@!$'O`$(@"')`Z8D@?```C@!.KO_B
  15888. +M*T``)&<``.PL;```3J[_Q$J`:@)2@.*`*T``*'``8```X$JM`"1G``#*+"T`
  15889. +M*'H`8```M+R'8P``CBP'8```B`@M``(`,V<02H5G!B`%8```L'`C8```I"`M
  15890. +M`"0B+0`X+&P``#!\``).KO_*(&T`/'``$"@`#W(!X:$@`4ZZ```H`"`M`"0B
  15891. +M+0`X,'P``TZN_\I@$'`!(BP``..@+'@`!$ZN_L(@;0`\+'@`!$ZN_HQ*@&?@
  15892. +M(`1.N@``2H!G"$J%9P0@!6`Z("T`)"(+($8L;```3J[_T"@`9P#_9DJ$:Q+:
  15893. +MA)Z$U\1P`+Z`8@#_2"`%8`YP#4ZZ``!P("E```!P_TS?:/#>_`!(3G6>_``,
  15894. +M2-<!`W`=*4```'#_WOP`#$YU64\N@&$`_")P`%A/3G6>_``L2.<@%B9)*DA*
  15895. +M@&<2!(````@!9R)3@&<``)Q@``"J2I-G"`CM``(`,V`&"*T``@`S<`!@``":
  15896. +M<`/`K0`P5X!F*`@M``\`,F<&0>P`&&`$0>P`&B\(+PU(;``(2&\`'$ZZ``!/
  15897. +M[P`08"H(+0```#-G$"\-2&P`'$AO`!A.N@``8`XO#4AL`"9(;P`83KH``$_O
  15898. +M``Q![P`0(@@L;```)#P```/M3J[_XB:`9P1P`&`@3KH``&`8(!-G"B(`+&P`
  15899. +M`$ZN_]QP`&`(<!8I0```</],WV@$WOP`+$YU(&\`!"`O``@B+P`,+V\`$``$
  15900. +MGOP`3$CG#S8J+P!P+`$N`$*O`&B;S9?++T@`('!`3KH``"1`2H!G``&@80#Z
  15901. +MHB]``&AG``&4<!1.N@``*D!*@&<``89P%$ZZ```F0$J`9P`!>'`%&T``""!O
  15902. +M`&@K2``.<A0[00`2%T``""=(``XW00`2)4@`/"5-`#0E2P`XD<@E2``D)4@`
  15903. +M("5(`#!*AV<&".H````S2H9G!@CJ``$`,TAZ_G!(>OY>2'K^1$AZ_+A(>OO:
  15904. +M2'K[#"`J`#`@2D/Z^KQ.N@``3^\`&"@`9P``\$J%9P8(Z@`/`#(@;P`@(DH2
  15905. +MV&;\($I#[P`D$MAF_$'O`"1#[``T3KH``"!*0^\`1A+89OQ![P!&0^P`.$ZZ
  15906. +M``!*AV<H2H9G!$J%9@9![P`D8`1![P!&(`@L;```<D#IB3!\#0!.KO_B)4``
  15907. +M($J&9RI*AV<$2H5G!D'O`"1@!$'O`$8@""QL``!R0.F)('P``(X`3J[_XB5`
  15908. +M`"1*J@`@9@1*AV8J("H`)&8$2H9F($J`9Q0L;```3J[_Q$J`:@)2@.*`)4``
  15909. +M*$*J`"P@!&!8("H`(&<*+&P``'(`3J[_W"`J`"1G"BQL``!R`$ZN_]Q*A&L&
  15910. +M(`1.N@``(`UG!B!-3KH``"`+9P8@2TZZ```J;P!H(`UG!B!-80#Y+B`*9P8@
  15911. +M2DZZ``!P_TS?;/#>_`!,3G4@;P`$GOP`("\-*DA.N@``2JP``&8(<`8I0```
  15912. +M8&@@+```4JP``"(L``#2@"\!2&P`/$AO``Q.N@``<``N@$'O`!!R`<%!80#]
  15913. +MN$_O``PJ@<<``O`$'O``AR`6$`_:)83RM```1K!'``8!P@%4ZZ``!*@&<*
  15914. +M($`@:``$80#XKB`53KH``'#_*E_>_``@3G4@+P`$(B\`""]O``P`!"!O`!">
  15915. +M_``H+PTJ2$CO``,`!$ZZ``!*K```9@AP!BE```!@:"`L``!2K```(BP``-*`
  15916. +M+P%(;`!(2&\`%$ZZ``!P`2Z`(@!![P`8P4%A`/T43^\`#"J`:S1"IT'O`!!P
  15917. +M`2(`80#\_EA/*T``!&L$<`!@'"`53KH``$J`9PH@0"!H``1A`/@*(!5.N@``
  15918. +M</\J7][\`"A.=0`````#^`````L````!```(!@``!V(```8\```&)@``!,P`
  15919. +M``2\```$H```!)@```22```"Y@```M`````````#[X8```-?7V9I9F]?<VEG
  15920. +M```````&```#K@```C````&H```!:@```.H````LA@```5]?=7,````!````
  15921. +M,H,```)`3F5W3&ES=`````$````ZA@```U]?1FEF;T)A<V4``````!$```;H
  15922. +M```&V```!K8```:(```&7````^8```-X```#(````K8```)B```!^@```5H`
  15923. +M``$\````W````,0```!\````;(,```)`9G)E90````````8```<D```'#```
  15924. +M!P(```"L````G````)"&```"7V5R<FYO```````&```'\```!TP```42```$
  15925. +M+```!!(```'>A@```E]$3U-"87-E`````P``!00```3B```!Z(,```1`7W=A
  15926. +M:71?<VEG;F%L<P```````@```Y0```(6@P``!$!?:&%N9&QE7W-I9VYA;',`
  15927. +M```"```#S@```E"#```"0'-T<F-A=``````$```&0```!BH```+J```"U(,`
  15928. +M``1`7W-I9U]D:7-P871C:````````0``!`R#```#7U]S<')I;G1F````````
  15929. +M!0``"`X```=J```$U```!,0```2H@P```D!?<V5T97)R`````0``!/B#```"
  15930. +M0&UA;&QO8P`````#```%>@``!6P```52@P```T!?86QL;V-?9F0```````$`
  15931. +M``7V@P```T!?9G)E95]F9`````````,```A:```'M@``!OB#```#0&-H:V%B
  15932. +M;W)T`````````@``!^0```=`A@```U]?9FEF;U]O:P````````(```?H```'
  15933. +M1(8```1?7V9I9F]?;V9F<V5T````````!```!_H```?V```'5@``!U*&```#
  15934. +M7U]F:69O7V)A<V4``````@``!_X```=:@P```T!?9FEN9%]F9`````````(`
  15935. +M``A&```'H@````````/Q`````P````!/4%13``0`0````_(```/J````%5]M
  15936. +M``!?<P``9FEF;SHE<R]R=V5S2R5S`&T```!F:69O.B5S+W(`9FEF;SHE<R]M
  15937. +M=V5+``!?;0``7W,``'5X9FEF;RXE;'@``'5X9FEF;RXE;'@``````_(```/I
  15938. +M````"2`O``193RZ`0>P`%B`(6$].=2!O``193RZ(0>P`%B`(6$].=0```_@`
  15939. +M```"`````0```!P````*`````````_$````#`````$]05%,`!`!````#\@``
  15940. +M`^H````)=7-E<@````````````!W:&5E;`````````X````4```````&```#
  15941. +M[`````0````!````(````!H````6````!@````````/R```#Z0```*D@+P`$
  15942. +M64\N@"`L`0QG#B!`3KH``$J`9P1R`6`"<@`@`5A/3G4@+P`$(&P!#'(`3OH`
  15943. +M`$ZZ```I0`$,9@I(;```3KH``%A/(&P!#$ZZ``"!K```3G4@;`$,3OH```CL
  15944. +M``P``DYU("\`!`@```Q6P$0`2(!(P$YU".P`#0`"3G4@+P`$"```#5;`1`!(
  15945. +M@$C`3G5.N@``<``@;```$"@`#W(!X:&#K```3G5.^@``("\`!%E/2.<!%B]`
  15946. +M`!!^`&`N("T`%$ZZ```F0$J`9Q1*JP`49@Y^`7`!)T``%"=M`!@`&")-<!PL
  15947. +M>``$3J[_+B!L```L>``$3J[^C"I`2H!FP"`'3-]H@%A/3G4@+P`$2.</!"X`
  15948. +M<`'OH"P`<`F^@&8&<`!.N@``("P!!,"&9P:-K`$(8'HJ!D:%RZP!"$J':V9P
  15949. +M(+Z`;&`@!^>`0>P`!"IP"``P?``!N\AF+"`'58!G%%.`9Q!R#9"!9SQ9@&<X
  15950. +M48!G-&`*2&P`&$ZZ``!83W``3KH``&`@(`UG'"`'YX`H!D'L``2(L`@$B:P!
  15951. +M!"`'3I5&A,FL`00@+`$(P(9FBDS?(/!.=2`O``0O#B(L``""@'``+'@`!$ZN
  15952. +M_LXL7TYU("\`!"\.(@`@+```@($L>``$3J[^PBQ?3G4@+P`$2.<#`"X`?`!A
  15953. +M`/X02H!G"'P!<`YA`/\,(`=A`/YB2H!G"'P!<`)A`/[Z(`=A`/YJ2H!G"'P!
  15954. +M<`-A`/[H(`=A`/Z&2H!G"'P!<!1A`/[6(`9,WP#`3G4@+P`$+P<I0```<`@N
  15955. +M'V``_KQP`&$`_V!@D&#V2.<!%'X`2^P`!#9\``$JBT*M``12AU"-<""^@&WP
  15956. +M0JP!"$*L`01"K```80#]U&$`_>IA`/VB3-\H@&``_?AA`/VX8`#^"``````#
  15957. +M^`````(````!```!=````#X````7`````@```H0```*````"?````F0```'6
  15958. +M```!N@```:8```&B```!F````9````%*```!.````2X```$F````I````'H`
  15959. +M``!@````5@```%````!(````.````"H````*`````````^^#```$0%]T:6UE
  15960. +M<E]E>'!I<F5D``````$````2@P``!$!?=&EM97)?<W1A<G0````````!````
  15961. +M,(,```1`7V%L;&]C7W1I;65R`````````0```#2#```"7U]F86EL```````!
  15962. +M````0H,```-`7W1I;65R7W-I9P`````!````3(,```-`7V9R965?=&EM97(`
  15963. +M```!````6H,```1`7VEN:71?<')O8V5S<V5S`````0```)*&```$7U]C:&EL
  15964. +M9')E;E]E>&ET``````(```#N````F(,```5`7V-L96%N=7!?<')O8V5S<V5S
  15965. +M``````$```"J@P```T!?9FEN9%]P:60```````$```#$@P```D!?7V5X:70`
  15966. +M`````@```8````$B@P```U]?;65S<V%G90````````$```%XA@```E]?1E!%
  15967. +M4E(``````0```D@````````#\0````,`````3U!44P`$`$````/R```#Z@``
  15968. +M``I&86EL960@=&\@8W)E871E('1I;65R``!U<V5R(&EN=&5R<G5P=``````#
  15969. +M\@```^L```!$```#\@```^D```(=2&P`!$ZZ``!83TYU("\`!"\-3KH``"I`
  15970. +M2H!F`F'B(`TJ7TYU(&\`!"`O``@O"TZZ```F0$J`9@)AQB`+)E].=2!O``0O
  15971. +M#2I((`UF!$OL``X@34H89OQ3B)'-(`A2@$ZZ```@0$J`9@1P`&`((D@2W6;\
  15972. +M(`@J7TYU64](YP,T?@!\`"!L```F:`#08"Q**P`(9B0P/`4`P&L`#F8:4H<@
  15973. +M:P`*(`A*&&;\4XB1P"`(W(#<JP`45(8F4TJ39M`@!U*`Y8#0AF$`_THI0``8
  15974. +MY8<@0")`T\=%Z0`$+T``%&8*0>P``"E(`!A@5B!L```J:`#08$)*+0`(9CHP
  15975. +M/`4`P&T`#F8P)FT`"BXM`!0@;P`4(,HO2``48`(4VTH39OH4_``])FT`$&`"
  15976. +M%-L@!U.'2H!F]D(:*E5*E6:Z(&\`%$*03-\LP%A/3G4@;P`$("\`""\-*D@J
  15977. +M@$*M``3E@&$`_K0K0``(*E].=2!O``0B;P`(("\`#$CG(C0F22I(2H!G"B!+
  15978. +M80#^PB1`8`(D2R`*9SXB%20M``2T@6TB+`'<AG00TH*\@6T"(@8J@2`!Y8`@
  15979. +M;0`(3KH``"M```AG$D?M``0B$U*;Y8$@6R&*&`!P`4S?+$1.=2!O``0B;P`(
  15980. +M("\`#&&22H!F!&$`_AI.=2!O``0B;P`(2.<`%"9)*D@@+0`$T*L`!+"5;Q+0
  15981. +M@"J`Y8`@;0`(80#^&BM```@B+0`$Y8$@;0`(T<$@*P`$(@#E@2)K``A@`A#9
  15982. +M4X%D^M&M``0@:P`(3-\H`$[Z```@;P`$(F\`""]O``P`!"`O`!`B+P`464](
  15983. +MYP(T+`$J221(+T@`$$J`9T13@&<*4X!G``"V8```]%.&9R(@+P`8(@V0@2!O
  15984. +M`!!",`@`($$B;P`08`(2V%.`9/I@``#.0>P`$")O`!`2V&;\8```OB9O`!A@
  15985. +M;G!<L!5F9DHM``%G8%2-<`&\@&8&%/P`86!4(`95@&9&$"W__TB`2,!R(Y"!
  15986. +M9RY5@&<J58!G)E.`9R)3@&<>4X!G&G(5D(%G%'(<D(%G#E6`9PIR'Y"!9P15
  15987. +M@&8$%/P`)Q3M__]@"!3M__]@`A3=N\MECF!`)F\`&&`V<"JP%68N2BT``6<H
  15988. +M5(T0+?__2(!(P')ED(%G#'()D(%F#!3\``I@#A3\`!M@"!3M__]@`A3=N\ME
  15989. +MQD(23-\L0%A/3G6>_`$L2.<_-BIO`5@@;```#&@`)0`49`I(>``43KH``%A/
  15990. +M0JP`''`!*4``&"E``#YP`BE``#HI0`!@*7P```"$`%R3R2QX``1.KO[:*4``
  15991. +M`$ZZ```I0``$9@I(;``23KH``%A/(&P`!$ZZ```I0``(+&P`!"!6+&@`%"E.
  15992. +M`!1![P$P3J[_OBEO`3``#$ZZ``!.N@``(&P``"`H`*QG$.6`(D`B*0`TY8$I
  15993. +M00`08`8I:`"$`!!*%68``.A![``J(@@L;```)#P```/N3J[_XBP`0>P`,"((
  15994. +M3J[_XBX`0>P`-B((3J[_XBH`2H9G"$J'9P1*A68B2H9G!B(&3J[_W$J'9P8B
  15995. +M!TZN_]Q*A6<&(@5.KO_<80#[<G`!+P`O!2\`+P<B!L%!3KH``"!L```@*``<
  15996. +M0>\!6&$`_)Y/[P`0?`!^`&!0(FP``"!I`"0@,'@`9SXB`$/O`#`D"2QL``!V
  15997. +M0.6+3J[^;DJ`9R8B;```(&D`)-''("@`!&<((@(D`$ZN_(Y![P%(0^\`,'`!
  15998. +M80#\V%*&4(<@;```O*@`'&VF8``"S"QL``!.KO_**`!.KO_$*@!^`"!L```L
  15999. +M*`#@9BA^`4'L`#PB""0\```#[4ZN_^(L`&820>P`/B((3J[_XBP`9@1A`/JD
  16000. +M+P<O!G``+P`O!2($P4%.N@``0>\!6'`!80#[UB`\```%&F$`^HX@0#%\!```
  16001. +M$B]``#QP0.6(80#Z>D_O`!!^0.6/+T`!.&`"4HT0%4B`2,!![``!"#```P@`
  16002. +M9NP0%6<``A9R(K`!9C!2C29-8!!P*K`59@A*+0`!9P)2C5*-$!5G!G(BL`%F
  16003. +MYB1-$!5R(K`!9@)2C7P"8%1P)[`59B!2C29-8`)2C1`59P9R)[`!9O0D37`G
  16004. +ML!5F`E*-?`%@+B9-8!!P7+`59@A*+0`!9P)2C5*-$!5G$G(@L`%G#'(*L`%G
  16005. +M!G()L`%FVB1-?``@2RH*FHL@!5*`+T@`*&$`^;8F0$JO`4QF("`%($LB;P`H
  16006. +M3KH``$(S6`!![P%((DMP`&$`^V!@`/\FVH5R$-J!NH=O%"!O`3A.N@``(`5A
  16007. +M`/EV+@4O0`$X+PH@!B!+(F\`+'(!80#[KEA/(@LD+P$X)@<L;```3J[\N"H`
  16008. +M;!!"$B\O`"A(;`!$3KH``%!/2H5F(B\*(`8@2R)O`"QR`&$`^W1![P%,(DMP
  16009. +M`&$`^NA83V``_JQZ`2!O`"Q"J``(0B@`$4(H`!`O"B`&($LB;P`L<@)A`/M`
  16010. +M0>\!0'`080#Z)EA/(@LD+P`L+&P``$ZN_,HH`&8\8"IZ`")O`"S2_`$80>\!
  16011. +M/'`!80#Z($J`9@1X9V`2(B\`+"QL``!.KOS$*`!*A&?2(B\`+"QL``!.KOR^
  16012. +M<'30@+B`9PI(;`!83KH``%A/2H5G(B\*(`8@2R)O`"QR`&$`^L!![P%,(DMP
  16013. +M`&$`^C183V``_?@@+P%`(&\!1$ZZ``!![P%(0^\!/&$`^BH@2TZZ``!@`/W6
  16014. +M(&\!.$ZZ```@;P`L3KH``&$`^))![`!R3KH``"E```!F"$'L`'@I2```0>P`
  16015. +M?DZZ```I0``49@8I;````!1![`"(3KH``"E``!AF"$'L`(XI2``80>P`DDZZ
  16016. +M```I0``<9@A![`"8*4@`'$'L`*!.N@``*4``'&8(0>P`JBE(`!P@+P%,(&\!
  16017. +M4")L`!A.N@``<`!.N@``3-]L_-[\`2Q.=0```_@````5`````0``"$X```A`
  16018. +M```(.```""H```@B```(%```"`````?X```'Z@``!X0```;0```%3@``!3H`
  16019. +M``18```$3```!#8```/6```"J````.````!.`````@```!(````"```(7@``
  16020. +M"%(```A(```%+@``!"P```0D```$$```!`0```/V```#[````^@```/@```#
  16021. +MT````\@```#J````Y````,H```"$`````````^^#```"7U]F86EL```````$
  16022. +M```'B```!M0```/:````!H,```)`;6%L;&]C``````(```!@````%(,```)`
  16023. +M<F5A;&QO8P````(```&R````,(,```)`9G)E90````````4```?B```'V@``
  16024. +M!\X```:4```"1H8```)?4WES0F%S90````$```.(@P```E]?6$-%6$E4````
  16025. +M`0```YB&```"7U]?:6]B```````&```#N@```[(```.N```#J````Z0```.>
  16026. +M@P``!$!?86QL;V-?=&EM97(````````!```#S(,```-`7W1I;65R7W-I9P``
  16027. +M```!```#Y(,```-`7VEN:71?9FEF;P`````!```$"(,```1`7VEN:71?<VEG
  16028. +M;F%L<P```````0``!`R&```"7T1/4T)A<V4````'```'=```!V(```<T```&
  16029. +MO@``!1P```34```$/(,```1`7VEN:71?=6YI>&EO`````````@``!6X```2@
  16030. +MA@```U]?5T)E;F-H37-G``````0```4.```$Y```!+X```2DA@```E]?7V-T
  16031. +M>7!E`````0``!;"#```"0'-T<FYC<'D````!```&;H,```)`='%S;W)T````
  16032. +M``$```>\@P```T!?7V=E=&5N=@````````4```A$```(+@``"!@```@$```'
  16033. +M[H8```-?7V%M:6=A7W5S97(````)```(/```"#(```@F```('```"!````@.
  16034. +M```("```!_P```?R@P```D!M86EN`````````0``"&*#```"0&5X:70`````
  16035. +M```!```(:`````````/Q`````P````!/4%13``0`0````_(```/J````+```
  16036. +M``!.;R!M96UO<GD```!A`$9A:6QE9"!T;R!C<F5A=&4@=&EM97(``$Y)3#H`
  16037. +M`$Y)3#H``$Y)3#H``"H`3DE,.@``26YV86QI9"!W:6QD8V%R9"`E<P!%<G)O
  16038. +M<B!E>'!A;F1I;F<@87)G=6UE;G1S`%5315(``'5S97(``%5315).04U%``!(
  16039. +M3TU%``!S.@``4TA%3$P`8FEN.G-H``!(3U-43D%-10``86UI9V$````#\@``
  16040. +M`^L````(```#\@```^D````$("\`!%E/+H!P`%A/3G4``````_$````#````
  16041. +M`$]05%,`!``````#\@```^D````^("\`!$CG`P`N`$JL``!G!"`'8&!\`"`'
  16042. +M`H````$D9P)\"`@'``=G!`!&``4(!P`$9P0(Q@`""`<``6<$",8```@'``-G
  16043. +M!`C&``$(!P``9P0(Q@`&(`=R2<"!<D"P@68$`$8`0@@'``EG!`C&``4@!@I`
  16044. +M``],WP#`3G4@+P`$2.<&`"P`2JP``&<((`8"0`__8%YZ``I&``\(!@`#9P1Z
  16045. +M2>6-(`9R!<"!6X!F!`C%``<(!@`"9P0(Q0`$"`8``&<$",4``2`&<D+`@6<$
  16046. +M",4`!@@&``%G!`C%``,(!@`&9P0(Q0``"`8`!6<$",4`"2`%3-\`8$YU````
  16047. +M``/X`````@````$```"&````#`````````/Q`````P````!/4%13``0`0```
  16048. +M`_(```/K`````0```_(```/I`````G``3G5P`$YU```#\0````,`````3U!4
  16049. +M4P`$``````/R```#Z0```!5(YP,`3KH``"X`?`!@"B\&3KH``%A/4H:\AVWR
  16050. +M3-\`P$YU("\`!"\'+@!AU$ZZ``!.N@``(&P``$ZZ```O!TZZ``!83RX?3G4@
  16051. +M+P`$+P<N'V#4``````/O@P```T!?;&%S=%]F9`````````$````&@P```E]C
  16052. +M;&]S90```````0```!*#```$0%]C;&5A;G5P7V9I9F\```````$````N@P``
  16053. +M!4!?8VQE86YU<%]S:6=N86QS`````````0```#*&```#7U]O9&1?=&EM97(`
  16054. +M`````0```#:#```#0%]F<F5E7W1I;65R`````0```#J#```"7U]80T58250`
  16055. +M```!````0`````````/Q`````P````!/4%13``0`0````_(```/I````$R`O
  16056. +M``0B+P`((&\`#%%/2.<#)"P!+@`J2$ZZ```@!TZZ``!*@&<:(D`@:0`@+T@`
  16057. +M%"`&(&D`!")-)&\`%$Z28`)P_TS?),!03TYU``````/O@P```T!C:&MA8F]R
  16058. +M=`````````$````:@P```T!?9FEN9%]F9`````````$````@`````````_$`
  16059. +M```#`````$]05%,`!``````#\@```^D```"8GOP`#$CG+S8J;P`T?@/.KP`X
  16060. +M?`$@;```)F@`N"H\```#[$ZZ``!*AV<*<`*^@&<$<@!@`G(!+T$`*'`!OH!G
  16061. +M"%6'9P1P`&`"<`$O0``L($U#[```3KH``$J`9@9X_V```51P_R!L```A0`"X
  16062. +M(@TL;```=/Y.KO^L+@`@;```(4L`N$J`9G@L;```3J[_?$ZZ```L`"`L``!R
  16063. +M+D8!L(%G!$J`9@I^`2H\```#[F`6(`95@&8,""\`"``Z9P1P`6`"<``N`$J'
  16064. +M9RQ\``@O``@`.F<<""\`#P`Z9P9X`F```-8@+P`\3KH``"@`8```R'C_8```
  16065. +MPBE&``!P_V```4)"IRQL``!R`B0/3J[_'$_O``0D0$J`9PPB!R0*3J[_FDJ`
  16066. +M9A8@"F<()`IR`DZN_Q9.N@``</]@``$(*"H`="0*<@).KO\6(@=.KO^F<%#I
  16067. +MB,"O`#@,@```!0!F#'`1*4```'#_8```VDJO`"AG!@@$``-F#$JO`"QG$@@$
  16068. +M``)G#'`-*4```'#_8```M@@O``D`.F<B(@TD/````^Y.KO_B2H!G""(`3J[_
  16069. +MW&`*3KH``'#_8```C`@O``@`.F<$(`5@!B`\```#[20`(@TL;```3J[_XBH`
  16070. +M9@A.N@``</]@8`@O``D`.F8$2H9F!"P$8`)\_WX`2J\`*&<"?@%*KP`L9P0(
  16071. +MQP`!""\``P`[9P0(QP`#+P<@!2(&3KH``%A/+@!L''#_(&P``"%``+@B!2QL
  16072. +M``!.KO_<(&P``"%+`+@@!TS?;/3>_``,3G4@;P`$+R\`#"\O``PO"&$`_:A/
  16073. +M[P`,3G4```/X`````0````$```!2`````````^^&```!7U]U<P````4```(V
  16074. +M```")````'P```!F````%H,```-`8VAK86)O<G0````````!````)(,```)`
  16075. +M<W1R:6-M<`````$```!6A@```E]$3U-"87-E````!0```BX```',```!`@``
  16076. +M`(@```!P@P``!$!C;VYV97)T7V]S97)R```````!````D(8```)?7T]315)2
  16077. +M``````$```"6@P``!4!?;6%K95]P<F]T96-T:6]N`````````0```.:&```"
  16078. +M7V5R<FYO```````#```!@@```5X```#V@P```D!?<V5T97)R`````P```=@`
  16079. +M``&L```!,(,```1`7V%L;&]C7V%M:6=A9F0``````0```A@````````#\0``
  16080. +M``,`````3U!44P`$`$````/R```#Z@````).24PZ`````````_(```/I```%
  16081. +M:"!O``1(YS@`</_`*``#<@`2`'#_P"@``G0`%`!P_\`H``%V`!8`</_`$'@`
  16082. +M&`#AA(B#X82(@N&$B($@!$S?`!Q.=4CG(S1+[`!R0>P`'$7L``PDR$'L`"`D
  16083. +MR$*L`!A"FGX`+"P`>D?L![Q@/"`K``0B`.6!($W1ZP`(0^@'ZD7L``PEB1@`
  16084. +M2H!G!G`!*4``&$J'9P9*JP`$9@@@$T2`*4``%%*'UOP`$+Z&;<!^`"PL`'9@
  16085. +M.G``(@<&@0``!=@0-1@`2,#I@"!-(@`&@0``!U+1]1@`!H````=.)#4(`.6"
  16086. +M0^@'ZD7L``PEB2@`4H>^AFW"3-\LQ$YU(&\`!")O``B>_`HH2.<[-B](`"@O
  16087. +M20`L(`AF"$WL`"0O3@`H<#H@;P`HL!!F!%*O`"@@;P`H<#I.N@``2H!F3G`*
  16088. +M(@`@;P`H(`A*&&;\4XB1P-*(4H%P0;*`909P_V```DQ![``P0^\`,1+89OQ!
  16089. +M[P`Q0^P`/$ZZ``!![P`Q(F\`*$ZZ``!![P`Q+T@`*$*G+R\`+$ZZ``!03RX`
  16090. +M4H!F!G#_8``"""`'0>\`<B(\```)VDZZ```L`"`'3KH``$J`9@9P++R`9`9P
  16091. +M_V```>!![P"*80#^."X`0>\`CF$`_BXJ;P`L*H!![P"280#^("M```1![P"6
  16092. +M80#^%"M```A![P":80#^""M```PB%6LP=#*R@FXJ)BT`"&\D>`JVA&X>*"T`
  16093. +M!&L8#(0```%R;A!*@&L,L()N"+:'9PI*AV<&</]@``%JTH'E@2`M``@D`-2"
  16094. +MU(#4@B`M``0F`.6#UH#6@M:M``S6@=:'<"S6@+R#9`9P_V```3A'[P">?``D
  16095. +M36`0($MA`/V()4``$%B+4H98BKRM``1MZGP`8"`0&R(&!H$```78&X`8`'(`
  16096. +M$@"RK0`(;09P_V```/92AKRM``1MVGP`0>T'2B1(+T@`)&!*($MA`/TZ)(!+
  16097. +MZP`%$"L`!'(`$@`E00`$9PI3@6<&</]@``"\1^T``1`5<@`2`"5!``AM"BIO
  16098. +M`"RRK0`,;P9P_V```)Q2AM3\`!"\K0`(;;!\`&`.(`8&@```!^H;FP@`4H:\
  16099. +MK0`,;>P@!@:````'ZD(U"`!\`-K\"!Y@'B!+80#\OBJ`1>L`!"!*80#\LBM`
  16100. +M``1'Z@`$4H90C2!O`"R\D&W:?``D;P`D*F\`+&`H2H=F!D*J``Q@&!`;2(!(
  16101. +MP"5```QR`;"!9PA*@&<$</]@#E*&U/P`$+RM``AMTG``3-]LW-[\"BA.=2!O
  16102. +M``193R\-*DA@`E*-$!4?0``$9R9(@$C`0>P``0@P``((`&86$"\`!'(LL`%G
  16103. +M#'(ML`%G!G(KL`%FT"`-*E]83TYU(&\`!")O``@@+P`,(B\`$%E/2.<'%"P!
  16104. +M+@`F22I((`UG$A`52(!(P$'L``$(,``""`!F!'``8$IZ`&`B$"\`%$B`2,`B
  16105. +M!>6!TH72@=*`*@%P,)J`NH9O!'``8"92C1`5'T``%&<02(!(P$'L``$(,``"
  16106. +M"`!FQKJ';`1P`&`$)H4@#4S?*.!83TYU(&\`!")O``A93TCG`!0F24/O``AP
  16107. +M`'(880#_;"I`2H!F!'``8&H@+P`((@#I@9*`(`'I@)"!Z8`F@'`ZL!5F3D'M
  16108. +M``%#[P`(<`!R.V$`_S@J0$J`9@1P`&`V("\`""(`Z8&2@.6!TY-P.K`59B!!
  16109. +M[0`!0^\`"'``<CMA`/\**D!*@&8$<`!@""`O``C1DR`-3-\H`%A/3G4@;P`$
  16110. +M(F\`"%E/2.<!%"I)+T@`#!`0<BVP`68(?@%2KP`,8#!(@$C`0>P``0@P``((
  16111. +M`&88<BL@;P`,LAA7P$0`2(!(P"](``Q*@&<$?@!@!'``8!P@;P`,(DUA`/\4
  16112. +M)D!*@&8$<`!@"$J'9P)$E2`+3-\H@%A/3G4@;P`$(F\`")[\``Q(YP`D*DDO
  16113. +M2``0<$JP$&8H0I5#Z``!0>T`!"](``P@22)O``QP`2(\```!;6$`_CPO0``0
  16114. +M8```M'!-L!!F?'`"*H!#Z``!0>T`#"](``P@22)O``QP`7(,80#^$")`2H!F
  16115. +M!G``8```P$7I``%P+K`19P9P`&```+!![0`((D@@2G`!<@5A`/WD(D!*@&8&
  16116. +M<`!@``"41>D``7`NL!%G!G``8```A$'M``0B2"!*<`!R!F$`_;@O0``08#`0
  16117. +M$$B`2,!#[``!"#$``@@`9QIP`2J`0^T`!'``(CP```%M80#]C"]``!!@!'``
  16118. +M8#P@+P`09@1P`&`R<"\@;P`0L!!F'$/H``%![0`0+T@`#"!)(F\`#&$`_=HO
  16119. +M0``08`@K?```'"``$"`O`!!,WR0`WOP`#$YU("\`!"(O``@@;P`,+V\`$``$
  16120. +MGOP`)$CG/Q0J2"H`+@$D!W8#Q(,O0``X+T$`/$J"9@P@!W)D3KH``$J!9A(@
  16121. +M!W)DY8E.N@``2H%G!'``8`)P`2P`(!5*@&<,4X!G2%.`9V9@``%^("T`!"(`
  16122. +M4X$D`=2"U($F`NF#EH(D`^F"E(/O@BX%WH(O1P!`2H9G``%4<CRP@6T``4P&
  16123. +MAP`!48`O1P!`8``!/B`M``0B`-*!TH`D`>F"E($B`NF!DH+O@=J!+T4`0&``
  16124. +M`1PH!7X`*BT`#%.%(`;0@-"&Z8!'[``^U\`O0``@8!H@&R(`TH'2@"0!Z8*4
  16125. +M@2("Z8&2@N^!V(%2A[Z%;>(N+P`\+T0`)"(M``QT`K*";@8F!U.#8`(F!R`#
  16126. +M<F1.N@``(@#2@4J`:@)6@.2`+T``+"`#+T$`,')D3KH``"`!:@)6@.2`=@G6
  16127. +MK0`,+T``-"`#+T$`*'(,3KH``%*!(`'G@)"!T("0@="`58!R"DZZ``!'[P`H
  16128. +MT)O0KP`TT)N0FU*`<@=.N@``+@%J`EZ'+"T`!)R':@)>AGH!*"T`"&`<+@9>
  16129. +MAR(M``SE@4'L`#K1[P`@OK`8`&P(+`=2A;J$;>`@!M"`T(8B`.F!DH`@`>F`
  16130. +MD('O@"(O`"32@"]!`$`@+P!`T*T`$-"O`$A,WRC\WOP`)$YU(&\`!")O``@@
  16131. +M+P`,GOP`6$CG/S8J2"Q-1^\`-";`)L@FR2].`#!*@&<<(`A*&&;\4XB1P"P(
  16132. +M(@C3KP`X<#.R@&4<?#)@&&$`^JHL`)R-+T``.'(#O(%L!G#_8``#>B]&`"P@
  16133. +M;P`X2A!F!G#_8``#:$/O`'1A`/OF+T``.&8&</]@``-4)F\`/$'L`*8B2V$`
  16134. +M][`N`&<"0I,@;P`X2A!G``*^*D@O2`!\80#Z2"(`DHTO0``X+T$`>'8#LH-L
  16135. +M!G#_8``#%"!O`#@0$&<@<BRP`6<:<CNP`6<40^\`<&$`^WXO0``X9A1P_V``
  16136. +M`NP@//__\?#0KP!T+T``<"!O`#@0$'(LL`%G"'([L`%F``%80^@``2!)0^\`
  16137. +M7&$`^[HJ0$J`9@9P_V```K!%[0`!<"RP%6<&</]@``*@($I#[P!(80#[E"]`
  16138. +M`#AF!G#_8``"BB!O`#A*$&<&</]@``)\($MP`B%```@A?````(@`!"`O`'!$
  16139. +M@$WH!THLP'`!+,!2ABS&("\`=$2`3>@'6BS`0IY"GM;\`!!%Z`78>@`L/```
  16140. +M![(@2B\O`'0O2``L(`4B!D'O`&!A`/QF+@`NKP!T(`4B!D'O`$QA`/Q46$\H
  16141. +M`$OJ``)%ZP`(OH!O&B!+((1P`2)O`"@2@"9*(4<`!"1-0BD``6`8($L@AR)O
  16142. +M`"A"$29*(40`!"1-$WP``0`!(`9R`\"!9@P@!G)D3KH``$J!9A(@!G)DY8E.
  16143. +MN@``2H%G!'``8`)P`2(`Y8%![`">(#`8`"(`TH'2@"8!Z8.6@20#Z8*4@^^"
  16144. +MVH)2A@R&```']6\`_T)@``$<(&\`.$H09P9P_V```69*AV<&</]@``%<>`!\
  16145. +M`'H`0J\`1'X`*DM@<$JM!TYG/B`O`$0B!^F!)"\`<`:!```'2B8S&`#6@B]#
  16146. +M`$1*AF<*L(-G!G#_8``!'$2"*T('2B`O`"Q2@"M`!U)\`6`F(`4B+P!T*BT'
  16147. +M2MJ!2H1G"K"%9P9P_V```.Y$@2M!!TI"K0=2>`%2A]K\`!"^JP`(;8I*AF<$
  16148. +M2H1F!G#_8```R'P`?@`J2R@O`$1@.G``(@<&@0``!=@0,Q@`2,#I@"!+T<!#
  16149. +MZ`=*+TD`0$J&9PI*J0`,9@0@!&`"(`71K0`0+"D`!%*'6(V^JP`$;<!@('``
  16150. +M<@$G00`()T``!"0O`'1$@DWK!THLPBS`+,`O0`!X*F\`/"XO`"P@!U*`*T``
  16151. +M#"PO`'AG"-"&4H`K0``,<C.P@6,$</]@,-K\!^H@!R!-(F\`,$ZZ```@3=''
  16152. +M2^@``4(02H9G$"`&($TB;P!\3KH``$(U:`!P`$S?;/S>_`!83G4@;P`$+PTJ
  16153. +M2$'L```B36$`]%!*@&<,0>P``")-<`%A`/P,*E].=2\-0>P`LDZZ```J0$J`
  16154. +M9@8J7V```%QP`2E`$\Y*%68>0JP`<D*L`'9"K`>\0JP'Q$'L``!#[`A<$MAF
  16155. +M_&`L($U#[`!R80#S]$J`9QYP.K`59Q`@34/L`')P`&$`^ZI*@&<(0>P`<F$`
  16156. +M_W8J7V``\PYP`2E`$\Y#[`!RD<AA`/.\2H!G"$'L`')A`/]48`#R[B!O``0@
  16157. +M+P`((F\`#)[\`!!(YP,4*DE([P$!`!`@;P`4+U``&$JL$\YF!&$`_T1*K`!V
  16158. +M9PH@+P`8L*P`@FP@?@!'[`!R8!!2A];\`!"^K`!Z;01^`&`R2JL'3F;J8"I^
  16159. +M`4?L`'8L+`!V8`X@+P`8L*L`$&T(4H=8B[Z&;>Y#[`!RT\=^`!XI!=?IAT'L
  16160. +M![S1QR\-+T@`("`00>\`'$/L`')A``#"(&\`("(H``0K00`@Y8%![`A<(F\`
  16161. +M(-'I``A#[``,(X@8`"M(`"A83TS?*,#>_``03G4@;P`$0^P``'``80#_*D'L
  16162. +M```@"$YU(&\`!"`O``@B;P`,2.<!%"X`)DDJ2$JL$])F#G`!*4`3TD'L"B!A
  16163. +M`/XZ+PL@!R!-0^P*(&$``$)83TJ'9P9![`"Z8`1![!(*)T@`*$S?*(!.=2!O
  16164. +M``1#[``L<`!AKD'L`"P@"$YU(&\`!"`O``@B;P`,+V\`$``$GOP`#$CG#S0N
  16165. +M`"9O`"PJ2'P`>@`H$2`$YX`O20`@T\!%Z0@>8$`O2@`D(!6PDFTV(&\`)+"0
  16166. +M9BA*A&8&("@`!&X:YX0B*``$(F\`(`:$```(&K*Q2`!N!'``8`)P`2H`+"@`
  16167. +M!&`&4X11BFRZ(!4B/``!48!.N@``*``@%2(\``%1@$ZZ``#2AY*&+`%@"`:&
  16168. +M``%1@%.$2H9K]&`(!(8``5&`4H0,A@`!48!L\"`&(CP```X03KH``"=```@@
  16169. +M!B(\```.$$ZZ```@`2]!`!QR/$ZZ```G0``$("\`''(\3KH``":!2H5G`E*3
  16170. +M(`18@'('3KH``"=!`!AL!%ZK`!@L/```![)*A&M`(`9R`\"!9@P@!G)D3KH`
  16171. +M`$J!9A(@!G)DY8E.N@``2H%G!'``8`)P`2H`(@#E@47L`)X@,A@`N(!M0%*&
  16172. +MF(!@P%.&(`9R`\"!9@P@!G)D3KH``$J!9A(@!G)DY8E.N@``2H%G!'``8`)P
  16173. +M`2H`Y8!![`">V+`(`$J$:\8$A@``!VPG1@`4)T0`'"`%T(#0A>F`1>P`/M7`
  16174. +M0JL`$&`.(BL`$.6!F+(8`%*K`!`B*P`0Y8&XLA@`;.92A"=$``Q"JP`@)T<`
  16175. +M)$S?+/#>_``,3G4@;P`$+PTJ2"`M`!@B`-*!TH!![`"^T<$@+0`0(@#2@=*`
  16176. +M0^P`T]/!(#P```=LT*T`%"\`+Q4O+0`$+RT`""\M``PO"2\(2&P`^$AL`%A.
  16177. +MN@``3^\`)$'L`%@@""I?3G4@;P`$+PUA`/TX($`J7V"4(&\`!")O``@@+P`,
  16178. +M+P<N`"`1L(=M%"('3KH``-&0(!$B!TZZ```B@6`J2H!J)E.0WY%L("`11(`B
  16179. +M!TZZ```B$)*`4X$@@2`11(`B!TZZ``">@2*'+A].=2!O``0B;P`(2.<!%"9)
  16180. +M*D@N+0`4GJL`%&8L+BT`$)ZK`!!F(BXM``R>JP`,9A@N+0`(GJL`"&8.+BT`
  16181. +M!)ZK``1F!"X5GI,@!TS?*(!.=2!O``0B;P`(("\`#"]O`!``!)[\`'!(YS\T
  16182. +M+@`J;P"8+TD`+$*5+T@`*$/O`%QP"B+84<C__"`O`%QR/K"!;`1*@&H.0>\`
  16183. +M8$/O`%QP/&$`_Q9![P!D0^\`8'`\80#_"$'O`&A#[P!D<!AA`/[Z0>\`<$/O
  16184. +M`&QP#&$`_NQ@3"`O`'!3KP!P!H````=K(@!T`\*"9@IR9$ZZ``!*@68:(#P`
  16185. +M``=LT*\`<')DY8E.N@``2H%G!'``8`)P`2(`Y8%![`">(#`8`-&O`&@@+P!H
  16186. +M;ZXL/```!VS<KP!P(`9R`\"!9@P@!G)D3KH``$J!9A(@!G)DY8E.N@``2H%G
  16187. +M!'``8`)P`20O`&SE@B8`UH/6@.F#0>P`/M'#+#`H`"`O`&BPAF\:1^\`:)V;
  16188. +M4I,,FP````QMGD*O`&Q2KP!P8)0@+P!<0J\`7'H`<@$O00"(+T``)%*%("\`
  16189. +MB-"`+T``B"`O`(AN[B`O`(AJ!'``8`1P`>N@+T``B$AO`#`O!TAO`)`@;P`X
  16190. +M3I!![P`\0^\`:&$`_BQ/[P`,*`!G+B`%4X5*@&H&</]@``$02H5J!E.O`(A@
  16191. +MQ'`!ZZ`L`$J$;P:=KP"(8+3=KP"(8*X@+P!\:P``Q"(O`%"R@&<``+I!^OGB
  16192. +M(F\`++/(9@9![`!R8`1![`H@?``F2"](`)!@``"(("L'3K"O`'QF=GH`)&\`
  16193. +MD&!D("H'3K"O`'QG5"`%Z8`B+P"((&\`D`:````'2M*P"`"2JP=*+T$`C$AO
  16194. +M`#`O!TAO`)0@;P`X3I!![P`\0^\`:&$`_6Q/[P`,2H!F$B`O`%"PKP!\9@@O
  16195. +M;P",`(A@)E*%U/P`$"!O`)"ZJ``(;9)2AM;\`!`@;P"0O*@`"&T`_W!P_V`D
  16196. +M("\`)-&O`(@O+P`H+P=(;P"0(&\`.$Z0<`$J@$_O``P@+P"(3-\L_-[\`'!.
  16197. +M=2!O``0B;P`(("\`#)[\``Q(YP<T+@`J2"])`!@,K0````$`(&\&<`$K0``@
  16198. +M2&\`'"`'($UA`/T>6$\L`$JO`!QF!B`M`"!J!B`&8```QD'Z^*XB;P`8L\AF
  16199. +M!D'L`')@!$'L"B!\`"9(+T@`(&```)8@*P=.L*T`(&8``(1Z`"1O`"!@<"`M
  16200. +M`"`B*@=.LH!G7B`%Z8`B%2!O`"`&@```!TK2L`@`DJL'2BJ!2JT`(%?`1`!(
  16201. +M@$C`*T``($AO`!P@!R!-(F\`'&$`_(Q83TJO`!QF0"`5D*H'2M"K!THJ@$JM
  16202. +M`"!7P$0`2(!(P"M``"!2A=3\`!`@;P`@NJ@`"&V&4H;6_``0(&\`(+RH``AM
  16203. +M`/]B</],WRS@WOP`#$YU(&\`!"\-0_KWVG``*E]@`/[@2JP3SF8$80#W+$YU
  16204. +M``````/X````'0````$``!*X```29@``$-@``!"T```0I```$%0``!`R```/
  16205. +M\@``#H(```X6```,^```#,H```RX```,J@``"O@```E*```(>```!Z0```%L
  16206. +M```!7````18```#F````H````(X```"`````7````%8```!0````3````"L`
  16207. +M```"```5E```%,8``!3````3D@``$XP``!#H```0W```#J(```Z:```.B```
  16208. +M#G0```YF```.8@``#EH```X\```.,@``#@H```WT```-X@``#=0```V\```-
  16209. +MN```#:0```V8```-D```#88```U\```-3```#3X```TZ```-*@``#1P```T(
  16210. +M```,_```#/0```SP```,[```#.@```S@````L````&@```!D````2```````
  16211. +M``/O@P```D!S=')C:'(``````0```3*#```"0'-T<F-A=``````"```!?```
  16212. +M`7"#```"7V]P96X````````!```!CH,```)`<F5A9`````````$```&L@P``
  16213. +M`D!C;&]S90```````0```;2&```"7U]?8W1Y<&4````%```&6@``!3X```1>
  16214. +M```$'````\J#```"7U]#6$0S,P`````<```2G```$HX``!)4```2/@``$4X`
  16215. +M`!$\```1)```$1H``!`@```0$@``#]X```_0```/K```#YH```^,```/@```
  16216. +M#W````\^```/,```"N8```K8```(4@``"#P```@F```("```!^P```<.```'
  16217. +M`(,```)`<W1R;F-P>0````(```R.```,=(,```-`7U]G971E;G8````````!
  16218. +M```,SH,```)?<W!R:6YT9@````$``!#@`````````_$````#`````$]05%,`
  16219. +M!`!````#\@```^H```!(1TU4`"`@(``@("``````!`````@``````````"`@
  16220. +M(``@("``<SIL;V-A;'1I;64`<SIZ;VYE:6YF;P``+P`````?````'````!\`
  16221. +M```>````'P```!X````?````'P```!X````?````'@```!\````?````'0``
  16222. +M`!\````>````'P```!X````?````'P```!X````?````'@```!\```%M```!
  16223. +M;G!O<VEX<G5L97,``%5.25A46@``("`@`%-U;DUO;E1U95=E9%1H=49R:5-A
  16224. +M=$IA;D9E8DUA<D%P<DUA>4IU;DIU;$%U9U-E<$]C=$YO=D1E8P`E+C-S("4N
  16225. +M,W,E,V0@)3`R+C)D.B4P,BXR9#HE,#(N,F0@)60*```````#[`````(````!
  16226. +M````$`````P````````#\@```^L```3V```#\@```^D```&<GOP`#$C7`0-P
  16227. +M_][\``Q.=5%/2-<#`%!/3G5(YS`"(A!**``-9P1P`&`<)`DF`"QL``!.KO_6
  16228. +M(@!2@&8(3KH``'#_8`(@`4S?0`Q.=5%/2.<_-BX`*DDF2"P3+T8`*"](`"Q*
  16229. +M*P`-9P9P`&```(Q**P`,9V8F3=?'>@!@6"1-8`)2BK7+9`9P"K`29O2WRF8$
  16230. +M*`I@!D'J``$H")B-(B\`*"0-)@0L;```3J[_T"P`4H!F"$ZZ``!P_V`^VH:V
  16231. +MAF8V2^H``9Z&<`!.N@``3KH``$J`9B)*AV:D8!PB!B0-)@<L;```3J[_T"H`
  16232. +M4H!F"$ZZ``!P_V`"(`5,WVS\4$].=5E/2.<_`BX`+!`O00`<2B@`#6<$<`!@
  16233. +M4E.!)@$B!B0'+&P``$ZN_[XJ`$ZN_WPH`%*%9P1*A&<.(`1.N@``*4```'#_
  16234. +M8"0B!G0`)@).KO^^+`!2@&<$2H1G#B`$3KH``"E```!P_V`"(`9,WT#\6$].
  16235. +M=9[\`0!(YS\&+@`J2"P5*BT`""`M``1G"B(`+&P``$ZN_Z88+0`-2(1(Q"!-
  16236. +M3KH``$J$9P1P`&!$(@9![P`@)`@L;```=D#EBTZN_F@H`$J'9@HB!DZN_]Q*
  16237. +M@&<:2H1G$G#_NH!G#"(")`5.KO]&2H!G!'``8`9.N@``</],WV#\WOP!`$YU
  16238. +M("\`!$CG(`(B`"QL``!T`$ZN_S1.KO]\="Y&`K""5\%$`4B!2,$@`4S?0`1.
  16239. +M=2`O``0@;P`((F\`#)[\`!!(YS<6+@`F22I(?`!AN$J`9GPB!RQL``!T`4ZN
  16240. +M_E9*@&=L(@=![```)`AV!$ZN_]!9@&92(@<D/```)Q!.KO\T2H!G0B('0>\`
  16241. +M("0(=A!.KO_6<@FP@6\N<)NP+P`@9B9![P`E(@@D"TZN_-`J`$'O`";1P"((
  16242. +M)`U.KOS04H!G!E*%9P)\`2('=`!.KOY6(`9,WVCLWOP`$$YU("\`!"(O``B>
  16243. +M_`(02.<_!BX`</\O0`(H+T$`)"('+&P``'0`=@%.KO^^+T``("('3J[_OBP`
  16244. +M3J[_?"H`+T`"+&8``,(H+P`D(@<D!';_3J[^.+""9@``KKR";```GBH$FH8H
  16245. +M!2`$<@%(02QX``1.KO\Z*D!*@&9J<@)(04ZN_RCBB"H`#(4```(`;1`@!7(!
  16246. +M2$%.KO\Z*D!*@&9&>D#GC4OO`"@P/`'_<@!![P`H$,%1R/_\8"RXA6\$(`5@
  16247. +M`B`$)@!.N@``(@<D#2QL``!.KO_0L(-G"DZN_WPO0`(L8`:8@TJ$;M!![P`H
  16248. +ML<UG#")-(`4L>``$3J[_+BHO`BQF!$*O`B@L+P`@O*\`)&P.(@<D!BQL``!V
  16249. +M_TZN_[XL+P(H9PH@!4ZZ```I0```(`9,WV#\WOP"$$YUGOP!"$CG-Q8N`"9)
  16250. +M*D@L%4HM``UF``$8(`<$@```!`!G(`2````$`&=*4X!G6%.`9UQ3@&=>4X!G
  16251. +M9E.`9VQ@``#N2BT`#&<F(`9![P$D0^\!(&$`_=9*@&<4("\!)#=```(@+P$@
  16252. +M-H!P`&```,IP&6```+XB!BQL``!.KO\H)H!P`&```+(FAG``8```JG``8```
  16253. +MI"`&(A-A`/XV8```F"M3``AP`&```(XJ$TJM``1F#B(5+&P``$ZN_HPK0``$
  16254. +M("T`!&=B)``B!2QL``!.KOY<2H!F4B(&0>\`("0(=D#EBTZN_FA*@&<^(@5.
  16255. +MKO^F(BT`!$ZN_Z8B!DZN_]PB`G0`3J[_1AM\``$`#2J"*T(`!$'O`"`B""QL
  16256. +M``!.KO^X2H!G!"`"8`Y.N@``8`9P%BE```!P_TS?:.S>_`$(3G4@+P`$(B\`
  16257. +M""]O``P`!$CG#P8J+P`<+`$N`'`.3KH``"I`2H!F"G`,*4```'#_8$Y#U2+'
  16258. +M0IDBQD(M``TB!RQL``!.KO\H&T``#$AZ_G1(>OO:2'K[9$AZ^JQ(>OIV2'KZ
  16259. +M:"`%($U#^OI03KH``$_O`!@H`&P&($U.N@``(`1,WV#P3G4@+P`$(B\`""]O
  16260. +M``P`!"]O`!``""]O`!0`#"]O`!@`$$CG#0`H+P`4*B\`$"X`<`!*@68$<$#E
  16261. +MB`!```$O`"`'<O]A`/]&6$]*@&9`<`!*A&8$<$#EB`!```(O`"`%<O]A`/\H
  16262. +M6$]3@&8B<`!*KP`<9@1P0.6(`$```B\`("\`''+_80#_!EA/58!G$$'L``8O
  16263. +M2``03-\`L$[Z``!,WP"P3G4``````_@````"`````0``!EH```)<````````
  16264. +M`^^&```"7T1/4T)A<V4````0```%B```!2(```34```$O@``!(````/D```#
  16265. +MG````O````),```"!````;0```&.```!(@```.(```"F````,(,```)`7W-E
  16266. +M=&5R<@````4```4R```!Z@```/````"T````/H,```1`7V-H96-K7W-I9VYA
  16267. +M;',``````0```,J#```$0%]H86YD;&5?<VEG;F%L<P````$```#.@P``!$!C
  16268. +M;VYV97)T7V]S97)R```````#```#]@```5X```$\A@```E]E<G)N;P``````
  16269. +M!0``!7(```4Z```#^@```6(```%`@P```D!F<F5E`````````@``!<(```&@
  16270. +M@P```T!C:&MA8F]R=`````````$```.4@P```D!M86QL;V,``````0``!6:#
  16271. +M```#0%]A;&QO8U]F9````````0``!;2#```"7U]F86EL```````!```&9@``
  16272. +M``````/Q`````P````!/4%13``0`0````_(```/J````")LP('$``$9A:6QE
  16273. +M9"!T;R!I;FET:6%L:7-E($DO3P`````#\@```^D````G(&\`!")O``A(YR$6
  16274. +M)DDJ2$ZZ```B#20++&P``$ZN_[)*@&<$<`!@;$ZN_WPN`'(T1@&P@692(@).
  16275. +MKO^X2H!G#B(-3J[_LDJ`9P1P`&!&3J[_?"X`<F_2@;"!9BPB`G0`3J[_1DJ`
  16276. +M9QHB"TZN_[A*@&<0(@TD"TZN_[)*@&<$<`!@$DZN_WPN`"`'3KH``"E```!P
  16277. +M_TS?:(1.=0`````#[X,```-`8VAK86)O<G0````````!````$H8```)?1$]3
  16278. +M0F%S90````$````:@P``!$!C;VYV97)T7V]S97)R```````!````C(8```)?
  16279. +M97)R;F\```````$```"0`````````_$````#`````$]05%,`!`!````#\@``
  16280. +M`^D````.(&\`!"`O``@B+P`,GOP`#$C7`0-P`-[\``Q.=2`O``0B+P`(+V\`
  16281. +M#``$44](UP`#<`!03TYU``````/Q`````P````!/4%13``0``````_(```/I
  16282. +M````$"!O``0B;P`(("\`#$CG`10N`"9)*DAF!'``8!P@!R!+(DUR`$J`9PX2
  16283. +M&)(99@13@&;V2(%(P2`!3-\H@$YU``````/Q`````P````!/4%13``0`````
  16284. +M`_(```/I````!2!O``0@+P`(<@!@`A#!4X!D^DYU```#\0````,`````3U!4
  16285. +M4P`$``````/R```#Z0````P@+P`$(B\`"%E/+P<N`"]!``1.N@``2&\`!$AX
  16286. +M"`,O!TZZ``!/[P`,+A]83TYU``````/O@P```T!C:&MA8F]R=`````````$`
  16287. +M```4@P```E]I;V-T;````````0```"(````````#\0````,`````3U!44P`$
  16288. +M``````/R```#Z0````T@+P`$(B\`"%E/+P<N`"`!3KH``"]```1.N@``2&\`
  16289. +M!$AX"`0O!TZZ``!/[P`,+A]83TYU```#[X,```5`7VUA:V5?<')O=&5C=&EO
  16290. +M;@````````$````2@P```T!C:&MA8F]R=`````````$````:@P```E]I;V-T
  16291. +M;````````0```"@````````#\0````,`````3U!44P`$``````/R```#Z0``
  16292. +M`!`@;P`$("\`""(O``R>_``,2-<!`W#_*4```-[\``Q.=2!O``0@+P`((B\`
  16293. +M#)[\``Q(UP$#</\I0```WOP`#$YU```#[X8```)?97)R;F\```````(````X
  16294. +M````&`````````/Q`````P````!/4%13``0`0````_(```/I````#2`O``19
  16295. +M3R\'+@!.N@``2&\`!$AX"``O!TZZ``!/[P`,2H!G!'``8`0@+P`$+A]83TYU
  16296. +M``````/O@P```T!C:&MA8F]R=`````````$````,@P```E]I;V-T;```````
  16297. +M`0```!H````````#\0````,`````3U!44P`$``````/R```#Z0````\@+P`$
  16298. +M2.<&`$ZZ```L`'``3KH``&`&<`!.N@``*@`@!4ZZ``!*@&?N(`9.N@``<`0I
  16299. +M0```</],WP!@3G4```/O@P```T!S:6=S971M87-K``````(````L````"H,`
  16300. +M``1`7V-H96-K7W-I9VYA;',``````0```!*#```$0%]W86ET7W-I9VYA;',`
  16301. +M``````$````:@P``!$!?:&%N9&QE7W-I9VYA;',````!````(H8```)?97)R
  16302. +M;F\```````$````R`````````_$````#`````$]05%,`!`!````#\@```^D`
  16303. +M```H(&\`!$CG(Q8J2'X`0J<L;```<@(D#TZN_QQ/[P`$)D!*@&=2(@UT_DZN
  16304. +M_ZPN`&=&(@<D"TZN_YI*@&<Z(BL`!%[`1`!(@$C`+``B!TZN_Z9R`DZN_Q9*
  16305. +MAF<4(@U.KO^X2H!G!'``8#).N@``8"IP%"E```!@(DZN_WQ.N@``*4```$J'
  16306. +M9P8B!TZN_Z8@"V<()`MR`DZN_Q9P_TS?:,1.=0```^^&```"7T1/4T)A<V4`
  16307. +M```!````$(,```)`7W-E=&5R<@````$```!JA@```E]E<G)N;P```````@``
  16308. +M`(````!R@P``!$!C;VYV97)T7V]S97)R```````!````?`````````/Q````
  16309. +M`P````!/4%13``0`0````_(```/I```!ER!O``0@+P`((F\`#"]O`!``!"\'
  16310. +M+@`I2``>*4``&G(!L(%E'B\O``@O"6$``"103TJ`9PX@;``>0A`@!Y"L`!I@
  16311. +M`G``+A].=2!O``0B;P`(2.<`%"9)*DA@``3X$!5R);`!9@`$RE*-$!5(@$C`
  16312. +M2H!G``#6<B60@6<`!+1R')"!9P``S%.`9P`!)E.`9P`!@%.`9P`!HEF`9P`!
  16313. +M[%.`9P`"!%F`9P`"FEN`9P`##E.`9P`#,%.`9P`#6%.`9P`#>E6`9P`#H%.`
  16314. +M9P`#1E.`9P`$)E.`9P`$0E^`9P``HE.`9P``_%.`9P`!.E.`9P`!7%.`9P`!
  16315. +M=%>`9P``Y%6`9P`!TE.`9P`![E.`9P`"!E.`9P`"3%.`9P`":%6`9P`"=E6`
  16316. +M9P`"JE.`9P`"U%.`9P`"]%>`9P`#9E.`9P`#?E.`9P`#C&```^A3C6```^(@
  16317. +M*P`8:P9R!K"!;P9P`&```_XB*P`8Y8%![`!V+S`8`&$`!,983TJ`9@`#V&``
  16318. +M`^`@*P`8:P9R!K"!;P9P`&```\XB*P`8Y8%![``<+S`8`&$`!)983TJ`9@`#
  16319. +MJ&```[`@*P`0:P9R"["!;P9P`&```YXB*P`0Y8%![`%.+S`8`&$`!&983TJ`
  16320. +M9@`#>&```X`@*P`0:P9R"["!;P9P`&```VXB*P`0Y8%![`#"+S`8`&$`!#98
  16321. +M3TJ`9@`#2&```U!![`%^(DMA`/XZ2H!F``,T8``#/$'L`90B2V$`_B9*@&8`
  16322. +M`R!@``,H0>P!IB)+80#^$DJ`9@`##&```Q1(>``P2'@``B\K``QA``-Z3^\`
  16323. +M#$J`9@`"[F```O9(>``@2'@``B\K``QA``-<3^\`#$J`9@`"T&```MA(>``P
  16324. +M2'@``B\K``AA``,^3^\`#$J`9@`"LF```KH@*P`(<@Q.N@``<`Q*@6<"(`%(
  16325. +M>``P2'@``B\`80`#$$_O``Q*@&8``H1@``*,("L`'%*`2'@`,$AX``,O`&$`
  16326. +M`NY/[P`,2H!F``)B8``":DAX`"!(>``"+RL`"&$``M!/[P`,2H!F``)$8``"
  16327. +M3"`K``AR#$ZZ``!P#$J!9P(@`4AX`"!(>``"+P!A``*B3^\`#$J`9@`"%F``
  16328. +M`AY(>``P2'@``B\K``1A``*$3^\`#$J`9@`!^&```@`@*P`04H!(>``P2'@`
  16329. +M`B\`80`"8D_O``Q*@&8``=9@``'>2&P!L&$``K!83TJ`9@`!PF```<H,JP``
  16330. +M``P`"&T&0>P!LF`$0>P!MB\(80`"BEA/2H!F``&<8``!I$'L`;HB2V$`_(Y*
  16331. +M@&8``8A@``&00>P!P")+80#\>DJ`9@`!=&```7Q(>``P2'@``B\380`!Y$_O
  16332. +M``Q*@&8``5A@``%@+PMA``%D6$]*@&8``49@``%.0>P!S")+80#\.$J`9@`!
  16333. +M,F```3I(;`'680`"#%A/2H!F``$>8``!)B`K`!Q>@)"K`!AR!TZZ``!(>``P
  16334. +M2'@``B\`80`!?D_O``Q*@&8``/)@``#Z("L`&&<$4X!@`G`&(BL`'%Z!DH`@
  16335. +M`7('3KH``$AX`#!(>``"+P!A``%&3^\`#$J`9@``NF```,)(>``P2'@``2\K
  16336. +M`!AA``$H3^\`#$J`9@``G&```*1![`'8(DMA`/N.2H!F``"(8```D"`\```'
  16337. +M;-"K`!1R9$ZZ``!(>``P2'@``B\!80``Z$_O``Q*@&9<8&8@/```!VS0JP`4
  16338. +M2'@`,$AX``0O`&$``,9/[P`,2H!F.F!$("L`*&<,+P!A``$46$]*@&8F<`!@
  16339. +M+DJL`!I7P$0`2(!(P%.L`!I*@&<$<`!@%B!L`!X0U2E(`!Y2C4H59@#[!B`L
  16340. +M`!I,WR@`3G4@;P`$GOP`+$CG`1!#[P`(<`HBV%'(__Q![P`(3KH``"X`1^P`
  16341. +M#6`:(`=R"DZZ``!P,-*`%H%3BR`'<@I.N@``+@!*AV\(0>P``+?(8MI(:P`!
  16342. +M80``@%A/3-\(@-[\`"Q.=2`O``0B+P`(+V\`#``$2.<'!!HO`!<L`2X`2^P`
  16343. +M%V`<(`=R"DZZ``!P,-*`&H%3C2`'<@I.N@``+@!3ADJ';PY![``/N\ABV&`$
  16344. +M&H53C4'L``^[R&,((`93ADJ`;NQ(;0`!80``#EA/3-\@X$YU(&\`!"\-*D@@
  16345. +M+``:9Q@2'2!L`!X0@68$<`%@"E*L`!Y3K``:8.(J7TYU```#^`````\````!
  16346. +M```$O```!"8```02```#T````[P```.F```#H````X(```(X```")````A``
  16347. +M``'X```!R````9@```%H````$@````(```94```&4```!D0```8\```&%```
  16348. +M!@8```7@```%J@``!88```5:```%3@``!4@```4\```%,````#X````V````
  16349. +M'````!@````````#[X,```)?7T-81#,S``````D```7Z```%Z@``!:````60
  16350. +M```$W```!'X```1&```#&@```JR#```"0&UK=&EM90`````!```%@```````
  16351. +M``/Q`````P````!/4%13``0`0````_(```/J````>5-U;@!-;VX`5'5E`%=E
  16352. +M9`!4:'4`1G)I`%-A=```````````!`````@````,````$````!0````84W5N
  16353. +M9&%Y``!-;VYD87D``%1U97-D87D`5V5D;F5S9&%Y`%1H=7)S9&%Y``!&<FED
  16354. +M87D``%-A='5R9&%Y```````X````0````$@```!0````6@```&0```!L2F%N
  16355. +M`$9E8@!-87(`07!R`$UA>0!*=6X`2G5L`$%U9P!397``3V-T`$YO=@!$96,`
  16356. +M````D@```)8```":````G@```*(```"F````J@```*X```"R````M@```+H`
  16357. +M``"^2F%N=6%R>0!&96)R=6%R>0``36%R8V@`07!R:6P`36%Y`$IU;F4``$IU
  16358. +M;'D``$%U9W5S=```4V5P=&5M8F5R`$]C=&]B97(`3F]V96UB97(``$1E8V5M
  16359. +M8F5R``````#R````^@```00```$*```!$````10```$:```!(````2@```$R
  16360. +M```!.@```40E82`E8B`E92`E2#HE33HE4R`E60``)6TO)60O)7D@)4@Z)4TZ
  16361. +M)5,`)6TO)60O)7D```H`4$T``$%-```E2#HE30`E23HE33HE4R`E<``E2#HE
  16362. +M33HE4P``"0`E;2\E9"\E>0````````/L````)@````$```%Z```!=@```7(`
  16363. +M``%N```!:@```68```%B```!7@```5H```%6```!4@```4X```#N````Z@``
  16364. +M`.8```#B````W@```-H```#6````T@```,X```#*````Q@```,(```".````
  16365. +MB@```(8```""````?@```'H```!V````-````#`````L````*````"0````@
  16366. +M````'`````````/R```#ZP````D```/R```#Z0```!8@;P`$("\`"$CG)P(N
  16367. +M`"((+&P``"0\```#[4ZN_^(L`$ZZ``!*AF<<(`8B!TZZ```J`"(&3J[_W$J`
  16368. +M9@1*A6<$(`5@#DZN_WQ.N@``*4```'#_3-]`Y$YU```#[X8```)?1$]30F%S
  16369. +M90````$````2@P```T!C:&MA8F]R=`````````$````B@P``!$!?9&]?=')U
  16370. +M;F-A=&4````````!````+H,```1`8V]N=F5R=%]O<V5R<@```````0```$J&
  16371. +M```"7V5R<FYO```````!````3@````````/Q`````P````!/4%13``0`0```
  16372. +M`_(```/I````U2!O``0B;P`(("\`#"(O`!`O;P`4``0O;P`8``@O;P`<``R>
  16373. +M_``P2.<O-BXO`%@O2``L*@`H`7Q`Y8XO0``D+T$`*"])`#!P0.6(3KH``"I`
  16374. +M+T``1"`%4H!F$BQL``!.KO_*+T``0$*O`%!@)DAO`$!(>`@!+P5.N@``3^\`
  16375. +M#%*`9@1"KP!`<`$O0`!0(`5.N@``(`12@&82+&P``$ZN_\0O0``\0J\`3&!&
  16376. +MNH1F#"]O`$``/$*O`$Q@-DAO`#Q(>`@!+P1.N@``3^\`#%*`9@9P`"]``#PB
  16377. +M+P`\LJ\`0%;`1`!(@$C`+T``3"`$3KH``'#_OH!F$"!L```O:`#@`#A"KP!(
  16378. +M8%!P_KZ`9@PO;P`\`#A"KP!(8#Y(;P`X2'@(`2\'3KH``$_O``Q2@&8&<``O
  16379. +M0``X("\`."(O`#RR@&<*L*\`0&<$<`%@`G``+T``2"`'3KH``$JO`$!G``%D
  16380. +M2J\`/&<``5Q*KP`X9@92AV8``5`@#6<``40F37@`+V\`,``T8```K$J$9@8@
  16381. +M;P`L8`(@521(>@,J2&`:4H40%7(JL`%G#'(BL`%G!G(*L`%F`E*%4HU*%6;B
  16382. +M*F\`1"!-T<8B2]/%3>D``;W(920@!M"&T(4L`"!-3KH``"I`2H!G``#:(`N0
  16383. +MKP!$)DW7P"]-`$0@2Q"\`"!4BQ%\`"(``2I*8"`0%7(BL`%G!G(JL`%F!A;\
  16384. +M`"I@"G(*L`%F!!;\`"L6W4H59MP6_``B4H18KP`T*F\`-$J59@#_3D(3*F\`
  16385. +M7"`-9Q`B#2QL``!T_DZN_ZPH`&`">`!*A&8$(`UF/"IO`$0O+P!@+P0O+P!0
  16386. +M+R\`1"\O`%PO+P!0("\`6"(O`&@@34ZZ``!/[P`8*@!2@&<:($U.N@``(`5@
  16387. +M>"QL``!.KO]\3KH``"E```!*A&<2(@0L;```3J[_IF`&<`PI0```("\`0&<0
  16388. +M2J\`4&<*(@`L;```3J[_W"`O`#QG$$JO`$QG"B(`+&P``$ZN_]P@+P`X9Q!*
  16389. +MKP!(9PHB`"QL``!.KO_<*F\`1"`-9P8@34ZZ``!P_TS?;/3>_``P3G4@;P`$
  16390. +M(F\`""`O``PB+P`0+V\`%``$+V\`&``(+P4J+P`,+P4O+P`,2'C__V$`_-A/
  16391. +M[P`,*A].=0```^^#```"0&UA;&QO8P`````!````3(8```)?1$]30F%S90``
  16392. +M``@```+\```"Y@```M````*R```"G````D@```":````7(,```)?:6]C=&P`
  16393. +M``````,```$D````Q@```'B#```$0%]P<V5U9&]?8VQO<V4```````,```%4
  16394. +M````[@```)"&```!7U]U<P````$```#X@P```D!R96%L;&]C`````0```=B#
  16395. +M```$0%]S=&%R=%]P<F]C97-S``````$```*$@P```D!F<F5E`````````@``
  16396. +M`PX```*4@P``!$!C;VYV97)T7V]S97)R```````!```"I(8```)?97)R;F\`
  16397. +M``````(```*^```"J`````````/Q`````P````!/4%13``0`0````_(```/I
  16398. +M`````G`!3G5P`4YU```#\0````,`````3U!44P`$``````/R```#Z0````X@
  16399. +M+P`$+P<N`$ZZ```@!R!L``!R`$ZZ``!@#"`L``!.N@``3KH``"!L``!.N@``
  16400. +M2H!GZ'``+A].=0```^^#```#0&-H:V%B;W)T`````````0````J&```#7U]O
  16401. +M9&1?=&EM97(``````@```"@````0@P``!$!?=&EM97)?<W1A<G0````````!
  16402. +M````%H8```-?7V]D9%]S:6<````````!````'(,```1`7W=A:71?<VEG;F%L
  16403. +M<P```````0```""#```$0%]H86YD;&5?<VEG;F%L<P````$````D@P``!$!?
  16404. +M=&EM97)?97AP:7)E9``````!````+`````````/Q`````P````!/4%13``0`
  16405. +M0````_(```/I````#R!O``0@+P`(2.<!!"X`*DA.N@``+P=(>`,!+PU.N@``
  16406. +M3^\`#$S?((!.=2!O``0@+P`(2.<!!$S?((!@S````^^#```#0&-H:V%B;W)T
  16407. +M`````````0```!*#```"7V]P96X````````!````'@````````/Q`````P``
  16408. +M``!/4%13``0``````_(```/I````(R`O``0@;P`((B\`#%E/2.<#-"P!+@`J
  16409. +M2$ZZ```@!TZZ```F0$J`9T0(*P`!``-G-@@K``,``V<6(&L`&"](`!0@:P`$
  16410. +M<`!R`B)O`!1.D2!K`!0O2``4(`8@:P`$(DTD;P`43I)@"'`-*4```'#_3-\L
  16411. +MP%A/3G4@+P`$(&\`""(O``Q(YP,$3-\@P&"````#[X,```-`8VAK86)O<G0`
  16412. +M```````!````&H,```-`7V9I;F1?9F0````````!````((8```)?97)R;F\`
  16413. +M``````$```!J`````````_$````#`````$]05%,`!`!````#\@```^D````,
  16414. +M(&\`!%%/+PTJ2$'O``1.N@``2H!J!'#_8`X@#6<&("\`!"J`("\`!"I?4$].
  16415. +M=0`````#[X,```-`7V=E='1I;64````````!````$`````````/Q`````P``
  16416. +M``!/4%13``0``````_(```/I````'2!O``2>_`!`2.<[%BI(3KH``"`-9U)*
  16417. +M%6=.(@U![P`@)`@L;```=D!X`$ZN_'8N`&TV3J[_?"P`4H!.N@``)D!*@&<D
  16418. +MOH9G%"8&4H,B#20+3J[\=DJ`;Q`@`F`.($(B2Q+89OP@"V`"<`!,WVC<WOP`
  16419. +M0$YU```#[X,```-`8VAK86)O<G0````````!````$(8```)?1$]30F%S90``
  16420. +M``$````D@P```D!M86QL;V,``````0```#P````````#\0````,`````3U!4
  16421. +M4P`$`$````/R```#Z0```!,@;P`$(F\`"$CG,Q(F22((+&P``'3^3J[_K"X`
  16422. +M3KH``$J'9QHB"R0'=@!.KOY$+``B`DZN_Z9*AF<$(`-@!DZZ``!P_TS?2,Q.
  16423. +M=0`````#[X8```)?1$]30F%S90````$````2@P```T!C:&MA8F]R=```````
  16424. +M``$````>@P```D!?<V5T97)R`````0```$`````````#\0````,`````3U!4
  16425. +M4P`$`$````/R```#Z0```"0@;P`$GOP`#$CG`10J2$H89OQ3B)'-(`@F3=?`
  16426. +M78M^84ZZ```O+```2&P``$AO`!=.N@``3^\`#$'O``\B2$H99OQ3B9/((`ER
  16427. +M!;"!;PA![P`*T<!@!$'O``\O"$AL``0O"TZZ``!/[P`,%H<@37``3KH``$J`
  16428. +M9@I2!W!ZO@!OZD(5(`U,WRB`WOP`#$YU``````/X`````@````$```!>````
  16429. +M*@````````/O@P```T!C:&MA8F]R=`````````$````BA@```5]?=7,````!
  16430. +M````)H,```-?7W-P<FEN=&8````````"````9````#*#```#0%]?86-C97-S
  16431. +M`````````0```'(````````#\0````,`````3U!44P`$`$````/R```#Z@``
  16432. +M``(E;'@`825S`````_(```/I````!B!O``0O#2I(3KH``"!-<$#IB"I?3OH`
  16433. +M`````^^#```#0&-H:V%B;W)T`````````0````J#```"0&=E=&-W9``````!
  16434. +M````%@````````/Q`````P````!/4%13``0``````_(```/I````#R!O``0@
  16435. +M+P`(2.<A!BX`*DA.N@``(`=.N@``)``B#2QL``!.KO]&2H!G!'``8`9.N@``
  16436. +M</],WV"$3G4``````^^#```#0&-H:V%B;W)T`````````0```!*#```%0%]M
  16437. +M86ME7W!R;W1E8W1I;VX````````!````&(8```)?1$]30F%S90````$````@
  16438. +M@P```D!?<V5T97)R`````0```#`````````#\0````,`````3U!44P`$`$``
  16439. +M``/R```#Z0```!P@+P`$(B\`""]O``P`!%%/2.<'`"HO`!@L`2X`3KH``"`'
  16440. +M3KH``$J`9QHB0"!I`!@O2``0(`8B!2!I``0B;P`03I%@`G#_3-\`X%!/3G4@
  16441. +M+P`$(B\`""]O``P`!$CG!P`J+P`0+T4`$$S?`.!@H``````#[X,```-`8VAK
  16442. +M86)O<G0````````!````'H,```-`7V9I;F1?9F0````````!````)```````
  16443. +M``/Q`````P````!/4%13``0``````_(```/I````'"`O``0@;P`((B\`#%E/
  16444. +M2.<#-"P!+@`J2$ZZ```@!TZZ```F0$J`9R8(*P````-G&"!K`!`O2``4(`8@
  16445. +M:P`$(DTD;P`43I)@"'`-*4```'#_3-\LP%A/3G4@+P`$(&\`""(O``Q(YP,$
  16446. +M3-\@P&">``````/O@P```T!C:&MA8F]R=`````````$````:@P```T!?9FEN
  16447. +M9%]F9`````````$````@A@```E]E<G)N;P```````0```$P````````#\0``
  16448. +M``,`````3U!44P`$`$````/R```#Z0```($@+P`$(&\`"")O``PO;P`0``0O
  16449. +M;P`4``B>_``L2.<_-B9)*D@O0`!`)&\`7"`*9PY*DF8*2JH`!&8$<`%@`G``
  16450. +M<@`O0``T)`UG`B(5=``O00`L)@MG`B03>@!^`2]"`#!@4B@O`"S(ARPO`##,
  16451. +MATZZ``!*A&8$2H9G-B`%3KH``"1`2H!F!G#_8``!;DJ$9P@(*@````-G#$J&
  16452. +M9Q0(*@`!``-F#'`-*4```'#_8``!2E*%WH>ZKP!`;:@D;P!<(`IG$"`2(BH`
  16453. +M!"!L``!.N@``8`@@;```3KH``'H`(`5"KP!0>@!^`2]``"A@.B@O`"S(ARPO
  16454. +M`##,ATJ$9@1*AF<B(`5.N@``(D`@:0`(+T@`/"`$(@8@:0`$(F\`/$Z1@:\`
  16455. +M4%*%WH>ZKP!`;<`H+P!0(`12@&<&2J\`-&<(<`!.N@``8`H@+```@(1.N@``
  16456. +M+T``3'P`>`$N+P`P*B\`*&!P("\`+,"$+T``2"('PH0O00!$2H!F!$J!9U(@
  16457. +M!DZZ```B0"!I``Q(;P!$+T@`/"!I``1#[P!,+&\`/$Z66$\@+P!(9@HB#6<&
  16458. +M(@1&@<.5("\`1&8*(@MG!B($1H'#DTJO`$AF!DJO`$1G`E*%4H;8A+RO`$!M
  16459. +MBB`O`$Q.N@``2H5F%"!L``!.N@``2H!F"$JO`#1G`/[H(`5,WVS\WOP`+$YU
  16460. +M``````/O@P```T!C:&MA8F]R=`````````$```!P@P```T!?9FEN9%]F9```
  16461. +M``````,```%^```!!````'Z&```"7V5R<FYO```````!````J(8```-?7V]D
  16462. +M9%]T:6UE<@`````#```!Y````-0```#*@P``!$!?=&EM97)?<W1A<G0`````
  16463. +M```!````SH,```1`7W1I;65R7V%B;W)T`````````0```-B#```$0%]C:&5C
  16464. +M:U]S:6=N86QS``````$```%`A@```U]?;V1D7W-I9P````````$```%&@P``
  16465. +M!$!?=V%I=%]S:6=N86QS```````!```!3(,```1`7VAA;F1L95]S:6=N86QS
  16466. +M`````0```=R#```$0%]T:6UE<E]E>'!I<F5D``````$```'H`````````_$`
  16467. +M```#`````$]05%,`!`!````#\@```^D````@44](YR,D+B\`($ZZ```L+P`H
  16468. +M(`=.N@``*D!*@&=8("\`)%>`9PQ3@&<.<!8I0```8$1P#,"58$`@%70,S((D
  16469. +M``)"__.$ABJ"<@3"@G0$P(*P@6<>+T$`&"!M`"`O2``4(&T`!$/O`!AP`"1O
  16470. +M`!1.DF`&<`!@`G#_3-\DQ%!/3G4```/O@P```T!C:&MA8F]R=`````````$`
  16471. +M```,@P```T!?9FEN9%]F9`````````$````6A@```E]E<G)N;P```````0``
  16472. +M`"X````````#\0````,`````3U!44P`$`$````/R```#Z0````````/Q````
  16473. +M`P````!/4%13``0``````_(```/J````WF%M:6=A('-P96-I9FEC(&5R<F]R
  16474. +M````````56YK;F]W;B!E<G)O<@!N;W0@;W=N97(`;F\@<W5C:"!F:6QE(&]R
  16475. +M(&1I<F5C=&]R>0!N;R!S=6-H('!R;V-E<W,`:6YT97)R=7!T960@<WES=&5M
  16476. +M(&-A;&P`:2]O(&5R<F]R`&YO('-U8V@@9&5V:6-E(&]R(&%D9')E<W,`87)G
  16477. +M=6UE;G0@;&ES="!T;V\@;&]N9P``97AE8R!F;W)M870@97)R;W(`8F%D(&9I
  16478. +M;&4@;G5M8F5R`&YO(&-H:6QD('!R;V-E<W,``&YO(&UO<F4@<')O8V5S<V5S
  16479. +M`&YO="!E;F]U9V@@;65M;W)Y`'!E<FUI<W-I;VX@9&5N:65D`&)A9"!A9&1R
  16480. +M97-S`&)L;V-K(&1E=FEC92!R97%U:7)E9`!M;W5N="!D979I8V5S(&)U<WD`
  16481. +M`&9I;&4@97AI<W1S`&-R;W-S+61E=FEC92!L:6YK`&YO('-U8V@@9&5V:6-E
  16482. +M``!N;W0@82!D:7)E8W1O<GD`:7,@82!D:7)E8W1O<GD``&EN=F%L:60@87)G
  16483. +M=6UE;G0``&9I;&4@=&%B;&4@;W9E<F9L;W<`=&]O(&UA;GD@;W!E;B!F:6QE
  16484. +M<P!N;W0@82!T>7!E=W)I=&5R``!T97AT(&9I;&4@8G5S>0``9FEL92!T;V\@
  16485. +M8FEG``!N;R!S<&%C92!L969T(&]N(&1E=FEC90!I;&QE9V%L('-E96L``')E
  16486. +M860M;VYL>2!F:6QE('-Y<W1E;0!T;V\@;6%N>2!L:6YK<P``8G)O:V5N('!I
  16487. +M<&4`;6%T:"!A<F=U;65N=`!R97-U;'0@=&]O(&QA<F=E``!)+T\@<W1R96%M
  16488. +M(&5M<'1Y``!F:6QE(&YA;64@=&]O(&QO;F<``&1I<F5C=&]R>2!N;W0@96UP
  16489. +M='D`=&]O(&UA;GD@<V]F="!L:6YK<R`H;&]O<#\I`````!H````H````,@``
  16490. +M`$P```!<````=````'X```"8````L````,(```#2````Y````/8```$(```!
  16491. +M&@```28```$\```!4````5P```%N```!?@```8X```&>```!L````<0```'8
  16492. +M```!Z@```?H```((```"(````BX```)$```"5````F````)N```"@````I(`
  16493. +M``*F```"N@```"8``````^P````H`````0```VX```-J```#9@```V(```->
  16494. +M```#6@```U8```-2```#3@```TH```-&```#0@```SX```,Z```#-@```S(`
  16495. +M``,N```#*@```R8```,B```#'@```QH```,6```#$@```PX```,*```#!@``
  16496. +M`P(```+^```"^@```O8```+R```"[@```NH```+F```"X@```MX```+:```"
  16497. +MU@```!8````````#\@```^D```!%("\`!"E```!*@&<``(9R9Y"!9P``@E6`
  16498. +M9P``@'()D(%G?%.`9WA3@&=T4X!G<%.`9VQ3@&=H4X!G:%.`9VAR49"!9V93
  16499. +M@&=F4X!G9E.`9V93@&=F4X!G9E6`9V93@&=F4X!G9E.`9V95@&=F4X!G9E.`
  16500. +M9V93@&=F4X!G9E.`9V95@&=F4X!G9E.`9V93@&=F8&AP`&!F<`Q@8G`+8%YP
  16501. +M%F!:<`=@5G`(8%)P$&!.<!%@2G`"8$9P`F!"<!9@/G`'8#IP%F`V<"1@,G`6
  16502. +M8"YP%F`J<!Y@)G`28")P)6`><"9@&G`38!9P%F`2<!Q@#G`-8`IP#6`&<`U@
  16503. +M`G#_3G4O#BQL``!.KO]\80#^^BE````L7TYU```#^`````$````!```!#@``
  16504. +M``````/OA@```E]?3U-%4E(``````0````:&```"7T1/4T)A<V4````!```!
  16505. +M`@````````/Q`````P````!/4%13``0`0````_(```/K`````0```_(```/I
  16506. +M````!4ZZ``!.N@``3KH``'(&3OH````````#[X,```-`8VAK86)O<G0`````
  16507. +M```!`````H,```-`7V-L;W-E7V%L;``````!````!H,```)`9V5T<&ED````
  16508. +M``$````*@P```D!K:6QL`````````0```!`````````#\0````,`````3U!4
  16509. +M4P`$``````/R```#Z0```%D@;P`$("\`"%E/2.<!%BX`+T@`$"!O`!`J4&!D
  16510. +M<`VP+0`(9EH@+0"L9P;E@"!`8`*1R"9(("T`G+"'9S0@+0"@L(=G+"`M`."P
  16511. +MAV<D(`MG+B`K`!RPAV<8("L`(+"'9Q`@*P`XL(=G""`K`#"PAV8.(DUP8.^(
  16512. +M+'@`!$ZN_KPJ54J59IA,WVB`6$].=2`O``0B+P`(2.<!`BX`(`%3@&<,4X!G
  16513. +M"%.`9P1=@&8L+'@`!$ZN_WP@;```T/P!EB`'80#_2"!L``#0_`&D(`=A`/\Z
  16514. +M3J[_=G``8`AP%BE```!P_TS?0(!.=2`O``0B+P`(2.<&!"P!*@!.N@``2H5J
  16515. +M`D2%NJP``&8.2H9G!B`&3KH``'``8$@@!4ZZ```J0$J`9P9*K0`49PIP`RE`
  16516. +M``!P_V`L(`9G*"(M`!#!06$`_U@B`'`)O(!F%'(!*T$`%"M``!AP%$ZZ``!P
  16517. +M`&`"(`%,WR!@3G4``````^^&```"7U-Y<T)A<V4````"````Q````+:&```"
  16518. +M7V5R<FYO```````"```!*@```-R#```#0&-H:V%B;W)T`````````0```/B&
  16519. +M```#7U]O=7)?<&ED`````````0```0*#```$0%]S:6=?9&ES<&%T8V@`````
  16520. +M``(```%4```!#H,```-`7V9I;F1?<&ED```````!```!&`````````/Q````
  16521. +M`P````!/4%13``0`0````_(```/I````0R!O``1(YP`&*D@B32QX``1.KO\$
  16522. +M($U,WV``3OH``"`O``1(YP$$+@`J;``(8`X@+0`,L(=F!"`-8`@J54J59NYP
  16523. +M`$S?((!.=4CG(`)![``(3KH``"`L```B+```)`"S@@*"`'___RE"``12@BE"
  16524. +M```O`2\`2&P``$AL`!1.N@``3^\`$"QX``1.KOUF*4``.&<00>P`%'``3KH`
  16525. +M`"E``#1F"DAL``Y.N@``6$],WT`$3G5(YP`&("P`.&<*($`L>``$3J[]8$JL
  16526. +M`#1G."QX``1.KO]\8`PB37`<+'@`!$ZN_RX@;``T+'@`!$ZN_HPJ0$J`9N(@
  16527. +M;``T3KH``"QX``1.KO]V3-]@`$YU``````/X`````@````$```"D````=@``
  16528. +M``P````"````]@```.0```#(````N````)X```"4````C@```'H```!N````
  16529. +M:````$X````J`````````^^#```"0&9R964````````!````'(,```)`3F5W
  16530. +M3&ES=`````$```!2A@```5]?=7,````!````5H8```1?7W-T87)T=7!?=&EM
  16531. +M90```````0```%J#```#7U]S<')I;G1F`````````0```'Z#```#0$-R96%T
  16532. +M95!O<G0``````0```)J#```"7U]F86EL```````!````J(,```-`1&5L971E
  16533. +M4&]R=``````!````^@````````/Q`````P````!/4%13``0`0````_(```/J
  16534. +M````!F1O;W(N)6QX+B5L>```3F\@;65M;W)Y`````_(```/K````#P```_(`
  16535. +M``/I````+R!O``0@+P`((B\`#")O`!`O;P`4``0O;P`8``A93TCG#S8H+P`L
  16536. +M*B\`*"P!+@`J22](`"`L>``$3J[]9B9`2H!G,"!+(`1.KOUR)$!*@&<B(`UG
  16537. +M""5-`"@E10`D(&\`("`'(DHB!DZN_D1*`&8$(`I@%B`*9P8@2DZN_6P@"V<&
  16538. +M($M.N@``<`!,WVSP6$].=2!O``1(YP`&*D@@#6<8(DTL>``$3J[^/B!M``Y.
  16539. +MN@``($U.KOUL3-]@`$YU```#[X,```-`1&5L971E4&]R=``````"````K@``
  16540. +M`(0````````#\0````,`````3U!44P`$``````/R```#Z0```!0@;P`$("\`
  16541. +M"$CG(08N`"I(3KH``"(-+&P``$ZN_XA*@&<B(@!.KO^F(`=.N@``(`=.N@``
  16542. +M)``B#4ZN_T9*@&<$<`!@!DZZ``!P_TS?8(1.=0```^^#```#0&-H:V%B;W)T
  16543. +M`````````0```!*&```"7T1/4T)A<V4````!````&(,```5`7VUA:V5?<')O
  16544. +M=&5C=&EO;@````````(````R````+(,```)`7W-E=&5R<@````$```!&````
  16545. +M`````_$````#`````$]05%,`!`!````#\@```^D```!U(&\`!")O``@O;P`,
  16546. +M``0@+P`0+V\`%``(2.<'-"X`)&\`("9)*D@L*P!T)*\`'$*J`!(U?``!``Y"
  16547. +M:@`0)7P```(``#(U?``"``PE:P"``#8@*P!\9A`B*P`$;PHE?```"```%F`$
  16548. +M)4``%B53``1!ZP"$3KH``"5``"(E0``:)4``*B`K``1:@&<^58!G4%F`9T!5
  16549. +M@&9F(`UG'$AX`/](;```+PU.N@``3^\`#"H`;P8E10`68`@E?````0``%B5\
  16550. +M``"@```(8$HE?```$```"&!`)7P``$````A\`&`T2I-F$$HK``AF"B5\```@
  16551. +M```(8"`E?```@```"&`6("L`!&\&<$#AB&`&(#P``(``)4``"$J'9P)\`"`&
  16552. +M3KH``(&J``A,WRS@3G4@;P`$(F\`"%E/2.<C%BI(?@`O20`80J<L;```<@(D
  16553. +M#TZN_QQ/[P`$)D!*@&=0(@UT_DZN_ZPN`&=$(@<D"TZN_YI*@&<X(@=.KO\N
  16554. +M2H!7QD0&2(9(QDJ`9P8B`$ZN_Z8@!^6`+R\`&"!`+R@`#")"(`8@36$`_GI0
  16555. +M3WP`8`Y\_TZN_WQ.N@``*4```$J'9P8B!TZN_Z8@"V<()`MR`DZN_Q8@!DS?
  16556. +M:,183TYU```#^`````$````!````H`````````/O@P```T!?86UI9V$R9VUT
  16557. +M``````$```!T@P```U]R96%D;&EN:P````````$```"F@P```T!?;6%K95]M
  16558. +M;V1E``````$```$<A@```E]$3U-"87-E`````0```4*#```$0&-O;G9E<G1?
  16559. +M;W-E<G(```````$```&NA@```E]E<G)N;P```````0```;(````````#\0``
  16560. +M``,`````3U!44P`$`$````/R```#ZP```$````/R```#^P``")L11`!?<V5T
  16561. +M:FUP`'1E>'0`0%]L;VYG:FUP`$!?<V5T:FUP`%]?;&]N9VIM<`!?7W-E=&IM
  16562. +M<`!S<')I;G1F`%],5D]287=$;T9M=`!?06)S17AE8T)A<V4`7U]S<')I;G1F
  16563. +M`'1M<&YA;2YC`%]M:W1E;7``0'1M<&YA;0!?=&UP;F%M`%]?34521T5$`'!O
  16564. +M<&5N+F,`7W=A:71P:60`0&9C;&]S90!`9G)E90!`7W-T87)T7W!R;V-E<W,`
  16565. +M0%]S971E<G(`7V5R<FYO`%]$3U-"87-E`$!F;W!E;@!?7V9I9F]?8F%S90!?
  16566. +M7V9I9F]?;V9F<V5T`$!M86QL;V,`0'!C;&]S90!?<&-L;W-E`$!P;W!E;@!?
  16567. +M<&]P96X`<W1A<G0N8P!`8V]N=F5R=%]O<V5R<@!?7W!R;V-E<W-E<P!?7W-T
  16568. +M86-K7W-I>F4`7U]N97AT7W!I9`!?7V1O;W)?;F%M90!?7W-T87)T=7!?<&]R
  16569. +M=`!?3&EN:V5R1$(`7U]S=&%R=%]P<F]C97-S`%]?8VAI;&1?9&]O<E]N86UE
  16570. +M`%]?8VAI;&1?8V]M;6%N9%]L96X`7U]C:&EL9%]C;VUM86YD`%]?8VAI;&1?
  16571. +M97AI=`!?7V-H:6QD7V5N=')Y`&=E='!I9"YC`%]?;W5R7W!I9`!`8VAK86)O
  16572. +M<G0`0&=E='!I9`!?9V5T<&ED`'-I9VYA;"YC`%]?<VEG7VAA;F1L97)S`$!S
  16573. +M:6=N86P`7W-I9VYA;`!`<VEG=F5C`%]S:6=V96,`<VEG<V5T;6%S:RYC`$!?
  16574. +M<VEG7V1I<W!A=&-H`%]?<VEG7W!E;F1I;F<`7U]S:6=?;6%S:P!`<VEG8FQO
  16575. +M8VL`7W-I9V)L;V-K`$!S:6=S971M87-K`%]S:6=S971M87-K`'-T870N8P!?
  16576. +M<F5A9&QI;FL`0%]F:6)S=&%T`$!?;&9I8G-T870`7U]T96UP7V9N86UE`%]L
  16577. +M87-T7V5N=')Y`$!?9V5T7V-D`%]L87-T7V1I<@!`;'-T870`7VQS=&%T`$!S
  16578. +M=&%T`%]S=&%T`&1I<BYC`$!S965K9&ER`%]S965K9&ER`$!T96QL9&ER`%]T
  16579. +M96QL9&ER`$!R96%D9&ER`%]R96%D9&ER`$!C;&]S961I<@!?8VQO<V5D:7(`
  16580. +M0&]P96YD:7(`7V]P96YD:7(`9&ER7V1A=&$N8P!?7V=E=%]C9`!A8V-E<W,N
  16581. +M8P!`86-C97-S`%]A8V-E<W,`0%]?86-C97-S`%]?7V%C8V5S<P!F<W1A="YC
  16582. +M`%]I;V-T;`!`9G-T870`7V9S=&%T`'-Y;6QI;FLN8P!`<WEM;&EN:P!?<WEM
  16583. +M;&EN:P!M97-S86=E+F,`0&5X:70`7U]0<F]G<F%M3F%M90!?7U="96YC:$US
  16584. +M9P!?7W5S`%]?9F%I;`!?7VUE<W-A9V4`86QL;V-D;W,N8P!?06QL;V-$;W-/
  16585. +M8FIE8W1486=S`'-E=&IM<"YC`$!L;VYG:FUP`%]L;VYG:FUP`$!S971J;7``
  16586. +M9V5T:&]S=&YA;64N8P!?<W1R;F-P>0!?7W-Y<W1E;5]N86UE`$!G971H;W-T
  16587. +M;F%M90!?9V5T:&]S=&YA;64`<&5R<F]R+F,`7U]/4T524@!?<WES7V5R<FQI
  16588. +M<W0`7W-Y<U]N97)R`$!W<FET90!`<&5R<F]R`%]P97)R;W(`<VEG;&ES="YC
  16589. +M`%]S>7-?<VEG;&ES=`!W86ET-"YC`$!?:&%N9&QE7W-I9VYA;',`0%]W86ET
  16590. +M7W-I9VYA;',`0%]F<F5E7V5N=')Y`$!W86ET<&ED`$!W86ET`%]W86ET`$!W
  16591. +M86ET,P!?=V%I=#,`0'=A:70T`%]W86ET-`!P<V5U9&]?8RYC`$!?9G)E95]F
  16592. +M9`!`7V9I;F1?9F0`0%]P<V5U9&]?8VQO<V4`7U]P<V5U9&]?8VQO<V4`<FEN
  16593. +M9&5X+F,`0'-T<G)C:'(`0')I;F1E>`!?<FEN9&5X`&EN9&5X+F,`0'-T<F-H
  16594. +M<@!`:6YD97@`7VEN9&5X`'1I;65R<RYC`$!?9&5V:6-E7V-L;W-E`$!?9&5V
  16595. +M:6-E7V]P96X`0%]T:6UE<E]E>'!I<F5D`%]?=&EM97)?97AP:7)E9`!`7W1I
  16596. +M;65R7W-T87)T`%]?=&EM97)?<W1A<G0`0%]T:6UE<E]S:6<`7U]T:6UE<E]S
  16597. +M:6<`0%]T:6UE<E]A8F]R=`!?7W1I;65R7V%B;W)T`$!?9G)E95]T:6UE<@!?
  16598. +M7V9R965?=&EM97(`0%]A;&QO8U]T:6UE<@!?7V%L;&]C7W1I;65R`&9I9F]F
  16599. +M9"YC`%]?<W1A<G1U<%]T:6UE`$!?8VQE86YU<%]F:69O`%]?8VQE86YU<%]F
  16600. +M:69O`$!?:6YI=%]F:69O`%]?:6YI=%]F:69O`%]?9FEF;U]S:6<`7U]F:69O
  16601. +M7V]K`%]?1FEF;T)A<V4`8VQO<V4N8P!`8VQO<V4`7V-L;W-E`$!?7V-L;W-E
  16602. +M`%]?7V-L;W-E`&9I;&5S+F,`0%]L87-T7V9D`%]?;&%S=%]F9`!?7V9I;F1?
  16603. +M9F0`7U]F<F5E7V9D`$!?86QL;V-?9F0`7U]A;&QO8U]F9`!U=&EM92YC`$!?
  16604. +M9VUT,F%M:6=A`$!T:6UE`$!U=&EM90!?=71I;64`8F-O<'DN8P!`;65M;6]V
  16605. +M90!`8F-O<'D`7V)C;W!Y`&%M:6=A=&EM92YC`%]D87EL:6=H=`!?='IN86UE
  16606. +M`%]?0UA$,S,`0&QO8V%L=&EM90!`7V=E='1I;64`0&9T:6UE`%]F=&EM90!`
  16607. +M9V5T=&EM96]F9&%Y`%]G971T:6UE;V9D87D`=&EM96-O;G9E<G0N8P!?5&EM
  16608. +M97)"87-E`$!?86UI9V$R9VUT`%]?86UI9V$R9VUT`%]?9VUT,F%M:6=A`%]?
  16609. +M9V5T=&EM90!P=V0N8P!`9V5T;&]G:6X`7V=E=&QO9VEN`$!G971P=VYA;0!?
  16610. +M9V5T<'=N86T`0&=E='!W=6ED`%]G971P=W5I9`!?7V%M:6=A7W5S97(`<F5A
  16611. +M9&QI;FLN8P!?<W1R;&5N`$!R96%D;&EN:P!A;&QO8V$N8P!?;6%L;&]C`%]F
  16612. +M<F5E`%]A;&QO8V$`=6YL:6YK+F,`0'5N;&EN:P!?=6YL:6YK`'!I<&4N8P!`
  16613. +M<W1R8V%T`$!.97=,:7-T`$!S;V-K971P86ER`%]S;V-K971P86ER`$!P:7!E
  16614. +M`%]P:7!E`&=R<"YC`$!G971G<FYA;0!?9V5T9W)N86T`0&=E=&=R9VED`%]G
  16615. +M971G<F=I9`!S:6=N86QS+F,`7U]&4$524@!`7U]E>&ET`$!?9FEN9%]P:60`
  16616. +M0%]C;&5A;G5P7W!R;V-E<W-E<P!?7V-H:6QD<F5N7V5X:70`0%]I;FET7W!R
  16617. +M;V-E<W-E<P!`7V-L96%N=7!?<VEG;F%L<P!?7V-L96%N=7!?<VEG;F%L<P!`
  16618. +M7VEN:71?<VEG;F%L<P!?7VEN:71?<VEG;F%L<P!`0VAK7T%B;W)T`%]#:&M?
  16619. +M06)O<G0`7V-H:V%B;W)T`$!#6$9%4E(`7T-81D524@!?7VAA;F1L95]S:6=N
  16620. +M86QS`%]?=V%I=%]S:6=N86QS`$!?8VAE8VM?<VEG;F%L<P!?7V-H96-K7W-I
  16621. +M9VYA;',`7U]S:6=?9&ES<&%T8V@`0&%L87)M`%]A;&%R;0!?;6%I;BYC`$!M
  16622. +M86EN`$!?7V=E=&5N=@!`='%S;W)T`$!S=')N8W!Y`%]?7V-T>7!E`$!?:6YI
  16623. +M=%]U;FEX:6\`7U]?:6]B`%]?6$-%6$E4`%]3>7-"87-E`$!R96%L;&]C`%]?
  16624. +M7VUA:6X`0&UA:V5?96YV:7)O;@!?;6%K95]E;G9I<F]N`%]E;G9I<F]N`%]?
  16625. +M;V1D7W-I9P!?7V]D9%]T:6UE<@!U;6%S:RYC`$!U;6%S:P!?=6UA<VL`<')O
  16626. +M=&5C=&EO;BYC`$!?;6%K95]M;V1E`%]?;6%K95]M;V1E`$!?;6%K95]P<F]T
  16627. +M96-T:6]N`%]?;6%K95]P<F]T96-T:6]N`%]U<V5?86UI9V%?9FQA9W,`9VED
  16628. +M+F,`0&=E=&5G:60`7V=E=&5G:60`0&=E=&=I9`!?9V5T9VED`%]E>&ET+F,`
  16629. +M0%]E>&ET`%]?97AI=`!?7U]E>&ET`$!?8VQO<V5?86QL`%]?8VQO<V5?86QL
  16630. +M`&EO8W1L+F,`0&EO8W1L`&]P96XN8P!`7V%L;&]C7V%M:6=A9F0`0'-T<FEC
  16631. +M;7``7V]P96X`7U]?;W!E;@!C=&EM92YC`%]S<')I;G1F`$!R96%D`$!?='IS
  16632. +M970`7U]T>G-E=`!`;6MT:6UE`%]M:W1I;64`0&-T:6UE`%]C=&EM90!`87-C
  16633. +M=&EM90!?87-C=&EM90!`9VUT:6UE`%]G;71I;64`7VQO8V%L=&EM90!`='IS
  16634. +M971W86QL`%]T>G-E='=A;&P`0'1Z<V5T`%]T>G-E=`!?=&EM97IO;F4`86UI
  16635. +M9V%D;W,N8P!?7VEN:71?=6YI>&EO`%]?86QL;V-?86UI9V%F9`!`7V1O7W1R
  16636. +M=6YC871E`%]?9&]?=')U;F-A=&4`<F5N86UE+F,`0')E;F%M90!?<F5N86UE
  16637. +M`&-H;W=N+F,`0&9C:&]W;@!?9F-H;W=N`$!C:&]W;@!?8VAO=VX`8F-M<"YC
  16638. +M`$!B8VUP`%]B8VUP`&)Z97)O+F,`0&)Z97)O`%]B>F5R;P!F=')U;F-A=&4N
  16639. +M8P!`9G1R=6YC871E`%]F=')U;F-A=&4`9F-H;6]D+F,`0&9C:&UO9`!?9F-H
  16640. +M;6]D`&UK9FEF;RYC`$!M:VYO9`!?;6MN;V0`0&UK9FEF;P!?;6MF:69O`&ES
  16641. +M871T>2YC`$!I<V%T='D`7VES871T>0!S:6=P875S92YC`$!S:6=P875S90!?
  16642. +M<VEG<&%U<V4`<FUD:7(N8P!`<FUD:7(`7W)M9&ER`'-T<F9T:6UE+F,`0'-T
  16643. +M<F9T:6UE`%]S=')F=&EM90!T<G5N8V%T92YC`$!T<G5N8V%T90!?=')U;F-A
  16644. +M=&4`97AE8RYC`$!E>&5C`%]E>&5C`$!E97AE8P!?965X96,`=6ED+F,`0&=E
  16645. +M=&5U:60`7V=E=&5U:60`0&=E='5I9`!?9V5T=6ED`'-L965P+F,`0'-L965P
  16646. +M`%]S;&5E<`!C<F5A="YC`$!C<F5A=`!?8W)E870`0%]?8W)E870`7U]?8W)E
  16647. +M870`=W)I=&4N8P!?=W)I=&4`0%]?=W)I=&4`7U]?=W)I=&4`=&EM92YC`%]T
  16648. +M:6UE`&=E=&5N=BYC`%]?7V=E=&5N=@!L:6YK+F,`0&QI;FL`7VQI;FL`;6MT
  16649. +M96UP+F,`0&UK=&5M<`!G971W9"YC`$!G971C=V0`0&=E='=D`%]G971W9`!C
  16650. +M:&UO9"YC`$!C:&UO9`!?8VAM;V0`;'-E96LN8P!`;'-E96L`7VQS965K`$!?
  16651. +M7VQS965K`%]?7VQS965K`')E860N8P!?<F5A9`!`7U]R96%D`%]?7W)E860`
  16652. +M<V5L96-T+F,`0'-E;&5C=`!?<V5L96-T`&9C;G1L+F,`7V9C;G1L`&5R<F]R
  16653. +M7VUS9RYC`&5R<F]R+F,`7U]S971E<G(`7V-O;G9E<G1?;W-E<G(`86)O<G0N
  16654. +M8P!`:VEL;`!`86)O<G0`7V%B;W)T`&MI;&PN8P!?:VEL;`!P<F]C97-S97,N
  16655. +M8P!`1&5L971E4&]R=`!`0W)E871E4&]R=`!?7V-L96%N=7!?<')O8V5S<V5S
  16656. +M`%]?:6YI=%]P<F]C97-S97,`7U]F:6YD7W!I9`!?7V9R965?96YT<GD`9&5V
  16657. +M:6-E<RYC`%]?9&5V:6-E7V-L;W-E`%]?9&5V:6-E7V]P96X`;6MD:7(N8P!`
  16658. +M;6MD:7(`7VUK9&ER`&9I8G-T870M:&%R9"YC`%]?9FEB<W1A=`!?7VQF:6)S
  16659. +M=&%T`````0````$`"0`)`^D````$``X`%@`!`!@`!``!`"$`#@`!`"L````!
  16660. +M`#0`#``!``D`#`/I``(`/`!)``$`5@````$`8``I``,`"0`*`^D``0!H``(`
  16661. +M<0`$``$`>0````$`@0`$`^H``````($`"0/K``````"*`%0``P`)`&\#Z0`,
  16662. +M`)$`F@"B`*@`N`#"`,D`T0!5`-D`Y0#R``0`^P%>``$!`P%:``$!"P`(``$!
  16663. +M$@````$`@0`%`^H``````($``0/K``````$9`2T``P`)`,4#Z0`+`*(`P@$@
  16664. +M`3`!/`%)`50`\@%@`,D!;P`"`*D`Y@`!`7D`M@`!`($`!@/J``````"!``H#
  16665. +MZP````4!B0`D``$!FP`@``$!KP`<``$!OP`8``$!S`````$!V@)M``$`"0`#
  16666. +M`^D``@'C`>P``@'W`````0'_`````0('`H8``0`)`",#Z0`#`,("$`'L``0"
  16667. +M'P!B``$")P!:``$"+P`,``$"-P````$"/P+&``$`"0`5`^D`!`)+`EL![`)I
  16668. +M``0"=`!&``$"?@!"``$"B``$``$"E`````$"H`,"``(`"0":`^D`"0*F`K`!
  16669. +M[`*Z`,D"Q@+3`MX"Z``$`O(!U@`!`OD!S@`!`P`!G@`!`P8!E@`!`($`00/K
  16670. +M``````,,`_4``0`)`-`#Z0`)`M,"W@'L`,(!(`#)`/("Z`"B``H#$@,@``$#
  16671. +M&P,8``$#)`,(``$#+0,$``$#-@*0``$#/P*,``$#2`).``$#4@)*``$#7`%>
  16672. +M``$#90%:``$#;@48``(`"0`(`^D``0#)``("WP````$#>0````$`@0`"`^L`
  16673. +M```"`M,`!``!`N@````!`X(%,@`!``D`&P/I``,`P@*P`>P`!`.+`&```0.3
  16674. +M`%@``0.;``@``0.E`````0.O!6@``0`)`$$#Z0`&`,(!(`*Z`,D#M@'L``(#
  16675. +MO@`(``$#Q0````$#S`77``$`"0`.`^D``P"X`,D![``"`]8`"``!`]\````!
  16676. +M`^@%_P`"``D`/@/I``4#\0/X`,D$!@02``($%P#B``$$'@#4``$`@0`/`^H`
  16677. +M````!"@&A@`!``D`!P/I``$`R0`!!#,````!!$<&G``!``D`#P/I``0`#0*'
  16678. +M`!<":0`$!%``'@`!!%D`%@`!!&(`!``!``$````!!&H&S``!``D`!P/I``($
  16679. +M=P2!``($CP`(``$$G`````$$J0;I``(`"0`I`^D`!@#)!+($N@3'`,($T``"
  16680. +M!-@`!``!!.`````!`($`"`/J``````3H!U(``@`)```#Z0``````@0#&`^H`
  16681. +M```!!/("F``!!/\(1P`!``D`.@/I``4%!@47`,(%)@$P``@%-`#```$`D@"T
  16682. +M``$%/0"F``$%0P"B``$%20"2``$%4`"&``$%5P`0``$%7@````$%90BJ``$`
  16683. +M"0`2`^D``P5O!7D![``"!80`!``!!9,````!!:((V``!``D``P/I``$%J@`"
  16684. +M!;0`"``!!;P````!!<0(Z@`!``D``P/I``$%RP`"!=0`"``!!=L````!!>((
  16685. +M_``"``D`30/I``(%Z@7Y``P&"`$$``$&&`$```$&*`#(``$&-@"\``$&1`"H
  16686. +M``$&4`"D``$&7`!^``$&:@!Z``$&>`!2``$&A0!.``$&D@````$&H`````$`
  16687. +M@0`$`^H`````!JX);0`#``D`'@/I``($$@:W``0&Q@!4``$&U0!4``$&Y```
  16688. +M``$&\`````$`@0`%`^H````!!OP````!`($`!`/K````!`<'``P``0#E``@`
  16689. +M`0#9``0``0<1`````0<<";H``0`)`!8#Z0`#!6\%>0'L``0')`!0``$'*P!,
  16690. +M``$',@`$``$'.P````$'1`GL``(`"0!B`^D``P"B`,(`\@`(!TP!@``!!U8!
  16691. +M@``!!7H!3``!!V`!2``!!7`!+``!!VH!*``!!W0`,``!!W\````!`($``@/K
  16692. +M``````>*"H```0`)`!H#Z0`%`+@`R0>1!YT![``"!Z0`"``!!ZL````!![(*
  16693. +MOP`!``D`!P/I``$'N0`"!\,`#``!!\H````!!]$*U0`"``D`4@/I``8'W0?G
  16694. +M!^X']@@!`>P`!`@,`0X``0@3`0H``0@:``@``0@H`````0"!``P#Z@`````(
  16695. +M-@MU``$`"0`P`^D``@?N"$0`!@A/`'@``0A;`'0``0>2`"@``0AG`"```0@"
  16696. +M``0``0AS`````0A]"[X``@`)``L#Z0````8(@P`D``$(C0`D``$(EP`6``$(
  16697. +MH0`2``$(JP`$``$(M0````$`@0`)`^H````!"+\`!``!",P+Z@`!``D`*@/I
  16698. +M``8`P@$@"-8`N`#)`>P``@C?``P``0*G`````0CI#$```P`)`"P#Z0`""/$(
  16699. +M^0`!"0``+@`!`($`!P/J``````"!``$#ZP`````)"`R=``$`"0`V`^D`!@$@
  16700. +M`>P#M@=+`,(`R0`""1$`9``!"1D`8``!"2$-`P`"``D"&@/I`!4%>0#9`.4'
  16701. +M!P'L!6\'<P#R`+@`50)+"2<%!@47`,D`P@"B!Q$)+P02!OP`!`DY!]0``0E%
  16702. +M!\(``0E1!S8``0E7!S(``0"!`!4#Z@`````)70_\``(`"0`)`^D````$"6,`
  16703. +M%@`!"6T`$@`!"7<`!``!"8$````!`($`"0/J``````F+$"<``P`)`*D#Z0`-
  16704. +M"94$'0F<":0)KPG$"=,&=P9#!!8&D08G!@<`%`GE`IH``0GW`IH``0H)`EP`
  16705. +M`0H8`EP``0HG`EH``0HR`EH``0'M`E(``0H]`E(``0I'`D0``0I/`D```04'
  16706. +M`>H``0I7`>8``048`=```0IH`<P``0IW`;8``0J'`;(``0),`0P``0J7`0@`
  16707. +M`0JF`"@``0JM`"0``0"!``H#Z@``````@0!$`^L````#`EL!"``!`FD!!``!
  16708. +M`A``!``!"K0170`#``D"'0/I`!4#\0J["+\*P0K+"M,*W00&"N4`R0H(!N,&
  16709. +M0P:1"O0*^@L$`*(+#`#R!!8``PL6`WH``0L>`'@``0LL`'@``0"!`"P#Z@``
  16710. +M````@0`(`^L````(!($`'``!"SH`&``!"$0`%``!`3P`$``!!K<`#``!"T,`
  16711. +M"``!"TT`!``!!!(````!"UD4>P`!``D`!`/I`````@MA``0``0MH`````0MO
  16712. +M%(<``@`)`#X#Z0````0+?`!^``$+B`!Z``$+E``$``$+I@````$`@0`!`^L`
  16713. +M```!"[@````!"\D4U@`!``D``@/I````!`O/``0``0O8``0``0OA`````0OI
  16714. +M`````0OQ%.```0`)`!4#Z0`'"OH&=PM-">0&Q0<J!TL`!@OY`$P``0P``$@`
  16715. +M`0F=`"8``0P'`"(``0P/`````0P;`````0PG%2H``0`)`!,#Z0`"!7D![``"
  16716. +M#"\`#``!`[<````!##854P`"``D`F`/I``H,/`"X`,(+DP2R`2``R0Q,`>P$
  16717. +M$@`"#%8"2``!#%P````!`($``@/J``````QD%D0``P`)!6@#Z0`*#&L*P0K3
  16718. +M!^X*W0<C#'0,50DG!<L`$`Q[%9(``0R#%9(``0R+%80``0R3%8```0R;$/0`
  16719. +M`0RB$/```0RI$)0``0RR$)```0R[#I@``0S##I0``0?W#C```0S+#BP``0S6
  16720. +M#38``0SA#38``0SL#,8``0SS#,8``0"!`$@#Z@````,'W0`8``$,^@`4``$'
  16721. +MYP`,``$`@03V`^L`````#00<K``"``D!G`/I``L$%@=S`/(![`"B`,(!(`4&
  16722. +M"G8`N`#)``8*Y@7L``$-#P7,``$,/056``$-'05(``$-+0+8``$-.P+0``$`
  16723. +M@0`(`^H`````#4D>O``!``D`)P/I``0`P@$@`,D![``"#5(`"``!#5H````!
  16724. +M#6(?!``!``D`#@/I````!`UJ`"H``0UR`!P``0UZ``P``0V!`````0V('QH`
  16725. +M`0`)`!`#Z0````(-CP`,``$-E0````$-FQ\R``$`"0`%`^D````"#:,`"``!
  16726. +M#:H````!#;$?/P`!``D`#`/I``(#M@'L``(-O0`(``$-R`````$-TQ]@``$`
  16727. +M"0`-`^D``P.V`>P+DP`"#=P`"``!#>0````!#>P?B@`!``D`$`/I``$`P@`$
  16728. +M#?4`+``!#?P`(``!#@,`#``!#@L````!#A,?J@`!``D`#0/I``(#M@'L``(.
  16729. +M'``$``$.)`````$.+!_,``$`"0`/`^D`!0#"!08%%PIV`H<``@XW``0``0Y!
  16730. +M`````0Y+(`8``0`)`"@#Z0`$`2``P@"X`,D``@Y3``0``0Y:`````0YA($\`
  16731. +M`P`)`9<#Z0`"#(H'[@`"#FP`$@`!#G8````!`($`>0/J``````"!``D#ZP``
  16732. +M```.@"+2``$`"0`6`^D`!0#"`2`-+`'L`,D``@Z+``@``0Z5`````0Z?(Q``
  16733. +M`0`)`-4#Z0`*`,(!(`"B`*@+#`02!8,#M@#)`/(`!`ZF`S@``0ZL`QP``0ZR
  16734. +M`"(``0ZY`````0[`)#,``0`)``(#Z0````0.Q@`$``$.SP`$``$.V`````$.
  16735. +MX`````$.Z"0]``$`"0`.`^D`!P8'!08%%PM#!B<+30'L``(.\``$``$.]P``
  16736. +M``$._B2$``$`"0`/`^D``@Q5`>P`!`\&`#(``0\-`"H``0\4``@``0\=````
  16737. +M`0\F)*@``0`)`",#Z0`#`,(%>0'L``0$T0""``$/+@!V``$/-0`,``$//@``
  16738. +M``$/1R3F``$`"0`,`^D``0@!``('G@`$``$/3@````$/5"4"``$`"0`=`^D`
  16739. +M`P#R`,D![``""L(`!``!#UT````!#V<E.0`!``D`$P/I``,`N`'L`,D``@]N
  16740. +M``@``0]T`````0]Z)68``@`)`"0#Z0`$`YH`5002`>P``@^#``0``0!I````
  16741. +M`0"!``(#Z@`````/BR6V``$`"0`&`^D``@^2`>P``@^;``0``0^B`````0^I
  16742. +M)=$``0`)``\#Z0`$`+@`R0N3`>P``@^Q``@``0^X`````0^_)@(``0`)`!P#
  16743. +MZ0`"!7D![``$#\<`7``!#\X`3@`!#]4`#@`!#]X````!#^<F-``!``D`'`/I
  16744. +M``,`P@5Y`>P`!`QU`&0``0_N`%@``0_T``P``0_\`````1`$)FL``0`)`($#
  16745. +MZ0`+!@<%!@47"T,*=@9;!B<+30#"!7D![``"$`T`&``!$!4````!$!TG00`!
  16746. +M``D`(`/I``,`P@5Y`>P``1`E`````1`L)WP``@`)```#Z0``````@0#>`^H`
  16747. +M```"!,<#<@`!!+H"U@`!$#@HD0`"``D`10/I``(`R02R``0`N0#^``$00`#^
  16748. +M``$!(0`$``$020````$`@0`!`^L````!`,(````!$%@H\@`!``D`!0/I``00
  16749. +M7P'V#`X![``"$&8````!$&T````!$'0I%P`!``D`60/I``8)I`)+`>,![`#"
  16750. +M"P0``A!@`.X``1![`.8``1"!*:```P`)`$,#Z0`($(P$%A"8`%4&MP02"2\`
  16751. +MH@`(";``L@`!$*4`L@`!"=0`2``!$+D`2``!":4`(@`!$,H`'@`!!2<`!``!
  16752. +M$-4````!`($`!@/J``````"!``\#ZP````8!8``X``$)Q``T``$!5``4``$!
  16753. +M,``(``$!XP`$``$!20````$0XBHY``$`"0`O`^D``1",``0%ZP"4``$0[`"0
  16754. +M``$%^@`<``$0^P````$1"2IY``$`"0`4`^D`!`"X"Y,`R0'L``(1$0`(``$1
  16755. +M&`````$1'RJP``(`"0!U`^D`!@#"`2``R0M[`J8(3@`$`K$!,``!$2X!*``!
  16756. +>`KL`&``!$3@````!`($`0`/K`````0+&`````0``
  16757. +`
  16758. +end
  16759. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/unix.lib.uue amiga/fsf/emacs18/amiga/unix/src/unix.lib.uue
  16760. --- baseline/fsf/emacs18/amiga/unix/src/unix.lib.uue    Wed Dec 31 17:00:00 1969
  16761. +++ amiga/fsf/emacs18/amiga/unix/src/unix.lib.uue    Sat Sep 28 00:00:00 1996
  16762. @@ -0,0 +1,1186 @@
  16763. +begin 666 unix.lib
  16764. +M```#^@``*UH```/I````"2!O``0@UTC0_/QP`$YU(&\`!"`O``AF`G`!(EA,
  16765. +MT/S\6(].T0```_(```/I````#$CG(#(@;P`80^\`'$7Z`!PF;P`4)`LL>0``
  16766. +M``!.K@``(`N0@DS?3`1.=1;`3G4``````^^!```#7T%B<T5X96-"87-E````
  16767. +M`0```!B&```#7TQ63U)A=T1O1FUT`````0```!X````````#\@```^D````*
  16768. +M(&\`!"\-*D@@#68$2^P``$'L```B31+89OPO#4ZZ``!83RI?3G4``````_@`
  16769. +M```!`````0```!(````!`````@````X````````#[X,```)?;6MT96UP````
  16770. +M``$````>`````````_$````#`````$]05%,`!`!````#\@```^H````$=#IT
  16771. +M;7!?6%A86%A8`````````_(```/K````"0```_(```/I````;R!O``0B;P`(
  16772. +MGOP`($CG+Q8F22](`"`O20`D<`Q.N@``*D`@+```4JP``"(L``#2@"\!2&P`
  16773. +M`$AO`#!.N@``3^\`#'!WL!-F-DHK``%F,$'O`"A#[``03KH``"9`+&P``$ZN
  16774. +M_\0N`'P`0>\`*"(()#P```/M3J[_XBH`>`%@1G!RL!-F-DHK``%F,$'O`"A#
  16775. +M[``23KH``"9`+&P``$ZN_\HJ`'@`0>\`*"(()#P```/N3J[_XBX`?`%@"G`6
  16776. +M*4```&```(Q*A6<$2H=F!$ZZ```@"V="2H5G/DJ'9SH@#6<V<``O`"\`+P!(
  16777. +M>/__+P8O!R`%(@0@;P`X3KH``$_O`!@K0``(9Q`JK```*4T``"M+``0@"V`Z
  16778. +M(`UG!B!-3KH``$J%9PY*A&<*(@4L;```3J[_W$J'9PY*AF<*(@<L;```3J[_
  16779. +MW"`+9P8@2TZZ``!P`$S?:/3>_``@3G4@;P`$44](YP$T)DA+[```+T@`$&`Z
  16780. +M(&H`!+'+9C`F52XK``@JDR!K``1.N@``($M.N@``0J=(;P`8+P=.N@``3^\`
  16781. +M#$J`:PX@+P`48`HJ2B15(`IFP'#_3-\L@%!/3G4``````_@````#`````0``
  16782. +M`)````!4````-`````,````"```!:````0P```$(`````````^^#```"0&UA
  16783. +M;&QO8P`````!````'H8```1?7V9I9F]?;V9F<V5T`````````@```"@````D
  16784. +MA@```U]?9FEF;U]B87-E``````$````L@P```U]?<W!R:6YT9@````````$`
  16785. +M```\@P```D!F;W!E;@```````@```)0```!8A@```E]$3U-"87-E````!```
  16786. +M`3X```$L````F@```%Z&```"7V5R<FYO```````!````OH,```)`7W-E=&5R
  16787. +M<@````$```#.@P``!$!?<W1A<G1?<')O8V5S<P`````!````^H,```)`9G)E
  16788. +M90````````(```&,```!'H,```)`9F-L;W-E``````(```&&```!3(,```)?
  16789. +M=V%I='!I9`````$```&8`````````_$````#`````$]05%,`!`!````#\@``
  16790. +M`^H````%<&EP93IU>&]P96XN)6QX`'<`<@````/R```#ZP````$```/R```#
  16791. +MZ0```,6>_``82.<A/DGY`````$7L`!@J6B!:+AHF;``D+T@`()/)+'@`!$ZN
  16792. +M_MHD;```($!#Z`!*($DB;```3J[_"B!L``!#[``$3J[^DD/O`"0B_(```"1P
  16793. +M`2+`0IDB+P`@0>\`)"0(+$I.KOVBX8`K0``8+'@`!$ZN_WPB2TZN_GI*@&<*
  16794. +M($`B34ZN_I)@"")-<!Q.KO\N3J[_=B)+<"!.KO\N(F\`("`'3J[_+DS??(3>
  16795. +M_``82H!.=2!O``0@+P`((B\`#"]O`!``!"]O`!0`""]O`!@`#"]O`!P`$"]O
  16796. +M`"``%"]O`"0`&%E/2.</%BHO`#@L+P`T+@`J2"]!`!QP'$ZZ```F0"!-2AAF
  16797. +M_%.(D<T@"%*`*4``('(!+'@`!$ZN_SHI0``<(D`2W6;\<!QR`4ZN_SHI0``8
  16798. +M<"!R`4ZN_SHI0``D<`$I0``00?K_G"`(0_K^L)")*4``%$'L``!.KO\B*4``
  16799. +M`"(+9P`!2DJL`!QG``%"2JP`&&<``3I*K``D9P`!,DJ`;P`!+"!L```@*``4
  16800. +M0?K^;B)L```B:0`08`(2V%.`9/I![```(FP`)!+89OP@+```4JP``"=```PG
  16801. +M1P`03>P`%CS\`!1P!1E```P@5C%\`!P`$A%```@@7B%K``P`%"`\@``#\DJ&
  16802. +M9@)P`2@`2H5O!"`%8`0@+```0J=(>``!+SR```/Z+P`O/(```_,O!B\$+R\`
  16803. +M3"\\@``#\2\O`%`O/(```_`O+P!4+SR```/O+R\`6"\\@``#[2\O`%@O/(``
  16804. +M`^XO!R\\@``#["!L```O*``0+SR```/K+&P``"(/3J[^#D_O`%0G0``(9S0@
  16805. +M;```+'@`!$ZN_H`@;```+'@`!$ZN_HQ*@&?D0JL`%$'L```B2RQX``1.KO\0
  16806. +M("L`#&!H+&P``$ZN_WQ.N@``8`)P#"E````@"V<&($M.N@``("P`'&<.(D`@
  16807. +M+``@+'@`!$ZN_RX@+``89PPB0'`<+'@`!$ZN_RX@+``D9PPB0'`@+'@`!$ZN
  16808. +M_RX@+```;PH@0"QX``1.KO\<</],WVCP6$].=0```_@````#`````0```5H`
  16809. +M``%6```!1@```!<````"```"_````NH```+8```"S````L0```)0```!S```
  16810. +M`<(```&J```!E@```8H```%\```!=````6P```%B```!0````30```$B```!
  16811. +M%````$0````X````&@```!`````````#[X$```-?3&EN:V5R1$(````````!
  16812. +M````"H8```)?1$]30F%S90````,```*F```"7@```"R&```$7U]S=&%R='5P
  16813. +M7W!O<G0```````,```)^```"<@```$"#```"0&UA;&QO8P`````!```!`(8`
  16814. +M``-?7V1O;W)?;F%M90`````!```!IH8```-?7VYE>'1?<&ED```````"```!
  16815. +MM@```;*&```#7U]S=&%C:U]S:7IE`````0```?J&```#7U]P<F]C97-S97,`
  16816. +M`````0```I*#```$0&-O;G9E<G1?;W-E<G(```````$```*NA@```E]E<G)N
  16817. +M;P```````0```K:#```"0&9R964````````!```"P`````````/Q`````P``
  16818. +M``!/4%13``0`0````_(```/J````!@````````````````````$`````````
  16819. +M`````_(```/K````"@```_(```/I`````TZZ```@+```3G4``````^^#```#
  16820. +M0&-H:V%B;W)T`````````0````*&```#7U]O=7)?<&ED`````````0````8`
  16821. +M```````#\0````,`````3U!44P`$`$````/R```#Z0```",@+P`$(&\`"")O
  16822. +M``Q(YP$4+@`F22I(3KH``'`!OH!M+'`@OH!L)B`+9PX@!^>`0^P``-/`)MDF
  16823. +MV2`-9PSGAT'L``#1QR#=(-UP`&`(<!8I0```</],WRB`3G4@+P`$(&\`")[\
  16824. +M`!`O2``(0J\`#$'O``A#UV&62H!G"#!\__\@"&`"(!?>_``03G4``````^^#
  16825. +M```#0&-H:V%B;W)T`````````0```!B&```$7U]S:6=?:&%N9&QE<G,`````
  16826. +M``(```!`````,(8```)?97)R;F\```````$```!0`````````_$````#````
  16827. +M`$]05%,`!`!````#\@```^D````5("\`!$CG#P`N`"PL``!.N@``*4<``'H`
  16828. +M>`$@+```P(1G#B`L``#`A&8&(`5.N@``4H78A'`@NH!MX"`&3-\`\$YU("\`
  16829. +M!"\'(@`@+```@($N'V"P```#[X8```-?7W-I9U]M87-K```````$````3```
  16830. +M`"0````4````#(,```-`8VAK86)O<G0````````!````$(8```1?7W-I9U]P
  16831. +M96YD:6YG`````````0```!R#```$0%]S:6=?9&ES<&%T8V@```````$````N
  16832. +M`````````_$````#`````$]05%,`!`!````#\@```^D```":(&\`!"`O``@B
  16833. +M;P`,+V\`$``$64](YR$T+@`F;P`<*D@D22])`!1@`AK:2A)G!%.';O:U[P`4
  16834. +M8QH0*O__<B^P`6<0=#JP`F<*4X=O!AK!8`(:VTH39P13AV[V0A5*AU[`1`!(
  16835. +M@$C`3-\LA%A/3G4@+P`$(&\`"")O``Q93TCG)S8N`"I(+TD`($JL``!G``#^
  16836. +M(&P``"9H``Q.N@``(BL`!+*`9@``Z"!L``!(:``L0>P``")3<`!&`&$`_UA8
  16837. +M3TJ`9P``RD'L```B31`8L!EF``"\2@!F]&8``+1*AV80(&P``"`H`!AR`["!
  16838. +M9P``H"!L```@*``8<ORP@6<$68!F/B)L```B$2QL``!.KO^"+``@;```T/P`
  16839. +M+"((=/Y.KO^L*@!G$B(%0>P``"0(3J[_FB(%3J[_IB(&3J[_@F`&*6@`(```
  16840. +M(&P``"EH``0`@"EH``@`?$/H``Q%[`"$)-DDV239(&P``"EH`!@`!"EH`!P`
  16841. +M="\O`"`O*P$8($U#[```<`!.N@``4$]P`6`"<`!,WVSD6$].=2!O``0B;P`(
  16842. +M2.<`%"9)*DA.N@``($TB2W``80#^R$J`9P1P`&`,($TB2TS?*`!.^@``3-\H
  16843. +M`$YU(&\`!")O``A(YP`4)DDJ2$ZZ```@32)+<`%A`/Z02H!F<$AX`/](;```
  16844. +M+PU.N@``3^\`#$J`:@P@32)+3-\H`$[Z``!+TT*=0JL`$G`!-T``#D)K`!`G
  16845. +M?````@``,C=```Q"JP`V0>P``")(2AEF_%.)D\@G20`60IT@/`\,/P`G0``B
  16846. +M)T``&B=``"HJ_```H?]P`$S?*`!.=0```_@````(`````0```7X```%P```!
  16847. +M:@```5H```%2```!3````4(```$H`````````^^&```#7VQA<W1?9&ER````
  16848. +M`````P```0(```"2````BH,```)`7V=E=%]C9`````$```":A@```U]L87-T
  16849. +M7V5N=')Y``````8```%D```!1@```1(```#P````X````*B&```#7U]T96UP
  16850. +M7V9N86UE````!````C8```'V````Q@```+"&```"7T1/4T)A<V4````!```!
  16851. +M"(,```-`7VQF:6)S=&%T```````!```!A(,```-`8VAK86)O<G0````````"
  16852. +M```!X````:B#```#0%]F:6)S=&%T`````````@```A````'&@P```U]R96%D
  16853. +M;&EN:P````````$```'\`````````_$````#`````$]05%,`!`!````#\@``
  16854. +M`^L```!!```#\@```^D```#0(&\`!%E/2.<`%"](``@@;P`(*F@!#&`*)E4@
  16855. +M34ZZ```J2R`-9O),WR@`6$].=2!O``2>_``02.<@-BI()FT`#$/K`0PO2``<
  16856. +M+TD`("!+8;1"K```0JL!#$*M``0@%>6`($`G:``,`1A!ZP`(+T@`&&```)Y!
  16857. +MZP`0(DA*&6;\4XF3R"`)D<C0_``L<@`R`-*(4H%T`#0!/T``%C]!`!0@`DZZ
  16858. +M```D0$J`9@9P#&```)Q-TD*>(&\`(""*+U``("SK`(@LZP"$0>L`C$/J``PB
  16859. +MV"+8(M@E:P`,`!@E:P!\`!Q+Z@`@.V\`%``$.V\`%@`&(&\`'"`H``12J``$
  16860. +M*T``"$'J`"Q#ZP`0$-EF_"JK``@J;P`<(A4D+P`8+&P``$ZN_Y1*@&8`_TXG
  16861. +M:P$,`1!"K0`$+&P``$ZN_WQR=-*!L(%F!'`!8`I.N@``*4```'``3-]L!-[\
  16862. +M`!!.=2!O``193TCG(#8O2``4<!!.N@``*D!P1^6(3KH``"9`(&\`%"`(2AAF
  16863. +M_%.(D<`@"%*`3KH``"1`3KH``"`-9P``@B`*9WP@"V=X*TL`#"M\```!'``(
  16864. +MD<@G2`$0)T@!#"=(`10FBB!O`!04V&;\3KH``"=```0B+P`4+&P``'3^3J[_
  16865. +MK"J`9R)!ZP`((@`D""QL``!.KO^:2H!G#B!-80#^.$J`9Q0@#6`^+&P``$ZN
  16866. +M_WQ.N@``*4```"!-80``-F`D<`PI0```(`UG!B!-3KH``"`*9P8@2DZZ```@
  16867. +M"V<&($M.N@``<`!,WVP$6$].=2!O``1(YP`6*D@F;0`,3KH``$*L```@2V$`
  16868. +M_:`@4TZZ```@%6<*(@`L;```3J[_IB!M``Q.N@``($U,WV@`3OH``"!O``19
  16869. +M3TCG`S0O2``4(&\`%"IH``R7RTZZ``!*K0$49R1^`"1M`0P@;P`4+"@`!&`$
  16870. +M4H<D4KZ&;`0@"F;T*TH!$$*M`10@+0$09R(F0-;\`"`I;P`4``!%[0$0(%(I
  16871. +M2```(%(DT"!O`!12J``$(`M,WRS`6$].=2!O``0O#2I(3KH``"`M``0J7TYU
  16872. +M(&\`!"`O``A(YP$4+@`J2"9M``Q.N@``<`$G0`$4*T<`!$S?*(!.=0```^^#
  16873. +M```"0&9R964````````'```"B@```H````)J```"/@```C0```(J````'H8`
  16874. +M``-?;&%S=%]D:7(````````#```"X@```EX```!2@P```D!M86QL;V,`````
  16875. +M!````8X```%V```!;````**&```"7T1/4T)A<V4````&```"=````@8```'L
  16876. +M```!U@```30```$<@P``!$!C;VYV97)T7V]S97)R```````"```"#@```4B&
  16877. +M```"7V5R<FYO```````#```"(````A(```%,@P```T!C:&MA8F]R=```````
  16878. +M``4```,N```##@```J8```):```!E(,```)`7V=E=%]C9`````$```'*A@``
  16879. +M`U]L87-T7V5N=')Y``````$```+L`````````_$````#`````$]05%,`!`!`
  16880. +M```#\@```^D````(2.<!`BQL``!R`$ZN_X(N`"(`3J[_@B`'3-]`@$YU````
  16881. +M``/OA@```E]$3U-"87-E`````0````8````````#\0````,`````3U!44P`$
  16882. +M`$````/R```#ZP````(```/R```#Z0```!L@;P`$("\`")[\`$1(YP,$+@`J
  16883. +M2'S_3KH``"!-0^\`#DZZ``!*@&8D<!#`KP`6YH!R4.6)PJ\`%NR!@H#"A[*'
  16884. +M9@1\`&`&<`TI0```(`9,WR#`WOP`1$YU(&\`!"`O``A(YP$$3-\@@&">````
  16885. +M``/O@P```T!C:&MA8F]R=`````````$````8@P```T!?9FEB<W1A=```````
  16886. +M``$````BA@```E]E<G)N;P```````0```$H````````#\0````,`````3U!4
  16887. +M4P`$`$````/R```#Z0```$$@+P`$(&\`"%E/2.<G%BX`*DA.N@``2&\`'$AX
  16888. +M"`$O!TZZ``!/[P`,4H!F!G#_8```RD*G+&P``'(")`].KO\<3^\`!"9`2H!G
  16889. +M+"(O`!PD"TZN_GI*0&<>("\`'.6`+PT@0"\H``@B0G``D<A.N@``4$]\`&!@
  16890. +M3J[_?"H`<BY&`;"!9D9\`"`O`!SE@"!`*J@`"$WM``1"GBS\```A_W`!/,`\
  16891. +MP$)>*WP```(``#)"K0`V0JT`%B`\#PP_`"M``"(K0``:*T``*F`,?/\@!4ZZ
  16892. +M```I0```(`MG#"0++&P``'("3J[_%DAO`!Q(>`@"+P=.N@``3^\`#"`&3-]H
  16893. +MY%A/3G4``````^^#```#0&-H:V%B;W)T`````````0```!2#```"7VEO8W1L
  16894. +M```````"````\@```"*&```"7T1/4T)A<V4````"````W@```#:#```#0%]L
  16895. +M9FEB<W1A=````````0```&Z#```$0&-O;G9E<G1?;W-E<G(```````$```#0
  16896. +MA@```E]E<G)N;P```````0```-0````````#\0````,`````3U!44P`$`$``
  16897. +M``/R```#Z0````X@;P`$(F\`"$CG,!8F22I(3KH``"(+)`TL;```=@%.KOY$
  16898. +M2H!G!'``8`9.N@``</],WV@,3G4``````^^#```#0&-H:V%B;W)T````````
  16899. +M`0```!*&```"7T1/4T)A<V4````!````&H,```)`7W-E=&5R<@````$````L
  16900. +M`````````_$````#`````$]05%,`!`!````#\@```^D````^(&\`!")O``A9
  16901. +M3TCG,S8J2'X`(&P``"PH`.`O20`@2H9F($JL``!F&D'L`!@B""QL```D/```
  16902. +M`^U.KO_B+`!G`GX!2H9G-B(&0>P`(B0(0>P``"8(+&P``$ZN_IXB!B0-)B\`
  16903. +M($ZN_IXB!G0*3J[^R$J'9U@B!DZN_]Q@4"!L```F:`"X,'S__[?(9T!#[``H
  16904. +M<"4L>``$3J[]V"1`2H!G+"EL````#"E-`!`O"B!++$I#[``$E<HF;P`D3J[]
  16905. +MM$S?!``B2BQX``1.KOYB3-]LS%A/3G4@;P`$0^\`"&$`_RI.=2!O``1#[P`(
  16906. +M80#_''`43KH``$YU``````/X````!@````$```"R````J````*0```".````
  16907. +M2@```"H````````#[X8```%?7W5S`````@```'X````4A@```U]?5T)E;F-H
  16908. +M37-G``````$````DA@```E]$3U-"87-E`````@```%8````PA@``!%]?4')O
  16909. +M9W)A;4YA;64````````"````H@```%"#```"0&5X:70````````!````\@``
  16910. +M``````/Q`````P````!/4%13``0`0````_(```/J````#T]K```````4````
  16911. +M`````````````````&-O;G-O;&4Z```E<SH@``!I;G1U:71I;VXN;&EB<F%R
  16912. +M>0```````^P````!`````0```!0````````#\@```^D````'2.<@`B(O``Q!
  16913. +M[P`0)`@L;```3J[_'$S?0`1.=0```^^&```"7T1/4T)A<V4````!````$```
  16914. +M``````/Q`````P````!/4%13``0`0````_(```/I````#R!O``0O#2I(*JP`
  16915. +M`$'M``0J7T[Z```@;P`$("\`"$CG`00N`"I((!5.N@``0>T`!"`'3-\@@$[Z
  16916. +M`````````^^&```#7U]S:6=?;6%S:P```````0````J#```"0%]S971J;7``
  16917. +M```!````%(,```-`<VEG<V5T;6%S:P`````!````*H,```-`7VQO;F=J;7``
  16918. +M```````!````.`````````/Q`````P````!/4%13``0`0````_(```/I````
  16919. +M!R!O``0@+P`(+P`O+```+PA.N@``3^\`#'``3G4```/OA@``!%]?<WES=&5M
  16920. +M7VYA;64````````!````#(,```)?<W1R;F-P>0````$````2`````````_$`
  16921. +M```#`````$]05%,`!`!````#\@```^D````I(&\`!)[\`%1(YS@6*D@@#6<D
  16922. +M2A5G("!-2AAF_%.(D<TB""!-<`).N@``0>P``'`"(@!.N@``("P``&\2L*P`
  16923. +M`&X,Y8!![```)G`(`&`L4H!F)"(L``!![P`;)@@L;```=`!X44ZN_BQ*0&<$
  16924. +M)D-@"D?L``1@!$?L``@@2TH89OQ3B)'+(@@@2W`"3KH``$'L`!QP`G(!3KH`
  16925. +M`$S?:!S>_`!43G4```/X````!`````$```"0````>````'(````L````````
  16926. +M`^^#```"0'=R:71E```````$````F````(P````T````*(8```)?97)R;F\`
  16927. +M``````$````XA@```U]S>7-?;F5R<@````````$````^A@```U]S>7-?97)R
  16928. +M;&ES=`````$```!&A@```E]?3U-%4E(``````0```%2&```"7T1/4T)A<V4`
  16929. +M```!````7@````````/Q`````P````!/4%13``0`0````_(```/J````"#H@
  16930. +M```T,@``56YK;F]W;B!E<G)O<B!C;V1E```*```````#\@```^D````````#
  16931. +M\0````,`````3U!44P`$``````/R```#Z@```,9N;R!S:6=N86P`:&%N9W5P
  16932. +M``!I;G1E<G)U<'0`<75I=```:6QL96=A;"!I;G-T<G5C=&EO;@!T<F%C92!T
  16933. +M<F%P``!A8F]R=`!E;70@:6YS=')U8W1I;VX`9FQO871I;F<@<&]I;G0@97AC
  16934. +M97!T:6]N``!K:6QL``!B=7,@97)R;W(`<V5G;65N=&%T:6]N('9I;VQA=&EO
  16935. +M;@``8F%D(&%R9W5M96YT('1O('-Y<W1E;2!C86QL`'=R:71E(&]N(&$@<&EP
  16936. +M92!W:71H(&YO(&]N92!T;R!R96%D(&ET``!A;&%R;2!C;&]C:P!S;V9T=V%R
  16937. +M92!T97)M:6YA=&EO;B!S:6=N86P@9G)O;2!K:6QL`'-T871U<R!S:6=N86P`
  16938. +M<V5N9&%B;&4@<W1O<"!S:6=N86P@;F]T(&9R;VT@='1Y`'-T;W`@<VEG;F%L
  16939. +M(&9R;VT@='1Y``!C;VYT:6YU92!A('-T;W!P960@<')O8V5S<P``8VAI;&0@
  16940. +M<W1A='5S(&AA<R!C:&%N9V5D``!B86-K9W)O=6YD(')E860@871T96UP=&5D
  16941. +M(&9R;VT@8V]N=')O;"!T='D``&)A8VMG<F]U;F0@=W)I=&4@871T96UP=&5D
  16942. +M(&9R;VT@8V]N=')O;"!T='D`:6YP=70@<F5C;W)D(&%V86EL86)L92!A="!C
  16943. +M;VYT<F]L('1T>0!E>&-E961E9"!#4%4@=&EM92!L:6UI=`!E>&-E961E9"!F
  16944. +M:6QE('-I>F4@;&EM:70``'5N:VYO=VX@<VEG;F%L``!U;FMN;W=N('-I9VYA
  16945. +M;```=VEN9&]W(&-H86YG960``'5N:VYO=VX@<VEG;F%L``!U<V5R('-I9VYA
  16946. +M;"`Q`'5S97(@<VEG;F%L(#(```````````H````2````'````"(````V````
  16947. +M0@```$@```!8````<@```'@```""````F@```+8```#>````Z@```1````$>
  16948. +M```!0````58```%R```!C````;@```'D```""@```B(```(\```"3````EP`
  16949. +M``)L```"?````HH```/L````(`````$```,4```#$````PP```,(```#!```
  16950. +M`P````+\```"^````O0```+P```"[````N@```+D```"X````MP```+8```"
  16951. +MU````M````+,```"R````L0```+````"O````K@```*T```"L````JP```*H
  16952. +M```"I````J````*<```"F`````````/R```#Z0```#H@+P`$(&\`""(O``PB
  16953. +M;P`064](YP<4+`$N`"I(+TD`%'H`)FP``&`N2H=G""`K``R^@&8@>@%P`;"K
  16954. +M`!1F%BHK``P@#6<$*JL`&"!+3KH``"`%8"HF4TJ39LX(!@``9P1P`&`:2H5F
  16955. +M"G`**4```'#_8`QP`$ZZ``!.N@``8*),WRC@6$].=2!O``0@+P`((F\`#$CG
  16956. +M`10B`'``3-\H@&``_W`@;P`$+PUP`"(`D\DJ7V``_UX@+P`$(&\`""(O``Q(
  16957. +MYP,$+`$N`"I(4H!F`GX`2H=J`D2'(`<B!B!-D\E,WR#`8`#_+``````#[X8`
  16958. +M``-?7W!R;V-E<W-E<P`````!````)(,```-`7V9R965?96YT<GD````!````
  16959. +M3H8```)?97)R;F\```````$```!L@P``!$!?=V%I=%]S:6=N86QS```````!
  16960. +M````=H,```1`7VAA;F1L95]S:6=N86QS`````0```'H````````#\0````,`
  16961. +M````3U!44P`$`$````/R```#Z0```!(@+P`$44](YP,`+@!.N@``(`=.N@``
  16962. +M2H!G(B)`(&D`'"](``P@:0`$<`$B;P`,3I$L`"`'3KH``"`&8`)P_TS?`,!0
  16963. +M3TYU``````/O@P```T!C:&MA8F]R=`````````$````.@P```T!?9FEN9%]F
  16964. +M9`````````$````4@P```T!?9G)E95]F9`````````$````V`````````_$`
  16965. +M```#`````$]05%,`!``````#\@```^D````#(&\`!"`O``A.^@`````#[X,`
  16966. +M``)`<W1R<F-H<@````$````*`````````_$````#`````$]05%,`!``````#
  16967. +M\@```^D````#(&\`!"`O``A.^@`````#[X,```)`<W1R8VAR``````$````*
  16968. +M`````````_$````#`````$]05%,`!``````#\@```^D```!-2.<`!G`(<@`L
  16969. +M>``$3J[_.BI`2H!F!'``8"Y"K0`$2'@`*'``+P!![```<@&3R<%!3KH``%!/
  16970. +M*H!F#")-<`A.KO\N<`!@`B`-3-]@`$YU(&\`!$CG``8J2"`-9Q@@36$``!X@
  16971. +M54ZZ```B37`(+'@`!$ZN_RY,WV``3G4@;P`$2.<`!BI(2JT`!&<4(E4L>``$
  16972. +M3J[^(")53J[^)D*M``1,WV``3G4@;P`$(%`B:``.<``0*0`/<@'AH2`!3G4@
  16973. +M;P`$("\`""(O``Q(YP,&+`$N`"I(8:I*AV8$2H9G'B)5(T<`("-&`"0S?``)
  16974. +M`!PL>``$3J[^,G`!*T``!$S?8,!.=2!O``1(YP`&*DA*K0`$9QPB52QX``1.
  16975. +MKOXL2D!G#B)53J[^)D*M``1P`6`"<`!,WV``3G4```/X`````0````$````H
  16976. +M`````````^^#```$0%]D979I8V5?;W!E;@````````$````R@P``!$!?9&5V
  16977. +M:6-E7V-L;W-E```````!````9@````````/Q`````P````!/4%13``0`0```
  16978. +M`_(```/J````!'1I;65R+F1E=FEC90````````/R```#Z0```!XO#B`L```B
  16979. +M`$A!0D'2@"`L``"S@"E```1"K``(0^P`!'``+'@`!$ZN_=@I0```</].KOZV
  16980. +M2(!(P"E```!*K```9PA*@&L$<`%@`G``*4``#"Q?3G4O#B`L``!K""QX``1.
  16981. +MKOZP("P``&<*(D`L>``$3J[^8BQ?3G4```/X`````P````$```!8````.@``
  16982. +M`!X````&`````@```&8```!.````/@```"P````:````%@````````/OA@``
  16983. +M!%]?<W1A<G1U<%]T:6UE```````!````!(8```%?7W5S`````0```!``````
  16984. +M```#\0````,`````3U!44P`$`$````/R```#Z@````7_____9FEF;RYL:6)R
  16985. +M87)Y`````````_(```/K````!````_(```/I````%B`O``113TCG`P`N`$ZZ
  16986. +M```@!TZZ``!*@&<H(D`@:0`<<D#EB<*1+T@`#"`!(&D`!")O``Q.D2P`(`=.
  16987. +MN@``(`9@`G#_3-\`P%!/3G4@+P`$+P<N'V"N``````/O@P```T!C:&MA8F]R
  16988. +M=`````````$````.@P```T!?9FEN9%]F9`````````$````4@P```T!?9G)E
  16989. +M95]F9`````````$````\`````````_$````#`````$]05%,`!``````#\@``
  16990. +M`^D```!B(&\`!"`O``@B;P`,+V\`$``$+V\`%``(+V\`&``,+V\`'``0+V\`
  16991. +M(``4+V\`)``844](YP<4+@!([P,``!1\`"IL``!@%DJM``1F"C!\``$K2``$
  16992. +M8`Q2AMK\`"2\K``$;>0@+``$O(!F>'(*TZP`!"`L``0B`.>!TH#E@2`!3KH`
  16993. +M`"I`2H!F#'`,*4```'#_8```CG#VT*P`!"(`YX'2@.6!(&P``")-8`(2V%.!
  16994. +M9/H@+```9P8@0$ZZ```I30``>O;:K``$(`7G@-"%Y8#;P)?+*TL`!%*%VOP`
  16995. +M)+JL``1M\"`&YX#0AN6`(&P``"&O`!0(!"&'"``AKP`8"`A+[P`@(9T(#"&=
  16996. +M"!`AG0@42^\`+"&="!@AG0@<(9T(("`&3-\HX%!/3G4@+P`$(@!K%K*L``1L
  16997. +M$"`!YX#0@>6`(&P``$*P"`1.=2`O``1(YP$$+@!K'KZL``1L&"`'YX#0A^6`
  16998. +M*FP``-O`2JT`!&<$(`U@"'`)*4```'``3-\@@$YU("P`!$YU``````/X````
  16999. +M$0````$```&"```!9````58```%````!,@```.P```#>````Q````+X```"R
  17000. +M````I````)@```!R````;@```&0```!>````0@````````/O@P```D!M86QL
  17001. +M;V,``````0```("&```"7V5R<FYO```````"```!=@```(R#```"0&9R964`
  17002. +M```````!````N@````````/Q`````P````!/4%13``0`0````_(```/K````
  17003. +M`@```_(```/I````&B!O``0B;P`(GOP`#$CG(18F22I(3KH``"`+9P8N*P`$
  17004. +M8`B1R$ZZ```N`'#_OH!F!'``8"@@!T'O`!1.N@``(@U![P`4)`@L;```3J[^
  17005. +M=$J`9P1P`&`&3KH``'#_3-]HA-[\``Q.=0`````#[X,```-`8VAK86)O<G0`
  17006. +M```````!````%H,```)`=&EM90````````$````F@P```T!?9VUT,F%M:6=A
  17007. +M``````$````\A@```E]$3U-"87-E`````0```$B#```"0%]S971E<G(````!
  17008. +M````6`````````/Q`````P````!/4%13``0`0````_(```/I````!R!O``0B
  17009. +M;P`(("\`#"\+)DDB2"!+)E].^@````````/O@P```D!M96UM;W9E`````0``
  17010. +M`!@````````#\0````,`````3U!44P`$``````/R```#Z0```%(@;P`$(F\`
  17011. +M"%%/2.<!%"9)*DA.N@``0>\`#$ZZ```@#6<(0>\`#"K8*M@@"V<``-)![P`,
  17012. +M3KH``"!`("@`)$2`<CQ.N@``)H!^`"!L``1#[```$!BP&68,2@!F]F8&?@1@
  17013. +M``":(&P`!$/L``@0&+`99@Q*`&;V9@9^`V```(`@;``$0^P`$!`8L!EF"DH`
  17014. +M9O9F!'X%8&8@;``$0^P`&!`8L!EF!DH`9O9G4"!L``1#[``<$!BP&68&2@!F
  17015. +M]F<\(&P`!$/L`"`0&+`99@9*`&;V9R@@;``$0^P`)!`8L!EF!DH`9O9G%"!L
  17016. +M``1#[``H$!BP&68(2@!F]F8"?@$G1P`$<`!,WRB`4$].=2!O``2>_``0+PTJ
  17017. +M2$'O``Q#[P`$80#^Z"JO``P@+P`00^T`!#+`("\`!#+`("P``#+`<``J7][\
  17018. +M`!!.=0`````#^`````@````!````[````-@```#$````L````)P```"$````
  17019. +M:@```%`````````#[X,```-`8VAK86)O<G0````````!````%(,```-`7V=E
  17020. +M='1I;64````````!````'(,```-`;&]C86QT:6UE```````!````-H,```)?
  17021. +M7T-81#,S``````$```!$A@```E]T>FYA;64`````"````.@```#4````P```
  17022. +M`*P```"8````@````&8```!,A@```U]D87EL:6=H=`````````$```$X````
  17023. +M`````_$````#`````$]05%,`!`!````#\@```^H````,3454($135`!7150@
  17024. +M1%-4`$5%5"!$4U0`1414`$-$5`!-1%0`4$14`$%+1%0````````#\@```^D`
  17025. +M```P(&\`!$CG``8J2"QL``!.KO^^!I4/##\`<`!,WV``3G4@+P`$(&\`"%E/
  17026. +M!(`/##\`(CP``5&`+H!.N@``((`@%R(\``%1@$ZZ```@`2Z!<CQ.N@``(4``
  17027. +M!"`7<CQ.N@``(`'E@)"!YX#0@="`(4``"%A/3G4@;P`$64](YR`$2]`@'2(`
  17028. +MZ8&2@"`!YX#0@2(`Y8'2@.^!(!TD`.F"E(#E@B`=+T$`"'(R3KH``-""T*\`
  17029. +M"`:`#PP_`$S?(`183TYU```#[X8```-?5&EM97)"87-E```````!````#(,`
  17030. +M``)?7T-81#,S``````4```"J````7@```%(```!(````.@````````/Q````
  17031. +M`P````!/4%13``0`0````_(```/I````"R`O``193RZ`0>P`!"`(6$].=2!O
  17032. +M``193RZ(0>P`!"`(6$].=2`L``1.=0`````#^`````,````!````)@```!P`
  17033. +M```*`````````_$````#`````$]05%,`!`!````#\@```^H````)````````
  17034. +M``````````$````````````"```````````````````#[`````(````!````
  17035. +M%`````@````````#\@```^D````J(&\`!")O``@@+P`,64](YS\V+@`J2"])
  17036. +M`"B7RTZZ```B#20++&P``$ZN_7XF0"("3J[]>"`+9@9.N@``8%XD;P`H0A(J
  17037. +M!U*%(A,D*P`$)@TH"BQL``!.KOY*2H!G&"(+3J[]>$H29@1P`F`L+P1.N@``
  17038. +M6$]@*$ZN_WPL`'(R1@&P@68(""L``0`+9I0B"TZN_7@@!DZZ```I0```</],
  17039. +MWVS\6$].=0`````#[X,```-`8VAK86)O<G0````````!````'H8```)?1$]3
  17040. +M0F%S90````(```!4````)H,```)`7W-E=&5R<@````$````Z@P```E]S=')L
  17041. +M96X``````0```'"#```$0&-O;G9E<G1?;W-E<G(```````$```"6A@```E]E
  17042. +M<G)N;P```````0```)H````````#\0````,`````3U!44P`$`$````/R```#
  17043. +MZ0```"Q93TJL`!)F#$'O``,I2``28>Y@%D'O``,B;``2L\AD!'`!8`)P_RE`
  17044. +M``!83TYU64](YP$4+B\`%$JL``!F`F'`*FP`%F`N("P``&\,0>\`#R)M``2S
  17045. +MR&(02H!J'$'O``\B;0`$L\AD$"95+PU.N@``6$\J2R`-9LXI30`62H=F!'``
  17046. +M8")0AR\'3KH``"!`(*P`%D/O`!,A20`$0^@`"%A/*4``%B`)3-\H@%A/3G4`
  17047. +M`````_@````'`````0```*(```"0````>@```$(````:````#@````0````#
  17048. +M`````@```$@````Z````*`````````/O@P```E]F<F5E`````````0```&Z#
  17049. +M```"7VUA;&QO8P`````!````B@````````/Q`````P````!/4%13``0`0```
  17050. +M`_(```/J````!T`H(REA;&QO8V$N8PDQ+C$```````````````````/R```#
  17051. +MZP````$```/R```#Z0```#8@;P`$64](YR,"(@@L;```=/Y.KO^L+T``$&<Z
  17052. +M+BP``$ZZ```L`&`>2&\`$$AX"`4O!DZZ``!/[P`,2H!F""E'``!P`&`24X9L
  17053. +MWB(O`!`L;```3J[_IG#_3-]`Q%A/3G4@;P`$2.<A!BI(3KH``"(-+&P``$ZN
  17054. +M_[A*@&<$<`!@4$ZN_WPN`')OTH&P@68@(@UT`$ZN_T9*@&<.(@U.KO^X2H!G
  17055. +M!"`"8"A.KO]\+@!P9="`OH!F#B!-80#_2DJ`9@1P`&`,(`=.N@``*4```'#_
  17056. +M3-]@A$YU``````/OA@```E]$3U-"87-E`````P```'(```!0````#H8```)?
  17057. +M97)R;F\```````,```#,````0````!Z#```#0%]L87-T7V9D`````````0``
  17058. +M`"*#```"7VEO8W1L```````!````-(,```-`8VAK86)O<G0````````!````
  17059. +M;(,```1`8V]N=F5R=%]O<V5R<@```````0```,@````````#\0````,`````
  17060. +M3U!44P`$`$````/R```#Z0```AI(YP`&<"(B/``!``$L>``$3J[_.BI`2H!F
  17061. +M!'``8"`;?``$``A-[0`.0AX@+```',`L[```0>T`%$ZZ```@#4S?8`!.=2!O
  17062. +M``0O#B)(<"(L>``$3J[_+BQ?3G4@;P`$2.<`!BI(("T`(&<*+&P``'(`3J[_
  17063. +MW"`M`"1G#"QL``!R0.&)3J[_W"`M`#1G!B!`3KH``"`M`#AG!B!`3KH``"!M
  17064. +M`#QAI"!-3-]@`$[Z``!(YP(&+`$J2$J`9Q0@+0`@(BT`-"QL```P?``!3J[_
  17065. +MRDJ&9Q0@+0`D(BT`."QL```P?``"3J[_RG`!(BP``..@3-]@0$YU2.<#-B9)
  17066. +M*D@N$R!O`!PL$&`4(&T`-+'*9@1^`&`(M>T`.&8"?``@;0`\+'@`!$ZN_HPD
  17067. +M0$J`9MI*AV<60I,@+0`@(BT`-"QL```P?``#3J[_RDJ&9U(@;P`<0I`@+0`D
  17068. +M(BT`."QL```P?``#3J[_RF`V<`$B+```XZ`L>``$3J[^PB!M`#PL>``$3J[^
  17069. +MC"1`2H!GWB!M`#2QRF8$?@!@"+7M`#AF`GP`2H=FUDJ&9M)P`2(L``#CH"(`
  17070. +M<``L>``$3J[^SDS?;,!.=5E/2.<#%BX`)DDJ2&```(9"K0`L""T``@`S9PQP
  17071. +M(RE```!P_V```*PL;```<@%.KO\Z("T`("(M`#0L;```,'P``4ZN_\H@;0`\
  17072. +M<``0*``/<@'AH2`!3KH``"P`("T`("(M`#0P?``#3J[_RF`0<`$B+```XZ`L
  17073. +M>``$3J[^PB!M`#PL>``$3J[^C$J`9^`@!DZZ```@+0`@0>\`%"(((&T`+"QL
  17074. +M``!.KO_6+`!G`/]B(`92@&8"?`"\AV,"+`<@!B!O`!1@`A;84X!D^B`&*T``
  17075. +M+$S?:,!83TYUGOP`2$CG#Q8N`"I()DDO20`<2H=F``"*("T`)"QL``!R0.&)
  17076. +M3J[_W"!-0^\`(!+89OQ![P`@0^P``$ZZ```@34/O`$(2V&;\0>\`0D/L``1.
  17077. +MN@``""T````S9P@(+0`/`#)G!D'O`"!@!$'O`$(@"')`Z8D@?```C@!.KO_B
  17078. +M*T``)&<``.PL;```3J[_Q$J`:@)2@.*`*T``*'``8```X$JM`"1G``#*+"T`
  17079. +M*'H`8```M+R'8P``CBP'8```B`@M``(`,V<02H5G!B`%8```L'`C8```I"`M
  17080. +M`"0B+0`X+&P``#!\``).KO_*(&T`/'``$"@`#W(!X:$@`4ZZ```H`"`M`"0B
  17081. +M+0`X,'P``TZN_\I@$'`!(BP``..@+'@`!$ZN_L(@;0`\+'@`!$ZN_HQ*@&?@
  17082. +M(`1.N@``2H!G"$J%9P0@!6`Z("T`)"(+($8L;```3J[_T"@`9P#_9DJ$:Q+:
  17083. +MA)Z$U\1P`+Z`8@#_2"`%8`YP#4ZZ``!P("E```!P_TS?:/#>_`!(3G6>_``,
  17084. +M2-<!`W`=*4```'#_WOP`#$YU64\N@&$`_")P`%A/3G6>_``L2.<@%B9)*DA*
  17085. +M@&<2!(````@!9R)3@&<``)Q@``"J2I-G"`CM``(`,V`&"*T``@`S<`!@``":
  17086. +M<`/`K0`P5X!F*`@M``\`,F<&0>P`&&`$0>P`&B\(+PU(;``(2&\`'$ZZ``!/
  17087. +M[P`08"H(+0```#-G$"\-2&P`'$AO`!A.N@``8`XO#4AL`"9(;P`83KH``$_O
  17088. +M``Q![P`0(@@L;```)#P```/M3J[_XB:`9P1P`&`@3KH``&`8(!-G"B(`+&P`
  17089. +M`$ZN_]QP`&`(<!8I0```</],WV@$WOP`+$YU(&\`!"`O``@B+P`,+V\`$``$
  17090. +MGOP`3$CG#S8J+P!P+`$N`$*O`&B;S9?++T@`('!`3KH``"1`2H!G``&@80#Z
  17091. +MHB]``&AG``&4<!1.N@``*D!*@&<``89P%$ZZ```F0$J`9P`!>'`%&T``""!O
  17092. +M`&@K2``.<A0[00`2%T``""=(``XW00`2)4@`/"5-`#0E2P`XD<@E2``D)4@`
  17093. +M("5(`#!*AV<&".H````S2H9G!@CJ``$`,TAZ_G!(>OY>2'K^1$AZ_+A(>OO:
  17094. +M2'K[#"`J`#`@2D/Z^KQ.N@``3^\`&"@`9P``\$J%9P8(Z@`/`#(@;P`@(DH2
  17095. +MV&;\($I#[P`D$MAF_$'O`"1#[``T3KH``"!*0^\`1A+89OQ![P!&0^P`.$ZZ
  17096. +M``!*AV<H2H9G!$J%9@9![P`D8`1![P!&(`@L;```<D#IB3!\#0!.KO_B)4``
  17097. +M($J&9RI*AV<$2H5G!D'O`"1@!$'O`$8@""QL``!R0.F)('P``(X`3J[_XB5`
  17098. +M`"1*J@`@9@1*AV8J("H`)&8$2H9F($J`9Q0L;```3J[_Q$J`:@)2@.*`)4``
  17099. +M*$*J`"P@!&!8("H`(&<*+&P``'(`3J[_W"`J`"1G"BQL``!R`$ZN_]Q*A&L&
  17100. +M(`1.N@``(`UG!B!-3KH``"`+9P8@2TZZ```J;P!H(`UG!B!-80#Y+B`*9P8@
  17101. +M2DZZ``!P_TS?;/#>_`!,3G4@;P`$GOP`("\-*DA.N@``2JP``&8(<`8I0```
  17102. +M8&@@+```4JP``"(L``#2@"\!2&P`/$AO``Q.N@``<``N@$'O`!!R`<%!80#]
  17103. +MN$_O``PJ@<<``O`$'O``AR`6$`_:)83RM```1K!'``8!P@%4ZZ``!*@&<*
  17104. +M($`@:``$80#XKB`53KH``'#_*E_>_``@3G4@+P`$(B\`""]O``P`!"!O`!">
  17105. +M_``H+PTJ2$CO``,`!$ZZ``!*K```9@AP!BE```!@:"`L``!2K```(BP``-*`
  17106. +M+P%(;`!(2&\`%$ZZ``!P`2Z`(@!![P`8P4%A`/T43^\`#"J`:S1"IT'O`!!P
  17107. +M`2(`80#\_EA/*T``!&L$<`!@'"`53KH``$J`9PH@0"!H``1A`/@*(!5.N@``
  17108. +M</\J7][\`"A.=0`````#^`````L````!```(!@``!V(```8\```&)@``!,P`
  17109. +M``2\```$H```!)@```22```"Y@```M`````````#[X8```-?7V9I9F]?<VEG
  17110. +M```````&```#K@```C````&H```!:@```.H````LA@```5]?=7,````!````
  17111. +M,H,```)`3F5W3&ES=`````$````ZA@```U]?1FEF;T)A<V4``````!$```;H
  17112. +M```&V```!K8```:(```&7````^8```-X```#(````K8```)B```!^@```5H`
  17113. +M``$\````W````,0```!\````;(,```)`9G)E90````````8```<D```'#```
  17114. +M!P(```"L````G````)"&```"7V5R<FYO```````&```'\```!TP```42```$
  17115. +M+```!!(```'>A@```E]$3U-"87-E`````P``!00```3B```!Z(,```1`7W=A
  17116. +M:71?<VEG;F%L<P```````@```Y0```(6@P``!$!?:&%N9&QE7W-I9VYA;',`
  17117. +M```"```#S@```E"#```"0'-T<F-A=``````$```&0```!BH```+J```"U(,`
  17118. +M``1`7W-I9U]D:7-P871C:````````0``!`R#```#7U]S<')I;G1F````````
  17119. +M!0``"`X```=J```$U```!,0```2H@P```D!?<V5T97)R`````0``!/B#```"
  17120. +M0&UA;&QO8P`````#```%>@``!6P```52@P```T!?86QL;V-?9F0```````$`
  17121. +M``7V@P```T!?9G)E95]F9`````````,```A:```'M@``!OB#```#0&-H:V%B
  17122. +M;W)T`````````@``!^0```=`A@```U]?9FEF;U]O:P````````(```?H```'
  17123. +M1(8```1?7V9I9F]?;V9F<V5T````````!```!_H```?V```'5@``!U*&```#
  17124. +M7U]F:69O7V)A<V4``````@``!_X```=:@P```T!?9FEN9%]F9`````````(`
  17125. +M``A&```'H@````````/Q`````P````!/4%13``0`0````_(```/J````%5]M
  17126. +M``!?<P``9FEF;SHE<R]R=V5S2R5S`&T```!F:69O.B5S+W(`9FEF;SHE<R]M
  17127. +M=V5+``!?;0``7W,``'5X9FEF;RXE;'@``'5X9FEF;RXE;'@``````_(```/I
  17128. +M````"2`O``193RZ`0>P`%B`(6$].=2!O``193RZ(0>P`%B`(6$].=0```_@`
  17129. +M```"`````0```!P````*`````````_$````#`````$]05%,`!`!````#\@``
  17130. +M`^H````)=7-E<@````````````!W:&5E;`````````X````4```````&```#
  17131. +M[`````0````!````(````!H````6````!@````````/R```#Z0```*D@+P`$
  17132. +M64\N@"`L`0QG#B!`3KH``$J`9P1R`6`"<@`@`5A/3G4@+P`$(&P!#'(`3OH`
  17133. +M`$ZZ```I0`$,9@I(;```3KH``%A/(&P!#$ZZ``"!K```3G4@;`$,3OH```CL
  17134. +M``P``DYU("\`!`@```Q6P$0`2(!(P$YU".P`#0`"3G4@+P`$"```#5;`1`!(
  17135. +M@$C`3G5.N@``<``@;```$"@`#W(!X:&#K```3G5.^@``("\`!%E/2.<!%B]`
  17136. +M`!!^`&`N("T`%$ZZ```F0$J`9Q1*JP`49@Y^`7`!)T``%"=M`!@`&")-<!PL
  17137. +M>``$3J[_+B!L```L>``$3J[^C"I`2H!FP"`'3-]H@%A/3G4@+P`$2.</!"X`
  17138. +M<`'OH"P`<`F^@&8&<`!.N@``("P!!,"&9P:-K`$(8'HJ!D:%RZP!"$J':V9P
  17139. +M(+Z`;&`@!^>`0>P`!"IP"``P?``!N\AF+"`'58!G%%.`9Q!R#9"!9SQ9@&<X
  17140. +M48!G-&`*2&P`&$ZZ``!83W``3KH``&`@(`UG'"`'YX`H!D'L``2(L`@$B:P!
  17141. +M!"`'3I5&A,FL`00@+`$(P(9FBDS?(/!.=2`O``0O#B(L``""@'``+'@`!$ZN
  17142. +M_LXL7TYU("\`!"\.(@`@+```@($L>``$3J[^PBQ?3G4@+P`$2.<#`"X`?`!A
  17143. +M`/X02H!G"'P!<`YA`/\,(`=A`/YB2H!G"'P!<`)A`/[Z(`=A`/YJ2H!G"'P!
  17144. +M<`-A`/[H(`=A`/Z&2H!G"'P!<!1A`/[6(`9,WP#`3G4@+P`$+P<I0```<`@N
  17145. +M'V``_KQP`&$`_V!@D&#V2.<!%'X`2^P`!#9\``$JBT*M``12AU"-<""^@&WP
  17146. +M0JP!"$*L`01"K```80#]U&$`_>IA`/VB3-\H@&``_?AA`/VX8`#^"``````#
  17147. +M^`````(````!```!=````#X````7`````@```H0```*````"?````F0```'6
  17148. +M```!N@```:8```&B```!F````9````%*```!.````2X```$F````I````'H`
  17149. +M``!@````5@```%````!(````.````"H````*`````````^^#```$0%]T:6UE
  17150. +M<E]E>'!I<F5D``````$````2@P``!$!?=&EM97)?<W1A<G0````````!````
  17151. +M,(,```1`7V%L;&]C7W1I;65R`````````0```#2#```"7U]F86EL```````!
  17152. +M````0H,```-`7W1I;65R7W-I9P`````!````3(,```-`7V9R965?=&EM97(`
  17153. +M```!````6H,```1`7VEN:71?<')O8V5S<V5S`````0```)*&```$7U]C:&EL
  17154. +M9')E;E]E>&ET``````(```#N````F(,```5`7V-L96%N=7!?<')O8V5S<V5S
  17155. +M``````$```"J@P```T!?9FEN9%]P:60```````$```#$@P```D!?7V5X:70`
  17156. +M`````@```8````$B@P```U]?;65S<V%G90````````$```%XA@```E]?1E!%
  17157. +M4E(``````0```D@````````#\0````,`````3U!44P`$`$````/R```#Z@``
  17158. +M``I&86EL960@=&\@8W)E871E('1I;65R``!U<V5R(&EN=&5R<G5P=``````#
  17159. +M\@```^L```!$```#\@```^D```(=2&P`!$ZZ``!83TYU("\`!"\-3KH``"I`
  17160. +M2H!F`F'B(`TJ7TYU(&\`!"`O``@O"TZZ```F0$J`9@)AQB`+)E].=2!O``0O
  17161. +M#2I((`UF!$OL``X@34H89OQ3B)'-(`A2@$ZZ```@0$J`9@1P`&`((D@2W6;\
  17162. +M(`@J7TYU64](YP,T?@!\`"!L```F:`#08"Q**P`(9B0P/`4`P&L`#F8:4H<@
  17163. +M:P`*(`A*&&;\4XB1P"`(W(#<JP`45(8F4TJ39M`@!U*`Y8#0AF$`_THI0``8
  17164. +MY8<@0")`T\=%Z0`$+T``%&8*0>P``"E(`!A@5B!L```J:`#08$)*+0`(9CHP
  17165. +M/`4`P&T`#F8P)FT`"BXM`!0@;P`4(,HO2``48`(4VTH39OH4_``])FT`$&`"
  17166. +M%-L@!U.'2H!F]D(:*E5*E6:Z(&\`%$*03-\LP%A/3G4@;P`$("\`""\-*D@J
  17167. +M@$*M``3E@&$`_K0K0``(*E].=2!O``0B;P`(("\`#$CG(C0F22I(2H!G"B!+
  17168. +M80#^PB1`8`(D2R`*9SXB%20M``2T@6TB+`'<AG00TH*\@6T"(@8J@2`!Y8`@
  17169. +M;0`(3KH``"M```AG$D?M``0B$U*;Y8$@6R&*&`!P`4S?+$1.=2!O``0B;P`(
  17170. +M("\`#&&22H!F!&$`_AI.=2!O``0B;P`(2.<`%"9)*D@@+0`$T*L`!+"5;Q+0
  17171. +M@"J`Y8`@;0`(80#^&BM```@B+0`$Y8$@;0`(T<$@*P`$(@#E@2)K``A@`A#9
  17172. +M4X%D^M&M``0@:P`(3-\H`$[Z```@;P`$(F\`""]O``P`!"`O`!`B+P`464](
  17173. +MYP(T+`$J221(+T@`$$J`9T13@&<*4X!G``"V8```]%.&9R(@+P`8(@V0@2!O
  17174. +M`!!",`@`($$B;P`08`(2V%.`9/I@``#.0>P`$")O`!`2V&;\8```OB9O`!A@
  17175. +M;G!<L!5F9DHM``%G8%2-<`&\@&8&%/P`86!4(`95@&9&$"W__TB`2,!R(Y"!
  17176. +M9RY5@&<J58!G)E.`9R)3@&<>4X!G&G(5D(%G%'(<D(%G#E6`9PIR'Y"!9P15
  17177. +M@&8$%/P`)Q3M__]@"!3M__]@`A3=N\MECF!`)F\`&&`V<"JP%68N2BT``6<H
  17178. +M5(T0+?__2(!(P')ED(%G#'()D(%F#!3\``I@#A3\`!M@"!3M__]@`A3=N\ME
  17179. +MQD(23-\L0%A/3G6>_`$L2.<_-BIO`5@@;```#&@`)0`49`I(>``43KH``%A/
  17180. +M0JP`''`!*4``&"E``#YP`BE``#HI0`!@*7P```"$`%R3R2QX``1.KO[:*4``
  17181. +M`$ZZ```I0``$9@I(;``23KH``%A/(&P`!$ZZ```I0``(+&P`!"!6+&@`%"E.
  17182. +M`!1![P$P3J[_OBEO`3``#$ZZ``!.N@``(&P``"`H`*QG$.6`(D`B*0`TY8$I
  17183. +M00`08`8I:`"$`!!*%68``.A![``J(@@L;```)#P```/N3J[_XBP`0>P`,"((
  17184. +M3J[_XBX`0>P`-B((3J[_XBH`2H9G"$J'9P1*A68B2H9G!B(&3J[_W$J'9P8B
  17185. +M!TZN_]Q*A6<&(@5.KO_<80#[<G`!+P`O!2\`+P<B!L%!3KH``"!L```@*``<
  17186. +M0>\!6&$`_)Y/[P`0?`!^`&!0(FP``"!I`"0@,'@`9SXB`$/O`#`D"2QL``!V
  17187. +M0.6+3J[^;DJ`9R8B;```(&D`)-''("@`!&<((@(D`$ZN_(Y![P%(0^\`,'`!
  17188. +M80#\V%*&4(<@;```O*@`'&VF8``"S"QL``!.KO_**`!.KO_$*@!^`"!L```L
  17189. +M*`#@9BA^`4'L`#PB""0\```#[4ZN_^(L`&820>P`/B((3J[_XBP`9@1A`/JD
  17190. +M+P<O!G``+P`O!2($P4%.N@``0>\!6'`!80#[UB`\```%&F$`^HX@0#%\!```
  17191. +M$B]``#QP0.6(80#Z>D_O`!!^0.6/+T`!.&`"4HT0%4B`2,!![``!"#```P@`
  17192. +M9NP0%6<``A9R(K`!9C!2C29-8!!P*K`59@A*+0`!9P)2C5*-$!5G!G(BL`%F
  17193. +MYB1-$!5R(K`!9@)2C7P"8%1P)[`59B!2C29-8`)2C1`59P9R)[`!9O0D37`G
  17194. +ML!5F`E*-?`%@+B9-8!!P7+`59@A*+0`!9P)2C5*-$!5G$G(@L`%G#'(*L`%G
  17195. +M!G()L`%FVB1-?``@2RH*FHL@!5*`+T@`*&$`^;8F0$JO`4QF("`%($LB;P`H
  17196. +M3KH``$(S6`!![P%((DMP`&$`^V!@`/\FVH5R$-J!NH=O%"!O`3A.N@``(`5A
  17197. +M`/EV+@4O0`$X+PH@!B!+(F\`+'(!80#[KEA/(@LD+P$X)@<L;```3J[\N"H`
  17198. +M;!!"$B\O`"A(;`!$3KH``%!/2H5F(B\*(`8@2R)O`"QR`&$`^W1![P%,(DMP
  17199. +M`&$`^NA83V``_JQZ`2!O`"Q"J``(0B@`$4(H`!`O"B`&($LB;P`L<@)A`/M`
  17200. +M0>\!0'`080#Z)EA/(@LD+P`L+&P``$ZN_,HH`&8\8"IZ`")O`"S2_`$80>\!
  17201. +M/'`!80#Z($J`9@1X9V`2(B\`+"QL``!.KOS$*`!*A&?2(B\`+"QL``!.KOR^
  17202. +M<'30@+B`9PI(;`!83KH``%A/2H5G(B\*(`8@2R)O`"QR`&$`^L!![P%,(DMP
  17203. +M`&$`^C183V``_?@@+P%`(&\!1$ZZ``!![P%(0^\!/&$`^BH@2TZZ``!@`/W6
  17204. +M(&\!.$ZZ```@;P`L3KH``&$`^))![`!R3KH``"E```!F"$'L`'@I2```0>P`
  17205. +M?DZZ```I0``49@8I;````!1![`"(3KH``"E``!AF"$'L`(XI2``80>P`DDZZ
  17206. +M```I0``<9@A![`"8*4@`'$'L`*!.N@``*4``'&8(0>P`JBE(`!P@+P%,(&\!
  17207. +M4")L`!A.N@``<`!.N@``3-]L_-[\`2Q.=0```_@````5`````0``"$X```A`
  17208. +M```(.```""H```@B```(%```"`````?X```'Z@``!X0```;0```%3@``!3H`
  17209. +M``18```$3```!#8```/6```"J````.````!.`````@```!(````"```(7@``
  17210. +M"%(```A(```%+@``!"P```0D```$$```!`0```/V```#[````^@```/@```#
  17211. +MT````\@```#J````Y````,H```"$`````````^^#```"7U]F86EL```````$
  17212. +M```'B```!M0```/:````!H,```)`;6%L;&]C``````(```!@````%(,```)`
  17213. +M<F5A;&QO8P````(```&R````,(,```)`9G)E90````````4```?B```'V@``
  17214. +M!\X```:4```"1H8```)?4WES0F%S90````$```.(@P```E]?6$-%6$E4````
  17215. +M`0```YB&```"7U]?:6]B```````&```#N@```[(```.N```#J````Z0```.>
  17216. +M@P``!$!?86QL;V-?=&EM97(````````!```#S(,```-`7W1I;65R7W-I9P``
  17217. +M```!```#Y(,```-`7VEN:71?9FEF;P`````!```$"(,```1`7VEN:71?<VEG
  17218. +M;F%L<P```````0``!`R&```"7T1/4T)A<V4````'```'=```!V(```<T```&
  17219. +MO@``!1P```34```$/(,```1`7VEN:71?=6YI>&EO`````````@``!6X```2@
  17220. +MA@```U]?5T)E;F-H37-G``````0```4.```$Y```!+X```2DA@```E]?7V-T
  17221. +M>7!E`````0``!;"#```"0'-T<FYC<'D````!```&;H,```)`='%S;W)T````
  17222. +M``$```>\@P```T!?7V=E=&5N=@````````4```A$```(+@``"!@```@$```'
  17223. +M[H8```-?7V%M:6=A7W5S97(````)```(/```"#(```@F```('```"!````@.
  17224. +M```("```!_P```?R@P```D!M86EN`````````0``"&*#```"0&5X:70`````
  17225. +M```!```(:`````````/Q`````P````!/4%13``0`0````_(```/J````+```
  17226. +M``!.;R!M96UO<GD```!A`$9A:6QE9"!T;R!C<F5A=&4@=&EM97(``$Y)3#H`
  17227. +M`$Y)3#H``$Y)3#H``"H`3DE,.@``26YV86QI9"!W:6QD8V%R9"`E<P!%<G)O
  17228. +M<B!E>'!A;F1I;F<@87)G=6UE;G1S`%5315(``'5S97(``%5315).04U%``!(
  17229. +M3TU%``!S.@``4TA%3$P`8FEN.G-H``!(3U-43D%-10``86UI9V$````#\@``
  17230. +M`^L````(```#\@```^D````$("\`!%E/+H!P`%A/3G4``````_$````#````
  17231. +M`$]05%,`!``````#\@```^D````^("\`!$CG`P`N`$JL``!G!"`'8&!\`"`'
  17232. +M`H````$D9P)\"`@'``=G!`!&``4(!P`$9P0(Q@`""`<``6<$",8```@'``-G
  17233. +M!`C&``$(!P``9P0(Q@`&(`=R2<"!<D"P@68$`$8`0@@'``EG!`C&``4@!@I`
  17234. +M``],WP#`3G4@+P`$2.<&`"P`2JP``&<((`8"0`__8%YZ``I&``\(!@`#9P1Z
  17235. +M2>6-(`9R!<"!6X!F!`C%``<(!@`"9P0(Q0`$"`8``&<$",4``2`&<D+`@6<$
  17236. +M",4`!@@&``%G!`C%``,(!@`&9P0(Q0``"`8`!6<$",4`"2`%3-\`8$YU````
  17237. +M``/X`````@````$```"&````#`````````/Q`````P````!/4%13``0`0```
  17238. +M`_(```/K`````0```_(```/I`````G``3G5P`$YU```#\0````,`````3U!4
  17239. +M4P`$``````/R```#Z0```!5(YP,`3KH``"X`?`!@"B\&3KH``%A/4H:\AVWR
  17240. +M3-\`P$YU("\`!"\'+@!AU$ZZ``!.N@``(&P``$ZZ```O!TZZ``!83RX?3G4@
  17241. +M+P`$+P<N'V#4``````/O@P```T!?;&%S=%]F9`````````$````&@P```E]C
  17242. +M;&]S90```````0```!*#```$0%]C;&5A;G5P7V9I9F\```````$````N@P``
  17243. +M!4!?8VQE86YU<%]S:6=N86QS`````````0```#*&```#7U]O9&1?=&EM97(`
  17244. +M`````0```#:#```#0%]F<F5E7W1I;65R`````0```#J#```"7U]80T58250`
  17245. +M```!````0`````````/Q`````P````!/4%13``0`0````_(```/I````$R`O
  17246. +M``0B+P`((&\`#%%/2.<#)"P!+@`J2$ZZ```@!TZZ``!*@&<:(D`@:0`@+T@`
  17247. +M%"`&(&D`!")-)&\`%$Z28`)P_TS?),!03TYU``````/O@P```T!C:&MA8F]R
  17248. +M=`````````$````:@P```T!?9FEN9%]F9`````````$````@`````````_$`
  17249. +M```#`````$]05%,`!``````#\@```^D```"8GOP`#$CG+S8J;P`T?@/.KP`X
  17250. +M?`$@;```)F@`N"H\```#[$ZZ``!*AV<*<`*^@&<$<@!@`G(!+T$`*'`!OH!G
  17251. +M"%6'9P1P`&`"<`$O0``L($U#[```3KH``$J`9@9X_V```51P_R!L```A0`"X
  17252. +M(@TL;```=/Y.KO^L+@`@;```(4L`N$J`9G@L;```3J[_?$ZZ```L`"`L``!R
  17253. +M+D8!L(%G!$J`9@I^`2H\```#[F`6(`95@&8,""\`"``Z9P1P`6`"<``N`$J'
  17254. +M9RQ\``@O``@`.F<<""\`#P`Z9P9X`F```-8@+P`\3KH``"@`8```R'C_8```
  17255. +MPBE&``!P_V```4)"IRQL``!R`B0/3J[_'$_O``0D0$J`9PPB!R0*3J[_FDJ`
  17256. +M9A8@"F<()`IR`DZN_Q9.N@``</]@``$(*"H`="0*<@).KO\6(@=.KO^F<%#I
  17257. +MB,"O`#@,@```!0!F#'`1*4```'#_8```VDJO`"AG!@@$``-F#$JO`"QG$@@$
  17258. +M``)G#'`-*4```'#_8```M@@O``D`.F<B(@TD/````^Y.KO_B2H!G""(`3J[_
  17259. +MW&`*3KH``'#_8```C`@O``@`.F<$(`5@!B`\```#[20`(@TL;```3J[_XBH`
  17260. +M9@A.N@``</]@8`@O``D`.F8$2H9F!"P$8`)\_WX`2J\`*&<"?@%*KP`L9P0(
  17261. +MQP`!""\``P`[9P0(QP`#+P<@!2(&3KH``%A/+@!L''#_(&P``"%``+@B!2QL
  17262. +M``!.KO_<(&P``"%+`+@@!TS?;/3>_``,3G4@;P`$+R\`#"\O``PO"&$`_:A/
  17263. +M[P`,3G4```/X`````0````$```!2`````````^^&```!7U]U<P````4```(V
  17264. +M```")````'P```!F````%H,```-`8VAK86)O<G0````````!````)(,```)`
  17265. +M<W1R:6-M<`````$```!6A@```E]$3U-"87-E````!0```BX```',```!`@``
  17266. +M`(@```!P@P``!$!C;VYV97)T7V]S97)R```````!````D(8```)?7T]315)2
  17267. +M``````$```"6@P``!4!?;6%K95]P<F]T96-T:6]N`````````0```.:&```"
  17268. +M7V5R<FYO```````#```!@@```5X```#V@P```D!?<V5T97)R`````P```=@`
  17269. +M``&L```!,(,```1`7V%L;&]C7V%M:6=A9F0``````0```A@````````#\0``
  17270. +M``,`````3U!44P`$`$````/R```#Z@````).24PZ`````````_(```/I```%
  17271. +M:"!O``1(YS@`</_`*``#<@`2`'#_P"@``G0`%`!P_\`H``%V`!8`</_`$'@`
  17272. +M&`#AA(B#X82(@N&$B($@!$S?`!Q.=4CG(S1+[`!R0>P`'$7L``PDR$'L`"`D
  17273. +MR$*L`!A"FGX`+"P`>D?L![Q@/"`K``0B`.6!($W1ZP`(0^@'ZD7L``PEB1@`
  17274. +M2H!G!G`!*4``&$J'9P9*JP`$9@@@$T2`*4``%%*'UOP`$+Z&;<!^`"PL`'9@
  17275. +M.G``(@<&@0``!=@0-1@`2,#I@"!-(@`&@0``!U+1]1@`!H````=.)#4(`.6"
  17276. +M0^@'ZD7L``PEB2@`4H>^AFW"3-\LQ$YU(&\`!")O``B>_`HH2.<[-B](`"@O
  17277. +M20`L(`AF"$WL`"0O3@`H<#H@;P`HL!!F!%*O`"@@;P`H<#I.N@``2H!F3G`*
  17278. +M(@`@;P`H(`A*&&;\4XB1P-*(4H%P0;*`909P_V```DQ![``P0^\`,1+89OQ!
  17279. +M[P`Q0^P`/$ZZ``!![P`Q(F\`*$ZZ``!![P`Q+T@`*$*G+R\`+$ZZ``!03RX`
  17280. +M4H!F!G#_8``"""`'0>\`<B(\```)VDZZ```L`"`'3KH``$J`9@9P++R`9`9P
  17281. +M_V```>!![P"*80#^."X`0>\`CF$`_BXJ;P`L*H!![P"280#^("M```1![P"6
  17282. +M80#^%"M```A![P":80#^""M```PB%6LP=#*R@FXJ)BT`"&\D>`JVA&X>*"T`
  17283. +M!&L8#(0```%R;A!*@&L,L()N"+:'9PI*AV<&</]@``%JTH'E@2`M``@D`-2"
  17284. +MU(#4@B`M``0F`.6#UH#6@M:M``S6@=:'<"S6@+R#9`9P_V```3A'[P">?``D
  17285. +M36`0($MA`/V()4``$%B+4H98BKRM``1MZGP`8"`0&R(&!H$```78&X`8`'(`
  17286. +M$@"RK0`(;09P_V```/92AKRM``1MVGP`0>T'2B1(+T@`)&!*($MA`/TZ)(!+
  17287. +MZP`%$"L`!'(`$@`E00`$9PI3@6<&</]@``"\1^T``1`5<@`2`"5!``AM"BIO
  17288. +M`"RRK0`,;P9P_V```)Q2AM3\`!"\K0`(;;!\`&`.(`8&@```!^H;FP@`4H:\
  17289. +MK0`,;>P@!@:````'ZD(U"`!\`-K\"!Y@'B!+80#\OBJ`1>L`!"!*80#\LBM`
  17290. +M``1'Z@`$4H90C2!O`"R\D&W:?``D;P`D*F\`+&`H2H=F!D*J``Q@&!`;2(!(
  17291. +MP"5```QR`;"!9PA*@&<$</]@#E*&U/P`$+RM``AMTG``3-]LW-[\"BA.=2!O
  17292. +M``193R\-*DA@`E*-$!4?0``$9R9(@$C`0>P``0@P``((`&86$"\`!'(LL`%G
  17293. +M#'(ML`%G!G(KL`%FT"`-*E]83TYU(&\`!")O``@@+P`,(B\`$%E/2.<'%"P!
  17294. +M+@`F22I((`UG$A`52(!(P$'L``$(,``""`!F!'``8$IZ`&`B$"\`%$B`2,`B
  17295. +M!>6!TH72@=*`*@%P,)J`NH9O!'``8"92C1`5'T``%&<02(!(P$'L``$(,``"
  17296. +M"`!FQKJ';`1P`&`$)H4@#4S?*.!83TYU(&\`!")O``A93TCG`!0F24/O``AP
  17297. +M`'(880#_;"I`2H!F!'``8&H@+P`((@#I@9*`(`'I@)"!Z8`F@'`ZL!5F3D'M
  17298. +M``%#[P`(<`!R.V$`_S@J0$J`9@1P`&`V("\`""(`Z8&2@.6!TY-P.K`59B!!
  17299. +M[0`!0^\`"'``<CMA`/\**D!*@&8$<`!@""`O``C1DR`-3-\H`%A/3G4@;P`$
  17300. +M(F\`"%E/2.<!%"I)+T@`#!`0<BVP`68(?@%2KP`,8#!(@$C`0>P``0@P``((
  17301. +M`&88<BL@;P`,LAA7P$0`2(!(P"](``Q*@&<$?@!@!'``8!P@;P`,(DUA`/\4
  17302. +M)D!*@&8$<`!@"$J'9P)$E2`+3-\H@%A/3G4@;P`$(F\`")[\``Q(YP`D*DDO
  17303. +M2``0<$JP$&8H0I5#Z``!0>T`!"](``P@22)O``QP`2(\```!;6$`_CPO0``0
  17304. +M8```M'!-L!!F?'`"*H!#Z``!0>T`#"](``P@22)O``QP`7(,80#^$")`2H!F
  17305. +M!G``8```P$7I``%P+K`19P9P`&```+!![0`((D@@2G`!<@5A`/WD(D!*@&8&
  17306. +M<`!@``"41>D``7`NL!%G!G``8```A$'M``0B2"!*<`!R!F$`_;@O0``08#`0
  17307. +M$$B`2,!#[``!"#$``@@`9QIP`2J`0^T`!'``(CP```%M80#]C"]``!!@!'``
  17308. +M8#P@+P`09@1P`&`R<"\@;P`0L!!F'$/H``%![0`0+T@`#"!)(F\`#&$`_=HO
  17309. +M0``08`@K?```'"``$"`O`!!,WR0`WOP`#$YU("\`!"(O``@@;P`,+V\`$``$
  17310. +MGOP`)$CG/Q0J2"H`+@$D!W8#Q(,O0``X+T$`/$J"9@P@!W)D3KH``$J!9A(@
  17311. +M!W)DY8E.N@``2H%G!'``8`)P`2P`(!5*@&<,4X!G2%.`9V9@``%^("T`!"(`
  17312. +M4X$D`=2"U($F`NF#EH(D`^F"E(/O@BX%WH(O1P!`2H9G``%4<CRP@6T``4P&
  17313. +MAP`!48`O1P!`8``!/B`M``0B`-*!TH`D`>F"E($B`NF!DH+O@=J!+T4`0&``
  17314. +M`1PH!7X`*BT`#%.%(`;0@-"&Z8!'[``^U\`O0``@8!H@&R(`TH'2@"0!Z8*4
  17315. +M@2("Z8&2@N^!V(%2A[Z%;>(N+P`\+T0`)"(M``QT`K*";@8F!U.#8`(F!R`#
  17316. +M<F1.N@``(@#2@4J`:@)6@.2`+T``+"`#+T$`,')D3KH``"`!:@)6@.2`=@G6
  17317. +MK0`,+T``-"`#+T$`*'(,3KH``%*!(`'G@)"!T("0@="`58!R"DZZ``!'[P`H
  17318. +MT)O0KP`TT)N0FU*`<@=.N@``+@%J`EZ'+"T`!)R':@)>AGH!*"T`"&`<+@9>
  17319. +MAR(M``SE@4'L`#K1[P`@OK`8`&P(+`=2A;J$;>`@!M"`T(8B`.F!DH`@`>F`
  17320. +MD('O@"(O`"32@"]!`$`@+P!`T*T`$-"O`$A,WRC\WOP`)$YU(&\`!")O``@@
  17321. +M+P`,GOP`6$CG/S8J2"Q-1^\`-";`)L@FR2].`#!*@&<<(`A*&&;\4XB1P"P(
  17322. +M(@C3KP`X<#.R@&4<?#)@&&$`^JHL`)R-+T``.'(#O(%L!G#_8``#>B]&`"P@
  17323. +M;P`X2A!F!G#_8``#:$/O`'1A`/OF+T``.&8&</]@``-4)F\`/$'L`*8B2V$`
  17324. +M][`N`&<"0I,@;P`X2A!G``*^*D@O2`!\80#Z2"(`DHTO0``X+T$`>'8#LH-L
  17325. +M!G#_8``#%"!O`#@0$&<@<BRP`6<:<CNP`6<40^\`<&$`^WXO0``X9A1P_V``
  17326. +M`NP@//__\?#0KP!T+T``<"!O`#@0$'(LL`%G"'([L`%F``%80^@``2!)0^\`
  17327. +M7&$`^[HJ0$J`9@9P_V```K!%[0`!<"RP%6<&</]@``*@($I#[P!(80#[E"]`
  17328. +M`#AF!G#_8``"BB!O`#A*$&<&</]@``)\($MP`B%```@A?````(@`!"`O`'!$
  17329. +M@$WH!THLP'`!+,!2ABS&("\`=$2`3>@'6BS`0IY"GM;\`!!%Z`78>@`L/```
  17330. +M![(@2B\O`'0O2``L(`4B!D'O`&!A`/QF+@`NKP!T(`4B!D'O`$QA`/Q46$\H
  17331. +M`$OJ``)%ZP`(OH!O&B!+((1P`2)O`"@2@"9*(4<`!"1-0BD``6`8($L@AR)O
  17332. +M`"A"$29*(40`!"1-$WP``0`!(`9R`\"!9@P@!G)D3KH``$J!9A(@!G)DY8E.
  17333. +MN@``2H%G!'``8`)P`2(`Y8%![`">(#`8`"(`TH'2@"8!Z8.6@20#Z8*4@^^"
  17334. +MVH)2A@R&```']6\`_T)@``$<(&\`.$H09P9P_V```69*AV<&</]@``%<>`!\
  17335. +M`'H`0J\`1'X`*DM@<$JM!TYG/B`O`$0B!^F!)"\`<`:!```'2B8S&`#6@B]#
  17336. +M`$1*AF<*L(-G!G#_8``!'$2"*T('2B`O`"Q2@"M`!U)\`6`F(`4B+P!T*BT'
  17337. +M2MJ!2H1G"K"%9P9P_V```.Y$@2M!!TI"K0=2>`%2A]K\`!"^JP`(;8I*AF<$
  17338. +M2H1F!G#_8```R'P`?@`J2R@O`$1@.G``(@<&@0``!=@0,Q@`2,#I@"!+T<!#
  17339. +MZ`=*+TD`0$J&9PI*J0`,9@0@!&`"(`71K0`0+"D`!%*'6(V^JP`$;<!@('``
  17340. +M<@$G00`()T``!"0O`'1$@DWK!THLPBS`+,`O0`!X*F\`/"XO`"P@!U*`*T``
  17341. +M#"PO`'AG"-"&4H`K0``,<C.P@6,$</]@,-K\!^H@!R!-(F\`,$ZZ```@3=''
  17342. +M2^@``4(02H9G$"`&($TB;P!\3KH``$(U:`!P`$S?;/S>_`!83G4@;P`$+PTJ
  17343. +M2$'L```B36$`]%!*@&<,0>P``")-<`%A`/P,*E].=2\-0>P`LDZZ```J0$J`
  17344. +M9@8J7V```%QP`2E`$\Y*%68>0JP`<D*L`'9"K`>\0JP'Q$'L``!#[`A<$MAF
  17345. +M_&`L($U#[`!R80#S]$J`9QYP.K`59Q`@34/L`')P`&$`^ZI*@&<(0>P`<F$`
  17346. +M_W8J7V``\PYP`2E`$\Y#[`!RD<AA`/.\2H!G"$'L`')A`/]48`#R[B!O``0@
  17347. +M+P`((F\`#)[\`!!(YP,4*DE([P$!`!`@;P`4+U``&$JL$\YF!&$`_T1*K`!V
  17348. +M9PH@+P`8L*P`@FP@?@!'[`!R8!!2A];\`!"^K`!Z;01^`&`R2JL'3F;J8"I^
  17349. +M`4?L`'8L+`!V8`X@+P`8L*L`$&T(4H=8B[Z&;>Y#[`!RT\=^`!XI!=?IAT'L
  17350. +M![S1QR\-+T@`("`00>\`'$/L`')A``#"(&\`("(H``0K00`@Y8%![`A<(F\`
  17351. +M(-'I``A#[``,(X@8`"M(`"A83TS?*,#>_``03G4@;P`$0^P``'``80#_*D'L
  17352. +M```@"$YU(&\`!"`O``@B;P`,2.<!%"X`)DDJ2$JL$])F#G`!*4`3TD'L"B!A
  17353. +M`/XZ+PL@!R!-0^P*(&$``$)83TJ'9P9![`"Z8`1![!(*)T@`*$S?*(!.=2!O
  17354. +M``1#[``L<`!AKD'L`"P@"$YU(&\`!"`O``@B;P`,+V\`$``$GOP`#$CG#S0N
  17355. +M`"9O`"PJ2'P`>@`H$2`$YX`O20`@T\!%Z0@>8$`O2@`D(!6PDFTV(&\`)+"0
  17356. +M9BA*A&8&("@`!&X:YX0B*``$(F\`(`:$```(&K*Q2`!N!'``8`)P`2H`+"@`
  17357. +M!&`&4X11BFRZ(!4B/``!48!.N@``*``@%2(\``%1@$ZZ``#2AY*&+`%@"`:&
  17358. +M``%1@%.$2H9K]&`(!(8``5&`4H0,A@`!48!L\"`&(CP```X03KH``"=```@@
  17359. +M!B(\```.$$ZZ```@`2]!`!QR/$ZZ```G0``$("\`''(\3KH``":!2H5G`E*3
  17360. +M(`18@'('3KH``"=!`!AL!%ZK`!@L/```![)*A&M`(`9R`\"!9@P@!G)D3KH`
  17361. +M`$J!9A(@!G)DY8E.N@``2H%G!'``8`)P`2H`(@#E@47L`)X@,A@`N(!M0%*&
  17362. +MF(!@P%.&(`9R`\"!9@P@!G)D3KH``$J!9A(@!G)DY8E.N@``2H%G!'``8`)P
  17363. +M`2H`Y8!![`">V+`(`$J$:\8$A@``!VPG1@`4)T0`'"`%T(#0A>F`1>P`/M7`
  17364. +M0JL`$&`.(BL`$.6!F+(8`%*K`!`B*P`0Y8&XLA@`;.92A"=$``Q"JP`@)T<`
  17365. +M)$S?+/#>_``,3G4@;P`$+PTJ2"`M`!@B`-*!TH!![`"^T<$@+0`0(@#2@=*`
  17366. +M0^P`T]/!(#P```=LT*T`%"\`+Q4O+0`$+RT`""\M``PO"2\(2&P`^$AL`%A.
  17367. +MN@``3^\`)$'L`%@@""I?3G4@;P`$+PUA`/TX($`J7V"4(&\`!")O``@@+P`,
  17368. +M+P<N`"`1L(=M%"('3KH``-&0(!$B!TZZ```B@6`J2H!J)E.0WY%L("`11(`B
  17369. +M!TZZ```B$)*`4X$@@2`11(`B!TZZ``">@2*'+A].=2!O``0B;P`(2.<!%"9)
  17370. +M*D@N+0`4GJL`%&8L+BT`$)ZK`!!F(BXM``R>JP`,9A@N+0`(GJL`"&8.+BT`
  17371. +M!)ZK``1F!"X5GI,@!TS?*(!.=2!O``0B;P`(("\`#"]O`!``!)[\`'!(YS\T
  17372. +M+@`J;P"8+TD`+$*5+T@`*$/O`%QP"B+84<C__"`O`%QR/K"!;`1*@&H.0>\`
  17373. +M8$/O`%QP/&$`_Q9![P!D0^\`8'`\80#_"$'O`&A#[P!D<!AA`/[Z0>\`<$/O
  17374. +M`&QP#&$`_NQ@3"`O`'!3KP!P!H````=K(@!T`\*"9@IR9$ZZ``!*@68:(#P`
  17375. +M``=LT*\`<')DY8E.N@``2H%G!'``8`)P`2(`Y8%![`">(#`8`-&O`&@@+P!H
  17376. +M;ZXL/```!VS<KP!P(`9R`\"!9@P@!G)D3KH``$J!9A(@!G)DY8E.N@``2H%G
  17377. +M!'``8`)P`20O`&SE@B8`UH/6@.F#0>P`/M'#+#`H`"`O`&BPAF\:1^\`:)V;
  17378. +M4I,,FP````QMGD*O`&Q2KP!P8)0@+P!<0J\`7'H`<@$O00"(+T``)%*%("\`
  17379. +MB-"`+T``B"`O`(AN[B`O`(AJ!'``8`1P`>N@+T``B$AO`#`O!TAO`)`@;P`X
  17380. +M3I!![P`\0^\`:&$`_BQ/[P`,*`!G+B`%4X5*@&H&</]@``$02H5J!E.O`(A@
  17381. +MQ'`!ZZ`L`$J$;P:=KP"(8+3=KP"(8*X@+P!\:P``Q"(O`%"R@&<``+I!^OGB
  17382. +M(F\`++/(9@9![`!R8`1![`H@?``F2"](`)!@``"(("L'3K"O`'QF=GH`)&\`
  17383. +MD&!D("H'3K"O`'QG5"`%Z8`B+P"((&\`D`:````'2M*P"`"2JP=*+T$`C$AO
  17384. +M`#`O!TAO`)0@;P`X3I!![P`\0^\`:&$`_6Q/[P`,2H!F$B`O`%"PKP!\9@@O
  17385. +M;P",`(A@)E*%U/P`$"!O`)"ZJ``(;9)2AM;\`!`@;P"0O*@`"&T`_W!P_V`D
  17386. +M("\`)-&O`(@O+P`H+P=(;P"0(&\`.$Z0<`$J@$_O``P@+P"(3-\L_-[\`'!.
  17387. +M=2!O``0B;P`(("\`#)[\``Q(YP<T+@`J2"])`!@,K0````$`(&\&<`$K0``@
  17388. +M2&\`'"`'($UA`/T>6$\L`$JO`!QF!B`M`"!J!B`&8```QD'Z^*XB;P`8L\AF
  17389. +M!D'L`')@!$'L"B!\`"9(+T@`(&```)8@*P=.L*T`(&8``(1Z`"1O`"!@<"`M
  17390. +M`"`B*@=.LH!G7B`%Z8`B%2!O`"`&@```!TK2L`@`DJL'2BJ!2JT`(%?`1`!(
  17391. +M@$C`*T``($AO`!P@!R!-(F\`'&$`_(Q83TJO`!QF0"`5D*H'2M"K!THJ@$JM
  17392. +M`"!7P$0`2(!(P"M``"!2A=3\`!`@;P`@NJ@`"&V&4H;6_``0(&\`(+RH``AM
  17393. +M`/]B</],WRS@WOP`#$YU(&\`!"\-0_KWVG``*E]@`/[@2JP3SF8$80#W+$YU
  17394. +M``````/X````'0````$``!*X```29@``$-@``!"T```0I```$%0``!`R```/
  17395. +M\@``#H(```X6```,^```#,H```RX```,J@``"O@```E*```(>```!Z0```%L
  17396. +M```!7````18```#F````H````(X```"`````7````%8```!0````3````"L`
  17397. +M```"```5E```%,8``!3````3D@``$XP``!#H```0W```#J(```Z:```.B```
  17398. +M#G0```YF```.8@``#EH```X\```.,@``#@H```WT```-X@``#=0```V\```-
  17399. +MN```#:0```V8```-D```#88```U\```-3```#3X```TZ```-*@``#1P```T(
  17400. +M```,_```#/0```SP```,[```#.@```S@````L````&@```!D````2```````
  17401. +M``/O@P```D!S=')C:'(``````0```3*#```"0'-T<F-A=``````"```!?```
  17402. +M`7"#```"7V]P96X````````!```!CH,```)`<F5A9`````````$```&L@P``
  17403. +M`D!C;&]S90```````0```;2&```"7U]?8W1Y<&4````%```&6@``!3X```1>
  17404. +M```$'````\J#```"7U]#6$0S,P`````<```2G```$HX``!)4```2/@``$4X`
  17405. +M`!$\```1)```$1H``!`@```0$@``#]X```_0```/K```#YH```^,```/@```
  17406. +M#W````\^```/,```"N8```K8```(4@``"#P```@F```("```!^P```<.```'
  17407. +M`(,```)`<W1R;F-P>0````(```R.```,=(,```-`7U]G971E;G8````````!
  17408. +M```,SH,```)?<W!R:6YT9@````$``!#@`````````_$````#`````$]05%,`
  17409. +M!`!````#\@```^H```!(1TU4`"`@(``@("``````!`````@``````````"`@
  17410. +M(``@("``<SIL;V-A;'1I;64`<SIZ;VYE:6YF;P``+P`````?````'````!\`
  17411. +M```>````'P```!X````?````'P```!X````?````'@```!\````?````'0``
  17412. +M`!\````>````'P```!X````?````'P```!X````?````'@```!\```%M```!
  17413. +M;G!O<VEX<G5L97,``%5.25A46@``("`@`%-U;DUO;E1U95=E9%1H=49R:5-A
  17414. +M=$IA;D9E8DUA<D%P<DUA>4IU;DIU;$%U9U-E<$]C=$YO=D1E8P`E+C-S("4N
  17415. +M,W,E,V0@)3`R+C)D.B4P,BXR9#HE,#(N,F0@)60*```````#[`````(````!
  17416. +M````$`````P````````#\@```^L```3V```#\@```^D```&<GOP`#$C7`0-P
  17417. +M_][\``Q.=5%/2-<#`%!/3G5(YS`"(A!**``-9P1P`&`<)`DF`"QL``!.KO_6
  17418. +M(@!2@&8(3KH``'#_8`(@`4S?0`Q.=5%/2.<_-BX`*DDF2"P3+T8`*"](`"Q*
  17419. +M*P`-9P9P`&```(Q**P`,9V8F3=?'>@!@6"1-8`)2BK7+9`9P"K`29O2WRF8$
  17420. +M*`I@!D'J``$H")B-(B\`*"0-)@0L;```3J[_T"P`4H!F"$ZZ``!P_V`^VH:V
  17421. +MAF8V2^H``9Z&<`!.N@``3KH``$J`9B)*AV:D8!PB!B0-)@<L;```3J[_T"H`
  17422. +M4H!F"$ZZ``!P_V`"(`5,WVS\4$].=5E/2.<_`BX`+!`O00`<2B@`#6<$<`!@
  17423. +M4E.!)@$B!B0'+&P``$ZN_[XJ`$ZN_WPH`%*%9P1*A&<.(`1.N@``*4```'#_
  17424. +M8"0B!G0`)@).KO^^+`!2@&<$2H1G#B`$3KH``"E```!P_V`"(`9,WT#\6$].
  17425. +M=9[\`0!(YS\&+@`J2"P5*BT`""`M``1G"B(`+&P``$ZN_Z88+0`-2(1(Q"!-
  17426. +M3KH``$J$9P1P`&!$(@9![P`@)`@L;```=D#EBTZN_F@H`$J'9@HB!DZN_]Q*
  17427. +M@&<:2H1G$G#_NH!G#"(")`5.KO]&2H!G!'``8`9.N@``</],WV#\WOP!`$YU
  17428. +M("\`!$CG(`(B`"QL``!T`$ZN_S1.KO]\="Y&`K""5\%$`4B!2,$@`4S?0`1.
  17429. +M=2`O``0@;P`((F\`#)[\`!!(YS<6+@`F22I(?`!AN$J`9GPB!RQL``!T`4ZN
  17430. +M_E9*@&=L(@=![```)`AV!$ZN_]!9@&92(@<D/```)Q!.KO\T2H!G0B('0>\`
  17431. +M("0(=A!.KO_6<@FP@6\N<)NP+P`@9B9![P`E(@@D"TZN_-`J`$'O`";1P"((
  17432. +M)`U.KOS04H!G!E*%9P)\`2('=`!.KOY6(`9,WVCLWOP`$$YU("\`!"(O``B>
  17433. +M_`(02.<_!BX`</\O0`(H+T$`)"('+&P``'0`=@%.KO^^+T``("('3J[_OBP`
  17434. +M3J[_?"H`+T`"+&8``,(H+P`D(@<D!';_3J[^.+""9@``KKR";```GBH$FH8H
  17435. +M!2`$<@%(02QX``1.KO\Z*D!*@&9J<@)(04ZN_RCBB"H`#(4```(`;1`@!7(!
  17436. +M2$%.KO\Z*D!*@&9&>D#GC4OO`"@P/`'_<@!![P`H$,%1R/_\8"RXA6\$(`5@
  17437. +M`B`$)@!.N@``(@<D#2QL``!.KO_0L(-G"DZN_WPO0`(L8`:8@TJ$;M!![P`H
  17438. +ML<UG#")-(`4L>``$3J[_+BHO`BQF!$*O`B@L+P`@O*\`)&P.(@<D!BQL``!V
  17439. +M_TZN_[XL+P(H9PH@!4ZZ```I0```(`9,WV#\WOP"$$YUGOP!"$CG-Q8N`"9)
  17440. +M*D@L%4HM``UF``$8(`<$@```!`!G(`2````$`&=*4X!G6%.`9UQ3@&=>4X!G
  17441. +M9E.`9VQ@``#N2BT`#&<F(`9![P$D0^\!(&$`_=9*@&<4("\!)#=```(@+P$@
  17442. +M-H!P`&```,IP&6```+XB!BQL``!.KO\H)H!P`&```+(FAG``8```JG``8```
  17443. +MI"`&(A-A`/XV8```F"M3``AP`&```(XJ$TJM``1F#B(5+&P``$ZN_HPK0``$
  17444. +M("T`!&=B)``B!2QL``!.KOY<2H!F4B(&0>\`("0(=D#EBTZN_FA*@&<^(@5.
  17445. +MKO^F(BT`!$ZN_Z8B!DZN_]PB`G0`3J[_1AM\``$`#2J"*T(`!$'O`"`B""QL
  17446. +M``!.KO^X2H!G!"`"8`Y.N@``8`9P%BE```!P_TS?:.S>_`$(3G4@+P`$(B\`
  17447. +M""]O``P`!$CG#P8J+P`<+`$N`'`.3KH``"I`2H!F"G`,*4```'#_8$Y#U2+'
  17448. +M0IDBQD(M``TB!RQL``!.KO\H&T``#$AZ_G1(>OO:2'K[9$AZ^JQ(>OIV2'KZ
  17449. +M:"`%($U#^OI03KH``$_O`!@H`&P&($U.N@``(`1,WV#P3G4@+P`$(B\`""]O
  17450. +M``P`!"]O`!``""]O`!0`#"]O`!@`$$CG#0`H+P`4*B\`$"X`<`!*@68$<$#E
  17451. +MB`!```$O`"`'<O]A`/]&6$]*@&9`<`!*A&8$<$#EB`!```(O`"`%<O]A`/\H
  17452. +M6$]3@&8B<`!*KP`<9@1P0.6(`$```B\`("\`''+_80#_!EA/58!G$$'L``8O
  17453. +M2``03-\`L$[Z``!,WP"P3G4``````_@````"`````0``!EH```)<````````
  17454. +M`^^&```"7T1/4T)A<V4````0```%B```!2(```34```$O@``!(````/D```#
  17455. +MG````O````),```"!````;0```&.```!(@```.(```"F````,(,```)`7W-E
  17456. +M=&5R<@````4```4R```!Z@```/````"T````/H,```1`7V-H96-K7W-I9VYA
  17457. +M;',``````0```,J#```$0%]H86YD;&5?<VEG;F%L<P````$```#.@P``!$!C
  17458. +M;VYV97)T7V]S97)R```````#```#]@```5X```$\A@```E]E<G)N;P``````
  17459. +M!0``!7(```4Z```#^@```6(```%`@P```D!F<F5E`````````@``!<(```&@
  17460. +M@P```T!C:&MA8F]R=`````````$```.4@P```D!M86QL;V,``````0``!6:#
  17461. +M```#0%]A;&QO8U]F9````````0``!;2#```"7U]F86EL```````!```&9@``
  17462. +M``````/Q`````P````!/4%13``0`0````_(```/J````")LP('$``$9A:6QE
  17463. +M9"!T;R!I;FET:6%L:7-E($DO3P`````#\@```^D````G(&\`!")O``A(YR$6
  17464. +M)DDJ2$ZZ```B#20++&P``$ZN_[)*@&<$<`!@;$ZN_WPN`'(T1@&P@692(@).
  17465. +MKO^X2H!G#B(-3J[_LDJ`9P1P`&!&3J[_?"X`<F_2@;"!9BPB`G0`3J[_1DJ`
  17466. +M9QHB"TZN_[A*@&<0(@TD"TZN_[)*@&<$<`!@$DZN_WPN`"`'3KH``"E```!P
  17467. +M_TS?:(1.=0`````#[X,```-`8VAK86)O<G0````````!````$H8```)?1$]3
  17468. +M0F%S90````$````:@P``!$!C;VYV97)T7V]S97)R```````!````C(8```)?
  17469. +M97)R;F\```````$```"0`````````_$````#`````$]05%,`!`!````#\@``
  17470. +M`^D````.(&\`!"`O``@B+P`,GOP`#$C7`0-P`-[\``Q.=2`O``0B+P`(+V\`
  17471. +M#``$44](UP`#<`!03TYU``````/Q`````P````!/4%13``0``````_(```/I
  17472. +M````$"!O``0B;P`(("\`#$CG`10N`"9)*DAF!'``8!P@!R!+(DUR`$J`9PX2
  17473. +M&)(99@13@&;V2(%(P2`!3-\H@$YU``````/Q`````P````!/4%13``0`````
  17474. +M`_(```/I````=2!O``0B;P`(+V\`#``$("\`$"]O`!0`"$CG!S0N`"1O`"`F
  17475. +M22I(+"L`="2O`!Q"J@`2<`$U0``.0FH`$"5\```"```R-4``#"5K`(``-B`K
  17476. +M`'QF$"(K``1O"B5\```(```68`0E0``6)5,`!$'K`(1.N@``)4``(B5``!HE
  17477. +M0``J("L`!%J`9SY5@&=068!G0%6`9F8@#6<<2'@`_TAL```O#4ZZ``!/[P`,
  17478. +M*@!O!B5%`!9@""5\```!```6)7P``*````A@2B5\```0```(8$`E?```0```
  17479. +M"'P`8#1*DV802BL`"&8*)7P``"````A@("5\``"````(8!8@*P`$;P9P0.&(
  17480. +M8`8@/```@``E0``(2H=G`GP`(`9.N@``@:H`"$S?+.!.=2!O``0B;P`(64](
  17481. +MYR,6*DA^`"])`!A"IRQL``!R`B0/3J[_'$_O``0F0$J`9U`B#73^3J[_K"X`
  17482. +M9T0B!R0+3J[_FDJ`9S@B!TZN_RY*@%?&1`9(ADC&2H!G!B(`3J[_IB`'Y8`O
  17483. +M+P`8($`O*``,(D(@!B!-80#^?%!/?`!@#GS_3J[_?$ZZ```I0```2H=G!B('
  17484. +M3J[_IB`+9P@D"W("3J[_%B`&3-]HQ%A/3G4``````_@````!`````0```)X`
  17485. +M```````#[X,```-`7V%M:6=A,F=M=``````!````<H,```-?<F5A9&QI;FL`
  17486. +M```````!````I(,```-`7VUA:V5?;6]D90`````!```!&H8```)?1$]30F%S
  17487. +M90````$```%`@P``!$!C;VYV97)T7V]S97)R```````!```!K(8```)?97)R
  17488. +M;F\```````$```&P`````````_$````#`````$]05%,`!`!````#\@```^L`
  17489. +M``!````#\@```^D````%(&\`!"`O``AR`&`"$,%3@&3Z3G4```/Q`````P``
  17490. +M``!/4%13``0``````_(```/I````#"`O``0B+P`(64\O!RX`+T$`!$ZZ``!(
  17491. +M;P`$2'@(`R\'3KH``$_O``PN'UA/3G4``````^^#```#0&-H:V%B;W)T````
  17492. +M`````0```!2#```"7VEO8W1L```````!````(@````````/Q`````P````!/
  17493. +M4%13``0``````_(```/I````#2`O``0B+P`(64\O!RX`(`%.N@``+T``!$ZZ
  17494. +M``!(;P`$2'@(!"\'3KH``$_O``PN'UA/3G4```/O@P``!4!?;6%K95]P<F]T
  17495. +M96-T:6]N`````````0```!*#```#0&-H:V%B;W)T`````````0```!J#```"
  17496. +M7VEO8W1L```````!````*`````````/Q`````P````!/4%13``0``````_(`
  17497. +M``/I````$"!O``0@+P`((B\`#)[\``Q(UP$#</\I0```WOP`#$YU(&\`!"`O
  17498. +M``@B+P`,GOP`#$C7`0-P_RE```#>_``,3G4```/OA@```E]E<G)N;P``````
  17499. +M`@```#@````8`````````_$````#`````$]05%,`!`!````#\@```^D````-
  17500. +M("\`!%E/+P<N`$ZZ``!(;P`$2'@(`"\'3KH``$_O``Q*@&<$<`!@!"`O``0N
  17501. +M'UA/3G4``````^^#```#0&-H:V%B;W)T`````````0````R#```"7VEO8W1L
  17502. +M```````!````&@````````/Q`````P````!/4%13``0``````_(```/I````
  17503. +M#R`O``1(YP8`3KH``"P`<`!.N@``8`9P`$ZZ```J`"`%3KH``$J`9^X@!DZZ
  17504. +M``!P!"E```!P_TS?`&!.=0```^^#```#0'-I9W-E=&UA<VL``````@```"P`
  17505. +M```*@P``!$!?8VAE8VM?<VEG;F%L<P`````!````$H,```1`7W=A:71?<VEG
  17506. +M;F%L<P```````0```!J#```$0%]H86YD;&5?<VEG;F%L<P````$````BA@``
  17507. +M`E]E<G)N;P```````0```#(````````#\0````,`````3U!44P`$`$````/R
  17508. +M```#Z0```"@@;P`$2.<C%BI(?@!"IRQL``!R`B0/3J[_'$_O``0F0$J`9U(B
  17509. +M#73^3J[_K"X`9T8B!R0+3J[_FDJ`9SHB*P`$7L!$`$B`2,`L`"('3J[_IG("
  17510. +M3J[_%DJ&9Q0B#4ZN_[A*@&<$<`!@,DZZ``!@*G`4*4```&`B3J[_?$ZZ```I
  17511. +M0```2H=G!B('3J[_IB`+9P@D"W("3J[_%G#_3-]HQ$YU```#[X8```)?1$]3
  17512. +M0F%S90````$````0@P```D!?<V5T97)R`````0```&J&```"7V5R<FYO````
  17513. +M```"````@````'*#```$0&-O;G9E<G1?;W-E<G(```````$```!\````````
  17514. +M`_$````#`````$]05%,`!`!````#\@```^D```&7(&\`!"`O``@B;P`,+V\`
  17515. +M$``$+P<N`"E(`!XI0``:<@&P@64>+R\`""\)80``)%!/2H!G#B!L`!Y"$"`'
  17516. +MD*P`&F`"<``N'TYU(&\`!")O``A(YP`4)DDJ2&``!/@0%7(EL`%F``3*4HT0
  17517. +M%4B`2,!*@&<``-9R)9"!9P`$M'(<D(%G``#,4X!G``$F4X!G``&`4X!G``&B
  17518. +M68!G``'L4X!G``($68!G``*:6X!G``,.4X!G``,P4X!G``-84X!G``-Z58!G
  17519. +M``.@4X!G``-&4X!G``0F4X!G``1"7X!G``"B4X!G``#\4X!G``$Z4X!G``%<
  17520. +M4X!G``%T5X!G``#D58!G``'24X!G``'N4X!G``(&4X!G``),4X!G``)H58!G
  17521. +M``)V58!G``*J4X!G``+44X!G``+T5X!G``-F4X!G``-^4X!G``.,8``#Z%.-
  17522. +M8``#XB`K`!AK!G(&L(%O!G``8``#_B(K`!CE@4'L`'8O,!@`80`$QEA/2H!F
  17523. +M``/88``#X"`K`!AK!G(&L(%O!G``8``#SB(K`!CE@4'L`!PO,!@`80`$EEA/
  17524. +M2H!F``.H8``#L"`K`!!K!G(+L(%O!G``8``#GB(K`!#E@4'L`4XO,!@`80`$
  17525. +M9EA/2H!F``-X8``#@"`K`!!K!G(+L(%O!G``8``#;B(K`!#E@4'L`,(O,!@`
  17526. +M80`$-EA/2H!F``-(8``#4$'L`7XB2V$`_CI*@&8``S1@``,\0>P!E")+80#^
  17527. +M)DJ`9@`#(&```RA![`&F(DMA`/X22H!F``,,8``#%$AX`#!(>``"+RL`#&$`
  17528. +M`WI/[P`,2H!F``+N8``"]DAX`"!(>``"+RL`#&$``UQ/[P`,2H!F``+08``"
  17529. +MV$AX`#!(>``"+RL`"&$``SY/[P`,2H!F``*R8``"NB`K``AR#$ZZ``!P#$J!
  17530. +M9P(@`4AX`#!(>``"+P!A``,03^\`#$J`9@`"A&```HP@*P`<4H!(>``P2'@`
  17531. +M`R\`80`"[D_O``Q*@&8``F)@``)J2'@`($AX``(O*P`(80`"T$_O``Q*@&8`
  17532. +M`D1@``),("L`"'(,3KH``'`,2H%G`B`!2'@`($AX``(O`&$``J)/[P`,2H!F
  17533. +M``(68``"'DAX`#!(>``"+RL`!&$``H1/[P`,2H!F``'X8``"`"`K`!!2@$AX
  17534. +M`#!(>``"+P!A``)B3^\`#$J`9@`!UF```=Y(;`&P80`"L%A/2H!F``'"8``!
  17535. +MR@RK````#``(;09![`&R8`1![`&V+PAA``**6$]*@&8``9Q@``&D0>P!NB)+
  17536. +M80#\CDJ`9@`!B&```9!![`'`(DMA`/QZ2H!F``%T8``!?$AX`#!(>``"+Q-A
  17537. +M``'D3^\`#$J`9@`!6&```6`O"V$``6183TJ`9@`!1F```4Y![`',(DMA`/PX
  17538. +M2H!F``$R8``!.DAL`=9A``(,6$]*@&8``1Y@``$F("L`'%Z`D*L`&'('3KH`
  17539. +M`$AX`#!(>``"+P!A``%^3^\`#$J`9@``\F```/H@*P`89P13@&`"<`8B*P`<
  17540. +M7H&2@"`!<@=.N@``2'@`,$AX``(O`&$``49/[P`,2H!F``"Z8```PDAX`#!(
  17541. +M>``!+RL`&&$``2A/[P`,2H!F``"<8```I$'L`=@B2V$`^XY*@&8``(A@``"0
  17542. +M(#P```=LT*L`%')D3KH``$AX`#!(>``"+P%A``#H3^\`#$J`9EQ@9B`\```'
  17543. +M;-"K`!1(>``P2'@`!"\`80``QD_O``Q*@&8Z8$0@*P`H9PPO`&$``1183TJ`
  17544. +M9B9P`&`N2JP`&E?`1`!(@$C`4ZP`&DJ`9P1P`&`6(&P`'A#5*4@`'E*-2A5F
  17545. +M`/L&("P`&DS?*`!.=2!O``2>_``L2.<!$$/O``AP"B+84<C__$'O``A.N@``
  17546. +M+@!'[``-8!H@!W(*3KH``'`PTH`6@5.+(`=R"DZZ```N`$J';PA![```M\AB
  17547. +MVDAK``%A``"`6$],WPB`WOP`+$YU("\`!"(O``@O;P`,``1(YP<$&B\`%RP!
  17548. +M+@!+[``78!P@!W(*3KH``'`PTH`:@5.-(`=R"DZZ```N`%.&2H=O#D'L``^[
  17549. +MR&+88`0:A5.-0>P`#[O(8P@@!E.&2H!N[$AM``%A```.6$],WR#@3G4@;P`$
  17550. +M+PTJ2"`L`!IG&!(=(&P`'A"!9@1P`6`*4JP`'E.L`!I@XBI?3G4```/X````
  17551. +M#P````$```2\```$)@``!!(```/0```#O````Z8```.@```#@@```C@```(D
  17552. +M```"$````?@```'(```!F````6@````2`````@``!E0```90```&1```!CP`
  17553. +M``84```&!@``!>````6J```%A@``!5H```5.```%2```!3P```4P````/@``
  17554. +M`#8````<````&`````````/O@P```E]?0UA$,S,`````"0``!?H```7J```%
  17555. +MH```!9````3<```$?@``!$8```,:```"K(,```)`;6MT:6UE``````$```6`
  17556. +M`````````_$````#`````$]05%,`!`!````#\@```^H```!Y4W5N`$UO;@!4
  17557. +M=64`5V5D`%1H=0!&<FD`4V%T```````````$````"`````P````0````%```
  17558. +M`!A3=6YD87D``$UO;F1A>0``5'5E<V1A>0!7961N97-D87D`5&AU<G-D87D`
  17559. +M`$9R:61A>0``4V%T=7)D87D``````#@```!`````2````%````!:````9```
  17560. +M`&Q*86X`1F5B`$UA<@!!<'(`36%Y`$IU;@!*=6P`075G`%-E<`!/8W0`3F]V
  17561. +M`$1E8P````"2````E@```)H```">````H@```*8```"J````K@```+(```"V
  17562. +M````N@```+Y*86YU87)Y`$9E8G)U87)Y``!-87)C:`!!<')I;`!-87D`2G5N
  17563. +M90``2G5L>0``075G=7-T``!397!T96UB97(`3V-T;V)E<@!.;W9E;6)E<@``
  17564. +M1&5C96UB97(``````/(```#Z```!!````0H```$0```!%````1H```$@```!
  17565. +M*````3(```$Z```!1"5A("5B("5E("5(.B5-.B53("59```E;2\E9"\E>2`E
  17566. +M2#HE33HE4P`E;2\E9"\E>0``"@!030``04T``"5(.B5-`"5).B5-.B53("5P
  17567. +M`"5(.B5-.B53```)`"5M+R5D+R5Y`````````^P````F`````0```7H```%V
  17568. +M```!<@```6X```%J```!9@```6(```%>```!6@```58```%2```!3@```.X`
  17569. +M``#J````Y@```.(```#>````V@```-8```#2````S@```,H```#&````P@``
  17570. +M`(X```"*````A@```((```!^````>@```'8````T````,````"P````H````
  17571. +M)````"`````<`````````_(```/K````"0```_(```/I````%B!O``0@+P`(
  17572. +M2.<G`BX`(@@L;```)#P```/M3J[_XBP`3KH``$J&9QP@!B('3KH``"H`(@9.
  17573. +MKO_<2H!F!$J%9P0@!6`.3J[_?$ZZ```I0```</],WT#D3G4```/OA@```E]$
  17574. +M3U-"87-E`````0```!*#```#0&-H:V%B;W)T`````````0```"*#```$0%]D
  17575. +M;U]T<G5N8V%T90````````$````N@P``!$!C;VYV97)T7V]S97)R```````!
  17576. +M````2H8```)?97)R;F\```````$```!.`````````_$````#`````$]05%,`
  17577. +M!`!````#\@```^D```#5(&\`!")O``@@+P`,(B\`$"]O`!0`!"]O`!@`""]O
  17578. +M`!P`#)[\`#!(YR\V+B\`6"](`"PJ`"@!?$#ECB]``"0O00`H+TD`,'!`Y8A.
  17579. +MN@``*D`O0`!$(`52@&82+&P``$ZN_\HO0`!`0J\`4&`F2&\`0$AX"`$O!4ZZ
  17580. +M``!/[P`,4H!F!$*O`$!P`2]``%`@!4ZZ```@!%*`9A(L;```3J[_Q"]``#Q"
  17581. +MKP!,8$:ZA&8,+V\`0``\0J\`3&`V2&\`/$AX"`$O!$ZZ``!/[P`,4H!F!G``
  17582. +M+T``/"(O`#RRKP!`5L!$`$B`2,`O0`!,(`1.N@``</^^@&80(&P``"]H`.``
  17583. +M.$*O`$A@4'#^OH!F#"]O`#P`.$*O`$A@/DAO`#A(>`@!+P=.N@``3^\`#%*`
  17584. +M9@9P`"]``#@@+P`X(B\`/+*`9PJPKP!`9P1P`6`"<``O0`!((`=.N@``2J\`
  17585. +M0&<``61*KP`\9P`!7$JO`#AF!E*'9@`!4"`-9P`!1"9->``O;P`P`#1@``"L
  17586. +M2H1F!B!O`"Q@`B!5)$AZ`RI(8!I2A1`5<BJP`6<,<B*P`6<&<@JP`68"4H52
  17587. +MC4H59N(J;P!$($W1QB)+T\5-Z0`!O<AE)"`&T(;0A2P`($U.N@``*D!*@&<`
  17588. +M`-H@"Y"O`$0F3=?`+TT`1"!+$+P`(%2+$7P`(@`!*DI@(!`5<B*P`6<&<BJP
  17589. +M`68&%OP`*F`*<@JP`68$%OP`*Q;=2A5FW!;\`")2A%BO`#0J;P`T2I5F`/].
  17590. +M0A,J;P!<(`UG$"(-+&P``'3^3J[_K"@`8`)X`$J$9@0@#68\*F\`1"\O`&`O
  17591. +M!"\O`%`O+P!$+R\`7"\O`%`@+P!8(B\`:"!-3KH``$_O`!@J`%*`9QH@34ZZ
  17592. +M```@!6!X+&P``$ZN_WQ.N@``*4```$J$9Q(B!"QL``!.KO^F8`9P#"E````@
  17593. +M+P!`9Q!*KP!09PHB`"QL``!.KO_<("\`/&<02J\`3&<*(@`L;```3J[_W"`O
  17594. +M`#AG$$JO`$AG"B(`+&P``$ZN_]PJ;P!$(`UG!B!-3KH``'#_3-]L]-[\`#!.
  17595. +M=2!O``0B;P`(("\`#"(O`!`O;P`4``0O;P`8``@O!2HO``PO!2\O``Q(>/__
  17596. +M80#\V$_O``PJ'TYU```#[X,```)`;6%L;&]C``````$```!,A@```E]$3U-"
  17597. +M87-E````"````OP```+F```"T````K(```*<```"2````)H```!<@P```E]I
  17598. +M;V-T;````````P```20```#&````>(,```1`7W!S975D;U]C;&]S90``````
  17599. +M`P```50```#N````D(8```%?7W5S`````0```/B#```"0')E86QL;V,````!
  17600. +M```!V(,```1`7W-T87)T7W!R;V-E<W,``````0```H2#```"0&9R964`````
  17601. +M```"```##@```I2#```$0&-O;G9E<G1?;W-E<G(```````$```*DA@```E]E
  17602. +M<G)N;P```````@```KX```*H`````````_$````#`````$]05%,`!`!````#
  17603. +M\@```^D````"<`%.=7`!3G4```/Q`````P````!/4%13``0``````_(```/I
  17604. +M````#B`O``0O!RX`3KH``"`'(&P``'(`3KH``&`,("P``$ZZ``!.N@``(&P`
  17605. +M`$ZZ``!*@&?H<``N'TYU```#[X,```-`8VAK86)O<G0````````!````"H8`
  17606. +M``-?7V]D9%]T:6UE<@`````"````*````!"#```$0%]T:6UE<E]S=&%R=```
  17607. +M``````$````6A@```U]?;V1D7W-I9P````````$````<@P``!$!?=V%I=%]S
  17608. +M:6=N86QS```````!````((,```1`7VAA;F1L95]S:6=N86QS`````0```"2#
  17609. +M```$0%]T:6UE<E]E>'!I<F5D``````$````L`````````_$````#`````$]0
  17610. +M5%,`!`!````#\@```^D````/(&\`!"`O``A(YP$$+@`J2$ZZ```O!TAX`P$O
  17611. +M#4ZZ``!/[P`,3-\@@$YU(&\`!"`O``A(YP$$3-\@@&#,```#[X,```-`8VAK
  17612. +M86)O<G0````````!````$H,```)?;W!E;@````````$````>`````````_$`
  17613. +M```#`````$]05%,`!``````#\@```^D````C("\`!"!O``@B+P`,64](YP,T
  17614. +M+`$N`"I(3KH``"`'3KH``"9`2H!G1`@K``$``V<V""L``P`#9Q8@:P`8+T@`
  17615. +M%"!K``1P`'("(F\`%$Z1(&L`%"](`!0@!B!K``0B321O`!1.DF`(<`TI0```
  17616. +M</],WRS`6$].=2`O``0@;P`((B\`#$CG`P1,WR#`8(````/O@P```T!C:&MA
  17617. +M8F]R=`````````$````:@P```T!?9FEN9%]F9`````````$````@A@```E]E
  17618. +M<G)N;P```````0```&H````````#\0````,`````3U!44P`$`$````/R```#
  17619. +MZ0````P@;P`$44\O#2I(0>\`!$ZZ``!*@&H$</]@#B`-9P8@+P`$*H`@+P`$
  17620. +M*E]03TYU``````/O@P```T!?9V5T=&EM90````````$````0`````````_$`
  17621. +M```#`````$]05%,`!``````#\@```^D````=(&\`!)[\`$!(YSL6*DA.N@``
  17622. +M(`UG4DH59TXB#4'O`"`D""QL``!V0'@`3J[\=BX`;39.KO]\+`!2@$ZZ```F
  17623. +M0$J`9R2^AF<4)@92@R(-)`M.KOQV2H!O$"`"8`X@0B)+$MAF_"`+8`)P`$S?
  17624. +M:-S>_`!`3G4```/O@P```T!C:&MA8F]R=`````````$````0A@```E]$3U-"
  17625. +M87-E`````0```"2#```"0&UA;&QO8P`````!````/`````````/Q`````P``
  17626. +M``!/4%13``0`0````_(```/I````$R!O``0B;P`(2.<S$B9)(@@L;```=/Y.
  17627. +MKO^L+@!.N@``2H=G&B(+)`=V`$ZN_D0L`"("3J[_IDJ&9P0@`V`&3KH``'#_
  17628. +M3-](S$YU``````/OA@```E]$3U-"87-E`````0```!*#```#0&-H:V%B;W)T
  17629. +M`````````0```!Z#```"0%]S971E<G(````!````0`````````/Q`````P``
  17630. +M``!/4%13``0`0````_(```/I````)"!O``2>_``,2.<!%"I(2AAF_%.(D<T@
  17631. +M""9-U\!=BWYA3KH``"\L``!(;```2&\`%TZZ``!/[P`,0>\`#R)(2AEF_%.)
  17632. +MD\@@"7(%L(%O"$'O``K1P&`$0>\`#R\(2&P`!"\+3KH``$_O``P6AR!-<`!.
  17633. +MN@``2H!F"E('<'J^`&_J0A4@#4S?*(#>_``,3G4``````_@````"`````0``
  17634. +M`%X````J`````````^^#```#0&-H:V%B;W)T`````````0```"*&```!7U]U
  17635. +M<P````$````F@P```U]?<W!R:6YT9@````````(```!D````,H,```-`7U]A
  17636. +M8V-E<W,````````!````<@````````/Q`````P````!/4%13``0`0````_(`
  17637. +M``/J`````B5L>`!A)7,````#\@```^D````&(&\`!"\-*DA.N@``($UP0.F(
  17638. +M*E].^@`````#[X,```-`8VAK86)O<G0````````!````"H,```)`9V5T8W=D
  17639. +M``````$````6`````````_$````#`````$]05%,`!``````#\@```^D````/
  17640. +M(&\`!"`O``A(YR$&+@`J2$ZZ```@!TZZ```D`"(-+&P``$ZN_T9*@&<$<`!@
  17641. +M!DZZ``!P_TS?8(1.=0`````#[X,```-`8VAK86)O<G0````````!````$H,`
  17642. +M``5`7VUA:V5?<')O=&5C=&EO;@````````$````8A@```E]$3U-"87-E````
  17643. +M`0```""#```"0%]S971E<G(````!````,`````````/Q`````P````!/4%13
  17644. +M``0`0````_(```/I````'"`O``0B+P`(+V\`#``$44](YP<`*B\`&"P!+@!.
  17645. +MN@``(`=.N@``2H!G&B)`(&D`&"](`!`@!B(%(&D`!")O`!!.D6`"</],WP#@
  17646. +M4$].=2`O``0B+P`(+V\`#``$2.<'`"HO`!`O10`03-\`X&"@``````/O@P``
  17647. +M`T!C:&MA8F]R=`````````$````>@P```T!?9FEN9%]F9`````````$````D
  17648. +M`````````_$````#`````$]05%,`!``````#\@```^D````<("\`!"!O``@B
  17649. +M+P`,64](YP,T+`$N`"I(3KH``"`'3KH``"9`2H!G)@@K`````V<8(&L`$"](
  17650. +M`!0@!B!K``0B321O`!1.DF`(<`TI0```</],WRS`6$].=2`O``0@;P`((B\`
  17651. +M#$CG`P1,WR#`8)X``````^^#```#0&-H:V%B;W)T`````````0```!J#```#
  17652. +M0%]F:6YD7V9D`````````0```""&```"7V5R<FYO```````!````3```````
  17653. +M``/Q`````P````!/4%13``0`0````_(```/I````@2`O``0@;P`((F\`#"]O
  17654. +M`!``!"]O`!0`")[\`"Q(YS\V)DDJ2"]``$`D;P!<(`IG#DJ29@I*J@`$9@1P
  17655. +M`6`"<`!R`"]``#0D#6<"(A5T`"]!`"PF"V<")!-Z`'X!+T(`,&!2*"\`+,B'
  17656. +M+"\`,,R'3KH``$J$9@1*AF<V(`5.N@``)$!*@&8&</]@``%N2H1G"`@J````
  17657. +M`V<,2H9G%`@J``$``V8,<`TI0```</]@``%*4H7>A[JO`$!MJ"1O`%P@"F<0
  17658. +M(!(B*@`$(&P``$ZZ``!@""!L``!.N@``>@`@!4*O`%!Z`'X!+T``*&`Z*"\`
  17659. +M+,B'+"\`,,R'2H1F!$J&9R(@!4ZZ```B0"!I``@O2``\(`0B!B!I``0B;P`\
  17660. +M3I&!KP!04H7>A[JO`$!MP"@O`%`@!%*`9P9*KP`T9PAP`$ZZ``!@"B`L``"`
  17661. +MA$ZZ```O0`!,?`!X`2XO`#`J+P`H8'`@+P`LP(0O0`!((@?"A"]!`$1*@&8$
  17662. +M2H%G4B`&3KH``")`(&D`#$AO`$0O2``\(&D`!$/O`$PL;P`\3I983R`O`$AF
  17663. +M"B(-9P8B!$:!PY4@+P!$9@HB"V<&(@1&@<.32J\`2&8&2J\`1&<"4H52AMB$
  17664. +MO*\`0&V*("\`3$ZZ``!*A684(&P``$ZZ``!*@&8(2J\`-&<`_N@@!4S?;/S>
  17665. +M_``L3G4``````^^#```#0&-H:V%B;W)T`````````0```'"#```#0%]F:6YD
  17666. +M7V9D`````````P```7X```$$````?H8```)?97)R;F\```````$```"HA@``
  17667. +M`U]?;V1D7W1I;65R``````,```'D````U````,J#```$0%]T:6UE<E]S=&%R
  17668. +M=`````````$```#.@P``!$!?=&EM97)?86)O<G0````````!````V(,```1`
  17669. +M7V-H96-K7W-I9VYA;',``````0```4"&```#7U]O9&1?<VEG`````````0``
  17670. +M`4:#```$0%]W86ET7W-I9VYA;',```````$```%,@P``!$!?:&%N9&QE7W-I
  17671. +M9VYA;',````!```!W(,```1`7W1I;65R7V5X<&ER960``````0```>@`````
  17672. +M```#\0````,`````3U!44P`$`$````/R```#Z0```"!13TCG(R0N+P`@3KH`
  17673. +M`"PO`"@@!TZZ```J0$J`9U@@+P`D5X!G#%.`9PYP%BE```!@1'`,P)5@0"`5
  17674. +M=`S,@B0``D+_\X2&*H)R!,*"=`3`@K"!9QXO00`8(&T`("](`!0@;0`$0^\`
  17675. +M&'``)&\`%$Z28`9P`&`"</],WR3$4$].=0```^^#```#0&-H:V%B;W)T````
  17676. +M`````0````R#```#0%]F:6YD7V9D`````````0```!:&```"7V5R<FYO````
  17677. +M```!````+@````````/Q`````P````!/4%13``0`0````_(```/I````````
  17678. +M`_$````#`````$]05%,`!``````#\@```^H```#>86UI9V$@<W!E8VEF:6,@
  17679. +M97)R;W(```````!5;FMN;W=N(&5R<F]R`&YO="!O=VYE<@!N;R!S=6-H(&9I
  17680. +M;&4@;W(@9&ER96-T;W)Y`&YO('-U8V@@<')O8V5S<P!I;G1E<G)U<'1E9"!S
  17681. +M>7-T96T@8V%L;`!I+V\@97)R;W(`;F\@<W5C:"!D979I8V4@;W(@861D<F5S
  17682. +M<P!A<F=U;65N="!L:7-T('1O;R!L;VYG``!E>&5C(&9O<FUA="!E<G)O<@!B
  17683. +M860@9FEL92!N=6UB97(`;F\@8VAI;&0@<')O8V5S<P``;F\@;6]R92!P<F]C
  17684. +M97-S97,`;F]T(&5N;W5G:"!M96UO<GD`<&5R;6ES<VEO;B!D96YI960`8F%D
  17685. +M(&%D9')E<W,`8FQO8VL@9&5V:6-E(')E<75I<F5D`&UO=6YT(&1E=FEC97,@
  17686. +M8G5S>0``9FEL92!E>&ES=',`8W)O<W,M9&5V:6-E(&QI;FL`;F\@<W5C:"!D
  17687. +M979I8V4``&YO="!A(&1I<F5C=&]R>0!I<R!A(&1I<F5C=&]R>0``:6YV86QI
  17688. +M9"!A<F=U;65N=```9FEL92!T86)L92!O=F5R9FQO=P!T;V\@;6%N>2!O<&5N
  17689. +M(&9I;&5S`&YO="!A('1Y<&5W<FET97(``'1E>'0@9FEL92!B=7-Y``!F:6QE
  17690. +M('1O;R!B:6<``&YO('-P86-E(&QE9G0@;VX@9&5V:6-E`&EL;&5G86P@<V5E
  17691. +M:P``<F5A9"UO;FQY(&9I;&4@<WES=&5M`'1O;R!M86YY(&QI;FMS``!B<F]K
  17692. +M96X@<&EP90!M871H(&%R9W5M96YT`')E<W5L="!T;V\@;&%R9V4``$DO3R!S
  17693. +M=')E86T@96UP='D``&9I;&4@;F%M92!T;V\@;&]N9P``9&ER96-T;W)Y(&YO
  17694. +M="!E;7!T>0!T;V\@;6%N>2!S;V9T(&QI;FMS("AL;V]P/RD`````&@```"@`
  17695. +M```R````3````%P```!T````?@```)@```"P````P@```-(```#D````]@``
  17696. +M`0@```$:```!)@```3P```%0```!7````6X```%^```!C@```9X```&P```!
  17697. +MQ````=@```'J```!^@```@@```(@```"+@```D0```)4```"8````FX```*`
  17698. +M```"D@```J8```*Z````)@`````#[````"@````!```#;@```VH```-F```#
  17699. +M8@```UX```-:```#5@```U(```-.```#2@```T8```-"```#/@```SH```,V
  17700. +M```#,@```RX```,J```#)@```R(```,>```#&@```Q8```,2```##@```PH`
  17701. +M``,&```#`@```OX```+Z```"]@```O(```+N```"Z@```N8```+B```"W@``
  17702. +M`MH```+6````%@````````/R```#Z0```$4@+P`$*4```$J`9P``AG)GD(%G
  17703. +M``""58!G``"`<@F0@6=\4X!G>%.`9W13@&=P4X!G;%.`9VA3@&=H4X!G:')1
  17704. +MD(%G9E.`9V93@&=F4X!G9E.`9V93@&=F58!G9E.`9V93@&=F4X!G9E6`9V93
  17705. +M@&=F4X!G9E.`9V93@&=F4X!G9E6`9V93@&=F4X!G9E.`9V9@:'``8&9P#&!B
  17706. +M<`M@7G`68%IP!V!6<`A@4G`08$YP$6!*<`)@1G`"8$)P%F`^<`=@.G`68#9P
  17707. +M)&`R<!9@+G`68"IP'F`F<!)@(G`E8!YP)F`:<!-@%G`68!)P'&`.<`U@"G`-
  17708. +M8`9P#6`"</].=2\.+&P``$ZN_WQA`/[Z*4```"Q?3G4```/X`````0````$`
  17709. +M``$.`````````^^&```"7U]/4T524@`````!````!H8```)?1$]30F%S90``
  17710. +M``$```$"`````````_$````#`````$]05%,`!`!````#\@```^L````!```#
  17711. +M\@```^D````%3KH``$ZZ``!.N@``<@9.^@````````/O@P```T!C:&MA8F]R
  17712. +M=`````````$````"@P```T!?8VQO<V5?86QL``````$````&@P```D!G971P
  17713. +M:60``````0````J#```"0&MI;&P````````!````$`````````/Q`````P``
  17714. +M``!/4%13``0``````_(```/I````62!O``0@+P`(64](YP$6+@`O2``0(&\`
  17715. +M$"I08&1P#;`M``AF6B`M`*QG!N6`($!@`I'()D@@+0"<L(=G-"`M`*"PAV<L
  17716. +M("T`X+"'9R0@"V<N("L`'+"'9Q@@*P`@L(=G$"`K`#BPAV<(("L`,+"'9@XB
  17717. +M37!@[X@L>``$3J[^O"I52I5FF$S?:(!83TYU("\`!"(O``A(YP$"+@`@`5.`
  17718. +M9PQ3@&<(4X!G!%V`9BPL>``$3J[_?"!L``#0_`&6(`=A`/]((&P``-#\`:0@
  17719. +M!V$`_SI.KO]V<`!@"'`6*4```'#_3-]`@$YU("\`!"(O``A(YP8$+`$J`$ZZ
  17720. +M``!*A6H"1(6ZK```9@Y*AF<&(`9.N@``<`!@2"`%3KH``"I`2H!G!DJM`!1G
  17721. +M"G`#*4```'#_8"P@!F<H(BT`$,%!80#_6"(`<`F\@&84<@$K00`4*T``&'`4
  17722. +M3KH``'``8`(@`4S?(&!.=0`````#[X8```)?4WES0F%S90````(```#$````
  17723. +MMH8```)?97)R;F\```````(```$J````W(,```-`8VAK86)O<G0````````!
  17724. +M````^(8```-?7V]U<E]P:60````````!```!`H,```1`7W-I9U]D:7-P871C
  17725. +M:````````@```50```$.@P```T!?9FEN9%]P:60```````$```$8````````
  17726. +M`_$````#`````$]05%,`!`!````#\@```^D```!#(&\`!$CG``8J2")-+'@`
  17727. +M!$ZN_P0@34S?8`!.^@``("\`!$CG`00N`"IL``A@#B`M``RPAV8$(`U@""I5
  17728. +M2I5F[G``3-\@@$YU2.<@`D'L``A.N@``("P``"(L```D`+."`H(`?___*4(`
  17729. +M!%*"*4(``"\!+P!(;```2&P`%$ZZ``!/[P`0+'@`!$ZN_68I0``X9Q!![``4
  17730. +M<`!.N@``*4``-&8*2&P`#DZZ``!83TS?0`1.=4CG``8@+``X9PH@0"QX``1.
  17731. +MKOU@2JP`-&<X+'@`!$ZN_WQ@#")-<!PL>``$3J[_+B!L`#0L>``$3J[^C"I`
  17732. +M2H!FXB!L`#1.N@``+'@`!$ZN_W9,WV``3G4``````_@````"`````0```*0`
  17733. +M``!V````#`````(```#V````Y````,@```"X````G@```)0```".````>@``
  17734. +M`&X```!H````3@```"H````````#[X,```)`9G)E90````````$````<@P``
  17735. +M`D!.97=,:7-T`````0```%*&```!7U]U<P````$```!6A@``!%]?<W1A<G1U
  17736. +M<%]T:6UE```````!````6H,```-?7W-P<FEN=&8````````!````?H,```-`
  17737. +M0W)E871E4&]R=``````!````FH,```)?7V9A:6P```````$```"H@P```T!$
  17738. +M96QE=&50;W)T``````$```#Z`````````_$````#`````$]05%,`!`!````#
  17739. +M\@```^H````&9&]O<BXE;'@N)6QX``!.;R!M96UO<GD````#\@```^L````/
  17740. +M```#\@```^D````O(&\`!"`O``@B+P`,(F\`$"]O`!0`!"]O`!@`"%E/2.</
  17741. +M-B@O`"PJ+P`H+`$N`"I)+T@`("QX``1.KOUF)D!*@&<P($L@!$ZN_7(D0$J`
  17742. +M9R(@#6<()4T`*"5%`"0@;P`@(`<B2B(&3J[^1$H`9@0@"F`6(`IG!B!*3J[]
  17743. +M;"`+9P8@2TZZ``!P`$S?;/!83TYU(&\`!$CG``8J2"`-9Q@B32QX``1.KOX^
  17744. +M(&T`#DZZ```@34ZN_6Q,WV``3G4```/O@P```T!$96QE=&50;W)T``````(`
  17745. +M``"N````A`````````/Q`````P````!/4%13``0``````_(```/I````%"!O
  17746. +M``0@+P`(2.<A!BX`*DA.N@``(@TL;```3J[_B$J`9R(B`$ZN_Z8@!TZZ```@
  17747. +M!TZZ```D`"(-3J[_1DJ`9P1P`&`&3KH``'#_3-]@A$YU```#[X,```-`8VAK
  17748. +M86)O<G0````````!````$H8```)?1$]30F%S90````$````8@P``!4!?;6%K
  17749. +M95]P<F]T96-T:6]N`````````@```#(````L@P```D!?<V5T97)R`````0``
  17750. +M`$8````````#\0````,`````3U!44P`$`$````/R```#^P``")D1/@!?<V5T
  17751. +M:FUP`'1E>'0`0%]L;VYG:FUP`$!?<V5T:FUP`%]?;&]N9VIM<`!?7W-E=&IM
  17752. +M<`!S<')I;G1F`%],5D]287=$;T9M=`!?06)S17AE8T)A<V4`7U]S<')I;G1F
  17753. +M`'1M<&YA;2YC`%]M:W1E;7``0'1M<&YA;0!?=&UP;F%M`%]?34521T5$`'!O
  17754. +M<&5N+F,`7W=A:71P:60`0&9C;&]S90!`9G)E90!`7W-T87)T7W!R;V-E<W,`
  17755. +M0%]S971E<G(`7V5R<FYO`%]$3U-"87-E`$!F;W!E;@!?7V9I9F]?8F%S90!?
  17756. +M7V9I9F]?;V9F<V5T`$!M86QL;V,`0'!C;&]S90!?<&-L;W-E`$!P;W!E;@!?
  17757. +M<&]P96X`<W1A<G0N8P!`8V]N=F5R=%]O<V5R<@!?7W!R;V-E<W-E<P!?7W-T
  17758. +M86-K7W-I>F4`7U]N97AT7W!I9`!?7V1O;W)?;F%M90!?7W-T87)T=7!?<&]R
  17759. +M=`!?3&EN:V5R1$(`7U]S=&%R=%]P<F]C97-S`%]?8VAI;&1?9&]O<E]N86UE
  17760. +M`%]?8VAI;&1?8V]M;6%N9%]L96X`7U]C:&EL9%]C;VUM86YD`%]?8VAI;&1?
  17761. +M97AI=`!?7V-H:6QD7V5N=')Y`&=E='!I9"YC`%]?;W5R7W!I9`!`8VAK86)O
  17762. +M<G0`0&=E='!I9`!?9V5T<&ED`'-I9VYA;"YC`%]?<VEG7VAA;F1L97)S`$!S
  17763. +M:6=N86P`7W-I9VYA;`!`<VEG=F5C`%]S:6=V96,`<VEG<V5T;6%S:RYC`$!?
  17764. +M<VEG7V1I<W!A=&-H`%]?<VEG7W!E;F1I;F<`7U]S:6=?;6%S:P!`<VEG8FQO
  17765. +M8VL`7W-I9V)L;V-K`$!S:6=S971M87-K`%]S:6=S971M87-K`'-T870N8P!?
  17766. +M<F5A9&QI;FL`0%]F:6)S=&%T`$!?;&9I8G-T870`7U]T96UP7V9N86UE`%]L
  17767. +M87-T7V5N=')Y`$!?9V5T7V-D`%]L87-T7V1I<@!`;'-T870`7VQS=&%T`$!S
  17768. +M=&%T`%]S=&%T`&1I<BYC`$!S965K9&ER`%]S965K9&ER`$!T96QL9&ER`%]T
  17769. +M96QL9&ER`$!R96%D9&ER`%]R96%D9&ER`$!C;&]S961I<@!?8VQO<V5D:7(`
  17770. +M0&]P96YD:7(`7V]P96YD:7(`9&ER7V1A=&$N8P!?7V=E=%]C9`!A8V-E<W,N
  17771. +M8P!`86-C97-S`%]A8V-E<W,`0%]?86-C97-S`%]?7V%C8V5S<P!F<W1A="YC
  17772. +M`%]I;V-T;`!`9G-T870`7V9S=&%T`'-Y;6QI;FLN8P!`<WEM;&EN:P!?<WEM
  17773. +M;&EN:P!M97-S86=E+F,`0&5X:70`7U]0<F]G<F%M3F%M90!?7U="96YC:$US
  17774. +M9P!?7W5S`%]?9F%I;`!?7VUE<W-A9V4`86QL;V-D;W,N8P!?06QL;V-$;W-/
  17775. +M8FIE8W1486=S`'-E=&IM<"YC`$!L;VYG:FUP`%]L;VYG:FUP`$!S971J;7``
  17776. +M9V5T:&]S=&YA;64N8P!?<W1R;F-P>0!?7W-Y<W1E;5]N86UE`$!G971H;W-T
  17777. +M;F%M90!?9V5T:&]S=&YA;64`<&5R<F]R+F,`7U]/4T524@!?<WES7V5R<FQI
  17778. +M<W0`7W-Y<U]N97)R`$!W<FET90!`<&5R<F]R`%]P97)R;W(`<VEG;&ES="YC
  17779. +M`%]S>7-?<VEG;&ES=`!W86ET-"YC`$!?:&%N9&QE7W-I9VYA;',`0%]W86ET
  17780. +M7W-I9VYA;',`0%]F<F5E7V5N=')Y`$!W86ET<&ED`$!W86ET`%]W86ET`$!W
  17781. +M86ET,P!?=V%I=#,`0'=A:70T`%]W86ET-`!P<V5U9&]?8RYC`$!?9G)E95]F
  17782. +M9`!`7V9I;F1?9F0`0%]P<V5U9&]?8VQO<V4`7U]P<V5U9&]?8VQO<V4`<FEN
  17783. +M9&5X+F,`0'-T<G)C:'(`0')I;F1E>`!?<FEN9&5X`&EN9&5X+F,`0'-T<F-H
  17784. +M<@!`:6YD97@`7VEN9&5X`'1I;65R<RYC`$!?9&5V:6-E7V-L;W-E`$!?9&5V
  17785. +M:6-E7V]P96X`0%]T:6UE<E]E>'!I<F5D`%]?=&EM97)?97AP:7)E9`!`7W1I
  17786. +M;65R7W-T87)T`%]?=&EM97)?<W1A<G0`0%]T:6UE<E]S:6<`7U]T:6UE<E]S
  17787. +M:6<`0%]T:6UE<E]A8F]R=`!?7W1I;65R7V%B;W)T`$!?9G)E95]T:6UE<@!?
  17788. +M7V9R965?=&EM97(`0%]A;&QO8U]T:6UE<@!?7V%L;&]C7W1I;65R`&9I9F]F
  17789. +M9"YC`%]?<W1A<G1U<%]T:6UE`$!?8VQE86YU<%]F:69O`%]?8VQE86YU<%]F
  17790. +M:69O`$!?:6YI=%]F:69O`%]?:6YI=%]F:69O`%]?9FEF;U]S:6<`7U]F:69O
  17791. +M7V]K`%]?1FEF;T)A<V4`8VQO<V4N8P!`8VQO<V4`7V-L;W-E`$!?7V-L;W-E
  17792. +M`%]?7V-L;W-E`&9I;&5S+F,`0%]L87-T7V9D`%]?;&%S=%]F9`!?7V9I;F1?
  17793. +M9F0`7U]F<F5E7V9D`$!?86QL;V-?9F0`7U]A;&QO8U]F9`!U=&EM92YC`$!?
  17794. +M9VUT,F%M:6=A`$!T:6UE`$!U=&EM90!?=71I;64`8F-O<'DN8P!`;65M;6]V
  17795. +M90!`8F-O<'D`7V)C;W!Y`&%M:6=A=&EM92YC`%]D87EL:6=H=`!?='IN86UE
  17796. +M`%]?0UA$,S,`0&QO8V%L=&EM90!`7V=E='1I;64`0&9T:6UE`%]F=&EM90!`
  17797. +M9V5T=&EM96]F9&%Y`%]G971T:6UE;V9D87D`=&EM96-O;G9E<G0N8P!?5&EM
  17798. +M97)"87-E`$!?86UI9V$R9VUT`%]?86UI9V$R9VUT`%]?9VUT,F%M:6=A`%]?
  17799. +M9V5T=&EM90!P=V0N8P!`9V5T;&]G:6X`7V=E=&QO9VEN`$!G971P=VYA;0!?
  17800. +M9V5T<'=N86T`0&=E='!W=6ED`%]G971P=W5I9`!?7V%M:6=A7W5S97(`<F5A
  17801. +M9&QI;FLN8P!?<W1R;&5N`$!R96%D;&EN:P!A;&QO8V$N8P!?;6%L;&]C`%]F
  17802. +M<F5E`%]A;&QO8V$`=6YL:6YK+F,`0'5N;&EN:P!?=6YL:6YK`'!I<&4N8P!`
  17803. +M<W1R8V%T`$!.97=,:7-T`$!S;V-K971P86ER`%]S;V-K971P86ER`$!P:7!E
  17804. +M`%]P:7!E`&=R<"YC`$!G971G<FYA;0!?9V5T9W)N86T`0&=E=&=R9VED`%]G
  17805. +M971G<F=I9`!S:6=N86QS+F,`7U]&4$524@!`7U]E>&ET`$!?9FEN9%]P:60`
  17806. +M0%]C;&5A;G5P7W!R;V-E<W-E<P!?7V-H:6QD<F5N7V5X:70`0%]I;FET7W!R
  17807. +M;V-E<W-E<P!`7V-L96%N=7!?<VEG;F%L<P!?7V-L96%N=7!?<VEG;F%L<P!`
  17808. +M7VEN:71?<VEG;F%L<P!?7VEN:71?<VEG;F%L<P!`0VAK7T%B;W)T`%]#:&M?
  17809. +M06)O<G0`7V-H:V%B;W)T`$!#6$9%4E(`7T-81D524@!?7VAA;F1L95]S:6=N
  17810. +M86QS`%]?=V%I=%]S:6=N86QS`$!?8VAE8VM?<VEG;F%L<P!?7V-H96-K7W-I
  17811. +M9VYA;',`7U]S:6=?9&ES<&%T8V@`0&%L87)M`%]A;&%R;0!?;6%I;BYC`$!M
  17812. +M86EN`$!?7V=E=&5N=@!`='%S;W)T`$!S=')N8W!Y`%]?7V-T>7!E`$!?:6YI
  17813. +M=%]U;FEX:6\`7U]?:6]B`%]?6$-%6$E4`%]3>7-"87-E`$!R96%L;&]C`%]?
  17814. +M7VUA:6X`0&UA:V5?96YV:7)O;@!?;6%K95]E;G9I<F]N`%]E;G9I<F]N`%]?
  17815. +M;V1D7W-I9P!?7V]D9%]T:6UE<@!U;6%S:RYC`$!U;6%S:P!?=6UA<VL`<')O
  17816. +M=&5C=&EO;BYC`$!?;6%K95]M;V1E`%]?;6%K95]M;V1E`$!?;6%K95]P<F]T
  17817. +M96-T:6]N`%]?;6%K95]P<F]T96-T:6]N`%]U<V5?86UI9V%?9FQA9W,`9VED
  17818. +M+F,`0&=E=&5G:60`7V=E=&5G:60`0&=E=&=I9`!?9V5T9VED`%]E>&ET+F,`
  17819. +M0%]E>&ET`%]?97AI=`!?7U]E>&ET`$!?8VQO<V5?86QL`%]?8VQO<V5?86QL
  17820. +M`&EO8W1L+F,`0&EO8W1L`&]P96XN8P!`7V%L;&]C7V%M:6=A9F0`0'-T<FEC
  17821. +M;7``7V]P96X`7U]?;W!E;@!C=&EM92YC`%]S<')I;G1F`$!R96%D`$!?='IS
  17822. +M970`7U]T>G-E=`!`;6MT:6UE`%]M:W1I;64`0&-T:6UE`%]C=&EM90!`87-C
  17823. +M=&EM90!?87-C=&EM90!`9VUT:6UE`%]G;71I;64`7VQO8V%L=&EM90!`='IS
  17824. +M971W86QL`%]T>G-E='=A;&P`0'1Z<V5T`%]T>G-E=`!?=&EM97IO;F4`86UI
  17825. +M9V%D;W,N8P!?7VEN:71?=6YI>&EO`%]?86QL;V-?86UI9V%F9`!`7V1O7W1R
  17826. +M=6YC871E`%]?9&]?=')U;F-A=&4`<F5N86UE+F,`0')E;F%M90!?<F5N86UE
  17827. +M`&-H;W=N+F,`0&9C:&]W;@!?9F-H;W=N`$!C:&]W;@!?8VAO=VX`8F-M<"YC
  17828. +M`$!B8VUP`%]B8VUP`&9I8G-T870N8P!?7V9I8G-T870`7U]L9FEB<W1A=`!B
  17829. +M>F5R;RYC`$!B>F5R;P!?8GIE<F\`9G1R=6YC871E+F,`0&9T<G5N8V%T90!?
  17830. +M9G1R=6YC871E`&9C:&UO9"YC`$!F8VAM;V0`7V9C:&UO9`!M:V9I9F\N8P!`
  17831. +M;6MN;V0`7VUK;F]D`$!M:V9I9F\`7VUK9FEF;P!I<V%T='DN8P!`:7-A='1Y
  17832. +M`%]I<V%T='D`<VEG<&%U<V4N8P!`<VEG<&%U<V4`7W-I9W!A=7-E`')M9&ER
  17833. +M+F,`0')M9&ER`%]R;61I<@!S=')F=&EM92YC`$!S=')F=&EM90!?<W1R9G1I
  17834. +M;64`=')U;F-A=&4N8P!`=')U;F-A=&4`7W1R=6YC871E`&5X96,N8P!`97AE
  17835. +M8P!?97AE8P!`965X96,`7V5E>&5C`'5I9"YC`$!G971E=6ED`%]G971E=6ED
  17836. +M`$!G971U:60`7V=E='5I9`!S;&5E<"YC`$!S;&5E<`!?<VQE97``8W)E870N
  17837. +M8P!`8W)E870`7V-R96%T`$!?7V-R96%T`%]?7V-R96%T`'=R:71E+F,`7W=R
  17838. +M:71E`$!?7W=R:71E`%]?7W=R:71E`'1I;64N8P!?=&EM90!G971E;G8N8P!?
  17839. +M7U]G971E;G8`;&EN:RYC`$!L:6YK`%]L:6YK`&UK=&5M<"YC`$!M:W1E;7``
  17840. +M9V5T=V0N8P!`9V5T8W=D`$!G971W9`!?9V5T=V0`8VAM;V0N8P!`8VAM;V0`
  17841. +M7V-H;6]D`&QS965K+F,`0&QS965K`%]L<V5E:P!`7U]L<V5E:P!?7U]L<V5E
  17842. +M:P!R96%D+F,`7W)E860`0%]?<F5A9`!?7U]R96%D`'-E;&5C="YC`$!S96QE
  17843. +M8W0`7W-E;&5C=`!F8VYT;"YC`%]F8VYT;`!E<G)O<E]M<V<N8P!E<G)O<BYC
  17844. +M`%]?<V5T97)R`%]C;VYV97)T7V]S97)R`&%B;W)T+F,`0&MI;&P`0&%B;W)T
  17845. +M`%]A8F]R=`!K:6QL+F,`7VMI;&P`<')O8V5S<V5S+F,`0$1E;&5T95!O<G0`
  17846. +M0$-R96%T95!O<G0`7U]C;&5A;G5P7W!R;V-E<W-E<P!?7VEN:71?<')O8V5S
  17847. +M<V5S`%]?9FEN9%]P:60`7U]F<F5E7V5N=')Y`&1E=FEC97,N8P!?7V1E=FEC
  17848. +M95]C;&]S90!?7V1E=FEC95]O<&5N`&UK9&ER+F,`0&UK9&ER`%]M:V1I<@``
  17849. +M`0````$`"0`)`^D````$``X`%@`!`!@`!``!`"$`#@`!`"L````!`#0`#``!
  17850. +M``D`#`/I``(`/`!)``$`5@````$`8``I``,`"0`*`^D``0!H``(`<0`$``$`
  17851. +M>0````$`@0`$`^H``````($`"0/K``````"*`%0``P`)`&\#Z0`,`)$`F@"B
  17852. +M`*@`N`#"`,D`T0!5`-D`Y0#R``0`^P%>``$!`P%:``$!"P`(``$!$@````$`
  17853. +M@0`%`^H``````($``0/K``````$9`2T``P`)`,4#Z0`+`*(`P@$@`3`!/`%)
  17854. +M`50`\@%@`,D!;P`"`*D`Y@`!`7D`M@`!`($`!@/J``````"!``H#ZP````4!
  17855. +MB0`D``$!FP`@``$!KP`<``$!OP`8``$!S`````$!V@)M``$`"0`#`^D``@'C
  17856. +M`>P``@'W`````0'_`````0('`H8``0`)`",#Z0`#`,("$`'L``0"'P!B``$"
  17857. +M)P!:``$"+P`,``$"-P````$"/P+&``$`"0`5`^D`!`)+`EL![`)I``0"=`!&
  17858. +M``$"?@!"``$"B``$``$"E`````$"H`,"``(`"0":`^D`"0*F`K`![`*Z`,D"
  17859. +MQ@+3`MX"Z``$`O(!U@`!`OD!S@`!`P`!G@`!`P8!E@`!`($`00/K``````,,
  17860. +M`_4``0`)`-`#Z0`)`M,"W@'L`,(!(`#)`/("Z`"B``H#$@,@``$#&P,8``$#
  17861. +M)`,(``$#+0,$``$#-@*0``$#/P*,``$#2`).``$#4@)*``$#7`%>``$#90%:
  17862. +M``$#;@48``(`"0`(`^D``0#)``("WP````$#>0````$`@0`"`^L````"`M,`
  17863. +M!``!`N@````!`X(%,@`!``D`&P/I``,`P@*P`>P`!`.+`&```0.3`%@``0.;
  17864. +M``@``0.E`````0.O!6@``0`)`$$#Z0`&`,(!(`*Z`,D#M@'L``(#O@`(``$#
  17865. +MQ0````$#S`77``$`"0`.`^D``P"X`,D![``"`]8`"``!`]\````!`^@%_P`"
  17866. +M``D`/@/I``4#\0/X`,D$!@02``($%P#B``$$'@#4``$`@0`/`^H`````!"@&
  17867. +MA@`!``D`!P/I``$`R0`!!#,````!!$<&G``!``D`#P/I``0`#0*'`!<":0`$
  17868. +M!%``'@`!!%D`%@`!!&(`!``!``$````!!&H&S``!``D`!P/I``($=P2!``($
  17869. +MCP`(``$$G`````$$J0;I``(`"0`I`^D`!@#)!+($N@3'`,($T``"!-@`!``!
  17870. +M!.`````!`($`"`/J``````3H!U(``@`)```#Z0``````@0#&`^H````!!/("
  17871. +MF``!!/\(1P`!``D`.@/I``4%!@47`,(%)@$P``@%-`#```$`D@"T``$%/0"F
  17872. +M``$%0P"B``$%20"2``$%4`"&``$%5P`0``$%7@````$%90BJ``$`"0`2`^D`
  17873. +M`P5O!7D![``"!80`!``!!9,````!!:((V``!``D``P/I``$%J@`"!;0`"``!
  17874. +M!;P````!!<0(Z@`!``D``P/I``$%RP`"!=0`"``!!=L````!!>((_``"``D`
  17875. +M30/I``(%Z@7Y``P&"`$$``$&&`$```$&*`#(``$&-@"\``$&1`"H``$&4`"D
  17876. +M``$&7`!^``$&:@!Z``$&>`!2``$&A0!.``$&D@````$&H`````$`@0`$`^H`
  17877. +M````!JX);0`#``D`'@/I``($$@:W``0&Q@!4``$&U0!4``$&Y`````$&\```
  17878. +M``$`@0`%`^H````!!OP````!`($`!`/K````!`<'``P``0#E``@``0#9``0`
  17879. +M`0<1`````0<<";H``0`)`!8#Z0`#!6\%>0'L``0')`!0``$'*P!,``$',@`$
  17880. +M``$'.P````$'1`GL``(`"0!B`^D``P"B`,(`\@`(!TP!@``!!U8!@``!!7H!
  17881. +M3``!!V`!2``!!7`!+``!!VH!*``!!W0`,``!!W\````!`($``@/K``````>*
  17882. +M"H```0`)`!H#Z0`%`+@`R0>1!YT![``"!Z0`"``!!ZL````!![(*OP`!``D`
  17883. +M!P/I``$'N0`"!\,`#``!!\H````!!]$*U0`"``D`4@/I``8'W0?G!^X']@@!
  17884. +M`>P`!`@,`0X``0@3`0H``0@:``@``0@H`````0"!``P#Z@`````(-@MU``$`
  17885. +M"0`P`^D``@?N"$0`!@A/`'@``0A;`'0``0>2`"@``0AG`"```0@"``0``0AS
  17886. +M`````0A]"[X``@`)``L#Z0````8(@P`D``$(C0`D``$(EP`6``$(H0`2``$(
  17887. +MJP`$``$(M0````$`@0`)`^H````!"+\`!``!",P+Z@`!``D`*@/I``8`P@$@
  17888. +M"-8`N`#)`>P``@C?``P``0*G`````0CI#$```P`)`"P#Z0`""/$(^0`!"0``
  17889. +M+@`!`($`!P/J``````"!``$#ZP`````)"`R=``$`"0`V`^D`!@$@`>P#M@=+
  17890. +M`,(`R0`""1$`9``!"1D`8``!"2$-`P`"``D"&@/I`!4%>0#9`.4'!P'L!6\'
  17891. +M<P#R`+@`50)+"2<%!@47`,D`P@"B!Q$)+P02!OP`!`DY!]0``0E%!\(``0E1
  17892. +M!S8``0E7!S(``0"!`!4#Z@`````)70_\``(`"0`)`^D````$"6,`%@`!"6T`
  17893. +M$@`!"7<`!``!"8$````!`($`"0/J``````F+$"<``P`)`*D#Z0`-"94$'0F<
  17894. +M":0)KPG$"=,&=P9#!!8&D08G!@<`%`GE`IH``0GW`IH``0H)`EP``0H8`EP`
  17895. +M`0HG`EH``0HR`EH``0'M`E(``0H]`E(``0I'`D0``0I/`D```04'`>H``0I7
  17896. +M`>8``048`=```0IH`<P``0IW`;8``0J'`;(``0),`0P``0J7`0@``0JF`"@`
  17897. +M`0JM`"0``0"!``H#Z@``````@0!$`^L````#`EL!"``!`FD!!``!`A``!``!
  17898. +M"K0170`#``D"'0/I`!4#\0J["+\*P0K+"M,*W00&"N4`R0H(!N,&0P:1"O0*
  17899. +M^@L$`*(+#`#R!!8``PL6`WH``0L>`'@``0LL`'@``0"!`"P#Z@``````@0`(
  17900. +M`^L````(!($`'``!"SH`&``!"$0`%``!`3P`$``!!K<`#``!"T,`"``!"TT`
  17901. +M!``!!!(````!"UD4>P`!``D`!`/I`````@MA``0``0MH`````0MO%(<``@`)
  17902. +M`#X#Z0````0+?`!^``$+B`!Z``$+E``$``$+I@````$`@0`!`^L````!"[@`
  17903. +M```!"\D4U@`!``D``@/I````!`O/``0``0O8``0``0OA`````0OI`````0OQ
  17904. +M%.```0`)`!4#Z0`'"OH&=PM-">0&Q0<J!TL`!@OY`$P``0P``$@``0F=`"8`
  17905. +M`0P'`"(``0P/`````0P;`````0PG%2H``0`)`!,#Z0`"!7D![``"#"\`#``!
  17906. +M`[<````!##854P`"``D`F`/I``H,/`"X`,(+DP2R`2``R0Q,`>P$$@`"#%8"
  17907. +M2``!#%P````!`($``@/J``````QD%D0``P`)!6@#Z0`*#&L*P0K3!^X*W0<C
  17908. +M#'0,50DG!<L`$`Q[%9(``0R#%9(``0R+%80``0R3%8```0R;$/0``0RB$/``
  17909. +M`0RI$)0``0RR$)```0R[#I@``0S##I0``0?W#C```0S+#BP``0S6#38``0SA
  17910. +M#38``0SL#,8``0SS#,8``0"!`$@#Z@````,'W0`8``$,^@`4``$'YP`,``$`
  17911. +M@03V`^L`````#00<K``"``D!G`/I``L$%@=S`/(![`"B`,(!(`4&"G8`N`#)
  17912. +M``8*Y@7L``$-#P7,``$,/056``$-'05(``$-+0+8``$-.P+0``$`@0`(`^H`
  17913. +M````#4D>O``!``D`)P/I``0`P@$@`,D![``"#5(`"``!#5H````!#6(?!``!
  17914. +M``D`#@/I````!`UJ`"H``0UR`!P``0UZ``P``0V!`````0V('QH``0`)`!`#
  17915. +MZ0````(-CP`,``$-E0````$-FQ\R``(`"0!U`^D`!@#"`2``R0M[`J8(3@`$
  17916. +M`K$!+@`!#:4!)@`!`KL`&``!#:\````!`($`0`/K`````0+&`````0VZ']P`
  17917. +M`0`)``4#Z0````(-P@`(``$-R0````$-T!_I``$`"0`,`^D``@.V`>P``@W<
  17918. +M``@``0WG`````0WR(`H``0`)``T#Z0`#`[8![`N3``(-^P`(``$.`P````$.
  17919. +M"R`T``$`"0`0`^D``0#"``0.%``L``$.&P`@``$.(@`,``$.*@````$.,B!4
  17920. +M``$`"0`-`^D``@.V`>P``@X[``0``0Y#`````0Y+('8``0`)``\#Z0`%`,(%
  17921. +M!@47"G8"AP`"#E8`!``!#F`````!#FH@L``!``D`*`/I``0!(`#"`+@`R0`"
  17922. +M#G(`!``!#GD````!#H`@^0`#``D!EP/I``(,B@?N``(.BP`2``$.E0````$`
  17923. +M@0!Y`^H``````($`"0/K``````Z?(WP``0`)`!8#Z0`%`,(!(`TL`>P`R0`"
  17924. +M#JH`"``!#K0````!#KXCN@`!``D`U0/I``H`P@$@`*(`J`L,!!(%@P.V`,D`
  17925. +M\@`$#L4#.``!#LL#'``!#M$`(@`!#M@````!#M\DW0`!``D``@/I````!`[E
  17926. +M``0``0[N``0``0[W`````0[_`````0\').<``0`)``X#Z0`'!@<%!@47"T,&
  17927. +M)PM-`>P``@\/``0``0\6`````0\=)2X``0`)``\#Z0`"#%4![``$#R4`,@`!
  17928. +M#RP`*@`!#S,`"``!#SP````!#T4E4@`!``D`(P/I``,`P@5Y`>P`!`31`((`
  17929. +M`0]-`'8``0]4``P``0]=`````0]F)9```0`)``P#Z0`!"`$``@>>``0``0]M
  17930. +M`````0]S):P``0`)`!T#Z0`#`/(`R0'L``(*P@`$``$/?`````$/AB7C``$`
  17931. +M"0`3`^D``P"X`>P`R0`"#XT`"``!#Y,````!#YDF$``"``D`)`/I``0#F@!5
  17932. +M!!(![``"#Z(`!``!`&D````!`($``@/J``````^J)F```0`)``8#Z0`"#[$!
  17933. +M[``"#[H`!``!#\$````!#\@F>P`!``D`#P/I``0`N`#)"Y,![``"#]``"``!
  17934. +M#]<````!#]XFK``!``D`'`/I``(%>0'L``0/Y@!<``$/[0!.``$/]``.``$/
  17935. +M_0````$0!B;>``$`"0`<`^D``P#"!7D![``$#'4`9``!$`T`6``!$!,`#``!
  17936. +M$!L````!$",G%0`!``D`@0/I``L&!P4&!1<+0PIV!EL&)PM-`,(%>0'L``(0
  17937. +M+``8``$0-`````$0/"?K``$`"0`@`^D``P#"!7D![``!$$0````!$$LH)@`"
  17938. +M``D```/I``````"!`-X#Z@````($QP-R``$$N@+6``$05RD[``(`"0!%`^D`
  17939. +M`@#)!+(`!`"Y`/X``1!?`/X``0$A``0``1!H`````0"!``$#ZP````$`P@``
  17940. +M``$0=RF<``$`"0`%`^D`!!!^`?8,#@'L``(0A0````$0C`````$0DRG!``$`
  17941. +M"0!9`^D`!@FD`DL!XP'L`,(+!``"$'\`[@`!$)H`Y@`!$*`J2@`#``D`0P/I
  17942. +M``@0JP06$+<`50:W!!()+P"B``@)L`"R``$0Q`"R``$)U`!(``$0V`!(``$)
  17943. +MI0`B``$0Z0`>``$%)P`$``$0]`````$`@0`&`^H``````($`#P/K````!@%@
  17944. +M`#@``0G$`#0``0%4`!0``0$P``@``0'C``0``0%)`````1$!*N,``0`)`"\#
  17945. +MZ0`!$*L`!`7K`)0``1$+`)```07Z`!P``1$:`````1$H*R,``0`)`!0#Z0`$
  17946. +6`+@+DP#)`>P``A$P``@``1$W`````1P`
  17947. +`
  17948. +end
  17949. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/unlink.c amiga/fsf/emacs18/amiga/unix/src/unlink.c
  17950. --- baseline/fsf/emacs18/amiga/unix/src/unlink.c    Wed Dec 31 17:00:00 1969
  17951. +++ amiga/fsf/emacs18/amiga/unix/src/unlink.c    Sat Sep 28 00:00:00 1996
  17952. @@ -0,0 +1,40 @@
  17953. +#include "amiga.h"
  17954. +#include "files.h"
  17955. +#include <amiga/ioctl.h>
  17956. +
  17957. +static int delete_open_file(char *name)
  17958. +{
  17959. +  BPTR nlock = Lock(name, SHARED_LOCK);
  17960. +
  17961. +  if (nlock)
  17962. +    {
  17963. +      int err = errno, i;
  17964. +
  17965. +      i = _last_fd();
  17966. +      while (--i >= 0)
  17967. +    if (ioctl(i, _AMIGA_DELETE_IF_ME, &nlock) == 0)
  17968. +      {
  17969. +        errno = err;
  17970. +        return 0;
  17971. +      } 
  17972. +      UnLock(nlock);
  17973. +   }
  17974. +  return -1;
  17975. +}
  17976. +
  17977. +int unlink(const char *file)
  17978. +{
  17979. +  long err;
  17980. +
  17981. +  chkabort();
  17982. +  if (DeleteFile(file)) return 0;
  17983. +  err = IoErr();
  17984. +  if (err == ERROR_DELETE_PROTECTED)
  17985. +    {
  17986. +      if (SetProtection(file, 0) && DeleteFile(file)) return 0;
  17987. +      err = IoErr();
  17988. +    }
  17989. +  if (err == ERROR_OBJECT_IN_USE && delete_open_file(file) == 0) return 0;
  17990. +  errno = convert_oserr(err);
  17991. +  return -1;
  17992. +}
  17993. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/utime.c amiga/fsf/emacs18/amiga/unix/src/utime.c
  17994. --- baseline/fsf/emacs18/amiga/unix/src/utime.c    Wed Dec 31 17:00:00 1969
  17995. +++ amiga/fsf/emacs18/amiga/unix/src/utime.c    Sat Sep 28 00:00:00 1996
  17996. @@ -0,0 +1,22 @@
  17997. +#include "amiga.h"
  17998. +#include "timeconvert.h"
  17999. +#include <stdlib.h>
  18000. +#include <time.h>
  18001. +#include <utime.h>
  18002. +
  18003. +int utime(char *file, struct utimbuf *times)
  18004. +{
  18005. +  struct DateStamp date;
  18006. +  time_t mtime;
  18007. +
  18008. +  chkabort();
  18009. +  if (times) mtime = times->modtime;
  18010. +  else mtime = time(0);
  18011. +
  18012. +  if (mtime == -1) return 0;
  18013. +
  18014. +  _gmt2amiga(mtime, &date);
  18015. +
  18016. +  if (SetFileDate(file, &date)) return 0;
  18017. +  ERROR;
  18018. +}
  18019. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/wait4.c amiga/fsf/emacs18/amiga/unix/src/wait4.c
  18020. --- baseline/fsf/emacs18/amiga/unix/src/wait4.c    Wed Dec 31 17:00:00 1969
  18021. +++ amiga/fsf/emacs18/amiga/unix/src/wait4.c    Sat Sep 28 00:00:00 1996
  18022. @@ -0,0 +1,57 @@
  18023. +#include "amiga.h"
  18024. +#include "signals.h"
  18025. +#include "processes.h"
  18026. +#include <sys/wait.h>
  18027. +
  18028. +int wait4(int pid, int *statusp, int options, struct rusage *rusage)
  18029. +{
  18030. +  struct process *p;
  18031. +
  18032. +  do {
  18033. +    int seen = FALSE;
  18034. +
  18035. +    scan_processes(p)
  18036. +      if (pid == 0 || p->pid == pid)
  18037. +    {
  18038. +      seen = TRUE;
  18039. +
  18040. +      if (p->status == exited)
  18041. +        {
  18042. +          int pid = p->pid;
  18043. +
  18044. +          if (statusp) *statusp = p->rc;
  18045. +          _free_entry(p);
  18046. +
  18047. +          return pid;
  18048. +        }
  18049. +    }
  18050. +    if (options & WNOHANG) return 0;
  18051. +    if (!seen)
  18052. +      {
  18053. +    errno = ECHILD;
  18054. +    return -1;
  18055. +      }
  18056. +    _handle_signals(_wait_signals(0));
  18057. +  } while (1);
  18058. +}
  18059. +
  18060. +int wait3(int *statusp, int options, struct rusage *rusage)
  18061. +{
  18062. +  return wait4(0, statusp, options, rusage);
  18063. +}
  18064. +
  18065. +int wait(int *statusp)
  18066. +{
  18067. +  return wait4(0, statusp, 0, NULL);
  18068. +}
  18069. +
  18070. +int waitpid(int pid, int *statusp, int options)
  18071. +{
  18072. +  /* We have no process groups, so : 
  18073. +       Our process group encompasses all our children
  18074. +       Each child is a process group unto itself
  18075. +     This is somewhat contradictory ... Should this be changed ? */
  18076. +  if (pid == -1) pid = 0;
  18077. +  if (pid < 0) pid = -pid;
  18078. +  return wait4(pid, statusp, options, NULL);
  18079. +}
  18080. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/write.c amiga/fsf/emacs18/amiga/unix/src/write.c
  18081. --- baseline/fsf/emacs18/amiga/unix/src/write.c    Wed Dec 31 17:00:00 1969
  18082. +++ amiga/fsf/emacs18/amiga/unix/src/write.c    Sat Sep 28 00:00:00 1996
  18083. @@ -0,0 +1,29 @@
  18084. +#include "amiga.h"
  18085. +#include "files.h"
  18086. +#include <fcntl.h>
  18087. +#include <unistd.h>
  18088. +
  18089. +#undef write
  18090. +
  18091. +int __write(int fd, const void *buffer, unsigned int length)
  18092. +{
  18093. +  struct fileinfo *fi;
  18094. +
  18095. +  chkabort();
  18096. +  if (fi = _find_fd(fd))
  18097. +    {
  18098. +      if (fi->flags & FI_WRITE)
  18099. +    {
  18100. +      if (fi->flags & O_APPEND) fi->lseek(fi->userinfo, 0, SEEK_END);
  18101. +      return fi->write(fi->userinfo, buffer, length);
  18102. +    }
  18103. +      errno = EACCES;
  18104. +    }
  18105. +  return -1;
  18106. +}
  18107. +
  18108. +int write(int fd, const void *buffer, unsigned int length)
  18109. +{
  18110. +  return __write(fd, buffer, length);
  18111. +}
  18112. +
  18113. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/africa amiga/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/africa
  18114. --- baseline/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/africa    Wed Dec 31 17:00:00 1969
  18115. +++ amiga/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/africa    Sat Sep 28 00:00:00 1996
  18116. @@ -0,0 +1,43 @@
  18117. +# @(#)africa    4.3
  18118. +
  18119. +###############################################################################
  18120. +
  18121. +# Egypt
  18122. +
  18123. +# From Bob Devine (January 28, 1988):
  18124. +# Egypt: DST from first day of May to first of October (ending may
  18125. +# also be on Sept 30th not 31st -- you might want to ask one of the
  18126. +# soc.* groups, you might hit someone who could ask an embassy).
  18127. +# DST since 1960 except for 1981-82.
  18128. +
  18129. +# From U. S. Naval Observatory (January 19, 1989):
  18130. +# EGYPT               2 H  AHEAD OF UTC
  18131. +# EGYPT               3 H  AHEAD OF UTC  MAY 17 - SEP 30 (AFTER
  18132. +# EGYPT                                  RAMADAN)
  18133. +
  18134. +# Rule    NAME    FROM    TO    TYPE    IN    ON    AT    SAVE    LETTER/S
  18135. +Rule    Egypt    1960    max    -    May    1    2:00    1:00    " DST"
  18136. +Rule    Egypt    1960    max    -    Oct    1    2:00    0    -
  18137. +
  18138. +# Zone    NAME    GMTOFF    RULES/SAVE    FORMAT    [UNTIL]
  18139. +Zone    Egypt    2:00    Egypt        EET%s    1981
  18140. +        2:00    -        EET    1983
  18141. +        2:00    Egypt        EET%s
  18142. +
  18143. +###############################################################################
  18144. +
  18145. +# Libya
  18146. +
  18147. +# From Bob Devine (January 28 1988):
  18148. +# Libya: Since 1982 April 1st to September 30th (?)
  18149. +
  18150. +# From U. S. Naval Observatory (January 19, 1989):
  18151. +# LIBYAN ARAB         1 H  AHEAD OF UTC  JAMAHIRIYA/LIBYA
  18152. +# LIBYAN ARAB         2 H  AHEAD OF UTC  APR 1 - SEP 30 JAMAHIRIYA/LIBYA
  18153. +
  18154. +# Rule    NAME    FROM    TO    TYPE    IN    ON    AT    SAVE    LETTER/S
  18155. +Rule    Libya    1982    max    -    Apr    1    2:00    1:00    " DST"
  18156. +Rule    Libya    1982    max    -    Sep    30    2:00    0    -
  18157. +
  18158. +# Zone    NAME    GMTOFF    RULES/SAVE    FORMAT    [UNTIL]
  18159. +Zone    Libya    2:00    Libya        EET%s
  18160. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/antarctica amiga/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/antarctica
  18161. --- baseline/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/antarctica    Wed Dec 31 17:00:00 1969
  18162. +++ amiga/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/antarctica    Sat Sep 28 00:00:00 1996
  18163. @@ -0,0 +1,4 @@
  18164. +# @(#)antarctica    4.1
  18165. +
  18166. +# From Arthur David Olson (February 13, 1988):
  18167. +# No data available.
  18168. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/asia amiga/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/asia
  18169. --- baseline/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/asia    Wed Dec 31 17:00:00 1969
  18170. +++ amiga/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/asia    Sat Sep 28 00:00:00 1996
  18171. @@ -0,0 +1,262 @@
  18172. +# @(#)asia    7.1
  18173. +
  18174. +# From Guy Harris:
  18175. +# Incorporates data for Singapore from Robert Elz' asia 1.1, as well as
  18176. +# additional information from Tom Yap, Sun Microsystems Intercontinental
  18177. +# Technical Support (including a page from the Official Airline Guide -
  18178. +# Worldwide Edition).  The names for time zones are guesses.
  18179. +
  18180. +###############################################################################
  18181. +
  18182. +# People's Republic of China
  18183. +
  18184. +# From Guy Harris:
  18185. +# People's Republic of China.  Yes, they really have only one time zone.
  18186. +
  18187. +# From Bob Devine (January 28, 1988):
  18188. +# No they don't.  See TIME mag, February 17, 1986 p.52.  Even though
  18189. +# China is across 4 physical time zones, before Feb 1, 1986 only the
  18190. +# Peking (Bejing) time zone was recognized.  Since that date, China
  18191. +# has two of 'em -- Peking's and Urumqi (named after the capital of
  18192. +# the Xinjiang Uighur Autonomous Region).  I don't know about DST for it.
  18193. +#
  18194. +# . . .I just deleted the DST table and this editor makes it too
  18195. +# painful to suck in another copy..  So, here is what I have for
  18196. +# DST start/end dates for Peking's time zone (info from AP):
  18197. +#
  18198. +#     1986 May 4 - Sept 14
  18199. +#     1987 mid-April - ??
  18200. +
  18201. +# From U. S. Naval Observatory (January 19, 1989):
  18202. +# CHINA               8 H  AHEAD OF UTC  ALL OF CHINA, INCL TAIWAN
  18203. +# CHINA               9 H  AHEAD OF UTC  APR 17 - SEP 10
  18204. +
  18205. +# Rule    NAME    FROM    TO    TYPE    IN    ON    AT    SAVE    LETTER/S
  18206. +Rule    PRC    1970    max    -    Apr    Sun<=14    2:00    1:00    D
  18207. +Rule    PRC    1970    max    -    Sep    Sun<=14    3:00    0    S
  18208. +
  18209. +# Zone    NAME        GMTOFF    RULES/SAVE    FORMAT    [UNTIL]
  18210. +Zone    PRC        8:00    PRC        C%sT
  18211. +
  18212. +###############################################################################
  18213. +
  18214. +# Republic of China
  18215. +
  18216. +# From Guy Harris
  18217. +
  18218. +# Zone    NAME        GMTOFF    RULES/SAVE    FORMAT    [UNTIL]
  18219. +Zone    ROC        8:00    -        CST
  18220. +
  18221. +###############################################################################
  18222. +
  18223. +# Hongkong
  18224. +
  18225. +# From Guy Harris
  18226. +
  18227. +# Zone    NAME        GMTOFF    RULES/SAVE    FORMAT    [UNTIL]
  18228. +Zone    Hongkong    8:00    -        HKT
  18229. +
  18230. +###############################################################################
  18231. +
  18232. +# Iran
  18233. +
  18234. +# From Bob Devine (January 28, 1988):
  18235. +# Iran: Last Sunday in March to third (?) Sunday in
  18236. +# September.  Since the revolution, the official calendar is Monarchic
  18237. +# calendar; I have no idea what the correspondence between dates are.
  18238. +
  18239. +# From U. S. Naval Observatory (January 19, 1989):
  18240. +# IRAN                3.5H AHEAD OF UTC
  18241. +
  18242. +# Rule    NAME    FROM    TO    TYPE    IN    ON    AT    SAVE    LETTER/S
  18243. +Rule    Iran    1988    max    -    Mar    lastSun    2:00    1:00    D
  18244. +Rule    Iran    1988    max    -    Sep    Sun>=15    2:00    0    S
  18245. +
  18246. +# Zone    NAME        GMTOFF    RULES/SAVE    FORMAT    [UNTIL]
  18247. +Zone    Iran        3:30    Iran        I%sT
  18248. +
  18249. +###############################################################################
  18250. +
  18251. +# Israel
  18252. +
  18253. +# From U. S. Naval Observatory (January 19, 1989):
  18254. +# ISRAEL              2 H  AHEAD OF UTC
  18255. +# ISRAEL              3 H  AHEAD OF UTC  APR 10 - SEP 3
  18256. +
  18257. +# From Ephraim Silverberg (April 18, 1989):
  18258. +
  18259. +# Prior to 1989, the rules concerning Daylight Savings Time changed every
  18260. +# year; as information, regarding exact times and dates during this period,
  18261. +# is not readily available at the present time, the rules commence starting
  18262. +# with the year 1989.
  18263. +
  18264. +# From 1989 onwards the rules are as follows:
  18265. +#
  18266. +# 1. Daylight Savings Time commences midnight of the first Saturday night
  18267. +#    following the seven-day festival of Pesach (Passover).  The transition
  18268. +#    is from midnight Israel Standard Time to 1 a.m. Israel Daylight Savings
  18269. +#    time.  As the Pesach festival is dependent on the Lunar calendar (the
  18270. +#    first day is always on the 15th day of the month of Nisan), the rule
  18271. +#    changes every year on the Gregorian calendar.
  18272. +#
  18273. +# 2. Standard Time is reinstated on the Saturday night whereupon Jews
  18274. +#    following the Ashkenazi (European) rite begin to recite the Selichot
  18275. +#    (forgiveness) prayers prior to the Jewish Lunar New Year.  The transition
  18276. +#    is from midnight Israel Daylight Savings time to 11 p.m. Israel Standard
  18277. +#    Time.  The law (according to the Ashkenazi custom) concerning the
  18278. +#    commencement of the Selichot prayers is described in chapter 128, section
  18279. +#    5 of the "Code of Jewish Law," by Rabbi Shlomo Ganzfried (translated by
  18280. +#    Hyman E. Goldin):
  18281. +#
  18282. +#       Beginning with the Sunday [**] before Rosh Hashanah [***],
  18283. +#       we rise early for the service of Selichot (supplications for
  18284. +#       forgiveness).  If Rosh Hashanah occurs on Monday or Tuesday, we
  18285. +#       begin saying the Selichot from the Sunday of the preceding week.
  18286. +#
  18287. +#    This, too, varies from year to year on the Gregorian calendar and, thus,
  18288. +#    two explicit timezone rules are required for each Gregorian year.
  18289. +#
  18290. +#    [**] actually Saturday night as the Jewish day commences at nightfall.
  18291. +#    [***] the Jewish Lunar New Year.
  18292. +
  18293. +# Rule    NAME    FROM    TO    TYPE    IN    ON    AT    SAVE    LETTER/S
  18294. +Rule    Zion    1989    only    -    Apr    30    0:00    1:00    D
  18295. +Rule    Zion    1989    only    -    Sep    24    0:00    0:00    S
  18296. +Rule    Zion    1990    only    -    Apr    22    0:00    1:00    D
  18297. +Rule    Zion    1990    only    -    Sep    16    0:00    0:00    S
  18298. +Rule    Zion    1991    only    -    Apr     7    0:00    1:00    D
  18299. +Rule    Zion    1991    only    -    Sep     1    0:00    0:00    S
  18300. +Rule    Zion    1992    only    -    Apr    26    0:00    1:00    D
  18301. +Rule    Zion    1992    only    -    Sep    20    0:00    0:00    S
  18302. +Rule    Zion    1993    only    -    Apr    18    0:00    1:00    D
  18303. +Rule    Zion    1993    only    -    Sep    12    0:00    0:00    S
  18304. +Rule    Zion    1994    only    -    Apr     3    0:00    1:00    D
  18305. +Rule    Zion    1994    only    -    Aug    28    0:00    0:00    S
  18306. +Rule    Zion    1995    only    -    Apr    23    0:00    1:00    D
  18307. +Rule    Zion    1995    only    -    Sep    17    0:00    0:00    S
  18308. +Rule    Zion    1996    only    -    Apr    14    0:00    1:00    D
  18309. +Rule    Zion    1996    only    -    Sep     8    0:00    0:00    S
  18310. +Rule    Zion    1997    only    -    May     4    0:00    1:00    D
  18311. +Rule    Zion    1997    only    -    Sep    28    0:00    0:00    S
  18312. +Rule    Zion    1998    only    -    Apr    19    0:00    1:00    D
  18313. +Rule    Zion    1998    only    -    Sep    13    0:00    0:00    S
  18314. +Rule    Zion    1999    only    -    Apr    11    0:00    1:00    D
  18315. +Rule    Zion    1999    only    -    Sep     5    0:00    0:00    S
  18316. +Rule    Zion    2000    only    -    Apr    30    0:00    1:00    D
  18317. +Rule    Zion    2000    only    -    Sep    24    0:00    0:00    S
  18318. +Rule    Zion    2001    only    -    Apr    15    0:00    1:00    D
  18319. +Rule    Zion    2001    only    -    Sep     9    0:00    0:00    S
  18320. +Rule    Zion    2002    only    -    Apr     7    0:00    1:00    D
  18321. +Rule    Zion    2002    only    -    Sep     1    0:00    0:00    S
  18322. +Rule    Zion    2003    only    -    Apr    27    0:00    1:00    D
  18323. +Rule    Zion    2003    only    -    Sep    21    0:00    0:00    S
  18324. +Rule    Zion    2004    only    -    Apr    18    0:00    1:00    D
  18325. +Rule    Zion    2004    only    -    Sep    12    0:00    0:00    S
  18326. +Rule    Zion    2005    only    -    May     1    0:00    1:00    D
  18327. +Rule    Zion    2005    only    -    Sep    25    0:00    0:00    S
  18328. +Rule    Zion    2006    only    -    Apr    23    0:00    1:00    D
  18329. +Rule    Zion    2006    only    -    Sep    17    0:00    0:00    S
  18330. +Rule    Zion    2007    only    -    Apr    15    0:00    1:00    D
  18331. +Rule    Zion    2007    only    -    Sep     9    0:00    0:00    S
  18332. +Rule    Zion    2008    only    -    Apr    27    0:00    1:00    D
  18333. +Rule    Zion    2008    only    -    Sep    21    0:00    0:00    S
  18334. +Rule    Zion    2009    only    -    Apr    19    0:00    1:00    D
  18335. +Rule    Zion    2009    only    -    Sep    13    0:00    0:00    S
  18336. +
  18337. +# Zone    NAME        GMTOFF    RULES/SAVE    FORMAT    [UNTIL]
  18338. +Zone    Israel        2:00    Zion        I%sT
  18339. +
  18340. +# The following is a chart of the day of the week and Gregorian date of
  18341. +# the first day of Pesach and the first day of Rosh Hashanah for the years
  18342. +# 1989 through 2009 inclusive.
  18343. +#
  18344. +# First Day of Passover
  18345. +# ---------------------
  18346. +# Gregorian Year    Day of Week    Month        Day
  18347. +# --------------    -----------    -----        ---
  18348. +#    1989        Thursday    April        20
  18349. +#    1990        Tuesday        April        10
  18350. +#    1991        Saturday    March        30
  18351. +#    1992        Saturday    April        18
  18352. +#    1993        Tuesday        April         6
  18353. +#    1994        Sunday        March        27
  18354. +#    1995        Saturday    April        15
  18355. +#    1996        Thursday    April         4
  18356. +#    1997        Tuesday        April        22
  18357. +#    1998        Saturday    April        11
  18358. +#    1999        Thursday    April         1
  18359. +#    2000        Thursday    April        20
  18360. +#    2001        Sunday        April         8
  18361. +#    2002        Thursday    March        28
  18362. +#    2003        Thursday    April        17
  18363. +#    2004        Tuesday        April         6
  18364. +#    2005        Sunday        April        24
  18365. +#    2006        Thursday    April        13
  18366. +#    2007        Tuesday        April         3
  18367. +#    2008        Sunday        April        20
  18368. +#    2009        Thursday    April         9
  18369. +#
  18370. +# First Day of Rosh Hashanah
  18371. +# --------------------------
  18372. +# Gregorian Year    Day of Week    Month        Day
  18373. +# --------------    -----------    -----        ---
  18374. +#    1989        Saturday    September    30
  18375. +#    1990        Thursday    September    20
  18376. +#    1991        Monday        September     9
  18377. +#    1992        Monday        September    28
  18378. +#    1993        Thursday    September    16
  18379. +#    1994        Tuesday        September     6
  18380. +#    1995        Monday        September    25
  18381. +#    1996        Saturday    September    14
  18382. +#    1997        Thursday    October         2
  18383. +#    1998        Monday        September    21
  18384. +#    1999        Saturday    September    11
  18385. +#    2000        Saturday    September    30
  18386. +#    2001        Tuesday        September    18
  18387. +#    2002        Saturday    September     7
  18388. +#    2003        Saturday    September    27
  18389. +#    2004        Thursday    September    16
  18390. +#    2005        Tuesday        October         4
  18391. +#    2006        Saturday    September    23
  18392. +#    2007        Thursday    September    13
  18393. +#    2008        Tuesday        September    30
  18394. +#    2009        Saturday    September    19
  18395. +
  18396. +###############################################################################
  18397. +
  18398. +# Japan
  18399. +
  18400. +# From Guy Harris
  18401. +
  18402. +# Zone    NAME        GMTOFF    RULES/SAVE    FORMAT    [UNTIL]
  18403. +Zone    Japan        9:00    -        JST
  18404. +
  18405. +###############################################################################
  18406. +
  18407. +# Republic of Korea
  18408. +
  18409. +# From Guy Harris:
  18410. +# According to someone at the Korean Times in San Francisco,
  18411. +# Daylight Savings Time was not observed until 1987.  He did not know
  18412. +# at what time of day DST starts or ends.
  18413. +
  18414. +# Rule    NAME    FROM    TO    TYPE    IN    ON    AT    SAVE    LETTER/S
  18415. +Rule    ROK    1987    max    -    May    Sun<=14    2:00    1:00    D
  18416. +Rule    ROK    1987    max    -    Oct    Sun<=14    3:00    0    S
  18417. +
  18418. +# Zone    NAME        GMTOFF    RULES/SAVE    FORMAT    [UNTIL]
  18419. +Zone    ROK        9:00    ROK        K%sT
  18420. +
  18421. +###############################################################################
  18422. +
  18423. +# Lebanon
  18424. +
  18425. +# From Bob Devine (January 28, 1988):
  18426. +# Lebanon: They do have DST but I don't know the dates.
  18427. +
  18428. +###############################################################################
  18429. +
  18430. +# Singapore
  18431. +
  18432. +# Zone    NAME        GMTOFF    RULES/SAVE    FORMAT    [UNTIL]
  18433. +Zone    Singapore    8:00    -        SST
  18434. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/australasia amiga/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/australasia
  18435. --- baseline/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/australasia    Wed Dec 31 17:00:00 1969
  18436. +++ amiga/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/australasia    Sat Sep 28 00:00:00 1996
  18437. @@ -0,0 +1,113 @@
  18438. +# @(#)australasia    4.4
  18439. +
  18440. +# Incorporates updates for Australia from Robert Elz' australia 1.1
  18441. +# and further updates from the Australian consulate.
  18442. +
  18443. +###############################################################################
  18444. +
  18445. +# Australia
  18446. +
  18447. +# Australian Data (for states with DST), standard rules
  18448. +# Includes shift in 1987 to follow Vic/NSW rules for ending DST,
  18449. +# and shift in 1986 to start DST earlier.
  18450. +
  18451. +# Rule    NAME    FROM    TO    TYPE    IN    ON    AT    SAVE    LETTER/S
  18452. +Rule    Oz    1971    1985    -    Oct    lastSun    2:00    1:00    -
  18453. +Rule    Oz    1986    max    -    Oct    Sun<=24    2:00    1:00    -
  18454. +Rule    Oz    1972    only    -    Feb    27    3:00    0    -
  18455. +Rule    Oz    1973    1986    -    Mar    Sun>=1    3:00    0    -
  18456. +Rule    Oz    1987    max    -    Mar    Sun<=21    3:00    0    -
  18457. +
  18458. +# Zone    NAME            GMTOFF    RULES    FORMAT    [UNTIL]
  18459. +Zone    Australia/Tasmania    10:00    Oz    EST
  18460. +Zone    Australia/Queensland    10:00    -    EST    # No DST here
  18461. +Zone    Australia/North        9:30    -    CST    # No DST here
  18462. +Zone    Australia/West        8:00    -    WST    # No DST here
  18463. +Zone    Australia/South        9:30    Oz    CST
  18464. +
  18465. +# Victoria jumped to a later ending date for DST in 1986 rather than 1987.
  18466. +
  18467. +Zone    Australia/Victoria    10:00    Oz    EST    1985 Oct lastSun 2:00
  18468. +                10:00    1:00    EST    1986 Mar Sun<=21 3:00
  18469. +                10:00    Oz    EST
  18470. +
  18471. +# New South Wales and subjurisdictions have their own ideas of a fun time.
  18472. +# Based on law library research by John Mackin (john@basser.cs.su.oz),
  18473. +# who notes:
  18474. +#    In Australia, time is not legislated federally, but rather by the
  18475. +#    individual states.  Thus, while such terms as ``Eastern Standard Time''
  18476. +#    [I mean, of course, Australian EST, not any other kind] are in common
  18477. +#    use, _they have NO REAL MEANING_, as they are not defined in the
  18478. +#    legislation.  This is very important to understand. 
  18479. +#    I have researched New South Wales time only; . . .I hope that perhaps a
  18480. +#    resident of each state could be found to do it for their own state. 
  18481. +#    (And I can guarantee that Victoria and NSW are different, so the link
  18482. +#    between them in the current australasia file must be broken.)
  18483. +
  18484. +# From Robert Elz (May 5, 1989):
  18485. +#
  18486. +# From next year (1990) NSW will revert to ending DST on the 1st
  18487. +# Sunday in March (rather than the third, which it appears will
  18488. +# continue to be what everyone else uses).
  18489. +
  18490. +# Rule    NAME    FROM    TO    TYPE    IN    ON    AT    SAVE    LETTER/S
  18491. +Rule    NSW    1971    1985    -    Oct    lastSun    2:00    1:00    -
  18492. +Rule    NSW    1972    only    -    Feb    lastSun    3:00    0    -
  18493. +Rule    NSW    1973    1981    -    Mar    Sun>=1    3:00    0    -
  18494. +Rule    NSW    1982    only    -    Apr    4    3:00    0    -
  18495. +Rule    NSW    1983    1985    -    Mar    Sun>=1    3:00    0    -
  18496. +Rule    NSW    1986    only    -    Mar    16    3:00    0    -
  18497. +Rule    NSW    1986    only    -    Oct    19    2:00    1:00    -
  18498. +Rule    NSW    1987    only    -    Mar    15    3:00    0    -
  18499. +Rule    NSW    1987    max    -    Oct    lastSun    2:00    1:00    -
  18500. +Rule    NSW    1988    1989    -    Mar    Sun<=21    3:00    0    -
  18501. +Rule    NSW    1990    max    -    Mar    Sun>=1    3:00    0    -
  18502. +
  18503. +# Zone    NAME            GMTOFF    RULES    FORMAT    [UNTIL]
  18504. +Zone    Australia/NSW        10:00    NSW    EST
  18505. +# `Broken Hill' means the County of Yancowinna. [john@basser.cs.su.oz.au,1/4/89]
  18506. +Zone    Australia/Yancowinna    9:30    NSW    ???
  18507. +Zone    Australia/LHI        10:30    NSW    ???
  18508. +
  18509. +# A footnote here:
  18510. +#
  18511. +#    . . .
  18512. +#    Date: Thu, j19 Feb 87 12:02:17 EST
  18513. +#    From: Bradley White <seismo!k.cs.cmu.edu!bww>
  18514. +#    . . .
  18515. +#    I am including a description of Australian time zones. . .
  18516. +#    this stuff is definitely accurate.
  18517. +#    . . .
  18518. +#    a) Australian Eastern Time: (EST = GMT+10:00, EDT = GMT+11:00)
  18519. +#    . . .
  18520. +#    Summer of 86/87 - present (current legislation):
  18521. +#        third Sun Oct 02:00 EST -> third [S]un Mar 02:00 EST
  18522. +#
  18523. +# If this turns out to be true, substitute Sun<=21 (third Sunday in October)
  18524. +# for Sun<=24 (next-to-last Sunday in October) above. . .some time before
  18525. +# October 1988, the first time it makes a difference.
  18526. +
  18527. +###############################################################################
  18528. +
  18529. +# New Zealand
  18530. +
  18531. +# New Zealand, from Elz' asia 1.1
  18532. +# Elz says "no guarantees"
  18533. +# The 1989/90 rule may only last a year.  It is a trial that is
  18534. +# subject to Ministerial approval to be made permanent.
  18535. +# The termination of "daylight saving" may actually be second
  18536. +# to last Sunday in March.  Noone spoken to was very sure.
  18537. +
  18538. +# From U. S. Naval Observatory (January 19, 1989):
  18539. +# NEW ZEALAND        12 H  AHEAD OF UTC  (EXCLUDING CHATHAM ISLAND)
  18540. +# NEW ZEALAND        13 H  AHEAD OF UTC  OCT 30, '88-MAR 4, '89
  18541. +# NEW ZEALAND       12H45M AHEAD OF UTC  CHATHAM ISLAND
  18542. +
  18543. +# Rule    NAME    FROM    TO    TYPE    IN    ON    AT    SAVE    LETTER/S
  18544. +Rule    NZ    1974    1988    -    Oct    lastSun    2:00    1:00    D
  18545. +Rule    NZ    1989    max    -    Oct    Sun>=8    2:00    1:00    D
  18546. +Rule    NZ    1975    1989    -    Mar    Sun>=1    3:00    0    S
  18547. +Rule    NZ    1990    max    -    Mar    Sun>=15    3:00    0    S
  18548. +
  18549. +# Zone    NAME            GMTOFF    RULES/SAVE    FORMAT    [UNTIL]
  18550. +Zone    NZ            12:00    NZ        NZ%sT    # New Zealand
  18551. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/etcetera amiga/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/etcetera
  18552. --- baseline/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/etcetera    Wed Dec 31 17:00:00 1969
  18553. +++ amiga/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/etcetera    Sat Sep 28 00:00:00 1996
  18554. @@ -0,0 +1,55 @@
  18555. +# @(#)etcetera    4.4
  18556. +
  18557. +# All of these are set up just so people can "zic -l" to a timezone
  18558. +# that's right for their area, even if it doesn't have a name or dst rules
  18559. +# (half hour zones are too much to bother with -- when someone asks!)
  18560. +
  18561. +Zone    GMT        0    -    GMT
  18562. +
  18563. +Zone    GMT-12        -12    -    GMT-1200
  18564. +Zone    GMT-11        -11    -    GMT-1100
  18565. +Zone    GMT-10        -10    -    GMT-1000
  18566. +Zone    GMT-9        -9    -    GMT-0900
  18567. +Zone    GMT-8        -8    -    GMT-0800
  18568. +Zone    GMT-7        -7    -    GMT-0700
  18569. +Zone    GMT-6        -6    -    GMT-0600
  18570. +Zone    GMT-5        -5    -    GMT-0500
  18571. +Zone    GMT-4        -4    -    GMT-0400
  18572. +Zone    GMT-3        -3    -    GMT-0300
  18573. +Zone    GMT-2        -2    -    GMT-0200
  18574. +Zone    GMT-1        -1    -    GMT-0100
  18575. +Zone    GMT+1        1    -    GMT+0100
  18576. +Zone    GMT+2        2    -    GMT+0200
  18577. +Zone    GMT+3        3    -    GMT+0300
  18578. +Zone    GMT+4        4    -    GMT+0400
  18579. +Zone    GMT+5        5    -    GMT+0500
  18580. +Zone    GMT+6        6    -    GMT+0600
  18581. +Zone    GMT+7        7    -    GMT+0700
  18582. +Zone    GMT+8        8    -    GMT+0800
  18583. +Zone    GMT+9        9    -    GMT+0900
  18584. +Zone    GMT+10        10    -    GMT+1000
  18585. +Zone    GMT+11        11    -    GMT+1100
  18586. +Zone    GMT+12        12    -    GMT+1200
  18587. +Zone    GMT+13        13    -    GMT+1300    # GMT+12 with DST
  18588. +
  18589. +Link    GMT        UTC
  18590. +Link    GMT        UCT
  18591. +Link    GMT        Universal
  18592. +Link    GMT        Greenwich
  18593. +Link    GMT        Zulu
  18594. +Link    GMT        GMT-0
  18595. +Link    GMT        GMT+0
  18596. +Link    GMT        GMT0
  18597. +Link    GMT+1        GMT1
  18598. +Link    GMT+2        GMT2
  18599. +Link    GMT+3        GMT3
  18600. +Link    GMT+4        GMT4
  18601. +Link    GMT+5        GMT5
  18602. +Link    GMT+6        GMT6
  18603. +Link    GMT+7        GMT7
  18604. +Link    GMT+8        GMT8
  18605. +Link    GMT+9        GMT9
  18606. +Link    GMT+10        GMT10
  18607. +Link    GMT+11        GMT11
  18608. +Link    GMT+12        GMT12
  18609. +Link    GMT+13        GMT13
  18610. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/europe amiga/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/europe
  18611. --- baseline/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/europe    Wed Dec 31 17:00:00 1969
  18612. +++ amiga/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/europe    Sat Sep 28 00:00:00 1996
  18613. @@ -0,0 +1,224 @@
  18614. +# @(#)europe    4.10
  18615. +
  18616. +# International country codes are used to identify countries' rules and
  18617. +# zones
  18618. +#
  18619. +# This data is by no means authoritative; if you think you know better, go
  18620. +# ahead and edit the file (and please send any changes to
  18621. +# ado@ncifcrf.gov for general use in the future).
  18622. +
  18623. +###############################################################################
  18624. +
  18625. +# United Kingdom
  18626. +
  18627. +# From Arthur David Olson (January 19, 1989):
  18628. +#
  18629. +# The starting and ending dates below (from which the rules are derived)
  18630. +# are from Whitaker's Almanack for 1987, page 146.
  18631. +# 1960 is the earliest year for which dates are given;
  18632. +# Whitaker's notes that British Summer Time (and, in some years, Double Summer
  18633. +# Time) was observed in earlier years but does not give start and end dates.
  18634. +#
  18635. +# A source at the British Information Office in New York avers that it's
  18636. +# known as "British" Summer Time in all parts of the United Kingdom.
  18637. +#    1960    April 10    October 2 (yes, 2, according to the almanac)
  18638. +#    1961    March 26    October 29
  18639. +#    1962    March 25    October 28
  18640. +#    1963    March 31    October 27
  18641. +#    1964    March 22    October 25
  18642. +#    1965    March 21    October 24
  18643. +#    1966    March 20    October 23
  18644. +#    1967    March 19    October 29
  18645. +#    1968    February 18    October 27
  18646. +# "British Standard Time, also one hour ahead of G. M. T., was kept between
  18647. +# 1968 Oct. 27-1971 Oct. 31."
  18648. +#    1972    March 19    October 29
  18649. +#    1973    March 18    October 28
  18650. +#    1974    March 17    October 27
  18651. +#    1975    March 16    October 26
  18652. +#    1976    March 21    October 24
  18653. +#    1977    March 20    October 23
  18654. +#    1978    March 19    October 29
  18655. +#    1979    March 18    October 28
  18656. +#    1980    March 16    October 26
  18657. +#    1981    March 29    October 25
  18658. +#    1982    March 28    October 24
  18659. +#    1983    March 27    October 23
  18660. +#    1984    March 25    October 28
  18661. +#    1985    March 31    October 27
  18662. +#    1986    March 30    October 26
  18663. +#    1987    March 29    October 25
  18664. +
  18665. +# From an Anonymous U. K. Donor (January 4, 1989):
  18666. +#
  18667. +# It is NOT possible to predict when [British Summer Time] will change
  18668. +# in a future year.
  18669. +# 
  18670. +# (The admiralty calculate when they think it should be (no more that a couple
  18671. +# of years in advance) and advise the government who then decide whether or 
  18672. +# not they will take the admiralty's advice)
  18673. +# 
  18674. +# ...the Gre[e]nwich...observatory...[was] very helpful.
  18675. +# 
  18676. +# I was not able to track down the Admiralty formula (I tried hard but failed)
  18677. +
  18678. +# ...
  18679. +# Date: 4 Jan 89 08:57:25 GMT (Wed)
  18680. +# From: Jonathan Leffler <nih-csl!uunet!mcvax!sphinx.co.uk!john>
  18681. +# ...
  18682. +# [British Summer Time] is fixed annually by Act of Parliament.
  18683. +# If you can predict what Parliament will do, you should be in
  18684. +# politics making a fortune, not computing.
  18685. +#
  18686. +# Summer time ends on Sunday 29 October 1989.
  18687. +
  18688. +# ...
  18689. +# Date: 5 Jan 89 09:50:38 GMT (Thu)
  18690. +# From: Peter Kendell <nih-csl!uunet!mcvax!tcom.stc.co.uk!pete>
  18691. +# ...
  18692. +# 
  18693. +# From my Collins Diary for 1989 - 
  18694. +# 
  18695. +# "At the time of going to press the Home Office was unable to confirm
  18696. +# the 1989 starting and finishing dates for BST*, but expressed the 
  18697. +# view that 26 March and 29 October were the likeliest dates to be
  18698. +# adopted"
  18699. +# 
  18700. +# *British Summer Time.
  18701. +
  18702. +# From an Anonymous U. K. Donor (January 5, 1989):
  18703. +#
  18704. +# . . .our government is seriously considering applying Double Summer Time -
  18705. +# putting the clocks forwards and back TWO hours for daylight saving time.
  18706. +# This is advocated to standardise time in the EEC - we're all supposed to
  18707. +# keep the same time and to change the clocks on the same dates in the future.
  18708. +
  18709. +# Rule    NAME    FROM    TO    TYPE    IN    ON    AT    SAVE    LETTER/S
  18710. +# Historic starting rules
  18711. +Rule    GB-Eire    1960    only    -    Apr    10    1:00s    1:00    BST
  18712. +Rule    GB-Eire    1961    1963    -    Mar    lastSun    1:00s    1:00    BST
  18713. +Rule    GB-Eire    1964    1967    -    Mar    Sun>=19    1:00s    1:00    BST
  18714. +Rule    GB-Eire    1968    only    -    Feb    18    1:00s    1:00    BST
  18715. +Rule    GB-Eire    1972    1980    -    Mar    Sun>=16    1:00s    1:00    BST
  18716. +# Historic ending rules
  18717. +Rule    GB-Eire    1960    only    -    Oct    2    1:00s    0    GMT
  18718. +Rule    GB-Eire    1961    1967    -    Oct    Sun>=23    1:00s    0    GMT
  18719. +Rule    GB-Eire    1971    only    -    Oct    31    1:00s    0    GMT
  18720. +# Current rules
  18721. +Rule    GB-Eire    1981    max    -    Mar    lastSun    1:00s    1:00    BST
  18722. +Rule    GB-Eire    1972    max    -    Oct    Sun>=23    1:00s    0    GMT
  18723. +
  18724. +# Zone    NAME        GMTOFF    RULES/SAVE    FORMAT    [UNTIL]
  18725. +Zone    GB-Eire        0:00    GB-Eire        %s    1968 Oct 27 1:00s
  18726. +            1:00    -        BST    1971 Oct 31 1:00s
  18727. +            0:00    GB-Eire        %s
  18728. +
  18729. +###############################################################################
  18730. +
  18731. +# Continental Europe
  18732. +
  18733. +# The use of 1986 as starting years below is conservative.
  18734. +
  18735. +Rule    W-Eur    1986    max    -    Mar    lastSun    1:00s    1:00    " DST"
  18736. +Rule    W-Eur    1986    max    -    Sep    lastSun    1:00s    0    -
  18737. +
  18738. +Rule    M-Eur    1986    max    -    Mar    lastSun    2:00s    1:00    " DST"
  18739. +Rule    M-Eur    1986    max    -    Sep    lastSun    2:00s    0    -
  18740. +
  18741. +Rule    E-Eur    1986    max    -    Mar    lastSun    3:00s    1:00    " DST"
  18742. +Rule    E-Eur    1986    max    -    Sep    lastSun    3:00s    0    -
  18743. +
  18744. +Rule    Turkey    1986    max    -    Mar    lastSun    1:00    1:00    " DST"
  18745. +Rule    Turkey    1986    max    -    Sep    lastSun    1:00    0    -
  18746. +
  18747. +Rule    W-SU    1986    max    -    Mar    lastSun    2:00s    1:00    " DST"
  18748. +Rule    W-SU    1986    max    -    Sep    lastSun    2:00s    0    -
  18749. +
  18750. +# Zone    NAME        GMTOFF    RULES/SAVE    FORMAT    [UNTIL]
  18751. +Zone    WET        0:00    W-Eur        WET%s
  18752. +Zone    Iceland        0:00    -        WET
  18753. +Zone    MET        1:00    M-Eur        MET%s
  18754. +Zone    Poland        1:00    W-Eur        MET%s
  18755. +Zone    EET        2:00    E-Eur        EET%s
  18756. +Zone    Turkey        3:00    Turkey        EET%s
  18757. +Zone    W-SU        3:00    M-Eur        ????
  18758. +
  18759. +# Tom Hoffman says that MET is also known as Central European Time
  18760. +
  18761. +Link    MET    CET
  18762. +
  18763. +###############################################################################
  18764. +
  18765. +# One source shows that Bulgaria, Cyprus, Finland, and Greece observe DST from
  18766. +# the last Sunday in March to the last Sunday in September in 1986.
  18767. +# The source shows Romania changing a day later than everybody else.
  18768. +#
  18769. +# According to Bernard Sieloff's source, Poland is in the MET time zone but
  18770. +# uses the WE DST rules.  The Western USSR uses EET+1 and ME DST rules.
  18771. +# Bernard Sieloff's source claims Romania switches on the same day, but at
  18772. +# 00:00 standard time (i.e., 01:00 DST).  It also claims that Turkey
  18773. +# switches on the same day, but switches on at 01:00 standard time
  18774. +# and off at 00:00 standard time (i.e., 01:00 DST)
  18775. +
  18776. +# ...
  18777. +# Date: Wed, 28 Jan 87 16:56:27 -0100
  18778. +# From: seismo!mcvax!cgcha!wtho (Tom Hofmann)
  18779. +# Message-Id: <8701281556.AA22174@cgcha.uucp>
  18780. +# ...
  18781. +# 
  18782. +# ...the European time rules are...standardized since 1981, when
  18783. +# most European coun[tr]ies started DST.  Before that year, only
  18784. +# a few countries (UK, France, Italy) had DST, each according
  18785. +# to own national rules.  In 1981, however, DST started on
  18786. +# 'Apr firstSun', and not on 'Mar lastSun' as in the following
  18787. +# years...
  18788. +# But also since 1981 there are some more national exceptions 
  18789. +# than listed in 'europe': Switzerland, for example, joined DST 
  18790. +# one year later, Denmark ended DST on 'Oct 1' instead of 'Sep 
  18791. +# lastSun' in 1981---I don't know how they handle now.
  18792. +# 
  18793. +# Finally, DST ist always from 'Apr 1' to 'Oct 1' in the
  18794. +# Soviet Union (as far as I know).  
  18795. +# 
  18796. +# Tom Hofmann, Scientific Computer Center, CIBA-GEIGY AG,
  18797. +# 4002 Basle, Switzerland
  18798. +# UUCP: ...!mcvax!cernvax!cgcha!wtho
  18799. +
  18800. +# ...
  18801. +# Date: Wed, 4 Feb 87 22:35:22 +0100
  18802. +# From: seismo!mcvax!cwi.nl!dik (Dik T. Winter)
  18803. +# ...
  18804. +# 
  18805. +# The information from Tom Hofmann is (as far as I know) not entirely correct.
  18806. +# After a request from chongo at amdahl I tried to retrieve all information
  18807. +# about DST in Europe.  I was able to find all from about 1969.
  18808. +# 
  18809. +# ...standardization on DST in Europe started in about 1977 with switches on
  18810. +# first Sunday in April and last Sunday in September...
  18811. +# In 1981 UK joined Europe insofar that
  18812. +# the starting day for both shifted to last Sunday in March.  And from 1982
  18813. +# the whole of Europe used DST, with switch dates April 1 and October 1 in
  18814. +# the Sov[i]et Union.  In 1985 the SU reverted to standard Europe[a]n switch
  18815. +# dates...
  18816. +# 
  18817. +# It should also be remembered that time-zones are not constants; e.g.
  18818. +# Portugal switched in 1976 from MET (or CET) to WET with DST...
  18819. +# Note also that though there were rules for switch dates not
  18820. +# all countries abided to these dates, and many individual deviations
  18821. +# occurred, though not since 1982 I believe.  Another note: it is always
  18822. +# assumed that DST is 1 hour ahead of normal time, this need not be the
  18823. +# case; at least in the Netherlands there have been times when DST was 2 hours
  18824. +# in advance of normal time.
  18825. +# 
  18826. +# ...
  18827. +# dik t. winter, cwi, amsterdam, nederland
  18828. +# INTERNET   : dik@cwi.nl
  18829. +# BITNET/EARN: dik@mcvax
  18830. +
  18831. +# From Bob Devine (January 28, 1988):
  18832. +# ...
  18833. +# Greece: Last Sunday in April to last Sunday in September (iffy on dates).
  18834. +# Since 1978.  Change at midnight.
  18835. +# ...
  18836. +# Monaco: has same DST as France.
  18837. +# ...
  18838. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/factory amiga/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/factory
  18839. --- baseline/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/factory    Wed Dec 31 17:00:00 1969
  18840. +++ amiga/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/factory    Sat Sep 28 00:00:00 1996
  18841. @@ -0,0 +1,8 @@
  18842. +# @(#)factory    1.1
  18843. +
  18844. +# For companies who don't want to put time zone specification in
  18845. +# their installation procedures.  When users run date, they'll get the message.
  18846. +# Also useful for the "comp.sources" version.
  18847. +
  18848. +# Zone    NAME    GMTOFF    RULES    FORMAT
  18849. +Zone    Factory    0    - "Local time zone must be set--see zic manual page"
  18850. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/leapseconds amiga/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/leapseconds
  18851. --- baseline/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/leapseconds    Wed Dec 31 17:00:00 1969
  18852. +++ amiga/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/leapseconds    Sat Sep 28 00:00:00 1996
  18853. @@ -0,0 +1,28 @@
  18854. +# @(#)leapseconds    4.1
  18855. +
  18856. +# Allowance for leapseconds added to each timezone file.
  18857. +
  18858. +# The correction (+ or -) is made at the given time, so lines
  18859. +# will typically look like:
  18860. +#    Leap    YEAR    MON    DAY    23:59:60    +    R/S
  18861. +# or
  18862. +#    Leap    YEAR    MON    DAY    23:59:59    -    R/S
  18863. +
  18864. +# If the leapsecond is Rolling (R) the given time is local time
  18865. +# If the leapsecond is Stationary (S) the given time is GMT
  18866. +
  18867. +# Leap    YEAR    MONTH    DAY    HH:MM:SS    CORR    R/S
  18868. +Leap    1972    Jun    30    23:59:60    +    S
  18869. +Leap    1972    Dec    31    23:59:60    +    S
  18870. +Leap    1973    Dec    31    23:59:60    +    S
  18871. +Leap    1974    Dec    31    23:59:60    +    S
  18872. +Leap    1975    Dec    31    23:59:60    +    S
  18873. +Leap    1976    Dec    31    23:59:60    +    S
  18874. +Leap    1977    Dec    31    23:59:60    +    S
  18875. +Leap    1978    Dec    31    23:59:60    +    S
  18876. +Leap    1979    Dec    31    23:59:60    +    S
  18877. +Leap    1981    Jun    30    23:59:60    +    S
  18878. +Leap    1982    Jun    30    23:59:60    +    S
  18879. +Leap    1983    Jun    30    23:59:60    +    S
  18880. +Leap    1985    Jun    30    23:59:60    +    S
  18881. +Leap    1987    Dec    31    23:59:60    +    S
  18882. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/northamerica amiga/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/northamerica
  18883. --- baseline/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/northamerica    Wed Dec 31 17:00:00 1969
  18884. +++ amiga/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/northamerica    Sat Sep 28 00:00:00 1996
  18885. @@ -0,0 +1,321 @@
  18886. +# @(#)northamerica    4.8
  18887. +
  18888. +###############################################################################
  18889. +
  18890. +# United States
  18891. +
  18892. +# From Arthur David Olson:
  18893. +# US Daylight Saving Time ended on the last Sunday of *October* in 1974.
  18894. +# See, for example, the front page of the Saturday, October 26, 1974
  18895. +# and Sunday, October 27, 1974 editions of the Washington Post.
  18896. +
  18897. +# From seismo!munnari!kre:
  18898. +# I recall also being told by someone once that Canada didn't have
  18899. +# the DST variations in 74/75 that the US did, but I am not nearly
  18900. +# sure enough of this to add anything.
  18901. +
  18902. +# From Arthur David Olson:
  18903. +# The above has been confirmed by Bob Devine; we'll go with it here.
  18904. +
  18905. +# From Arthur David Olson:
  18906. +# Before the Uniform Time Act of 1966 took effect in 1967, observance of
  18907. +# Daylight Saving Time in the US was by local option, except during wartime.
  18908. +
  18909. +# Rule    NAME    FROM    TO    TYPE    IN    ON    AT    SAVE    LETTER/S
  18910. +Rule    US    1918    1919    -    Mar    lastSun    2:00    1:00    D
  18911. +Rule    US    1918    1919    -    Oct    lastSun    2:00    0    S
  18912. +Rule    US    1942    only    -    Feb    9    2:00    1:00    W # War
  18913. +Rule    US    1945    only    -    Sep    30    2:00    0    S
  18914. +Rule    US    1967    max    -    Oct    lastSun    2:00    0    S
  18915. +Rule    US    1967    1973    -    Apr    lastSun    2:00    1:00    D
  18916. +Rule    US    1974    only    -    Jan    6    2:00    1:00    D
  18917. +Rule    US    1975    only    -    Feb    23    2:00    1:00    D
  18918. +Rule    US    1976    1986    -    Apr    lastSun    2:00    1:00    D
  18919. +Rule    US    1987    max    -    Apr    Sun>=1    2:00    1:00    D
  18920. +
  18921. +# From Bob Devine (January 28, 1988):
  18922. +# ...Alaska (and Hawaii) had the timezone names changed in 1967.
  18923. +#    old                         new
  18924. +#    Pacific Standard Time(PST)  -same-
  18925. +#    Yukon Standard Time(YST)    -same-
  18926. +#    Central Alaska S.T. (CAT)   Alaska-Hawaii St[an]dard Time (AHST)
  18927. +#    Nome Standard Time (NT)     Bering Standard Time (BST)
  18928. +# 
  18929. +# ...Alaska's timezone lines were redrawn in 1983 to give only 2 tz.
  18930. +#    The YST zone now covers nearly all of the state, AHST just part
  18931. +#    of the Aleutian islands.   No DST.
  18932. +
  18933. +# From U. S. Naval Observatory (January 19, 1989):
  18934. +# USA  EASTERN       5 H  BEHIND UTC    NEW YORK, WASHINGTON
  18935. +# USA  EASTERN       4 H  BEHIND UTC    APR 3 - OCT 30
  18936. +# USA  CENTRAL       6 H  BEHIND UTC    CHICAGO, HOUSTON
  18937. +# USA  CENTRAL       5 H  BEHIND UTC    APR 3 - OCT 30
  18938. +# USA  MOUNTAIN      7 H  BEHIND UTC    DENVER
  18939. +# USA  MOUNTAIN      6 H  BEHIND UTC    APR 3 - OCT 30
  18940. +# USA  PACIFIC       8 H  BEHIND UTC    L.A., SAN FRANCISCO
  18941. +# USA  PACIFIC       7 H  BEHIND UTC    APR 3 - OCT 30
  18942. +# USA  ALASKA STD    9 H  BEHIND UTC    MOST OF ALASKA     (AKST)
  18943. +# USA  ALASKA STD    8 H  BEHIND UTC    APR 3 - OCT 30 (AKDT)
  18944. +# USA  ALEUTIAN     10 H  BEHIND UTC    ISLANDS WEST OF 170W
  18945. +# USA  - " -         9 H  BEHIND UTC    APR 3 - OCT 30
  18946. +# USA  HAWAII       10 H  BEHIND UTC
  18947. +# USA  BERING       11 H  BEHIND UTC    SAMOA, MIDWAY
  18948. +
  18949. +# From Arthur David Olson (January 21, 1989):
  18950. +# The above dates are for 1988.
  18951. +# Note the "AKST" and "AKDT" abbreviations, the claim that there's
  18952. +# no DST in Samoa, and the claim that there is DST in Alaska and the
  18953. +# Aleutians.
  18954. +
  18955. +# From Arthur David Olson (February 13, 1988):
  18956. +# Legal standard time zone names, from United States Code (1982 Edition and
  18957. +# Supplement III), Title 15, Chapter 6, Section 260 and forward.  First, names
  18958. +# up to April 1, 1967 (when most provisions of the Uniform Time Act of 1966
  18959. +# took effect), as explained in sections 263 and 261:
  18960. +#    (none)
  18961. +#    United States standard eastern time
  18962. +#    United States standard mountain time
  18963. +#    United States standard central time
  18964. +#    United States standard Pacific time
  18965. +#    (none)
  18966. +#    United States standard Alaska time
  18967. +#    (none)
  18968. +# Next, names from April 1, 1967 until November 30, 1983 (the date for
  18969. +# public law 98-181):
  18970. +#    Atlantic standard time
  18971. +#    eastern standard time
  18972. +#    central standard time
  18973. +#    mountain standard time
  18974. +#    Pacific standard time
  18975. +#    Yukon standard time
  18976. +#    Alaska-Hawaii standard time
  18977. +#    Bering standard time
  18978. +# And after November 30, 1983:
  18979. +#    Atlantic standard time
  18980. +#    eastern standard time
  18981. +#    central standard time
  18982. +#    mountain standard time
  18983. +#    Pacific standard time
  18984. +#    Alaska standard time
  18985. +#    Hawaii-Aleutian standard time
  18986. +#    Samoa standard time
  18987. +# The law doesn't give abbreviations.
  18988. +
  18989. +# Easy stuff first--including Alaska, where we ignore history (since we
  18990. +# can't tell if we should give Yukon time or Alaska-Hawaii time for "old"
  18991. +# times).
  18992. +
  18993. +# Zone    NAME        GMTOFF    RULES/SAVE    FORMAT    [UNTIL]
  18994. +Zone    US/Eastern    -5:00    US        E%sT
  18995. +Zone    US/Central    -6:00    US        C%sT
  18996. +Zone    US/Mountain    -7:00    US        M%sT
  18997. +Zone    US/Pacific    -8:00    US        P%sT
  18998. +Zone    US/Alaska    -9:00    US        AK%sT    # Abbreviation per USNO
  18999. +
  19000. +# Mainland US areas that are always Standard as of 1986.
  19001. +
  19002. +Zone    US/East-Indiana    -5:00    US        E%sT    1946
  19003. +            -5:00    -        EST    # Always EST as of 1986
  19004. +Zone    US/Arizona    -7:00    US        M%sT    1946
  19005. +            -7:00    -        MST    # Always MST as of 1986
  19006. +
  19007. +# From Arthur David Olson (February 13, 1988):
  19008. +# However. . .a writer from the Inter Tribal Council of Arizona, Inc.,
  19009. +# notes in private correspondence dated 12/28/87 that "Presently, only the
  19010. +# Navajo Nation participates in the Daylight Saving Time policy, due to its
  19011. +# large size and location in three states."  (The "only" means that other
  19012. +# tribal nations don't use DST.)
  19013. +
  19014. +Link    US/Mountain    Navajo
  19015. +
  19016. +# From Bob Devine (January 28, 1988):
  19017. +# Michigan didn't observe DST from 1968 to 1973.
  19018. +
  19019. +Zone    US/Michigan    -5:00    US        E%sT    1968
  19020. +            -5:00    -        EST    1973
  19021. +            -5:00    US        E%sT
  19022. +
  19023. +# Samoa just changes names.  No DST, per Naval Observatory.
  19024. +
  19025. +Zone    US/Samoa    -11:00    -        NST    1967 Apr 1  # N=Nome
  19026. +            -11:00    -        BST    1983 Nov 30 # B=Bering
  19027. +            -11:00    -        SST            # S=Samoa
  19028. +
  19029. +# Aleutian has a name change.  DST, per Naval Observatory.
  19030. +
  19031. +Zone    US/Aleutian    -10:00    US        AH%sT    1983 Nov 30
  19032. +            -10:00    US        HA%sT
  19033. +
  19034. +# From Arthur David Olson:
  19035. +# And then there's Hawaii.
  19036. +# DST was observed for one day in 1933;
  19037. +# Standard time was change by half an hour in 1947;
  19038. +# it's always standard as of 1986.
  19039. +
  19040. +Zone    US/Hawaii    -10:30    US    H%sT    1933 Apr 30 2:00
  19041. +            -10:30    1:00    HDT    1933 May 1 2:00
  19042. +            -10:30    US    H%sT    1947 Jun 8 2:00
  19043. +            -10:00    -    HST
  19044. +
  19045. +# Old names, for S5 users
  19046. +
  19047. +# Link    LINK-FROM    LINK-TO
  19048. +# Link    US/Eastern    EST5EDT
  19049. +# Link    US/Central    CST6CDT
  19050. +# Link    US/Mountain    MST7MDT
  19051. +# Link    US/Pacific    PST8PDT
  19052. +# Link    US/East-Indiana    EST
  19053. +# Link    US/Arizona    MST
  19054. +# Link    US/Hawaii    HST
  19055. +
  19056. +################################################################################
  19057. +
  19058. +# Canada
  19059. +
  19060. +# Canada is reportedly lots easier than the US--leastways since 1951.
  19061. +# I don't know what they did before then.
  19062. +# 4.3BSD claims that it's perfectly regular.
  19063. +# According to a posting in "comp.bugs.misc", "comp.unix.wizards", etc.
  19064. +# on February 8, 1987, by Dave Sherman of the Law Society of Upper Canada,
  19065. +# "...Canada (well, Ontario and at least some of the other provinces) are
  19066. +# adopting the new daylight savings time rules...".  We assume all of
  19067. +# Canada is doing so.
  19068. +
  19069. +# From Bob Devine (January 28, 1988):
  19070. +# All of Canada did have DST from your first rule except Saskatchewan.
  19071. +# Which parts did not observe DST is hard to pinpoint but most of the
  19072. +# province follows the rules.
  19073. +# NOTE: those that didn't have DST for that rule, also
  19074. +# probably did not have it for several years previous.
  19075. +
  19076. +# From U. S. Naval Observatory (January 19, 1989):
  19077. +# CANADA   NEW FDL    3.5H BEHIND UTC    ST.JOHN'S
  19078. +# CANADA   NEW FDL    1.5H BEHIND UTC    APR 3 - OCT 29
  19079. +# CANADA   ATLANTIC   4 H  BEHIND UTC    HALIFAX
  19080. +# CANADA   ATLANTIC   3 H  BEHIND UTC    APR 3 - OCT 29
  19081. +# CANADA   EASTERN    5 H  BEHIND UTC    TORONTO, MONTREAL, OTTAWA
  19082. +# CANADA   EASTERN    4 H  BEHIND UTC    APR 3 - OCT 29
  19083. +# CANADA   CENTRAL    6 H  BEHIND UTC    REGINA, WINNIPEG
  19084. +# CANADA   CENTRAL    5 H  BEHIND UTC    APR 3 - OCT 29
  19085. +# CANADA   MOUNTAIN   7 H  BEHIND UTC    CALGARY, EDMONTON
  19086. +# CANADA   MOUNTAIN   6 H  BEHIND UTC    APR 3 - OCT 29
  19087. +# CANADA   PACIFIC    8 H  BEHIND UTC    VANCOUVER
  19088. +# CANADA   PACIFIC    7 H  BEHIND UTC    APR 3 - OCT 29
  19089. +# CANADA   YUKON      SAME AS PACIFIC    DAWSON
  19090. +
  19091. +# From Arthur David Olson (January 21, 1989):
  19092. +# April 3 fell on a Sunday in 1988; October 29 fell on a Sunday in 1989.  Ahem.
  19093. +# Note claim that there's double DST in Newfoundland and that Yukon should
  19094. +# be same as Pacific.  Stick with rules posted in 1988 until more authoritative
  19095. +# information is available.
  19096. +
  19097. +# Rule    NAME    FROM    TO    TYPE    IN    ON    AT    SAVE    LETTER/S
  19098. +Rule    Canada    1969    max    -    Oct    lastSun    2:00    0    S
  19099. +Rule    Canada    1969    1986    -    Apr    lastSun    2:00    1:00    D
  19100. +Rule    Canada    1987    max    -    Apr    Sun>=1    2:00    1:00    D
  19101. +
  19102. +# Zone    NAME            GMTOFF    RULES/SAVE    FORMAT    [UNTIL]
  19103. +# Bob Devine says that DST *is* observed in Newfoundland
  19104. +Zone    Canada/Newfoundland    -3:30    Canada        N%sT
  19105. +Zone    Canada/Atlantic        -4:00    Canada        A%sT
  19106. +Zone    Canada/Eastern        -5:00    Canada        E%sT
  19107. +Zone    Canada/Central        -6:00    Canada        C%sT
  19108. +Zone    Canada/East-Saskatchewan    -6:00    -    CST # No DST as of 1987
  19109. +Zone    Canada/Mountain        -7:00    Canada        M%sT
  19110. +Zone    Canada/Pacific        -8:00    Canada        P%sT
  19111. +Zone    Canada/Yukon        -9:00    Canada        Y%sT
  19112. +
  19113. +###############################################################################
  19114. +
  19115. +# Mexico
  19116. +
  19117. +# From Guy Harris:
  19118. +# Rules are from the Official Airline Guide, Worldwide Edition, for 1987.
  19119. +# Rules prior to 1987 are unknown.
  19120. +# The comments in the OAG say "Only Ensenada, Mexicale, San Felipe and Tijuana
  19121. +# observe DST."  This is presumably Baja California Norte, above 28th parallel,
  19122. +# as listed there; Mexico/BajaSur is for "Baja California Sur and N. Pacific
  19123. +# Coast (States of Sinaloa and Sonora)."
  19124. +
  19125. +# From Bob Devine (January 28, 1988):
  19126. +# The Federal District (where Mexico City is) has observed [DST] several
  19127. +# times but not recently.
  19128. +# 
  19129. +# I don't where to drawn the line in the North Baja area.  28th latitude
  19130. +# sounds good -- but it may be higher (how far [d]o radio stations from
  19131. +# San Diego affect culture?).
  19132. +# 
  19133. +# The dates of DST probably go back to 1981.  The rules are the same as
  19134. +# US's.  This is going to be a headache for US presidential electi[o]n years!
  19135. +
  19136. +# From Arthur David Olson (February 13, 1988)
  19137. +# Since the 1981 starting date is only "probable," we'll keep the 1987
  19138. +# starting date below.
  19139. +
  19140. +# From U. S. Naval Observatory (January 19, 1989):
  19141. +# MEXICO BAJA CAL N   7 H  BEHIND UTC    BAJA CALIFORNIA SUR AND
  19142. +# MEXICO BAJA CAL N                      N. PACIFIC COAST (STATES
  19143. +# MEXICO BAJA CAL N                      OF SINALOA AND SONORA)
  19144. +# MEXICO BAJA CAL N   8 H  BEHIND UTC    ABOVE 28TH PARALLAL APR 3
  19145. +# MEXICO BAJA CAL N                      - OCT 29
  19146. +# MEXICO BAJA CAL N   7 H  BEHIND UTC    ABOVE 28TH PARALLAL APR 3
  19147. +# MEXICO BAJA CAL N                      - 0CT 29
  19148. +# MEXICO              6 H  BEHIND UTC    STATES OF DURANGO,
  19149. +# MEXICO                                 COAHUILA, NUEVO LEON,
  19150. +# MEXICO                                 TAMAULIPAS
  19151. +# MEXICO              5 H  BEHIND UTC    STATES OF DURANGO,
  19152. +# MEXICO                                 COAHUILA, NUEVO LEON,
  19153. +# MEXICO                                 TAMAULIPAS  APR 3 - OCT 29
  19154. +# MEXICO              6 H  BEHIND UTC    GENERAL MEXICO, STATES OF
  19155. +# MEXICO                                 CAMPECHE, QUINTANA ROO AND
  19156. +# MEXICO                                 YUCATAN
  19157. +
  19158. +# From Arthur David Olson (January 21, 1989):
  19159. +# April 3 fell on a Sunday in 1988; October 29 fell on a Sunday in 1989.  Ahem.
  19160. +# USNO claims there should be four Mexican zones rather than three:
  19161. +# a zone that's GMT-8 with DST; a zone that's always GMT-7;
  19162. +# a zone that's GMT-6 with DST; and a zone that's always GMT-6.
  19163. +# Wait for more authoritative information before changing.
  19164. +
  19165. +# Rule    NAME    FROM    TO    TYPE    IN    ON    AT    SAVE    LETTER/S
  19166. +Rule    Mexico    1987    max    -    Oct    lastSun    2:00    0    S
  19167. +Rule    Mexico    1987    max    -    Apr    Sun>=1    2:00    1:00    D
  19168. +
  19169. +# Zone    NAME            GMTOFF    RULES/SAVE    FORMAT    [UNTIL]
  19170. +Zone    Mexico/BajaNorte    -8:00    Mexico        P%sT
  19171. +Zone    Mexico/BajaSur        -7:00    -        MST
  19172. +Zone    Mexico/General        -6:00    -        CST
  19173. +
  19174. +###############################################################################
  19175. +
  19176. +# Jamaica
  19177. +
  19178. +# From Bob Devine (January 28, 1988):
  19179. +# Follows US rules.
  19180. +
  19181. +# From U. S. Naval Observatory (January 19, 1989):
  19182. +# JAMAICA             5 H  BEHIND UTC
  19183. +
  19184. +Link    US/Eastern    Jamaica
  19185. +
  19186. +###############################################################################
  19187. +
  19188. +# Cuba
  19189. +
  19190. +# From Bob Devine (January 28, 1988):
  19191. +# . . .DST is from 2nd Sunday in May to 2nd Sunday in October since 1981.
  19192. +# Change at midnight.  In 1979 & 1980, started at 3rd Sunday in March
  19193. +# (I think).
  19194. +
  19195. +# From U. S. Naval Observatory (January 19, 1989):
  19196. +# CUBA                5 H  BEHIND UTC
  19197. +# CUBA                4 H  BEHIND UTC    MAR 20 - OCT 8
  19198. +
  19199. +# Rule    NAME    FROM    TO    TYPE    IN    ON    AT    SAVE    LETTER/S
  19200. +Rule    Cuba    1979    1980    -    Mar    Sun>=15    0:00    1:00    D
  19201. +Rule    Cuba    1979    1980    -    Oct    Sun>=8    0:00    0    S
  19202. +Rule    Cuba    1981    max    -    May    Sun>=8    0:00    1:00    D
  19203. +Rule    Cuba    1981    max    -    Oct    Sun>=8    0:00    0    S
  19204. +
  19205. +# Zone    NAME            GMTOFF    RULES/SAVE    FORMAT
  19206. +Zone    Cuba            -5:00    Cuba        C%sT
  19207. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/pacificnew amiga/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/pacificnew
  19208. --- baseline/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/pacificnew    Wed Dec 31 17:00:00 1969
  19209. +++ amiga/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/pacificnew    Sat Sep 28 00:00:00 1996
  19210. @@ -0,0 +1,21 @@
  19211. +# @(#)pacificnew    4.4
  19212. +
  19213. +# From Arthur David Olson (January 18, 1989):
  19214. +# On November 10, 1987, the U. S. House of Representatives passed a bill
  19215. +# (H.R. 435), the "Uniform Poll Closing Time Act", establishing
  19216. +# "Pacific Presidential Election Time"; it was not acted on by the Senate
  19217. +# before the end of the 100th Congress and so died.
  19218. +# The bill has been reintroduced in the 101st Congress as H. R. 18;
  19219. +# H. R. 96 also deals with poll closing time.  Either bill would have to be
  19220. +# passed by both the House and Senate and signed by the President (or have
  19221. +# the President's veto overridden by the House and Senate) before becoming law.
  19222. +
  19223. +# Rule    NAME    FROM    TO    TYPE    IN    ON    AT    SAVE    LETTER/S
  19224. +Rule    Twilite    1989    max    -    Apr    Sun>=1    2:00    1:00    D
  19225. +Rule    Twilite    1989    max    uspres    Oct    lastSun    2:00    1:00    PE
  19226. +Rule    Twilite    1989    max    uspres    Nov    Sun>=7    2:00    0    S
  19227. +Rule    Twilite    1989    max    nonpres    Oct    lastSun    2:00    0    S
  19228. +
  19229. +# Zone    NAME        GMTOFF    RULES/SAVE    FORMAT    [UNTIL]
  19230. +Zone    US/Pacific-New    -8:00    US        P%sT    1989
  19231. +            -8:00    Twilite        P%sT
  19232. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/smakefile amiga/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/smakefile
  19233. --- baseline/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/smakefile    Wed Dec 31 17:00:00 1969
  19234. +++ amiga/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/smakefile    Sat Sep 28 00:00:00 1996
  19235. @@ -0,0 +1,67 @@
  19236. +#    @(#)Makefile    5.9 (Berkeley) 2/28/91
  19237. +
  19238. +# Change the line below for your time zone (after finding the zone you want in
  19239. +# the time zone files, or adding it to a time zone file).
  19240. +# Alternately, if you discover you've got the wrong time zone, you can just
  19241. +#    zic -l rightzone
  19242. +
  19243. +LOCALTIME=    MET
  19244. +
  19245. +# If you want something other than Eastern United States time as a template
  19246. +# for handling POSIX-style time zone environment variables,
  19247. +# change the line below (after finding the zone you want in the
  19248. +# time zone files, or adding it to a time zone file).
  19249. +# Alternately, if you discover you've got the wrong time zone, you can just
  19250. +#    zic -p rightzone
  19251. +
  19252. +POSIXRULES=    MET
  19253. +
  19254. +# Use an absolute path name for TZDIR unless you're just testing the software.
  19255. +
  19256. +TZDIR=    s:zoneinfo
  19257. +
  19258. +# If you always want time values interpreted as "seconds since the epoch
  19259. +# (not counting leap seconds)", use
  19260. +#     REDO=        posix_only
  19261. +# below.  If you always want right time values interpreted as "seconds since
  19262. +# the epoch" (counting leap seconds)", use
  19263. +#    REDO=        right_only
  19264. +# below.  If you want both sets of data available, with leap seconds not
  19265. +# counted normally, use
  19266. +#    REDO=        posix_right
  19267. +# below.  If you want both sets of data available, with leap seconds counted
  19268. +# normally, use
  19269. +#    REDO=        right_posix
  19270. +# below.
  19271. +
  19272. +# This should be left as is for the Amiga
  19273. +
  19274. +REDO=        posix_only
  19275. +
  19276. +YDATA=    africa antarctica asia australasia europe northamerica \
  19277. +    southamerica pacificnew etcetera factory
  19278. +NDATA=    systemv
  19279. +#SDATA=    solar87 solar88 solar89
  19280. +TDATA=    ${YDATA} ${NDATA} ${SDATA}
  19281. +DATA=    ${YDATA} ${NDATA} ${SDATA} leapseconds
  19282. +USNO=    usno1988 usno1989
  19283. +
  19284. +all: $(REDO)
  19285. +
  19286. +posix_only: ${TDATA}
  19287. +        /zic -d ${TZDIR} -L nil: ${TDATA}
  19288. +
  19289. +right_only: leapseconds ${TDATA}
  19290. +        /zic -d ${TZDIR} -L leapseconds ${TDATA}
  19291. +
  19292. +other_two: leapseconds ${TDATA}
  19293. +        /zic -d ${TZDIR} -L leapseconds ${TDATA}
  19294. +        /zic -d ${TZDIR} -L nil: ${TDATA}
  19295. +
  19296. +posix_right: posix_only other_two
  19297. +
  19298. +right_posix: right_only other_two
  19299. +
  19300. +install: ${TDATA} ${REDO}
  19301. +    /zic -d ${TZDIR} -p ${POSIXRULES}
  19302. +    /zic -d ${TZDIR} -l ${LOCALTIME}
  19303. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/solar87 amiga/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/solar87
  19304. --- baseline/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/solar87    Wed Dec 31 17:00:00 1969
  19305. +++ amiga/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/solar87    Sat Sep 28 00:00:00 1996
  19306. @@ -0,0 +1,386 @@
  19307. +# @(#)solar87    4.1
  19308. +
  19309. +# So much for footnotes about Saudi Arabia.
  19310. +# Apparent noon times below are for Riyadh; your mileage will vary.
  19311. +# Times were computed using formulas in the U.S. Naval Observatory's
  19312. +# Almanac for Computers 1987; the formulas "will give EqT to an accuracy of
  19313. +# [plus or minus two] seconds during the current year."
  19314. +#
  19315. +# Rounding to the nearest five seconds results in fewer than
  19316. +# 256 different "time types"--a limit that's faced because time types are
  19317. +# stored on disk as unsigned chars.
  19318. +
  19319. +# Rule    NAME    FROM    TO    TYPE    IN    ON    AT    SAVE    LETTER/S
  19320. +Rule    sol87    1987    only    -    Jan    1    12:03:20s -0:03:20 -
  19321. +Rule    sol87    1987    only    -    Jan    2    12:03:50s -0:03:50 -
  19322. +Rule    sol87    1987    only    -    Jan    3    12:04:15s -0:04:15 -
  19323. +Rule    sol87    1987    only    -    Jan    4    12:04:45s -0:04:45 -
  19324. +Rule    sol87    1987    only    -    Jan    5    12:05:10s -0:05:10 -
  19325. +Rule    sol87    1987    only    -    Jan    6    12:05:40s -0:05:40 -
  19326. +Rule    sol87    1987    only    -    Jan    7    12:06:05s -0:06:05 -
  19327. +Rule    sol87    1987    only    -    Jan    8    12:06:30s -0:06:30 -
  19328. +Rule    sol87    1987    only    -    Jan    9    12:06:55s -0:06:55 -
  19329. +Rule    sol87    1987    only    -    Jan    10    12:07:20s -0:07:20 -
  19330. +Rule    sol87    1987    only    -    Jan    11    12:07:45s -0:07:45 -
  19331. +Rule    sol87    1987    only    -    Jan    12    12:08:10s -0:08:10 -
  19332. +Rule    sol87    1987    only    -    Jan    13    12:08:30s -0:08:30 -
  19333. +Rule    sol87    1987    only    -    Jan    14    12:08:55s -0:08:55 -
  19334. +Rule    sol87    1987    only    -    Jan    15    12:09:15s -0:09:15 -
  19335. +Rule    sol87    1987    only    -    Jan    16    12:09:35s -0:09:35 -
  19336. +Rule    sol87    1987    only    -    Jan    17    12:09:55s -0:09:55 -
  19337. +Rule    sol87    1987    only    -    Jan    18    12:10:15s -0:10:15 -
  19338. +Rule    sol87    1987    only    -    Jan    19    12:10:35s -0:10:35 -
  19339. +Rule    sol87    1987    only    -    Jan    20    12:10:55s -0:10:55 -
  19340. +Rule    sol87    1987    only    -    Jan    21    12:11:10s -0:11:10 -
  19341. +Rule    sol87    1987    only    -    Jan    22    12:11:30s -0:11:30 -
  19342. +Rule    sol87    1987    only    -    Jan    23    12:11:45s -0:11:45 -
  19343. +Rule    sol87    1987    only    -    Jan    24    12:12:00s -0:12:00 -
  19344. +Rule    sol87    1987    only    -    Jan    25    12:12:15s -0:12:15 -
  19345. +Rule    sol87    1987    only    -    Jan    26    12:12:30s -0:12:30 -
  19346. +Rule    sol87    1987    only    -    Jan    27    12:12:40s -0:12:40 -
  19347. +Rule    sol87    1987    only    -    Jan    28    12:12:55s -0:12:55 -
  19348. +Rule    sol87    1987    only    -    Jan    29    12:13:05s -0:13:05 -
  19349. +Rule    sol87    1987    only    -    Jan    30    12:13:15s -0:13:15 -
  19350. +Rule    sol87    1987    only    -    Jan    31    12:13:25s -0:13:25 -
  19351. +Rule    sol87    1987    only    -    Feb    1    12:13:35s -0:13:35 -
  19352. +Rule    sol87    1987    only    -    Feb    2    12:13:40s -0:13:40 -
  19353. +Rule    sol87    1987    only    -    Feb    3    12:13:50s -0:13:50 -
  19354. +Rule    sol87    1987    only    -    Feb    4    12:13:55s -0:13:55 -
  19355. +Rule    sol87    1987    only    -    Feb    5    12:14:00s -0:14:00 -
  19356. +Rule    sol87    1987    only    -    Feb    6    12:14:05s -0:14:05 -
  19357. +Rule    sol87    1987    only    -    Feb    7    12:14:10s -0:14:10 -
  19358. +Rule    sol87    1987    only    -    Feb    8    12:14:10s -0:14:10 -
  19359. +Rule    sol87    1987    only    -    Feb    9    12:14:15s -0:14:15 -
  19360. +Rule    sol87    1987    only    -    Feb    10    12:14:15s -0:14:15 -
  19361. +Rule    sol87    1987    only    -    Feb    11    12:14:15s -0:14:15 -
  19362. +Rule    sol87    1987    only    -    Feb    12    12:14:15s -0:14:15 -
  19363. +Rule    sol87    1987    only    -    Feb    13    12:14:15s -0:14:15 -
  19364. +Rule    sol87    1987    only    -    Feb    14    12:14:15s -0:14:15 -
  19365. +Rule    sol87    1987    only    -    Feb    15    12:14:10s -0:14:10 -
  19366. +Rule    sol87    1987    only    -    Feb    16    12:14:10s -0:14:10 -
  19367. +Rule    sol87    1987    only    -    Feb    17    12:14:05s -0:14:05 -
  19368. +Rule    sol87    1987    only    -    Feb    18    12:14:00s -0:14:00 -
  19369. +Rule    sol87    1987    only    -    Feb    19    12:13:55s -0:13:55 -
  19370. +Rule    sol87    1987    only    -    Feb    20    12:13:50s -0:13:50 -
  19371. +Rule    sol87    1987    only    -    Feb    21    12:13:45s -0:13:45 -
  19372. +Rule    sol87    1987    only    -    Feb    22    12:13:35s -0:13:35 -
  19373. +Rule    sol87    1987    only    -    Feb    23    12:13:30s -0:13:30 -
  19374. +Rule    sol87    1987    only    -    Feb    24    12:13:20s -0:13:20 -
  19375. +Rule    sol87    1987    only    -    Feb    25    12:13:10s -0:13:10 -
  19376. +Rule    sol87    1987    only    -    Feb    26    12:13:00s -0:13:00 -
  19377. +Rule    sol87    1987    only    -    Feb    27    12:12:50s -0:12:50 -
  19378. +Rule    sol87    1987    only    -    Feb    28    12:12:40s -0:12:40 -
  19379. +Rule    sol87    1987    only    -    Mar    1    12:12:30s -0:12:30 -
  19380. +Rule    sol87    1987    only    -    Mar    2    12:12:20s -0:12:20 -
  19381. +Rule    sol87    1987    only    -    Mar    3    12:12:05s -0:12:05 -
  19382. +Rule    sol87    1987    only    -    Mar    4    12:11:55s -0:11:55 -
  19383. +Rule    sol87    1987    only    -    Mar    5    12:11:40s -0:11:40 -
  19384. +Rule    sol87    1987    only    -    Mar    6    12:11:25s -0:11:25 -
  19385. +Rule    sol87    1987    only    -    Mar    7    12:11:15s -0:11:15 -
  19386. +Rule    sol87    1987    only    -    Mar    8    12:11:00s -0:11:00 -
  19387. +Rule    sol87    1987    only    -    Mar    9    12:10:45s -0:10:45 -
  19388. +Rule    sol87    1987    only    -    Mar    10    12:10:30s -0:10:30 -
  19389. +Rule    sol87    1987    only    -    Mar    11    12:10:15s -0:10:15 -
  19390. +Rule    sol87    1987    only    -    Mar    12    12:09:55s -0:09:55 -
  19391. +Rule    sol87    1987    only    -    Mar    13    12:09:40s -0:09:40 -
  19392. +Rule    sol87    1987    only    -    Mar    14    12:09:25s -0:09:25 -
  19393. +Rule    sol87    1987    only    -    Mar    15    12:09:10s -0:09:10 -
  19394. +Rule    sol87    1987    only    -    Mar    16    12:08:50s -0:08:50 -
  19395. +Rule    sol87    1987    only    -    Mar    17    12:08:35s -0:08:35 -
  19396. +Rule    sol87    1987    only    -    Mar    18    12:08:15s -0:08:15 -
  19397. +Rule    sol87    1987    only    -    Mar    19    12:08:00s -0:08:00 -
  19398. +Rule    sol87    1987    only    -    Mar    20    12:07:40s -0:07:40 -
  19399. +Rule    sol87    1987    only    -    Mar    21    12:07:25s -0:07:25 -
  19400. +Rule    sol87    1987    only    -    Mar    22    12:07:05s -0:07:05 -
  19401. +Rule    sol87    1987    only    -    Mar    23    12:06:50s -0:06:50 -
  19402. +Rule    sol87    1987    only    -    Mar    24    12:06:30s -0:06:30 -
  19403. +Rule    sol87    1987    only    -    Mar    25    12:06:10s -0:06:10 -
  19404. +Rule    sol87    1987    only    -    Mar    26    12:05:55s -0:05:55 -
  19405. +Rule    sol87    1987    only    -    Mar    27    12:05:35s -0:05:35 -
  19406. +Rule    sol87    1987    only    -    Mar    28    12:05:15s -0:05:15 -
  19407. +Rule    sol87    1987    only    -    Mar    29    12:05:00s -0:05:00 -
  19408. +Rule    sol87    1987    only    -    Mar    30    12:04:40s -0:04:40 -
  19409. +Rule    sol87    1987    only    -    Mar    31    12:04:25s -0:04:25 -
  19410. +Rule    sol87    1987    only    -    Apr    1    12:04:05s -0:04:05 -
  19411. +Rule    sol87    1987    only    -    Apr    2    12:03:45s -0:03:45 -
  19412. +Rule    sol87    1987    only    -    Apr    3    12:03:30s -0:03:30 -
  19413. +Rule    sol87    1987    only    -    Apr    4    12:03:10s -0:03:10 -
  19414. +Rule    sol87    1987    only    -    Apr    5    12:02:55s -0:02:55 -
  19415. +Rule    sol87    1987    only    -    Apr    6    12:02:35s -0:02:35 -
  19416. +Rule    sol87    1987    only    -    Apr    7    12:02:20s -0:02:20 -
  19417. +Rule    sol87    1987    only    -    Apr    8    12:02:05s -0:02:05 -
  19418. +Rule    sol87    1987    only    -    Apr    9    12:01:45s -0:01:45 -
  19419. +Rule    sol87    1987    only    -    Apr    10    12:01:30s -0:01:30 -
  19420. +Rule    sol87    1987    only    -    Apr    11    12:01:15s -0:01:15 -
  19421. +Rule    sol87    1987    only    -    Apr    12    12:00:55s -0:00:55 -
  19422. +Rule    sol87    1987    only    -    Apr    13    12:00:40s -0:00:40 -
  19423. +Rule    sol87    1987    only    -    Apr    14    12:00:25s -0:00:25 -
  19424. +Rule    sol87    1987    only    -    Apr    15    12:00:10s -0:00:10 -
  19425. +Rule    sol87    1987    only    -    Apr    16    11:59:55s 0:00:05 -
  19426. +Rule    sol87    1987    only    -    Apr    17    11:59:45s 0:00:15 -
  19427. +Rule    sol87    1987    only    -    Apr    18    11:59:30s 0:00:30 -
  19428. +Rule    sol87    1987    only    -    Apr    19    11:59:15s 0:00:45 -
  19429. +Rule    sol87    1987    only    -    Apr    20    11:59:05s 0:00:55 -
  19430. +Rule    sol87    1987    only    -    Apr    21    11:58:50s 0:01:10 -
  19431. +Rule    sol87    1987    only    -    Apr    22    11:58:40s 0:01:20 -
  19432. +Rule    sol87    1987    only    -    Apr    23    11:58:25s 0:01:35 -
  19433. +Rule    sol87    1987    only    -    Apr    24    11:58:15s 0:01:45 -
  19434. +Rule    sol87    1987    only    -    Apr    25    11:58:05s 0:01:55 -
  19435. +Rule    sol87    1987    only    -    Apr    26    11:57:55s 0:02:05 -
  19436. +Rule    sol87    1987    only    -    Apr    27    11:57:45s 0:02:15 -
  19437. +Rule    sol87    1987    only    -    Apr    28    11:57:35s 0:02:25 -
  19438. +Rule    sol87    1987    only    -    Apr    29    11:57:25s 0:02:35 -
  19439. +Rule    sol87    1987    only    -    Apr    30    11:57:15s 0:02:45 -
  19440. +Rule    sol87    1987    only    -    May    1    11:57:10s 0:02:50 -
  19441. +Rule    sol87    1987    only    -    May    2    11:57:00s 0:03:00 -
  19442. +Rule    sol87    1987    only    -    May    3    11:56:55s 0:03:05 -
  19443. +Rule    sol87    1987    only    -    May    4    11:56:50s 0:03:10 -
  19444. +Rule    sol87    1987    only    -    May    5    11:56:45s 0:03:15 -
  19445. +Rule    sol87    1987    only    -    May    6    11:56:40s 0:03:20 -
  19446. +Rule    sol87    1987    only    -    May    7    11:56:35s 0:03:25 -
  19447. +Rule    sol87    1987    only    -    May    8    11:56:30s 0:03:30 -
  19448. +Rule    sol87    1987    only    -    May    9    11:56:25s 0:03:35 -
  19449. +Rule    sol87    1987    only    -    May    10    11:56:25s 0:03:35 -
  19450. +Rule    sol87    1987    only    -    May    11    11:56:20s 0:03:40 -
  19451. +Rule    sol87    1987    only    -    May    12    11:56:20s 0:03:40 -
  19452. +Rule    sol87    1987    only    -    May    13    11:56:20s 0:03:40 -
  19453. +Rule    sol87    1987    only    -    May    14    11:56:20s 0:03:40 -
  19454. +Rule    sol87    1987    only    -    May    15    11:56:20s 0:03:40 -
  19455. +Rule    sol87    1987    only    -    May    16    11:56:20s 0:03:40 -
  19456. +Rule    sol87    1987    only    -    May    17    11:56:20s 0:03:40 -
  19457. +Rule    sol87    1987    only    -    May    18    11:56:20s 0:03:40 -
  19458. +Rule    sol87    1987    only    -    May    19    11:56:25s 0:03:35 -
  19459. +Rule    sol87    1987    only    -    May    20    11:56:25s 0:03:35 -
  19460. +Rule    sol87    1987    only    -    May    21    11:56:30s 0:03:30 -
  19461. +Rule    sol87    1987    only    -    May    22    11:56:35s 0:03:25 -
  19462. +Rule    sol87    1987    only    -    May    23    11:56:40s 0:03:20 -
  19463. +Rule    sol87    1987    only    -    May    24    11:56:45s 0:03:15 -
  19464. +Rule    sol87    1987    only    -    May    25    11:56:50s 0:03:10 -
  19465. +Rule    sol87    1987    only    -    May    26    11:56:55s 0:03:05 -
  19466. +Rule    sol87    1987    only    -    May    27    11:57:00s 0:03:00 -
  19467. +Rule    sol87    1987    only    -    May    28    11:57:10s 0:02:50 -
  19468. +Rule    sol87    1987    only    -    May    29    11:57:15s 0:02:45 -
  19469. +Rule    sol87    1987    only    -    May    30    11:57:25s 0:02:35 -
  19470. +Rule    sol87    1987    only    -    May    31    11:57:30s 0:02:30 -
  19471. +Rule    sol87    1987    only    -    Jun    1    11:57:40s 0:02:20 -
  19472. +Rule    sol87    1987    only    -    Jun    2    11:57:50s 0:02:10 -
  19473. +Rule    sol87    1987    only    -    Jun    3    11:58:00s 0:02:00 -
  19474. +Rule    sol87    1987    only    -    Jun    4    11:58:10s 0:01:50 -
  19475. +Rule    sol87    1987    only    -    Jun    5    11:58:20s 0:01:40 -
  19476. +Rule    sol87    1987    only    -    Jun    6    11:58:30s 0:01:30 -
  19477. +Rule    sol87    1987    only    -    Jun    7    11:58:40s 0:01:20 -
  19478. +Rule    sol87    1987    only    -    Jun    8    11:58:50s 0:01:10 -
  19479. +Rule    sol87    1987    only    -    Jun    9    11:59:05s 0:00:55 -
  19480. +Rule    sol87    1987    only    -    Jun    10    11:59:15s 0:00:45 -
  19481. +Rule    sol87    1987    only    -    Jun    11    11:59:30s 0:00:30 -
  19482. +Rule    sol87    1987    only    -    Jun    12    11:59:40s 0:00:20 -
  19483. +Rule    sol87    1987    only    -    Jun    13    11:59:50s 0:00:10 -
  19484. +Rule    sol87    1987    only    -    Jun    14    12:00:05s -0:00:05 -
  19485. +Rule    sol87    1987    only    -    Jun    15    12:00:15s -0:00:15 -
  19486. +Rule    sol87    1987    only    -    Jun    16    12:00:30s -0:00:30 -
  19487. +Rule    sol87    1987    only    -    Jun    17    12:00:45s -0:00:45 -
  19488. +Rule    sol87    1987    only    -    Jun    18    12:00:55s -0:00:55 -
  19489. +Rule    sol87    1987    only    -    Jun    19    12:01:10s -0:01:10 -
  19490. +Rule    sol87    1987    only    -    Jun    20    12:01:20s -0:01:20 -
  19491. +Rule    sol87    1987    only    -    Jun    21    12:01:35s -0:01:35 -
  19492. +Rule    sol87    1987    only    -    Jun    22    12:01:50s -0:01:50 -
  19493. +Rule    sol87    1987    only    -    Jun    23    12:02:00s -0:02:00 -
  19494. +Rule    sol87    1987    only    -    Jun    24    12:02:15s -0:02:15 -
  19495. +Rule    sol87    1987    only    -    Jun    25    12:02:25s -0:02:25 -
  19496. +Rule    sol87    1987    only    -    Jun    26    12:02:40s -0:02:40 -
  19497. +Rule    sol87    1987    only    -    Jun    27    12:02:50s -0:02:50 -
  19498. +Rule    sol87    1987    only    -    Jun    28    12:03:05s -0:03:05 -
  19499. +Rule    sol87    1987    only    -    Jun    29    12:03:15s -0:03:15 -
  19500. +Rule    sol87    1987    only    -    Jun    30    12:03:30s -0:03:30 -
  19501. +Rule    sol87    1987    only    -    Jul    1    12:03:40s -0:03:40 -
  19502. +Rule    sol87    1987    only    -    Jul    2    12:03:50s -0:03:50 -
  19503. +Rule    sol87    1987    only    -    Jul    3    12:04:05s -0:04:05 -
  19504. +Rule    sol87    1987    only    -    Jul    4    12:04:15s -0:04:15 -
  19505. +Rule    sol87    1987    only    -    Jul    5    12:04:25s -0:04:25 -
  19506. +Rule    sol87    1987    only    -    Jul    6    12:04:35s -0:04:35 -
  19507. +Rule    sol87    1987    only    -    Jul    7    12:04:45s -0:04:45 -
  19508. +Rule    sol87    1987    only    -    Jul    8    12:04:55s -0:04:55 -
  19509. +Rule    sol87    1987    only    -    Jul    9    12:05:05s -0:05:05 -
  19510. +Rule    sol87    1987    only    -    Jul    10    12:05:15s -0:05:15 -
  19511. +Rule    sol87    1987    only    -    Jul    11    12:05:20s -0:05:20 -
  19512. +Rule    sol87    1987    only    -    Jul    12    12:05:30s -0:05:30 -
  19513. +Rule    sol87    1987    only    -    Jul    13    12:05:40s -0:05:40 -
  19514. +Rule    sol87    1987    only    -    Jul    14    12:05:45s -0:05:45 -
  19515. +Rule    sol87    1987    only    -    Jul    15    12:05:50s -0:05:50 -
  19516. +Rule    sol87    1987    only    -    Jul    16    12:06:00s -0:06:00 -
  19517. +Rule    sol87    1987    only    -    Jul    17    12:06:05s -0:06:05 -
  19518. +Rule    sol87    1987    only    -    Jul    18    12:06:10s -0:06:10 -
  19519. +Rule    sol87    1987    only    -    Jul    19    12:06:15s -0:06:15 -
  19520. +Rule    sol87    1987    only    -    Jul    20    12:06:15s -0:06:15 -
  19521. +Rule    sol87    1987    only    -    Jul    21    12:06:20s -0:06:20 -
  19522. +Rule    sol87    1987    only    -    Jul    22    12:06:25s -0:06:25 -
  19523. +Rule    sol87    1987    only    -    Jul    23    12:06:25s -0:06:25 -
  19524. +Rule    sol87    1987    only    -    Jul    24    12:06:25s -0:06:25 -
  19525. +Rule    sol87    1987    only    -    Jul    25    12:06:30s -0:06:30 -
  19526. +Rule    sol87    1987    only    -    Jul    26    12:06:30s -0:06:30 -
  19527. +Rule    sol87    1987    only    -    Jul    27    12:06:30s -0:06:30 -
  19528. +Rule    sol87    1987    only    -    Jul    28    12:06:30s -0:06:30 -
  19529. +Rule    sol87    1987    only    -    Jul    29    12:06:25s -0:06:25 -
  19530. +Rule    sol87    1987    only    -    Jul    30    12:06:25s -0:06:25 -
  19531. +Rule    sol87    1987    only    -    Jul    31    12:06:25s -0:06:25 -
  19532. +Rule    sol87    1987    only    -    Aug    1    12:06:20s -0:06:20 -
  19533. +Rule    sol87    1987    only    -    Aug    2    12:06:15s -0:06:15 -
  19534. +Rule    sol87    1987    only    -    Aug    3    12:06:10s -0:06:10 -
  19535. +Rule    sol87    1987    only    -    Aug    4    12:06:05s -0:06:05 -
  19536. +Rule    sol87    1987    only    -    Aug    5    12:06:00s -0:06:00 -
  19537. +Rule    sol87    1987    only    -    Aug    6    12:05:55s -0:05:55 -
  19538. +Rule    sol87    1987    only    -    Aug    7    12:05:50s -0:05:50 -
  19539. +Rule    sol87    1987    only    -    Aug    8    12:05:40s -0:05:40 -
  19540. +Rule    sol87    1987    only    -    Aug    9    12:05:35s -0:05:35 -
  19541. +Rule    sol87    1987    only    -    Aug    10    12:05:25s -0:05:25 -
  19542. +Rule    sol87    1987    only    -    Aug    11    12:05:15s -0:05:15 -
  19543. +Rule    sol87    1987    only    -    Aug    12    12:05:05s -0:05:05 -
  19544. +Rule    sol87    1987    only    -    Aug    13    12:04:55s -0:04:55 -
  19545. +Rule    sol87    1987    only    -    Aug    14    12:04:45s -0:04:45 -
  19546. +Rule    sol87    1987    only    -    Aug    15    12:04:35s -0:04:35 -
  19547. +Rule    sol87    1987    only    -    Aug    16    12:04:25s -0:04:25 -
  19548. +Rule    sol87    1987    only    -    Aug    17    12:04:10s -0:04:10 -
  19549. +Rule    sol87    1987    only    -    Aug    18    12:04:00s -0:04:00 -
  19550. +Rule    sol87    1987    only    -    Aug    19    12:03:45s -0:03:45 -
  19551. +Rule    sol87    1987    only    -    Aug    20    12:03:30s -0:03:30 -
  19552. +Rule    sol87    1987    only    -    Aug    21    12:03:15s -0:03:15 -
  19553. +Rule    sol87    1987    only    -    Aug    22    12:03:00s -0:03:00 -
  19554. +Rule    sol87    1987    only    -    Aug    23    12:02:45s -0:02:45 -
  19555. +Rule    sol87    1987    only    -    Aug    24    12:02:30s -0:02:30 -
  19556. +Rule    sol87    1987    only    -    Aug    25    12:02:15s -0:02:15 -
  19557. +Rule    sol87    1987    only    -    Aug    26    12:02:00s -0:02:00 -
  19558. +Rule    sol87    1987    only    -    Aug    27    12:01:40s -0:01:40 -
  19559. +Rule    sol87    1987    only    -    Aug    28    12:01:25s -0:01:25 -
  19560. +Rule    sol87    1987    only    -    Aug    29    12:01:05s -0:01:05 -
  19561. +Rule    sol87    1987    only    -    Aug    30    12:00:50s -0:00:50 -
  19562. +Rule    sol87    1987    only    -    Aug    31    12:00:30s -0:00:30 -
  19563. +Rule    sol87    1987    only    -    Sep    1    12:00:10s -0:00:10 -
  19564. +Rule    sol87    1987    only    -    Sep    2    11:59:50s 0:00:10 -
  19565. +Rule    sol87    1987    only    -    Sep    3    11:59:35s 0:00:25 -
  19566. +Rule    sol87    1987    only    -    Sep    4    11:59:15s 0:00:45 -
  19567. +Rule    sol87    1987    only    -    Sep    5    11:58:55s 0:01:05 -
  19568. +Rule    sol87    1987    only    -    Sep    6    11:58:35s 0:01:25 -
  19569. +Rule    sol87    1987    only    -    Sep    7    11:58:15s 0:01:45 -
  19570. +Rule    sol87    1987    only    -    Sep    8    11:57:55s 0:02:05 -
  19571. +Rule    sol87    1987    only    -    Sep    9    11:57:30s 0:02:30 -
  19572. +Rule    sol87    1987    only    -    Sep    10    11:57:10s 0:02:50 -
  19573. +Rule    sol87    1987    only    -    Sep    11    11:56:50s 0:03:10 -
  19574. +Rule    sol87    1987    only    -    Sep    12    11:56:30s 0:03:30 -
  19575. +Rule    sol87    1987    only    -    Sep    13    11:56:10s 0:03:50 -
  19576. +Rule    sol87    1987    only    -    Sep    14    11:55:45s 0:04:15 -
  19577. +Rule    sol87    1987    only    -    Sep    15    11:55:25s 0:04:35 -
  19578. +Rule    sol87    1987    only    -    Sep    16    11:55:05s 0:04:55 -
  19579. +Rule    sol87    1987    only    -    Sep    17    11:54:45s 0:05:15 -
  19580. +Rule    sol87    1987    only    -    Sep    18    11:54:20s 0:05:40 -
  19581. +Rule    sol87    1987    only    -    Sep    19    11:54:00s 0:06:00 -
  19582. +Rule    sol87    1987    only    -    Sep    20    11:53:40s 0:06:20 -
  19583. +Rule    sol87    1987    only    -    Sep    21    11:53:15s 0:06:45 -
  19584. +Rule    sol87    1987    only    -    Sep    22    11:52:55s 0:07:05 -
  19585. +Rule    sol87    1987    only    -    Sep    23    11:52:35s 0:07:25 -
  19586. +Rule    sol87    1987    only    -    Sep    24    11:52:15s 0:07:45 -
  19587. +Rule    sol87    1987    only    -    Sep    25    11:51:55s 0:08:05 -
  19588. +Rule    sol87    1987    only    -    Sep    26    11:51:35s 0:08:25 -
  19589. +Rule    sol87    1987    only    -    Sep    27    11:51:10s 0:08:50 -
  19590. +Rule    sol87    1987    only    -    Sep    28    11:50:50s 0:09:10 -
  19591. +Rule    sol87    1987    only    -    Sep    29    11:50:30s 0:09:30 -
  19592. +Rule    sol87    1987    only    -    Sep    30    11:50:10s 0:09:50 -
  19593. +Rule    sol87    1987    only    -    Oct    1    11:49:50s 0:10:10 -
  19594. +Rule    sol87    1987    only    -    Oct    2    11:49:35s 0:10:25 -
  19595. +Rule    sol87    1987    only    -    Oct    3    11:49:15s 0:10:45 -
  19596. +Rule    sol87    1987    only    -    Oct    4    11:48:55s 0:11:05 -
  19597. +Rule    sol87    1987    only    -    Oct    5    11:48:35s 0:11:25 -
  19598. +Rule    sol87    1987    only    -    Oct    6    11:48:20s 0:11:40 -
  19599. +Rule    sol87    1987    only    -    Oct    7    11:48:00s 0:12:00 -
  19600. +Rule    sol87    1987    only    -    Oct    8    11:47:45s 0:12:15 -
  19601. +Rule    sol87    1987    only    -    Oct    9    11:47:25s 0:12:35 -
  19602. +Rule    sol87    1987    only    -    Oct    10    11:47:10s 0:12:50 -
  19603. +Rule    sol87    1987    only    -    Oct    11    11:46:55s 0:13:05 -
  19604. +Rule    sol87    1987    only    -    Oct    12    11:46:40s 0:13:20 -
  19605. +Rule    sol87    1987    only    -    Oct    13    11:46:25s 0:13:35 -
  19606. +Rule    sol87    1987    only    -    Oct    14    11:46:10s 0:13:50 -
  19607. +Rule    sol87    1987    only    -    Oct    15    11:45:55s 0:14:05 -
  19608. +Rule    sol87    1987    only    -    Oct    16    11:45:45s 0:14:15 -
  19609. +Rule    sol87    1987    only    -    Oct    17    11:45:30s 0:14:30 -
  19610. +Rule    sol87    1987    only    -    Oct    18    11:45:20s 0:14:40 -
  19611. +Rule    sol87    1987    only    -    Oct    19    11:45:05s 0:14:55 -
  19612. +Rule    sol87    1987    only    -    Oct    20    11:44:55s 0:15:05 -
  19613. +Rule    sol87    1987    only    -    Oct    21    11:44:45s 0:15:15 -
  19614. +Rule    sol87    1987    only    -    Oct    22    11:44:35s 0:15:25 -
  19615. +Rule    sol87    1987    only    -    Oct    23    11:44:25s 0:15:35 -
  19616. +Rule    sol87    1987    only    -    Oct    24    11:44:20s 0:15:40 -
  19617. +Rule    sol87    1987    only    -    Oct    25    11:44:10s 0:15:50 -
  19618. +Rule    sol87    1987    only    -    Oct    26    11:44:05s 0:15:55 -
  19619. +Rule    sol87    1987    only    -    Oct    27    11:43:55s 0:16:05 -
  19620. +Rule    sol87    1987    only    -    Oct    28    11:43:50s 0:16:10 -
  19621. +Rule    sol87    1987    only    -    Oct    29    11:43:45s 0:16:15 -
  19622. +Rule    sol87    1987    only    -    Oct    30    11:43:45s 0:16:15 -
  19623. +Rule    sol87    1987    only    -    Oct    31    11:43:40s 0:16:20 -
  19624. +Rule    sol87    1987    only    -    Nov    1    11:43:40s 0:16:20 -
  19625. +Rule    sol87    1987    only    -    Nov    2    11:43:35s 0:16:25 -
  19626. +Rule    sol87    1987    only    -    Nov    3    11:43:35s 0:16:25 -
  19627. +Rule    sol87    1987    only    -    Nov    4    11:43:35s 0:16:25 -
  19628. +Rule    sol87    1987    only    -    Nov    5    11:43:35s 0:16:25 -
  19629. +Rule    sol87    1987    only    -    Nov    6    11:43:40s 0:16:20 -
  19630. +Rule    sol87    1987    only    -    Nov    7    11:43:40s 0:16:20 -
  19631. +Rule    sol87    1987    only    -    Nov    8    11:43:45s 0:16:15 -
  19632. +Rule    sol87    1987    only    -    Nov    9    11:43:50s 0:16:10 -
  19633. +Rule    sol87    1987    only    -    Nov    10    11:43:55s 0:16:05 -
  19634. +Rule    sol87    1987    only    -    Nov    11    11:44:00s 0:16:00 -
  19635. +Rule    sol87    1987    only    -    Nov    12    11:44:05s 0:15:55 -
  19636. +Rule    sol87    1987    only    -    Nov    13    11:44:15s 0:15:45 -
  19637. +Rule    sol87    1987    only    -    Nov    14    11:44:20s 0:15:40 -
  19638. +Rule    sol87    1987    only    -    Nov    15    11:44:30s 0:15:30 -
  19639. +Rule    sol87    1987    only    -    Nov    16    11:44:40s 0:15:20 -
  19640. +Rule    sol87    1987    only    -    Nov    17    11:44:50s 0:15:10 -
  19641. +Rule    sol87    1987    only    -    Nov    18    11:45:05s 0:14:55 -
  19642. +Rule    sol87    1987    only    -    Nov    19    11:45:15s 0:14:45 -
  19643. +Rule    sol87    1987    only    -    Nov    20    11:45:30s 0:14:30 -
  19644. +Rule    sol87    1987    only    -    Nov    21    11:45:45s 0:14:15 -
  19645. +Rule    sol87    1987    only    -    Nov    22    11:46:00s 0:14:00 -
  19646. +Rule    sol87    1987    only    -    Nov    23    11:46:15s 0:13:45 -
  19647. +Rule    sol87    1987    only    -    Nov    24    11:46:30s 0:13:30 -
  19648. +Rule    sol87    1987    only    -    Nov    25    11:46:50s 0:13:10 -
  19649. +Rule    sol87    1987    only    -    Nov    26    11:47:10s 0:12:50 -
  19650. +Rule    sol87    1987    only    -    Nov    27    11:47:25s 0:12:35 -
  19651. +Rule    sol87    1987    only    -    Nov    28    11:47:45s 0:12:15 -
  19652. +Rule    sol87    1987    only    -    Nov    29    11:48:05s 0:11:55 -
  19653. +Rule    sol87    1987    only    -    Nov    30    11:48:30s 0:11:30 -
  19654. +Rule    sol87    1987    only    -    Dec    1    11:48:50s 0:11:10 -
  19655. +Rule    sol87    1987    only    -    Dec    2    11:49:10s 0:10:50 -
  19656. +Rule    sol87    1987    only    -    Dec    3    11:49:35s 0:10:25 -
  19657. +Rule    sol87    1987    only    -    Dec    4    11:50:00s 0:10:00 -
  19658. +Rule    sol87    1987    only    -    Dec    5    11:50:25s 0:09:35 -
  19659. +Rule    sol87    1987    only    -    Dec    6    11:50:50s 0:09:10 -
  19660. +Rule    sol87    1987    only    -    Dec    7    11:51:15s 0:08:45 -
  19661. +Rule    sol87    1987    only    -    Dec    8    11:51:40s 0:08:20 -
  19662. +Rule    sol87    1987    only    -    Dec    9    11:52:05s 0:07:55 -
  19663. +Rule    sol87    1987    only    -    Dec    10    11:52:30s 0:07:30 -
  19664. +Rule    sol87    1987    only    -    Dec    11    11:53:00s 0:07:00 -
  19665. +Rule    sol87    1987    only    -    Dec    12    11:53:25s 0:06:35 -
  19666. +Rule    sol87    1987    only    -    Dec    13    11:53:55s 0:06:05 -
  19667. +Rule    sol87    1987    only    -    Dec    14    11:54:25s 0:05:35 -
  19668. +Rule    sol87    1987    only    -    Dec    15    11:54:50s 0:05:10 -
  19669. +Rule    sol87    1987    only    -    Dec    16    11:55:20s 0:04:40 -
  19670. +Rule    sol87    1987    only    -    Dec    17    11:55:50s 0:04:10 -
  19671. +Rule    sol87    1987    only    -    Dec    18    11:56:20s 0:03:40 -
  19672. +Rule    sol87    1987    only    -    Dec    19    11:56:50s 0:03:10 -
  19673. +Rule    sol87    1987    only    -    Dec    20    11:57:20s 0:02:40 -
  19674. +Rule    sol87    1987    only    -    Dec    21    11:57:50s 0:02:10 -
  19675. +Rule    sol87    1987    only    -    Dec    22    11:58:20s 0:01:40 -
  19676. +Rule    sol87    1987    only    -    Dec    23    11:58:50s 0:01:10 -
  19677. +Rule    sol87    1987    only    -    Dec    24    11:59:20s 0:00:40 -
  19678. +Rule    sol87    1987    only    -    Dec    25    11:59:50s 0:00:10 -
  19679. +Rule    sol87    1987    only    -    Dec    26    12:00:20s -0:00:20 -
  19680. +Rule    sol87    1987    only    -    Dec    27    12:00:45s -0:00:45 -
  19681. +Rule    sol87    1987    only    -    Dec    28    12:01:15s -0:01:15 -
  19682. +Rule    sol87    1987    only    -    Dec    29    12:01:45s -0:01:45 -
  19683. +Rule    sol87    1987    only    -    Dec    30    12:02:15s -0:02:15 -
  19684. +Rule    sol87    1987    only    -    Dec    31    12:02:45s -0:02:45 -
  19685. +
  19686. +# Riyadh is at about 46 degrees 46 minutes East:  3 hrs, 7 mins, 4 secs
  19687. +# Before and after 1987, we'll operate on local mean solar time.
  19688. +
  19689. +# Zone    NAME            GMTOFF    RULES/SAVE    FORMAT    [UNTIL]
  19690. +Zone    Mideast/Riyadh87    3:07:04    -        ??    1987
  19691. +                3:07:04    sol87        ??    1988
  19692. +                3:07:04    -        ??
  19693. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/solar88 amiga/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/solar88
  19694. --- baseline/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/solar88    Wed Dec 31 17:00:00 1969
  19695. +++ amiga/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/solar88    Sat Sep 28 00:00:00 1996
  19696. @@ -0,0 +1,386 @@
  19697. +# @(#)solar88    4.2
  19698. +
  19699. +# Apparent noon times below are for Riyadh; they're a bit off for other places.
  19700. +# Times were computed using formulas in the U.S. Naval Observatory's
  19701. +# Almanac for Computers 1988; the formulas "will give EqT to an accuracy of
  19702. +# [plus or minus two] seconds during the current year."
  19703. +#
  19704. +# Rounding to the nearest five seconds results in fewer than
  19705. +# 256 different "time types"--a limit that's faced because time types are
  19706. +# stored on disk as unsigned chars.
  19707. +
  19708. +# Rule    NAME    FROM    TO    TYPE    IN    ON    AT    SAVE    LETTER/S
  19709. +Rule    sol88    1988    only    -    Jan    1    12:03:15s -0:03:15 -
  19710. +Rule    sol88    1988    only    -    Jan    2    12:03:40s -0:03:40 -
  19711. +Rule    sol88    1988    only    -    Jan    3    12:04:10s -0:04:10 -
  19712. +Rule    sol88    1988    only    -    Jan    4    12:04:40s -0:04:40 -
  19713. +Rule    sol88    1988    only    -    Jan    5    12:05:05s -0:05:05 -
  19714. +Rule    sol88    1988    only    -    Jan    6    12:05:30s -0:05:30 -
  19715. +Rule    sol88    1988    only    -    Jan    7    12:06:00s -0:06:00 -
  19716. +Rule    sol88    1988    only    -    Jan    8    12:06:25s -0:06:25 -
  19717. +Rule    sol88    1988    only    -    Jan    9    12:06:50s -0:06:50 -
  19718. +Rule    sol88    1988    only    -    Jan    10    12:07:15s -0:07:15 -
  19719. +Rule    sol88    1988    only    -    Jan    11    12:07:40s -0:07:40 -
  19720. +Rule    sol88    1988    only    -    Jan    12    12:08:05s -0:08:05 -
  19721. +Rule    sol88    1988    only    -    Jan    13    12:08:25s -0:08:25 -
  19722. +Rule    sol88    1988    only    -    Jan    14    12:08:50s -0:08:50 -
  19723. +Rule    sol88    1988    only    -    Jan    15    12:09:10s -0:09:10 -
  19724. +Rule    sol88    1988    only    -    Jan    16    12:09:30s -0:09:30 -
  19725. +Rule    sol88    1988    only    -    Jan    17    12:09:50s -0:09:50 -
  19726. +Rule    sol88    1988    only    -    Jan    18    12:10:10s -0:10:10 -
  19727. +Rule    sol88    1988    only    -    Jan    19    12:10:30s -0:10:30 -
  19728. +Rule    sol88    1988    only    -    Jan    20    12:10:50s -0:10:50 -
  19729. +Rule    sol88    1988    only    -    Jan    21    12:11:05s -0:11:05 -
  19730. +Rule    sol88    1988    only    -    Jan    22    12:11:25s -0:11:25 -
  19731. +Rule    sol88    1988    only    -    Jan    23    12:11:40s -0:11:40 -
  19732. +Rule    sol88    1988    only    -    Jan    24    12:11:55s -0:11:55 -
  19733. +Rule    sol88    1988    only    -    Jan    25    12:12:10s -0:12:10 -
  19734. +Rule    sol88    1988    only    -    Jan    26    12:12:25s -0:12:25 -
  19735. +Rule    sol88    1988    only    -    Jan    27    12:12:40s -0:12:40 -
  19736. +Rule    sol88    1988    only    -    Jan    28    12:12:50s -0:12:50 -
  19737. +Rule    sol88    1988    only    -    Jan    29    12:13:00s -0:13:00 -
  19738. +Rule    sol88    1988    only    -    Jan    30    12:13:10s -0:13:10 -
  19739. +Rule    sol88    1988    only    -    Jan    31    12:13:20s -0:13:20 -
  19740. +Rule    sol88    1988    only    -    Feb    1    12:13:30s -0:13:30 -
  19741. +Rule    sol88    1988    only    -    Feb    2    12:13:40s -0:13:40 -
  19742. +Rule    sol88    1988    only    -    Feb    3    12:13:45s -0:13:45 -
  19743. +Rule    sol88    1988    only    -    Feb    4    12:13:55s -0:13:55 -
  19744. +Rule    sol88    1988    only    -    Feb    5    12:14:00s -0:14:00 -
  19745. +Rule    sol88    1988    only    -    Feb    6    12:14:05s -0:14:05 -
  19746. +Rule    sol88    1988    only    -    Feb    7    12:14:10s -0:14:10 -
  19747. +Rule    sol88    1988    only    -    Feb    8    12:14:10s -0:14:10 -
  19748. +Rule    sol88    1988    only    -    Feb    9    12:14:15s -0:14:15 -
  19749. +Rule    sol88    1988    only    -    Feb    10    12:14:15s -0:14:15 -
  19750. +Rule    sol88    1988    only    -    Feb    11    12:14:15s -0:14:15 -
  19751. +Rule    sol88    1988    only    -    Feb    12    12:14:15s -0:14:15 -
  19752. +Rule    sol88    1988    only    -    Feb    13    12:14:15s -0:14:15 -
  19753. +Rule    sol88    1988    only    -    Feb    14    12:14:15s -0:14:15 -
  19754. +Rule    sol88    1988    only    -    Feb    15    12:14:10s -0:14:10 -
  19755. +Rule    sol88    1988    only    -    Feb    16    12:14:10s -0:14:10 -
  19756. +Rule    sol88    1988    only    -    Feb    17    12:14:05s -0:14:05 -
  19757. +Rule    sol88    1988    only    -    Feb    18    12:14:00s -0:14:00 -
  19758. +Rule    sol88    1988    only    -    Feb    19    12:13:55s -0:13:55 -
  19759. +Rule    sol88    1988    only    -    Feb    20    12:13:50s -0:13:50 -
  19760. +Rule    sol88    1988    only    -    Feb    21    12:13:45s -0:13:45 -
  19761. +Rule    sol88    1988    only    -    Feb    22    12:13:40s -0:13:40 -
  19762. +Rule    sol88    1988    only    -    Feb    23    12:13:30s -0:13:30 -
  19763. +Rule    sol88    1988    only    -    Feb    24    12:13:20s -0:13:20 -
  19764. +Rule    sol88    1988    only    -    Feb    25    12:13:15s -0:13:15 -
  19765. +Rule    sol88    1988    only    -    Feb    26    12:13:05s -0:13:05 -
  19766. +Rule    sol88    1988    only    -    Feb    27    12:12:55s -0:12:55 -
  19767. +Rule    sol88    1988    only    -    Feb    28    12:12:45s -0:12:45 -
  19768. +Rule    sol88    1988    only    -    Feb    29    12:12:30s -0:12:30 -
  19769. +Rule    sol88    1988    only    -    Mar    1    12:12:20s -0:12:20 -
  19770. +Rule    sol88    1988    only    -    Mar    2    12:12:10s -0:12:10 -
  19771. +Rule    sol88    1988    only    -    Mar    3    12:11:55s -0:11:55 -
  19772. +Rule    sol88    1988    only    -    Mar    4    12:11:45s -0:11:45 -
  19773. +Rule    sol88    1988    only    -    Mar    5    12:11:30s -0:11:30 -
  19774. +Rule    sol88    1988    only    -    Mar    6    12:11:15s -0:11:15 -
  19775. +Rule    sol88    1988    only    -    Mar    7    12:11:00s -0:11:00 -
  19776. +Rule    sol88    1988    only    -    Mar    8    12:10:45s -0:10:45 -
  19777. +Rule    sol88    1988    only    -    Mar    9    12:10:30s -0:10:30 -
  19778. +Rule    sol88    1988    only    -    Mar    10    12:10:15s -0:10:15 -
  19779. +Rule    sol88    1988    only    -    Mar    11    12:10:00s -0:10:00 -
  19780. +Rule    sol88    1988    only    -    Mar    12    12:09:45s -0:09:45 -
  19781. +Rule    sol88    1988    only    -    Mar    13    12:09:30s -0:09:30 -
  19782. +Rule    sol88    1988    only    -    Mar    14    12:09:10s -0:09:10 -
  19783. +Rule    sol88    1988    only    -    Mar    15    12:08:55s -0:08:55 -
  19784. +Rule    sol88    1988    only    -    Mar    16    12:08:40s -0:08:40 -
  19785. +Rule    sol88    1988    only    -    Mar    17    12:08:20s -0:08:20 -
  19786. +Rule    sol88    1988    only    -    Mar    18    12:08:05s -0:08:05 -
  19787. +Rule    sol88    1988    only    -    Mar    19    12:07:45s -0:07:45 -
  19788. +Rule    sol88    1988    only    -    Mar    20    12:07:30s -0:07:30 -
  19789. +Rule    sol88    1988    only    -    Mar    21    12:07:10s -0:07:10 -
  19790. +Rule    sol88    1988    only    -    Mar    22    12:06:50s -0:06:50 -
  19791. +Rule    sol88    1988    only    -    Mar    23    12:06:35s -0:06:35 -
  19792. +Rule    sol88    1988    only    -    Mar    24    12:06:15s -0:06:15 -
  19793. +Rule    sol88    1988    only    -    Mar    25    12:06:00s -0:06:00 -
  19794. +Rule    sol88    1988    only    -    Mar    26    12:05:40s -0:05:40 -
  19795. +Rule    sol88    1988    only    -    Mar    27    12:05:20s -0:05:20 -
  19796. +Rule    sol88    1988    only    -    Mar    28    12:05:05s -0:05:05 -
  19797. +Rule    sol88    1988    only    -    Mar    29    12:04:45s -0:04:45 -
  19798. +Rule    sol88    1988    only    -    Mar    30    12:04:25s -0:04:25 -
  19799. +Rule    sol88    1988    only    -    Mar    31    12:04:10s -0:04:10 -
  19800. +Rule    sol88    1988    only    -    Apr    1    12:03:50s -0:03:50 -
  19801. +Rule    sol88    1988    only    -    Apr    2    12:03:35s -0:03:35 -
  19802. +Rule    sol88    1988    only    -    Apr    3    12:03:15s -0:03:15 -
  19803. +Rule    sol88    1988    only    -    Apr    4    12:03:00s -0:03:00 -
  19804. +Rule    sol88    1988    only    -    Apr    5    12:02:40s -0:02:40 -
  19805. +Rule    sol88    1988    only    -    Apr    6    12:02:25s -0:02:25 -
  19806. +Rule    sol88    1988    only    -    Apr    7    12:02:05s -0:02:05 -
  19807. +Rule    sol88    1988    only    -    Apr    8    12:01:50s -0:01:50 -
  19808. +Rule    sol88    1988    only    -    Apr    9    12:01:35s -0:01:35 -
  19809. +Rule    sol88    1988    only    -    Apr    10    12:01:15s -0:01:15 -
  19810. +Rule    sol88    1988    only    -    Apr    11    12:01:00s -0:01:00 -
  19811. +Rule    sol88    1988    only    -    Apr    12    12:00:45s -0:00:45 -
  19812. +Rule    sol88    1988    only    -    Apr    13    12:00:30s -0:00:30 -
  19813. +Rule    sol88    1988    only    -    Apr    14    12:00:15s -0:00:15 -
  19814. +Rule    sol88    1988    only    -    Apr    15    12:00:00s 0:00:00 -
  19815. +Rule    sol88    1988    only    -    Apr    16    11:59:45s 0:00:15 -
  19816. +Rule    sol88    1988    only    -    Apr    17    11:59:30s 0:00:30 -
  19817. +Rule    sol88    1988    only    -    Apr    18    11:59:20s 0:00:40 -
  19818. +Rule    sol88    1988    only    -    Apr    19    11:59:05s 0:00:55 -
  19819. +Rule    sol88    1988    only    -    Apr    20    11:58:55s 0:01:05 -
  19820. +Rule    sol88    1988    only    -    Apr    21    11:58:40s 0:01:20 -
  19821. +Rule    sol88    1988    only    -    Apr    22    11:58:30s 0:01:30 -
  19822. +Rule    sol88    1988    only    -    Apr    23    11:58:15s 0:01:45 -
  19823. +Rule    sol88    1988    only    -    Apr    24    11:58:05s 0:01:55 -
  19824. +Rule    sol88    1988    only    -    Apr    25    11:57:55s 0:02:05 -
  19825. +Rule    sol88    1988    only    -    Apr    26    11:57:45s 0:02:15 -
  19826. +Rule    sol88    1988    only    -    Apr    27    11:57:35s 0:02:25 -
  19827. +Rule    sol88    1988    only    -    Apr    28    11:57:30s 0:02:30 -
  19828. +Rule    sol88    1988    only    -    Apr    29    11:57:20s 0:02:40 -
  19829. +Rule    sol88    1988    only    -    Apr    30    11:57:10s 0:02:50 -
  19830. +Rule    sol88    1988    only    -    May    1    11:57:05s 0:02:55 -
  19831. +Rule    sol88    1988    only    -    May    2    11:56:55s 0:03:05 -
  19832. +Rule    sol88    1988    only    -    May    3    11:56:50s 0:03:10 -
  19833. +Rule    sol88    1988    only    -    May    4    11:56:45s 0:03:15 -
  19834. +Rule    sol88    1988    only    -    May    5    11:56:40s 0:03:20 -
  19835. +Rule    sol88    1988    only    -    May    6    11:56:35s 0:03:25 -
  19836. +Rule    sol88    1988    only    -    May    7    11:56:30s 0:03:30 -
  19837. +Rule    sol88    1988    only    -    May    8    11:56:25s 0:03:35 -
  19838. +Rule    sol88    1988    only    -    May    9    11:56:25s 0:03:35 -
  19839. +Rule    sol88    1988    only    -    May    10    11:56:20s 0:03:40 -
  19840. +Rule    sol88    1988    only    -    May    11    11:56:20s 0:03:40 -
  19841. +Rule    sol88    1988    only    -    May    12    11:56:20s 0:03:40 -
  19842. +Rule    sol88    1988    only    -    May    13    11:56:20s 0:03:40 -
  19843. +Rule    sol88    1988    only    -    May    14    11:56:20s 0:03:40 -
  19844. +Rule    sol88    1988    only    -    May    15    11:56:20s 0:03:40 -
  19845. +Rule    sol88    1988    only    -    May    16    11:56:20s 0:03:40 -
  19846. +Rule    sol88    1988    only    -    May    17    11:56:20s 0:03:40 -
  19847. +Rule    sol88    1988    only    -    May    18    11:56:25s 0:03:35 -
  19848. +Rule    sol88    1988    only    -    May    19    11:56:25s 0:03:35 -
  19849. +Rule    sol88    1988    only    -    May    20    11:56:30s 0:03:30 -
  19850. +Rule    sol88    1988    only    -    May    21    11:56:35s 0:03:25 -
  19851. +Rule    sol88    1988    only    -    May    22    11:56:40s 0:03:20 -
  19852. +Rule    sol88    1988    only    -    May    23    11:56:45s 0:03:15 -
  19853. +Rule    sol88    1988    only    -    May    24    11:56:50s 0:03:10 -
  19854. +Rule    sol88    1988    only    -    May    25    11:56:55s 0:03:05 -
  19855. +Rule    sol88    1988    only    -    May    26    11:57:00s 0:03:00 -
  19856. +Rule    sol88    1988    only    -    May    27    11:57:05s 0:02:55 -
  19857. +Rule    sol88    1988    only    -    May    28    11:57:15s 0:02:45 -
  19858. +Rule    sol88    1988    only    -    May    29    11:57:20s 0:02:40 -
  19859. +Rule    sol88    1988    only    -    May    30    11:57:30s 0:02:30 -
  19860. +Rule    sol88    1988    only    -    May    31    11:57:40s 0:02:20 -
  19861. +Rule    sol88    1988    only    -    Jun    1    11:57:50s 0:02:10 -
  19862. +Rule    sol88    1988    only    -    Jun    2    11:57:55s 0:02:05 -
  19863. +Rule    sol88    1988    only    -    Jun    3    11:58:05s 0:01:55 -
  19864. +Rule    sol88    1988    only    -    Jun    4    11:58:15s 0:01:45 -
  19865. +Rule    sol88    1988    only    -    Jun    5    11:58:30s 0:01:30 -
  19866. +Rule    sol88    1988    only    -    Jun    6    11:58:40s 0:01:20 -
  19867. +Rule    sol88    1988    only    -    Jun    7    11:58:50s 0:01:10 -
  19868. +Rule    sol88    1988    only    -    Jun    8    11:59:00s 0:01:00 -
  19869. +Rule    sol88    1988    only    -    Jun    9    11:59:15s 0:00:45 -
  19870. +Rule    sol88    1988    only    -    Jun    10    11:59:25s 0:00:35 -
  19871. +Rule    sol88    1988    only    -    Jun    11    11:59:35s 0:00:25 -
  19872. +Rule    sol88    1988    only    -    Jun    12    11:59:50s 0:00:10 -
  19873. +Rule    sol88    1988    only    -    Jun    13    12:00:00s 0:00:00 -
  19874. +Rule    sol88    1988    only    -    Jun    14    12:00:15s -0:00:15 -
  19875. +Rule    sol88    1988    only    -    Jun    15    12:00:25s -0:00:25 -
  19876. +Rule    sol88    1988    only    -    Jun    16    12:00:40s -0:00:40 -
  19877. +Rule    sol88    1988    only    -    Jun    17    12:00:55s -0:00:55 -
  19878. +Rule    sol88    1988    only    -    Jun    18    12:01:05s -0:01:05 -
  19879. +Rule    sol88    1988    only    -    Jun    19    12:01:20s -0:01:20 -
  19880. +Rule    sol88    1988    only    -    Jun    20    12:01:30s -0:01:30 -
  19881. +Rule    sol88    1988    only    -    Jun    21    12:01:45s -0:01:45 -
  19882. +Rule    sol88    1988    only    -    Jun    22    12:02:00s -0:02:00 -
  19883. +Rule    sol88    1988    only    -    Jun    23    12:02:10s -0:02:10 -
  19884. +Rule    sol88    1988    only    -    Jun    24    12:02:25s -0:02:25 -
  19885. +Rule    sol88    1988    only    -    Jun    25    12:02:35s -0:02:35 -
  19886. +Rule    sol88    1988    only    -    Jun    26    12:02:50s -0:02:50 -
  19887. +Rule    sol88    1988    only    -    Jun    27    12:03:00s -0:03:00 -
  19888. +Rule    sol88    1988    only    -    Jun    28    12:03:15s -0:03:15 -
  19889. +Rule    sol88    1988    only    -    Jun    29    12:03:25s -0:03:25 -
  19890. +Rule    sol88    1988    only    -    Jun    30    12:03:40s -0:03:40 -
  19891. +Rule    sol88    1988    only    -    Jul    1    12:03:50s -0:03:50 -
  19892. +Rule    sol88    1988    only    -    Jul    2    12:04:00s -0:04:00 -
  19893. +Rule    sol88    1988    only    -    Jul    3    12:04:10s -0:04:10 -
  19894. +Rule    sol88    1988    only    -    Jul    4    12:04:25s -0:04:25 -
  19895. +Rule    sol88    1988    only    -    Jul    5    12:04:35s -0:04:35 -
  19896. +Rule    sol88    1988    only    -    Jul    6    12:04:45s -0:04:45 -
  19897. +Rule    sol88    1988    only    -    Jul    7    12:04:55s -0:04:55 -
  19898. +Rule    sol88    1988    only    -    Jul    8    12:05:05s -0:05:05 -
  19899. +Rule    sol88    1988    only    -    Jul    9    12:05:10s -0:05:10 -
  19900. +Rule    sol88    1988    only    -    Jul    10    12:05:20s -0:05:20 -
  19901. +Rule    sol88    1988    only    -    Jul    11    12:05:30s -0:05:30 -
  19902. +Rule    sol88    1988    only    -    Jul    12    12:05:35s -0:05:35 -
  19903. +Rule    sol88    1988    only    -    Jul    13    12:05:45s -0:05:45 -
  19904. +Rule    sol88    1988    only    -    Jul    14    12:05:50s -0:05:50 -
  19905. +Rule    sol88    1988    only    -    Jul    15    12:05:55s -0:05:55 -
  19906. +Rule    sol88    1988    only    -    Jul    16    12:06:00s -0:06:00 -
  19907. +Rule    sol88    1988    only    -    Jul    17    12:06:05s -0:06:05 -
  19908. +Rule    sol88    1988    only    -    Jul    18    12:06:10s -0:06:10 -
  19909. +Rule    sol88    1988    only    -    Jul    19    12:06:15s -0:06:15 -
  19910. +Rule    sol88    1988    only    -    Jul    20    12:06:20s -0:06:20 -
  19911. +Rule    sol88    1988    only    -    Jul    21    12:06:25s -0:06:25 -
  19912. +Rule    sol88    1988    only    -    Jul    22    12:06:25s -0:06:25 -
  19913. +Rule    sol88    1988    only    -    Jul    23    12:06:25s -0:06:25 -
  19914. +Rule    sol88    1988    only    -    Jul    24    12:06:30s -0:06:30 -
  19915. +Rule    sol88    1988    only    -    Jul    25    12:06:30s -0:06:30 -
  19916. +Rule    sol88    1988    only    -    Jul    26    12:06:30s -0:06:30 -
  19917. +Rule    sol88    1988    only    -    Jul    27    12:06:30s -0:06:30 -
  19918. +Rule    sol88    1988    only    -    Jul    28    12:06:30s -0:06:30 -
  19919. +Rule    sol88    1988    only    -    Jul    29    12:06:25s -0:06:25 -
  19920. +Rule    sol88    1988    only    -    Jul    30    12:06:25s -0:06:25 -
  19921. +Rule    sol88    1988    only    -    Jul    31    12:06:20s -0:06:20 -
  19922. +Rule    sol88    1988    only    -    Aug    1    12:06:15s -0:06:15 -
  19923. +Rule    sol88    1988    only    -    Aug    2    12:06:15s -0:06:15 -
  19924. +Rule    sol88    1988    only    -    Aug    3    12:06:10s -0:06:10 -
  19925. +Rule    sol88    1988    only    -    Aug    4    12:06:05s -0:06:05 -
  19926. +Rule    sol88    1988    only    -    Aug    5    12:05:55s -0:05:55 -
  19927. +Rule    sol88    1988    only    -    Aug    6    12:05:50s -0:05:50 -
  19928. +Rule    sol88    1988    only    -    Aug    7    12:05:45s -0:05:45 -
  19929. +Rule    sol88    1988    only    -    Aug    8    12:05:35s -0:05:35 -
  19930. +Rule    sol88    1988    only    -    Aug    9    12:05:25s -0:05:25 -
  19931. +Rule    sol88    1988    only    -    Aug    10    12:05:20s -0:05:20 -
  19932. +Rule    sol88    1988    only    -    Aug    11    12:05:10s -0:05:10 -
  19933. +Rule    sol88    1988    only    -    Aug    12    12:05:00s -0:05:00 -
  19934. +Rule    sol88    1988    only    -    Aug    13    12:04:50s -0:04:50 -
  19935. +Rule    sol88    1988    only    -    Aug    14    12:04:35s -0:04:35 -
  19936. +Rule    sol88    1988    only    -    Aug    15    12:04:25s -0:04:25 -
  19937. +Rule    sol88    1988    only    -    Aug    16    12:04:15s -0:04:15 -
  19938. +Rule    sol88    1988    only    -    Aug    17    12:04:00s -0:04:00 -
  19939. +Rule    sol88    1988    only    -    Aug    18    12:03:50s -0:03:50 -
  19940. +Rule    sol88    1988    only    -    Aug    19    12:03:35s -0:03:35 -
  19941. +Rule    sol88    1988    only    -    Aug    20    12:03:20s -0:03:20 -
  19942. +Rule    sol88    1988    only    -    Aug    21    12:03:05s -0:03:05 -
  19943. +Rule    sol88    1988    only    -    Aug    22    12:02:50s -0:02:50 -
  19944. +Rule    sol88    1988    only    -    Aug    23    12:02:35s -0:02:35 -
  19945. +Rule    sol88    1988    only    -    Aug    24    12:02:20s -0:02:20 -
  19946. +Rule    sol88    1988    only    -    Aug    25    12:02:00s -0:02:00 -
  19947. +Rule    sol88    1988    only    -    Aug    26    12:01:45s -0:01:45 -
  19948. +Rule    sol88    1988    only    -    Aug    27    12:01:30s -0:01:30 -
  19949. +Rule    sol88    1988    only    -    Aug    28    12:01:10s -0:01:10 -
  19950. +Rule    sol88    1988    only    -    Aug    29    12:00:50s -0:00:50 -
  19951. +Rule    sol88    1988    only    -    Aug    30    12:00:35s -0:00:35 -
  19952. +Rule    sol88    1988    only    -    Aug    31    12:00:15s -0:00:15 -
  19953. +Rule    sol88    1988    only    -    Sep    1    11:59:55s 0:00:05 -
  19954. +Rule    sol88    1988    only    -    Sep    2    11:59:35s 0:00:25 -
  19955. +Rule    sol88    1988    only    -    Sep    3    11:59:20s 0:00:40 -
  19956. +Rule    sol88    1988    only    -    Sep    4    11:59:00s 0:01:00 -
  19957. +Rule    sol88    1988    only    -    Sep    5    11:58:40s 0:01:20 -
  19958. +Rule    sol88    1988    only    -    Sep    6    11:58:20s 0:01:40 -
  19959. +Rule    sol88    1988    only    -    Sep    7    11:58:00s 0:02:00 -
  19960. +Rule    sol88    1988    only    -    Sep    8    11:57:35s 0:02:25 -
  19961. +Rule    sol88    1988    only    -    Sep    9    11:57:15s 0:02:45 -
  19962. +Rule    sol88    1988    only    -    Sep    10    11:56:55s 0:03:05 -
  19963. +Rule    sol88    1988    only    -    Sep    11    11:56:35s 0:03:25 -
  19964. +Rule    sol88    1988    only    -    Sep    12    11:56:15s 0:03:45 -
  19965. +Rule    sol88    1988    only    -    Sep    13    11:55:50s 0:04:10 -
  19966. +Rule    sol88    1988    only    -    Sep    14    11:55:30s 0:04:30 -
  19967. +Rule    sol88    1988    only    -    Sep    15    11:55:10s 0:04:50 -
  19968. +Rule    sol88    1988    only    -    Sep    16    11:54:50s 0:05:10 -
  19969. +Rule    sol88    1988    only    -    Sep    17    11:54:25s 0:05:35 -
  19970. +Rule    sol88    1988    only    -    Sep    18    11:54:05s 0:05:55 -
  19971. +Rule    sol88    1988    only    -    Sep    19    11:53:45s 0:06:15 -
  19972. +Rule    sol88    1988    only    -    Sep    20    11:53:25s 0:06:35 -
  19973. +Rule    sol88    1988    only    -    Sep    21    11:53:00s 0:07:00 -
  19974. +Rule    sol88    1988    only    -    Sep    22    11:52:40s 0:07:20 -
  19975. +Rule    sol88    1988    only    -    Sep    23    11:52:20s 0:07:40 -
  19976. +Rule    sol88    1988    only    -    Sep    24    11:52:00s 0:08:00 -
  19977. +Rule    sol88    1988    only    -    Sep    25    11:51:40s 0:08:20 -
  19978. +Rule    sol88    1988    only    -    Sep    26    11:51:15s 0:08:45 -
  19979. +Rule    sol88    1988    only    -    Sep    27    11:50:55s 0:09:05 -
  19980. +Rule    sol88    1988    only    -    Sep    28    11:50:35s 0:09:25 -
  19981. +Rule    sol88    1988    only    -    Sep    29    11:50:15s 0:09:45 -
  19982. +Rule    sol88    1988    only    -    Sep    30    11:49:55s 0:10:05 -
  19983. +Rule    sol88    1988    only    -    Oct    1    11:49:35s 0:10:25 -
  19984. +Rule    sol88    1988    only    -    Oct    2    11:49:20s 0:10:40 -
  19985. +Rule    sol88    1988    only    -    Oct    3    11:49:00s 0:11:00 -
  19986. +Rule    sol88    1988    only    -    Oct    4    11:48:40s 0:11:20 -
  19987. +Rule    sol88    1988    only    -    Oct    5    11:48:25s 0:11:35 -
  19988. +Rule    sol88    1988    only    -    Oct    6    11:48:05s 0:11:55 -
  19989. +Rule    sol88    1988    only    -    Oct    7    11:47:50s 0:12:10 -
  19990. +Rule    sol88    1988    only    -    Oct    8    11:47:30s 0:12:30 -
  19991. +Rule    sol88    1988    only    -    Oct    9    11:47:15s 0:12:45 -
  19992. +Rule    sol88    1988    only    -    Oct    10    11:47:00s 0:13:00 -
  19993. +Rule    sol88    1988    only    -    Oct    11    11:46:45s 0:13:15 -
  19994. +Rule    sol88    1988    only    -    Oct    12    11:46:30s 0:13:30 -
  19995. +Rule    sol88    1988    only    -    Oct    13    11:46:15s 0:13:45 -
  19996. +Rule    sol88    1988    only    -    Oct    14    11:46:00s 0:14:00 -
  19997. +Rule    sol88    1988    only    -    Oct    15    11:45:45s 0:14:15 -
  19998. +Rule    sol88    1988    only    -    Oct    16    11:45:35s 0:14:25 -
  19999. +Rule    sol88    1988    only    -    Oct    17    11:45:20s 0:14:40 -
  20000. +Rule    sol88    1988    only    -    Oct    18    11:45:10s 0:14:50 -
  20001. +Rule    sol88    1988    only    -    Oct    19    11:45:00s 0:15:00 -
  20002. +Rule    sol88    1988    only    -    Oct    20    11:44:45s 0:15:15 -
  20003. +Rule    sol88    1988    only    -    Oct    21    11:44:40s 0:15:20 -
  20004. +Rule    sol88    1988    only    -    Oct    22    11:44:30s 0:15:30 -
  20005. +Rule    sol88    1988    only    -    Oct    23    11:44:20s 0:15:40 -
  20006. +Rule    sol88    1988    only    -    Oct    24    11:44:10s 0:15:50 -
  20007. +Rule    sol88    1988    only    -    Oct    25    11:44:05s 0:15:55 -
  20008. +Rule    sol88    1988    only    -    Oct    26    11:44:00s 0:16:00 -
  20009. +Rule    sol88    1988    only    -    Oct    27    11:43:55s 0:16:05 -
  20010. +Rule    sol88    1988    only    -    Oct    28    11:43:50s 0:16:10 -
  20011. +Rule    sol88    1988    only    -    Oct    29    11:43:45s 0:16:15 -
  20012. +Rule    sol88    1988    only    -    Oct    30    11:43:40s 0:16:20 -
  20013. +Rule    sol88    1988    only    -    Oct    31    11:43:40s 0:16:20 -
  20014. +Rule    sol88    1988    only    -    Nov    1    11:43:35s 0:16:25 -
  20015. +Rule    sol88    1988    only    -    Nov    2    11:43:35s 0:16:25 -
  20016. +Rule    sol88    1988    only    -    Nov    3    11:43:35s 0:16:25 -
  20017. +Rule    sol88    1988    only    -    Nov    4    11:43:35s 0:16:25 -
  20018. +Rule    sol88    1988    only    -    Nov    5    11:43:40s 0:16:20 -
  20019. +Rule    sol88    1988    only    -    Nov    6    11:43:40s 0:16:20 -
  20020. +Rule    sol88    1988    only    -    Nov    7    11:43:45s 0:16:15 -
  20021. +Rule    sol88    1988    only    -    Nov    8    11:43:45s 0:16:15 -
  20022. +Rule    sol88    1988    only    -    Nov    9    11:43:50s 0:16:10 -
  20023. +Rule    sol88    1988    only    -    Nov    10    11:44:00s 0:16:00 -
  20024. +Rule    sol88    1988    only    -    Nov    11    11:44:05s 0:15:55 -
  20025. +Rule    sol88    1988    only    -    Nov    12    11:44:10s 0:15:50 -
  20026. +Rule    sol88    1988    only    -    Nov    13    11:44:20s 0:15:40 -
  20027. +Rule    sol88    1988    only    -    Nov    14    11:44:30s 0:15:30 -
  20028. +Rule    sol88    1988    only    -    Nov    15    11:44:40s 0:15:20 -
  20029. +Rule    sol88    1988    only    -    Nov    16    11:44:50s 0:15:10 -
  20030. +Rule    sol88    1988    only    -    Nov    17    11:45:00s 0:15:00 -
  20031. +Rule    sol88    1988    only    -    Nov    18    11:45:15s 0:14:45 -
  20032. +Rule    sol88    1988    only    -    Nov    19    11:45:25s 0:14:35 -
  20033. +Rule    sol88    1988    only    -    Nov    20    11:45:40s 0:14:20 -
  20034. +Rule    sol88    1988    only    -    Nov    21    11:45:55s 0:14:05 -
  20035. +Rule    sol88    1988    only    -    Nov    22    11:46:10s 0:13:50 -
  20036. +Rule    sol88    1988    only    -    Nov    23    11:46:30s 0:13:30 -
  20037. +Rule    sol88    1988    only    -    Nov    24    11:46:45s 0:13:15 -
  20038. +Rule    sol88    1988    only    -    Nov    25    11:47:05s 0:12:55 -
  20039. +Rule    sol88    1988    only    -    Nov    26    11:47:20s 0:12:40 -
  20040. +Rule    sol88    1988    only    -    Nov    27    11:47:40s 0:12:20 -
  20041. +Rule    sol88    1988    only    -    Nov    28    11:48:00s 0:12:00 -
  20042. +Rule    sol88    1988    only    -    Nov    29    11:48:25s 0:11:35 -
  20043. +Rule    sol88    1988    only    -    Nov    30    11:48:45s 0:11:15 -
  20044. +Rule    sol88    1988    only    -    Dec    1    11:49:05s 0:10:55 -
  20045. +Rule    sol88    1988    only    -    Dec    2    11:49:30s 0:10:30 -
  20046. +Rule    sol88    1988    only    -    Dec    3    11:49:55s 0:10:05 -
  20047. +Rule    sol88    1988    only    -    Dec    4    11:50:15s 0:09:45 -
  20048. +Rule    sol88    1988    only    -    Dec    5    11:50:40s 0:09:20 -
  20049. +Rule    sol88    1988    only    -    Dec    6    11:51:05s 0:08:55 -
  20050. +Rule    sol88    1988    only    -    Dec    7    11:51:35s 0:08:25 -
  20051. +Rule    sol88    1988    only    -    Dec    8    11:52:00s 0:08:00 -
  20052. +Rule    sol88    1988    only    -    Dec    9    11:52:25s 0:07:35 -
  20053. +Rule    sol88    1988    only    -    Dec    10    11:52:55s 0:07:05 -
  20054. +Rule    sol88    1988    only    -    Dec    11    11:53:20s 0:06:40 -
  20055. +Rule    sol88    1988    only    -    Dec    12    11:53:50s 0:06:10 -
  20056. +Rule    sol88    1988    only    -    Dec    13    11:54:15s 0:05:45 -
  20057. +Rule    sol88    1988    only    -    Dec    14    11:54:45s 0:05:15 -
  20058. +Rule    sol88    1988    only    -    Dec    15    11:55:15s 0:04:45 -
  20059. +Rule    sol88    1988    only    -    Dec    16    11:55:45s 0:04:15 -
  20060. +Rule    sol88    1988    only    -    Dec    17    11:56:15s 0:03:45 -
  20061. +Rule    sol88    1988    only    -    Dec    18    11:56:40s 0:03:20 -
  20062. +Rule    sol88    1988    only    -    Dec    19    11:57:10s 0:02:50 -
  20063. +Rule    sol88    1988    only    -    Dec    20    11:57:40s 0:02:20 -
  20064. +Rule    sol88    1988    only    -    Dec    21    11:58:10s 0:01:50 -
  20065. +Rule    sol88    1988    only    -    Dec    22    11:58:40s 0:01:20 -
  20066. +Rule    sol88    1988    only    -    Dec    23    11:59:10s 0:00:50 -
  20067. +Rule    sol88    1988    only    -    Dec    24    11:59:40s 0:00:20 -
  20068. +Rule    sol88    1988    only    -    Dec    25    12:00:10s -0:00:10 -
  20069. +Rule    sol88    1988    only    -    Dec    26    12:00:40s -0:00:40 -
  20070. +Rule    sol88    1988    only    -    Dec    27    12:01:10s -0:01:10 -
  20071. +Rule    sol88    1988    only    -    Dec    28    12:01:40s -0:01:40 -
  20072. +Rule    sol88    1988    only    -    Dec    29    12:02:10s -0:02:10 -
  20073. +Rule    sol88    1988    only    -    Dec    30    12:02:35s -0:02:35 -
  20074. +Rule    sol88    1988    only    -    Dec    31    12:03:05s -0:03:05 -
  20075. +
  20076. +# Riyadh is at about 46 degrees 46 minutes East:  3 hrs, 7 mins, 4 secs
  20077. +# Before and after 1988, we'll operate on local mean solar time.
  20078. +
  20079. +# Zone    NAME            GMTOFF    RULES/SAVE    FORMAT    [UNTIL]
  20080. +Zone    Mideast/Riyadh88    3:07:04    -        ??    1988
  20081. +                3:07:04    sol88        ??    1989
  20082. +                3:07:04    -        ??
  20083. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/solar89 amiga/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/solar89
  20084. --- baseline/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/solar89    Wed Dec 31 17:00:00 1969
  20085. +++ amiga/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/solar89    Sat Sep 28 00:00:00 1996
  20086. @@ -0,0 +1,391 @@
  20087. +# @(#)solar89    1.3
  20088. +
  20089. +# Apparent noon times below are for Riyadh; they're a bit off for other places.
  20090. +# Times were computed using a formula provided by the U. S. Naval Observatory:
  20091. +#    eqt = -105.8 * sin(l) + 596.2 * sin(2 * l) + 4.4 * sin(3 * l)
  20092. +#        -12.7 * sin(4 * l) - 429.0 * cos(l) - 2.1 * cos (2 * l)
  20093. +#        + 19.3 * cos(3 * l);
  20094. +# where l is the "mean longitude of the Sun" given by
  20095. +#    l = 279.642 degrees + 0.985647 * d
  20096. +# and d is the interval in days from January 0, 0 hours Universal Time
  20097. +# (equaling the day of the year plus the fraction of a day from zero hours).
  20098. +# The accuracy of the formula is plus or minus three seconds.
  20099. +#
  20100. +# Rounding to the nearest five seconds results in fewer than
  20101. +# 256 different "time types"--a limit that's faced because time types are
  20102. +# stored on disk as unsigned chars.
  20103. +
  20104. +# Rule    NAME    FROM    TO    TYPE    IN    ON    AT    SAVE    LETTER/S
  20105. +Rule    sol89    1989    only    -    Jan    1    12:03:35s -0:03:35 -
  20106. +Rule    sol89    1989    only    -    Jan    2    12:04:05s -0:04:05 -
  20107. +Rule    sol89    1989    only    -    Jan    3    12:04:30s -0:04:30 -
  20108. +Rule    sol89    1989    only    -    Jan    4    12:05:00s -0:05:00 -
  20109. +Rule    sol89    1989    only    -    Jan    5    12:05:25s -0:05:25 -
  20110. +Rule    sol89    1989    only    -    Jan    6    12:05:50s -0:05:50 -
  20111. +Rule    sol89    1989    only    -    Jan    7    12:06:15s -0:06:15 -
  20112. +Rule    sol89    1989    only    -    Jan    8    12:06:45s -0:06:45 -
  20113. +Rule    sol89    1989    only    -    Jan    9    12:07:10s -0:07:10 -
  20114. +Rule    sol89    1989    only    -    Jan    10    12:07:35s -0:07:35 -
  20115. +Rule    sol89    1989    only    -    Jan    11    12:07:55s -0:07:55 -
  20116. +Rule    sol89    1989    only    -    Jan    12    12:08:20s -0:08:20 -
  20117. +Rule    sol89    1989    only    -    Jan    13    12:08:45s -0:08:45 -
  20118. +Rule    sol89    1989    only    -    Jan    14    12:09:05s -0:09:05 -
  20119. +Rule    sol89    1989    only    -    Jan    15    12:09:25s -0:09:25 -
  20120. +Rule    sol89    1989    only    -    Jan    16    12:09:45s -0:09:45 -
  20121. +Rule    sol89    1989    only    -    Jan    17    12:10:05s -0:10:05 -
  20122. +Rule    sol89    1989    only    -    Jan    18    12:10:25s -0:10:25 -
  20123. +Rule    sol89    1989    only    -    Jan    19    12:10:45s -0:10:45 -
  20124. +Rule    sol89    1989    only    -    Jan    20    12:11:05s -0:11:05 -
  20125. +Rule    sol89    1989    only    -    Jan    21    12:11:20s -0:11:20 -
  20126. +Rule    sol89    1989    only    -    Jan    22    12:11:35s -0:11:35 -
  20127. +Rule    sol89    1989    only    -    Jan    23    12:11:55s -0:11:55 -
  20128. +Rule    sol89    1989    only    -    Jan    24    12:12:10s -0:12:10 -
  20129. +Rule    sol89    1989    only    -    Jan    25    12:12:20s -0:12:20 -
  20130. +Rule    sol89    1989    only    -    Jan    26    12:12:35s -0:12:35 -
  20131. +Rule    sol89    1989    only    -    Jan    27    12:12:50s -0:12:50 -
  20132. +Rule    sol89    1989    only    -    Jan    28    12:13:00s -0:13:00 -
  20133. +Rule    sol89    1989    only    -    Jan    29    12:13:10s -0:13:10 -
  20134. +Rule    sol89    1989    only    -    Jan    30    12:13:20s -0:13:20 -
  20135. +Rule    sol89    1989    only    -    Jan    31    12:13:30s -0:13:30 -
  20136. +Rule    sol89    1989    only    -    Feb    1    12:13:40s -0:13:40 -
  20137. +Rule    sol89    1989    only    -    Feb    2    12:13:45s -0:13:45 -
  20138. +Rule    sol89    1989    only    -    Feb    3    12:13:55s -0:13:55 -
  20139. +Rule    sol89    1989    only    -    Feb    4    12:14:00s -0:14:00 -
  20140. +Rule    sol89    1989    only    -    Feb    5    12:14:05s -0:14:05 -
  20141. +Rule    sol89    1989    only    -    Feb    6    12:14:10s -0:14:10 -
  20142. +Rule    sol89    1989    only    -    Feb    7    12:14:10s -0:14:10 -
  20143. +Rule    sol89    1989    only    -    Feb    8    12:14:15s -0:14:15 -
  20144. +Rule    sol89    1989    only    -    Feb    9    12:14:15s -0:14:15 -
  20145. +Rule    sol89    1989    only    -    Feb    10    12:14:20s -0:14:20 -
  20146. +Rule    sol89    1989    only    -    Feb    11    12:14:20s -0:14:20 -
  20147. +Rule    sol89    1989    only    -    Feb    12    12:14:20s -0:14:20 -
  20148. +Rule    sol89    1989    only    -    Feb    13    12:14:15s -0:14:15 -
  20149. +Rule    sol89    1989    only    -    Feb    14    12:14:15s -0:14:15 -
  20150. +Rule    sol89    1989    only    -    Feb    15    12:14:10s -0:14:10 -
  20151. +Rule    sol89    1989    only    -    Feb    16    12:14:10s -0:14:10 -
  20152. +Rule    sol89    1989    only    -    Feb    17    12:14:05s -0:14:05 -
  20153. +Rule    sol89    1989    only    -    Feb    18    12:14:00s -0:14:00 -
  20154. +Rule    sol89    1989    only    -    Feb    19    12:13:55s -0:13:55 -
  20155. +Rule    sol89    1989    only    -    Feb    20    12:13:50s -0:13:50 -
  20156. +Rule    sol89    1989    only    -    Feb    21    12:13:40s -0:13:40 -
  20157. +Rule    sol89    1989    only    -    Feb    22    12:13:35s -0:13:35 -
  20158. +Rule    sol89    1989    only    -    Feb    23    12:13:25s -0:13:25 -
  20159. +Rule    sol89    1989    only    -    Feb    24    12:13:15s -0:13:15 -
  20160. +Rule    sol89    1989    only    -    Feb    25    12:13:05s -0:13:05 -
  20161. +Rule    sol89    1989    only    -    Feb    26    12:12:55s -0:12:55 -
  20162. +Rule    sol89    1989    only    -    Feb    27    12:12:45s -0:12:45 -
  20163. +Rule    sol89    1989    only    -    Feb    28    12:12:35s -0:12:35 -
  20164. +Rule    sol89    1989    only    -    Mar    1    12:12:25s -0:12:25 -
  20165. +Rule    sol89    1989    only    -    Mar    2    12:12:10s -0:12:10 -
  20166. +Rule    sol89    1989    only    -    Mar    3    12:12:00s -0:12:00 -
  20167. +Rule    sol89    1989    only    -    Mar    4    12:11:45s -0:11:45 -
  20168. +Rule    sol89    1989    only    -    Mar    5    12:11:35s -0:11:35 -
  20169. +Rule    sol89    1989    only    -    Mar    6    12:11:20s -0:11:20 -
  20170. +Rule    sol89    1989    only    -    Mar    7    12:11:05s -0:11:05 -
  20171. +Rule    sol89    1989    only    -    Mar    8    12:10:50s -0:10:50 -
  20172. +Rule    sol89    1989    only    -    Mar    9    12:10:35s -0:10:35 -
  20173. +Rule    sol89    1989    only    -    Mar    10    12:10:20s -0:10:20 -
  20174. +Rule    sol89    1989    only    -    Mar    11    12:10:05s -0:10:05 -
  20175. +Rule    sol89    1989    only    -    Mar    12    12:09:50s -0:09:50 -
  20176. +Rule    sol89    1989    only    -    Mar    13    12:09:30s -0:09:30 -
  20177. +Rule    sol89    1989    only    -    Mar    14    12:09:15s -0:09:15 -
  20178. +Rule    sol89    1989    only    -    Mar    15    12:09:00s -0:09:00 -
  20179. +Rule    sol89    1989    only    -    Mar    16    12:08:40s -0:08:40 -
  20180. +Rule    sol89    1989    only    -    Mar    17    12:08:25s -0:08:25 -
  20181. +Rule    sol89    1989    only    -    Mar    18    12:08:05s -0:08:05 -
  20182. +Rule    sol89    1989    only    -    Mar    19    12:07:50s -0:07:50 -
  20183. +Rule    sol89    1989    only    -    Mar    20    12:07:30s -0:07:30 -
  20184. +Rule    sol89    1989    only    -    Mar    21    12:07:15s -0:07:15 -
  20185. +Rule    sol89    1989    only    -    Mar    22    12:06:55s -0:06:55 -
  20186. +Rule    sol89    1989    only    -    Mar    23    12:06:35s -0:06:35 -
  20187. +Rule    sol89    1989    only    -    Mar    24    12:06:20s -0:06:20 -
  20188. +Rule    sol89    1989    only    -    Mar    25    12:06:00s -0:06:00 -
  20189. +Rule    sol89    1989    only    -    Mar    26    12:05:40s -0:05:40 -
  20190. +Rule    sol89    1989    only    -    Mar    27    12:05:25s -0:05:25 -
  20191. +Rule    sol89    1989    only    -    Mar    28    12:05:05s -0:05:05 -
  20192. +Rule    sol89    1989    only    -    Mar    29    12:04:50s -0:04:50 -
  20193. +Rule    sol89    1989    only    -    Mar    30    12:04:30s -0:04:30 -
  20194. +Rule    sol89    1989    only    -    Mar    31    12:04:10s -0:04:10 -
  20195. +Rule    sol89    1989    only    -    Apr    1    12:03:55s -0:03:55 -
  20196. +Rule    sol89    1989    only    -    Apr    2    12:03:35s -0:03:35 -
  20197. +Rule    sol89    1989    only    -    Apr    3    12:03:20s -0:03:20 -
  20198. +Rule    sol89    1989    only    -    Apr    4    12:03:00s -0:03:00 -
  20199. +Rule    sol89    1989    only    -    Apr    5    12:02:45s -0:02:45 -
  20200. +Rule    sol89    1989    only    -    Apr    6    12:02:25s -0:02:25 -
  20201. +Rule    sol89    1989    only    -    Apr    7    12:02:10s -0:02:10 -
  20202. +Rule    sol89    1989    only    -    Apr    8    12:01:50s -0:01:50 -
  20203. +Rule    sol89    1989    only    -    Apr    9    12:01:35s -0:01:35 -
  20204. +Rule    sol89    1989    only    -    Apr    10    12:01:20s -0:01:20 -
  20205. +Rule    sol89    1989    only    -    Apr    11    12:01:05s -0:01:05 -
  20206. +Rule    sol89    1989    only    -    Apr    12    12:00:50s -0:00:50 -
  20207. +Rule    sol89    1989    only    -    Apr    13    12:00:35s -0:00:35 -
  20208. +Rule    sol89    1989    only    -    Apr    14    12:00:20s -0:00:20 -
  20209. +Rule    sol89    1989    only    -    Apr    15    12:00:05s -0:00:05 -
  20210. +Rule    sol89    1989    only    -    Apr    16    11:59:50s 0:00:10 -
  20211. +Rule    sol89    1989    only    -    Apr    17    11:59:35s 0:00:25 -
  20212. +Rule    sol89    1989    only    -    Apr    18    11:59:20s 0:00:40 -
  20213. +Rule    sol89    1989    only    -    Apr    19    11:59:10s 0:00:50 -
  20214. +Rule    sol89    1989    only    -    Apr    20    11:58:55s 0:01:05 -
  20215. +Rule    sol89    1989    only    -    Apr    21    11:58:45s 0:01:15 -
  20216. +Rule    sol89    1989    only    -    Apr    22    11:58:30s 0:01:30 -
  20217. +Rule    sol89    1989    only    -    Apr    23    11:58:20s 0:01:40 -
  20218. +Rule    sol89    1989    only    -    Apr    24    11:58:10s 0:01:50 -
  20219. +Rule    sol89    1989    only    -    Apr    25    11:58:00s 0:02:00 -
  20220. +Rule    sol89    1989    only    -    Apr    26    11:57:50s 0:02:10 -
  20221. +Rule    sol89    1989    only    -    Apr    27    11:57:40s 0:02:20 -
  20222. +Rule    sol89    1989    only    -    Apr    28    11:57:30s 0:02:30 -
  20223. +Rule    sol89    1989    only    -    Apr    29    11:57:20s 0:02:40 -
  20224. +Rule    sol89    1989    only    -    Apr    30    11:57:15s 0:02:45 -
  20225. +Rule    sol89    1989    only    -    May    1    11:57:05s 0:02:55 -
  20226. +Rule    sol89    1989    only    -    May    2    11:57:00s 0:03:00 -
  20227. +Rule    sol89    1989    only    -    May    3    11:56:50s 0:03:10 -
  20228. +Rule    sol89    1989    only    -    May    4    11:56:45s 0:03:15 -
  20229. +Rule    sol89    1989    only    -    May    5    11:56:40s 0:03:20 -
  20230. +Rule    sol89    1989    only    -    May    6    11:56:35s 0:03:25 -
  20231. +Rule    sol89    1989    only    -    May    7    11:56:30s 0:03:30 -
  20232. +Rule    sol89    1989    only    -    May    8    11:56:30s 0:03:30 -
  20233. +Rule    sol89    1989    only    -    May    9    11:56:25s 0:03:35 -
  20234. +Rule    sol89    1989    only    -    May    10    11:56:25s 0:03:35 -
  20235. +Rule    sol89    1989    only    -    May    11    11:56:20s 0:03:40 -
  20236. +Rule    sol89    1989    only    -    May    12    11:56:20s 0:03:40 -
  20237. +Rule    sol89    1989    only    -    May    13    11:56:20s 0:03:40 -
  20238. +Rule    sol89    1989    only    -    May    14    11:56:20s 0:03:40 -
  20239. +Rule    sol89    1989    only    -    May    15    11:56:20s 0:03:40 -
  20240. +Rule    sol89    1989    only    -    May    16    11:56:20s 0:03:40 -
  20241. +Rule    sol89    1989    only    -    May    17    11:56:20s 0:03:40 -
  20242. +Rule    sol89    1989    only    -    May    18    11:56:25s 0:03:35 -
  20243. +Rule    sol89    1989    only    -    May    19    11:56:25s 0:03:35 -
  20244. +Rule    sol89    1989    only    -    May    20    11:56:30s 0:03:30 -
  20245. +Rule    sol89    1989    only    -    May    21    11:56:35s 0:03:25 -
  20246. +Rule    sol89    1989    only    -    May    22    11:56:35s 0:03:25 -
  20247. +Rule    sol89    1989    only    -    May    23    11:56:40s 0:03:20 -
  20248. +Rule    sol89    1989    only    -    May    24    11:56:45s 0:03:15 -
  20249. +Rule    sol89    1989    only    -    May    25    11:56:55s 0:03:05 -
  20250. +Rule    sol89    1989    only    -    May    26    11:57:00s 0:03:00 -
  20251. +Rule    sol89    1989    only    -    May    27    11:57:05s 0:02:55 -
  20252. +Rule    sol89    1989    only    -    May    28    11:57:15s 0:02:45 -
  20253. +Rule    sol89    1989    only    -    May    29    11:57:20s 0:02:40 -
  20254. +Rule    sol89    1989    only    -    May    30    11:57:30s 0:02:30 -
  20255. +Rule    sol89    1989    only    -    May    31    11:57:35s 0:02:25 -
  20256. +Rule    sol89    1989    only    -    Jun    1    11:57:45s 0:02:15 -
  20257. +Rule    sol89    1989    only    -    Jun    2    11:57:55s 0:02:05 -
  20258. +Rule    sol89    1989    only    -    Jun    3    11:58:05s 0:01:55 -
  20259. +Rule    sol89    1989    only    -    Jun    4    11:58:15s 0:01:45 -
  20260. +Rule    sol89    1989    only    -    Jun    5    11:58:25s 0:01:35 -
  20261. +Rule    sol89    1989    only    -    Jun    6    11:58:35s 0:01:25 -
  20262. +Rule    sol89    1989    only    -    Jun    7    11:58:45s 0:01:15 -
  20263. +Rule    sol89    1989    only    -    Jun    8    11:59:00s 0:01:00 -
  20264. +Rule    sol89    1989    only    -    Jun    9    11:59:10s 0:00:50 -
  20265. +Rule    sol89    1989    only    -    Jun    10    11:59:20s 0:00:40 -
  20266. +Rule    sol89    1989    only    -    Jun    11    11:59:35s 0:00:25 -
  20267. +Rule    sol89    1989    only    -    Jun    12    11:59:45s 0:00:15 -
  20268. +Rule    sol89    1989    only    -    Jun    13    12:00:00s 0:00:00 -
  20269. +Rule    sol89    1989    only    -    Jun    14    12:00:10s -0:00:10 -
  20270. +Rule    sol89    1989    only    -    Jun    15    12:00:25s -0:00:25 -
  20271. +Rule    sol89    1989    only    -    Jun    16    12:00:35s -0:00:35 -
  20272. +Rule    sol89    1989    only    -    Jun    17    12:00:50s -0:00:50 -
  20273. +Rule    sol89    1989    only    -    Jun    18    12:01:05s -0:01:05 -
  20274. +Rule    sol89    1989    only    -    Jun    19    12:01:15s -0:01:15 -
  20275. +Rule    sol89    1989    only    -    Jun    20    12:01:30s -0:01:30 -
  20276. +Rule    sol89    1989    only    -    Jun    21    12:01:40s -0:01:40 -
  20277. +Rule    sol89    1989    only    -    Jun    22    12:01:55s -0:01:55 -
  20278. +Rule    sol89    1989    only    -    Jun    23    12:02:10s -0:02:10 -
  20279. +Rule    sol89    1989    only    -    Jun    24    12:02:20s -0:02:20 -
  20280. +Rule    sol89    1989    only    -    Jun    25    12:02:35s -0:02:35 -
  20281. +Rule    sol89    1989    only    -    Jun    26    12:02:45s -0:02:45 -
  20282. +Rule    sol89    1989    only    -    Jun    27    12:03:00s -0:03:00 -
  20283. +Rule    sol89    1989    only    -    Jun    28    12:03:10s -0:03:10 -
  20284. +Rule    sol89    1989    only    -    Jun    29    12:03:25s -0:03:25 -
  20285. +Rule    sol89    1989    only    -    Jun    30    12:03:35s -0:03:35 -
  20286. +Rule    sol89    1989    only    -    Jul    1    12:03:45s -0:03:45 -
  20287. +Rule    sol89    1989    only    -    Jul    2    12:04:00s -0:04:00 -
  20288. +Rule    sol89    1989    only    -    Jul    3    12:04:10s -0:04:10 -
  20289. +Rule    sol89    1989    only    -    Jul    4    12:04:20s -0:04:20 -
  20290. +Rule    sol89    1989    only    -    Jul    5    12:04:30s -0:04:30 -
  20291. +Rule    sol89    1989    only    -    Jul    6    12:04:40s -0:04:40 -
  20292. +Rule    sol89    1989    only    -    Jul    7    12:04:50s -0:04:50 -
  20293. +Rule    sol89    1989    only    -    Jul    8    12:05:00s -0:05:00 -
  20294. +Rule    sol89    1989    only    -    Jul    9    12:05:10s -0:05:10 -
  20295. +Rule    sol89    1989    only    -    Jul    10    12:05:20s -0:05:20 -
  20296. +Rule    sol89    1989    only    -    Jul    11    12:05:25s -0:05:25 -
  20297. +Rule    sol89    1989    only    -    Jul    12    12:05:35s -0:05:35 -
  20298. +Rule    sol89    1989    only    -    Jul    13    12:05:40s -0:05:40 -
  20299. +Rule    sol89    1989    only    -    Jul    14    12:05:50s -0:05:50 -
  20300. +Rule    sol89    1989    only    -    Jul    15    12:05:55s -0:05:55 -
  20301. +Rule    sol89    1989    only    -    Jul    16    12:06:00s -0:06:00 -
  20302. +Rule    sol89    1989    only    -    Jul    17    12:06:05s -0:06:05 -
  20303. +Rule    sol89    1989    only    -    Jul    18    12:06:10s -0:06:10 -
  20304. +Rule    sol89    1989    only    -    Jul    19    12:06:15s -0:06:15 -
  20305. +Rule    sol89    1989    only    -    Jul    20    12:06:20s -0:06:20 -
  20306. +Rule    sol89    1989    only    -    Jul    21    12:06:20s -0:06:20 -
  20307. +Rule    sol89    1989    only    -    Jul    22    12:06:25s -0:06:25 -
  20308. +Rule    sol89    1989    only    -    Jul    23    12:06:25s -0:06:25 -
  20309. +Rule    sol89    1989    only    -    Jul    24    12:06:30s -0:06:30 -
  20310. +Rule    sol89    1989    only    -    Jul    25    12:06:30s -0:06:30 -
  20311. +Rule    sol89    1989    only    -    Jul    26    12:06:30s -0:06:30 -
  20312. +Rule    sol89    1989    only    -    Jul    27    12:06:30s -0:06:30 -
  20313. +Rule    sol89    1989    only    -    Jul    28    12:06:30s -0:06:30 -
  20314. +Rule    sol89    1989    only    -    Jul    29    12:06:25s -0:06:25 -
  20315. +Rule    sol89    1989    only    -    Jul    30    12:06:25s -0:06:25 -
  20316. +Rule    sol89    1989    only    -    Jul    31    12:06:20s -0:06:20 -
  20317. +Rule    sol89    1989    only    -    Aug    1    12:06:20s -0:06:20 -
  20318. +Rule    sol89    1989    only    -    Aug    2    12:06:15s -0:06:15 -
  20319. +Rule    sol89    1989    only    -    Aug    3    12:06:10s -0:06:10 -
  20320. +Rule    sol89    1989    only    -    Aug    4    12:06:05s -0:06:05 -
  20321. +Rule    sol89    1989    only    -    Aug    5    12:06:00s -0:06:00 -
  20322. +Rule    sol89    1989    only    -    Aug    6    12:05:50s -0:05:50 -
  20323. +Rule    sol89    1989    only    -    Aug    7    12:05:45s -0:05:45 -
  20324. +Rule    sol89    1989    only    -    Aug    8    12:05:35s -0:05:35 -
  20325. +Rule    sol89    1989    only    -    Aug    9    12:05:30s -0:05:30 -
  20326. +Rule    sol89    1989    only    -    Aug    10    12:05:20s -0:05:20 -
  20327. +Rule    sol89    1989    only    -    Aug    11    12:05:10s -0:05:10 -
  20328. +Rule    sol89    1989    only    -    Aug    12    12:05:00s -0:05:00 -
  20329. +Rule    sol89    1989    only    -    Aug    13    12:04:50s -0:04:50 -
  20330. +Rule    sol89    1989    only    -    Aug    14    12:04:40s -0:04:40 -
  20331. +Rule    sol89    1989    only    -    Aug    15    12:04:30s -0:04:30 -
  20332. +Rule    sol89    1989    only    -    Aug    16    12:04:15s -0:04:15 -
  20333. +Rule    sol89    1989    only    -    Aug    17    12:04:05s -0:04:05 -
  20334. +Rule    sol89    1989    only    -    Aug    18    12:03:50s -0:03:50 -
  20335. +Rule    sol89    1989    only    -    Aug    19    12:03:35s -0:03:35 -
  20336. +Rule    sol89    1989    only    -    Aug    20    12:03:25s -0:03:25 -
  20337. +Rule    sol89    1989    only    -    Aug    21    12:03:10s -0:03:10 -
  20338. +Rule    sol89    1989    only    -    Aug    22    12:02:55s -0:02:55 -
  20339. +Rule    sol89    1989    only    -    Aug    23    12:02:40s -0:02:40 -
  20340. +Rule    sol89    1989    only    -    Aug    24    12:02:20s -0:02:20 -
  20341. +Rule    sol89    1989    only    -    Aug    25    12:02:05s -0:02:05 -
  20342. +Rule    sol89    1989    only    -    Aug    26    12:01:50s -0:01:50 -
  20343. +Rule    sol89    1989    only    -    Aug    27    12:01:30s -0:01:30 -
  20344. +Rule    sol89    1989    only    -    Aug    28    12:01:15s -0:01:15 -
  20345. +Rule    sol89    1989    only    -    Aug    29    12:00:55s -0:00:55 -
  20346. +Rule    sol89    1989    only    -    Aug    30    12:00:40s -0:00:40 -
  20347. +Rule    sol89    1989    only    -    Aug    31    12:00:20s -0:00:20 -
  20348. +Rule    sol89    1989    only    -    Sep    1    12:00:00s 0:00:00 -
  20349. +Rule    sol89    1989    only    -    Sep    2    11:59:45s 0:00:15 -
  20350. +Rule    sol89    1989    only    -    Sep    3    11:59:25s 0:00:35 -
  20351. +Rule    sol89    1989    only    -    Sep    4    11:59:05s 0:00:55 -
  20352. +Rule    sol89    1989    only    -    Sep    5    11:58:45s 0:01:15 -
  20353. +Rule    sol89    1989    only    -    Sep    6    11:58:25s 0:01:35 -
  20354. +Rule    sol89    1989    only    -    Sep    7    11:58:05s 0:01:55 -
  20355. +Rule    sol89    1989    only    -    Sep    8    11:57:45s 0:02:15 -
  20356. +Rule    sol89    1989    only    -    Sep    9    11:57:20s 0:02:40 -
  20357. +Rule    sol89    1989    only    -    Sep    10    11:57:00s 0:03:00 -
  20358. +Rule    sol89    1989    only    -    Sep    11    11:56:40s 0:03:20 -
  20359. +Rule    sol89    1989    only    -    Sep    12    11:56:20s 0:03:40 -
  20360. +Rule    sol89    1989    only    -    Sep    13    11:56:00s 0:04:00 -
  20361. +Rule    sol89    1989    only    -    Sep    14    11:55:35s 0:04:25 -
  20362. +Rule    sol89    1989    only    -    Sep    15    11:55:15s 0:04:45 -
  20363. +Rule    sol89    1989    only    -    Sep    16    11:54:55s 0:05:05 -
  20364. +Rule    sol89    1989    only    -    Sep    17    11:54:35s 0:05:25 -
  20365. +Rule    sol89    1989    only    -    Sep    18    11:54:10s 0:05:50 -
  20366. +Rule    sol89    1989    only    -    Sep    19    11:53:50s 0:06:10 -
  20367. +Rule    sol89    1989    only    -    Sep    20    11:53:30s 0:06:30 -
  20368. +Rule    sol89    1989    only    -    Sep    21    11:53:10s 0:06:50 -
  20369. +Rule    sol89    1989    only    -    Sep    22    11:52:45s 0:07:15 -
  20370. +Rule    sol89    1989    only    -    Sep    23    11:52:25s 0:07:35 -
  20371. +Rule    sol89    1989    only    -    Sep    24    11:52:05s 0:07:55 -
  20372. +Rule    sol89    1989    only    -    Sep    25    11:51:45s 0:08:15 -
  20373. +Rule    sol89    1989    only    -    Sep    26    11:51:25s 0:08:35 -
  20374. +Rule    sol89    1989    only    -    Sep    27    11:51:05s 0:08:55 -
  20375. +Rule    sol89    1989    only    -    Sep    28    11:50:40s 0:09:20 -
  20376. +Rule    sol89    1989    only    -    Sep    29    11:50:20s 0:09:40 -
  20377. +Rule    sol89    1989    only    -    Sep    30    11:50:00s 0:10:00 -
  20378. +Rule    sol89    1989    only    -    Oct    1    11:49:45s 0:10:15 -
  20379. +Rule    sol89    1989    only    -    Oct    2    11:49:25s 0:10:35 -
  20380. +Rule    sol89    1989    only    -    Oct    3    11:49:05s 0:10:55 -
  20381. +Rule    sol89    1989    only    -    Oct    4    11:48:45s 0:11:15 -
  20382. +Rule    sol89    1989    only    -    Oct    5    11:48:30s 0:11:30 -
  20383. +Rule    sol89    1989    only    -    Oct    6    11:48:10s 0:11:50 -
  20384. +Rule    sol89    1989    only    -    Oct    7    11:47:50s 0:12:10 -
  20385. +Rule    sol89    1989    only    -    Oct    8    11:47:35s 0:12:25 -
  20386. +Rule    sol89    1989    only    -    Oct    9    11:47:20s 0:12:40 -
  20387. +Rule    sol89    1989    only    -    Oct    10    11:47:00s 0:13:00 -
  20388. +Rule    sol89    1989    only    -    Oct    11    11:46:45s 0:13:15 -
  20389. +Rule    sol89    1989    only    -    Oct    12    11:46:30s 0:13:30 -
  20390. +Rule    sol89    1989    only    -    Oct    13    11:46:15s 0:13:45 -
  20391. +Rule    sol89    1989    only    -    Oct    14    11:46:00s 0:14:00 -
  20392. +Rule    sol89    1989    only    -    Oct    15    11:45:50s 0:14:10 -
  20393. +Rule    sol89    1989    only    -    Oct    16    11:45:35s 0:14:25 -
  20394. +Rule    sol89    1989    only    -    Oct    17    11:45:20s 0:14:40 -
  20395. +Rule    sol89    1989    only    -    Oct    18    11:45:10s 0:14:50 -
  20396. +Rule    sol89    1989    only    -    Oct    19    11:45:00s 0:15:00 -
  20397. +Rule    sol89    1989    only    -    Oct    20    11:44:50s 0:15:10 -
  20398. +Rule    sol89    1989    only    -    Oct    21    11:44:40s 0:15:20 -
  20399. +Rule    sol89    1989    only    -    Oct    22    11:44:30s 0:15:30 -
  20400. +Rule    sol89    1989    only    -    Oct    23    11:44:20s 0:15:40 -
  20401. +Rule    sol89    1989    only    -    Oct    24    11:44:10s 0:15:50 -
  20402. +Rule    sol89    1989    only    -    Oct    25    11:44:05s 0:15:55 -
  20403. +Rule    sol89    1989    only    -    Oct    26    11:44:00s 0:16:00 -
  20404. +Rule    sol89    1989    only    -    Oct    27    11:43:50s 0:16:10 -
  20405. +Rule    sol89    1989    only    -    Oct    28    11:43:45s 0:16:15 -
  20406. +Rule    sol89    1989    only    -    Oct    29    11:43:40s 0:16:20 -
  20407. +Rule    sol89    1989    only    -    Oct    30    11:43:40s 0:16:20 -
  20408. +Rule    sol89    1989    only    -    Oct    31    11:43:35s 0:16:25 -
  20409. +Rule    sol89    1989    only    -    Nov    1    11:43:35s 0:16:25 -
  20410. +Rule    sol89    1989    only    -    Nov    2    11:43:35s 0:16:25 -
  20411. +Rule    sol89    1989    only    -    Nov    3    11:43:30s 0:16:30 -
  20412. +Rule    sol89    1989    only    -    Nov    4    11:43:35s 0:16:25 -
  20413. +Rule    sol89    1989    only    -    Nov    5    11:43:35s 0:16:25 -
  20414. +Rule    sol89    1989    only    -    Nov    6    11:43:35s 0:16:25 -
  20415. +Rule    sol89    1989    only    -    Nov    7    11:43:40s 0:16:20 -
  20416. +Rule    sol89    1989    only    -    Nov    8    11:43:45s 0:16:15 -
  20417. +Rule    sol89    1989    only    -    Nov    9    11:43:50s 0:16:10 -
  20418. +Rule    sol89    1989    only    -    Nov    10    11:43:55s 0:16:05 -
  20419. +Rule    sol89    1989    only    -    Nov    11    11:44:00s 0:16:00 -
  20420. +Rule    sol89    1989    only    -    Nov    12    11:44:05s 0:15:55 -
  20421. +Rule    sol89    1989    only    -    Nov    13    11:44:15s 0:15:45 -
  20422. +Rule    sol89    1989    only    -    Nov    14    11:44:25s 0:15:35 -
  20423. +Rule    sol89    1989    only    -    Nov    15    11:44:35s 0:15:25 -
  20424. +Rule    sol89    1989    only    -    Nov    16    11:44:45s 0:15:15 -
  20425. +Rule    sol89    1989    only    -    Nov    17    11:44:55s 0:15:05 -
  20426. +Rule    sol89    1989    only    -    Nov    18    11:45:10s 0:14:50 -
  20427. +Rule    sol89    1989    only    -    Nov    19    11:45:20s 0:14:40 -
  20428. +Rule    sol89    1989    only    -    Nov    20    11:45:35s 0:14:25 -
  20429. +Rule    sol89    1989    only    -    Nov    21    11:45:50s 0:14:10 -
  20430. +Rule    sol89    1989    only    -    Nov    22    11:46:05s 0:13:55 -
  20431. +Rule    sol89    1989    only    -    Nov    23    11:46:25s 0:13:35 -
  20432. +Rule    sol89    1989    only    -    Nov    24    11:46:40s 0:13:20 -
  20433. +Rule    sol89    1989    only    -    Nov    25    11:47:00s 0:13:00 -
  20434. +Rule    sol89    1989    only    -    Nov    26    11:47:20s 0:12:40 -
  20435. +Rule    sol89    1989    only    -    Nov    27    11:47:35s 0:12:25 -
  20436. +Rule    sol89    1989    only    -    Nov    28    11:47:55s 0:12:05 -
  20437. +Rule    sol89    1989    only    -    Nov    29    11:48:20s 0:11:40 -
  20438. +Rule    sol89    1989    only    -    Nov    30    11:48:40s 0:11:20 -
  20439. +Rule    sol89    1989    only    -    Dec    1    11:49:00s 0:11:00 -
  20440. +Rule    sol89    1989    only    -    Dec    2    11:49:25s 0:10:35 -
  20441. +Rule    sol89    1989    only    -    Dec    3    11:49:50s 0:10:10 -
  20442. +Rule    sol89    1989    only    -    Dec    4    11:50:15s 0:09:45 -
  20443. +Rule    sol89    1989    only    -    Dec    5    11:50:35s 0:09:25 -
  20444. +Rule    sol89    1989    only    -    Dec    6    11:51:00s 0:09:00 -
  20445. +Rule    sol89    1989    only    -    Dec    7    11:51:30s 0:08:30 -
  20446. +Rule    sol89    1989    only    -    Dec    8    11:51:55s 0:08:05 -
  20447. +Rule    sol89    1989    only    -    Dec    9    11:52:20s 0:07:40 -
  20448. +Rule    sol89    1989    only    -    Dec    10    11:52:50s 0:07:10 -
  20449. +Rule    sol89    1989    only    -    Dec    11    11:53:15s 0:06:45 -
  20450. +Rule    sol89    1989    only    -    Dec    12    11:53:45s 0:06:15 -
  20451. +Rule    sol89    1989    only    -    Dec    13    11:54:10s 0:05:50 -
  20452. +Rule    sol89    1989    only    -    Dec    14    11:54:40s 0:05:20 -
  20453. +Rule    sol89    1989    only    -    Dec    15    11:55:10s 0:04:50 -
  20454. +Rule    sol89    1989    only    -    Dec    16    11:55:40s 0:04:20 -
  20455. +Rule    sol89    1989    only    -    Dec    17    11:56:05s 0:03:55 -
  20456. +Rule    sol89    1989    only    -    Dec    18    11:56:35s 0:03:25 -
  20457. +Rule    sol89    1989    only    -    Dec    19    11:57:05s 0:02:55 -
  20458. +Rule    sol89    1989    only    -    Dec    20    11:57:35s 0:02:25 -
  20459. +Rule    sol89    1989    only    -    Dec    21    11:58:05s 0:01:55 -
  20460. +Rule    sol89    1989    only    -    Dec    22    11:58:35s 0:01:25 -
  20461. +Rule    sol89    1989    only    -    Dec    23    11:59:05s 0:00:55 -
  20462. +Rule    sol89    1989    only    -    Dec    24    11:59:35s 0:00:25 -
  20463. +Rule    sol89    1989    only    -    Dec    25    12:00:05s -0:00:05 -
  20464. +Rule    sol89    1989    only    -    Dec    26    12:00:35s -0:00:35 -
  20465. +Rule    sol89    1989    only    -    Dec    27    12:01:05s -0:01:05 -
  20466. +Rule    sol89    1989    only    -    Dec    28    12:01:35s -0:01:35 -
  20467. +Rule    sol89    1989    only    -    Dec    29    12:02:00s -0:02:00 -
  20468. +Rule    sol89    1989    only    -    Dec    30    12:02:30s -0:02:30 -
  20469. +Rule    sol89    1989    only    -    Dec    31    12:03:00s -0:03:00 -
  20470. +
  20471. +# Riyadh is at about 46 degrees 46 minutes East:  3 hrs, 7 mins, 4 secs
  20472. +# Before and after 1989, we'll operate on local mean solar time.
  20473. +
  20474. +# Zone    NAME            GMTOFF    RULES/SAVE    FORMAT    [UNTIL]
  20475. +Zone    Mideast/Riyadh89    3:07:04    -        ??    1989
  20476. +                3:07:04    sol89        ??    1990
  20477. +                3:07:04    -        ??
  20478. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/southamerica amiga/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/southamerica
  20479. --- baseline/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/southamerica    Wed Dec 31 17:00:00 1969
  20480. +++ amiga/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/southamerica    Sat Sep 28 00:00:00 1996
  20481. @@ -0,0 +1,103 @@
  20482. +# @(#)southamerica    4.3
  20483. +
  20484. +# From Guy Harris:
  20485. +# From Official Airline Guide - Worldwide Edition (1987).  Countries not
  20486. +# listed here do not observe DST, according to the OAG.  Time zone names
  20487. +# are pure inventions, and none are supplied for countries not observing
  20488. +# DST; updates from natives would be appreciated.  The times that DST
  20489. +# starts and ends are based on the assumption that they switch a 2AM just
  20490. +# as everybody else does.
  20491. +
  20492. +###############################################################################
  20493. +
  20494. +# Brazil
  20495. +
  20496. +# From Guy Harris:
  20497. +# The OAG lists October 25, 1987 and February 12, 1988 as the starting and
  20498. +# ending dates, giving them as "estimated date(s) based on previous year".  We
  20499. +# infer a rule here from one example, always a dangerous practice....  Yes,
  20500. +# they really do switch on Saturday, according to the OAG.
  20501. +# "Brazil/Acre" is for the Territory of Acre; "Brazil/DeNoronha" is for
  20502. +# Fernando De Noronha.
  20503. +
  20504. +# From Bob Devine (January 28, 1988):
  20505. +# The only information I found is that there was no DST up to 1985.
  20506. +# But there was some before 1952!
  20507. +
  20508. +# From U. S. Naval Observatory (January 16, 1989):
  20509. +# BRAZIL     WEST     5 H  BEHIND UTC    TERRITORY OF ACRE
  20510. +# BRAZIL     WEST     4 H  BEHIND UTC    ACRE OCT 23, '88-FEB 11,
  20511. +# BRAZIL                                 '89 (ESTIMATED)
  20512. +# BRAZIL     CENTRAL  4 H  BEHIND UTC    MANAUS
  20513. +# BRAZIL     CENTRAL  3 H  BEHIND UTC    MANAUS OCT 23, '88-FEB 11,
  20514. +# BRAZIL     CENTRAL                     '89 (ESTIMATED)
  20515. +# BRAZIL     EAST     3 H  BEHIND UTC    COASTAL STATES, RIO, SAO
  20516. +# BRAZIL     EAST                        PAULO, BRASILIA
  20517. +# BRAZIL     EAST     2 H  BEHIND UTC    COASTAL STATES, RIO, SAO
  20518. +# BRAZIL                                 PAULO, BRASILIA OCT 23,
  20519. +# BRAZIL                                 '88-FEB 11, '89
  20520. +# BRAZIL                                 (ESTIMATED)
  20521. +# BRAZIL              2 H  BEHIND UTC    ATLANTIC ISLANDS, FERNANDO
  20522. +# BRAZIL                                 DE NORONHA
  20523. +# BRAZIL              1 H  BEHIND UTC    OCT 23, '88-FEB 11, '89
  20524. +# BRAZIL                                 (ESTIMATED)
  20525. +# BRAZIL              3 H  BEHIND UTC    FOR MOST MAJOR AIRPORTS.
  20526. +
  20527. +# Rule    NAME    FROM    TO    TYPE    IN    ON    AT    SAVE    LETTER/S
  20528. +Rule    Brazil    1987    max    -    Feb    Sat<=14    2:00    0    S
  20529. +Rule    Brazil    1987    max    -    Oct    Sat<=28    2:00    1:00    D
  20530. +
  20531. +# Zone    NAME            GMTOFF    RULES/SAVE    FORMAT    [UNTIL]
  20532. +Zone    Brazil/East        -3:00    Brazil        E%sT
  20533. +Zone    Brazil/West        -4:00    Brazil        W%sT
  20534. +Zone    Brazil/Acre        -5:00    Brazil        A%sT
  20535. +Zone    Brazil/DeNoronha    -2:00    Brazil        F%sT
  20536. +
  20537. +###############################################################################
  20538. +
  20539. +# Chile
  20540. +
  20541. +# From Guy Harris:
  20542. +# The OAG lists October 11, 1987 and March 12, 1988 as the starting and
  20543. +# ending dates, giving them as "estimated date(s) based on previous year."
  20544. +
  20545. +# From Bob Devine (January 28, 1988):
  20546. +# Chile has had 2nd Sunday in October to 2nd Sunday in March DST since 1977.
  20547. +# Switch is at midnight. OAG is right.
  20548. +
  20549. +# Rule    NAME    FROM    TO    TYPE    IN    ON    AT    SAVE    LETTER/S
  20550. +Rule    Chile    1977    max    -    Oct    Sun>=8    0:00    1:00    D
  20551. +Rule    Chile    1978    max    -    Mar    Sun>=8    0:00    0    S
  20552. +
  20553. +# Zone    NAME            GMTOFF    RULES/SAVE    FORMAT    [UNTIL]
  20554. +Zone    Chile/Continental    -4:00    Chile        C%sT
  20555. +Zone    Chile/EasterIsland    -6:00    Chile        E%sT
  20556. +
  20557. +###############################################################################
  20558. +
  20559. +# Paraguay
  20560. +
  20561. +# From Bob Devine (January 28, 1988):
  20562. +# Paraguay: First day in October to last in March.  Midnight switch??
  20563. +# Since 1980.
  20564. +
  20565. +# From U. S. Naval Observatory (January 19, 1989):
  20566. +# PARAGUAY            4 H  BEHIND UTC
  20567. +# PARAGUAY            3 H  BEHIND UTC    OCT 1, '88-MAR 31, '89
  20568. +
  20569. +# From Arthur David Olson (January 21, 1989):
  20570. +# Still don't know time of day when switch occurs.  Punt.
  20571. +
  20572. +###############################################################################
  20573. +
  20574. +# Argentina
  20575. +
  20576. +# From Bob Devine (January 28, 1988):
  20577. +# Argentina: first Sunday in October to first Sunday in April since 1976.
  20578. +# Double Summer time from 1969 to 1974.  Switches at midnight.
  20579. +
  20580. +# From U. S. Naval Observatory (January 19, 19889):
  20581. +# ARGENTINA           3 H BEHIND   UTC
  20582. +
  20583. +# From Arthur David Olson (January 21, 1989):
  20584. +# OAG, USNO and Bob have different data.  Punt.
  20585. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/systemv amiga/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/systemv
  20586. --- baseline/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/systemv    Wed Dec 31 17:00:00 1969
  20587. +++ amiga/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/systemv    Sat Sep 28 00:00:00 1996
  20588. @@ -0,0 +1,35 @@
  20589. +# @(#)systemv    4.1
  20590. +
  20591. +# Old rules, should the need arise.
  20592. +# No attempt is made to handle Newfoundland, since it cannot be expressed
  20593. +# using the System V "TZ" scheme (half-hour offset), or anything outside
  20594. +# North America (no support for non-standard DST start/end dates), nor
  20595. +# the change in the DST rules in the US in 1987 (can't split between
  20596. +# Canada, with no changes, and the US)
  20597. +#
  20598. +# Be sure to compile this *without* leap second correction for true conformance.
  20599. +
  20600. +# Rule    NAME    FROM    TO    TYPE    IN    ON    AT    SAVE    LETTER/S
  20601. +Rule    SystemV    min    1973    -    Apr    lastSun    2:00    1:00    D
  20602. +Rule    SystemV    min    1973    -    Oct    lastSun    2:00    0    S
  20603. +Rule    SystemV    1974    only    -    Jan    6    2:00    1:00    D
  20604. +Rule    SystemV    1974    only    -    Nov    lastSun    2:00    0    S
  20605. +Rule    SystemV    1975    only    -    Feb    23    2:00    1:00    D
  20606. +Rule    SystemV    1975    only    -    Oct    lastSun    2:00    0    S
  20607. +Rule    SystemV    1976    max    -    Apr    lastSun    2:00    1:00    D
  20608. +Rule    SystemV    1976    max    -    Oct    lastSun    2:00    0    S
  20609. +
  20610. +# Zone    NAME        GMTOFF    RULES/SAVE    FORMAT    [UNTIL]
  20611. +Zone    SystemV/AST4ADT    -4:00    SystemV        A%sT
  20612. +Zone    SystemV/EST5EDT    -5:00    SystemV        E%sT
  20613. +Zone    SystemV/CST6CDT    -6:00    SystemV        C%sT
  20614. +Zone    SystemV/MST7MDT    -7:00    SystemV        M%sT
  20615. +Zone    SystemV/PST8PDT    -8:00    SystemV        P%sT
  20616. +Zone    SystemV/YST9YDT    -9:00    SystemV        Y%sT
  20617. +Zone    SystemV/AST4    -4:00    -        AST
  20618. +Zone    SystemV/EST5    -5:00    -        EST
  20619. +Zone    SystemV/CST6    -6:00    -        CST
  20620. +Zone    SystemV/MST7    -7:00    -        MST
  20621. +Zone    SystemV/PST8    -8:00    -        PST
  20622. +Zone    SystemV/YST9    -9:00    -        YST
  20623. +Zone    SystemV/HST10    -10:00    -        HST
  20624. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/usno1988 amiga/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/usno1988
  20625. --- baseline/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/usno1988    Wed Dec 31 17:00:00 1969
  20626. +++ amiga/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/usno1988    Sat Sep 28 00:00:00 1996
  20627. @@ -0,0 +1,111 @@
  20628. +# @(#)usno1988    1.1
  20629. +#
  20630. +# From Arthur David Olson (January 19, 1989):
  20631. +#
  20632. +# Here's some United States Naval Observatory time zone data from
  20633. +# February 1988.  It's here mostly to convince you that the USNO has indeed
  20634. +# been updating its files (see its 1989 data elsewhere).
  20635. +#
  20636. +ANDORRA             1 H AHEAD OF UTC
  20637. +ARGENTINA           3 H BEHIND   UTC
  20638. +BRASIL   WEST       5 H BEHIND UTC        (CRUZEIRO DO SUL) 
  20639. +BRASIL   CENTRAL    4 H BEHIND UTC              (MANAUS)
  20640. +BRASIL   EAST       3 H BEHIND UTC   COASTAL STATES, RIO, SP, BRASILIA
  20641. +BRASIL              2 H BEHIND UTC   ATLANTIC ISLANDS 
  20642. +BRAZIL              5 H BEHIND UTC   WEST (CRUZEIRO DO SUL) 
  20643. +BRAZIL              4 H BEHIND UTC   CENTRAL    (MANAUS)
  20644. +BRAZIL              3 H BEHIND UTC   COASTAL STATES, RIO, SP, BRASILIA
  20645. +BRAZIL              3 H BEHIND UTC   FOR MOST MAJOR AIRPORTS. 
  20646. +BRAZIL              2 H BEHIND UTC   ATLANTIC ISLANDS 
  20647. +BULGARIA            2 H AHEAD OF UTC WINTER 
  20648. +BULGARIA            3 H AHEAD OF UTC SUMMER MAR31 - SEP 85, 0100 LOCAL
  20649. +CHINA               8 H AHEAD OF UTC; ALL OF CHINA, INCL TAIWAN 
  20650. +CUBA                5 H BEHIND UTC IN WINTER
  20651. +CUBA                4 H BEHIND UTC MAY 8 - OCT 8
  20652. +CYPRUS              2 H AHEAD UTC IN WINTER 
  20653. +CYPRUS              3 H AHEAD UTC MAR 25 - SEP 30 
  20654. +DENMARK             1 H AHEAD UTC IN WINTER 
  20655. +DENMARK             2 H AHEAD UTC MAR 31 - SEP 30  , 0200 LOCAL 
  20656. +DENMK. FAEROE IS    1 H AHEAD UTC MAR 31 - SEP 30  , 0200 LOCAL 
  20657. +EGYPT               2 H AHEAD UTC 
  20658. +EGYPT               3 H AHEAD UTC SUMMER (AFTER RAMADAN)
  20659. +ENGLAND             ON UTC IN WINTER; WALES, SCOTLAND, N.I., CH.IS. 
  20660. +ENGLAND             1 H AHEAD OF UTC; SUMMER TIL 28 OCT 0200 LOCAL
  20661. +FINLAND             2 H AHEAD OF UTC IN WINTER
  20662. +FINLAND             3 H AHEAD OF UTC MAR 25 - SEP 30  
  20663. +FRANCE              1 H AHEAD OF UTC IN WINTER
  20664. +FRANCE              2 H AHEAD OF UTC MAR 31 - SEP 30 , 0100 LOCAL 
  20665. +GREECE              2 H AHEAD OF UTC IN WINTER
  20666. +GREECE              3 H AHEAD OF UTC IN SUMMER EFF. 31MAR85 02/03 LOCAL 
  20667. +GREECE              3 H AHEAD OF UTC MAR 25 - SEP 30
  20668. +GREENLAND           4 H BEHIND UTC  IN THULE AIRBASE YEAR ROUND 
  20669. +GREENLAND           3 H BEHIND UTC  IN WINTER AT SONDRESTROM
  20670. +GREENLAND           2 H BEHIND UTC  30 MAR - 30 SEP 2200 LOCAL AT -"- 
  20671. +GREENLAND           2 H BEHIND UTC  AROUND SCORESBY SUND
  20672. +ICELAND             ON UTC
  20673. +IRAN                3.5H AHEAD OF UTC 
  20674. +IRELAND             ON UTC IN WINTER
  20675. +IRELAND             1 H AHEAD OF UTC MAR 31 - OCT 23  0200 LOCAL
  20676. +ITALY               1 H AHEAD OF UTC IN WINTER
  20677. +ITALY               2 H AHEAD OF UTC MAR 31 - SEP 30, 0030 LOCAL
  20678. +JAMAICA             5 H BEHIND UTC IN WINTER
  20679. +JAMAICA             4 H BEHIND UTC APR 29 - OCT 29
  20680. +LIBYA               2 H AHEAD OF UTC
  20681. +MEXICO BAJA CAL N   8 H BEHIND UTC IN WINTER; NORTH BAJA CAL, TIJUANA 
  20682. +MEXICO BAJA CAL N   7 H BEHIND UTC APR 29 - OCT 29
  20683. +MEXICO BAJA CAL S   7 H BEHIND UTC ALL YEAR; MAZATLAN 
  20684. +MEXICO CENTRAL      6 H BEHIND UTC ALL YEAR; MEXICO CITY
  20685. +MONACO              1 H AHEAD UTC IN WINTER 
  20686. +MONACO              2 H AHEAD UTC MAR 25 - SEP30
  20687. +PARAGUAY            4 H BEHIND UTC IN WINTER
  20688. +PARAGUAY            3 H BEHIND UTC SEP 30 - MAR 30
  20689. +POLAND              1 H AHEAD OF UTC IN WINTER
  20690. +POLAND              2 H AHEAD OF UTC MAR 24 - SEP     0200 LOCAL
  20691. +PORTUGAL            ON UTC IN WINTER
  20692. +PORTUGAL            1 H AHEAD OF UTC IN SUMMER MAR 31 - SEP 29   0100 LOCAL 
  20693. +PORTUGAL AZORES     1 H BEHIND UTC IN WINTER
  20694. +PORTUGAL AZORES     ON UTC IN SUMMER MAR 31 - SEP 29
  20695. +PORTUGAL MADEIRA    ON UTC ALL YEAR;
  20696. +ROMANIA             2 H AHEAD OF UTC IN WINTER
  20697. +ROMANIA             3 H AHEAD OF UTC APR 3 - SEP 24 
  20698. +SCOTLAND            SEE ENGLAND 
  20699. +SWITZERLAND         1 H AHEAD OF UTC IN WINTER
  20700. +SWITZERLAND         2 H AHEAD OF UTC MAR 31 - SEP 30  0200 LOCAL
  20701. +TURKEY              3 H AHEAD OF UTC
  20702. +USA   EASTERN       5 H BEHIND UTC IN WINTER; NEW YORK, WASHINGTON
  20703. +USA   EASTERN       4 H BEHIND UTC APR 29 - OCT 29
  20704. +USA   CENTRAL       6 H BEHIND UTC IN WINTER; CHICAGO, HOUSTON
  20705. +USA   CENTRAL       5 H BEHIND UTC APR 29 - OCT 29
  20706. +USA   MOUNTAIN      7 H BEHIND UTC IN WINTER; DENVER
  20707. +USA   MOUNTAIN      6 H BEHIND UTC APR 29 - OCT 29
  20708. +USA   PACIFIC       8 H BEHIND UTC IN WINTER; L.A., SAN FRANCISCO 
  20709. +USA   PACIFIC       7 H BEHIND UTC APR 29 - OCT 29
  20710. +USA   ALASKA STD    9 H BEHIND UTC IN WINTER; MOST OF ALASKA     (AKST) 
  20711. +USA   ALASKA STD    8 H BEHIND UTC APR 29 - OCT 29               (AKDT) 
  20712. +USA   ALEUTIAN     10 H BEHIND UTC IN WINTER; ISLANDS WEST OF 170W
  20713. +USA   - " -         9 H BEHIND UTC APR 29 - OCT 29
  20714. +USA   HAWAII       10 H BEHIND UTC ALL YEAR;
  20715. +USA   BERING       11 H BEHIND UTC ALL YEAR; SAMOA, MIDWAY
  20716. +USSR WEST EUROP     3 H AHEAD OF UTC IN WINTER; LENINGRAD, MOSCOW 
  20717. +USSR WEST EUROP     4 H AHEAD OF UTC APR 1 - SEP 30 
  20718. +USSR CENTRAL EUR    4 H AHEAD OF UTC IN WINTER; ROSTOV, BAKU
  20719. +USSR CENTRAL EUR    5 H AHEAD OF UTC APR 1 - SEP 30 
  20720. +USSR EAST EUROP     5 H AHEAD OF UTC IN WINTER; SVERDLOVSK
  20721. +USSR EAST EUROP     6 H AHEAD OF UTC APR 1 - SEP 30 
  20722. +USSR WEST SIBERIAN  6 H AHEAD OF UTC IN WINTER; TASHKENT, ALMA ATA
  20723. +USSR WEST SIBERIAN  7 H AHEAD OF UTC APR 1 - SEP 30 
  20724. +USSR WEST-CENTRAL   7 H AHEAD OF UTC IN WINTER; NOVOSIBIRSK 
  20725. +USSR WEST-CENTRAL   8 H AHEAD OF UTC APR 1 - SEP 30 
  20726. +USSR WEST-CENTRAL   8 H AHEAD OF UTC IN WINTER; IRKUTSK 
  20727. +USSR WEST-CENTRAL   9 H AHEAD OF UTC APR 1 - SEP 30 
  20728. +USSR CENTRAL SIB    9 H AHEAD OF UTC IN WINTER; YAKUTSK 
  20729. +USSR CENTRAL SIB   10 H AHEAD OF UTC APR 1 - SEP 30 
  20730. +USSR CENTRAL SIB   10 H AHEAD OF UTC IN WINTER; VLADIVOSTOK 
  20731. +USSR CENTRAL SIB   11 H AHEAD OF UTC APR 1 - SEP 30 
  20732. +USSR EAST SIBERIA  11 H AHEAD OF UTC IN WINTER; MAGADAN 
  20733. +USSR EAST SIBERIA  12 H AHEAD OF UTC APR 1 - SEP 30 
  20734. +USSR EAST SIBERIA  12 H AHEAD OF UTC IN WINTER; PETROPAVLOVSK 
  20735. +USSR EAST SIBERIA  13 H AHEAD OF UTC APR 1 - SEP 30 
  20736. +USSR EAST SIBERIA  13 H AHEAD OF UTC IN WINTER; UELEN 
  20737. +USSR EAST SIBERIA  14 H AHEAD OF UTC APR 1 - SEP 30 
  20738. +WALES               SEE ENGLAND 
  20739. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/usno1989 amiga/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/usno1989
  20740. --- baseline/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/usno1989    Wed Dec 31 17:00:00 1969
  20741. +++ amiga/fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/usno1989    Sat Sep 28 00:00:00 1996
  20742. @@ -0,0 +1,452 @@
  20743. +# @(#)usno1989    1.3
  20744. +#
  20745. +# From Arthur David Olson (January 19, 1989):
  20746. +# 
  20747. +# Here's time zone information from the United States Naval Observatory;
  20748. +# no corrections have been made, and there are some obvious challenges.
  20749. +# The USNO warns:
  20750. +#    DUE TO FREQUENT CHANGES IN THE LOCAL LAWS GOVERNING DAYLIGHT
  20751. +#    SAVING TIME, WE CANNOT GUARANTEE THE ACCURACY OF THIS
  20752. +#    INFORMATION.  PLEASE ALERT US TO ANY DISCREPANCY YOU MAY
  20753. +#    DISCOVER.
  20754. +#
  20755. +AFGHANISTAN         4.5H AHEAD OF UTC
  20756. +ALBANIA             1 H  AHEAD OF UTC
  20757. +ALBANIA             2 H  AHEAD OF UTC  MAR 27 - SEP 24
  20758. +ALBANIA                                (ESTIMATED)
  20759. +ALGERIA             1 H  AHEAD OF UTC
  20760. +AMERICAN SAMOA     11 H  BEHIND UTC
  20761. +ANDORRA             1 H  AHEAD OF UTC
  20762. +ANDORRA             2 H  AHEAD OF UTC  MAR 27 - SEP 24
  20763. +ANDORRA                                (ESTIMATED)
  20764. +ANGOLA              1 H  AHEAD OF UTC
  20765. +ARGENTINA           3 H  BEHIND UTC
  20766. +ARUBA               4 H  BEHIND UTC    ALSO BONAIRE, CURACAO,
  20767. +ARUBA                                  ST.MAARTEN
  20768. +AUSTRALIA  WEST     8 H  AHEAD OF UTC  PERTH, EXMOUTH
  20769. +AUSTRALIA  N.T.     9.5H AHEAD OF UTC  DARWIN  NO ADVANCED TIME
  20770. +AUSTRALIA  N.T.                                IN SUMMER
  20771. +AUSTRALIA  SOUTH    9.5H AHEAD OF UTC  ADELAIDE
  20772. +AUSTRALIA                              INCLUDING BROKEN HILL, NSW
  20773. +AUSTRALIA  SOUTH   10.5H AHEAD OF UTC  ADELAIDE OCT 30, '88-MAR
  20774. +AUSTRALIA  SOUTH                       18, '89 INCLUDING BROKEN
  20775. +AUSTRIALIA SOUTH                       HILL, NSW
  20776. +AUSTRALIA  QUEENL  10 H  AHEAD OF UTC
  20777. +AUSTRALIA  NSW     10 H  AHEAD OF UTC  SYDNEY
  20778. +AUSTRALIA  NSW     11 H  AHEAD OF UTC  SYDNEY OCT 30, '88-MAR 18,
  20779. +AUSTRALIA  NSW                         '89
  20780. +AUSTRALIA  TASM.   10 H  AHEAD OF UTC  HOBART
  20781. +AUSTRALIA  TASM.   11 H  AHEAD OF UTC  HOBART OCT 30, '88-MAR 18,
  20782. +AUSTRALIA  TASM.                       '89
  20783. +AUSTRIA             1 H  AHEAD OF UTC
  20784. +AUSTRIA             2 H  AHEAD OF UTC  MAR 27 - SEPT 24
  20785. +AZORES                   SEE PORTUGAL
  20786. +BAHAMAS             5 H  BEHIND UTC    EXCLUDING TURKS AND CAICOS
  20787. +BAHAMAS                                ISLANDS)
  20788. +BAHAMAS             4 H  BEHIND UTC    APR 3 - OCT 29 (SAME
  20789. +BAHAMAS                                EXCLUSION)
  20790. +BAHRAIN             3 H  AHEAD OF UTC
  20791. +BANGLADESH          6 H  AHEAD OF UTC
  20792. +BARBADOS            4 H  BEHIND UTC
  20793. +BELGIUM             1 H  AHEAD OF UTC
  20794. +BELGIUM             2 H  AHEAD OF UTC  MAR 27 - SEP 24
  20795. +BELIZE              6 H  BEHIND UTC
  20796. +BENIN PEOPLES REP   1 H  AHEAD OF UTC  DAHOMEY
  20797. +BERMUDA             4 H  BEHIND UTC
  20798. +BERMUDA             3 H  BEHIND UTC    APR 3 - OCT 29
  20799. +BHUTAN              6 H  AHEAD OF UTC
  20800. +BOLIVIA             4 H  BEHIND UTC
  20801. +BONAIRE             4 H  BEHIND UTC    ALSO ARUBA,CURACAO,
  20802. +BONAIRE                                ST.MAARTEN, SABA
  20803. +BOTSWANA            2 H  AHEAD OF UTC
  20804. +BRAZIL     WEST     5 H  BEHIND UTC    TERRITORY OF ACRE
  20805. +BRAZIL     WEST     4 H  BEHIND UTC    ACRE OCT 23, '88-FEB 11,
  20806. +BRAZIL                                 '89 (ESTIMATED)
  20807. +BRAZIL     CENTRAL  4 H  BEHIND UTC    MANAUS
  20808. +BRAZIL     CENTRAL  3 H  BEHIND UTC    MANAUS OCT 23, '88-FEB 11,
  20809. +BRAZIL     CENTRAL                     '89 (ESTIMATED)
  20810. +BRAZIL     EAST     3 H  BEHIND UTC    COASTAL STATES, RIO, SAO
  20811. +BRAZIL     EAST                        PAULO, BRASILIA
  20812. +BRAZIL     EAST     2 H  BEHIND UTC    COASTAL STATES, RIO, SAO
  20813. +BRAZIL                                 PAULO, BRASILIA OCT 23,
  20814. +BRAZIL                                 '88-FEB 11, '89
  20815. +BRAZIL                                 (ESTIMATED)
  20816. +BRAZIL              2 H  BEHIND UTC    ATLANTIC ISLANDS, FERNANDO
  20817. +BRAZIL                                 DE NORONHA
  20818. +BRAZIL              1 H  BEHIND UTC    OCT 23, '88-FEB 11, '89
  20819. +BRAZIL                                 (ESTIMATED)
  20820. +BRAZIL              3 H  BEHIND UTC    FOR MOST MAJOR AIRPORTS.
  20821. +BRITISH VIRGIN I.   4 H  BEHIND UTC
  20822. +BRUNEI              8 H  AHEAD OF UTC
  20823. +BULGARIA            2 H  AHEAD OF UTC
  20824. +BULGARIA            3 H  AHEAD OF UTC  MAR 27 - SEP 24
  20825. +BURKINA FASO        ON UTC
  20826. +BURMA               6.5H AHEAD OF UTC
  20827. +BURUNDI             2 H  AHEAD OF UTC
  20828. +CAMBODIA            SEE KAMPUCHEA
  20829. +CAMEROON            1 H  AHEAD OF UTC
  20830. +CANADA   NEW FDL    3.5H BEHIND UTC    ST.JOHN'S
  20831. +CANADA   NEW FDL    1.5H BEHIND UTC    APR 3 - OCT 29
  20832. +CANADA   ATLANTIC   4 H  BEHIND UTC    HALIFAX
  20833. +CANADA   ATLANTIC   3 H  BEHIND UTC    APR 3 - OCT 29
  20834. +CANADA   EASTERN    5 H  BEHIND UTC    TORONTO, MONTREAL, OTTAWA
  20835. +CANADA   EASTERN    4 H  BEHIND UTC    APR 3 - OCT 29
  20836. +CANADA   CENTRAL    6 H  BEHIND UTC    REGINA, WINNIPEG
  20837. +CANADA   CENTRAL    5 H  BEHIND UTC    APR 3 - OCT 29
  20838. +CANADA   MOUNTAIN   7 H  BEHIND UTC    CALGARY, EDMONTON
  20839. +CANADA   MOUNTAIN   6 H  BEHIND UTC    APR 3 - OCT 29
  20840. +CANADA   PACIFIC    8 H  BEHIND UTC    VANCOUVER
  20841. +CANADA   PACIFIC    7 H  BEHIND UTC    APR 3 - OCT 29
  20842. +CANADA   YUKON      SAME AS PACIFIC    DAWSON
  20843. +CAPE VERDE          1 H  BEHIND UTC
  20844. +CAYMAN ISLANDS      5 H  BEHIND UTC
  20845. +CAROLINE ISLAND    10 H  AHEAD OF UTC  EXCLUDING PONAPE IS.,
  20846. +CAROLINE ISLAND                       KUSAIE, AND PINGELAP
  20847. +CENTRAL AFRICA      1 H  AHEAD OF UTC
  20848. +CEYLON              5.5H AHEAD OF UTC, SEE SRI LANKA
  20849. +CHAD                1 H  AHEAD OF UTC
  20850. +CHANNEL ISLANDS     SEE ENGLAND
  20851. +CHILE               4 H  BEHIND UTC    CONTINENTAL
  20852. +CHILE               3 H  BEHIND UTC    OCT 9, '88-MAR 11, '89
  20853. +CHILE               6 H  BEHIND UTC    EASTER ISLAND
  20854. +CHILE               5 H  BEHIND UTC    OCT 9, '88-MAR 11, '89
  20855. +CHINA               8 H  AHEAD OF UTC  ALL OF CHINA, INCL TAIWAN
  20856. +CHINA               9 H  AHEAD OF UTC  APR 17 - SEP 10
  20857. +COCOS (Keeling) I.  6.5H AHEAD OF UTC
  20858. +COLOMBIA            5 H  BEHIND UTC
  20859. +COMOROS             3 H  AHEAD OF UTC
  20860. +CONGO               1 H  AHEAD OF UTC
  20861. +COOK ISLANDS       10 H  BEHIND UTC
  20862. +COOK ISLANDS        9.5H  BEHIND UTC   OCT 30, '88-MAR 24, '89
  20863. +COOK ISLANDS                           (ESTIMATED)
  20864. +COSTA RICA          6 H  BEHIND UTC
  20865. +COTE D'IVOIRE       ON UTC
  20866. +CUBA                5 H  BEHIND UTC
  20867. +CUBA                4 H  BEHIND UTC    MAR 20 - OCT 8
  20868. +CURACAO             4 H  BEHIND UTC    ALSO BONAIRE, ARUBA,
  20869. +CURACAO                                ST.MAARTEN
  20870. +CYPRUS              2 H  AHEAD OF UTC
  20871. +CYPRUS              3 H  AHEAD OF UTC  MAR 27 - SEP 24
  20872. +CZECHOSLOVAKIA      1 H  AHEAD OF UTC
  20873. +CZECHOSLOVAKIA      2 H  AHEAD OF UTC  MAR 27 - SEP 24
  20874. +DENMARK             1 H  AHEAD OF UTC
  20875. +DENMARK             2 H  AHEAD OF UTC  MAR 27 - SEP 24
  20876. +DENMK. FAEROE IS    1 H  AHEAD OF UTC  MAR 27 - SEP 24
  20877. +DJIBOUTI            3 H  AHEAD OF UTC
  20878. +DOMINICA            4 H  BEHIND UTC
  20879. +DOMINICAN REP       4 H  BEHIND UTC
  20880. +ECUADOR             5 H  BEHIND UTC    CONTINENTAL
  20881. +ECUADOR             6 H  BEHIND UTC    GALAPAGOS ISLANDS
  20882. +EGYPT               2 H  AHEAD OF UTC
  20883. +EGYPT               3 H  AHEAD OF UTC  MAY 17 - SEP 30 (AFTER
  20884. +EGYPT                                  RAMADAN)
  20885. +EL SALVADOR         6 H  BEHIND UTC
  20886. +ENGLAND             ON UTC             (WALES, SCOTLAND, N.I.,
  20887. +ENGLAND                                CH. IS.)
  20888. +ENGLAND             1 H  AHEAD OF UTC  MAR 27 - OCT 22
  20889. +ENEZUELA           4 H  BEHIND UTC
  20890. +EQUITORIAL GUINEA   1 H  AHEAD OF UTC
  20891. +ETHIOPIA            3 H  AHEAD OF UTC
  20892. +FALKLAND ISLANDS    4 H  BEHIND UTC
  20893. +FALKLAND ISLANDS    3 H  BEHIND UTC    SEP 11, '88-APR 15, '89
  20894. +FALKLAND ISLANDS                       (ESTIMATED)
  20895. +FAROE ISLAND        ON UTC
  20896. +FAROE ISLAND        1 H  AHEAD OF UTC  MAR 27 - SEP 24
  20897. +FIJI               12 H  AHEAD OF UTC
  20898. +FINLAND             2 H  AHEAD OF UTC
  20899. +FINLAND             3 H  AHEAD OF UTC  MAR 27 - SEP 24
  20900. +FRANCE              1 H  AHEAD OF UTC
  20901. +FRANCE              2 H  AHEAD OF UTC  MAR 27 - SEP 24
  20902. +FRENCH GUIANA       3 H  BEHIND UTC
  20903. +FRENCH POLYNESIA    9 H  BEHIND UTC    GAMBIER ISLAND
  20904. +FRENCH POLYNESIA    9.5H BEHIND UTC    MARQUESAS ISLANDS
  20905. +FRENCH POLYNESIA   10 H  BEHIND UTC    SOCIETY ISLANDS, TUBUAI
  20906. +FRENCH POLYNESIA                       ISLANDS, TUAMOTU ISLAND,
  20907. +FRENCH POLYNESIA                       TAHITI
  20908. +GABON               1 H  AHEAD OF UTC
  20909. +GAMBIA              ON UTC
  20910. +GERMANY ALL         1 H  AHEAD OF UTC
  20911. +GERMANY ALL         2 H  AHEAD OF UTC  MAR 27 - SEP 24
  20912. +GHANA               ON UTC
  20913. +GIBRALTAR           1 H  AHEAD OF UTC
  20914. +GIBRALTAR           2 H  AHEAD OF UTC  MAR 27 - SEP 24
  20915. +GREECE              2 H  AHEAD OF UTC
  20916. +GREECE              3 H  AHEAD OF UTC  MAR 27 - SEP 24
  20917. +GREENLAND           4 H  BEHIND UTC    THULE AIRBASE YEAR ROUND
  20918. +GREENLAND           3 H  BEHIND UTC    ANGMAGSSALIK AND W. COAST
  20919. +GREENLAND           2 H  BEHIND UTC    MAR 27 - SEP 24
  20920. +GREENLAND           1 H  BEHIND UTC    SCORESBYSUND
  20921. +GREENLAND           ON UTC             MAR 27 - SEP 24
  20922. +GRENADA             4 H  BEHIND UTC
  20923. +GUADELOUPE          4 H  BEHIND UTC    ST. BARTHELEMY, NORTHERN
  20924. +GUADELOUPE                             ST. MARTIN MARTINIQUE
  20925. +GUAM               10 H  AHEAD OF UTC
  20926. +GUATEMALA           6 H  BEHIND UTC
  20927. +GUINEA              ON UTC
  20928. +GUINEA BISSAU       ON UTC
  20929. +GUINEA REPUBLIC     ON UTC
  20930. +GUINEA EQUATORIAL   1 H  AHEAD OF UTC
  20931. +GUYANA              3 H  BEHIND UTC
  20932. +HAITI               5 H  BEHIND UTC
  20933. +HAITI               4 H  BEHIND UTC    APR 3 - OCT 29
  20934. +HOLLAND             SEE NETHERLANDS
  20935. +HONDURAS            6 H  BEHIND UTC
  20936. +HONG KONG           8 H  AHEAD OF UTC
  20937. +HUNGARY             1 H  AHEAD OF UTC
  20938. +HUNGARY             2 H  AHEAD OF UTC  MAR 27 - SEP 24
  20939. +ICELAND             ON UTC
  20940. +INDIA               5.5H AHEAD OF UTC  INCLUDING ANDAMAN ISLANDS
  20941. +INDONESIA WEST      7 H  AHEAD OF UTC  SUMATRA, JAVA, BALI,
  20942. +INDONESIA WEST                         JAKARTA
  20943. +INDONESIA CENTRAL   8 H  AHEAD OF UTC  KALIMANTAN, SULAWESI
  20944. +INDONESIA EAST      9 H  AHEAD OF UTC  IRIAN, BARAT
  20945. +IRAN                3.5H AHEAD OF UTC
  20946. +IRAQ                3 H  AHEAD OF UTC
  20947. +IRAQ                4 H  AHEAD OF UTC  APR 1 - SEP 30
  20948. +IRELAND             ON UTC
  20949. +IRELAND             1 H  AHEAD OF UTC  MAR 27 - OCT 22
  20950. +ISRAEL              2 H  AHEAD OF UTC
  20951. +ISRAEL              3 H  AHEAD OF UTC  APR 10 - SEP 3
  20952. +ITALY               1 H  AHEAD OF UTC
  20953. +ITALY               2 H  AHEAD OF UTC  MAR 27 - SEP 24
  20954. +IVORY COAST         ON UTC
  20955. +IWAN              8 H  AHEAD OF UTC
  20956. +JAMAICA             5 H  BEHIND UTC
  20957. +JAPAN               9 H  AHEAD OF UTC
  20958. +JOHNSTON ISLAND    10 H  BEHIND UTC
  20959. +JORDAN              2 H  AHEAD OF UTC
  20960. +JORDAN              3 H  AHEAD OF UTC  APR 1 - OCT 6
  20961. +KAMPUCHEA           7 H  AHEAD OF UTC
  20962. +KENYA               3 H  AHEAD OF UTC
  20963. +KIRIBATI, REP OF   12 H  AHEAD OF UTC  CANTON, ENDERBURY ISLANDS
  20964. +KIRIBATI, REP OF   11 H  AHEAD OF UTC  CHRISTMAS ISLAND
  20965. +KOREA               9 H  AHEAD OF UTC
  20966. +KOREA, REP OF       9 H  AHEAD OF UTC
  20967. +KOREA, REP OF      10 H  AHEAD OF UTC  MAY 8 - OCT 8
  20968. +KUWAIT              3 H  AHEAD OF UTC
  20969. +KUSAIE, PINGELAP  12 H  AHEAD OF UTC  INCLUDING MARSHALL IS.,
  20970. +KUSAIE, PINGELAP                      EXCLUDING KWAJALEIN)
  20971. +KWAJALEIN         12 H  BEHIND UTC
  20972. +LAOS                7 H  AHEAD OF UTC
  20973. +LEBANON             2 H  AHEAD OF UTC
  20974. +LEBANON             3 H  AHEAD OF UTC  JUN 1 - OCT 31
  20975. +LEEWARD ISLANDS     4 H BEHIND UTC     ANTIGUA, DOMINICA,
  20976. +LEEWARD ISLANDS                        MONTSERRAT, ST.
  20977. +LEEWARD ISLAANDS                       CHRISTOPHER, ST. KITTS,
  20978. +LEEWARD ISLANDS                        NEVIS, ANGUILLA
  20979. +LESOTHO             2 H  AHEAD OF UTC
  20980. +LIBERIA             ON UTC
  20981. +LIBYAN ARAB         1 H  AHEAD OF UTC  JAMAHIRIYA/LIBYA
  20982. +LIBYAN ARAB         2 H  AHEAD OF UTC  APR 1 - SEP 30 JAMAHIRIYA/LIBYA
  20983. +LIECHTENSTEIN       1 H  AHEAD OF UTC
  20984. +LIECHTENSTEIN       2 H  AHEAD OF UTC  MAR 27 - SEP 24
  20985. +LUXEMBOURG          1 H  AHEAD OF UTC
  20986. +LUXEMBOURG          2 H  AHEAD OF UTC  MAR 27 - SEP 24
  20987. +MACAO               8 H  AHEAD OF UTC
  20988. +MADAGASCAR          3 H  AHEAD OF UTC
  20989. +MADEIRA             SEE PORTUGAL
  20990. +MALAWI              2 H  AHEAD OF UTC
  20991. +MALAYSIA            8 H  AHEAD OF UTC
  20992. +MALDIVES            5 H  AHEAD OF UTC
  20993. +MALI                ON UTC
  20994. +MALTA               1 H  AHEAD OF UTC
  20995. +MALTA               2 H  AHEAD OF UTC  MAR 27 - SEP 24
  20996. +MARTINIQUE          4 H  BEHIND UTC
  20997. +MAURITANIA          ON UTC
  20998. +MAURITIUS           4 H  AHEAD OF UTC
  20999. +MARIANA ISLAND    10 H  AHEAD OF UTC  EXCLUDING GUAM
  21000. +MEXICO BAJA CAL N   7 H  BEHIND UTC    BAJA CALIFORNIA SUR AND
  21001. +MEXICO BAJA CAL N                      N. PACIFIC COAST (STATES
  21002. +MEXICO BAJA CAL N                      OF SINALOA AND SONORA)
  21003. +MEXICO BAJA CAL N   8 H  BEHIND UTC    ABOVE 28TH PARALLAL APR 3
  21004. +MEXICO BAJA CAL N                      - OCT 29
  21005. +MEXICO BAJA CAL N   7 H  BEHIND UTC    ABOVE 28TH PARALLAL APR 3
  21006. +MEXICO BAJA CAL N                      - 0CT 29
  21007. +MEXICO              6 H  BEHIND UTC    STATES OF DURANGO,
  21008. +MEXICO                                 COAHUILA, NUEVO LEON,
  21009. +MEXICO                                 TAMAULIPAS
  21010. +MEXICO              5 H  BEHIND UTC    STATES OF DURANGO,
  21011. +MEXICO                                 COAHUILA, NUEVO LEON,
  21012. +MEXICO                                 TAMAULIPAS  APR 3 - OCT 29
  21013. +MEXICO              6 H  BEHIND UTC    GENERAL MEXICO, STATES OF
  21014. +MEXICO                                 CAMPECHE, QUINTANA ROO AND
  21015. +MEXICO                                 YUCATAN
  21016. +MIDWAY ISLAND      11 H  BEHIND UTC
  21017. +MONACO              1 H  AHEAD OF UTC
  21018. +MONACO              2 H  AHEAD OF UTC  MAR 27 - SEP 24
  21019. +MONGOLIA            8 H  AHEAD OF UTC
  21020. +MONGOLIA            9 H  AHEAD OF UTC  MAR 27 - SEP 24
  21021. +MONTSERRAT          4 H  BEHIND UTC
  21022. +MOROCCO             ON UTC
  21023. +MOZAMBIQUE          2 H  AHEAD OF UTC
  21024. +NAMIBIA             2 H  AHEAD OF UTC
  21025. +NAURU, REP OF      12 H  AHEAD OF UTC
  21026. +NEPAL              5H45M AHEAD OF UTC
  21027. +NETHERLANDS         1 H  AHEAD OF UTC
  21028. +NETHERLANDS         2 H  AHEAD OF UTC  MAR 27 - SEP 24
  21029. +NETHERLANDS         4 H  BEHIND UTC    ANTILLES AND SOUTHERN ST.
  21030. +NETHERLANDS                            MAARTEN
  21031. +NEW CALEDONIA      11 H  AHEAD OF UTC
  21032. +NEW HEBRIDES        SEE VANUATU
  21033. +NEW ZEALAND        12 H  AHEAD OF UTC  (EXCLUDING CHATHAM ISLAND)
  21034. +NEW ZEALAND        13 H  AHEAD OF UTC  OCT 30, '88-MAR 4, '89
  21035. +NEW ZEALAND       12H45M AHEAD OF UTC  CHATHAM ISLAND
  21036. +NICARAGUA           6 H  BEHIND UTC
  21037. +NIGER               1 H  AHEAD OF UTC
  21038. +NIGERIA             1 H  AHEAD OF UTC
  21039. +NIUE ISLAND        11 H  BEHIND UTC
  21040. +NORFOLK ISLAND    11H30M AHEAD OF UTC
  21041. +NORTHERN IRELAND    ON UTC             WALES, SCOTLAND, N.I.,
  21042. +NORTHERN IRELAND                       CH.IS.
  21043. +NORTHERN IRELAND    1 H  AHEAD OF UTC  MAR 27 - OCT 22
  21044. +NORWAY              1 H  AHEAD OF UTC
  21045. +NORWAY              2 H  AHEAD OF UTC  MAR 27 - SEP 24
  21046. +OGO                ON UTC
  21047. +OMAN                4 H  AHEAD OF UTC
  21048. +PACIFIC ISLAND T.T.
  21049. +PALAU ISLAND       9 H  AHEAD OF UTC
  21050. +PAKISTAN            5 H  AHEAD OF UTC
  21051. +PANAMA              5 H  BEHIND UTC
  21052. +PAPUA NEW GUINEA   10 H  AHEAD OF UTC  INCLUDING BOUGAINVILLE
  21053. +PAPUA NEW GUINEA                       ISLAND
  21054. +PARAGUAY            4 H  BEHIND UTC
  21055. +PARAGUAY            3 H  BEHIND UTC    OCT 1, '88-MAR 31, '89
  21056. +PERU                5 H  BEHIND UTC
  21057. +PHILIPPINES         8 H  AHEAD OF UTC
  21058. +PONAPE ISLAND     11 H  AHEAD OF UTC
  21059. +POLAND              1 H  AHEAD OF UTC
  21060. +POLAND              2 H  AHEAD OF UTC  MAR 27 - SEP 24
  21061. +PORTUGAL MAINLAND   ON UTC
  21062. +PORTUGAL MAINLAND   1 H  AHEAD OF UTC  MAR 27 - SEP 24
  21063. +PORTUGAL AZORES     1 H  BEHIND UTC
  21064. +PORTUGAL AZORES     ON UTC             MAR 27 - SEP 24
  21065. +PORTUGAL MADEIRA    ON UTC
  21066. +PORTUGAL MADEIRA    1 H  AHEAD OF UTC  MAR 27 - SEP 24
  21067. +PUERTO RICO         4 H  BEHIND UTC
  21068. +QATAR               3 H  AHEAD OF UTC
  21069. +ROMANIA             2 H  AHEAD OF UTC
  21070. +ROMANIA             3 H  AHEAD OF UTC  MAR 27 - SEP 24
  21071. +RUSSIA              SEE USSR
  21072. +RWANDA              2 H  AHEAD OF UTC
  21073. +SABA                4 H  BEHIND UTC    ALSO BONAIRE, CURACAO,
  21074. +SAMOA              11 H  BEHIND UTC
  21075. +SAN MARINO          1 H  AHEAD OF UTC
  21076. +SAN MARINO          2 H  AHEAD OF UTC  MAR 27 - SEP 24
  21077. +SAN SALVADOR        6  H  BEHIND UTC
  21078. +SAO TOME ISLAND     ON UTC             AND PRINCIPE ISLAND
  21079. +SAUDI ARABIA        3 H  AHEAD OF UTC
  21080. +SCOTLAND            SEE ENGLAND
  21081. +SENEGAL             ON UTC
  21082. +SEYCHELLES          4 H  AHEAD OF UTC
  21083. +SIERRA LEONE        ON UTC
  21084. +SINGAPORE           8 H  AHEAD OF UTC
  21085. +SOLOMON ISLANDS    11 H  AHEAD OF UTC  EXCLUDING BOUGAINVILLE
  21086. +SOLOMON ISLANDS                        ISLAND
  21087. +SOMALI              3 H  AHEAD OF UTC
  21088. +SOUTH AFRICA        2 H  AHEAD OF UTC
  21089. +SPAIN  CANARY IS    ON UTC
  21090. +SPAIN  CANARY IS    1 H  AHEAD OF UTC  MAR 27 - SEP 24
  21091. +SPAIN               1 H  AHEAD OF UTC  CONTINENTAL, BALEARIC AND
  21092. +SPAIN                                  MALLORCA ISLANDS
  21093. +SPAIN               2 H  AHEAD OF UTC  CONTINENTAL, BALEARIC AND
  21094. +SPAIN                                  MALLORCA ISLANDS  MAR 27 -
  21095. +SPAIN                                  SEP 24
  21096. +SPAIN  MAINLAND     1 H  AHEAD OF UTC  MELILLA
  21097. +SPAIN  MAINLAND     2 H  AHEAD OF UTC  MAR 27 - SEP 24
  21098. +SRI LANKA          5H30M AHEAD OF UTC
  21099. +ST.MAARTEN
  21100. +ST.KITTS-NEVIS     4 H  BEHIND UTC
  21101. +ST.LUCIA           4 H  BEHIND UTC
  21102. +ST.PIERRE          3 H  BEHIND UTC    INCLUDING MIQUELON
  21103. +ST.PIERRE          2 H  BEHIND UTC    INLCUDING MIQUELON  APR 3
  21104. +ST.PIERRE                             - OCT 29
  21105. +ST.VINCENT         4 H  BEHIND UTC    INCLUDING THE GRENADINES
  21106. +ST. HELENA          ON UTC
  21107. +SURINAME            3 H  BEHIND UTC
  21108. +SWAZILAND           2 H  AHEAD OF UTC
  21109. +SWEDEN              1 H  AHEAD OF UTC
  21110. +SWEDEN              2 H  AHEAD OF UTC  MAR 27 - SEP 24
  21111. +SWITZERLAND         1 H  AHEAD OF UTC
  21112. +SWITZERLAND         2 H  AHEAD OF UTC  MAR 27 - SEP 24
  21113. +SYRIA               2 H  AHEAD OF UTC
  21114. +SYRIA               3 H  AHEAD OF UTC  MAR 15 - OCT 30
  21115. +TAHITI             10 H  BEHIND UTC
  21116. +TANZANIA            3 H  AHEAD OF UTC
  21117. +THAILAND            7 H  AHEAD OF UTC
  21118. +TRINIDAD / TOBAGO   4 H  BEHIND UTC
  21119. +TUNISIA             1 H  AHEAD OF UTC
  21120. +TUNISIA             2 H  AHEAD OF UTC  APR 10 - SEP 24
  21121. +TURKEY              2 H  AHEAD OF UTC
  21122. +TURKEY              3 H  AHEAD OF UTC  MAR 27 - SEP 24
  21123. +TURKS AND CAICOS    5 H  BEHIND UTC
  21124. +TURKS AND CAICOS    4 H  BEHIND UTC    APR 3 - OCT 29
  21125. +TUVALU             12 H  AHEAD OF UTC
  21126. +UDAN               2 H  AHEAD OF UTC
  21127. +UGANDA              3 H  AHEAD OF UTC
  21128. +UNITED ARAB EMIR.   4 H  AHEAD OF UTC  ABU DHABI, DUBAI, SHARJAH,
  21129. +UNITED ARAB EMIR                       RAS AL KHAIMAH
  21130. +UNITED KINGDOM      ON UTC             WALES, SCOTLAND, N.I., CH.
  21131. +UNITED KINGDOM                         IS.
  21132. +UNITED KINGDOM      1 H  AHEAD OF UTC  MAR 27 - OCT 22
  21133. +UNITED STATES       SEE USA
  21134. +UPPER VOLTA         ON UTC
  21135. +URUGUAY             3 H  BEHIND UTC
  21136. +URUGUAY             2 H  BEHIND UTC    DEC 11, '88-FEB 25, '89
  21137. +URAGUAY                                (ESTIMATED)
  21138. +USA  EASTERN       5 H  BEHIND UTC    NEW YORK, WASHINGTON
  21139. +USA  EASTERN       4 H  BEHIND UTC    APR 3 - OCT 30
  21140. +USA  CENTRAL       6 H  BEHIND UTC    CHICAGO, HOUSTON
  21141. +USA  CENTRAL       5 H  BEHIND UTC    APR 3 - OCT 30
  21142. +USA  MOUNTAIN      7 H  BEHIND UTC    DENVER
  21143. +USA  MOUNTAIN      6 H  BEHIND UTC    APR 3 - OCT 30
  21144. +USA  PACIFIC       8 H  BEHIND UTC    L.A., SAN FRANCISCO
  21145. +USA  PACIFIC       7 H  BEHIND UTC    APR 3 - OCT 30
  21146. +USA  ALASKA STD    9 H  BEHIND UTC    MOST OF ALASKA     (AKST)
  21147. +USA  ALASKA STD    8 H  BEHIND UTC    APR 3 - OCT 30 (AKDT)
  21148. +USA  ALEUTIAN     10 H  BEHIND UTC    ISLANDS WEST OF 170W
  21149. +USA  - " -         9 H  BEHIND UTC    APR 3 - OCT 30
  21150. +USA  HAWAII       10 H  BEHIND UTC
  21151. +USA  BERING       11 H  BEHIND UTC    SAMOA, MIDWAY
  21152. +USA  FOR SPECIFIC INFO ON USA ZONES/TIMES CALL DOT 202-426-4520
  21153. +USSR WEST EUROP     3 H  AHEAD OF UTC  LENINGRAD, MOSCOW
  21154. +USSR WEST EUROP     4 H  AHEAD OF UTC  APR 1 - SEP 30
  21155. +USSR CENTRAL EUR    4 H  AHEAD OF UTC  ROSTOV, BAKU
  21156. +USSR CENTRAL EUR    5 H  AHEAD OF UTC  APR 1 - SEP 30
  21157. +USSR EAST EUROP     5 H  AHEAD OF UTC  SVERDLOVSK
  21158. +USSR EAST EUROP     6 H  AHEAD OF UTC  APR 1 - SEP 30
  21159. +USSR WEST SIBERIAN  6 H  AHEAD OF UTC  TASHKENT, ALMA ATA
  21160. +USSR WEST SIBERIAN  7 H  AHEAD OF UTC  APR 1 - SEP 30
  21161. +USSR WEST-CENTRAL   7 H  AHEAD OF UTC  NOVOSIBIRSK
  21162. +USSR WEST-CENTRAL   8 H  AHEAD OF UTC  APR 1 - SEP 30
  21163. +USSR WEST-CENTRAL   8 H  AHEAD OF UTC  IRKUTSK
  21164. +USSR WEST-CENTRAL   9 H  AHEAD OF UTC  APR 1 - SEP 30
  21165. +USSR CENTRAL SIB    9 H  AHEAD OF UTC  YAKUTSK
  21166. +USSR CENTRAL SIB   10 H  AHEAD OF UTC  APR 1 - SEP 30
  21167. +USSR CENTRAL SIB   10 H  AHEAD OF UTC  VLADIVOSTOK
  21168. +USSR CENTRAL SIB   11 H  AHEAD OF UTC  APR 1 - SEP 30
  21169. +USSR EAST SIBERIA  11 H  AHEAD OF UTC  MAGADAN
  21170. +USSR EAST SIBERIA  12 H  AHEAD OF UTC  APR 1 - SEP 30
  21171. +USSR EAST SIBERIA  12 H  AHEAD OF UTC  PETROPAVLOVSK
  21172. +USSR EAST SIBERIA  13 H  AHEAD OF UTC  APR 1 - SEP 30
  21173. +USSR EAST SIBERIA  13 H  AHEAD OF UTC  UELEN
  21174. +USSR EAST SIBERIA  14 H  AHEAD OF UTC  APR 1 - SEP 30
  21175. +VANUATU            11 H  AHEAD OF UTC  (NEW HEBRIDES)
  21176. +VANUATU            12 H  AHEAD OF UTC  SEP 25, '88-MAR 25, '89
  21177. +VANUATU                                (ESTIMATED)
  21178. +VATICAN             1 H  AHEAD OF UTC
  21179. +VATICAN             2 H  AHEAD OF UTC  MAR 27 - SEP 24
  21180. +VIETNAM             7 H  AHEAD OF UTC
  21181. +VIRGIN ISLANDS      4 H  BEHIND UTC    ST.CROIX, ST.THOMAS,
  21182. +VIRGIN ISLANDS                         ST.JOHN
  21183. +WAKE ISLAND        12 H  AHEAD OF UTC
  21184. +WALES               SEE ENGLAND
  21185. +WALLIS/FUTUNA IS.  12 H  AHEAD OF UTC
  21186. +WINDWARD ISLANDS    4 H  BEHIND UTC    GRENADA, ST. LUCIA
  21187. +YEMEN               3 H  AHEAD OF UTC  BOTH REPUBLICS
  21188. +YUGOSLAVIA          1 H  AHEAD OF UTC
  21189. +YUGOSLAVIA          2 H  AHEAD OF UTC  MAR 27 - SEP 24
  21190. +ZAIRE  EAST         1 H  AHEAD OF UTC  KINSHASA MBANDAKA
  21191. +ZAIRE  WEST         2 H  AHEAD OF UTC  LUBUMBASHI, KASAI, KIVU,
  21192. +ZAIRE  WEST                            HAUT-ZAIRE, SHABA
  21193. +ZAMBIA              2 H  AHEAD OF UTC
  21194. +ZIMBABWE            2 H  AHEAD OF UTC
  21195. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/zoneinfo/getopt.c amiga/fsf/emacs18/amiga/unix/src/zoneinfo/getopt.c
  21196. --- baseline/fsf/emacs18/amiga/unix/src/zoneinfo/getopt.c    Wed Dec 31 17:00:00 1969
  21197. +++ amiga/fsf/emacs18/amiga/unix/src/zoneinfo/getopt.c    Sat Sep 28 00:00:00 1996
  21198. @@ -0,0 +1,678 @@
  21199. +/* Getopt for GNU.
  21200. +   NOTE: getopt is now part of the C library, so if you don't know what
  21201. +   "Keep this file name-space clean" means, talk to roland@gnu.ai.mit.edu
  21202. +   before changing it!
  21203. +
  21204. +   Copyright (C) 1987, 88, 89, 90, 91, 1992 Free Software Foundation, Inc.
  21205. +
  21206. +   This program is free software; you can redistribute it and/or modify
  21207. +   it under the terms of the GNU General Public License as published by
  21208. +   the Free Software Foundation; either version 2, or (at your option)
  21209. +   any later version.
  21210. +
  21211. +   This program is distributed in the hope that it will be useful,
  21212. +   but WITHOUT ANY WARRANTY; without even the implied warranty of
  21213. +   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21214. +   GNU General Public License for more details.
  21215. +
  21216. +   You should have received a copy of the GNU General Public License
  21217. +   along with this program; if not, write to the Free Software
  21218. +   Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
  21219. +
  21220. +/* AIX requires this to be the first thing in the file. */
  21221. +#ifdef __GNUC__
  21222. +#define alloca __builtin_alloca
  21223. +#else /* not __GNUC__ */
  21224. +#if defined(sparc) && !defined(USG) && !defined(SVR4) && !defined(__svr4__)
  21225. +#include <alloca.h>
  21226. +#else
  21227. +#ifdef _AIX
  21228. + #pragma alloca
  21229. +#else
  21230. +char *alloca ();
  21231. +#endif
  21232. +#endif /* sparc */
  21233. +#endif /* not __GNUC__ */
  21234. +
  21235. +#ifdef    LIBC
  21236. +/* For when compiled as part of the GNU C library.  */
  21237. +#include <ansidecl.h>
  21238. +#endif
  21239. +
  21240. +#include <stdio.h>
  21241. +
  21242. +/* This needs to come after some library #include
  21243. +   to get __GNU_LIBRARY__ defined.  */
  21244. +#ifdef    __GNU_LIBRARY__
  21245. +#undef    alloca
  21246. +#include <stdlib.h>
  21247. +#include <string.h>
  21248. +#else    /* Not GNU C library.  */
  21249. +#define    __alloca    alloca
  21250. +#endif    /* GNU C library.  */
  21251. +
  21252. +
  21253. +#ifndef __STDC__
  21254. +#define const
  21255. +#endif
  21256. +
  21257. +/* If GETOPT_COMPAT is defined, `+' as well as `--' can introduce a
  21258. +   long-named option.  Because this is not POSIX.2 compliant, it is
  21259. +   being phased out. */
  21260. +#define GETOPT_COMPAT
  21261. +
  21262. +/* This version of `getopt' appears to the caller like standard Unix `getopt'
  21263. +   but it behaves differently for the user, since it allows the user
  21264. +   to intersperse the options with the other arguments.
  21265. +
  21266. +   As `getopt' works, it permutes the elements of ARGV so that,
  21267. +   when it is done, all the options precede everything else.  Thus
  21268. +   all application programs are extended to handle flexible argument order.
  21269. +
  21270. +   Setting the environment variable POSIXLY_CORRECT disables permutation.
  21271. +   Then the behavior is completely standard.
  21272. +
  21273. +   GNU application programs can use a third alternative mode in which
  21274. +   they can distinguish the relative order of options and other arguments.  */
  21275. +
  21276. +#include "getopt.h"
  21277. +
  21278. +/* For communication from `getopt' to the caller.
  21279. +   When `getopt' finds an option that takes an argument,
  21280. +   the argument value is returned here.
  21281. +   Also, when `ordering' is RETURN_IN_ORDER,
  21282. +   each non-option ARGV-element is returned here.  */
  21283. +
  21284. +char *optarg = 0;
  21285. +
  21286. +/* Index in ARGV of the next element to be scanned.
  21287. +   This is used for communication to and from the caller
  21288. +   and for communication between successive calls to `getopt'.
  21289. +
  21290. +   On entry to `getopt', zero means this is the first call; initialize.
  21291. +
  21292. +   When `getopt' returns EOF, this is the index of the first of the
  21293. +   non-option elements that the caller should itself scan.
  21294. +
  21295. +   Otherwise, `optind' communicates from one call to the next
  21296. +   how much of ARGV has been scanned so far.  */
  21297. +
  21298. +int optind = 0;
  21299. +
  21300. +/* The next char to be scanned in the option-element
  21301. +   in which the last option character we returned was found.
  21302. +   This allows us to pick up the scan where we left off.
  21303. +
  21304. +   If this is zero, or a null string, it means resume the scan
  21305. +   by advancing to the next ARGV-element.  */
  21306. +
  21307. +static char *nextchar;
  21308. +
  21309. +/* Callers store zero here to inhibit the error message
  21310. +   for unrecognized options.  */
  21311. +
  21312. +int opterr = 1;
  21313. +
  21314. +/* Describe how to deal with options that follow non-option ARGV-elements.
  21315. +
  21316. +   If the caller did not specify anything,
  21317. +   the default is REQUIRE_ORDER if the environment variable
  21318. +   POSIXLY_CORRECT is defined, PERMUTE otherwise.
  21319. +
  21320. +   REQUIRE_ORDER means don't recognize them as options;
  21321. +   stop option processing when the first non-option is seen.
  21322. +   This is what Unix does.
  21323. +   This mode of operation is selected by either setting the environment
  21324. +   variable POSIXLY_CORRECT, or using `+' as the first character
  21325. +   of the list of option characters.
  21326. +
  21327. +   PERMUTE is the default.  We permute the contents of ARGV as we scan,
  21328. +   so that eventually all the non-options are at the end.  This allows options
  21329. +   to be given in any order, even with programs that were not written to
  21330. +   expect this.
  21331. +
  21332. +   RETURN_IN_ORDER is an option available to programs that were written
  21333. +   to expect options and other ARGV-elements in any order and that care about
  21334. +   the ordering of the two.  We describe each non-option ARGV-element
  21335. +   as if it were the argument of an option with character code 1.
  21336. +   Using `-' as the first character of the list of option characters
  21337. +   selects this mode of operation.
  21338. +
  21339. +   The special argument `--' forces an end of option-scanning regardless
  21340. +   of the value of `ordering'.  In the case of RETURN_IN_ORDER, only
  21341. +   `--' can cause `getopt' to return EOF with `optind' != ARGC.  */
  21342. +
  21343. +static enum
  21344. +{
  21345. +  REQUIRE_ORDER, PERMUTE, RETURN_IN_ORDER
  21346. +} ordering;
  21347. +
  21348. +#ifdef    __GNU_LIBRARY__
  21349. +#include <string.h>
  21350. +#define    my_index    strchr
  21351. +#define    my_bcopy(src, dst, n)    memcpy ((dst), (src), (n))
  21352. +#else
  21353. +
  21354. +/* Avoid depending on library functions or files
  21355. +   whose names are inconsistent.  */
  21356. +
  21357. +char *getenv ();
  21358. +
  21359. +static char *
  21360. +my_index (string, chr)
  21361. +     char *string;
  21362. +     int chr;
  21363. +{
  21364. +  while (*string)
  21365. +    {
  21366. +      if (*string == chr)
  21367. +    return string;
  21368. +      string++;
  21369. +    }
  21370. +  return 0;
  21371. +}
  21372. +
  21373. +static void
  21374. +my_bcopy (from, to, size)
  21375. +     char *from, *to;
  21376. +     int size;
  21377. +{
  21378. +  int i;
  21379. +  for (i = 0; i < size; i++)
  21380. +    to[i] = from[i];
  21381. +}
  21382. +#endif                /* GNU C library.  */
  21383. +
  21384. +/* Handle permutation of arguments.  */
  21385. +
  21386. +/* Describe the part of ARGV that contains non-options that have
  21387. +   been skipped.  `first_nonopt' is the index in ARGV of the first of them;
  21388. +   `last_nonopt' is the index after the last of them.  */
  21389. +
  21390. +static int first_nonopt;
  21391. +static int last_nonopt;
  21392. +
  21393. +/* Exchange two adjacent subsequences of ARGV.
  21394. +   One subsequence is elements [first_nonopt,last_nonopt)
  21395. +   which contains all the non-options that have been skipped so far.
  21396. +   The other is elements [last_nonopt,optind), which contains all
  21397. +   the options processed since those non-options were skipped.
  21398. +
  21399. +   `first_nonopt' and `last_nonopt' are relocated so that they describe
  21400. +   the new indices of the non-options in ARGV after they are moved.  */
  21401. +
  21402. +static void
  21403. +exchange (argv)
  21404. +     char **argv;
  21405. +{
  21406. +  int nonopts_size = (last_nonopt - first_nonopt) * sizeof (char *);
  21407. +  char **temp = (char **) __alloca (nonopts_size);
  21408. +
  21409. +  /* Interchange the two blocks of data in ARGV.  */
  21410. +
  21411. +  my_bcopy (&argv[first_nonopt], temp, nonopts_size);
  21412. +  my_bcopy (&argv[last_nonopt], &argv[first_nonopt],
  21413. +        (optind - last_nonopt) * sizeof (char *));
  21414. +  my_bcopy (temp, &argv[first_nonopt + optind - last_nonopt], nonopts_size);
  21415. +
  21416. +  /* Update records for the slots the non-options now occupy.  */
  21417. +
  21418. +  first_nonopt += (optind - last_nonopt);
  21419. +  last_nonopt = optind;
  21420. +}
  21421. +
  21422. +/* Scan elements of ARGV (whose length is ARGC) for option characters
  21423. +   given in OPTSTRING.
  21424. +
  21425. +   If an element of ARGV starts with '-', and is not exactly "-" or "--",
  21426. +   then it is an option element.  The characters of this element
  21427. +   (aside from the initial '-') are option characters.  If `getopt'
  21428. +   is called repeatedly, it returns successively each of the option characters
  21429. +   from each of the option elements.
  21430. +
  21431. +   If `getopt' finds another option character, it returns that character,
  21432. +   updating `optind' and `nextchar' so that the next call to `getopt' can
  21433. +   resume the scan with the following option character or ARGV-element.
  21434. +
  21435. +   If there are no more option characters, `getopt' returns `EOF'.
  21436. +   Then `optind' is the index in ARGV of the first ARGV-element
  21437. +   that is not an option.  (The ARGV-elements have been permuted
  21438. +   so that those that are not options now come last.)
  21439. +
  21440. +   OPTSTRING is a string containing the legitimate option characters.
  21441. +   If an option character is seen that is not listed in OPTSTRING,
  21442. +   return '?' after printing an error message.  If you set `opterr' to
  21443. +   zero, the error message is suppressed but we still return '?'.
  21444. +
  21445. +   If a char in OPTSTRING is followed by a colon, that means it wants an arg,
  21446. +   so the following text in the same ARGV-element, or the text of the following
  21447. +   ARGV-element, is returned in `optarg'.  Two colons mean an option that
  21448. +   wants an optional arg; if there is text in the current ARGV-element,
  21449. +   it is returned in `optarg', otherwise `optarg' is set to zero.
  21450. +
  21451. +   If OPTSTRING starts with `-' or `+', it requests different methods of
  21452. +   handling the non-option ARGV-elements.
  21453. +   See the comments about RETURN_IN_ORDER and REQUIRE_ORDER, above.
  21454. +
  21455. +   Long-named options begin with `--' instead of `-'.
  21456. +   Their names may be abbreviated as long as the abbreviation is unique
  21457. +   or is an exact match for some defined option.  If they have an
  21458. +   argument, it follows the option name in the same ARGV-element, separated
  21459. +   from the option name by a `=', or else the in next ARGV-element.
  21460. +   When `getopt' finds a long-named option, it returns 0 if that option's
  21461. +   `flag' field is nonzero, the value of the option's `val' field
  21462. +   if the `flag' field is zero.
  21463. +
  21464. +   The elements of ARGV aren't really const, because we permute them.
  21465. +   But we pretend they're const in the prototype to be compatible
  21466. +   with other systems.
  21467. +
  21468. +   LONGOPTS is a vector of `struct option' terminated by an
  21469. +   element containing a name which is zero.
  21470. +
  21471. +   LONGIND returns the index in LONGOPT of the long-named option found.
  21472. +   It is only valid when a long-named option has been found by the most
  21473. +   recent call.
  21474. +
  21475. +   If LONG_ONLY is nonzero, '-' as well as '--' can introduce
  21476. +   long-named options.  */
  21477. +
  21478. +int
  21479. +_getopt_internal (argc, argv, optstring, longopts, longind, long_only)
  21480. +     int argc;
  21481. +     char *const *argv;
  21482. +     const char *optstring;
  21483. +     const struct option *longopts;
  21484. +     int *longind;
  21485. +     int long_only;
  21486. +{
  21487. +  int option_index;
  21488. +
  21489. +  optarg = 0;
  21490. +
  21491. +  /* Initialize the internal data when the first call is made.
  21492. +     Start processing options with ARGV-element 1 (since ARGV-element 0
  21493. +     is the program name); the sequence of previously skipped
  21494. +     non-option ARGV-elements is empty.  */
  21495. +
  21496. +  if (optind == 0)
  21497. +    {
  21498. +      first_nonopt = last_nonopt = optind = 1;
  21499. +
  21500. +      nextchar = NULL;
  21501. +
  21502. +      /* Determine how to handle the ordering of options and nonoptions.  */
  21503. +
  21504. +      if (optstring[0] == '-')
  21505. +    {
  21506. +      ordering = RETURN_IN_ORDER;
  21507. +      ++optstring;
  21508. +    }
  21509. +      else if (optstring[0] == '+')
  21510. +    {
  21511. +      ordering = REQUIRE_ORDER;
  21512. +      ++optstring;
  21513. +    }
  21514. +      else if (getenv ("POSIXLY_CORRECT") != NULL)
  21515. +    ordering = REQUIRE_ORDER;
  21516. +      else
  21517. +    ordering = PERMUTE;
  21518. +    }
  21519. +
  21520. +  if (nextchar == NULL || *nextchar == '\0')
  21521. +    {
  21522. +      if (ordering == PERMUTE)
  21523. +    {
  21524. +      /* If we have just processed some options following some non-options,
  21525. +         exchange them so that the options come first.  */
  21526. +
  21527. +      if (first_nonopt != last_nonopt && last_nonopt != optind)
  21528. +        exchange ((char **) argv);
  21529. +      else if (last_nonopt != optind)
  21530. +        first_nonopt = optind;
  21531. +
  21532. +      /* Now skip any additional non-options
  21533. +         and extend the range of non-options previously skipped.  */
  21534. +
  21535. +      while (optind < argc
  21536. +         && (argv[optind][0] != '-' || argv[optind][1] == '\0')
  21537. +#ifdef GETOPT_COMPAT
  21538. +         && (longopts == NULL
  21539. +             || argv[optind][0] != '+' || argv[optind][1] == '\0')
  21540. +#endif                /* GETOPT_COMPAT */
  21541. +         )
  21542. +        optind++;
  21543. +      last_nonopt = optind;
  21544. +    }
  21545. +
  21546. +      /* Special ARGV-element `--' means premature end of options.
  21547. +     Skip it like a null option,
  21548. +     then exchange with previous non-options as if it were an option,
  21549. +     then skip everything else like a non-option.  */
  21550. +
  21551. +      if (optind != argc && !strcmp (argv[optind], "--"))
  21552. +    {
  21553. +      optind++;
  21554. +
  21555. +      if (first_nonopt != last_nonopt && last_nonopt != optind)
  21556. +        exchange ((char **) argv);
  21557. +      else if (first_nonopt == last_nonopt)
  21558. +        first_nonopt = optind;
  21559. +      last_nonopt = argc;
  21560. +
  21561. +      optind = argc;
  21562. +    }
  21563. +
  21564. +      /* If we have done all the ARGV-elements, stop the scan
  21565. +     and back over any non-options that we skipped and permuted.  */
  21566. +
  21567. +      if (optind == argc)
  21568. +    {
  21569. +      /* Set the next-arg-index to point at the non-options
  21570. +         that we previously skipped, so the caller will digest them.  */
  21571. +      if (first_nonopt != last_nonopt)
  21572. +        optind = first_nonopt;
  21573. +      return EOF;
  21574. +    }
  21575. +
  21576. +      /* If we have come to a non-option and did not permute it,
  21577. +     either stop the scan or describe it to the caller and pass it by.  */
  21578. +
  21579. +      if ((argv[optind][0] != '-' || argv[optind][1] == '\0')
  21580. +#ifdef GETOPT_COMPAT
  21581. +      && (longopts == NULL
  21582. +          || argv[optind][0] != '+' || argv[optind][1] == '\0')
  21583. +#endif                /* GETOPT_COMPAT */
  21584. +      )
  21585. +    {
  21586. +      if (ordering == REQUIRE_ORDER)
  21587. +        return EOF;
  21588. +      optarg = argv[optind++];
  21589. +      return 1;
  21590. +    }
  21591. +
  21592. +      /* We have found another option-ARGV-element.
  21593. +     Start decoding its characters.  */
  21594. +
  21595. +      nextchar = (argv[optind] + 1
  21596. +          + (longopts != NULL && argv[optind][1] == '-'));
  21597. +    }
  21598. +
  21599. +  if (longopts != NULL
  21600. +      && ((argv[optind][0] == '-'
  21601. +       && (argv[optind][1] == '-' || long_only))
  21602. +#ifdef GETOPT_COMPAT
  21603. +      || argv[optind][0] == '+'
  21604. +#endif                /* GETOPT_COMPAT */
  21605. +      ))
  21606. +    {
  21607. +      const struct option *p;
  21608. +      char *s = nextchar;
  21609. +      int exact = 0;
  21610. +      int ambig = 0;
  21611. +      const struct option *pfound = NULL;
  21612. +      int indfound;
  21613. +
  21614. +      while (*s && *s != '=')
  21615. +    s++;
  21616. +
  21617. +      /* Test all options for either exact match or abbreviated matches.  */
  21618. +      for (p = longopts, option_index = 0; p->name;
  21619. +       p++, option_index++)
  21620. +    if (!strncmp (p->name, nextchar, s - nextchar))
  21621. +      {
  21622. +        if (s - nextchar == strlen (p->name))
  21623. +          {
  21624. +        /* Exact match found.  */
  21625. +        pfound = p;
  21626. +        indfound = option_index;
  21627. +        exact = 1;
  21628. +        break;
  21629. +          }
  21630. +        else if (pfound == NULL)
  21631. +          {
  21632. +        /* First nonexact match found.  */
  21633. +        pfound = p;
  21634. +        indfound = option_index;
  21635. +          }
  21636. +        else
  21637. +          /* Second nonexact match found.  */
  21638. +          ambig = 1;
  21639. +      }
  21640. +
  21641. +      if (ambig && !exact)
  21642. +    {
  21643. +      if (opterr)
  21644. +        fprintf (stderr, "%s: option `%s' is ambiguous\n",
  21645. +             argv[0], argv[optind]);
  21646. +      nextchar += strlen (nextchar);
  21647. +      optind++;
  21648. +      return '?';
  21649. +    }
  21650. +
  21651. +      if (pfound != NULL)
  21652. +    {
  21653. +      option_index = indfound;
  21654. +      optind++;
  21655. +      if (*s)
  21656. +        {
  21657. +          /* Don't test has_arg with >, because some C compilers don't
  21658. +         allow it to be used on enums. */
  21659. +          if (pfound->has_arg)
  21660. +        optarg = s + 1;
  21661. +          else
  21662. +        {
  21663. +          if (opterr)
  21664. +            {
  21665. +              if (argv[optind - 1][1] == '-')
  21666. +            /* --option */
  21667. +            fprintf (stderr,
  21668. +                 "%s: option `--%s' doesn't allow an argument\n",
  21669. +                 argv[0], pfound->name);
  21670. +              else
  21671. +            /* +option or -option */
  21672. +            fprintf (stderr,
  21673. +                 "%s: option `%c%s' doesn't allow an argument\n",
  21674. +                 argv[0], argv[optind - 1][0], pfound->name);
  21675. +            }
  21676. +          nextchar += strlen (nextchar);
  21677. +          return '?';
  21678. +        }
  21679. +        }
  21680. +      else if (pfound->has_arg == 1)
  21681. +        {
  21682. +          if (optind < argc)
  21683. +        optarg = argv[optind++];
  21684. +          else
  21685. +        {
  21686. +          if (opterr)
  21687. +            fprintf (stderr, "%s: option `%s' requires an argument\n",
  21688. +                 argv[0], argv[optind - 1]);
  21689. +          nextchar += strlen (nextchar);
  21690. +          return '?';
  21691. +        }
  21692. +        }
  21693. +      nextchar += strlen (nextchar);
  21694. +      if (longind != NULL)
  21695. +        *longind = option_index;
  21696. +      if (pfound->flag)
  21697. +        {
  21698. +          *(pfound->flag) = pfound->val;
  21699. +          return 0;
  21700. +        }
  21701. +      return pfound->val;
  21702. +    }
  21703. +      /* Can't find it as a long option.  If this is not getopt_long_only,
  21704. +     or the option starts with '--' or is not a valid short
  21705. +     option, then it's an error.
  21706. +     Otherwise interpret it as a short option. */
  21707. +      if (!long_only || argv[optind][1] == '-'
  21708. +#ifdef GETOPT_COMPAT
  21709. +      || argv[optind][0] == '+'
  21710. +#endif                /* GETOPT_COMPAT */
  21711. +      || my_index (optstring, *nextchar) == NULL)
  21712. +    {
  21713. +      if (opterr)
  21714. +        {
  21715. +          if (argv[optind][1] == '-')
  21716. +        /* --option */
  21717. +        fprintf (stderr, "%s: unrecognized option `--%s'\n",
  21718. +             argv[0], nextchar);
  21719. +          else
  21720. +        /* +option or -option */
  21721. +        fprintf (stderr, "%s: unrecognized option `%c%s'\n",
  21722. +             argv[0], argv[optind][0], nextchar);
  21723. +        }
  21724. +      nextchar += strlen (nextchar);
  21725. +      optind++;
  21726. +      return '?';
  21727. +    }
  21728. +    }
  21729. +
  21730. +  /* Look at and handle the next option-character.  */
  21731. +
  21732. +  {
  21733. +    char c = *nextchar++;
  21734. +    char *temp = my_index (optstring, c);
  21735. +
  21736. +    /* Increment `optind' when we start to process its last character.  */
  21737. +    if (*nextchar == '\0')
  21738. +      optind++;
  21739. +
  21740. +    if (temp == NULL || c == ':')
  21741. +      {
  21742. +    if (opterr)
  21743. +      {
  21744. +        if (c < 040 || c >= 0177)
  21745. +          fprintf (stderr, "%s: unrecognized option, character code 0%o\n",
  21746. +               argv[0], c);
  21747. +        else
  21748. +          fprintf (stderr, "%s: unrecognized option `-%c'\n", argv[0], c);
  21749. +      }
  21750. +    return '?';
  21751. +      }
  21752. +    if (temp[1] == ':')
  21753. +      {
  21754. +    if (temp[2] == ':')
  21755. +      {
  21756. +        /* This is an option that accepts an argument optionally.  */
  21757. +        if (*nextchar != '\0')
  21758. +          {
  21759. +        optarg = nextchar;
  21760. +        optind++;
  21761. +          }
  21762. +        else
  21763. +          optarg = 0;
  21764. +        nextchar = NULL;
  21765. +      }
  21766. +    else
  21767. +      {
  21768. +        /* This is an option that requires an argument.  */
  21769. +        if (*nextchar != 0)
  21770. +          {
  21771. +        optarg = nextchar;
  21772. +        /* If we end this ARGV-element by taking the rest as an arg,
  21773. +           we must advance to the next element now.  */
  21774. +        optind++;
  21775. +          }
  21776. +        else if (optind == argc)
  21777. +          {
  21778. +        if (opterr)
  21779. +          fprintf (stderr, "%s: option `-%c' requires an argument\n",
  21780. +               argv[0], c);
  21781. +        c = '?';
  21782. +          }
  21783. +        else
  21784. +          /* We already incremented `optind' once;
  21785. +         increment it again when taking next ARGV-elt as argument.  */
  21786. +          optarg = argv[optind++];
  21787. +        nextchar = NULL;
  21788. +      }
  21789. +      }
  21790. +    return c;
  21791. +  }
  21792. +}
  21793. +
  21794. +int
  21795. +getopt (argc, argv, optstring)
  21796. +     int argc;
  21797. +     char *const *argv;
  21798. +     const char *optstring;
  21799. +{
  21800. +  return _getopt_internal (argc, argv, optstring,
  21801. +               (const struct option *) 0,
  21802. +               (int *) 0,
  21803. +               0);
  21804. +}
  21805. +
  21806. +#ifdef TEST
  21807. +
  21808. +/* Compile with -DTEST to make an executable for use in testing
  21809. +   the above definition of `getopt'.  */
  21810. +
  21811. +int
  21812. +main (argc, argv)
  21813. +     int argc;
  21814. +     char **argv;
  21815. +{
  21816. +  int c;
  21817. +  int digit_optind = 0;
  21818. +
  21819. +  while (1)
  21820. +    {
  21821. +      int this_option_optind = optind ? optind : 1;
  21822. +
  21823. +      c = getopt (argc, argv, "abc:d:0123456789");
  21824. +      if (c == EOF)
  21825. +    break;
  21826. +
  21827. +      switch (c)
  21828. +    {
  21829. +    case '0':
  21830. +    case '1':
  21831. +    case '2':
  21832. +    case '3':
  21833. +    case '4':
  21834. +    case '5':
  21835. +    case '6':
  21836. +    case '7':
  21837. +    case '8':
  21838. +    case '9':
  21839. +      if (digit_optind != 0 && digit_optind != this_option_optind)
  21840. +        printf ("digits occur in two different argv-elements.\n");
  21841. +      digit_optind = this_option_optind;
  21842. +      printf ("option %c\n", c);
  21843. +      break;
  21844. +
  21845. +    case 'a':
  21846. +      printf ("option a\n");
  21847. +      break;
  21848. +
  21849. +    case 'b':
  21850. +      printf ("option b\n");
  21851. +      break;
  21852. +
  21853. +    case 'c':
  21854. +      printf ("option c with value `%s'\n", optarg);
  21855. +      break;
  21856. +
  21857. +    case '?':
  21858. +      break;
  21859. +
  21860. +    default:
  21861. +      printf ("?? getopt returned character code 0%o ??\n", c);
  21862. +    }
  21863. +    }
  21864. +
  21865. +  if (optind < argc)
  21866. +    {
  21867. +      printf ("non-option ARGV-elements: ");
  21868. +      while (optind < argc)
  21869. +    printf ("%s ", argv[optind++]);
  21870. +      printf ("\n");
  21871. +    }
  21872. +
  21873. +  exit (0);
  21874. +}
  21875. +
  21876. +#endif /* TEST */
  21877. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/zoneinfo/getopt.h amiga/fsf/emacs18/amiga/unix/src/zoneinfo/getopt.h
  21878. --- baseline/fsf/emacs18/amiga/unix/src/zoneinfo/getopt.h    Wed Dec 31 17:00:00 1969
  21879. +++ amiga/fsf/emacs18/amiga/unix/src/zoneinfo/getopt.h    Sat Sep 28 00:00:00 1996
  21880. @@ -0,0 +1,113 @@
  21881. +/* Declarations for getopt.
  21882. +   Copyright (C) 1989, 1990, 1991, 1992 Free Software Foundation, Inc.
  21883. +
  21884. +   This program is free software; you can redistribute it and/or modify
  21885. +   it under the terms of the GNU General Public License as published by
  21886. +   the Free Software Foundation; either version 2, or (at your option)
  21887. +   any later version.
  21888. +
  21889. +   This program is distributed in the hope that it will be useful,
  21890. +   but WITHOUT ANY WARRANTY; without even the implied warranty of
  21891. +   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21892. +   GNU General Public License for more details.
  21893. +
  21894. +   You should have received a copy of the GNU General Public License
  21895. +   along with this program; if not, write to the Free Software
  21896. +   Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
  21897. +
  21898. +#ifndef _GETOPT_H_
  21899. +#define _GETOPT_H_
  21900. +
  21901. +/* For communication from `getopt' to the caller.
  21902. +   When `getopt' finds an option that takes an argument,
  21903. +   the argument value is returned here.
  21904. +   Also, when `ordering' is RETURN_IN_ORDER,
  21905. +   each non-option ARGV-element is returned here.  */
  21906. +
  21907. +extern char *optarg;
  21908. +
  21909. +/* Index in ARGV of the next element to be scanned.
  21910. +   This is used for communication to and from the caller
  21911. +   and for communication between successive calls to `getopt'.
  21912. +
  21913. +   On entry to `getopt', zero means this is the first call; initialize.
  21914. +
  21915. +   When `getopt' returns EOF, this is the index of the first of the
  21916. +   non-option elements that the caller should itself scan.
  21917. +
  21918. +   Otherwise, `optind' communicates from one call to the next
  21919. +   how much of ARGV has been scanned so far.  */
  21920. +
  21921. +extern int optind;
  21922. +
  21923. +/* Callers store zero here to inhibit the error message `getopt' prints
  21924. +   for unrecognized options.  */
  21925. +
  21926. +extern int opterr;
  21927. +
  21928. +/* Describe the long-named options requested by the application.
  21929. +   The LONG_OPTIONS argument to getopt_long or getopt_long_only is a vector
  21930. +   of `struct option' terminated by an element containing a name which is
  21931. +   zero.
  21932. +
  21933. +   The field `has_arg' is:
  21934. +   no_argument        (or 0) if the option does not take an argument,
  21935. +   required_argument    (or 1) if the option requires an argument,
  21936. +   optional_argument     (or 2) if the option takes an optional argument.
  21937. +
  21938. +   If the field `flag' is not NULL, it points to a variable that is set
  21939. +   to the value given in the field `val' when the option is found, but
  21940. +   left unchanged if the option is not found.
  21941. +
  21942. +   To have a long-named option do something other than set an `int' to
  21943. +   a compiled-in constant, such as set a value from `optarg', set the
  21944. +   option's `flag' field to zero and its `val' field to a nonzero
  21945. +   value (the equivalent single-letter option character, if there is
  21946. +   one).  For long options that have a zero `flag' field, `getopt'
  21947. +   returns the contents of the `val' field.  */
  21948. +
  21949. +struct option
  21950. +{
  21951. +#ifdef    __STDC__
  21952. +  const char *name;
  21953. +#else
  21954. +  char *name;
  21955. +#endif
  21956. +  /* has_arg can't be an enum because some compilers complain about
  21957. +     type mismatches in all the code that assumes it is an int.  */
  21958. +  int has_arg;
  21959. +  int *flag;
  21960. +  int val;
  21961. +};
  21962. +
  21963. +/* Names for the values of the `has_arg' field of `struct option'.  */
  21964. +
  21965. +enum _argtype
  21966. +{
  21967. +  no_argument,
  21968. +  required_argument,
  21969. +  optional_argument
  21970. +};
  21971. +
  21972. +#ifdef __STDC__
  21973. +extern int getopt (int argc, char *const *argv, const char *shortopts);
  21974. +extern int getopt_long (int argc, char *const *argv, const char *shortopts,
  21975. +                const struct option *longopts, int *longind);
  21976. +extern int getopt_long_only (int argc, char *const *argv,
  21977. +                 const char *shortopts,
  21978. +                     const struct option *longopts, int *longind);
  21979. +
  21980. +/* Internal only.  Users should not call this directly.  */
  21981. +extern int _getopt_internal (int argc, char *const *argv,
  21982. +                 const char *shortopts,
  21983. +                     const struct option *longopts, int *longind,
  21984. +                 int long_only);
  21985. +#else /* not __STDC__ */
  21986. +extern int getopt ();
  21987. +extern int getopt_long ();
  21988. +extern int getopt_long_only ();
  21989. +
  21990. +extern int _getopt_internal ();
  21991. +#endif /* not __STDC__ */
  21992. +
  21993. +#endif /* _GETOPT_H_ */
  21994. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/zoneinfo/ialloc.c amiga/fsf/emacs18/amiga/unix/src/zoneinfo/ialloc.c
  21995. --- baseline/fsf/emacs18/amiga/unix/src/zoneinfo/ialloc.c    Wed Dec 31 17:00:00 1969
  21996. +++ amiga/fsf/emacs18/amiga/unix/src/zoneinfo/ialloc.c    Sat Sep 28 00:00:00 1996
  21997. @@ -0,0 +1,142 @@
  21998. +/*-
  21999. + * Copyright (c) 1991 The Regents of the University of California.
  22000. + * All rights reserved.
  22001. + *
  22002. + * This code is derived from software contributed to Berkeley by
  22003. + * Arthur David Olson of the National Cancer Institute.
  22004. + *
  22005. + * Redistribution and use in source and binary forms, with or without
  22006. + * modification, are permitted provided that the following conditions
  22007. + * are met:
  22008. + * 1. Redistributions of source code must retain the above copyright
  22009. + *    notice, this list of conditions and the following disclaimer.
  22010. + * 2. Redistributions in binary form must reproduce the above copyright
  22011. + *    notice, this list of conditions and the following disclaimer in the
  22012. + *    documentation and/or other materials provided with the distribution.
  22013. + * 3. All advertising materials mentioning features or use of this software
  22014. + *    must display the following acknowledgement:
  22015. + *    This product includes software developed by the University of
  22016. + *    California, Berkeley and its contributors.
  22017. + * 4. Neither the name of the University nor the names of its contributors
  22018. + *    may be used to endorse or promote products derived from this software
  22019. + *    without specific prior written permission.
  22020. + *
  22021. + * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  22022. + * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  22023. + * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  22024. + * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  22025. + * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  22026. + * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  22027. + * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  22028. + * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  22029. + * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  22030. + * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  22031. + * SUCH DAMAGE.
  22032. + */
  22033. +
  22034. +#ifndef lint
  22035. +static char sccsid[] = "@(#)ialloc.c    5.3 (Berkeley) 4/20/91";
  22036. +#endif /* not lint */
  22037. +
  22038. +#ifdef notdef
  22039. +static char    elsieid[] = "@(#)ialloc.c    8.18";
  22040. +#endif
  22041. +
  22042. +/*LINTLIBRARY*/
  22043. +
  22044. +#include <sys/cdefs.h>
  22045. +#include <sys/types.h>
  22046. +#include <string.h>
  22047. +#include <stdlib.h>
  22048. +
  22049. +#ifdef MAL
  22050. +#define NULLMAL(x)    ((x) == NULL || (x) == MAL)
  22051. +#else /* !defined MAL */
  22052. +#define NULLMAL(x)    ((x) == NULL)
  22053. +#endif /* !defined MAL */
  22054. +
  22055. +#define nonzero(n)    (((n) == 0) ? 1 : (n))
  22056. +
  22057. +char *    icalloc __P((int nelem, int elsize));
  22058. +char *    icatalloc __P((char * old, const char * new));
  22059. +char *    icpyalloc __P((const char * string));
  22060. +char *    imalloc __P((int n));
  22061. +char *    irealloc __P((char * pointer, int size));
  22062. +void    ifree __P((char * pointer));
  22063. +
  22064. +char *
  22065. +imalloc(n)
  22066. +const int    n;
  22067. +{
  22068. +#ifdef MAL
  22069. +    register char *    result;
  22070. +
  22071. +    result = malloc((size_t) nonzero(n));
  22072. +    return NULLMAL(result) ? NULL : result;
  22073. +#else /* !defined MAL */
  22074. +    return malloc((size_t) nonzero(n));
  22075. +#endif /* !defined MAL */
  22076. +}
  22077. +
  22078. +char *
  22079. +icalloc(nelem, elsize)
  22080. +int    nelem;
  22081. +int    elsize;
  22082. +{
  22083. +    if (nelem == 0 || elsize == 0)
  22084. +        nelem = elsize = 1;
  22085. +    return calloc((size_t) nelem, (size_t) elsize);
  22086. +}
  22087. +
  22088. +char *
  22089. +irealloc(pointer, size)
  22090. +char * const    pointer;
  22091. +const int    size;
  22092. +{
  22093. +    if (NULLMAL(pointer))
  22094. +        return imalloc(size);
  22095. +    return realloc((void *) pointer, (size_t) nonzero(size));
  22096. +}
  22097. +
  22098. +char *
  22099. +icatalloc(old, new)
  22100. +char * const        old;
  22101. +const char * const    new;
  22102. +{
  22103. +    register char *    result;
  22104. +    register    oldsize, newsize;
  22105. +
  22106. +    newsize = NULLMAL(new) ? 0 : strlen(new);
  22107. +    if (NULLMAL(old))
  22108. +        oldsize = 0;
  22109. +    else if (newsize == 0)
  22110. +        return old;
  22111. +    else    oldsize = strlen(old);
  22112. +    if ((result = irealloc(old, oldsize + newsize + 1)) != NULL)
  22113. +        if (!NULLMAL(new))
  22114. +            (void) strcpy(result + oldsize, new);
  22115. +    return result;
  22116. +}
  22117. +
  22118. +char *
  22119. +icpyalloc(string)
  22120. +const char * const    string;
  22121. +{
  22122. +    return icatalloc((char *) NULL, string);
  22123. +}
  22124. +
  22125. +void
  22126. +ifree(p)
  22127. +char * const    p;
  22128. +{
  22129. +    if (!NULLMAL(p))
  22130. +        (void) free(p);
  22131. +}
  22132. +
  22133. +void
  22134. +icfree(p)
  22135. +char * const    p;
  22136. +{
  22137. +    if (!NULLMAL(p))
  22138. +        (void) free(p);
  22139. +}
  22140. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/zoneinfo/smakefile amiga/fsf/emacs18/amiga/unix/src/zoneinfo/smakefile
  22141. --- baseline/fsf/emacs18/amiga/unix/src/zoneinfo/smakefile    Wed Dec 31 17:00:00 1969
  22142. +++ amiga/fsf/emacs18/amiga/unix/src/zoneinfo/smakefile    Sat Sep 28 00:00:00 1996
  22143. @@ -0,0 +1,11 @@
  22144. +CFLAGS= DEFINE=TM_GMTOFF=tm_gmtoff DEFINE=TM_ZONE=tm_zone DEFINE=emkdir=mkdir DEFINE=NOSOLAR IDIR=src:unix/include/ IGNORE=104
  22145. +
  22146. +all: zic
  22147. +
  22148. +zic: zic.o ialloc.o getopt.o
  22149. +    sc link to zic zic.o ialloc.o getopt.o lib src:unix/src/unix.lib
  22150. +
  22151. +zic.o: zic.c
  22152. +ialloc.o: ialloc.c
  22153. +getopt.o: getopt.c getopt.h
  22154. +
  22155. Binary files baseline/fsf/emacs18/amiga/unix/src/zoneinfo/zic and amiga/fsf/emacs18/amiga/unix/src/zoneinfo/zic differ
  22156. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/zoneinfo/zic.8 amiga/fsf/emacs18/amiga/unix/src/zoneinfo/zic.8
  22157. --- baseline/fsf/emacs18/amiga/unix/src/zoneinfo/zic.8    Wed Dec 31 17:00:00 1969
  22158. +++ amiga/fsf/emacs18/amiga/unix/src/zoneinfo/zic.8    Sat Sep 28 00:00:00 1996
  22159. @@ -0,0 +1,424 @@
  22160. +.\" Copyright (c) 1991 The Regents of the University of California.
  22161. +.\" All rights reserved.
  22162. +.\"
  22163. +.\" This code is derived from software contributed to Berkeley by
  22164. +.\" Arthur David Olson of the National Cancer Institute.
  22165. +.\"
  22166. +.\" Redistribution and use in source and binary forms, with or without
  22167. +.\" modification, are permitted provided that the following conditions
  22168. +.\" are met:
  22169. +.\" 1. Redistributions of source code must retain the above copyright
  22170. +.\"    notice, this list of conditions and the following disclaimer.
  22171. +.\" 2. Redistributions in binary form must reproduce the above copyright
  22172. +.\"    notice, this list of conditions and the following disclaimer in the
  22173. +.\"    documentation and/or other materials provided with the distribution.
  22174. +.\" 3. All advertising materials mentioning features or use of this software
  22175. +.\"    must display the following acknowledgement:
  22176. +.\"    This product includes software developed by the University of
  22177. +.\"    California, Berkeley and its contributors.
  22178. +.\" 4. Neither the name of the University nor the names of its contributors
  22179. +.\"    may be used to endorse or promote products derived from this software
  22180. +.\"    without specific prior written permission.
  22181. +.\"
  22182. +.\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  22183. +.\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  22184. +.\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  22185. +.\" ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  22186. +.\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  22187. +.\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  22188. +.\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  22189. +.\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  22190. +.\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  22191. +.\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  22192. +.\" SUCH DAMAGE.
  22193. +.\"
  22194. +.\"    @(#)zic.8    5.2 (Berkeley) 4/20/91
  22195. +.\"
  22196. +.TH ZIC 8
  22197. +.SH NAME
  22198. +zic \- time zone compiler
  22199. +.SH SYNOPSIS
  22200. +.B zic
  22201. +[
  22202. +.B \-v
  22203. +] [
  22204. +.B \-d
  22205. +.I directory
  22206. +] [
  22207. +.B \-l
  22208. +.I localtime
  22209. +] [
  22210. +.B \-p
  22211. +.I posixrules
  22212. +] [
  22213. +.B \-L
  22214. +.I leapsecondfilename
  22215. +] [
  22216. +.B \-s
  22217. +] [
  22218. +.I filename
  22219. +\&... ]
  22220. +.SH DESCRIPTION
  22221. +.if t .ds lq ``
  22222. +.if t .ds rq ''
  22223. +.if n .ds lq \&"\"
  22224. +.if n .ds rq \&"\"
  22225. +.de q
  22226. +\\$3\*(lq\\$1\*(rq\\$2
  22227. +..
  22228. +.I Zic
  22229. +reads text from the file(s) named on the command line
  22230. +and creates the time conversion information files specified in this input.
  22231. +If a
  22232. +.I filename
  22233. +is
  22234. +.BR \- ,
  22235. +the standard input is read.
  22236. +.PP
  22237. +These options are available:
  22238. +.TP
  22239. +.BI "\-d " directory
  22240. +Create time conversion information files in the named directory rather than
  22241. +in the standard directory named below.
  22242. +.TP
  22243. +.BI "\-l " timezone
  22244. +Use the given time zone as local time.
  22245. +.I Zic
  22246. +will act as if the input contained a link line of the form
  22247. +.sp
  22248. +.ti +.5i
  22249. +Link    \fItimezone\fP        localtime
  22250. +.TP
  22251. +.BI "\-p " timezone
  22252. +Use the given time zone's rules when handling POSIX-format
  22253. +time zone environment variables.
  22254. +.I Zic
  22255. +will act as if the input contained a link line of the form
  22256. +.sp
  22257. +.ti +.5i
  22258. +Link    \fItimezone\fP        posixrules
  22259. +.TP
  22260. +.BI "\-L " leapsecondfilename
  22261. +Read leap second information from the file with the given name.
  22262. +If this option is not used,
  22263. +no leap second information appears in output files.
  22264. +.TP
  22265. +.B \-v
  22266. +Complain if a year that appears in a data file is outside the range
  22267. +of years representable by
  22268. +.IR time (2)
  22269. +values.
  22270. +.TP
  22271. +.B \-s
  22272. +Limit time values stored in output files to values that are the same
  22273. +whether they're taken to be signed or unsigned.
  22274. +You can use this option to generate SVVS-compatible files.
  22275. +.sp
  22276. +Input lines are made up of fields.
  22277. +Fields are separated from one another by any number of white space characters.
  22278. +Leading and trailing white space on input lines is ignored.
  22279. +An unquoted sharp character (#) in the input introduces a comment which extends
  22280. +to the end of the line the sharp character appears on.
  22281. +White space characters and sharp characters may be enclosed in double quotes
  22282. +(") if they're to be used as part of a field.
  22283. +Any line that is blank (after comment stripping) is ignored.
  22284. +Non-blank lines are expected to be of one of three types:
  22285. +rule lines, zone lines, and link lines.
  22286. +.PP
  22287. +A rule line has the form
  22288. +.nf
  22289. +.B
  22290. +.ti +.5i
  22291. +.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
  22292. +.sp
  22293. +Rule    NAME    FROM    TO    TYPE    IN    ON    AT    SAVE    LETTER/S
  22294. +.sp
  22295. +For example:
  22296. +.ti +.5i
  22297. +.sp
  22298. +Rule    USA    1969    1973    \-    Apr    lastSun    2:00    1:00    D
  22299. +.sp
  22300. +.fi
  22301. +The fields that make up a rule line are:
  22302. +.TP "\w'LETTER/S'u"
  22303. +.B NAME
  22304. +Gives the (arbitrary) name of the set of rules this rule is part of.
  22305. +.TP
  22306. +.B FROM
  22307. +Gives the first year in which the rule applies.
  22308. +The word
  22309. +.B minimum
  22310. +(or an abbreviation) means the minimum year with a representable time value.
  22311. +The word
  22312. +.B maximum
  22313. +(or an abbreviation) means the maximum year with a representable time value.
  22314. +.TP
  22315. +.B TO
  22316. +Gives the final year in which the rule applies.
  22317. +In addition to
  22318. +.B minimum
  22319. +and
  22320. +.B maximum
  22321. +(as above),
  22322. +the word
  22323. +.B only
  22324. +(or an abbreviation)
  22325. +may be used to repeat the value of the
  22326. +.B FROM
  22327. +field.
  22328. +.TP
  22329. +.B TYPE
  22330. +Gives the type of year in which the rule applies.
  22331. +If
  22332. +.B TYPE
  22333. +is
  22334. +.B \-
  22335. +then the rule applies in all years between
  22336. +.B FROM
  22337. +and
  22338. +.B TO
  22339. +inclusive;
  22340. +if
  22341. +.B TYPE
  22342. +is
  22343. +.BR uspres ,
  22344. +the rule applies in U.S. Presidential election years;
  22345. +if
  22346. +.B TYPE
  22347. +is
  22348. +.BR nonpres ,
  22349. +the rule applies in years other than U.S. Presidential election years.
  22350. +If
  22351. +.B TYPE
  22352. +is something else, then
  22353. +.I zic
  22354. +executes the command
  22355. +.ti +.5i
  22356. +\fByearistype\fP \fIyear\fP \fItype\fP
  22357. +.br
  22358. +to check the type of a year:
  22359. +an exit status of zero is taken to mean that the year is of the given type;
  22360. +an exit status of one is taken to mean that the year is not of the given type.
  22361. +.TP
  22362. +.B IN
  22363. +Names the month in which the rule takes effect.
  22364. +Month names may be abbreviated.
  22365. +.TP
  22366. +.B ON
  22367. +Gives the day on which the rule takes effect.
  22368. +Recognized forms include:
  22369. +.nf
  22370. +.in +.5i
  22371. +.sp
  22372. +.ta \w'Sun<=25\0\0'u
  22373. +5    the fifth of the month
  22374. +lastSun    the last Sunday in the month
  22375. +lastMon    the last Monday in the month
  22376. +Sun>=8    first Sunday on or after the eighth
  22377. +Sun<=25    last Sunday on or before the 25th
  22378. +.fi
  22379. +.in -.5i
  22380. +.sp
  22381. +Names of days of the week may be abbreviated or spelled out in full.
  22382. +Note that there must be no spaces within the
  22383. +.B ON
  22384. +field.
  22385. +.TP
  22386. +.B AT
  22387. +Gives the time of day at which the rule takes effect.
  22388. +Recognized forms include:
  22389. +.nf
  22390. +.in +.5i
  22391. +.sp
  22392. +.ta \w'1:28:13\0\0'u
  22393. +2    time in hours
  22394. +2:00    time in hours and minutes
  22395. +15:00    24-hour format time (for times after noon)
  22396. +1:28:14    time in hours, minutes, and seconds
  22397. +.fi
  22398. +.in -.5i
  22399. +.sp
  22400. +Any of these forms may be followed by the letter
  22401. +.B w
  22402. +if the given time is local
  22403. +.q "wall clock"
  22404. +time or
  22405. +.B s
  22406. +if the given time is local
  22407. +.q standard
  22408. +time; in the absence of
  22409. +.B w
  22410. +or
  22411. +.BR s ,
  22412. +wall clock time is assumed.
  22413. +.TP
  22414. +.B SAVE
  22415. +Gives the amount of time to be added to local standard time when the rule is in
  22416. +effect.
  22417. +This field has the same format as the
  22418. +.B AT
  22419. +field
  22420. +(although, of course, the
  22421. +.B w
  22422. +and
  22423. +.B s
  22424. +suffixes are not used).
  22425. +.TP
  22426. +.B LETTER/S
  22427. +Gives the
  22428. +.q "variable part"
  22429. +(for example, the
  22430. +.q S
  22431. +or
  22432. +.q D
  22433. +in
  22434. +.q EST
  22435. +or
  22436. +.q EDT )
  22437. +of time zone abbreviations to be used when this rule is in effect.
  22438. +If this field is
  22439. +.BR \- ,
  22440. +the variable part is null.
  22441. +.PP
  22442. +A zone line has the form
  22443. +.sp
  22444. +.nf
  22445. +.ti +.5i
  22446. +.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
  22447. +Zone    NAME    GMTOFF    RULES/SAVE    FORMAT    [UNTIL]
  22448. +.sp
  22449. +For example:
  22450. +.sp
  22451. +.ti +.5i
  22452. +Zone    Australia/South\-west    9:30    Aus    CST    1987 Mar 15 2:00
  22453. +.sp
  22454. +.fi
  22455. +The fields that make up a zone line are:
  22456. +.TP "\w'GMTOFF'u"
  22457. +.B NAME
  22458. +The name of the time zone.
  22459. +This is the name used in creating the time conversion information file for the
  22460. +zone.
  22461. +.TP
  22462. +.B GMTOFF
  22463. +The amount of time to add to GMT to get standard time in this zone.
  22464. +This field has the same format as the
  22465. +.B AT
  22466. +and
  22467. +.B SAVE
  22468. +fields of rule lines;
  22469. +begin the field with a minus sign if time must be subtracted from GMT.
  22470. +.TP
  22471. +.B RULES/SAVE
  22472. +The name of the rule(s) that apply in the time zone or,
  22473. +alternately, an amount of time to add to local standard time.
  22474. +If this field is
  22475. +.B \-
  22476. +then standard time always applies in the time zone.
  22477. +.TP
  22478. +.B FORMAT
  22479. +The format for time zone abbreviations in this time zone.
  22480. +The pair of characters
  22481. +.B %s
  22482. +is used to show where the
  22483. +.q "variable part"
  22484. +of the time zone abbreviation goes.
  22485. +.TP
  22486. +.B UNTIL
  22487. +The time at which the GMT offset or the rule(s) change for a location.
  22488. +It is specified as a year, a month, a day, and a time of day.
  22489. +If this is specified,
  22490. +the time zone information is generated from the given GMT offset
  22491. +and rule change until the time specified.
  22492. +.IP
  22493. +The next line must be a
  22494. +.q continuation
  22495. +line; this has the same form as a zone line except that the
  22496. +string
  22497. +.q Zone
  22498. +and the name are omitted, as the continuation line will
  22499. +place information starting at the time specified as the
  22500. +.B UNTIL
  22501. +field in the previous line in the file used by the previous line.
  22502. +Continuation lines may contain an
  22503. +.B UNTIL
  22504. +field, just as zone lines do, indicating that the next line is a further
  22505. +continuation.
  22506. +.PP
  22507. +A link line has the form
  22508. +.sp
  22509. +.nf
  22510. +.ti +.5i
  22511. +.if t .ta \w'Link\0\0'u +\w'LINK-FROM\0\0'u
  22512. +.if n .ta \w'Link\0\0'u +\w'US/Eastern\0\0'u
  22513. +Link    LINK-FROM    LINK-TO
  22514. +.sp
  22515. +For example:
  22516. +.sp
  22517. +.ti +.5i
  22518. +Link    US/Eastern    EST5EDT
  22519. +.sp
  22520. +.fi
  22521. +The
  22522. +.B LINK-FROM
  22523. +field should appear as the
  22524. +.B NAME
  22525. +field in some zone line;
  22526. +the
  22527. +.B LINK-TO
  22528. +field is used as an alternate name for that zone.
  22529. +.PP
  22530. +Except for continuation lines,
  22531. +lines may appear in any order in the input.
  22532. +.PP
  22533. +Lines in the file that describes leap seconds have the following form:
  22534. +.nf
  22535. +.B
  22536. +.ti +.5i
  22537. +.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
  22538. +Leap    YEAR    MONTH    DAY    HH:MM:SS    CORR    R/S
  22539. +.sp
  22540. +For example:
  22541. +.ti +.5i
  22542. +.sp
  22543. +Leap    1974    Dec    31    23:59:60    +    S
  22544. +.sp
  22545. +.fi
  22546. +The 
  22547. +.BR YEAR ,
  22548. +.BR MONTH ,
  22549. +.BR DAY ,
  22550. +and
  22551. +.B HH:MM:SS
  22552. +fields tell when the leap second happened.
  22553. +The
  22554. +.B CORR
  22555. +field
  22556. +should be
  22557. +.q +
  22558. +if a second was added
  22559. +or 
  22560. +.q -
  22561. +if a second was skipped.
  22562. +The
  22563. +.B R/S
  22564. +field
  22565. +should be (an abbreviation of)
  22566. +.q Stationary
  22567. +if the leap second time given by the other fields should be interpreted as GMT
  22568. +or
  22569. +(an abbreviation of)
  22570. +.q Rolling
  22571. +if the leap second time given by the other fields should be interpreted as
  22572. +local wall clock time.
  22573. +.SH NOTE
  22574. +For areas with more than two types of local time,
  22575. +you may need to use local standard time in the
  22576. +.B AT
  22577. +field of the earliest transition time's rule to ensure that
  22578. +the earliest transition time recorded in the compiled file is correct.
  22579. +.SH FILE
  22580. +/etc/zoneinfo    standard directory used for created files
  22581. +.SH "SEE ALSO"
  22582. +newctime(3), tzfile(5), zdump(8)
  22583. +.. @(#)zic.8    4.4
  22584. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/src/zoneinfo/zic.c amiga/fsf/emacs18/amiga/unix/src/zoneinfo/zic.c
  22585. --- baseline/fsf/emacs18/amiga/unix/src/zoneinfo/zic.c    Wed Dec 31 17:00:00 1969
  22586. +++ amiga/fsf/emacs18/amiga/unix/src/zoneinfo/zic.c    Sat Sep 28 00:00:00 1996
  22587. @@ -0,0 +1,1903 @@
  22588. +/*-
  22589. + * Copyright (c) 1991 The Regents of the University of California.
  22590. + * All rights reserved.
  22591. + *
  22592. + * This code is derived from software contributed to Berkeley by
  22593. + * Arthur David Olson of the National Cancer Institute.
  22594. + *
  22595. + * Redistribution and use in source and binary forms, with or without
  22596. + * modification, are permitted provided that the following conditions
  22597. + * are met:
  22598. + * 1. Redistributions of source code must retain the above copyright
  22599. + *    notice, this list of conditions and the following disclaimer.
  22600. + * 2. Redistributions in binary form must reproduce the above copyright
  22601. + *    notice, this list of conditions and the following disclaimer in the
  22602. + *    documentation and/or other materials provided with the distribution.
  22603. + * 3. All advertising materials mentioning features or use of this software
  22604. + *    must display the following acknowledgement:
  22605. + *    This product includes software developed by the University of
  22606. + *    California, Berkeley and its contributors.
  22607. + * 4. Neither the name of the University nor the names of its contributors
  22608. + *    may be used to endorse or promote products derived from this software
  22609. + *    without specific prior written permission.
  22610. + *
  22611. + * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  22612. + * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  22613. + * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  22614. + * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  22615. + * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  22616. + * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  22617. + * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  22618. + * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  22619. + * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  22620. + * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  22621. + * SUCH DAMAGE.
  22622. + */
  22623. +
  22624. +#ifndef lint
  22625. +static char sccsid[] = "@(#)zic.c    5.3 (Berkeley) 4/20/91";
  22626. +#endif /* not lint */
  22627. +
  22628. +#ifdef notdef
  22629. +static char    elsieid[] = "@(#)zic.c    4.12";
  22630. +#endif
  22631. +
  22632. +#include <sys/types.h>
  22633. +#include <sys/cdefs.h>
  22634. +#include <sys/stat.h>
  22635. +#include <time.h>
  22636. +#include <tzfile.h>
  22637. +#include <stdio.h>
  22638. +#include <ctype.h>
  22639. +#include <string.h>
  22640. +#include <stdlib.h>
  22641. +
  22642. +#ifndef TRUE
  22643. +#define TRUE    1
  22644. +#define FALSE    0
  22645. +#endif /* !defined TRUE */
  22646. +
  22647. +#ifndef EXIT_FAILURE
  22648. +#define EXIT_FAILURE 1
  22649. +#endif
  22650. +
  22651. +#ifndef EXIT_SUCCESS
  22652. +#define EXIT_SUCCESS 0
  22653. +#endif
  22654. +
  22655. +struct rule {
  22656. +    const char *    r_filename;
  22657. +    int        r_linenum;
  22658. +    const char *    r_name;
  22659. +
  22660. +    int        r_loyear;    /* for example, 1986 */
  22661. +    int        r_hiyear;    /* for example, 1986 */
  22662. +    const char *    r_yrtype;
  22663. +
  22664. +    int        r_month;    /* 0..11 */
  22665. +
  22666. +    int        r_dycode;    /* see below */
  22667. +    int        r_dayofmonth;
  22668. +    int        r_wday;
  22669. +
  22670. +    long        r_tod;        /* time from midnight */
  22671. +    int        r_todisstd;    /* above is standard time if TRUE */
  22672. +                    /* or wall clock time if FALSE */
  22673. +    long        r_stdoff;    /* offset from standard time */
  22674. +    const char *    r_abbrvar;    /* variable part of abbreviation */
  22675. +
  22676. +    int        r_todo;        /* a rule to do (used in outzone) */
  22677. +    time_t        r_temp;        /* used in outzone */
  22678. +};
  22679. +
  22680. +/*
  22681. +**    r_dycode        r_dayofmonth    r_wday
  22682. +*/
  22683. +
  22684. +#define DC_DOM        0    /* 1..31 */    /* unused */
  22685. +#define DC_DOWGEQ    1    /* 1..31 */    /* 0..6 (Sun..Sat) */
  22686. +#define DC_DOWLEQ    2    /* 1..31 */    /* 0..6 (Sun..Sat) */
  22687. +
  22688. +struct zone {
  22689. +    const char *    z_filename;
  22690. +    int        z_linenum;
  22691. +
  22692. +    const char *    z_name;
  22693. +    long        z_gmtoff;
  22694. +    const char *    z_rule;
  22695. +    const char *    z_format;
  22696. +
  22697. +    long        z_stdoff;
  22698. +
  22699. +    struct rule *    z_rules;
  22700. +    int        z_nrules;
  22701. +
  22702. +    struct rule    z_untilrule;
  22703. +    time_t        z_untiltime;
  22704. +};
  22705. +
  22706. +extern char *    icatalloc __P((char * old, const char * new));
  22707. +extern char *    icpyalloc __P((const char * string));
  22708. +extern void    ifree __P((char * p));
  22709. +extern char *    imalloc __P((int n));
  22710. +extern char *    irealloc __P((char * old, int n));
  22711. +extern int    link __P((const char * fromname, const char * toname));
  22712. +extern char *    optarg;
  22713. +extern int    optind;
  22714. +static void    addtt __P((time_t starttime, int type));
  22715. +static int    addtype
  22716. +            __P((long gmtoff, const char * abbr, int isdst,
  22717. +            int ttisstd));
  22718. +static void    addleap __P((time_t t, int positive, int rolling));
  22719. +static void    adjleap __P((void));
  22720. +static void    associate __P((void));
  22721. +static int    ciequal __P((const char * ap, const char * bp));
  22722. +static void    convert __P((long val, char * buf));
  22723. +static void    dolink __P((const char * fromfile, const char * tofile));
  22724. +static void    eat __P((const char * name, int num));
  22725. +static void    eats __P((const char * name, int num,
  22726. +            const char * rname, int rnum));
  22727. +static long    eitol __P((int i));
  22728. +static void    error __P((const char * message));
  22729. +static char **    getfields __P((char * buf));
  22730. +static long    gethms __P((char * string, const char * errstrng,
  22731. +            int signable));
  22732. +static void    infile __P((const char * filename));
  22733. +static void    inleap __P((char ** fields, int nfields));
  22734. +static void    inlink __P((char ** fields, int nfields));
  22735. +static void    inrule __P((char ** fields, int nfields));
  22736. +static int    inzcont __P((char ** fields, int nfields));
  22737. +static int    inzone __P((char ** fields, int nfields));
  22738. +static int    inzsub __P((char ** fields, int nfields, int iscont));
  22739. +static int    itsabbr __P((const char * abbr, const char * word));
  22740. +static int    itsdir __P((const char * name));
  22741. +static int    lowerit __P((int c));
  22742. +static char *    memcheck __P((char * tocheck));
  22743. +static int    mkdirs __P((char * filename));
  22744. +static void    newabbr __P((const char * abbr));
  22745. +static long    oadd __P((long t1, long t2));
  22746. +static void    outzone __P((const struct zone * zp, int ntzones));
  22747. +static void    puttzcode __P((long code, FILE * fp));
  22748. +static int    rcomp __P((const void *leftp, const void *rightp));
  22749. +static time_t    rpytime __P((const struct rule * rp, int wantedy));
  22750. +static void    rulesub __P((struct rule * rp, char * loyearp, char * hiyearp,
  22751. +        char * typep, char * monthp, char * dayp, char * timep));
  22752. +static void    setboundaries __P((void));
  22753. +static time_t    tadd __P((time_t t1, long t2));
  22754. +static void    usage __P((void));
  22755. +static void    writezone __P((const char * name));
  22756. +static int    yearistype __P((int year, const char * type));
  22757. +
  22758. +static int        charcnt;
  22759. +static int        errors;
  22760. +static const char *    filename;
  22761. +static int        leapcnt;
  22762. +static int        linenum;
  22763. +static time_t        max_time;
  22764. +static int        max_year;
  22765. +static time_t        min_time;
  22766. +static int        min_year;
  22767. +static int        noise;
  22768. +static const char *    rfilename;
  22769. +static int        rlinenum;
  22770. +static const char *    progname;
  22771. +static int        timecnt;
  22772. +static int        typecnt;
  22773. +static int        tt_signed;
  22774. +
  22775. +/*
  22776. +** Line codes.
  22777. +*/
  22778. +
  22779. +#define LC_RULE        0
  22780. +#define LC_ZONE        1
  22781. +#define LC_LINK        2
  22782. +#define LC_LEAP        3
  22783. +
  22784. +/*
  22785. +** Which fields are which on a Zone line.
  22786. +*/
  22787. +
  22788. +#define ZF_NAME        1
  22789. +#define ZF_GMTOFF    2
  22790. +#define ZF_RULE        3
  22791. +#define ZF_FORMAT    4
  22792. +#define ZF_TILYEAR    5
  22793. +#define ZF_TILMONTH    6
  22794. +#define ZF_TILDAY    7
  22795. +#define ZF_TILTIME    8
  22796. +#define ZONE_MINFIELDS    5
  22797. +#define ZONE_MAXFIELDS    9
  22798. +
  22799. +/*
  22800. +** Which fields are which on a Zone continuation line.
  22801. +*/
  22802. +
  22803. +#define ZFC_GMTOFF    0
  22804. +#define ZFC_RULE    1
  22805. +#define ZFC_FORMAT    2
  22806. +#define ZFC_TILYEAR    3
  22807. +#define ZFC_TILMONTH    4
  22808. +#define ZFC_TILDAY    5
  22809. +#define ZFC_TILTIME    6
  22810. +#define ZONEC_MINFIELDS    3
  22811. +#define ZONEC_MAXFIELDS    7
  22812. +
  22813. +/*
  22814. +** Which files are which on a Rule line.
  22815. +*/
  22816. +
  22817. +#define RF_NAME        1
  22818. +#define RF_LOYEAR    2
  22819. +#define RF_HIYEAR    3
  22820. +#define RF_COMMAND    4
  22821. +#define RF_MONTH    5
  22822. +#define RF_DAY        6
  22823. +#define RF_TOD        7
  22824. +#define RF_STDOFF    8
  22825. +#define RF_ABBRVAR    9
  22826. +#define RULE_FIELDS    10
  22827. +
  22828. +/*
  22829. +** Which fields are which on a Link line.
  22830. +*/
  22831. +
  22832. +#define LF_FROM        1
  22833. +#define LF_TO        2
  22834. +#define LINK_FIELDS    3
  22835. +
  22836. +/*
  22837. +** Which fields are which on a Leap line.
  22838. +*/
  22839. +
  22840. +#define LP_YEAR        1
  22841. +#define LP_MONTH    2
  22842. +#define LP_DAY        3
  22843. +#define LP_TIME        4
  22844. +#define LP_CORR        5
  22845. +#define LP_ROLL        6
  22846. +#define LEAP_FIELDS    7
  22847. +
  22848. +/*
  22849. +** Year synonyms.
  22850. +*/
  22851. +
  22852. +#define YR_MINIMUM    0
  22853. +#define YR_MAXIMUM    1
  22854. +#define YR_ONLY        2
  22855. +
  22856. +static struct rule *    rules;
  22857. +static int        nrules;    /* number of rules */
  22858. +
  22859. +static struct zone *    zones;
  22860. +static int        nzones;    /* number of zones */
  22861. +
  22862. +struct link {
  22863. +    const char *    l_filename;
  22864. +    int        l_linenum;
  22865. +    const char *    l_from;
  22866. +    const char *    l_to;
  22867. +};
  22868. +
  22869. +static struct link *    links;
  22870. +static int        nlinks;
  22871. +
  22872. +struct lookup {
  22873. +    const char *    l_word;
  22874. +    const int    l_value;
  22875. +};
  22876. +
  22877. +static struct lookup const *    byword __P((const char * string,
  22878. +                    const struct lookup * lp));
  22879. +
  22880. +static struct lookup const    line_codes[] = {
  22881. +    "Rule",        LC_RULE,
  22882. +    "Zone",        LC_ZONE,
  22883. +    "Link",        LC_LINK,
  22884. +    "Leap",        LC_LEAP,
  22885. +    NULL,        0
  22886. +};
  22887. +
  22888. +static struct lookup const    mon_names[] = {
  22889. +    "January",    TM_JANUARY,
  22890. +    "February",    TM_FEBRUARY,
  22891. +    "March",    TM_MARCH,
  22892. +    "April",    TM_APRIL,
  22893. +    "May",        TM_MAY,
  22894. +    "June",        TM_JUNE,
  22895. +    "July",        TM_JULY,
  22896. +    "August",    TM_AUGUST,
  22897. +    "September",    TM_SEPTEMBER,
  22898. +    "October",    TM_OCTOBER,
  22899. +    "November",    TM_NOVEMBER,
  22900. +    "December",    TM_DECEMBER,
  22901. +    NULL,        0
  22902. +};
  22903. +
  22904. +static struct lookup const    wday_names[] = {
  22905. +    "Sunday",    TM_SUNDAY,
  22906. +    "Monday",    TM_MONDAY,
  22907. +    "Tuesday",    TM_TUESDAY,
  22908. +    "Wednesday",    TM_WEDNESDAY,
  22909. +    "Thursday",    TM_THURSDAY,
  22910. +    "Friday",    TM_FRIDAY,
  22911. +    "Saturday",    TM_SATURDAY,
  22912. +    NULL,        0
  22913. +};
  22914. +
  22915. +static struct lookup const    lasts[] = {
  22916. +    "last-Sunday",        TM_SUNDAY,
  22917. +    "last-Monday",        TM_MONDAY,
  22918. +    "last-Tuesday",        TM_TUESDAY,
  22919. +    "last-Wednesday",    TM_WEDNESDAY,
  22920. +    "last-Thursday",    TM_THURSDAY,
  22921. +    "last-Friday",        TM_FRIDAY,
  22922. +    "last-Saturday",    TM_SATURDAY,
  22923. +    NULL,            0
  22924. +};
  22925. +
  22926. +static struct lookup const    begin_years[] = {
  22927. +    "minimum",        YR_MINIMUM,
  22928. +    "maximum",        YR_MAXIMUM,
  22929. +    NULL,            0
  22930. +};
  22931. +
  22932. +static struct lookup const    end_years[] = {
  22933. +    "minimum",        YR_MINIMUM,
  22934. +    "maximum",        YR_MAXIMUM,
  22935. +    "only",            YR_ONLY,
  22936. +    NULL,            0
  22937. +};
  22938. +
  22939. +static struct lookup const    leap_types[] = {
  22940. +    "Rolling",        TRUE,
  22941. +    "Stationary",        FALSE,
  22942. +    NULL,            0
  22943. +};
  22944. +
  22945. +static const int    len_months[2][MONSPERYEAR] = {
  22946. +    31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31,
  22947. +    31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31
  22948. +};
  22949. +
  22950. +static const int    len_years[2] = {
  22951. +    DAYSPERNYEAR, DAYSPERLYEAR
  22952. +};
  22953. +
  22954. +static time_t        ats[TZ_MAX_TIMES];
  22955. +static unsigned char    types[TZ_MAX_TIMES];
  22956. +static long        gmtoffs[TZ_MAX_TYPES];
  22957. +static char        isdsts[TZ_MAX_TYPES];
  22958. +static char        abbrinds[TZ_MAX_TYPES];
  22959. +static char        ttisstds[TZ_MAX_TYPES];
  22960. +static char        chars[TZ_MAX_CHARS];
  22961. +static time_t        trans[TZ_MAX_LEAPS];
  22962. +static long        corr[TZ_MAX_LEAPS];
  22963. +static char        roll[TZ_MAX_LEAPS];
  22964. +
  22965. +/*
  22966. +** Memory allocation.
  22967. +*/
  22968. +
  22969. +static char *
  22970. +memcheck(ptr)
  22971. +char * const    ptr;
  22972. +{
  22973. +    if (ptr == NULL) {
  22974. +        (void) perror(progname);
  22975. +        (void) exit(EXIT_FAILURE);
  22976. +    }
  22977. +    return ptr;
  22978. +}
  22979. +
  22980. +#define emalloc(size)        memcheck(imalloc(size))
  22981. +#define erealloc(ptr, size)    memcheck(irealloc(ptr, size))
  22982. +#define ecpyalloc(ptr)        memcheck(icpyalloc(ptr))
  22983. +#define ecatalloc(oldp, newp)    memcheck(icatalloc(oldp, newp))
  22984. +
  22985. +/*
  22986. +** Error handling.
  22987. +*/
  22988. +
  22989. +static void
  22990. +eats(name, num, rname, rnum)
  22991. +const char * const    name;
  22992. +const int        num;
  22993. +const char * const    rname;
  22994. +const int        rnum;
  22995. +{
  22996. +    filename = name;
  22997. +    linenum = num;
  22998. +    rfilename = rname;
  22999. +    rlinenum = rnum;
  23000. +}
  23001. +
  23002. +static void
  23003. +eat(name, num)
  23004. +const char * const    name;
  23005. +const int        num;
  23006. +{
  23007. +    eats(name, num, (char *) NULL, -1);
  23008. +}
  23009. +
  23010. +static void
  23011. +error(string)
  23012. +const char * const    string;
  23013. +{
  23014. +    /*
  23015. +    ** Match the format of "cc" to allow sh users to
  23016. +    **     zic ... 2>&1 | error -t "*" -v
  23017. +    ** on BSD systems.
  23018. +    */
  23019. +    (void) fprintf(stderr, "\"%s\", line %d: %s",
  23020. +        filename, linenum, string);
  23021. +    if (rfilename != NULL)
  23022. +        (void) fprintf(stderr, " (rule from \"%s\", line %d)",
  23023. +            rfilename, rlinenum);
  23024. +    (void) fprintf(stderr, "\n");
  23025. +    ++errors;
  23026. +}
  23027. +
  23028. +static void
  23029. +usage()
  23030. +{
  23031. +    (void) fprintf(stderr,
  23032. +"%s: usage is %s [ -s ] [ -v ] [ -l localtime ] [ -p posixrules ] [ -d directory ]\n\
  23033. +\t[ -L leapseconds ] [ filename ... ]\n",
  23034. +        progname, progname);
  23035. +    (void) exit(EXIT_FAILURE);
  23036. +}
  23037. +
  23038. +static const char *    psxrules = NULL;
  23039. +static const char *    lcltime = NULL;
  23040. +static const char *    directory = NULL;
  23041. +static const char *    leapsec = NULL;
  23042. +static int        sflag = FALSE;
  23043. +
  23044. +int
  23045. +main(argc, argv)
  23046. +int    argc;
  23047. +char *    argv[];
  23048. +{
  23049. +    register int    i, j;
  23050. +    register int    c;
  23051. +
  23052. +    (void) umask(umask(022) | 022);
  23053. +    progname = argv[0];
  23054. +    while ((c = getopt(argc, argv, "d:l:p:L:vs")) != EOF)
  23055. +        switch (c) {
  23056. +            default:
  23057. +                usage();
  23058. +            case 'd':
  23059. +                if (directory == NULL)
  23060. +                    directory = optarg;
  23061. +                else {
  23062. +                    (void) fprintf(stderr,
  23063. +"%s: More than one -d option specified\n",
  23064. +                        progname);
  23065. +                    (void) exit(EXIT_FAILURE);
  23066. +                }
  23067. +                break;
  23068. +            case 'l':
  23069. +                if (lcltime == NULL)
  23070. +                    lcltime = optarg;
  23071. +                else {
  23072. +                    (void) fprintf(stderr,
  23073. +"%s: More than one -l option specified\n",
  23074. +                        progname);
  23075. +                    (void) exit(EXIT_FAILURE);
  23076. +                }
  23077. +                break;
  23078. +            case 'p':
  23079. +                if (psxrules == NULL)
  23080. +                    psxrules = optarg;
  23081. +                else {
  23082. +                    (void) fprintf(stderr,
  23083. +"%s: More than one -p option specified\n",
  23084. +                        progname);
  23085. +                    (void) exit(EXIT_FAILURE);
  23086. +                }
  23087. +                break;
  23088. +            case 'L':
  23089. +                if (leapsec == NULL)
  23090. +                    leapsec = optarg;
  23091. +                else {
  23092. +                    (void) fprintf(stderr,
  23093. +"%s: More than one -L option specified\n",
  23094. +                        progname);
  23095. +                    (void) exit(EXIT_FAILURE);
  23096. +                }
  23097. +                break;
  23098. +            case 'v':
  23099. +                noise = TRUE;
  23100. +                break;
  23101. +            case 's':
  23102. +                sflag = TRUE;
  23103. +                break;
  23104. +        }
  23105. +    if (optind == argc - 1 && strcmp(argv[optind], "=") == 0)
  23106. +        usage();    /* usage message by request */
  23107. +    if (directory == NULL)
  23108. +        directory = TZDIR;
  23109. +
  23110. +    setboundaries();
  23111. +
  23112. +    if (optind < argc && leapsec != NULL) {
  23113. +        infile(leapsec);
  23114. +        adjleap();
  23115. +    }
  23116. +
  23117. +    zones = (struct zone *) emalloc(0);
  23118. +    rules = (struct rule *) emalloc(0);
  23119. +    links = (struct link *) emalloc(0);
  23120. +    for (i = optind; i < argc; ++i)
  23121. +        infile(argv[i]);
  23122. +    if (errors)
  23123. +        (void) exit(EXIT_FAILURE);
  23124. +    associate();
  23125. +    for (i = 0; i < nzones; i = j) {
  23126. +        /*
  23127. +        ** Find the next non-continuation zone entry.
  23128. +        */
  23129. +        for (j = i + 1; j < nzones && zones[j].z_name == NULL; ++j)
  23130. +            ;
  23131. +        outzone(&zones[i], j - i);
  23132. +    }
  23133. +    /*
  23134. +    ** Make links.
  23135. +    */
  23136. +    for (i = 0; i < nlinks; ++i)
  23137. +        dolink(links[i].l_from, links[i].l_to);
  23138. +    if (lcltime != NULL)
  23139. +        dolink(lcltime, TZDEFAULT);
  23140. +    if (psxrules != NULL)
  23141. +        dolink(psxrules, TZDEFRULES);
  23142. +    return (errors == 0) ? EXIT_SUCCESS : EXIT_FAILURE;
  23143. +}
  23144. +
  23145. +static void
  23146. +dolink(fromfile, tofile)
  23147. +const char * const    fromfile;
  23148. +const char * const    tofile;
  23149. +{
  23150. +    register char *    fromname;
  23151. +    register char *    toname;
  23152. +
  23153. +    fromname = ecpyalloc(directory);
  23154. +    fromname = ecatalloc(fromname, "/");
  23155. +    fromname = ecatalloc(fromname, fromfile);
  23156. +    if (strchr(tofile, ':')) toname = ecpyalloc(tofile);
  23157. +    else
  23158. +      {
  23159. +        toname = ecpyalloc(directory);
  23160. +        toname = ecatalloc(toname, "/");
  23161. +        toname = ecatalloc(toname, tofile);
  23162. +      }
  23163. +    /*
  23164. +    ** We get to be careful here since
  23165. +    ** there's a fair chance of root running us.
  23166. +    */
  23167. +    if (!itsdir(toname))
  23168. +        (void) remove(toname);
  23169. +    if (link(fromname, toname) != 0) {
  23170. +        (void) fprintf(stderr, "%s: Can't link from %s to ",
  23171. +            progname, fromname);
  23172. +        (void) perror(toname);
  23173. +        (void) exit(EXIT_FAILURE);
  23174. +    }
  23175. +    ifree(fromname);
  23176. +    ifree(toname);
  23177. +}
  23178. +
  23179. +static void
  23180. +setboundaries()
  23181. +{
  23182. +    register time_t    bit;
  23183. +
  23184. +    for (bit = 1; bit > 0; bit <<= 1)
  23185. +        ;
  23186. +    if (bit == 0) {        /* time_t is an unsigned type */
  23187. +        tt_signed = FALSE;
  23188. +        min_time = 0;
  23189. +        max_time = ~(time_t) 0;
  23190. +        if (sflag)
  23191. +            max_time >>= 1;
  23192. +    } else {
  23193. +        tt_signed = TRUE;
  23194. +        min_time = bit;
  23195. +        max_time = bit;
  23196. +        ++max_time;
  23197. +        max_time = -max_time;
  23198. +        if (sflag)
  23199. +            min_time = 0;
  23200. +    }
  23201. +    min_year = TM_YEAR_BASE + gmtime(&min_time)->tm_year;
  23202. +    max_year = TM_YEAR_BASE + gmtime(&max_time)->tm_year;
  23203. +}
  23204. +
  23205. +static int
  23206. +itsdir(name)
  23207. +const char * const    name;
  23208. +{
  23209. +    struct stat    s;
  23210. +
  23211. +    return (stat(name, &s) == 0 && S_ISDIR(s.st_mode));
  23212. +}
  23213. +
  23214. +/*
  23215. +** Associate sets of rules with zones.
  23216. +*/
  23217. +
  23218. +/*
  23219. +** Sort by rule name.
  23220. +*/
  23221. +
  23222. +static int
  23223. +rcomp(cp1, cp2)
  23224. +const void *    cp1;
  23225. +const void *    cp2;
  23226. +{
  23227. +    return strcmp(((struct rule *) cp1)->r_name,
  23228. +        ((struct rule *) cp2)->r_name);
  23229. +}
  23230. +
  23231. +static void
  23232. +associate()
  23233. +{
  23234. +    register struct zone *    zp;
  23235. +    register struct rule *    rp;
  23236. +    register int        base, out;
  23237. +    register int        i;
  23238. +
  23239. +    if (nrules != 0)
  23240. +        (void) qsort((void *) rules, (size_t) nrules,
  23241. +             (size_t) sizeof *rules, rcomp);
  23242. +    for (i = 0; i < nzones; ++i) {
  23243. +        zp = &zones[i];
  23244. +        zp->z_rules = NULL;
  23245. +        zp->z_nrules = 0;
  23246. +    }
  23247. +    for (base = 0; base < nrules; base = out) {
  23248. +        rp = &rules[base];
  23249. +        for (out = base + 1; out < nrules; ++out)
  23250. +            if (strcmp(rp->r_name, rules[out].r_name) != 0)
  23251. +                break;
  23252. +        for (i = 0; i < nzones; ++i) {
  23253. +            zp = &zones[i];
  23254. +            if (strcmp(zp->z_rule, rp->r_name) != 0)
  23255. +                continue;
  23256. +            zp->z_rules = rp;
  23257. +            zp->z_nrules = out - base;
  23258. +        }
  23259. +    }
  23260. +    for (i = 0; i < nzones; ++i) {
  23261. +        zp = &zones[i];
  23262. +        if (zp->z_nrules == 0) {
  23263. +            /*
  23264. +            ** Maybe we have a local standard time offset.
  23265. +            */
  23266. +            eat(zp->z_filename, zp->z_linenum);
  23267. +            zp->z_stdoff =
  23268. +                gethms((char *)zp->z_rule, "unruly zone", TRUE);
  23269. +            /*
  23270. +            ** Note, though, that if there's no rule,
  23271. +            ** a '%s' in the format is a bad thing.
  23272. +            */
  23273. +            if (strchr(zp->z_format, '%') != 0)
  23274. +                error("%s in ruleless zone");
  23275. +        }
  23276. +    }
  23277. +    if (errors)
  23278. +        (void) exit(EXIT_FAILURE);
  23279. +}
  23280. +
  23281. +static void
  23282. +infile(name)
  23283. +const char *    name;
  23284. +{
  23285. +    register FILE *            fp;
  23286. +    register char **        fields;
  23287. +    register char *            cp;
  23288. +    register const struct lookup *    lp;
  23289. +    register int            nfields;
  23290. +    register int            wantcont;
  23291. +    register int            num;
  23292. +    char                buf[BUFSIZ];
  23293. +
  23294. +    if (strcmp(name, "-") == 0) {
  23295. +        name = "standard input";
  23296. +        fp = stdin;
  23297. +    } else if ((fp = fopen(name, "r")) == NULL) {
  23298. +        (void) fprintf(stderr, "%s: Can't open ", progname);
  23299. +        (void) perror(name);
  23300. +        (void) exit(EXIT_FAILURE);
  23301. +    }
  23302. +    wantcont = FALSE;
  23303. +    for (num = 1; ; ++num) {
  23304. +        eat(name, num);
  23305. +        if (fgets(buf, (int) sizeof buf, fp) != buf)
  23306. +            break;
  23307. +        cp = strchr(buf, '\n');
  23308. +        if (cp == NULL) {
  23309. +            error("line too long");
  23310. +            (void) exit(EXIT_FAILURE);
  23311. +        }
  23312. +        *cp = '\0';
  23313. +        fields = getfields(buf);
  23314. +        nfields = 0;
  23315. +        while (fields[nfields] != NULL) {
  23316. +            if (ciequal(fields[nfields], "-"))
  23317. +                fields[nfields] = "";
  23318. +            ++nfields;
  23319. +        }
  23320. +        if (nfields == 0) {
  23321. +            /* nothing to do */
  23322. +        } else if (wantcont) {
  23323. +            wantcont = inzcont(fields, nfields);
  23324. +        } else {
  23325. +            lp = byword(fields[0], line_codes);
  23326. +            if (lp == NULL)
  23327. +                error("input line of unknown type");
  23328. +            else switch ((int) (lp->l_value)) {
  23329. +                case LC_RULE:
  23330. +                    inrule(fields, nfields);
  23331. +                    wantcont = FALSE;
  23332. +                    break;
  23333. +                case LC_ZONE:
  23334. +                    wantcont = inzone(fields, nfields);
  23335. +                    break;
  23336. +                case LC_LINK:
  23337. +                    inlink(fields, nfields);
  23338. +                    wantcont = FALSE;
  23339. +                    break;
  23340. +                case LC_LEAP:
  23341. +                    if (name != leapsec)
  23342. +                        (void) fprintf(stderr,
  23343. +"%s: Leap line in non leap seconds file %s\n",
  23344. +                            progname, name);
  23345. +                    else    inleap(fields, nfields);
  23346. +                    wantcont = FALSE;
  23347. +                    break;
  23348. +                default:    /* "cannot happen" */
  23349. +                    (void) fprintf(stderr,
  23350. +"%s: panic: Invalid l_value %d\n",
  23351. +                        progname, lp->l_value);
  23352. +                    (void) exit(EXIT_FAILURE);
  23353. +            }
  23354. +        }
  23355. +        ifree((char *) fields);
  23356. +    }
  23357. +    if (ferror(fp)) {
  23358. +        (void) fprintf(stderr, "%s: Error reading ", progname);
  23359. +        (void) perror(filename);
  23360. +        (void) exit(EXIT_FAILURE);
  23361. +    }
  23362. +    if (fp != stdin && fclose(fp)) {
  23363. +        (void) fprintf(stderr, "%s: Error closing ", progname);
  23364. +        (void) perror(filename);
  23365. +        (void) exit(EXIT_FAILURE);
  23366. +    }
  23367. +    if (wantcont)
  23368. +        error("expected continuation line not found");
  23369. +}
  23370. +
  23371. +/*
  23372. +** Convert a string of one of the forms
  23373. +**    h    -h     hh:mm    -hh:mm    hh:mm:ss    -hh:mm:ss
  23374. +** into a number of seconds.
  23375. +** A null string maps to zero.
  23376. +** Call error with errstring and return zero on errors.
  23377. +*/
  23378. +
  23379. +static long
  23380. +gethms(string, errstring, signable)
  23381. +char *        string;
  23382. +const char * const    errstring;
  23383. +const int        signable;
  23384. +{
  23385. +    int    hh, mm, ss, sign;
  23386. +
  23387. +    if (string == NULL || *string == '\0')
  23388. +        return 0;
  23389. +    if (!signable)
  23390. +        sign = 1;
  23391. +    else if (*string == '-') {
  23392. +        sign = -1;
  23393. +        ++string;
  23394. +    } else    sign = 1;
  23395. +    if (sscanf(string, "%d:%d:%d", &hh, &mm, &ss) == 3) ;
  23396. +    else if (sscanf(string, "%d:%d", &hh, &mm) == 2) ss = 0;
  23397. +    else if (sscanf(string, "%d", &hh) == 1) mm = ss = 0;
  23398. +    else
  23399. +    {
  23400. +        error(errstring);
  23401. +        return 0;
  23402. +    }
  23403. +    if (hh < 0 || hh >= HOURSPERDAY ||
  23404. +        mm < 0 || mm >= MINSPERHOUR ||
  23405. +        ss < 0 || ss > SECSPERMIN) {
  23406. +            error(errstring);
  23407. +            return 0;
  23408. +    }
  23409. +    return eitol(sign) *
  23410. +        (eitol(hh * MINSPERHOUR + mm) *
  23411. +        eitol(SECSPERMIN) + eitol(ss));
  23412. +}
  23413. +
  23414. +static void
  23415. +inrule(fields, nfields)
  23416. +register char ** const    fields;
  23417. +const int        nfields;
  23418. +{
  23419. +    static struct rule    r;
  23420. +
  23421. +    if (nfields != RULE_FIELDS) {
  23422. +        error("wrong number of fields on Rule line");
  23423. +        return;
  23424. +    }
  23425. +    if (*fields[RF_NAME] == '\0') {
  23426. +        error("nameless rule");
  23427. +        return;
  23428. +    }
  23429. +    r.r_filename = filename;
  23430. +    r.r_linenum = linenum;
  23431. +    r.r_stdoff = gethms(fields[RF_STDOFF], "invalid saved time", TRUE);
  23432. +    rulesub(&r, fields[RF_LOYEAR], fields[RF_HIYEAR], fields[RF_COMMAND],
  23433. +        fields[RF_MONTH], fields[RF_DAY], fields[RF_TOD]);
  23434. +    r.r_name = ecpyalloc(fields[RF_NAME]);
  23435. +    r.r_abbrvar = ecpyalloc(fields[RF_ABBRVAR]);
  23436. +    rules = (struct rule *) erealloc((char *) rules,
  23437. +        (int) ((nrules + 1) * sizeof *rules));
  23438. +    rules[nrules++] = r;
  23439. +}
  23440. +
  23441. +static int
  23442. +inzone(fields, nfields)
  23443. +register char ** const    fields;
  23444. +const int        nfields;
  23445. +{
  23446. +    register int    i;
  23447. +    char        buf[132];
  23448. +
  23449. +    if (nfields < ZONE_MINFIELDS || nfields > ZONE_MAXFIELDS) {
  23450. +        error("wrong number of fields on Zone line");
  23451. +        return FALSE;
  23452. +    }
  23453. +    if (strcmp(fields[ZF_NAME], TZDEFAULT) == 0 && lcltime != NULL) {
  23454. +        (void) sprintf(buf,
  23455. +            "\"Zone %s\" line and -l option are mutually exclusive",
  23456. +            TZDEFAULT);
  23457. +        error(buf);
  23458. +        return FALSE;
  23459. +    }
  23460. +    if (strcmp(fields[ZF_NAME], TZDEFRULES) == 0 && psxrules != NULL) {
  23461. +        (void) sprintf(buf,
  23462. +            "\"Zone %s\" line and -p option are mutually exclusive",
  23463. +            TZDEFRULES);
  23464. +        error(buf);
  23465. +        return FALSE;
  23466. +    }
  23467. +    for (i = 0; i < nzones; ++i)
  23468. +        if (zones[i].z_name != NULL &&
  23469. +            strcmp(zones[i].z_name, fields[ZF_NAME]) == 0) {
  23470. +                (void) sprintf(buf,
  23471. +"duplicate zone name %s (file \"%s\", line %d)",
  23472. +                    fields[ZF_NAME],
  23473. +                    zones[i].z_filename,
  23474. +                    zones[i].z_linenum);
  23475. +                error(buf);
  23476. +                return FALSE;
  23477. +        }
  23478. +    return inzsub(fields, nfields, FALSE);
  23479. +}
  23480. +
  23481. +static int
  23482. +inzcont(fields, nfields)
  23483. +register char ** const    fields;
  23484. +const int        nfields;
  23485. +{
  23486. +    if (nfields < ZONEC_MINFIELDS || nfields > ZONEC_MAXFIELDS) {
  23487. +        error("wrong number of fields on Zone continuation line");
  23488. +        return FALSE;
  23489. +    }
  23490. +    return inzsub(fields, nfields, TRUE);
  23491. +}
  23492. +
  23493. +static int
  23494. +inzsub(fields, nfields, iscont)
  23495. +register char ** const    fields;
  23496. +const int        nfields;
  23497. +const int        iscont;
  23498. +{
  23499. +    register char *        cp;
  23500. +    static struct zone    z;
  23501. +    register int        i_gmtoff, i_rule, i_format;
  23502. +    register int        i_untilyear, i_untilmonth;
  23503. +    register int        i_untilday, i_untiltime;
  23504. +    register int        hasuntil;
  23505. +
  23506. +    if (iscont) {
  23507. +        i_gmtoff = ZFC_GMTOFF;
  23508. +        i_rule = ZFC_RULE;
  23509. +        i_format = ZFC_FORMAT;
  23510. +        i_untilyear = ZFC_TILYEAR;
  23511. +        i_untilmonth = ZFC_TILMONTH;
  23512. +        i_untilday = ZFC_TILDAY;
  23513. +        i_untiltime = ZFC_TILTIME;
  23514. +        z.z_name = NULL;
  23515. +    } else {
  23516. +        i_gmtoff = ZF_GMTOFF;
  23517. +        i_rule = ZF_RULE;
  23518. +        i_format = ZF_FORMAT;
  23519. +        i_untilyear = ZF_TILYEAR;
  23520. +        i_untilmonth = ZF_TILMONTH;
  23521. +        i_untilday = ZF_TILDAY;
  23522. +        i_untiltime = ZF_TILTIME;
  23523. +        z.z_name = ecpyalloc(fields[ZF_NAME]);
  23524. +    }
  23525. +    z.z_filename = filename;
  23526. +    z.z_linenum = linenum;
  23527. +    z.z_gmtoff = gethms(fields[i_gmtoff], "invalid GMT offset", TRUE);
  23528. +    if ((cp = strchr(fields[i_format], '%')) != 0) {
  23529. +        if (*++cp != 's' || strchr(cp, '%') != 0) {
  23530. +            error("invalid abbreviation format");
  23531. +            return FALSE;
  23532. +        }
  23533. +    }
  23534. +    z.z_rule = ecpyalloc(fields[i_rule]);
  23535. +    z.z_format = ecpyalloc(fields[i_format]);
  23536. +    hasuntil = nfields > i_untilyear;
  23537. +    if (hasuntil) {
  23538. +        z.z_untilrule.r_filename = filename;
  23539. +        z.z_untilrule.r_linenum = linenum;
  23540. +        rulesub(&z.z_untilrule,
  23541. +            fields[i_untilyear],
  23542. +            "only",
  23543. +            "",
  23544. +            (nfields > i_untilmonth) ? fields[i_untilmonth] : "Jan",
  23545. +            (nfields > i_untilday) ? fields[i_untilday] : "1",
  23546. +            (nfields > i_untiltime) ? fields[i_untiltime] : "0");
  23547. +        z.z_untiltime = rpytime(&z.z_untilrule, z.z_untilrule.r_loyear);
  23548. +        if (iscont && nzones > 0 && z.z_untiltime < max_time &&
  23549. +            z.z_untiltime > min_time &&
  23550. +            zones[nzones - 1].z_untiltime >= z.z_untiltime) {
  23551. +error("Zone continuation line end time is not after end time of previous line");
  23552. +            return FALSE;
  23553. +        }
  23554. +    }
  23555. +    zones = (struct zone *) erealloc((char *) zones,
  23556. +        (int) ((nzones + 1) * sizeof *zones));
  23557. +    zones[nzones++] = z;
  23558. +    /*
  23559. +    ** If there was an UNTIL field on this line,
  23560. +    ** there's more information about the zone on the next line.
  23561. +    */
  23562. +    return hasuntil;
  23563. +}
  23564. +
  23565. +static void
  23566. +inleap(fields, nfields)
  23567. +register char ** const    fields;
  23568. +const int        nfields;
  23569. +{
  23570. +    register const char *        cp;
  23571. +    register const struct lookup *    lp;
  23572. +    register int            i, j;
  23573. +    int                year, month, day;
  23574. +    long                dayoff, tod;
  23575. +    time_t                t;
  23576. +
  23577. +    if (nfields != LEAP_FIELDS) {
  23578. +        error("wrong number of fields on Leap line");
  23579. +        return;
  23580. +    }
  23581. +    dayoff = 0;
  23582. +    cp = fields[LP_YEAR];
  23583. +    if (sscanf((char *)cp, "%d", &year) != 1 ||
  23584. +        year < min_year || year > max_year) {
  23585. +            /*
  23586. +             * Leapin' Lizards!
  23587. +             */
  23588. +            error("invalid leaping year");
  23589. +            return;
  23590. +    }
  23591. +    j = EPOCH_YEAR;
  23592. +    while (j != year) {
  23593. +        if (year > j) {
  23594. +            i = len_years[isleap(j)];
  23595. +            ++j;
  23596. +        } else {
  23597. +            --j;
  23598. +            i = -len_years[isleap(j)];
  23599. +        }
  23600. +        dayoff = oadd(dayoff, eitol(i));
  23601. +    }
  23602. +    if ((lp = byword(fields[LP_MONTH], mon_names)) == NULL) {
  23603. +        error("invalid month name");
  23604. +        return;
  23605. +    }
  23606. +    month = lp->l_value;
  23607. +    j = TM_JANUARY;
  23608. +    while (j != month) {
  23609. +        i = len_months[isleap(year)][j];
  23610. +        dayoff = oadd(dayoff, eitol(i));
  23611. +        ++j;
  23612. +    }
  23613. +    cp = fields[LP_DAY];
  23614. +    if (sscanf((char *)cp, "%d", &day) != 1 ||
  23615. +        day <= 0 || day > len_months[isleap(year)][month]) {
  23616. +            error("invalid day of month");
  23617. +            return;
  23618. +    }
  23619. +    dayoff = oadd(dayoff, eitol(day - 1));
  23620. +    if (dayoff < 0 && !tt_signed) {
  23621. +        error("time before zero");
  23622. +        return;
  23623. +    }
  23624. +    t = (time_t) dayoff * SECSPERDAY;
  23625. +    /*
  23626. +    ** Cheap overflow check.
  23627. +    */
  23628. +    if (t / SECSPERDAY != dayoff) {
  23629. +        error("time overflow");
  23630. +        return;
  23631. +    }
  23632. +    tod = gethms(fields[LP_TIME], "invalid time of day", FALSE);
  23633. +    cp = fields[LP_CORR];
  23634. +    if (strcmp(cp, "+") != 0 && strcmp(cp, "") != 0) {
  23635. +        /* infile() turned "-" into "" */
  23636. +        error("illegal CORRECTION field on Leap line");
  23637. +        return;
  23638. +    }
  23639. +    if ((lp = byword(fields[LP_ROLL], leap_types)) == NULL) {
  23640. +        error("illegal Rolling/Stationary field on Leap line");
  23641. +        return;
  23642. +    }
  23643. +    addleap(tadd(t, tod), *cp == '+', lp->l_value);
  23644. +}
  23645. +
  23646. +static void
  23647. +inlink(fields, nfields)
  23648. +register char ** const    fields;
  23649. +const int        nfields;
  23650. +{
  23651. +    struct link    l;
  23652. +
  23653. +    if (nfields != LINK_FIELDS) {
  23654. +        error("wrong number of fields on Link line");
  23655. +        return;
  23656. +    }
  23657. +    if (*fields[LF_FROM] == '\0') {
  23658. +        error("blank FROM field on Link line");
  23659. +        return;
  23660. +    }
  23661. +    if (*fields[LF_TO] == '\0') {
  23662. +        error("blank TO field on Link line");
  23663. +        return;
  23664. +    }
  23665. +    l.l_filename = filename;
  23666. +    l.l_linenum = linenum;
  23667. +    l.l_from = ecpyalloc(fields[LF_FROM]);
  23668. +    l.l_to = ecpyalloc(fields[LF_TO]);
  23669. +    links = (struct link *) erealloc((char *) links,
  23670. +        (int) ((nlinks + 1) * sizeof *links));
  23671. +    links[nlinks++] = l;
  23672. +}
  23673. +
  23674. +static void
  23675. +rulesub(rp, loyearp, hiyearp, typep, monthp, dayp, timep)
  23676. +register struct rule * const    rp;
  23677. +char * const            loyearp;
  23678. +char * const            hiyearp;
  23679. +char * const            typep;
  23680. +char * const            monthp;
  23681. +char * const            dayp;
  23682. +char * const            timep;
  23683. +{
  23684. +    register struct lookup const *    lp;
  23685. +    register char *            cp;
  23686. +
  23687. +    if ((lp = byword(monthp, mon_names)) == NULL) {
  23688. +        error("invalid month name");
  23689. +        return;
  23690. +    }
  23691. +    rp->r_month = lp->l_value;
  23692. +    rp->r_todisstd = FALSE;
  23693. +    cp = timep;
  23694. +    if (*cp != '\0') {
  23695. +        cp += strlen(cp) - 1;
  23696. +        switch (lowerit(*cp)) {
  23697. +            case 's':
  23698. +                rp->r_todisstd = TRUE;
  23699. +                *cp = '\0';
  23700. +                break;
  23701. +            case 'w':
  23702. +                rp->r_todisstd = FALSE;
  23703. +                *cp = '\0';
  23704. +                break;
  23705. +        }
  23706. +    }
  23707. +    rp->r_tod = gethms(timep, "invalid time of day", FALSE);
  23708. +    /*
  23709. +    ** Year work.
  23710. +    */
  23711. +    cp = loyearp;
  23712. +    if ((lp = byword(cp, begin_years)) != NULL) switch ((int) lp->l_value) {
  23713. +        case YR_MINIMUM:
  23714. +            rp->r_loyear = min_year;
  23715. +            break;
  23716. +        case YR_MAXIMUM:
  23717. +            rp->r_loyear = max_year;
  23718. +            break;
  23719. +        default:    /* "cannot happen" */
  23720. +            (void) fprintf(stderr,
  23721. +                "%s: panic: Invalid l_value %d\n",
  23722. +                progname, lp->l_value);
  23723. +            (void) exit(EXIT_FAILURE);
  23724. +    } else if (sscanf(cp, "%d", &rp->r_loyear) != 1 ||
  23725. +        rp->r_loyear < min_year || rp->r_loyear > max_year) {
  23726. +            if (noise)
  23727. +                error("invalid starting year");
  23728. +            if (rp->r_loyear > max_year)
  23729. +                return;
  23730. +    }
  23731. +    cp = hiyearp;
  23732. +    if ((lp = byword(cp, end_years)) != NULL) switch ((int) lp->l_value) {
  23733. +        case YR_MINIMUM:
  23734. +            rp->r_hiyear = min_year;
  23735. +            break;
  23736. +        case YR_MAXIMUM:
  23737. +            rp->r_hiyear = max_year;
  23738. +            break;
  23739. +        case YR_ONLY:
  23740. +            rp->r_hiyear = rp->r_loyear;
  23741. +            break;
  23742. +        default:    /* "cannot happen" */
  23743. +            (void) fprintf(stderr,
  23744. +                "%s: panic: Invalid l_value %d\n",
  23745. +                progname, lp->l_value);
  23746. +            (void) exit(EXIT_FAILURE);
  23747. +    } else if (sscanf(cp, "%d", &rp->r_hiyear) != 1 ||
  23748. +        rp->r_hiyear < min_year || rp->r_hiyear > max_year) {
  23749. +            if (noise)
  23750. +                error("invalid ending year");
  23751. +            if (rp->r_hiyear < min_year)
  23752. +                return;
  23753. +    }
  23754. +    if (rp->r_hiyear < min_year)
  23755. +         return;
  23756. +     if (rp->r_loyear < min_year)
  23757. +         rp->r_loyear = min_year;
  23758. +     if (rp->r_hiyear > max_year)
  23759. +         rp->r_hiyear = max_year;
  23760. +    if (rp->r_loyear > rp->r_hiyear) {
  23761. +        error("starting year greater than ending year");
  23762. +        return;
  23763. +    }
  23764. +    if (*typep == '\0')
  23765. +        rp->r_yrtype = NULL;
  23766. +    else {
  23767. +        if (rp->r_loyear == rp->r_hiyear) {
  23768. +            error("typed single year");
  23769. +            return;
  23770. +        }
  23771. +        rp->r_yrtype = ecpyalloc(typep);
  23772. +    }
  23773. +    /*
  23774. +    ** Day work.
  23775. +    ** Accept things such as:
  23776. +    **    1
  23777. +    **    last-Sunday
  23778. +    **    Sun<=20
  23779. +    **    Sun>=7
  23780. +    */
  23781. +    if ((lp = byword(dayp, lasts)) != NULL) {
  23782. +        rp->r_dycode = DC_DOWLEQ;
  23783. +        rp->r_wday = lp->l_value;
  23784. +        rp->r_dayofmonth = len_months[1][rp->r_month];
  23785. +    } else {
  23786. +        if ((cp = strchr(dayp, '<')) != 0)
  23787. +            rp->r_dycode = DC_DOWLEQ;
  23788. +        else if ((cp = strchr(dayp, '>')) != 0)
  23789. +            rp->r_dycode = DC_DOWGEQ;
  23790. +        else {
  23791. +            cp = dayp;
  23792. +            rp->r_dycode = DC_DOM;
  23793. +        }
  23794. +        if (rp->r_dycode != DC_DOM) {
  23795. +            *cp++ = 0;
  23796. +            if (*cp++ != '=') {
  23797. +                error("invalid day of month");
  23798. +                return;
  23799. +            }
  23800. +            if ((lp = byword(dayp, wday_names)) == NULL) {
  23801. +                error("invalid weekday name");
  23802. +                return;
  23803. +            }
  23804. +            rp->r_wday = lp->l_value;
  23805. +        }
  23806. +        if (sscanf(cp, "%d", &rp->r_dayofmonth) != 1 ||
  23807. +            rp->r_dayofmonth <= 0 ||
  23808. +            (rp->r_dayofmonth > len_months[1][rp->r_month])) {
  23809. +                error("invalid day of month");
  23810. +                return;
  23811. +        }
  23812. +    }
  23813. +}
  23814. +
  23815. +static void
  23816. +convert(val, buf)
  23817. +const long    val;
  23818. +char * const    buf;
  23819. +{
  23820. +    register int    i;
  23821. +    register long    shift;
  23822. +
  23823. +    for (i = 0, shift = 24; i < 4; ++i, shift -= 8)
  23824. +        buf[i] = val >> shift;
  23825. +}
  23826. +
  23827. +static void
  23828. +puttzcode(val, fp)
  23829. +const long    val;
  23830. +FILE * const    fp;
  23831. +{
  23832. +    char    buf[4];
  23833. +
  23834. +    convert(val, buf);
  23835. +    (void) fwrite((void *) buf, (size_t) sizeof buf, (size_t) 1, fp);
  23836. +}
  23837. +
  23838. +static void
  23839. +writezone(name)
  23840. +const char * const    name;
  23841. +{
  23842. +    register FILE *        fp;
  23843. +    register int        i, j;
  23844. +    char            fullname[BUFSIZ];
  23845. +    static struct tzhead    tzh;
  23846. +
  23847. +    if (strlen(directory) + 1 + strlen(name) >= sizeof fullname) {
  23848. +        (void) fprintf(stderr,
  23849. +            "%s: File name %s/%s too long\n", progname,
  23850. +            directory, name);
  23851. +        (void) exit(EXIT_FAILURE);
  23852. +    }
  23853. +    (void) sprintf(fullname, "%s/%s", directory, name);
  23854. +    if ((fp = fopen(fullname, "wb")) == NULL) {
  23855. +        if (mkdirs(fullname) != 0)
  23856. +            (void) exit(EXIT_FAILURE);
  23857. +        if ((fp = fopen(fullname, "wb")) == NULL) {
  23858. +            (void) fprintf(stderr, "%s: Can't create ", progname);
  23859. +            (void) perror(fullname);
  23860. +            (void) exit(EXIT_FAILURE);
  23861. +        }
  23862. +    }
  23863. +    convert(eitol(typecnt), tzh.tzh_ttisstdcnt);
  23864. +    convert(eitol(leapcnt), tzh.tzh_leapcnt);
  23865. +    convert(eitol(timecnt), tzh.tzh_timecnt);
  23866. +    convert(eitol(typecnt), tzh.tzh_typecnt);
  23867. +    convert(eitol(charcnt), tzh.tzh_charcnt);
  23868. +    (void) fwrite((void *) &tzh, (size_t) sizeof tzh, (size_t) 1, fp);
  23869. +    for (i = 0; i < timecnt; ++i) {
  23870. +        j = leapcnt;
  23871. +        while (--j >= 0)
  23872. +            if (ats[i] >= trans[j]) {
  23873. +                ats[i] = tadd(ats[i], corr[j]);
  23874. +                break;
  23875. +            }
  23876. +        puttzcode((long) ats[i], fp);
  23877. +    }
  23878. +    if (timecnt > 0)
  23879. +        (void) fwrite((void *) types, (size_t) sizeof types[0],
  23880. +            (size_t) timecnt, fp);
  23881. +    for (i = 0; i < typecnt; ++i) {
  23882. +        puttzcode((long) gmtoffs[i], fp);
  23883. +        (void) putc(isdsts[i], fp);
  23884. +        (void) putc(abbrinds[i], fp);
  23885. +    }
  23886. +    if (charcnt != 0)
  23887. +        (void) fwrite((void *) chars, (size_t) sizeof chars[0],
  23888. +            (size_t) charcnt, fp);
  23889. +    for (i = 0; i < leapcnt; ++i) {
  23890. +        if (roll[i]) {
  23891. +            if (timecnt == 0 || trans[i] < ats[0]) {
  23892. +                j = 0;
  23893. +                while (isdsts[j])
  23894. +                    if (++j >= typecnt) {
  23895. +                        j = 0;
  23896. +                        break;
  23897. +                    }
  23898. +            } else {
  23899. +                j = 1;
  23900. +                while (j < timecnt && trans[i] >= ats[j])
  23901. +                    ++j;
  23902. +                j = types[j - 1];
  23903. +            }
  23904. +            puttzcode((long) tadd(trans[i], -gmtoffs[j]), fp);
  23905. +        } else    puttzcode((long) trans[i], fp);
  23906. +        puttzcode((long) corr[i], fp);
  23907. +    }
  23908. +    for (i = 0; i < typecnt; ++i)
  23909. +        (void) putc(ttisstds[i], fp);
  23910. +    if (ferror(fp) || fclose(fp)) {
  23911. +        (void) fprintf(stderr, "%s: Write error on ", progname);
  23912. +        (void) perror(fullname);
  23913. +        (void) exit(EXIT_FAILURE);
  23914. +    }
  23915. +}
  23916. +
  23917. +static void
  23918. +outzone(zpfirst, zonecount)
  23919. +const struct zone * const    zpfirst;
  23920. +const int            zonecount;
  23921. +{
  23922. +    register const struct zone *    zp;
  23923. +    register struct rule *        rp;
  23924. +    register int            i, j;
  23925. +    register int            usestart, useuntil;
  23926. +    register time_t            starttime, untiltime;
  23927. +    register long            gmtoff;
  23928. +    register long            stdoff;
  23929. +    register int            year;
  23930. +    register long            startoff;
  23931. +    register int            startisdst;
  23932. +    register int            startttisstd;
  23933. +    register int            type;
  23934. +    char                startbuf[BUFSIZ];
  23935. +
  23936. +    /*
  23937. +    ** Now. . .finally. . .generate some useful data!
  23938. +    */
  23939. +    timecnt = 0;
  23940. +    typecnt = 0;
  23941. +    charcnt = 0;
  23942. +    /*
  23943. +    ** Two guesses. . .the second may well be corrected later.
  23944. +    */
  23945. +    gmtoff = zpfirst->z_gmtoff;
  23946. +    stdoff = 0;
  23947. +#ifdef lint
  23948. +    starttime = 0;
  23949. +    startttisstd = FALSE;
  23950. +#endif /* defined lint */
  23951. +    for (i = 0; i < zonecount; ++i) {
  23952. +        usestart = i > 0;
  23953. +        useuntil = i < (zonecount - 1);
  23954. +        zp = &zpfirst[i];
  23955. +        eat(zp->z_filename, zp->z_linenum);
  23956. +        startisdst = -1;
  23957. +        if (zp->z_nrules == 0) {
  23958. +            type = addtype(oadd(zp->z_gmtoff, zp->z_stdoff),
  23959. +                zp->z_format, zp->z_stdoff != 0,
  23960. +                startttisstd);
  23961. +            if (usestart)
  23962. +                addtt(starttime, type);
  23963. +            gmtoff = zp->z_gmtoff;
  23964. +            stdoff = zp->z_stdoff;
  23965. +        } else for (year = min_year; year <= max_year; ++year) {
  23966. +            if (useuntil && year > zp->z_untilrule.r_hiyear)
  23967. +                break;
  23968. +            /*
  23969. +            ** Mark which rules to do in the current year.
  23970. +            ** For those to do, calculate rpytime(rp, year);
  23971. +            */
  23972. +            for (j = 0; j < zp->z_nrules; ++j) {
  23973. +                rp = &zp->z_rules[j];
  23974. +                eats(zp->z_filename, zp->z_linenum,
  23975. +                    rp->r_filename, rp->r_linenum);
  23976. +                rp->r_todo = year >= rp->r_loyear &&
  23977. +                        year <= rp->r_hiyear &&
  23978. +                        yearistype(year, rp->r_yrtype);
  23979. +                if (rp->r_todo)
  23980. +                    rp->r_temp = rpytime(rp, year);
  23981. +            }
  23982. +            for ( ; ; ) {
  23983. +                register int    k;
  23984. +                register time_t    jtime, ktime;
  23985. +                register long    offset;
  23986. +                char        buf[BUFSIZ];
  23987. +
  23988. +                if (useuntil) {
  23989. +                    /*
  23990. +                    ** Turn untiltime into GMT
  23991. +                    ** assuming the current gmtoff and
  23992. +                    ** stdoff values.
  23993. +                    */
  23994. +                    offset = gmtoff;
  23995. +                    if (!zp->z_untilrule.r_todisstd)
  23996. +                        offset = oadd(offset, stdoff);
  23997. +                    untiltime = tadd(zp->z_untiltime,
  23998. +                        -offset);
  23999. +                }
  24000. +                /*
  24001. +                ** Find the rule (of those to do, if any)
  24002. +                ** that takes effect earliest in the year.
  24003. +                */
  24004. +                k = -1;
  24005. +#ifdef lint
  24006. +                ktime = 0;
  24007. +#endif /* defined lint */
  24008. +                for (j = 0; j < zp->z_nrules; ++j) {
  24009. +                    rp = &zp->z_rules[j];
  24010. +                    if (!rp->r_todo)
  24011. +                        continue;
  24012. +                    eats(zp->z_filename, zp->z_linenum,
  24013. +                        rp->r_filename, rp->r_linenum);
  24014. +                    offset = gmtoff;
  24015. +                    if (!rp->r_todisstd)
  24016. +                        offset = oadd(offset, stdoff);
  24017. +                    jtime = rp->r_temp;
  24018. +                    if (jtime == min_time ||
  24019. +                        jtime == max_time)
  24020. +                            continue;
  24021. +                    jtime = tadd(jtime, -offset);
  24022. +                    if (k < 0 || jtime < ktime) {
  24023. +                        k = j;
  24024. +                        ktime = jtime;
  24025. +                    }
  24026. +                }
  24027. +                if (k < 0)
  24028. +                    break;    /* go on to next year */
  24029. +                rp = &zp->z_rules[k];
  24030. +                rp->r_todo = FALSE;
  24031. +                if (useuntil && ktime >= untiltime)
  24032. +                    break;
  24033. +                if (usestart) {
  24034. +                    if (ktime < starttime) {
  24035. +                        stdoff = rp->r_stdoff;
  24036. +                        startoff = oadd(zp->z_gmtoff,
  24037. +                            rp->r_stdoff);
  24038. +                        (void) sprintf(startbuf,
  24039. +                            zp->z_format,
  24040. +                            rp->r_abbrvar);
  24041. +                        startisdst =
  24042. +                            rp->r_stdoff != 0;
  24043. +                        continue;
  24044. +                    }
  24045. +                    if (ktime != starttime &&
  24046. +                        startisdst >= 0)
  24047. +addtt(starttime, addtype(startoff, startbuf, startisdst, startttisstd));
  24048. +                    usestart = FALSE;
  24049. +                }
  24050. +                eats(zp->z_filename, zp->z_linenum,
  24051. +                    rp->r_filename, rp->r_linenum);
  24052. +                (void) sprintf(buf, zp->z_format,
  24053. +                    rp->r_abbrvar);
  24054. +                offset = oadd(zp->z_gmtoff, rp->r_stdoff);
  24055. +                type = addtype(offset, buf, rp->r_stdoff != 0,
  24056. +                    rp->r_todisstd);
  24057. +                if (timecnt != 0 || rp->r_stdoff != 0)
  24058. +                    addtt(ktime, type);
  24059. +                gmtoff = zp->z_gmtoff;
  24060. +                stdoff = rp->r_stdoff;
  24061. +            }
  24062. +        }
  24063. +        /*
  24064. +        ** Now we may get to set starttime for the next zone line.
  24065. +        */
  24066. +        if (useuntil) {
  24067. +            starttime = tadd(zp->z_untiltime,
  24068. +                -gmtoffs[types[timecnt - 1]]);
  24069. +            startttisstd = zp->z_untilrule.r_todisstd;
  24070. +        }
  24071. +    }
  24072. +    writezone(zpfirst->z_name);
  24073. +}
  24074. +
  24075. +static void
  24076. +addtt(starttime, type)
  24077. +const time_t    starttime;
  24078. +const int    type;
  24079. +{
  24080. +    if (timecnt != 0 && type == types[timecnt - 1])
  24081. +        return;    /* easy enough! */
  24082. +    if (timecnt >= TZ_MAX_TIMES) {
  24083. +        error("too many transitions?!");
  24084. +        (void) exit(EXIT_FAILURE);
  24085. +    }
  24086. +    ats[timecnt] = starttime;
  24087. +    types[timecnt] = type;
  24088. +    ++timecnt;
  24089. +}
  24090. +
  24091. +static int
  24092. +addtype(gmtoff, abbr, isdst, ttisstd)
  24093. +const long        gmtoff;
  24094. +const char * const    abbr;
  24095. +const int        isdst;
  24096. +const int        ttisstd;
  24097. +{
  24098. +    register int    i, j;
  24099. +
  24100. +    /*
  24101. +    ** See if there's already an entry for this zone type.
  24102. +    ** If so, just return its index.
  24103. +    */
  24104. +    for (i = 0; i < typecnt; ++i) {
  24105. +        if (gmtoff == gmtoffs[i] && isdst == isdsts[i] &&
  24106. +            strcmp(abbr, &chars[abbrinds[i]]) == 0 &&
  24107. +            ttisstd == ttisstds[i])
  24108. +                return i;
  24109. +    }
  24110. +    /*
  24111. +    ** There isn't one; add a new one, unless there are already too
  24112. +    ** many.
  24113. +    */
  24114. +    if (typecnt >= TZ_MAX_TYPES) {
  24115. +        error("too many local time types");
  24116. +        (void) exit(EXIT_FAILURE);
  24117. +    }
  24118. +    gmtoffs[i] = gmtoff;
  24119. +    isdsts[i] = isdst;
  24120. +    ttisstds[i] = ttisstd;
  24121. +
  24122. +    for (j = 0; j < charcnt; ++j)
  24123. +        if (strcmp(&chars[j], abbr) == 0)
  24124. +            break;
  24125. +    if (j == charcnt)
  24126. +        newabbr(abbr);
  24127. +    abbrinds[i] = j;
  24128. +    ++typecnt;
  24129. +    return i;
  24130. +}
  24131. +
  24132. +static void
  24133. +addleap(t, positive, rolling)
  24134. +const time_t    t;
  24135. +const int    positive;
  24136. +const int    rolling;
  24137. +{
  24138. +    register int    i, j;
  24139. +
  24140. +    if (leapcnt >= TZ_MAX_LEAPS) {
  24141. +        error("too many leap seconds");
  24142. +        (void) exit(EXIT_FAILURE);
  24143. +    }
  24144. +    for (i = 0; i < leapcnt; ++i)
  24145. +        if (t <= trans[i]) {
  24146. +            if (t == trans[i]) {
  24147. +                error("repeated leap second moment");
  24148. +                (void) exit(EXIT_FAILURE);
  24149. +            }
  24150. +            break;
  24151. +        }
  24152. +    for (j = leapcnt; j > i; --j) {
  24153. +        trans[j] = trans[j-1];
  24154. +        corr[j] = corr[j-1];
  24155. +        roll[j] = roll[j-1];
  24156. +    }
  24157. +    trans[i] = t;
  24158. +    corr[i] = (positive ? 1L : -1L);
  24159. +    roll[i] = rolling;
  24160. +    ++leapcnt;
  24161. +}
  24162. +
  24163. +static void
  24164. +adjleap()
  24165. +{
  24166. +    register int    i;
  24167. +    register long    last = 0;
  24168. +
  24169. +    /*
  24170. +    ** propagate leap seconds forward
  24171. +    */
  24172. +    for (i = 0; i < leapcnt; ++i) {
  24173. +        trans[i] = tadd(trans[i], last);
  24174. +        last = corr[i] += last;
  24175. +    }
  24176. +}
  24177. +
  24178. +static int
  24179. +yearistype(year, type)
  24180. +const int        year;
  24181. +const char * const    type;
  24182. +{
  24183. +    char    buf[BUFSIZ];
  24184. +    int    result;
  24185. +
  24186. +    if (type == NULL || *type == '\0')
  24187. +        return TRUE;
  24188. +    if (strcmp(type, "uspres") == 0)
  24189. +        return (year % 4) == 0;
  24190. +    if (strcmp(type, "nonpres") == 0)
  24191. +        return (year % 4) != 0;
  24192. +    (void) sprintf(buf, "yearistype %d %s", year, type);
  24193. +    result = system(buf);
  24194. +    if (result == 0)
  24195. +        return TRUE;
  24196. +    if (result == (1 << 8))
  24197. +        return FALSE;
  24198. +    error("Wild result from command execution");
  24199. +    (void) fprintf(stderr, "%s: command was '%s', result was %d\n",
  24200. +        progname, buf, result);
  24201. +    for ( ; ; )
  24202. +        (void) exit(EXIT_FAILURE);
  24203. +}
  24204. +
  24205. +static int
  24206. +lowerit(a)
  24207. +const int    a;
  24208. +{
  24209. +    return (isascii(a) && isupper(a)) ? tolower(a) : a;
  24210. +}
  24211. +
  24212. +static int
  24213. +ciequal(ap, bp)        /* case-insensitive equality */
  24214. +register const char *    ap;
  24215. +register const char *    bp;
  24216. +{
  24217. +    while (lowerit(*ap) == lowerit(*bp++))
  24218. +        if (*ap++ == '\0')
  24219. +            return TRUE;
  24220. +    return FALSE;
  24221. +}
  24222. +
  24223. +static int
  24224. +itsabbr(abbr, word)
  24225. +register const char *    abbr;
  24226. +register const char *    word;
  24227. +{
  24228. +    if (lowerit(*abbr) != lowerit(*word))
  24229. +        return FALSE;
  24230. +    ++word;
  24231. +    while (*++abbr != '\0')
  24232. +        do if (*word == '\0')
  24233. +            return FALSE;
  24234. +                while (lowerit(*word++) != lowerit(*abbr));
  24235. +    return TRUE;
  24236. +}
  24237. +
  24238. +static const struct lookup *
  24239. +byword(word, table)
  24240. +register const char * const        word;
  24241. +register const struct lookup * const    table;
  24242. +{
  24243. +    register const struct lookup *    foundlp;
  24244. +    register const struct lookup *    lp;
  24245. +
  24246. +    if (word == NULL || table == NULL)
  24247. +        return NULL;
  24248. +    /*
  24249. +    ** Look for exact match.
  24250. +    */
  24251. +    for (lp = table; lp->l_word != NULL; ++lp)
  24252. +        if (ciequal(word, lp->l_word))
  24253. +            return lp;
  24254. +    /*
  24255. +    ** Look for inexact match.
  24256. +    */
  24257. +    foundlp = NULL;
  24258. +    for (lp = table; lp->l_word != NULL; ++lp)
  24259. +        if (itsabbr(word, lp->l_word))
  24260. +            if (foundlp == NULL)
  24261. +                foundlp = lp;
  24262. +            else    return NULL;    /* multiple inexact matches */
  24263. +    return foundlp;
  24264. +}
  24265. +
  24266. +static char **
  24267. +getfields(cp)
  24268. +register char *    cp;
  24269. +{
  24270. +    register char *        dp;
  24271. +    register char **    array;
  24272. +    register int        nsubs;
  24273. +
  24274. +    if (cp == NULL)
  24275. +        return NULL;
  24276. +    array = (char **) emalloc((int) ((strlen(cp) + 1) * sizeof *array));
  24277. +    nsubs = 0;
  24278. +    for ( ; ; ) {
  24279. +        while (isascii(*cp) && isspace(*cp))
  24280. +            ++cp;
  24281. +        if (*cp == '\0' || *cp == '#')
  24282. +            break;
  24283. +        array[nsubs++] = dp = cp;
  24284. +        do {
  24285. +            if ((*dp = *cp++) != '"')
  24286. +                ++dp;
  24287. +            else while ((*dp = *cp++) != '"')
  24288. +                if (*dp != '\0')
  24289. +                    ++dp;
  24290. +                else    error("Odd number of quotation marks");
  24291. +        } while (*cp != '\0' && *cp != '#' &&
  24292. +            (!isascii(*cp) || !isspace(*cp)));
  24293. +        if (isascii(*cp) && isspace(*cp))
  24294. +            ++cp;
  24295. +        *dp = '\0';
  24296. +    }
  24297. +    array[nsubs] = NULL;
  24298. +    return array;
  24299. +}
  24300. +
  24301. +static long
  24302. +oadd(t1, t2)
  24303. +const long    t1;
  24304. +const long    t2;
  24305. +{
  24306. +    register long    t;
  24307. +
  24308. +    t = t1 + t2;
  24309. +    if (t2 > 0 && t <= t1 || t2 < 0 && t >= t1) {
  24310. +        error("time overflow");
  24311. +        (void) exit(EXIT_FAILURE);
  24312. +    }
  24313. +    return t;
  24314. +}
  24315. +
  24316. +static time_t
  24317. +tadd(t1, t2)
  24318. +const time_t    t1;
  24319. +const long    t2;
  24320. +{
  24321. +    register time_t    t;
  24322. +
  24323. +    if (t1 == max_time && t2 > 0)
  24324. +        return max_time;
  24325. +    if (t1 == min_time && t2 < 0)
  24326. +        return min_time;
  24327. +    t = t1 + t2;
  24328. +    if (t2 > 0 && t <= t1 || t2 < 0 && t >= t1) {
  24329. +        error("time overflow");
  24330. +        (void) exit(EXIT_FAILURE);
  24331. +    }
  24332. +    return t;
  24333. +}
  24334. +
  24335. +/*
  24336. +** Given a rule, and a year, compute the date - in seconds since January 1,
  24337. +** 1970, 00:00 LOCAL time - in that year that the rule refers to.
  24338. +*/
  24339. +
  24340. +static time_t
  24341. +rpytime(rp, wantedy)
  24342. +register const struct rule * const    rp;
  24343. +register const int            wantedy;
  24344. +{
  24345. +    register int    y, m, i;
  24346. +    register long    dayoff;            /* with a nod to Margaret O. */
  24347. +    register time_t    t;
  24348. +
  24349. +    dayoff = 0;
  24350. +    m = TM_JANUARY;
  24351. +    y = EPOCH_YEAR;
  24352. +    while (wantedy != y) {
  24353. +        if (wantedy > y) {
  24354. +            i = len_years[isleap(y)];
  24355. +            ++y;
  24356. +        } else {
  24357. +            --y;
  24358. +            i = -len_years[isleap(y)];
  24359. +        }
  24360. +        dayoff = oadd(dayoff, eitol(i));
  24361. +    }
  24362. +    while (m != rp->r_month) {
  24363. +        i = len_months[isleap(y)][m];
  24364. +        dayoff = oadd(dayoff, eitol(i));
  24365. +        ++m;
  24366. +    }
  24367. +    i = rp->r_dayofmonth;
  24368. +    if (m == TM_FEBRUARY && i == 29 && !isleap(y)) {
  24369. +        if (rp->r_dycode == DC_DOWLEQ)
  24370. +            --i;
  24371. +        else {
  24372. +            error("use of 2/29 in non leap-year");
  24373. +            (void) exit(EXIT_FAILURE);
  24374. +        }
  24375. +    }
  24376. +    --i;
  24377. +    dayoff = oadd(dayoff, eitol(i));
  24378. +    if (rp->r_dycode == DC_DOWGEQ || rp->r_dycode == DC_DOWLEQ) {
  24379. +        register long    wday;
  24380. +
  24381. +#define LDAYSPERWEEK    ((long) DAYSPERWEEK)
  24382. +        wday = eitol(EPOCH_WDAY);
  24383. +        /*
  24384. +        ** Don't trust mod of negative numbers.
  24385. +        */
  24386. +        if (dayoff >= 0)
  24387. +            wday = (wday + dayoff) % LDAYSPERWEEK;
  24388. +        else {
  24389. +            wday -= ((-dayoff) % LDAYSPERWEEK);
  24390. +            if (wday < 0)
  24391. +                wday += LDAYSPERWEEK;
  24392. +        }
  24393. +        while (wday != eitol(rp->r_wday))
  24394. +            if (rp->r_dycode == DC_DOWGEQ) {
  24395. +                dayoff = oadd(dayoff, (long) 1);
  24396. +                if (++wday >= LDAYSPERWEEK)
  24397. +                    wday = 0;
  24398. +                ++i;
  24399. +            } else {
  24400. +                dayoff = oadd(dayoff, (long) -1);
  24401. +                if (--wday < 0)
  24402. +                    wday = LDAYSPERWEEK;
  24403. +                --i;
  24404. +            }
  24405. +        if (i < 0 || i >= len_months[isleap(y)][m]) {
  24406. +            error("no day in month matches rule");
  24407. +            (void) exit(EXIT_FAILURE);
  24408. +        }
  24409. +    }
  24410. +    if (dayoff < 0 && !tt_signed) {
  24411. +        if (wantedy == rp->r_loyear)
  24412. +            return min_time;
  24413. +        error("time before zero");
  24414. +        (void) exit(EXIT_FAILURE);
  24415. +    }
  24416. +    t = (time_t) dayoff * SECSPERDAY;
  24417. +    /*
  24418. +    ** Cheap overflow check.
  24419. +    */
  24420. +    if (t / SECSPERDAY != dayoff) {
  24421. +        if (wantedy == rp->r_hiyear)
  24422. +            return max_time;
  24423. +        if (wantedy == rp->r_loyear)
  24424. +            return min_time;
  24425. +        error("time overflow");
  24426. +        (void) exit(EXIT_FAILURE);
  24427. +    }
  24428. +    return tadd(t, rp->r_tod);
  24429. +}
  24430. +
  24431. +static void
  24432. +newabbr(string)
  24433. +const char * const    string;
  24434. +{
  24435. +    register int    i;
  24436. +
  24437. +    i = strlen(string) + 1;
  24438. +    if (charcnt + i >= TZ_MAX_CHARS) {
  24439. +        error("too many, or too long, time zone abbreviations");
  24440. +        (void) exit(EXIT_FAILURE);
  24441. +    }
  24442. +    (void) strcpy(&chars[charcnt], string);
  24443. +    charcnt += eitol(i);
  24444. +}
  24445. +
  24446. +static int
  24447. +mkdirs(name)
  24448. +char * const    name;
  24449. +{
  24450. +    register char *    cp;
  24451. +
  24452. +    if ((cp = name) == NULL || *cp == '\0')
  24453. +        return 0;
  24454. +    while ((cp = strchr(cp + 1, '/')) != 0) {
  24455. +        *cp = '\0';
  24456. +        if (!itsdir(name)) {
  24457. +            /*
  24458. +            ** It doesn't seem to exist, so we try to create it.
  24459. +            */
  24460. +            if (mkdir(name, 0755) != 0) {
  24461. +                (void) fprintf(stderr,
  24462. +                    "%s: Can't create directory ",
  24463. +                    progname);
  24464. +                (void) perror(name);
  24465. +                return -1;
  24466. +            }
  24467. +        }
  24468. +        *cp = '/';
  24469. +    }
  24470. +    return 0;
  24471. +}
  24472. +
  24473. +static long
  24474. +eitol(i)
  24475. +const int    i;
  24476. +{
  24477. +    long    l;
  24478. +
  24479. +    l = i;
  24480. +    if (i < 0 && l >= 0 || i == 0 && l != 0 || i > 0 && l <= 0) {
  24481. +        (void) fprintf(stderr, "%s: %d did not sign extend correctly\n",
  24482. +            progname, i);
  24483. +        (void) exit(EXIT_FAILURE);
  24484. +    }
  24485. +    return l;
  24486. +}
  24487. +
  24488. +/*
  24489. +** UNIX is a registered trademark of AT&T.
  24490. +*/
  24491. diff -rup --new-file baseline/fsf/emacs18/amiga/unix/unix.doc amiga/fsf/emacs18/amiga/unix/unix.doc
  24492. --- baseline/fsf/emacs18/amiga/unix/unix.doc    Wed Dec 31 17:00:00 1969
  24493. +++ amiga/fsf/emacs18/amiga/unix/unix.doc    Sat Sep 28 00:00:00 1996
  24494. @@ -0,0 +1,452 @@
  24495. +Unix compatibility library for SAS C 6.x version 1.2
  24496. +----------------------------------------------------
  24497. +
  24498. +Introduction
  24499. +------------
  24500. +
  24501. +This library provides 80 odd functions which are useful for porting
  24502. +Unix programs to the Amiga running AmigaOS 2.04 or higher. It is thus
  24503. +similar to Markus Wild's ixemul.library, but has more restricted aims:
  24504. +
  24505. +a) It is written specifically for SAS C 6.1, 6.2, ...
  24506. +
  24507. +b) It isn't a complete C library, it requires the SAS C library to function.
  24508. +It adds some routines, and replaces others that were deficient, out of date,
  24509. +or that didn't provide adequate functionality.
  24510. +
  24511. +c) It isn't a complete Unix emulation library, it only contains those functions
  24512. +that I needed while porting various utilities (mainly from GNU) to the Amiga.
  24513. +
  24514. +d) It is a traditional C link library, not an Amiga library. This produces 
  24515. +bigger executables.
  24516. +
  24517. +Considering the above points, you might ask why I wrote it ... There are several
  24518. +good answers:
  24519. +
  24520. +a) I started it before I was aware of ixemul.library.
  24521. +
  24522. +b) ixemul.library didn't provide the features I needed for Emacs (support for
  24523. +select).
  24524. +
  24525. +c) It is easier for me to maintain when I find I need to support another Unix
  24526. +feature (eg deleting open files).
  24527. +
  24528. +Copying
  24529. +-------
  24530. +
  24531. +The library includes code that I have written, which I place in the public domain.
  24532. +This is found in all the files that don't have a Copyright notice.
  24533. +
  24534. +It also includes code which is (inclusive of my modifications)
  24535. +
  24536. + Copyright (c) 1982, 1986, 1991 The Regents of the University of California.
  24537. + All rights reserved.
  24538. +
  24539. +This code is freely redistributable (see the copyright notices in the source
  24540. +and include files).
  24541. +
  24542. +Finally it includes Doug Gwyn's public domain alloca implementation.
  24543. +
  24544. +Installation & Use
  24545. +------------------
  24546. +
  24547. +To use this library, you must compile with the include directory in your include
  24548. +search path, and link with the unix.lib library (which must be specified before
  24549. +lc.lib). For example, if you extract this archive in a directory called src:, you
  24550. +could compile the following program:
  24551. +
  24552. +echo.c:
  24553. +
  24554. +#include <sys/unistd.h>
  24555. +
  24556. +void main(int argc, char **argv)
  24557. +{
  24558. +  int i;
  24559. +
  24560. +  for (i = 1; i < argc; i++)
  24561. +    {
  24562. +      if (i != 1) write(1, " ", 1);
  24563. +      write(1, argv[i], strlen(argv[i]));
  24564. +    }
  24565. +  write(1, "\n", 1);
  24566. +}
  24567. +
  24568. +with the command
  24569. +
  24570. +  sc idir src:unix/include/ lib src:unix/src/unix.lib link echo.c
  24571. +
  24572. +to produce a simple unix-like echo command.
  24573. +
  24574. +You should define the following environment variables:
  24575. +
  24576. +USER - A user name for the sole Amiga user (default "user").
  24577. +USERNAME - The full name of the sole Amiga user (default $USER).
  24578. +HOME - A "home" directory (default "s:") for programs that want one. Configuration
  24579. +       files will probably end up here ...
  24580. +SHELL - A program which behaves reasonably like a Unix shell (default "bin:sh").
  24581. +    You should copy the sh executable there if you don't have a Unix-like shell.
  24582. +HOSTNAME - The name of your machine (default "amiga").
  24583. +
  24584. +If you are going to be using pipes, you will require Matt Dillon's fifo.library
  24585. +and fifo: device. This can be found on the Fish disks, with his UUCP distribution
  24586. +and on many FTP sites.
  24587. +
  24588. +If you want to install the timezone information (see the discussion below on
  24589. +Unix vs Amiga time), do the following:
  24590. +
  24591. +  a) change to the zoneinfo directory
  24592. +  b) compile the zic problem by running lmk.
  24593. +  c) change to the datfiles directory.
  24594. +  d) edit lmkfile and choose your timezone (you can look at the data files
  24595. +     to see the ones available). If you get this wrong, you can always change
  24596. +     it later with the zic program.
  24597. +  e) type 'lmk install'. This will compile the timezones, and setup the one
  24598. +     you chose as the default. The default can be changed with
  24599. +       zic -l <timezone name>
  24600. +
  24601. +     or by defining the environment variable TZ.
  24602. +
  24603. +Functionality
  24604. +-------------
  24605. +
  24606. +While this library aims to hide the differences between AmigaOS & Unix, 
  24607. +it also aims to provide support for Amiga specific features. This sometimes
  24608. +produces strange compromises.
  24609. +
  24610. +This library provides two things to programs linked with it:
  24611. +
  24612. +a) A Unix-like environment:
  24613. +
  24614. +This includes:
  24615. +
  24616. +- Unix-like command line parsing, with wildcard expansion. These
  24617. +wildcards are however specified with the Amiga syntax. 
  24618. +
  24619. +Arguments which are unquoted or surround with single quotes are
  24620. +handled like Unix shells. Those surrounded with double quotes are
  24621. +handled in the Amiga fashion, but with wildcard expansion (this is
  24622. +done to avoid problems with the way the exec function works).
  24623. +
  24624. +Here is a summary of argument splitting:
  24625. +
  24626. +Arguments can be enclosed in single quotes, (') double quotes ("), or 
  24627. +separated by spaces.
  24628. +
  24629. +Arguments enclosed by single quotes never suffer wildcard expansion, and
  24630. +no character is significant inside them (not even \). Given the echo program
  24631. +given above,
  24632. +
  24633. +  echo 'f*un\'
  24634. +
  24635. +simply displays
  24636. +
  24637. +  f*un\
  24638. +
  24639. +Within double quotes, * is the standard Amiga escape character. \ is
  24640. +handled just like any other character. Wildcards are expanded. So,
  24641. +assuming the current directory contains only echo.c and echo,
  24642. +
  24643. +  echo "#?.c" "*.c" "\mad"
  24644. +
  24645. +displays
  24646. +
  24647. +  echo.c .c \mad
  24648. +
  24649. +(* escapes the following character, except that *N is newline and *E is 
  24650. +escape. Wildcard characters still behave as usual (' is the standard
  24651. +Amiga wildcard escape character)).
  24652. +
  24653. +If an argument is unquoted, \ acts as an escape character (removing
  24654. +special significance from the next character, be it a wildcard, a space, 
  24655. +a \, ...). So
  24656. +
  24657. +  echo \*.c \\ \n
  24658. +
  24659. +displays
  24660. +
  24661. +  *.c \ n
  24662. +
  24663. +- When a program is run from the Workbench, stdin, stdout & stderr are opened 
  24664. +on NIL:, and the icons selected are converted to file names and passed as the
  24665. +argc,argv to main.
  24666. +
  24667. +- The standard variable environ is defined and contains all the local environment
  24668. +variables. This is passed as the envp parameter to main.
  24669. +
  24670. +- The program is led to believe that all files belong to $USER (uid 1), group
  24671. +wheel (gid 0).
  24672. +
  24673. +- Amiga protection flags are mapped onto the standard 12 Unix protection bits
  24674. +(and back when necessary). This can be overridden (dynamically) by changing the
  24675. +value of use_amiga_flags. Eg:
  24676. +
  24677. +  extern int use_amiga_flags;
  24678. +
  24679. +  ...
  24680. +
  24681. +
  24682. +  main()
  24683. +  {
  24684. +    use_amiga_flags = 1;
  24685. +
  24686. +    ... some code using stat or chmod or ...
  24687. +  }
  24688. +
  24689. +In this case, the Amiga protection bits are left untouched. Otherwise the
  24690. +mapping is as follows (note that the archive bit is lost):
  24691. +
  24692. +Unix -> Amiga
  24693. +
  24694. +Amiga read: if user, group or world read.
  24695. +Amiga write: if user or group write.
  24696. +Amiga delete: if user or world write.
  24697. +Amiga execute: if group execute or only user execute.
  24698. +Amiga script: if world execute or only user execute.
  24699. +Amiga pure: if sticky.
  24700. +
  24701. +Amiga -> Unix
  24702. +
  24703. +user, group, world read: if amiga read.
  24704. +user write: if amiga write and delete.
  24705. +group write: if amiga write.
  24706. +world write: if amiga delete.
  24707. +user execute: if amiga execute or amiga script.
  24708. +group execute: if amiga execute.
  24709. +world execute: if amiga script.
  24710. +sticky: if amiga pure.
  24711. +
  24712. +- Unix-like time. time is expressed in seconds since 1-Jan-1970 00:00 GMT. 
  24713. +This is the format used by the time(), stat() and utime() functions. The
  24714. +library uses the BSD time functions which properly handle timezones, 
  24715. +daylight savings time, etc. 
  24716. +
  24717. +On Unix systems, time is generally stored as GMT, while the Amiga stores
  24718. +local time. These times are visible in two places: the time stored in the
  24719. +system clock and the creation, modification or access dates for files (only
  24720. +the modification date is available on the Amiga). There are 3 ways to resolve
  24721. +this conflict:
  24722. +
  24723. +1) Ignore timezones (you can choose this option by not installing the
  24724. +timezone information). The library will then assume that system time
  24725. +and file times are expressed in GMT and will never apply any
  24726. +corrections. All will work well (except maybe on a global network).
  24727. +This is the simplest solution.
  24728. +
  24729. +2) System & file time are assumed to be local times. The time() & stat()
  24730. +functions convert local time to GMT, the utime() call converts GMT to
  24731. +local time. This allows you to keep the system clock on local time, which
  24732. +is compatible with most (all?) Amiga applications. However, nearly every
  24733. +program will be bigger because they will need the timezone information and
  24734. +timezone conversion code (approximately 7k). The library can be recompiled
  24735. +if you prefer to have things this way by adding -dUSE_LOCAL to the CFLAGS
  24736. +variable in lmkfile.
  24737. +
  24738. +3) System & file time are stored in GMT. Times are converted to local time
  24739. +only when they are displayed to the user, who must of course choose the 
  24740. +correct timezone. This entails changing your system clock to GMT, which means
  24741. +that most programs will display an incorrect time. However, you won't have
  24742. +to change your system clock when daylight savings time ends ... The library
  24743. +comes compiled this way (But you can still choose option 1, no timezone
  24744. +information, and avoid the potential confusion).
  24745. +
  24746. +- BSD-like signals. Signal handlers stay enabled after a signal occurs
  24747. +(that particular signal is simply masked for the duration of the handler).
  24748. +setjmp & longjmp preserve the signal mask (the functions _setjmp & _longjmp
  24749. +don't). You may receive any signal with kill(getpid(), sig). Otherwise only
  24750. +the following occur:
  24751. +
  24752. +  SIGINT: user typed ctrl-c
  24753. +  SIGQUIT: user typed ctrl-d
  24754. +  SIGALRM: alarm() expired
  24755. +  SIGCHLD: a child process died
  24756. +
  24757. +When using kill to signal another process, only SIGHUP, SIGINT, SIGQUIT & 
  24758. +SIGKILL do anything. They all send SIGBREAKF_CTRL_C | D to the process (and
  24759. +hopefully its children). See the discussion under the exec function.
  24760. +
  24761. +
  24762. +b) A large number of unix C library calls:
  24763. +
  24764. +_exit, _setjmp, _longjmp, abort, access, alloca, gettimeofday, ftime, 
  24765. +bcmp, bcopy, bzero, chmod, chown, fchown, close, creat, tzset, tzsetwall,
  24766. +localtime, gmtime, asctime, ctime, mktime, opendir, closedir, readdir, 
  24767. +telldir, seekdir, fchmod, fcntl, fstat, ftruncate, getenv, gethostname,
  24768. +getpid, getwd, getgid, getegid, getgrgid, getgrnam, index, ioctl, isatty,
  24769. +kill, link, lseek, mkdir, mkfifo, mknod, mktemp, open, perror, pipe, sktpair, 
  24770. +getpwuid, getpwnam, getlogin, read, rename, rindex, rmdir, select, setjmp, 
  24771. +longjmp, signal, sigpause, sigsetmask, sleep, stat, strftime, time, truncate,
  24772. +getuid, geteuid, umask, unlink, utime, wait, waitpid, wait3, wait4, write,
  24773. +readlink, symlink, popen, pclose.
  24774. +
  24775. +These functions aim to be BSD compatible, however I based myself on descriptions
  24776. +in the SunOS 4 man pages. Their behaviour is sometimes strange or incomplete.
  24777. +
  24778. +Here is a summary of the differences with the standard Unix functions:
  24779. +
  24780. +alloca - This is Doug Gwyn's portable alloca. Memory allocated is freed
  24781. +later than with a true alloca.
  24782. +
  24783. +gettimeofday - The dst field of the timezone is a (not very good) guess. It
  24784. +shouldn't be used anyway.
  24785. +
  24786. +chown, fchown - These are do-nothing routines.
  24787. +
  24788. +opendir, closedir, ... - These interact with stat to avoid having to read
  24789. +each directory entry twice when doing a readdir + stat loop.
  24790. +
  24791. +fchmod - The protection is only set when the file is closed. See also the
  24792. +discussion of protection modes above.
  24793. +
  24794. +fcntl - Only the F_GETFL & F_SETFL operations are supported.
  24795. +
  24796. +truncate, ftruncate - These will not necessarily work with all filing systems.
  24797. +See the discussion of the AmigaOS SetFileSize function.
  24798. +
  24799. +getenv - This checks local environment variables and then global ones. It 
  24800. +allocates memory for the variables value each time. This memory is never freed
  24801. +(till the program exits).
  24802. +
  24803. +gethostname - This is obtained from the HOSTNAME environment variable at startup.
  24804. +
  24805. +getuid, geteuid, getgid, getegid, getpwuid, getpwnam, getgrgid, getgrnam, getlogin -
  24806. +These function only know about one user. He/She is:
  24807. +
  24808. +  name: $USER (default "user")
  24809. +  home directory: $HOME (default "s:")
  24810. +  shell: $SHELL (default "bin:sh")
  24811. +  uid: 1, gid: 0
  24812. +
  24813. +ioctl - Only FIONBIO & TIOCGWINSZ are known, plus a number of amiga specific
  24814. +ioctls (for internal use). These are documented in include/amiga/ioctl.h.
  24815. +
  24816. +lseek - Seeks beyond the end of a file are not implemented.
  24817. +
  24818. +mkfifo, mknod - These are 'do-nothing' routines.
  24819. +
  24820. +pipe - This uses Matt Dillon's fifo.library and fifo: device. It works well
  24821. +for interactive use, but not for transfering large quantities of data.
  24822. +
  24823. +select - This implementation only works with pipes & sktpairs, and cannot
  24824. +detect 'exceptional' conditions.
  24825. +
  24826. +sigvec - The flags are not recognized.
  24827. +
  24828. +symlink - Symbolic links on the Amiga are far too buggy and should not be used.
  24829. +By default, as compiled, this routine always returns an error. However readlink
  24830. +does work, so you can read existing symbolic links.
  24831. +
  24832. +umask - This is a 'do-nothing' routine.
  24833. +
  24834. +unlink - You can unlink a file that your program has opened before you close
  24835. +it. At that point, the AmigaOS file is closed & deleted, though it still
  24836. +appears open to read (it returns EOF), write, close, etc. Also you can unlink
  24837. +a file even if it is protected from deletion (the protection mode is changed
  24838. +first ...).
  24839. +
  24840. +utime - Only the modification time can be changed (the others don't exist).
  24841. +
  24842. +wait3, wait4 - Resource usage is never returned.
  24843. +
  24844. +exec
  24845. +----
  24846. +
  24847. +vfork() and execxx() are very tricky to implement. So I took the easy
  24848. +(but see below) way out, providing a function, eexec, that create a
  24849. +new process given argc, argv.  This functions returns a pid which can
  24850. +be used with wait, waitpid, ... as usual. Also exiting processes
  24851. +generate the SIGCHLD signal. With this, it is generally fairly easy to
  24852. +replace the process creation parts of most Unix programs.
  24853. +
  24854. +First, here is a description of the problems which arise:
  24855. +
  24856. +Executing an external program is tricky with AmigaOS. The various system
  24857. +routines (CreateNewProc, SystemTags, Execute) allow some operations to be
  24858. +done easily, but make others difficult. Specifically, if you want to do all
  24859. +of the following:
  24860. +
  24861. +- Execute a program given argc, argv (like with unix)
  24862. +- Specify arbitrary input, output and error streams, including inheriting
  24863. +the current ones.
  24864. +- Have some of these streams be pipes of which you keep one end.
  24865. +- Have some of these pipes appear to be interactive (this is used for example
  24866. +by programs running inside emacs).
  24867. +- Detect when the execute program exits, and get its return code.
  24868. +- Send signals (eg ctrl-c) to the created process, and preferably its children.
  24869. +
  24870. +you are in deep trouble. A minimum of 10 attempts is needed to get
  24871. +something which works most of the time, ie the eexec function.
  24872. +
  24873. +The problems are:
  24874. +- You have to make a command line from argc, argv. But these arguments may
  24875. +contain spaces, so they must be surrounded by double quotes. And then, '*'
  24876. +must be escaped as it is the escape character. And so on.
  24877. +- Only recently has an error stream appeared in AmigaOS. And it doesn't
  24878. +inherit very well (Indeed, specifying the error stream doesn't work in the
  24879. +current version).
  24880. +- Amiga programs generally expect interactive files to be console windows.
  24881. +And fifo: is the only interactive pipe I'm aware of. So the pipe: system
  24882. +call uses fifo: and fifo.library.
  24883. +- To get the return code of an application, you must use the synchronous
  24884. +version of SystemTags. Otherwise it is lost. But you want an asynchronous
  24885. +process facility. So I create 2 processes, the first one is created with
  24886. +CreateNewProc and executes a custom piece of code. This code launches
  24887. +the real program with SystemTags, and sends a message with the return code
  24888. +to its parent (if it is still around).
  24889. +- You can't find the children of a process. So the signal is sent to all
  24890. +the processes that share the input filehandle of the created process. This
  24891. +is the best solution that I found.
  24892. +- AmigaOS isn't Unix.
  24893. +
  24894. +Therefore, the eexec function is far from perfect. It works as follows:
  24895. +
  24896. +eexec(program, argv, input, output, error, directory, stacksize)
  24897. +
  24898. +  program: the path of the executable file. Your path is searched.
  24899. +  argv: A null terminated array of arguments. The first (argv[0]) is ignored.
  24900. +  input: A unix filehandle on the desired input. -1 means copy Input().
  24901. +  output: A unix filehandle on the desired output. -1 means copy Output().
  24902. +  error: A unix filehandle on the desired error stream. -1 means copy the pr_CES
  24903. +     field of the current process, -2 means copy the value specified for output.
  24904. +         Currently, this parameter has no effect.
  24905. +  directory: pathname for the current directory for the created process, or NULL
  24906. +         to inheir the current processes'.
  24907. +  stacksize: stack size for the created process. 0 means the same size as the 
  24908. +         current stack.
  24909. +  
  24910. +_start_process is a lower level interface:
  24911. +
  24912. +_start_process(command, input, close_input, output, close_output,
  24913. +           error, close_error, dir, stacksize)
  24914. +  command: the string to pass to SystemTags (it will be passed to
  24915. +    the UserShell, not the system default).
  24916. +  input, output, error, close_xxx: AmigaOS filehandles for use as the
  24917. +    appropriate stream. If close_x is true, the corresponding stream will be
  24918. +    closed when the process exits.
  24919. +  dir: Lock on the desired directory for the new process.
  24920. +  stacksize: as above.
  24921. +
  24922. +
  24923. +Recompiling
  24924. +-----------
  24925. +
  24926. +To recompile, simply run lmk in the src directory. You can add the -dUSE_LOCAL
  24927. +flag to CFLAGS in lmkfile if you want the system clock to store local time 
  24928. +instead of GMT.
  24929. +
  24930. +If you want symlink to work, add -dSOFTLINK to CFLAGS (For example, tar uses
  24931. +a version of unix.lib compiled like this).
  24932. +
  24933. +If you add modules, you can use the mkmkf to remake the makefile dependencies
  24934. +(it generates lmkfile from lmkfile.base and the dependencies for all the .c
  24935. +files in the current directory). This program requires perl (available from
  24936. +ftp sites).
  24937. +
  24938. +
  24939. +Changes from 1.0 to 1.1
  24940. +-----------------------
  24941. +stat() now returns a value for st_dev.
  24942. +exec() extended by eexec, assembly part rewritten in C.
  24943. +symbolic links recognized. Their use is not recommended (too buggy).
  24944. +sigvec added.
  24945. +popen, pclose added.
  24946. +Documentation discusses exec.
  24947. diff -rup --new-file baseline/fsf/emacs18/cpp/SCOPTIONS amiga/fsf/emacs18/cpp/SCOPTIONS
  24948. --- baseline/fsf/emacs18/cpp/SCOPTIONS    Wed Dec 31 17:00:00 1969
  24949. +++ amiga/fsf/emacs18/cpp/SCOPTIONS    Sat Sep 28 00:00:00 1996
  24950. @@ -0,0 +1,7 @@
  24951. +IGNORE=161
  24952. +IGNORE=154
  24953. +IGNORE=100
  24954. +IGNORE=181
  24955. +IGNORE=84
  24956. +IGNORE=93
  24957. +IGNORE=72
  24958. \ No newline at end of file
  24959. diff -rup --new-file baseline/fsf/emacs18/cpp/cccp.c amiga/fsf/emacs18/cpp/cccp.c
  24960. --- baseline/fsf/emacs18/cpp/cccp.c    Fri Sep 28 13:17:57 1990
  24961. +++ amiga/fsf/emacs18/cpp/cccp.c    Sat Sep 28 00:00:00 1996
  24962. @@ -97,7 +97,17 @@ typedef unsigned char U_CHAR;
  24963.  
  24964.  #ifdef EMACS
  24965.  #define NO_SHORTNAMES
  24966. +#ifdef AMIGA
  24967. +#include "/src/config.h"
  24968. +#undef fflush
  24969. +#undef fwrite
  24970. +#undef main
  24971. +#undef putchar
  24972. +#undef AMIGA_DUMP
  24973. +#include <string.h>
  24974. +#else
  24975.  #include "../src/config.h"
  24976. +#endif
  24977.  #ifdef static
  24978.  #undef static
  24979.  #endif
  24980. @@ -115,7 +125,11 @@ typedef unsigned char U_CHAR;
  24981.  #include <ctype.h>
  24982.  #include <stdio.h>
  24983.  #ifndef USG
  24984. +#ifdef AMIGA
  24985. +#include <time.h>
  24986. +#else
  24987.  #include <sys/time.h>        /* for __DATE__ and __TIME__ */
  24988. +#endif
  24989.  #else
  24990.  #define index strchr
  24991.  #define rindex strrchr
  24992. @@ -123,8 +137,10 @@ typedef unsigned char U_CHAR;
  24993.  #include <fcntl.h>
  24994.  #endif /* USG */
  24995.  
  24996. +#ifndef AMIGA
  24997.  void bcopy (), bzero ();
  24998.  int bcmp ();
  24999. +#endif
  25000.  
  25001.  char *xmalloc (), *xrealloc (), *xcalloc ();
  25002.  void fatal (), pfatal_with_name (), perror_with_name ();
  25003. @@ -142,15 +158,29 @@ struct directory_stack
  25004.  /* #include "file" starts with the first entry in the stack */
  25005.  /* #include <file> starts with the second. */
  25006.  /* -I directories are added after the first */
  25007. +#ifdef AMIGA
  25008. +struct directory_stack default_includes[2] =
  25009. +  {
  25010. +    { &default_includes[1], "" },
  25011. +    { 0, "include:" }
  25012. +  };
  25013. +#else
  25014.  struct directory_stack default_includes[2] =
  25015.    {
  25016.      { &default_includes[1], "." },
  25017.      { 0, "/usr/include" }
  25018.    };
  25019. +#endif
  25020. +
  25021.  struct directory_stack *include = &default_includes[0];
  25022.  
  25023. +#ifdef AMIGA
  25024.  int max_include_len = 14;    /* strlen (default_include) + 2
  25025.                              (for / and null) */
  25026. +#else
  25027. +int max_include_len = 9;    /* strlen (default_include) + 1
  25028. +                            (for null) */
  25029. +#endif
  25030.  
  25031.  char STDIN_FILE[] = "";        /* Empty, like real cpp */
  25032.  int put_out_comments = 0;    /* JF non-zero means leave comments in the
  25033. @@ -379,7 +409,6 @@ main (argc, argv)
  25034.      dirtmp->next = include->next;
  25035.      include->next = dirtmp;
  25036.      dirtmp->fname = argv[i]+2;
  25037. -    include = dirtmp;
  25038.      if (strlen (argv[i]) > max_include_len)
  25039.        max_include_len = strlen (argv[i]);
  25040.      break;
  25041. @@ -405,11 +434,11 @@ main (argc, argv)
  25042.    else if ((f = open (in_fname, O_RDONLY)) < 0)
  25043.      goto perror;
  25044.  
  25045. -  fstat (f, &sbuf);
  25046. +  if (f) fstat (f, &sbuf);
  25047.    fp->fname = in_fname;
  25048.    fp->lineno = 1;
  25049.    /* JF all this is mine about reading pipes and ttys */
  25050. -  if ((sbuf.st_mode & S_IFMT) != S_IFREG) {
  25051. +  if (!f || (sbuf.st_mode & S_IFMT) != S_IFREG) {
  25052.      int size;
  25053.      int bsize;
  25054.      int cnt;
  25055. @@ -478,11 +507,11 @@ rescan (ip, op)
  25056.    struct keyword_table *handle_directive ();
  25057.    int excess_newlines = 0;
  25058.    int escaped = 0;
  25059. -  
  25060. +
  25061.    U_CHAR *bp;
  25062. -  
  25063. +
  25064.    check_expand(op, ip->length);
  25065. -  
  25066. +
  25067.    ip->bufp = ip->buf;
  25068.    limit = ip->buf + ip->length;
  25069.    while (1) {
  25070. @@ -615,25 +644,25 @@ rescan (ip, op)
  25071.          *op->bufp++ = '/';
  25072.        ip->bufp = bp + 1;
  25073.        break;
  25074. -      
  25075. +
  25076.      case '0': case '1': case '2': case '3': case '4':
  25077.      case '5': case '6': case '7': case '8': case '9':
  25078.        /* if digit is not part of identifier, it is random */
  25079.        if (ident_length == 0)
  25080.      goto randomchar;
  25081.        /* fall through */
  25082. -      
  25083. +
  25084.      case '_':
  25085.      case 'a': case 'b': case 'c': case 'd': case 'e': case 'f':
  25086.      case 'g': case 'h': case 'i': case 'j': case 'k': case 'l':
  25087.      case 'm': case 'n': case 'o': case 'p': case 'q': case 'r':
  25088.      case 's': case 't': case 'u': case 'v': case 'w': case 'x':
  25089. -    case 'y': case 'z': 
  25090. +    case 'y': case 'z':
  25091.      case 'A': case 'B': case 'C': case 'D': case 'E': case 'F':
  25092.      case 'G': case 'H': case 'I': case 'J': case 'K': case 'L':
  25093.      case 'M': case 'N': case 'O': case 'P': case 'Q': case 'R':
  25094.      case 'S': case 'T': case 'U': case 'V': case 'W': case 'X':
  25095. -    case 'Y': case 'Z': 
  25096. +    case 'Y': case 'Z':
  25097.        ident_length++;
  25098.        /* compute step of hash function, to avoid a proc call on every token */
  25099.        hash = HASHSTEP(hash, c);
  25100. @@ -646,31 +675,31 @@ randomchar:
  25101.      for (hp = hashtab[MAKE_POS(hash) % HASHSIZE]; hp != NULL;
  25102.           hp = hp->next) {
  25103.            U_CHAR *save_ibufp;    /* kludge, see below */
  25104. -          
  25105. +
  25106.            if (hp->length == ident_length) {
  25107.          register int i = ident_length;
  25108.          register U_CHAR *p = hp->name;
  25109.          register U_CHAR *q = op->bufp - i;
  25110.  
  25111. -        if (c != (U_CHAR) -1)
  25112. +        if (c != -1)
  25113.            q--;
  25114.  
  25115.          do {        /* all this to avoid a strncmp() */
  25116.            if (*p++ != *q++)
  25117.          goto hashcollision;
  25118.          } while (--i);
  25119. -     
  25120. +
  25121.          save_ibufp = ip->bufp;
  25122.          /* back up over identifier, then expand token */
  25123.          op->bufp -= ident_length;
  25124. -        if (c != (U_CHAR) -1) op->bufp--;
  25125. +        if (c != -1) op->bufp--;
  25126.          macroexpand (hp, ip, op, &excess_newlines);
  25127.  
  25128.          check_expand(op, ip->length - (ip->bufp - ip->buf));
  25129. -        
  25130. +
  25131.          /* If we just processed an identifier at end of input,
  25132.             return right away.  */
  25133. -        if (c == (U_CHAR) -1)
  25134. +        if (c == -1)
  25135.            return;
  25136.  
  25137.          /* if the expansion routine has not moved the input
  25138. @@ -679,7 +708,7 @@ randomchar:
  25139.             reason to put it back or not put it back. */
  25140.          if (ip->bufp == save_ibufp)
  25141.            *op->bufp++ = c;
  25142. -        
  25143. +
  25144.          break;        /* out of for loop */
  25145.        }
  25146.  hashcollision:
  25147. @@ -687,7 +716,7 @@ hashcollision:
  25148.      }            /* end for loop */
  25149.      ident_length = hash = 0; /* stop collecting identifier */
  25150.        }
  25151. -        
  25152. +
  25153.        /* If we just processed an identifier at end of input,
  25154.       return right away.  */
  25155.        if (c == -1)
  25156. @@ -746,7 +775,7 @@ handle_directive (ip, op, excess_newline
  25157.    while (is_idchar[*cp])
  25158.      cp++;
  25159.    ident_length = cp - bp;
  25160. -  
  25161. +
  25162.    /*
  25163.     * Decode the keyword and call the appropriate expansion
  25164.     * routine, after moving the input pointer up to the next line.
  25165. @@ -758,13 +787,18 @@ handle_directive (ip, op, excess_newline
  25166.        register U_CHAR *buf;
  25167.        register U_CHAR *limit = ip->buf + ip->length;
  25168.        U_CHAR *skip_to_end_of_comment();
  25169. -      
  25170. +
  25171.        buf = bp = bp + ident_length;
  25172.        while (bp < limit) {
  25173.      if (*bp == '\'' || *bp == '\"') {        /* JF handle quotes right  */
  25174.        U_CHAR quotec;
  25175.  
  25176. -      for (quotec = *bp++; bp < limit && *bp != quotec; bp++) {
  25177. +      for (quotec = *bp++; bp < limit; bp++) {
  25178. +        if (*bp == quotec)
  25179. +          {
  25180. +        bp++;
  25181. +        break;
  25182. +          }
  25183.          if (*bp == '\\') bp++;
  25184.          if (*bp == '\n') {
  25185.            if (bp[-1] == '\\')
  25186. @@ -801,13 +835,18 @@ handle_directive (ip, op, excess_newline
  25187.                            some slop */
  25188.      bp = buf;
  25189.      buf = cp;
  25190. -    
  25191. +
  25192.      while (bp < limit) {
  25193.        if (*bp == '\'' || *bp == '\"') {    /* JF handle quotes right  */
  25194.          U_CHAR quotec;
  25195.  
  25196.          *cp++ = *bp;
  25197. -        for (quotec = *bp++; bp < limit && *bp != quotec; *cp++ = *bp++) {
  25198. +        for (quotec = *bp++; bp < limit; *cp++ = *bp++) {
  25199. +          if (*bp == quotec)
  25200. +        {
  25201. +          *cp++ = *bp++;
  25202. +          break;
  25203. +        }
  25204.            if (*bp == '\\')
  25205.          *cp++ = *bp++;
  25206.            if (*bp == '\n') {
  25207. @@ -939,12 +978,12 @@ expand_special_symbol (hp, ip, op)
  25208.        ++ip->bufp;
  25209.      }
  25210.      break;
  25211. -    
  25212. +
  25213.  oops:
  25214. -    
  25215. +
  25216.      error ("`defined' must be followed by IDENT or (IDENT)");
  25217.      break;
  25218. -      
  25219. +
  25220.    default:
  25221.      error("CCCP error: illegal special hash type"); /* time for gdb */
  25222.      abort ();
  25223. @@ -953,7 +992,7 @@ oops:
  25224.    check_expand(op, len);
  25225.    bcopy (buf, op->bufp, len);
  25226.    op->bufp += len;
  25227. -  
  25228. +
  25229.    return;
  25230.  }
  25231.  
  25232. @@ -978,7 +1017,7 @@ do_include (buf, limit, op, keyword)
  25233.    struct stat sbuf;        /* to stat the include file */
  25234.    FILE_BUF *fp;    /* for input stack frame */
  25235.    struct directory_stack *stackp;
  25236. -  int flen;
  25237. +  int flen, maxlen;
  25238.  
  25239.    int save_indepth = indepth;
  25240.                  /* in case of errors */
  25241. @@ -1019,7 +1058,11 @@ do_include (buf, limit, op, keyword)
  25242.    if (err)
  25243.      goto nope;
  25244.  
  25245. +  /* DG: This doesn't handle includes of aa:... on the Amiga */
  25246. +  /* It doesn't seem worth it. */
  25247.    other_dir = NULL;
  25248. +  maxlen = max_include_len;
  25249. +#if 0
  25250.    if (stackp == include)
  25251.      {
  25252.        fp = &instack[indepth];
  25253. @@ -1037,13 +1080,15 @@ do_include (buf, limit, op, keyword)
  25254.            other_dir = (char *) alloca (n + 1);
  25255.            strncpy (other_dir, nam, n);
  25256.            other_dir[n] = '\0';
  25257. +                  if (n + 4 > maxlen) maxlen = n + 4;
  25258.          }
  25259.            break;
  25260.          }
  25261.      }
  25262.      }
  25263. +#endif
  25264.                /* JF search directory path */
  25265. -  fname = (char *) alloca (max_include_len + flen);
  25266. +  fname = (char *) alloca (maxlen + flen);
  25267.    for (; stackp; stackp = stackp->next)
  25268.      {
  25269.        if (other_dir)
  25270. @@ -1053,6 +1098,10 @@ do_include (buf, limit, op, keyword)
  25271.      }
  25272.        else
  25273.      strcpy (fname, stackp->fname);
  25274. +#ifdef AMIGA
  25275. +      if (fname[0] != 0 && fname[strlen(fname) - 1] != ':')
  25276. +      /* Don't add / after : or empty strings */
  25277. +#endif
  25278.        strcat (fname, "/");
  25279.        strncat (fname, fbeg, flen);
  25280.        if ((f = open (fname, O_RDONLY)) >= 0)
  25281. @@ -1064,7 +1113,11 @@ do_include (buf, limit, op, keyword)
  25282.        goto nope;
  25283.      }
  25284.  
  25285. +#ifdef AMIGA
  25286. +  if (stat(fname, &sbuf) < 0)
  25287. +#else
  25288.    if (fstat(f, &sbuf) < 0)
  25289. +#endif
  25290.      {
  25291.        perror_with_name (fname);
  25292.        goto nope;        /* impossible? */
  25293. @@ -1202,7 +1255,7 @@ do_define (buf, limit, op, keyword)
  25294.      ++bp;            /* skip paren */
  25295.      /* Skip exactly one space or tab if any.  */
  25296.      if (bp < limit && (*bp == ' ' || *bp == '\t')) ++bp;
  25297. -      
  25298. +
  25299.      /* now everything from bp before limit is the definition. */
  25300.      defn = collect_expansion(bp, limit - bp, arg_ptrs);
  25301.    } else {
  25302. @@ -1226,10 +1279,10 @@ do_define (buf, limit, op, keyword)
  25303.        }
  25304.      }
  25305.    }
  25306. -  
  25307. +
  25308.    install (symname, T_MACRO, defn);
  25309.    return 0;
  25310. -  
  25311. +
  25312.  nope:
  25313.  
  25314.    return 1;
  25315. @@ -1308,7 +1361,7 @@ collect_expansion(buf, size, arglist)
  25316.  
  25317.      if (is_idstart[*p] && (p==buf || !is_idchar[*(p-1)])) {
  25318.  
  25319. -      for (id_len = 0; is_idchar[p[id_len]]; id_len++)
  25320. +      for (id_len = 0; p+id_len < buf+size && is_idchar[p[id_len]]; id_len++)
  25321.      ;
  25322.        for (arg = arglist; arg != NULL; arg = arg->next) {
  25323.      struct reflist *tpat;
  25324. @@ -1341,7 +1394,7 @@ collect_expansion(buf, size, arglist)
  25325.    *exp_p++ = '\0';
  25326.  
  25327.    defn->length = exp_p - defn->expansion - 1;
  25328. -  
  25329. +
  25330.    /* give back excess storage */
  25331.    defn->expansion = (U_CHAR *) xrealloc (defn->expansion, defn->length + 1);
  25332.  
  25333. @@ -1456,7 +1509,7 @@ do_undef(buf, limit, op, keyword)
  25334.      delete (hp);
  25335.  }
  25336.  
  25337. -/* handle #error command later */ 
  25338. +/* handle #error command later */
  25339.  do_error()
  25340.  {
  25341.  }
  25342. @@ -1465,6 +1518,21 @@ do_error()
  25343.   * the behavior of the #pragma directive is implementation defined.
  25344.   * this implementation defines it as follows.
  25345.   */
  25346. +#ifdef AMIGA
  25347. +do_pragma(buf, limit, op, keyword)
  25348. +     U_CHAR *buf, *limit;
  25349. +     FILE_BUF *op;
  25350. +     struct keyword_table *keyword;
  25351. +{
  25352. +    /* Just copy the pragma directibe back out */
  25353. +    int len2 = limit - buf, len1 = sizeof("#pragma") - 1;
  25354. +
  25355. +    check_expand(op, len1 + len2);
  25356. +    bcopy("#pragma", op->bufp, len1);
  25357. +    bcopy(buf, op->bufp + len1, len2);
  25358. +    op->bufp += len1 + len2;
  25359. +}
  25360. +#else
  25361.  do_pragma()
  25362.  {
  25363.    close (0);
  25364. @@ -1479,6 +1547,7 @@ do_pragma()
  25365.  nope:
  25366.    fatal ("You are in a maze of twisty compiler features, all different");
  25367.  }
  25368. +#endif
  25369.  
  25370.  typedef struct if_stack {
  25371.    struct if_stack *next;    /* for chaining to the next stack frame */
  25372. @@ -1541,7 +1610,7 @@ do_elif (buf, limit, op, keyword)
  25373.      }
  25374.      if_stack->type = T_ELIF;
  25375.    }
  25376. -  
  25377. +
  25378.    value = eval_if_expression (buf, limit - buf);
  25379.    conditional_skip (ip, value == 0, T_ELIF);
  25380.  }
  25381. @@ -1574,7 +1643,7 @@ eval_if_expression (buf, length)
  25382.  
  25383.    delete (save_defined);    /* clean up special symbol */
  25384.    free (temp_obuf.buf);
  25385. -  
  25386. +
  25387.    return value;
  25388.  }
  25389.  
  25390. @@ -1614,7 +1683,7 @@ conditional_skip (ip, skip, type)
  25391.    if_stack = temp;
  25392.  
  25393.    if_stack->type = type;
  25394. -  
  25395. +
  25396.    if (skip != 0) {
  25397.      skip_if_group(ip);
  25398.      return;
  25399. @@ -1724,7 +1793,7 @@ skip_if_group(ip)
  25400.   * without changing  if_stack ;  this is so that the error message
  25401.   * for missing #endif's etc. will point to the original #if.  It
  25402.   * is possible that something different would be better.
  25403. - */ 
  25404. + */
  25405.  do_else(buf, limit, op, keyword)
  25406.       U_CHAR *buf, *limit;
  25407.       FILE_BUF *op;
  25408. @@ -1915,7 +1984,7 @@ macroexpand (hp, ip, op, excess_newlines
  25409.        int totlen;        /* total amount of exp buffer filled so far */
  25410.  
  25411.        register struct reflist *ap;
  25412. -      struct argptrs { 
  25413. +      struct argptrs {
  25414.                 U_CHAR *argstart;
  25415.                 int length;
  25416.               } *args;
  25417. @@ -1999,7 +2068,7 @@ macroexpand (hp, ip, op, excess_newlines
  25418.        ip2->buf = ip2->bufp = defn->expansion;
  25419.        ip2->length = defn->length;
  25420.      }
  25421. -  
  25422. +
  25423.    rescan (ip2, op);
  25424.    --indepth;
  25425.    *excess_newlines_ptr += newlines_found;
  25426. @@ -2024,7 +2093,7 @@ skip_macro_argument(bp, ip, newlines)
  25427.  {
  25428.    int paren = 0;
  25429.    int quotec = 0;
  25430. -  
  25431. +
  25432.    while (bp < ip->buf + ip->length) {
  25433.      switch (*bp) {
  25434.      case '(':
  25435. @@ -2084,9 +2153,9 @@ error (msg)
  25436.      }
  25437.  
  25438.    if (ip != NULL)
  25439. -    fprintf(stdout, "file %s, offset %d (line %d): ",
  25440. +    fprintf(stderr, "file %s, offset %d (line %d): ",
  25441.          ip->fname, ip->bufp - ip->buf, ip->lineno);
  25442. -  fprintf(stdout, "%s\n", msg);
  25443. +  fprintf(stderr, "%s\n", msg);
  25444.    return 0;
  25445.  }
  25446.  
  25447. @@ -2109,7 +2178,7 @@ check_expand(obuf, needed)
  25448.  {
  25449.    register int i;
  25450.    register U_CHAR *p;
  25451. -  
  25452. +
  25453.    if (obuf->length - (obuf->bufp - obuf->buf) > needed)
  25454.      return obuf->buf;
  25455.  
  25456. @@ -2125,7 +2194,7 @@ check_expand(obuf, needed)
  25457.  
  25458.    return p;
  25459.  }
  25460. -  
  25461. +
  25462.  /*
  25463.   * install a name in the main hash table, even if it is already there.
  25464.   *   name stops with first non alphanumeric, except leading '#'.
  25465. @@ -2198,7 +2267,7 @@ lookup (name)
  25466.  delete(hp)
  25467.       HASHNODE *hp;
  25468.  {
  25469. -  
  25470. +
  25471.    if (hp->prev != NULL)
  25472.      hp->prev->next = hp->next;
  25473.    if (hp->next != NULL)
  25474. @@ -2232,10 +2301,10 @@ hashf(name, len, hashsize)
  25475.       int hashsize;
  25476.  {
  25477.    register int r = 0;
  25478. -  
  25479. +
  25480.    while (len--)
  25481.      r = HASHSTEP(r, *name++);
  25482. -  
  25483. +
  25484.    return MAKE_POS(r) % hashsize;
  25485.  }
  25486.  
  25487. @@ -2282,7 +2351,7 @@ initialize_random_junk()
  25488.  #endif
  25489.  
  25490.    /* is there more? */
  25491. -  
  25492. +
  25493.  }
  25494.  
  25495.  /*
  25496. @@ -2357,7 +2426,7 @@ bzero (b, length)
  25497.  #endif /* not VMS */
  25498.  }
  25499.  
  25500. -void 
  25501. +void
  25502.  bcopy (b1, b2, length)
  25503.       register char *b1;
  25504.       register char *b2;
  25505. @@ -2379,7 +2448,7 @@ bcopy (b1, b2, length)
  25506.      *b2++ = *b1++;
  25507.  #endif /* not VMS */
  25508.  }
  25509. - 
  25510. +
  25511.  int
  25512.  bcmp (b1, b2, length)    /* This could be a macro! */
  25513.       register char *b1;
  25514. diff -rup --new-file baseline/fsf/emacs18/cpp/smakefile amiga/fsf/emacs18/cpp/smakefile
  25515. --- baseline/fsf/emacs18/cpp/smakefile    Wed Dec 31 17:00:00 1969
  25516. +++ amiga/fsf/emacs18/cpp/smakefile    Sat Sep 28 00:00:00 1996
  25517. @@ -0,0 +1,23 @@
  25518. +# Makefile for cccp in the Emacs distribution only.
  25519. +# Here we assume that you are using SASC
  25520. +# (since cccp is used by Emacs only to deal with long strings in macros.
  25521. +
  25522. +CFLAGS=DEF EMACS idir //unix/include/ def STACK_DIRECTION=-1 def OUTPUT_LINE_COMMANDS nowvret debug sf
  25523. +
  25524. +cpp: cccp
  25525. +    -delete cpp
  25526. +    makelink cpp cccp
  25527. +cccp: cccp.o cexp.tab.o alloca.o
  25528. +    sc link cccp.o alloca.o cexp.tab.o to cccp lib //unix/src/unix.lib
  25529. +
  25530. +testexp: y.tab.c
  25531. +    cc -g -DTEST_EXP_READER y.tab.c -o testexp
  25532. +
  25533. +cexp.tab.c: cexp.y
  25534. +    echo "expect 40 shift/reduce conflicts"
  25535. +    bin:bison cexp.y >bison.debug
  25536. +
  25537. +cccp.o: cccp.c
  25538. +cexp.tab.o: cexp.tab.c
  25539. +alloca.o: /src/alloca.c
  25540. +    $(CC) $(CFLAGS) objname alloca.o /src/alloca.c
  25541. diff -rup --new-file baseline/fsf/emacs18/etc/SCOPTIONS amiga/fsf/emacs18/etc/SCOPTIONS
  25542. --- baseline/fsf/emacs18/etc/SCOPTIONS    Wed Dec 31 17:00:00 1969
  25543. +++ amiga/fsf/emacs18/etc/SCOPTIONS    Sat Sep 28 00:00:00 1996
  25544. @@ -0,0 +1,15 @@
  25545. +STRINGMERGE
  25546. +STRUCTUREEQUIVALENCE
  25547. +NOWARNVOIDRETURN
  25548. +NOVERSION
  25549. +MEMORYSIZE=HUGE
  25550. +INCLUDEDIR=src:unix/include
  25551. +IGNORE=147
  25552. +IGNORE=62
  25553. +IGNORE=132
  25554. +IGNORE=154
  25555. +IGNORE=104
  25556. +IGNORE=100
  25557. +IGNORE=161
  25558. +IGNORE=84
  25559. +IGNORE=93
  25560. diff -rup --new-file baseline/fsf/emacs18/etc/amiga-env.c amiga/fsf/emacs18/etc/amiga-env.c
  25561. --- baseline/fsf/emacs18/etc/amiga-env.c    Wed Dec 31 17:00:00 1969
  25562. +++ amiga/fsf/emacs18/etc/amiga-env.c    Sat Sep 28 00:00:00 1996
  25563. @@ -0,0 +1,439 @@
  25564. +/* env.c - manipulate environment and execute a program
  25565. +   in that environment
  25566. +   Mly 861126
  25567. +
  25568. +   Copyright (C) 1986 Free Software Foundation, Inc.
  25569. +
  25570. +    This program is free software; you can redistribute it and/or modify
  25571. +    it under the terms of the GNU General Public License as published by
  25572. +    the Free Software Foundation; either version 1, or (at your option)
  25573. +    any later version.
  25574. +
  25575. +    This program is distributed in the hope that it will be useful,
  25576. +    but WITHOUT ANY WARRANTY; without even the implied warranty of
  25577. +    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  25578. +    GNU General Public License for more details.
  25579. +
  25580. +    You should have received a copy of the GNU General Public License
  25581. +    along with this program; if not, write to the Free Software
  25582. +    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  25583. +
  25584. + In other words, you are welcome to use, share and improve this program.
  25585. + You are forbidden to forbid anyone else to use, share and improve
  25586. + what you give them.   Help stamp out software-hoarding!  */
  25587. +
  25588. +/* 
  25589. +
  25590. +   If first argument is "-", then a new environment is constructed
  25591. +   from scratch; otherwise the environment is inherited from the parent
  25592. +   process, except as modified by other options.
  25593. +   
  25594. +   So, "env - foo" will invoke the "foo" program in a null environment,
  25595. +   whereas "env foo" would invoke "foo" in the same environment as that
  25596. +   passed to "env" itself.
  25597. +
  25598. +   Subsequent arguments are interpreted as follows:
  25599. +   
  25600. +   * "variable=value" (ie an arg containing a "=" character)
  25601. +     means to set the specified environment variable to that value.
  25602. +     `value' may be of zero length ("variable=").  Note that setting
  25603. +     a variable to a zero-length value is different from unsetting it.
  25604. +
  25605. +   * "-u variable" or "-unset variable"
  25606. +     means to unset that variable
  25607. +     If that variable isn't set, does nothing.
  25608. +
  25609. +   * "-s variable value" or "-set variable value"
  25610. +     same as "variable=value"
  25611. +
  25612. +   * "-" or "--"
  25613. +     are used to indicate that the following argument is the program
  25614. +     to invoke.  This is only necessary when the program's name
  25615. +     begins with "-" or contains a "="
  25616. +
  25617. +   * anything else
  25618. +     The first remaining argument specifies a program to invoke
  25619. +     (it is searched for according to the specification of the PATH
  25620. +     environment variable) and any arguments following that are
  25621. +     passed as arguments to that program
  25622. +
  25623. +     If no program-name is specified following the environment
  25624. +     specifications the the resulting environment is printed
  25625. +     (The is like specifying a program-name of "printenv")
  25626. +
  25627. +   Examples:
  25628. +     If the environment passed to "env" is
  25629. +     { USER=rms EDITOR=emacs PATH=.:/gnubin:/hacks }
  25630. +
  25631. +     * "env DISPLAY=gnu:0 nemacs"
  25632. +        calls "nemacs" in the envionment
  25633. +    { EDITOR=emacs USER=rms DISPLAY=gnu }
  25634. +
  25635. +     * "env - USER=foo /hacks/hack bar baz"
  25636. +       will call the "hack" program on arguments "bar" and "baz"
  25637. +       in an environment in which the only variable is "USER"
  25638. +       Note that the "-" option will clear out the PATH variable,
  25639. +       so one should be careful to specify in which directory
  25640. +       to find the program to call
  25641. +       
  25642. +     * "env -u EDITOR USER=foo PATH=/energy -- e=mc2 bar baz"
  25643. +       The program "/energy/e=mc2" is called with environment
  25644. +       { USER=foo PATH=/energy }
  25645. +
  25646. +*/
  25647. +
  25648. +#include <exec/types.h>
  25649. +#include <dos/dostags.h>
  25650. +#include <dos/var.h>
  25651. +#include <proto/dos.h>
  25652. +#include <proto/exec.h>
  25653. +
  25654. +#ifdef EMACS
  25655. +#define NO_SHORTNAMES
  25656. +#include "../src/config.h"
  25657. +#endif /* EMACS */
  25658. +
  25659. +#include <stdio.h>
  25660. +#include <errno.h>
  25661. +#include <setjmp.h>
  25662. +
  25663. +extern int execvp ();
  25664. +extern char *index ();
  25665. +
  25666. +char *xmalloc (), *xrealloc ();
  25667. +char *concat ();
  25668. +
  25669. +char *progname;
  25670. +void setenv ();
  25671. +void fatal ();
  25672. +
  25673. +#define index strchr
  25674. +
  25675. +struct MsgPort *end_port;
  25676. +struct {
  25677. +  struct Message msg;
  25678. +  int rc;
  25679. +} end_msg;
  25680. +int gargc;
  25681. +char **gargv;
  25682. +jmp_buf unixexit_buf;
  25683. +
  25684. +void __saveds unix_start(void)
  25685. +{
  25686. +  int rc;
  25687. +
  25688. +  if (!(rc = setjmp(unixexit_buf)))
  25689. +    {
  25690. +      unixmain(gargc, gargv);
  25691. +      rc = 1;
  25692. +    }
  25693. +  end_msg.rc = rc - 1;
  25694. +  end_msg.msg.mn_Length = sizeof(end_msg);
  25695. +  end_msg.msg.mn_Node.ln_Type = NT_MESSAGE;
  25696. +  PutMsg(end_port, &end_msg);
  25697. +}
  25698. +
  25699. +void unixexit(int rc)
  25700. +{
  25701. +  longjmp(unixexit_buf, rc + 1);
  25702. +}
  25703. +
  25704. +main(int argc, char **argv)
  25705. +{
  25706. +  int rc = 1;
  25707. +  long stacksize;
  25708. +  struct Process *us = (struct Process *)FindTask(0);
  25709. +
  25710. +  if (us->pr_CLI) stacksize = ((struct CommandLineInterface *)BADDR(us->pr_CLI))->cli_DefaultStack << 2;
  25711. +  else stacksize = us->pr_StackSize;
  25712. +
  25713. +  gargc = argc;
  25714. +  gargv = argv;
  25715. +  
  25716. +  end_port = CreateMsgPort();
  25717. +
  25718. +  if (end_port && CreateNewProcTags(NP_Entry, unix_start,
  25719. +                    NP_Input, Input(), NP_CloseInput, 0UL,
  25720. +                    NP_Output, Output(), NP_CloseOutput, 0UL,
  25721. +                    NP_StackSize, stacksize,
  25722. +                    NP_Cli, TRUE, TAG_END))
  25723. +    {
  25724. +      while (!GetMsg(end_port)) WaitPort(end_port);
  25725. +      rc = end_msg.rc;
  25726. +    }
  25727. +  if (end_port) DeleteMsgPort(end_port);
  25728. +  Delay(1);
  25729. +  exit(rc);
  25730. +}
  25731. +
  25732. +#define exit unixexit
  25733. +
  25734. +unixmain (argc, argv)
  25735. +     register int argc;
  25736. +     register char **argv;
  25737. +{
  25738. +  register char *tem;
  25739. +
  25740. +  progname = argv[0];
  25741. +  argc--;
  25742. +  argv++;
  25743. +
  25744. +  /* "-" flag means to not inherit parent's environment */
  25745. +  /* This is ignored on the amiga */
  25746. +  if (argc && !strcmp (*argv, "-"))
  25747. +    {
  25748. +      argc--;
  25749. +      argv++;
  25750. +    }
  25751. +
  25752. +  while (argc > 0)
  25753. +    {
  25754. +      tem = index (*argv, '=');
  25755. +      if (tem)
  25756. +    /* If arg contains a "=" it specifies to set a variable */
  25757. +    {
  25758. +      *tem = '\000';
  25759. +      setenv (*argv, tem + 1);
  25760. +      argc--; argv++;
  25761. +      continue;
  25762. +    }
  25763. +      
  25764. +      if (**argv != '-')
  25765. +    /* Remaining args are program name and args to pass it */
  25766. +    break;
  25767. +
  25768. +      if (argc < 2)
  25769. +    fatal ("No argument following \"%s\" switch", *argv);
  25770. +       if (!strcmp (*argv, "-u") ||
  25771. +           !strcmp (*argv, "-unset"))
  25772. +    /* Unset a variable */
  25773. +    {
  25774. +      argc--; argv++;
  25775. +      setenv (*argv, 0);
  25776. +      argc--; argv++;
  25777. +    }
  25778. +      else if (!strcmp (*argv, "-s") ||
  25779. +           !strcmp (*argv, "-set"))
  25780. +    /* Set a variable */
  25781. +    {
  25782. +      argc--; argv++;
  25783. +      tem = *argv;
  25784. +      if (argc < 2)
  25785. +        fatal ("No value specified for variable \"%s\"",
  25786. +           tem);
  25787. +      argc--; argv++;
  25788. +      setenv (tem, *argv);
  25789. +      argc--; argv++;
  25790. +    }
  25791. +      else if (!strcmp (*argv, "-") || !strcmp (*argv, "--"))
  25792. +    {
  25793. +      argc--; argv++;
  25794. +      break;
  25795. +    }
  25796. +      else
  25797. +    {
  25798. +      fatal ("unknown switch \"%s\"", *argv);
  25799. +    }
  25800. +    }
  25801. +
  25802. +  /* If no program specified print the environment and exit */
  25803. +  if (argc <= 0)
  25804. +    {
  25805. +      printenv();
  25806. +      exit (0);
  25807. +    }
  25808. +  else
  25809. +    {
  25810. +      extern int errno, sys_nerr;
  25811. +      extern char *sys_errlist[];
  25812. +
  25813. +      (void) execvp (*argv, argv);
  25814. +
  25815. +      fprintf (stderr, "%s: Cannot execute \"%s\"",
  25816. +           progname, *argv);
  25817. +      if (errno < sys_nerr)
  25818. +    fprintf (stderr, ": %s\n" , sys_errlist[errno]);
  25819. +      else
  25820. +    putc ('\n', stderr);
  25821. +      exit (errno != 0 ? errno : 1);
  25822. +    }
  25823. +}
  25824. +
  25825. +int execvp(program, argv)
  25826. +char *program, **argv;
  25827. +{
  25828. +  int index, comsize;
  25829. +  char *combuf, *bp;
  25830. +  long err, rc;
  25831. +  
  25832. +  combuf = xmalloc(256);
  25833. +  comsize = 256;
  25834. +
  25835. +  bp = combuf;
  25836. +  for (index = 0; argv[index] != 0; index++)
  25837. +    {
  25838. +      char *s = argv[index];
  25839. +      int len;
  25840. +
  25841. +      len = 3;
  25842. +      while (*s) len += 1 + 2 * (*s++ == '"');
  25843. +      if (bp + len + 1 >= combuf + comsize)
  25844. +    {
  25845. +      char *newbuf;
  25846. +      int new_comsize;
  25847. +
  25848. +      new_comsize = 2 * comsize + len;
  25849. +      newbuf = xmalloc(new_comsize);
  25850. +      memcpy(newbuf, combuf, comsize);
  25851. +
  25852. +      bp = newbuf + (bp - combuf);
  25853. +      combuf = newbuf;
  25854. +      comsize = new_comsize;
  25855. +    }
  25856. +      *bp++ = ' ';
  25857. +      *bp++ = '"';
  25858. +      s = argv[index];
  25859. +      while (*s)
  25860. +    {
  25861. +      if (*s == '"' || *s == '*') *bp++ = '*';
  25862. +      *bp++ = *s++;
  25863. +    }
  25864. +      *bp++ = '"';
  25865. +    }
  25866. +  *bp = '\0';
  25867. +  rc = SystemTags(combuf,
  25868. +          SYS_UserShell, 1UL,
  25869. +          TAG_END);
  25870. +  err = IoErr();
  25871. +  free(combuf);
  25872. +  if (rc != -1) exit(rc);
  25873. +  
  25874. +  errno = convert_oserr(err);
  25875. +  return -1;
  25876. +}
  25877. +
  25878. +int convert_oserr(int ioerr)
  25879. +{
  25880. +  extern int _OSERR;
  25881. +
  25882. +  _OSERR = ioerr;
  25883. +  switch (ioerr)
  25884. +    {
  25885. +    case 0: return 0;
  25886. +    case ERROR_NO_FREE_STORE: return ENOMEM;
  25887. +    case ERROR_TASK_TABLE_FULL: return EAGAIN;
  25888. +    case ERROR_BAD_TEMPLATE: case ERROR_REQUIRED_ARG_MISSING:
  25889. +    case ERROR_KEY_NEEDS_ARG: case ERROR_TOO_MANY_ARGS:
  25890. +    case ERROR_UNMATCHED_QUOTES: case ERROR_LINE_TOO_LONG: return EINVAL;
  25891. +    case ERROR_OBJECT_IN_USE: return EBUSY;
  25892. +    case ERROR_OBJECT_EXISTS: return EEXIST;
  25893. +    case ERROR_DIR_NOT_FOUND: return ENOENT;
  25894. +    case ERROR_OBJECT_NOT_FOUND: return ENOENT;
  25895. +    case ERROR_BAD_STREAM_NAME: return EINVAL;
  25896. +    case ERROR_OBJECT_TOO_LARGE: return E2BIG;
  25897. +    case ERROR_ACTION_NOT_KNOWN: return EINVAL;
  25898. +    case ERROR_INVALID_COMPONENT_NAME: return EINVAL;
  25899. +    case ERROR_INVALID_LOCK: return EINVAL;
  25900. +    case ERROR_OBJECT_WRONG_TYPE: return EINVAL;
  25901. +    case ERROR_DISK_WRITE_PROTECTED: return EACCES;
  25902. +    case ERROR_SEEK_ERROR: return EIO;
  25903. +    case ERROR_DISK_FULL: return ENOSPC;
  25904. +    case ERROR_DELETE_PROTECTED: return EACCES;
  25905. +    case ERROR_WRITE_PROTECTED: return EACCES;
  25906. +    case ERROR_READ_PROTECTED: return EACCES;
  25907. +    case ERROR_RENAME_ACROSS_DEVICES: return EXDEV;
  25908. +    default: return EOSERR;
  25909. +    }
  25910. +}
  25911. +
  25912. +printenv(void)
  25913. +/* Effect: Prints a UNIX style environment from the AmigaOS environment.
  25914. +*/
  25915. +{
  25916. +  struct LocalVar *scan_env;
  25917. +  struct Process *us = (struct Process *)FindTask(0);
  25918. +
  25919. +  for (scan_env = (struct LocalVar *)us->pr_LocalVars.mlh_Head;
  25920. +       scan_env->lv_Node.ln_Succ;
  25921. +       scan_env = (struct LocalVar *)scan_env->lv_Node.ln_Succ)
  25922. +    if (scan_env->lv_Node.ln_Type == LV_VAR &&
  25923. +    !(scan_env->lv_Flags & (GVF_GLOBAL_ONLY | GVF_BINARY_VAR)))
  25924. +      {
  25925. +    /* We only handle local text variables */
  25926. +    printf("%s=", scan_env->lv_Node.ln_Name);
  25927. +    fwrite(scan_env->lv_Value, 1, scan_env->lv_Len, stdout);
  25928. +    putchar('\n');
  25929. +      }
  25930. +}
  25931. +
  25932. +void
  25933. +setenv (var, val)
  25934. +  register char *var, *val;
  25935. +{
  25936. +  if (val) SetVar(var, val, -1, LV_VAR | GVF_LOCAL_ONLY);
  25937. +  else DeleteVar(var, LV_VAR | GVF_LOCAL_ONLY);
  25938. +}
  25939. +
  25940. +void
  25941. +fatal (msg, arg1, arg2)
  25942. +     char *msg, *arg1, *arg2;
  25943. +{
  25944. +  fprintf (stderr, "%s: ", progname);
  25945. +  fprintf (stderr, msg, arg1, arg2);
  25946. +  putc ('\n', stderr);
  25947. +  exit (1);
  25948. +}
  25949. +
  25950. +
  25951. +extern char *malloc (), *realloc ();
  25952. +
  25953. +void
  25954. +memory_fatal ()
  25955. +{
  25956. +  fatal ("Out of memory");
  25957. +}
  25958. +
  25959. +char *
  25960. +xmalloc (size)
  25961. +     int size;
  25962. +{
  25963. +  register char *value;
  25964. +  value = (char *) malloc (size);
  25965. +  if (!value) memory_fatal ();
  25966. +  return (value);
  25967. +}
  25968. +
  25969. +char *
  25970. +xrealloc (ptr, size)
  25971. +     char *ptr;
  25972. +     int size;
  25973. +{
  25974. +  register char *value;
  25975. +  value = (char *) realloc (ptr, size);
  25976. +  if (!value) memory_fatal ();
  25977. +  return (value);
  25978. +}
  25979. +
  25980. +/* Return a newly-allocated string whose contents concatenate those of s1, s2, s3.  */
  25981. +
  25982. +char *
  25983. +concat (s1, s2, s3)
  25984. +     char *s1, *s2, *s3;
  25985. +{
  25986. +  int len1 = strlen (s1), len2 = strlen (s2), len3 = strlen (s3);
  25987. +  char *result = (char *) xmalloc (len1 + len2 + len3 + 1);
  25988. +
  25989. +  strcpy (result, s1);
  25990. +  strcpy (result + len1, s2);
  25991. +  strcpy (result + len1 + len2, s3);
  25992. +  *(result + len1 + len2 + len3) = 0;
  25993. +
  25994. +  return result;
  25995. +}
  25996. +
  25997. +
  25998. +/*
  25999. + * Local variables:
  26000. + * compile-command: "lc -L -v amiga-env.c"
  26001. + * end:
  26002. + */
  26003. diff -rup --new-file baseline/fsf/emacs18/etc/etags.c amiga/fsf/emacs18/etc/etags.c
  26004. --- baseline/fsf/emacs18/etc/etags.c    Wed Aug 19 22:11:01 1992
  26005. +++ amiga/fsf/emacs18/etc/etags.c    Sat Sep 28 00:00:00 1996
  26006. @@ -338,10 +338,17 @@ main(ac,av)
  26007.      {
  26008.        for (i=1; i<ac; i++)
  26009.      {
  26010. +#ifdef AMIGA
  26011. +      rename(outfile, "OTAGS");
  26012. +      sprintf(cmd, "egrep >%s -v '\t%s\t' OTAGS", outfile, av[i]);
  26013. +      system(cmd);
  26014. +      unlink("OTAGS");
  26015. +#else
  26016.        sprintf(cmd,
  26017.            "mv %s OTAGS;fgrep -v '\t%s\t' OTAGS >%s;rm OTAGS",
  26018.            outfile, av[i], outfile);
  26019.        system(cmd);
  26020. +#endif
  26021.      }
  26022.        aflag++;
  26023.      }
  26024. @@ -357,7 +364,11 @@ main(ac,av)
  26025.  #ifndef VMS
  26026.    if (uflag)
  26027.      {
  26028. +#ifdef AMIGA
  26029. +      sprintf(cmd, "c:sort from %s to %s", outfile, outfile);
  26030. +#else
  26031.        sprintf(cmd, "sort %s -o %s", outfile, outfile);
  26032. +#endif
  26033.        system(cmd);
  26034.      }
  26035.  #endif
  26036. diff -rup --new-file baseline/fsf/emacs18/etc/make-docfile.c amiga/fsf/emacs18/etc/make-docfile.c
  26037. --- baseline/fsf/emacs18/etc/make-docfile.c    Fri Oct 25 11:43:28 1991
  26038. +++ amiga/fsf/emacs18/etc/make-docfile.c    Sat Sep 28 00:00:00 1996
  26039. @@ -57,8 +57,30 @@ main (argc, argv)
  26040.        i += 2;
  26041.      }
  26042.  
  26043. +#ifdef AMIGA
  26044. +  {
  26045. +    char fn[512], *fpos;
  26046. +    int c;
  26047. +
  26048. +    c = getchar();
  26049. +    do
  26050. +      {
  26051. +    while (c == ' ' || c == '\n' || c == '\t') c = getchar();
  26052. +    if (c == EOF) break;
  26053. +    fpos = fn;
  26054. +    do *fpos++ = c;
  26055. +    while ((c = getchar()) != EOF && c != ' ' && c != '\t' && c != '\n');
  26056. +    *fpos = 0;
  26057. +
  26058. +    fprintf(stderr, "doc file %s\n", fn);
  26059. +    err_count += scan_file (fn); /* err_count seems to be {mis,un}used */
  26060. +      }
  26061. +    while (1);
  26062. +  }
  26063. +#else
  26064.    for (; i < argc; i++)
  26065.      err_count += scan_file (argv[i]);    /* err_count seems to be {mis,un}used */
  26066. +#endif
  26067.  #ifndef VMS
  26068.    exit (err_count);            /* see below - shane */
  26069.  #endif /* VMS */
  26070. diff -rup --new-file baseline/fsf/emacs18/etc/sh.c amiga/fsf/emacs18/etc/sh.c
  26071. --- baseline/fsf/emacs18/etc/sh.c    Wed Dec 31 17:00:00 1969
  26072. +++ amiga/fsf/emacs18/etc/sh.c    Sat Sep 28 00:00:00 1996
  26073. @@ -0,0 +1,145 @@
  26074. +;/*
  26075. +SC LINK NOSTKCHK DEF SASC=1 sh.c
  26076. +QUIT
  26077. +*/
  26078. +/*
  26079. + * original version: David Gay
  26080. + *
  26081. + * 05/18/93 ch added SAS support, external verbose flag and primitive_parse
  26082. + */
  26083. +#include <exec/types.h>
  26084. +#include <dos/dostags.h>
  26085. +#include <stdio.h>
  26086. +
  26087. +#ifdef SASC
  26088. +#include <string.h>
  26089. +#include <stdlib.h>
  26090. +#endif
  26091. +
  26092. +#include <proto/dos.h>
  26093. +
  26094. +/*
  26095. +  translates:
  26096. + 
  26097. +  echo "string1;string2" ; cd xx:c ; copy xx yy
  26098. + 
  26099. +      into
  26100. + 
  26101. +  echo "string1;string2" \n cd xx:c \n copy xx yy
  26102. +
  26103. +  note:
  26104. +    this is a really primitive function ;-) , it may be 
  26105. +    changed if necessary
  26106. +
  26107. +*/
  26108. +
  26109. +#define QUOTE    '"'
  26110. +
  26111. +void primitive_parse(char *s)
  26112. +{
  26113. +    int c;
  26114. +
  26115. +    while(c = *s++)
  26116. +    {
  26117. +    if(c == QUOTE)
  26118. +    {
  26119. +        while((c = *s++) && (c != QUOTE))
  26120. +        ;
  26121. +        if(!c)
  26122. +        break;
  26123. +    }
  26124. +    else if(c == ';')
  26125. +        *(s-1) = '\n';
  26126. +    }
  26127. +}
  26128. +
  26129. +int execute(char *cmd, int debug)
  26130. +{
  26131. +    long rc;
  26132. +    char *s;
  26133. +
  26134. +    while (*cmd == ' ') cmd++;
  26135. +    if (strncmp(cmd, "exec", 4) == 0 && (cmd[4] == ' ' || cmd[4] == '\t')) 
  26136. +    cmd += 4;
  26137. +    
  26138. +    s = cmd;
  26139. +    primitive_parse(s);
  26140. +
  26141. +    if(debug)
  26142. +    fprintf(stderr,"/etc/sh: preparsed line:\n%s\n", cmd);
  26143. +
  26144. +    if ((rc = SystemTags(cmd, SYS_UserShell, TRUE, TAG_END)) == -1)
  26145. +    {
  26146. +    fprintf(stderr, "Failed to execute command %s\n", cmd);
  26147. +    return 20;
  26148. +    }
  26149. +    return rc;
  26150. +}
  26151. +
  26152. +void main(int argc, char **argv)
  26153. +{
  26154. +  int command;
  26155. +  char *command_string;
  26156. +  char *program_name = argv[0];
  26157. +  struct RDArgs *args;
  26158. +  long opts[1];
  26159. +  static char options[] = "";
  26160. +  long debug = 0;
  26161. +  char *shenv;
  26162. +
  26163. +  /* Throw out AmigaOS args so that Input() is clean */
  26164. +  if (args = ReadArgs(options, opts, NULL)) FreeArgs(args);
  26165. +
  26166. +  shenv = getenv("EMACS_SH_DEBUG");
  26167. +
  26168. +  if(shenv)
  26169. +      if(strstr(shenv, "-v")) /* external verbose flag */
  26170. +      debug = 1;
  26171. +  
  26172. +  command = 0;
  26173. +  /* Simplistic argument parsing */
  26174. +  argv++;
  26175. +  argc--;
  26176. +  while (argc > 0 && argv[0][0] == '-')
  26177. +    {
  26178. +      switch (argv[0][1])
  26179. +    {
  26180. +    case 'c':
  26181. +      if (argc == 1) goto usage;
  26182. +      command = 1;
  26183. +      command_string = argv[1];
  26184. +      argv++;
  26185. +      argc--;
  26186. +      break;
  26187. +    case 'v':
  26188. +      debug = 1;
  26189. +      break;
  26190. +    case 'i':
  26191. +      /* ignored for now */
  26192. +      break;
  26193. +    default: goto usage;
  26194. +    }
  26195. +      argc--;
  26196. +      argv++;
  26197. +    }
  26198. +  if (argc != 0) goto usage;
  26199. +
  26200. +  if (command) 
  26201. +  {
  26202. +      if(debug)
  26203. +      fprintf(stderr,"%s: command_string = %s\n", argv[0], command_string);
  26204. +      exit(execute(command_string, debug));
  26205. +  }
  26206. +  else exit(Execute("", Input(), NULL) ? 0 : 1);
  26207. +
  26208. + usage:
  26209. +  fprintf(stderr, "%s [-i] [-v] [-c command]\n", program_name);
  26210. +  exit(1);
  26211. +}
  26212. +
  26213. +
  26214. +/*
  26215. + * Local variables:
  26216. + * compile-command: "sc link nostkchk def SASC=1 sh.c"
  26217. + * end:
  26218. + */
  26219. diff -rup --new-file baseline/fsf/emacs18/etc/smakefile amiga/fsf/emacs18/etc/smakefile
  26220. --- baseline/fsf/emacs18/etc/smakefile    Wed Dec 31 17:00:00 1969
  26221. +++ amiga/fsf/emacs18/etc/smakefile    Sat Sep 28 00:00:00 1996
  26222. @@ -0,0 +1,17 @@
  26223. +all: etags sh wakeup make-docfile # env
  26224. +
  26225. +env: amiga-env.c
  26226. +    echo "'sc link to env nostkchk amiga-env.c' should work (but doesn't)."
  26227. +    echo "You're welcome to try ..."
  26228. +
  26229. +make-docfile: make-docfile.c
  26230. +    sc link make-docfile.c
  26231. +
  26232. +sh: sh.c
  26233. +    sc link sh.c
  26234. +
  26235. +wakeup: wakeup.c
  26236. +    sc link wakeup.c
  26237. +
  26238. +etags: etags.c
  26239. +    sc link idir //unix/include def ETAGS etags.c lib //unix/src/unix.lib
  26240. diff -rup --new-file baseline/fsf/emacs18/etc/termcap.amiga amiga/fsf/emacs18/etc/termcap.amiga
  26241. --- baseline/fsf/emacs18/etc/termcap.amiga    Wed Dec 31 17:00:00 1969
  26242. +++ amiga/fsf/emacs18/etc/termcap.amiga    Sat Sep 28 00:00:00 1996
  26243. @@ -0,0 +1,12 @@
  26244. + Amiga termcap by Kent Polk and David Gay
  26245. +AA|amiga|Amiga ANSI:\
  26246. +   :co#80:li#23:am:bs:bw:MT:\
  26247. +   :AL=\E[%dL:DC=\E[%dP:DL=\E[%dM:DO=\E[%dB:IC=\E[%d@:\
  26248. +   :LE=\E[%dD:RI=\E[%dC:SF=\E[%dS:SR=\E[%dT:UP=\E[%dA:\
  26249. +   :ae=\017:al=\E[L:as=\016:bl=\007:bt=\E[Z:cd=\E[J:ce=\E[K:cl=\E[H\E[J:\
  26250. +   :cm=\E[%i%d;%dH:dc=\E[P:dl=\E[M:do=\E[B:ho=\E[H:ic=\E[@:is=\E[20l:\
  26251. +   :k1=\E0~:k2=\E1~:k3=\E2~:k4=\E3~:k5=\E4~:k6=\E5~:k7=\E6~:k8=\E7~:k9=\E8~:\
  26252. +   :k0=\E9~:kb=^H:kd=\EB:kl=\ED:kr=\EC:ku=\EA:le=\E[D:\
  26253. +   :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:\
  26254. +   :rs=\Ec:se=\E[0m:sf=\E[S:so=\E[7m:sr=\E[T:ue=\E[0m:up=\E[A:us=\E[4m:\
  26255. +   :ve=\E[\040p:vi=\E[\060\040p:xn:
  26256. diff -rup --new-file baseline/fsf/emacs18/etc/wakeup.c amiga/fsf/emacs18/etc/wakeup.c
  26257. --- baseline/fsf/emacs18/etc/wakeup.c    Tue Jul 30 14:03:39 1991
  26258. +++ amiga/fsf/emacs18/etc/wakeup.c    Sat Sep 28 00:00:00 1996
  26259. @@ -18,11 +18,17 @@ main (argc, argv)
  26260.  
  26261.    while (1)
  26262.      {
  26263. +#ifdef AMIGA
  26264. +      if (Write(Output(), "Wake up!\n", 9) != 9) exit(0);
  26265. +      chkabort();
  26266. +#define sleep(n) Delay(50 * (n))
  26267. +#else
  26268.        /* Make sure wakeup stops when Emacs goes away.  */
  26269.        if (getppid () == 1)
  26270.      exit (0);
  26271.        printf ("Wake up!\n");
  26272.        fflush (stdout);
  26273. +#endif
  26274.        /* If using a period of 60, produce the output when the minute
  26275.       changes. */
  26276.        if (period == 60)
  26277. diff -rup --new-file baseline/fsf/emacs18/info/texinfo-3 amiga/fsf/emacs18/info/texinfo-3
  26278. --- baseline/fsf/emacs18/info/texinfo-3    Thu Jan 10 15:03:25 1991
  26279. +++ amiga/fsf/emacs18/info/texinfo-3    Sat Sep 28 00:00:00 1996
  26280. @@ -346,11 +346,11 @@ directory.  Currently, it is equivalent 
  26281.  the output.  For example,
  26282.  
  26283.       The @file{.el} files are in 
  26284. -     the @file{/gnu/emacs/lisp} directory.
  26285. +     the @file{/ade/emacs/lisp} directory.
  26286.  
  26287.   produces
  26288.  
  26289. -     The `.el' files are in  the `/gnu/emacs/lisp' directory.
  26290. +     The `.el' files are in  the `/ade/emacs/lisp' directory.
  26291.  
  26292.  
  26293.  
  26294. diff -rup --new-file baseline/fsf/emacs18/lisp/amiga-init.el amiga/fsf/emacs18/lisp/amiga-init.el
  26295. --- baseline/fsf/emacs18/lisp/amiga-init.el    Wed Dec 31 17:00:00 1969
  26296. +++ amiga/fsf/emacs18/lisp/amiga-init.el    Sat Sep 28 00:00:00 1996
  26297. @@ -0,0 +1,206 @@
  26298. +(global-set-key "\C-z" 'amiga-iconify)
  26299. +(setq amiga-map (make-keymap))
  26300. +(global-set-key "\C-x\C-^" amiga-map)
  26301. +
  26302. +(load "amiga-mouse")
  26303. +(load "amiga-menu")
  26304. +
  26305. +(define-key amiga-map "A" 'previous-line)
  26306. +(define-key amiga-map "B" 'next-line)
  26307. +(define-key amiga-map "D" 'backward-char)
  26308. +(define-key amiga-map "C" 'forward-char)
  26309. +(define-key amiga-map "?~" 'info)
  26310. +(define-key amiga-map "T" 'scroll-down)
  26311. +(define-key amiga-map "S" 'scroll-up)
  26312. +(define-key amiga-map " @" 'forward-word)
  26313. +(define-key amiga-map " A" 'backward-word)
  26314. +(define-key amiga-map "\M-A" 'beginning-of-buffer)
  26315. +(define-key amiga-map "\M-B" 'end-of-buffer)
  26316. +(define-key amiga-map "\M-D" 'beginning-of-line)
  26317. +(define-key amiga-map "\M-C" 'end-of-line)
  26318. +(define-key amiga-map "\M- \M-@" 'forward-sexp)
  26319. +(define-key amiga-map "\M- \M-A" 'backward-sexp)
  26320. +(define-key amiga-map "\M-T" 'scroll-down-1)
  26321. +(define-key amiga-map "\M-S" 'scroll-up-1)
  26322. +; Keypad sequences are handled like normal ones
  26323. +(define-key amiga-map "K" 'do-nothing)
  26324. +
  26325. +(defun do-nothing () (interactive))
  26326. +
  26327. +(defun scroll-down-1 ()
  26328. +  "Move up one line on screen"
  26329. +  (interactive)
  26330. +  (scroll-down 1))
  26331. +
  26332. +(defun scroll-up-1 ()
  26333. +  "Move down one line on screen"
  26334. +  (interactive)
  26335. +  (scroll-up 1))
  26336. +
  26337. +;; ARexx stuff
  26338. +
  26339. +;;; This function needs to be re-written to handle rexx returned results.
  26340. +;;;
  26341. +(setq amiga-arexx-processing nil)
  26342. +(setq amiga-arexx-errors nil)
  26343. +
  26344. +(defvar amiga-arexx-failat 5
  26345. +  "Return level from which arexx commands returns cause errors")
  26346. +
  26347. +;;
  26348. +;; process incoming rexx messages
  26349. +;;
  26350. +(defun amiga-arexx-process ()
  26351. +  (interactive)
  26352. +  (if (not amiga-arexx-processing)
  26353. +      (progn
  26354. +    (setq amiga-arexx-processing t)
  26355. +    (condition-case nil ; Avoid blocking of processing in case of bugs
  26356. +        (let (arexxcmd)
  26357. +          (while (setq arexxcmd (amiga-arexx-get-next-msg))
  26358. +        (let ((rc 0) result)
  26359. +          (condition-case err ; detect errors in arexx command
  26360. +              (let ((expr (car (read-from-string arexxcmd))))
  26361. +            (setq result (prin1-to-string (eval expr))))
  26362. +            (error (progn
  26363. +                 (setq rc 20)
  26364. +                 (setq result (prin1-to-string err)))))
  26365. +          (amiga-arexx-reply rc result))))
  26366. +      (error nil))
  26367. +    (setq amiga-arexx-processing nil))))
  26368. +
  26369. +(defun amiga-arexx-wait-command (id)
  26370. +  "Waits for a pending ARexx commands (MSGID) to complete.
  26371. +Also processes any pending ARexx requests during this interval.
  26372. +returns the result list associated with this id, which takes the
  26373. +form: (msgid result-code error-or-string)
  26374. +``error-or-string'' depends on ``result-code''.
  26375. +if ``result-code'' is 0 the command finished successfully and
  26376. +``error-or-string'' will be a string or nil, otherwise the command
  26377. +returned with an error and ``error-or-string'' will be an interger
  26378. +that is the secondary error code of the arexx command."
  26379. +  (amiga-arexx-process)
  26380. +  (while (not (amiga-arexx-check-command id))
  26381. +    (amiga-arexx-wait)
  26382. +    (amiga-arexx-process))
  26383. +  (amiga-arexx-get-msg-results id))
  26384. +
  26385. +(defconst amiga-arexx-error-messages
  26386. +["No cause"
  26387. +"Program not found"
  26388. +"Execution halted"
  26389. +"Insufficient memory"
  26390. +"Invalid character"
  26391. +"Unmatched quote"
  26392. +"Unterminated comment"
  26393. +"Clause too long"
  26394. +"Invalid token"
  26395. +"Symbol or string too long"
  26396. +"Invalid message packet"
  26397. +"Command string error"
  26398. +"Error return from function"
  26399. +"Host environment not found"
  26400. +"Requested library not found"
  26401. +"Function not found"
  26402. +"Function did not return value"
  26403. +"Wrong number of arguments"
  26404. +"Invalid argument to function"
  26405. +"Invalid PROCEDURE"
  26406. +"Unexpected THEN or WHEN"
  26407. +"Unexpected ELSE or OTHERWISE"
  26408. +"Unexpected BREAK, LEAVE or ITERATE"
  26409. +"Invalid statement in SELECT"
  26410. +"Missing or multiple THEN"
  26411. +"Missing OTHERWISE"
  26412. +"Missing or unexpected END"
  26413. +"Symbol mismatch"
  26414. +"Invalid DO syntax"
  26415. +"Incomplete IF or SELECT"
  26416. +"Label not found"
  26417. +"Symbol expected"
  26418. +"Symbol or string expected"
  26419. +"Invalid keyword"
  26420. +"Required keyword missing"
  26421. +"Extraneous characters"
  26422. +"Keyword conflict"
  26423. +"Invalid template"
  26424. +"Invalid TRACE request"
  26425. +"Unitialized variable"
  26426. +"Invalid variable name"
  26427. +"Invalid expression"
  26428. +"Unbalanced parentheses"
  26429. +"Nesting limit exceeded"
  26430. +"Invalid expression result"
  26431. +"Expression required"
  26432. +"Boolean value not 0 or 1"
  26433. +"Arithmetic conversion error"
  26434. +"Invalid operand"
  26435. +]
  26436. +"The arexx error messages, sorted by number")
  26437. +
  26438. +(defun amiga-arexx-do-command (str as-file)
  26439. +  "Sends ARexx command STR (like amiga-arexx-send-command).
  26440. +If AS-FILE is true, STR is an arexx command, otherwise it is a file name.
  26441. +Waits for the command to return.  If the arexx command fails an error will
  26442. +be caused.
  26443. +
  26444. +If you would like to get result strings and errors (ie. not cause
  26445. +a lisp error) use: (amiga-arexx-do-command-with-results)"
  26446. +  (interactive "sARexx command:
  26447. +P")
  26448. +  (let ((id (amiga-arexx-send-command str as-file)))
  26449. +    (if (not id)
  26450. +    (error "Failed to send arexx command.")
  26451. +      (let ((reslist (amiga-arexx-wait-command id)))
  26452. +    (let ((rc (nth 1 reslist)) (second (nth 2 reslist)))
  26453. +      (if (> rc 0)
  26454. +          (progn            ; error
  26455. +        (let ((error-message
  26456. +               (if (< second (length amiga-arexx-error-messages))
  26457. +             (aref amiga-arexx-error-messages second)
  26458. +             (format nil "Unknown error %d" second))))
  26459. +          (error "Arexx command failed, level %d, cause %s" rc error-message))
  26460. +        reslist)
  26461. +      second))))))
  26462. +
  26463. +(defun amiga-arexx-do-command-with-results (str as-file)
  26464. +  "Sends ARexx command STR (like amiga-arexx-do-command).
  26465. +If AS-FILE is true, STR is an arexx command, otherwise it is a file name.
  26466. +Waits for the command to return.
  26467. +
  26468. +The return value is one of three things:
  26469. + - the command executed succesfully: nil or a result string.
  26470. + - the command failed: a list of the form (RC ERROR-CODE)
  26471. +   where RC is the severity and ERROR-CODE is the secondary error."
  26472. +  (interactive "sARexx command:
  26473. +P")
  26474. +  (let ((id (amiga-arexx-send-command str as-file)))
  26475. +    (if (not id)
  26476. +    (error "Failed to send arexx command.")
  26477. +      (let ((reslist (amiga-arexx-wait-command id)))
  26478. +    (let ((rc (nth 1 reslist)) (second (nth 2 reslist)))
  26479. +      (if (and rc (> rc 0))
  26480. +          (list rc second)
  26481. +        second))))))
  26482. +
  26483. +(define-key amiga-map "X" 'amiga-arexx-process)
  26484. +(setq amiga-arexx-initialized t) ;; ARexx commands can now be processed.
  26485. +
  26486. +(defun amiga-wb-process ()
  26487. +  "Process all pending workbench events, ie load all files requested"
  26488. +  (interactive)
  26489. +  (let (file)
  26490. +    (condition-case nil
  26491. +    (while (setq file (amiga-get-wb-event t))
  26492. +      (condition-case nil
  26493. +          (find-file file)
  26494. +        (error nil)))
  26495. +      (error nil))))
  26496. +
  26497. +(define-key amiga-map "W" 'amiga-wb-process)
  26498. +(setq amiga-wb-initialized t) ;; WB events can now be processed.
  26499. +
  26500. +(setq completion-ignore-case t)
  26501. +;; Default is no numbered versions on Amiga, because directory searches are too
  26502. +;; slow.
  26503. +(setq version-control 'never)
  26504. Binary files baseline/fsf/emacs18/lisp/amiga-init.elc and amiga/fsf/emacs18/lisp/amiga-init.elc differ
  26505. diff -rup --new-file baseline/fsf/emacs18/lisp/amiga-menu.el amiga/fsf/emacs18/lisp/amiga-menu.el
  26506. --- baseline/fsf/emacs18/lisp/amiga-menu.el    Wed Dec 31 17:00:00 1969
  26507. +++ amiga/fsf/emacs18/lisp/amiga-menu.el    Sat Sep 28 00:00:00 1996
  26508. @@ -0,0 +1,135 @@
  26509. +;(provide 'amiga-menu)
  26510. +
  26511. +(defconst amiga-menu-pick (char-to-string 3))
  26512. +(defconst amiga-menu-help (char-to-string 7))
  26513. +
  26514. +(defvar amiga-menus-description nil
  26515. +  "Variable containing the menus setup for Emacs")
  26516. +
  26517. +(defun amiga-menus-set (menus)
  26518. +  "Setup menus for emacs (parameter as for amiga-menus)"
  26519. +  (define-key mouse-map amiga-menu-pick 'amiga-menus-dispatch)
  26520. +  (define-key mouse-map amiga-menu-help 'amiga-menus-help)
  26521. +  (setq amiga-menus-description menus)
  26522. +  (amiga-menus menus))
  26523. +
  26524. +(defun amiga-menus-dispatch (selection)
  26525. +  (let* ((menu (car selection))
  26526. +     (item (cadr selection))
  26527. +     (code (cadr (nth item (cadr (nth menu amiga-menus-description))))))
  26528. +    (if (and (listp code) (eq (car code) 'call-interactively)
  26529. +         (listp (cadr code)) (eq (car (cadr code)) 'quote))
  26530. +    (setq this-command (cadr (cadr code))))
  26531. +    (eval code)))
  26532. +
  26533. +(defun amiga-menus-help (selection)
  26534. +  (let* ((menu (car selection))
  26535. +     (item (cadr selection))
  26536. +     (cmd (cadr (nth item (cadr (nth menu amiga-menus-description))))))
  26537. +    (if (and (listp cmd) (eq (car cmd) 'call-interactively)
  26538. +         (listp (car (cdr cmd))) (eq (car (car (cdr cmd))) 'quote))
  26539. +    (describe-function (car (cdr (car (cdr cmd)))))
  26540. +    (error "Don't know how to describe %s" cmd))))
  26541. +
  26542. +(defun make-explicit-string (str)
  26543. +  (if (and (>= (length str) 2) (= (elt str 0) 27) (< (elt str 1) 128))
  26544. +      (key-description (concat (char-to-string (+ 128 (elt str 1)))
  26545. +                   (substring str 2)))
  26546. +      (key-description str)))
  26547. +
  26548. +(defun make-command-name (command str width)
  26549. +  (let ((keys (where-is-internal command nil t))
  26550. +    (string (if str str (symbol-name command))))
  26551. +    (if keys
  26552. +    (format (if width (format "%%-%ds%%s" (+ width 2)) "%s (%s)")
  26553. +        string (make-explicit-string keys))
  26554. +    string)))
  26555. +
  26556. +(defun menu-items (commands proportional)
  26557. +  (let* ((width (if proportional nil 0))
  26558. +     (names (mapcar
  26559. +         (function (lambda (cmd)
  26560. +                 (if cmd
  26561. +                 (let* ((name (if (symbolp cmd)
  26562. +                          (symbol-name cmd)
  26563. +                          (car cmd)))
  26564. +                    (len (length name)))
  26565. +                   (if (and (not proportional) (> len width))
  26566. +                       (setq width len))
  26567. +                   name))))
  26568. +         commands)))
  26569. +    (mapcar
  26570. +     (function (lambda (cmd)
  26571. +         (let ((name (car names)))
  26572. +           (setq names (cdr names))
  26573. +           (if cmd
  26574. +               (let ((command (if (symbolp cmd) cmd (cadr cmd))))
  26575. +             (list (make-command-name command name width)
  26576. +                   (list 'call-interactively (list 'quote command))
  26577. +                   (caddr cmd)))))))
  26578. +     commands)))
  26579. +
  26580. +(defun convert-menu-buffer (proportional)
  26581. +  "Convert the current buffer into a loadable menu file for emacs.\n\
  26582. +If PROPORTIONAL is true (or if a prefix arg is given), assume menu is in a \n\
  26583. +proportional font & present it differently."
  26584. +  (interactive "P")
  26585. +  (save-buffer)
  26586. +  (widen)
  26587. +  (goto-char 1)
  26588. +  (let ((menu-spec (reverse (read (current-buffer))))
  26589. +    menu-code)
  26590. +    (while menu-spec
  26591. +      (let ((menu-item (car menu-spec)))
  26592. +    (setq menu-code
  26593. +          (cons (list (car menu-item)
  26594. +              (menu-items (cdr menu-item) proportional))
  26595. +            menu-code))
  26596. +    (setq menu-spec (cdr menu-spec))))
  26597. +    (let ((new-buf
  26598. +       (find-file (concat
  26599. +               (substring (buffer-file-name) 0
  26600. +                  (string-match "\\.menu$" (buffer-file-name)))
  26601. +               ".el"))))
  26602. +      (erase-buffer)
  26603. +      (prin1 (list 'amiga-menus-set (list 'quote menu-code)) (current-buffer))
  26604. +      (beginning-of-buffer))))
  26605. +
  26606. +(defvar menu-mode-syntax-table nil
  26607. +  "Syntax table used while in menu mode.")
  26608. +
  26609. +(defvar menu-mode-abbrev-table nil
  26610. +  "Abbrev table used while in menu mode.")
  26611. +(define-abbrev-table 'menu-mode-abbrev-table ())
  26612. +
  26613. +(if menu-mode-syntax-table
  26614. +    ()
  26615. +  (setq menu-mode-syntax-table (make-syntax-table))
  26616. +  (modify-syntax-entry ?' "w   " menu-mode-syntax-table))
  26617. +
  26618. +(defvar menu-mode-map ())
  26619. +(if menu-mode-map
  26620. +    ()
  26621. +  (setq menu-mode-map (make-sparse-keymap))
  26622. +  (define-key menu-mode-map "\t" 'indent-relative)
  26623. +  (define-key menu-mode-map "\C-c\C-c" 'convert-menu-buffer))
  26624. +
  26625. +(defun menu-mode ()
  26626. +  "Major mode for editing menus intended for humans to read.
  26627. +Indentation works like in indented-text-mode. This could be improved.\\{menu-mode-map}
  26628. +Turning on menu-mode calls the value of the variable menu-mode-hook,
  26629. +if that value is non-nil."
  26630. +  (interactive)
  26631. +  (kill-all-local-variables)
  26632. +  (use-local-map menu-mode-map)
  26633. +  (define-abbrev-table 'menu-mode-abbrev-table ())
  26634. +  (setq local-abbrev-table menu-mode-abbrev-table)
  26635. +  (set-syntax-table menu-mode-syntax-table)
  26636. +  (make-local-variable 'indent-line-function)
  26637. +  (setq indent-line-function 'indent-relative-maybe)
  26638. +  (use-local-map menu-mode-map)
  26639. +  (setq mode-name "Menu")
  26640. +  (setq major-mode 'menu-mode)
  26641. +  (run-hooks 'menu-mode-hook))
  26642. +
  26643. +(setq auto-mode-alist (cons '("\\.menu$" . menu-mode) auto-mode-alist))
  26644. Binary files baseline/fsf/emacs18/lisp/amiga-menu.elc and amiga/fsf/emacs18/lisp/amiga-menu.elc differ
  26645. diff -rup --new-file baseline/fsf/emacs18/lisp/amiga-mouse.el amiga/fsf/emacs18/lisp/amiga-mouse.el
  26646. --- baseline/fsf/emacs18/lisp/amiga-mouse.el    Wed Dec 31 17:00:00 1969
  26647. +++ amiga/fsf/emacs18/lisp/amiga-mouse.el    Sat Sep 28 00:00:00 1996
  26648. @@ -0,0 +1,276 @@
  26649. +;; Mouse support for Amiga Intuition window system.
  26650. +;; Copyright (C) 1985, 1987 Free Software Foundation, Inc.
  26651. +
  26652. +;; This file is part of GNU Emacs.
  26653. +
  26654. +;; GNU Emacs is distributed in the hope that it will be useful,
  26655. +;; but WITHOUT ANY WARRANTY.  No author or distributor
  26656. +;; accepts responsibility to anyone for the consequences of using it
  26657. +;; or for whether it serves any particular purpose or works at all,
  26658. +;; unless he says so in writing.  Refer to the GNU Emacs General Public
  26659. +;; License for full details.
  26660. +
  26661. +;; Everyone is granted permission to copy, modify and redistribute
  26662. +;; GNU Emacs, but only under the conditions described in the
  26663. +;; GNU Emacs General Public License.   A copy of this license is
  26664. +;; supposed to have been given to you along with GNU Emacs so you
  26665. +;; can know your rights and responsibilities.  It should be in a
  26666. +;; file named COPYING.  Among other things, the copyright notice
  26667. +;; and this notice must be preserved on all copies.
  26668. +
  26669. +(provide 'amiga-mouse)
  26670. +
  26671. +(defconst amiga-button-right (char-to-string 0))
  26672. +(defconst amiga-button-middle (char-to-string 1))
  26673. +(defconst amiga-button-left (char-to-string 2))
  26674. +
  26675. +(defconst amiga-button-right-up (char-to-string 4))
  26676. +(defconst amiga-button-middle-up (char-to-string 5))
  26677. +(defconst amiga-button-left-up (char-to-string 6))
  26678. +
  26679. +(defconst amiga-button-s-right (char-to-string 16))
  26680. +(defconst amiga-button-s-middle (char-to-string 17))
  26681. +(defconst amiga-button-s-left (char-to-string 18))
  26682. +
  26683. +(defconst amiga-button-s-right-up (char-to-string 20))
  26684. +(defconst amiga-button-s-middle-up (char-to-string 21))
  26685. +(defconst amiga-button-s-left-up (char-to-string 22))
  26686. +
  26687. +(defconst amiga-button-m-right (char-to-string 32))
  26688. +(defconst amiga-button-m-middle (char-to-string 33))
  26689. +(defconst amiga-button-m-left (char-to-string 34))
  26690. +
  26691. +(defconst amiga-button-m-right-up (char-to-string 36))
  26692. +(defconst amiga-button-m-middle-up (char-to-string 37))
  26693. +(defconst amiga-button-m-left-up (char-to-string 38))
  26694. +
  26695. +(defconst amiga-button-c-right (char-to-string 64))
  26696. +(defconst amiga-button-c-middle (char-to-string 65))
  26697. +(defconst amiga-button-c-left (char-to-string 66))
  26698. +
  26699. +(defconst amiga-button-c-right-up (char-to-string 68))
  26700. +(defconst amiga-button-c-middle-up (char-to-string 69))
  26701. +(defconst amiga-button-c-left-up (char-to-string 70))
  26702. +
  26703. +(defconst amiga-button-m-s-right (char-to-string 48))
  26704. +(defconst amiga-button-m-s-middle (char-to-string 49))
  26705. +(defconst amiga-button-m-s-left (char-to-string 50))
  26706. +
  26707. +(defconst amiga-button-m-s-right-up (char-to-string 52))
  26708. +(defconst amiga-button-m-s-middle-up (char-to-string 53))
  26709. +(defconst amiga-button-m-s-left-up (char-to-string 54))
  26710. +
  26711. +(defconst amiga-button-c-s-right (char-to-string 80))
  26712. +(defconst amiga-button-c-s-middle (char-to-string 81))
  26713. +(defconst amiga-button-c-s-left (char-to-string 82))
  26714. +
  26715. +(defconst amiga-button-c-s-right-up (char-to-string 84))
  26716. +(defconst amiga-button-c-s-middle-up (char-to-string 85))
  26717. +(defconst amiga-button-c-s-left-up (char-to-string 86))
  26718. +
  26719. +(defconst amiga-button-c-m-right (char-to-string 96))
  26720. +(defconst amiga-button-c-m-middle (char-to-string 97))
  26721. +(defconst amiga-button-c-m-left (char-to-string 98))
  26722. +
  26723. +(defconst amiga-button-c-m-right-up (char-to-string 100))
  26724. +(defconst amiga-button-c-m-middle-up (char-to-string 101))
  26725. +(defconst amiga-button-c-m-left-up (char-to-string 102))
  26726. +
  26727. +(defconst amiga-button-c-m-s-right (char-to-string 112))
  26728. +(defconst amiga-button-c-m-s-middle (char-to-string 113))
  26729. +(defconst amiga-button-c-m-s-left (char-to-string 114))
  26730. +
  26731. +(defconst amiga-button-c-m-s-right-up (char-to-string 116))
  26732. +(defconst amiga-button-c-m-s-middle-up (char-to-string 117))
  26733. +(defconst amiga-button-c-m-s-left-up (char-to-string 118))
  26734. +
  26735. +(defmacro cadr (x) (list 'car (list 'cdr x)))
  26736. +(defmacro caddr (x) (list 'car (list 'cdr (list 'cdr x))))
  26737. +(defmacro cadddr (x) (list 'car (list 'cdr (list 'cdr (list 'cdr x)))))
  26738. +
  26739. +(defun coordinates-in-window-p (arg w)
  26740. +  (let ((x (car arg))
  26741. +    (y (cadr arg))
  26742. +    (edges (window-edges w)))
  26743. +    (and (>= x (car edges)) (< x (caddr edges))
  26744. +     (>= y (cadr edges)) (< y (cadddr edges))
  26745. +     (list (- x (car edges)) (- y (cadr edges))))))
  26746. +
  26747. +(defvar amiga-process-mouse-hook nil
  26748. +  "Hook to run after each mouse event is processed.  Should take two
  26749. +arguments; the first being a list (XPOS YPOS) corresponding to character
  26750. +offset from top left of screen and the second being a specifier for the
  26751. +buttons/keys.
  26752. +
  26753. +This will normally be set on a per-buffer basis.")
  26754. +
  26755. +(defun amiga-flush-mouse-queue () 
  26756. +  "Process all queued mouse events."
  26757. +  ;; A mouse event causes a special character sequence to be given
  26758. +  ;; as keyboard input.  That runs this function, which process all
  26759. +  ;; queued mouse events and returns.
  26760. +  (interactive)
  26761. +  (while (> (amiga-mouse-events) 0)
  26762. +    (amiga-proc-mouse-event)
  26763. +    (and (boundp 'amiga-process-mouse-hook)
  26764. +     (symbol-value 'amiga-process-mouse-hook)
  26765. +     (funcall amiga-process-mouse-hook amiga-mouse-pos amiga-mouse-item))))
  26766. +
  26767. +(defun amiga-mouse-select (arg)
  26768. +  "Select Emacs window the mouse is on."
  26769. +  (let ((start-w (selected-window))
  26770. +    (done nil)
  26771. +    (w (selected-window))
  26772. +    (rel-coordinate nil))
  26773. +    (if (eq start-w (minibuffer-window))
  26774. +    (setq rel-coordinate (coordinates-in-window-p arg w))
  26775. +    (while (and (not done)
  26776. +            (null (setq rel-coordinate
  26777. +                (coordinates-in-window-p arg w))))
  26778. +      (setq w (next-window w))
  26779. +      (if (eq w start-w)
  26780. +          (setq done t))))
  26781. +    (select-window w)
  26782. +    rel-coordinate))
  26783. +
  26784. +(defun amiga-mouse-keep-one-window (arg)
  26785. +  "Select Emacs window mouse is on, then kill all other Emacs windows."
  26786. +  (if (amiga-mouse-select arg)
  26787. +      (delete-other-windows)))
  26788. +
  26789. +(defun amiga-mouse-select-and-split (arg)
  26790. +  "Select Emacs window mouse is on, then split it vertically in half."
  26791. +  (if (amiga-mouse-select arg)
  26792. +      (split-window-vertically nil)))
  26793. +
  26794. +
  26795. +(defun amiga-mouse-set-point (arg)
  26796. +  "Select Emacs window mouse is on, and move point to mouse position."
  26797. +  (let* ((relative-coordinate (amiga-mouse-select arg))
  26798. +     margin-column
  26799. +     (rel-x (car relative-coordinate))
  26800. +     (rel-y (car (cdr relative-coordinate))))
  26801. +    (if relative-coordinate
  26802. +    (let ((prompt-width (if (eq (selected-window) (minibuffer-window))
  26803. +                minibuffer-prompt-width 0)))
  26804. +      (move-to-window-line rel-y)
  26805. +      (setq margin-column
  26806. +        (if (or truncate-lines (> (window-hscroll) 0))
  26807. +            (current-column)
  26808. +          ;; If we are using line continuation,
  26809. +          ;; compensate if first character on a continuation line
  26810. +          ;; does not start precisely at the margin.
  26811. +          (- (current-column)
  26812. +             (% (current-column) (1- (window-width))))))
  26813. +      (move-to-column (+ rel-x (1- (max 1 (window-hscroll)))
  26814. +                 (if (= (point) 1)
  26815. +                 (- prompt-width) 0)
  26816. +                 margin-column))))))
  26817. +
  26818. +(defun amiga-mouse-set-mark (arg)
  26819. +  "Select Emacs window mouse is on, and set mark at mouse position.
  26820. +Display cursor at that position for a second."
  26821. +  (if (amiga-mouse-select arg)
  26822. +      (let ((point-save (point)))
  26823. +    (unwind-protect
  26824. +        (progn (amiga-mouse-set-point arg)
  26825. +           (push-mark nil t)
  26826. +           (sit-for 1))
  26827. +      (goto-char point-save)))))
  26828. +
  26829. +(defun amiga-mouse-cut (arg)
  26830. +  "Select Emacs window mouse is on, and set mark at mouse position. 
  26831. +Display cursor at that position for a second. Then cut."
  26832. +  (if (amiga-mouse-select arg)
  26833. +      (let ((point-save (point)))
  26834. +    (unwind-protect
  26835. +        (progn (amiga-mouse-set-point arg)
  26836. +           (push-mark nil t)
  26837. +           (kill-region point-save (point))
  26838. +           (sit-for 1))
  26839. +      (goto-char point-save)))))
  26840. +
  26841. +(defun amiga-mouse-copy (arg)
  26842. +  "Select Emacs window mouse is on, and set mark at mouse position. 
  26843. +Display cursor at that position for a second. Then copy."
  26844. +  (if (amiga-mouse-select arg)
  26845. +      (let ((point-save (point)))
  26846. +    (unwind-protect
  26847. +        (progn (amiga-mouse-set-point arg)
  26848. +           (push-mark nil t)
  26849. +           (copy-region-as-kill point-save (point))
  26850. +           (sit-for 1))
  26851. +      (goto-char point-save)))))
  26852. +
  26853. +(defun amiga-mouse-paste (arg)
  26854. +  "Move point to mouse position (and select window), then paste."
  26855. +  (if (amiga-mouse-select arg)
  26856. +      (progn
  26857. +    (amiga-mouse-set-point arg)
  26858. +    (yank))))
  26859. +
  26860. +(defun amiga-mouse-iconify (arg) (amiga-iconify))
  26861. +
  26862. +(defun amiga-mouse-ignore (arg)
  26863. +  "Don't do anything.")
  26864. +
  26865. +; Prevent beeps. on button-up.  If the button isn't bound to anything, it
  26866. +(define-key mouse-map amiga-button-right 'amiga-mouse-ignore)
  26867. +(define-key mouse-map amiga-button-middle 'amiga-mouse-ignore)
  26868. +(define-key mouse-map amiga-button-left 'amiga-mouse-ignore)
  26869. +(define-key mouse-map amiga-button-right-up 'amiga-mouse-ignore)
  26870. +(define-key mouse-map amiga-button-middle-up 'amiga-mouse-ignore)
  26871. +(define-key mouse-map amiga-button-left-up 'amiga-mouse-ignore)
  26872. +(define-key mouse-map amiga-button-s-right 'amiga-mouse-ignore)
  26873. +(define-key mouse-map amiga-button-s-middle 'amiga-mouse-ignore)
  26874. +(define-key mouse-map amiga-button-s-left 'amiga-mouse-ignore)
  26875. +(define-key mouse-map amiga-button-s-right-up 'amiga-mouse-ignore)
  26876. +(define-key mouse-map amiga-button-s-middle-up 'amiga-mouse-ignore)
  26877. +(define-key mouse-map amiga-button-s-left-up 'amiga-mouse-ignore)
  26878. +(define-key mouse-map amiga-button-m-right 'amiga-mouse-ignore)
  26879. +(define-key mouse-map amiga-button-m-middle 'amiga-mouse-ignore)
  26880. +(define-key mouse-map amiga-button-m-left 'amiga-mouse-ignore)
  26881. +(define-key mouse-map amiga-button-m-right-up 'amiga-mouse-ignore)
  26882. +(define-key mouse-map amiga-button-m-middle-up 'amiga-mouse-ignore)
  26883. +(define-key mouse-map amiga-button-m-left-up 'amiga-mouse-ignore)
  26884. +(define-key mouse-map amiga-button-c-right 'amiga-mouse-ignore)
  26885. +(define-key mouse-map amiga-button-c-middle 'amiga-mouse-ignore)
  26886. +(define-key mouse-map amiga-button-c-left 'amiga-mouse-ignore)
  26887. +(define-key mouse-map amiga-button-c-right-up 'amiga-mouse-ignore)
  26888. +(define-key mouse-map amiga-button-c-middle-up 'amiga-mouse-ignore)
  26889. +(define-key mouse-map amiga-button-c-left-up 'amiga-mouse-ignore)
  26890. +(define-key mouse-map amiga-button-m-s-right 'amiga-mouse-ignore)
  26891. +(define-key mouse-map amiga-button-m-s-middle 'amiga-mouse-ignore)
  26892. +(define-key mouse-map amiga-button-m-s-left 'amiga-mouse-ignore)
  26893. +(define-key mouse-map amiga-button-m-s-right-up 'amiga-mouse-ignore)
  26894. +(define-key mouse-map amiga-button-m-s-middle-up 'amiga-mouse-ignore)
  26895. +(define-key mouse-map amiga-button-m-s-left-up 'amiga-mouse-ignore)
  26896. +(define-key mouse-map amiga-button-c-s-right 'amiga-mouse-ignore)
  26897. +(define-key mouse-map amiga-button-c-s-middle 'amiga-mouse-ignore)
  26898. +(define-key mouse-map amiga-button-c-s-left 'amiga-mouse-ignore)
  26899. +(define-key mouse-map amiga-button-c-s-right-up 'amiga-mouse-ignore)
  26900. +(define-key mouse-map amiga-button-c-s-middle-up 'amiga-mouse-ignore)
  26901. +(define-key mouse-map amiga-button-c-s-left-up 'amiga-mouse-ignore)
  26902. +(define-key mouse-map amiga-button-c-m-right 'amiga-mouse-ignore)
  26903. +(define-key mouse-map amiga-button-c-m-middle 'amiga-mouse-ignore)
  26904. +(define-key mouse-map amiga-button-c-m-left 'amiga-mouse-ignore)
  26905. +(define-key mouse-map amiga-button-c-m-right-up 'amiga-mouse-ignore)
  26906. +(define-key mouse-map amiga-button-c-m-middle-up 'amiga-mouse-ignore)
  26907. +(define-key mouse-map amiga-button-c-m-left-up 'amiga-mouse-ignore)
  26908. +(define-key mouse-map amiga-button-c-m-s-right 'amiga-mouse-ignore)
  26909. +(define-key mouse-map amiga-button-c-m-s-middle 'amiga-mouse-ignore)
  26910. +(define-key mouse-map amiga-button-c-m-s-left 'amiga-mouse-ignore)
  26911. +(define-key mouse-map amiga-button-c-m-s-right-up 'amiga-mouse-ignore)
  26912. +(define-key mouse-map amiga-button-c-m-s-middle-up 'amiga-mouse-ignore)
  26913. +(define-key mouse-map amiga-button-c-m-s-left-up 'amiga-mouse-ignore)
  26914. +
  26915. +; Define a few events
  26916. +(define-key mouse-map amiga-button-left 'amiga-mouse-set-point)
  26917. +(define-key mouse-map amiga-button-s-left 'amiga-mouse-set-mark)
  26918. +(define-key mouse-map amiga-button-c-left 'amiga-mouse-cut)
  26919. +(define-key mouse-map amiga-button-m-left 'amiga-mouse-copy)
  26920. +(define-key mouse-map amiga-button-middle 'amiga-mouse-paste)
  26921. +(define-key mouse-map amiga-button-s-middle 'amiga-mouse-iconify)
  26922. +
  26923. +(define-key amiga-map "M" 'amiga-flush-mouse-queue)
  26924. +(setq amiga-mouse-initialized t)  ;; Mouse commands can now be processed.
  26925. Binary files baseline/fsf/emacs18/lisp/amiga-mouse.elc and amiga/fsf/emacs18/lisp/amiga-mouse.elc differ
  26926. diff -rup --new-file baseline/fsf/emacs18/lisp/compile.el amiga/fsf/emacs18/lisp/compile.el
  26927. --- baseline/fsf/emacs18/lisp/compile.el    Fri Aug 14 15:53:00 1992
  26928. +++ amiga/fsf/emacs18/lisp/compile.el    Sat Sep 28 00:00:00 1996
  26929. @@ -43,7 +43,7 @@ the next time the list of errors is want
  26930.  ;; The filename excludes colons to avoid confusion when error message
  26931.  ;; starts with digits.
  26932.  (defvar compilation-error-regexp
  26933. -  "\\([^ :\n]+\\(: *\\|, line \\|(\\)[0-9]+\\)\\|\\([0-9]+ *of *[^ \n]+\\)"
  26934. +  "^\\([^ :\e]+\\([ :] *\\|, line \\|(\\)[0-9]+\\)\\|\\([0-9]+ *of *[^ \n]+\\)"
  26935.    "Regular expression for filename/linenumber in error in compilation log.")
  26936.  
  26937.  (defun compile (command)
  26938. @@ -61,7 +61,8 @@ and move to the source code that caused 
  26939.  While grep runs asynchronously, you can use the \\[next-error] command
  26940.  to find the text that grep hits refer to."
  26941.    (interactive "sRun grep (with args): ")
  26942. -  (compile1 (concat "grep -n " command " /dev/null")
  26943. +  (compile1 (concat "grep -n " command (if (eq system-type 'amigaos) " nil:"
  26944. +                     " /dev/null"))
  26945.          "No more grep hits" "grep"))
  26946.  
  26947.  (defun compile1 (command error-message &optional name-of-mode)
  26948. @@ -195,7 +196,13 @@ means reparse the error message buffer a
  26949.      (let* ((pop-up-windows t)
  26950.         (w (display-buffer (marker-buffer (car next-error)))))
  26951.        (set-window-point w (car next-error))
  26952. -      (set-window-start w (car next-error)))
  26953. +      (if compilation-parse-sasc
  26954. +      (let ((thiswin (selected-window)))
  26955. +        (select-window w)
  26956. +        (vertical-motion -1)
  26957. +        (set-window-start w (point))
  26958. +        (select-window thiswin))
  26959. +    (set-window-start w (car next-error))))
  26960.      (set-marker (car next-error) nil)))
  26961.  
  26962.  ;; Set compilation-error-list to nil, and
  26963. @@ -222,6 +229,8 @@ The function next-error, assigned to \\[
  26964.  and visits its location."
  26965.    (setq compilation-error-list nil)
  26966.    (message "Parsing error messages...")
  26967. +  (goto-char (point-min))
  26968. +  (setq compilation-parse-sasc (search-forward "SAS/C" nil t))
  26969.    (let (text-buffer
  26970.      last-filename last-linenum)
  26971.      ;; Don't reparse messages already seen at last parse.
  26972. Binary files baseline/fsf/emacs18/lisp/compile.elc and amiga/fsf/emacs18/lisp/compile.elc differ
  26973. diff -rup --new-file baseline/fsf/emacs18/lisp/files.el amiga/fsf/emacs18/lisp/files.el
  26974. --- baseline/fsf/emacs18/lisp/files.el    Sun Oct 11 15:27:38 1992
  26975. +++ amiga/fsf/emacs18/lisp/files.el    Sat Sep 28 00:00:00 1996
  26976. @@ -141,6 +141,16 @@ This applies when the local-variables li
  26977.  after you find a file.  If you explicitly request such a scan with
  26978.  \\[normal-mode], there is no query, regardless of this variable.")
  26979.  
  26980. +(defconst backup-char (if (eq system-type 'amigaos) "!" "~")
  26981. +  "Character to add to file names to make backup names.")
  26982. +
  26983. +(defconst autosave-char (if (eq system-type 'amigaos) "@" "#")
  26984. +  "Character to add to file names to make autosave names.")
  26985. +
  26986. +(defconst bufferfile-char (if (eq system-type 'amigaos) "^" "%")
  26987. +  "Character to add to buffer names to make file names.")
  26988. +
  26989. +
  26990.  ;; Avoid losing in versions where CLASH_DETECTION is disabled.
  26991.  (or (fboundp 'lock-buffer)
  26992.      (fset 'lock-buffer 'ignore))
  26993. @@ -380,7 +390,8 @@ for the \"mode:\" local variable.  For t
  26994.        (funcall (intern (concat (downcase mode) "-mode")))
  26995.      (let ((alist auto-mode-alist)
  26996.            (name buffer-file-name))
  26997. -      (let ((case-fold-search (eq system-type 'vax-vms)))
  26998. +      (let ((case-fold-search (or (eq system-type 'amigaos)
  26999. +                      (eq system-type 'vax-vms))))
  27000.          ;; Remove backup-suffixes from file name.
  27001.          (setq name (file-name-sans-versions name))
  27002.          ;; Find first matching alist entry.
  27003. @@ -559,8 +570,11 @@ of the new file to agree with the old mo
  27004.          (setq setmodes (file-modes backupname)))
  27005.          (file-error
  27006.           ;; If trouble writing the backup, write it in ~.
  27007. -         (setq backupname (expand-file-name "~/%backup%~"))
  27008. -         (message "Cannot write backup file; backing up in ~/%%backup%%~")
  27009. +         (setq backupname
  27010. +           (expand-file-name (concat "~/" bufferfile-char "backup"
  27011. +                         bufferfile-char backup-char)))
  27012. +         (message "Cannot write backup file; backing up in ~/%sbackup%s%s"
  27013. +              bufferfile-char bufferfile-char backup-char)
  27014.           (sleep-for 1)
  27015.           (condition-case ()
  27016.           (delete-file backupname)
  27017. @@ -588,18 +602,19 @@ redefine it."
  27018.           (or (string-match ";[0-9]*\\'" name)
  27019.               (and (string-match "\\." name (string-match "[]>]" name))
  27020.                (string-match "\\.[0-9]*\\'" name (match-end 0))))
  27021. -           (string-match "\\(\\.~[0-9]+\\)?~\\'" name))))
  27022. +           (string-match (concat "\\(\\." backup-char "[0-9]+\\)?"
  27023. +                     backup-char "\\'") name))))
  27024.  
  27025.  (defun make-backup-file-name (file)
  27026.    "Create the non-numeric backup file name for FILE.
  27027.  This is a separate function so you can redefine it for customization."
  27028. -  (concat file "~"))
  27029. +  (concat file backup-char))
  27030.  
  27031.  (defun backup-file-name-p (file)
  27032.    "Return non-nil if FILE is a backup file name (numeric or not).
  27033.  This is a separate function so you can redefine it for customization.
  27034.  You may need to redefine file-name-sans-versions as well."
  27035. -  (string-match "~$" file))
  27036. +  (string-match (concat backup-char "$") file))
  27037.  
  27038.  ;; I believe there is no need to alter this behavior for VMS;
  27039.  ;; since backup files are not made on VMS, it should not get called.
  27040. @@ -609,7 +624,7 @@ Value is a list whose car is the name fo
  27041.   and whose cdr is a list of old versions to consider deleting now."
  27042.    (if (eq version-control 'never)
  27043.        (list (make-backup-file-name fn))
  27044. -    (let* ((base-versions (concat (file-name-nondirectory fn) ".~"))
  27045. +    (let* ((base-versions (concat (file-name-nondirectory fn) "." backup-char))
  27046.         (bv-length (length base-versions))
  27047.         (possibilities (file-name-all-completions
  27048.                 base-versions
  27049. @@ -626,20 +641,21 @@ Value is a list whose car is the name fo
  27050.                  kept-old-versions kept-new-versions -1)))
  27051.        (if (not deserve-versions-p)
  27052.        (list (make-backup-file-name fn))
  27053. -    (cons (concat fn ".~" (int-to-string (1+ high-water-mark)) "~")
  27054. +    (cons (concat fn "." backup-char (int-to-string (1+ high-water-mark))
  27055. +              backup-char)
  27056.            (if (and (> number-to-delete 0)
  27057.                 ;; Delete nothing if there is overflow
  27058.                 ;; in the number of versions to keep.
  27059.                 (>= (+ kept-new-versions kept-old-versions -1) 0))
  27060.            (mapcar (function (lambda (n)
  27061. -                      (concat fn ".~"
  27062. -                          (int-to-string n) "~")))
  27063. +                      (concat fn "." backup-char
  27064. +                          (int-to-string n) backup-char)))
  27065.                (let ((v (nthcdr kept-old-versions versions)))
  27066.                  (rplacd (nthcdr (1- number-to-delete) v) ())
  27067.                  v))))))))
  27068.  
  27069.  (defun backup-extract-version (fn)
  27070. -  (if (and (string-match "[0-9]+~$" fn bv-length)
  27071. +  (if (and (string-match (concat "[0-9]+" backup-char "$") fn bv-length)
  27072.         (= (match-beginning 0) bv-length))
  27073.        (string-to-int (substring fn bv-length -1))
  27074.        0))
  27075. @@ -741,7 +757,7 @@ if variable  delete-auto-save-files  is 
  27076.                 ;; If file is precious, rename it away before
  27077.                 ;; overwriting it.
  27078.                 (let ((rename t) nodelete
  27079. -                 (file (concat buffer-file-name "#")))
  27080. +                 (file (concat buffer-file-name autosave-char)))
  27081.               (condition-case ()
  27082.                   (progn (rename-file buffer-file-name file t)
  27083.                      (setq setmodes (file-modes file)))
  27084. @@ -774,6 +790,9 @@ if variable  delete-auto-save-files  is 
  27085.                  ;; Change the mode back, after writing.
  27086.                  (setq setmodes (file-modes buffer-file-name))
  27087.                  (set-file-modes buffer-file-name 511)))
  27088. +             (if (eq system-type 'amigaos)
  27089. +             (if amiga-create-icons
  27090. +                 (amiga-put-icon buffer-file-name nil)))
  27091.               (write-region (point-min) (point-max) 
  27092.                     buffer-file-name nil t)))))
  27093.        (if setmodes
  27094. @@ -983,16 +1002,17 @@ You can redefine this for customization.
  27095.  See also auto-save-file-name-p."
  27096.    (if buffer-file-name
  27097.        (concat (file-name-directory buffer-file-name)
  27098. -          "#"
  27099. +          autosave-char
  27100.            (file-name-nondirectory buffer-file-name)
  27101. -          "#")
  27102. -    (expand-file-name (concat "#%" (buffer-name) "#"))))
  27103. +          autosave-char)
  27104. +    (expand-file-name (concat autosave-char bufferfile-char (buffer-name)
  27105. +                  autosave-char))))
  27106.  
  27107.  (defun auto-save-file-name-p (filename)
  27108.    "Return non-nil if FILENAME can be yielded by make-auto-save-file-name.
  27109.  FILENAME should lack slashes.
  27110.  You can redefine this for customization."
  27111. -  (string-match "^#.*#$" filename))
  27112. +  (string-match (concat "^" autosave-char ".*" autosave-char "$") filename))
  27113.  
  27114.  (defconst list-directory-brief-switches "-CF"
  27115.    "*Switches for list-directory to pass to `ls' for brief listing,")
  27116. Binary files baseline/fsf/emacs18/lisp/files.elc and amiga/fsf/emacs18/lisp/files.elc differ
  27117. diff -rup --new-file baseline/fsf/emacs18/lisp/loadup.el amiga/fsf/emacs18/lisp/loadup.el
  27118. --- baseline/fsf/emacs18/lisp/loadup.el    Wed May 13 12:42:48 1992
  27119. +++ amiga/fsf/emacs18/lisp/loadup.el    Sat Sep 28 00:00:00 1996
  27120. @@ -28,7 +28,6 @@
  27121.  (load "simple")
  27122.  (garbage-collect)
  27123.  (load "help")
  27124. -(garbage-collect)
  27125.  (load "files")
  27126.  (garbage-collect)
  27127.  (load "indent")
  27128. @@ -64,6 +63,10 @@
  27129.      (progn
  27130.        (garbage-collect)
  27131.        (load "vms-patch")))
  27132. +(if (eq system-type 'amigaos)
  27133. +    (progn
  27134. +      (garbage-collect)
  27135. +      (load "amiga-init")))
  27136.  
  27137.  ;If you want additional libraries to be preloaded and their
  27138.  ;doc strings kept in the DOC file rather than in core,
  27139. diff -rup --new-file baseline/fsf/emacs18/lisp/simple.el amiga/fsf/emacs18/lisp/simple.el
  27140. --- baseline/fsf/emacs18/lisp/simple.el    Wed Apr 15 01:13:32 1992
  27141. +++ amiga/fsf/emacs18/lisp/simple.el    Sat Sep 28 00:00:00 1996
  27142. @@ -539,11 +539,47 @@ a number counts as a prefix arg."
  27143.  (defvar kill-ring-yank-pointer nil
  27144.    "The tail of the kill ring whose car is the last thing yanked.")
  27145.  
  27146. +(if (eq system-type 'amigaos)
  27147. +    (progn
  27148. +      (defun safe-amiga-paste ()
  27149. +    "Paste from the amiga clipboard, trapping any errors."
  27150. +    (condition-case nil
  27151. +        (amiga-paste)
  27152. +      (error nil)))
  27153. +
  27154. +      (defun check-clipboard ()
  27155. +    "If there is anything new in the clipboard, add it to the emacs kill ring.
  27156. +Returns t if there was something added, nil otherwise."
  27157. +    (let (added)
  27158. +      (if amiga-new-clip
  27159. +          (let ((str (safe-amiga-paste)))
  27160. +        (setq amiga-new-clip nil)
  27161. +        (if str
  27162. +            (progn
  27163. +              (kill-add str)
  27164. +              (setq added t)
  27165. +              (setq kill-ring-yank-pointer kill-ring)))))
  27166. +      added))
  27167. +      (defun update-clipboard (str)
  27168. +    (amiga-cut str)
  27169. +    (setq amiga-new-clip nil)))
  27170. +    (progn ; These could be defined for X-Windows.
  27171. +      (defun check-clipboard () nil)
  27172. +      (defun update-clipboard () nil)))
  27173. +
  27174.  (defun kill-append (string before-p)
  27175.    (setcar kill-ring
  27176.        (if before-p
  27177.            (concat string (car kill-ring))
  27178. -          (concat (car kill-ring) string))))
  27179. +          (concat (car kill-ring) string)))
  27180. +  (update-clipboard (car kill-ring)))
  27181. +
  27182. +(defun kill-add (string)
  27183. +  (check-clipboard)
  27184. +  (setq kill-ring (cons string kill-ring))
  27185. +  (update-clipboard string)
  27186. +  (if (> (length kill-ring) kill-ring-max)
  27187. +      (setcdr (nthcdr (1- kill-ring-max) kill-ring) nil)))
  27188.  
  27189.  (defun kill-region (beg end)
  27190.    "Kill between point and mark.
  27191. @@ -571,9 +607,7 @@ to make one entry in the kill ring."
  27192.      (delete-region beg end)
  27193.      ;; Take the same string recorded for undo
  27194.      ;; and put it in the kill-ring.
  27195. -    (setq kill-ring (cons (car (car buffer-undo-list)) kill-ring))
  27196. -    (if (> (length kill-ring) kill-ring-max)
  27197. -        (setcdr (nthcdr (1- kill-ring-max) kill-ring) nil))
  27198. +    (kill-add (car (car buffer-undo-list)))
  27199.      (setq this-command 'kill-region)
  27200.      (setq kill-ring-yank-pointer kill-ring))
  27201.      (copy-region-as-kill beg end)
  27202. @@ -584,11 +618,9 @@ to make one entry in the kill ring."
  27203.  (defun copy-region-as-kill (beg end)
  27204.    "Save the region as if killed, but don't kill it."
  27205.    (interactive "r")
  27206. -  (if (eq last-command 'kill-region)
  27207. +  (if (and (eq last-command 'kill-region) (not (check-clipboard)))
  27208.        (kill-append (buffer-substring beg end) (< end beg))
  27209. -    (setq kill-ring (cons (buffer-substring beg end) kill-ring))
  27210. -    (if (> (length kill-ring) kill-ring-max)
  27211. -    (setcdr (nthcdr (1- kill-ring-max) kill-ring) nil)))
  27212. +    (kill-add (buffer-substring beg end)))
  27213.    (setq this-command 'kill-region)
  27214.    (setq kill-ring-yank-pointer kill-ring))
  27215.  
  27216. @@ -643,6 +675,7 @@ With argument n, reinsert the nth most r
  27217.  text.
  27218.  See also the command \\[yank-pop]."
  27219.    (interactive "*P")
  27220. +  (check-clipboard)
  27221.    (rotate-yank-pointer (if (listp arg) 0
  27222.               (if (eq arg '-) -1
  27223.                 (1- arg))))
  27224. Binary files baseline/fsf/emacs18/lisp/simple.elc and amiga/fsf/emacs18/lisp/simple.elc differ
  27225. diff -rup --new-file baseline/fsf/emacs18/lisp/startup.el amiga/fsf/emacs18/lisp/startup.el
  27226. --- baseline/fsf/emacs18/lisp/startup.el    Sat Apr 18 22:20:08 1992
  27227. +++ amiga/fsf/emacs18/lisp/startup.el    Sat Sep 28 00:00:00 1996
  27228. @@ -113,9 +113,9 @@ definitions made by the terminal-specifi
  27229.      ;; Load user's init file, or load default one.
  27230.      (condition-case error
  27231.      (if init
  27232. -        (progn (load (if (eq system-type 'vax-vms)
  27233. -                 "sys$login:.emacs"
  27234. -                 (concat "~" init "/.emacs"))
  27235. +        (progn (load (cond ((eq system-type 'vax-vms) "sys$login:.emacs")
  27236. +                   ((eq system-type 'amigaos) "s:.emacs")
  27237. +                   (t (concat "~" init "/.emacs")))
  27238.               t t t)
  27239.             (or inhibit-default-init
  27240.                 (let ((inhibit-startup-message nil))
  27241. @@ -129,6 +129,10 @@ definitions made by the terminal-specifi
  27242.      (save-excursion
  27243.        (set-buffer "*scratch*")
  27244.        (funcall initial-major-mode)))
  27245. +    ;; On Amiga, initialise clipboard
  27246. +    (if (eq system-type 'amigaos)
  27247. +    (let ((clip (safe-amiga-paste)))
  27248. +      (if clip (kill-add clip))))
  27249.      ;; Load library for our terminal type.
  27250.      ;; User init file can set term-file-prefix to nil to prevent this.
  27251.      (and term-file-prefix (not noninteractive)
  27252. Binary files baseline/fsf/emacs18/lisp/startup.elc and amiga/fsf/emacs18/lisp/startup.elc differ
  27253. diff -rup --new-file baseline/fsf/emacs18/lisp/term/intuition-win.el amiga/fsf/emacs18/lisp/term/intuition-win.el
  27254. --- baseline/fsf/emacs18/lisp/term/intuition-win.el    Wed Dec 31 17:00:00 1969
  27255. +++ amiga/fsf/emacs18/lisp/term/intuition-win.el    Sat Sep 28 00:00:00 1996
  27256. @@ -0,0 +1,47 @@
  27257. +(load "s:.emacs-menu" t t)
  27258. +(setq command-switch-alist (append '(("-fn" . amiga-handle-set-font)
  27259. +                     ("-fg" . amiga-handle-set-foreground)
  27260. +                     ("-bg" . amiga-handle-set-background)
  27261. +                     ("-geometry" . amiga-handle-set-geometry)
  27262. +                     ("-screen" . amiga-handle-set-screen))
  27263. +                   command-switch-alist))
  27264. +
  27265. +(defun amiga-handle-set-font (switch)
  27266. +  (condition-case err
  27267. +      (let ((wfont (car command-line-args-left))
  27268. +        (height (car (read-from-string (car (cdr command-line-args-left))))))
  27269. +    (setq command-line-args-left (cdr (cdr command-line-args-left)))
  27270. +    (amiga-set-font wfont height))
  27271. +    (error (message "Failed to load font"))))
  27272. +
  27273. +(defun amiga-handle-set-foreground (switch)
  27274. +  (condition-case err
  27275. +      (let ((pen (car (read-from-string (car command-line-args-left)))))
  27276. +    (setq command-line-args-left (cdr command-line-args-left))
  27277. +    (amiga-set-foreground-color pen))
  27278. +    (error (message "Failed to set foreground colour"))))
  27279. +
  27280. +(defun amiga-handle-set-background (switch)
  27281. +  (condition-case err
  27282. +      (let ((pen (car (read-from-string (car command-line-args-left)))))
  27283. +    (setq command-line-args-left (cdr command-line-args-left))
  27284. +    (amiga-set-background-color pen))
  27285. +    (error (message "Failed to set background colour"))))
  27286. +
  27287. +(defun amiga-handle-set-screen (switch)
  27288. +  (condition-case err
  27289. +      (let ((name (car command-line-args-left)))
  27290. +    (setq command-line-args-left (cdr command-line-args-left))
  27291. +    (amiga-set-geometry nil nil nil nil name))
  27292. +    (error (message "Couldn't open on public screen"))))
  27293. +
  27294. +(defun amiga-handle-set-geometry (switch)
  27295. +  (condition-case err
  27296. +      (let ((x (car (read-from-string (car command-line-args-left))))
  27297. +        (y (car (read-from-string (car (cdr command-line-args-left)))))
  27298. +        (w (car (read-from-string (car (cdr (cdr command-line-args-left))))))
  27299. +        (h (car (read-from-string (car (cdr (cdr (cdr command-line-args-left)))))))
  27300. +)
  27301. +    (setq command-line-args-left (cdr (cdr (cdr (cdr command-line-args-left)))))
  27302. +    (amiga-set-geometry x y w h nil))
  27303. +    (error (message "Couldn't set window size"))))
  27304. diff -rup --new-file baseline/fsf/emacs18/lisp/term/intuition-win.elc amiga/fsf/emacs18/lisp/term/intuition-win.elc
  27305. --- baseline/fsf/emacs18/lisp/term/intuition-win.elc    Wed Dec 31 17:00:00 1969
  27306. +++ amiga/fsf/emacs18/lisp/term/intuition-win.elc    Sat Sep 28 00:00:00 1996
  27307. @@ -0,0 +1,16 @@
  27308. +
  27309. +(load "s:.emacs-menu" t t)
  27310. +
  27311. +(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))
  27312. +
  27313. +(defun amiga-handle-set-font (switch) (byte-code "ÀÁ‡" [err (byte-code "    @à   A@!@    AA‰ˆÄ
  27314. +\"*‡" [wfont command-line-args-left height read-from-string amiga-set-font] 4) ((error (byte-code "ÀÁ!‡" [message "Failed to load font"] 2)))] 3))
  27315. +
  27316. +(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))
  27317. +
  27318. +(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))
  27319. +
  27320. +(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))
  27321. +
  27322. +(defun amiga-handle-set-geometry (switch) (byte-code "ÀÁ‡" [err (byte-code "Æ    @!@Æ    A@!@Æ    AA@!@Æ    AAA@!@    AAAA‰ˆÇ
  27323. + Å%,‡" [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))
  27324. diff -rup --new-file baseline/fsf/emacs18/lisp/texinfmt.el amiga/fsf/emacs18/lisp/texinfmt.el
  27325. --- baseline/fsf/emacs18/lisp/texinfmt.el    Sat Dec  7 22:28:09 1991
  27326. +++ amiga/fsf/emacs18/lisp/texinfmt.el    Sat Sep 28 00:00:00 1996
  27327. @@ -874,7 +874,7 @@ converted to Info is stored in a tempora
  27328.      (insert "\n* Menu:\n\n")
  27329.      (setq opoint (point))
  27330.      (texinfo-print-index nil indexelts)
  27331. -    (if (eq system-type 'vax-vms) 
  27332. +    (if (or (eq system-type 'amigaos) (eq system-type 'vax-vms)) 
  27333.      (texinfo-sort-region opoint (point))
  27334.        (shell-command-on-region opoint (point) "sort -fd" 1))))
  27335.  
  27336. Binary files baseline/fsf/emacs18/lisp/texinfmt.elc and amiga/fsf/emacs18/lisp/texinfmt.elc differ
  27337. diff -rup --new-file baseline/fsf/emacs18/manifests/bin amiga/fsf/emacs18/manifests/bin
  27338. --- baseline/fsf/emacs18/manifests/bin    Wed Dec 31 17:00:00 1969
  27339. +++ amiga/fsf/emacs18/manifests/bin    Wed Oct  9 23:26:14 1996
  27340. @@ -0,0 +1,407 @@
  27341. +COPYING
  27342. +COPYING.info
  27343. +bin/emacs
  27344. +bin/etags
  27345. +guide/emacs.guide
  27346. +lib/emacs/18.59/etc/3B-MAXMEM
  27347. +lib/emacs/18.59/etc/AIX.DUMP
  27348. +lib/emacs/18.59/etc/APOLLO
  27349. +lib/emacs/18.59/etc/APPLE
  27350. +lib/emacs/18.59/etc/BABYL
  27351. +lib/emacs/18.59/etc/CCADIFF
  27352. +lib/emacs/18.59/etc/CHARACTERS
  27353. +lib/emacs/18.59/etc/COOKIES
  27354. +lib/emacs/18.59/etc/COPYING
  27355. +lib/emacs/18.59/etc/ChangeLog
  27356. +lib/emacs/18.59/etc/DEBUG
  27357. +lib/emacs/18.59/etc/DIFF
  27358. +lib/emacs/18.59/etc/DISTRIB
  27359. +lib/emacs/18.59/etc/DOC
  27360. +lib/emacs/18.59/etc/EMACS-DATA
  27361. +lib/emacs/18.59/etc/FAQ
  27362. +lib/emacs/18.59/etc/FTP
  27363. +lib/emacs/18.59/etc/GNU
  27364. +lib/emacs/18.59/etc/GNU.JOKES
  27365. +lib/emacs/18.59/etc/GOSDIFF
  27366. +lib/emacs/18.59/etc/INTERVAL.IDEAS
  27367. +lib/emacs/18.59/etc/INTERVIEW
  27368. +lib/emacs/18.59/etc/LEDIT
  27369. +lib/emacs/18.59/etc/LPF
  27370. +lib/emacs/18.59/etc/MACHINES
  27371. +lib/emacs/18.59/etc/MAILINGLISTS
  27372. +lib/emacs/18.59/etc/MOTIVATION
  27373. +lib/emacs/18.59/etc/Makefile
  27374. +lib/emacs/18.59/etc/NEWS
  27375. +lib/emacs/18.59/etc/NICKLES.WORTH
  27376. +lib/emacs/18.59/etc/ONEWS
  27377. +lib/emacs/18.59/etc/OONEWS
  27378. +lib/emacs/18.59/etc/OPTIONS
  27379. +lib/emacs/18.59/etc/README
  27380. +lib/emacs/18.59/etc/SCOPTIONS
  27381. +lib/emacs/18.59/etc/SERVICE
  27382. +lib/emacs/18.59/etc/SUN-SUPPORT
  27383. +lib/emacs/18.59/etc/SUNBUG
  27384. +lib/emacs/18.59/etc/TERMS
  27385. +lib/emacs/18.59/etc/TO-DO
  27386. +lib/emacs/18.59/etc/TUTORIAL
  27387. +lib/emacs/18.59/etc/XDOC
  27388. +lib/emacs/18.59/etc/XENIX
  27389. +lib/emacs/18.59/etc/Xkeymap.txt
  27390. +lib/emacs/18.59/etc/amiga-env.c
  27391. +lib/emacs/18.59/etc/celibacy.1
  27392. +lib/emacs/18.59/etc/complink.com
  27393. +lib/emacs/18.59/etc/cvtmail.c
  27394. +lib/emacs/18.59/etc/digest-doc.c
  27395. +lib/emacs/18.59/etc/echo.msg
  27396. +lib/emacs/18.59/etc/emacs.1
  27397. +lib/emacs/18.59/etc/emacs.icon
  27398. +lib/emacs/18.59/etc/emacs.names
  27399. +lib/emacs/18.59/etc/emacsclient.c
  27400. +lib/emacs/18.59/etc/emacstool.1
  27401. +lib/emacs/18.59/etc/emacstool.c
  27402. +lib/emacs/18.59/etc/env
  27403. +lib/emacs/18.59/etc/env.c
  27404. +lib/emacs/18.59/etc/etags
  27405. +lib/emacs/18.59/etc/etags-vmslib.c
  27406. +lib/emacs/18.59/etc/etags.c
  27407. +lib/emacs/18.59/etc/etags.info
  27408. +lib/emacs/18.59/etc/etags.lnk
  27409. +lib/emacs/18.59/etc/etags.o
  27410. +lib/emacs/18.59/etc/etags.vms
  27411. +lib/emacs/18.59/etc/fakemail.c
  27412. +lib/emacs/18.59/etc/faq2texi.perl
  27413. +lib/emacs/18.59/etc/ledit.l
  27414. +lib/emacs/18.59/etc/leditcfns.c
  27415. +lib/emacs/18.59/etc/make-docfile
  27416. +lib/emacs/18.59/etc/make-docfile.c
  27417. +lib/emacs/18.59/etc/make-docfile.info
  27418. +lib/emacs/18.59/etc/make-docfile.lnk
  27419. +lib/emacs/18.59/etc/make-docfile.o
  27420. +lib/emacs/18.59/etc/makedoc.com
  27421. +lib/emacs/18.59/etc/movemail.c
  27422. +lib/emacs/18.59/etc/ms-kermit
  27423. +lib/emacs/18.59/etc/ms-kermit-7bit
  27424. +lib/emacs/18.59/etc/qsort.c
  27425. +lib/emacs/18.59/etc/refcard.tex
  27426. +lib/emacs/18.59/etc/server.c
  27427. +lib/emacs/18.59/etc/sex.6
  27428. +lib/emacs/18.59/etc/sh
  27429. +lib/emacs/18.59/etc/sh.c
  27430. +lib/emacs/18.59/etc/sh.info
  27431. +lib/emacs/18.59/etc/sh.lnk
  27432. +lib/emacs/18.59/etc/sh.o
  27433. +lib/emacs/18.59/etc/smakefile
  27434. +lib/emacs/18.59/etc/sorted-doc.c
  27435. +lib/emacs/18.59/etc/spook.lines
  27436. +lib/emacs/18.59/etc/termcap.amiga
  27437. +lib/emacs/18.59/etc/termcap.dat
  27438. +lib/emacs/18.59/etc/termcap.ucb
  27439. +lib/emacs/18.59/etc/test-distrib.c
  27440. +lib/emacs/18.59/etc/testfile
  27441. +lib/emacs/18.59/etc/ulimit.hack
  27442. +lib/emacs/18.59/etc/vipcard.tex
  27443. +lib/emacs/18.59/etc/vmslink.opt
  27444. +lib/emacs/18.59/etc/wakeup
  27445. +lib/emacs/18.59/etc/wakeup.c
  27446. +lib/emacs/18.59/etc/wakeup.info
  27447. +lib/emacs/18.59/etc/wakeup.lnk
  27448. +lib/emacs/18.59/etc/wakeup.o
  27449. +lib/emacs/18.59/etc/xmouse.doc
  27450. +lib/emacs/18.59/etc/yow.c
  27451. +lib/emacs/18.59/etc/yow.lines
  27452. +lib/emacs/18.59/lisp/COPYING
  27453. +lib/emacs/18.59/lisp/ChangeLog
  27454. +lib/emacs/18.59/lisp/abbrev.el
  27455. +lib/emacs/18.59/lisp/abbrev.elc
  27456. +lib/emacs/18.59/lisp/abbrevlist.el
  27457. +lib/emacs/18.59/lisp/abbrevlist.elc
  27458. +lib/emacs/18.59/lisp/ada.el
  27459. +lib/emacs/18.59/lisp/ada.elc
  27460. +lib/emacs/18.59/lisp/add-log.el
  27461. +lib/emacs/18.59/lisp/add-log.elc
  27462. +lib/emacs/18.59/lisp/amiga-init.el
  27463. +lib/emacs/18.59/lisp/amiga-init.elc
  27464. +lib/emacs/18.59/lisp/amiga-menu.el
  27465. +lib/emacs/18.59/lisp/amiga-menu.elc
  27466. +lib/emacs/18.59/lisp/amiga-mouse.el
  27467. +lib/emacs/18.59/lisp/amiga-mouse.elc
  27468. +lib/emacs/18.59/lisp/autoinsert.el
  27469. +lib/emacs/18.59/lisp/backquote.el
  27470. +lib/emacs/18.59/lisp/backquote.elc
  27471. +lib/emacs/18.59/lisp/bg-mouse.el
  27472. +lib/emacs/18.59/lisp/bibtex.el
  27473. +lib/emacs/18.59/lisp/bibtex.elc
  27474. +lib/emacs/18.59/lisp/blackbox.el
  27475. +lib/emacs/18.59/lisp/blackbox.elc
  27476. +lib/emacs/18.59/lisp/buff-menu.el
  27477. +lib/emacs/18.59/lisp/buff-menu.elc
  27478. +lib/emacs/18.59/lisp/bytecomp.el
  27479. +lib/emacs/18.59/lisp/bytecomp.elc
  27480. +lib/emacs/18.59/lisp/c-fill.el
  27481. +lib/emacs/18.59/lisp/c-fill.elc
  27482. +lib/emacs/18.59/lisp/c-mode.el
  27483. +lib/emacs/18.59/lisp/c-mode.elc
  27484. +lib/emacs/18.59/lisp/cal.el
  27485. +lib/emacs/18.59/lisp/cal.elc
  27486. +lib/emacs/18.59/lisp/chistory.el
  27487. +lib/emacs/18.59/lisp/chistory.elc
  27488. +lib/emacs/18.59/lisp/cl-indent.el
  27489. +lib/emacs/18.59/lisp/cl-indent.elc
  27490. +lib/emacs/18.59/lisp/cl.el
  27491. +lib/emacs/18.59/lisp/cl.elc
  27492. +lib/emacs/18.59/lisp/cmacexp.el
  27493. +lib/emacs/18.59/lisp/compare-w.el
  27494. +lib/emacs/18.59/lisp/compare-w.elc
  27495. +lib/emacs/18.59/lisp/compile.el
  27496. +lib/emacs/18.59/lisp/compile.elc
  27497. +lib/emacs/18.59/lisp/dabbrev.el
  27498. +lib/emacs/18.59/lisp/dabbrev.elc
  27499. +lib/emacs/18.59/lisp/dbx.el
  27500. +lib/emacs/18.59/lisp/dbx.elc
  27501. +lib/emacs/18.59/lisp/debug.el
  27502. +lib/emacs/18.59/lisp/debug.elc
  27503. +lib/emacs/18.59/lisp/dired.el
  27504. +lib/emacs/18.59/lisp/dired.elc
  27505. +lib/emacs/18.59/lisp/disass.el
  27506. +lib/emacs/18.59/lisp/disass.elc
  27507. +lib/emacs/18.59/lisp/dissociate.el
  27508. +lib/emacs/18.59/lisp/dissociate.elc
  27509. +lib/emacs/18.59/lisp/doctex.el
  27510. +lib/emacs/18.59/lisp/doctor.el
  27511. +lib/emacs/18.59/lisp/doctor.elc
  27512. +lib/emacs/18.59/lisp/ebuff-menu.el
  27513. +lib/emacs/18.59/lisp/ebuff-menu.elc
  27514. +lib/emacs/18.59/lisp/echistory.el
  27515. +lib/emacs/18.59/lisp/echistory.elc
  27516. +lib/emacs/18.59/lisp/edt-doc.el
  27517. +lib/emacs/18.59/lisp/edt.el
  27518. +lib/emacs/18.59/lisp/edt.elc
  27519. +lib/emacs/18.59/lisp/ehelp.el
  27520. +lib/emacs/18.59/lisp/ehelp.elc
  27521. +lib/emacs/18.59/lisp/electric.el
  27522. +lib/emacs/18.59/lisp/electric.elc
  27523. +lib/emacs/18.59/lisp/emacsbug.el
  27524. +lib/emacs/18.59/lisp/files.el
  27525. +lib/emacs/18.59/lisp/files.elc
  27526. +lib/emacs/18.59/lisp/fill.el
  27527. +lib/emacs/18.59/lisp/fill.elc
  27528. +lib/emacs/18.59/lisp/flame.el
  27529. +lib/emacs/18.59/lisp/flame.elc
  27530. +lib/emacs/18.59/lisp/float.el
  27531. +lib/emacs/18.59/lisp/float.elc
  27532. +lib/emacs/18.59/lisp/fortran.el
  27533. +lib/emacs/18.59/lisp/fortran.elc
  27534. +lib/emacs/18.59/lisp/ftp.el
  27535. +lib/emacs/18.59/lisp/ftp.elc
  27536. +lib/emacs/18.59/lisp/gdb.el
  27537. +lib/emacs/18.59/lisp/gdb.elc
  27538. +lib/emacs/18.59/lisp/gosmacs.el
  27539. +lib/emacs/18.59/lisp/grow-vers.el
  27540. +lib/emacs/18.59/lisp/hanoi.el
  27541. +lib/emacs/18.59/lisp/hanoi.elc
  27542. +lib/emacs/18.59/lisp/help.el
  27543. +lib/emacs/18.59/lisp/help.elc
  27544. +lib/emacs/18.59/lisp/helper.el
  27545. +lib/emacs/18.59/lisp/helper.elc
  27546. +lib/emacs/18.59/lisp/hideif.el
  27547. +lib/emacs/18.59/lisp/hideif.elc
  27548. +lib/emacs/18.59/lisp/icon.el
  27549. +lib/emacs/18.59/lisp/icon.elc
  27550. +lib/emacs/18.59/lisp/inc-vers.el
  27551. +lib/emacs/18.59/lisp/indent.el
  27552. +lib/emacs/18.59/lisp/indent.elc
  27553. +lib/emacs/18.59/lisp/info.el
  27554. +lib/emacs/18.59/lisp/info.elc
  27555. +lib/emacs/18.59/lisp/informat.el
  27556. +lib/emacs/18.59/lisp/informat.elc
  27557. +lib/emacs/18.59/lisp/isearch.el
  27558. +lib/emacs/18.59/lisp/isearch.elc
  27559. +lib/emacs/18.59/lisp/kermit.el
  27560. +lib/emacs/18.59/lisp/keypad.el
  27561. +lib/emacs/18.59/lisp/keypad.elc
  27562. +lib/emacs/18.59/lisp/ledit.el
  27563. +lib/emacs/18.59/lisp/life.el
  27564. +lib/emacs/18.59/lisp/life.elc
  27565. +lib/emacs/18.59/lisp/lisp-mode.el
  27566. +lib/emacs/18.59/lisp/lisp-mode.elc
  27567. +lib/emacs/18.59/lisp/lisp.el
  27568. +lib/emacs/18.59/lisp/lisp.elc
  27569. +lib/emacs/18.59/lisp/loaddefs.el
  27570. +lib/emacs/18.59/lisp/loadup.el
  27571. +lib/emacs/18.59/lisp/loadup.elc
  27572. +lib/emacs/18.59/lisp/lpr.el
  27573. +lib/emacs/18.59/lisp/lpr.elc
  27574. +lib/emacs/18.59/lisp/macros.el
  27575. +lib/emacs/18.59/lisp/macros.elc
  27576. +lib/emacs/18.59/lisp/mail-utils.el
  27577. +lib/emacs/18.59/lisp/mail-utils.elc
  27578. +lib/emacs/18.59/lisp/mailalias.el
  27579. +lib/emacs/18.59/lisp/mailalias.elc
  27580. +lib/emacs/18.59/lisp/mailpost.el
  27581. +lib/emacs/18.59/lisp/makesum.el
  27582. +lib/emacs/18.59/lisp/makesum.elc
  27583. +lib/emacs/18.59/lisp/man.el
  27584. +lib/emacs/18.59/lisp/man.elc
  27585. +lib/emacs/18.59/lisp/medit.el
  27586. +lib/emacs/18.59/lisp/medit.elc
  27587. +lib/emacs/18.59/lisp/meese.el
  27588. +lib/emacs/18.59/lisp/mh-e.el
  27589. +lib/emacs/18.59/lisp/mh-e.elc
  27590. +lib/emacs/18.59/lisp/mim-mode.el
  27591. +lib/emacs/18.59/lisp/mim-mode.elc
  27592. +lib/emacs/18.59/lisp/mim-syntax.el
  27593. +lib/emacs/18.59/lisp/mim-syntax.elc
  27594. +lib/emacs/18.59/lisp/mlconvert.el
  27595. +lib/emacs/18.59/lisp/mlconvert.elc
  27596. +lib/emacs/18.59/lisp/mlsupport.el
  27597. +lib/emacs/18.59/lisp/mlsupport.elc
  27598. +lib/emacs/18.59/lisp/modula2.el
  27599. +lib/emacs/18.59/lisp/modula2.elc
  27600. +lib/emacs/18.59/lisp/novice.el
  27601. +lib/emacs/18.59/lisp/nroff-mode.el
  27602. +lib/emacs/18.59/lisp/nroff-mode.elc
  27603. +lib/emacs/18.59/lisp/options.el
  27604. +lib/emacs/18.59/lisp/options.elc
  27605. +lib/emacs/18.59/lisp/outline.el
  27606. +lib/emacs/18.59/lisp/outline.elc
  27607. +lib/emacs/18.59/lisp/page.el
  27608. +lib/emacs/18.59/lisp/page.elc
  27609. +lib/emacs/18.59/lisp/paragraphs.el
  27610. +lib/emacs/18.59/lisp/paragraphs.elc
  27611. +lib/emacs/18.59/lisp/paths.el
  27612. +lib/emacs/18.59/lisp/picture.el
  27613. +lib/emacs/18.59/lisp/picture.elc
  27614. +lib/emacs/18.59/lisp/prolog.el
  27615. +lib/emacs/18.59/lisp/prolog.elc
  27616. +lib/emacs/18.59/lisp/rect.el
  27617. +lib/emacs/18.59/lisp/rect.elc
  27618. +lib/emacs/18.59/lisp/register.el
  27619. +lib/emacs/18.59/lisp/register.elc
  27620. +lib/emacs/18.59/lisp/replace.el
  27621. +lib/emacs/18.59/lisp/replace.elc
  27622. +lib/emacs/18.59/lisp/rfc822.el
  27623. +lib/emacs/18.59/lisp/rfc822.elc
  27624. +lib/emacs/18.59/lisp/rmail.el
  27625. +lib/emacs/18.59/lisp/rmail.elc
  27626. +lib/emacs/18.59/lisp/rmailedit.el
  27627. +lib/emacs/18.59/lisp/rmailedit.elc
  27628. +lib/emacs/18.59/lisp/rmailkwd.el
  27629. +lib/emacs/18.59/lisp/rmailkwd.elc
  27630. +lib/emacs/18.59/lisp/rmailmsc.el
  27631. +lib/emacs/18.59/lisp/rmailmsc.elc
  27632. +lib/emacs/18.59/lisp/rmailout.el
  27633. +lib/emacs/18.59/lisp/rmailout.elc
  27634. +lib/emacs/18.59/lisp/rmailsum.el
  27635. +lib/emacs/18.59/lisp/rmailsum.elc
  27636. +lib/emacs/18.59/lisp/rnews.el
  27637. +lib/emacs/18.59/lisp/rnews.elc
  27638. +lib/emacs/18.59/lisp/rnewspost.el
  27639. +lib/emacs/18.59/lisp/rnewspost.elc
  27640. +lib/emacs/18.59/lisp/saveconf.el
  27641. +lib/emacs/18.59/lisp/scheme.el
  27642. +lib/emacs/18.59/lisp/scheme.elc
  27643. +lib/emacs/18.59/lisp/scribe.el
  27644. +lib/emacs/18.59/lisp/scribe.elc
  27645. +lib/emacs/18.59/lisp/sendmail.el
  27646. +lib/emacs/18.59/lisp/sendmail.elc
  27647. +lib/emacs/18.59/lisp/server.el
  27648. +lib/emacs/18.59/lisp/server.elc
  27649. +lib/emacs/18.59/lisp/shell.el
  27650. +lib/emacs/18.59/lisp/shell.elc
  27651. +lib/emacs/18.59/lisp/simple.el
  27652. +lib/emacs/18.59/lisp/simple.elc
  27653. +lib/emacs/18.59/lisp/simula.defns
  27654. +lib/emacs/18.59/lisp/simula.el
  27655. +lib/emacs/18.59/lisp/simula.elc
  27656. +lib/emacs/18.59/lisp/sort.el
  27657. +lib/emacs/18.59/lisp/sort.elc
  27658. +lib/emacs/18.59/lisp/spell.el
  27659. +lib/emacs/18.59/lisp/spell.elc
  27660. +lib/emacs/18.59/lisp/spook.el
  27661. +lib/emacs/18.59/lisp/startup.el
  27662. +lib/emacs/18.59/lisp/startup.elc
  27663. +lib/emacs/18.59/lisp/studly.el
  27664. +lib/emacs/18.59/lisp/studly.elc
  27665. +lib/emacs/18.59/lisp/subr.el
  27666. +lib/emacs/18.59/lisp/subr.elc
  27667. +lib/emacs/18.59/lisp/sun-cursors.el
  27668. +lib/emacs/18.59/lisp/sun-fns.el
  27669. +lib/emacs/18.59/lisp/sun-fns.elc
  27670. +lib/emacs/18.59/lisp/sun-keys.el
  27671. +lib/emacs/18.59/lisp/sun-mouse.el
  27672. +lib/emacs/18.59/lisp/sun-mouse.elc
  27673. +lib/emacs/18.59/lisp/sup-mouse.el
  27674. +lib/emacs/18.59/lisp/sup-mouse.elc
  27675. +lib/emacs/18.59/lisp/tabify.el
  27676. +lib/emacs/18.59/lisp/tabify.elc
  27677. +lib/emacs/18.59/lisp/tags.el
  27678. +lib/emacs/18.59/lisp/tags.elc
  27679. +lib/emacs/18.59/lisp/telnet.el
  27680. +lib/emacs/18.59/lisp/telnet.elc
  27681. +lib/emacs/18.59/lisp/term/COPYING
  27682. +lib/emacs/18.59/lisp/term/apollo.el
  27683. +lib/emacs/18.59/lisp/term/at386.el
  27684. +lib/emacs/18.59/lisp/term/bbn.el
  27685. +lib/emacs/18.59/lisp/term/bg.el
  27686. +lib/emacs/18.59/lisp/term/bgnv.el
  27687. +lib/emacs/18.59/lisp/term/bgrv.el
  27688. +lib/emacs/18.59/lisp/term/bobcat.el
  27689. +lib/emacs/18.59/lisp/term/intuition-win.el
  27690. +lib/emacs/18.59/lisp/term/intuition-win.elc
  27691. +lib/emacs/18.59/lisp/term/s4.el
  27692. +lib/emacs/18.59/lisp/term/sun.el
  27693. +lib/emacs/18.59/lisp/term/supdup.el
  27694. +lib/emacs/18.59/lisp/term/unixpc.el
  27695. +lib/emacs/18.59/lisp/term/vt100.el
  27696. +lib/emacs/18.59/lisp/term/vt101.el
  27697. +lib/emacs/18.59/lisp/term/vt102.el
  27698. +lib/emacs/18.59/lisp/term/vt125.el
  27699. +lib/emacs/18.59/lisp/term/vt131.el
  27700. +lib/emacs/18.59/lisp/term/vt200.el
  27701. +lib/emacs/18.59/lisp/term/vt220.el
  27702. +lib/emacs/18.59/lisp/term/vt240.el
  27703. +lib/emacs/18.59/lisp/term/vt300.el
  27704. +lib/emacs/18.59/lisp/term/x-win.el
  27705. +lib/emacs/18.59/lisp/term/xterm.el
  27706. +lib/emacs/18.59/lisp/terminal.el
  27707. +lib/emacs/18.59/lisp/terminal.elc
  27708. +lib/emacs/18.59/lisp/tex-mode.el
  27709. +lib/emacs/18.59/lisp/tex-mode.elc
  27710. +lib/emacs/18.59/lisp/tex-start.el
  27711. +lib/emacs/18.59/lisp/texinfmt.el
  27712. +lib/emacs/18.59/lisp/texinfmt.elc
  27713. +lib/emacs/18.59/lisp/texinfo.el
  27714. +lib/emacs/18.59/lisp/texinfo.elc
  27715. +lib/emacs/18.59/lisp/text-mode.el
  27716. +lib/emacs/18.59/lisp/text-mode.elc
  27717. +lib/emacs/18.59/lisp/time.el
  27718. +lib/emacs/18.59/lisp/time.elc
  27719. +lib/emacs/18.59/lisp/uncompress.el
  27720. +lib/emacs/18.59/lisp/underline.el
  27721. +lib/emacs/18.59/lisp/underline.elc
  27722. +lib/emacs/18.59/lisp/undigest.el
  27723. +lib/emacs/18.59/lisp/undigest.elc
  27724. +lib/emacs/18.59/lisp/unused.el
  27725. +lib/emacs/18.59/lisp/userlock.el
  27726. +lib/emacs/18.59/lisp/userlock.elc
  27727. +lib/emacs/18.59/lisp/version.el
  27728. +lib/emacs/18.59/lisp/vi.el
  27729. +lib/emacs/18.59/lisp/vi.elc
  27730. +lib/emacs/18.59/lisp/view.el
  27731. +lib/emacs/18.59/lisp/view.elc
  27732. +lib/emacs/18.59/lisp/vip.el
  27733. +lib/emacs/18.59/lisp/vip.elc
  27734. +lib/emacs/18.59/lisp/vms-patch.el
  27735. +lib/emacs/18.59/lisp/vms-patch.elc
  27736. +lib/emacs/18.59/lisp/vmsproc.el
  27737. +lib/emacs/18.59/lisp/vmsproc.elc
  27738. +lib/emacs/18.59/lisp/window.el
  27739. +lib/emacs/18.59/lisp/window.elc
  27740. +lib/emacs/18.59/lisp/x-menu.el
  27741. +lib/emacs/18.59/lisp/x-menu.elc
  27742. +lib/emacs/18.59/lisp/x-mouse.el
  27743. +lib/emacs/18.59/lisp/x-mouse.elc
  27744. +lib/emacs/18.59/lisp/xscheme.el
  27745. +lib/emacs/18.59/lisp/xscheme.elc
  27746. +lib/emacs/18.59/lisp/yow.el
  27747. +lib/emacs/18.59/lisp/yow.elc
  27748. diff -rup --new-file baseline/fsf/emacs18/manifests/src amiga/fsf/emacs18/manifests/src
  27749. --- baseline/fsf/emacs18/manifests/src    Wed Dec 31 17:00:00 1969
  27750. +++ amiga/fsf/emacs18/manifests/src    Sat Sep 28 00:00:00 1996
  27751. @@ -0,0 +1,1013 @@
  27752. +fsf/emacs18/ChangeLog
  27753. +fsf/emacs18/INSTALL
  27754. +fsf/emacs18/Makefile
  27755. +fsf/emacs18/PROBLEMS
  27756. +fsf/emacs18/Product-Info
  27757. +fsf/emacs18/README
  27758. +fsf/emacs18/VMSINSTALL
  27759. +fsf/emacs18/VMSNOTES
  27760. +fsf/emacs18/allrename.com
  27761. +fsf/emacs18/amiga/README
  27762. +fsf/emacs18/amiga/amiga-extra/INSTALL.AMIGA
  27763. +fsf/emacs18/amiga/amiga-extra/amiga/.emacs
  27764. +fsf/emacs18/amiga/amiga-extra/amiga/.emacs-menu.el
  27765. +fsf/emacs18/amiga/amiga-extra/amiga/.emacs-menu.menu
  27766. +fsf/emacs18/amiga/amiga-extra/amiga/amiga.doc
  27767. +fsf/emacs18/amiga/amiga-extra/amiga/announce1.28
  27768. +fsf/emacs18/amiga/amiga-extra/amiga/c/emacs
  27769. +fsf/emacs18/amiga/amiga-extra/amiga/c/etags.uue
  27770. +fsf/emacs18/amiga/amiga-extra/amiga/c/getstack.uue
  27771. +fsf/emacs18/amiga/amiga-extra/amiga/c/grep.uue
  27772. +fsf/emacs18/amiga/amiga-extra/amiga/c/ls.uue
  27773. +fsf/emacs18/amiga/amiga-extra/amiga/c/rmdir.uue
  27774. +fsf/emacs18/amiga/amiga-extra/amiga/c/sort.uue
  27775. +fsf/emacs18/amiga/amiga-extra/amiga/compile.doc
  27776. +fsf/emacs18/amiga/amiga-extra/amiga/contrib/chopps/lisp/amiga-user-name.el
  27777. +fsf/emacs18/amiga/amiga-extra/amiga/contrib/chopps/lisp/fix-endif-no-comment.el
  27778. +fsf/emacs18/amiga/amiga-extra/amiga/contrib/chopps/rexx/invoker
  27779. +fsf/emacs18/amiga/amiga-extra/amiga/contrib/chopps/rexx/sayval.rexx
  27780. +fsf/emacs18/amiga/amiga-extra/amiga/contrib/dgay/README
  27781. +fsf/emacs18/amiga/amiga-extra/amiga/contrib/dgay/dtags.el
  27782. +fsf/emacs18/amiga/amiga-extra/amiga/contrib/dgay/dtags.elc
  27783. +fsf/emacs18/amiga/amiga-extra/amiga/contrib/dgay/make-dtags.el
  27784. +fsf/emacs18/amiga/amiga-extra/amiga/contrib/hessu/README
  27785. +fsf/emacs18/amiga/amiga-extra/amiga/contrib/hessu/distinews.lha
  27786. +fsf/emacs18/amiga/amiga-extra/amiga/contrib/hessu/emacs.rexx
  27787. +fsf/emacs18/amiga/amiga-extra/amiga/contrib/hessu/fakemail/cc
  27788. +fsf/emacs18/amiga/amiga-extra/amiga/contrib/hessu/fakemail/fakemail
  27789. +fsf/emacs18/amiga/amiga-extra/amiga/contrib/hessu/fakemail/fakemail.c
  27790. +fsf/emacs18/amiga/amiga-extra/amiga/contrib/hessu/fakemail/sascopts
  27791. +fsf/emacs18/amiga/amiga-extra/amiga/contrib/hessu/fakemail/version.h
  27792. +fsf/emacs18/amiga/amiga-extra/amiga/contrib/hessu/movemail/cc
  27793. +fsf/emacs18/amiga/amiga-extra/amiga/contrib/hessu/movemail/movemail
  27794. +fsf/emacs18/amiga/amiga-extra/amiga/contrib/hessu/movemail/movemail.c
  27795. +fsf/emacs18/amiga/amiga-extra/amiga/contrib/hessu/movemail/sascopts
  27796. +fsf/emacs18/amiga/amiga-extra/amiga/contrib/hessu/movemail/version.h
  27797. +fsf/emacs18/amiga/amiga-extra/amiga/contrib/kaiser/README
  27798. +fsf/emacs18/amiga/amiga-extra/amiga/contrib/kaiser/pub
  27799. +fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/COPYING
  27800. +fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/COPYING.info
  27801. +fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/Emacs.info
  27802. +fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/icons.el
  27803. +fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/icons.info
  27804. +fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/icons/def_asm.info
  27805. +fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/icons/def_c.info
  27806. +fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/icons/def_el.info
  27807. +fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/icons/def_emacs.info
  27808. +fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/icons/def_h.info
  27809. +fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/icons/def_rexx.info
  27810. +fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/lisp.info
  27811. +fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/lisp/newicon.el
  27812. +fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/lisp/newicon.el.info
  27813. +fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/lisp/newicon.elc
  27814. +fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/lisp/newicon.elc.info
  27815. +fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/lisp/sticky.el
  27816. +fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/lisp/sticky.el.info
  27817. +fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/lisp/sticky.elc
  27818. +fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/lisp/sticky.elc.info
  27819. +fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/rexx.info
  27820. +fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/rexx/emacs.rexx
  27821. +fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/rexx/emacs.rexx.info
  27822. +fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/rexxmode10.lha
  27823. +fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/sas-c-emacs.lha
  27824. +fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/starter.doc
  27825. +fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/starter.doc.info
  27826. +fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/wbarg.info
  27827. +fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/wbarg/makefile
  27828. +fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/wbarg/makefile.info
  27829. +fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/wbarg/wbarg
  27830. +fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/wbarg/wbarg.c
  27831. +fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/wbarg/wbarg.c.info
  27832. +fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/wbarg/wbarg.info
  27833. +fsf/emacs18/amiga/amiga-extra/amiga/contrib/lindgren/xsh11.lha
  27834. +fsf/emacs18/amiga/amiga-extra/amiga/contrib/schinz/functions.el
  27835. +fsf/emacs18/amiga/unix/include/alloca.h
  27836. +fsf/emacs18/amiga/unix/include/amiga/ioctl.h
  27837. +fsf/emacs18/amiga/unix/include/errno.h
  27838. +fsf/emacs18/amiga/unix/include/fcntl.h
  27839. +fsf/emacs18/amiga/unix/include/grp.h
  27840. +fsf/emacs18/amiga/unix/include/internal/devices.h
  27841. +fsf/emacs18/amiga/unix/include/internal/files.h
  27842. +fsf/emacs18/amiga/unix/include/internal/messages.h
  27843. +fsf/emacs18/amiga/unix/include/internal/timers.h
  27844. +fsf/emacs18/amiga/unix/include/internal/vars.h
  27845. +fsf/emacs18/amiga/unix/include/pwd.h
  27846. +fsf/emacs18/amiga/unix/include/setjmp.h
  27847. +fsf/emacs18/amiga/unix/include/signal.h
  27848. +fsf/emacs18/amiga/unix/include/stat.h
  27849. +fsf/emacs18/amiga/unix/include/stdio.h
  27850. +fsf/emacs18/amiga/unix/include/stdlib.h
  27851. +fsf/emacs18/amiga/unix/include/strings.h
  27852. +fsf/emacs18/amiga/unix/include/sys/cdefs.h
  27853. +fsf/emacs18/amiga/unix/include/sys/fcntl.h
  27854. +fsf/emacs18/amiga/unix/include/sys/file.h
  27855. +fsf/emacs18/amiga/unix/include/sys/filio.h
  27856. +fsf/emacs18/amiga/unix/include/sys/ioctl.h
  27857. +fsf/emacs18/amiga/unix/include/sys/param.h
  27858. +fsf/emacs18/amiga/unix/include/sys/socket.h
  27859. +fsf/emacs18/amiga/unix/include/sys/stat.h
  27860. +fsf/emacs18/amiga/unix/include/sys/termios.h
  27861. +fsf/emacs18/amiga/unix/include/sys/time.h
  27862. +fsf/emacs18/amiga/unix/include/sys/timeb.h
  27863. +fsf/emacs18/amiga/unix/include/sys/types.h
  27864. +fsf/emacs18/amiga/unix/include/sys/unistd.h
  27865. +fsf/emacs18/amiga/unix/include/sys/vlimit.h
  27866. +fsf/emacs18/amiga/unix/include/sys/wait.h
  27867. +fsf/emacs18/amiga/unix/include/time.h
  27868. +fsf/emacs18/amiga/unix/include/tzfile.h
  27869. +fsf/emacs18/amiga/unix/include/unistd.h
  27870. +fsf/emacs18/amiga/unix/include/utime.h
  27871. +fsf/emacs18/amiga/unix/intro.doc
  27872. +fsf/emacs18/amiga/unix/mkmkf
  27873. +fsf/emacs18/amiga/unix/mkmkf.perl
  27874. +fsf/emacs18/amiga/unix/src/SCOPTIONS
  27875. +fsf/emacs18/amiga/unix/src/_exit.c
  27876. +fsf/emacs18/amiga/unix/src/_main.c
  27877. +fsf/emacs18/amiga/unix/src/_setjmp.asm
  27878. +fsf/emacs18/amiga/unix/src/abort.c
  27879. +fsf/emacs18/amiga/unix/src/access.c
  27880. +fsf/emacs18/amiga/unix/src/alloca.c
  27881. +fsf/emacs18/amiga/unix/src/allocdos.c
  27882. +fsf/emacs18/amiga/unix/src/amiga.h
  27883. +fsf/emacs18/amiga/unix/src/amigaos.c
  27884. +fsf/emacs18/amiga/unix/src/amigaos.h
  27885. +fsf/emacs18/amiga/unix/src/amigatime.c
  27886. +fsf/emacs18/amiga/unix/src/bcmp.c
  27887. +fsf/emacs18/amiga/unix/src/bcopy.c
  27888. +fsf/emacs18/amiga/unix/src/bzero.c
  27889. +fsf/emacs18/amiga/unix/src/chmod.c
  27890. +fsf/emacs18/amiga/unix/src/chown.c
  27891. +fsf/emacs18/amiga/unix/src/close.c
  27892. +fsf/emacs18/amiga/unix/src/creat.c
  27893. +fsf/emacs18/amiga/unix/src/ctime.c
  27894. +fsf/emacs18/amiga/unix/src/devices.c
  27895. +fsf/emacs18/amiga/unix/src/dir.c
  27896. +fsf/emacs18/amiga/unix/src/dir_data.c
  27897. +fsf/emacs18/amiga/unix/src/dir_data.h
  27898. +fsf/emacs18/amiga/unix/src/error.c
  27899. +fsf/emacs18/amiga/unix/src/error_msg.c
  27900. +fsf/emacs18/amiga/unix/src/exec.c
  27901. +fsf/emacs18/amiga/unix/src/fchmod.c
  27902. +fsf/emacs18/amiga/unix/src/fcntl.c
  27903. +fsf/emacs18/amiga/unix/src/fibstat.c
  27904. +fsf/emacs18/amiga/unix/src/fibstat.h
  27905. +fsf/emacs18/amiga/unix/src/fifo.h
  27906. +fsf/emacs18/amiga/unix/src/fifo_pragmas.h
  27907. +fsf/emacs18/amiga/unix/src/fifofd.c
  27908. +fsf/emacs18/amiga/unix/src/fifofd.h
  27909. +fsf/emacs18/amiga/unix/src/files.c
  27910. +fsf/emacs18/amiga/unix/src/fstat.c
  27911. +fsf/emacs18/amiga/unix/src/ftruncate.c
  27912. +fsf/emacs18/amiga/unix/src/getenv.c
  27913. +fsf/emacs18/amiga/unix/src/gethostname.c
  27914. +fsf/emacs18/amiga/unix/src/getpid.c
  27915. +fsf/emacs18/amiga/unix/src/getwd.c
  27916. +fsf/emacs18/amiga/unix/src/gid.c
  27917. +fsf/emacs18/amiga/unix/src/grp.c
  27918. +fsf/emacs18/amiga/unix/src/index.c
  27919. +fsf/emacs18/amiga/unix/src/ioctl.c
  27920. +fsf/emacs18/amiga/unix/src/isatty.c
  27921. +fsf/emacs18/amiga/unix/src/kill.c
  27922. +fsf/emacs18/amiga/unix/src/link.c
  27923. +fsf/emacs18/amiga/unix/src/lseek.c
  27924. +fsf/emacs18/amiga/unix/src/message.c
  27925. +fsf/emacs18/amiga/unix/src/mkdir.c
  27926. +fsf/emacs18/amiga/unix/src/mkfifo.c
  27927. +fsf/emacs18/amiga/unix/src/mktemp.c
  27928. +fsf/emacs18/amiga/unix/src/open.c
  27929. +fsf/emacs18/amiga/unix/src/perror.c
  27930. +fsf/emacs18/amiga/unix/src/pipe.c
  27931. +fsf/emacs18/amiga/unix/src/popen.c
  27932. +fsf/emacs18/amiga/unix/src/processes.c
  27933. +fsf/emacs18/amiga/unix/src/processes.h
  27934. +fsf/emacs18/amiga/unix/src/protection.c
  27935. +fsf/emacs18/amiga/unix/src/pseudo_c.c
  27936. +fsf/emacs18/amiga/unix/src/pwd.c
  27937. +fsf/emacs18/amiga/unix/src/read.c
  27938. +fsf/emacs18/amiga/unix/src/readlink.c
  27939. +fsf/emacs18/amiga/unix/src/rename.c
  27940. +fsf/emacs18/amiga/unix/src/rindex.c
  27941. +fsf/emacs18/amiga/unix/src/rmdir.c
  27942. +fsf/emacs18/amiga/unix/src/select.c
  27943. +fsf/emacs18/amiga/unix/src/setjmp.c
  27944. +fsf/emacs18/amiga/unix/src/siglist.c
  27945. +fsf/emacs18/amiga/unix/src/signal.c
  27946. +fsf/emacs18/amiga/unix/src/signals.c
  27947. +fsf/emacs18/amiga/unix/src/signals.h
  27948. +fsf/emacs18/amiga/unix/src/sigpause.c
  27949. +fsf/emacs18/amiga/unix/src/sigsetmask.c
  27950. +fsf/emacs18/amiga/unix/src/sleep.c
  27951. +fsf/emacs18/amiga/unix/src/smakefile
  27952. +fsf/emacs18/amiga/unix/src/smakefile.base
  27953. +fsf/emacs18/amiga/unix/src/sprintf.asm
  27954. +fsf/emacs18/amiga/unix/src/start.c
  27955. +fsf/emacs18/amiga/unix/src/stat.c
  27956. +fsf/emacs18/amiga/unix/src/strftime.c
  27957. +fsf/emacs18/amiga/unix/src/symlink.c
  27958. +fsf/emacs18/amiga/unix/src/time.c
  27959. +fsf/emacs18/amiga/unix/src/timeconvert.c
  27960. +fsf/emacs18/amiga/unix/src/timeconvert.h
  27961. +fsf/emacs18/amiga/unix/src/timers.c
  27962. +fsf/emacs18/amiga/unix/src/tmpnam.c
  27963. +fsf/emacs18/amiga/unix/src/truncate.c
  27964. +fsf/emacs18/amiga/unix/src/uid.c
  27965. +fsf/emacs18/amiga/unix/src/umask.c
  27966. +fsf/emacs18/amiga/unix/src/unix-hard.lib.uue
  27967. +fsf/emacs18/amiga/unix/src/unix.lib.uue
  27968. +fsf/emacs18/amiga/unix/src/unlink.c
  27969. +fsf/emacs18/amiga/unix/src/utime.c
  27970. +fsf/emacs18/amiga/unix/src/wait4.c
  27971. +fsf/emacs18/amiga/unix/src/write.c
  27972. +fsf/emacs18/amiga/unix/src/zoneinfo/SCOPTIONS
  27973. +fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/africa
  27974. +fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/antarctica
  27975. +fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/asia
  27976. +fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/australasia
  27977. +fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/etcetera
  27978. +fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/europe
  27979. +fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/factory
  27980. +fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/leapseconds
  27981. +fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/northamerica
  27982. +fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/pacificnew
  27983. +fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/smakefile
  27984. +fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/solar87
  27985. +fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/solar88
  27986. +fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/solar89
  27987. +fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/southamerica
  27988. +fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/systemv
  27989. +fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/usno1988
  27990. +fsf/emacs18/amiga/unix/src/zoneinfo/datfiles/usno1989
  27991. +fsf/emacs18/amiga/unix/src/zoneinfo/getopt.c
  27992. +fsf/emacs18/amiga/unix/src/zoneinfo/getopt.h
  27993. +fsf/emacs18/amiga/unix/src/zoneinfo/ialloc.c
  27994. +fsf/emacs18/amiga/unix/src/zoneinfo/smakefile
  27995. +fsf/emacs18/amiga/unix/src/zoneinfo/zic
  27996. +fsf/emacs18/amiga/unix/src/zoneinfo/zic.8
  27997. +fsf/emacs18/amiga/unix/src/zoneinfo/zic.c
  27998. +fsf/emacs18/amiga/unix/unix.doc
  27999. +fsf/emacs18/build-install
  28000. +fsf/emacs18/cpp/Makefile
  28001. +fsf/emacs18/cpp/SCOPTIONS
  28002. +fsf/emacs18/cpp/cccp.c
  28003. +fsf/emacs18/cpp/cexp.y
  28004. +fsf/emacs18/cpp/smakefile
  28005. +fsf/emacs18/emacs.com
  28006. +fsf/emacs18/etc/3B-MAXMEM
  28007. +fsf/emacs18/etc/AIX.DUMP
  28008. +fsf/emacs18/etc/APOLLO
  28009. +fsf/emacs18/etc/APPLE
  28010. +fsf/emacs18/etc/BABYL
  28011. +fsf/emacs18/etc/CCADIFF
  28012. +fsf/emacs18/etc/CHARACTERS
  28013. +fsf/emacs18/etc/COOKIES
  28014. +fsf/emacs18/etc/COPYING
  28015. +fsf/emacs18/etc/ChangeLog
  28016. +fsf/emacs18/etc/DEBUG
  28017. +fsf/emacs18/etc/DIFF
  28018. +fsf/emacs18/etc/DISTRIB
  28019. +fsf/emacs18/etc/FAQ
  28020. +fsf/emacs18/etc/FTP
  28021. +fsf/emacs18/etc/GNU
  28022. +fsf/emacs18/etc/GNU.JOKES
  28023. +fsf/emacs18/etc/GOSDIFF
  28024. +fsf/emacs18/etc/INTERVAL.IDEAS
  28025. +fsf/emacs18/etc/INTERVIEW
  28026. +fsf/emacs18/etc/LEDIT
  28027. +fsf/emacs18/etc/LPF
  28028. +fsf/emacs18/etc/MACHINES
  28029. +fsf/emacs18/etc/MAILINGLISTS
  28030. +fsf/emacs18/etc/MOTIVATION
  28031. +fsf/emacs18/etc/Makefile
  28032. +fsf/emacs18/etc/NEWS
  28033. +fsf/emacs18/etc/NICKLES.WORTH
  28034. +fsf/emacs18/etc/ONEWS
  28035. +fsf/emacs18/etc/OONEWS
  28036. +fsf/emacs18/etc/OPTIONS
  28037. +fsf/emacs18/etc/README
  28038. +fsf/emacs18/etc/SCOPTIONS
  28039. +fsf/emacs18/etc/SERVICE
  28040. +fsf/emacs18/etc/SUN-SUPPORT
  28041. +fsf/emacs18/etc/SUNBUG
  28042. +fsf/emacs18/etc/TERMS
  28043. +fsf/emacs18/etc/TO-DO
  28044. +fsf/emacs18/etc/TUTORIAL
  28045. +fsf/emacs18/etc/XDOC
  28046. +fsf/emacs18/etc/XENIX
  28047. +fsf/emacs18/etc/Xkeymap.txt
  28048. +fsf/emacs18/etc/amiga-env.c
  28049. +fsf/emacs18/etc/celibacy.1
  28050. +fsf/emacs18/etc/complink.com
  28051. +fsf/emacs18/etc/cvtmail.c
  28052. +fsf/emacs18/etc/digest-doc.c
  28053. +fsf/emacs18/etc/echo.msg
  28054. +fsf/emacs18/etc/emacs.1
  28055. +fsf/emacs18/etc/emacs.icon
  28056. +fsf/emacs18/etc/emacs.names
  28057. +fsf/emacs18/etc/emacsclient.c
  28058. +fsf/emacs18/etc/emacstool.1
  28059. +fsf/emacs18/etc/emacstool.c
  28060. +fsf/emacs18/etc/env.c
  28061. +fsf/emacs18/etc/etags-vmslib.c
  28062. +fsf/emacs18/etc/etags.c
  28063. +fsf/emacs18/etc/etags.vms
  28064. +fsf/emacs18/etc/fakemail.c
  28065. +fsf/emacs18/etc/faq2texi.perl
  28066. +fsf/emacs18/etc/ledit.l
  28067. +fsf/emacs18/etc/leditcfns.c
  28068. +fsf/emacs18/etc/make-docfile.c
  28069. +fsf/emacs18/etc/makedoc.com
  28070. +fsf/emacs18/etc/movemail.c
  28071. +fsf/emacs18/etc/ms-kermit
  28072. +fsf/emacs18/etc/ms-kermit-7bit
  28073. +fsf/emacs18/etc/qsort.c
  28074. +fsf/emacs18/etc/refcard.tex
  28075. +fsf/emacs18/etc/server.c
  28076. +fsf/emacs18/etc/sex.6
  28077. +fsf/emacs18/etc/sh.c
  28078. +fsf/emacs18/etc/smakefile
  28079. +fsf/emacs18/etc/sorted-doc.c
  28080. +fsf/emacs18/etc/spook.lines
  28081. +fsf/emacs18/etc/termcap.amiga
  28082. +fsf/emacs18/etc/termcap.dat
  28083. +fsf/emacs18/etc/termcap.ucb
  28084. +fsf/emacs18/etc/test-distrib.c
  28085. +fsf/emacs18/etc/testfile
  28086. +fsf/emacs18/etc/ulimit.hack
  28087. +fsf/emacs18/etc/vipcard.tex
  28088. +fsf/emacs18/etc/vmslink.opt
  28089. +fsf/emacs18/etc/wakeup.c
  28090. +fsf/emacs18/etc/xmouse.doc
  28091. +fsf/emacs18/etc/yow.c
  28092. +fsf/emacs18/etc/yow.lines
  28093. +fsf/emacs18/info/COPYING
  28094. +fsf/emacs18/info/dir
  28095. +fsf/emacs18/info/emacs
  28096. +fsf/emacs18/info/emacs-1
  28097. +fsf/emacs18/info/emacs-10
  28098. +fsf/emacs18/info/emacs-11
  28099. +fsf/emacs18/info/emacs-12
  28100. +fsf/emacs18/info/emacs-13
  28101. +fsf/emacs18/info/emacs-14
  28102. +fsf/emacs18/info/emacs-15
  28103. +fsf/emacs18/info/emacs-16
  28104. +fsf/emacs18/info/emacs-17
  28105. +fsf/emacs18/info/emacs-18
  28106. +fsf/emacs18/info/emacs-19
  28107. +fsf/emacs18/info/emacs-2
  28108. +fsf/emacs18/info/emacs-3
  28109. +fsf/emacs18/info/emacs-4
  28110. +fsf/emacs18/info/emacs-5
  28111. +fsf/emacs18/info/emacs-6
  28112. +fsf/emacs18/info/emacs-7
  28113. +fsf/emacs18/info/emacs-8
  28114. +fsf/emacs18/info/emacs-9
  28115. +fsf/emacs18/info/info
  28116. +fsf/emacs18/info/regex
  28117. +fsf/emacs18/info/termcap
  28118. +fsf/emacs18/info/termcap-1
  28119. +fsf/emacs18/info/termcap-2
  28120. +fsf/emacs18/info/termcap-3
  28121. +fsf/emacs18/info/texinfo
  28122. +fsf/emacs18/info/texinfo-1
  28123. +fsf/emacs18/info/texinfo-2
  28124. +fsf/emacs18/info/texinfo-3
  28125. +fsf/emacs18/info/texinfo-4
  28126. +fsf/emacs18/info/vip
  28127. +fsf/emacs18/info/vip-1
  28128. +fsf/emacs18/info/vip-2
  28129. +fsf/emacs18/install.sh
  28130. +fsf/emacs18/kepteditor.com
  28131. +fsf/emacs18/lisp/COPYING
  28132. +fsf/emacs18/lisp/ChangeLog
  28133. +fsf/emacs18/lisp/abbrev.el
  28134. +fsf/emacs18/lisp/abbrev.elc
  28135. +fsf/emacs18/lisp/abbrevlist.el
  28136. +fsf/emacs18/lisp/abbrevlist.elc
  28137. +fsf/emacs18/lisp/ada.el
  28138. +fsf/emacs18/lisp/ada.elc
  28139. +fsf/emacs18/lisp/add-log.el
  28140. +fsf/emacs18/lisp/add-log.elc
  28141. +fsf/emacs18/lisp/amiga-init.el
  28142. +fsf/emacs18/lisp/amiga-init.elc
  28143. +fsf/emacs18/lisp/amiga-menu.el
  28144. +fsf/emacs18/lisp/amiga-menu.elc
  28145. +fsf/emacs18/lisp/amiga-mouse.el
  28146. +fsf/emacs18/lisp/amiga-mouse.elc
  28147. +fsf/emacs18/lisp/autoinsert.el
  28148. +fsf/emacs18/lisp/backquote.el
  28149. +fsf/emacs18/lisp/backquote.elc
  28150. +fsf/emacs18/lisp/bg-mouse.el
  28151. +fsf/emacs18/lisp/bibtex.el
  28152. +fsf/emacs18/lisp/bibtex.elc
  28153. +fsf/emacs18/lisp/blackbox.el
  28154. +fsf/emacs18/lisp/blackbox.elc
  28155. +fsf/emacs18/lisp/buff-menu.el
  28156. +fsf/emacs18/lisp/buff-menu.elc
  28157. +fsf/emacs18/lisp/bytecomp.el
  28158. +fsf/emacs18/lisp/bytecomp.elc
  28159. +fsf/emacs18/lisp/c-fill.el
  28160. +fsf/emacs18/lisp/c-fill.elc
  28161. +fsf/emacs18/lisp/c-mode.el
  28162. +fsf/emacs18/lisp/c-mode.elc
  28163. +fsf/emacs18/lisp/cal.el
  28164. +fsf/emacs18/lisp/cal.elc
  28165. +fsf/emacs18/lisp/chistory.el
  28166. +fsf/emacs18/lisp/chistory.elc
  28167. +fsf/emacs18/lisp/cl-indent.el
  28168. +fsf/emacs18/lisp/cl-indent.elc
  28169. +fsf/emacs18/lisp/cl.el
  28170. +fsf/emacs18/lisp/cl.elc
  28171. +fsf/emacs18/lisp/cmacexp.el
  28172. +fsf/emacs18/lisp/compare-w.el
  28173. +fsf/emacs18/lisp/compare-w.elc
  28174. +fsf/emacs18/lisp/compile.el
  28175. +fsf/emacs18/lisp/compile.elc
  28176. +fsf/emacs18/lisp/dabbrev.el
  28177. +fsf/emacs18/lisp/dabbrev.elc
  28178. +fsf/emacs18/lisp/dbx.el
  28179. +fsf/emacs18/lisp/dbx.elc
  28180. +fsf/emacs18/lisp/debug.el
  28181. +fsf/emacs18/lisp/debug.elc
  28182. +fsf/emacs18/lisp/dired.el
  28183. +fsf/emacs18/lisp/dired.elc
  28184. +fsf/emacs18/lisp/disass.el
  28185. +fsf/emacs18/lisp/disass.elc
  28186. +fsf/emacs18/lisp/dissociate.el
  28187. +fsf/emacs18/lisp/dissociate.elc
  28188. +fsf/emacs18/lisp/doctex.el
  28189. +fsf/emacs18/lisp/doctor.el
  28190. +fsf/emacs18/lisp/doctor.elc
  28191. +fsf/emacs18/lisp/ebuff-menu.el
  28192. +fsf/emacs18/lisp/ebuff-menu.elc
  28193. +fsf/emacs18/lisp/echistory.el
  28194. +fsf/emacs18/lisp/echistory.elc
  28195. +fsf/emacs18/lisp/edt-doc.el
  28196. +fsf/emacs18/lisp/edt.el
  28197. +fsf/emacs18/lisp/edt.elc
  28198. +fsf/emacs18/lisp/ehelp.el
  28199. +fsf/emacs18/lisp/ehelp.elc
  28200. +fsf/emacs18/lisp/electric.el
  28201. +fsf/emacs18/lisp/electric.elc
  28202. +fsf/emacs18/lisp/emacsbug.el
  28203. +fsf/emacs18/lisp/files.el
  28204. +fsf/emacs18/lisp/files.elc
  28205. +fsf/emacs18/lisp/fill.el
  28206. +fsf/emacs18/lisp/fill.elc
  28207. +fsf/emacs18/lisp/flame.el
  28208. +fsf/emacs18/lisp/flame.elc
  28209. +fsf/emacs18/lisp/float.el
  28210. +fsf/emacs18/lisp/float.elc
  28211. +fsf/emacs18/lisp/fortran.el
  28212. +fsf/emacs18/lisp/fortran.elc
  28213. +fsf/emacs18/lisp/ftp.el
  28214. +fsf/emacs18/lisp/ftp.elc
  28215. +fsf/emacs18/lisp/gdb.el
  28216. +fsf/emacs18/lisp/gdb.elc
  28217. +fsf/emacs18/lisp/gosmacs.el
  28218. +fsf/emacs18/lisp/grow-vers.el
  28219. +fsf/emacs18/lisp/hanoi.el
  28220. +fsf/emacs18/lisp/hanoi.elc
  28221. +fsf/emacs18/lisp/help.el
  28222. +fsf/emacs18/lisp/help.elc
  28223. +fsf/emacs18/lisp/helper.el
  28224. +fsf/emacs18/lisp/helper.elc
  28225. +fsf/emacs18/lisp/hideif.el
  28226. +fsf/emacs18/lisp/hideif.elc
  28227. +fsf/emacs18/lisp/icon.el
  28228. +fsf/emacs18/lisp/icon.elc
  28229. +fsf/emacs18/lisp/inc-vers.el
  28230. +fsf/emacs18/lisp/indent.el
  28231. +fsf/emacs18/lisp/indent.elc
  28232. +fsf/emacs18/lisp/info.el
  28233. +fsf/emacs18/lisp/info.elc
  28234. +fsf/emacs18/lisp/informat.el
  28235. +fsf/emacs18/lisp/informat.elc
  28236. +fsf/emacs18/lisp/isearch.el
  28237. +fsf/emacs18/lisp/isearch.elc
  28238. +fsf/emacs18/lisp/kermit.el
  28239. +fsf/emacs18/lisp/keypad.el
  28240. +fsf/emacs18/lisp/keypad.elc
  28241. +fsf/emacs18/lisp/ledit.el
  28242. +fsf/emacs18/lisp/life.el
  28243. +fsf/emacs18/lisp/life.elc
  28244. +fsf/emacs18/lisp/lisp-mode.el
  28245. +fsf/emacs18/lisp/lisp-mode.elc
  28246. +fsf/emacs18/lisp/lisp.el
  28247. +fsf/emacs18/lisp/lisp.elc
  28248. +fsf/emacs18/lisp/loaddefs.el
  28249. +fsf/emacs18/lisp/loadup.el
  28250. +fsf/emacs18/lisp/lpr.el
  28251. +fsf/emacs18/lisp/lpr.elc
  28252. +fsf/emacs18/lisp/macros.el
  28253. +fsf/emacs18/lisp/macros.elc
  28254. +fsf/emacs18/lisp/mail-utils.el
  28255. +fsf/emacs18/lisp/mail-utils.elc
  28256. +fsf/emacs18/lisp/mailalias.el
  28257. +fsf/emacs18/lisp/mailalias.elc
  28258. +fsf/emacs18/lisp/mailpost.el
  28259. +fsf/emacs18/lisp/makesum.el
  28260. +fsf/emacs18/lisp/makesum.elc
  28261. +fsf/emacs18/lisp/man.el
  28262. +fsf/emacs18/lisp/man.elc
  28263. +fsf/emacs18/lisp/medit.el
  28264. +fsf/emacs18/lisp/medit.elc
  28265. +fsf/emacs18/lisp/meese.el
  28266. +fsf/emacs18/lisp/mh-e.el
  28267. +fsf/emacs18/lisp/mh-e.elc
  28268. +fsf/emacs18/lisp/mim-mode.el
  28269. +fsf/emacs18/lisp/mim-mode.elc
  28270. +fsf/emacs18/lisp/mim-syntax.el
  28271. +fsf/emacs18/lisp/mim-syntax.elc
  28272. +fsf/emacs18/lisp/mlconvert.el
  28273. +fsf/emacs18/lisp/mlconvert.elc
  28274. +fsf/emacs18/lisp/mlsupport.el
  28275. +fsf/emacs18/lisp/mlsupport.elc
  28276. +fsf/emacs18/lisp/modula2.el
  28277. +fsf/emacs18/lisp/modula2.elc
  28278. +fsf/emacs18/lisp/novice.el
  28279. +fsf/emacs18/lisp/nroff-mode.el
  28280. +fsf/emacs18/lisp/nroff-mode.elc
  28281. +fsf/emacs18/lisp/options.el
  28282. +fsf/emacs18/lisp/options.elc
  28283. +fsf/emacs18/lisp/outline.el
  28284. +fsf/emacs18/lisp/outline.elc
  28285. +fsf/emacs18/lisp/page.el
  28286. +fsf/emacs18/lisp/page.elc
  28287. +fsf/emacs18/lisp/paragraphs.el
  28288. +fsf/emacs18/lisp/paragraphs.elc
  28289. +fsf/emacs18/lisp/paths.el
  28290. +fsf/emacs18/lisp/picture.el
  28291. +fsf/emacs18/lisp/picture.elc
  28292. +fsf/emacs18/lisp/prolog.el
  28293. +fsf/emacs18/lisp/prolog.elc
  28294. +fsf/emacs18/lisp/rect.el
  28295. +fsf/emacs18/lisp/rect.elc
  28296. +fsf/emacs18/lisp/register.el
  28297. +fsf/emacs18/lisp/register.elc
  28298. +fsf/emacs18/lisp/replace.el
  28299. +fsf/emacs18/lisp/replace.elc
  28300. +fsf/emacs18/lisp/rfc822.el
  28301. +fsf/emacs18/lisp/rfc822.elc
  28302. +fsf/emacs18/lisp/rmail.el
  28303. +fsf/emacs18/lisp/rmail.elc
  28304. +fsf/emacs18/lisp/rmailedit.el
  28305. +fsf/emacs18/lisp/rmailedit.elc
  28306. +fsf/emacs18/lisp/rmailkwd.el
  28307. +fsf/emacs18/lisp/rmailkwd.elc
  28308. +fsf/emacs18/lisp/rmailmsc.el
  28309. +fsf/emacs18/lisp/rmailmsc.elc
  28310. +fsf/emacs18/lisp/rmailout.el
  28311. +fsf/emacs18/lisp/rmailout.elc
  28312. +fsf/emacs18/lisp/rmailsum.el
  28313. +fsf/emacs18/lisp/rmailsum.elc
  28314. +fsf/emacs18/lisp/rnews.el
  28315. +fsf/emacs18/lisp/rnews.elc
  28316. +fsf/emacs18/lisp/rnewspost.el
  28317. +fsf/emacs18/lisp/rnewspost.elc
  28318. +fsf/emacs18/lisp/saveconf.el
  28319. +fsf/emacs18/lisp/scheme.el
  28320. +fsf/emacs18/lisp/scheme.elc
  28321. +fsf/emacs18/lisp/scribe.el
  28322. +fsf/emacs18/lisp/scribe.elc
  28323. +fsf/emacs18/lisp/sendmail.el
  28324. +fsf/emacs18/lisp/sendmail.elc
  28325. +fsf/emacs18/lisp/server.el
  28326. +fsf/emacs18/lisp/server.elc
  28327. +fsf/emacs18/lisp/shell.el
  28328. +fsf/emacs18/lisp/shell.elc
  28329. +fsf/emacs18/lisp/simple.el
  28330. +fsf/emacs18/lisp/simple.elc
  28331. +fsf/emacs18/lisp/simula.defns
  28332. +fsf/emacs18/lisp/simula.el
  28333. +fsf/emacs18/lisp/simula.elc
  28334. +fsf/emacs18/lisp/sort.el
  28335. +fsf/emacs18/lisp/sort.elc
  28336. +fsf/emacs18/lisp/spell.el
  28337. +fsf/emacs18/lisp/spell.elc
  28338. +fsf/emacs18/lisp/spook.el
  28339. +fsf/emacs18/lisp/startup.el
  28340. +fsf/emacs18/lisp/startup.elc
  28341. +fsf/emacs18/lisp/studly.el
  28342. +fsf/emacs18/lisp/studly.elc
  28343. +fsf/emacs18/lisp/subr.el
  28344. +fsf/emacs18/lisp/subr.elc
  28345. +fsf/emacs18/lisp/sun-cursors.el
  28346. +fsf/emacs18/lisp/sun-fns.el
  28347. +fsf/emacs18/lisp/sun-fns.elc
  28348. +fsf/emacs18/lisp/sun-keys.el
  28349. +fsf/emacs18/lisp/sun-mouse.el
  28350. +fsf/emacs18/lisp/sun-mouse.elc
  28351. +fsf/emacs18/lisp/sup-mouse.el
  28352. +fsf/emacs18/lisp/sup-mouse.elc
  28353. +fsf/emacs18/lisp/tabify.el
  28354. +fsf/emacs18/lisp/tabify.elc
  28355. +fsf/emacs18/lisp/tags.el
  28356. +fsf/emacs18/lisp/tags.elc
  28357. +fsf/emacs18/lisp/telnet.el
  28358. +fsf/emacs18/lisp/telnet.elc
  28359. +fsf/emacs18/lisp/term/COPYING
  28360. +fsf/emacs18/lisp/term/apollo.el
  28361. +fsf/emacs18/lisp/term/at386.el
  28362. +fsf/emacs18/lisp/term/bbn.el
  28363. +fsf/emacs18/lisp/term/bg.el
  28364. +fsf/emacs18/lisp/term/bgnv.el
  28365. +fsf/emacs18/lisp/term/bgrv.el
  28366. +fsf/emacs18/lisp/term/bobcat.el
  28367. +fsf/emacs18/lisp/term/intuition-win.el
  28368. +fsf/emacs18/lisp/term/intuition-win.elc
  28369. +fsf/emacs18/lisp/term/s4.el
  28370. +fsf/emacs18/lisp/term/sun.el
  28371. +fsf/emacs18/lisp/term/supdup.el
  28372. +fsf/emacs18/lisp/term/unixpc.el
  28373. +fsf/emacs18/lisp/term/vt100.el
  28374. +fsf/emacs18/lisp/term/vt101.el
  28375. +fsf/emacs18/lisp/term/vt102.el
  28376. +fsf/emacs18/lisp/term/vt125.el
  28377. +fsf/emacs18/lisp/term/vt131.el
  28378. +fsf/emacs18/lisp/term/vt200.el
  28379. +fsf/emacs18/lisp/term/vt220.el
  28380. +fsf/emacs18/lisp/term/vt240.el
  28381. +fsf/emacs18/lisp/term/vt300.el
  28382. +fsf/emacs18/lisp/term/x-win.el
  28383. +fsf/emacs18/lisp/term/xterm.el
  28384. +fsf/emacs18/lisp/terminal.el
  28385. +fsf/emacs18/lisp/terminal.elc
  28386. +fsf/emacs18/lisp/tex-mode.el
  28387. +fsf/emacs18/lisp/tex-mode.elc
  28388. +fsf/emacs18/lisp/tex-start.el
  28389. +fsf/emacs18/lisp/texinfmt.el
  28390. +fsf/emacs18/lisp/texinfmt.elc
  28391. +fsf/emacs18/lisp/texinfo.el
  28392. +fsf/emacs18/lisp/texinfo.elc
  28393. +fsf/emacs18/lisp/text-mode.el
  28394. +fsf/emacs18/lisp/text-mode.elc
  28395. +fsf/emacs18/lisp/time.el
  28396. +fsf/emacs18/lisp/time.elc
  28397. +fsf/emacs18/lisp/uncompress.el
  28398. +fsf/emacs18/lisp/underline.el
  28399. +fsf/emacs18/lisp/underline.elc
  28400. +fsf/emacs18/lisp/undigest.el
  28401. +fsf/emacs18/lisp/undigest.elc
  28402. +fsf/emacs18/lisp/unused.el
  28403. +fsf/emacs18/lisp/userlock.el
  28404. +fsf/emacs18/lisp/userlock.elc
  28405. +fsf/emacs18/lisp/version.el
  28406. +fsf/emacs18/lisp/vi.el
  28407. +fsf/emacs18/lisp/vi.elc
  28408. +fsf/emacs18/lisp/view.el
  28409. +fsf/emacs18/lisp/view.elc
  28410. +fsf/emacs18/lisp/vip.el
  28411. +fsf/emacs18/lisp/vip.elc
  28412. +fsf/emacs18/lisp/vms-patch.el
  28413. +fsf/emacs18/lisp/vms-patch.elc
  28414. +fsf/emacs18/lisp/vmsproc.el
  28415. +fsf/emacs18/lisp/vmsproc.elc
  28416. +fsf/emacs18/lisp/window.el
  28417. +fsf/emacs18/lisp/window.elc
  28418. +fsf/emacs18/lisp/x-menu.el
  28419. +fsf/emacs18/lisp/x-menu.elc
  28420. +fsf/emacs18/lisp/x-mouse.el
  28421. +fsf/emacs18/lisp/x-mouse.elc
  28422. +fsf/emacs18/lisp/xscheme.el
  28423. +fsf/emacs18/lisp/xscheme.elc
  28424. +fsf/emacs18/lisp/yow.el
  28425. +fsf/emacs18/lisp/yow.elc
  28426. +fsf/emacs18/man/ChangeLog
  28427. +fsf/emacs18/man/Makefile
  28428. +fsf/emacs18/man/README
  28429. +fsf/emacs18/man/cl.texinfo
  28430. +fsf/emacs18/man/emacs.aux
  28431. +fsf/emacs18/man/emacs.cps
  28432. +fsf/emacs18/man/emacs.fns
  28433. +fsf/emacs18/man/emacs.kys
  28434. +fsf/emacs18/man/emacs.pgs
  28435. +fsf/emacs18/man/emacs.texi
  28436. +fsf/emacs18/man/emacs.vrs
  28437. +fsf/emacs18/man/regex.texinfo
  28438. +fsf/emacs18/man/split-man
  28439. +fsf/emacs18/man/termcap.aux
  28440. +fsf/emacs18/man/termcap.cps
  28441. +fsf/emacs18/man/termcap.fns
  28442. +fsf/emacs18/man/termcap.kys
  28443. +fsf/emacs18/man/termcap.texi
  28444. +fsf/emacs18/man/texindex.c
  28445. +fsf/emacs18/man/texinfo.aux
  28446. +fsf/emacs18/man/texinfo.cps
  28447. +fsf/emacs18/man/texinfo.fns
  28448. +fsf/emacs18/man/texinfo.tex
  28449. +fsf/emacs18/man/texinfo.texi
  28450. +fsf/emacs18/man/vip.texinfo
  28451. +fsf/emacs18/manifests/bin
  28452. +fsf/emacs18/manifests/src
  28453. +fsf/emacs18/oldXMenu/Activate.c
  28454. +fsf/emacs18/oldXMenu/AddPane.c
  28455. +fsf/emacs18/oldXMenu/AddSel.c
  28456. +fsf/emacs18/oldXMenu/ChangeLog
  28457. +fsf/emacs18/oldXMenu/ChgPane.c
  28458. +fsf/emacs18/oldXMenu/ChgSel.c
  28459. +fsf/emacs18/oldXMenu/Create.c
  28460. +fsf/emacs18/oldXMenu/DelPane.c
  28461. +fsf/emacs18/oldXMenu/DelSel.c
  28462. +fsf/emacs18/oldXMenu/Destroy.c
  28463. +fsf/emacs18/oldXMenu/Error.c
  28464. +fsf/emacs18/oldXMenu/EvHand.c
  28465. +fsf/emacs18/oldXMenu/FindPane.c
  28466. +fsf/emacs18/oldXMenu/FindSel.c
  28467. +fsf/emacs18/oldXMenu/Imakefile
  28468. +fsf/emacs18/oldXMenu/InsPane.c
  28469. +fsf/emacs18/oldXMenu/InsSel.c
  28470. +fsf/emacs18/oldXMenu/Internal.c
  28471. +fsf/emacs18/oldXMenu/Locate.c
  28472. +fsf/emacs18/oldXMenu/Makefile
  28473. +fsf/emacs18/oldXMenu/Post.c
  28474. +fsf/emacs18/oldXMenu/README
  28475. +fsf/emacs18/oldXMenu/Recomp.c
  28476. +fsf/emacs18/oldXMenu/SetAEQ.c
  28477. +fsf/emacs18/oldXMenu/SetFrz.c
  28478. +fsf/emacs18/oldXMenu/SetPane.c
  28479. +fsf/emacs18/oldXMenu/SetSel.c
  28480. +fsf/emacs18/oldXMenu/X10.h
  28481. +fsf/emacs18/oldXMenu/XCrAssoc.c
  28482. +fsf/emacs18/oldXMenu/XDelAssoc.c
  28483. +fsf/emacs18/oldXMenu/XDestAssoc.c
  28484. +fsf/emacs18/oldXMenu/XLookAssoc.c
  28485. +fsf/emacs18/oldXMenu/XMakeAssoc.c
  28486. +fsf/emacs18/oldXMenu/XMenu.h
  28487. +fsf/emacs18/oldXMenu/XMenuInt.h
  28488. +fsf/emacs18/oldXMenu/copyright.h
  28489. +fsf/emacs18/oldXMenu/insque.c
  28490. +fsf/emacs18/shortnames/COPYING
  28491. +fsf/emacs18/shortnames/Makefile
  28492. +fsf/emacs18/shortnames/defines.c
  28493. +fsf/emacs18/shortnames/dups.c
  28494. +fsf/emacs18/shortnames/header.h
  28495. +fsf/emacs18/shortnames/names.c
  28496. +fsf/emacs18/shortnames/reserved
  28497. +fsf/emacs18/shortnames/special
  28498. +fsf/emacs18/src/.dbxinit
  28499. +fsf/emacs18/src/COPYING
  28500. +fsf/emacs18/src/ChangeLog
  28501. +fsf/emacs18/src/Makefile
  28502. +fsf/emacs18/src/README
  28503. +fsf/emacs18/src/SCOPTIONS
  28504. +fsf/emacs18/src/TAGS
  28505. +fsf/emacs18/src/VMSBUILD
  28506. +fsf/emacs18/src/abbrev.c
  28507. +fsf/emacs18/src/acldef.h
  28508. +fsf/emacs18/src/alloc.c
  28509. +fsf/emacs18/src/alloca.c
  28510. +fsf/emacs18/src/alloca.s
  28511. +fsf/emacs18/src/amiga.h
  28512. +fsf/emacs18/src/amiga_clipboard.c
  28513. +fsf/emacs18/src/amiga_data.c
  28514. +fsf/emacs18/src/amiga_dump.c
  28515. +fsf/emacs18/src/amiga_malloc.c
  28516. +fsf/emacs18/src/amiga_menu.c
  28517. +fsf/emacs18/src/amiga_processes.c
  28518. +fsf/emacs18/src/amiga_rexx.c
  28519. +fsf/emacs18/src/amiga_screen.c
  28520. +fsf/emacs18/src/amiga_serial.c
  28521. +fsf/emacs18/src/amiga_sysdep.c
  28522. +fsf/emacs18/src/amiga_term.c
  28523. +fsf/emacs18/src/amiga_tty.c
  28524. +fsf/emacs18/src/buffer.c
  28525. +fsf/emacs18/src/buffer.h
  28526. +fsf/emacs18/src/build.com
  28527. +fsf/emacs18/src/bytecode.c
  28528. +fsf/emacs18/src/callint.c
  28529. +fsf/emacs18/src/callproc.c
  28530. +fsf/emacs18/src/casefiddle.c
  28531. +fsf/emacs18/src/ccom.com
  28532. +fsf/emacs18/src/chpdef.h
  28533. +fsf/emacs18/src/cm.c
  28534. +fsf/emacs18/src/cm.h
  28535. +fsf/emacs18/src/cmds.c
  28536. +fsf/emacs18/src/commands.h
  28537. +fsf/emacs18/src/compile.com
  28538. +fsf/emacs18/src/config.h-dist
  28539. +fsf/emacs18/src/crt0.c
  28540. +fsf/emacs18/src/data.c
  28541. +fsf/emacs18/src/dir.h
  28542. +fsf/emacs18/src/dired.c
  28543. +fsf/emacs18/src/dispextern.h
  28544. +fsf/emacs18/src/dispnew.c
  28545. +fsf/emacs18/src/doc.c
  28546. +fsf/emacs18/src/doprnt.c
  28547. +fsf/emacs18/src/dostrip.c
  28548. +fsf/emacs18/src/editfns.c
  28549. +fsf/emacs18/src/emacs.c
  28550. +fsf/emacs18/src/emacssignal.h
  28551. +fsf/emacs18/src/environ.c
  28552. +fsf/emacs18/src/eval.c
  28553. +fsf/emacs18/src/exec.c
  28554. +fsf/emacs18/src/fileio.c
  28555. +fsf/emacs18/src/filelock.c
  28556. +fsf/emacs18/src/filemode.c
  28557. +fsf/emacs18/src/filetypes.h
  28558. +fsf/emacs18/src/firstfile.c
  28559. +fsf/emacs18/src/fns.c
  28560. +fsf/emacs18/src/getpagesize.h
  28561. +fsf/emacs18/src/gettime.h
  28562. +fsf/emacs18/src/hftctl.c
  28563. +fsf/emacs18/src/indent.c
  28564. +fsf/emacs18/src/indent.h
  28565. +fsf/emacs18/src/insdel.c
  28566. +fsf/emacs18/src/ioctl.h
  28567. +fsf/emacs18/src/keyboard.c
  28568. +fsf/emacs18/src/keymap.c
  28569. +fsf/emacs18/src/lastfile.c
  28570. +fsf/emacs18/src/link.com
  28571. +fsf/emacs18/src/lisp.h
  28572. +fsf/emacs18/src/lread.c
  28573. +fsf/emacs18/src/m-7300.h
  28574. +fsf/emacs18/src/m-all2800.h
  28575. +fsf/emacs18/src/m-alliant.h
  28576. +fsf/emacs18/src/m-alliant1.h
  28577. +fsf/emacs18/src/m-alliant4.h
  28578. +fsf/emacs18/src/m-altos.h
  28579. +fsf/emacs18/src/m-amdahl.h
  28580. +fsf/emacs18/src/m-amiga.h
  28581. +fsf/emacs18/src/m-apollo.h
  28582. +fsf/emacs18/src/m-att3b.h
  28583. +fsf/emacs18/src/m-aviion.h
  28584. +fsf/emacs18/src/m-bullx20.h
  28585. +fsf/emacs18/src/m-celerity.h
  28586. +fsf/emacs18/src/m-convex.h
  28587. +fsf/emacs18/src/m-cydra5.h
  28588. +fsf/emacs18/src/m-delta.h
  28589. +fsf/emacs18/src/m-delta88.h
  28590. +fsf/emacs18/src/m-dpx2-200.h
  28591. +fsf/emacs18/src/m-dpx2-300.h
  28592. +fsf/emacs18/src/m-dpx2.h
  28593. +fsf/emacs18/src/m-dual.h
  28594. +fsf/emacs18/src/m-elxsi.h
  28595. +fsf/emacs18/src/m-gec63.h
  28596. +fsf/emacs18/src/m-gould.h
  28597. +fsf/emacs18/src/m-hp9000s300.h
  28598. +fsf/emacs18/src/m-hp9000s800.h
  28599. +fsf/emacs18/src/m-ibmps2-aix.h
  28600. +fsf/emacs18/src/m-ibmrs6000.h
  28601. +fsf/emacs18/src/m-ibmrt-aix.h
  28602. +fsf/emacs18/src/m-ibmrt.h
  28603. +fsf/emacs18/src/m-intel386.h
  28604. +fsf/emacs18/src/m-intel860.h
  28605. +fsf/emacs18/src/m-iris4d.h
  28606. +fsf/emacs18/src/m-irist.h
  28607. +fsf/emacs18/src/m-is386.h
  28608. +fsf/emacs18/src/m-isi-ov.h
  28609. +fsf/emacs18/src/m-masscomp.h
  28610. +fsf/emacs18/src/m-mega68.h
  28611. +fsf/emacs18/src/m-mg1.h
  28612. +fsf/emacs18/src/m-mips.h
  28613. +fsf/emacs18/src/m-mips4.h
  28614. +fsf/emacs18/src/m-news-risc.h
  28615. +fsf/emacs18/src/m-news.h
  28616. +fsf/emacs18/src/m-next.h
  28617. +fsf/emacs18/src/m-ns16000.h
  28618. +fsf/emacs18/src/m-ns32000.h
  28619. +fsf/emacs18/src/m-nu.h
  28620. +fsf/emacs18/src/m-orion.h
  28621. +fsf/emacs18/src/m-orion105.h
  28622. +fsf/emacs18/src/m-pfa50.h
  28623. +fsf/emacs18/src/m-plexus.h
  28624. +fsf/emacs18/src/m-pmax.h
  28625. +fsf/emacs18/src/m-pyramid.h
  28626. +fsf/emacs18/src/m-pyrmips.h
  28627. +fsf/emacs18/src/m-seq386.h
  28628. +fsf/emacs18/src/m-sequent.h
  28629. +fsf/emacs18/src/m-sgi3000.h
  28630. +fsf/emacs18/src/m-sparc.h
  28631. +fsf/emacs18/src/m-stride.h
  28632. +fsf/emacs18/src/m-sun1.h
  28633. +fsf/emacs18/src/m-sun2.h
  28634. +fsf/emacs18/src/m-sun3.h
  28635. +fsf/emacs18/src/m-sun386.h
  28636. +fsf/emacs18/src/m-tad68k.h
  28637. +fsf/emacs18/src/m-tahoe.h
  28638. +fsf/emacs18/src/m-tandem-s2.h
  28639. +fsf/emacs18/src/m-targon31.h
  28640. +fsf/emacs18/src/m-tek4300.h
  28641. +fsf/emacs18/src/m-template.h
  28642. +fsf/emacs18/src/m-tower32.h
  28643. +fsf/emacs18/src/m-tower32v3.h
  28644. +fsf/emacs18/src/m-triton88.h
  28645. +fsf/emacs18/src/m-ustation.h
  28646. +fsf/emacs18/src/m-vax.h
  28647. +fsf/emacs18/src/m-wicat.h
  28648. +fsf/emacs18/src/macros.c
  28649. +fsf/emacs18/src/macros.h
  28650. +fsf/emacs18/src/malloc.c
  28651. +fsf/emacs18/src/marker.c
  28652. +fsf/emacs18/src/minibuf.c
  28653. +fsf/emacs18/src/mocklisp.c
  28654. +fsf/emacs18/src/ndir.h
  28655. +fsf/emacs18/src/param.h
  28656. +fsf/emacs18/src/paths.h-dist
  28657. +fsf/emacs18/src/pre-crt0.c
  28658. +fsf/emacs18/src/precomp.com
  28659. +fsf/emacs18/src/print.c
  28660. +fsf/emacs18/src/process.c
  28661. +fsf/emacs18/src/process.h
  28662. +fsf/emacs18/src/recomp.com
  28663. +fsf/emacs18/src/regex.c
  28664. +fsf/emacs18/src/regex.h
  28665. +fsf/emacs18/src/s-386bsd.h
  28666. +fsf/emacs18/src/s-386ix.h
  28667. +fsf/emacs18/src/s-aix3-1.h
  28668. +fsf/emacs18/src/s-aix3-2.h
  28669. +fsf/emacs18/src/s-amiga.h
  28670. +fsf/emacs18/src/s-bsd4-1.h
  28671. +fsf/emacs18/src/s-bsd4-2.h
  28672. +fsf/emacs18/src/s-bsd4-3.h
  28673. +fsf/emacs18/src/s-dgux.h
  28674. +fsf/emacs18/src/s-dgux4-31.h
  28675. +fsf/emacs18/src/s-esix.h
  28676. +fsf/emacs18/src/s-esix5r4.h
  28677. +fsf/emacs18/src/s-hpux7.h
  28678. +fsf/emacs18/src/s-hpux8.h
  28679. +fsf/emacs18/src/s-iris3-5.h
  28680. +fsf/emacs18/src/s-iris3-6.h
  28681. +fsf/emacs18/src/s-irix3-3.h
  28682. +fsf/emacs18/src/s-irix4-0.h
  28683. +fsf/emacs18/src/s-isc2-2.h
  28684. +fsf/emacs18/src/s-isc3-0.h
  28685. +fsf/emacs18/src/s-mach2.h
  28686. +fsf/emacs18/src/s-newsos5.h
  28687. +fsf/emacs18/src/s-osf1.h
  28688. +fsf/emacs18/src/s-rtu.h
  28689. +fsf/emacs18/src/s-sco.h
  28690. +fsf/emacs18/src/s-sco3-2-1.h
  28691. +fsf/emacs18/src/s-sco3-2-2.h
  28692. +fsf/emacs18/src/s-sco3-2-4.h
  28693. +fsf/emacs18/src/s-sol2.h
  28694. +fsf/emacs18/src/s-sunos4-0.h
  28695. +fsf/emacs18/src/s-sunos4-1.h
  28696. +fsf/emacs18/src/s-template.h
  28697. +fsf/emacs18/src/s-umax.h
  28698. +fsf/emacs18/src/s-unipl5-0.h
  28699. +fsf/emacs18/src/s-unipl5-2.h
  28700. +fsf/emacs18/src/s-usg5-0.h
  28701. +fsf/emacs18/src/s-usg5-2-2.h
  28702. +fsf/emacs18/src/s-usg5-2.h
  28703. +fsf/emacs18/src/s-usg5-3.h
  28704. +fsf/emacs18/src/s-usg5-4.h
  28705. +fsf/emacs18/src/s-vms.h
  28706. +fsf/emacs18/src/s-vms4-0.h
  28707. +fsf/emacs18/src/s-vms4-2.h
  28708. +fsf/emacs18/src/s-vms4-4.h
  28709. +fsf/emacs18/src/s-vms5-5.h
  28710. +fsf/emacs18/src/s-xenix.h
  28711. +fsf/emacs18/src/scroll.c
  28712. +fsf/emacs18/src/search.c
  28713. +fsf/emacs18/src/simplerexx.c
  28714. +fsf/emacs18/src/simplerexx.h
  28715. +fsf/emacs18/src/sink.h
  28716. +fsf/emacs18/src/sink11.h
  28717. +fsf/emacs18/src/sink11mask.h
  28718. +fsf/emacs18/src/sinkmask.h
  28719. +fsf/emacs18/src/smakefile
  28720. +fsf/emacs18/src/sunfns.c
  28721. +fsf/emacs18/src/syntax.c
  28722. +fsf/emacs18/src/syntax.h
  28723. +fsf/emacs18/src/sysdep.c
  28724. +fsf/emacs18/src/temacs.opt
  28725. +fsf/emacs18/src/term.c
  28726. +fsf/emacs18/src/termcap.c
  28727. +fsf/emacs18/src/termchar.h
  28728. +fsf/emacs18/src/termhooks.h
  28729. +fsf/emacs18/src/terminfo.c
  28730. +fsf/emacs18/src/termopts.h
  28731. +fsf/emacs18/src/testemacs.com
  28732. +fsf/emacs18/src/tparam.c
  28733. +fsf/emacs18/src/uaf.h
  28734. +fsf/emacs18/src/undo.c
  28735. +fsf/emacs18/src/unexaix.c
  28736. +fsf/emacs18/src/unexconvex.c
  28737. +fsf/emacs18/src/unexec.c
  28738. +fsf/emacs18/src/unexelf.c
  28739. +fsf/emacs18/src/unexenix.c
  28740. +fsf/emacs18/src/unexfx2800.c
  28741. +fsf/emacs18/src/unexhp9k800.c
  28742. +fsf/emacs18/src/unexmips.c
  28743. +fsf/emacs18/src/unexnext.c
  28744. +fsf/emacs18/src/unexshm.c
  28745. +fsf/emacs18/src/vlimit.h
  28746. +fsf/emacs18/src/vms-pp.c
  28747. +fsf/emacs18/src/vms-pp.trans
  28748. +fsf/emacs18/src/vms-pwd.h
  28749. +fsf/emacs18/src/vmsfns.c
  28750. +fsf/emacs18/src/vmsmap.c
  28751. +fsf/emacs18/src/vmspaths.h
  28752. +fsf/emacs18/src/window.c
  28753. +fsf/emacs18/src/window.h
  28754. +fsf/emacs18/src/x11fns.c
  28755. +fsf/emacs18/src/x11term.c
  28756. +fsf/emacs18/src/x11term.h
  28757. +fsf/emacs18/src/xdisp.c
  28758. +fsf/emacs18/src/xfns.c
  28759. +fsf/emacs18/src/xkeys-aix.h
  28760. +fsf/emacs18/src/xmenu.c
  28761. +fsf/emacs18/src/xterm.c
  28762. +fsf/emacs18/src/xterm.h
  28763. +fsf/emacs18/src/ymakefile
  28764. +fsf/emacs18/vmsdist.com
  28765. diff -rup --new-file baseline/fsf/emacs18/src/SCOPTIONS amiga/fsf/emacs18/src/SCOPTIONS
  28766. --- baseline/fsf/emacs18/src/SCOPTIONS    Wed Dec 31 17:00:00 1969
  28767. +++ amiga/fsf/emacs18/src/SCOPTIONS    Sat Sep 28 00:00:00 1996
  28768. @@ -0,0 +1,15 @@
  28769. +STRINGMERGE
  28770. +STRUCTUREEQUIVALENCE
  28771. +NOWARNVOIDRETURN
  28772. +NOVERSION
  28773. +MEMORYSIZE=HUGE
  28774. +INCLUDEDIR=//unix/include
  28775. +IGNORE=147
  28776. +IGNORE=62
  28777. +IGNORE=132
  28778. +IGNORE=154
  28779. +IGNORE=104
  28780. +IGNORE=100
  28781. +IGNORE=161
  28782. +IGNORE=84
  28783. +IGNORE=93
  28784. diff -rup --new-file baseline/fsf/emacs18/src/alloc.c amiga/fsf/emacs18/src/alloc.c
  28785. --- baseline/fsf/emacs18/src/alloc.c    Sun Sep 20 22:45:30 1992
  28786. +++ amiga/fsf/emacs18/src/alloc.c    Sat Sep 28 00:00:00 1996
  28787. @@ -76,6 +76,11 @@ Lisp_Object Vpurify_flag;
  28788.     Preallocated since perhaps we can't allocate it when memory is full.  */
  28789.  Lisp_Object memory_exhausted_message;
  28790.  
  28791. +#ifdef AMIGA_DUMP
  28792. +int *pure;   /* pure array is allocated at run-time */
  28793. +int puresize = DEF_PURESIZE; /* and has a variable size */
  28794. +#define PUREBEG (char *) pure
  28795. +#else /* not AMIGA_DUMP */
  28796.  #ifndef HAVE_SHM
  28797.  #ifdef VMS
  28798.  int pure[PURESIZE / sizeof (int)];    /*no need to initialize - wasted space*/
  28799. @@ -87,6 +92,7 @@ int pure[PURESIZE / sizeof (int)] = {0,}
  28800.  #define pure PURE_SEG_BITS   /* Use shared memory segment */
  28801.  #define PUREBEG (char *)PURE_SEG_BITS
  28802.  #endif /* not HAVE_SHM */
  28803. +#endif /* not AMIGA_DUMP */
  28804.  
  28805.  /* Index in pure at which next pure object will be allocated. */
  28806.  int pureptr;
  28807. @@ -608,7 +614,7 @@ make_uninit_string (length)
  28808.        XSET (val, Lisp_String,
  28809.          (struct Lisp_String *) current_string_block->chars);
  28810.      }
  28811. -    
  28812. +
  28813.    XSTRING (val)->size = length;
  28814.    XSTRING (val)->data[length] = 0;
  28815.  
  28816. @@ -727,9 +733,13 @@ int staticidx = 0;
  28817.  #ifdef __GNUC__
  28818.  Lisp_Object *staticvec[NSTATICS] = {0};
  28819.  #else
  28820. +#ifdef AMIGA_DUMP
  28821. +Lisp_Object *staticvec[NSTATICS]; /* Doesn't need to be pure */
  28822. +#else
  28823.  char staticvec1[NSTATICS * sizeof (Lisp_Object *)] = {0};
  28824.  #define staticvec ((Lisp_Object **) staticvec1)
  28825.  #endif
  28826. +#endif
  28827.  
  28828.  /* Put an entry in staticvec, pointing at the variable whose address is given */
  28829.  
  28830. @@ -859,12 +869,12 @@ gc-cons-threshold  bytes of Lisp data si
  28831.      {
  28832.        mark_object (&catch->tag);
  28833.        mark_object (&catch->val);
  28834. -    }  
  28835. +    }
  28836.    for (handler = handlerlist; handler; handler = handler->next)
  28837.      {
  28838.        mark_object (&handler->handler);
  28839.        mark_object (&handler->var);
  28840. -    }  
  28841. +    }
  28842.    for (backlist = backtrace_list; backlist; backlist = backlist->next)
  28843.      {
  28844.        if (!XMARKBIT (*backlist->function))
  28845. @@ -882,7 +892,7 @@ gc-cons-threshold  bytes of Lisp data si
  28846.          mark_object (&backlist->args[i]);
  28847.          XMARK (backlist->args[i]);
  28848.        }
  28849. -    }  
  28850. +    }
  28851.  
  28852.    gc_sweep ();
  28853.  
  28854. @@ -900,7 +910,7 @@ gc-cons-threshold  bytes of Lisp data si
  28855.      i = backlist->nargs - 1;
  28856.        for (; i >= 0; i--)
  28857.      XUNMARK (backlist->args[i]);
  28858. -    }  
  28859. +    }
  28860.    XUNMARK (buffer_defaults.name);
  28861.    XUNMARK (buffer_local_symbols.name);
  28862.  
  28863. @@ -936,7 +946,7 @@ clear_marks ()
  28864.    {
  28865.      register struct cons_block *cblk;
  28866.      register int lim = cons_block_index;
  28867. -  
  28868. +
  28869.      for (cblk = cons_block; cblk; cblk = cblk->next)
  28870.        {
  28871.      register int i;
  28872. @@ -949,7 +959,7 @@ clear_marks ()
  28873.    {
  28874.      register struct symbol_block *sblk;
  28875.      register int lim = symbol_block_index;
  28876. -  
  28877. +
  28878.      for (sblk = symbol_block; sblk; sblk = sblk->next)
  28879.        {
  28880.      register int i;
  28881. @@ -964,7 +974,7 @@ clear_marks ()
  28882.    {
  28883.      register struct marker_block *sblk;
  28884.      register int lim = marker_block_index;
  28885. -  
  28886. +
  28887.      for (sblk = marker_block; sblk; sblk = sblk->next)
  28888.        {
  28889.      register int i;
  28890. @@ -1197,7 +1207,7 @@ gc_sweep ()
  28891.      register int num_free = 0, num_used = 0;
  28892.  
  28893.      cons_free_list = 0;
  28894. -  
  28895. +
  28896.      for (cblk = cons_block; cblk; cblk = cblk->next)
  28897.        {
  28898.      register int i;
  28899. @@ -1226,7 +1236,7 @@ gc_sweep ()
  28900.      register int num_free = 0, num_used = 0;
  28901.  
  28902.      symbol_free_list = 0;
  28903. -  
  28904. +
  28905.      for (sblk = symbol_block; sblk; sblk = sblk->next)
  28906.        {
  28907.      register int i;
  28908. @@ -1260,7 +1270,7 @@ gc_sweep ()
  28909.      register int num_free = 0, num_used = 0;
  28910.  
  28911.      marker_free_list = 0;
  28912. -  
  28913. +
  28914.      for (mblk = marker_block; mblk; mblk = mblk->next)
  28915.        {
  28916.      register int i;
  28917. @@ -1400,7 +1410,8 @@ compact_strings ()
  28918.            while ((unsigned) size > STRING_BLOCK_SIZE)
  28919.          {
  28920.            if (size & 1) size ^= MARKBIT | 1;
  28921. -          size = *(int *)size & ~MARKBIT;
  28922. +          size = *(int *)size;
  28923. +                  size &= ~MARKBIT;
  28924.          }
  28925.  
  28926.            total_string_size += size;
  28927. @@ -1438,7 +1449,8 @@ compact_strings ()
  28928.            if (size & 1) size ^= MARKBIT | 1;
  28929.            objptr = (Lisp_Object *)size;
  28930.  
  28931. -          size = XFASTINT (*objptr) & ~MARKBIT;
  28932. +          size = XFASTINT (*objptr);
  28933. +                  size &= ~MARKBIT;
  28934.            if (XMARKBIT (*objptr))
  28935.              {
  28936.                XSET (*objptr, Lisp_String, newaddr);
  28937. @@ -1498,7 +1510,7 @@ truncate_all_undos ()
  28938.       Qt tends to return NULL, which effectively turns undo back on.
  28939.       So don't call truncate_undo_list if undo_list is Qt.  */
  28940.        if (! EQ (nextb->undo_list, Qt))
  28941. -    nextb->undo_list 
  28942. +    nextb->undo_list
  28943.        = truncate_undo_list (nextb->undo_list, undo_threshold,
  28944.                  undo_high_threshold);
  28945.        nextb = nextb->next;
  28946. diff -rup --new-file baseline/fsf/emacs18/src/alloca.c amiga/fsf/emacs18/src/alloca.c
  28947. --- baseline/fsf/emacs18/src/alloca.c    Sat Jul 25 14:40:32 1992
  28948. +++ amiga/fsf/emacs18/src/alloca.c    Sat Sep 28 00:00:00 1996
  28949. @@ -72,7 +72,7 @@ extern pointer    xmalloc();
  28950.  #define    STACK_DIRECTION    0        /* direction unknown */
  28951.  #endif
  28952.  
  28953. -#if STACK_DIRECTION != 0
  28954. +#if (STACK_DIRECTION) != 0
  28955.  
  28956.  #define    STACK_DIR    STACK_DIRECTION    /* known at compile-time */
  28957.  
  28958. @@ -137,6 +137,8 @@ typedef union hdr
  28959.  
  28960.  static header *last_alloca_header = NULL; /* -> last alloca header */
  28961.  
  28962. +int alloca_calling;
  28963. +
  28964.  pointer
  28965.  alloca (size)            /* returns pointer to storage */
  28966.       unsigned    size;        /* # bytes to allocate */
  28967. @@ -176,10 +178,12 @@ alloca (size)            /* returns pointer to st
  28968.  
  28969.    /* Allocate combined header + user data storage. */
  28970.  
  28971. +  alloca_calling = 1;
  28972.    {
  28973.      register pointer    new = xmalloc (sizeof (header) + size);
  28974.      /* address of header */
  28975.  
  28976. +    alloca_calling = 0;
  28977.      ((header *)new)->h.next = last_alloca_header;
  28978.      ((header *)new)->h.deep = depth;
  28979.  
  28980. diff -rup --new-file baseline/fsf/emacs18/src/amiga.h amiga/fsf/emacs18/src/amiga.h
  28981. --- baseline/fsf/emacs18/src/amiga.h    Wed Dec 31 17:00:00 1969
  28982. +++ amiga/fsf/emacs18/src/amiga.h    Sat Sep 28 00:00:00 1996
  28983. @@ -0,0 +1,145 @@
  28984. +
  28985. +/* Prototypes for functions defined in amiga_clipboard.c */
  28986. +void syms_of_amiga_clipboard(void);
  28987. +void early_clipboard(void);
  28988. +void init_clipboard(void);
  28989. +void cleanup_clipboard(void);
  28990. +
  28991. +/* Prototypes for functions defined in amiga_dump.c */
  28992. +void map_out_data(char *fn);
  28993. +void map_in_data(int load);
  28994. +extern void *far first_fn, *far last_fn;
  28995. +
  28996. +/* Prototypes for functions defined in amiga_menu.c */
  28997. +void suspend_menus(void);
  28998. +int resume_menus(void);
  28999. +void syms_of_amiga_menu(void);
  29000. +void init_amiga_menu(void);
  29001. +void cleanup_amiga_menu(void);
  29002. +
  29003. +/* Prototypes for functions defined in amiga_processes.c */
  29004. +/* Simulation of unix processes & signals */
  29005. +int wait_for_termination(int pid);
  29006. +int wait_without_blocking(void);
  29007. +char *amiga_path(void);
  29008. +void init_amiga_processes(void);
  29009. +void cleanup_amiga_processes(void);
  29010. +
  29011. +/* Prototypes for functions defined in amiga_rexx.c */
  29012. +int check_arexx(int force, int kbd);
  29013. +void init_amiga_rexx(void);
  29014. +void cleanup_amiga_rexx(void);
  29015. +void syms_of_amiga_rexx(void);
  29016. +
  29017. +/* Prototypes for functions defined in amiga_screen.c */
  29018. +extern struct Window *emacs_win;
  29019. +void get_window_size(int *widthp, int *heightp);
  29020. +void reset_window(void);
  29021. +void force_window(void);
  29022. +void add_wbevent(struct WBArg *wbarg);
  29023. +void check_window(int force);
  29024. +void setup_intchar(char intchar);
  29025. +
  29026. +void start_count(int n);
  29027. +void stop_count(int n);
  29028. +void suspend_count(int n);
  29029. +void resume_count(int n);
  29030. +int disp_counts(void);
  29031. +
  29032. +void screen_puts(char *str, unsigned int len);
  29033. +void syms_of_amiga_screen(void);
  29034. +void init_amiga_screen(void);
  29035. +void cleanup_amiga_screen(void);
  29036. +
  29037. +/* Prototypes for functions defined in amiga_serial.c */
  29038. +void init_amiga_serial(void);
  29039. +void cleanup_amiga_serial(void);
  29040. +void check_serial(int force);
  29041. +void serial_puts(char *str, int len);
  29042. +unsigned long serial_baud_rate(void);
  29043. +
  29044. +/* Prototypes for functions defined in amiga_sysdep.c */
  29045. +extern int selecting;
  29046. +
  29047. +int set_exclusive_use(int fd);
  29048. +int sys_suspend(void);
  29049. +char *get_system_name(void);
  29050. +char *expand_path(char *path, char *buf, int len);
  29051. +int syms_of_amiga(void);
  29052. +void cleanup_amiga(void);
  29053. +void amiga_undump_reinit(void);
  29054. +void *early_xmalloc(long size);
  29055. +void *early_xrealloc(void *old, long size);
  29056. +
  29057. +/* Failure stuff */
  29058. +void wbmessage(char *msg);
  29059. +void fail(char *cause);
  29060. +void fail_nomem(void);
  29061. +void _fail_internal(char *file, int line);
  29062. +#define fail_internal() _fail_internal(__FILE__, __LINE__);
  29063. +enum exit_method { use_exit, use_xcexit, use_safe };
  29064. +extern enum exit_method amiga_fail_exit;
  29065. +
  29066. +#define MALLOC_HUNK_SIZE 92000 /* Default malloc hunk size */
  29067. +extern long malloc_hunk_size; /* Amount of memory malloc'ed by a to-be-dumped emacs */
  29068. +extern long malloc_bytes_used;    /* Amount of this hunk actually used */
  29069. +extern long far pre_alloc;    /* amount of memory to reserve for emacs */
  29070. +extern int puresize;        /* Size of pure hunk */
  29071. +
  29072. +/* Various special values used to find the beginning & end of the text, data,
  29073. +   bss and malloc segments. */
  29074. +extern int first_data, last_data, first_bss, last_bss;
  29075. +extern void first_function(), last_function();
  29076. +extern char *malloc_hunk;
  29077. +extern int amiga_initialized;    /* True once Emacs has been undumped or initialised */
  29078. +struct mem_header        /* sizeof() must be multiple of 4 ! */
  29079. +{
  29080. +    struct mem_header *next, *prev;
  29081. +    long size;
  29082. +    /* Data follows */
  29083. +};
  29084. +extern struct mem_header *free_list;
  29085. +
  29086. +
  29087. +/* Prototypes for functions defined in amiga_term.c */
  29088. +int amiga_term_init(void);
  29089. +
  29090. +/* Prototypes for functions defined in amiga_tty.c */
  29091. +extern struct timeinfo *far odd_timer;
  29092. +extern unsigned long odd_sig;
  29093. +int setpgrp_of_tty(int pid);
  29094. +int init_sigio(void);
  29095. +int reset_sigio(void);
  29096. +int request_sigio(void);
  29097. +int unrequest_sigio(void);
  29098. +int tabs_safe_p(void);
  29099. +int get_screen_size(int *widthp, int *heightp);
  29100. +int init_baud_rate(void);
  29101. +void check_intuition(void);
  29102. +#define AMIGASEQ 256 /* When passed to enque, insert the Amiga sequence introducer
  29103. +                C-x C-^ */
  29104. +void enque(unsigned int c, int meta);
  29105. +int init_sys_modes(void);
  29106. +int reset_sys_modes(void);
  29107. +void amiga_consume_input(void);
  29108. +int discard_tty_input(void);
  29109. +int emacs_fflush(struct __iobuf *f);
  29110. +void emacs_putchar(int c);
  29111. +void emacs_output(char *str, int size);
  29112. +void emacs_fwrite(char *str, unsigned int nblocks, unsigned int len, FILE *f);
  29113. +void syms_of_amiga_tty(void);
  29114. +void init_amiga_tty(void);
  29115. +void cleanup_amiga_tty(void);
  29116. +void early_amiga_tty(void);
  29117. +void amiga_term_open(void);
  29118. +/* Signal mask used to detect available keyboard input.
  29119. +   Must be set by amiga_serial or amiga_screen */
  29120. +extern unsigned long inputsig;
  29121. +
  29122. +/* Prototypes for functions defined in amiga_unix.c */
  29123. +void MemCleanup(void);
  29124. +char *malloc(int size);
  29125. +int free(void *p);
  29126. +char *calloc(long n, long size);
  29127. +char *realloc(char *p, long size);
  29128. +void emacs_malloc_init(void);
  29129. diff -rup --new-file baseline/fsf/emacs18/src/amiga_clipboard.c amiga/fsf/emacs18/src/amiga_clipboard.c
  29130. --- baseline/fsf/emacs18/src/amiga_clipboard.c    Wed Dec 31 17:00:00 1969
  29131. +++ amiga/fsf/emacs18/src/amiga_clipboard.c    Sat Sep 28 00:00:00 1996
  29132. @@ -0,0 +1,225 @@
  29133. +#include "config.h"
  29134. +#undef NULL
  29135. +#include "lisp.h"
  29136. +#include "termchar.h"
  29137. +#include "amiga.h"
  29138. +
  29139. +#include <stdio.h>
  29140. +#include <internal/devices.h>
  29141. +
  29142. +#undef LONGBITS
  29143. +
  29144. +#include <exec/types.h>
  29145. +#include <exec/io.h>
  29146. +#include <devices/clipboard.h>
  29147. +#include <libraries/iffparse.h>
  29148. +#include <utility/hooks.h>
  29149. +
  29150. +#include <proto/exec.h>
  29151. +#include <proto/iffparse.h>
  29152. +
  29153. +#define  ID_FTXT    MAKE_ID('F','T','X','T')
  29154. +#define  ID_CHRS    MAKE_ID('C','H','R','S')
  29155. +
  29156. +/*
  29157. + * Text error messages for possible IFFERR_#? returns from various
  29158. + * IFF routines.  To get the index into this array, take your IFFERR code,
  29159. + * negate it, and subtract one.
  29160. + *  idx = -error - 1;
  29161. + */
  29162. +static char *far ifferrormsgs[] = {
  29163. +    "End of file (not an error).",
  29164. +    "End of context (not an error).",
  29165. +    "No lexical scope.",
  29166. +    "Insufficient memory.",
  29167. +    "Stream read error.",
  29168. +    "Stream write error.",
  29169. +    "Stream seek error.",
  29170. +    "File is corrupt.",
  29171. +    "IFF syntax error.",
  29172. +    "Not an IFF file.",
  29173. +    "Required call-back hook missing.",
  29174. +    "Return to client.  You should never see this."
  29175. +};
  29176. +
  29177. +Lisp_Object amiga_new_clip;
  29178. +static struct IFFHandle *far iff;
  29179. +struct Library *IFFParseBase;
  29180. +
  29181. +static struct IOClipReq *far ClipRequest;
  29182. +static struct Hook cliphook;
  29183. +
  29184. +/* added __interrupt flag this disables stack checking for this function
  29185. + * so we can compile with stack checking on.  -ch3/19/93. */
  29186. +static ULONG __saveds __asm __interrupt
  29187. +clip_change(    register __a0 struct Hook    *hook,
  29188. +        register __a2 VOID        *object,
  29189. +        register __a1 ULONG        *message )
  29190. +{
  29191. +    amiga_new_clip = 1;
  29192. +    return 0;
  29193. +}
  29194. +
  29195. +static Lisp_Object clip_unwind(Lisp_Object dummy)
  29196. +{
  29197. +    CloseIFF (iff);
  29198. +    CloseClipboard ((struct ClipboardHandle *) iff->iff_Stream);
  29199. +
  29200. +    return Qnil;
  29201. +}
  29202. +
  29203. +static int clip_protect(void)
  29204. +{
  29205. +    int count = specpdl_ptr - specpdl;
  29206. +
  29207. +    record_unwind_protect(clip_unwind, Qnil);
  29208. +
  29209. +    return count;
  29210. +}
  29211. +
  29212. +static long clip_check(long err)
  29213. +{
  29214. +    if(err) error ("Clipboard IO failed, error %ld: %s\n",
  29215. +           err, ifferrormsgs[-err - 1]);
  29216. +    return err;
  29217. +}
  29218. +
  29219. +
  29220. +static void cut(char *str, int size)
  29221. +{
  29222. +    int count;
  29223. +
  29224. +    if (!(iff->iff_Stream = (ULONG) OpenClipboard (0)))
  29225. +    error ("Clipboard open failed.");
  29226. +
  29227. +    count = clip_protect();
  29228. +
  29229. +    /* Open clipbaord */
  29230. +    InitIFFasClip (iff);
  29231. +    clip_check(OpenIFF (iff, IFFF_WRITE));
  29232. +
  29233. +    /* Write data */
  29234. +    clip_check(PushChunk(iff, ID_FTXT, ID_FORM, IFFSIZE_UNKNOWN));
  29235. +    clip_check(PushChunk(iff, 0, ID_CHRS, IFFSIZE_UNKNOWN));
  29236. +    if (WriteChunkBytes(iff, str, size) != size) clip_check(IFFERR_WRITE);
  29237. +    clip_check(PopChunk(iff));
  29238. +    clip_check(PopChunk(iff));
  29239. +
  29240. +    /* & close */
  29241. +    unbind_to (count);
  29242. +}
  29243. +
  29244. +DEFUN ("amiga-cut", Famiga_cut, Samiga_cut,
  29245. +  1, 1, 0,
  29246. +  "Copy string into Amiga clipboard.")
  29247. +  (arg)
  29248. +     Lisp_Object arg;
  29249. +{
  29250. +    struct Lisp_String *p;
  29251. +
  29252. +    CHECK_STRING (arg, 0);
  29253. +
  29254. +    p = XSTRING (arg);
  29255. +    cut(p->data, p->size);
  29256. +
  29257. +    return Qnil;
  29258. +}
  29259. +
  29260. +DEFUN ("amiga-paste", Famiga_paste, Samiga_paste,
  29261. +  0, 0, 0,
  29262. +  "Returns text currently in the Amiga clipboard, or NIL if there is none.")
  29263. +  ()
  29264. +{
  29265. +    long err = 0;
  29266. +    Lisp_Object result = Qnil;
  29267. +    struct ContextNode  *cn;
  29268. +    int count;
  29269. +
  29270. +    if (!(iff->iff_Stream = (ULONG) OpenClipboard (0)))
  29271. +    error ("Clipboard open failed.");
  29272. +
  29273. +    count = clip_protect();
  29274. +
  29275. +    /* Open clipbaord */
  29276. +    InitIFFasClip (iff);
  29277. +    clip_check(OpenIFF (iff, IFFF_READ));
  29278. +    clip_check(StopChunk(iff, ID_FTXT, ID_CHRS));
  29279. +
  29280. +    /* Find the first FTXT CHRS chunks */
  29281. +    while (result == Qnil)
  29282. +    {
  29283. +    long err = ParseIFF(iff, IFFPARSE_SCAN);
  29284. +
  29285. +    if (err == IFFERR_EOC) continue; /* enter next context */
  29286. +    else if (err == IFFERR_EOF) break;
  29287. +    else clip_check(err);
  29288. +
  29289. +    /* We only asked to stop at FTXT CHRS chunks
  29290. +     * If no error we've hit a stop chunk
  29291. +     * Read the CHRS chunk data
  29292. +     */
  29293. +    cn = CurrentChunk(iff);
  29294. +
  29295. +    if ((cn) && (cn->cn_Type == ID_FTXT) && (cn->cn_ID == ID_CHRS))
  29296. +    {
  29297. +        int size = cn->cn_Size, rlen;
  29298. +
  29299. +        result = make_string("", size);
  29300. +
  29301. +        if ((rlen = ReadChunkBytes(iff, XSTRING (result)->data, size)) != size)
  29302. +        if (rlen < 0) clip_check(rlen);
  29303. +        else clip_check(IFFERR_EOC);
  29304. +    }
  29305. +    }
  29306. +    unbind_to (count);
  29307. +
  29308. +    return result;
  29309. +}
  29310. +
  29311. +void syms_of_amiga_clipboard(void)
  29312. +{
  29313. +    DEFVAR_BOOL ("amiga-new-clip", &amiga_new_clip,
  29314. +         "Set to t every time a new clip is put in the Amiga clipboard");
  29315. +    amiga_new_clip = 0;
  29316. +
  29317. +    defsubr (&Samiga_cut);
  29318. +    defsubr (&Samiga_paste);
  29319. +}
  29320. +
  29321. +void early_clipboard(void)
  29322. +{
  29323. +    IFFParseBase = 0;
  29324. +}
  29325. +
  29326. +void init_clipboard(void)
  29327. +{
  29328. +    /* Initialise IFF for clipboard */
  29329. +    if (!(IFFParseBase = OpenLibrary("iffparse.library", 0)))
  29330. +      _fail("iffparse.library is required");
  29331. +    if (!(iff = AllocIFF())) no_memory();
  29332. +
  29333. +    ClipRequest = (struct IOClipReq *)
  29334. +    _device_open("clipboard.device", 0L, 0L, 0L, 0, sizeof(struct IOClipReq));
  29335. +    if (!ClipRequest) _fail("clipboard.device missing !?");
  29336. +
  29337. +    cliphook.h_Entry = (ULONG (*)())clip_change;
  29338. +    ClipRequest->io_Command = CBD_CHANGEHOOK;
  29339. +    ClipRequest->io_Length = 1; /* install */
  29340. +    ClipRequest->io_Data = (APTR)&cliphook;
  29341. +    DoIO((struct IORequest *)ClipRequest);
  29342. +}
  29343. +
  29344. +void cleanup_clipboard(void)
  29345. +{
  29346. +    if (ClipRequest)
  29347. +    {
  29348. +    cliphook.h_Entry = (ULONG (*)())clip_change;
  29349. +    ClipRequest->io_Command = CBD_CHANGEHOOK;
  29350. +    ClipRequest->io_Length = 0; /* remove */
  29351. +    ClipRequest->io_Data = (APTR)&cliphook;
  29352. +    DoIO((struct IORequest *)ClipRequest);
  29353. +    }
  29354. +    if (iff) FreeIFF(iff);
  29355. +    if (IFFParseBase) CloseLibrary(IFFParseBase);
  29356. +    _device_close((struct IORequest *)ClipRequest);
  29357. +}
  29358. diff -rup --new-file baseline/fsf/emacs18/src/amiga_data.c amiga/fsf/emacs18/src/amiga_data.c
  29359. --- baseline/fsf/emacs18/src/amiga_data.c    Wed Dec 31 17:00:00 1969
  29360. +++ amiga/fsf/emacs18/src/amiga_data.c    Sat Sep 28 00:00:00 1996
  29361. @@ -0,0 +1 @@
  29362. +/* Declarations of data that should not be squashed by the dump routine */
  29363. diff -rup --new-file baseline/fsf/emacs18/src/amiga_dump.c amiga/fsf/emacs18/src/amiga_dump.c
  29364. --- baseline/fsf/emacs18/src/amiga_dump.c    Wed Dec 31 17:00:00 1969
  29365. +++ amiga/fsf/emacs18/src/amiga_dump.c    Sat Sep 28 00:00:00 1996
  29366. @@ -0,0 +1,721 @@
  29367. +#include <exec/types.h>
  29368. +#include <fcntl.h>
  29369. +#include <stdio.h>
  29370. +#include <assert.h>
  29371. +#include <proto/dos.h>
  29372. +#include <internal/messages.h>
  29373. +#include "config.h"
  29374. +#include "lisp.h"
  29375. +#include "buffer.h"
  29376. +#include "regex.h"
  29377. +#include "amiga.h"
  29378. +#include "dispextern.h"
  29379. +#include "termchar.h"
  29380. +
  29381. +#define RANGE(ptr, s, e) ((char *)ptr >= (char *)s && (char *)ptr < (char *)e)
  29382. +#define HUNK_POS (VALBITS - 3)
  29383. +#define HUNK_MASK (7 << HUNK_POS)
  29384. +#define HUNK_CODE (0 << HUNK_POS)
  29385. +#define HUNK_DATA (1 << HUNK_POS)
  29386. +#define HUNK_BSS (2 << HUNK_POS)
  29387. +#define HUNK_MALLOC (3 << HUNK_POS)
  29388. +#define HUNK_PURE (4 << HUNK_POS)
  29389. +#define ARRAY_MARK_FLAG ((MARKBIT >> 1) & ~MARKBIT)
  29390. +
  29391. +void *far first_fn = first_function, *far last_fn = last_function;
  29392. +
  29393. +extern int *pure, puresize;
  29394. +extern struct gcpro *gcprolist;
  29395. +
  29396. +extern Lisp_Object *staticvec[];
  29397. +extern int staticidx;
  29398. +extern struct cons_block *cons_block;
  29399. +extern struct Lisp_Cons *cons_free_list;
  29400. +extern struct Lisp_Vector *all_vectors;
  29401. +extern struct symbol_block *symbol_block;
  29402. +extern struct Lisp_Symbol *symbol_free_list;
  29403. +extern struct marker_block *marker_block;
  29404. +extern struct Lisp_Marker *marker_free_list;
  29405. +
  29406. +struct string_block_head
  29407. +  {
  29408. +    struct string_block_head *next, *prev;
  29409. +    int pos;
  29410. +  };
  29411. +extern struct string_block_head *current_string_block;
  29412. +extern struct string_block_head *first_string_block;
  29413. +extern struct string_block_head *large_string_blocks;
  29414. +extern char *kbd_macro_buffer, *read_buffer, *chars_wasted, *copybuf;
  29415. +extern struct minibuf_save_data *minibuf_save_vector;
  29416. +extern struct re_pattern_buffer searchbuf;
  29417. +extern int *ILcost, *DLcost, *ILncost, *DLncost;
  29418. +extern Lisp_Object MouseMap, global_map, Vglobal_map, Vesc_map, Vctl_x_map;
  29419. +extern Lisp_Object Qvariable_documentation, selected_window;
  29420. +
  29421. +extern char *callint_argfuns[];
  29422. +
  29423. +static void *dump_malloc(int size)
  29424. +{
  29425. +  void *new = malloc(size);
  29426. +
  29427. +  if (!new) no_memory();
  29428. +
  29429. +  return new;
  29430. +}
  29431. +
  29432. +static void bailout(char *fn)
  29433. +{
  29434. +  if (fn) _message("%s isn't a dump file for this version of Emacs, aborting", fn);
  29435. +  else _message("Dump file isn't for this version of Emacs, aborting");
  29436. +
  29437. +  /* We are in deep trouble, as all our variables are potentially corrupt */
  29438. +  /* Therefore, no cleanup is possible */
  29439. +  /* Remove cleanup routines */
  29440. +  onexit(0);
  29441. +  /* However, the library & the memory allocation should be ok, so
  29442. +     we can exit reasonably */
  29443. +  _fail("Some system resources may have been lost");
  29444. +}
  29445. +
  29446. +static void *hunk_pointer(void *ptr)
  29447. +{
  29448. +    if (!ptr) return ptr;
  29449. +
  29450. +    if (RANGE(ptr, first_fn, last_fn))
  29451. +    return (void *)(HUNK_CODE | (char *)ptr - (char *)first_fn);
  29452. +    else if (RANGE(ptr, &first_data, &last_data))
  29453. +    return (void *)(HUNK_DATA | (char *)ptr - (char *)&first_data);
  29454. +    else if (RANGE(ptr, &first_bss, &last_bss))
  29455. +    return (void *)(HUNK_BSS | (char *)ptr - (char *)&first_bss);
  29456. +    else if (RANGE(ptr, malloc_hunk, malloc_hunk + malloc_hunk_size))
  29457. +    return (void *)(HUNK_MALLOC | (char *)ptr - malloc_hunk);
  29458. +    else if (RANGE(ptr, pure, (char *)pure + puresize))
  29459. +    return (void *)(HUNK_PURE | (char *)ptr - (char *)pure);
  29460. +    else bailout(0);
  29461. +}
  29462. +
  29463. +static Lisp_Object hunk_lispptr(Lisp_Object *objptr, Lisp_Object val)
  29464. +{
  29465. +    int type = val & ~VALMASK;
  29466. +    void *ptr = (void *)XPNTR(val);
  29467. +
  29468. +    if (RANGE(ptr, first_fn, last_fn))
  29469. +    return type | HUNK_CODE | (char *)ptr - (char *)first_fn;
  29470. +    else if (RANGE(ptr, &first_data, &last_data))
  29471. +    return type | HUNK_DATA | (char *)ptr - (char *)&first_data;
  29472. +    else if (RANGE(ptr, &first_bss, &last_bss))
  29473. +    return type | HUNK_BSS | (char *)ptr - (char *)&first_bss;
  29474. +    else if (RANGE(ptr, pure, (char *)pure + puresize))
  29475. +    return type | HUNK_PURE | (char *)ptr - (char *)pure;
  29476. +    else if (RANGE(ptr, malloc_hunk, malloc_hunk + malloc_hunk_size))
  29477. +    return type | HUNK_MALLOC | (char *)ptr - malloc_hunk;
  29478. +    else bailout(0);
  29479. +}
  29480. +
  29481. +static void patch_pointers ();
  29482. +
  29483. +static void patch_buffer (buf)
  29484. +     Lisp_Object buf;
  29485. +{
  29486. +  Lisp_Object tem;
  29487. +  register struct buffer *buffer = XBUFFER (buf);
  29488. +  register Lisp_Object *ptr;
  29489. +
  29490. +  buffer->text.beg = hunk_pointer (buffer->text.beg);
  29491. +  patch_pointers (&buffer->markers);
  29492. +
  29493. +  /* This is the buffer's markbit */
  29494. +  patch_pointers (&buffer->name);
  29495. +  XMARK (buffer->name);
  29496. +
  29497. +  for (ptr = &buffer->name + 1;
  29498. +       (char *)ptr < (char *)buffer + sizeof (struct buffer);
  29499. +       ptr++)
  29500. +    patch_pointers (ptr);
  29501. +}
  29502. +
  29503. +static void patch_pointers (objptr)
  29504. +     Lisp_Object *objptr;
  29505. +{
  29506. +  register Lisp_Object obj;
  29507. +
  29508. +  obj = *objptr;
  29509. +  XUNMARK (obj);
  29510. +
  29511. +
  29512. + loop:
  29513. +
  29514. +  switch (XGCTYPE (obj))
  29515. +    {
  29516. +    case Lisp_String:
  29517. +      *objptr = hunk_lispptr(objptr, *objptr);
  29518. +      break;
  29519. +
  29520. +    case Lisp_Vector:
  29521. +    case Lisp_Window:
  29522. +    case Lisp_Process:
  29523. +    case Lisp_Window_Configuration:
  29524. +      *objptr = hunk_lispptr(objptr, *objptr);
  29525. +      {
  29526. +    register struct Lisp_Vector *ptr = XVECTOR (obj);
  29527. +    register int size = ptr->size;
  29528. +    register int i;
  29529. +
  29530. +    if (size & ARRAY_MARK_FLAG) break;   /* Already marked */
  29531. +    ptr->size |= ARRAY_MARK_FLAG; /* Else mark it */
  29532. +    for (i = 0; i < size; i++)     /* and then mark its elements */
  29533. +      patch_pointers (&ptr->contents[i]);
  29534. +      }
  29535. +      break;
  29536. +
  29537. +    case Lisp_Symbol:
  29538. +      *objptr = hunk_lispptr(objptr, *objptr);
  29539. +      {
  29540. +    register struct Lisp_Symbol *ptr = XSYMBOL (obj);
  29541. +    struct Lisp_Symbol *ptrx;
  29542. +
  29543. +    if (XMARKBIT (ptr->plist)) break;
  29544. +    XMARK (ptr->plist);
  29545. +    XSETTYPE (*(Lisp_Object *) &ptr->name, Lisp_String);
  29546. +    patch_pointers (&ptr->name);
  29547. +    patch_pointers ((Lisp_Object *) &ptr->value);
  29548. +    patch_pointers (&ptr->function);
  29549. +    patch_pointers (&ptr->plist);
  29550. +    objptr = (Lisp_Object *)&ptr->next;
  29551. +    ptr = ptr->next;
  29552. +    if (ptr)
  29553. +      {
  29554. +        ptrx = ptr;        /* Use pf ptrx avoids compiler bug on Sun */
  29555. +        XSETSYMBOL (obj, ptrx);
  29556. +        goto loop;
  29557. +      }
  29558. +      }
  29559. +      break;
  29560. +
  29561. +    case Lisp_Marker: {
  29562. +    struct Lisp_Marker *ptr = XMARKER (obj);
  29563. +
  29564. +    *objptr = hunk_lispptr(objptr, *objptr);
  29565. +    if (XMARKBIT (ptr->chain)) break;
  29566. +    XMARK (ptr->chain);
  29567. +    ptr->buffer = hunk_pointer (ptr->buffer);
  29568. +    patch_pointers (&ptr->chain);
  29569. +    break;
  29570. +    }
  29571. +
  29572. +    case Lisp_Cons:
  29573. +    case Lisp_Buffer_Local_Value:
  29574. +    case Lisp_Some_Buffer_Local_Value:
  29575. +      *objptr = hunk_lispptr(objptr, *objptr);
  29576. +      {
  29577. +    register struct Lisp_Cons *ptr = XCONS (obj);
  29578. +    if (XMARKBIT (ptr->car)) break;
  29579. +    XMARK (ptr->car);
  29580. +    patch_pointers (&ptr->car);
  29581. +    objptr = &ptr->cdr;
  29582. +    obj = ptr->cdr;
  29583. +    goto loop;
  29584. +      }
  29585. +
  29586. +    case Lisp_Buffer:
  29587. +      *objptr = hunk_lispptr(objptr, *objptr);
  29588. +      if (!XMARKBIT (XBUFFER (obj)->name))
  29589. +    patch_buffer (obj);
  29590. +      break;
  29591. +
  29592. +    case Lisp_Subr: {
  29593. +    struct Lisp_Subr *subr = XSUBR(obj);
  29594. +
  29595. +    *objptr = hunk_lispptr(objptr, *objptr);
  29596. +    if (subr->min_args & 0x8000) break;
  29597. +    subr->min_args |= 0x8000;
  29598. +    subr->function = hunk_pointer(subr->function);
  29599. +    subr->symbol_name = hunk_pointer(subr->symbol_name);
  29600. +    subr->prompt = hunk_pointer(subr->prompt);
  29601. +    if ((long)subr->doc >= 0) /* Make sure that not a doc offset */
  29602. +        subr->doc = hunk_pointer(subr->doc);
  29603. +    break;
  29604. +    }
  29605. +
  29606. +    case Lisp_Int:
  29607. +    case Lisp_Void:
  29608. +    case Lisp_Buffer_Objfwd: break;
  29609. +
  29610. +    case Lisp_Intfwd:
  29611. +    case Lisp_Boolfwd:
  29612. +    case Lisp_Objfwd:
  29613. +    case Lisp_Internal_Stream:
  29614. +      *objptr = hunk_lispptr(objptr, *objptr);
  29615. +    /* Don't bother with Lisp_Buffer_Objfwd,
  29616. +       since all markable slots in current buffer marked anyway.  */
  29617. +    /* Don't need to do Lisp_Objfwd, since the places they point
  29618. +       are protected with staticpro.  */
  29619. +      break;
  29620. +
  29621. +    default:
  29622. +      abort ();
  29623. +    }
  29624. +}
  29625. +
  29626. +static void patch_chain(void **ptr, int offset)
  29627. +{
  29628. +    while (*ptr)
  29629. +    {
  29630. +    void **next = (void **)((char *)*ptr + offset);
  29631. +
  29632. +    *ptr = hunk_pointer(*ptr);
  29633. +    ptr = next;
  29634. +    }
  29635. +}
  29636. +
  29637. +static void patch(void)
  29638. +{
  29639. +    int i;
  29640. +    struct string_block_head *sptr;
  29641. +    struct buffer *bptr;
  29642. +    struct mem_header *mem;
  29643. +
  29644. +    for (i = 0; i < staticidx; i++)
  29645. +    {
  29646. +    if (!XMARKBIT(*staticvec[i]))
  29647. +    {
  29648. +        patch_pointers(staticvec[i]);
  29649. +        XMARK(*staticvec[i]);
  29650. +    }
  29651. +    staticvec[i] = hunk_pointer(staticvec[i]);
  29652. +    }
  29653. +
  29654. +    /* Patch all the pointers normally used before a dump ! */
  29655. +    patch_chain((void **)&cons_block, 0);
  29656. +    patch_chain((void **)&cons_free_list, 0);
  29657. +
  29658. +    patch_chain((void **)&all_vectors, 4);
  29659. +
  29660. +    patch_chain((void **)&symbol_block, 0);
  29661. +    patch_chain((void **)&symbol_free_list, 4);
  29662. +
  29663. +    patch_chain((void **)&marker_block, 0);
  29664. +    patch_chain((void **)&marker_free_list, 4);
  29665. +
  29666. +    /* Strings are lots of fun */
  29667. +    patch_chain((void **)&large_string_blocks, 0);
  29668. +    sptr = first_string_block;
  29669. +    while (sptr)
  29670. +    {
  29671. +    struct string_block *next = sptr->next;
  29672. +
  29673. +    if (sptr->next) sptr->next = hunk_pointer(sptr->next);
  29674. +    if (sptr->prev) sptr->prev = hunk_pointer(sptr->prev);
  29675. +    sptr = next;
  29676. +    }
  29677. +    first_string_block = hunk_pointer(first_string_block);
  29678. +    current_string_block = hunk_pointer(current_string_block);
  29679. +
  29680. +    /* More fun with buffers */
  29681. +    bptr = all_buffers;
  29682. +    if (bptr)
  29683. +    {
  29684. +    while (bptr->next)
  29685. +    {
  29686. +        struct buffer *next = bptr->next;
  29687. +
  29688. +        bptr->next = hunk_pointer(bptr->next);
  29689. +        bptr = next;
  29690. +    }
  29691. +    }
  29692. +    all_buffers = hunk_pointer(all_buffers);
  29693. +    current_buffer = hunk_pointer(current_buffer);
  29694. +
  29695. +    kbd_macro_buffer = hunk_pointer(kbd_macro_buffer);
  29696. +    minibuf_save_vector = hunk_pointer(minibuf_save_vector);
  29697. +    searchbuf.buffer = hunk_pointer(searchbuf.buffer);
  29698. +    searchbuf.fastmap = hunk_pointer(searchbuf.fastmap);
  29699. +    specpdl = hunk_pointer(specpdl);
  29700. +    read_buffer = hunk_pointer(read_buffer);
  29701. +
  29702. +    MouseMap = hunk_lispptr(&MouseMap, MouseMap);
  29703. +    global_map = hunk_lispptr(&global_map, global_map);
  29704. +    Vglobal_map = hunk_lispptr(&Vglobal_map, Vglobal_map);
  29705. +    Vesc_map = hunk_lispptr(&Vesc_map, Vesc_map);
  29706. +    Vctl_x_map = hunk_lispptr(&Vctl_x_map, Vctl_x_map);
  29707. +
  29708. +    Qvariable_documentation = hunk_lispptr(&Qvariable_documentation, Qvariable_documentation);
  29709. +    selected_window = hunk_lispptr(&selected_window, selected_window);
  29710. +
  29711. +    mem = free_list;
  29712. +    free_list = hunk_pointer(free_list);
  29713. +    while (mem)
  29714. +    {
  29715. +    struct mem_header *next = mem->next;
  29716. +
  29717. +    mem->prev = hunk_pointer(mem->prev);
  29718. +    mem->next = hunk_pointer(mem->next);
  29719. +    mem = next;
  29720. +    }
  29721. +
  29722. +    for (i = 0; i <= 4; i++)
  29723. +      callint_argfuns[i] = hunk_pointer(callint_argfuns[i]);
  29724. +}
  29725. +
  29726. +static dump(char *fn)
  29727. +{
  29728. +    BPTR fd;
  29729. +    long size;
  29730. +
  29731. +    fd = Open(fn, MODE_NEWFILE);
  29732. +    if (!fd)
  29733. +      {
  29734. +        static void unpatch();
  29735. +
  29736. +        unpatch();
  29737. +        _fail("emacs hasn't been dumped (%s missing)", fn);
  29738. +      }
  29739. +
  29740. +    Write(fd, (char *)&puresize, sizeof puresize);
  29741. +    Write(fd, (char *)&malloc_hunk_size, sizeof malloc_hunk_size);
  29742. +    Write(fd, (char *)&first_data, (char *)&last_data - (char *)&first_data);
  29743. +    Write(fd, (char *)&first_bss, (char *)&last_bss - (char *)&first_bss);
  29744. +    Write(fd, (char *)pure, puresize);
  29745. +    Write(fd, (char *)malloc_hunk, malloc_hunk_size);
  29746. +    Write(fd, (char *)&staticidx, sizeof staticidx);
  29747. +    Write(fd, (char *)staticvec, staticidx * sizeof(Lisp_Object *));
  29748. +    size = (char *)last_fn - (char *)first_fn;
  29749. +    Write(fd, (char *)&size, sizeof size);
  29750. +
  29751. +    Close(fd);
  29752. +}
  29753. +
  29754. +static void *make_pointer(void *ptr)
  29755. +{
  29756. +    int hunk = (long)ptr & HUNK_MASK;
  29757. +    int offset = (long)ptr & (VALMASK & ~HUNK_MASK);
  29758. +
  29759. +    if (!ptr) return 0;
  29760. +
  29761. +    if (hunk == HUNK_CODE) return (char *)first_fn + offset;
  29762. +    if (hunk == HUNK_DATA) return (char *)&first_data + offset;
  29763. +    if (hunk == HUNK_BSS) return (char *)&first_bss + offset;
  29764. +    if (hunk == HUNK_PURE) return (char *)pure + offset;
  29765. +    if (hunk == HUNK_MALLOC) return malloc_hunk + offset;
  29766. +    assert(0);
  29767. +}
  29768. +
  29769. +static Lisp_Object make_lispptr(Lisp_Object *objptr, Lisp_Object obj)
  29770. +{
  29771. +    long val = XUINT(obj);
  29772. +    int hunk = val & HUNK_MASK;
  29773. +    int offset = val & ~HUNK_MASK;
  29774. +    char *ptr;
  29775. +
  29776. +    if (hunk == HUNK_CODE) ptr = (char *)first_fn + offset;
  29777. +    else if (hunk == HUNK_DATA) ptr = (char *)&first_data + offset;
  29778. +    else if (hunk == HUNK_BSS) ptr = (char *)&first_bss + offset;
  29779. +    else if (hunk == HUNK_PURE) ptr = (char *)pure + offset;
  29780. +    else if (hunk == HUNK_MALLOC) ptr = malloc_hunk + offset;
  29781. +    else assert(0);
  29782. +
  29783. +    XSETPNTR(obj, (long)ptr);
  29784. +    return obj;
  29785. +}
  29786. +
  29787. +static void unpatch_pointers ();
  29788. +
  29789. +static void unpatch_buffer (buf)
  29790. +     Lisp_Object buf;
  29791. +{
  29792. +  Lisp_Object tem;
  29793. +  register struct buffer *buffer = XBUFFER (buf);
  29794. +  register Lisp_Object *ptr;
  29795. +
  29796. +  buffer->text.beg = make_pointer (buffer->text.beg);
  29797. +  unpatch_pointers (&buffer->markers);
  29798. +
  29799. +  /* This is the buffer's markbit */
  29800. +  XUNMARK (buffer->name);
  29801. +  unpatch_pointers (&buffer->name);
  29802. +
  29803. +  for (ptr = &buffer->name + 1;
  29804. +       (char *)ptr < (char *)buffer + sizeof (struct buffer);
  29805. +       ptr++)
  29806. +    unpatch_pointers (ptr);
  29807. +}
  29808. +
  29809. +static void unpatch_pointers (objptr)
  29810. +     Lisp_Object *objptr;
  29811. +{
  29812. +  register Lisp_Object obj;
  29813. +
  29814. +  obj = *objptr;
  29815. +  XUNMARK (obj);
  29816. +
  29817. +
  29818. + loop:
  29819. +
  29820. +  switch (XGCTYPE (obj))
  29821. +    {
  29822. +    case Lisp_String:
  29823. +      *objptr = make_lispptr(objptr, *objptr);
  29824. +      break;
  29825. +
  29826. +    case Lisp_Vector:
  29827. +    case Lisp_Window:
  29828. +    case Lisp_Process:
  29829. +    case Lisp_Window_Configuration:
  29830. +      obj = *objptr = make_lispptr(objptr, *objptr);
  29831. +      {
  29832. +    register struct Lisp_Vector *ptr = XVECTOR (obj);
  29833. +    register int size;
  29834. +    register int i;
  29835. +
  29836. +    if (!(ptr->size & ARRAY_MARK_FLAG)) break;   /* Already unmarked */
  29837. +    size = ptr->size &= ~ARRAY_MARK_FLAG; /* Else unmark it */
  29838. +    for (i = 0; i < size; i++)     /* and then unmark its elements */
  29839. +      unpatch_pointers (&ptr->contents[i]);
  29840. +      }
  29841. +      break;
  29842. +
  29843. +    case Lisp_Symbol:
  29844. +      obj = *objptr = make_lispptr(objptr, *objptr);
  29845. +      {
  29846. +    register struct Lisp_Symbol *ptr = XSYMBOL (obj);
  29847. +    struct Lisp_Symbol *ptrx;
  29848. +
  29849. +    if (!XMARKBIT (ptr->plist)) break;
  29850. +    XUNMARK (ptr->plist);
  29851. +    unpatch_pointers (&ptr->name);
  29852. +    ptr->name = XSTRING (*(Lisp_Object *)&ptr->name);
  29853. +    unpatch_pointers ((Lisp_Object *) &ptr->value);
  29854. +    unpatch_pointers (&ptr->function);
  29855. +    unpatch_pointers (&ptr->plist);
  29856. +    objptr = (Lisp_Object *)&ptr->next;
  29857. +    ptr = ptr->next;
  29858. +    if (ptr)
  29859. +      {
  29860. +        ptrx = ptr;        /* Use pf ptrx avoids compiler bug on Sun */
  29861. +        XSET (obj, Lisp_Symbol, ptrx);
  29862. +        goto loop;
  29863. +      }
  29864. +      }
  29865. +      break;
  29866. +
  29867. +    case Lisp_Marker: {
  29868. +    struct Lisp_Marker *ptr;
  29869. +
  29870. +    obj = *objptr = make_lispptr(objptr, *objptr);
  29871. +    ptr = XMARKER (obj);
  29872. +    if (!XMARKBIT (ptr->chain)) break;
  29873. +    XUNMARK (ptr->chain);
  29874. +    ptr->buffer = make_pointer (ptr->buffer);
  29875. +    unpatch_pointers (&ptr->chain);
  29876. +    break;
  29877. +    }
  29878. +
  29879. +    case Lisp_Cons:
  29880. +    case Lisp_Buffer_Local_Value:
  29881. +    case Lisp_Some_Buffer_Local_Value:
  29882. +      obj = *objptr = make_lispptr(objptr, *objptr);
  29883. +      {
  29884. +    register struct Lisp_Cons *ptr = XCONS (obj);
  29885. +    if (!XMARKBIT (ptr->car)) break;
  29886. +    XUNMARK (ptr->car);
  29887. +    unpatch_pointers (&ptr->car);
  29888. +    objptr = &ptr->cdr;
  29889. +    obj = ptr->cdr;
  29890. +    goto loop;
  29891. +      }
  29892. +
  29893. +    case Lisp_Buffer:
  29894. +      obj = *objptr = make_lispptr(objptr, *objptr);
  29895. +      if (XMARKBIT (XBUFFER (obj)->name))
  29896. +    unpatch_buffer (obj);
  29897. +      break;
  29898. +
  29899. +    case Lisp_Subr: {
  29900. +    struct Lisp_Subr *subr;
  29901. +
  29902. +    obj = *objptr = make_lispptr(objptr, *objptr);
  29903. +    subr = XSUBR(obj);
  29904. +    if (!(subr->min_args & 0x8000)) break;
  29905. +    subr->min_args &= ~0x8000;
  29906. +    subr->function = make_pointer(subr->function);
  29907. +    subr->symbol_name = make_pointer(subr->symbol_name);
  29908. +    subr->prompt = make_pointer(subr->prompt);
  29909. +    if ((long)subr->doc >= 0) /* Make sure that not a doc offset */
  29910. +        subr->doc = make_pointer(subr->doc);
  29911. +    break;
  29912. +    }
  29913. +
  29914. +    case Lisp_Int:
  29915. +    case Lisp_Void:
  29916. +    case Lisp_Buffer_Objfwd: break;
  29917. +
  29918. +    case Lisp_Intfwd:
  29919. +    case Lisp_Boolfwd:
  29920. +    case Lisp_Objfwd:
  29921. +    case Lisp_Internal_Stream:
  29922. +      *objptr = make_lispptr(objptr, *objptr);
  29923. +    /* Don't bother with Lisp_Buffer_Objfwd,
  29924. +       since all markable slots in current buffer marked anyway.  */
  29925. +    /* Don't need to do Lisp_Objfwd, since the places they point
  29926. +       are protected with staticpro.  */
  29927. +      break;
  29928. +
  29929. +    default:
  29930. +      abort ();
  29931. +    }
  29932. +}
  29933. +
  29934. +static void unpatch_chain(void **ptr, int offset)
  29935. +{
  29936. +    while (*ptr)
  29937. +    {
  29938. +    *ptr = make_pointer(*ptr);
  29939. +    ptr = (void **)((char *)*ptr + offset);
  29940. +    }
  29941. +}
  29942. +
  29943. +/* Reconstructs the addresses that were patched */
  29944. +static void unpatch(void)
  29945. +{
  29946. +    int fd, i;
  29947. +    struct string_block_head *sptr;
  29948. +    struct buffer *bptr;
  29949. +    struct mem_header *mem;
  29950. +
  29951. +    for (i = 0; i < staticidx; i++)
  29952. +    {
  29953. +    staticvec[i] = make_pointer(staticvec[i]);
  29954. +    if (XMARKBIT(*staticvec[i]))
  29955. +    {
  29956. +        XUNMARK(*staticvec[i]);
  29957. +        unpatch_pointers(staticvec[i]);
  29958. +    }
  29959. +    }
  29960. +
  29961. +    /* Unpatch all the pointers normally used before a dump ! */
  29962. +    unpatch_chain((void **)&cons_block, 0);
  29963. +    unpatch_chain((void **)&cons_free_list, 0);
  29964. +
  29965. +    unpatch_chain((void **)&all_vectors, 4);
  29966. +
  29967. +    unpatch_chain((void **)&symbol_block, 0);
  29968. +    unpatch_chain((void **)&symbol_free_list, 4);
  29969. +
  29970. +    unpatch_chain((void **)&marker_block, 0);
  29971. +    unpatch_chain((void **)&marker_free_list, 4);
  29972. +
  29973. +    /* Strings are lots of fun */
  29974. +    unpatch_chain((void **)&large_string_blocks, 0);
  29975. +    sptr = first_string_block = make_pointer(first_string_block);
  29976. +    current_string_block = make_pointer(current_string_block);
  29977. +    while (sptr)
  29978. +    {
  29979. +    if (sptr->next) sptr->next = make_pointer(sptr->next);
  29980. +    if (sptr->prev) sptr->prev = make_pointer(sptr->prev);
  29981. +    sptr = sptr->next;
  29982. +    }
  29983. +
  29984. +    /* More fun with buffers */
  29985. +    bptr = all_buffers = make_pointer(all_buffers);
  29986. +    if (bptr)
  29987. +    {
  29988. +    while (bptr->next)
  29989. +    {
  29990. +        bptr->next = make_pointer(bptr->next);
  29991. +        bptr = bptr->next;
  29992. +    }
  29993. +    }
  29994. +    current_buffer = make_pointer(current_buffer);
  29995. +
  29996. +    kbd_macro_buffer = make_pointer(kbd_macro_buffer);
  29997. +    minibuf_save_vector = make_pointer(minibuf_save_vector);
  29998. +    searchbuf.buffer = make_pointer(searchbuf.buffer);
  29999. +    searchbuf.fastmap = make_pointer(searchbuf.fastmap);
  30000. +    specpdl = make_pointer(specpdl);
  30001. +    read_buffer = make_pointer(read_buffer);
  30002. +
  30003. +    MouseMap = make_lispptr(&MouseMap, MouseMap);
  30004. +    global_map = make_lispptr(&global_map, global_map);
  30005. +    Vglobal_map = make_lispptr(&Vglobal_map, Vglobal_map);
  30006. +    Vesc_map = make_lispptr(&Vesc_map, Vesc_map);
  30007. +    Vctl_x_map = make_lispptr(&Vctl_x_map, Vctl_x_map);
  30008. +
  30009. +    Qvariable_documentation = make_lispptr(&Qvariable_documentation, Qvariable_documentation);
  30010. +    selected_window = make_lispptr(&selected_window, selected_window);
  30011. +
  30012. +    free_list = make_pointer(free_list);
  30013. +    mem = free_list;
  30014. +    while (mem)
  30015. +    {
  30016. +    mem->prev = make_pointer(mem->prev);
  30017. +    mem->next = make_pointer(mem->next);
  30018. +    mem = mem->next;
  30019. +    }
  30020. +
  30021. +    for (i = 0; i <= 4; i++)
  30022. +      callint_argfuns[i] = make_pointer(callint_argfuns[i]);
  30023. +}
  30024. +
  30025. +static undump(char *fn)
  30026. +{
  30027. +  BPTR fd;
  30028. +  long code_size;
  30029. +  char *_malloc_hunk;
  30030. +  int *_pure;
  30031. +  /*extern struct Library *FifoBase;
  30032. +  struct Library *_FifoBase = FifoBase;*/
  30033. +
  30034. +  fd = Open(fn, MODE_OLDFILE);
  30035. +  if (!fd) return 0;
  30036. +
  30037. +  Read(fd, (char *)&puresize, sizeof puresize);
  30038. +  Read(fd, (char *)&malloc_hunk_size, sizeof malloc_hunk_size);
  30039. +  _pure = dump_malloc(puresize);
  30040. +  _malloc_hunk = dump_malloc(malloc_hunk_size + pre_alloc);
  30041. +  Read(fd, (char *)&first_data, (char *)&last_data - (char *)&first_data);
  30042. +  Read(fd, (char *)&first_bss, (char *)&last_bss - (char *)&first_bss);
  30043. +  Read(fd, (char *)_pure, puresize);
  30044. +  Read(fd, (char *)_malloc_hunk, malloc_hunk_size);
  30045. +  Read(fd, (char *)&staticidx, sizeof staticidx);
  30046. +  Read(fd, (char *)staticvec, staticidx * sizeof(Lisp_Object *));
  30047. +  /*FifoBase = _FifoBase;*/
  30048. +  if (Read(fd, (char *)&code_size, sizeof code_size) != sizeof code_size ||
  30049. +      code_size != (char *)last_fn - (char *)first_fn)
  30050. +    bailout(fn);
  30051. +
  30052. +  Close(fd);
  30053. +  malloc_hunk = _malloc_hunk;
  30054. +  pure = _pure;
  30055. +  return 1;
  30056. +}
  30057. +
  30058. +void map_out_data(char *fn)
  30059. +{
  30060. +    if (amiga_initialized) error("You can only dump once !");
  30061. +    Fgarbage_collect();
  30062. +
  30063. +    patch();
  30064. +    dump(fn);
  30065. +    unpatch();
  30066. +    amiga_initialized = 1;
  30067. +}
  30068. +
  30069. +void map_in_data(int load)
  30070. +{
  30071. +    if (load && undump("GNUEmacs:etc/EMACS-DATA"))
  30072. +    {
  30073. +    unpatch();
  30074. +    current_screen = new_screen = temp_screen = 0;
  30075. +    message_buf = 0;
  30076. +    chars_wasted = copybuf = 0;
  30077. +    DC_ICcost = 0;
  30078. +    ILcost = DLcost = ILncost = DLncost = 0;
  30079. +    initialized = amiga_initialized = 1;
  30080. +    }
  30081. +    else
  30082. +      {
  30083. +    malloc_hunk = dump_malloc(malloc_hunk_size + pre_alloc);
  30084. +    pure = dump_malloc(puresize);
  30085. +      }
  30086. +    amiga_undump_reinit();
  30087. +}
  30088. diff -rup --new-file baseline/fsf/emacs18/src/amiga_malloc.c amiga/fsf/emacs18/src/amiga_malloc.c
  30089. --- baseline/fsf/emacs18/src/amiga_malloc.c    Wed Dec 31 17:00:00 1969
  30090. +++ amiga/fsf/emacs18/src/amiga_malloc.c    Sat Sep 28 00:00:00 1996
  30091. @@ -0,0 +1,321 @@
  30092. +/* Emulation of some unix functions for emacs.
  30093. +Copyright (C) 1985, 1986, 1987, 1988 Free Software Foundation, Inc.
  30094. +
  30095. +This file is part of GNU Emacs.
  30096. +
  30097. +GNU Emacs is distributed in the hope that it will be useful,
  30098. +but WITHOUT ANY WARRANTY.  No author or distributor
  30099. +accepts responsibility to anyone for the consequences of using it
  30100. +or for whether it serves any particular purpose or works at all,
  30101. +unless he says so in writing.  Refer to the GNU Emacs General Public
  30102. +License for full details.
  30103. +
  30104. +Everyone is granted permission to copy, modify and redistribute
  30105. +GNU Emacs, but only under the conditions described in the
  30106. +GNU Emacs General Public License.   A copy of this license is
  30107. +supposed to have been given to you along with GNU Emacs so you
  30108. +can know your rights and responsibilities.  It should be in a
  30109. +file named COPYING.  Among other things, the copyright notice
  30110. +and this notice must be preserved on all copies.  */
  30111. +
  30112. +#include <exec/types.h>
  30113. +#include <exec/memory.h>
  30114. +#include <proto/exec.h>
  30115. +
  30116. +#undef LONGBITS
  30117. +#undef NULL
  30118. +#include "config.h"
  30119. +#include "lisp.h"
  30120. +#include "amiga.h"
  30121. +
  30122. +/* Memory stuff */
  30123. +long far DataSegBits;
  30124. +static int DataSegFound;
  30125. +static struct mem_header *far current;
  30126. +struct mem_header *free_list;
  30127. +extern int alloca_calling;
  30128. +extern int *pure;
  30129. +long far pre_alloc;    /* amount of memory to reserve for emacs */
  30130. +char *malloc_hunk;
  30131. +long malloc_hunk_size = MALLOC_HUNK_SIZE; /* Amount of memory malloc'ed by a
  30132. +                         to-be-dumped emacs */
  30133. +long malloc_bytes_used;    /* Amount of this hunk actually used */
  30134. +static int early_malloc = TRUE;    /* Before we undump, we want system allocations */
  30135. +
  30136. +#define ADDR_OK(x) (((long)x & ~VALMASK) == DataSegBits)
  30137. +
  30138. +/* Memory allocation code */
  30139. +/* ---------------------- */
  30140. +
  30141. +static void *alloc_sys(long memsize)
  30142. +/* Effect: Allocate from AmigaOS (via AllocMem). */
  30143. +{
  30144. +  /* Allocation rounded up to multiple of 4 */
  30145. +  long size = ((memsize + 3) & ~3) + sizeof(struct mem_header);
  30146. +  struct mem_header *mem;
  30147. +
  30148. +  if (!DataSegFound)
  30149. +    {
  30150. +      /* Find page containing Pure data. All data used by emacs must be
  30151. +     on the same page (As a page is 2^26 bytes, this shouldn't be too
  30152. +     unlikely). */
  30153. +      DataSegBits = (long)&first_data & ~VALMASK;
  30154. +      if (!(ADDR_OK(first_fn) && ADDR_OK(last_fn) &&
  30155. +        ADDR_OK(&first_data) && ADDR_OK(&last_data) &&
  30156. +        ADDR_OK(&first_bss) && ADDR_OK(&last_bss)))
  30157. +    _fail("I can't handle your memory configuration");
  30158. +      DataSegFound = TRUE;
  30159. +    }
  30160. +
  30161. +  mem = AllocMem(size, 0);
  30162. +  if (!mem) return 0;
  30163. +  /* All memory *must* be allocated on the same page ! */
  30164. +  if (!ADDR_OK(mem))
  30165. +    {
  30166. +      FreeMem(mem, size);
  30167. +      return 0;
  30168. +    }
  30169. +  if (current) current->prev = mem;
  30170. +  mem->next = current;
  30171. +  mem->prev = 0;
  30172. +  current = mem;
  30173. +  mem->size = size;
  30174. +
  30175. +  return mem + 1;
  30176. +}
  30177. +
  30178. +static void free_sys(char *p)
  30179. +{
  30180. +  struct mem_header *old = (struct mem_header *)p - 1;
  30181. +
  30182. +  if (old == current)
  30183. +    {
  30184. +      current = current->next;
  30185. +      if (current) current->prev = 0;
  30186. +    }
  30187. +  else
  30188. +    {
  30189. +      old->prev->next = old->next;
  30190. +      if (old->next) old->next->prev = old->prev;
  30191. +    }
  30192. +  FreeMem(old, old->size);
  30193. +}
  30194. +
  30195. +void _MemCleanup(void)
  30196. +{
  30197. +  struct mem_header *next;
  30198. +
  30199. +  while (current)
  30200. +    {
  30201. +      next = current->next;
  30202. +      FreeMem(current, current->size);
  30203. +      current = next;
  30204. +    }
  30205. +}
  30206. +
  30207. +static void *alloc_hunk(long memsize)
  30208. +/* Effect: Allocates from the malloc hunk (which is dumped to disk).
  30209. +*/
  30210. +{
  30211. +  /* Allocation rounded up to multiple of 4 */
  30212. +  long size = ((memsize + 3) & ~3) + sizeof(struct mem_header);
  30213. +  /* Find a free block in the memory list */
  30214. +  struct mem_header *scan = free_list->next;
  30215. +
  30216. +  while (scan->size > 0)
  30217. +    {
  30218. +      if (size < scan->size)    /* Found ! */
  30219. +    {
  30220. +      long end;
  30221. +
  30222. +      /* Split block if big enough */
  30223. +      if (size + sizeof(struct mem_header) + 8 > scan->size)
  30224. +        {
  30225. +          /* Remove block from list */
  30226. +          scan->prev->next = scan->next;
  30227. +          scan->next->prev = scan->prev;
  30228. +        }
  30229. +      else
  30230. +        {
  30231. +          /* Split block */
  30232. +          struct mem_header *new = (struct mem_header *)((char *)scan + size);
  30233. +
  30234. +          new->prev = scan->prev;
  30235. +          new->next = scan->next;
  30236. +          scan->prev->next = new;
  30237. +          scan->next->prev = new;
  30238. +          new->size = scan->size - size;
  30239. +          scan->size = size;
  30240. +        }
  30241. +      if (!amiga_initialized)
  30242. +        {
  30243. +          end = (char *)scan - (char *)free_list + scan->size +
  30244. +        sizeof(long) + sizeof(struct mem_header);
  30245. +          if (end > malloc_bytes_used) malloc_bytes_used = end;
  30246. +        }
  30247. +      return scan + 1;
  30248. +    }
  30249. +      scan = scan->next;
  30250. +    }
  30251. +  return 0;
  30252. +}
  30253. +
  30254. +static void free_hunk(char *p)
  30255. +{
  30256. +  struct mem_header *old = (struct mem_header *)p - 1, *scan = free_list;
  30257. +
  30258. +  do scan = scan->next; while (scan < old);
  30259. +
  30260. +  /* Check for merges (potentially with both sides) */
  30261. +  if ((char *)scan->prev + scan->prev->size == (char *)old)
  30262. +    if ((char *)old + old->size == (char *)scan)
  30263. +      {
  30264. +    /* Merge all 3 blocks together */
  30265. +    scan->prev->size += old->size + scan->size;
  30266. +    scan->next->prev = scan->prev;
  30267. +    scan->prev->next = scan->next;
  30268. +      }
  30269. +    else            /* Merge with previous block */
  30270. +      scan->prev->size += old->size;
  30271. +  else if ((char *)old + old->size == (char *)scan)
  30272. +    {
  30273. +      /* Merge with next block */
  30274. +      old->size += scan->size;
  30275. +      scan->prev->next = old;
  30276. +      scan->next->prev = old;
  30277. +      old->prev = scan->prev;
  30278. +      old->next = scan->next;
  30279. +    }
  30280. +  else                /* Add a new block */
  30281. +    {
  30282. +      old->next = scan;
  30283. +      old->prev = scan->prev;
  30284. +      scan->prev->next = old;
  30285. +      scan->prev = old;
  30286. +    }
  30287. +}
  30288. +
  30289. +char *__halloc(long size)
  30290. +{
  30291. +  if (early_malloc) return alloc_sys(size);
  30292. +
  30293. +  if (!amiga_initialized)
  30294. +    if (alloca_calling)
  30295. +      {
  30296. +    alloca_calling = 0;
  30297. +    return alloc_sys(size);
  30298. +      }
  30299. +    else
  30300. +      {
  30301. +    void *mem = alloc_hunk(size);
  30302. +
  30303. +    if (!mem) 
  30304. +      _fail("Emacs dump: ran out of memory for malloc. \n"
  30305. +        "See the -malloc option for more information.\n");
  30306. +    return mem;
  30307. +      }
  30308. +  else
  30309. +    {
  30310. +      alloca_calling = 0;
  30311. +      if (pre_alloc)
  30312. +    {
  30313. +      void *mem;
  30314. +
  30315. +      if (mem = alloc_hunk(size)) return mem;
  30316. +    }
  30317. +      return alloc_sys(size);
  30318. +    }
  30319. +}
  30320. +
  30321. +char *malloc(int size)
  30322. +{
  30323. +  return __halloc(size);
  30324. +}
  30325. +
  30326. +free(void *p)
  30327. +{
  30328. +  struct mem_header *old = (struct mem_header *)p - 1;
  30329. +
  30330. +  if ((char *)p >= malloc_hunk &&
  30331. +      (char *)p <= malloc_hunk + malloc_hunk_size + pre_alloc)
  30332. +    {
  30333. +      if (!amiga_initialized || pre_alloc) free_hunk(p);
  30334. +    }
  30335. +  else free_sys(p);
  30336. +}
  30337. +
  30338. +char *calloc(long n, long size)
  30339. +{
  30340. +  char *t;
  30341. +  long rsize = n * size;
  30342. +
  30343. +  t = malloc(rsize);
  30344. +  if (t) memset (t, 0, rsize);
  30345. +
  30346. +  return t;
  30347. +}
  30348. +
  30349. +char *realloc(char *p, long size)
  30350. +{
  30351. +  char *new = malloc(size);
  30352. +  struct mem_header *old = (struct mem_header *)p - 1;
  30353. +
  30354. +  if (new)
  30355. +    {
  30356. +      long minsize;
  30357. +      long oldsize = old->size - sizeof(struct mem_header);
  30358. +
  30359. +      if (size < oldsize) minsize = size;
  30360. +      else minsize = oldsize;
  30361. +
  30362. +      memcpy(new, p, minsize);
  30363. +    }
  30364. +  free(p);
  30365. +  return new;
  30366. +}
  30367. +
  30368. +void emacs_malloc_init(void)
  30369. +{
  30370. +  struct mem_header *end_sentinel, *new_end, *new_block;
  30371. +
  30372. +  early_malloc = FALSE;        /* We now have a malloc hunk */
  30373. +
  30374. +  /* Set up the memory allocation in the malloc hunk */
  30375. +  free_list = (struct mem_header *)malloc_hunk;
  30376. +  end_sentinel = (struct mem_header *)((char *)free_list + malloc_hunk_size
  30377. +                       - sizeof(struct mem_header));
  30378. +  if (!amiga_initialized)
  30379. +    {
  30380. +      /* Before dumping */
  30381. +      free_list->next = free_list + 1;
  30382. +      free_list->prev = 0;
  30383. +      free_list->size = 0;    /* Prevents merges with this pseudo-block */
  30384. +      free_list[1].prev = free_list;
  30385. +      free_list[1].next = end_sentinel;
  30386. +      free_list[1].size =
  30387. +    malloc_hunk_size - 2 * sizeof(struct mem_header) - sizeof(long);
  30388. +      /* The - sizeof(long) prevents any merges with end_sentinel */
  30389. +
  30390. +      end_sentinel->size = 0;
  30391. +      end_sentinel->prev = free_list + 1;
  30392. +      end_sentinel->next = 0;
  30393. +
  30394. +      malloc_bytes_used = 0;
  30395. +    }
  30396. +  else if (pre_alloc)
  30397. +    {
  30398. +      /* After having undumped extend malloc block */
  30399. +      /* Move end_sentinel: */
  30400. +      new_end = (struct mem_header *)((char *)free_list + malloc_hunk_size +
  30401. +                      pre_alloc - sizeof(struct mem_header));
  30402. +      new_end->size = 0;
  30403. +      new_end->next = 0;
  30404. +      new_end->prev = end_sentinel->prev;
  30405. +      end_sentinel->prev->next = new_end;
  30406. +
  30407. +      /* Add extra memory (pre_alloc bytes) */
  30408. +      new_block = (struct mem_header *)((char *)end_sentinel - sizeof(long));
  30409. +      new_block->size = pre_alloc;
  30410. +      free_hunk((char *)(new_block + 1));
  30411. +    }
  30412. +}
  30413. diff -rup --new-file baseline/fsf/emacs18/src/amiga_menu.c amiga/fsf/emacs18/src/amiga_menu.c
  30414. --- baseline/fsf/emacs18/src/amiga_menu.c    Wed Dec 31 17:00:00 1969
  30415. +++ amiga/fsf/emacs18/src/amiga_menu.c    Sat Sep 28 00:00:00 1996
  30416. @@ -0,0 +1,309 @@
  30417. +#include <exec/types.h>
  30418. +#include <libraries/gadtools.h>
  30419. +#include <intuition/intuition.h>
  30420. +#include <proto/exec.h>
  30421. +#include <proto/dos.h>
  30422. +#include <proto/gadtools.h>
  30423. +#include <proto/intuition.h>
  30424. +#include "config.h"
  30425. +#undef NULL
  30426. +#include "lisp.h"
  30427. +#include "amiga.h"
  30428. +
  30429. +#ifndef GTMN_NewLookMenus
  30430. +#define GTMN_NewLookMenus    GT_TagBase+67
  30431. +#endif
  30432. +
  30433. +static struct Menu *emacs_menu;
  30434. +static char *emacs_menu_strings;
  30435. +static APTR win_vi;
  30436. +struct Library *GadToolsBase;
  30437. +
  30438. +void suspend_menus(void)
  30439. +{
  30440. +  if (emacs_win)
  30441. +    {
  30442. +      ClearMenuStrip(emacs_win);
  30443. +      if (win_vi)
  30444. +    {
  30445. +      FreeVisualInfo(win_vi);
  30446. +      win_vi = 0;
  30447. +    }
  30448. +    }
  30449. +}
  30450. +
  30451. +int resume_menus(void)
  30452. +{
  30453. +  if (emacs_win && emacs_menu)
  30454. +    {
  30455. +      win_vi = GetVisualInfo(emacs_win->WScreen, TAG_END);
  30456. +
  30457. +      if (!win_vi || !LayoutMenus(emacs_menu, win_vi,
  30458. +                  GTMN_NewLookMenus, 1L,
  30459. +                  TAG_END))
  30460. +    {
  30461. +      if (win_vi) FreeVisualInfo(win_vi);
  30462. +      Famiga_delete_menus();
  30463. +
  30464. +      return FALSE;
  30465. +    }
  30466. +      SetMenuStrip(emacs_win, emacs_menu);
  30467. +    }
  30468. +  return TRUE;
  30469. +}
  30470. +
  30471. +DEFUN ("amiga-menus", Famiga_menus, Samiga_menus, 1, 1, 0,
  30472. +  "Define menus for emacs. The argument is a list structured as follows:\n\
  30473. +   ((menu1-name ((item1-name item1-expr item1-key item1-disabled) ...)\n\
  30474. +     menu1-disabled) ...)\n\
  30475. +menu-name is the name of the menu item header.\n\
  30476. +The menu is disabled if menu-disabled is not nil [optional].\n\
  30477. +item-name is the name of an item.\n\
  30478. +The item-expr fields are ignored.\n\
  30479. +If item-key is nil, no shortcut is allowed.\n\
  30480. +If item-disabled is not nil, the item is disabled.\n\
  30481. +If the item information list is nil, a line is drawn in the menu.\n\
  30482. +item-key & item-disabled are optional.")
  30483. +  (menus)
  30484. +     Lisp_Object menus;
  30485. +{
  30486. +    Lisp_Object s_menus, s_items;
  30487. +    int citems, slen;
  30488. +    char *strdata;
  30489. +    struct NewMenu *menudata, *mkm;
  30490. +    struct Lisp_String *name;
  30491. +
  30492. +/*    int i;
  30493. +    extern int total[], nb[];
  30494. +
  30495. +    for (i = 0; i < 16; i++)
  30496. +    {
  30497. +    printf("%d(%d) ", total[i], nb[i]);
  30498. +    total[i] = nb[i] = 0;
  30499. +    }
  30500. +    printf("\n");
  30501. +    start_count(15);
  30502. +    for (i = 0; i < 100; i++) { suspend_count(15); resume_count(15); }
  30503. +    stop_count(15);
  30504. +    for (i = 0; i < 100; i++) { start_count(14); stop_count(14); }
  30505. +    printf("100 s/r: %d, 100 s/s: %d\n", total[15], total[14]);
  30506. +
  30507. +    return Qnil;
  30508. +*/
  30509. +    check_intuition();
  30510. +
  30511. +    /* Check structure of parameter & count # items & menus */
  30512. +    s_menus = menus;
  30513. +    citems = slen = 0;
  30514. +
  30515. +    while (!NULL(s_menus))
  30516. +    {
  30517. +    struct Lisp_Cons *menu, *menu_cell;
  30518. +
  30519. +    CHECK_CONS(s_menus, 0);
  30520. +    menu_cell = XCONS(s_menus);
  30521. +    citems++;
  30522. +    CHECK_CONS(menu_cell->car, 0); /* Each menu is a list */
  30523. +    menu = XCONS(menu_cell->car);
  30524. +
  30525. +    CHECK_STRING(menu->car, 0); /* Check name */
  30526. +    name = XSTRING(menu->car);
  30527. +    slen += name->size + 1;
  30528. +    CHECK_CONS(menu->cdr, 0);
  30529. +
  30530. +    menu = XCONS(menu->cdr); /* Check items */
  30531. +
  30532. +    s_items = menu->car;
  30533. +    while (!NULL(s_items))
  30534. +    {
  30535. +        struct Lisp_Cons *item, *item_cell;
  30536. +
  30537. +        CHECK_CONS(s_items, 0);
  30538. +        item_cell = XCONS(s_items);
  30539. +        citems++;
  30540. +        if (!NULL(item_cell->car))
  30541. +        {
  30542. +        CHECK_CONS(item_cell->car, 0); /* Each item is a list */
  30543. +        item = XCONS(item_cell->car);
  30544. +
  30545. +        CHECK_STRING(item->car, 0);
  30546. +        name = XSTRING(item->car);
  30547. +        slen += name->size + 1;
  30548. +
  30549. +        if (!NULL(item->cdr)) /* Only name is necessary */
  30550. +        {
  30551. +            CHECK_CONS(item->cdr, 0);
  30552. +            item = XCONS(item->cdr);
  30553. +
  30554. +            /* Expr is arbitrary */
  30555. +            if (!NULL(item->cdr))
  30556. +            {
  30557. +            CHECK_CONS(item->cdr, 0);
  30558. +            item = XCONS(item->cdr);
  30559. +
  30560. +            /* Check shortcut */
  30561. +            if (!NULL(item->car))
  30562. +            {
  30563. +                CHECK_NUMBER(item->car, 0);
  30564. +                slen += 2;
  30565. +            }
  30566. +
  30567. +            if (!NULL(item->cdr))
  30568. +            {
  30569. +                CHECK_CONS(item->cdr, 0);
  30570. +                item = XCONS(item->cdr);
  30571. +
  30572. +                /* Check that end of list */
  30573. +                if (!NULL(item->cdr)) error("Badly formed item");
  30574. +            }
  30575. +            }
  30576. +        }
  30577. +        }
  30578. +        s_items = item_cell->cdr;
  30579. +    }
  30580. +    if (!NULL(menu->cdr))
  30581. +    {
  30582. +        CHECK_CONS(menu->cdr, 0);
  30583. +        menu = XCONS(menu->cdr);
  30584. +        if (!NULL(menu->cdr)) error("Badly formed menu");
  30585. +    }
  30586. +    s_menus = menu_cell->cdr;
  30587. +    }
  30588. +
  30589. +    suspend_menus();
  30590. +    if (emacs_menu) Famiga_delete_menus();
  30591. +
  30592. +    /* Now create menu structure */
  30593. +    menudata = (struct NewMenu *)alloca(sizeof(struct NewMenu) * (citems + 1));
  30594. +    emacs_menu_strings = strdata = (char *)xmalloc(slen);
  30595. +    mkm = menudata;
  30596. +    s_menus = menus;
  30597. +    while (!NULL(s_menus))
  30598. +    {
  30599. +    struct Lisp_Cons *menu, *menu_cell;
  30600. +    struct NewMenu *menu1;
  30601. +
  30602. +    menu_cell = XCONS(s_menus);
  30603. +    mkm->nm_Type = NM_TITLE;
  30604. +    menu = XCONS(menu_cell->car);
  30605. +    name = XSTRING(menu->car);
  30606. +    strcpy(strdata, name->data);
  30607. +    mkm->nm_Label = strdata;
  30608. +    strdata += name->size + 1;
  30609. +    mkm->nm_CommKey = 0;
  30610. +    mkm->nm_Flags = 0;
  30611. +    mkm->nm_MutualExclude = 0;
  30612. +    menu1 = mkm++;
  30613. +
  30614. +    menu = XCONS(menu->cdr); /* Check items */
  30615. +
  30616. +    s_items = menu->car;
  30617. +    while (!NULL(s_items))
  30618. +    {
  30619. +        struct Lisp_Cons *item, *item_cell;
  30620. +
  30621. +        item_cell = XCONS(s_items);
  30622. +        mkm->nm_Type = NM_ITEM;
  30623. +        mkm->nm_CommKey = 0;
  30624. +        mkm->nm_Flags = 0;
  30625. +        mkm->nm_MutualExclude = 0;
  30626. +        if (NULL(item_cell->car))
  30627. +        {
  30628. +        mkm->nm_Type = IM_ITEM;
  30629. +        mkm->nm_Label = NM_BARLABEL;
  30630. +        }
  30631. +        else
  30632. +        {
  30633. +
  30634. +        item = XCONS(item_cell->car);
  30635. +        name = XSTRING(item->car);
  30636. +        strcpy(strdata, name->data);
  30637. +        mkm->nm_Label = strdata;
  30638. +        strdata += name->size + 1;
  30639. +
  30640. +        if (!NULL(item->cdr)) /* Only name is necessary */
  30641. +        {
  30642. +            item = XCONS(item->cdr);
  30643. +
  30644. +            /* Expr is ignored */
  30645. +
  30646. +            if (!NULL(item->cdr))
  30647. +            {
  30648. +            item = XCONS(item->cdr);
  30649. +
  30650. +            /* Check shortcut */
  30651. +            if (!NULL(item->car))
  30652. +            {
  30653. +                mkm->nm_CommKey = strdata;
  30654. +                strdata[0] = XFASTINT(item->car);
  30655. +                strdata[1] = '\0';
  30656. +                strdata += 2;
  30657. +            }
  30658. +            if (!NULL(item->cdr))
  30659. +            {
  30660. +                item = XCONS(item->cdr);
  30661. +                if (!NULL(item->car))
  30662. +                mkm->nm_Flags |= NM_ITEMDISABLED;
  30663. +            }
  30664. +            }
  30665. +        }
  30666. +        }
  30667. +        mkm++;
  30668. +        s_items = item_cell->cdr;
  30669. +    }
  30670. +    if (!NULL(menu->cdr))
  30671. +    {
  30672. +        menu = XCONS(menu->cdr);
  30673. +        if (!NULL(menu->car)) menu1->nm_Flags |= NM_MENUDISABLED;
  30674. +    }
  30675. +    s_menus = menu_cell->cdr;
  30676. +    }
  30677. +    mkm->nm_Type = NM_END;
  30678. +    mkm->nm_Label = 0;
  30679. +    mkm->nm_CommKey = 0;
  30680. +    mkm->nm_Flags = 0;
  30681. +    mkm->nm_MutualExclude = 0;
  30682. +    if (!(emacs_menu = CreateMenus(menudata, TAG_END)))
  30683. +    {
  30684. +    free(emacs_menu_strings);
  30685. +    emacs_menu_strings = 0;
  30686. +    error("Menu couldn't be created");
  30687. +    }
  30688. +    if (!resume_menus()) error("Menu couldn't be layed out");
  30689. +
  30690. +    return Qt;
  30691. +}
  30692. +
  30693. +DEFUN ("amiga-delete-menus", Famiga_delete_menus, Samiga_delete_menus, 0, 0, 0,
  30694. +       "Remove & free menu strip")
  30695. +   ()
  30696. +{
  30697. +    check_intuition();
  30698. +
  30699. +    suspend_menus();
  30700. +    if (emacs_menu) FreeMenus(emacs_menu);
  30701. +    emacs_menu = 0;
  30702. +    if (emacs_menu_strings) free(emacs_menu_strings);
  30703. +    emacs_menu_strings = 0;
  30704. +
  30705. +    return Qt;
  30706. +}
  30707. +
  30708. +void syms_of_amiga_menu(void)
  30709. +{
  30710. +    defsubr(&Samiga_delete_menus);
  30711. +    defsubr(&Samiga_menus);
  30712. +}
  30713. +
  30714. +void init_amiga_menu(void)
  30715. +{
  30716. +    GadToolsBase = OpenLibrary("gadtools.library", 0);
  30717. +    if (!GadToolsBase) _fail("gadtools.library required");
  30718. +}
  30719. +
  30720. +void cleanup_amiga_menu(void)
  30721. +{
  30722. +  suspend_menus();
  30723. +  if (emacs_menu) Famiga_delete_menus();
  30724. +  if (GadToolsBase) CloseLibrary(GadToolsBase);
  30725. +}
  30726. diff -rup --new-file baseline/fsf/emacs18/src/amiga_processes.c amiga/fsf/emacs18/src/amiga_processes.c
  30727. --- baseline/fsf/emacs18/src/amiga_processes.c    Wed Dec 31 17:00:00 1969
  30728. +++ amiga/fsf/emacs18/src/amiga_processes.c    Sat Sep 28 00:00:00 1996
  30729. @@ -0,0 +1,94 @@
  30730. +#include <exec/types.h>
  30731. +#include <exec/execbase.h>
  30732. +#include <exec/memory.h>
  30733. +#include <dos/dos.h>
  30734. +#include <dos/dosextens.h>
  30735. +#include <dos/dostags.h>
  30736. +#include <proto/exec.h>
  30737. +#include <proto/dos.h>
  30738. +#include <clib/alib_protos.h>
  30739. +#include <signal.h>
  30740. +#undef signal
  30741. +#include <ios1.h>
  30742. +#include <string.h>
  30743. +#include <errno.h>
  30744. +#include <stdio.h>
  30745. +#include <internal/vars.h>
  30746. +
  30747. +#include "config.h"
  30748. +#include "lisp.h"
  30749. +#include "amiga.h"
  30750. +#include "emacssignal.h"
  30751. +
  30752. +extern struct ExecBase *SysBase;
  30753. +
  30754. +int amiga_process_stack_size;
  30755. +
  30756. +/* A few emacs support functions */
  30757. +/* ----------------------------- */
  30758. +
  30759. +wait_for_termination (pid)
  30760. +     int pid;
  30761. +{
  30762. +  while (1)
  30763. +    {
  30764. +      sigsetmask (sigmask (SIGCHLD));
  30765. +      if (0 > kill (pid, 0))
  30766. +        {
  30767. +      sigsetmask (SIGEMPTYMASK);
  30768. +      break;
  30769. +    }
  30770. +      sigpause (SIGEMPTYMASK);
  30771. +    }
  30772. +}
  30773. +
  30774. +char *amiga_path(void)
  30775. +{
  30776. +  char *path, *pp, name[128];
  30777. +  int pathsize;
  30778. +  struct CommandLineInterface *cli;
  30779. +  BPTR lock;
  30780. +  long l, *lp, nlen;
  30781. +
  30782. +  pathsize = 128;
  30783. +  path = (char *)xmalloc(pathsize);
  30784. +
  30785. +  strcpy(path, ".");
  30786. +  pp = path + 1;
  30787. +
  30788. +  if (!(cli = (struct CommandLineInterface *)((long)_us->pr_CLI << 2)))
  30789. +    return path;
  30790. +
  30791. +  l = (long)cli->cli_CommandDir;
  30792. +  while (l) {
  30793. +    *pp++ = ',';
  30794. +    l <<= 2;
  30795. +    lp = (long *)l;
  30796. +    lock = (BPTR)*(lp + 1);
  30797. +    NameFromLock(lock, name, 128);
  30798. +    nlen = strlen(name);
  30799. +    if (pp + nlen + 5 >= path + pathsize)
  30800. +      {
  30801. +    char *newpath;
  30802. +
  30803. +    pathsize = 2 * pathsize + nlen;
  30804. +    newpath = (char *)xrealloc(path);
  30805. +    pp = newpath + (pp - path);
  30806. +    path = newpath;
  30807. +      }
  30808. +    memcpy(pp, name, nlen);
  30809. +    pp += nlen;
  30810. +    l = *lp;
  30811. +  }
  30812. +  /* Use of +5 above guarantees that there is enough space for c: */
  30813. +  strcpy(pp, ",c:");
  30814. +
  30815. +  return path;
  30816. +}
  30817. +
  30818. +void syms_of_amiga_processes(void)
  30819. +{
  30820. +  amiga_process_stack_size = 0;
  30821. +  DEFVAR_INT("amiga-process-stack-size", &amiga_process_stack_size,
  30822. +     "Size of stack for called processes. 0 means same size as emacs stack.");
  30823. +}
  30824. diff -rup --new-file baseline/fsf/emacs18/src/amiga_rexx.c amiga/fsf/emacs18/src/amiga_rexx.c
  30825. --- baseline/fsf/emacs18/src/amiga_rexx.c    Wed Dec 31 17:00:00 1969
  30826. +++ amiga/fsf/emacs18/src/amiga_rexx.c    Sat Sep 28 00:00:00 1996
  30827. @@ -0,0 +1,460 @@
  30828. +/* low level ARexx code for use in amiga version of Emacs.
  30829. +   Copyright (C) 1993 Christian E. Hopps.
  30830. +
  30831. +This file is part of GNU Emacs.
  30832. +
  30833. +GNU Emacs is free software; you can redistribute it and/or modify
  30834. +it under the terms of the GNU General Public License as published by
  30835. +the Free Software Foundation; either version 1, or (at your option)
  30836. +any later version.
  30837. +
  30838. +GNU Emacs is distributed in the hope that it will be useful,
  30839. +but WITHOUT ANY WARRANTY; without even the implied warranty of
  30840. +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  30841. +GNU General Public License for more details.
  30842. +
  30843. +You should have received a copy of the GNU General Public License
  30844. +along with GNU Emacs; see the file COPYING.  If not, write to
  30845. +the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  30846. +
  30847. +#include "SimpleRexx.h"
  30848. +#include <proto/exec.h>
  30849. +#undef NULL
  30850. +#include "config.h"
  30851. +#include "lisp.h"
  30852. +
  30853. +#include "amiga.h"
  30854. +
  30855. +#define XLRXMSG(x) ((struct LispRexxMsg *) XPNTR((x)))
  30856. +#define XSETLRXMSG(x,v) (XSET((x), Lisp_Int, v))
  30857. +
  30858. +static AREXXCONTEXT far handle;
  30859. +static int amiga_arexx_initialized;
  30860. +
  30861. +/* This structure should be allocated with emacs_malloc() its pointer will be */
  30862. +/* used as an msgid. (emacs XUINT())*/
  30863. +struct LispRexxMsg {
  30864. +  struct MinNode  lrm_Node;              /* A node for tracking messages. */
  30865. +  struct RexxMsg *lrm_Msg;              /* The actual Rexx Msg. */
  30866. +  ULONG  lrm_Flags;
  30867. +};
  30868. +/* Flags for LispRexxMessage indicating what to do with it. */
  30869. +#define LRMF_SENTCMD (1L << 0)              /* this msg originated here. */
  30870. +#define LRMF_DOERRORS (1L << 1)              /* handle error replies */
  30871. +#define LRMF_DORESULTS (1L << 2)          /* handle result strings */
  30872. +
  30873. +struct LispRexxList {
  30874. +    struct MinList lrl_List;
  30875. +    int    lrl_Count;
  30876. +};
  30877. +
  30878. +struct LispRexxList pending;              /* The list of pending */
  30879. +                          /* (outgoing) Rexx Messages. */
  30880. +struct LispRexxList returned;              /* The list of pending */
  30881. +                          /* (outgoing) Rexx Messages */
  30882. +                          /* that have been received. */
  30883. +struct LispRexxList incoming;              /* The message that are */
  30884. +                          /* incoming to Emacs (sent */
  30885. +                          /* from some other rexx host. */
  30886. +
  30887. +/* allocate a rexx message properly */
  30888. +Lisp_Object alloc_rexx_msg(ULONG flags)
  30889. +{
  30890. +    Lisp_Object rm = Qnil;
  30891. +    struct LispRexxMsg *lrm = (struct LispRexxMsg *)malloc(sizeof(*lrm));
  30892. +    if(lrm) {
  30893. +    lrm->lrm_Flags = flags;
  30894. +    XSETLRXMSG(rm,lrm);
  30895. +    return(rm);
  30896. +    }
  30897. +    return(Qnil);
  30898. +}
  30899. +
  30900. +/* free an arexx message allocated with alloc_arexx_msg() */
  30901. +void free_rexx_msg (Lisp_Object rm)
  30902. +{
  30903. +    if(!NULL(rm)) {
  30904. +    void *mem = XLRXMSG(rm);
  30905. +    free(mem);
  30906. +    }
  30907. +}
  30908. +
  30909. +/* The next 2 functions imlement FIFO lists. */
  30910. +
  30911. +/* add LispRexxMsg to a LispRexxLisp Tail. */
  30912. +void add_rexx_msg_to_tail(struct LispRexxList *rl, Lisp_Object rm)
  30913. +{
  30914. +    AddTail((struct List *)rl,(struct Node *)XPNTR(rm));
  30915. +    rl->lrl_Count++;
  30916. +}
  30917. +
  30918. +/* remove LispRexxMsg from head of a LispRexxLisp. */
  30919. +Lisp_Object remove_rexx_msg_from_head(struct LispRexxList *rl)
  30920. +{
  30921. +    Lisp_Object rm = (Lisp_Object)RemHead((struct List *)rl);
  30922. +    if(rm != 0) {
  30923. +    rl->lrl_Count--;
  30924. +    return(rm);
  30925. +    } else {
  30926. +        return Qnil;
  30927. +    }
  30928. +}
  30929. +
  30930. +void remove_rexx_msg(struct LispRexxList *rl, Lisp_Object rm)
  30931. +{
  30932. +    Remove((struct Node *)XPNTR(rm));
  30933. +    rl->lrl_Count--;
  30934. +}
  30935. +
  30936. +
  30937. +/* find a rexx message on a list given an msgid (ptr) */
  30938. +int is_rexx_msgid_on_list(struct LispRexxList *rl,
  30939. +                    Lisp_Object id)
  30940. +{
  30941. +    struct MinNode *mn = rl->lrl_List.mlh_Head;
  30942. +    for(mn; mn->mln_Succ; mn = mn->mln_Succ) {
  30943. +    Lisp_Object cmpid = Qnil;
  30944. +    XSETLRXMSG(cmpid,mn);
  30945. +    if( EQ(cmpid,id)) {
  30946. +        return(1);
  30947. +    }
  30948. +    }
  30949. +    return(0);
  30950. +}
  30951. +
  30952. +Lisp_Object find_rexx_msg_on_list(struct LispRexxList *rl,
  30953. +                  struct RexxMsg *msg)
  30954. +{
  30955. +    Lisp_Object pnt = Qnil;
  30956. +    struct MinNode *mn = rl->lrl_List.mlh_Head;
  30957. +    for(mn; mn->mln_Succ; mn = mn->mln_Succ) {
  30958. +    if( ((struct LispRexxMsg *)mn)->lrm_Msg == msg) {
  30959. +        XSETLRXMSG(pnt,mn);
  30960. +    }
  30961. +    }
  30962. +    return(pnt);
  30963. +}
  30964. +
  30965. +/* This function is given a RexxMsg and it goes and find (or doesn't) the */
  30966. +/* corisponding pending message, removes it from the list and sets up the lisp */
  30967. +/* list for return values.  if it is not found nil is returned. (it deals with */
  30968. +/* the errors for incoming messages properly.  Some thought is needed on how to */
  30969. +/* handle errors from replied sent commands that were not asking for results. */
  30970. +Lisp_Object handle_rexx_msg_replied(struct RexxMsg *msg)
  30971. +{
  30972. +    Lisp_Object rm = find_rexx_msg_on_list(&pending, msg);
  30973. +    if(!NULL(rm)) {
  30974. +    /* Process the command.  If it was requesting results strings handle */
  30975. +    /* them otherwise just delete. */
  30976. +    struct LispRexxMsg *lrm = XLRXMSG(rm);
  30977. +    remove_rexx_msg(&pending, rm);
  30978. +
  30979. +    if(msg->rm_Result1 == 0) {
  30980. +        if(lrm->lrm_Flags & LRMF_DORESULTS) {
  30981. +        /* add to returned so that result can be fetched. */
  30982. +        add_rexx_msg_to_tail(&returned,rm);
  30983. +        } else {
  30984. +        /* simply delete rexx message. */
  30985. +        DeleteARexxMsg(handle,msg);
  30986. +        free_rexx_msg(rm);
  30987. +        }
  30988. +    } else {
  30989. +        /* an error occured with our message. */
  30990. +        if(lrm->lrm_Flags & LRMF_DOERRORS) {
  30991. +        /* add to returned so that error can be fetched. */
  30992. +        add_rexx_msg_to_tail(&returned,rm);
  30993. +        } else {
  30994. +        /* simply delete rexx message. */
  30995. +        DeleteARexxMsg(handle,msg);
  30996. +        free_rexx_msg(rm);
  30997. +        }
  30998. +    }
  30999. +    } else {
  31000. +    /* This should never happen we received a rexx message reply */
  31001. +    /* that we never sent out. */
  31002. +    DeleteARexxMsg(handle,msg);
  31003. +    }
  31004. +}
  31005. +
  31006. +/* This function takes incoming messages and place them on the incoming msg */
  31007. +/* list.  */
  31008. +Lisp_Object handle_rexx_msg_received(struct RexxMsg *msg)
  31009. +{
  31010. +    Lisp_Object rm = alloc_rexx_msg(LRMF_DORESULTS|LRMF_DOERRORS);
  31011. +    if(!NULL(rm)) {
  31012. +    /* Add message to incoming list. */
  31013. +    struct LispRexxMsg *lrm = XLRXMSG(rm);
  31014. +    lrm->lrm_Msg = msg;              /* set msg pointer. */
  31015. +    add_rexx_msg_to_tail(&incoming,rm);
  31016. +    } else {
  31017. +    /* This should never happen we received a rexx message but ran out of */
  31018. +    /* memory.  Set last error msg. and reply with fail. */
  31019. +    SetARexxLastError(handle, msg, "Out of emacs memory.");
  31020. +    ReplyARexxMsg(handle, msg, 0, 20);
  31021. +    }
  31022. +}
  31023. +
  31024. +/* Almost the same as old one, but we now call handle_pending_arexx_reply() for */
  31025. +/* replied messages that we sent, so that we can setup result strings and such. */
  31026. +int check_arexx(int force, int kbd)
  31027. +{
  31028. +    struct RexxMsg *msg;
  31029. +    int msg_received = FALSE;
  31030. +    while (msg = GetARexxMsg(handle)) {
  31031. +    msg_received = TRUE;
  31032. +    if(msg->rm_Node.mn_Node.ln_Type == NT_REPLYMSG)    {
  31033. +        /* This is a reply to a rexx command we send out. */
  31034. +        handle_rexx_msg_replied(msg);
  31035. +    } else {
  31036. +        handle_rexx_msg_received(msg);
  31037. +    }
  31038. +    }
  31039. +    if ((kbd && amiga_arexx_initialized)) {
  31040. +    /* if we got a message or we have some out, or we have some waiting to */
  31041. +    /* be processes then enque the Key sequence that will call the rexx */
  31042. +    /* message handler.  We obviously don't do this for returned commands :^) */
  31043. +    if ((msg_received || force && incoming.lrl_Count > 0) &&
  31044. +        get_ttycount() == 0) {
  31045. +        enque(AMIGASEQ, FALSE); enque('X', FALSE);
  31046. +    }
  31047. +    }
  31048. +    return msg_received;
  31049. +}
  31050. +
  31051. +DEFUN ("amiga-arexx-wait", Famiga_arexx_wait, Samiga_arexx_wait, 0, 0, 0,
  31052. +       "Wait for an ARexx event (command or reply) before proceeding.")
  31053. +    ()
  31054. +{
  31055. +    while (!check_arexx(FALSE, FALSE)) Wait(ARexxSignal(handle));
  31056. +}
  31057. +
  31058. +DEFUN ("amiga-arexx-check-command",
  31059. +       Famiga_arexx_check_command, Samiga_arexx_check_command, 1, 1, 0,
  31060. +       "Return t if command ID has finished, nil otherwise.")
  31061. +    (id)
  31062. +Lisp_Object id;
  31063. +{
  31064. +    CHECK_NUMBER(id,0);
  31065. +
  31066. +    if(is_rexx_msgid_on_list(&pending,id)) {
  31067. +    /* still on pending return false. */
  31068. +    return Qnil;
  31069. +    } else if(is_rexx_msgid_on_list(&returned,id)) {
  31070. +    /* is waiting to be processed return true. */
  31071. +    return Qt;
  31072. +    }
  31073. +
  31074. +    /* is nowhere to be found. error. */
  31075. +    error("id not found.");
  31076. +    return Qnil;
  31077. +}
  31078. +
  31079. +DEFUN ("amiga-arexx-get-next-msg", Famiga_arexx_get_next_msg,
  31080. +       Samiga_get_next_msg, 0, 0, 0,
  31081. +"Returns the oldest arexx msg sent to emacs rexx port.\n\
  31082. +When you are through with this message call (amiga-arexx-reply).\n\
  31083. +if the msg is not replied this function will continue to\n\
  31084. +return that msg until it has been replied to.")
  31085. +  ()
  31086. +{
  31087. +    struct RexxMsg *rmsg;
  31088. +
  31089. +    check_arexx(FALSE, FALSE);
  31090. +    if (incoming.lrl_Count) {
  31091. +    struct RexxMsg *msg = ((struct LispRexxMsg *)
  31092. +                   incoming.lrl_List.mlh_Head)->lrm_Msg;
  31093. +    return build_string(ARG0(msg));
  31094. +    }
  31095. +    /* nothing to be gotten. */
  31096. +    return Qnil;
  31097. +}
  31098. +
  31099. +DEFUN("amiga-arexx-get-msg-results", Famiga_arexx_get_msg_results,
  31100. +      Samiga_arexx_get_msg_results, 1,1,0,
  31101. +"Returns the results from MSGID. will be a list of the form:\n\
  31102. +  (msgid resultcode secondary)\n\n\
  31103. +If resultcode is 0 then secondary will be a string or nil.\n\
  31104. +else resulcode will be greater than 0 and secondary will be\n\
  31105. +an error-code (int).\n\n\
  31106. +If MSGID has not yet completed nil is returned.\n\
  31107. +if MSGID has been dealt with or is invalid and error will occur.")
  31108. +    (msgid)
  31109. +Lisp_Object msgid;
  31110. +{
  31111. +    CHECK_NUMBER(msgid,0);
  31112. +
  31113. +    if(is_rexx_msgid_on_list(&returned,msgid)) {
  31114. +    /* msgid has completed build list and delete LispRexxMsg. */
  31115. +    struct LispRexxMsg *lrm = XLRXMSG(msgid);
  31116. +    Lisp_Object rc, error_or_string, ret;
  31117. +    struct RexxMsg *msg = lrm->lrm_Msg;
  31118. +
  31119. +    remove_rexx_msg(&returned,msgid);
  31120. +
  31121. +    rc = make_number(msg->rm_Result1);
  31122. +    if(msg->rm_Result1 == 0) {
  31123. +        error_or_string = msg->rm_Result2 ? build_string(msg->rm_Result2) : 0;
  31124. +    } else {
  31125. +        /* error occurred */
  31126. +        error_or_string = make_number(msg->rm_Result2); /* save error code. */
  31127. +    }
  31128. +    free_rexx_msg(msgid);              /* free our rexx msg. */
  31129. +    DeleteARexxMsg(handle,msg);          /* free ARexx msg proper */
  31130. +
  31131. +    /* build lisp list. */
  31132. +    ret = Fcons( msgid, Fcons( rc, Fcons(error_or_string, Qnil)));
  31133. +    if(NULL(ret)) {
  31134. +        error("Couldn't get memory.");
  31135. +    }
  31136. +    return(ret);
  31137. +    } else if(is_rexx_msgid_on_list(&pending,msgid)) {
  31138. +    return Qnil;                  /* this msgid has not yet completed. */
  31139. +    } else {
  31140. +    error("Unknown MSGID.");
  31141. +    return Qnil;
  31142. +    }
  31143. +}
  31144. +
  31145. +DEFUN ("amiga-arexx-reply", Famiga_arexx_reply, Samiga_arexx_reply,
  31146. +       2, 2, 0,
  31147. +"Replies to the first arexx message (the one got via amiga-arexx-get-event)\n\
  31148. +with RC as return code.\n\
  31149. +If RC=0, TEXT is the result, otherwise it is the error text. It can be nil.")
  31150. +    (rc, text)
  31151. +Lisp_Object rc, text;
  31152. +{
  31153. +    int retcode, ok = TRUE;
  31154. +    char *result;
  31155. +    struct RexxMsg *rmsg;
  31156. +    Lisp_Object rm = remove_rexx_msg_from_head(&incoming);
  31157. +    struct LispRexxMsg *lrm = XLRXMSG(rm);
  31158. +
  31159. +    if (NULL(rm))
  31160. +    error("No ARexx message to reply to.");
  31161. +
  31162. +    rmsg = lrm->lrm_Msg;
  31163. +
  31164. +    CHECK_NUMBER(rc, 0);
  31165. +    retcode = XINT(rc);
  31166. +
  31167. +    if (!NULL (text)) {
  31168. +    CHECK_STRING(text, 0);
  31169. +    result = XSTRING (text)->data;
  31170. +    } else {
  31171. +    result = 0;
  31172. +    }
  31173. +    if (retcode && result)
  31174. +    ok = SetARexxLastError(handle, rmsg, result);
  31175. +    ReplyARexxMsg(handle, rmsg, result, retcode);
  31176. +
  31177. +    if (!ok)
  31178. +    error("Failed to set ARexx error message.");
  31179. +
  31180. +    return Qnil;
  31181. +}
  31182. +
  31183. +Lisp_Object send_rexx_command(Lisp_Object str, Lisp_Object as_file,
  31184. +                  ULONG flags)
  31185. +{
  31186. +    struct RexxMsg *rmsg;
  31187. +    int i;
  31188. +    Lisp_Object id, rm;
  31189. +    struct LispRexxMsg *lrm;
  31190. +
  31191. +    rm = alloc_rexx_msg(flags);
  31192. +    if(NULL(rm)) {
  31193. +    error("Failed to send command to ARexx.");
  31194. +    return Qnil;
  31195. +    }
  31196. +
  31197. +    CHECK_STRING (str, 0);
  31198. +    if (!(rmsg = SendARexxMsg(handle, XSTRING (str)->data,!NULL (as_file),
  31199. +                  (flags & LRMF_DORESULTS ? 1 : 0)))) {
  31200. +    free_rexx_msg(rm);
  31201. +    error("Failed to send command to ARexx.");
  31202. +    return Qnil;
  31203. +    }
  31204. +    lrm = XLRXMSG(rm);
  31205. +    lrm->lrm_Msg = rmsg;              /* set rexx message pointer. */
  31206. +    add_rexx_msg_to_tail(&pending,rm);          /* add to pending list. */
  31207. +
  31208. +    return(rm);
  31209. +}
  31210. +
  31211. +DEFUN ("amiga-arexx-send-command", Famiga_arexx_send_command,
  31212. +       Samiga_arexx_send_command, 1, 2, 0,
  31213. +"Sends a command to ARexx for execution.\n\
  31214. +If the second arg is non-nil, the command is directly interpreted.\n\
  31215. +Returns an integer that uniquely identifies this message.  This must\n\
  31216. +then be used to get the results from the command.\n\
  31217. +NOTE: this is very different from old way things worked.\n\
  31218. +      earlier versions of emacs discarded successful results\n\
  31219. +      and errors always got replied to becuase they caused failures\n\
  31220. +      Neither of these are true now.\
  31221. +This function is also no longer interactive.\n\
  31222. +Use (amiga-arexx-do-command)\n")
  31223. +    (str, as_file)
  31224. +Lisp_Object str, as_file;
  31225. +{
  31226. +    return(send_rexx_command(str,as_file,
  31227. +                 LRMF_DORESULTS|
  31228. +                 LRMF_DOERRORS|
  31229. +                 LRMF_SENTCMD));
  31230. +}
  31231. +
  31232. +void init_amiga_rexx(void)
  31233. +{
  31234. +    extern ULONG inputsig;
  31235. +    int i;
  31236. +
  31237. +    handle = InitARexx("Emacs", "elx");
  31238. +    inputsig |= ARexxSignal(handle);
  31239. +
  31240. +    /* init exec lists. */
  31241. +    NewList((struct List *)&incoming.lrl_List);
  31242. +    incoming.lrl_Count = 0;
  31243. +
  31244. +    NewList((struct List *)&pending.lrl_List);
  31245. +    pending.lrl_Count = 0;
  31246. +
  31247. +    NewList((struct List *)&returned.lrl_List);
  31248. +    returned.lrl_Count = 0;
  31249. +}
  31250. +
  31251. +void cleanup_amiga_rexx(void)
  31252. +{
  31253. +    /* Delete and reply all rexx messages we have gotten. */
  31254. +    Lisp_Object rm = remove_rexx_msg_from_head(&returned);
  31255. +    while(!NULL(rm)) {
  31256. +    struct LispRexxMsg *lrm = XLRXMSG(rm);
  31257. +    DeleteARexxMsg(handle,lrm->lrm_Msg);
  31258. +    free_rexx_msg(rm);
  31259. +    rm = remove_rexx_msg_from_head(&returned);
  31260. +    }
  31261. +
  31262. +    rm = remove_rexx_msg_from_head(&incoming);
  31263. +    while(!NULL(rm)) {
  31264. +    struct LispRexxMsg *lrm = XLRXMSG(rm);
  31265. +    ReplyARexxMsg(handle, lrm->lrm_Msg, 0, 20);
  31266. +    free_rexx_msg(rm);
  31267. +    rm = remove_rexx_msg_from_head(&incoming);
  31268. +    }
  31269. +
  31270. +    /* Free the rest of rexx, will wait for pending msgs to return */
  31271. +    FreeARexx(handle);
  31272. +}
  31273. +
  31274. +void syms_of_amiga_rexx(void)
  31275. +{
  31276. +    DEFVAR_BOOL ("amiga-arexx-initialized", &amiga_arexx_initialized,
  31277. +         "Set this to t when Emacs is ready to respond to ARexx messages.\n"
  31278. +         "(ie C-\ X causes all pending ARexx messages to be answered)");
  31279. +    amiga_arexx_initialized = 0;
  31280. +
  31281. +    defsubr(&Samiga_arexx_send_command);
  31282. +    defsubr(&Samiga_arexx_reply);
  31283. +    defsubr(&Samiga_get_next_msg);
  31284. +    defsubr(&Samiga_arexx_get_msg_results);
  31285. +    defsubr(&Samiga_arexx_check_command);
  31286. +    defsubr(&Samiga_arexx_wait);
  31287. +}
  31288. diff -rup --new-file baseline/fsf/emacs18/src/amiga_screen.c amiga/fsf/emacs18/src/amiga_screen.c
  31289. --- baseline/fsf/emacs18/src/amiga_screen.c    Wed Dec 31 17:00:00 1969
  31290. +++ amiga/fsf/emacs18/src/amiga_screen.c    Sat Sep 28 00:00:00 1996
  31291. @@ -0,0 +1,1396 @@
  31292. +#include "config.h"
  31293. +#undef NULL
  31294. +#include "lisp.h"
  31295. +#include "termchar.h"
  31296. +#include "dispextern.h"
  31297. +
  31298. +#include <stdio.h>
  31299. +#include <string.h>
  31300. +#include <stddef.h>
  31301. +#include <internal/devices.h>
  31302. +#include <internal/vars.h>
  31303. +
  31304. +#define min(x,y) ((x) > (y) ? (y) : (x))
  31305. +#define max(x,y) ((x) < (y) ? (y) : (x))
  31306. +
  31307. +#undef LONGBITS
  31308. +
  31309. +#include <exec/types.h>
  31310. +#include <exec/interrupts.h>
  31311. +#include <devices/input.h>
  31312. +#include <devices/inputevent.h>
  31313. +#include <intuition/intuitionbase.h>
  31314. +#include <intuition/intuition.h>
  31315. +#include <devices/conunit.h>
  31316. +#include <devices/inputevent.h>
  31317. +#include <graphics/gfxbase.h>
  31318. +#include <graphics/gfxmacros.h>
  31319. +#include <utility/hooks.h>
  31320. +#include <workbench/startup.h>
  31321. +#include <workbench/workbench.h>
  31322. +
  31323. +#include <proto/exec.h>
  31324. +#include <proto/dos.h>
  31325. +#include <proto/intuition.h>
  31326. +#include <proto/graphics.h>
  31327. +#include <proto/console.h>
  31328. +#include <proto/diskfont.h>
  31329. +#include <proto/wb.h>
  31330. +
  31331. +/* this is defined for those unlucky enough
  31332. + * not to have the 3.0 headers  -ch3/16/93. */
  31333. +#ifndef WA_NewLookMenus
  31334. +#define WA_NewLookMenus (WA_Dummy + 0x30)
  31335. +#endif
  31336. +
  31337. +#include "amiga.h"
  31338. +
  31339. +#define SHIFT_MASK (IEQUALIFIER_LSHIFT | IEQUALIFIER_RSHIFT)
  31340. +#define CONTROL_MASK IEQUALIFIER_CONTROL
  31341. +#define META_MASK IEQUALIFIER_LALT
  31342. +
  31343. +struct GfxBase *GfxBase;
  31344. +struct IntuitionBase *IntuitionBase;
  31345. +struct Library *DiskfontBase, *KeymapBase, *WorkbenchBase;
  31346. +
  31347. +static char intkey_code, intkey_qualifier;
  31348. +static struct IOStdReq *input_req;
  31349. +static struct Interrupt int_handler_hook;
  31350. +static int hooked;
  31351. +
  31352. +static struct MsgPort *wbport;
  31353. +static struct AppWindow *emacs_app_win;
  31354. +static struct AppIcon *emacs_icon;
  31355. +
  31356. +struct Library *ConsoleDevice;
  31357. +static struct TextFont *font;
  31358. +static int font_opened;
  31359. +/* The reset string resets the console, turns off scrolling and sets up
  31360. +   the foreground & background colors. */
  31361. +#define CONSOLE_RESET "\x1b""c\x9b>1l\x9b""3%d;4%d;>%dm"
  31362. +static char reset_string[20]; /* Must be big enough for
  31363. +              printf(CONSOLE_RESET, foreground, background, background);
  31364. +              (0 <= foreground, background <= 7) */
  31365. +
  31366. +/* These are the pen numbers for emacs window's base colors */
  31367. +int foreground = 1, background = 0;
  31368. +
  31369. +/* Current window, and its main characteristics */
  31370. +struct Window *emacs_win;
  31371. +WORD emacs_x = 0, emacs_y = 0, emacs_w = 640, emacs_h = 200;
  31372. +char *emacs_screen_name;
  31373. +char emacs_screen_name_storage[MAXPUBSCREENNAME+1];
  31374. +int emacs_backdrop = 0;        /* Use backdrop window ? */
  31375. +
  31376. +/* Current window size: */
  31377. +#define EMACS_X() (emacs_win ? emacs_win->LeftEdge : emacs_x)
  31378. +#define EMACS_Y() (emacs_win ? emacs_win->TopEdge : emacs_y)
  31379. +#define EMACS_W() (emacs_win ? emacs_win->Width : emacs_w)
  31380. +#define EMACS_H() (emacs_win ? emacs_win->Height : emacs_h)
  31381. +
  31382. +/* used for setting the color of standout text  -ch3/16/93. */
  31383. +int inverse_fill_pen = 8, inverse_text_pen = 8;
  31384. +
  31385. +/* IO request for all console io. */
  31386. +static struct IOStdReq *emacs_console;
  31387. +
  31388. +/* a storage area for the name of the screen last opened on */
  31389. +
  31390. +#define emacs_icon_width 57
  31391. +#define emacs_icon_height 55
  31392. +#define emacs_icon_num_planes 1
  31393. +#define emacs_icon_words_per_plane 220
  31394. +
  31395. +UWORD chip emacs_icon_data[1][55][4] = {
  31396. +  {
  31397. +    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  31398. +    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  31399. +    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0fe0,0x6000,
  31400. +    0x0000,0x0000,0x0060,0x6000,0x0000,0x0000,0x0fff,0xe000,
  31401. +    0x0000,0x0000,0x1800,0x2000,0x0000,0x0000,0x13ff,0xa000,
  31402. +    0x0000,0x0000,0x1400,0xa000,0x0000,0x0000,0x3600,0xa000,
  31403. +    0x0000,0x0000,0x0000,0xa000,0x0000,0x0000,0x0c00,0xa000,
  31404. +    0x0000,0x0000,0x1e00,0xa000,0x0000,0x0000,0x0c00,0xa000,
  31405. +    0x0000,0x0000,0x0000,0xa000,0x0000,0x0000,0x2100,0xa000,
  31406. +    0x0000,0x0000,0x3300,0xa000,0x0000,0x0000,0x0c00,0xa000,
  31407. +    0x003f,0xffff,0xffff,0xb000,0x001f,0xffff,0xffff,0x8000,
  31408. +    0x004e,0x0000,0x0001,0xf000,0x00c6,0x00f0,0x0001,0x8000,
  31409. +    0x00c6,0x0100,0x0001,0x8000,0x0006,0x0103,0x9201,0x8000,
  31410. +    0x0006,0x013a,0x5201,0x8000,0x00c6,0x010a,0x5201,0x8000,
  31411. +    0x00c6,0x010a,0x5601,0x8000,0x0086,0x00f2,0x4a01,0x8000,
  31412. +    0x0006,0x0000,0x0001,0x8000,0x0046,0x0000,0x0001,0x8000,
  31413. +    0x00c6,0x7c00,0x0001,0x8000,0x00c6,0x4000,0x0001,0x8000,
  31414. +    0x0006,0x41d8,0xc319,0x8000,0x0006,0x7925,0x24a1,0x8000,
  31415. +    0x00c6,0x4125,0x2419,0x8000,0x01c6,0x4125,0x2485,0x8000,
  31416. +    0x0086,0x7d24,0xd319,0x8000,0x0007,0x0000,0x0003,0x8000,
  31417. +    0x0003,0xffe3,0xffff,0x0000,0x0081,0xfff7,0xfffe,0x0000,
  31418. +    0x01c0,0x0036,0x0000,0x0000,0x0180,0x0014,0x0f80,0x0000,
  31419. +    0x0000,0x0014,0x1040,0x0000,0x0000,0x0014,0x2720,0x0000,
  31420. +    0x0000,0x0012,0x28a0,0x0000,0x0080,0x000a,0x48a0,0x0000,
  31421. +    0x01c0,0x0009,0x90a0,0x0000,0x0180,0x0004,0x20a0,0x0000,
  31422. +    0x0000,0x0003,0xc0a0,0x0000,0x0000,0x0000,0x00a0,0x0000,
  31423. +    0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  31424. +    0x0000,0x0000,0x0000,0x0000
  31425. +  },
  31426. +};
  31427. +
  31428. +struct Image far emacs_icon_image = {
  31429. +  0, 0,
  31430. +  emacs_icon_width, emacs_icon_height, emacs_icon_num_planes,
  31431. +  (UWORD *)emacs_icon_data,
  31432. +  3, 0,
  31433. +  0
  31434. +};
  31435. +
  31436. +static struct DiskObject far emacs_icon_object = {
  31437. +  0, 0,
  31438. +  { 0, 0, 0, emacs_icon_width, emacs_icon_height, 0, 0, 0, (APTR)&emacs_icon_image },
  31439. +  0, 0, 0,
  31440. +  NO_ICON_POSITION, NO_ICON_POSITION
  31441. +};
  31442. +
  31443. +static struct Hook background_hook;
  31444. +
  31445. +#define EVENTSIZE 32
  31446. +
  31447. +static struct event {
  31448. +  ULONG class;
  31449. +  UWORD code, qual;
  31450. +  WORD x, y;
  31451. +} events[EVENTSIZE];
  31452. +static int event_num, event_in, event_out;
  31453. +
  31454. +static struct wbevent {
  31455. +  struct wbevent *next;
  31456. +  char file[1];
  31457. +} *wbevents;
  31458. +
  31459. +Lisp_Object Vamiga_mouse_pos;
  31460. +Lisp_Object Vamiga_mouse_item;
  31461. +extern Lisp_Object MouseMap;
  31462. +int amiga_remap_bsdel;
  31463. +int amiga_remap_numeric_keypad;
  31464. +int amiga_mouse_initialized;
  31465. +int amiga_wb_initialized;
  31466. +int emacs_iconified;
  31467. +
  31468. +static int amiga_pos_x(int x)
  31469. +{
  31470. +  return (x - emacs_win->BorderLeft) / emacs_win->RPort->Font->tf_XSize;
  31471. +}
  31472. +
  31473. +static int amiga_pos_y(int y)
  31474. +{
  31475. +  return (y - emacs_win->BorderTop) / emacs_win->RPort->Font->tf_YSize;
  31476. +}
  31477. +
  31478. +static void amiga_change_size(void)
  31479. +{
  31480. +  int new_height = amiga_pos_y(emacs_win->Height - emacs_win->BorderBottom);
  31481. +  int new_width = amiga_pos_x(emacs_win->Width - emacs_win->BorderRight);
  31482. +
  31483. +  /* Hack to force redisplay */
  31484. +  if (screen_height == new_height) screen_height--;
  31485. +  /* I consider that refreshes are possible during a select, which is
  31486. +     true for the current state of emacs */
  31487. +  change_screen_size(new_height, new_width, 0, !selecting && !waiting_for_input, 1);
  31488. +}
  31489. +
  31490. +/* Get terminal size from system.
  31491. +   Store number of lines into *heightp and width into *widthp.
  31492. +   If zero or a negative number is stored, the value is not valid.  */
  31493. +
  31494. +void get_window_size (widthp, heightp)
  31495. +     int *widthp, *heightp;
  31496. +{
  31497. +  if (emacs_win)
  31498. +    {
  31499. +      *heightp = amiga_pos_y(emacs_win->Height - emacs_win->BorderBottom);
  31500. +      *widthp = amiga_pos_x(emacs_win->Width - emacs_win->BorderRight);
  31501. +    }
  31502. +  else
  31503. +    {
  31504. +      *heightp = 0;
  31505. +      *widthp = 0;
  31506. +    }
  31507. +}
  31508. +
  31509. +static int set_min_size(struct Window *win, struct TextFont *font,
  31510. +            WORD *minw, WORD *minh)
  31511. +{
  31512. +  *minw = 11 * font->tf_XSize + win->BorderLeft + win->BorderRight;
  31513. +  *minh = 4 * font->tf_YSize + win->BorderTop + win->BorderBottom;
  31514. +
  31515. +  return (int)WindowLimits(win, *minw, *minh, 0, 0);
  31516. +}
  31517. +
  31518. +struct fill
  31519. +{
  31520. +  struct Layer *layer;
  31521. +  struct Rectangle bounds;
  31522. +  WORD offsetx, offsety;
  31523. +};
  31524. +
  31525. +/* __interrupt disables stack checking.   -ch3/19/93. */
  31526. +static ULONG __asm __saveds __interrupt
  31527. +fill_background(register __a2 struct RastPort *obj,
  31528. +        register __a1 struct fill *msg)
  31529. +{
  31530. +  struct Layer *l;
  31531. +
  31532. +  SetAPen(obj, background);
  31533. +  SetDrMd(obj, JAM1);
  31534. +  SetAfPt(obj, 0, 0);
  31535. +  SetWrMsk(obj, 0xff);
  31536. +  /* Gross hack starts here */
  31537. +  l = obj->Layer;
  31538. +  obj->Layer = 0;
  31539. +  /* Stops */
  31540. +  RectFill(obj, msg->bounds.MinX, msg->bounds.MinY,
  31541. +       msg->bounds.MaxX, msg->bounds.MaxY);
  31542. +  /* Starts again */
  31543. +  obj->Layer = l;
  31544. +  /* And finally dies */
  31545. +
  31546. +  return 0;
  31547. +}
  31548. +
  31549. +static void clear_window(void)
  31550. +{
  31551. +  SetAPen(emacs_win->RPort, background);
  31552. +  RectFill(emacs_win->RPort, emacs_win->BorderLeft, emacs_win->BorderTop,
  31553. +       emacs_win->Width - emacs_win->BorderRight - 1,
  31554. +       emacs_win->Height - emacs_win->BorderBottom - 1);
  31555. +}
  31556. +
  31557. +static int make_reset_string(void)
  31558. +{
  31559. +  sprintf(reset_string, CONSOLE_RESET, foreground, background, background);
  31560. +}
  31561. +
  31562. +void reset_window(void)
  31563. +{
  31564. +  make_reset_string();
  31565. +  if (emacs_win)
  31566. +    {
  31567. +      screen_puts (reset_string, strlen(reset_string));
  31568. +      clear_window();
  31569. +      amiga_change_size ();
  31570. +    }
  31571. +}
  31572. +
  31573. +static void close_app_win(void)
  31574. +{
  31575. +  if (emacs_app_win)
  31576. +    {
  31577. +      struct AppMessage *msg;
  31578. +
  31579. +      RemoveAppWindow(emacs_app_win); /* What can I do if it fails ?! */
  31580. +      while (msg = (struct AppMessage *)GetMsg(wbport)) ReplyMsg(msg);
  31581. +    }
  31582. +}
  31583. +
  31584. +static int close_emacs_window(void)
  31585. +{
  31586. +  close_app_win();
  31587. +  inputsig &= ~(1L << emacs_win->UserPort->mp_SigBit);
  31588. +  _device_close(emacs_console);
  31589. +  if(emacs_win)
  31590. +    {
  31591. +      /* put title back the way it should be   -ch3/19/93. */
  31592. +      ShowTitle(emacs_win->WScreen, !emacs_backdrop);
  31593. +    }
  31594. +  CloseWindow(emacs_win);
  31595. +  emacs_console = 0;
  31596. +  emacs_win = 0;
  31597. +  ConsoleDevice = 0;
  31598. +}
  31599. +
  31600. +/* We need this function becuase we do not always have the string
  31601. + * for the screen we opened on. for example LockPubScreen(NULL);
  31602. + * This function will get the name by looping through all public
  31603. + * screens looking for the one that matches ours. -ch3/20/93 */
  31604. +
  31605. +char *get_screen_name(struct Screen *this, char *namebuf)
  31606. +{
  31607. +  struct PubScreenNode *pubscreens =
  31608. +    (struct PubScreenNode *)LockPubScreenList()->lh_Head;
  31609. +
  31610. +  while (pubscreens->psn_Node.ln_Succ)
  31611. +    {
  31612. +      if (pubscreens->psn_Screen == this)
  31613. +    {
  31614. +      strcpy(namebuf, pubscreens->psn_Node.ln_Name);
  31615. +      UnlockPubScreenList();
  31616. +      return namebuf;
  31617. +    }
  31618. +      pubscreens = (struct PubScreenNode *)pubscreens->psn_Node.ln_Succ;
  31619. +    }
  31620. +  /* Failed to find screen */
  31621. +  namebuf[0] = '\0';
  31622. +  UnlockPubScreenList();
  31623. +
  31624. +  return 0;
  31625. +}
  31626. +
  31627. +/* added two parameters to eliminate the need for the global
  31628. + * which was causing some unwanted effect (bugs). -ch3/19/93 */
  31629. +
  31630. +static enum { ok, no_screen, no_window }
  31631. +open_emacs_window(UWORD x, UWORD y, UWORD w, UWORD h, int backdrop,
  31632. +          char *pubscreen_name)
  31633. +     /* Open or reopen emacs window */
  31634. +{
  31635. +  WORD minw, minh;
  31636. +  struct Screen *new_screen;
  31637. +  struct Window *new_win;
  31638. +  struct IOStdReq *new_console;
  31639. +  int no_backdrop = !backdrop;
  31640. +
  31641. +  new_screen = LockPubScreen(pubscreen_name);
  31642. +
  31643. +  if (!new_screen)
  31644. +    return no_screen;
  31645. +
  31646. +  /* removed newwindow structure, and added as tag
  31647. +   * items so that we can change them easier. -ch3/16/93. */
  31648. +
  31649. +  new_win = OpenWindowTags(0, WA_Left, x, WA_Top, y,
  31650. +                  WA_Width, w, WA_Height, h,    /* Static items */
  31651. +                  WA_AutoAdjust, 1, WA_NewLookMenus, 1,
  31652. +                  WA_IDCMP, IDCMP_CLOSEWINDOW | IDCMP_RAWKEY |
  31653. +                            IDCMP_MOUSEBUTTONS| IDCMP_NEWSIZE |
  31654. +                            IDCMP_MENUPICK | IDCMP_MENUHELP,
  31655. +                  WA_PubScreen, new_screen,
  31656. +                  WA_BackFill, &background_hook,
  31657. +                  WA_MenuHelp, 1, WA_Activate, 1,
  31658. +                  WA_SimpleRefresh, 1,
  31659. +                  WA_MaxWidth, -1, WA_MaxHeight, -1,
  31660. +                  WA_Backdrop, backdrop,    /* changing items */
  31661. +                  WA_Borderless, backdrop,
  31662. +                  WA_CloseGadget, no_backdrop,
  31663. +                  WA_SizeGadget, no_backdrop,
  31664. +                  WA_DragBar, no_backdrop,
  31665. +                  WA_DepthGadget, no_backdrop,
  31666. +                  WA_Title, no_backdrop ?
  31667. +                   "GNU Emacs 18.59, Amiga port "VERS : 0,
  31668. +                              TAG_END);
  31669. +
  31670. +  UnlockPubScreen(0L, new_screen);
  31671. +
  31672. +  if (new_win)
  31673. +    {
  31674. +      /* if emacs_backdrop then the screen title will show BEHIND the window
  31675. +     -ch3/16/93. */
  31676. +      ShowTitle(new_screen, !emacs_backdrop);
  31677. +      SetFont(new_win->RPort, font);
  31678. +
  31679. +      if (set_min_size(new_win, font, &minw, &minh) &&
  31680. +      (new_console = (struct IOStdReq *)
  31681. +       _device_open("console.device", CONU_CHARMAP, CONFLAG_NODRAW_ON_NEWSIZE,
  31682. +            (APTR)new_win, sizeof(*new_win),
  31683. +            sizeof(struct IOStdReq))))
  31684. +    {
  31685. +      inputsig |= 1L << new_win->UserPort->mp_SigBit;
  31686. +      ConsoleDevice = (struct Library *)new_console->io_Device;
  31687. +      emacs_app_win = AddAppWindowA(0, 0, new_win, wbport, 0);
  31688. +
  31689. +      /* Copy the info into permanent storage */
  31690. +      emacs_win = new_win;
  31691. +      emacs_console = new_console;
  31692. +
  31693. +      /* fetch the name of the current screen -ch3/19/93 */
  31694. +      emacs_screen_name = get_screen_name(emacs_win->WScreen,
  31695. +                          emacs_screen_name_storage);
  31696. +
  31697. +      emacs_backdrop = backdrop;
  31698. +
  31699. +      reset_window();
  31700. +
  31701. +      return ok;
  31702. +    }
  31703. +      CloseWindow(new_win);
  31704. +    }
  31705. +  return no_window;
  31706. +}
  31707. +
  31708. +void force_window(void)
  31709. +{
  31710. +  if (!emacs_win && !emacs_iconified)
  31711. +    {
  31712. +      if (open_emacs_window(emacs_x, emacs_y, emacs_w, emacs_h, emacs_backdrop,
  31713. +                emacs_screen_name) != ok)
  31714. +    {
  31715. +      /* Try to return to defaults (Workbench, etc) */
  31716. +      if (open_emacs_window(0, 0, 640, 200, 0, 0) != ok)
  31717. +          _fail("I've lost my window ! Exiting.");
  31718. +    }
  31719. +      resume_menus();
  31720. +    }
  31721. +}
  31722. +
  31723. +/* returns:
  31724. + *    -2 if msg is not class RAWKEY
  31725. + *    same as RawKeyConvert otherwise:
  31726. + *    buffer length if <= kbsize
  31727. + *    -1 else
  31728. + */
  31729. +static DeadKeyConvert(struct IntuiMessage *msg, UBYTE *kbuffer, int kbsize,
  31730. +              struct KeyMap *kmap)
  31731. +{
  31732. +  static struct InputEvent ievent = {0, IECLASS_RAWKEY, 0, 0, 0};
  31733. +  int extra = 0, res;
  31734. +
  31735. +  if (msg->Class != RAWKEY) return (-2);
  31736. +
  31737. +  /* Do some keymapping ourselves to make emacs users happy */
  31738. +
  31739. +  /* Ctrl-space becomes Ctrl-@ */
  31740. +  if (msg->Code == 0x40 && msg->Qualifier & CONTROL_MASK)
  31741. +    {
  31742. +      *kbuffer = 0;
  31743. +      return 1;
  31744. +    }
  31745. +  /* Backspace becomes DEL */
  31746. +  if (msg->Code == 0x41 && amiga_remap_bsdel)
  31747. +    {
  31748. +      *kbuffer = 0177;
  31749. +      return 1;
  31750. +    }
  31751. +  /* And DEL becomes CTRL-D */
  31752. +  if (msg->Code == 0x46 && amiga_remap_bsdel)
  31753. +    {
  31754. +      *kbuffer = 04;
  31755. +      return 1;
  31756. +    }
  31757. +  /* Stick numeric pad prefix in front of numeric keypad chars */
  31758. +  if (msg->Qualifier & IEQUALIFIER_NUMERICPAD && amiga_remap_numeric_keypad)
  31759. +    {
  31760. +      *kbuffer++ = 'x' & 037;
  31761. +      *kbuffer++ = '^' & 037;
  31762. +      *kbuffer++ = 'K';
  31763. +      kbsize -= 3;
  31764. +      extra = 3;
  31765. +    }
  31766. +
  31767. +  /* pack input event */
  31768. +  ievent.ie_Code = msg->Code;
  31769. +
  31770. +  /* Ignore meta in decoding keys */
  31771. +  ievent.ie_Qualifier = msg->Qualifier & ~META_MASK;
  31772. +
  31773. +  /* get previous codes from location pointed to by IAddress
  31774. +   *  this pointer is valid until IntuiMessage is replied.
  31775. +   */
  31776. +  ievent.ie_position.ie_addr = *((APTR *)msg->IAddress);
  31777. +  ievent.ie_position.ie_dead.ie_prev1DownQual &= ~META_MASK;
  31778. +  ievent.ie_position.ie_dead.ie_prev2DownQual &= ~META_MASK;
  31779. +
  31780. +  res = RawKeyConvert(&ievent, kbuffer, kbsize, kmap);
  31781. +  return res ? res + extra : 0;
  31782. +}
  31783. +
  31784. +void add_wbevent(struct WBArg *wbarg)
  31785. +{
  31786. +  char filename[256];
  31787. +
  31788. +  if (wbarg->wa_Lock && NameFromLock(wbarg->wa_Lock, filename, 256))
  31789. +    {
  31790. +      struct wbevent *event;
  31791. +
  31792. +      if (wbarg->wa_Name) AddPart(filename, wbarg->wa_Name, 256);
  31793. +      if (event = (struct wbevent *)malloc(offsetof(struct wbevent, file) +
  31794. +                       strlen(filename) + 1))
  31795. +    {
  31796. +      event->next = wbevents;
  31797. +      strcpy(event->file, filename);
  31798. +      wbevents = event;
  31799. +    }
  31800. +    }
  31801. +}
  31802. +
  31803. +void check_window(int force)
  31804. +{
  31805. +  ULONG class;
  31806. +  USHORT code, qualifier;
  31807. +  UWORD mx, my;
  31808. +  unsigned char buf[32];
  31809. +  int buflen, deiconify, i;
  31810. +  struct IntuiMessage *msg;
  31811. +  int mouse_event = FALSE, wb_event = FALSE;
  31812. +  struct AppMessage *amsg;
  31813. +
  31814. +  force_window();
  31815. +
  31816. +  if (emacs_win)
  31817. +    while (msg = (struct IntuiMessage *)GetMsg(emacs_win->UserPort))
  31818. +      {
  31819. +    class = msg->Class;
  31820. +    code = msg->Code;
  31821. +    qualifier = msg->Qualifier;
  31822. +    mx = msg->MouseX; my = msg->MouseY;
  31823. +    buflen = DeadKeyConvert(msg, buf, 32, 0);
  31824. +    ReplyMsg(msg);
  31825. +
  31826. +    switch (class)
  31827. +      {
  31828. +      case IDCMP_CLOSEWINDOW: {
  31829. +        enque(030, FALSE); enque(03, FALSE); /* ^X^C */
  31830. +        break;
  31831. +      }
  31832. +      case IDCMP_RAWKEY: {
  31833. +        if (buflen > 0)
  31834. +          {
  31835. +        unsigned char *sbuf = buf;
  31836. +        int meta = qualifier & META_MASK;
  31837. +
  31838. +        /* Don't set META on CSI */
  31839. +        do enque(*sbuf++, meta); while (--buflen);
  31840. +          }
  31841. +        break;
  31842. +      }
  31843. +      case IDCMP_NEWSIZE: amiga_change_size(); break;
  31844. +      case IDCMP_MENUPICK: case IDCMP_MENUHELP:
  31845. +        if (code == MENUNULL) break; /* else fall through */
  31846. +      case IDCMP_MOUSEBUTTONS: {
  31847. +        mouse_event = TRUE;
  31848. +        if (event_num == EVENTSIZE) break;
  31849. +
  31850. +        events[event_in].class = class;
  31851. +        events[event_in].code = code;
  31852. +        events[event_in].qual = qualifier;
  31853. +        events[event_in].x = mx;
  31854. +        events[event_in].y = my;
  31855. +        event_num++;
  31856. +        event_in = (event_in + 1) % EVENTSIZE;
  31857. +
  31858. +        break;
  31859. +      }
  31860. +      }
  31861. +      }
  31862. +  /* Handle App requests */
  31863. +  while (amsg = (struct AppMessage *)GetMsg(wbport))
  31864. +      switch (amsg->am_Type)
  31865. +    {
  31866. +    case MTYPE_APPICON: case MTYPE_APPWINDOW:
  31867. +      /* Add an event for all these files */
  31868. +      for (i = 0; i < amsg->am_NumArgs; i++) add_wbevent(amsg->am_ArgList + i);
  31869. +      wb_event = TRUE;
  31870. +      /* Reply to the message, and deiconify if was icon */
  31871. +      deiconify = amsg->am_Type == MTYPE_APPICON;
  31872. +      ReplyMsg(amsg);
  31873. +      if (deiconify && emacs_icon)
  31874. +        /* Reopen window */
  31875. +        if (open_emacs_window(emacs_x, emacs_y, emacs_w, emacs_h, emacs_backdrop,
  31876. +                  emacs_screen_name) == ok)
  31877. +          {
  31878. +        resume_menus();
  31879. +        RemoveAppIcon(emacs_icon);
  31880. +        emacs_icon = 0;
  31881. +        emacs_iconified = 0;
  31882. +          }
  31883. +      break;
  31884. +    default: ReplyMsg(amsg); break;
  31885. +    }
  31886. +
  31887. +  if (amiga_mouse_initialized && (force && event_num > 0 || mouse_event))
  31888. +    {
  31889. +      enque(AMIGASEQ, FALSE); enque('M', FALSE);
  31890. +    }
  31891. +  if (amiga_wb_initialized && (force && wbevents || wb_event))
  31892. +    {
  31893. +      enque(AMIGASEQ, FALSE); enque('W', FALSE);
  31894. +    }
  31895. +}
  31896. +
  31897. +void setup_intchar(char intchar)
  31898. +{
  31899. +  char cqbuf[2];
  31900. +
  31901. +  if (MapANSI(&intchar, 1, cqbuf, 1, 0) == 1)
  31902. +    {
  31903. +      intkey_code = cqbuf[0];
  31904. +      intkey_qualifier = cqbuf[1];
  31905. +    }
  31906. +  else
  31907. +    {
  31908. +      /* Default is CTRL-G in usa0 keymap */
  31909. +      intkey_code = 0x24;
  31910. +      intkey_qualifier = IEQUALIFIER_CONTROL;
  31911. +    }
  31912. +}
  31913. +
  31914. +/* Hack to detect interrupt char as soon as it is pressed */
  31915. +/* __interrupt disables stack checking.  -ch3/19/93.*/
  31916. +static long __saveds __interrupt __asm
  31917. +int_handler(register __a0 struct InputEvent *ev)
  31918. +{
  31919. +  struct InputEvent *ep, *laste;
  31920. +  static struct InputEvent retkey;
  31921. +  ULONG lock = LockIBase(0);
  31922. +
  31923. +  if (emacs_win && IntuitionBase->ActiveWindow == emacs_win)
  31924. +    {
  31925. +      laste = 0;
  31926. +
  31927. +      /* run down the list of events to see if they pressed the magic key */
  31928. +      for (ep = ev; ep; laste = ep, ep = ep->ie_NextEvent)
  31929. +    if (ep->ie_Class == IECLASS_RAWKEY &&
  31930. +        (ep->ie_Qualifier & 0xff) == intkey_qualifier &&
  31931. +        ep->ie_Code == intkey_code)
  31932. +      {
  31933. +        /* Remove this key from input sequence */
  31934. +        if (laste) laste->ie_NextEvent = ep->ie_NextEvent;
  31935. +        else ev = ep->ie_NextEvent;
  31936. +
  31937. +        Vquit_flag = Qt;
  31938. +        Signal(_us, SIGBREAKF_CTRL_C);
  31939. +      }
  31940. +    }
  31941. +  UnlockIBase(lock);
  31942. +
  31943. +  /* pass on the pointer to the event */
  31944. +  return (long)ev;
  31945. +}
  31946. +
  31947. +DEFUN ("amiga-mouse-events", Famiga_mouse_events, Samiga_mouse_events, 0, 0, 0,
  31948. +       "Return number of pending mouse events from Intuition.")
  31949. +     ()
  31950. +{
  31951. +  register Lisp_Object tem;
  31952. +
  31953. +  check_intuition ();
  31954. +
  31955. +  XSET (tem, Lisp_Int, event_num);
  31956. +
  31957. +  return tem;
  31958. +}
  31959. +
  31960. +DEFUN ("amiga-proc-mouse-event", Famiga_proc_mouse_event, Samiga_proc_mouse_event,
  31961. +       0, 0, 0,
  31962. +       "Pulls a mouse event out of the mouse event buffer and dispatches\n\
  31963. +the appropriate function to act upon this event.")
  31964. +()
  31965. +{
  31966. +  register Lisp_Object mouse_cmd;
  31967. +  register char com_letter;
  31968. +  register char key_mask;
  31969. +  register Lisp_Object tempx;
  31970. +  register Lisp_Object tempy;
  31971. +  extern Lisp_Object get_keyelt ();
  31972. +  extern int meta_prefix_char;
  31973. +  struct event *ev;
  31974. +  int posx, posy;
  31975. +
  31976. +  check_intuition ();
  31977. +
  31978. +  if (event_num) {
  31979. +    ev = &events[event_out];
  31980. +    event_out = (event_out + 1) % EVENTSIZE;
  31981. +    event_num--;
  31982. +    if (ev->class == MOUSEBUTTONS)
  31983. +      {
  31984. +    switch (ev->code)
  31985. +      {
  31986. +      case SELECTDOWN: com_letter = 2; break;
  31987. +      case SELECTUP: com_letter = 6; break;
  31988. +      case MIDDLEDOWN: com_letter = 1; break;
  31989. +      case MIDDLEUP: com_letter = 5; break;
  31990. +      case MENUDOWN: com_letter = 0; break;
  31991. +      case MENUUP: com_letter = 4; break;
  31992. +      default: com_letter = 3; break;
  31993. +      }
  31994. +    posx = amiga_pos_x(ev->x);
  31995. +    posy = amiga_pos_y(ev->y);
  31996. +    XSET (tempx, Lisp_Int, min (screen_width-1, max (0, posx)));
  31997. +    XSET (tempy, Lisp_Int, min (screen_height-1, max (0, posy)));
  31998. +      }
  31999. +    else
  32000. +      {
  32001. +    /* Must be Menu Pick or Help */
  32002. +    com_letter = ev->class == IDCMP_MENUPICK ? 3 : 7;
  32003. +
  32004. +    /* The parameters passed describe the selected item */
  32005. +    XSET (tempx, Lisp_Int, MENUNUM(ev->code));
  32006. +    XSET (tempy, Lisp_Int, ITEMNUM(ev->code));
  32007. +      }
  32008. +    if (ev->qual & META_MASK) com_letter |= 0x20;
  32009. +    if (ev->qual & SHIFT_MASK) com_letter |= 0x10;
  32010. +    if (ev->qual & CONTROL_MASK) com_letter |= 0x40;
  32011. +
  32012. +    Vamiga_mouse_pos = Fcons (tempx, Fcons (tempy, Qnil));
  32013. +    Vamiga_mouse_item = make_number (com_letter);
  32014. +    mouse_cmd = get_keyelt (access_keymap (MouseMap, com_letter));
  32015. +    if (NULL (mouse_cmd)) {
  32016. +      bell ();
  32017. +      Vamiga_mouse_pos = Qnil;
  32018. +    }
  32019. +    else return call1 (mouse_cmd, Vamiga_mouse_pos);
  32020. +  }
  32021. +  return Qnil;
  32022. +}
  32023. +
  32024. +DEFUN ("amiga-get-mouse-event", Famiga_get_mouse_event, Samiga_get_mouse_event,
  32025. +       1, 1, 0,
  32026. +       "Get next mouse event out of mouse event buffer (com-letter (x y)).\n\
  32027. +ARG non-nil means return nil immediately if no pending event;\n\
  32028. +otherwise, wait for an event.")
  32029. +(arg)
  32030. +Lisp_Object arg;
  32031. +{
  32032. +  register char com_letter;
  32033. +  register char key_mask;
  32034. +
  32035. +  register Lisp_Object tempx;
  32036. +  register Lisp_Object tempy;
  32037. +  struct event *ev;
  32038. +  int posx, posy;
  32039. +
  32040. +  check_intuition ();
  32041. +
  32042. +  if (NULL (arg))
  32043. +    {
  32044. +      amiga_consume_input();
  32045. +      while (!event_num)
  32046. +    {
  32047. +      int rfds = 1;
  32048. +
  32049. +      select(1, &rfds, 0, 0, 0);
  32050. +      amiga_consume_input();
  32051. +    }
  32052. +    }
  32053. +  /*** ??? Surely you don't mean to busy wait??? */
  32054. +
  32055. +  if (event_num) {
  32056. +    ev = &events[event_out];
  32057. +    event_out = (event_out + 1) % EVENTSIZE;
  32058. +    event_num--;
  32059. +    switch (ev->code)
  32060. +      {
  32061. +      case SELECTDOWN: com_letter = 2; break;
  32062. +      case SELECTUP: com_letter = 6; break;
  32063. +      case MIDDLEDOWN: com_letter = 1; break;
  32064. +      case MIDDLEUP: com_letter = 5; break;
  32065. +      case MENUDOWN: com_letter = 0; break;
  32066. +      case MENUUP: com_letter = 4; break;
  32067. +      default: com_letter = 3; break;
  32068. +      }
  32069. +    if (ev->qual & META_MASK) com_letter |= 0x20;
  32070. +    if (ev->qual & SHIFT_MASK) com_letter |= 0x10;
  32071. +    if (ev->qual & CONTROL_MASK) com_letter |= 0x40;
  32072. +
  32073. +    posx = amiga_pos_x(ev->x);
  32074. +    posy = amiga_pos_y(ev->y);
  32075. +    XSET (tempx, Lisp_Int, min (screen_width-1, max (0, posx)));
  32076. +    XSET (tempy, Lisp_Int, min (screen_height-1, max (0, posy)));
  32077. +
  32078. +    Vamiga_mouse_pos = Fcons (tempx, Fcons (tempy, Qnil));
  32079. +    Vamiga_mouse_item = make_number (com_letter);
  32080. +    return Fcons (com_letter, Fcons (Vamiga_mouse_pos, Qnil));
  32081. +  }
  32082. +  return Qnil;
  32083. +}
  32084. +
  32085. +DEFUN ("amiga-get-wb-event", Famiga_get_wb_event, Samiga_get_wb_event,
  32086. +       1, 1, 0,
  32087. +       "Get next Workbench event out of workbench event buffer (a file name).\n\
  32088. +ARG non-nil means return nil immediately if no pending event;\n\
  32089. +otherwise, wait for an event.")
  32090. +(arg)
  32091. +Lisp_Object arg;
  32092. +{
  32093. +  Lisp_Object file;
  32094. +  struct wbevent *ev;
  32095. +
  32096. +  check_intuition ();
  32097. +
  32098. +  if (NULL (arg))
  32099. +    {
  32100. +      amiga_consume_input();
  32101. +      while (!wbevents)
  32102. +    {
  32103. +      int rfds = 1;
  32104. +
  32105. +      select(1, &rfds, 0, 0, 0);
  32106. +      amiga_consume_input();
  32107. +    }
  32108. +    }
  32109. +  /*** ??? Surely you don't mean to busy wait??? */
  32110. +
  32111. +  if (wbevents) {
  32112. +    file = build_string(wbevents->file);
  32113. +    ev = wbevents;
  32114. +    wbevents = wbevents->next;
  32115. +    free(ev);
  32116. +    return file;
  32117. +  }
  32118. +  return Qnil;
  32119. +}
  32120. +
  32121. +DEFUN("amiga-set-foreground-color", Famiga_set_foreground_color,
  32122. +      Samiga_set_foreground_color, 1, 1, "nPen number: ",
  32123. +      "Use PEN as foreground color")
  32124. +     (pen)
  32125. +{
  32126. +  int fg;
  32127. +
  32128. +  check_intuition();
  32129. +  CHECK_NUMBER(pen, 0);
  32130. +
  32131. +  fg = XUINT (pen);
  32132. +  if (pen > 7) error("Pen colors must be between 0 & 7");
  32133. +  foreground = fg;
  32134. +  reset_window();
  32135. +  return Qnil;
  32136. +}
  32137. +
  32138. +DEFUN("amiga-set-background-color", Famiga_set_background_color,
  32139. +      Samiga_set_background_color, 1, 1, "nPen number: ",
  32140. +      "Use PEN as background color")
  32141. +     (pen)
  32142. +{
  32143. +  int bg;
  32144. +
  32145. +  check_intuition();
  32146. +  CHECK_NUMBER(pen, 0);
  32147. +
  32148. +  bg = XUINT (pen);
  32149. +  if (pen > 7) error("Pen colors must be between 0 & 7");
  32150. +  background = bg;
  32151. +  reset_window();
  32152. +  return Qnil;
  32153. +}
  32154. +
  32155. +DEFUN("amiga-set-inverse-fill-pen", Famiga_set_inverse_fill_pen,
  32156. +      Samiga_set_inverse_fill_pen, 1, 1, "nPen number: ",
  32157. +      "Use PEN's color for inverse fills (0-7 or 8 for reverse)")
  32158. +     (pen)
  32159. +{
  32160. +  int ifp = 8;
  32161. +
  32162. +  check_intuition();
  32163. +  CHECK_NUMBER(pen, 0);
  32164. +
  32165. +  ifp = XUINT (pen);
  32166. +  if (pen > 8)
  32167. +    error("choices are from 0 to 8");
  32168. +  inverse_fill_pen = ifp;
  32169. +  reset_window();
  32170. +  return Qnil;
  32171. +}
  32172. +
  32173. +DEFUN("amiga-set-inverse-text-pen", Famiga_set_inverse_text_pen,
  32174. +      Samiga_set_inverse_text_pen, 1, 1, "nPen number: ",
  32175. +      "Use PEN's color for inverse fills (0-7 or 8 for reverse)")
  32176. +     (pen)
  32177. +{
  32178. +  int itp = 8;
  32179. +
  32180. +  check_intuition();
  32181. +  CHECK_NUMBER(pen, 0);
  32182. +
  32183. +  itp = XUINT (pen);
  32184. +  if (pen > 8)
  32185. +    error("choices are from 0 to 8");
  32186. +  inverse_text_pen = itp;
  32187. +  reset_window();
  32188. +  return Qnil;
  32189. +}
  32190. +
  32191. +DEFUN("amiga-set-font", Famiga_set_font, Samiga_set_font, 2, 2,
  32192. +      "sFont: \n\
  32193. +nSize: ",
  32194. +      "Set font used for window to FONT with given HEIGHT.\n\
  32195. +The font used must be non-proportional.")
  32196. +(wfont, height)
  32197. +{
  32198. +  struct TextAttr attr;
  32199. +  struct TextFont *newfont;
  32200. +  char *fname;
  32201. +  struct Lisp_String *fstr;
  32202. +  WORD minw, minh, oldmw, oldmh;
  32203. +
  32204. +  CHECK_STRING (wfont, 0);
  32205. +  CHECK_NUMBER (height, 0);
  32206. +
  32207. +  check_intuition();
  32208. +
  32209. +  fstr = XSTRING (wfont);
  32210. +  fname = (char *)alloca (fstr->size + 6);
  32211. +  strcpy (fname, fstr->data);
  32212. +  strcat (fname, ".font");
  32213. +  attr.ta_Name = fname;
  32214. +  attr.ta_YSize = XFASTINT (height);
  32215. +  attr.ta_Style = 0;
  32216. +  attr.ta_Flags = 0;
  32217. +  newfont = OpenDiskFont (&attr);
  32218. +
  32219. +  if (!newfont)
  32220. +    error ("Font %s %d not found", fstr->data, XFASTINT (height));
  32221. +  if (newfont->tf_Flags & FPF_PROPORTIONAL)
  32222. +    {
  32223. +      CloseFont(newfont);
  32224. +      error ("Font %s %d is proportional", fstr->data, XFASTINT (height));
  32225. +    }
  32226. +
  32227. +  if (emacs_win)
  32228. +    {
  32229. +      if (!set_min_size(emacs_win, newfont, &minw, &minh))
  32230. +    {
  32231. +      CloseFont(newfont);
  32232. +      if (!set_min_size(emacs_win, font, &oldmw, &oldmh))
  32233. +        _fail("Failed to restore old font, exiting.");
  32234. +      error("Window is too small for this font, need at least %d(w) by %d(h)",
  32235. +        minw, minh);
  32236. +    }
  32237. +      SetFont(emacs_win->RPort, newfont);
  32238. +    }
  32239. +  if (font_opened) CloseFont(font);
  32240. +  font_opened = TRUE;
  32241. +  font = newfont;
  32242. +  reset_window();
  32243. +  return Qnil;
  32244. +}
  32245. +
  32246. +DEFUN("amiga-set-geometry", Famiga_set_geometry, Samiga_set_geometry, 4, MANY, 0,
  32247. +      "Set Emacs window geometry and screen.\n\
  32248. +First 4 parameters are the (X,Y) position of the top-left corner of the window\n\
  32249. +and its WIDTH and HEIGHT. These must be big enough for an 11x4 characters window.\n\
  32250. +If nil is given for any of these, that means to keep the same value as before.\n\
  32251. +The optional argument SCREEN specifies which screen to use, nil stands for the\n\
  32252. +same screen as the window is on, t stands for the default public screen (normally\n\
  32253. +the Workbench), a string specifies a given public screen.\n\
  32254. +If optional argument BACKDROP is t, a backdrop window is used.")
  32255. +  (nargs, args)
  32256. +    int nargs;
  32257. +    Lisp_Object *args;
  32258. +{
  32259. +  Lisp_Object x, y, w, h, scr = Qnil, backdrop = Qnil;
  32260. +  int opened;
  32261. +  WORD tempx, tempy, tempw, temph;
  32262. +  char *screen_name;
  32263. +  int use_backdrop;
  32264. +
  32265. +  if (nargs > 6) error("Too many arguments to amiga-set-geometry");
  32266. +  x = args[0]; y = args[1]; w = args[2]; h = args[3];
  32267. +  if (nargs > 4)
  32268. +    {
  32269. +      scr = args[4];
  32270. +      if (nargs > 5) backdrop = args[5];
  32271. +    }
  32272. +
  32273. +  check_intuition();
  32274. +
  32275. +  if (!NULL (x))
  32276. +    {
  32277. +      CHECK_NUMBER(x, 0);
  32278. +      tempx = XUINT(x);
  32279. +    }
  32280. +  else tempx = EMACS_X();
  32281. +  if (!NULL (y))
  32282. +    {
  32283. +      CHECK_NUMBER(y, 0);
  32284. +      tempy = XUINT(y);
  32285. +    }
  32286. +  else tempy = EMACS_Y();
  32287. +  if (!NULL (w))
  32288. +    {
  32289. +      CHECK_NUMBER(w, 0);
  32290. +      tempw = XUINT(w);
  32291. +    }
  32292. +  else tempw = EMACS_W();
  32293. +  if (!NULL (h))
  32294. +    {
  32295. +      CHECK_NUMBER(h, 0);
  32296. +      temph = XUINT(h);
  32297. +    }
  32298. +  else temph = EMACS_H();
  32299. +
  32300. +  use_backdrop = !NULL(backdrop);
  32301. +
  32302. +  if (scr == Qt) screen_name = 0; /* set to zero for def. */
  32303. +  else if (!NULL (scr))
  32304. +    {
  32305. +      CHECK_STRING (scr, 0);
  32306. +      screen_name = XSTRING (scr)->data;
  32307. +    }
  32308. +  else screen_name = emacs_screen_name;
  32309. +
  32310. +  if (emacs_win)
  32311. +    {
  32312. +      struct Window *old_win = emacs_win;
  32313. +      struct IOStdReq *old_console = emacs_console;
  32314. +
  32315. +      suspend_menus();
  32316. +      opened = open_emacs_window(tempx, tempy, tempw, temph, use_backdrop,
  32317. +                 screen_name);
  32318. +      if (opened != ok)
  32319. +    {
  32320. +      resume_menus();
  32321. +
  32322. +      if (opened == no_window) error("Failed to open desired window");
  32323. +      else if (screen_name)
  32324. +        error("Unknown public screen %s", screen_name);
  32325. +      else error("The default screen wasn't found !?");
  32326. +    }
  32327. +
  32328. +      _device_close(old_console);
  32329. +      CloseWindow(old_win);
  32330. +      if (!resume_menus()) error("Failed to recover menus (No memory?)");
  32331. +    }
  32332. +  else /* No window, set defaults */
  32333. +    {
  32334. +      emacs_screen_name = screen_name;
  32335. +      if (screen_name)
  32336. +    {
  32337. +      emacs_screen_name_storage[MAXPUBSCREENNAME] = '\0';
  32338. +      strncpy(emacs_screen_name_storage, screen_name, MAXPUBSCREENNAME);
  32339. +    }
  32340. +      emacs_x = tempx;
  32341. +      emacs_y = tempy;
  32342. +      emacs_w = tempw;
  32343. +      emacs_h = temph;
  32344. +      emacs_backdrop = use_backdrop;
  32345. +    }
  32346. +  return Qnil;
  32347. +}
  32348. +
  32349. +
  32350. +/* The next 2 functions are very usefull for writing
  32351. + * arexx/lisp functions that interact with other programs
  32352. + * that will be sharing the same screen.  -ch3/19/93. */
  32353. +
  32354. +DEFUN("amiga-get-window-geometry",
  32355. +      Famiga_get_window_geometry, Samiga_get_window_geometry, 0, 0, 0,
  32356. +      "Get Emacs window geometry.\n\
  32357. +a list returned is of the form:  (iconified x y width height backdrop)\n\
  32358. +where x, y, width, height are integers, backdrop is t or nil and iconified\n\
  32359. +is t if the window is iconified and nil otherwise")
  32360. +()
  32361. +{
  32362. +  Lisp_Object x, y, w, h, b, i;
  32363. +
  32364. +  XSET(x, Lisp_Int, EMACS_X());
  32365. +  XSET(y, Lisp_Int, EMACS_Y());
  32366. +  XSET(w, Lisp_Int, EMACS_W());
  32367. +  XSET(h, Lisp_Int, EMACS_H());
  32368. +  b = emacs_backdrop ? Qt : Qnil;
  32369. +  i = emacs_iconified ? Qt : Qnil;
  32370. +
  32371. +  return Fcons(i, Fcons(x, Fcons(y, Fcons(w, Fcons(h, Fcons(b, Qnil))))));
  32372. +}
  32373. +
  32374. +DEFUN("amiga-get-screen-geometry",
  32375. +      Famiga_get_screen_geometry, Samiga_get_screen_geometry, 0, 0, 0,
  32376. +      "Get geometry of the screen emacs window resides on.\n\
  32377. +a list returned is of the form:  (name x y width height)\n\
  32378. +where name is a string, x, y, width, height are integers.\n\
  32379. +Only the public screen name is returned if the window is not currently open.\n\
  32380. +In this last case, the name may be nil if the window will be opened on the\n\
  32381. +default public screen.")
  32382. +()
  32383. +{
  32384. +  Lisp_Object name;
  32385. +
  32386. +  if (emacs_screen_name) name = Qnil;
  32387. +  else name = build_string(emacs_screen_name);
  32388. +
  32389. +  if(emacs_win)
  32390. +    {
  32391. +      struct Screen *s = emacs_win->WScreen;
  32392. +      Lisp_Object x, y, w, h;
  32393. +
  32394. +      XSET(x, Lisp_Int, s->LeftEdge);
  32395. +      XSET(y, Lisp_Int, s->TopEdge);
  32396. +      XSET(w, Lisp_Int, s->Width);
  32397. +      XSET(h, Lisp_Int, s->Height);
  32398. +
  32399. +      return Fcons(name, Fcons(x, Fcons(y, Fcons(w, Fcons(h, Qnil)))));
  32400. +    }
  32401. +  return Fcons(name, Qnil);
  32402. +}
  32403. +
  32404. +DEFUN("amiga-iconify", Famiga_iconify, Samiga_iconify, 0, 0, "",
  32405. +      "Toggle the emacs iconification state.")
  32406. +()
  32407. +{
  32408. +  check_intuition();
  32409. +
  32410. +  if (emacs_iconified)
  32411. +    {
  32412. +      /* Deiconify */
  32413. +
  32414. +      /* Reopen window */
  32415. +      if (open_emacs_window(emacs_x, emacs_y, emacs_w, emacs_h, emacs_backdrop,
  32416. +                emacs_screen_name) != ok)
  32417. +    error("Failed to deiconify (No memory?)");
  32418. +      resume_menus();
  32419. +
  32420. +      RemoveAppIcon(emacs_icon);
  32421. +      emacs_icon = 0;
  32422. +      emacs_iconified = 0;
  32423. +    }
  32424. +  else
  32425. +    if (emacs_icon = AddAppIconA(0, 0, "Emacs", wbport, 0, &emacs_icon_object, 0))
  32426. +      {
  32427. +    if (emacs_win)
  32428. +      {
  32429. +        /* Close window */
  32430. +        emacs_x = EMACS_X(); emacs_y = EMACS_Y();
  32431. +        emacs_w = EMACS_W(); emacs_h = EMACS_H();
  32432. +        suspend_menus();
  32433. +        close_emacs_window();
  32434. +      }
  32435. +    emacs_iconified = 1;
  32436. +      }
  32437. +    else error("Iconify attempt failed\n");
  32438. +
  32439. +  return Qnil;
  32440. +}
  32441. +
  32442. +DEFUN("amiga-set-icon-pos", Famiga_set_icon_pos, Samiga_set_icon_pos, 2, 2,
  32443. +"nX position: \n\
  32444. +nY position: ",
  32445. +      "Set the X Y position of the icon for emacs when iconified.")
  32446. +  (Lisp_Object x, Lisp_Object y)
  32447. +{
  32448. +  long xpos, ypos;
  32449. +
  32450. +  if (NULL (x)) emacs_icon_object.do_CurrentX = NO_ICON_POSITION;
  32451. +  else
  32452. +    {
  32453. +      CHECK_NUMBER (x, 0);
  32454. +      emacs_icon_object.do_CurrentX = XINT(x);
  32455. +    }
  32456. +  if (NULL (y)) emacs_icon_object.do_CurrentY = NO_ICON_POSITION;
  32457. +  else
  32458. +    {
  32459. +      CHECK_NUMBER (y, 0);
  32460. +      emacs_icon_object.do_CurrentY = XINT(y);
  32461. +    }
  32462. +
  32463. +  return Qnil;
  32464. +}
  32465. +
  32466. +struct EClockVal scount[16], ecount[16];
  32467. +long total[16], counting[16], nb[16], susp[16];
  32468. +
  32469. +void start_count(int n)
  32470. +{
  32471. +  nb[n]++;
  32472. +  if (counting[n]) printf("Restarted %d\n", n);
  32473. +  counting[n] = 1;
  32474. +  /*ReadEClock(&scount[n]);*/
  32475. +}
  32476. +
  32477. +void stop_count(int n)
  32478. +{
  32479. +  if (counting[n])
  32480. +    {
  32481. +      /*ReadEClock(&ecount[n]);*/
  32482. +      counting[n] = 0;
  32483. +
  32484. +      total[n] += ecount[n].ev_lo - scount[n].ev_lo;
  32485. +    }
  32486. +}
  32487. +
  32488. +void suspend_count(int n)
  32489. +{
  32490. +  if (counting[n] && susp[n]++ == 0)
  32491. +    {
  32492. +      /*ReadEClock(&ecount[n]);*/
  32493. +      total[n] += ecount[n].ev_lo - scount[n].ev_lo;
  32494. +    }
  32495. +}
  32496. +
  32497. +void resume_count(int n)
  32498. +{
  32499. +  if (counting[n] && --susp[n] == 0) /*ReadEClock(&scount[n])*/;
  32500. +}
  32501. +
  32502. +disp_counts(void)
  32503. +{
  32504. +  int i;
  32505. +
  32506. +  for (i = 0; i < 16; i++)
  32507. +    {
  32508. +      printf("%d(%d) ", total[i], nb[i]);
  32509. +      total[i] = nb[i] = 0;
  32510. +    }
  32511. +  printf("\n");
  32512. +}
  32513. +
  32514. +void screen_puts(char *str, unsigned int len)
  32515. +{
  32516. +  if (emacs_win)
  32517. +    {
  32518. +      int i;
  32519. +
  32520. +      emacs_console->io_Command = CMD_WRITE;
  32521. +      emacs_console->io_Data    = (APTR)str;
  32522. +      emacs_console->io_Length  = len;
  32523. +
  32524. +      /*    start_count(0);
  32525. +        for (i = 1; i <= 6; i++) suspend_count(i);*/
  32526. +      DoIO(emacs_console);
  32527. +      /*    for (i = 1; i <= 6; i++) resume_count(i);
  32528. +        stop_count(0);*/
  32529. +    }
  32530. +}
  32531. +
  32532. +DEFUN ("amiga-activate-window", Famiga_activate_window, Samiga_activate_window, 0, 0, 0,
  32533. +       "Makes emacs window the currently active one.")
  32534. +     ()
  32535. +{
  32536. +  if(emacs_win) {
  32537. +    ActivateWindow(emacs_win);
  32538. +    return Qnil;
  32539. +  }
  32540. +  error("No window to make active.");
  32541. +  return Qnil;
  32542. +}
  32543. +
  32544. +DEFUN ("amiga-window-to-front", Famiga_window_to_front, Samiga_window_to_front, 0, 0, 0,
  32545. +       "Pulls the emacs window to the front (including screen)")
  32546. +     ()
  32547. +{
  32548. +  if(emacs_win) {
  32549. +    WindowToFront(emacs_win);
  32550. +    ScreenToFront(emacs_win->WScreen);
  32551. +    return Qnil;
  32552. +  }
  32553. +  error("No window to pull to the front.");
  32554. +  return Qnil;
  32555. +}
  32556. +
  32557. +DEFUN ("amiga-window-to-back", Famiga_window_to_back, Samiga_window_to_back, 0, 0, 0,
  32558. +       "Pushes the emacs window to the back (including screen)")
  32559. +     ()
  32560. +{
  32561. +  if(emacs_win) {
  32562. +    WindowToBack(emacs_win);
  32563. +    ScreenToBack(emacs_win->WScreen);
  32564. +    return Qnil;
  32565. +  }
  32566. +  error("No window to push back.");
  32567. +  return Qnil;
  32568. +}
  32569. +
  32570. +
  32571. +void syms_of_amiga_screen(void)
  32572. +{
  32573. +  DEFVAR_LISP ("amiga-mouse-item", &Vamiga_mouse_item,
  32574. +           "Encoded representation of last mouse click, corresponding to\n\
  32575. +numerical entries in amiga-mouse-map.");
  32576. +  Vamiga_mouse_item = Qnil;
  32577. +  DEFVAR_LISP ("amiga-mouse-pos", &Vamiga_mouse_pos,
  32578. +           "Current x-y position of mouse by row, column as specified by font.");
  32579. +  Vamiga_mouse_pos = Qnil;
  32580. +
  32581. +  DEFVAR_BOOL ("amiga-remap-bsdel", &amiga_remap_bsdel,
  32582. +           "*If true, map DEL to Ctrl-D and Backspace to DEL. \n\
  32583. +This is the most convenient (and default) setting. If nil, don't remap.");
  32584. +  amiga_remap_bsdel = 1;
  32585. +
  32586. +  DEFVAR_BOOL ("amiga-remap-numeric-keypad", &amiga_remap_numeric_keypad,
  32587. +           "*If true, numeric keypad keys are prefixed with C-x C-^ K.\n\
  32588. +This enables you to remap them, but causes problems with functions like\n\
  32589. +isearch-forward-regexp on some keyboards. Default to true.");
  32590. +  amiga_remap_numeric_keypad = 1;
  32591. +
  32592. +  DEFVAR_BOOL ("amiga-mouse-initialized", &amiga_mouse_initialized,
  32593. +           "Set to true once lisp has been setup to process mouse commands.\n\
  32594. +No mouse processing request (C-X C-^ M) will be queued while this is nil.");
  32595. +  amiga_mouse_initialized = 0;
  32596. +
  32597. +  DEFVAR_BOOL ("amiga-wb-initialized", &amiga_wb_initialized,
  32598. +           "Set to true once lisp has been setup to process workbench commands.\n\
  32599. +No workbench processing request (C-X C-^ W) will be queued while this is nil.");
  32600. +  amiga_mouse_initialized = 0;
  32601. +
  32602. +  defsubr (&Samiga_mouse_events);
  32603. +  defsubr (&Samiga_proc_mouse_event);
  32604. +  defsubr (&Samiga_get_mouse_event);
  32605. +  defsubr (&Samiga_get_wb_event);
  32606. +  defsubr (&Samiga_set_font);
  32607. +  defsubr (&Samiga_set_geometry);
  32608. +  defsubr (&Samiga_set_background_color);
  32609. +  defsubr (&Samiga_set_foreground_color);
  32610. +  defsubr (&Samiga_iconify);
  32611. +  defsubr (&Samiga_set_icon_pos);
  32612. +
  32613. +  /* New functions  -ch3/19/93. */
  32614. +  defsubr (&Samiga_set_inverse_text_pen);
  32615. +  defsubr (&Samiga_set_inverse_fill_pen);
  32616. +  defsubr (&Samiga_window_to_front);
  32617. +  defsubr (&Samiga_window_to_back);
  32618. +  defsubr (&Samiga_activate_window);
  32619. +  defsubr (&Samiga_get_window_geometry);
  32620. +  defsubr (&Samiga_get_screen_geometry);
  32621. +
  32622. +}
  32623. +
  32624. +void init_amiga_screen(void)
  32625. +{
  32626. +  event_num = event_in = event_out = 0;
  32627. +
  32628. +  if (!((IntuitionBase = (struct IntuitionBase *)
  32629. +     OpenLibrary("intuition.library", 37L)) &&
  32630. +    (GfxBase = (struct GfxBase *)OpenLibrary("graphics.library", 0L)) &&
  32631. +    (DiskfontBase = OpenLibrary("diskfont.library", 0L)) &&
  32632. +    (WorkbenchBase = OpenLibrary("workbench.library", 37)) &&
  32633. +    (KeymapBase = OpenLibrary("keymap.library", 36)) &&
  32634. +    (input_req = (struct IOStdReq *)_device_open("input.device", 0, 0, 0, 0,
  32635. +                             sizeof(struct IOStdReq)))))
  32636. +    _fail("Need version 2.04 and diskfont.library!");
  32637. +
  32638. +  if (!(wbport = CreateMsgPort())) no_memory();
  32639. +
  32640. +  /* Add Ctrl-G detector */
  32641. +  int_handler_hook.is_Data = 0;
  32642. +  int_handler_hook.is_Code = (void *)int_handler;
  32643. +  int_handler_hook.is_Node.ln_Pri = 100; /* 100 not 127 is the standard value
  32644. +                      * for input stream handlers.  -ch3/19/93. */
  32645. +  /* it is standard for interrupts to have names  -ch3/19/93.*/
  32646. +  int_handler_hook.is_Node.ln_Name = "GNU Emacs CTRL-G handler";
  32647. +  input_req->io_Command = IND_ADDHANDLER;
  32648. +  input_req->io_Data = (APTR)&int_handler_hook;
  32649. +
  32650. +  /* wasn't checking for error. -ch3/19/93. */
  32651. +  if(0 == DoIO(input_req))
  32652. +    hooked = TRUE;
  32653. +  else
  32654. +    {
  32655. +      hooked = FALSE;
  32656. +      _fail("couldn't get input handler hook for CTRL-G");
  32657. +    }
  32658. +
  32659. +  inputsig |= 1L << wbport->mp_SigBit;
  32660. +
  32661. +  background_hook.h_Entry = (ULONG (*)()) fill_background; /* added cast. */
  32662. +  font = GfxBase->DefaultFont;
  32663. +
  32664. +  init_amiga_menu();
  32665. +}
  32666. +
  32667. +void cleanup_amiga_screen(void)
  32668. +{
  32669. +  if (hooked)
  32670. +    {
  32671. +      input_req->io_Command = IND_REMHANDLER;
  32672. +      input_req->io_Data = (APTR)&int_handler_hook;
  32673. +      DoIO(input_req);
  32674. +    }
  32675. +  close_app_win();
  32676. +  if (wbport) DeleteMsgPort(wbport);
  32677. +  cleanup_amiga_menu();
  32678. +  _device_close(emacs_console);
  32679. +  if (emacs_win) CloseWindow(emacs_win);
  32680. +  if (font_opened) CloseFont(font);
  32681. +  if (IntuitionBase) CloseLibrary(IntuitionBase);
  32682. +  if (GfxBase) CloseLibrary(GfxBase);
  32683. +  if (DiskfontBase) CloseLibrary(DiskfontBase);
  32684. +  if (WorkbenchBase) CloseLibrary(WorkbenchBase);
  32685. +  if (KeymapBase) CloseLibrary(KeymapBase);
  32686. +  _device_close(input_req);
  32687. +}
  32688. diff -rup --new-file baseline/fsf/emacs18/src/amiga_serial.c amiga/fsf/emacs18/src/amiga_serial.c
  32689. --- baseline/fsf/emacs18/src/amiga_serial.c    Wed Dec 31 17:00:00 1969
  32690. +++ amiga/fsf/emacs18/src/amiga_serial.c    Sat Sep 28 00:00:00 1996
  32691. @@ -0,0 +1,72 @@
  32692. +#include <exec/types.h>
  32693. +#include <devices/serial.h>
  32694. +#include <stdio.h>
  32695. +#include <internal/devices.h>
  32696. +
  32697. +#include <proto/exec.h>
  32698. +#include <proto/dos.h>
  32699. +
  32700. +#include "amiga.h"
  32701. +
  32702. +static struct MsgPort  *SerReadPort;
  32703. +static struct IOExtSer *SerReadRequest, *SerWriteRequest;
  32704. +static char ser_inbuf[2];
  32705. +char *far serial_device = "serial.device";
  32706. +long far serial_unit;
  32707. +
  32708. +void init_amiga_serial(void)
  32709. +{
  32710. +    if ((SerWriteRequest = (struct IOExtSer *)
  32711. +     _device_open(serial_device, serial_unit, 0L,
  32712. +              0L, 0, sizeof(struct IOExtSer))) &&
  32713. +    (SerReadPort = CreateMsgPort()) &&
  32714. +    (SerReadRequest  = (struct IOExtSer *)CreateIORequest(SerReadPort, sizeof (struct IOExtSer))))
  32715. +    {
  32716. +    SerReadRequest->IOSer.io_Device = SerWriteRequest->IOSer.io_Device;
  32717. +    SerReadRequest->IOSer.io_Unit = SerWriteRequest->IOSer.io_Unit;
  32718. +    ser_inbuf[1]=0;
  32719. +    SerReadRequest->IOSer.io_Command = CMD_READ;
  32720. +    SerWriteRequest->IOSer.io_Command = CMD_WRITE;
  32721. +    SerReadRequest->IOSer.io_Length = 1;
  32722. +    SerReadRequest->IOSer.io_Data = &ser_inbuf[0];
  32723. +    SendIO(SerReadRequest);
  32724. +
  32725. +    inputsig |= 1L << SerReadPort->mp_SigBit;
  32726. +    }
  32727. +    else _fail("No memory or serial.device missing");
  32728. +}
  32729. +
  32730. +void cleanup_amiga_serial(void)
  32731. +{
  32732. +    if (SerReadRequest)
  32733. +    {
  32734. +    AbortIO(SerReadRequest);
  32735. +    WaitIO(SerReadRequest);
  32736. +    DeleteIORequest(SerReadRequest);
  32737. +    }
  32738. +    if (SerReadPort) DeletePort(SerReadPort);
  32739. +    _device_close(SerWriteRequest);
  32740. +}
  32741. +
  32742. +void check_serial(int force)
  32743. +{
  32744. +    while (CheckIO(SerReadRequest))
  32745. +    {
  32746. +    int c = ser_inbuf[0];
  32747. +    SendIO(SerReadRequest);
  32748. +    enque(c, FALSE);
  32749. +    }
  32750. +}
  32751. +
  32752. +void serial_puts(char *str, int len)
  32753. +{
  32754. +
  32755. +    SerWriteRequest->IOSer.io_Length = len;
  32756. +    SerWriteRequest->IOSer.io_Data = str;
  32757. +    DoIO(SerWriteRequest);
  32758. +}
  32759. +
  32760. +unsigned long serial_baud_rate(void)
  32761. +{
  32762. +    return SerWriteRequest->io_Baud;
  32763. +}
  32764. diff -rup --new-file baseline/fsf/emacs18/src/amiga_sysdep.c amiga/fsf/emacs18/src/amiga_sysdep.c
  32765. --- baseline/fsf/emacs18/src/amiga_sysdep.c    Wed Dec 31 17:00:00 1969
  32766. +++ amiga/fsf/emacs18/src/amiga_sysdep.c    Sat Sep 28 00:00:00 1996
  32767. @@ -0,0 +1,375 @@
  32768. +/* Interfaces to system-dependent kernel and library entries.
  32769. +Copyright (C) 1985, 1986, 1987, 1988 Free Software Foundation, Inc.
  32770. +
  32771. +This file is part of GNU Emacs.
  32772. +
  32773. +GNU Emacs is distributed in the hope that it will be useful,
  32774. +but WITHOUT ANY WARRANTY.  No author or distributor
  32775. +accepts responsibility to anyone for the consequences of using it
  32776. +or for whether it serves any particular purpose or works at all,
  32777. +unless he says so in writing.  Refer to the GNU Emacs General Public
  32778. +License for full details.
  32779. +
  32780. +Everyone is granted permission to copy, modify and redistribute
  32781. +GNU Emacs, but only under the conditions described in the
  32782. +GNU Emacs General Public License.   A copy of this license is
  32783. +supposed to have been given to you along with GNU Emacs so you
  32784. +can know your rights and responsibilities.  It should be in a
  32785. +file named COPYING.  Among other things, the copyright notice
  32786. +and this notice must be preserved on all copies.  */
  32787. +
  32788. +#include <exec/types.h>
  32789. +#include <dos/dos.h>
  32790. +#include <dos/dosextens.h>
  32791. +#include <dos/var.h>
  32792. +#include <exec/execbase.h>
  32793. +#include <exec/tasks.h>
  32794. +#include <utility/tagitem.h>
  32795. +#include <workbench/startup.h>
  32796. +#include <workbench/workbench.h>
  32797. +#include <proto/exec.h>
  32798. +#include <proto/dos.h>
  32799. +#include <proto/icon.h>
  32800. +
  32801. +#include <string.h>
  32802. +#include <ios1.h>
  32803. +#include <stdio.h>
  32804. +#include <sys/types.h>
  32805. +#include <sys/stat.h>
  32806. +#include <signal.h>
  32807. +#include <setjmp.h>
  32808. +#include <unistd.h>
  32809. +#include <internal/vars.h>
  32810. +
  32811. +#undef LONGBITS
  32812. +#undef NULL
  32813. +#include "config.h"
  32814. +#include "lisp.h"
  32815. +#include "emacssignal.h"
  32816. +
  32817. +#define min(x,y) ((x) > (y) ? (y) : (x))
  32818. +
  32819. +#include "termhooks.h"
  32820. +#include "termchar.h"
  32821. +#include "termopts.h"
  32822. +#include "dispextern.h"
  32823. +#include "amiga.h"
  32824. +
  32825. +#define EMACS_TOOL_SIZE 128    /* Room for path to emacs executable */
  32826. +
  32827. +struct Library *IconBase;
  32828. +extern struct ExecBase *SysBase;
  32829. +
  32830. +/*long __stack = 40000;*/        /* Minimum stack size, used by c.o */
  32831. +int amiga_process_stack_size;
  32832. +
  32833. +int amiga_initialized;
  32834. +int amiga_create_icons;        /* If true, we create icons when saving files */
  32835. +enum exit_method amiga_fail_exit = use_xcexit;
  32836. +int selecting;
  32837. +
  32838. +/* Emacs sysdep routines */
  32839. +/* --------------------- */
  32840. +
  32841. +set_exclusive_use(int fd) {}
  32842. +
  32843. +/* Suspend the Emacs process; give terminal to its superior.  */
  32844. +sys_suspend()
  32845. +{
  32846. +  /* This could have been iconify, but:
  32847. +     a) Not good for serial lines.
  32848. +     b) emacs stays active while iconified */
  32849. +}
  32850. +
  32851. +char *get_system_name()
  32852. +{
  32853. +  static char sysname[32];
  32854. +
  32855. +  gethostname(sysname, sizeof sysname);
  32856. +  return sysname;
  32857. +}
  32858. +
  32859. +/*
  32860. + *    flush any pending output
  32861. + *      (may flush input as well; it does not matter the way we use it)
  32862. + */
  32863. +
  32864. +flush_pending_output (channel)
  32865. +     int channel;
  32866. +{
  32867. +}
  32868. +
  32869. +wait_for_termination (pid)
  32870. +     int pid;
  32871. +{
  32872. +  while (1)
  32873. +    {
  32874. +      sigsetmask (sigmask (SIGCHLD));
  32875. +      if (0 > kill (pid, 0))
  32876. +        {
  32877. +      sigsetmask (SIGEMPTYMASK);
  32878. +      break;
  32879. +    }
  32880. +      sigpause (SIGEMPTYMASK);
  32881. +    }
  32882. +}
  32883. +
  32884. +/* A few general amiga support routines */
  32885. +/* ------------------------------------ */
  32886. +
  32887. +char *expand_path(char *path, char *buf, int len)
  32888. +{
  32889. +  BPTR dirlock;
  32890. +  APTR window;
  32891. +
  32892. +  window = _us->pr_WindowPtr;
  32893. +  _us->pr_WindowPtr = (APTR)-1;
  32894. +  dirlock = Lock(path, ACCESS_READ);
  32895. +  _us->pr_WindowPtr = window;
  32896. +  if (dirlock)            /* Expand lock name */
  32897. +    {
  32898. +      if (!NameFromLock(dirlock, buf, len)) buf = 0;
  32899. +      UnLock(dirlock);
  32900. +      return buf;
  32901. +    }
  32902. +  return 0;
  32903. +}
  32904. +
  32905. +#undef select
  32906. +int emacs_select(int nfds, int *rfds, int *wfds, int *efds, struct timeval *timeout)
  32907. +{
  32908. +  int ret;
  32909. +
  32910. +  selecting = TRUE;
  32911. +  ret = select(nfds, rfds, wfds, efds, timeout);
  32912. +  selecting = FALSE;
  32913. +  return ret;
  32914. +}
  32915. +
  32916. +void no_memory(void)
  32917. +{
  32918. +  _fail("No memory");
  32919. +}
  32920. +
  32921. +char *amiga_path(void)
  32922. +{
  32923. +  char *path, *pp, name[128];
  32924. +  int pathsize;
  32925. +  struct CommandLineInterface *cli;
  32926. +  BPTR lock;
  32927. +  long l, *lp, nlen;
  32928. +
  32929. +  pathsize = 128;
  32930. +  path = (char *)xmalloc(pathsize);
  32931. +
  32932. +  strcpy(path, ".");
  32933. +  pp = path + 1;
  32934. +
  32935. +  if (!(cli = (struct CommandLineInterface *)((long)_us->pr_CLI << 2)))
  32936. +    return path;
  32937. +
  32938. +  l = (long)cli->cli_CommandDir;
  32939. +  while (l) {
  32940. +    *pp++ = ',';
  32941. +    l <<= 2;
  32942. +    lp = (long *)l;
  32943. +    lock = (BPTR)*(lp + 1);
  32944. +    NameFromLock(lock, name, 128);
  32945. +    nlen = strlen(name);
  32946. +    if (pp + nlen + 5 >= path + pathsize)
  32947. +      {
  32948. +    char *newpath;
  32949. +
  32950. +    pathsize = 2 * pathsize + nlen;
  32951. +    newpath = (char *)xrealloc(path, pathsize);
  32952. +    pp = newpath + (pp - path);
  32953. +    path = newpath;
  32954. +      }
  32955. +    memcpy(pp, name, nlen);
  32956. +    pp += nlen;
  32957. +    l = *lp;
  32958. +  }
  32959. +  /* Use of +5 above guarantees that there is enough space for c: */
  32960. +  strcpy(pp, ",c:");
  32961. +
  32962. +  return path;
  32963. +}
  32964. +
  32965. +/* Some general amiga commands */
  32966. +/* --------------------------- */
  32967. +
  32968. +#define emacs_file_icon_width 54
  32969. +#define emacs_file_icon_height 22
  32970. +#define emacs_file_icon_num_planes 2
  32971. +
  32972. +static UWORD chip emacs_file_icon_data[2][22][4] = {
  32973. +    {
  32974. +        0x0000,0x0000,0x0000,0x0400,0x0000,0x0000,0x0000,0x0c00,
  32975. +        0x0000,0x0000,0x0000,0x0c00,0x07ff,0xffff,0xffe0,0x0c00,
  32976. +        0x0400,0x0000,0x0030,0x0c00,0x0400,0x0000,0x0028,0x0c00,
  32977. +        0x04ff,0xffff,0xfe24,0x0c00,0x0400,0x0000,0x0022,0x0c00,
  32978. +        0x04ff,0xffff,0xfe3f,0x0c00,0x0400,0x0000,0x0000,0x8c00,
  32979. +        0x04ff,0xffc0,0x0000,0x8c00,0x0400,0x0000,0x0000,0x8c00,
  32980. +        0x0400,0x0000,0x0000,0x8c00,0x0400,0x0000,0x0000,0x8c00,
  32981. +        0x04ff,0xffff,0xfe00,0x8c00,0x0400,0x0000,0x0000,0x8c00,
  32982. +        0x04ff,0xffff,0xfe00,0x8c00,0x0400,0x0000,0x0000,0x8c00,
  32983. +        0x07ff,0xffff,0xffff,0x8c00,0x0000,0x0000,0x0000,0x0c00,
  32984. +        0x0000,0x0000,0x0000,0x0c00,0x7fff,0xffff,0xffff,0xfc00
  32985. +    },
  32986. +    {
  32987. +        0xffff,0xffff,0xffff,0xf800,0x8000,0x0000,0x0000,0x0000,
  32988. +        0x8000,0x0000,0x0000,0x0000,0x8000,0x0000,0x0000,0x0000,
  32989. +        0x83ff,0xffff,0xffc0,0x0000,0x83ff,0xffff,0xffd0,0x0000,
  32990. +        0x8300,0x0000,0x01d8,0x0000,0x83ff,0xffff,0xffdc,0x0000,
  32991. +        0x8300,0x0000,0x01c0,0x0000,0x83ff,0xffff,0xffff,0x0000,
  32992. +        0x8300,0x003f,0xffff,0x0000,0x83ff,0xffff,0xffff,0x0000,
  32993. +        0x83ff,0xffff,0xffff,0x0000,0x83ff,0xffff,0xffff,0x0000,
  32994. +        0x8300,0x0000,0x01ff,0x0000,0x83ff,0xffff,0xffff,0x0000,
  32995. +        0x8300,0x0000,0x01ff,0x0000,0x83ff,0xffff,0xffff,0x0000,
  32996. +        0x8000,0x0000,0x0000,0x0000,0x8000,0x0000,0x0000,0x0000,
  32997. +        0x8000,0x0000,0x0000,0x0000,0x8000,0x0000,0x0000,0x0000
  32998. +    },
  32999. +};
  33000. +struct Image far emacs_file_icon_image = {
  33001. +  0, 0,
  33002. +  emacs_file_icon_width, emacs_file_icon_height, emacs_file_icon_num_planes,
  33003. +  (UWORD *)emacs_file_icon_data,
  33004. +  3, 0,
  33005. +  0
  33006. +};
  33007. +
  33008. +static char *far emacs_file_tooltypes[] = {
  33009. +  "FILETYPE=TEXT",
  33010. +  0
  33011. +};
  33012. +
  33013. +static char far emacs_tool[EMACS_TOOL_SIZE];
  33014. +
  33015. +static struct DiskObject far emacs_file_icon_object = {
  33016. +  WB_DISKMAGIC, WB_DISKVERSION,
  33017. +  { 0, 0, 0, emacs_file_icon_width, emacs_file_icon_height,
  33018. +    GFLG_GADGIMAGE | GADGBACKFILL, GACT_IMMEDIATE | GACT_RELVERIFY, GTYP_BOOLGADGET,
  33019. +    (APTR)&emacs_file_icon_image },
  33020. +  WBPROJECT, emacs_tool, emacs_file_tooltypes,
  33021. +  NO_ICON_POSITION, NO_ICON_POSITION,
  33022. +  0, 0,
  33023. +  40000                /* Stack size for emacs */
  33024. +};
  33025. +
  33026. +DEFUN ("amiga-put-icon", Famiga_put_icon, Samiga_put_icon, 2, 2, 0,
  33027. +       "Create an icon for FILE.\n\
  33028. +If FORCE is non-nil create it unconditionally, otherwise only if one doesn't exist.\n\
  33029. +Returns t if an icon was created, nil otherwise.")
  33030. +     (file, force)
  33031. +Lisp_Object file, force;
  33032. +{
  33033. +  char *fname;
  33034. +  struct DiskObject *obj;
  33035. +
  33036. +  CHECK_STRING(file, 0);
  33037. +  fname = XSTRING(file)->data;
  33038. +
  33039. +  if (NULL (force) && (obj = GetDiskObject(fname)))
  33040. +    {
  33041. +      /* Icon exists, don't overwrite */
  33042. +      FreeDiskObject(obj);
  33043. +      return Qnil;
  33044. +    }
  33045. +  emacs_file_icon_object.do_StackSize = _stack_size;
  33046. +  if (PutDiskObject(fname, &emacs_file_icon_object)) return Qt;
  33047. +  error("Icon for %s couldn't be created", fname);
  33048. +}
  33049. +
  33050. +/* Amiga initialisation routines */
  33051. +/* ----------------------------- */
  33052. +
  33053. +syms_of_amiga ()
  33054. +{
  33055. +  DEFVAR_BOOL("amiga-initialized", &amiga_initialized, "");
  33056. +  DEFVAR_INT("amiga-malloc-bytes-used", &malloc_bytes_used,
  33057. +         "Number of malloc bytes used when emacs was dumped");
  33058. +  DEFVAR_BOOL("amiga-create-icons", &amiga_create_icons,
  33059. +         "If non-nil, create icons when saving files.");
  33060. +  defsubr(&Samiga_put_icon);
  33061. +  amiga_process_stack_size = 0;
  33062. +  DEFVAR_INT("amiga-process-stack-size", &amiga_process_stack_size,
  33063. +     "Size of stack for called processes. 0 means same size as emacs stack.");
  33064. +  syms_of_amiga_tty();
  33065. +  syms_of_amiga_menu();
  33066. +  syms_of_amiga_clipboard();
  33067. +}
  33068. +
  33069. +static void amiga_early_init(int *_argc, char ***_argv)
  33070. +{
  33071. +  int argc = *_argc;
  33072. +  char **argv = *_argv;
  33073. +
  33074. +  if (argc > 2 && !strcmp(argv[1], "-pure"))
  33075. +    {
  33076. +      puresize = atoi(argv[2]);
  33077. +      argc -= 2; argv += 2;
  33078. +    }
  33079. +  if (argc > 2 && !strcmp(argv[1], "-malloc"))
  33080. +    {
  33081. +      malloc_hunk_size = atoi(argv[2]);
  33082. +      argc -= 2; argv += 2;
  33083. +    }
  33084. +  if (argc > 2 && !strcmp(argv[1], "-prealloc"))
  33085. +    {
  33086. +      pre_alloc = atoi(argv[2]);
  33087. +      argc -= 2; argv += 2;
  33088. +    }
  33089. +  /* Handle the -dev switch, which specifies device & unit to use as terminal */
  33090. +  if (argc > 3 && !strcmp (argv[1], "-dev"))
  33091. +    {
  33092. +      extern char *far serial_device;
  33093. +      extern long far serial_unit;
  33094. +
  33095. +      serial_device = argv[2];
  33096. +      serial_unit = atoi(argv[3]);
  33097. +      fprintf (stderr, "Using %s (unit %d)\n", serial_device ,serial_unit);
  33098. +      argc -= 3; argv += 3;
  33099. +    }
  33100. +  /* Patch real argc, argv to hide arguments we used */
  33101. +  argv[0] = (*_argv)[0];
  33102. +  *_argv = argv;
  33103. +  *_argc = argc;
  33104. +
  33105. +  expand_path(argv[0], emacs_tool, EMACS_TOOL_SIZE);
  33106. +}
  33107. +
  33108. +void cleanup_amiga(void)
  33109. +{
  33110. +  cleanup_clipboard();
  33111. +  cleanup_amiga_tty();
  33112. +  if (IconBase) CloseLibrary(IconBase);
  33113. +}
  33114. +
  33115. +void amiga_undump_reinit(void)
  33116. +/* Post-undump initialisation */
  33117. +{
  33118. +  extern struct WBStartup *_WBenchMsg;
  33119. +
  33120. +  emacs_malloc_init();
  33121. +  early_amiga_tty();
  33122. +  early_clipboard();
  33123. +
  33124. +  if (!onexit(cleanup_amiga)) _fail("Internal problem with onexit");
  33125. +
  33126. +  make_environ();
  33127. +  IconBase = OpenLibrary("icon.library", 0);
  33128. +  if (!IconBase) _fail("Need icon.library");
  33129. +  amiga_create_icons = _WBenchMsg != 0;
  33130. +
  33131. +  init_amiga_tty(); init_clipboard();
  33132. +}
  33133. +
  33134. +#undef main
  33135. +main(int argc, char **argv)
  33136. +/* Effect: Call emacs_main after doing some early amiga initialisation for emacs.
  33137. +*/
  33138. +{
  33139. +  /* This initialisation may steal some command line options */
  33140. +  amiga_early_init(&argc, &argv);
  33141. +  emacs_main(argc, argv);
  33142. +}
  33143. diff -rup --new-file baseline/fsf/emacs18/src/amiga_term.c amiga/fsf/emacs18/src/amiga_term.c
  33144. --- baseline/fsf/emacs18/src/amiga_term.c    Wed Dec 31 17:00:00 1969
  33145. +++ amiga/fsf/emacs18/src/amiga_term.c    Sat Sep 28 00:00:00 1996
  33146. @@ -0,0 +1,388 @@
  33147. +/* Amiga terminal control routines.
  33148. +   Copyright (C) 1985, 1986, 1987 Free Software Foundation, Inc.
  33149. +
  33150. +This file is part of GNU Emacs.
  33151. +
  33152. +GNU Emacs is free software; you can redistribute it and/or modify
  33153. +it under the terms of the GNU General Public License as published by
  33154. +the Free Software Foundation; either version 1, or (at your option)
  33155. +any later version.
  33156. +
  33157. +GNU Emacs is distributed in the hope that it will be useful,
  33158. +but WITHOUT ANY WARRANTY; without even the implied warranty of
  33159. +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  33160. +GNU General Public License for more details.
  33161. +
  33162. +You should have received a copy of the GNU General Public License
  33163. +along with GNU Emacs; see the file COPYING.  If not, write to
  33164. +the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  33165. +
  33166. +
  33167. +#include <stdio.h>
  33168. +#include <ctype.h>
  33169. +#include "config.h"
  33170. +#include "termhooks.h"
  33171. +#include "termchar.h"
  33172. +#include "termopts.h"
  33173. +
  33174. +/* internal state */
  33175. +
  33176. +/* nonzero means supposed to write text in standout mode.  */
  33177. +static int standout_requested;
  33178. +
  33179. +static int standout_mode;    /* Nonzero when in standout mode.  */
  33180. +
  33181. +static char tens[100] = {
  33182. +    '0', '0', '0', '0', '0', '0', '0', '0', '0', '0',
  33183. +    '1', '1', '1', '1', '1', '1', '1', '1', '1', '1',
  33184. +    '2', '2', '2', '2', '2', '2', '2', '2', '2', '2',
  33185. +    '3', '3', '3', '3', '3', '3', '3', '3', '3', '3',
  33186. +    '4', '4', '4', '4', '4', '4', '4', '4', '4', '4',
  33187. +    '5', '5', '5', '5', '5', '5', '5', '5', '5', '5',
  33188. +    '6', '6', '6', '6', '6', '6', '6', '6', '6', '6',
  33189. +    '7', '7', '7', '7', '7', '7', '7', '7', '7', '7',
  33190. +    '8', '8', '8', '8', '8', '8', '8', '8', '8', '8',
  33191. +    '9', '9', '9', '9', '9', '9', '9', '9', '9', '9',
  33192. +};
  33193. +
  33194. +static char ones[100] = {
  33195. +    '0', '1', '2', '3', '4', '5', '6', '7', '8', '9',
  33196. +    '0', '1', '2', '3', '4', '5', '6', '7', '8', '9',
  33197. +    '0', '1', '2', '3', '4', '5', '6', '7', '8', '9',
  33198. +    '0', '1', '2', '3', '4', '5', '6', '7', '8', '9',
  33199. +    '0', '1', '2', '3', '4', '5', '6', '7', '8', '9',
  33200. +    '0', '1', '2', '3', '4', '5', '6', '7', '8', '9',
  33201. +    '0', '1', '2', '3', '4', '5', '6', '7', '8', '9',
  33202. +    '0', '1', '2', '3', '4', '5', '6', '7', '8', '9',
  33203. +    '0', '1', '2', '3', '4', '5', '6', '7', '8', '9',
  33204. +    '0', '1', '2', '3', '4', '5', '6', '7', '8', '9',
  33205. +};
  33206. +
  33207. +#define addnum(str, num) if (num < 100) \
  33208. +                             { *--str = ones[num]; *--str = tens[num]; } \
  33209. +                         else do { *--str = '0' + num % 10; num /= 10; } while (num != 0)
  33210. +
  33211. +static background_highlight ();
  33212. +static turn_off_highlight ();
  33213. +
  33214. +
  33215. +/* Cursor motion stuff (from cm.c) */
  33216. +static int curX, curY;
  33217. +
  33218. +/* Move to absolute position, specified origin 0 */
  33219. +
  33220. +Amove_cursor (row, col)
  33221. +{
  33222. +  char buf[32], *pos = buf + 32;
  33223. +
  33224. +  if (curY == row && curX == col)
  33225. +    return;
  33226. +
  33227. +  curX = col; curY = row;
  33228. +  *--pos = 'H';
  33229. +  col = col + 1; row = row + 1;
  33230. +  addnum(pos, col);
  33231. +  *--pos = ';';
  33232. +  addnum(pos, row);
  33233. +  *--pos = 0x9b;
  33234. +  emacs_output(pos, buf + 32 - pos);
  33235. +  if (pos < buf) abort();
  33236. +}
  33237. +
  33238. +
  33239. +Aring_bell ()
  33240. +{
  33241. +  emacs_output("\07", 1);
  33242. +}
  33243. +
  33244. +Aset_terminal_modes ()
  33245. +{
  33246. +}
  33247. +
  33248. +Areset_terminal_modes ()
  33249. +{
  33250. +  turn_off_highlight ();
  33251. +}
  33252. +
  33253. +Aupdate_begin ()
  33254. +{
  33255. +  /* Hide cursor */
  33256. +  emacs_output("\x9b\x30\x20\x70", 4);
  33257. +}
  33258. +
  33259. +Aupdate_end ()
  33260. +{
  33261. +  background_highlight ();
  33262. +  standout_requested = 0;
  33263. +  emacs_output("\x9b\x20\x70", 3); /* Show cursor */
  33264. +}
  33265. +
  33266. +
  33267. +/* Handle highlighting when TN_standout_width (termcap sg) is not specified.
  33268. +   In these terminals, output is affected by the value of standout
  33269. +   mode when the output is written.
  33270. +
  33271. +   These functions are called on all terminals, but do nothing
  33272. +   on terminals whose standout mode does not work that way.  */
  33273. +
  33274. +static turn_off_highlight ()
  33275. +{
  33276. +  if (standout_mode)
  33277. +    {
  33278. +      extern int background, foreground;      
  33279. +      extern int inverse_fill_pen, inverse_text_pen;
  33280. +      int b = background + 40, f = foreground + 30;
  33281. +      if(inverse_fill_pen < 8 && inverse_text_pen < 8)
  33282. +    {
  33283. +      char buf[32], *pos = buf + 32;
  33284. +      /* UnDo inverse fill */
  33285. +      *--pos = '\0';
  33286. +      *--pos = 'm';
  33287. +      addnum(pos, b);
  33288. +      *--pos = ';';
  33289. +      /* UnDo inverse text */
  33290. +      addnum(pos, f);
  33291. +      *--pos = 0x9b;
  33292. +      emacs_output(pos, buf + 32 - pos);
  33293. +    }
  33294. +      else
  33295. +    {
  33296. +      emacs_output("\x9b""27m", 4);
  33297. +    }
  33298. +    }
  33299. +  standout_mode = 0;
  33300. +}
  33301. +
  33302. +static turn_on_highlight ()
  33303. +{
  33304. +  if (!standout_mode)
  33305. +    {
  33306. +      extern int inverse_fill_pen, inverse_text_pen;
  33307. +      int b = inverse_fill_pen + 40, f = inverse_text_pen + 30;
  33308. +      if(inverse_fill_pen < 8 && inverse_text_pen < 8)
  33309. +    {
  33310. +      char buf[32], *pos = buf + 32;
  33311. +      /* Do inverse fill */
  33312. +      *--pos = '\0';
  33313. +      *--pos = 'm';
  33314. +      addnum(pos, b);
  33315. +      *--pos = ';';
  33316. +
  33317. +      /* Do inverse text */
  33318. +      addnum(pos, f);
  33319. +      *--pos = 0x9b;
  33320. +      emacs_output(pos, buf + 32 - pos);
  33321. +    }
  33322. +      else
  33323. +    {
  33324. +      emacs_output("\x9b\x37m", 3);
  33325. +    }
  33326. +    }
  33327. +  standout_mode = 1;
  33328. +}
  33329. +
  33330. +/* Set standout mode to the state it should be in for
  33331. +   empty space inside windows.  What this is,
  33332. +   depends on the user option inverse-video.  */
  33333. +
  33334. +static background_highlight ()
  33335. +{
  33336. +  if (inverse_video)
  33337. +    turn_on_highlight ();
  33338. +  else
  33339. +    turn_off_highlight ();
  33340. +}
  33341. +
  33342. +/* Set standout mode to the mode specified for the text to be output.  */
  33343. +
  33344. +static
  33345. +highlight_if_desired ()
  33346. +{
  33347. +  if (!inverse_video == !standout_requested)
  33348. +    turn_off_highlight ();
  33349. +  else
  33350. +    turn_on_highlight ();
  33351. +}
  33352. +
  33353. +/* External interface to control of standout mode.
  33354. +   Call this when about to modify line at position VPOS
  33355. +   and not change whether it is highlighted.  */
  33356. +
  33357. +Areassert_line_highlight (highlight, vpos)
  33358. +     int highlight;
  33359. +     int vpos;
  33360. +{
  33361. +  standout_requested = highlight;
  33362. +}
  33363. +
  33364. +/* Call this when about to modify line at position VPOS
  33365. +   and change whether it is highlighted.  */
  33366. +
  33367. +Achange_line_highlight (new_highlight, vpos, first_unused_hpos)
  33368. +     int new_highlight, vpos, first_unused_hpos;
  33369. +{
  33370. +  standout_requested = new_highlight;
  33371. +
  33372. +  move_cursor (vpos, 0);
  33373. +
  33374. +  background_highlight ();
  33375. +  clear_end_of_line (first_unused_hpos);
  33376. +  reassert_line_highlight (new_highlight, curY);
  33377. +}
  33378. +
  33379. +/* Erase operations */
  33380. +
  33381. +/* clear from cursor to end of screen */
  33382. +Aclear_to_end ()
  33383. +{
  33384. +  background_highlight ();
  33385. +  emacs_output("\x9bJ", 2);
  33386. +}
  33387. +
  33388. +/* Clear entire screen */
  33389. +
  33390. +Aclear_screen ()
  33391. +{
  33392. +  background_highlight ();
  33393. +  emacs_output("\f", 1);
  33394. +  curX = curY = 0;
  33395. +}
  33396. +
  33397. +/* Clear to end of line, but do not clear any standout marker.
  33398. +   Assumes that the cursor is positioned at a character of real text,
  33399. +   which implies it cannot be before a standout marker
  33400. +   unless the marker has zero width.
  33401. +
  33402. +   Note that the cursor may be moved.  */
  33403. +
  33404. +Aclear_end_of_line (first_unused_hpos)
  33405. +     int first_unused_hpos;
  33406. +{
  33407. +  if (curX >= first_unused_hpos)
  33408. +    return;
  33409. +
  33410. +  background_highlight ();
  33411. +  emacs_output("\x9bK", 2);
  33412. +}
  33413. +
  33414. +Aoutput_chars (string, len)
  33415. +     register char *string;
  33416. +     int len;
  33417. +{
  33418. +  highlight_if_desired ();
  33419. +
  33420. +  curX += len;
  33421. +  emacs_output(string, len);
  33422. +}
  33423. +
  33424. +/* If start is zero, insert blanks instead of a string at start */
  33425. +
  33426. +Ainsert_chars (start, len)
  33427. +     register char *start;
  33428. +     int len;
  33429. +{
  33430. +  char buf[32], *pos = buf + 32;
  33431. +
  33432. +  highlight_if_desired ();
  33433. +
  33434. +  *--pos = '@';
  33435. +  addnum(pos, len);
  33436. +  *--pos = 0x9b;
  33437. +  emacs_output(pos, buf + 32 - pos);
  33438. +  if (pos < buf) abort();
  33439. +  if (start) emacs_output(start, len);
  33440. +}
  33441. +
  33442. +Adelete_chars (n)
  33443. +     register int n;
  33444. +{
  33445. +  char buf[32], *pos = buf + 32;
  33446. +
  33447. +  *--pos = 'P';
  33448. +  addnum(pos, n);
  33449. +  *--pos = 0x9b;
  33450. +  emacs_output(pos, buf + 32 - pos);
  33451. +  if (pos < buf) abort();
  33452. +}
  33453. +
  33454. +/* Insert N lines at vpos VPOS.  If N is negative, delete -N lines.  */
  33455. +
  33456. +Ains_del_lines (vpos, n)
  33457. +     int vpos, n;
  33458. +{
  33459. +  register int i = n > 0 ? n : -n;
  33460. +  char buf[32], *pos = buf + 32;
  33461. +
  33462. +  if (n > 0)
  33463. +    {
  33464. +      i = n;
  33465. +      *--pos = 'L';
  33466. +    }
  33467. +  else
  33468. +    {
  33469. +      i = -n;
  33470. +      *--pos = 'M';
  33471. +    }
  33472. +  if (vpos + i >= screen_height) return;
  33473. +
  33474. +  move_cursor (vpos, 0);
  33475. +  background_highlight ();
  33476. +  addnum(pos, i);
  33477. +  *--pos = 0x9b;
  33478. +  emacs_output(pos, buf + 32 - pos);
  33479. +  if (pos < buf) abort();
  33480. +}
  33481. +
  33482. +Acalculate_costs (extra, costvec, ncostvec)
  33483. +     int extra;
  33484. +     int *costvec, *ncostvec;
  33485. +{
  33486. +  CalcLID(2, 40, extra, 0, costvec, ncostvec);
  33487. +}
  33488. +
  33489. +Aset_terminal_window (size)
  33490. +int size;
  33491. +{
  33492. +}
  33493. +
  33494. +
  33495. +amiga_term_init ()
  33496. +{
  33497. +  must_write_spaces = FALSE;
  33498. +  min_padding_speed = 0;
  33499. +  memory_below_screen = FALSE;
  33500. +  meta_key = TRUE;
  33501. +  scroll_region_ok = FALSE;
  33502. +  line_ins_del_ok = FALSE;    /* much cleaner display when FALSE  -ch3/19/93. */
  33503. +  char_ins_del_ok = FALSE;
  33504. +  fast_clear_end_of_line = TRUE;
  33505. +  no_redraw_on_reenter = FALSE;
  33506. +
  33507. +  clear_screen_hook = Aclear_screen;
  33508. +  clear_end_of_line_hook = Aclear_end_of_line;
  33509. +  clear_to_end_hook = Aclear_to_end;
  33510. +  ins_del_lines_hook = Ains_del_lines;
  33511. +  change_line_highlight_hook = Achange_line_highlight;
  33512. +  insert_chars_hook = Ainsert_chars;
  33513. +  output_chars_hook = Aoutput_chars;
  33514. +  delete_chars_hook = Adelete_chars;
  33515. +  ring_bell_hook = Aring_bell;
  33516. +  reset_terminal_modes_hook = Areset_terminal_modes;
  33517. +  set_terminal_modes_hook = Aset_terminal_modes;
  33518. +  update_begin_hook = Aupdate_begin;
  33519. +  update_end_hook = Aupdate_end;
  33520. +  set_terminal_window_hook = Aset_terminal_window;
  33521. +  move_cursor_hook = Amove_cursor;
  33522. +  reassert_line_highlight_hook = Areassert_line_highlight;
  33523. +
  33524. +  dont_calculate_costs = 1;
  33525. +  calculate_costs_hook = Acalculate_costs;
  33526. +
  33527. +  /* Get screen size from system, or else from somewhere ...  */
  33528. +  get_screen_size (&screen_width, &screen_height);
  33529. +  /* Random defaults to avoid any problems */
  33530. +  if (screen_width <= 0) screen_width = 80;
  33531. +  if (screen_height <= 0) screen_height = 23;
  33532. +
  33533. +  init_baud_rate ();
  33534. +}
  33535. diff -rup --new-file baseline/fsf/emacs18/src/amiga_tty.c amiga/fsf/emacs18/src/amiga_tty.c
  33536. --- baseline/fsf/emacs18/src/amiga_tty.c    Wed Dec 31 17:00:00 1969
  33537. +++ amiga/fsf/emacs18/src/amiga_tty.c    Sat Sep 28 00:00:00 1996
  33538. @@ -0,0 +1,305 @@
  33539. +#include "config.h"
  33540. +#undef NULL
  33541. +#include "lisp.h"
  33542. +#include "termchar.h"
  33543. +
  33544. +#include <stdio.h>
  33545. +#include <errno.h>
  33546. +#include <internal/files.h>
  33547. +#include <internal/vars.h>
  33548. +
  33549. +#undef LONGBITS
  33550. +
  33551. +#include <exec/types.h>
  33552. +#include <dos/dos.h>
  33553. +#include <proto/exec.h>
  33554. +
  33555. +#include "amiga.h"
  33556. +#include "termhooks.h"
  33557. +
  33558. +static int term_initialised;
  33559. +ULONG inputsig;
  33560. +
  33561. +/* A few tty system dependent routines unused on the Amiga */
  33562. +
  33563. +setpgrp_of_tty(int pid) {}
  33564. +init_sigio() {}
  33565. +reset_sigio() {}
  33566. +request_sigio() {}
  33567. +unrequest_sigio() {}
  33568. +
  33569. +/* Return nonzero if safe to use tabs in output.
  33570. +   At the time this is called, init_sys_modes has not been done yet.  */
  33571. +
  33572. +tabs_safe_p()
  33573. +{
  33574. +  if (noninteractive)
  33575. +    return 1;
  33576. +
  33577. +  return 0;            /* Not safe on Amiga !? */
  33578. +}
  33579. +
  33580. +/* Get terminal size from system.
  33581. +   Store number of lines into *heightp and width into *widthp.
  33582. +   If zero or a negative number is stored, the value is not valid.  */
  33583. +
  33584. +get_screen_size (widthp, heightp)
  33585. +     int *widthp, *heightp;
  33586. +{
  33587. +    if (term_initialised && !inhibit_window_system)
  33588. +    get_window_size(widthp, heightp);
  33589. +    else /* We don't known what size the terminal is */
  33590. +    {
  33591. +    *widthp = 0;
  33592. +    *heightp = 0;
  33593. +    }
  33594. +}
  33595. +
  33596. +init_baud_rate ()
  33597. +{
  33598. +  if (noninteractive || !term_initialised) baud_rate = 1200;
  33599. +  else if (!inhibit_window_system) baud_rate = 38400;
  33600. +  else baud_rate = serial_baud_rate();
  33601. +}
  33602. +
  33603. +void check_intuition ()
  33604. +{
  33605. +    if (noninteractive || inhibit_window_system)
  33606. +        error ("You aren't using a window.");
  33607. +}
  33608. +
  33609. +#define TTYBUFSIZE 256        /* Same size as kbd_buffer */
  33610. +static char ttybuf[TTYBUFSIZE];
  33611. +static int tty_count;
  33612. +#define TTYPUT(c) { if (tty_count < TTYBUFSIZE) ttybuf[tty_count++] = c; }
  33613. +
  33614. +static int interrupt_char;
  33615. +
  33616. +void enque(unsigned int c, int meta)
  33617. +/* place input keys in keyboard buffer
  33618. +   If high bit is set, precede character with ^Q (hack).
  33619. +   If meta is true, set high bit.
  33620. +   If both the high bit & meta are true, we have a problem. Ignore it.
  33621. +   If c == AMIGASEQ (256) enqueue the amiga sequence introducer (C-x C-^)
  33622. +*/
  33623. +{
  33624. +  /* Hack CSI to be AMIGASEQ (to allow defining function keys, etc) */
  33625. +  if (c == 0233 || c == AMIGASEQ)
  33626. +    {
  33627. +      TTYPUT('x' & 037);
  33628. +      TTYPUT('^' & 037);
  33629. +    }
  33630. +  else if (c >= 0200)    /* Special character, precede with ^Q */
  33631. +    {
  33632. +      TTYPUT('q' & 037);
  33633. +      TTYPUT(c);
  33634. +    }
  33635. +  else
  33636. +    {
  33637. +      if (meta) c |= 0200;
  33638. +      if (c == interrupt_char) Signal(_us, SIGBREAKF_CTRL_C);
  33639. +      else TTYPUT(c);
  33640. +    }
  33641. +}
  33642. +
  33643. +int get_ttycount(void)
  33644. +{
  33645. +  return tty_count;
  33646. +}
  33647. +
  33648. +init_sys_modes ()
  33649. +{
  33650. +  extern int quit_char;
  33651. +
  33652. +  if (noninteractive)
  33653. +    return;
  33654. +
  33655. +  if (inhibit_window_system) clear_screen();
  33656. +
  33657. +  interrupt_char = quit_char;
  33658. +  if (!inhibit_window_system) setup_intchar(interrupt_char);
  33659. +}
  33660. +
  33661. +reset_sys_modes ()
  33662. +{
  33663. +  if (noninteractive)
  33664. +    {
  33665. +      fflush (stdout);
  33666. +      return;
  33667. +    }
  33668. +  move_cursor (screen_height - 1, 0);
  33669. +  clear_end_of_line (screen_width);
  33670. +  /* clear_end_of_line may move the cursor */
  33671. +  move_cursor (screen_height - 1, 0);
  33672. +}
  33673. +
  33674. +void amiga_consume_input(void)
  33675. +{
  33676. +  extern int this_command_key_count;
  33677. +  int force = this_command_key_count == 0;
  33678. +  /* If force is TRUE & some non-keyboard (eg mouse events) input is pending,
  33679. +     insert the appropriate magic sequence in the input stream */
  33680. +
  33681. +  if (term_initialised)
  33682. +    {
  33683. +      if (!inhibit_window_system) check_window(force);
  33684. +      else check_serial(force);
  33685. +      check_arexx(force, TRUE);
  33686. +    }
  33687. +}
  33688. +
  33689. +discard_tty_input ()
  33690. +{
  33691. +  if (noninteractive)
  33692. +    return;
  33693. +
  33694. +  amiga_consume_input();
  33695. +  tty_count = 0;
  33696. +  chkabort();
  33697. +}
  33698. +
  33699. +/* Code for the fd describing the emacs input (terminal or window) */
  33700. +
  33701. +static ULONG __regargs ttyin_select_start(void *userinfo, int rd, int wr)
  33702. +{
  33703. +  if (!inhibit_window_system) force_window();
  33704. +
  33705. +  return tty_count ? -1 : inputsig;
  33706. +}
  33707. +
  33708. +static void __regargs ttyin_select_poll(void *userinfo, int *rd, int *wr)
  33709. +{
  33710. +  amiga_consume_input();
  33711. +  if (!tty_count) *rd = 0;
  33712. +}
  33713. +
  33714. +static int __regargs ttyin_read(void *userinfo, void *buffer, unsigned int length)
  33715. +{
  33716. +  amiga_consume_input();
  33717. +  if (length > tty_count) length = tty_count;
  33718. +  memcpy(buffer, ttybuf, length);
  33719. +  tty_count -= length;
  33720. +  if (tty_count) memmove(ttybuf, ttybuf + length, tty_count - length);
  33721. +
  33722. +  return (int)length;
  33723. +}
  33724. +
  33725. +static int __regargs ttyin_write(void *userinfo, void *buffer, unsigned int length)
  33726. +{
  33727. +  errno = EACCES;
  33728. +  return -1;
  33729. +}
  33730. +
  33731. +static int __regargs ttyin_lseek(void *userinfo, long rpos, int mode)
  33732. +{
  33733. +  errno = ESPIPE;
  33734. +  return -1;
  33735. +}
  33736. +
  33737. +static int __regargs ttyin_close(void *userinfo, int internal)
  33738. +{
  33739. +  return 0;
  33740. +}
  33741. +
  33742. +static int __regargs ttyin_ioctl(void *userinfo, int request, void *data)
  33743. +{
  33744. +  errno = EINVAL;
  33745. +  return -1;
  33746. +}
  33747. +
  33748. +#define CBUFSIZE 1024
  33749. +#undef fwrite
  33750. +#undef fflush
  33751. +
  33752. +char cbuffer[CBUFSIZE + 16], *cbuffer_pos;
  33753. +
  33754. +int emacs_fflush(FILE *f)
  33755. +{
  33756. +    if (noninteractive || f != stdout) return fflush(f);
  33757. +    else
  33758. +    {
  33759. +    int len;
  33760. +
  33761. +    len = cbuffer_pos - cbuffer;
  33762. +    if (term_initialised)
  33763. +        if (!inhibit_window_system) screen_puts(cbuffer, len);
  33764. +        else serial_puts(cbuffer, len);
  33765. +    if (termscript) fwrite (cbuffer, 1, len, termscript);
  33766. +    cbuffer_pos = cbuffer;
  33767. +
  33768. +    return 0;
  33769. +    }
  33770. +}
  33771. +
  33772. +void emacs_putchar(int c)
  33773. +{
  33774. +    if (cbuffer_pos >= cbuffer + CBUFSIZE) emacs_fflush(stdout);
  33775. +    *cbuffer_pos++ = c;
  33776. +}
  33777. +
  33778. +void emacs_output(char *str, int size)
  33779. +{
  33780. +    if (cbuffer_pos + size > cbuffer + CBUFSIZE) emacs_fflush(stdout);
  33781. +    if (size > CBUFSIZE)
  33782. +    {
  33783. +    if (term_initialised)
  33784. +        if (!inhibit_window_system) screen_puts(str, size);
  33785. +        else serial_puts(str, size);
  33786. +    }
  33787. +    else
  33788. +    {
  33789. +    memcpy(cbuffer_pos, str, size);
  33790. +    cbuffer_pos += size;
  33791. +    }
  33792. +}
  33793. +
  33794. +void emacs_fwrite(char *str, unsigned int nblocks, unsigned int len, FILE *f)
  33795. +{
  33796. +    if (noninteractive || f != stdout) fwrite (str, nblocks, len, f);
  33797. +    else
  33798. +    {
  33799. +    unsigned int size;
  33800. +
  33801. +    if (nblocks == 1) size = len; /* Emacs always uses 1 "block" */
  33802. +    else size = nblocks * len;
  33803. +
  33804. +    emacs_output(str, size);
  33805. +    }
  33806. +}
  33807. +
  33808. +void syms_of_amiga_tty(void)
  33809. +{
  33810. +  syms_of_amiga_screen();
  33811. +  syms_of_amiga_rexx();
  33812. +}
  33813. +
  33814. +void init_amiga_tty()
  33815. +{
  33816. +  inputsig = 0;
  33817. +  term_initialised = FALSE;
  33818. +  init_amiga_rexx();
  33819. +}
  33820. +
  33821. +void cleanup_amiga_tty()
  33822. +{
  33823. +  cleanup_amiga_rexx();
  33824. +  cleanup_amiga_serial();
  33825. +  cleanup_amiga_screen();
  33826. +}
  33827. +
  33828. +void early_amiga_tty()
  33829. +{
  33830. +  cbuffer_pos = cbuffer;
  33831. +  tty_count = 0;
  33832. +}
  33833. +
  33834. +void amiga_term_open(void)
  33835. +{
  33836. +  inhibit_window_system ? init_amiga_serial() : init_amiga_screen();
  33837. +  close(0);
  33838. +  if (_alloc_fd((void *)1, FI_READ, ttyin_select_start, ttyin_select_poll, ttyin_read,
  33839. +        ttyin_write, ttyin_lseek, ttyin_close, ttyin_ioctl) == 0)
  33840. +    term_initialised = TRUE;
  33841. +  else _fail("Failed to initialise I/O, no memory ?");
  33842. +}
  33843. +
  33844. diff -rup --new-file baseline/fsf/emacs18/src/buffer.c amiga/fsf/emacs18/src/buffer.c
  33845. --- baseline/fsf/emacs18/src/buffer.c    Wed May 13 12:39:33 1992
  33846. +++ amiga/fsf/emacs18/src/buffer.c    Sat Sep 28 00:00:00 1996
  33847. @@ -1137,7 +1137,11 @@ init_buffer ()
  33848.  #ifndef VMS
  33849.    /* Maybe this should really use some standard subroutine
  33850.       whose definition is filename syntax dependent.  */
  33851. -  if (buf[strlen (buf) - 1] != '/')
  33852. +  if (buf[strlen (buf) - 1] != '/'
  33853. +#ifdef AMIGA
  33854. +&& buf[strlen (buf) -1] != ':'
  33855. +#endif /*AMIGA  */
  33856. +)
  33857.      strcat (buf, "/");
  33858.  #endif /* not VMS */
  33859.    current_buffer->directory = build_string (buf);
  33860. diff -rup --new-file baseline/fsf/emacs18/src/callproc.c amiga/fsf/emacs18/src/callproc.c
  33861. --- baseline/fsf/emacs18/src/callproc.c    Sat Jul 11 20:26:01 1992
  33862. +++ amiga/fsf/emacs18/src/callproc.c    Sat Sep 28 00:00:00 1996
  33863. @@ -124,11 +124,7 @@ If you quit, the process is killed with 
  33864.    CHECK_STRING (args[0], 0);
  33865.  
  33866.    if (nargs <= 1 || NULL (args[1]))
  33867. -#ifdef VMS
  33868. -    args[1] = build_string ("NLA0:");
  33869. -#else
  33870. -    args[1] = build_string ("/dev/null");
  33871. -#endif /* not VMS */
  33872. +    args[1] = build_string (PATH_NULL);
  33873.    else
  33874.      args[1] = Fexpand_file_name (args[1], current_buffer->directory);
  33875.  
  33876. @@ -177,10 +173,9 @@ If you quit, the process is killed with 
  33877.  
  33878.    if (XTYPE (buffer) == Lisp_Int)
  33879.  #ifdef VMS
  33880. -    fd[1] = open ("NLA0:", 0), fd[0] = -1;
  33881. +    fd[1] = open (PATH_NULL, 0), fd[0] = -1;
  33882.  #else
  33883. -    fd[1] = open ("/dev/null", O_WRONLY), fd[0] = -1;
  33884. -#endif /* not VMS */
  33885. +    fd[1] = open (PATH_NULL, O_WRONLY), fd[0] = -1;
  33886.    else
  33887.      {
  33888.        pipe (fd);
  33889. @@ -193,6 +188,22 @@ If you quit, the process is killed with 
  33890.    synch_process_death = 0;
  33891.    synch_process_retcode = 0;
  33892.  
  33893. +#ifdef AMIGA
  33894. +  {
  33895. +    register unsigned char *temp;
  33896. +
  33897. +    if (XTYPE (current_buffer->directory) == Lisp_String)
  33898. +      {
  33899. +    register int i;
  33900. +
  33901. +    i = XSTRING (current_buffer->directory)->size;
  33902. +    temp = (unsigned char *) alloca (i + 1);
  33903. +    bcopy (XSTRING (current_buffer->directory)->data, temp, i);
  33904. +    temp[i] = 0;
  33905. +      }
  33906. +    pid = exec(new_argv[0], new_argv, filefd, fd[1], temp, amiga_process_stack_size);
  33907. +  }
  33908. +#else  
  33909.    {
  33910.      /* child_setup must clobber environ in systems with true vfork.
  33911.         Protect it from permanent change.  */
  33912. @@ -230,6 +241,7 @@ If you quit, the process is killed with 
  33913.      close (filefd);
  33914.      close (fd1);
  33915.    }
  33916. +#endif /* not AMIGA */
  33917.  
  33918.    if (pid < 0)
  33919.      {
  33920. @@ -302,7 +314,7 @@ If you quit, the process is killed with 
  33921.    register Lisp_Object filename_string, start, end, status;
  33922.    char tempfile[20];
  33923.  
  33924. -  strcpy (tempfile, "/tmp/emacsXXXXXX");
  33925. +  strcpy (tempfile, PATH_TEMP);
  33926.    mktemp (tempfile);
  33927.  
  33928.    filename_string = build_string (tempfile);
  33929. @@ -318,6 +330,7 @@ If you quit, the process is killed with 
  33930.    unlink (tempfile);
  33931.    return status;
  33932.  }
  33933. +#ifndef AMIGA
  33934.  
  33935.  /* This is the last thing run in a newly forked inferior
  33936.     either synchronous or asynchronous.
  33937. @@ -425,6 +438,7 @@ child_setup (in, out, err, new_argv, env
  33938.    write (1, new_argv[0], strlen (new_argv[0]));
  33939.    _exit (1);
  33940.  }
  33941. +#endif /* not AMIGA */
  33942.  
  33943.  init_callproc ()
  33944.  {
  33945. @@ -437,6 +451,15 @@ init_callproc ()
  33946.    Vexec_path = decode_env_path (0, PATH_EXEC);
  33947.    Vexec_directory = Ffile_name_as_directory (Fcar (Vexec_path));
  33948.    Vexec_path = nconc2 (decode_env_path ("PATH", ""), Vexec_path);
  33949. +#ifdef AMIGA
  33950. +  {
  33951. +    char *amiga_path(), *apath = amiga_path();
  33952. +
  33953. +    Vexec_path = nconc2 (decode_env_path (0, apath), Vexec_path);
  33954. +    Vexec_path = nconc2 (decode_env_path (0, "GNUEmacs:c"), Vexec_path);
  33955. +    free(apath);
  33956. +  }
  33957. +#endif  
  33958.  
  33959.    execdir = Fdirectory_file_name (Vexec_directory);
  33960.    if (access (XSTRING (execdir)->data, 0) < 0)
  33961. @@ -447,7 +470,7 @@ init_callproc ()
  33962.      }
  33963.  
  33964.    sh = (char *) egetenv ("SHELL");
  33965. -  Vshell_file_name = build_string (sh ? sh : "/bin/sh");
  33966. +  Vshell_file_name = build_string (sh ? sh : PATH_SHELL);
  33967.  
  33968.  #ifndef MAINTAIN_ENVIRONMENT
  33969.    /* The equivalent of this operation was done
  33970. diff -rup --new-file baseline/fsf/emacs18/src/dired.c amiga/fsf/emacs18/src/dired.c
  33971. --- baseline/fsf/emacs18/src/dired.c    Sun Mar 22 21:16:41 1992
  33972. +++ amiga/fsf/emacs18/src/dired.c    Sat Sep 28 00:00:00 1996
  33973. @@ -385,7 +385,11 @@ file_name_completion_stat (dirname, dp, 
  33974.  
  33975.    bcopy (XSTRING (dirname)->data, fullname, pos);
  33976.  #ifndef VMS
  33977. +#ifdef AMIGA
  33978. +  if ((fullname[pos - 1] != '/')&&(fullname[pos - 1] != ':'))
  33979. +#else
  33980.    if (fullname[pos - 1] != '/')
  33981. +#endif
  33982.      fullname[pos++] = '/';
  33983.  #endif
  33984.  
  33985. diff -rup --new-file baseline/fsf/emacs18/src/dispnew.c amiga/fsf/emacs18/src/dispnew.c
  33986. --- baseline/fsf/emacs18/src/dispnew.c    Fri Jul 24 12:31:36 1992
  33987. +++ amiga/fsf/emacs18/src/dispnew.c    Sat Sep 28 00:00:00 1996
  33988. @@ -674,11 +674,27 @@ update_screen (force, inhibit_hairy_id)
  33989.    int preempt_count = baud_rate / 2400 + 1;
  33990.    extern input_pending;
  33991.  
  33992. +  start_count(0);
  33993. +
  33994.    if (screen_height == 0) abort (); /* Some bug zeros some core */
  33995.  
  33996.    if (force_redisplay)
  33997.      force = 1;
  33998.  
  33999. +#ifdef FAST_DISPLAY
  34000. +  /* Don't compute for i/d line if just want cursor motion. */
  34001. +  /* Don't allow preemption, etc either */
  34002. +  for (i = 0; i < screen_height; i++)
  34003. +    if (new_screen->enable[i])
  34004. +      break;
  34005. +
  34006. +  if (i >= screen_height)
  34007. +    {
  34008. +      update_begin();
  34009. +      goto update_done;
  34010. +    }
  34011. +#endif
  34012. +
  34013.    if (!force)
  34014.      detect_input_pending ();
  34015.    if (!force
  34016. @@ -695,10 +711,12 @@ update_screen (force, inhibit_hairy_id)
  34017.    if (!line_ins_del_ok)
  34018.      inhibit_hairy_id = 1;
  34019.  
  34020. +#ifndef FAST_DISPLAY
  34021.    /* Don't compute for i/d line if just want cursor motion. */
  34022.    for (i = 0; i < screen_height; i++)
  34023. -    if (new_screen->enable)
  34024. +    if (new_screen->enable[i])
  34025.        break;
  34026. +#endif
  34027.  
  34028.    /* Try doing i/d line, if not yet inhibited.  */
  34029.    if (!inhibit_hairy_id && i < screen_height)
  34030. @@ -742,6 +760,9 @@ update_screen (force, inhibit_hairy_id)
  34031.        update_line (i);
  34032.      }
  34033.      }
  34034. +#ifdef FAST_DISPLAY
  34035. +update_done:
  34036. +#endif
  34037.    pause = (i < screen_height - 1) ? i + 1 : 0;
  34038.  
  34039.    /* Now just clean up termcap drivers and set cursor, etc.  */
  34040. @@ -781,6 +802,7 @@ update_screen (force, inhibit_hairy_id)
  34041.      }
  34042.  
  34043.    bzero (new_screen->enable, screen_height);
  34044. +  stop_count(0);
  34045.    return pause;
  34046.  }
  34047.  
  34048. @@ -894,6 +916,57 @@ update_line (vpos)
  34049.    else
  34050.      reassert_line_highlight (new_screen->highlight[vpos], vpos);
  34051.  
  34052. +#ifdef FAST_DISPLAY
  34053. +  if (current_screen->enable[vpos])
  34054. +  {
  34055. +      obody = current_screen->contents[vpos];
  34056. +      olen = current_screen->used[vpos];
  34057. +  }
  34058. +  else olen = 0;
  34059. +
  34060. +  nbody = new_screen->contents[vpos];
  34061. +  nlen = new_screen->used[vpos];
  34062. +  
  34063. +  /* Pretend trailing spaces are not there at all,
  34064. +     unless for one reason or another we must write all spaces.  */
  34065. +  /* We know that the previous character byte contains 0.  */
  34066. +  if (! new_screen->highlight[vpos])
  34067. +  {
  34068. +      if (!must_write_spaces)
  34069. +      while (nbody[nlen - 1] == ' ')
  34070. +          nlen--;
  34071. +  }
  34072. +  else
  34073. +  {
  34074. +      /* For an inverse-video line, give it extra trailing spaces
  34075. +     all the way to the screen edge
  34076. +     so that the reverse video extends all the way across.  */
  34077. +      while (nlen < screen_width - 1)
  34078. +      nbody[nlen++] = ' ';
  34079. +  }
  34080. +  
  34081. +  while (olen > 0 && nlen > 0 && *obody == *nbody)
  34082. +  {
  34083. +      olen--; nlen--; obody++; nbody++;
  34084. +  }
  34085. +  if (olen > 0 || nlen > 0)
  34086. +      move_cursor (vpos, nbody - new_screen->contents[vpos]);
  34087. +  if (nlen > 0) output_chars (nbody, nlen);
  34088. +  
  34089. +  if (olen > nlen && new_screen->used[vpos] != screen_width)
  34090. +      clear_end_of_line(current_screen->used[vpos]);
  34091. +  /* Exchange contents between current_screen and new_screen.  */
  34092. +  temp = new_screen->contents[vpos];
  34093. +  new_screen->contents[vpos] = current_screen->contents[vpos];
  34094. +  current_screen->contents[vpos] = temp;
  34095. +  
  34096. +  /* One way or another, this will enable the line being updated.  */
  34097. +  current_screen->enable[vpos] = 1;
  34098. +  current_screen->used[vpos] = new_screen->used[vpos];
  34099. +  current_screen->highlight[vpos] = new_screen->highlight[vpos];
  34100. +
  34101. +#else /* not FAST_DISPLAY */
  34102. +
  34103.    /* ??? */
  34104.    if (! current_screen->enable[vpos])
  34105.      {
  34106. @@ -1172,6 +1245,7 @@ update_line (vpos)
  34107.    temp = new_screen->contents[vpos];
  34108.    new_screen->contents[vpos] = current_screen->contents[vpos];
  34109.    current_screen->contents[vpos] = temp;
  34110. +#endif /* not FAST_DISPLAY */
  34111.  }
  34112.  
  34113.  count_blanks (str)
  34114. @@ -1577,8 +1651,18 @@ init_display ()
  34115.    cursor_in_echo_area = 0;
  34116.    terminal_type = (char *) 0;
  34117.  
  34118. +#ifdef AMIGA
  34119. +  amiga_term_open();
  34120. +#endif
  34121.    if (!inhibit_window_system)
  34122.      {
  34123. +#ifdef AMIGA
  34124. +      amiga_term_init();
  34125. +      /* Using Intuition V2.04 */
  34126. +      Vwindow_system = intern ("intuition");
  34127. +      Vwindow_system_version = make_number (2);
  34128. +      goto term_init_done;
  34129. +#endif /* AMIGA */
  34130.  #ifdef HAVE_X_WINDOWS
  34131.        extern char *alternate_display;
  34132.        char *disp = (char *) egetenv ("DISPLAY");
  34133. diff -rup --new-file baseline/fsf/emacs18/src/doc.c amiga/fsf/emacs18/src/doc.c
  34134. --- baseline/fsf/emacs18/src/doc.c    Tue Jan  8 10:25:38 1991
  34135. +++ amiga/fsf/emacs18/src/doc.c    Sat Sep 28 00:00:00 1996
  34136. @@ -21,6 +21,7 @@ the Free Software Foundation, 675 Mass A
  34137.  #include "config.h"
  34138.  #include "lisp.h"
  34139.  #include "buffer.h"
  34140. +#include "paths.h"
  34141.  
  34142.  #include <sys/types.h>
  34143.  #include <sys/file.h>    /* Must be after sys/types.h for USG and BSD4_1*/
  34144. @@ -188,7 +189,7 @@ when doc strings are referred to later i
  34145.  
  34146.  #ifndef CANNOT_DUMP
  34147.    name = (char *) alloca (XSTRING (filename)->size + 8);
  34148. -  strcpy (name, "../etc/");
  34149. +  strcpy (name, RELPATH_DOC);
  34150.  #else /* CANNOT_DUMP */
  34151.    CHECK_STRING (Vexec_directory, 0);
  34152.    name = (char *) alloca (XSTRING (filename)->size +
  34153. diff -rup --new-file baseline/fsf/emacs18/src/dostrip.c amiga/fsf/emacs18/src/dostrip.c
  34154. --- baseline/fsf/emacs18/src/dostrip.c    Wed Dec 31 17:00:00 1969
  34155. +++ amiga/fsf/emacs18/src/dostrip.c    Sat Sep 28 00:00:00 1996
  34156. @@ -0,0 +1,23 @@
  34157. +#include <stdio.h>
  34158. +
  34159. +#define SIZE 2048
  34160. +
  34161. +main(int argc, char **argv)
  34162. +{
  34163. +    char buf[SIZE];
  34164. +
  34165. +    buf[SIZE - 1] = 0;
  34166. +    while (fgets(buf, SIZE - 1, stdin))
  34167. +    {
  34168. +    if (buf[0] != '#')
  34169. +    {
  34170. +        char *p = buf, *e;
  34171. +
  34172. +        while (*p && *p == ' ') p++;
  34173. +        e = p + strlen(p);
  34174. +        while (e > p && (e[-1] == ' ' || e[-1] == '\t' || e[-1] == '\n')) e--;
  34175. +        *e = '\0';
  34176. +        if (*p) puts(p);
  34177. +    }
  34178. +    }
  34179. +}
  34180. diff -rup --new-file baseline/fsf/emacs18/src/emacs.c amiga/fsf/emacs18/src/emacs.c
  34181. --- baseline/fsf/emacs18/src/emacs.c    Fri Oct 16 20:51:00 1992
  34182. +++ amiga/fsf/emacs18/src/emacs.c    Sat Sep 28 00:00:00 1996
  34183. @@ -78,6 +78,10 @@ the Free Software Foundation, 675 Mass A
  34184.  #endif
  34185.  #endif
  34186.  
  34187. +#ifdef AMIGA_DUMP
  34188. +#define HAVE_SHM        /* Simplifies the ifdefs */
  34189. +#endif
  34190. +
  34191.  #ifndef O_RDWR
  34192.  #define O_RDWR 2
  34193.  #endif
  34194. @@ -323,6 +327,7 @@ main (argc, argv, envp)
  34195.    xargc = argc;
  34196.  #endif
  34197.  
  34198. +#ifndef AMIGA
  34199.  /* Handle the -t switch, which specifies filename to use as terminal */
  34200.    if (skip_args + 2 < argc && !strcmp (argv[skip_args + 1], "-t"))
  34201.      {
  34202. @@ -336,6 +341,7 @@ main (argc, argv, envp)
  34203.        inhibit_window_system = 1;    /* -t => -nw */
  34204.  #endif
  34205.      }
  34206. +#endif
  34207.  #ifdef HAVE_X_WINDOWS
  34208.  /* Handle the -d switch, which means use a different display for X */
  34209.    if (skip_args + 2 < argc && (!strcmp (argv[skip_args + 1], "-d") ||
  34210. @@ -717,7 +723,11 @@ Take symbols from SYMFILE (presumably th
  34211.  #ifdef VMS
  34212.  #define SEPCHAR ','
  34213.  #else
  34214. +#ifdef AMIGA            /* Can't use : on Amiga */
  34215. +#define SEPCHAR ','
  34216. +#else
  34217.  #define SEPCHAR ':'
  34218. +#endif
  34219.  #endif
  34220.  
  34221.  Lisp_Object
  34222. diff -rup --new-file baseline/fsf/emacs18/src/exec.c amiga/fsf/emacs18/src/exec.c
  34223. --- baseline/fsf/emacs18/src/exec.c    Wed Dec 31 17:00:00 1969
  34224. +++ amiga/fsf/emacs18/src/exec.c    Sat Sep 28 00:00:00 1996
  34225. @@ -0,0 +1,138 @@
  34226. +#include "amiga.h"
  34227. +#include "processes.h"
  34228. +#include <amiga/ioctl.h>
  34229. +#include <exec/memory.h>
  34230. +#include <dos/dosextens.h>
  34231. +#include <dos/dostags.h>
  34232. +#include <string.h>
  34233. +
  34234. +int eexec(char *program, char **argv, int input, int output, int error,
  34235. +      char *dir, int stacksize)
  34236. +/* input = -1 -> inherit Input()
  34237. +   output = -1 -> inherit Output()
  34238. +   error = -1 -> inherit pr_CES
  34239. +   error = -2 -> stderr = stdout */
  34240. +{
  34241. +  int index, comsize, close_input, close_output, close_error;
  34242. +  char *combuf, *bp;
  34243. +  BPTR in, out, err, dirlock;
  34244. +  int _pseudo_close(int fd);
  34245. +
  34246. +  comsize = 256;
  34247. +  combuf = malloc(comsize);
  34248. +
  34249. +  if (input == -1)
  34250. +    {
  34251. +      in = Input();
  34252. +      close_input = FALSE;
  34253. +    }
  34254. +  else
  34255. +    {
  34256. +      if (ioctl(input, _AMIGA_GET_FH, &in) == -1) in = 0;
  34257. +      close_input = TRUE;
  34258. +      _pseudo_close(input);
  34259. +    }
  34260. +
  34261. +  if (output == -1)
  34262. +    {
  34263. +      out = Output();
  34264. +      close_output = FALSE;
  34265. +    }
  34266. +  else
  34267. +    {
  34268. +      if (ioctl(output, _AMIGA_GET_FH, &out) == -1) out = 0;
  34269. +      close_output = out != in;
  34270. +      _pseudo_close(output);
  34271. +    }
  34272. +
  34273. +  if (error == -1)
  34274. +    {
  34275. +      err = _us->pr_CES;
  34276. +      close_error = FALSE;
  34277. +    }
  34278. +  else if (error == -2)
  34279. +    {
  34280. +      err = out;
  34281. +      close_error = FALSE;
  34282. +    }
  34283. +  else
  34284. +    {
  34285. +      if (ioctl(error, _AMIGA_GET_FH, &err) == -1) err = 0;
  34286. +      close_error = err != out && err != in;
  34287. +      _pseudo_close(error);
  34288. +    }
  34289. +
  34290. +  /* pr_CES is not always defined */
  34291. +  if (in && out && (err || error == -1))
  34292. +    if (combuf)
  34293. +      {
  34294. +    bp = combuf;
  34295. +    for (index = 0; argv[index] != 0; index++)
  34296. +      {
  34297. +        /* Use program as argv[0]. This loses some information, but ... */
  34298. +        char *arg = index == 0 ? program : argv[index];
  34299. +        char *s;
  34300. +        int len;
  34301. +
  34302. +        len = 3;
  34303. +        s = arg;
  34304. +        while (*s)
  34305. +          {
  34306. +        len++;
  34307. +        if (*s == '*' || *s == '"' || *s == '\n') len++;
  34308. +        s++;
  34309. +          }
  34310. +        if (bp + len + 1 >= combuf + comsize)
  34311. +          {
  34312. +        char *newbuf;
  34313. +
  34314. +        comsize += comsize + len;
  34315. +        newbuf = realloc(combuf, comsize);
  34316. +        if (!newbuf) { errno = ENOMEM; goto error; }
  34317. +        bp = newbuf + (bp - combuf);
  34318. +        combuf = newbuf;
  34319. +          }
  34320. +        *bp++ = ' ';
  34321. +        *bp++ = '"';
  34322. +        s = arg;
  34323. +        while (*s)
  34324. +          {
  34325. +        if (*s == '"' || *s == '*') *bp++ = '*';
  34326. +        else if (*s == '\n') *bp++ = '+';
  34327. +        *bp++ = *s++;
  34328. +          }
  34329. +        *bp++ = '"';
  34330. +      }
  34331. +    *bp = '\0';
  34332. +    if (dir) dirlock = Lock(dir, SHARED_LOCK);
  34333. +    else dirlock = 0;
  34334. +
  34335. +    if (dirlock || !dir)
  34336. +      {
  34337. +        int pid = _start_process(combuf, in, close_input, out, close_output,
  34338. +                     err, close_error, dirlock, stacksize);
  34339. +
  34340. +        if (pid != -1)
  34341. +          {
  34342. +        free(combuf);
  34343. +        return pid;
  34344. +          }
  34345. +      }
  34346. +    else errno = convert_oserr(IoErr());
  34347. +    if (dirlock) UnLock(dirlock);
  34348. +      }
  34349. +    else errno = ENOMEM;
  34350. +
  34351. + error:
  34352. +  if (in && close_input) Close(in);
  34353. +  if (out && close_output) Close(out);
  34354. +  if (err && close_error) Close(err);
  34355. +  if (combuf) free(combuf);
  34356. +  return -1;
  34357. +}
  34358. +
  34359. +int exec(char *program, char **argv, int input, int output, 
  34360. +      char *dir, int stacksize)
  34361. +{
  34362. +  return eexec(program, argv, input, output, -1, dir, stacksize);
  34363. +}
  34364. diff -rup --new-file baseline/fsf/emacs18/src/fileio.c amiga/fsf/emacs18/src/fileio.c
  34365. --- baseline/fsf/emacs18/src/fileio.c    Tue Oct  6 15:02:20 1992
  34366. +++ amiga/fsf/emacs18/src/fileio.c    Sat Sep 28 00:00:00 1996
  34367. @@ -147,6 +147,9 @@ on VMS, perhaps instead a string ending 
  34368.    p = beg + XSTRING (file)->size;
  34369.  
  34370.    while (p != beg && p[-1] != '/'
  34371. +#ifdef    AMIGA
  34372. +         && p[-1] != ':'
  34373. +#endif    /* AMIGA */
  34374.  #ifdef VMS
  34375.       && p[-1] != ':' && p[-1] != ']' && p[-1] != '>'
  34376.  #endif /* VMS */
  34377. @@ -174,6 +177,9 @@ or the entire name if it contains no sla
  34378.    end = p = beg + XSTRING (file)->size;
  34379.  
  34380.    while (p != beg && p[-1] != '/'
  34381. +#ifdef    AMIGA
  34382. +         && p[-1] != ':'
  34383. +#endif    /* AMIGA */
  34384.  #ifdef VMS
  34385.       && p[-1] != ':' && p[-1] != ']' && p[-1] != '>'
  34386.  #endif /* VMS */
  34387. @@ -248,9 +254,15 @@ file_name_as_directory (out, in)
  34388.        out[size] = '\0';
  34389.      }
  34390.  #else /* not VMS */
  34391. +#ifdef    AMIGA
  34392. +  /* AmigaOS syntax, append slash if the last char isn't a ':' or '/' */
  34393. +  if (out[size] != '/' && out[size] != ':' && size != 0)
  34394. +    strcat (out, "/");
  34395. +#else    /* not AMIGA */
  34396.    /* For Unix syntax, Append a slash if necessary */
  34397.    if (out[size] != '/')
  34398.      strcat (out, "/");
  34399. +#endif /* not AMIGA */
  34400.  #endif /* not VMS */
  34401.    return out;
  34402.  }
  34403. @@ -464,6 +476,110 @@ initial ~ is expanded.  See also the fun
  34404.       (name, defalt)
  34405.       Lisp_Object name, defalt;
  34406.  {
  34407. +#ifdef AMIGA
  34408. +  unsigned char *nm, *tilde, *newdir, *colon, *t_pos, *target;
  34409. +
  34410. +  CHECK_STRING (name, 0);
  34411. +
  34412. +  nm = XSTRING (name)->data;
  34413. +  /* Find base directory */
  34414. +  if (NULL (defalt))
  34415. +      defalt = current_buffer->directory;
  34416. +  CHECK_STRING (defalt, 1);
  34417. +  newdir = XSTRING (defalt)->data;
  34418. +
  34419. +  /* Concat newdir w/ nm and canonicalize */
  34420. +  /* newdir always contains at least the device name.
  34421. +     It is assumed canonical */
  34422. +  target = (unsigned char *)alloca(strlen(nm) + strlen(newdir) + 2);
  34423. +  file_name_as_directory (target, newdir);
  34424. +  t_pos = target + strlen(target);
  34425. +
  34426. +  while (*nm)
  34427. +  {
  34428. +      unsigned char *comp_end = nm;
  34429. +      int comp_len;
  34430. +
  34431. +      /* Find next component of path (everything upto the next /) */
  34432. +      do comp_end++; while (comp_end[0] && comp_end[-1] != '/' && comp_end[-1] != ':');
  34433. +      comp_len = comp_end - nm;
  34434. +
  34435. +      if (comp_len == 1 && nm[0] == '/' ||
  34436. +      nm[0] == '.' && nm[1] == '.' &&
  34437. +      (comp_len == 2 || comp_len == 3 && nm[2] == '/'))
  34438. +      {
  34439. +      /* Previous directory */
  34440. +      if (t_pos > target && t_pos[-1] != ':')
  34441. +      {
  34442. +          t_pos--; /* Back up over / */
  34443. +          while (t_pos > target &&
  34444. +             t_pos[-1] != ':' && t_pos[-1] != '/') t_pos--;
  34445. +      }
  34446. +      }
  34447. +      else if (comp_len == 2 && nm[0] == '.' && nm[1] == '/' ||
  34448. +           comp_len == 1 && nm[0] == '.') ; /* Ignore . */
  34449. +      else if (nm[0] == ':') /* Just keep disk name */
  34450. +      {
  34451. +      char *new_pos;
  34452. +
  34453. +      *t_pos = 0; /* Limit search for : */
  34454. +      t_pos = index(target, ':');
  34455. +      if (t_pos) t_pos++;
  34456. +      else t_pos = target;
  34457. +      }
  34458. +      else if (nm[0] == '~' || index(nm, ':'))
  34459. +      {
  34460. +      char *exp_name;
  34461. +
  34462. +      if (nm[0] == '~')
  34463. +          if (nm[1] == '/' || nm[1] == 0) /* Home directory */
  34464. +          {
  34465. +          newdir = (unsigned char *) egetenv ("HOME");
  34466. +          if (!newdir) newdir = (unsigned char *) "s:";
  34467. +          }
  34468. +          else
  34469. +          {
  34470. +          /* Handle ~ followed by user name.  */
  34471. +          char lastc = nm[comp_len - 1];
  34472. +          int len = comp_len - 1;
  34473. +
  34474. +          if (lastc == ':' || lastc == '/') len--;
  34475. +
  34476. +          /* ~name becomes name: */
  34477. +          newdir = (unsigned char *) alloca (len + 2);
  34478. +          bcopy((char *) nm + 1, newdir, len);
  34479. +          newdir[len] = ':';
  34480. +          newdir[len + 1] = 0;
  34481. +          }
  34482. +      else /* we have name: */
  34483. +      {
  34484. +          newdir = (char *)alloca(comp_len + 1);
  34485. +          bcopy(nm, newdir, comp_len);
  34486. +          newdir[comp_len] = 0;
  34487. +      }
  34488. +      exp_name = (char *)alloca(1024);
  34489. +      if (expand_path(newdir, exp_name, 1024))
  34490. +      {
  34491. +          char *colon = strchr(exp_name, ':');
  34492. +
  34493. +          /* Detect paths with multiple colons (eg from PATH:) and
  34494. +         leave them alone. They create confusion. */
  34495. +          if (!(colon && strchr(colon + 1, ':'))) newdir = exp_name;
  34496. +      }
  34497. +      target = (unsigned char *)alloca(strlen(nm) + strlen(newdir) + 2);
  34498. +      file_name_as_directory (target, newdir);
  34499. +      t_pos = target + strlen(target);
  34500. +      }
  34501. +      else /* Copy component */
  34502. +      {
  34503. +      bcopy(nm, t_pos, comp_len);
  34504. +      t_pos += comp_len;
  34505. +      }
  34506. +
  34507. +      nm = comp_end;
  34508. +  }
  34509. +  return make_string (target, t_pos - target);
  34510. +#else /* not AMIGA */
  34511.    unsigned char *nm;
  34512.    
  34513.    register unsigned char *newdir, *p, *o;
  34514. @@ -795,6 +911,7 @@ initial ~ is expanded.  See also the fun
  34515.      }
  34516.  
  34517.    return make_string (target, o - target);
  34518. +#endif /* not AMIGA */
  34519.  }
  34520.  
  34521.  DEFUN ("substitute-in-file-name", Fsubstitute_in_file_name,
  34522. @@ -825,6 +942,23 @@ duplicates what expand-file-name does.")
  34523.  
  34524.    for (p = nm; p != endp; p++)
  34525.      {
  34526. +#ifdef AMIGA
  34527. +      if (p[0] == '~' && p != nm && p[-1] == '/')
  34528. +    {
  34529. +        nm = p;
  34530. +        substituted = 1;
  34531. +    }
  34532. +      else if (p[0] == ':')
  34533. +    {
  34534. +          char *p2 = p;
  34535. +      while (p2 > nm && p2[-1] != ':' && p2[-1] != '/') p2--;
  34536. +      if (p2 != nm)
  34537. +        {
  34538. +          nm = p2;
  34539. +          substituted = 1;
  34540. +        }
  34541. +    }
  34542. +#else /* not AMIGA */
  34543.        if ((p[0] == '~' ||
  34544.  #ifdef APOLLO
  34545.         /* // at start of file name is meaningful in Apollo system */
  34546. @@ -845,6 +979,7 @@ duplicates what expand-file-name does.")
  34547.        nm = p;
  34548.        substituted = 1;
  34549.      }
  34550. +#endif /* not AMIGA */
  34551.      }
  34552.  
  34553.  #ifdef VMS
  34554. @@ -1353,6 +1488,13 @@ DEFUN ("file-name-absolute-p", Ffile_nam
  34555.  
  34556.    CHECK_STRING (filename, 0);
  34557.    ptr = XSTRING (filename)->data;
  34558. +#ifdef    AMIGA
  34559. +  /* An absolute filename has a non-leading ':' in it */
  34560. +  if (*ptr != ':')
  34561. +      while (*ptr)
  34562. +      if (*ptr++ == ':') return Qt;
  34563. +  return Qnil;
  34564. +#else    /* not AMIGA */
  34565.    if (*ptr == '/' || *ptr == '~'
  34566.  #ifdef VMS
  34567.  /* ??? This criterion is probably wrong for '<'.  */
  34568. @@ -1364,6 +1506,7 @@ DEFUN ("file-name-absolute-p", Ffile_nam
  34569.      return Qt;
  34570.    else
  34571.      return Qnil;
  34572. +#endif /* not AMIGA */
  34573.  }
  34574.  
  34575.  DEFUN ("file-exists-p", Ffile_exists_p, Sfile_exists_p, 1, 1, 0,
  34576. diff -rup --new-file baseline/fsf/emacs18/src/firstfile.c amiga/fsf/emacs18/src/firstfile.c
  34577. --- baseline/fsf/emacs18/src/firstfile.c    Wed Dec 31 17:00:00 1969
  34578. +++ amiga/fsf/emacs18/src/firstfile.c    Sat Sep 28 00:00:00 1996
  34579. @@ -0,0 +1,4 @@
  34580. +int first_data = 1;
  34581. +int first_bss;
  34582. +
  34583. +void first_function() { }
  34584. diff -rup --new-file baseline/fsf/emacs18/src/indent.c amiga/fsf/emacs18/src/indent.c
  34585. --- baseline/fsf/emacs18/src/indent.c    Sat Apr 18 09:01:07 1992
  34586. +++ amiga/fsf/emacs18/src/indent.c    Sat Sep 28 00:00:00 1996
  34587. @@ -35,6 +35,11 @@ int indent_tabs_mode;
  34588.  #define min(a, b) ((a) < (b) ? (a) : (b))
  34589.  #define max(a, b) ((a) > (b) ? (a) : (b))
  34590.  
  34591. +#ifdef EIGHT_BIT
  34592. +/* Visible characters */
  34593. +extern char visible[];
  34594. +#endif
  34595. +
  34596.  /* These three values memoize the current column to avoid recalculation */
  34597.  /* Some things in set last_known_column_point to -1
  34598.    to mark the memoized value as invalid */
  34599. @@ -115,7 +120,11 @@ current_column ()
  34600.      }
  34601.  
  34602.        c = *--ptr;
  34603. +#ifdef EIGHT_BIT
  34604. +      if (visible[c])
  34605. +#else
  34606.        if (c >= 040 && c < 0177)
  34607. +#endif
  34608.      {
  34609.        col++;
  34610.      }
  34611. @@ -326,7 +335,11 @@ passed values greater than (screen-width
  34612.      }
  34613.        else if (ctl_arrow && (c < 040 || c == 0177))
  34614.          col++;
  34615. +#ifdef EIGHT_BIT
  34616. +      else if (!visible[c])
  34617. +#else
  34618.        else if (c < 040 || c >= 0177)
  34619. +#endif
  34620.          col += 3;
  34621.      }
  34622.  
  34623. @@ -373,9 +386,57 @@ compute_motion (from, fromvpos, fromhpos
  34624.        prev_hpos = hpos;
  34625.  
  34626.        c = FETCH_CHAR (pos);
  34627. +#ifdef EIGHT_BIT
  34628. +      if (visible[c])
  34629. +#else
  34630.        if (c >= 040 && c < 0177)
  34631. -    hpos++;
  34632. -      else if (c == '\t')
  34633. +#endif
  34634. +        {
  34635. +      unsigned char *p;
  34636. +      int gap_pos;
  34637. +      int maxhpos;
  34638. +
  34639. +      if (vpos == tovpos)
  34640. +        {
  34641. +          maxhpos = tohpos;
  34642. +          if (maxhpos > width) maxhpos = width;
  34643. +        }
  34644. +      else maxhpos = width;
  34645. +
  34646. +      if (pos < GPT)
  34647. +        {
  34648. +          gap_pos = GPT;
  34649. +          p = BEG_ADDR + pos;
  34650. +        }
  34651. +      else
  34652. +        {
  34653. +          gap_pos = -1;
  34654. +          p = GAP_SIZE + BEG_ADDR + pos;
  34655. +        }
  34656. +      do
  34657. +        {
  34658. +          hpos++;
  34659. +          if (hpos >= maxhpos)
  34660. +          {
  34661. +          prev_hpos = hpos - 1;
  34662. +          if (hpos >= width) goto check_hpos;
  34663. +          /* We've reached the target pos */
  34664. +          pos++;
  34665. +          goto done;
  34666. +          }
  34667. +          pos++;
  34668. +          if (pos >= to)
  34669. +            {
  34670. +          prev_hpos = hpos - 1;
  34671. +          goto done;
  34672. +            }
  34673. +          if (gap_pos == pos) p += GAP_SIZE;
  34674. +          c = *p++;
  34675. +        }
  34676. +      while (visible[c]);
  34677. +      prev_hpos = hpos;
  34678. +        }
  34679. +      if (c == '\t')
  34680.      {
  34681.        hpos += tab_width - ((hpos + tab_offset + hscroll - (hscroll > 0)
  34682.                  /* Add tab_width here to make sure positive.
  34683. @@ -433,6 +494,7 @@ compute_motion (from, fromvpos, fromhpos
  34684.        else
  34685.      hpos += (ctl_arrow && c < 0200) ? 2 : 4;
  34686.  
  34687. +check_hpos:
  34688.        /* Handle right margin.  */
  34689.        if (hpos >= width
  34690.        && (hpos > width
  34691. @@ -462,6 +524,7 @@ compute_motion (from, fromvpos, fromhpos
  34692.  
  34693.      }
  34694.      }
  34695. +  done:
  34696.  
  34697.    val_compute_motion.bufpos = pos;
  34698.    val_compute_motion.hpos = hpos;
  34699. diff -rup --new-file baseline/fsf/emacs18/src/keyboard.c amiga/fsf/emacs18/src/keyboard.c
  34700. --- baseline/fsf/emacs18/src/keyboard.c    Sat May 16 23:57:15 1992
  34701. +++ amiga/fsf/emacs18/src/keyboard.c    Sat Sep 28 00:00:00 1996
  34702. @@ -1313,7 +1313,13 @@ read_avail_input (nread)
  34703.  #endif
  34704.      fcntl (fileno (stdin), F_SETFL, 0);
  34705.  #else /* not USG */
  34706. +#ifdef    AMIGA    /* This is where the input work finally gets done */
  34707. +  /* Note, The nread != 0 case isn't handled as it doesn't arise on the Amiga.
  34708. +     (Look carefully at calls to read_avail_input) */
  34709. +  nread = read(0, buf, sizeof buf);
  34710. +#else  /* not AMIGA */
  34711.    you lose
  34712. +#endif /* not AMIGA */
  34713.  #endif /* not USG */
  34714.  #endif /* no FIONREAD */
  34715.  
  34716. diff -rup --new-file baseline/fsf/emacs18/src/keymap.c amiga/fsf/emacs18/src/keymap.c
  34717. --- baseline/fsf/emacs18/src/keymap.c    Sat Jul 27 10:43:27 1991
  34718. +++ amiga/fsf/emacs18/src/keymap.c    Sat Sep 28 00:00:00 1996
  34719. @@ -29,6 +29,10 @@ the Free Software Foundation, 675 Mass A
  34720.  
  34721.  /* Actually allocate storage for these variables */
  34722.  
  34723. +#ifdef AMIGA
  34724. +#define HAVE_X_WINDOWS        /* We want the mouse map too */
  34725. +#endif
  34726. +
  34727.  #ifdef HAVE_X_WINDOWS
  34728.  Lisp_Object MouseMap;        /* Keymap for mouse commands */
  34729.  #endif /* HAVE_X_WINDOWS */
  34730. diff -rup --new-file baseline/fsf/emacs18/src/lastfile.c amiga/fsf/emacs18/src/lastfile.c
  34731. --- baseline/fsf/emacs18/src/lastfile.c    Sat Mar 30 16:05:55 1991
  34732. +++ amiga/fsf/emacs18/src/lastfile.c    Sat Sep 28 00:00:00 1996
  34733. @@ -35,9 +35,23 @@ the Free Software Foundation, 675 Mass A
  34734.   coming from libraries.
  34735.  */
  34736.  
  34737. +#ifdef AMIGA
  34738. +/* I need to find the end of initialised and unitialised data, as well as of
  34739. +   executable code.
  34740. +*/
  34741. +int last_data = 1;
  34742. +int last_bss;
  34743. +
  34744. +void last_function() { }
  34745. +
  34746. +/* Some data that shouldn't be dumped */
  34747. +#include "amiga_data.c" 
  34748. +
  34749. +#else /* not AMIGA */
  34750.  #ifdef VMS
  34751.  /* Prevent the file from being totally empty.  */
  34752.  static dummy () {}
  34753.  #endif
  34754.  
  34755.  char my_edata = 0;
  34756. +#endif /* not AMIGA */
  34757. diff -rup --new-file baseline/fsf/emacs18/src/lisp.h amiga/fsf/emacs18/src/lisp.h
  34758. --- baseline/fsf/emacs18/src/lisp.h    Thu Mar  5 16:11:31 1992
  34759. +++ amiga/fsf/emacs18/src/lisp.h    Sat Sep 28 00:00:00 1996
  34760. @@ -287,7 +287,7 @@ Lisp_Object;
  34761.    (XUINT (a) | (XUINT (a) > PURESIZE ? DATA_SEG_BITS : PURE_SEG_BITS))
  34762.  #else /* not HAVE_SHM */
  34763.  #ifdef DATA_SEG_BITS
  34764. -/* This case is used for the rt-pc.
  34765. +/* This case is used for the rt-pc and the Amiga.
  34766.     In the diffs I was given, it checked for ptr = 0
  34767.     and did not adjust it in that case.
  34768.     But I don't think that zero should ever be found
  34769. @@ -520,6 +520,13 @@ struct Lisp_Marker
  34770.    { if (XTYPE ((x)) == Lisp_Marker) XFASTINT (x) = marker_position (x); \
  34771.      else if (XTYPE ((x)) != Lisp_Int) x = wrong_type_argument (Qinteger_or_marker_p, (x)); }
  34772.  
  34773. +#ifdef AMIGA_DUMP
  34774. +#define CHECK_IMPURE(obj) \
  34775. +  { extern int *pure, puresize; \
  34776. +    if ((PNTR_COMPARISON_TYPE) XPNTR (obj) < (PNTR_COMPARISON_TYPE) ((char *) pure + puresize) \
  34777. +    && (PNTR_COMPARISON_TYPE) XPNTR (obj) >= (PNTR_COMPARISON_TYPE) pure) \
  34778. +      pure_write_error (); }
  34779. +#else /* not AMIGA_DUMP */
  34780.  #ifdef VIRT_ADDR_VARIES
  34781.  
  34782.  /* For machines like APOLLO where text and data can go anywhere
  34783. @@ -529,7 +536,6 @@ struct Lisp_Marker
  34784.      if ((PNTR_COMPARISON_TYPE) XPNTR (obj) < (PNTR_COMPARISON_TYPE) ((char *) pure + PURESIZE) \
  34785.      && (PNTR_COMPARISON_TYPE) XPNTR (obj) >= (PNTR_COMPARISON_TYPE) pure) \
  34786.        pure_write_error (); }
  34787. -
  34788.  #else /* not VIRT_ADDR_VARIES */
  34789.  #ifdef PNTR_COMPARISON_TYPE
  34790.  
  34791. @@ -548,6 +554,7 @@ struct Lisp_Marker
  34792.  
  34793.  #endif /* PNTR_COMPARISON_TYPE */
  34794.  #endif /* VIRT_ADDRESS_VARIES */
  34795. +#endif /* not AMIGA_DUMP */
  34796.  
  34797.  /* Cast pointers to this type to compare them.  Some machines want int.  */
  34798.  #ifndef PNTR_COMPARISON_TYPE
  34799. diff -rup --new-file baseline/fsf/emacs18/src/lread.c amiga/fsf/emacs18/src/lread.c
  34800. --- baseline/fsf/emacs18/src/lread.c    Sun Mar 22 21:18:17 1992
  34801. +++ amiga/fsf/emacs18/src/lread.c    Sat Sep 28 00:00:00 1996
  34802. @@ -240,11 +240,15 @@ absolute_filename_p (pathname)
  34803.       Lisp_Object pathname;
  34804.  {
  34805.    register unsigned char *s = XSTRING (pathname)->data;
  34806. +#ifdef AMIGA
  34807. +  return (*s && index(s + 1, ':')); /* Non-leading : */
  34808. +#else
  34809.    return (*s == '~' || *s == '/'
  34810.  #ifdef VMS
  34811.        || index (s, ':')
  34812.  #endif /* VMS */
  34813.        );
  34814. +#endif /* not AMIGA */
  34815.  }
  34816.  
  34817.  /* Search for a file whose name is STR, looking in directories
  34818. @@ -559,7 +563,7 @@ read0 (readcharfun)
  34819.  }
  34820.  
  34821.  static int read_buffer_size;
  34822. -static char *read_buffer;
  34823. +char *read_buffer;
  34824.  
  34825.  static Lisp_Object
  34826.  read1 (readcharfun)
  34827. diff -rup --new-file baseline/fsf/emacs18/src/m-amiga.h amiga/fsf/emacs18/src/m-amiga.h
  34828. --- baseline/fsf/emacs18/src/m-amiga.h    Wed Dec 31 17:00:00 1969
  34829. +++ amiga/fsf/emacs18/src/m-amiga.h    Sat Sep 28 00:00:00 1996
  34830. @@ -0,0 +1,129 @@
  34831. +/* m- file for GNU Emacs running on AmigaOS 2.04, SAS C compiler 5.10b
  34832. +   Copyright (C) 1985, 1986 Free Software Foundation, Inc.
  34833. +
  34834. +This file is part of GNU Emacs.
  34835. +
  34836. +GNU Emacs is distributed in the hope that it will be useful,
  34837. +but WITHOUT ANY WARRANTY.  No author or distributor
  34838. +accepts responsibility to anyone for the consequences of using it
  34839. +or for whether it serves any particular purpose or works at all,
  34840. +unless he says so in writing.  Refer to the GNU Emacs General Public
  34841. +License for full details.
  34842. +
  34843. +Everyone is granted permission to copy, modify and redistribute
  34844. +GNU Emacs, but only under the conditions described in the
  34845. +GNU Emacs General Public License.   A copy of this license is
  34846. +supposed to have been given to you along with GNU Emacs so you
  34847. +can know your rights and responsibilities.  It should be in a
  34848. +file named COPYING.  Among other things, the copyright notice
  34849. +and this notice must be preserved on all copies.  */
  34850. +
  34851. +
  34852. +/* The following three symbols give information on
  34853. + the size of various data types.  */
  34854. +/* lisp.h doesn't make any concessions for INTBITS = 16 and
  34855. +   NO_UNION_TYPE (use int as lisp object) defined.  The following is
  34856. +   assuming that the Manx 32 bit int. math package is faster than
  34857. +   bitfield implementation, overall.  If you want to use INTBITS = 16,
  34858. +   you *cannot* define NO_UNION_TYPE.    */
  34859. +
  34860. +#define SHORTBITS 16        /* Number of bits in a short */
  34861. +
  34862. +#define INTBITS 32        /* Number of bits in an int */
  34863. +
  34864. +#define LONGBITS 32        /* Number of bits in a long */
  34865. +
  34866. +#define VALBITS 26        /* Number of bits in an int or pointer offset */
  34867. +
  34868. +#define GCTYPEBITS 5        /* Number of bits in a type. */
  34869. +
  34870. +/* Define BIG_ENDIAN iff lowest-numbered byte in a word
  34871. +   is the most significant byte.  */
  34872. +
  34873. +#define BIG_ENDIAN
  34874. +
  34875. +/* Define NO_ARG_ARRAY if you cannot take the address of the first of a
  34876. + * group of arguments and treat it as an array of the arguments.  */
  34877. +
  34878. +/* #define NO_ARG_ARRAY */
  34879. +
  34880. +/* Define WORD_MACHINE if addresses and such have
  34881. + * to be corrected before they can be used as byte counts.  */
  34882. +
  34883. +#define WORD_MACHINE
  34884. +
  34885. +/* Define how to take a char and sign-extend into an int.
  34886. +   On machines where char is signed, this is a no-op.  */
  34887. +
  34888. +#define SIGN_EXTEND_CHAR(c) (c)
  34889. +
  34890. +/* Now define a symbol for the cpu type, if your compiler
  34891. +   does not define it automatically:
  34892. +   Ones defined so far include vax, m68000, ns16000, pyramid,
  34893. +   orion, tahoe, APOLLO and many others */
  34894. +
  34895. +#ifndef    m68000
  34896. +#define m68000
  34897. +#endif
  34898. +
  34899. +/* Use type int rather than a union, to represent Lisp_Object */
  34900. +/* This is desirable for most machines.  */
  34901. +
  34902. +#define NO_UNION_TYPE
  34903. +/* Use a struct rather than an int. */
  34904. +
  34905. +
  34906. +/* Define EXPLICIT_SIGN_EXTEND if XINT must explicitly sign-extend
  34907. +   the 24-bit bit field into an int.  In other words, if bit fields
  34908. +   are always unsigned.
  34909. +
  34910. +   If you use NO_UNION_TYPE, this flag does not matter.  */
  34911. +
  34912. +#define EXPLICIT_SIGN_EXTEND
  34913. +
  34914. +/* We don't have /dev/kmem, so LOAD_AVE_TYPE and LOAD_AVE_CVT are
  34915. +   not defined. */
  34916. +
  34917. +/* Define CANNOT_DUMP on machines where unexec does not work.
  34918. +   Then the function dump-emacs will not be defined
  34919. +   and temacs will do (load "loadup") automatically unless told otherwise.  */
  34920. +
  34921. +/* #define CANNOT_DUMP */
  34922. +
  34923. +/* Define VIRT_ADDR_VARIES if the virtual addresses of
  34924. +   pure and impure space as loaded can vary, and even their
  34925. +   relative order cannot be relied on.
  34926. +
  34927. +   Otherwise Emacs assumes that text space precedes data space,
  34928. +   numerically.  */
  34929. +
  34930. +/* #define VIRT_ADDR_VARIES */
  34931. +/* I now rely on AMIGA_DUMP to make appropriate patches in the source */
  34932. +
  34933. +/* Define C_ALLOCA if this machine does not support a true alloca
  34934. +   and the one written in C should be used instead.
  34935. +   Define HAVE_ALLOCA to say that the system provides a properly
  34936. +   working alloca function and it should be used.
  34937. +   Define neither one if an assembler-language alloca
  34938. +   in the file alloca.s should be used.  */
  34939. +
  34940. +#define C_ALLOCA
  34941. +/* #define HAVE_ALLOCA */
  34942. +
  34943. +/* Define STACK_DIRECTION for alloca.c */
  34944. +#define    STACK_DIRECTION    -1    /* Grows downward */
  34945. +
  34946. +/* Define NO_REMAP if memory segmentation makes it not work well
  34947. +   to change the boundary between the text section and data section
  34948. +   when Emacs is dumped.  If you define this, the preloaded Lisp
  34949. +   code will not be sharable; but that's better than failing completely.  */
  34950. +
  34951. +#define NO_REMAP
  34952. +
  34953. +/* Set high (32 - VALBITS) = 6 bits of every pointer to the same as those of
  34954. +   &pure[0].
  34955. +*/
  34956. +#ifdef emacs
  34957. +extern long far DataSegBits;
  34958. +#endif
  34959. +#define DATA_SEG_BITS DataSegBits
  34960. diff -rup --new-file baseline/fsf/emacs18/src/paths.h-dist amiga/fsf/emacs18/src/paths.h-dist
  34961. --- baseline/fsf/emacs18/src/paths.h-dist    Tue Sep 11 17:51:18 1990
  34962. +++ amiga/fsf/emacs18/src/paths.h-dist    Sat Sep 28 00:00:00 1996
  34963. @@ -17,3 +17,19 @@
  34964.  /* the name of the file !!!SuperLock!!! in the directory
  34965.   specified by PATH_LOCK.  Yes, this is redundant.  */
  34966.  #define PATH_SUPERLOCK "/usr/local/emacs/lock/!!!SuperLock!!!"
  34967. +
  34968. +/* The path to the file containing the termcap descriptions */
  34969. +#define PATH_TERMCAP "/etc/termcap"
  34970. +
  34971. +/* The relative path (while dumping) to the directory containing 
  34972. +   the DOC file */
  34973. +#define RELPATH_DOC "../etc/"
  34974. +
  34975. +/* The path for a /dev/null-like device */
  34976. +#define PATH_NULL "/dev/null"
  34977. +
  34978. +/* Path for temporary files (for call-process-region) */
  34979. +#define PATH_TEMP "/tmp/emacsXXXXXX"
  34980. +
  34981. +/* Path to the shell (the one in shell-file-name) */
  34982. +#define PATH_SHELL "/bin/sh"
  34983. diff -rup --new-file baseline/fsf/emacs18/src/process.c amiga/fsf/emacs18/src/process.c
  34984. --- baseline/fsf/emacs18/src/process.c    Sat Oct 24 21:42:04 1992
  34985. +++ amiga/fsf/emacs18/src/process.c    Sat Sep 28 00:00:00 1996
  34986. @@ -1203,6 +1203,23 @@ create_process (process, new_argv)
  34987.       If fork fails, remove_process will clear the bit.  */
  34988.    FD_SET (inchannel, &input_wait_mask);
  34989.  
  34990. +#ifdef AMIGA
  34991. +  {
  34992. +    register unsigned char *temp;
  34993. +
  34994. +    if (XTYPE (current_buffer->directory) == Lisp_String)
  34995. +      {
  34996. +    register int i;
  34997. +
  34998. +    i = XSTRING (current_buffer->directory)->size;
  34999. +    temp = (unsigned char *) alloca (i + 1);
  35000. +    bcopy (XSTRING (current_buffer->directory)->data, temp, i);
  35001. +    temp[i] = 0;
  35002. +      }
  35003. +    pid = exec(new_argv[0], new_argv, forkin, forkout, temp,
  35004. +           amiga_process_stack_size);
  35005. +  }
  35006. +#else /* not AMIGA */
  35007.    {
  35008.      /* child_setup must clobber environ on systems with true vfork.
  35009.         Protect it from permanent change.  */
  35010. @@ -1305,6 +1322,7 @@ create_process (process, new_argv)
  35011.        }
  35012.      environ = save_environ;
  35013.    }
  35014. +#endif /* not AMIGA */
  35015.  
  35016.    if (pid < 0)
  35017.      {
  35018. @@ -1314,6 +1332,7 @@ create_process (process, new_argv)
  35019.  
  35020.    XFASTINT (XPROCESS (process)->pid) = pid;
  35021.  
  35022. +#ifndef AMIGA
  35023.    /* If the subfork execv fails, and it exits,
  35024.       this close hangs.  I don't know why.
  35025.       So have an interrupt jar it loose.  */
  35026. @@ -1326,6 +1345,7 @@ create_process (process, new_argv)
  35027.    start_polling ();
  35028.    if (forkin != forkout && forkout >= 0)
  35029.      close (forkout);
  35030. +#endif
  35031.  
  35032.  #ifdef SIGCHLD
  35033.  #ifdef BSD4_1
  35034. diff -rup --new-file baseline/fsf/emacs18/src/s-amiga.h amiga/fsf/emacs18/src/s-amiga.h
  35035. --- baseline/fsf/emacs18/src/s-amiga.h    Wed Dec 31 17:00:00 1969
  35036. +++ amiga/fsf/emacs18/src/s-amiga.h    Sat Sep 28 00:00:00 1996
  35037. @@ -0,0 +1,215 @@
  35038. +/* file for GNU Emacs running on AmigaOS 2.04, SAS C compiler 5.10b
  35039. +   Copyright (C) 1985, 1986 Free Software Foundation, Inc.
  35040. +
  35041. +This file is part of GNU Emacs.
  35042. +
  35043. +GNU Emacs is distributed in the hope that it will be useful,
  35044. +but WITHOUT ANY WARRANTY.  No author or distributor
  35045. +accepts responsibility to anyone for the consequences of using it
  35046. +or for whether it serves any particular purpose or works at all,
  35047. +unless he says so in writing.  Refer to the GNU Emacs General Public
  35048. +License for full details.
  35049. +
  35050. +Everyone is granted permission to copy, modify and redistribute
  35051. +GNU Emacs, but only under the conditions described in the
  35052. +GNU Emacs General Public License.   A copy of this license is
  35053. +supposed to have been given to you along with GNU Emacs so you
  35054. +can know your rights and responsibilities.  It should be in a
  35055. +file named COPYING.  Among other things, the copyright notice
  35056. +and this notice must be preserved on all copies.  */
  35057. +
  35058. +
  35059. +/*
  35060. + *    Define symbols to identify the version of Unix this is.
  35061. + *    Define all the symbols that apply correctly.
  35062. + */
  35063. +
  35064. +#ifndef AMIGA
  35065. +#define AMIGA
  35066. +#endif /* AMIGA */
  35067. +
  35068. +/* SYSTEM_TYPE should indicate the kind of system you are using.
  35069. + It sets the Lisp variable system-type.  */
  35070. +
  35071. +#define SYSTEM_TYPE "amigaos"
  35072. +
  35073. +/* Define this if you want a faster redisplay. This saves a lot of CPU
  35074. +   time at the expense of more characters to be redrawn.
  35075. +   On a bitmapped display you win, with a serial line you probably lose.
  35076. +*/
  35077. +#define FAST_DISPLAY
  35078. +
  35079. +/* Define this to display eight bit characters. The actual characters
  35080. +   that are visible can be set in init_xdisp ().
  35081. +*/
  35082. +#define EIGHT_BIT
  35083. +
  35084. +/* nomultiplejobs should be defined if your system's shell
  35085. + does not have "job control" (the ability to stop a program,
  35086. + run some other program, then continue the first one).  */
  35087. +
  35088. +#define NOMULTIPLEJOBS
  35089. +
  35090. +/* Define this to include various patches that allow the Amiga to dump.
  35091. +   This *must* be defined on the Amiga!
  35092. +*/
  35093. +#define AMIGA_DUMP
  35094. +
  35095. +/* Do not use interrupt_input = 1 by default, because in 4.3
  35096. +   we can make noninterrupt input work properly.  */
  35097. +
  35098. +/* #undef INTERRUPT_INPUT */    /* This file borrowed from s-bsd4-3.h */
  35099. +
  35100. +/* First pty name is /dev/ptyp0.  */
  35101. +
  35102. +/* #define FIRST_PTY_LETTER 'p' */
  35103. +/*
  35104. + *    Define HAVE_TIMEVAL if the system supports the BSD style clock values.
  35105. + *    Look in <sys/time.h> for a timeval structure.
  35106. + */
  35107. +
  35108. +#define HAVE_TIMEVAL
  35109. +#define USE_UTIME
  35110. +
  35111. +/*
  35112. + *    Define HAVE_SELECT if the system supports the `select' system call.
  35113. + */
  35114. +
  35115. +#define HAVE_SELECT
  35116. +
  35117. +/*
  35118. + *    Define HAVE_PTYS if the system supports pty devices.
  35119. + */
  35120. +
  35121. +/* #define HAVE_PTYS */
  35122. +
  35123. +/* Define HAVE_SOCKETS if system supports 4.2-compatible sockets.  */
  35124. +
  35125. +/* #define HAVE_SOCKETS */
  35126. +
  35127. +/* But we do have socket pairs for processes ... */
  35128. +#define SKTPAIR
  35129. +
  35130. +/*
  35131. + *    Define NONSYSTEM_DIR_LIBRARY to make Emacs emulate
  35132. + *      The 4.2 opendir, etc., library functions.
  35133. + */
  35134. +
  35135. +/* #define NONSYSTEM_DIR_LIBRARY */
  35136. +#define SYSV_SYSTEM_DIR
  35137. +
  35138. +/* Define this symbol if your system has the functions bcopy, etc. */
  35139. +
  35140. +#define BSTRING        /* #define'ed later on */
  35141. +
  35142. +/* subprocesses should be defined if you want to
  35143. +   have code for asynchronous subprocesses
  35144. +   (as used in M-x compile and M-x shell).
  35145. +   This is generally OS dependent, and not supported
  35146. +   under most USG systems. */
  35147. +
  35148. +#define subprocesses
  35149. +
  35150. +#define DID_REMOTE        /* Use 0 length write to send eof */
  35151. +
  35152. +/* If your system uses COFF (Common Object File Format) then define the
  35153. +   preprocessor symbol "COFF". */
  35154. +
  35155. +/* #define COFF */
  35156. +
  35157. +/* define MAIL_USE_FLOCK if the mailer uses flock
  35158. +   to interlock access to /usr/spool/mail/$USER.
  35159. +   The alternative is that a lock file named
  35160. +   /usr/spool/mail/$USER.lock.  */
  35161. +
  35162. +/* #define MAIL_USE_FLOCK */
  35163. +
  35164. +/* Define CLASH_DETECTION if you want lock files to be written
  35165. +   so that Emacs can tell instantly when you try to modify
  35166. +   a file that someone else has modified in his Emacs.  */
  35167. +
  35168. +/* #define CLASH_DETECTION */
  35169. +
  35170. +/* We use the Berkeley (and usg5.2.2) interface to nlist.  */
  35171. +
  35172. +/* #define NLIST_STRUCT */
  35173. +
  35174. +/* The file containing the kernel's symbol table is called /vmunix.  */
  35175. +
  35176. +/* #define KERNEL_FILE "/vmunix" */
  35177. +
  35178. +/* The symbol in the kernel where the load average is found
  35179. +   is named _avenrun.  */
  35180. +
  35181. +/* #define LDAV_SYMBOL "_avenrun" */
  35182. +
  35183. +/* We use our own malloc for 2 reasons:
  35184. +     - To check that the 6 (INTBITS - VALBITS) of allocated data are
  35185. +       the same as &pure[0].
  35186. +     - To release unused memory to the system (SAS's malloc keeps it
  35187. +       till you quit)
  35188. +*/
  35189. +
  35190. +#define SYMS_SYSTEM syms_of_amiga()
  35191. +
  35192. +#define SYSTEM_MALLOC        /* But I have replaced the system malloc ... */
  35193. +
  35194. +#define DEF_PURESIZE 132000        /* Leave space for extra code for Amiga */
  35195. +#ifdef emacs
  35196. +extern int puresize;
  35197. +#endif
  35198. +#define PURESIZE puresize    /* Puresize is variable ... */
  35199. +
  35200. +#ifdef emacs
  35201. +/* Stdio must be included before redefining putchar */
  35202. +#include <stdio.h>
  35203. +extern char cbuffer[], *cbuffer_pos;
  35204. +#define PENDING_OUTPUT_COUNT(x) (cbuffer_pos - cbuffer)
  35205. +#endif
  35206. +/* We divert some calls to our routines */
  35207. +#define putchar(c) do { extern int noninteractive; \
  35208. +             if (noninteractive) putc (c, stdout); \
  35209. +             else emacs_putchar(c); } while(0)
  35210. +#define fwrite emacs_fwrite
  35211. +#define fflush emacs_fflush
  35212. +#define random rand
  35213. +#define srandom srand
  35214. +#define main emacs_main
  35215. +#define select emacs_select
  35216. +
  35217. +#ifdef emacs
  35218. +#include <string.h>
  35219. +#undef index
  35220. +#undef rindex
  35221. +#define index strchr
  35222. +#define rindex strrchr
  35223. +#endif
  35224. +
  35225. +#define fsync(x) 0        /* Emulate fsync ... */
  35226. +
  35227. +#ifdef emacs
  35228. +#include <sys/wait.h>        /* process.c doesn't have appropriate #ifdef's */
  35229. +extern int amiga_process_stack_size;
  35230. +#endif
  35231. +
  35232. +/* Here are some symbols for ymakefile's benefit */
  35233. +
  35234. +#define    LIB_STANDARD        //unix/src/unix.lib lib:sc.lib lib:amiga.lib
  35235. +#define    START_FILES        lib:c.o firstfile.o
  35236. +#define    C_DEBUG_SWITCH        debug s
  35237. +#define    C_OPTIMIZE_SWITCH    opt
  35238. +#define    LD_SWITCH_SYSTEM
  35239. +#define    C_SWITCH_SYSTEM
  35240. +#define    S_SWITCH_MACHINE    /* Nothing! */
  35241. +#define UNEXEC amiga_dump.o
  35242. +#define OBJECTS_SYSTEM        amiga_clipboard.o amiga_tty.o amiga_serial.o \
  35243. +                amiga_screen.o amiga_menu.o amiga_malloc.o \
  35244. +                                amiga_rexx.o simplerexx.o amiga_term.o
  35245. +
  35246. +
  35247. +/* Amiga window-specific stuff */
  35248. +
  35249. +#define VERS "1.28DG Beta"
  35250. +
  35251. +#define FALSE 0
  35252. +#define TRUE 1
  35253. diff -rup --new-file baseline/fsf/emacs18/src/scroll.c amiga/fsf/emacs18/src/scroll.c
  35254. --- baseline/fsf/emacs18/src/scroll.c    Tue Jan  8 11:04:52 1991
  35255. +++ amiga/fsf/emacs18/src/scroll.c    Sat Sep 28 00:00:00 1996
  35256. @@ -55,6 +55,65 @@ int *DLcost;
  35257.  int *ILncost;
  35258.  int *DLncost;
  35259.  
  35260. +#ifdef FAST_DISPLAY
  35261. +scrolling_1 (window_size, unchanged_at_top, unchanged_at_bottom,
  35262. +         draw_cost, old_hash, new_hash, free_at_end)
  35263. +     int window_size, unchanged_at_top, unchanged_at_bottom;
  35264. +     int *draw_cost;
  35265. +     int *old_hash;
  35266. +     int *new_hash;
  35267. +     int free_at_end;
  35268. +{
  35269. +  int lines, i;
  35270. +  int window_end = unchanged_at_top + window_size;
  35271. +
  35272. +  /* Rebase arrays at line 0 */
  35273. +  old_hash -= unchanged_at_top - 1;
  35274. +  new_hash -= unchanged_at_top - 1;
  35275. +  draw_cost -= unchanged_at_top - 1;
  35276. +
  35277. +  /* We can't allow un-enabled lines to be scrolled (they are not redrawable). 
  35278. +     Restrict window to the first set of contiguous enabled lines 
  35279. +     (an enabled line has draw_cost[x] != INFINITY) */
  35280. +  for (i = unchanged_at_top; i < window_end && draw_cost[i] != INFINITY; i++) ;
  35281. +  /*unchanged_at_bottom += window_size - i;*/
  35282. +  /*window_size = i - unchanged_at_top;*/
  35283. +  window_end = i;
  35284. +
  35285. +  if (lines = calc_scroll(old_hash, new_hash, unchanged_at_top, window_end))
  35286. +      scroll_screen_lines(unchanged_at_top, window_end - lines, lines);
  35287. +  else if (lines = calc_scroll(new_hash, old_hash, unchanged_at_top, window_end))
  35288. +      scroll_screen_lines(unchanged_at_top + lines, window_end, -lines);
  35289. +}
  35290. +
  35291. +int calc_scroll(int *old_hash, int *new_hash, int from, int to)
  35292. +/* For insert attempt, the parameters are correct.
  35293. +   For delete attempt, swap the old & new hash parameters
  35294. +*/
  35295. +{
  35296. +    int try = from + 1, lines, i;
  35297. +    int hash1 = old_hash[from];
  35298. +
  35299. +    do
  35300. +    {
  35301. +    if (hash1 == new_hash[try])
  35302. +    {
  35303. +        /* Check if other lines match too */
  35304. +        lines = try - from; /* Amount to insert */
  35305. +        for (i = try + 1; i < to; i++)
  35306. +        if (old_hash[i - lines] != new_hash[i]) break;
  35307. +        if (i == to) /* It works ! */
  35308. +        return lines;
  35309. +    }
  35310. +    try++;
  35311. +    }
  35312. +    while (try < to);
  35313. +
  35314. +    return 0;
  35315. +}
  35316. +
  35317. +#else /* not FAST_DISPLAY */
  35318. +
  35319.  scrolling_1 (window_size, unchanged_at_top, unchanged_at_bottom,
  35320.           draw_cost, old_hash, new_hash, free_at_end)
  35321.       int window_size, unchanged_at_top, unchanged_at_bottom;
  35322. @@ -320,6 +379,7 @@ do_scrolling (matrix, window_size, uncha
  35323.    if (window)
  35324.      set_terminal_window (0);
  35325.  }
  35326. +#endif /* not FAST_DISPLAY */
  35327.  
  35328.  /* Return number of lines in common between current screen contents
  35329.     and the text to be displayed,
  35330. diff -rup --new-file baseline/fsf/emacs18/src/simplerexx.c amiga/fsf/emacs18/src/simplerexx.c
  35331. --- baseline/fsf/emacs18/src/simplerexx.c    Wed Dec 31 17:00:00 1969
  35332. +++ amiga/fsf/emacs18/src/simplerexx.c    Sat Sep 28 00:00:00 1996
  35333. @@ -0,0 +1,416 @@
  35334. +/*
  35335. + * Simple ARexx interface by Michael Sinz
  35336. + *
  35337. + * This is a very "Simple" interface to the world of ARexx...
  35338. + * For more complex interfaces into ARexx, it is best that you
  35339. + * understand the functions that are provided by ARexx.
  35340. + * In many cases they are more powerful than what is presented
  35341. + * here.
  35342. + *
  35343. + * This code is fully re-entrant and self-contained other than
  35344. + * the use of SysBase/AbsExecBase and the ARexx RVI support
  35345. + * library which is also self-contained...
  35346. + */
  35347. +
  35348. +#include    <exec/types.h>
  35349. +#include    <exec/nodes.h>
  35350. +#include    <exec/lists.h>
  35351. +#include    <exec/ports.h>
  35352. +#include    <exec/memory.h>
  35353. +
  35354. +#include    <proto/exec.h>
  35355. +
  35356. +#include    <rexx/storage.h>
  35357. +#include    <rexx/rxslib.h>
  35358. +
  35359. +#include    <string.h>
  35360. +#include    <ctype.h>
  35361. +
  35362. +/*
  35363. + * The prototypes for the few ARexx functions we will call...
  35364. + */
  35365. +struct RexxMsg *CreateRexxMsg(struct MsgPort *,char *,char *);
  35366. +void *CreateArgstring(char *,long);
  35367. +void DeleteRexxMsg(struct RexxMsg *);
  35368. +void DeleteArgstring(char *);
  35369. +BOOL IsRexxMsg(struct Message *);
  35370. +
  35371. +/*
  35372. + * Pragmas for the above functions...  (To make this all self-contained...)
  35373. + * If you use RexxGlue.o, this is not needed...
  35374. + *
  35375. + * These are for Lattice C 5.x  (Note the use of RexxContext->RexxSysBase)
  35376. + */
  35377. +#pragma libcall RexxContext->RexxSysBase CreateRexxMsg 90 09803
  35378. +#pragma libcall RexxContext->RexxSysBase CreateArgstring 7E 0802
  35379. +#pragma libcall RexxContext->RexxSysBase DeleteRexxMsg 96 801
  35380. +#pragma libcall RexxContext->RexxSysBase DeleteArgstring 84 801
  35381. +#pragma libcall RexxContext->RexxSysBase IsRexxMsg A8 801
  35382. +
  35383. +/*
  35384. + * Now, we have made the pragmas needed, let's get to work...
  35385. + */
  35386. +
  35387. +/*
  35388. + * A structure for the ARexx handler context
  35389. + * This is *VERY* *PRIVATE* and should not be touched...
  35390. + */
  35391. +struct    ARexxContext
  35392. +{
  35393. +struct    MsgPort    *ARexxPort;    /* The port messages come in at... */
  35394. +struct    Library    *RexxSysBase;    /* We will hide the library pointer here... */
  35395. +    long    Outstanding;    /* The count of outstanding ARexx messages... */
  35396. +    char    PortName[24];    /* The port name goes here... */
  35397. +    char    ErrorName[28];    /* The name of the <base>.LASTERROR... */
  35398. +    char    Extension[8];    /* Default file name extension... */
  35399. +};
  35400. +
  35401. +#define    AREXXCONTEXT    struct ARexxContext *
  35402. +
  35403. +#include    "SimpleRexx.h"
  35404. +
  35405. +/*
  35406. + * This function returns the port name of your ARexx port.
  35407. + * It will return NULL if there is no ARexx port...
  35408. + *
  35409. + * This string is *READ ONLY*  You *MUST NOT* modify it...
  35410. + */
  35411. +char *ARexxName(AREXXCONTEXT RexxContext)
  35412. +{
  35413. +    register    char    *tmp=NULL;
  35414. +
  35415. +    if (RexxContext) tmp=RexxContext->PortName;
  35416. +    return(tmp);
  35417. +}
  35418. +
  35419. +/*
  35420. + * This function returns the signal mask that the Rexx port is
  35421. + * using.  It returns NULL if there is no signal...
  35422. + *
  35423. + * Use this signal bit in your Wait() loop...
  35424. + */
  35425. +ULONG ARexxSignal(AREXXCONTEXT RexxContext)
  35426. +{
  35427. +    register    ULONG    tmp=NULL;
  35428. +
  35429. +    if (RexxContext) tmp=1L << (RexxContext->ARexxPort->mp_SigBit);
  35430. +    return(tmp);
  35431. +}
  35432. +
  35433. +/*
  35434. + * This function returns a structure that contains the commands sent from
  35435. + * ARexx or the results of commands you sent.  You will need to parse it 
  35436. + * and return the structure back so that the memory can be freed.
  35437. + *
  35438. + * This returns NULL if there was no message.
  35439. + */
  35440. +struct RexxMsg *GetARexxMsg(AREXXCONTEXT RexxContext)
  35441. +{
  35442. +    register    struct    RexxMsg    *tmp=NULL;
  35443. +    register        short    flag;
  35444. +
  35445. +    if (RexxContext) tmp=(struct RexxMsg *)GetMsg(RexxContext->ARexxPort);
  35446. +    return(tmp);
  35447. +}
  35448. +
  35449. +/* Use this to delete a message sent via SendARexxMsg and that has now been
  35450. +   returned to you.
  35451. +*/
  35452. +void DeleteARexxMsg(AREXXCONTEXT RexxContext, struct RexxMsg *rmsg)
  35453. +{
  35454. +    /*
  35455. +     * Free the arguments and the message...
  35456. +     */
  35457. +    if(rmsg->rm_Action & RXFF_RESULT) {
  35458. +    if(rmsg->rm_Result1 == 0 && rmsg->rm_Result2) {
  35459. +        DeleteArgstring((STRPTR)rmsg->rm_Result2);
  35460. +    }
  35461. +    }
  35462. +    DeleteArgstring(rmsg->rm_Args[0]);
  35463. +    DeleteRexxMsg(rmsg);
  35464. +    RexxContext->Outstanding-=1;
  35465. +}
  35466. +
  35467. +/*
  35468. + * Use this to return a ARexx message...
  35469. + *
  35470. + * If you wish to return something, it must be in the RString.
  35471. + * If you wish to return an Error, it must be in the Error.
  35472. + * If there is an error, the RString is ignored.
  35473. + */
  35474. +void ReplyARexxMsg(AREXXCONTEXT RexxContext,struct RexxMsg *rmsg,
  35475. +           char *RString,LONG Error)
  35476. +{
  35477. +    if (RexxContext) if (rmsg) if (rmsg!=REXX_RETURN_ERROR)
  35478. +    {
  35479. +    rmsg->rm_Result2=0;
  35480. +    if (!(rmsg->rm_Result1=Error))
  35481. +    {
  35482. +        /*
  35483. +         * if you did not have an error we return the string
  35484. +         */
  35485. +        if (rmsg->rm_Action & (1L << RXFB_RESULT)) if (RString)
  35486. +        {
  35487. +        rmsg->rm_Result2=(LONG)CreateArgstring(RString,
  35488. +                               (LONG)strlen(RString));
  35489. +        }
  35490. +    }
  35491. +
  35492. +    /*
  35493. +     * Reply the message to ARexx...
  35494. +     */
  35495. +    ReplyMsg((struct Message *)rmsg);
  35496. +    }
  35497. +}
  35498. +
  35499. +/*
  35500. + * This function will set an error string for the ARexx
  35501. + * application in the variable defined as <appname>.LASTERROR
  35502. + *
  35503. + * Note that this can only happen if there is an ARexx message...
  35504. + *
  35505. + * This returns TRUE if it worked, FALSE if it did not...
  35506. + */
  35507. +short SetARexxLastError(AREXXCONTEXT RexxContext,struct RexxMsg *rmsg,
  35508. +            char *ErrorString)
  35509. +{
  35510. +    register    short    OkFlag=FALSE;
  35511. +
  35512. +    if (RexxContext) if (rmsg) if (CheckRexxMsg(rmsg))
  35513. +    {
  35514. +    /*
  35515. +     * Note that SetRexxVar() has more than just a TRUE/FALSE
  35516. +     * return code, but for this "basic" case, we just care if
  35517. +     * it works or not.
  35518. +     */
  35519. +    if (!SetRexxVar(rmsg,RexxContext->ErrorName,ErrorString,
  35520. +            (long)strlen(ErrorString)))
  35521. +    {
  35522. +        OkFlag=TRUE;
  35523. +    }
  35524. +    }
  35525. +    return(OkFlag);
  35526. +}
  35527. +
  35528. +/*
  35529. + * This function will send a string to ARexx...
  35530. + *
  35531. + * The default host port will be that of your task...
  35532. + *
  35533. + * If you set StringFile to TRUE, it will set that bit for the message...
  35534. + *
  35535. + * Returns the message sent, or NULL in case of error.
  35536. + */
  35537. +struct RexxMsg *SendARexxMsg(AREXXCONTEXT RexxContext,char *RString,
  35538. +                  short StringFile, short results)
  35539. +{
  35540. +    register    struct    MsgPort    *RexxPort;
  35541. +    register    struct    RexxMsg    *rmsg;
  35542. +    register        short    flag=FALSE;
  35543. +
  35544. +    if (RexxContext) if (RString)
  35545. +    {
  35546. +    if (rmsg=CreateRexxMsg(RexxContext->ARexxPort,
  35547. +                   RexxContext->Extension,
  35548. +                   RexxContext->PortName))
  35549. +    {
  35550. +        rmsg->rm_Action=RXCOMM | (StringFile ?
  35551. +                      (1L << RXFB_STRING):0);
  35552. +        rmsg->rm_Action |= (results ? RXFF_RESULT : 0);
  35553. +        if (rmsg->rm_Args[0]=CreateArgstring(RString,
  35554. +                         (LONG)strlen(RString)))
  35555. +        {
  35556. +        /*
  35557. +         * We need to find the RexxPort and this needs
  35558. +         * to be done in a Forbid()
  35559. +         */
  35560. +        Forbid();
  35561. +        if (RexxPort=FindPort(RXSDIR))
  35562. +        {
  35563. +            /*
  35564. +             * We found the port, so put the
  35565. +             * message to ARexx...
  35566. +             */
  35567. +            PutMsg(RexxPort,(struct Message *)rmsg);
  35568. +            RexxContext->Outstanding+=1;
  35569. +            flag=TRUE;
  35570. +        }
  35571. +        else
  35572. +        {
  35573. +            /*
  35574. +             * No port, so clean up...
  35575. +             */
  35576. +            DeleteArgstring(rmsg->rm_Args[0]);
  35577. +            DeleteRexxMsg(rmsg);
  35578. +        }
  35579. +        Permit();
  35580. +        }
  35581. +        else DeleteRexxMsg(rmsg);
  35582. +    }
  35583. +    }
  35584. +    return flag ? rmsg : NULL;
  35585. +}
  35586. +
  35587. +int PendingCommands(AREXXCONTEXT RexxContext)
  35588. +{
  35589. +    if (RexxContext) return RexxContext->Outstanding;
  35590. +    else return 0;
  35591. +}
  35592. +
  35593. +/*
  35594. + * This function closes down the ARexx context that was opened
  35595. + * with InitARexx...
  35596. + */
  35597. +void FreeARexx(AREXXCONTEXT RexxContext)
  35598. +{
  35599. +    register    struct    RexxMsg    *rmsg;
  35600. +
  35601. +    if (RexxContext)
  35602. +    {
  35603. +    /*
  35604. +     * Clear port name so it can't be found...
  35605. +     */
  35606. +    RexxContext->PortName[0]='\0';
  35607. +
  35608. +    /*
  35609. +     * Clean out any outstanding messages we had sent out...
  35610. +     */
  35611. +    while (RexxContext->Outstanding)
  35612. +    {
  35613. +        WaitPort(RexxContext->ARexxPort);
  35614. +        while (rmsg=GetARexxMsg(RexxContext))
  35615. +        {
  35616. +        if (rmsg!=REXX_RETURN_ERROR)
  35617. +        {
  35618. +            /*
  35619. +             * Any messages that come now are blown
  35620. +             * away...
  35621. +             */
  35622. +            SetARexxLastError(RexxContext,rmsg,
  35623. +                      "99: Port Closed!");
  35624. +            /* removed ReplyARexxMsg() this was a bug that would */
  35625. +            /* obviously cause a loop (we would continue to reply and */
  35626. +            /* then get the message.  It now deletes the message as */
  35627. +            /* should be done.  -ch5/10/93. */
  35628. +            DeleteARexxMsg(RexxContext,rmsg);
  35629. +        }
  35630. +        }
  35631. +    }
  35632. +
  35633. +    /*
  35634. +     * Clean up the port and delete it...
  35635. +     */
  35636. +    if (RexxContext->ARexxPort)
  35637. +    {
  35638. +        while (rmsg=GetARexxMsg(RexxContext))
  35639. +        {
  35640. +        /*
  35641. +         * Any messages that still are coming in are
  35642. +         * "dead"  We just set the LASTERROR and
  35643. +         * reply an error of 100...
  35644. +         */
  35645. +        SetARexxLastError(RexxContext,rmsg,
  35646. +                  "99: Port Closed!");
  35647. +        ReplyARexxMsg(RexxContext,rmsg,NULL,100);
  35648. +        }
  35649. +        RemPort(RexxContext->ARexxPort);
  35650. +        DeleteMsgPort(RexxContext->ARexxPort);
  35651. +    }
  35652. +
  35653. +    /*
  35654. +     * Make sure we close the library...
  35655. +     */
  35656. +    if (RexxContext->RexxSysBase)
  35657. +    {
  35658. +        CloseLibrary(RexxContext->RexxSysBase);
  35659. +    }
  35660. +
  35661. +    /*
  35662. +     * Free the memory of the RexxContext
  35663. +     */
  35664. +    FreeMem(RexxContext,sizeof(struct ARexxContext));
  35665. +    }
  35666. +}
  35667. +
  35668. +/*
  35669. + * This routine initializes an ARexx port for your process
  35670. + * This should only be done once per process.  You must call it
  35671. + * with a valid application name and you must use the handle it
  35672. + * returns in all other calls...
  35673. + *
  35674. + * NOTE:  The AppName should not have spaces in it...
  35675. + *        Example AppNames:  "MyWord" or "FastCalc" etc...
  35676. + *        The name *MUST* be less that 16 characters...
  35677. + *        If it is not, it will be trimmed...
  35678. + *        The name will also be UPPER-CASED...
  35679. + *
  35680. + * NOTE:  The Default file name extension, if NULL will be
  35681. + *        "rexx"  (the "." is automatic)
  35682. + */
  35683. +AREXXCONTEXT InitARexx(char *AppName,char *Extension)
  35684. +{
  35685. +    register    AREXXCONTEXT    RexxContext=NULL;
  35686. +    register    short        loop;
  35687. +    register    short        count;
  35688. +    register    char        *tmp;
  35689. +
  35690. +    if (RexxContext=AllocMem(sizeof(struct ARexxContext),
  35691. +                 MEMF_PUBLIC|MEMF_CLEAR))
  35692. +    {
  35693. +    if (RexxContext->RexxSysBase=OpenLibrary("rexxsyslib.library", NULL))
  35694. +    {
  35695. +        /*
  35696. +         * Set up the extension...
  35697. +         */
  35698. +        if (!Extension) Extension="rexx";
  35699. +        tmp=RexxContext->Extension;
  35700. +        for (loop=0;(loop<7)&&(Extension[loop]);loop++)
  35701. +        {
  35702. +        *tmp++=Extension[loop];
  35703. +        }
  35704. +        *tmp='\0';
  35705. +
  35706. +        /*
  35707. +         * Set up a port name...
  35708. +         */
  35709. +        tmp=RexxContext->PortName;
  35710. +        for (loop=0;(loop<16)&&(AppName[loop]);loop++)
  35711. +        {
  35712. +        *tmp++=toupper(AppName[loop]);
  35713. +        }
  35714. +        *tmp='\0';
  35715. +
  35716. +        /*
  35717. +         * Set up the last error RVI name...
  35718. +         *
  35719. +         * This is <appname>.LASTERROR
  35720. +         */
  35721. +        strcpy(RexxContext->ErrorName,RexxContext->PortName);
  35722. +        strcat(RexxContext->ErrorName,".LASTERROR");
  35723. +
  35724. +        /* We need to make a unique port name... */
  35725. +        Forbid();
  35726. +        for (count=1,RexxContext->ARexxPort=(VOID *)1;
  35727. +         RexxContext->ARexxPort;count++)
  35728. +        {
  35729. +        stci_d(tmp,count);
  35730. +        RexxContext->ARexxPort=
  35731. +            FindPort(RexxContext->PortName);
  35732. +        }
  35733. +
  35734. +        /*RexxContext->ARexxPort=CreatePort(RexxContext->PortName,NULL);*/
  35735. +        RexxContext->ARexxPort=CreateMsgPort();
  35736. +        RexxContext->ARexxPort->mp_Node.ln_Name = RexxContext->PortName;
  35737. +        RexxContext->ARexxPort->mp_Node.ln_Pri = 0;
  35738. +        AddPort(RexxContext->ARexxPort);
  35739. +        Permit();
  35740. +    }
  35741. +
  35742. +    if (!RexxContext->RexxSysBase || !RexxContext->ARexxPort)
  35743. +    {
  35744. +        FreeARexx(RexxContext);
  35745. +        RexxContext=NULL;
  35746. +    }
  35747. +    }
  35748. +    return(RexxContext);
  35749. +}
  35750. diff -rup --new-file baseline/fsf/emacs18/src/simplerexx.h amiga/fsf/emacs18/src/simplerexx.h
  35751. --- baseline/fsf/emacs18/src/simplerexx.h    Wed Dec 31 17:00:00 1969
  35752. +++ amiga/fsf/emacs18/src/simplerexx.h    Sat Sep 28 00:00:00 1996
  35753. @@ -0,0 +1,119 @@
  35754. +/*
  35755. + * Simple ARexx interface by Michael Sinz
  35756. + *
  35757. + * This is a very "Simple" interface...
  35758. + */
  35759. +
  35760. +#ifndef    SIMPLE_REXX_H
  35761. +#define    SIMPLE_REXX_H
  35762. +
  35763. +#include    <exec/types.h>
  35764. +#include    <exec/nodes.h>
  35765. +#include    <exec/lists.h>
  35766. +#include    <exec/ports.h>
  35767. +
  35768. +#include    <rexx/storage.h>
  35769. +#include    <rexx/rxslib.h>
  35770. +
  35771. +/*
  35772. + * This is the handle that SimpleRexx will give you
  35773. + * when you initialize an ARexx port...
  35774. + *
  35775. + * The conditional below is used to skip this if we have
  35776. + * defined it earlier...
  35777. + */
  35778. +#ifndef    AREXXCONTEXT
  35779. +
  35780. +typedef void *AREXXCONTEXT;
  35781. +
  35782. +#endif    /* AREXXCONTEXT */
  35783. +
  35784. +/*
  35785. + * The value of RexxMsg (from GetARexxMsg) if there was an error returned
  35786. + */
  35787. +#define    REXX_RETURN_ERROR    ((struct RexxMsg *)-1L)
  35788. +#define    REXX_RETURN_OK            ((struct RexxMsg *)-3L)
  35789. +
  35790. +/*
  35791. + * This function closes down the ARexx context that was opened
  35792. + * with InitARexx...
  35793. + */
  35794. +void FreeARexx(AREXXCONTEXT);
  35795. +
  35796. +/*
  35797. + * This routine initializes an ARexx port for your process
  35798. + * This should only be done once per process.  You must call it
  35799. + * with a valid application name and you must use the handle it
  35800. + * returns in all other calls...
  35801. + *
  35802. + * NOTE:  The AppName should not have spaces in it...
  35803. + *        Example AppNames:  "MyWord" or "FastCalc" etc...
  35804. + *        The name *MUST* be less that 16 characters...
  35805. + *        If it is not, it will be trimmed...
  35806. + *        The name will also be UPPER-CASED...
  35807. + *
  35808. + * NOTE:  The Default file name extension, if NULL will be
  35809. + *        "rexx"  (the "." is automatic)
  35810. + */
  35811. +AREXXCONTEXT InitARexx(char *,char *);
  35812. +
  35813. +/*
  35814. + * This function returns the port name of your ARexx port.
  35815. + * It will return NULL if there is no ARexx port...
  35816. + *
  35817. + * This string is *READ ONLY*  You *MUST NOT* modify it...
  35818. + */
  35819. +char *ARexxName(AREXXCONTEXT);
  35820. +
  35821. +/*
  35822. + * This function returns the signal mask that the Rexx port is
  35823. + * using.  It returns NULL if there is no signal...
  35824. + *
  35825. + * Use this signal bit in your Wait() loop...
  35826. + */
  35827. +ULONG ARexxSignal(AREXXCONTEXT);
  35828. +
  35829. +/*
  35830. + * This function returns a structure that contains the commands sent from
  35831. + * ARexx...  You will need to parse it and return the structure back
  35832. + * so that the memory can be freed...
  35833. + *
  35834. + * This returns NULL if there was no message...
  35835. + */
  35836. +struct RexxMsg *GetARexxMsg(AREXXCONTEXT);
  35837. +
  35838. +/* Use this to delete a message sent via SendARexxMsg and that has now been
  35839. +   returned to you.
  35840. +*/
  35841. +void DeleteARexxMsg(AREXXCONTEXT RexxContext, struct RexxMsg *rmsg);
  35842. +
  35843. +/*
  35844. + * Use this to return a ARexx message...
  35845. + *
  35846. + * If you wish to return something, it must be in the RString.
  35847. + * If you wish to return an Error, it must be in the Error.
  35848. + */
  35849. +void ReplyARexxMsg(AREXXCONTEXT,struct RexxMsg *,char *,LONG);
  35850. +
  35851. +/*
  35852. + * This function will send a string to ARexx...
  35853. + *
  35854. + * The default host port will be that of your task...
  35855. + *
  35856. + * If you set StringFile to TRUE, it will set that bit for the message...
  35857. + *
  35858. + * Returns the message sent, or NULL in case of error.
  35859. + */
  35860. +struct RexxMsg *SendARexxMsg(AREXXCONTEXT,char *,short,short);
  35861. +
  35862. +/*
  35863. + * This function will set an error string for the ARexx
  35864. + * application in the variable defined as <appname>.LASTERROR
  35865. + *
  35866. + * Note that this can only happen if there is an ARexx message...
  35867. + *
  35868. + * This returns TRUE if it worked, FALSE if it did not...
  35869. + */
  35870. +short SetARexxLastError(AREXXCONTEXT,struct RexxMsg *,char *);
  35871. +
  35872. +#endif    /* SIMPLE_REXX_H */
  35873. diff -rup --new-file baseline/fsf/emacs18/src/smakefile amiga/fsf/emacs18/src/smakefile
  35874. --- baseline/fsf/emacs18/src/smakefile    Wed Dec 31 17:00:00 1969
  35875. +++ amiga/fsf/emacs18/src/smakefile    Sat Sep 28 00:00:00 1996
  35876. @@ -0,0 +1,45 @@
  35877. +CPP = /cpp/cpp -DAMIGA
  35878. +MAKE = smake  # BSD doesn't have it as a default.
  35879. +#Note: an alternative is  CPP = /lib/cpp
  35880. +
  35881. +all: xmakefile doall
  35882. +
  35883. +doall:
  35884. +    $(MAKE) $(MAKEOVERRIDES) -f xmakefile ${MFLAGS} all
  35885. +
  35886. +#This is used in making a distribution.
  35887. +#Do not use it on development directories!
  35888. +distclean:
  35889. +    -delete force paths.h config.h emacs-* temacs xemacs xmakefile \
  35890. +   *! @* *.o
  35891. +
  35892. +clean:
  35893. +    -delete force temacs xemacs xmakefile @* *.o
  35894. +
  35895. +xemacs: xmakefile doxemacs
  35896. +
  35897. +doxemacs:
  35898. +    $(MAKE) $(MAKEOVERRIDES) -f xmakefile ${MFLAGS} xemacs
  35899. +
  35900. +temacs: xmakefile dotemacs
  35901. +
  35902. +dotemacs:
  35903. +    $(MAKE) $(MAKEOVERRIDES) -f xmakefile ${MFLAGS} temacs
  35904. +
  35905. +demacs: xmakefile dodemacs
  35906. +
  35907. +dodemacs:
  35908. +    $(MAKE) $(MAKEOVERRIDES) -f xmakefile ${MFLAGS} demacs
  35909. +
  35910. +# If you have a problem with cc -E here, changing
  35911. +# the definition of CPP above may fix it.
  35912. +xmakefile: ymakefile config.h dostrip
  35913. +    -delete force xmakefile
  35914. +    ${CPP} ymakefile > t:ymkf
  35915. +    dostrip <t:ymkf >xmakefile
  35916. +
  35917. +dostrip: dostrip.c
  35918. +    sc link dostrip
  35919. +
  35920. +tags:
  35921. +    etags [a-z]*.h [a-z]*.c /lisp/[a-z]*.el
  35922. diff -rup --new-file baseline/fsf/emacs18/src/term.c amiga/fsf/emacs18/src/term.c
  35923. --- baseline/fsf/emacs18/src/term.c    Fri Jan  3 00:46:47 1992
  35924. +++ amiga/fsf/emacs18/src/term.c    Sat Sep 28 00:00:00 1996
  35925. @@ -161,7 +161,7 @@ static int se_is_so;    /* 1 if same string
  35926.     or'd with 0100.  Zero if no standout marker at all.  */
  35927.  /* used iff TN_standout_width >= 0. */
  35928.  char *chars_wasted;
  35929. -static char *copybuf;
  35930. +char *copybuf;
  35931.  
  35932.  /* nonzero means supposed to write text in standout mode.  */
  35933.  int standout_requested;
  35934. diff -rup --new-file baseline/fsf/emacs18/src/termcap.c amiga/fsf/emacs18/src/termcap.c
  35935. --- baseline/fsf/emacs18/src/termcap.c    Tue Jan  8 11:08:50 1991
  35936. +++ amiga/fsf/emacs18/src/termcap.c    Sat Sep 28 00:00:00 1996
  35937. @@ -30,6 +30,7 @@ what you give them.   Help stamp out sof
  35938.  
  35939.  #ifdef emacs
  35940.  #include "config.h"
  35941. +#include "paths.h"
  35942.  #endif
  35943.  
  35944.  #ifndef BUFSIZE
  35945. @@ -344,7 +345,11 @@ tgetent (bp, name)
  35946.  #ifdef VMS
  35947.    filep = tem && legal_filename_p (tem);
  35948.  #else
  35949. +#ifdef AMIGA
  35950. +  filep = tem != 0;            /* Always assume that it is a file */
  35951. +#else
  35952.    filep = tem && (*tem == '/');
  35953. +#endif
  35954.  #endif /* VMS */
  35955.  
  35956.    /* If tem is non-null and starts with / (in the un*x case, that is),
  35957. @@ -374,11 +379,7 @@ tgetent (bp, name)
  35958.      indirect = (char *) 0;
  35959.  
  35960.    if (!tem)
  35961. -#ifdef VMS
  35962. -    tem = "emacs_library:[etc]termcap.dat";
  35963. -#else
  35964. -    tem = "/etc/termcap";
  35965. -#endif
  35966. +    tem = PATH_TERMCAP;
  35967.  
  35968.    /* Here we know we must search a file and tem has its name.  */
  35969.  
  35970. diff -rup --new-file baseline/fsf/emacs18/src/tparam.c amiga/fsf/emacs18/src/tparam.c
  35971. --- baseline/fsf/emacs18/src/tparam.c    Tue Jan  8 11:09:27 1991
  35972. +++ amiga/fsf/emacs18/src/tparam.c    Sat Sep 28 00:00:00 1996
  35973. @@ -258,7 +258,7 @@ tparam1 (string, outstring, len, up, lef
  35974.    return outstring;
  35975.  }
  35976.  
  35977. -#ifdef DEBUG
  35978. +#ifdef TPARAM_DEBUG
  35979.  
  35980.  main (argc, argv)
  35981.       int argc;
  35982. @@ -274,4 +274,4 @@ main (argc, argv)
  35983.    return 0;
  35984.  }
  35985.  
  35986. -#endif /* DEBUG */
  35987. +#endif /* TPARAM_DEBUG */
  35988. diff -rup --new-file baseline/fsf/emacs18/src/xdisp.c amiga/fsf/emacs18/src/xdisp.c
  35989. --- baseline/fsf/emacs18/src/xdisp.c    Fri Jul 24 12:08:13 1992
  35990. +++ amiga/fsf/emacs18/src/xdisp.c    Sat Sep 28 00:00:00 1996
  35991. @@ -31,6 +31,17 @@ the Free Software Foundation, 675 Mass A
  35992.  #include "commands.h"
  35993.  #include "macros.h"
  35994.  
  35995. +#define MAX_WIN_LINE 64
  35996. +static int win_line_bufpos[MAX_WIN_LINE];
  35997. +static int win_line_modified;
  35998. +static struct buffer *win_line_buffer;
  35999. +#define CLEAR_WIN_LINE() (win_line_buffer = 0)
  36000. +
  36001. +#ifdef EIGHT_BIT
  36002. +char visible[256];        /* visible[i] is true if character i is
  36003. +                   displayable */
  36004. +#endif
  36005. +
  36006.  extern int interrupt_input;
  36007.  extern int command_loop_level;
  36008.  
  36009. @@ -275,7 +286,10 @@ display_echo_area_contents ()
  36010.      windows_or_buffers_changed++;
  36011.  
  36012.    if (EQ (minibuf_window, selected_window))
  36013. -    this_line_bufpos = 0;
  36014. +    {
  36015. +      this_line_bufpos = 0;
  36016. +      CLEAR_WIN_LINE();
  36017. +    }
  36018.  
  36019.    prev_echo_area_contents = echo_area_contents;
  36020.  }
  36021. @@ -327,6 +341,8 @@ redisplay ()
  36022.        must_finish = 1;
  36023.      }
  36024.  
  36025. +  if (windows_or_buffers_changed) CLEAR_WIN_LINE();
  36026. +
  36027.    if (clip_changed || windows_or_buffers_changed)
  36028.      update_mode_lines++;
  36029.  
  36030. @@ -453,6 +469,7 @@ update: 
  36031.       Also, don't forget to check every line to update the arrow.  */
  36032.    if (pause)
  36033.      {
  36034. +      CLEAR_WIN_LINE();
  36035.        this_line_bufpos = 0;
  36036.        if (!NULL (last_arrow_position))
  36037.      {
  36038. @@ -709,9 +726,29 @@ redisplay_window (window, just_this_one)
  36039.        && (just_this_one || XFASTINT (w->width) == screen_width)
  36040.        && !EQ (window, minibuf_window))
  36041.      {
  36042. -      pos = *compute_motion (startp, 0, (hscroll ? 1 - hscroll : 0),
  36043. +      int *wlb;
  36044. +      int line, best_startp, best_vpos;
  36045. +
  36046. +      best_startp = startp; best_vpos = 0;
  36047. +      if (win_line_buffer && BUF_MODIFF(win_line_buffer) > win_line_modified)
  36048. +      CLEAR_WIN_LINE();
  36049. +      if (current_buffer == win_line_buffer && current_buffer == XBUFFER (w->buffer))
  36050. +        {
  36051. +      /* Try & find line to start from */
  36052. +      wlb = win_line_bufpos; line = 0;
  36053. +      while (line < MAX_WIN_LINE)
  36054. +        {
  36055. +          if (*wlb && point > *wlb && *wlb > best_startp)
  36056. +            {
  36057. +          best_startp = *wlb;
  36058. +          best_vpos = line;
  36059. +            }
  36060. +          line++; wlb++;
  36061. +        }
  36062. +        }
  36063. +      pos = *compute_motion (best_startp, best_vpos, (hscroll ? 1 - hscroll : 0),
  36064.                  point, height + 1, 10000, width, hscroll,
  36065. -                pos_tab_offset (w, startp));
  36066. +                pos_tab_offset (w, best_startp));
  36067.  
  36068.        if (pos.vpos < height)
  36069.      {
  36070. @@ -843,6 +880,8 @@ try_window (window, pos)
  36071.  
  36072.    struct position val;
  36073.  
  36074. +  if (XBUFFER(w->buffer) == win_line_buffer) CLEAR_WIN_LINE();
  36075. +
  36076.    Fset_marker (w->start, make_number (pos), Qnil);
  36077.  
  36078.    point_vpos = -1;
  36079. @@ -908,6 +947,8 @@ try_window_id (window)
  36080.    int delta;
  36081.    int tab_offset, epto;
  36082.  
  36083. +  if (XBUFFER(w->buffer) == win_line_buffer) CLEAR_WIN_LINE();
  36084. +
  36085.    if (GPT - BEG < beg_unchanged)
  36086.      beg_unchanged = GPT - BEG;
  36087.    if (Z - GPT < end_unchanged)
  36088. @@ -1334,6 +1375,7 @@ display_text_line (w, start, vpos, hpos,
  36089.    pause = pos;
  36090.    while (p1 < endp)
  36091.      {
  36092. +restart:
  36093.        p1prev = p1;
  36094.        if (pos == pause)
  36095.      {
  36096. @@ -1354,13 +1396,44 @@ display_text_line (w, start, vpos, hpos,
  36097.        p = &FETCH_CHAR (pos);
  36098.      }
  36099.        c = *p++;
  36100. +#ifdef EIGHT_BIT
  36101. +      if (visible[c])
  36102. +#else
  36103.        if (c >= 040 && c < 0177)
  36104. -    {
  36105. +#endif
  36106. +      /* This optimises the frequent part (displayable characters) of
  36107. +     this inner loop. If the conditions aren't met, return to old
  36108. +     inner loop. */
  36109. +        {
  36110.        if (p1 >= startp)
  36111. -        *p1 = c;
  36112. -      p1++;
  36113. -    }
  36114. -      else if (c == '\n')
  36115. +        {
  36116. +          do
  36117. +            {
  36118. +          *p1++ = c;
  36119. +          pos++;
  36120. +          if (p1 >= endp)
  36121. +            {
  36122. +              p1prev = p1 - 1;
  36123. +              goto done;
  36124. +            }
  36125. +          if (pos == pause) goto restart;
  36126. +          c = *p++;
  36127. +            }
  36128. +#ifdef EIGHT_BIT
  36129. +          while (visible[c]);
  36130. +#else
  36131. +          while (c >= 040 && c < 0177);
  36132. +#endif
  36133. +          p1prev = p1;
  36134. +        }
  36135. +      else
  36136. +        {
  36137. +          p1++;
  36138. +          pos++;
  36139. +          goto restart;
  36140. +        }
  36141. +        }
  36142. +      if (c == '\n')
  36143.      {
  36144.        invis = 0;
  36145.        while (pos < end
  36146. @@ -1434,6 +1507,7 @@ display_text_line (w, start, vpos, hpos,
  36147.      }
  36148.        pos++;
  36149.      }
  36150. +done:
  36151.  
  36152.    val.hpos = - XINT (w->hscroll);
  36153.    if (val.hpos)
  36154. @@ -1525,6 +1599,25 @@ display_text_line (w, start, vpos, hpos,
  36155.          this_line_bufpos = 0;
  36156.      }
  36157.      }
  36158. +  /* Save positions of all lines of current window */
  36159. +  if (w == XWINDOW(selected_window) && vpos < MAX_WIN_LINE)
  36160. +  {
  36161. +      /* Line is not continued and did not start in middle of character */
  36162. +      if (hpos == (XINT (w->hscroll) ? 1 - XINT (w->hscroll) : 0)
  36163. +      && val.vpos)
  36164. +      {
  36165. +      if (current_buffer != win_line_buffer ||
  36166. +          !(win_line_modified >= MODIFF))
  36167. +      {
  36168. +          win_line_buffer = current_buffer;
  36169. +          win_line_modified = MODIFF;
  36170. +          bzero(win_line_bufpos, sizeof win_line_bufpos);
  36171. +      }
  36172. +      win_line_bufpos[vpos - XINT (w->top)] = start;
  36173. +      }
  36174. +      else
  36175. +      win_line_bufpos[vpos - XINT (w->top)] = 0;
  36176. +  }
  36177.  
  36178.    /* If hscroll and line not empty, insert truncation-at-left marker */
  36179.    if (hscroll && lastpos != start)
  36180. @@ -1994,7 +2087,11 @@ display_string (w, vpos, string, hpos, t
  36181.      {
  36182.        c = *string++;
  36183.        if (!c) break;
  36184. +#ifdef EIGHT_BIT
  36185. +      if (visible[c])
  36186. +#else
  36187.        if (c >= 040 && c < 0177)
  36188. +#endif
  36189.      {
  36190.        if (p1 >= start)
  36191.          *p1 = c;
  36192. @@ -2109,7 +2206,11 @@ init_xdisp ()
  36193.    register
  36194.  #endif COMPILER_REGISTER_BUG
  36195.      struct window *mini_w;
  36196. +#ifdef EIGHT_BIT
  36197. +  int i;
  36198. +#endif
  36199.  
  36200. +  CLEAR_WIN_LINE();
  36201.    this_line_bufpos = 0;
  36202.  
  36203.    mini_w = XWINDOW (minibuf_window);
  36204. @@ -2128,4 +2229,10 @@ init_xdisp ()
  36205.        XFASTINT (XWINDOW (root_window)->width) = screen_width;
  36206.        XFASTINT (mini_w->width) = screen_width;
  36207.      }
  36208. +#ifdef EIGHT_BIT
  36209. +  for (i = 040; i < 0177; i++) visible[i] = 1;
  36210. +#ifdef AMIGA
  36211. +  for (i = 0240; i <= 0377; i++) visible[i] = 1;
  36212. +#endif
  36213. +#endif
  36214.  }
  36215. diff -rup --new-file baseline/fsf/emacs18/src/ymakefile amiga/fsf/emacs18/src/ymakefile
  36216. --- baseline/fsf/emacs18/src/ymakefile    Tue Oct  6 11:44:28 1992
  36217. +++ amiga/fsf/emacs18/src/ymakefile    Sat Sep 28 00:00:00 1996
  36218. @@ -18,7 +18,15 @@ along with GNU Emacs; see the file COPYI
  36219.  the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  36220.  
  36221.  
  36222. +#ifdef amiga
  36223. +#undef amiga
  36224. +#endif
  36225. +
  36226. +#ifdef AMIGA
  36227. +dot =
  36228. +#else
  36229.  dot = .
  36230. +#endif
  36231.  /* on Xenix, replace double-dot below with $(dot)$(dot) */
  36232.  lispdir = $(dot)$(dot)/lisp/
  36233.  etcdir = $(dot)$(dot)/etc/
  36234. @@ -161,7 +169,7 @@ LD = $(CC)
  36235.  #define LINKER gcc -nostdlib
  36236.  #else
  36237.  #define LINKER ld
  36238. -#endif 
  36239. +#endif
  36240.  #endif /* not ORDINARY_LINK */
  36241.  #endif /* no LINKER */
  36242.  
  36243. @@ -191,7 +199,11 @@ LOCALCPP= localcpp
  36244.  SHORT= shortnames
  36245.  #endif /* SHORTNAMES */
  36246.  
  36247. +#ifdef AMIGA
  36248. +CFLAGS= C_DEBUG_SWITCH def emacs $(MYCPPFLAG) C_SWITCH_MACHINE C_SWITCH_SYSTEM C_SWITCH_X_MACHINE C_SWITCH_X_SYSTEM
  36249. +#else
  36250.  CFLAGS= C_DEBUG_SWITCH -Demacs $(MYCPPFLAG) C_SWITCH_MACHINE C_SWITCH_SYSTEM C_SWITCH_X_MACHINE C_SWITCH_X_SYSTEM
  36251. +#endif
  36252.  /* DO NOT use -R.  There is a special hack described in lastfile.c
  36253.     which is used instead.  Some initialized data areas are modified
  36254.     at initial startup, then labeled as part of the text area when
  36255. @@ -258,7 +270,7 @@ GNULIB_VAR = LIB_GCC
  36256.  GNULIB_VAR = `if [ -f LIB_GCC ] ; then echo LIB_GCC; else echo; fi`
  36257.  #endif /* __GNUC__ <= 1 */
  36258.  #else
  36259. -GNULIB_VAR = 
  36260. +GNULIB_VAR =
  36261.  #endif
  36262.  
  36263.  #ifdef MAINTAIN_ENVIRONMENT
  36264. @@ -270,11 +282,19 @@ environobj = environ.o
  36265.  #define UNEXEC unexec.o
  36266.  #endif
  36267.  
  36268. +termobjs= term.o cm.o
  36269. +
  36270. +#ifdef AMIGA
  36271. +SYSDEP= amiga_sysdep.o
  36272. +#else
  36273. +SYSDEP= sysdep.o
  36274. +#endif
  36275. +
  36276.  /* lastfile must follow all files
  36277.     whose initialized data areas should be dumped as pure by dump-emacs. */
  36278.  obj=    dispnew.o scroll.o xdisp.o window.o \
  36279. -    term.o cm.o $(XOBJ) \
  36280. -    emacs.o keyboard.o macros.o keymap.o sysdep.o \
  36281. +    $(termobjs) $(XOBJ) \
  36282. +    emacs.o keyboard.o macros.o keymap.o $(SYSDEP) \
  36283.      buffer.o filelock.o insdel.o marker.o \
  36284.      minibuf.o fileio.o dired.o filemode.o \
  36285.      cmds.o casefiddle.o indent.o search.o regex.o undo.o \
  36286. @@ -360,17 +380,43 @@ xemacs: temacs ${etcdir}DOC ${lisp}
  36287.  #ifdef CANNOT_DUMP
  36288.      mv temacs xemacs
  36289.  #else
  36290. +#ifdef AMIGA
  36291. +    -delete ${etcdir}EMACS-DATA xemacs force
  36292. +    temacs -nl -batch -l inc-vers
  36293. +    temacs -nl -batch -l loadup.el dump
  36294. +    -touch xemacs
  36295. +    -delete /temacs force
  36296. +    makelink from /temacs temacs
  36297. +#else
  36298.      ./temacs -batch -l inc-vers
  36299.      ./temacs -batch -l loadup.el dump
  36300. +#endif /* not AMIGA */
  36301.  #endif /* not CANNOT_DUMP */
  36302.  #endif /* not HAVE_SHM */
  36303.  
  36304.  ${etcdir}DOC: ${etcdir}make-docfile ${obj} ${lisp}
  36305. +#ifdef AMIGA
  36306. +REDIRECT_IN= <
  36307. +    -delete force ${etcdir}DOC
  36308. +    ${etcdir}make-docfile >${etcdir}DOC $(REDIRECT_IN) < <
  36309. +${obj}
  36310. +${lisp}
  36311. +${lispdir}version.el
  36312. +${lispdir}amiga-menu.elc ${lispdir}amiga-init.elc ${lispdir}amiga-mouse.elc
  36313. +OBJECTS_SYSTEM
  36314. +<
  36315. +#else
  36316.      rm -f ${etcdir}DOC
  36317.      ${etcdir}make-docfile ${obj} ${lisp} ${lispdir}version.el > ${etcdir}DOC
  36318. +#endif
  36319.  
  36320. +#ifdef AMIGA
  36321. +${etcdir}make-docfile: ${etcdir}make-docfile.c
  36322. +    sc link /etc/make-docfile
  36323. +#else
  36324.  ${etcdir}make-docfile:
  36325.      cd ${etcdir}; ${MAKE} ${MFLAGS} make-docfile
  36326. +#endif
  36327.  
  36328.  /* Some systems define this to cause parallel Make-ing.  */
  36329.  #ifndef MAKE_PARALLEL
  36330. @@ -378,7 +424,30 @@ ${etcdir}make-docfile:
  36331.  #endif
  36332.  
  36333.  temacs: MAKE_PARALLEL $(LOCALCPP) $(SHORT) $(STARTFILES) $(OLDXMENU) ${obj} ${otherobj} OBJECTS_SYSTEM OBJECTS_MACHINE
  36334. +#ifdef AMIGA
  36335. +    slink <with <
  36336. +from ${STARTFILES} $(obj) OBJECTS_SYSTEM OBJECTS_MACHINE $(otherobj)
  36337. +to temacs
  36338. +lib LIB_STANDARD
  36339. +nodebug
  36340. +batch
  36341. +<
  36342. +#endif
  36343. +
  36344. +demacs: MAKE_PARALLEL $(LOCALCPP) $(SHORT) $(STARTFILES) $(OLDXMENU) ${obj} ${otherobj} OBJECTS_SYSTEM OBJECTS_MACHINE
  36345. +#ifdef AMIGA
  36346. +    slink <with <
  36347. +from ${STARTFILES} $(obj) OBJECTS_SYSTEM OBJECTS_MACHINE $(otherobj)
  36348. +to demacs
  36349. +lib LIB_STANDARD
  36350. +map ram:emacs.map,h,x
  36351. +addsym
  36352. +swidth 16
  36353. +batch
  36354. +<
  36355. +#else
  36356.      $(LD) ${STARTFLAGS} ${LDFLAGS} -o temacs ${STARTFILES} ${obj} ${otherobj} OBJECTS_SYSTEM OBJECTS_MACHINE ${LIBES}
  36357. +#endif
  36358.  
  36359.  /* These are needed for C compilation, on the systems that need them */
  36360.  #ifdef NEED_CPP
  36361. @@ -460,51 +529,51 @@ alloca.o : alloca.s config.h
  36362.     it is so often changed in ways that do not require any recompilation
  36363.     and so rarely changed in ways that do require any.  */
  36364.  
  36365. -abbrev.o : abbrev.c buffer.h commands.h config.h 
  36366. -buffer.o : buffer.c syntax.h buffer.h commands.h window.h config.h 
  36367. -callint.o : callint.c window.h commands.h buffer.h config.h 
  36368. -callproc.o : callproc.c paths.h buffer.h commands.h config.h 
  36369. -casefiddle.o : casefiddle.c syntax.h commands.h buffer.h config.h 
  36370. +abbrev.o : abbrev.c buffer.h commands.h config.h
  36371. +buffer.o : buffer.c syntax.h buffer.h commands.h window.h config.h
  36372. +callint.o : callint.c window.h commands.h buffer.h config.h
  36373. +callproc.o : callproc.c paths.h buffer.h commands.h config.h
  36374. +casefiddle.o : casefiddle.c syntax.h commands.h buffer.h config.h
  36375.  cm.o : cm.c cm.h termhooks.h config.h
  36376. -cmds.o : cmds.c syntax.h buffer.h commands.h config.h 
  36377. +cmds.o : cmds.c syntax.h buffer.h commands.h config.h
  36378.  crt0.o : crt0.c config.h
  36379.      $(CC) -c $(CFLAGS) C_SWITCH_ASM crt0.c
  36380.  dired.o : dired.c commands.h buffer.h config.h regex.h
  36381.  dispnew.o : dispnew.c commands.h window.h buffer.h dispextern.h termchar.h termopts.h cm.h config.h lisp.h
  36382.  doc.o : doc.c buffer.h config.h paths.h
  36383.  doprnt.o : doprnt.c
  36384. -editfns.o : editfns.c window.h buffer.h config.h 
  36385. -emacs.o : emacs.c commands.h config.h 
  36386. +editfns.o : editfns.c window.h buffer.h config.h
  36387. +emacs.o : emacs.c commands.h config.h
  36388.  #ifdef MAINTAIN_ENVIRONMENT
  36389.  environ.o : environ.c buffer.h commands.h config.h
  36390.  #endif /* MAINTAIN_ENVIRONMENT */
  36391. -fileio.o : fileio.c window.h buffer.h config.h 
  36392. +fileio.o : fileio.c window.h buffer.h config.h
  36393.  filelock.o : filelock.c buffer.h paths.h config.h
  36394. -filemode.o : filemode.c 
  36395. +filemode.o : filemode.c
  36396.  indent.o : indent.c window.h indent.h buffer.h config.h termchar.h termopts.h
  36397. -insdel.o : insdel.c window.h buffer.h config.h 
  36398. -keyboard.o : keyboard.c termchar.h termhooks.h termopts.h buffer.h commands.h window.h macros.h config.h 
  36399. -keymap.o : keymap.c buffer.h commands.h config.h 
  36400. -lastfile.o : lastfile.c 
  36401. +insdel.o : insdel.c window.h buffer.h config.h
  36402. +keyboard.o : keyboard.c termchar.h termhooks.h termopts.h buffer.h commands.h window.h macros.h config.h
  36403. +keymap.o : keymap.c buffer.h commands.h config.h
  36404. +lastfile.o : lastfile.c
  36405.  macros.o : macros.c window.h buffer.h commands.h macros.h config.h
  36406.  malloc.o : malloc.c config.h
  36407. -marker.o : marker.c buffer.h config.h 
  36408. -minibuf.o : minibuf.c syntax.h window.h buffer.h commands.h config.h 
  36409. +marker.o : marker.c buffer.h config.h
  36410. +minibuf.o : minibuf.c syntax.h window.h buffer.h commands.h config.h
  36411.  mocklisp.o : mocklisp.c buffer.h config.h
  36412. -process.o : process.c process.h buffer.h window.h termhooks.h termopts.h commands.h dispextern.h config.h 
  36413. -regex.o : regex.c syntax.h buffer.h config.h regex.h 
  36414. +process.o : process.c process.h buffer.h window.h termhooks.h termopts.h commands.h dispextern.h config.h
  36415. +regex.o : regex.c syntax.h buffer.h config.h regex.h
  36416.  scroll.o : scroll.c termchar.h config.h dispextern.h termhooks.h
  36417. -search.o : search.c regex.h commands.h buffer.h syntax.h config.h 
  36418. -syntax.o : syntax.c syntax.h buffer.h commands.h config.h 
  36419. +search.o : search.c regex.h commands.h buffer.h syntax.h config.h
  36420. +syntax.o : syntax.c syntax.h buffer.h commands.h config.h
  36421.  sysdep.o : sysdep.c config.h dispextern.h termhooks.h termchar.h termopts.h window.h
  36422.  term.o : term.c termchar.h termhooks.h termopts.h config.h cm.h
  36423.  termcap.o : termcap.c config.h
  36424.  terminfo.o : terminfo.c config.h
  36425.  tparam.o : tparam.c config.h
  36426. -undo.o : undo.c buffer.h commands.h config.h 
  36427. +undo.o : undo.c buffer.h commands.h config.h
  36428.  UNEXEC : config.h getpagesize.h
  36429.  window.o : window.c indent.h commands.h window.h buffer.h config.h termchar.h
  36430. -xdisp.o : xdisp.c macros.h commands.h indent.h buffer.h dispextern.h termchar.h window.h config.h 
  36431. +xdisp.o : xdisp.c macros.h commands.h indent.h buffer.h dispextern.h termchar.h window.h config.h
  36432.  xfns.o : xfns.c xterm.h window.h config.h
  36433.  xmenu.o : xmenu.c xterm.h window.h config.h
  36434.  xterm.o : xterm.c xterm.h termhooks.h termopts.h termchar.h \
  36435. @@ -517,13 +586,13 @@ x11term.o : x11term.c x11term.h termhook
  36436.  
  36437.  /* The files of Lisp proper */
  36438.  
  36439. -alloc.o : alloc.c window.h buffer.h config.h 
  36440. -bytecode.o : bytecode.c buffer.h config.h 
  36441. -data.o : data.c buffer.h config.h 
  36442. +alloc.o : alloc.c window.h buffer.h config.h
  36443. +bytecode.o : bytecode.c buffer.h config.h
  36444. +data.o : data.c buffer.h config.h
  36445.  eval.o : eval.c commands.h config.h
  36446.  fns.o : fns.c buffer.h commands.h config.h
  36447. -print.o : print.c process.h window.h buffer.h dispextern.h termchar.h config.h 
  36448. -lread.o : lread.c buffer.h paths.h config.h 
  36449. +print.o : print.c process.h window.h buffer.h dispextern.h termchar.h config.h
  36450. +lread.o : lread.c buffer.h paths.h config.h
  36451.  
  36452.  /* System-specific programs to be made.
  36453.     OTHER_FILES, OBJECTS_SYSTEM and OBJECTS_MACHINE
  36454. @@ -533,3 +602,18 @@ sunfns.o  : sunfns.c buffer.h config.h
  36455.  
  36456.  ${etcdir}emacstool: ${etcdir}emacstool.c
  36457.      cd ${etcdir}; ${MAKE} ${MFLAGS} emacstool
  36458. +
  36459. +SimpleRexx.o: SimpleRexx.c SimpleRexx.h
  36460. +amiga_clipboard.o: amiga_clipboard.c termchar.h amiga.h config.h
  36461. +amiga_dump.o: amiga_dump.c termchar.h buffer.h dispextern.h regex.h amiga.h config.h
  36462. +amiga_menu.o: amiga_menu.c amiga.h config.h
  36463. +amiga_processes.o: amiga_processes.c amiga.h config.h
  36464. +amiga_rexx.o: amiga_rexx.c SimpleRexx.h amiga.h config.h
  36465. +amiga_screen.o: amiga_screen.c termchar.h dispextern.h amiga.h config.h
  36466. +amiga_serial.o: amiga_serial.c amiga.h config.h
  36467. +amiga_sysdep.o: amiga_sysdep.c termopts.h termhooks.h termchar.h dispextern.h \
  36468. +        amiga.h config.h
  36469. +amiga_term.o: amiga_term.c termopts.h termhooks.h  termchar.h config.h
  36470. +amiga_tty.o: amiga_tty.c termhooks.h termchar.h amiga.h config.h
  36471. +amiga_malloc.o: amiga_malloc.c amiga.h config.h
  36472. +    $(CC) $(CFLAGS) parms=both amiga_malloc.c
  36473.