The R Project SVN R

Rev

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

Rev 77605 Rev 77769
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) 1997--2019  The R Core Team
 4 
 *  Copyright (C) 1997--2020  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 63... Line 63...
63 
Rboolean DebugMenuitem = FALSE;  /* exported for rui.c */
 63 
Rboolean DebugMenuitem = FALSE;  /* exported for rui.c */
64 
static FILE *ifp = NULL;
 64 
static FILE *ifp = NULL;
65 
static char ifile[MAX_PATH] = "\0";
 65 
static char ifile[MAX_PATH] = "\0";
66 
 
 66 
 
67 
__declspec(dllexport) UImode  CharacterMode = RGui; /* some compilers want initialized for export */
 67 
__declspec(dllexport) UImode  CharacterMode = RGui; /* some compilers want initialized for export */
- 
 
 68 
__declspec(dllexport) Rboolean EmitEmbeddedUTF8 = TRUE;
68 
int ConsoleAcceptCmd;
 69 
int ConsoleAcceptCmd;
69 
void set_workspace_name(const char *fn); /* ../main/startup.c */
 70 
void set_workspace_name(const char *fn); /* ../main/startup.c */
70 
 
 71 
 
71 
/* used to avoid some flashing during cleaning up */
 72 
/* used to avoid some flashing during cleaning up */
72 
Rboolean AllDevicesKilled = FALSE;
 73 
Rboolean AllDevicesKilled = FALSE;
Line 752... Line 753...
752 
 
 753 
 
753 
    CharacterMode = Rp->CharacterMode;
 754 
    CharacterMode = Rp->CharacterMode;
754 
    switch(CharacterMode) {
 755 
    switch(CharacterMode) {
755 
    case RGui:
 756 
    case RGui:
756 
	R_GUIType = "Rgui";
 757 
	R_GUIType = "Rgui";
- 
 
 758 
	Rp->EmitEmbeddedUTF8 = TRUE;
757 
	break;
 759 
	break;
758 
    case RTerm:
 760 
    case RTerm:
759 
	R_GUIType = "RTerm";
 761 
	R_GUIType = "RTerm";
- 
 
 762 
	Rp->EmitEmbeddedUTF8 = FALSE;
760 
	break;
 763 
	break;
761 
    default:
 764 
    default:
762 
	R_GUIType = "unknown";
 765 
	R_GUIType = "unknown";
763 
    }
 766 
    }
- 
 
 767 
    EmitEmbeddedUTF8 = Rp->EmitEmbeddedUTF8;
764 
    TrueReadConsole = Rp->ReadConsole;
 768 
    TrueReadConsole = Rp->ReadConsole;
765 
    TrueWriteConsole = Rp->WriteConsole;
 769 
    TrueWriteConsole = Rp->WriteConsole;
766 
    TrueWriteConsoleEx = Rp->WriteConsoleEx;
 770 
    TrueWriteConsoleEx = Rp->WriteConsoleEx;
767 
    R_CallBackHook = Rp->CallBack;
 771 
    R_CallBackHook = Rp->CallBack;
768 
    pR_ShowMessage = Rp->ShowMessage;
 772 
    pR_ShowMessage = Rp->ShowMessage;