xref: /vim-8.2.3635/src/version.c (revision cc7ff3fc)
1 /* vi:set ts=8 sts=4 sw=4:
2  *
3  * VIM - Vi IMproved		by Bram Moolenaar
4  *
5  * Do ":help uganda"  in Vim to read copying and usage conditions.
6  * Do ":help credits" in Vim to see a list of people who contributed.
7  * See README.txt for an overview of the Vim source code.
8  */
9 
10 #include "vim.h"
11 
12 #ifdef AMIGA
13 # include <time.h>	/* for time() */
14 #endif
15 
16 /*
17  * Vim originated from Stevie version 3.6 (Fish disk 217) by GRWalter (Fred)
18  * It has been changed beyond recognition since then.
19  *
20  * Differences between version 6.x and 7.x can be found with ":help version7".
21  * Differences between version 5.x and 6.x can be found with ":help version6".
22  * Differences between version 4.x and 5.x can be found with ":help version5".
23  * Differences between version 3.0 and 4.x can be found with ":help version4".
24  * All the remarks about older versions have been removed, they are not very
25  * interesting.
26  */
27 
28 #include "version.h"
29 
30 char		*Version = VIM_VERSION_SHORT;
31 static char	*mediumVersion = VIM_VERSION_MEDIUM;
32 
33 #if defined(HAVE_DATE_TIME) || defined(PROTO)
34 # if (defined(VMS) && defined(VAXC)) || defined(PROTO)
35 char	longVersion[sizeof(VIM_VERSION_LONG_DATE) + sizeof(__DATE__)
36 						      + sizeof(__TIME__) + 3];
37 
38     void
39 make_version()
40 {
41     /*
42      * Construct the long version string.  Necessary because
43      * VAX C can't catenate strings in the preprocessor.
44      */
45     strcpy(longVersion, VIM_VERSION_LONG_DATE);
46     strcat(longVersion, __DATE__);
47     strcat(longVersion, " ");
48     strcat(longVersion, __TIME__);
49     strcat(longVersion, ")");
50 }
51 # else
52 char	*longVersion = VIM_VERSION_LONG_DATE __DATE__ " " __TIME__ ")";
53 # endif
54 #else
55 char	*longVersion = VIM_VERSION_LONG;
56 #endif
57 
58 static void list_features __ARGS((void));
59 static void version_msg __ARGS((char *s));
60 
61 static char *(features[]) =
62 {
63 #ifdef HAVE_ACL
64 	"+acl",
65 #else
66 	"-acl",
67 #endif
68 #ifdef AMIGA		/* only for Amiga systems */
69 # ifdef FEAT_ARP
70 	"+ARP",
71 # else
72 	"-ARP",
73 # endif
74 #endif
75 #ifdef FEAT_ARABIC
76 	"+arabic",
77 #else
78 	"-arabic",
79 #endif
80 #ifdef FEAT_AUTOCMD
81 	"+autocmd",
82 #else
83 	"-autocmd",
84 #endif
85 #ifdef FEAT_BEVAL
86 	"+balloon_eval",
87 #else
88 	"-balloon_eval",
89 #endif
90 #ifdef FEAT_BROWSE
91 	"+browse",
92 #else
93 	"-browse",
94 #endif
95 #ifdef NO_BUILTIN_TCAPS
96 	"-builtin_terms",
97 #endif
98 #ifdef SOME_BUILTIN_TCAPS
99 	"+builtin_terms",
100 #endif
101 #ifdef ALL_BUILTIN_TCAPS
102 	"++builtin_terms",
103 #endif
104 #ifdef FEAT_BYTEOFF
105 	"+byte_offset",
106 #else
107 	"-byte_offset",
108 #endif
109 #ifdef FEAT_CINDENT
110 	"+cindent",
111 #else
112 	"-cindent",
113 #endif
114 #ifdef FEAT_CLIENTSERVER
115 	"+clientserver",
116 #else
117 	"-clientserver",
118 #endif
119 #ifdef FEAT_CLIPBOARD
120 	"+clipboard",
121 #else
122 	"-clipboard",
123 #endif
124 #ifdef FEAT_CMDL_COMPL
125 	"+cmdline_compl",
126 #else
127 	"-cmdline_compl",
128 #endif
129 #ifdef FEAT_CMDHIST
130 	"+cmdline_hist",
131 #else
132 	"-cmdline_hist",
133 #endif
134 #ifdef FEAT_CMDL_INFO
135 	"+cmdline_info",
136 #else
137 	"-cmdline_info",
138 #endif
139 #ifdef FEAT_COMMENTS
140 	"+comments",
141 #else
142 	"-comments",
143 #endif
144 #ifdef FEAT_CONCEAL
145 	"+conceal",
146 #else
147 	"-conceal",
148 #endif
149 #ifdef FEAT_CRYPT
150 	"+cryptv",
151 #else
152 	"-cryptv",
153 #endif
154 #ifdef FEAT_CSCOPE
155 	"+cscope",
156 #else
157 	"-cscope",
158 #endif
159 #ifdef FEAT_CURSORBIND
160 	"+cursorbind",
161 #else
162 	"-cursorbind",
163 #endif
164 #ifdef CURSOR_SHAPE
165 	"+cursorshape",
166 #else
167 	"-cursorshape",
168 #endif
169 #if defined(FEAT_CON_DIALOG) && defined(FEAT_GUI_DIALOG)
170 	"+dialog_con_gui",
171 #else
172 # if defined(FEAT_CON_DIALOG)
173 	"+dialog_con",
174 # else
175 #  if defined(FEAT_GUI_DIALOG)
176 	"+dialog_gui",
177 #  else
178 	"-dialog",
179 #  endif
180 # endif
181 #endif
182 #ifdef FEAT_DIFF
183 	"+diff",
184 #else
185 	"-diff",
186 #endif
187 #ifdef FEAT_DIGRAPHS
188 	"+digraphs",
189 #else
190 	"-digraphs",
191 #endif
192 #ifdef FEAT_GUI_W32
193 # ifdef FEAT_DIRECTX
194 	"+directx",
195 # else
196 	"-directx",
197 # endif
198 #endif
199 #ifdef FEAT_DND
200 	"+dnd",
201 #else
202 	"-dnd",
203 #endif
204 #ifdef EBCDIC
205 	"+ebcdic",
206 #else
207 	"-ebcdic",
208 #endif
209 #ifdef FEAT_EMACS_TAGS
210 	"+emacs_tags",
211 #else
212 	"-emacs_tags",
213 #endif
214 #ifdef FEAT_EVAL
215 	"+eval",
216 #else
217 	"-eval",
218 #endif
219 #ifdef FEAT_EX_EXTRA
220 	"+ex_extra",
221 #else
222 	"-ex_extra",
223 #endif
224 #ifdef FEAT_SEARCH_EXTRA
225 	"+extra_search",
226 #else
227 	"-extra_search",
228 #endif
229 #ifdef FEAT_FKMAP
230 	"+farsi",
231 #else
232 	"-farsi",
233 #endif
234 #ifdef FEAT_SEARCHPATH
235 	"+file_in_path",
236 #else
237 	"-file_in_path",
238 #endif
239 #ifdef FEAT_FIND_ID
240 	"+find_in_path",
241 #else
242 	"-find_in_path",
243 #endif
244 #ifdef FEAT_FLOAT
245 	"+float",
246 #else
247 	"-float",
248 #endif
249 #ifdef FEAT_FOLDING
250 	"+folding",
251 #else
252 	"-folding",
253 #endif
254 #ifdef FEAT_FOOTER
255 	"+footer",
256 #else
257 	"-footer",
258 #endif
259 	    /* only interesting on Unix systems */
260 #if !defined(USE_SYSTEM) && defined(UNIX)
261 	"+fork()",
262 #endif
263 #ifdef FEAT_GETTEXT
264 # ifdef DYNAMIC_GETTEXT
265 	"+gettext/dyn",
266 # else
267 	"+gettext",
268 # endif
269 #else
270 	"-gettext",
271 #endif
272 #ifdef FEAT_HANGULIN
273 	"+hangul_input",
274 #else
275 	"-hangul_input",
276 #endif
277 #if (defined(HAVE_ICONV_H) && defined(USE_ICONV)) || defined(DYNAMIC_ICONV)
278 # ifdef DYNAMIC_ICONV
279 	"+iconv/dyn",
280 # else
281 	"+iconv",
282 # endif
283 #else
284 	"-iconv",
285 #endif
286 #ifdef FEAT_INS_EXPAND
287 	"+insert_expand",
288 #else
289 	"-insert_expand",
290 #endif
291 #ifdef FEAT_JUMPLIST
292 	"+jumplist",
293 #else
294 	"-jumplist",
295 #endif
296 #ifdef FEAT_KEYMAP
297 	"+keymap",
298 #else
299 	"-keymap",
300 #endif
301 #ifdef FEAT_LANGMAP
302 	"+langmap",
303 #else
304 	"-langmap",
305 #endif
306 #ifdef FEAT_LIBCALL
307 	"+libcall",
308 #else
309 	"-libcall",
310 #endif
311 #ifdef FEAT_LINEBREAK
312 	"+linebreak",
313 #else
314 	"-linebreak",
315 #endif
316 #ifdef FEAT_LISP
317 	"+lispindent",
318 #else
319 	"-lispindent",
320 #endif
321 #ifdef FEAT_LISTCMDS
322 	"+listcmds",
323 #else
324 	"-listcmds",
325 #endif
326 #ifdef FEAT_LOCALMAP
327 	"+localmap",
328 #else
329 	"-localmap",
330 #endif
331 #ifdef FEAT_LUA
332 # ifdef DYNAMIC_LUA
333 	"+lua/dyn",
334 # else
335 	"+lua",
336 # endif
337 #else
338 	"-lua",
339 #endif
340 #ifdef FEAT_MENU
341 	"+menu",
342 #else
343 	"-menu",
344 #endif
345 #ifdef FEAT_SESSION
346 	"+mksession",
347 #else
348 	"-mksession",
349 #endif
350 #ifdef FEAT_MODIFY_FNAME
351 	"+modify_fname",
352 #else
353 	"-modify_fname",
354 #endif
355 #ifdef FEAT_MOUSE
356 	"+mouse",
357 #  ifdef FEAT_MOUSESHAPE
358 	"+mouseshape",
359 #  else
360 	"-mouseshape",
361 #  endif
362 # else
363 	"-mouse",
364 #endif
365 
366 #if defined(UNIX) || defined(VMS)
367 # ifdef FEAT_MOUSE_DEC
368 	"+mouse_dec",
369 # else
370 	"-mouse_dec",
371 # endif
372 # ifdef FEAT_MOUSE_GPM
373 	"+mouse_gpm",
374 # else
375 	"-mouse_gpm",
376 # endif
377 # ifdef FEAT_MOUSE_JSB
378 	"+mouse_jsbterm",
379 # else
380 	"-mouse_jsbterm",
381 # endif
382 # ifdef FEAT_MOUSE_NET
383 	"+mouse_netterm",
384 # else
385 	"-mouse_netterm",
386 # endif
387 #endif
388 
389 #ifdef __QNX__
390 # ifdef FEAT_MOUSE_PTERM
391 	"+mouse_pterm",
392 # else
393 	"-mouse_pterm",
394 # endif
395 #endif
396 
397 #if defined(UNIX) || defined(VMS)
398 # ifdef FEAT_MOUSE_SGR
399 	"+mouse_sgr",
400 # else
401 	"-mouse_sgr",
402 # endif
403 # ifdef FEAT_SYSMOUSE
404 	"+mouse_sysmouse",
405 # else
406 	"-mouse_sysmouse",
407 # endif
408 # ifdef FEAT_MOUSE_URXVT
409 	"+mouse_urxvt",
410 # else
411 	"-mouse_urxvt",
412 # endif
413 # ifdef FEAT_MOUSE_XTERM
414 	"+mouse_xterm",
415 # else
416 	"-mouse_xterm",
417 # endif
418 #endif
419 
420 #ifdef FEAT_MBYTE_IME
421 # ifdef DYNAMIC_IME
422 	"+multi_byte_ime/dyn",
423 # else
424 	"+multi_byte_ime",
425 # endif
426 #else
427 # ifdef FEAT_MBYTE
428 	"+multi_byte",
429 # else
430 	"-multi_byte",
431 # endif
432 #endif
433 #ifdef FEAT_MULTI_LANG
434 	"+multi_lang",
435 #else
436 	"-multi_lang",
437 #endif
438 #ifdef FEAT_MZSCHEME
439 # ifdef DYNAMIC_MZSCHEME
440 	"+mzscheme/dyn",
441 # else
442 	"+mzscheme",
443 # endif
444 #else
445 	"-mzscheme",
446 #endif
447 #ifdef FEAT_NETBEANS_INTG
448 	"+netbeans_intg",
449 #else
450 	"-netbeans_intg",
451 #endif
452 #ifdef FEAT_GUI_W32
453 # ifdef FEAT_OLE
454 	"+ole",
455 # else
456 	"-ole",
457 # endif
458 #endif
459 #ifdef FEAT_PATH_EXTRA
460 	"+path_extra",
461 #else
462 	"-path_extra",
463 #endif
464 #ifdef FEAT_PERL
465 # ifdef DYNAMIC_PERL
466 	"+perl/dyn",
467 # else
468 	"+perl",
469 # endif
470 #else
471 	"-perl",
472 #endif
473 #ifdef FEAT_PERSISTENT_UNDO
474 	"+persistent_undo",
475 #else
476 	"-persistent_undo",
477 #endif
478 #ifdef FEAT_PRINTER
479 # ifdef FEAT_POSTSCRIPT
480 	"+postscript",
481 # else
482 	"-postscript",
483 # endif
484 	"+printer",
485 #else
486 	"-printer",
487 #endif
488 #ifdef FEAT_PROFILE
489 	"+profile",
490 #else
491 	"-profile",
492 #endif
493 #ifdef FEAT_PYTHON
494 # ifdef DYNAMIC_PYTHON
495 	"+python/dyn",
496 # else
497 	"+python",
498 # endif
499 #else
500 	"-python",
501 #endif
502 #ifdef FEAT_PYTHON3
503 # ifdef DYNAMIC_PYTHON3
504 	"+python3/dyn",
505 # else
506 	"+python3",
507 # endif
508 #else
509 	"-python3",
510 #endif
511 #ifdef FEAT_QUICKFIX
512 	"+quickfix",
513 #else
514 	"-quickfix",
515 #endif
516 #ifdef FEAT_RELTIME
517 	"+reltime",
518 #else
519 	"-reltime",
520 #endif
521 #ifdef FEAT_RIGHTLEFT
522 	"+rightleft",
523 #else
524 	"-rightleft",
525 #endif
526 #ifdef FEAT_RUBY
527 # ifdef DYNAMIC_RUBY
528 	"+ruby/dyn",
529 # else
530 	"+ruby",
531 # endif
532 #else
533 	"-ruby",
534 #endif
535 #ifdef FEAT_SCROLLBIND
536 	"+scrollbind",
537 #else
538 	"-scrollbind",
539 #endif
540 #ifdef FEAT_SIGNS
541 	"+signs",
542 #else
543 	"-signs",
544 #endif
545 #ifdef FEAT_SMARTINDENT
546 	"+smartindent",
547 #else
548 	"-smartindent",
549 #endif
550 #ifdef FEAT_SNIFF
551 	"+sniff",
552 #else
553 	"-sniff",
554 #endif
555 #ifdef STARTUPTIME
556 	"+startuptime",
557 #else
558 	"-startuptime",
559 #endif
560 #ifdef FEAT_STL_OPT
561 	"+statusline",
562 #else
563 	"-statusline",
564 #endif
565 #ifdef FEAT_SUN_WORKSHOP
566 	"+sun_workshop",
567 #else
568 	"-sun_workshop",
569 #endif
570 #ifdef FEAT_SYN_HL
571 	"+syntax",
572 #else
573 	"-syntax",
574 #endif
575 	    /* only interesting on Unix systems */
576 #if defined(USE_SYSTEM) && (defined(UNIX) || defined(__EMX__))
577 	"+system()",
578 #endif
579 #ifdef FEAT_TAG_BINS
580 	"+tag_binary",
581 #else
582 	"-tag_binary",
583 #endif
584 #ifdef FEAT_TAG_OLDSTATIC
585 	"+tag_old_static",
586 #else
587 	"-tag_old_static",
588 #endif
589 #ifdef FEAT_TAG_ANYWHITE
590 	"+tag_any_white",
591 #else
592 	"-tag_any_white",
593 #endif
594 #ifdef FEAT_TCL
595 # ifdef DYNAMIC_TCL
596 	"+tcl/dyn",
597 # else
598 	"+tcl",
599 # endif
600 #else
601 	"-tcl",
602 #endif
603 #if defined(UNIX) || defined(__EMX__)
604 /* only Unix (or OS/2 with EMX!) can have terminfo instead of termcap */
605 # ifdef TERMINFO
606 	"+terminfo",
607 # else
608 	"-terminfo",
609 # endif
610 #else		    /* unix always includes termcap support */
611 # ifdef HAVE_TGETENT
612 	"+tgetent",
613 # else
614 	"-tgetent",
615 # endif
616 #endif
617 #ifdef FEAT_TERMRESPONSE
618 	"+termresponse",
619 #else
620 	"-termresponse",
621 #endif
622 #ifdef FEAT_TEXTOBJ
623 	"+textobjects",
624 #else
625 	"-textobjects",
626 #endif
627 #ifdef FEAT_TITLE
628 	"+title",
629 #else
630 	"-title",
631 #endif
632 #ifdef FEAT_TOOLBAR
633 	"+toolbar",
634 #else
635 	"-toolbar",
636 #endif
637 #ifdef FEAT_USR_CMDS
638 	"+user_commands",
639 #else
640 	"-user_commands",
641 #endif
642 #ifdef FEAT_VERTSPLIT
643 	"+vertsplit",
644 #else
645 	"-vertsplit",
646 #endif
647 #ifdef FEAT_VIRTUALEDIT
648 	"+virtualedit",
649 #else
650 	"-virtualedit",
651 #endif
652 	"+visual",
653 #ifdef FEAT_VISUALEXTRA
654 	"+visualextra",
655 #else
656 	"-visualextra",
657 #endif
658 #ifdef FEAT_VIMINFO
659 	"+viminfo",
660 #else
661 	"-viminfo",
662 #endif
663 #ifdef FEAT_VREPLACE
664 	"+vreplace",
665 #else
666 	"-vreplace",
667 #endif
668 #ifdef FEAT_WILDIGN
669 	"+wildignore",
670 #else
671 	"-wildignore",
672 #endif
673 #ifdef FEAT_WILDMENU
674 	"+wildmenu",
675 #else
676 	"-wildmenu",
677 #endif
678 #ifdef FEAT_WINDOWS
679 	"+windows",
680 #else
681 	"-windows",
682 #endif
683 #ifdef FEAT_WRITEBACKUP
684 	"+writebackup",
685 #else
686 	"-writebackup",
687 #endif
688 #if defined(UNIX) || defined(VMS)
689 # ifdef FEAT_X11
690 	"+X11",
691 # else
692 	"-X11",
693 # endif
694 #endif
695 #ifdef FEAT_XFONTSET
696 	"+xfontset",
697 #else
698 	"-xfontset",
699 #endif
700 #ifdef FEAT_XIM
701 	"+xim",
702 #else
703 	"-xim",
704 #endif
705 #if defined(UNIX) || defined(VMS)
706 # ifdef USE_XSMP_INTERACT
707 	"+xsmp_interact",
708 # else
709 #  ifdef USE_XSMP
710 	"+xsmp",
711 #  else
712 	"-xsmp",
713 #  endif
714 # endif
715 # ifdef FEAT_XCLIPBOARD
716 	"+xterm_clipboard",
717 # else
718 	"-xterm_clipboard",
719 # endif
720 #endif
721 #ifdef FEAT_XTERM_SAVE
722 	"+xterm_save",
723 #else
724 	"-xterm_save",
725 #endif
726 #ifdef WIN3264
727 # ifdef FEAT_XPM_W32
728 	"+xpm_w32",
729 # else
730 	"-xpm_w32",
731 # endif
732 #else
733 # ifdef HAVE_XPM
734 	"+xpm",
735 # else
736 	"-xpm",
737 # endif
738 #endif
739 	NULL
740 };
741 
742 static int included_patches[] =
743 {   /* Add new patch number below this line */
744 /**/
745     1004,
746 /**/
747     1003,
748 /**/
749     1002,
750 /**/
751     1001,
752 /**/
753     1000,
754 /**/
755     999,
756 /**/
757     998,
758 /**/
759     997,
760 /**/
761     996,
762 /**/
763     995,
764 /**/
765     994,
766 /**/
767     993,
768 /**/
769     992,
770 /**/
771     991,
772 /**/
773     990,
774 /**/
775     989,
776 /**/
777     988,
778 /**/
779     987,
780 /**/
781     986,
782 /**/
783     985,
784 /**/
785     984,
786 /**/
787     983,
788 /**/
789     982,
790 /**/
791     981,
792 /**/
793     980,
794 /**/
795     979,
796 /**/
797     978,
798 /**/
799     977,
800 /**/
801     976,
802 /**/
803     975,
804 /**/
805     974,
806 /**/
807     973,
808 /**/
809     972,
810 /**/
811     971,
812 /**/
813     970,
814 /**/
815     969,
816 /**/
817     968,
818 /**/
819     967,
820 /**/
821     966,
822 /**/
823     965,
824 /**/
825     964,
826 /**/
827     963,
828 /**/
829     962,
830 /**/
831     961,
832 /**/
833     960,
834 /**/
835     959,
836 /**/
837     958,
838 /**/
839     957,
840 /**/
841     956,
842 /**/
843     955,
844 /**/
845     954,
846 /**/
847     953,
848 /**/
849     952,
850 /**/
851     951,
852 /**/
853     950,
854 /**/
855     949,
856 /**/
857     948,
858 /**/
859     947,
860 /**/
861     946,
862 /**/
863     945,
864 /**/
865     944,
866 /**/
867     943,
868 /**/
869     942,
870 /**/
871     941,
872 /**/
873     940,
874 /**/
875     939,
876 /**/
877     938,
878 /**/
879     937,
880 /**/
881     936,
882 /**/
883     935,
884 /**/
885     934,
886 /**/
887     933,
888 /**/
889     932,
890 /**/
891     931,
892 /**/
893     930,
894 /**/
895     929,
896 /**/
897     928,
898 /**/
899     927,
900 /**/
901     926,
902 /**/
903     925,
904 /**/
905     924,
906 /**/
907     923,
908 /**/
909     922,
910 /**/
911     921,
912 /**/
913     920,
914 /**/
915     919,
916 /**/
917     918,
918 /**/
919     917,
920 /**/
921     916,
922 /**/
923     915,
924 /**/
925     914,
926 /**/
927     913,
928 /**/
929     912,
930 /**/
931     911,
932 /**/
933     910,
934 /**/
935     909,
936 /**/
937     908,
938 /**/
939     907,
940 /**/
941     906,
942 /**/
943     905,
944 /**/
945     904,
946 /**/
947     903,
948 /**/
949     902,
950 /**/
951     901,
952 /**/
953     900,
954 /**/
955     899,
956 /**/
957     898,
958 /**/
959     897,
960 /**/
961     896,
962 /**/
963     895,
964 /**/
965     894,
966 /**/
967     893,
968 /**/
969     892,
970 /**/
971     891,
972 /**/
973     890,
974 /**/
975     889,
976 /**/
977     888,
978 /**/
979     887,
980 /**/
981     886,
982 /**/
983     885,
984 /**/
985     884,
986 /**/
987     883,
988 /**/
989     882,
990 /**/
991     881,
992 /**/
993     880,
994 /**/
995     879,
996 /**/
997     878,
998 /**/
999     877,
1000 /**/
1001     876,
1002 /**/
1003     875,
1004 /**/
1005     874,
1006 /**/
1007     873,
1008 /**/
1009     872,
1010 /**/
1011     871,
1012 /**/
1013     870,
1014 /**/
1015     869,
1016 /**/
1017     868,
1018 /**/
1019     867,
1020 /**/
1021     866,
1022 /**/
1023     865,
1024 /**/
1025     864,
1026 /**/
1027     863,
1028 /**/
1029     862,
1030 /**/
1031     861,
1032 /**/
1033     860,
1034 /**/
1035     859,
1036 /**/
1037     858,
1038 /**/
1039     857,
1040 /**/
1041     856,
1042 /**/
1043     855,
1044 /**/
1045     854,
1046 /**/
1047     853,
1048 /**/
1049     852,
1050 /**/
1051     851,
1052 /**/
1053     850,
1054 /**/
1055     849,
1056 /**/
1057     848,
1058 /**/
1059     847,
1060 /**/
1061     846,
1062 /**/
1063     845,
1064 /**/
1065     844,
1066 /**/
1067     843,
1068 /**/
1069     842,
1070 /**/
1071     841,
1072 /**/
1073     840,
1074 /**/
1075     839,
1076 /**/
1077     838,
1078 /**/
1079     837,
1080 /**/
1081     836,
1082 /**/
1083     835,
1084 /**/
1085     834,
1086 /**/
1087     833,
1088 /**/
1089     832,
1090 /**/
1091     831,
1092 /**/
1093     830,
1094 /**/
1095     829,
1096 /**/
1097     828,
1098 /**/
1099     827,
1100 /**/
1101     826,
1102 /**/
1103     825,
1104 /**/
1105     824,
1106 /**/
1107     823,
1108 /**/
1109     822,
1110 /**/
1111     821,
1112 /**/
1113     820,
1114 /**/
1115     819,
1116 /**/
1117     818,
1118 /**/
1119     817,
1120 /**/
1121     816,
1122 /**/
1123     815,
1124 /**/
1125     814,
1126 /**/
1127     813,
1128 /**/
1129     812,
1130 /**/
1131     811,
1132 /**/
1133     810,
1134 /**/
1135     809,
1136 /**/
1137     808,
1138 /**/
1139     807,
1140 /**/
1141     806,
1142 /**/
1143     805,
1144 /**/
1145     804,
1146 /**/
1147     803,
1148 /**/
1149     802,
1150 /**/
1151     801,
1152 /**/
1153     800,
1154 /**/
1155     799,
1156 /**/
1157     798,
1158 /**/
1159     797,
1160 /**/
1161     796,
1162 /**/
1163     795,
1164 /**/
1165     794,
1166 /**/
1167     793,
1168 /**/
1169     792,
1170 /**/
1171     791,
1172 /**/
1173     790,
1174 /**/
1175     789,
1176 /**/
1177     788,
1178 /**/
1179     787,
1180 /**/
1181     786,
1182 /**/
1183     785,
1184 /**/
1185     784,
1186 /**/
1187     783,
1188 /**/
1189     782,
1190 /**/
1191     781,
1192 /**/
1193     780,
1194 /**/
1195     779,
1196 /**/
1197     778,
1198 /**/
1199     777,
1200 /**/
1201     776,
1202 /**/
1203     775,
1204 /**/
1205     774,
1206 /**/
1207     773,
1208 /**/
1209     772,
1210 /**/
1211     771,
1212 /**/
1213     770,
1214 /**/
1215     769,
1216 /**/
1217     768,
1218 /**/
1219     767,
1220 /**/
1221     766,
1222 /**/
1223     765,
1224 /**/
1225     764,
1226 /**/
1227     763,
1228 /**/
1229     762,
1230 /**/
1231     761,
1232 /**/
1233     760,
1234 /**/
1235     759,
1236 /**/
1237     758,
1238 /**/
1239     757,
1240 /**/
1241     756,
1242 /**/
1243     755,
1244 /**/
1245     754,
1246 /**/
1247     753,
1248 /**/
1249     752,
1250 /**/
1251     751,
1252 /**/
1253     750,
1254 /**/
1255     749,
1256 /**/
1257     748,
1258 /**/
1259     747,
1260 /**/
1261     746,
1262 /**/
1263     745,
1264 /**/
1265     744,
1266 /**/
1267     743,
1268 /**/
1269     742,
1270 /**/
1271     741,
1272 /**/
1273     740,
1274 /**/
1275     739,
1276 /**/
1277     738,
1278 /**/
1279     737,
1280 /**/
1281     736,
1282 /**/
1283     735,
1284 /**/
1285     734,
1286 /**/
1287     733,
1288 /**/
1289     732,
1290 /**/
1291     731,
1292 /**/
1293     730,
1294 /**/
1295     729,
1296 /**/
1297     728,
1298 /**/
1299     727,
1300 /**/
1301     726,
1302 /**/
1303     725,
1304 /**/
1305     724,
1306 /**/
1307     723,
1308 /**/
1309     722,
1310 /**/
1311     721,
1312 /**/
1313     720,
1314 /**/
1315     719,
1316 /**/
1317     718,
1318 /**/
1319     717,
1320 /**/
1321     716,
1322 /**/
1323     715,
1324 /**/
1325     714,
1326 /**/
1327     713,
1328 /**/
1329     712,
1330 /**/
1331     711,
1332 /**/
1333     710,
1334 /**/
1335     709,
1336 /**/
1337     708,
1338 /**/
1339     707,
1340 /**/
1341     706,
1342 /**/
1343     705,
1344 /**/
1345     704,
1346 /**/
1347     703,
1348 /**/
1349     702,
1350 /**/
1351     701,
1352 /**/
1353     700,
1354 /**/
1355     699,
1356 /**/
1357     698,
1358 /**/
1359     697,
1360 /**/
1361     696,
1362 /**/
1363     695,
1364 /**/
1365     694,
1366 /**/
1367     693,
1368 /**/
1369     692,
1370 /**/
1371     691,
1372 /**/
1373     690,
1374 /**/
1375     689,
1376 /**/
1377     688,
1378 /**/
1379     687,
1380 /**/
1381     686,
1382 /**/
1383     685,
1384 /**/
1385     684,
1386 /**/
1387     683,
1388 /**/
1389     682,
1390 /**/
1391     681,
1392 /**/
1393     680,
1394 /**/
1395     679,
1396 /**/
1397     678,
1398 /**/
1399     677,
1400 /**/
1401     676,
1402 /**/
1403     675,
1404 /**/
1405     674,
1406 /**/
1407     673,
1408 /**/
1409     672,
1410 /**/
1411     671,
1412 /**/
1413     670,
1414 /**/
1415     669,
1416 /**/
1417     668,
1418 /**/
1419     667,
1420 /**/
1421     666,
1422 /**/
1423     665,
1424 /**/
1425     664,
1426 /**/
1427     663,
1428 /**/
1429     662,
1430 /**/
1431     661,
1432 /**/
1433     660,
1434 /**/
1435     659,
1436 /**/
1437     658,
1438 /**/
1439     657,
1440 /**/
1441     656,
1442 /**/
1443     655,
1444 /**/
1445     654,
1446 /**/
1447     653,
1448 /**/
1449     652,
1450 /**/
1451     651,
1452 /**/
1453     650,
1454 /**/
1455     649,
1456 /**/
1457     648,
1458 /**/
1459     647,
1460 /**/
1461     646,
1462 /**/
1463     645,
1464 /**/
1465     644,
1466 /**/
1467     643,
1468 /**/
1469     642,
1470 /**/
1471     641,
1472 /**/
1473     640,
1474 /**/
1475     639,
1476 /**/
1477     638,
1478 /**/
1479     637,
1480 /**/
1481     636,
1482 /**/
1483     635,
1484 /**/
1485     634,
1486 /**/
1487     633,
1488 /**/
1489     632,
1490 /**/
1491     631,
1492 /**/
1493     630,
1494 /**/
1495     629,
1496 /**/
1497     628,
1498 /**/
1499     627,
1500 /**/
1501     626,
1502 /**/
1503     625,
1504 /**/
1505     624,
1506 /**/
1507     623,
1508 /**/
1509     622,
1510 /**/
1511     621,
1512 /**/
1513     620,
1514 /**/
1515     619,
1516 /**/
1517     618,
1518 /**/
1519     617,
1520 /**/
1521     616,
1522 /**/
1523     615,
1524 /**/
1525     614,
1526 /**/
1527     613,
1528 /**/
1529     612,
1530 /**/
1531     611,
1532 /**/
1533     610,
1534 /**/
1535     609,
1536 /**/
1537     608,
1538 /**/
1539     607,
1540 /**/
1541     606,
1542 /**/
1543     605,
1544 /**/
1545     604,
1546 /**/
1547     603,
1548 /**/
1549     602,
1550 /**/
1551     601,
1552 /**/
1553     600,
1554 /**/
1555     599,
1556 /**/
1557     598,
1558 /**/
1559     597,
1560 /**/
1561     596,
1562 /**/
1563     595,
1564 /**/
1565     594,
1566 /**/
1567     593,
1568 /**/
1569     592,
1570 /**/
1571     591,
1572 /**/
1573     590,
1574 /**/
1575     589,
1576 /**/
1577     588,
1578 /**/
1579     587,
1580 /**/
1581     586,
1582 /**/
1583     585,
1584 /**/
1585     584,
1586 /**/
1587     583,
1588 /**/
1589     582,
1590 /**/
1591     581,
1592 /**/
1593     580,
1594 /**/
1595     579,
1596 /**/
1597     578,
1598 /**/
1599     577,
1600 /**/
1601     576,
1602 /**/
1603     575,
1604 /**/
1605     574,
1606 /**/
1607     573,
1608 /**/
1609     572,
1610 /**/
1611     571,
1612 /**/
1613     570,
1614 /**/
1615     569,
1616 /**/
1617     568,
1618 /**/
1619     567,
1620 /**/
1621     566,
1622 /**/
1623     565,
1624 /**/
1625     564,
1626 /**/
1627     563,
1628 /**/
1629     562,
1630 /**/
1631     561,
1632 /**/
1633     560,
1634 /**/
1635     559,
1636 /**/
1637     558,
1638 /**/
1639     557,
1640 /**/
1641     556,
1642 /**/
1643     555,
1644 /**/
1645     554,
1646 /**/
1647     553,
1648 /**/
1649     552,
1650 /**/
1651     551,
1652 /**/
1653     550,
1654 /**/
1655     549,
1656 /**/
1657     548,
1658 /**/
1659     547,
1660 /**/
1661     546,
1662 /**/
1663     545,
1664 /**/
1665     544,
1666 /**/
1667     543,
1668 /**/
1669     542,
1670 /**/
1671     541,
1672 /**/
1673     540,
1674 /**/
1675     539,
1676 /**/
1677     538,
1678 /**/
1679     537,
1680 /**/
1681     536,
1682 /**/
1683     535,
1684 /**/
1685     534,
1686 /**/
1687     533,
1688 /**/
1689     532,
1690 /**/
1691     531,
1692 /**/
1693     530,
1694 /**/
1695     529,
1696 /**/
1697     528,
1698 /**/
1699     527,
1700 /**/
1701     526,
1702 /**/
1703     525,
1704 /**/
1705     524,
1706 /**/
1707     523,
1708 /**/
1709     522,
1710 /**/
1711     521,
1712 /**/
1713     520,
1714 /**/
1715     519,
1716 /**/
1717     518,
1718 /**/
1719     517,
1720 /**/
1721     516,
1722 /**/
1723     515,
1724 /**/
1725     514,
1726 /**/
1727     513,
1728 /**/
1729     512,
1730 /**/
1731     511,
1732 /**/
1733     510,
1734 /**/
1735     509,
1736 /**/
1737     508,
1738 /**/
1739     507,
1740 /**/
1741     506,
1742 /**/
1743     505,
1744 /**/
1745     504,
1746 /**/
1747     503,
1748 /**/
1749     502,
1750 /**/
1751     501,
1752 /**/
1753     500,
1754 /**/
1755     499,
1756 /**/
1757     498,
1758 /**/
1759     497,
1760 /**/
1761     496,
1762 /**/
1763     495,
1764 /**/
1765     494,
1766 /**/
1767     493,
1768 /**/
1769     492,
1770 /**/
1771     491,
1772 /**/
1773     490,
1774 /**/
1775     489,
1776 /**/
1777     488,
1778 /**/
1779     487,
1780 /**/
1781     486,
1782 /**/
1783     485,
1784 /**/
1785     484,
1786 /**/
1787     483,
1788 /**/
1789     482,
1790 /**/
1791     481,
1792 /**/
1793     480,
1794 /**/
1795     479,
1796 /**/
1797     478,
1798 /**/
1799     477,
1800 /**/
1801     476,
1802 /**/
1803     475,
1804 /**/
1805     474,
1806 /**/
1807     473,
1808 /**/
1809     472,
1810 /**/
1811     471,
1812 /**/
1813     470,
1814 /**/
1815     469,
1816 /**/
1817     468,
1818 /**/
1819     467,
1820 /**/
1821     466,
1822 /**/
1823     465,
1824 /**/
1825     464,
1826 /**/
1827     463,
1828 /**/
1829     462,
1830 /**/
1831     461,
1832 /**/
1833     460,
1834 /**/
1835     459,
1836 /**/
1837     458,
1838 /**/
1839     457,
1840 /**/
1841     456,
1842 /**/
1843     455,
1844 /**/
1845     454,
1846 /**/
1847     453,
1848 /**/
1849     452,
1850 /**/
1851     451,
1852 /**/
1853     450,
1854 /**/
1855     449,
1856 /**/
1857     448,
1858 /**/
1859     447,
1860 /**/
1861     446,
1862 /**/
1863     445,
1864 /**/
1865     444,
1866 /**/
1867     443,
1868 /**/
1869     442,
1870 /**/
1871     441,
1872 /**/
1873     440,
1874 /**/
1875     439,
1876 /**/
1877     438,
1878 /**/
1879     437,
1880 /**/
1881     436,
1882 /**/
1883     435,
1884 /**/
1885     434,
1886 /**/
1887     433,
1888 /**/
1889     432,
1890 /**/
1891     431,
1892 /**/
1893     430,
1894 /**/
1895     429,
1896 /**/
1897     428,
1898 /**/
1899     427,
1900 /**/
1901     426,
1902 /**/
1903     425,
1904 /**/
1905     424,
1906 /**/
1907     423,
1908 /**/
1909     422,
1910 /**/
1911     421,
1912 /**/
1913     420,
1914 /**/
1915     419,
1916 /**/
1917     418,
1918 /**/
1919     417,
1920 /**/
1921     416,
1922 /**/
1923     415,
1924 /**/
1925     414,
1926 /**/
1927     413,
1928 /**/
1929     412,
1930 /**/
1931     411,
1932 /**/
1933     410,
1934 /**/
1935     409,
1936 /**/
1937     408,
1938 /**/
1939     407,
1940 /**/
1941     406,
1942 /**/
1943     405,
1944 /**/
1945     404,
1946 /**/
1947     403,
1948 /**/
1949     402,
1950 /**/
1951     401,
1952 /**/
1953     400,
1954 /**/
1955     399,
1956 /**/
1957     398,
1958 /**/
1959     397,
1960 /**/
1961     396,
1962 /**/
1963     395,
1964 /**/
1965     394,
1966 /**/
1967     393,
1968 /**/
1969     392,
1970 /**/
1971     391,
1972 /**/
1973     390,
1974 /**/
1975     389,
1976 /**/
1977     388,
1978 /**/
1979     387,
1980 /**/
1981     386,
1982 /**/
1983     385,
1984 /**/
1985     384,
1986 /**/
1987     383,
1988 /**/
1989     382,
1990 /**/
1991     381,
1992 /**/
1993     380,
1994 /**/
1995     379,
1996 /**/
1997     378,
1998 /**/
1999     377,
2000 /**/
2001     376,
2002 /**/
2003     375,
2004 /**/
2005     374,
2006 /**/
2007     373,
2008 /**/
2009     372,
2010 /**/
2011     371,
2012 /**/
2013     370,
2014 /**/
2015     369,
2016 /**/
2017     368,
2018 /**/
2019     367,
2020 /**/
2021     366,
2022 /**/
2023     365,
2024 /**/
2025     364,
2026 /**/
2027     363,
2028 /**/
2029     362,
2030 /**/
2031     361,
2032 /**/
2033     360,
2034 /**/
2035     359,
2036 /**/
2037     358,
2038 /**/
2039     357,
2040 /**/
2041     356,
2042 /**/
2043     355,
2044 /**/
2045     354,
2046 /**/
2047     353,
2048 /**/
2049     352,
2050 /**/
2051     351,
2052 /**/
2053     350,
2054 /**/
2055     349,
2056 /**/
2057     348,
2058 /**/
2059     347,
2060 /**/
2061     346,
2062 /**/
2063     345,
2064 /**/
2065     344,
2066 /**/
2067     343,
2068 /**/
2069     342,
2070 /**/
2071     341,
2072 /**/
2073     340,
2074 /**/
2075     339,
2076 /**/
2077     338,
2078 /**/
2079     337,
2080 /**/
2081     336,
2082 /**/
2083     335,
2084 /**/
2085     334,
2086 /**/
2087     333,
2088 /**/
2089     332,
2090 /**/
2091     331,
2092 /**/
2093     330,
2094 /**/
2095     329,
2096 /**/
2097     328,
2098 /**/
2099     327,
2100 /**/
2101     326,
2102 /**/
2103     325,
2104 /**/
2105     324,
2106 /**/
2107     323,
2108 /**/
2109     322,
2110 /**/
2111     321,
2112 /**/
2113     320,
2114 /**/
2115     319,
2116 /**/
2117     318,
2118 /**/
2119     317,
2120 /**/
2121     316,
2122 /**/
2123     315,
2124 /**/
2125     314,
2126 /**/
2127     313,
2128 /**/
2129     312,
2130 /**/
2131     311,
2132 /**/
2133     310,
2134 /**/
2135     309,
2136 /**/
2137     308,
2138 /**/
2139     307,
2140 /**/
2141     306,
2142 /**/
2143     305,
2144 /**/
2145     304,
2146 /**/
2147     303,
2148 /**/
2149     302,
2150 /**/
2151     301,
2152 /**/
2153     300,
2154 /**/
2155     299,
2156 /**/
2157     298,
2158 /**/
2159     297,
2160 /**/
2161     296,
2162 /**/
2163     295,
2164 /**/
2165     294,
2166 /**/
2167     293,
2168 /**/
2169     292,
2170 /**/
2171     291,
2172 /**/
2173     290,
2174 /**/
2175     289,
2176 /**/
2177     288,
2178 /**/
2179     287,
2180 /**/
2181     286,
2182 /**/
2183     285,
2184 /**/
2185     284,
2186 /**/
2187     283,
2188 /**/
2189     282,
2190 /**/
2191     281,
2192 /**/
2193     280,
2194 /**/
2195     279,
2196 /**/
2197     278,
2198 /**/
2199     277,
2200 /**/
2201     276,
2202 /**/
2203     275,
2204 /**/
2205     274,
2206 /**/
2207     273,
2208 /**/
2209     272,
2210 /**/
2211     271,
2212 /**/
2213     270,
2214 /**/
2215     269,
2216 /**/
2217     268,
2218 /**/
2219     267,
2220 /**/
2221     266,
2222 /**/
2223     265,
2224 /**/
2225     264,
2226 /**/
2227     263,
2228 /**/
2229     262,
2230 /**/
2231     261,
2232 /**/
2233     260,
2234 /**/
2235     259,
2236 /**/
2237     258,
2238 /**/
2239     257,
2240 /**/
2241     256,
2242 /**/
2243     255,
2244 /**/
2245     254,
2246 /**/
2247     253,
2248 /**/
2249     252,
2250 /**/
2251     251,
2252 /**/
2253     250,
2254 /**/
2255     249,
2256 /**/
2257     248,
2258 /**/
2259     247,
2260 /**/
2261     246,
2262 /**/
2263     245,
2264 /**/
2265     244,
2266 /**/
2267     243,
2268 /**/
2269     242,
2270 /**/
2271     241,
2272 /**/
2273     240,
2274 /**/
2275     239,
2276 /**/
2277     238,
2278 /**/
2279     237,
2280 /**/
2281     236,
2282 /**/
2283     235,
2284 /**/
2285     234,
2286 /**/
2287     233,
2288 /**/
2289     232,
2290 /**/
2291     231,
2292 /**/
2293     230,
2294 /**/
2295     229,
2296 /**/
2297     228,
2298 /**/
2299     227,
2300 /**/
2301     226,
2302 /**/
2303     225,
2304 /**/
2305     224,
2306 /**/
2307     223,
2308 /**/
2309     222,
2310 /**/
2311     221,
2312 /**/
2313     220,
2314 /**/
2315     219,
2316 /**/
2317     218,
2318 /**/
2319     217,
2320 /**/
2321     216,
2322 /**/
2323     215,
2324 /**/
2325     214,
2326 /**/
2327     213,
2328 /**/
2329     212,
2330 /**/
2331     211,
2332 /**/
2333     210,
2334 /**/
2335     209,
2336 /**/
2337     208,
2338 /**/
2339     207,
2340 /**/
2341     206,
2342 /**/
2343     205,
2344 /**/
2345     204,
2346 /**/
2347     203,
2348 /**/
2349     202,
2350 /**/
2351     201,
2352 /**/
2353     200,
2354 /**/
2355     199,
2356 /**/
2357     198,
2358 /**/
2359     197,
2360 /**/
2361     196,
2362 /**/
2363     195,
2364 /**/
2365     194,
2366 /**/
2367     193,
2368 /**/
2369     192,
2370 /**/
2371     191,
2372 /**/
2373     190,
2374 /**/
2375     189,
2376 /**/
2377     188,
2378 /**/
2379     187,
2380 /**/
2381     186,
2382 /**/
2383     185,
2384 /**/
2385     184,
2386 /**/
2387     183,
2388 /**/
2389     182,
2390 /**/
2391     181,
2392 /**/
2393     180,
2394 /**/
2395     179,
2396 /**/
2397     178,
2398 /**/
2399     177,
2400 /**/
2401     176,
2402 /**/
2403     175,
2404 /**/
2405     174,
2406 /**/
2407     173,
2408 /**/
2409     172,
2410 /**/
2411     171,
2412 /**/
2413     170,
2414 /**/
2415     169,
2416 /**/
2417     168,
2418 /**/
2419     167,
2420 /**/
2421     166,
2422 /**/
2423     165,
2424 /**/
2425     164,
2426 /**/
2427     163,
2428 /**/
2429     162,
2430 /**/
2431     161,
2432 /**/
2433     160,
2434 /**/
2435     159,
2436 /**/
2437     158,
2438 /**/
2439     157,
2440 /**/
2441     156,
2442 /**/
2443     155,
2444 /**/
2445     154,
2446 /**/
2447     153,
2448 /**/
2449     152,
2450 /**/
2451     151,
2452 /**/
2453     150,
2454 /**/
2455     149,
2456 /**/
2457     148,
2458 /**/
2459     147,
2460 /**/
2461     146,
2462 /**/
2463     145,
2464 /**/
2465     144,
2466 /**/
2467     143,
2468 /**/
2469     142,
2470 /**/
2471     141,
2472 /**/
2473     140,
2474 /**/
2475     139,
2476 /**/
2477     138,
2478 /**/
2479     137,
2480 /**/
2481     136,
2482 /**/
2483     135,
2484 /**/
2485     134,
2486 /**/
2487     133,
2488 /**/
2489     132,
2490 /**/
2491     131,
2492 /**/
2493     130,
2494 /**/
2495     129,
2496 /**/
2497     128,
2498 /**/
2499     127,
2500 /**/
2501     126,
2502 /**/
2503     125,
2504 /**/
2505     124,
2506 /**/
2507     123,
2508 /**/
2509     122,
2510 /**/
2511     121,
2512 /**/
2513     120,
2514 /**/
2515     119,
2516 /**/
2517     118,
2518 /**/
2519     117,
2520 /**/
2521     116,
2522 /**/
2523     115,
2524 /**/
2525     114,
2526 /**/
2527     113,
2528 /**/
2529     112,
2530 /**/
2531     111,
2532 /**/
2533     110,
2534 /**/
2535     109,
2536 /**/
2537     108,
2538 /**/
2539     107,
2540 /**/
2541     106,
2542 /**/
2543     105,
2544 /**/
2545     104,
2546 /**/
2547     103,
2548 /**/
2549     102,
2550 /**/
2551     101,
2552 /**/
2553     100,
2554 /**/
2555     99,
2556 /**/
2557     98,
2558 /**/
2559     97,
2560 /**/
2561     96,
2562 /**/
2563     95,
2564 /**/
2565     94,
2566 /**/
2567     93,
2568 /**/
2569     92,
2570 /**/
2571     91,
2572 /**/
2573     90,
2574 /**/
2575     89,
2576 /**/
2577     88,
2578 /**/
2579     87,
2580 /**/
2581     86,
2582 /**/
2583     85,
2584 /**/
2585     84,
2586 /**/
2587     83,
2588 /**/
2589     82,
2590 /**/
2591     81,
2592 /**/
2593     80,
2594 /**/
2595     79,
2596 /**/
2597     78,
2598 /**/
2599     77,
2600 /**/
2601     76,
2602 /**/
2603     75,
2604 /**/
2605     74,
2606 /**/
2607     73,
2608 /**/
2609     72,
2610 /**/
2611     71,
2612 /**/
2613     70,
2614 /**/
2615     69,
2616 /**/
2617     68,
2618 /**/
2619     67,
2620 /**/
2621     66,
2622 /**/
2623     65,
2624 /**/
2625     64,
2626 /**/
2627     63,
2628 /**/
2629     62,
2630 /**/
2631     61,
2632 /**/
2633     60,
2634 /**/
2635     59,
2636 /**/
2637     58,
2638 /**/
2639     57,
2640 /**/
2641     56,
2642 /**/
2643     55,
2644 /**/
2645     54,
2646 /**/
2647     53,
2648 /**/
2649     52,
2650 /**/
2651     51,
2652 /**/
2653     50,
2654 /**/
2655     49,
2656 /**/
2657     48,
2658 /**/
2659     47,
2660 /**/
2661     46,
2662 /**/
2663     45,
2664 /**/
2665     44,
2666 /**/
2667     43,
2668 /**/
2669     42,
2670 /**/
2671     41,
2672 /**/
2673     40,
2674 /**/
2675     39,
2676 /**/
2677     38,
2678 /**/
2679     37,
2680 /**/
2681     36,
2682 /**/
2683     35,
2684 /**/
2685     34,
2686 /**/
2687     33,
2688 /**/
2689     32,
2690 /**/
2691     31,
2692 /**/
2693     30,
2694 /**/
2695     29,
2696 /**/
2697     28,
2698 /**/
2699     27,
2700 /**/
2701     26,
2702 /**/
2703     25,
2704 /**/
2705     24,
2706 /**/
2707     23,
2708 /**/
2709     22,
2710 /**/
2711     21,
2712 /**/
2713     20,
2714 /**/
2715     19,
2716 /**/
2717     18,
2718 /**/
2719     17,
2720 /**/
2721     16,
2722 /**/
2723     15,
2724 /**/
2725     14,
2726 /**/
2727     13,
2728 /**/
2729     12,
2730 /**/
2731     11,
2732 /**/
2733     10,
2734 /**/
2735     9,
2736 /**/
2737     8,
2738 /**/
2739     7,
2740 /**/
2741     6,
2742 /**/
2743     5,
2744 /**/
2745     4,
2746 /**/
2747     3,
2748 /**/
2749     2,
2750 /**/
2751     1,
2752 /**/
2753     0
2754 };
2755 
2756 /*
2757  * Place to put a short description when adding a feature with a patch.
2758  * Keep it short, e.g.,: "relative numbers", "persistent undo".
2759  * Also add a comment marker to separate the lines.
2760  * See the official Vim patches for the diff format: It must use a context of
2761  * one line only.  Create it by hand or use "diff -C2" and edit the patch.
2762  */
2763 static char *(extra_patches[]) =
2764 {   /* Add your patch description below this line */
2765 /**/
2766     NULL
2767 };
2768 
2769     int
2770 highest_patch()
2771 {
2772     int		i;
2773     int		h = 0;
2774 
2775     for (i = 0; included_patches[i] != 0; ++i)
2776 	if (included_patches[i] > h)
2777 	    h = included_patches[i];
2778     return h;
2779 }
2780 
2781 #if defined(FEAT_EVAL) || defined(PROTO)
2782 /*
2783  * Return TRUE if patch "n" has been included.
2784  */
2785     int
2786 has_patch(n)
2787     int		n;
2788 {
2789     int		i;
2790 
2791     for (i = 0; included_patches[i] != 0; ++i)
2792 	if (included_patches[i] == n)
2793 	    return TRUE;
2794     return FALSE;
2795 }
2796 #endif
2797 
2798     void
2799 ex_version(eap)
2800     exarg_T	*eap;
2801 {
2802     /*
2803      * Ignore a ":version 9.99" command.
2804      */
2805     if (*eap->arg == NUL)
2806     {
2807 	msg_putchar('\n');
2808 	list_version();
2809     }
2810 }
2811 
2812 /*
2813  * List all features aligned in columns, dictionary style.
2814  */
2815     static void
2816 list_features()
2817 {
2818     int		i;
2819     int		ncol;
2820     int		nrow;
2821     int		nfeat = 0;
2822     int		width = 0;
2823 
2824     /* Find the length of the longest feature name, use that + 1 as the column
2825      * width */
2826     for (i = 0; features[i] != NULL; ++i)
2827     {
2828 	int l = (int)STRLEN(features[i]);
2829 
2830 	if (l > width)
2831 	    width = l;
2832 	++nfeat;
2833     }
2834     width += 1;
2835 
2836     if (Columns < width)
2837     {
2838 	/* Not enough screen columns - show one per line */
2839 	for (i = 0; features[i] != NULL; ++i)
2840 	{
2841 	    version_msg(features[i]);
2842 	    if (msg_col > 0)
2843 		msg_putchar('\n');
2844 	}
2845 	return;
2846     }
2847 
2848     /* The rightmost column doesn't need a separator.
2849      * Sacrifice it to fit in one more column if possible. */
2850     ncol = (int) (Columns + 1) / width;
2851     nrow = nfeat / ncol + (nfeat % ncol ? 1 : 0);
2852 
2853     /* i counts columns then rows.  idx counts rows then columns. */
2854     for (i = 0; !got_int && i < nrow * ncol; ++i)
2855     {
2856 	int idx = (i / ncol) + (i % ncol) * nrow;
2857 
2858 	if (idx < nfeat)
2859 	{
2860 	    int last_col = (i + 1) % ncol == 0;
2861 
2862 	    msg_puts((char_u *)features[idx]);
2863 	    if (last_col)
2864 	    {
2865 		if (msg_col > 0)
2866 		    msg_putchar('\n');
2867 	    }
2868 	    else
2869 	    {
2870 		while (msg_col % width)
2871 		    msg_putchar(' ');
2872 	    }
2873 	}
2874 	else
2875 	{
2876 	    if (msg_col > 0)
2877 		msg_putchar('\n');
2878 	}
2879     }
2880 }
2881 
2882     void
2883 list_version()
2884 {
2885     int		i;
2886     int		first;
2887     char	*s = "";
2888 
2889     /*
2890      * When adding features here, don't forget to update the list of
2891      * internal variables in eval.c!
2892      */
2893     MSG(longVersion);
2894 #ifdef WIN3264
2895 # ifdef FEAT_GUI_W32
2896 #  if defined(_MSC_VER) && (_MSC_VER <= 1010)
2897     /* Only MS VC 4.1 and earlier can do Win32s */
2898     MSG_PUTS(_("\nMS-Windows 16/32-bit GUI version"));
2899 #  else
2900 #   ifdef _WIN64
2901     MSG_PUTS(_("\nMS-Windows 64-bit GUI version"));
2902 #   else
2903     MSG_PUTS(_("\nMS-Windows 32-bit GUI version"));
2904 #   endif
2905 #  endif
2906     if (gui_is_win32s())
2907 	MSG_PUTS(_(" in Win32s mode"));
2908 # ifdef FEAT_OLE
2909     MSG_PUTS(_(" with OLE support"));
2910 # endif
2911 # else
2912 #  ifdef _WIN64
2913     MSG_PUTS(_("\nMS-Windows 64-bit console version"));
2914 #  else
2915     MSG_PUTS(_("\nMS-Windows 32-bit console version"));
2916 #  endif
2917 # endif
2918 #endif
2919 #ifdef WIN16
2920     MSG_PUTS(_("\nMS-Windows 16-bit version"));
2921 #endif
2922 #ifdef MSDOS
2923 # ifdef DJGPP
2924     MSG_PUTS(_("\n32-bit MS-DOS version"));
2925 # else
2926     MSG_PUTS(_("\n16-bit MS-DOS version"));
2927 # endif
2928 #endif
2929 #ifdef MACOS
2930 # ifdef MACOS_X
2931 #  ifdef MACOS_X_UNIX
2932     MSG_PUTS(_("\nMacOS X (unix) version"));
2933 #  else
2934     MSG_PUTS(_("\nMacOS X version"));
2935 #  endif
2936 #else
2937     MSG_PUTS(_("\nMacOS version"));
2938 # endif
2939 #endif
2940 
2941 #ifdef VMS
2942     MSG_PUTS(_("\nOpenVMS version"));
2943 # ifdef HAVE_PATHDEF
2944     if (*compiled_arch != NUL)
2945     {
2946 	MSG_PUTS(" - ");
2947 	MSG_PUTS(compiled_arch);
2948     }
2949 # endif
2950 
2951 #endif
2952 
2953     /* Print the list of patch numbers if there is at least one. */
2954     /* Print a range when patches are consecutive: "1-10, 12, 15-40, 42-45" */
2955     if (included_patches[0] != 0)
2956     {
2957 	MSG_PUTS(_("\nIncluded patches: "));
2958 	first = -1;
2959 	/* find last one */
2960 	for (i = 0; included_patches[i] != 0; ++i)
2961 	    ;
2962 	while (--i >= 0)
2963 	{
2964 	    if (first < 0)
2965 		first = included_patches[i];
2966 	    if (i == 0 || included_patches[i - 1] != included_patches[i] + 1)
2967 	    {
2968 		MSG_PUTS(s);
2969 		s = ", ";
2970 		msg_outnum((long)first);
2971 		if (first != included_patches[i])
2972 		{
2973 		    MSG_PUTS("-");
2974 		    msg_outnum((long)included_patches[i]);
2975 		}
2976 		first = -1;
2977 	    }
2978 	}
2979     }
2980 
2981     /* Print the list of extra patch descriptions if there is at least one. */
2982     if (extra_patches[0] != NULL)
2983     {
2984 	MSG_PUTS(_("\nExtra patches: "));
2985 	s = "";
2986 	for (i = 0; extra_patches[i] != NULL; ++i)
2987 	{
2988 	    MSG_PUTS(s);
2989 	    s = ", ";
2990 	    MSG_PUTS(extra_patches[i]);
2991 	}
2992     }
2993 
2994 #ifdef MODIFIED_BY
2995     MSG_PUTS("\n");
2996     MSG_PUTS(_("Modified by "));
2997     MSG_PUTS(MODIFIED_BY);
2998 #endif
2999 
3000 #ifdef HAVE_PATHDEF
3001     if (*compiled_user != NUL || *compiled_sys != NUL)
3002     {
3003 	MSG_PUTS(_("\nCompiled "));
3004 	if (*compiled_user != NUL)
3005 	{
3006 	    MSG_PUTS(_("by "));
3007 	    MSG_PUTS(compiled_user);
3008 	}
3009 	if (*compiled_sys != NUL)
3010 	{
3011 	    MSG_PUTS("@");
3012 	    MSG_PUTS(compiled_sys);
3013 	}
3014     }
3015 #endif
3016 
3017 #ifdef FEAT_HUGE
3018     MSG_PUTS(_("\nHuge version "));
3019 #else
3020 # ifdef FEAT_BIG
3021     MSG_PUTS(_("\nBig version "));
3022 # else
3023 #  ifdef FEAT_NORMAL
3024     MSG_PUTS(_("\nNormal version "));
3025 #  else
3026 #   ifdef FEAT_SMALL
3027     MSG_PUTS(_("\nSmall version "));
3028 #   else
3029     MSG_PUTS(_("\nTiny version "));
3030 #   endif
3031 #  endif
3032 # endif
3033 #endif
3034 #ifndef FEAT_GUI
3035     MSG_PUTS(_("without GUI."));
3036 #else
3037 # ifdef FEAT_GUI_GTK
3038 #  ifdef FEAT_GUI_GNOME
3039     MSG_PUTS(_("with GTK2-GNOME GUI."));
3040 #  else
3041     MSG_PUTS(_("with GTK2 GUI."));
3042 #  endif
3043 # else
3044 #  ifdef FEAT_GUI_MOTIF
3045     MSG_PUTS(_("with X11-Motif GUI."));
3046 #  else
3047 #   ifdef FEAT_GUI_ATHENA
3048 #    ifdef FEAT_GUI_NEXTAW
3049     MSG_PUTS(_("with X11-neXtaw GUI."));
3050 #    else
3051     MSG_PUTS(_("with X11-Athena GUI."));
3052 #    endif
3053 #   else
3054 #     ifdef FEAT_GUI_PHOTON
3055     MSG_PUTS(_("with Photon GUI."));
3056 #     else
3057 #      if defined(MSWIN)
3058     MSG_PUTS(_("with GUI."));
3059 #      else
3060 #	if defined(TARGET_API_MAC_CARBON) && TARGET_API_MAC_CARBON
3061     MSG_PUTS(_("with Carbon GUI."));
3062 #	else
3063 #	 if defined(TARGET_API_MAC_OSX) && TARGET_API_MAC_OSX
3064     MSG_PUTS(_("with Cocoa GUI."));
3065 #	 else
3066 #	  if defined(MACOS)
3067     MSG_PUTS(_("with (classic) GUI."));
3068 #	  endif
3069 #	 endif
3070 #	endif
3071 #      endif
3072 #    endif
3073 #   endif
3074 #  endif
3075 # endif
3076 #endif
3077     version_msg(_("  Features included (+) or not (-):\n"));
3078 
3079     list_features();
3080 
3081 #ifdef SYS_VIMRC_FILE
3082     version_msg(_("   system vimrc file: \""));
3083     version_msg(SYS_VIMRC_FILE);
3084     version_msg("\"\n");
3085 #endif
3086 #ifdef USR_VIMRC_FILE
3087     version_msg(_("     user vimrc file: \""));
3088     version_msg(USR_VIMRC_FILE);
3089     version_msg("\"\n");
3090 #endif
3091 #ifdef USR_VIMRC_FILE2
3092     version_msg(_(" 2nd user vimrc file: \""));
3093     version_msg(USR_VIMRC_FILE2);
3094     version_msg("\"\n");
3095 #endif
3096 #ifdef USR_VIMRC_FILE3
3097     version_msg(_(" 3rd user vimrc file: \""));
3098     version_msg(USR_VIMRC_FILE3);
3099     version_msg("\"\n");
3100 #endif
3101 #ifdef USR_EXRC_FILE
3102     version_msg(_("      user exrc file: \""));
3103     version_msg(USR_EXRC_FILE);
3104     version_msg("\"\n");
3105 #endif
3106 #ifdef USR_EXRC_FILE2
3107     version_msg(_("  2nd user exrc file: \""));
3108     version_msg(USR_EXRC_FILE2);
3109     version_msg("\"\n");
3110 #endif
3111 #ifdef FEAT_GUI
3112 # ifdef SYS_GVIMRC_FILE
3113     version_msg(_("  system gvimrc file: \""));
3114     version_msg(SYS_GVIMRC_FILE);
3115     version_msg("\"\n");
3116 # endif
3117     version_msg(_("    user gvimrc file: \""));
3118     version_msg(USR_GVIMRC_FILE);
3119     version_msg("\"\n");
3120 # ifdef USR_GVIMRC_FILE2
3121     version_msg(_("2nd user gvimrc file: \""));
3122     version_msg(USR_GVIMRC_FILE2);
3123     version_msg("\"\n");
3124 # endif
3125 # ifdef USR_GVIMRC_FILE3
3126     version_msg(_("3rd user gvimrc file: \""));
3127     version_msg(USR_GVIMRC_FILE3);
3128     version_msg("\"\n");
3129 # endif
3130 #endif
3131 #ifdef FEAT_GUI
3132 # ifdef SYS_MENU_FILE
3133     version_msg(_("    system menu file: \""));
3134     version_msg(SYS_MENU_FILE);
3135     version_msg("\"\n");
3136 # endif
3137 #endif
3138 #ifdef HAVE_PATHDEF
3139     if (*default_vim_dir != NUL)
3140     {
3141 	version_msg(_("  fall-back for $VIM: \""));
3142 	version_msg((char *)default_vim_dir);
3143 	version_msg("\"\n");
3144     }
3145     if (*default_vimruntime_dir != NUL)
3146     {
3147 	version_msg(_(" f-b for $VIMRUNTIME: \""));
3148 	version_msg((char *)default_vimruntime_dir);
3149 	version_msg("\"\n");
3150     }
3151     version_msg(_("Compilation: "));
3152     version_msg((char *)all_cflags);
3153     version_msg("\n");
3154 #ifdef VMS
3155     if (*compiler_version != NUL)
3156     {
3157 	version_msg(_("Compiler: "));
3158 	version_msg((char *)compiler_version);
3159 	version_msg("\n");
3160     }
3161 #endif
3162     version_msg(_("Linking: "));
3163     version_msg((char *)all_lflags);
3164 #endif
3165 #ifdef DEBUG
3166     version_msg("\n");
3167     version_msg(_("  DEBUG BUILD"));
3168 #endif
3169 }
3170 
3171 /*
3172  * Output a string for the version message.  If it's going to wrap, output a
3173  * newline, unless the message is too long to fit on the screen anyway.
3174  */
3175     static void
3176 version_msg(s)
3177     char	*s;
3178 {
3179     int		len = (int)STRLEN(s);
3180 
3181     if (!got_int && len < (int)Columns && msg_col + len >= (int)Columns
3182 								&& *s != '\n')
3183 	msg_putchar('\n');
3184     if (!got_int)
3185 	MSG_PUTS(s);
3186 }
3187 
3188 static void do_intro_line __ARGS((int row, char_u *mesg, int add_version, int attr));
3189 
3190 /*
3191  * Show the intro message when not editing a file.
3192  */
3193     void
3194 maybe_intro_message()
3195 {
3196     if (bufempty()
3197 	    && curbuf->b_fname == NULL
3198 #ifdef FEAT_WINDOWS
3199 	    && firstwin->w_next == NULL
3200 #endif
3201 	    && vim_strchr(p_shm, SHM_INTRO) == NULL)
3202 	intro_message(FALSE);
3203 }
3204 
3205 /*
3206  * Give an introductory message about Vim.
3207  * Only used when starting Vim on an empty file, without a file name.
3208  * Or with the ":intro" command (for Sven :-).
3209  */
3210     void
3211 intro_message(colon)
3212     int		colon;		/* TRUE for ":intro" */
3213 {
3214     int		i;
3215     int		row;
3216     int		blanklines;
3217     int		sponsor;
3218     char	*p;
3219     static char	*(lines[]) =
3220     {
3221 	N_("VIM - Vi IMproved"),
3222 	"",
3223 	N_("version "),
3224 	N_("by Bram Moolenaar et al."),
3225 #ifdef MODIFIED_BY
3226 	" ",
3227 #endif
3228 	N_("Vim is open source and freely distributable"),
3229 	"",
3230 	N_("Help poor children in Uganda!"),
3231 	N_("type  :help iccf<Enter>       for information "),
3232 	"",
3233 	N_("type  :q<Enter>               to exit         "),
3234 	N_("type  :help<Enter>  or  <F1>  for on-line help"),
3235 	N_("type  :help version7<Enter>   for version info"),
3236 	NULL,
3237 	"",
3238 	N_("Running in Vi compatible mode"),
3239 	N_("type  :set nocp<Enter>        for Vim defaults"),
3240 	N_("type  :help cp-default<Enter> for info on this"),
3241     };
3242 #ifdef FEAT_GUI
3243     static char	*(gui_lines[]) =
3244     {
3245 	NULL,
3246 	NULL,
3247 	NULL,
3248 	NULL,
3249 #ifdef MODIFIED_BY
3250 	NULL,
3251 #endif
3252 	NULL,
3253 	NULL,
3254 	NULL,
3255 	N_("menu  Help->Orphans           for information    "),
3256 	NULL,
3257 	N_("Running modeless, typed text is inserted"),
3258 	N_("menu  Edit->Global Settings->Toggle Insert Mode  "),
3259 	N_("                              for two modes      "),
3260 	NULL,
3261 	NULL,
3262 	NULL,
3263 	N_("menu  Edit->Global Settings->Toggle Vi Compatible"),
3264 	N_("                              for Vim defaults   "),
3265     };
3266 #endif
3267 
3268     /* blanklines = screen height - # message lines */
3269     blanklines = (int)Rows - ((sizeof(lines) / sizeof(char *)) - 1);
3270     if (!p_cp)
3271 	blanklines += 4;  /* add 4 for not showing "Vi compatible" message */
3272 #if defined(WIN3264) && !defined(FEAT_GUI_W32)
3273     if (mch_windows95())
3274 	blanklines -= 3;  /* subtract 3 for showing "Windows 95" message */
3275 #endif
3276 
3277 #ifdef FEAT_WINDOWS
3278     /* Don't overwrite a statusline.  Depends on 'cmdheight'. */
3279     if (p_ls > 1)
3280 	blanklines -= Rows - topframe->fr_height;
3281 #endif
3282     if (blanklines < 0)
3283 	blanklines = 0;
3284 
3285     /* Show the sponsor and register message one out of four times, the Uganda
3286      * message two out of four times. */
3287     sponsor = (int)time(NULL);
3288     sponsor = ((sponsor & 2) == 0) - ((sponsor & 4) == 0);
3289 
3290     /* start displaying the message lines after half of the blank lines */
3291     row = blanklines / 2;
3292     if ((row >= 2 && Columns >= 50) || colon)
3293     {
3294 	for (i = 0; i < (int)(sizeof(lines) / sizeof(char *)); ++i)
3295 	{
3296 	    p = lines[i];
3297 #ifdef FEAT_GUI
3298 	    if (p_im && gui.in_use && gui_lines[i] != NULL)
3299 		p = gui_lines[i];
3300 #endif
3301 	    if (p == NULL)
3302 	    {
3303 		if (!p_cp)
3304 		    break;
3305 		continue;
3306 	    }
3307 	    if (sponsor != 0)
3308 	    {
3309 		if (strstr(p, "children") != NULL)
3310 		    p = sponsor < 0
3311 			? N_("Sponsor Vim development!")
3312 			: N_("Become a registered Vim user!");
3313 		else if (strstr(p, "iccf") != NULL)
3314 		    p = sponsor < 0
3315 			? N_("type  :help sponsor<Enter>    for information ")
3316 			: N_("type  :help register<Enter>   for information ");
3317 		else if (strstr(p, "Orphans") != NULL)
3318 		    p = N_("menu  Help->Sponsor/Register  for information    ");
3319 	    }
3320 	    if (*p != NUL)
3321 		do_intro_line(row, (char_u *)_(p), i == 2, 0);
3322 	    ++row;
3323 	}
3324 #if defined(WIN3264) && !defined(FEAT_GUI_W32)
3325 	if (mch_windows95())
3326 	{
3327 	    do_intro_line(++row,
3328 		    (char_u *)_("WARNING: Windows 95/98/ME detected"),
3329 							FALSE, hl_attr(HLF_E));
3330 	    do_intro_line(++row,
3331 		(char_u *)_("type  :help windows95<Enter>  for info on this"),
3332 								    FALSE, 0);
3333 	}
3334 #endif
3335     }
3336 
3337     /* Make the wait-return message appear just below the text. */
3338     if (colon)
3339 	msg_row = row;
3340 }
3341 
3342     static void
3343 do_intro_line(row, mesg, add_version, attr)
3344     int		row;
3345     char_u	*mesg;
3346     int		add_version;
3347     int		attr;
3348 {
3349     char_u	vers[20];
3350     int		col;
3351     char_u	*p;
3352     int		l;
3353     int		clen;
3354 #ifdef MODIFIED_BY
3355 # define MODBY_LEN 150
3356     char_u	modby[MODBY_LEN];
3357 
3358     if (*mesg == ' ')
3359     {
3360 	vim_strncpy(modby, (char_u *)_("Modified by "), MODBY_LEN - 1);
3361 	l = STRLEN(modby);
3362 	vim_strncpy(modby + l, (char_u *)MODIFIED_BY, MODBY_LEN - l - 1);
3363 	mesg = modby;
3364     }
3365 #endif
3366 
3367     /* Center the message horizontally. */
3368     col = vim_strsize(mesg);
3369     if (add_version)
3370     {
3371 	STRCPY(vers, mediumVersion);
3372 	if (highest_patch())
3373 	{
3374 	    /* Check for 9.9x or 9.9xx, alpha/beta version */
3375 	    if (isalpha((int)vers[3]))
3376 	    {
3377 		int len = (isalpha((int)vers[4])) ? 5 : 4;
3378 		sprintf((char *)vers + len, ".%d%s", highest_patch(),
3379 							 mediumVersion + len);
3380 	    }
3381 	    else
3382 		sprintf((char *)vers + 3, ".%d", highest_patch());
3383 	}
3384 	col += (int)STRLEN(vers);
3385     }
3386     col = (Columns - col) / 2;
3387     if (col < 0)
3388 	col = 0;
3389 
3390     /* Split up in parts to highlight <> items differently. */
3391     for (p = mesg; *p != NUL; p += l)
3392     {
3393 	clen = 0;
3394 	for (l = 0; p[l] != NUL
3395 			 && (l == 0 || (p[l] != '<' && p[l - 1] != '>')); ++l)
3396 	{
3397 #ifdef FEAT_MBYTE
3398 	    if (has_mbyte)
3399 	    {
3400 		clen += ptr2cells(p + l);
3401 		l += (*mb_ptr2len)(p + l) - 1;
3402 	    }
3403 	    else
3404 #endif
3405 		clen += byte2cells(p[l]);
3406 	}
3407 	screen_puts_len(p, l, row, col, *p == '<' ? hl_attr(HLF_8) : attr);
3408 	col += clen;
3409     }
3410 
3411     /* Add the version number to the version line. */
3412     if (add_version)
3413 	screen_puts(vers, row, col, 0);
3414 }
3415 
3416 /*
3417  * ":intro": clear screen, display intro screen and wait for return.
3418  */
3419     void
3420 ex_intro(eap)
3421     exarg_T	*eap UNUSED;
3422 {
3423     screenclear();
3424     intro_message(TRUE);
3425     wait_return(TRUE);
3426 }
3427