Back to index

plt-scheme  4.2.1
Defines | Functions | Variables
wxs_glob.cxx File Reference
#include "wx_utils.h"
#include "wx_dialg.h"
#include "wx_cmdlg.h"
#include "wx_timer.h"
#include "wx_dcps.h"
#include "wx_main.h"
#include "wxscheme.h"
#include "wxs_glob.h"

Go to the source code of this file.

Defines

#define BM_IN_USE(map)   ((map)->selectedIntoDC)
#define ESCAPE_NO_RET_VAL   /*empty*/
#define wxGETDIR   0
#define wxBUNDLES_OK   0
#define wxBUNDLES_ENTER   0
#define USE_PRINTER   1
#define FILE_SEL_DEF_PATTERN   "*.*"

Functions

static void wxsFillPrivateColor (wxDC *dc, wxColour *c)
static void wxCancelQuit ()
static void wxsDisplayOrigin (int *x, int *y, Bool flags=FALSE)
static void init_symset_fileSelMode (void)
static int unbundle_symset_fileSelMode (Scheme_Object *v, const char *where)
static int istype_symset_fileSelMode (Scheme_Object *v, const char *where)
static Scheme_Objectbundle_symset_fileSelMode (int v)
voidwxSchemeYield (void *sema)
void wxFlushDisplay (void)
static char * wxStripMenuCodes_Scheme (char *in)
int objscheme_istype_wxFrame (Scheme_Object *obj, const char *stop, int nullOK)
class wxFrameobjscheme_unbundle_wxFrame (Scheme_Object *obj, const char *where, int nullOK)
int objscheme_istype_wxDialogBox (Scheme_Object *obj, const char *stop, int nullOK)
class wxDialogBoxobjscheme_unbundle_wxDialogBox (Scheme_Object *obj, const char *where, int nullOK)
static Scheme_ObjectwxsGlobalwxCancelQuit (int n, Scheme_Object *p[])
static Scheme_ObjectwxsGlobalwxsFillPrivateColor (int n, Scheme_Object *p[])
static Scheme_ObjectwxsGlobalwxFlushDisplay (int n, Scheme_Object *p[])
static Scheme_ObjectwxsGlobalwxSchemeYield (int n, Scheme_Object *p[])
static Scheme_ObjectwxsGlobalwxWriteResource (int n, Scheme_Object *p[])
static Scheme_ObjectwxsGlobalwxGetResource (int n, Scheme_Object *p[])
static Scheme_ObjectwxsGlobalwxStripMenuCodes_Scheme (int n, Scheme_Object *p[])
static Scheme_ObjectwxsGlobalwxsDisplayOrigin (int n, Scheme_Object *p[])
static Scheme_ObjectwxsGlobalwxDisplaySize (int n, Scheme_Object *p[])
static Scheme_ObjectwxsGlobalwxBell (int n, Scheme_Object *p[])
static Scheme_ObjectwxsGlobalwxHideCursor (int n, Scheme_Object *p[])
static Scheme_ObjectwxsGlobalwxEndBusyCursor (int n, Scheme_Object *p[])
static Scheme_ObjectwxsGlobalwxIsBusy (int n, Scheme_Object *p[])
static Scheme_ObjectwxsGlobalwxBeginBusyCursor (int n, Scheme_Object *p[])
static Scheme_ObjectwxsGlobalwxDisplayDepth (int n, Scheme_Object *p[])
static Scheme_ObjectwxsGlobalwxColourDisplay (int n, Scheme_Object *p[])
static Scheme_ObjectwxsGlobalwxFileSelector (int n, Scheme_Object *p[])
void objscheme_setup_wxsGlobal (Scheme_Env *env)

Variables

static Scheme_ObjectfileSelMode_wxOPEN_sym = NULL
static Scheme_ObjectfileSelMode_wxSAVE_sym = NULL
static Scheme_ObjectfileSelMode_wxGETDIR_sym = NULL
static Scheme_ObjectfileSelMode_wxMULTIOPEN_sym = NULL
static Scheme_ObjectfileSelMode_wxOVERWRITE_PROMPT_sym = NULL
static Scheme_ObjectfileSelMode_wxHIDE_READONLY_sym = NULL
static Scheme_ObjectfileSelMode_wxBUNDLES_OK_sym = NULL
static Scheme_ObjectfileSelMode_wxBUNDLES_ENTER_sym = NULL

Define Documentation

#define BM_IN_USE (   map)    ((map)->selectedIntoDC)

Definition at line 32 of file wxs_glob.cxx.

#define ESCAPE_NO_RET_VAL   /*empty*/

Definition at line 37 of file wxs_glob.cxx.

#define FILE_SEL_DEF_PATTERN   "*.*"

Definition at line 189 of file wxs_glob.cxx.

#define USE_PRINTER   1

Definition at line 180 of file wxs_glob.cxx.

#define wxBUNDLES_ENTER   0

Definition at line 80 of file wxs_glob.cxx.

#define wxBUNDLES_OK   0

Definition at line 77 of file wxs_glob.cxx.

#define wxGETDIR   0

Definition at line 74 of file wxs_glob.cxx.


Function Documentation

static Scheme_Object* bundle_symset_fileSelMode ( int  v) [static]
static void init_symset_fileSelMode ( void  ) [static]
static int istype_symset_fileSelMode ( Scheme_Object v,
const char *  where 
) [static]

Definition at line 138 of file wxs_glob.cxx.

                                                                          {
  SETUP_VAR_STACK(1);
  VAR_STACK_PUSH(0, v);
  if (!fileSelMode_wxBUNDLES_ENTER_sym) WITH_VAR_STACK(init_symset_fileSelMode());
  Scheme_Object *i INIT_NULLED_OUT, *l = v;
  long result = 1;
  while (SCHEME_PAIRP(l)) {
  i = SCHEME_CAR(l);
  if (0) { }
  else if (i == fileSelMode_wxOPEN_sym) { ; }
  else if (i == fileSelMode_wxSAVE_sym) { ; }
  else if (i == fileSelMode_wxGETDIR_sym) { ; }
  else if (i == fileSelMode_wxMULTIOPEN_sym) { ; }
  else if (i == fileSelMode_wxOVERWRITE_PROMPT_sym) { ; }
  else if (i == fileSelMode_wxHIDE_READONLY_sym) { ; }
  else if (i == fileSelMode_wxBUNDLES_OK_sym) { ; }
  else if (i == fileSelMode_wxBUNDLES_ENTER_sym) { ; }
  else { break; } 
  l = SCHEME_CDR(l);
  }
  if (SCHEME_NULLP(l)) { READY_TO_RETURN; return result; }
  if (where) WITH_VAR_STACK(scheme_wrong_type(where, "fileSelMode symbol list", -1, 0, &v));
  READY_TO_RETURN;
  return 0;
}

Here is the call graph for this function:

int objscheme_istype_wxDialogBox ( Scheme_Object obj,
const char *  stop,
int  nullOK 
)

Definition at line 1822 of file wxs_panl.cxx.

{
  REMEMBER_VAR_STACK();
  if (nullOK && XC_SCHEME_NULLP(obj)) return 1;
  if (objscheme_is_a(obj,  os_wxDialogBox_class))
    return 1;
  else {
    if (!stop)
       return 0;
    WITH_REMEMBERED_STACK(scheme_wrong_type(stop, nullOK ? "dialog% object or " XC_NULL_STR: "dialog% object", -1, 0, &obj));
    return 0;
  }
}

Here is the caller graph for this function:

int objscheme_istype_wxFrame ( Scheme_Object obj,
const char *  stop,
int  nullOK 
)

Definition at line 1447 of file wxs_fram.cxx.

{
  REMEMBER_VAR_STACK();
  if (nullOK && XC_SCHEME_NULLP(obj)) return 1;
  if (objscheme_is_a(obj,  os_wxFrame_class))
    return 1;
  else {
    if (!stop)
       return 0;
    WITH_REMEMBERED_STACK(scheme_wrong_type(stop, nullOK ? "frame% object or " XC_NULL_STR: "frame% object", -1, 0, &obj));
    return 0;
  }
}

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 762 of file wxs_glob.cxx.

{
  Scheme_Object *functmp INIT_NULLED_OUT;
  SETUP_VAR_STACK(1);
  VAR_STACK_PUSH(0, env);
  functmp = WITH_VAR_STACK(scheme_make_prim_w_arity((Scheme_Prim *)wxsGlobalwxCancelQuit, "cancel-quit", 0, 0));
  WITH_VAR_STACK(scheme_install_xc_global("cancel-quit", functmp, env));
  functmp = WITH_VAR_STACK(scheme_make_prim_w_arity((Scheme_Prim *)wxsGlobalwxsFillPrivateColor, "fill-private-color", 2, 2));
  WITH_VAR_STACK(scheme_install_xc_global("fill-private-color", functmp, env));
  functmp = WITH_VAR_STACK(scheme_make_prim_w_arity((Scheme_Prim *)wxsGlobalwxFlushDisplay, "flush-display", 0, 0));
  WITH_VAR_STACK(scheme_install_xc_global("flush-display", functmp, env));
  functmp = WITH_VAR_STACK(scheme_make_prim_w_arity((Scheme_Prim *)wxsGlobalwxSchemeYield, "yield", 0, 1));
  WITH_VAR_STACK(scheme_install_xc_global("yield", functmp, env));
  functmp = WITH_VAR_STACK(scheme_make_prim_w_arity((Scheme_Prim *)wxsGlobalwxWriteResource, "write-resource", 3, 4));
  WITH_VAR_STACK(scheme_install_xc_global("write-resource", functmp, env));
  functmp = WITH_VAR_STACK(scheme_make_prim_w_arity((Scheme_Prim *)wxsGlobalwxGetResource, "get-resource", 3, 4));
  WITH_VAR_STACK(scheme_install_xc_global("get-resource", functmp, env));
  functmp = WITH_VAR_STACK(scheme_make_prim_w_arity((Scheme_Prim *)wxsGlobalwxStripMenuCodes_Scheme, "label->plain-label", 1, 1));
  WITH_VAR_STACK(scheme_install_xc_global("label->plain-label", functmp, env));
  functmp = WITH_VAR_STACK(scheme_make_prim_w_arity((Scheme_Prim *)wxsGlobalwxsDisplayOrigin, "display-origin", 2, 3));
  WITH_VAR_STACK(scheme_install_xc_global("display-origin", functmp, env));
  functmp = WITH_VAR_STACK(scheme_make_prim_w_arity((Scheme_Prim *)wxsGlobalwxDisplaySize, "display-size", 3, 3));
  WITH_VAR_STACK(scheme_install_xc_global("display-size", functmp, env));
  functmp = WITH_VAR_STACK(scheme_make_prim_w_arity((Scheme_Prim *)wxsGlobalwxBell, "bell", 0, 0));
  WITH_VAR_STACK(scheme_install_xc_global("bell", functmp, env));
  functmp = WITH_VAR_STACK(scheme_make_prim_w_arity((Scheme_Prim *)wxsGlobalwxHideCursor, "hide-cursor", 0, 0));
  WITH_VAR_STACK(scheme_install_xc_global("hide-cursor", functmp, env));
  functmp = WITH_VAR_STACK(scheme_make_prim_w_arity((Scheme_Prim *)wxsGlobalwxEndBusyCursor, "end-busy-cursor", 0, 0));
  WITH_VAR_STACK(scheme_install_xc_global("end-busy-cursor", functmp, env));
  functmp = WITH_VAR_STACK(scheme_make_prim_w_arity((Scheme_Prim *)wxsGlobalwxIsBusy, "is-busy?", 0, 0));
  WITH_VAR_STACK(scheme_install_xc_global("is-busy?", functmp, env));
  functmp = WITH_VAR_STACK(scheme_make_prim_w_arity((Scheme_Prim *)wxsGlobalwxBeginBusyCursor, "begin-busy-cursor", 0, 0));
  WITH_VAR_STACK(scheme_install_xc_global("begin-busy-cursor", functmp, env));
  functmp = WITH_VAR_STACK(scheme_make_prim_w_arity((Scheme_Prim *)wxsGlobalwxDisplayDepth, "get-display-depth", 0, 0));
  WITH_VAR_STACK(scheme_install_xc_global("get-display-depth", functmp, env));
  functmp = WITH_VAR_STACK(scheme_make_prim_w_arity((Scheme_Prim *)wxsGlobalwxColourDisplay, "is-color-display?", 0, 0));
  WITH_VAR_STACK(scheme_install_xc_global("is-color-display?", functmp, env));
  functmp = WITH_VAR_STACK(scheme_make_prim_w_arity((Scheme_Prim *)wxsGlobalwxFileSelector, "file-selector", 1, 9));
  WITH_VAR_STACK(scheme_install_xc_global("file-selector", functmp, env));
  READY_TO_RETURN;
}

Here is the call graph for this function:

Here is the caller graph for this function:

class wxDialogBox * objscheme_unbundle_wxDialogBox ( Scheme_Object obj,
const char *  where,
int  nullOK 
)

Definition at line 1863 of file wxs_panl.cxx.

{
  if (nullOK && XC_SCHEME_NULLP(obj)) return NULL;

  REMEMBER_VAR_STACK();

  (void)objscheme_istype_wxDialogBox(obj, where, nullOK);
  Scheme_Class_Object *o = (Scheme_Class_Object *)obj;
  WITH_REMEMBERED_STACK(objscheme_check_valid(NULL, NULL, 0, &obj));
  if (o->primflag)
    return (os_wxDialogBox *)o->primdata;
  else
    return (wxDialogBox *)o->primdata;
}

Here is the caller graph for this function:

class wxFrame* objscheme_unbundle_wxFrame ( Scheme_Object obj,
const char *  where,
int  nullOK 
)

Definition at line 1488 of file wxs_fram.cxx.

{
  if (nullOK && XC_SCHEME_NULLP(obj)) return NULL;

  REMEMBER_VAR_STACK();

  (void)objscheme_istype_wxFrame(obj, where, nullOK);
  Scheme_Class_Object *o = (Scheme_Class_Object *)obj;
  WITH_REMEMBERED_STACK(objscheme_check_valid(NULL, NULL, 0, &obj));
  if (o->primflag)
    return (os_wxFrame *)o->primdata;
  else
    return (wxFrame *)o->primdata;
}
static int unbundle_symset_fileSelMode ( Scheme_Object v,
const char *  where 
) [static]

Definition at line 112 of file wxs_glob.cxx.

                                                                            {
  SETUP_VAR_STACK(1);
  VAR_STACK_PUSH(0, v);
  if (!fileSelMode_wxBUNDLES_ENTER_sym) WITH_VAR_STACK(init_symset_fileSelMode());
  Scheme_Object *i INIT_NULLED_OUT, *l = v;
  long result = 0;
  while (SCHEME_PAIRP(l)) {
  i = SCHEME_CAR(l);
  if (0) { }
  else if (i == fileSelMode_wxOPEN_sym) { result = result | wxOPEN; }
  else if (i == fileSelMode_wxSAVE_sym) { result = result | wxSAVE; }
  else if (i == fileSelMode_wxGETDIR_sym) { result = result | wxGETDIR; }
  else if (i == fileSelMode_wxMULTIOPEN_sym) { result = result | wxMULTIOPEN; }
  else if (i == fileSelMode_wxOVERWRITE_PROMPT_sym) { result = result | wxOVERWRITE_PROMPT; }
  else if (i == fileSelMode_wxHIDE_READONLY_sym) { result = result | wxHIDE_READONLY; }
  else if (i == fileSelMode_wxBUNDLES_OK_sym) { result = result | wxBUNDLES_OK; }
  else if (i == fileSelMode_wxBUNDLES_ENTER_sym) { result = result | wxBUNDLES_ENTER; }
  else { break; } 
  l = SCHEME_CDR(l);
  }
  if (SCHEME_NULLP(l)) { READY_TO_RETURN; return result; }
  if (where) WITH_VAR_STACK(scheme_wrong_type(where, "fileSelMode symbol list", -1, 0, &v));
  READY_TO_RETURN;
  return 0;
}

Here is the call graph for this function:

Here is the caller graph for this function:

static void wxCancelQuit ( ) [static]

Definition at line 57 of file wxs_glob.cxx.

{
#ifdef wx_msw
  wxNotifyCancelEndSession();
#endif
}

Here is the caller graph for this function:

Definition at line 3352 of file mred.cxx.

{
#ifdef wx_x
  Display *d;

  d = XtDisplay(wxAPP_TOPLEVEL);

  XFlush(d);
  XSync(d, FALSE);
  XFlush(d);
  XSync(d, FALSE);
#endif
#ifdef wx_mac
  wxFlushMacDisplay();
#endif
}

Here is the caller graph for this function:

void* wxSchemeYield ( void sema)

Definition at line 2198 of file wxscheme.cxx.

{
  int is_handler;

  if (!wait_symbol) {
    wxREGGLOB(wait_symbol);
    wait_symbol = scheme_intern_symbol("wait");
  }

  is_handler = mred_current_thread_is_handler(NULL);

  if (sema == wait_symbol) {
    if (is_handler) {
      mred_wait_eventspace();
      return scheme_true;
    } else
      return scheme_false;
  } else if (sema) {
    if (!scheme_is_evt((Scheme_Object *)sema))
      scheme_wrong_type("yield", "evt or 'wait", -1, 0, (Scheme_Object **)(void *)&sema);

    if (is_handler)
      return wxDispatchEventsUntilWaitable((wxDispatch_Check_Fun)NULL, NULL, (Scheme_Object *)sema);
    else {
      Scheme_Object *a[1];
      a[0] = (Scheme_Object *)sema;
      return scheme_sync(1, a);
    }
  } else {
    if (is_handler && wxYield())
      return scheme_true;
    else
      return scheme_false;
  }
}

Here is the caller graph for this function:

static void wxsDisplayOrigin ( int x,
int y,
Bool  flags = FALSE 
) [static]

Definition at line 64 of file wxs_glob.cxx.

{
#ifdef wx_xt
  wxDisplayOrigin(x, y);
#else
  wxDisplayOrigin(x, y, flags);
#endif 
}

Here is the call graph for this function:

Here is the caller graph for this function:

static void wxsFillPrivateColor ( wxDC dc,
wxColour c 
) [static]

Definition at line 47 of file wxs_glob.cxx.

{
#ifdef wx_x
 ((wxWindowDC *)dc)->FillPrivateColor(c);
#endif
}

Here is the caller graph for this function:

static Scheme_Object* wxsGlobalwxBeginBusyCursor ( int  n,
Scheme_Object p[] 
) [static]

Definition at line 638 of file wxs_glob.cxx.

Here is the call graph for this function:

Here is the caller graph for this function:

static Scheme_Object* wxsGlobalwxBell ( int  n,
Scheme_Object p[] 
) [static]

Definition at line 561 of file wxs_glob.cxx.

Here is the call graph for this function:

Here is the caller graph for this function:

static Scheme_Object* wxsGlobalwxCancelQuit ( int  n,
Scheme_Object p[] 
) [static]

Definition at line 233 of file wxs_glob.cxx.

Here is the call graph for this function:

Here is the caller graph for this function:

static Scheme_Object* wxsGlobalwxColourDisplay ( int  n,
Scheme_Object p[] 
) [static]

Definition at line 677 of file wxs_glob.cxx.

Here is the call graph for this function:

Here is the caller graph for this function:

static Scheme_Object* wxsGlobalwxDisplayDepth ( int  n,
Scheme_Object p[] 
) [static]

Definition at line 657 of file wxs_glob.cxx.

Here is the call graph for this function:

Here is the caller graph for this function:

static Scheme_Object* wxsGlobalwxDisplaySize ( int  n,
Scheme_Object p[] 
) [static]

Definition at line 529 of file wxs_glob.cxx.

{
  WXS_USE_ARGUMENT(n) WXS_USE_ARGUMENT(p)
  REMEMBER_VAR_STACK();
  int _x0;
  int* x0 = &_x0;
  int _x1;
  int* x1 = &_x1;
  int x2;
  Scheme_Object *sbox_tmp;

  SETUP_VAR_STACK_REMEMBERED(1);
  VAR_STACK_PUSH(0, p);

  
      *x0 = (sbox_tmp = WITH_VAR_STACK(objscheme_unbox(p[0+0], "display-size")), WITH_VAR_STACK(objscheme_unbundle_integer(sbox_tmp, "display-size"", extracting boxed argument")));
      *x1 = (sbox_tmp = WITH_VAR_STACK(objscheme_unbox(p[0+1], "display-size")), WITH_VAR_STACK(objscheme_unbundle_integer(sbox_tmp, "display-size"", extracting boxed argument")));
  x2 = WITH_VAR_STACK(objscheme_unbundle_integer(p[0+2], "display-size"));

  
  WITH_VAR_STACK(wxDisplaySize(x0, x1, x2));

  
  if (n > (0+0))
    { Scheme_Object *sbv_ = scheme_make_integer(_x0); WITH_VAR_STACK(objscheme_set_box(p[0+0], sbv_)); } 
  if (n > (0+1))
    { Scheme_Object *sbv_ = scheme_make_integer(_x1); WITH_VAR_STACK(objscheme_set_box(p[0+1], sbv_)); } 
  
  READY_TO_RETURN;
  return scheme_void;
}

Here is the call graph for this function:

Here is the caller graph for this function:

static Scheme_Object* wxsGlobalwxEndBusyCursor ( int  n,
Scheme_Object p[] 
) [static]

Definition at line 599 of file wxs_glob.cxx.

Here is the call graph for this function:

Here is the caller graph for this function:

static Scheme_Object* wxsGlobalwxFileSelector ( int  n,
Scheme_Object p[] 
) [static]

Definition at line 697 of file wxs_glob.cxx.

{
  WXS_USE_ARGUMENT(n) WXS_USE_ARGUMENT(p)
  REMEMBER_VAR_STACK();
  npathname r;
  nstring x0 INIT_NULLED_OUT;
  npathname x1 INIT_NULLED_OUT;
  nxpathname x2 INIT_NULLED_OUT;
  nstring x3 INIT_NULLED_OUT;
  nstring x4 INIT_NULLED_OUT;
  int x5;
  class wxWindow* x6 INIT_NULLED_OUT;
  int x7;
  int x8;

  SETUP_VAR_STACK_REMEMBERED(7);
  VAR_STACK_PUSH(0, p);
  VAR_STACK_PUSH(1, x0);
  VAR_STACK_PUSH(2, x1);
  VAR_STACK_PUSH(3, x2);
  VAR_STACK_PUSH(4, x3);
  VAR_STACK_PUSH(5, x4);
  VAR_STACK_PUSH(6, x6);

  
  x0 = (nstring)WITH_VAR_STACK(objscheme_unbundle_nullable_string(p[0+0], "file-selector"));
  if (n > (0+1)) {
    x1 = (npathname)WITH_VAR_STACK(objscheme_unbundle_nullable_pathname(p[0+1], "file-selector"));
  } else
    x1 = NULL;
  if (n > (0+2)) {
    x2 = (nxpathname)WITH_VAR_STACK(objscheme_unbundle_nullable_xpathname(p[0+2], "file-selector"));
  } else
    x2 = NULL;
  if (n > (0+3)) {
    x3 = (nstring)WITH_VAR_STACK(objscheme_unbundle_nullable_string(p[0+3], "file-selector"));
  } else
    x3 = NULL;
  if (n > (0+4)) {
    x4 = (nstring)WITH_VAR_STACK(objscheme_unbundle_nullable_string(p[0+4], "file-selector"));
  } else
    x4 = FILE_SEL_DEF_PATTERN;
  if (n > (0+5)) {
    x5 = WITH_VAR_STACK(unbundle_symset_fileSelMode(p[0+5], "file-selector"));
  } else
    x5 = wxOPEN;
  x6 = (((n <= 0) || XC_SCHEME_NULLP(p[0+6])) ? (wxWindow *)NULL : (WITH_VAR_STACK(objscheme_istype_wxFrame(p[0+6], NULL, 1)) ? (wxWindow *)WITH_VAR_STACK(objscheme_unbundle_wxFrame(p[0+6], NULL, 0)) : (WITH_VAR_STACK(objscheme_istype_wxDialogBox(p[0+6], NULL, 1)) ? (wxWindow *)WITH_VAR_STACK(objscheme_unbundle_wxDialogBox(p[0+6], NULL, 0)) : (WITH_VAR_STACK(scheme_wrong_type("file-selector", "frame% or dialog%", -1, 0, &p[0+6])), (wxWindow *)NULL))));
  if (n > (0+7)) {
    x7 = WITH_VAR_STACK(objscheme_unbundle_integer(p[0+7], "file-selector"));
  } else
    x7 = -1;
  if (n > (0+8)) {
    x8 = WITH_VAR_STACK(objscheme_unbundle_integer(p[0+8], "file-selector"));
  } else
    x8 = -1;

  
  r = WITH_VAR_STACK(wxFileSelector(x0, x1, x2, x3, x4, x5, x6, x7, x8));

  
  
  READY_TO_RETURN;
  return WITH_REMEMBERED_STACK(objscheme_bundle_pathname((char *)r));
}

Here is the call graph for this function:

Here is the caller graph for this function:

static Scheme_Object* wxsGlobalwxFlushDisplay ( int  n,
Scheme_Object p[] 
) [static]

Definition at line 277 of file wxs_glob.cxx.

Here is the call graph for this function:

Here is the caller graph for this function:

static Scheme_Object* wxsGlobalwxGetResource ( int  n,
Scheme_Object p[] 
) [static]

Definition at line 393 of file wxs_glob.cxx.

{
  WXS_USE_ARGUMENT(n) WXS_USE_ARGUMENT(p)
  SETUP_PRE_VAR_STACK(1);
  PRE_VAR_STACK_PUSH(0, p);
  REMEMBER_VAR_STACK();
  Bool r;
  if ((n >= (0+3)) && WITH_REMEMBERED_STACK(objscheme_istype_string(p[0+0], NULL)) && WITH_REMEMBERED_STACK(objscheme_istype_string(p[0+1], NULL)) && (WITH_REMEMBERED_STACK(objscheme_istype_box(p[0+2], NULL)) && WITH_REMEMBERED_STACK(objscheme_istype_string(objscheme_unbox(p[0+2], NULL), NULL)))) {
    string x0 INIT_NULLED_OUT;
    string x1 INIT_NULLED_OUT;
    string _x2;
    string* x2 = &_x2;
    npathname x3 INIT_NULLED_OUT;
  Scheme_Object *sbox_tmp;

    SETUP_VAR_STACK_PRE_REMEMBERED(4);
    VAR_STACK_PUSH(0, p);
    VAR_STACK_PUSH(1, x0);
    VAR_STACK_PUSH(2, x1);
    VAR_STACK_PUSH(3, x3);

    
    if ((n < (0+3)) || (n > (0+4))) 
      WITH_VAR_STACK(scheme_wrong_count_m("get-resource (string case)", 0+3, 0+4, n, p, 0));
    x0 = (string)WITH_VAR_STACK(objscheme_unbundle_string(p[0+0], "get-resource (string case)"));
    x1 = (string)WITH_VAR_STACK(objscheme_unbundle_string(p[0+1], "get-resource (string case)"));
          *x2 = (sbox_tmp = WITH_VAR_STACK(objscheme_unbox(p[0+2], "get-resource (string case)")), (string)WITH_VAR_STACK(objscheme_unbundle_string(sbox_tmp, "get-resource (string case)"", extracting boxed argument")));
    if (n > (0+3)) {
      x3 = (npathname)WITH_VAR_STACK(objscheme_unbundle_nullable_pathname(p[0+3], "get-resource (string case)"));
    } else
      x3 = NULL;

    
    r = WITH_VAR_STACK(wxGetResource(x0, x1, x2, x3));

    
    if (n > (0+2))
      { Scheme_Object *sbv_ = WITH_VAR_STACK(objscheme_bundle_string((char *)_x2)); WITH_VAR_STACK(objscheme_set_box(p[0+2], sbv_)); } 
    
    READY_TO_PRE_RETURN;
  } else  {
    string x0 INIT_NULLED_OUT;
    string x1 INIT_NULLED_OUT;
    long _x2;
    long* x2 = &_x2;
    npathname x3 INIT_NULLED_OUT;
  Scheme_Object *sbox_tmp;

    SETUP_VAR_STACK_PRE_REMEMBERED(4);
    VAR_STACK_PUSH(0, p);
    VAR_STACK_PUSH(1, x0);
    VAR_STACK_PUSH(2, x1);
    VAR_STACK_PUSH(3, x3);

    
    if ((n < (0+3)) || (n > (0+4))) 
      WITH_VAR_STACK(scheme_wrong_count_m("get-resource (number case)", 0+3, 0+4, n, p, 0));
    x0 = (string)WITH_VAR_STACK(objscheme_unbundle_string(p[0+0], "get-resource (number case)"));
    x1 = (string)WITH_VAR_STACK(objscheme_unbundle_string(p[0+1], "get-resource (number case)"));
          *x2 = (sbox_tmp = WITH_VAR_STACK(objscheme_unbox(p[0+2], "get-resource (number case)")), WITH_VAR_STACK(objscheme_unbundle_integer(sbox_tmp, "get-resource (number case)"", extracting boxed argument")));
    if (n > (0+3)) {
      x3 = (npathname)WITH_VAR_STACK(objscheme_unbundle_nullable_pathname(p[0+3], "get-resource (number case)"));
    } else
      x3 = NULL;

    
    r = WITH_VAR_STACK(wxGetResource(x0, x1, x2, x3));

    
    if (n > (0+2))
      { Scheme_Object *sbv_ = scheme_make_integer(_x2); WITH_VAR_STACK(objscheme_set_box(p[0+2], sbv_)); } 
    
    READY_TO_PRE_RETURN;
  }

  return (r ? scheme_true : scheme_false);
}

Here is the call graph for this function:

Here is the caller graph for this function:

static Scheme_Object* wxsGlobalwxHideCursor ( int  n,
Scheme_Object p[] 
) [static]

Definition at line 580 of file wxs_glob.cxx.

Here is the call graph for this function:

Here is the caller graph for this function:

static Scheme_Object* wxsGlobalwxIsBusy ( int  n,
Scheme_Object p[] 
) [static]

Definition at line 618 of file wxs_glob.cxx.

Here is the call graph for this function:

Here is the caller graph for this function:

static Scheme_Object* wxsGlobalwxSchemeYield ( int  n,
Scheme_Object p[] 
) [static]

Definition at line 296 of file wxs_glob.cxx.

{
  WXS_USE_ARGUMENT(n) WXS_USE_ARGUMENT(p)
  REMEMBER_VAR_STACK();
  void* r;
  void* x0 INIT_NULLED_OUT;

  SETUP_VAR_STACK_REMEMBERED(2);
  VAR_STACK_PUSH(0, p);
  VAR_STACK_PUSH(1, x0);

  
  if (n > (0+0)) {
    x0 = (void *)p[0+0];
  } else
    x0 = NULL;

  
  r = WITH_VAR_STACK(wxSchemeYield(x0));

  
  
  READY_TO_RETURN;
  return (Scheme_Object *)r;
}

Here is the call graph for this function:

Here is the caller graph for this function:

static Scheme_Object* wxsGlobalwxsDisplayOrigin ( int  n,
Scheme_Object p[] 
) [static]

Definition at line 494 of file wxs_glob.cxx.

{
  WXS_USE_ARGUMENT(n) WXS_USE_ARGUMENT(p)
  REMEMBER_VAR_STACK();
  int _x0;
  int* x0 = &_x0;
  int _x1;
  int* x1 = &_x1;
  Bool x2;
  Scheme_Object *sbox_tmp;

  SETUP_VAR_STACK_REMEMBERED(1);
  VAR_STACK_PUSH(0, p);

  
      *x0 = (sbox_tmp = WITH_VAR_STACK(objscheme_unbox(p[0+0], "display-origin")), WITH_VAR_STACK(objscheme_unbundle_integer(sbox_tmp, "display-origin"", extracting boxed argument")));
      *x1 = (sbox_tmp = WITH_VAR_STACK(objscheme_unbox(p[0+1], "display-origin")), WITH_VAR_STACK(objscheme_unbundle_integer(sbox_tmp, "display-origin"", extracting boxed argument")));
  if (n > (0+2)) {
    x2 = WITH_VAR_STACK(objscheme_unbundle_bool(p[0+2], "display-origin"));
  } else
    x2 = FALSE;

  
  WITH_VAR_STACK(wxsDisplayOrigin(x0, x1, x2));

  
  if (n > (0+0))
    { Scheme_Object *sbv_ = scheme_make_integer(_x0); WITH_VAR_STACK(objscheme_set_box(p[0+0], sbv_)); } 
  if (n > (0+1))
    { Scheme_Object *sbv_ = scheme_make_integer(_x1); WITH_VAR_STACK(objscheme_set_box(p[0+1], sbv_)); } 
  
  READY_TO_RETURN;
  return scheme_void;
}

Here is the call graph for this function:

Here is the caller graph for this function:

static Scheme_Object* wxsGlobalwxsFillPrivateColor ( int  n,
Scheme_Object p[] 
) [static]

Definition at line 252 of file wxs_glob.cxx.

Here is the call graph for this function:

Here is the caller graph for this function:

static Scheme_Object* wxsGlobalwxStripMenuCodes_Scheme ( int  n,
Scheme_Object p[] 
) [static]

Definition at line 471 of file wxs_glob.cxx.

Here is the call graph for this function:

Here is the caller graph for this function:

static Scheme_Object* wxsGlobalwxWriteResource ( int  n,
Scheme_Object p[] 
) [static]

Definition at line 322 of file wxs_glob.cxx.

{
  WXS_USE_ARGUMENT(n) WXS_USE_ARGUMENT(p)
  SETUP_PRE_VAR_STACK(1);
  PRE_VAR_STACK_PUSH(0, p);
  REMEMBER_VAR_STACK();
  Bool r;
  if ((n >= (0+3)) && WITH_REMEMBERED_STACK(objscheme_istype_string(p[0+0], NULL)) && WITH_REMEMBERED_STACK(objscheme_istype_string(p[0+1], NULL)) && WITH_REMEMBERED_STACK(objscheme_istype_string(p[0+2], NULL))) {
    string x0 INIT_NULLED_OUT;
    string x1 INIT_NULLED_OUT;
    string x2 INIT_NULLED_OUT;
    wnpathname x3 INIT_NULLED_OUT;

    SETUP_VAR_STACK_PRE_REMEMBERED(5);
    VAR_STACK_PUSH(0, p);
    VAR_STACK_PUSH(1, x0);
    VAR_STACK_PUSH(2, x1);
    VAR_STACK_PUSH(3, x2);
    VAR_STACK_PUSH(4, x3);

    
    if ((n < (0+3)) || (n > (0+4))) 
      WITH_VAR_STACK(scheme_wrong_count_m("write-resource (string case)", 0+3, 0+4, n, p, 0));
    x0 = (string)WITH_VAR_STACK(objscheme_unbundle_string(p[0+0], "write-resource (string case)"));
    x1 = (string)WITH_VAR_STACK(objscheme_unbundle_string(p[0+1], "write-resource (string case)"));
    x2 = (string)WITH_VAR_STACK(objscheme_unbundle_string(p[0+2], "write-resource (string case)"));
    if (n > (0+3)) {
      x3 = (wnpathname)WITH_VAR_STACK(objscheme_unbundle_nullable_write_pathname(p[0+3], "write-resource (string case)"));
    } else
      x3 = NULL;

    
    r = WITH_VAR_STACK(wxWriteResource(x0, x1, x2, x3));

    
    
    READY_TO_PRE_RETURN;
  } else  {
    string x0 INIT_NULLED_OUT;
    string x1 INIT_NULLED_OUT;
    ExactLong x2;
    wnpathname x3 INIT_NULLED_OUT;

    SETUP_VAR_STACK_PRE_REMEMBERED(4);
    VAR_STACK_PUSH(0, p);
    VAR_STACK_PUSH(1, x0);
    VAR_STACK_PUSH(2, x1);
    VAR_STACK_PUSH(3, x3);

    
    if ((n < (0+3)) || (n > (0+4))) 
      WITH_VAR_STACK(scheme_wrong_count_m("write-resource (number case)", 0+3, 0+4, n, p, 0));
    x0 = (string)WITH_VAR_STACK(objscheme_unbundle_string(p[0+0], "write-resource (number case)"));
    x1 = (string)WITH_VAR_STACK(objscheme_unbundle_string(p[0+1], "write-resource (number case)"));
    x2 = WITH_VAR_STACK(objscheme_unbundle_ExactLong(p[0+2], "write-resource (number case)"));
    if (n > (0+3)) {
      x3 = (wnpathname)WITH_VAR_STACK(objscheme_unbundle_nullable_write_pathname(p[0+3], "write-resource (number case)"));
    } else
      x3 = NULL;

    
    r = WITH_VAR_STACK(wxWriteResource(x0, x1, x2, x3));

    
    
    READY_TO_PRE_RETURN;
  }

  return (r ? scheme_true : scheme_false);
}

Here is the call graph for this function:

Here is the caller graph for this function:

static char* wxStripMenuCodes_Scheme ( char *  in) [static]

Definition at line 192 of file wxs_glob.cxx.

{
  static char *buffer = NULL;
  static long buflen = 0;
  long len;
  SETUP_VAR_STACK(1);
  VAR_STACK_PUSH(0, in);

  len = strlen(in);
  if (buflen <= len) {
    if (!buffer)
      wxREGGLOB(buffer);
    buflen = 2 * len + 1;
    buffer = (char *)WITH_VAR_STACK(GC_malloc_atomic(buflen));
  }

  WITH_VAR_STACK(wxStripMenuCodes(in, buffer));
  READY_TO_RETURN;
  return buffer;
}

Here is the call graph for this function:

Here is the caller graph for this function:


Variable Documentation

Definition at line 90 of file wxs_glob.cxx.

Definition at line 89 of file wxs_glob.cxx.

Definition at line 85 of file wxs_glob.cxx.

Definition at line 88 of file wxs_glob.cxx.

Definition at line 86 of file wxs_glob.cxx.

Definition at line 83 of file wxs_glob.cxx.

Definition at line 87 of file wxs_glob.cxx.

Definition at line 84 of file wxs_glob.cxx.