| Line 774... |
Line 774... |
| 774 |
msg2b[] =
|
774 |
msg2b[] =
|
| 775 |
" --max-mem-size=N Set limit for memory to be used by R\n --max-ppsize=N Set max size of protect stack to N\n",
|
775 |
" --max-mem-size=N Set limit for memory to be used by R\n --max-ppsize=N Set max size of protect stack to N\n",
|
| 776 |
msg3[] =
|
776 |
msg3[] =
|
| 777 |
" -q, --quiet Don't print startup message\n --silent Same as --quiet\n --slave Make R run as quietly as possible\n --verbose Print more information about progress\n --args Skip the rest of the command line\n",
|
777 |
" -q, --quiet Don't print startup message\n --silent Same as --quiet\n --slave Make R run as quietly as possible\n --verbose Print more information about progress\n --args Skip the rest of the command line\n",
|
| 778 |
msg4[] =
|
778 |
msg4[] =
|
| 779 |
" --ess Don't use getline for command-line editing\n and assert interactive use\n -f file Take input from 'file'\n --file=file ditto\n -e expression Use 'expression' as input\n\nOne or more -e options can be used, but not together with -f or --file";
|
779 |
" --ess Don't use getline for command-line editing\n and assert interactive use\n -f file Take input from 'file'\n --file=file ditto\n -e expression Use 'expression' as input\n\nOne or more -e options can be used, but not together with -f or --file\n",
|
| - |
|
780 |
msg5[] = "\nAn argument ending in .RData (in any case) is taken as the path\nto the workspace to be restored (and implies --restore)";
|
| 780 |
if(CharacterMode == RTerm)
|
781 |
if(CharacterMode == RTerm)
|
| 781 |
strcpy(msg, "Usage: Rterm [options] [< infile] [> outfile] [EnvVars]\n\n");
|
782 |
strcpy(msg, "Usage: Rterm [options] [< infile] [> outfile] [EnvVars]\n\n");
|
| 782 |
else strcpy(msg, "Usage: Rgui [options] [EnvVars]\n\n");
|
783 |
else strcpy(msg, "Usage: Rgui [options] [EnvVars]\n\n");
|
| 783 |
strcat(msg, msg0);
|
784 |
strcat(msg, msg0);
|
| 784 |
strcat(msg, msg1);
|
785 |
strcat(msg, msg1);
|
| 785 |
strcat(msg, msg2);
|
786 |
strcat(msg, msg2);
|
| 786 |
strcat(msg, msg2b);
|
787 |
strcat(msg, msg2b);
|
| 787 |
strcat(msg, msg3);
|
788 |
strcat(msg, msg3);
|
| 788 |
if(CharacterMode == RTerm) strcat(msg, msg4);
|
789 |
if(CharacterMode == RTerm) strcat(msg, msg4);
|
| - |
|
790 |
strcat(msg, msg5);
|
| 789 |
strcat(msg, "\n");
|
791 |
strcat(msg, "\n");
|
| 790 |
return msg;
|
792 |
return msg;
|
| 791 |
}
|
793 |
}
|
| 792 |
|
794 |
|
| 793 |
void R_setupHistory(void)
|
795 |
void R_setupHistory(void)
|
| Line 1037... |
Line 1039... |
| 1037 |
} else {
|
1039 |
} else {
|
| 1038 |
snprintf(s, 1024, _("WARNING: unknown option '%s'\n"), *av);
|
1040 |
snprintf(s, 1024, _("WARNING: unknown option '%s'\n"), *av);
|
| 1039 |
R_ShowMessage(s);
|
1041 |
R_ShowMessage(s);
|
| 1040 |
}
|
1042 |
}
|
| 1041 |
} else {
|
1043 |
} else {
|
| 1042 |
/* Look for *.RData, as given by drag-and-drop */
|
1044 |
/* Look for *.RData, as given by drag-and-drop
|
| - |
|
1045 |
and file association */
|
| 1043 |
char path[MAX_PATH];
|
1046 |
char path[MAX_PATH];
|
| 1044 |
|
1047 |
|
| 1045 |
if(!usedRdata &&
|
1048 |
if(!usedRdata &&
|
| 1046 |
strlen(*av) >= 6 &&
|
1049 |
strlen(*av) >= 6 &&
|
| 1047 |
stricmp(*av+strlen(*av)-6, ".RData") == 0) {
|
1050 |
stricmp(*av+strlen(*av)-6, ".RData") == 0) {
|
The R Project SVN
R