The R Project SVN R

Rev

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

Rev 15655 Rev 22913
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) 2000     the R Development Core Team
 3 
 *  Copyright (C) 2000-3     the R Development Core Team
4 
 *
 4 
 *
5 
 *  This program is free software; you can redistribute it and/or modify
 5 
 *  This program is free software; you can redistribute it and/or modify
6 
 *  it under the terms of the GNU General Public License as published by
 6 
 *  it under the terms of the GNU General Public License as published by
7 
 *  the Free Software Foundation; either version 2 of the License, or
 7 
 *  the Free Software Foundation; either version 2 of the License, or
8 
 *  (at your option) any later version.
 8 
 *  (at your option) any later version.
Line 23... Line 23...
23 
 
 23 
 
24 
#include "Defn.h"
 24 
#include "Defn.h"
25 
#include "Rdevices.h"
 25 
#include "Rdevices.h"
26 
#include "devUI.h"
 26 
#include "devUI.h"
27 
 
 27 
 
28 
Rboolean stub_X11DeviceDriver(DevDesc *dd,
 - 
 
29 
		    char *display,
 - 
 
30 
		    double width,
 - 
 
31 
		    double height,
 - 
 
32 
		    double pointsize,
 - 
 
33 
		    double gamma,
 - 
 
34 
		    X_COLORTYPE colormodel,
 - 
 
35 
                    int maxcube, int canvascolor)
 - 
 
36 
{
 - 
 
37 
    error("the x11 device has not been loaded");
 - 
 
38 
    return FALSE;
 - 
 
39 
}
 - 
 
40 
 
 - 
 
41 
Rboolean stub_R_GetX11Image(int d, void *ppximage, int *pwidth, int *pheight)
 - 
 
42 
{
 - 
 
43 
    error("the x11 device has not been loaded");
 - 
 
44 
    return FALSE;
 - 
 
45 
}
 - 
 
46 
 
 - 
 
47 
Rboolean stub_GnomeDeviceDriver(DevDesc *dd, char *display,
28 
Rboolean stub_GnomeDeviceDriver(DevDesc *dd, char *display,
48 
			   double width, double height, double pointsize)
 29 
			   double width, double height, double pointsize)
49 
{
 30 
{
50 
    error("the gnome device is not loaded in this version of R");
 31 
    error("the gnome device is not loaded in this version of R");
51 
    return FALSE;
 32 
    return FALSE;
Line 56... Line 37...
56 
{
 37 
{
57 
    error("the gtk device is only available with --gui=GNOME");
 38 
    error("the gtk device is only available with --gui=GNOME");
58 
    return FALSE;
 39 
    return FALSE;
59 
}
 40 
}
60 
 
 41 
 
61 
SEXP do_dataentry(SEXP call, SEXP op, SEXP args, SEXP rho)
 - 
 
62 
{
 - 
 
63 
    return ptr_dataentry(call, op, args, rho);
 - 
 
64 
}
 - 
 
65 
 
 - 
 
66 
SEXP stub_dataentry(SEXP call, SEXP op, SEXP args, SEXP rho)
 42 
SEXP stub_dataentry(SEXP call, SEXP op, SEXP args, SEXP rho)
67 
{
 43 
{
68 
    error("the data entry editor has not been loaded");
 44 
    error("the data entry editor has not been loaded");
69 
    return R_NilValue;
 45 
    return R_NilValue;
70 
}
 46 
}