The R Project SVN R

Rev

Rev 84423 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 84423 Rev 84987
Line 1... Line 1...
1 
/*
 1 
/*
2 
 *  R : A Computer Language for Statistical Data Analysis
 2 
 *  R : A Computer Language for Statistical Data Analysis
3 
 *  Copyright (C) 1995, 1996  Robert Gentleman and Ross Ihaka
 3 
 *  Copyright (C) 1995, 1996  Robert Gentleman and Ross Ihaka
4 
 *  Copyright (C) 1998--2021  The R Core Team
 4 
 *  Copyright (C) 1998--2023  The R Core Team
5 
 *
 5 
 *
6 
 *  This program is free software; you can redistribute it and/or modify
 6 
 *  This program is free software; you can redistribute it and/or modify
7 
 *  it under the terms of the GNU General Public License as published by
 7 
 *  it under the terms of the GNU General Public License as published by
8 
 *  the Free Software Foundation; either version 2 of the License, or
 8 
 *  the Free Software Foundation; either version 2 of the License, or
9 
 *  (at your option) any later version.
 9 
 *  (at your option) any later version.
Line 156... Line 156...
156 
	strcat(s, nick);
 156 
	strcat(s, nick);
157 
    }
 157 
    }
158 
    SPRINTF_2("\nCopyright (C) %s The R Foundation for Statistical Computing\n",
 158 
    SPRINTF_2("\nCopyright (C) %s The R Foundation for Statistical Computing\n",
159 
	      R_YEAR);
 159 
	      R_YEAR);
160 
    SPRINTF_2("Platform: %s", R_PLATFORM);
 160 
    SPRINTF_2("Platform: %s", R_PLATFORM);
- 
 
 161 
#ifdef R_ARCH
161 
    if(strlen(R_ARCH)) { SPRINTF_2("/%s", R_ARCH); }
 162 
    if(strlen(R_ARCH)) { SPRINTF_2("/%s", R_ARCH); }
- 
 
 163 
#endif
162 
    if(sizeof(void *) != 8) {
 164 
    if(sizeof(void *) != 8) {
163 
	SPRINTF_2(" (%d-bit)", 8*(int)sizeof(void *));
 165 
	SPRINTF_2(" (%d-bit)", 8*(int)sizeof(void *));
164 
    }
 166 
    }
165 
    strcat(s, "\n");
 167 
    strcat(s, "\n");
166 
}
 168 
}