src/RInternals/InternalContext.h

//  Rkernel is an execution kernel for R interpreter
//  Copyright (C) 2019 JetBrains s.r.o.
//
//  This program is free software: you can redistribute it and/or modify
//  it under the terms of the GNU General Public License as published by
//  the Free Software Foundation, either version 3 of the License, or
//  (at your option) any later version.
//
//  This program is distributed in the hope that it will be useful,
//  but WITHOUT ANY WARRANTY; without even the implied warranty of
//  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
//  GNU General Public License for more details.
//
//  You should have received a copy of the GNU General Public License
//  along with this program.  If not, see <https://www.gnu.org/licenses/>.


#ifndef RWRAPPER_RINTERNALS_CONTEXT_H
#define RWRAPPER_RINTERNALS_CONTEXT_H

#include <setjmp.h>
#include "../RStuff/RInclude.h"

#ifdef Win32
typedef std::aligned_storage_t<256 + 16, 8> JMP_BUF;
#else
# ifdef _MACOS
#  define JMP_BUF sigjmp_buf
# else
#  define JMP_BUF jmp_buf
# endif
#endif

enum {
  CTXT_TOPLEVEL = 0,
  CTXT_NEXT = 1,
  CTXT_BREAK = 2,
  CTXT_LOOP = 3,
  CTXT_FUNCTION = 4,
  CTXT_CCODE = 8,
  CTXT_RETURN = 12,
  CTXT_BROWSER = 16,
  CTXT_GENERIC = 20,
  CTXT_RESTART = 32,
  CTXT_BUILTIN = 64,
  CTXT_UNWIND = 128
};

// R 3.3 and before
struct RInternalStructures_3_3 {
  struct RCNTXT {
    struct RCNTXT_old *nextcontext;
    int callflag;
    JMP_BUF cjmpbuf;
    int cstacktop;
    int evaldepth;
    SEXP promargs;
    SEXP callfun;
    SEXP sysparent;
    SEXP call;
    SEXP cloenv;
    SEXP conexit;
    void (*cend)(void *);
    void *cenddata;
    void *vmax;
    int intsusp;
    int gcenabled;
    SEXP handlerstack;
    SEXP restartstack;
    struct RPRSTACK *prstack;
    void *nodestack;
#ifdef BC_INT_STACK
    IStackval *intstack;
#endif
    SEXP srcref;
    int browserfinish;
    SEXP returnValue;
    struct RCNTXT_old *jumptarget;
    int jumpmask;
  };
};

// R 3.4 - 3.6
struct RInternalStructures_3_4 {
  struct RCNTXT {
    struct RCNTXT_new *nextcontext;
    int callflag;
    JMP_BUF cjmpbuf;
    int cstacktop;
    int evaldepth;
    SEXP promargs;
    SEXP callfun;
    SEXP sysparent;
    SEXP call;
    SEXP cloenv;
    SEXP conexit;
    void (*cend)(void *);
    void *cenddata;
    void *vmax;
    int intsusp;
    int gcenabled;
    int bcintactive;
    SEXP bcbody;
    void *bcpc;
    SEXP handlerstack;
    SEXP restartstack;
    struct RPRSTACK *prstack;
    void *nodestack;
    SEXP srcref;
    int browserfinish;
    SEXP returnValue;
    struct RCNTXT_new *jumptarget;
    int jumpmask;
  };
};

// R 4.0
struct RInternalStructures_4_0 {
  struct RCNTXT {
    struct RCNTXT *nextcontext;
    int callflag;
    JMP_BUF cjmpbuf;
    int cstacktop;
    int evaldepth;
    SEXP promargs;
    SEXP callfun;
    SEXP sysparent;
    SEXP call;
    SEXP cloenv;
    SEXP conexit;
    void (*cend)(void *);
    void *cenddata;
    void *vmax;
    int intsusp;
    int gcenabled;
    int bcintactive;
    SEXP bcbody;
    void* bcpc;
    SEXP handlerstack;
    SEXP restartstack;
    struct RPRSTACK *prstack;
    void *nodestack;
    void *bcprottop;
    SEXP srcref;
    int browserfinish;
    SEXP returnValue;
    struct RCNTXT *jumptarget;
    int jumpmask;
  };
};

struct RInternalStructures_4_4 {
  struct RCNTXT {
    struct RCNTXT *nextcontext;
    int callflag;
    JMP_BUF cjmpbuf;
    int cstacktop;
    int evaldepth;
    SEXP promargs;
    SEXP callfun;
    SEXP sysparent;
    SEXP call;
    SEXP cloenv;
    SEXP conexit;
    void (*cend)(void *);
    void *cenddata;
    void *vmax;
    int intsusp;
    int gcenabled;
    int bcintactive;
    SEXP bcbody;
    void* bcpc;
    ptrdiff_t relpc; // https://github.com/r-devel/r-svn/commit/59c821d19ff741a06d0e4cea7fad9aff904eeab4
    SEXP handlerstack;
    SEXP restartstack;
    struct RPRSTACK *prstack;
    void *nodestack;
    void *bcprottop;
    void *bcframe; // https://github.com/r-devel/r-svn/commit/2d0a210cff318506404263f9a4814064135a686a
    SEXP srcref;
    int browserfinish;
    SEXP returnValue;
    struct RCNTXT *jumptarget;
    int jumpmask;
  };
};

#ifdef Win32
extern "C" {
  LibExtern void* R_GlobalContext;
};
#endif

#endif //RWRAPPER_RINTERNALS_CONTEXT_H