blob: a2e336950d2a93632fba795583d7e45eb225001d [file] [log] [blame]
Bram Moolenaar071d4272004-06-13 20:20:40 +00001/* 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 *
Bram Moolenaar3fdfa4a2004-10-07 21:02:47 +000020 * Differences between version 6.x and 7.x can be found with ":help version7".
Bram Moolenaar071d4272004-06-13 20:20:40 +000021 * 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
Bram Moolenaard042c562005-06-30 22:04:15 +000030char *Version = VIM_VERSION_SHORT;
31static char *mediumVersion = VIM_VERSION_MEDIUM;
Bram Moolenaar071d4272004-06-13 20:20:40 +000032
33#if defined(HAVE_DATE_TIME) || defined(PROTO)
34# if (defined(VMS) && defined(VAXC)) || defined(PROTO)
35char longVersion[sizeof(VIM_VERSION_LONG_DATE) + sizeof(__DATE__)
36 + sizeof(__TIME__) + 3];
37 void
38make_version()
39{
40 /*
41 * Construct the long version string. Necessary because
42 * VAX C can't catenate strings in the preprocessor.
43 */
44 strcpy(longVersion, VIM_VERSION_LONG_DATE);
45 strcat(longVersion, __DATE__);
46 strcat(longVersion, " ");
47 strcat(longVersion, __TIME__);
48 strcat(longVersion, ")");
49}
50# else
51char *longVersion = VIM_VERSION_LONG_DATE __DATE__ " " __TIME__ ")";
52# endif
53#else
54char *longVersion = VIM_VERSION_LONG;
55#endif
56
57static void version_msg __ARGS((char *s));
58
59static char *(features[]) =
60{
61#ifdef AMIGA /* only for Amiga systems */
62# ifdef FEAT_ARP
63 "+ARP",
64# else
65 "-ARP",
66# endif
67#endif
68#ifdef FEAT_ARABIC
69 "+arabic",
70#else
71 "-arabic",
72#endif
73#ifdef FEAT_AUTOCMD
74 "+autocmd",
75#else
76 "-autocmd",
77#endif
78#ifdef FEAT_BEVAL
79 "+balloon_eval",
80#else
81 "-balloon_eval",
82#endif
83#ifdef FEAT_BROWSE
84 "+browse",
85#else
86 "-browse",
87#endif
88#ifdef NO_BUILTIN_TCAPS
89 "-builtin_terms",
90#endif
91#ifdef SOME_BUILTIN_TCAPS
92 "+builtin_terms",
93#endif
94#ifdef ALL_BUILTIN_TCAPS
95 "++builtin_terms",
96#endif
97#ifdef FEAT_BYTEOFF
98 "+byte_offset",
99#else
100 "-byte_offset",
101#endif
102#ifdef FEAT_CINDENT
103 "+cindent",
104#else
105 "-cindent",
106#endif
107#ifdef FEAT_CLIENTSERVER
108 "+clientserver",
109#else
110 "-clientserver",
111#endif
112#ifdef FEAT_CLIPBOARD
113 "+clipboard",
114#else
115 "-clipboard",
116#endif
117#ifdef FEAT_CMDL_COMPL
118 "+cmdline_compl",
119#else
120 "-cmdline_compl",
121#endif
122#ifdef FEAT_CMDHIST
123 "+cmdline_hist",
124#else
125 "-cmdline_hist",
126#endif
127#ifdef FEAT_CMDL_INFO
128 "+cmdline_info",
129#else
130 "-cmdline_info",
131#endif
132#ifdef FEAT_COMMENTS
133 "+comments",
134#else
135 "-comments",
136#endif
137#ifdef FEAT_CRYPT
138 "+cryptv",
139#else
140 "-cryptv",
141#endif
142#ifdef FEAT_CSCOPE
143 "+cscope",
144#else
145 "-cscope",
146#endif
Bram Moolenaar17c7c012006-01-26 22:25:15 +0000147#ifdef CURSOR_SHAPE
148 "+cursorshape",
149#else
150 "-cursorshape",
151#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +0000152#if defined(FEAT_CON_DIALOG) && defined(FEAT_GUI_DIALOG)
153 "+dialog_con_gui",
154#else
155# if defined(FEAT_CON_DIALOG)
156 "+dialog_con",
157# else
158# if defined(FEAT_GUI_DIALOG)
159 "+dialog_gui",
160# else
161 "-dialog",
162# endif
163# endif
164#endif
165#ifdef FEAT_DIFF
166 "+diff",
167#else
168 "-diff",
169#endif
170#ifdef FEAT_DIGRAPHS
171 "+digraphs",
172#else
173 "-digraphs",
174#endif
175#ifdef FEAT_DND
176 "+dnd",
177#else
178 "-dnd",
179#endif
180#ifdef EBCDIC
181 "+ebcdic",
182#else
183 "-ebcdic",
184#endif
185#ifdef FEAT_EMACS_TAGS
186 "+emacs_tags",
187#else
188 "-emacs_tags",
189#endif
190#ifdef FEAT_EVAL
191 "+eval",
192#else
193 "-eval",
194#endif
195#ifdef FEAT_EX_EXTRA
196 "+ex_extra",
197#else
198 "-ex_extra",
199#endif
200#ifdef FEAT_SEARCH_EXTRA
201 "+extra_search",
202#else
203 "-extra_search",
204#endif
205#ifdef FEAT_FKMAP
206 "+farsi",
207#else
208 "-farsi",
209#endif
210#ifdef FEAT_SEARCHPATH
211 "+file_in_path",
212#else
213 "-file_in_path",
214#endif
215#ifdef FEAT_FIND_ID
216 "+find_in_path",
217#else
218 "-find_in_path",
219#endif
220#ifdef FEAT_FOLDING
221 "+folding",
222#else
223 "-folding",
224#endif
225#ifdef FEAT_FOOTER
226 "+footer",
227#else
228 "-footer",
229#endif
230 /* only interesting on Unix systems */
231#if !defined(USE_SYSTEM) && defined(UNIX)
232 "+fork()",
233#endif
234#ifdef FEAT_GETTEXT
235# ifdef DYNAMIC_GETTEXT
236 "+gettext/dyn",
237# else
238 "+gettext",
239# endif
240#else
241 "-gettext",
242#endif
243#ifdef FEAT_HANGULIN
244 "+hangul_input",
245#else
246 "-hangul_input",
247#endif
248#if (defined(HAVE_ICONV_H) && defined(USE_ICONV)) || defined(DYNAMIC_ICONV)
249# ifdef DYNAMIC_ICONV
250 "+iconv/dyn",
251# else
252 "+iconv",
253# endif
254#else
255 "-iconv",
256#endif
257#ifdef FEAT_INS_EXPAND
258 "+insert_expand",
259#else
260 "-insert_expand",
261#endif
262#ifdef FEAT_JUMPLIST
263 "+jumplist",
264#else
265 "-jumplist",
266#endif
267#ifdef FEAT_KEYMAP
268 "+keymap",
269#else
270 "-keymap",
271#endif
272#ifdef FEAT_LANGMAP
273 "+langmap",
274#else
275 "-langmap",
276#endif
277#ifdef FEAT_LIBCALL
278 "+libcall",
279#else
280 "-libcall",
281#endif
282#ifdef FEAT_LINEBREAK
283 "+linebreak",
284#else
285 "-linebreak",
286#endif
287#ifdef FEAT_LISP
288 "+lispindent",
289#else
290 "-lispindent",
291#endif
292#ifdef FEAT_LISTCMDS
293 "+listcmds",
294#else
295 "-listcmds",
296#endif
297#ifdef FEAT_LOCALMAP
298 "+localmap",
299#else
300 "-localmap",
301#endif
302#ifdef FEAT_MENU
303 "+menu",
304#else
305 "-menu",
306#endif
307#ifdef FEAT_SESSION
308 "+mksession",
309#else
310 "-mksession",
311#endif
312#ifdef FEAT_MODIFY_FNAME
313 "+modify_fname",
314#else
315 "-modify_fname",
316#endif
317#ifdef FEAT_MOUSE
318 "+mouse",
319# ifdef FEAT_MOUSESHAPE
320 "+mouseshape",
321# else
322 "-mouseshape",
323# endif
324# else
325 "-mouse",
326#endif
327#if defined(UNIX) || defined(VMS)
328# ifdef FEAT_MOUSE_DEC
329 "+mouse_dec",
330# else
331 "-mouse_dec",
332# endif
333# ifdef FEAT_MOUSE_GPM
334 "+mouse_gpm",
335# else
336 "-mouse_gpm",
337# endif
338# ifdef FEAT_MOUSE_JSB
339 "+mouse_jsbterm",
340# else
341 "-mouse_jsbterm",
342# endif
343# ifdef FEAT_MOUSE_NET
344 "+mouse_netterm",
345# else
346 "-mouse_netterm",
347# endif
348# ifdef FEAT_MOUSE_XTERM
349 "+mouse_xterm",
350# else
351 "-mouse_xterm",
352# endif
353#endif
354#ifdef __QNX__
355# ifdef FEAT_MOUSE_PTERM
356 "+mouse_pterm",
357# else
358 "-mouse_pterm",
359# endif
360#endif
361#ifdef FEAT_MBYTE_IME
362# ifdef DYNAMIC_IME
363 "+multi_byte_ime/dyn",
364# else
365 "+multi_byte_ime",
366# endif
367#else
368# ifdef FEAT_MBYTE
369 "+multi_byte",
370# else
371 "-multi_byte",
372# endif
373#endif
374#ifdef FEAT_MULTI_LANG
375 "+multi_lang",
376#else
377 "-multi_lang",
378#endif
Bram Moolenaar325b7a22004-07-05 15:58:32 +0000379#ifdef FEAT_MZSCHEME
Bram Moolenaardf3267e2005-01-25 22:07:05 +0000380# ifdef DYNAMIC_MZSCHEME
381 "+mzscheme/dyn",
382# else
Bram Moolenaar325b7a22004-07-05 15:58:32 +0000383 "+mzscheme",
Bram Moolenaardf3267e2005-01-25 22:07:05 +0000384# endif
Bram Moolenaar325b7a22004-07-05 15:58:32 +0000385#else
386 "-mzscheme",
387#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +0000388#ifdef FEAT_NETBEANS_INTG
389 "+netbeans_intg",
390#else
391 "-netbeans_intg",
392#endif
393#ifdef FEAT_GUI_W32
394# ifdef FEAT_OLE
395 "+ole",
396# else
397 "-ole",
398# endif
399#endif
400#ifdef FEAT_OSFILETYPE
401 "+osfiletype",
402#else
403 "-osfiletype",
404#endif
405#ifdef FEAT_PATH_EXTRA
406 "+path_extra",
407#else
408 "-path_extra",
409#endif
410#ifdef FEAT_PERL
411# ifdef DYNAMIC_PERL
412 "+perl/dyn",
413# else
414 "+perl",
415# endif
416#else
417 "-perl",
418#endif
419#ifdef FEAT_PRINTER
420# ifdef FEAT_POSTSCRIPT
421 "+postscript",
422# else
423 "-postscript",
424# endif
425 "+printer",
426#else
427 "-printer",
428#endif
Bram Moolenaar05159a02005-02-26 23:04:13 +0000429#ifdef FEAT_PROFILE
430 "+profile",
431#else
432 "-profile",
433#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +0000434#ifdef FEAT_PYTHON
435# ifdef DYNAMIC_PYTHON
436 "+python/dyn",
437# else
438 "+python",
439# endif
440#else
441 "-python",
442#endif
443#ifdef FEAT_QUICKFIX
444 "+quickfix",
445#else
446 "-quickfix",
447#endif
Bram Moolenaard68071d2006-05-02 22:08:30 +0000448#ifdef FEAT_RELTIME
449 "+reltime",
450#else
451 "-reltime",
452#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +0000453#ifdef FEAT_RIGHTLEFT
454 "+rightleft",
455#else
456 "-rightleft",
457#endif
458#ifdef FEAT_RUBY
459# ifdef DYNAMIC_RUBY
460 "+ruby/dyn",
461# else
462 "+ruby",
463# endif
464#else
465 "-ruby",
466#endif
467#ifdef FEAT_SCROLLBIND
468 "+scrollbind",
469#else
470 "-scrollbind",
471#endif
472#ifdef FEAT_SIGNS
473 "+signs",
474#else
475 "-signs",
476#endif
477#ifdef FEAT_SMARTINDENT
478 "+smartindent",
479#else
480 "-smartindent",
481#endif
482#ifdef FEAT_SNIFF
483 "+sniff",
484#else
485 "-sniff",
486#endif
487#ifdef FEAT_STL_OPT
488 "+statusline",
489#else
490 "-statusline",
491#endif
492#ifdef FEAT_SUN_WORKSHOP
493 "+sun_workshop",
494#else
495 "-sun_workshop",
496#endif
497#ifdef FEAT_SYN_HL
498 "+syntax",
499#else
500 "-syntax",
501#endif
502 /* only interesting on Unix systems */
503#if defined(USE_SYSTEM) && (defined(UNIX) || defined(__EMX__))
504 "+system()",
505#endif
506#ifdef FEAT_TAG_BINS
507 "+tag_binary",
508#else
509 "-tag_binary",
510#endif
511#ifdef FEAT_TAG_OLDSTATIC
512 "+tag_old_static",
513#else
514 "-tag_old_static",
515#endif
516#ifdef FEAT_TAG_ANYWHITE
517 "+tag_any_white",
518#else
519 "-tag_any_white",
520#endif
521#ifdef FEAT_TCL
522# ifdef DYNAMIC_TCL
523 "+tcl/dyn",
524# else
525 "+tcl",
526# endif
527#else
528 "-tcl",
529#endif
530#if defined(UNIX) || defined(__EMX__)
531/* only Unix (or OS/2 with EMX!) can have terminfo instead of termcap */
532# ifdef TERMINFO
533 "+terminfo",
534# else
535 "-terminfo",
536# endif
537#else /* unix always includes termcap support */
538# ifdef HAVE_TGETENT
539 "+tgetent",
540# else
541 "-tgetent",
542# endif
543#endif
544#ifdef FEAT_TERMRESPONSE
545 "+termresponse",
546#else
547 "-termresponse",
548#endif
549#ifdef FEAT_TEXTOBJ
550 "+textobjects",
551#else
552 "-textobjects",
553#endif
554#ifdef FEAT_TITLE
555 "+title",
556#else
557 "-title",
558#endif
559#ifdef FEAT_TOOLBAR
560 "+toolbar",
561#else
562 "-toolbar",
563#endif
564#ifdef FEAT_USR_CMDS
565 "+user_commands",
566#else
567 "-user_commands",
568#endif
569#ifdef FEAT_VERTSPLIT
570 "+vertsplit",
571#else
572 "-vertsplit",
573#endif
574#ifdef FEAT_VIRTUALEDIT
575 "+virtualedit",
576#else
577 "-virtualedit",
578#endif
579#ifdef FEAT_VISUAL
580 "+visual",
581# ifdef FEAT_VISUALEXTRA
582 "+visualextra",
583# else
584 "-visualextra",
585# endif
586#else
587 "-visual",
588#endif
589#ifdef FEAT_VIMINFO
590 "+viminfo",
591#else
592 "-viminfo",
593#endif
594#ifdef FEAT_VREPLACE
595 "+vreplace",
596#else
597 "-vreplace",
598#endif
599#ifdef FEAT_WILDIGN
600 "+wildignore",
601#else
602 "-wildignore",
603#endif
604#ifdef FEAT_WILDMENU
605 "+wildmenu",
606#else
607 "-wildmenu",
608#endif
609#ifdef FEAT_WINDOWS
610 "+windows",
611#else
612 "-windows",
613#endif
614#ifdef FEAT_WRITEBACKUP
615 "+writebackup",
616#else
617 "-writebackup",
618#endif
619#if defined(UNIX) || defined(VMS)
620# ifdef FEAT_X11
621 "+X11",
622# else
623 "-X11",
624# endif
625#endif
626#ifdef FEAT_XFONTSET
627 "+xfontset",
628#else
629 "-xfontset",
630#endif
631#ifdef FEAT_XIM
632 "+xim",
633#else
634 "-xim",
635#endif
636#if defined(UNIX) || defined(VMS)
637# ifdef USE_XSMP_INTERACT
638 "+xsmp_interact",
639# else
640# ifdef USE_XSMP
641 "+xsmp",
642# else
643 "-xsmp",
644# endif
645# endif
646# ifdef FEAT_XCLIPBOARD
647 "+xterm_clipboard",
648# else
649 "-xterm_clipboard",
650# endif
651#endif
652#ifdef FEAT_XTERM_SAVE
653 "+xterm_save",
654#else
655 "-xterm_save",
656#endif
657#ifdef WIN3264
658# ifdef FEAT_XPM_W32
659 "+xpm_w32",
660# else
661 "-xpm_w32",
662# endif
663#endif
664 NULL
665};
666
667static int included_patches[] =
668{ /* Add new patch number below this line */
669/**/
Bram Moolenaar334a3bf2006-08-08 14:45:44 +0000670 44,
671/**/
Bram Moolenaar3709e7c2006-08-08 14:29:16 +0000672 43,
673/**/
Bram Moolenaar12dec752006-07-23 20:37:09 +0000674 42,
675/**/
Bram Moolenaarbde35262006-07-23 20:12:24 +0000676 41,
677/**/
Bram Moolenaar412f7442006-07-23 19:51:57 +0000678 40,
679/**/
Bram Moolenaarecbaf552006-07-13 06:31:00 +0000680 39,
681/**/
Bram Moolenaarce6ef252006-07-12 19:49:41 +0000682 38,
683/**/
Bram Moolenaara3f2ecd2006-07-11 21:01:01 +0000684 37,
685/**/
Bram Moolenaar6c60ea22006-07-11 20:36:45 +0000686 36,
687/**/
Bram Moolenaara260a972006-06-23 19:36:29 +0000688 35,
689/**/
Bram Moolenaarb18e5902006-06-23 15:59:09 +0000690 34,
691/**/
Bram Moolenaar8aba9502006-06-23 15:25:34 +0000692 33,
693/**/
Bram Moolenaard8a92d72006-06-23 14:44:06 +0000694 32,
695/**/
Bram Moolenaar149667a2006-06-23 14:33:23 +0000696 31,
697/**/
Bram Moolenaar400fe882006-06-22 19:15:58 +0000698 30,
699/**/
Bram Moolenaar4015b2c2006-06-22 19:01:34 +0000700 29,
701/**/
Bram Moolenaar654b5b52006-06-22 17:47:10 +0000702 28,
703/**/
Bram Moolenaar35c92912006-06-22 17:34:26 +0000704 27,
705/**/
Bram Moolenaarb39ef122006-06-22 16:19:31 +0000706 26,
707/**/
Bram Moolenaar9dfb0f82006-06-22 16:03:05 +0000708 25,
709/**/
Bram Moolenaar5fcc3fe2006-06-22 15:35:14 +0000710 24,
711/**/
Bram Moolenaarbe46a1e2006-06-22 15:13:21 +0000712 23,
713/**/
Bram Moolenaar20ff7922006-06-20 19:10:43 +0000714 22,
715/**/
Bram Moolenaar4169da72006-06-20 18:49:32 +0000716 21,
717/**/
Bram Moolenaar7b240602006-06-20 18:39:51 +0000718 20,
719/**/
Bram Moolenaar6a584dc2006-06-20 18:29:34 +0000720 19,
721/**/
Bram Moolenaarc1cb78c2006-06-20 16:51:47 +0000722 18,
723/**/
Bram Moolenaar5fffc132006-05-13 15:22:39 +0000724 17,
725/**/
Bram Moolenaarae177eb2006-05-13 15:06:23 +0000726 16,
727/**/
Bram Moolenaar9fb0e132006-05-13 13:51:38 +0000728 15,
729/**/
Bram Moolenaar6a1a3702006-05-13 13:41:03 +0000730 14,
731/**/
Bram Moolenaar0440ca32006-05-13 13:24:33 +0000732 13,
733/**/
Bram Moolenaar2347f062006-05-13 12:48:30 +0000734 12,
735/**/
Bram Moolenaar2e978902006-05-13 12:37:50 +0000736 11,
737/**/
Bram Moolenaarc9a99912006-05-13 12:25:55 +0000738 10,
739/**/
Bram Moolenaar5dd95a12006-05-13 12:09:24 +0000740 9,
741/**/
Bram Moolenaar86c9ee22006-05-13 11:33:27 +0000742 8,
743/**/
Bram Moolenaar223b4312006-05-13 11:09:22 +0000744 7,
745/**/
Bram Moolenaar70fc5272006-05-13 10:55:25 +0000746 6,
747/**/
Bram Moolenaar408b5852006-05-13 10:44:07 +0000748 5,
749/**/
Bram Moolenaarb4872942006-05-13 10:32:52 +0000750 4,
751/**/
Bram Moolenaar8798be02006-05-13 10:11:39 +0000752 3,
753/**/
Bram Moolenaar862c27a2006-05-13 09:09:15 +0000754 2,
755/**/
Bram Moolenaar28e4c8d2006-05-09 16:15:42 +0000756 1,
757/**/
Bram Moolenaar071d4272004-06-13 20:20:40 +0000758 0
759};
760
761 int
762highest_patch()
763{
764 int i;
765 int h = 0;
766
767 for (i = 0; included_patches[i] != 0; ++i)
768 if (included_patches[i] > h)
769 h = included_patches[i];
770 return h;
771}
772
773#if defined(FEAT_EVAL) || defined(PROTO)
774/*
775 * Return TRUE if patch "n" has been included.
776 */
777 int
778has_patch(n)
779 int n;
780{
781 int i;
782
783 for (i = 0; included_patches[i] != 0; ++i)
784 if (included_patches[i] == n)
785 return TRUE;
786 return FALSE;
787}
788#endif
789
790 void
791ex_version(eap)
792 exarg_T *eap;
793{
794 /*
795 * Ignore a ":version 9.99" command.
796 */
797 if (*eap->arg == NUL)
798 {
799 msg_putchar('\n');
800 list_version();
801 }
802}
803
804 void
805list_version()
806{
807 int i;
808 int first;
809 char *s = "";
810
811 /*
812 * When adding features here, don't forget to update the list of
813 * internal variables in eval.c!
814 */
815 MSG(longVersion);
816#ifdef WIN3264
817# ifdef FEAT_GUI_W32
818# if defined(_MSC_VER) && (_MSC_VER <= 1010)
819 /* Only MS VC 4.1 and earlier can do Win32s */
820 MSG_PUTS(_("\nMS-Windows 16/32 bit GUI version"));
821# else
822 MSG_PUTS(_("\nMS-Windows 32 bit GUI version"));
823# endif
824 if (gui_is_win32s())
825 MSG_PUTS(_(" in Win32s mode"));
826# ifdef FEAT_OLE
827 MSG_PUTS(_(" with OLE support"));
828# endif
829# else
830 MSG_PUTS(_("\nMS-Windows 32 bit console version"));
831# endif
832#endif
833#ifdef WIN16
834 MSG_PUTS(_("\nMS-Windows 16 bit version"));
835#endif
836#ifdef MSDOS
837# ifdef DJGPP
838 MSG_PUTS(_("\n32 bit MS-DOS version"));
839# else
840 MSG_PUTS(_("\n16 bit MS-DOS version"));
841# endif
842#endif
843#ifdef MACOS
844# ifdef MACOS_X
845# ifdef MACOS_X_UNIX
846 MSG_PUTS(_("\nMacOS X (unix) version"));
847# else
848 MSG_PUTS(_("\nMacOS X version"));
849# endif
850#else
851 MSG_PUTS(_("\nMacOS version"));
852# endif
853#endif
854
855#ifdef RISCOS
856 MSG_PUTS(_("\nRISC OS version"));
857#endif
858#ifdef VMS
859 MSG_PUTS("\nOpenVMS version");
860#endif
861
862 /* Print the list of patch numbers if there is at least one. */
863 /* Print a range when patches are consecutive: "1-10, 12, 15-40, 42-45" */
864 if (included_patches[0] != 0)
865 {
866 MSG_PUTS(_("\nIncluded patches: "));
867 first = -1;
868 /* find last one */
869 for (i = 0; included_patches[i] != 0; ++i)
870 ;
871 while (--i >= 0)
872 {
873 if (first < 0)
874 first = included_patches[i];
875 if (i == 0 || included_patches[i - 1] != included_patches[i] + 1)
876 {
877 MSG_PUTS(s);
878 s = ", ";
879 msg_outnum((long)first);
880 if (first != included_patches[i])
881 {
882 MSG_PUTS("-");
883 msg_outnum((long)included_patches[i]);
884 }
885 first = -1;
886 }
887 }
888 }
889
890#ifdef MODIFIED_BY
891 MSG_PUTS("\n");
892 MSG_PUTS(_("Modified by "));
893 MSG_PUTS(MODIFIED_BY);
894#endif
895
896#ifdef HAVE_PATHDEF
897 if (*compiled_user != NUL || *compiled_sys != NUL)
898 {
899 MSG_PUTS(_("\nCompiled "));
900 if (*compiled_user != NUL)
901 {
902 MSG_PUTS(_("by "));
903 MSG_PUTS(compiled_user);
904 }
905 if (*compiled_sys != NUL)
906 {
907 MSG_PUTS("@");
908 MSG_PUTS(compiled_sys);
909 }
910 }
911#endif
912
913#ifdef FEAT_HUGE
914 MSG_PUTS(_("\nHuge version "));
915#else
916# ifdef FEAT_BIG
917 MSG_PUTS(_("\nBig version "));
918# else
919# ifdef FEAT_NORMAL
920 MSG_PUTS(_("\nNormal version "));
921# else
922# ifdef FEAT_SMALL
923 MSG_PUTS(_("\nSmall version "));
924# else
925 MSG_PUTS(_("\nTiny version "));
926# endif
927# endif
928# endif
929#endif
930#ifndef FEAT_GUI
931 MSG_PUTS(_("without GUI."));
932#else
933# ifdef FEAT_GUI_GTK
934# ifdef FEAT_GUI_GNOME
935# ifdef HAVE_GTK2
936 MSG_PUTS(_("with GTK2-GNOME GUI."));
937# else
938 MSG_PUTS(_("with GTK-GNOME GUI."));
939# endif
940# else
941# ifdef HAVE_GTK2
942 MSG_PUTS(_("with GTK2 GUI."));
943# else
944 MSG_PUTS(_("with GTK GUI."));
945# endif
946# endif
947# else
948# ifdef FEAT_GUI_MOTIF
949 MSG_PUTS(_("with X11-Motif GUI."));
950# else
951# ifdef FEAT_GUI_ATHENA
952# ifdef FEAT_GUI_NEXTAW
953 MSG_PUTS(_("with X11-neXtaw GUI."));
954# else
955 MSG_PUTS(_("with X11-Athena GUI."));
956# endif
957# else
Bram Moolenaar071d4272004-06-13 20:20:40 +0000958# ifdef FEAT_GUI_PHOTON
959 MSG_PUTS(_("with Photon GUI."));
960# else
961# if defined(MSWIN)
962 MSG_PUTS(_("with GUI."));
963# else
964# if defined (TARGET_API_MAC_CARBON) && TARGET_API_MAC_CARBON
965 MSG_PUTS(_("with Carbon GUI."));
966# else
967# if defined (TARGET_API_MAC_OSX) && TARGET_API_MAC_OSX
968 MSG_PUTS(_("with Cocoa GUI."));
969# else
970# if defined (MACOS)
971 MSG_PUTS(_("with (classic) GUI."));
Bram Moolenaar071d4272004-06-13 20:20:40 +0000972# endif
973# endif
974# endif
975# endif
Bram Moolenaar071d4272004-06-13 20:20:40 +0000976# endif
977# endif
978# endif
979# endif
980#endif
981 version_msg(_(" Features included (+) or not (-):\n"));
982
983 /* print all the features */
984 for (i = 0; features[i] != NULL; ++i)
985 {
986 version_msg(features[i]);
987 if (msg_col > 0)
988 version_msg(" ");
989 }
990
991 version_msg("\n");
992#ifdef SYS_VIMRC_FILE
993 version_msg(_(" system vimrc file: \""));
994 version_msg(SYS_VIMRC_FILE);
995 version_msg("\"\n");
996#endif
997#ifdef USR_VIMRC_FILE
998 version_msg(_(" user vimrc file: \""));
999 version_msg(USR_VIMRC_FILE);
1000 version_msg("\"\n");
1001#endif
1002#ifdef USR_VIMRC_FILE2
1003 version_msg(_(" 2nd user vimrc file: \""));
1004 version_msg(USR_VIMRC_FILE2);
1005 version_msg("\"\n");
1006#endif
1007#ifdef USR_VIMRC_FILE3
1008 version_msg(_(" 3rd user vimrc file: \""));
1009 version_msg(USR_VIMRC_FILE3);
1010 version_msg("\"\n");
1011#endif
1012#ifdef USR_EXRC_FILE
1013 version_msg(_(" user exrc file: \""));
1014 version_msg(USR_EXRC_FILE);
1015 version_msg("\"\n");
1016#endif
1017#ifdef USR_EXRC_FILE2
1018 version_msg(_(" 2nd user exrc file: \""));
1019 version_msg(USR_EXRC_FILE2);
1020 version_msg("\"\n");
1021#endif
1022#ifdef FEAT_GUI
1023# ifdef SYS_GVIMRC_FILE
1024 version_msg(_(" system gvimrc file: \""));
1025 version_msg(SYS_GVIMRC_FILE);
1026 version_msg("\"\n");
1027# endif
1028 version_msg(_(" user gvimrc file: \""));
1029 version_msg(USR_GVIMRC_FILE);
1030 version_msg("\"\n");
1031# ifdef USR_GVIMRC_FILE2
1032 version_msg(_("2nd user gvimrc file: \""));
1033 version_msg(USR_GVIMRC_FILE2);
1034 version_msg("\"\n");
1035# endif
1036# ifdef USR_GVIMRC_FILE3
1037 version_msg(_("3rd user gvimrc file: \""));
1038 version_msg(USR_GVIMRC_FILE3);
1039 version_msg("\"\n");
1040# endif
1041#endif
1042#ifdef FEAT_GUI
1043# ifdef SYS_MENU_FILE
1044 version_msg(_(" system menu file: \""));
1045 version_msg(SYS_MENU_FILE);
1046 version_msg("\"\n");
1047# endif
1048#endif
1049#ifdef HAVE_PATHDEF
1050 if (*default_vim_dir != NUL)
1051 {
1052 version_msg(_(" fall-back for $VIM: \""));
1053 version_msg((char *)default_vim_dir);
1054 version_msg("\"\n");
1055 }
1056 if (*default_vimruntime_dir != NUL)
1057 {
1058 version_msg(_(" f-b for $VIMRUNTIME: \""));
1059 version_msg((char *)default_vimruntime_dir);
1060 version_msg("\"\n");
1061 }
1062 version_msg(_("Compilation: "));
1063 version_msg((char *)all_cflags);
1064 version_msg("\n");
1065#ifdef VMS
1066 if (*compiler_version != NUL)
1067 {
1068 version_msg(_("Compiler: "));
1069 version_msg((char *)compiler_version);
1070 version_msg("\n");
1071 }
1072#endif
1073 version_msg(_("Linking: "));
1074 version_msg((char *)all_lflags);
1075#endif
1076#ifdef DEBUG
1077 version_msg("\n");
1078 version_msg(_(" DEBUG BUILD"));
1079#endif
1080}
1081
1082/*
1083 * Output a string for the version message. If it's going to wrap, output a
1084 * newline, unless the message is too long to fit on the screen anyway.
1085 */
1086 static void
1087version_msg(s)
1088 char *s;
1089{
1090 int len = (int)STRLEN(s);
1091
1092 if (!got_int && len < (int)Columns && msg_col + len >= (int)Columns
1093 && *s != '\n')
1094 msg_putchar('\n');
1095 if (!got_int)
1096 MSG_PUTS(s);
1097}
1098
1099static void do_intro_line __ARGS((int row, char_u *mesg, int add_version, int attr));
1100
1101/*
1102 * Give an introductory message about Vim.
1103 * Only used when starting Vim on an empty file, without a file name.
1104 * Or with the ":intro" command (for Sven :-).
1105 */
1106 void
1107intro_message(colon)
1108 int colon; /* TRUE for ":intro" */
1109{
1110 int i;
1111 int row;
1112 int blanklines;
1113 int sponsor;
1114 char *p;
1115 static char *(lines[]) =
1116 {
1117 N_("VIM - Vi IMproved"),
1118 "",
1119 N_("version "),
1120 N_("by Bram Moolenaar et al."),
1121#ifdef MODIFIED_BY
1122 " ",
1123#endif
1124 N_("Vim is open source and freely distributable"),
1125 "",
1126 N_("Help poor children in Uganda!"),
1127 N_("type :help iccf<Enter> for information "),
1128 "",
1129 N_("type :q<Enter> to exit "),
1130 N_("type :help<Enter> or <F1> for on-line help"),
Bram Moolenaar3fdfa4a2004-10-07 21:02:47 +00001131 N_("type :help version7<Enter> for version info"),
Bram Moolenaar071d4272004-06-13 20:20:40 +00001132 NULL,
1133 "",
1134 N_("Running in Vi compatible mode"),
1135 N_("type :set nocp<Enter> for Vim defaults"),
1136 N_("type :help cp-default<Enter> for info on this"),
1137 };
1138#ifdef FEAT_GUI
1139 static char *(gui_lines[]) =
1140 {
1141 NULL,
1142 NULL,
1143 NULL,
1144 NULL,
1145#ifdef MODIFIED_BY
1146 NULL,
1147#endif
1148 NULL,
1149 NULL,
1150 NULL,
1151 N_("menu Help->Orphans for information "),
1152 NULL,
1153 N_("Running modeless, typed text is inserted"),
1154 N_("menu Edit->Global Settings->Toggle Insert Mode "),
1155 N_(" for two modes "),
1156 NULL,
1157 NULL,
1158 NULL,
1159 N_("menu Edit->Global Settings->Toggle Vi Compatible"),
1160 N_(" for Vim defaults "),
1161 };
1162#endif
1163
1164 /* blanklines = screen height - # message lines */
1165 blanklines = (int)Rows - ((sizeof(lines) / sizeof(char *)) - 1);
1166 if (!p_cp)
1167 blanklines += 4; /* add 4 for not showing "Vi compatible" message */
1168#if defined(WIN3264) && !defined(FEAT_GUI_W32)
1169 if (mch_windows95())
1170 blanklines -= 3; /* subtract 3 for showing "Windows 95" message */
1171#endif
1172
1173#ifdef FEAT_WINDOWS
1174 /* Don't overwrite a statusline. Depends on 'cmdheight'. */
1175 if (p_ls > 1)
1176 blanklines -= Rows - topframe->fr_height;
1177#endif
1178 if (blanklines < 0)
1179 blanklines = 0;
1180
1181 /* Show the sponsor and register message one out of four times, the Uganda
1182 * message two out of four times. */
Bram Moolenaarf4cd3e82005-12-22 22:47:02 +00001183 sponsor = (int)time(NULL);
Bram Moolenaar071d4272004-06-13 20:20:40 +00001184 sponsor = ((sponsor & 2) == 0) - ((sponsor & 4) == 0);
1185
1186 /* start displaying the message lines after half of the blank lines */
1187 row = blanklines / 2;
1188 if ((row >= 2 && Columns >= 50) || colon)
1189 {
1190 for (i = 0; i < (int)(sizeof(lines) / sizeof(char *)); ++i)
1191 {
1192 p = lines[i];
1193#ifdef FEAT_GUI
1194 if (p_im && gui.in_use && gui_lines[i] != NULL)
1195 p = gui_lines[i];
1196#endif
1197 if (p == NULL)
1198 {
1199 if (!p_cp)
1200 break;
1201 continue;
1202 }
1203 if (sponsor != 0)
1204 {
1205 if (strstr(p, "children") != NULL)
1206 p = sponsor < 0
1207 ? N_("Sponsor Vim development!")
1208 : N_("Become a registered Vim user!");
1209 else if (strstr(p, "iccf") != NULL)
1210 p = sponsor < 0
1211 ? N_("type :help sponsor<Enter> for information ")
1212 : N_("type :help register<Enter> for information ");
1213 else if (strstr(p, "Orphans") != NULL)
1214 p = N_("menu Help->Sponsor/Register for information ");
1215 }
1216 if (*p != NUL)
1217 do_intro_line(row, (char_u *)_(p), i == 2, 0);
1218 ++row;
1219 }
1220#if defined(WIN3264) && !defined(FEAT_GUI_W32)
1221 if (mch_windows95())
1222 {
1223 do_intro_line(++row,
1224 (char_u *)_("WARNING: Windows 95/98/ME detected"),
1225 FALSE, hl_attr(HLF_E));
1226 do_intro_line(++row,
1227 (char_u *)_("type :help windows95<Enter> for info on this"),
1228 FALSE, 0);
1229 }
1230#endif
1231 }
1232
1233 /* Make the wait-return message appear just below the text. */
1234 if (colon)
1235 msg_row = row;
1236}
1237
1238 static void
1239do_intro_line(row, mesg, add_version, attr)
1240 int row;
1241 char_u *mesg;
1242 int add_version;
1243 int attr;
1244{
1245 char_u vers[20];
1246 int col;
1247 char_u *p;
1248 int l;
1249 int clen;
1250#ifdef MODIFIED_BY
1251# define MODBY_LEN 150
1252 char_u modby[MODBY_LEN];
1253
1254 if (*mesg == ' ')
1255 {
Bram Moolenaarce0842a2005-07-18 21:58:11 +00001256 vim_strncpy(modby, _("Modified by "), MODBY_LEN - 1);
Bram Moolenaar071d4272004-06-13 20:20:40 +00001257 l = STRLEN(modby);
Bram Moolenaarce0842a2005-07-18 21:58:11 +00001258 vim_strncpy(modby + l, MODIFIED_BY, MODBY_LEN - l - 1);
Bram Moolenaar071d4272004-06-13 20:20:40 +00001259 mesg = modby;
1260 }
1261#endif
1262
1263 /* Center the message horizontally. */
1264 col = vim_strsize(mesg);
1265 if (add_version)
1266 {
1267 STRCPY(vers, mediumVersion);
1268 if (highest_patch())
1269 {
1270 /* Check for 9.9x or 9.9xx, alpha/beta version */
1271 if (isalpha((int)mediumVersion[3]))
1272 {
1273 if (isalpha((int)mediumVersion[4]))
1274 sprintf((char *)vers + 5, ".%d%s", highest_patch(),
1275 mediumVersion + 5);
1276 else
1277 sprintf((char *)vers + 4, ".%d%s", highest_patch(),
1278 mediumVersion + 4);
1279 }
1280 else
1281 sprintf((char *)vers + 3, ".%d", highest_patch());
1282 }
1283 col += (int)STRLEN(vers);
1284 }
1285 col = (Columns - col) / 2;
1286 if (col < 0)
1287 col = 0;
1288
1289 /* Split up in parts to highlight <> items differently. */
1290 for (p = mesg; *p != NUL; p += l)
1291 {
1292 clen = 0;
1293 for (l = 0; p[l] != NUL
1294 && (l == 0 || (p[l] != '<' && p[l - 1] != '>')); ++l)
1295 {
1296#ifdef FEAT_MBYTE
1297 if (has_mbyte)
1298 {
1299 clen += ptr2cells(p + l);
Bram Moolenaar0fa313a2005-08-10 21:07:57 +00001300 l += (*mb_ptr2len)(p + l) - 1;
Bram Moolenaar071d4272004-06-13 20:20:40 +00001301 }
1302 else
1303#endif
1304 clen += byte2cells(p[l]);
1305 }
1306 screen_puts_len(p, l, row, col, *p == '<' ? hl_attr(HLF_8) : attr);
1307 col += clen;
1308 }
1309
1310 /* Add the version number to the version line. */
1311 if (add_version)
1312 screen_puts(vers, row, col, 0);
1313}
1314
1315/*
1316 * ":intro": clear screen, display intro screen and wait for return.
1317 */
1318/*ARGSUSED*/
1319 void
1320ex_intro(eap)
1321 exarg_T *eap;
1322{
1323 screenclear();
1324 intro_message(TRUE);
1325 wait_return(TRUE);
1326}