The R Project SVN R

Rev

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

Rev 36820 Rev 36990
Line 22... Line 22...
22 
#include <config.h>
 22 
#include <config.h>
23 
#endif
 23 
#endif
24 
 
 24 
 
25 
#include "Defn.h"
 25 
#include "Defn.h"
26 
 
 26 
 
27 
SEXP do_debug(SEXP call, SEXP op, SEXP args, SEXP rho)
 27 
SEXP attribute_hidden do_debug(SEXP call, SEXP op, SEXP args, SEXP rho)
28 
{
 28 
{
29 
    checkArity(op,args);
 29 
    checkArity(op,args);
30 
#define find_char_fun \
 30 
#define find_char_fun \
31 
    if (isValidString(CAR(args))) {				\
 31 
    if (isValidString(CAR(args))) {				\
32 
	SEXP s;							\
 32 
	SEXP s;							\
Line 49... Line 49...
49 
	break;
 49 
	break;
50 
    }
 50 
    }
51 
    return R_NilValue;
 51 
    return R_NilValue;
52 
}
 52 
}
53 
 
 53 
 
54 
SEXP do_trace(SEXP call, SEXP op, SEXP args, SEXP rho)
 54 
SEXP attribute_hidden do_trace(SEXP call, SEXP op, SEXP args, SEXP rho)
55 
{
 55 
{
56 
    checkArity(op, args);
 56 
    checkArity(op, args);
57 
 
 57 
 
58 
    find_char_fun
 58 
    find_char_fun
59 
 
 59