The R Project SVN R

Rev

Rev 25329 | Rev 32832 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 25329 Rev 26792
Line 25... Line 25...
25 
#include "Defn.h"
 25 
#include "Defn.h"
26 
#include <Rversion.h>
 26 
#include <Rversion.h>
27 
 
 27 
 
28 
void PrintGreeting(void)
 28 
void PrintGreeting(void)
29 
{
 29 
{
30 
    Rprintf("\nR : Copyright %s, The R Development Core Team\n", R_YEAR);
 30 
    Rprintf("\nR : Copyright %s, The R Foundation for Statistical Computing\n",
- 
 
 31 
	    R_YEAR);
31 
    Rprintf("Version %s.%s %s (%s-%s-%s)\n\n",
 32 
    Rprintf("Version %s.%s %s (%s-%s-%s), ISBN 3-900051-00-3\n\n",
32 
	    R_MAJOR, R_MINOR, R_STATUS, R_YEAR, R_MONTH, R_DAY);
 33 
	    R_MAJOR, R_MINOR, R_STATUS, R_YEAR, R_MONTH, R_DAY);
33 
    Rprintf("R is free software and comes with ABSOLUTELY NO WARRANTY.\n"
 34 
    Rprintf("R is free software and comes with ABSOLUTELY NO WARRANTY.\n"
34 
	    "You are welcome to redistribute it under certain conditions.\n"
 35 
	    "You are welcome to redistribute it under certain conditions.\n"
35 
	    "Type 'license()' or 'licence()' for distribution details.\n\n");
 36 
	    "Type 'license()' or 'licence()' for distribution details.\n\n");
36 
    Rprintf("R is a collaborative project with many contributors.\n"
 37 
    Rprintf("R is a collaborative project with many contributors.\n"
37 
	    "Type 'contributors()' for more information.\n\n");
 38 
	    "Type 'contributors()' for more information and\n"
- 
 
 39 
	    "'citation()' on how to cite R in publications.\n\n");
38 
    Rprintf("Type 'demo()' for some demos, 'help()' for on-line help, or\n"
 40 
    Rprintf("Type 'demo()' for some demos, 'help()' for on-line help, or\n"
39 
            "'help.start()' for a HTML browser interface to help.\n"
 41 
            "'help.start()' for a HTML browser interface to help.\n"
40 
	    "Type 'q()' to quit R.\n\n");
 42 
	    "Type 'q()' to quit R.\n\n");
41 
}
 43 
}
42 
 
 44