src/ecmascript/spidermonkey/unibar.c

   1 /* The SpiderMonkey location and history objects implementation. */
   2
   3 #ifdef HAVE_CONFIG_H
   4 #include "config.h"
   5 #endif
   6
   7 #include <stdio.h>
   8 #include <stdlib.h>
   9 #include <string.h>
  10
  11 #include "elinks.h"
  12
  13 #include "ecmascript/spidermonkey/util.h"
  14
  15 #include "bfu/dialog.h"
  16 #include "cache/cache.h"
  17 #include "cookies/cookies.h"
  18 #include "dialogs/menu.h"
  19 #include "dialogs/status.h"
  20 #include "document/html/frames.h"
  21 #include "document/document.h"
  22 #include "document/forms.h"
  23 #include "document/view.h"
  24 #include "ecmascript/ecmascript.h"
  25 #include "ecmascript/spidermonkey/unibar.h"
  26 #include "intl/gettext/libintl.h"
  27 #include "main/select.h"
  28 #include "osdep/newwin.h"
  29 #include "osdep/sysname.h"
  30 #include "protocol/http/http.h"
  31 #include "protocol/uri.h"
  32 #include "session/history.h"
  33 #include "session/location.h"
  34 #include "session/session.h"
  35 #include "session/task.h"
  36 #include "terminal/tab.h"
  37 #include "terminal/terminal.h"
  38 #include "util/conv.h"
  39 #include "util/memory.h"
  40 #include "util/string.h"
  41 #include "viewer/text/draw.h"
  42 #include "viewer/text/form.h"
  43 #include "viewer/text/link.h"
  44 #include "viewer/text/vs.h"
  45
  46
  47 static JSBool unibar_get_property(JSContext *ctx, JSObject *obj, jsval id, jsval *vp);
  48 static JSBool unibar_set_property(JSContext *ctx, JSObject *obj, jsval id, jsval *vp);
  49
  50 /* Each @menubar_class object must have a @window_class parent.  */
  51 const JSClass menubar_class = {
  52         "menubar",
  53         JSCLASS_HAS_PRIVATE,    /* const char * "t" */
  54         JS_PropertyStub, JS_PropertyStub,
  55         unibar_get_property, unibar_set_property,
  56         JS_EnumerateStub, JS_ResolveStub, JS_ConvertStub, JS_FinalizeStub
  57 };
  58 /* Each @statusbar_class object must have a @window_class parent.  */
  59 const JSClass statusbar_class = {
  60         "statusbar",
  61         JSCLASS_HAS_PRIVATE,    /* const char * "s" */
  62         JS_PropertyStub, JS_PropertyStub,
  63         unibar_get_property, unibar_set_property,
  64         JS_EnumerateStub, JS_ResolveStub, JS_ConvertStub, JS_FinalizeStub
  65 };
  66
  67 enum unibar_prop { JSP_UNIBAR_VISIBLE };
  68 const JSPropertySpec unibar_props[] = {
  69         { "visible",    JSP_UNIBAR_VISIBLE,     JSPROP_ENUMERATE },
  70         { NULL }
  71 };
  72
  73
  74 /* @menubar_class.getProperty, @statusbar_class.getProperty */
  75 static JSBool
  76 unibar_get_property(JSContext *ctx, JSObject *obj, jsval id, jsval *vp)
  77 {
  78         JSObject *parent = JS_GetParent(ctx, obj);
  79         struct view_state *vs = JS_GetPrivate(ctx, parent);
  80         struct document_view *doc_view = vs->doc_view;
  81         struct session_status *status = &doc_view->session->status;
  82         unsigned char *bar = JS_GetPrivate(ctx, obj);
  83
  84         if (!JSVAL_IS_INT(id))
  85                 return JS_TRUE;
  86
  87         switch (JSVAL_TO_INT(id)) {
  88         case JSP_UNIBAR_VISIBLE:
  89 #define unibar_fetch(bar) \
  90         boolean_to_jsval(ctx, vp, status->force_show_##bar##_bar >= 0 \
  91                   ? status->force_show_##bar##_bar \
  92                   : status->show_##bar##_bar)
  93                 switch (*bar) {
  94                 case 's':
  95                         unibar_fetch(status);
  96                         break;
  97                 case 't':
  98                         unibar_fetch(title);
  99                         break;
 100                 default:
 101                         boolean_to_jsval(ctx, vp, 0);
 102                         break;
 103                 }
 104 #undef unibar_fetch
 105                 break;
 106         default:
 107                 INTERNAL("Invalid ID %d in unibar_get_property().", JSVAL_TO_INT(id));
 108                 break;
 109         }
 110
 111         return JS_TRUE;
 112 }
 113
 114 /* @menubar_class.setProperty, @statusbar_class.setProperty */
 115 static JSBool
 116 unibar_set_property(JSContext *ctx, JSObject *obj, jsval id, jsval *vp)
 117 {
 118         JSObject *parent = JS_GetParent(ctx, obj);
 119         struct view_state *vs = JS_GetPrivate(ctx, parent);
 120         struct document_view *doc_view = vs->doc_view;
 121         struct session_status *status = &doc_view->session->status;
 122         unsigned char *bar = JS_GetPrivate(ctx, obj);
 123
 124         if (!JSVAL_IS_INT(id))
 125                 return JS_TRUE;
 126
 127         switch (JSVAL_TO_INT(id)) {
 128         case JSP_UNIBAR_VISIBLE:
 129                 switch (*bar) {
 130                 case 's':
 131                         status->force_show_status_bar = jsval_to_boolean(ctx, vp);
 132                         break;
 133                 case 't':
 134                         status->force_show_title_bar = jsval_to_boolean(ctx, vp);
 135                         break;
 136                 default:
 137                         break;
 138                 }
 139                 register_bottom_half(update_status, NULL);
 140                 break;
 141         default:
 142                 INTERNAL("Invalid ID %d in unibar_set_property().", JSVAL_TO_INT(id));
 143                 return JS_TRUE;
 144         }
 145
 146         return JS_TRUE;
 147 }