mirror of
https://github.com/mozilla/gecko-dev.git
synced 2024-11-05 08:35:26 +00:00
345 lines
8.8 KiB
C
345 lines
8.8 KiB
C
/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 2 -*-
|
|
*
|
|
* The contents of this file are subject to the Netscape Public
|
|
* License Version 1.1 (the "License"); you may not use this file
|
|
* except in compliance with the License. You may obtain a copy of
|
|
* the License at http://www.mozilla.org/NPL/
|
|
*
|
|
* Software distributed under the License is distributed on an "AS
|
|
* IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
|
|
* implied. See the License for the specific language governing
|
|
* rights and limitations under the License.
|
|
*
|
|
* The Original Code is mozilla.org code.
|
|
*
|
|
* The Initial Developer of the Original Code is Netscape
|
|
* Communications Corporation. Portions created by Netscape are
|
|
* Copyright (C) 1998 Netscape Communications Corporation. All
|
|
* Rights Reserved.
|
|
*
|
|
* Contributor(s):
|
|
*/
|
|
/*
|
|
* JS reflection of the Navigator Session History.
|
|
*
|
|
* Brendan Eich, 9/8/95
|
|
*/
|
|
#include "lm.h"
|
|
#include "shist.h"
|
|
#include "structs.h"
|
|
|
|
enum hist_slot {
|
|
HIST_LENGTH = -1,
|
|
HIST_CURRENT = -2,
|
|
HIST_PREVIOUS = -3,
|
|
HIST_NEXT = -4
|
|
};
|
|
|
|
static JSPropertySpec hist_props[] = {
|
|
{lm_length_str, HIST_LENGTH, JSPROP_ENUMERATE|JSPROP_READONLY},
|
|
{"current", HIST_CURRENT, JSPROP_ENUMERATE|JSPROP_READONLY},
|
|
{"previous", HIST_PREVIOUS, JSPROP_ENUMERATE|JSPROP_READONLY},
|
|
{"next", HIST_NEXT, JSPROP_ENUMERATE|JSPROP_READONLY},
|
|
{0}
|
|
};
|
|
|
|
typedef struct JSHistory {
|
|
MochaDecoder *decoder;
|
|
JSObject *object;
|
|
} JSHistory;
|
|
|
|
/*
|
|
* DO NOT REMOVE:
|
|
* forward decl of hist_go and early def of hist_forward to work
|
|
* around a Win16 compiler bug!
|
|
*/
|
|
JSBool PR_CALLBACK
|
|
hist_go(JSContext *cx, JSObject *obj, unsigned int argc, jsval *argv, jsval *rval);
|
|
|
|
PR_STATIC_CALLBACK(JSBool)
|
|
hist_forward(JSContext *cx, JSObject *obj, unsigned int argc, jsval *argv, jsval *rval)
|
|
{
|
|
jsval plus_one;
|
|
|
|
plus_one = INT_TO_JSVAL(1);
|
|
return hist_go(cx, obj, 1, &plus_one, rval);
|
|
}
|
|
|
|
extern JSClass lm_hist_class;
|
|
|
|
PR_STATIC_CALLBACK(JSBool)
|
|
hist_getProperty(JSContext *cx, JSObject *obj, jsval id, jsval *vp)
|
|
{
|
|
JSHistory *hist;
|
|
MochaDecoder *decoder;
|
|
MWContext *context;
|
|
History_entry *he, *he2;
|
|
JSString *str;
|
|
XP_List *histlist;
|
|
jsint slot;
|
|
|
|
if (!JSVAL_IS_INT(id))
|
|
return JS_TRUE;
|
|
|
|
slot = JSVAL_TO_INT(id);
|
|
|
|
hist = JS_GetInstancePrivate(cx, obj, &lm_hist_class, NULL);
|
|
if (!hist)
|
|
return JS_TRUE;
|
|
decoder = hist->decoder;
|
|
context = decoder->window_context;
|
|
if (!context)
|
|
return JS_TRUE;
|
|
|
|
str = JSVAL_TO_STRING(JS_GetEmptyStringValue(cx));
|
|
switch (slot) {
|
|
case HIST_LENGTH:
|
|
histlist = SHIST_GetList(context);
|
|
*vp = INT_TO_JSVAL(XP_ListCount(histlist));
|
|
return JS_TRUE;
|
|
|
|
case HIST_CURRENT:
|
|
if (!lm_CanAccessTarget(cx, JSTARGET_UNIVERSAL_BROWSER_READ))
|
|
break;
|
|
he = SHIST_GetCurrent(&context->hist);
|
|
if (he && he->address)
|
|
str = JS_NewStringCopyZ(cx, he->address);
|
|
break;
|
|
|
|
case HIST_PREVIOUS:
|
|
if (!lm_CanAccessTarget(cx, JSTARGET_UNIVERSAL_BROWSER_READ))
|
|
break;
|
|
he2 = SHIST_GetPrevious(context);
|
|
if (he2 && he2->address)
|
|
str = JS_NewStringCopyZ(cx, he2->address);
|
|
break;
|
|
|
|
case HIST_NEXT:
|
|
if (!lm_CanAccessTarget(cx, JSTARGET_UNIVERSAL_BROWSER_READ))
|
|
break;
|
|
he2 = SHIST_GetNext(context);
|
|
if (he2 && he2->address)
|
|
str = JS_NewStringCopyZ(cx, he2->address);
|
|
break;
|
|
|
|
default:
|
|
if (slot < 0) {
|
|
/* Don't mess with user-defined or method properties. */
|
|
return JS_TRUE;
|
|
}
|
|
if (lm_CanAccessTarget(cx, JSTARGET_UNIVERSAL_BROWSER_READ)) {
|
|
/* Access granted against potential privacy attack */
|
|
he = SHIST_GetObjectNum(&context->hist, 1 + slot);
|
|
if (he && he->address) {
|
|
str = JS_NewStringCopyZ(cx, he->address);
|
|
}
|
|
}
|
|
break;
|
|
}
|
|
|
|
/* Common tail code for string-type properties. */
|
|
if (!str)
|
|
return JS_FALSE;
|
|
*vp = STRING_TO_JSVAL(str);
|
|
return JS_TRUE;
|
|
}
|
|
|
|
PR_STATIC_CALLBACK(void)
|
|
hist_finalize(JSContext *cx, JSObject *obj)
|
|
{
|
|
JSHistory *hist;
|
|
|
|
hist = JS_GetPrivate(cx, obj);
|
|
if (!hist)
|
|
return;
|
|
DROP_BACK_COUNT(hist->decoder);
|
|
XP_DELETE(hist);
|
|
}
|
|
|
|
JSClass lm_hist_class = {
|
|
"History", JSCLASS_HAS_PRIVATE,
|
|
JS_PropertyStub, JS_PropertyStub, hist_getProperty, hist_getProperty,
|
|
JS_EnumerateStub, JS_ResolveStub, JS_ConvertStub, hist_finalize
|
|
};
|
|
|
|
JSBool PR_CALLBACK
|
|
hist_go(JSContext *cx, JSObject *obj,
|
|
unsigned int argc, jsval *argv, jsval *rval)
|
|
{
|
|
JSHistory *hist;
|
|
MochaDecoder *decoder;
|
|
MWContext *context;
|
|
History_entry *he;
|
|
int index, delta;
|
|
XP_List *histlist;
|
|
URL_Struct *url_struct;
|
|
|
|
if (!JS_InstanceOf(cx, obj, &lm_hist_class, argv))
|
|
return JS_FALSE;
|
|
hist = JS_GetPrivate(cx, obj);
|
|
if (!hist)
|
|
return JS_TRUE;
|
|
decoder = hist->decoder;
|
|
context = decoder->window_context;
|
|
if (!context)
|
|
return JS_TRUE;
|
|
he = SHIST_GetCurrent(&context->hist);
|
|
|
|
if (JSVAL_IS_INT(argv[0])) {
|
|
index = SHIST_GetIndex(&context->hist, he);
|
|
delta = JSVAL_TO_INT(argv[0]);
|
|
index += delta;
|
|
he = SHIST_GetObjectNum(&context->hist, index);
|
|
}
|
|
else if (JSVAL_IS_STRING(argv[0])) {
|
|
/* i18n problem */
|
|
/* I believe this part is broken for I18N. Particular after we change the he->title to UTF8 */
|
|
char * argv_str = JS_GetStringBytes(JSVAL_TO_STRING(argv[0]));
|
|
histlist = SHIST_GetList(context);
|
|
if (histlist)
|
|
histlist = histlist->next;
|
|
|
|
for (index = XP_ListCount(histlist); index > 0; index--) {
|
|
he = SHIST_GetObjectNum(&context->hist, index);
|
|
if (XP_STRSTR(he->address, argv_str) ||
|
|
XP_STRSTR(he->title, argv_str)) {
|
|
goto out;
|
|
}
|
|
}
|
|
he = 0;
|
|
}
|
|
else {
|
|
he = 0;
|
|
}
|
|
|
|
if (!he)
|
|
return JS_TRUE;
|
|
out:
|
|
url_struct = SHIST_CreateURLStructFromHistoryEntry(context, he);
|
|
if (!url_struct) {
|
|
JS_ReportOutOfMemory(cx);
|
|
return JS_FALSE;
|
|
}
|
|
return lm_GetURL(cx, decoder, url_struct);
|
|
}
|
|
|
|
PR_STATIC_CALLBACK(JSBool)
|
|
hist_back(JSContext *cx, JSObject *obj,
|
|
unsigned int argc, jsval *argv, jsval *rval)
|
|
{
|
|
jsval minus_one;
|
|
|
|
minus_one = INT_TO_JSVAL(-1);
|
|
return hist_go(cx, obj, 1, &minus_one, rval);
|
|
}
|
|
|
|
PR_STATIC_CALLBACK(JSBool)
|
|
hist_toString(JSContext *cx, JSObject *obj,
|
|
unsigned int argc, jsval *argv, jsval *rval)
|
|
{
|
|
JSHistory *hist;
|
|
MochaDecoder *decoder;
|
|
MWContext *context;
|
|
XP_List *histlist;
|
|
History_entry *he;
|
|
char *bytes;
|
|
JSString *str;
|
|
|
|
if (!JS_InstanceOf(cx, obj, &lm_hist_class, argv))
|
|
return JS_FALSE;
|
|
|
|
hist = JS_GetPrivate(cx, obj);
|
|
if (!hist)
|
|
return JS_TRUE;
|
|
decoder = hist->decoder;
|
|
context = decoder->window_context;
|
|
if (!context)
|
|
return JS_TRUE;
|
|
histlist = SHIST_GetList(context);
|
|
|
|
/* only build a string if we have permission */
|
|
if (!lm_CanAccessTarget(cx, JSTARGET_UNIVERSAL_BROWSER_READ))
|
|
return JS_TRUE;
|
|
|
|
bytes = 0;
|
|
StrAllocCopy(bytes, "<TITLE>Window History</TITLE>"
|
|
"<TABLE BORDER=0 ALIGN=center VALIGN=top HSPACE=8>");
|
|
while ((he = XP_ListNextObject(histlist)) != 0) {
|
|
StrAllocCat(bytes, "<TR><TD VALIGN=top><STRONG>");
|
|
/* i18n problem */
|
|
/* I believe this part is broken for I18N. Particular after we change the he->title to UTF8 */
|
|
/* force the output HTML to display as in UTF8 will fix it. */
|
|
StrAllocCat(bytes, he->title);
|
|
StrAllocCat(bytes, "</STRONG></TD><TD> </TD>"
|
|
"<TD VALIGN=top><A HREF=\"");
|
|
StrAllocCat(bytes, he->address);
|
|
StrAllocCat(bytes, "\">");
|
|
StrAllocCat(bytes, he->address);
|
|
StrAllocCat(bytes, "</A></TD></TR>");
|
|
}
|
|
StrAllocCat(bytes, "</TABLE>");
|
|
if (!bytes) {
|
|
JS_ReportOutOfMemory(cx);
|
|
return JS_FALSE;
|
|
}
|
|
|
|
str = JS_NewString(cx, bytes, XP_STRLEN(bytes));
|
|
if (!str)
|
|
return JS_FALSE;
|
|
*rval = STRING_TO_JSVAL(str);
|
|
return JS_TRUE;
|
|
}
|
|
|
|
static JSFunctionSpec hist_methods[] = {
|
|
{"go", hist_go, 1},
|
|
{"back", hist_back, 0},
|
|
{"forward", hist_forward, 0},
|
|
{lm_toString_str, hist_toString, 1},
|
|
{0}
|
|
};
|
|
|
|
/* XXX avoid ntypes.h History typedef name clash */
|
|
PR_STATIC_CALLBACK(JSBool)
|
|
History_ctor(JSContext *cx, JSObject *obj,
|
|
uint argc, jsval *argv, jsval *rval)
|
|
{
|
|
return JS_TRUE;
|
|
}
|
|
|
|
|
|
JSObject *
|
|
lm_DefineHistory(MochaDecoder *decoder)
|
|
{
|
|
JSObject *obj;
|
|
JSContext *cx;
|
|
JSHistory *hist;
|
|
|
|
obj = decoder->history;
|
|
if (obj)
|
|
return obj;
|
|
|
|
cx = decoder->js_context;
|
|
hist = JS_malloc(cx, sizeof *hist);
|
|
if (!hist)
|
|
return NULL;
|
|
XP_BZERO(hist, sizeof *hist);
|
|
|
|
obj = JS_InitClass(cx, decoder->window_object, NULL, &lm_hist_class,
|
|
History_ctor, 0, hist_props, hist_methods, NULL, NULL);
|
|
if (!obj || !JS_SetPrivate(cx, obj, hist)) {
|
|
JS_free(cx, hist);
|
|
return NULL;
|
|
}
|
|
|
|
if (!JS_DefineProperty(cx, decoder->window_object, "history",
|
|
OBJECT_TO_JSVAL(obj), NULL, NULL,
|
|
JSPROP_ENUMERATE|JSPROP_READONLY)) {
|
|
return NULL;
|
|
}
|
|
|
|
hist->object = obj;
|
|
hist->decoder = HOLD_BACK_COUNT(decoder);
|
|
decoder->history = obj;
|
|
return obj;
|
|
}
|