gecko-dev/lib/layout/layobj.c
1998-10-09 02:49:20 +00:00

1435 lines
35 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.0 (the "NPL"); you may not use this file except in
* compliance with the NPL. You may obtain a copy of the NPL at
* http://www.mozilla.org/NPL/
*
* Software distributed under the NPL is distributed on an "AS IS" basis,
* WITHOUT WARRANTY OF ANY KIND, either express or implied. See the NPL
* for the specific language governing rights and limitations under the
* NPL.
*
* The Initial Developer of this code under the NPL is Netscape
* Communications Corporation. Portions created by Netscape are
* Copyright (C) 1998 Netscape Communications Corporation. All Rights
* Reserved.
*/
#include "xp.h"
#include "net.h"
#include "pa_parse.h"
#include "layout.h"
#include "np.h"
#ifdef JAVA
#include "java.h"
#endif
#ifdef ANTHRAX /* 9.23.97 amusil */
#include "prefapi.h"
#endif /* ANTHRAX */
/* Internal prototypes */
void lo_FetchObjectData(MWContext*, lo_DocState*, lo_ObjectStack*);
void lo_ObjectURLExit(URL_Struct*, int, MWContext*);
void lo_ClearObjectBlock(MWContext*, LO_ObjectStruct*);
lo_ObjectStack* lo_PushObject(MWContext*, lo_DocState*, PA_Tag*);
void lo_PopObject(lo_DocState*);
Bool lo_CheckObjectBlockage(MWContext*, lo_DocState*, lo_ObjectStack*);
#ifdef ANTHRAX /* 9.23.97 amusil */
static void lo_SetClassID(PA_Tag* tag, char* appletName);
static char* lo_GetNextName(char** index);
static char* lo_GetNextValue(char** index);
static void lo_SetArgs(char* tag, lo_ObjectStack* top);
static void lo_itoa(uint32 n, char* s);
static void lo_ReverseString(char* s);
static void lo_AddParam(PA_Tag* tag, char* aName, char* aValue);
static void lo_RemoveParam(PA_Tag* tag, char* name);
#endif /* ANTHRAX */
void
lo_FormatObject(MWContext* context, lo_DocState* state, PA_Tag* tag)
{
lo_TopState* top_state = state->top_state;
lo_ObjectStack* top;
LO_ObjectStruct* object;
PA_Block buff;
int16 type = LO_NONE;
int16 sub_type = LO_NONE;
char* str;
char* pluginName;
#ifdef ANTHRAX
char* appletName;
NET_cinfo* fileInfo;
#endif /* ANTHRAX */
/*
* Make a new default object. Passing LO_OBJECT will create an
* LO_Element, which being a union of all other layout element types
* is guaranteed to be big enough to transmogrify into one of these
* specific types later if necessary.
*/
object = (LO_ObjectStruct*) lo_NewElement(context, state, LO_OBJECT, NULL, 0);
if (object == NULL)
{
state->top_state->out_of_memory = TRUE;
return;
}
top = top_state->object_stack;
top->object = object;
/*
* Set up default fields for this object that are common
* to all possible object types.
*/
object->lo_element.lo_plugin.type = LO_NONE;
object->lo_element.lo_plugin.ele_id = NEXT_ELEMENT;
object->lo_element.lo_plugin.x = state->x;
object->lo_element.lo_plugin.x_offset = 0;
object->lo_element.lo_plugin.y = state->y;
object->lo_element.lo_plugin.y_offset = 0;
object->lo_element.lo_plugin.width = 0;
object->lo_element.lo_plugin.height = 0;
object->lo_element.lo_plugin.next = NULL;
object->lo_element.lo_plugin.prev = NULL;
/*
* Now attempt to figure out what type of object we have.
* If the type can be determined here, great; otherwise
* we have to block until the type can be determined by
* reading in additional data.
*
* Initially the type of the object is LO_NONE. When
* we figure out enough to know the type, we set it to
* LO_EMBED, LO_JAVA, or LO_IMAGE. If the type had
* already been changed to a different incompatible type,
* then the tag is malformed and we should ignore it, so
* set the type to LO_UNKNOWN.
*/
#if 0
/*
* Check the "codetype" attribute, which optionally determines
* the MIME type of the object code itself (as opposed to its
* data). The only code type we know about right now is
* application/java-vm for Java applets.
*/
buff = lo_FetchParamValue(context, tag, PARAM_CODETYPE);
if (buff != NULL)
{
PA_LOCK(str, char *, buff);
if (pa_TagEqual(APPLICATION_JAVAVM, str))
{
/* It's a Java applet */
if (type == LO_NONE)
type = LO_JAVA;
else if (type != LO_JAVA)
type = LO_UNKNOWN;
}
else if (pa_TagEqual(APPLICATION_OLEOBJECT, str) ||
pa_TagEqual(APPLICATION_OLEOBJECT2, str))
{
/* It's an OLE object */
if (type == LO_NONE)
type = LO_EMBED;
else if (type != LO_EMBED)
type = LO_UNKNOWN;
}
PA_UNLOCK(buff);
XP_FREE(buff);
}
#endif
/*
* Check the "classid" attribute, which optionally determines
* the specific implementation of the object. The classid
* could be a normal URL, in which case we have to retrieve
* that URL and match it against a known code type (see above).
* There are also two "magic" URL types supported for classid:
* "clsid:", which indicates a COM 376-hex-digit class ID,
* and "java:", which indicates a specific java class to run.
* Note that the "java:" URL is different from the APPLET
* "code" attribute: the "java:" URL specifies a particular
* method (e.g. "java:program.run"), while the APPLET CODE
* attribute specifies an applet subclass (e.g. "MyApplet.class").
*
* Further notes about "java:"
* We are adding two related "magic" protocol selectors to
* augment "java:". These are "javaprogram:" and "javabean:".
* They are used with embedded applications and application
* objects. "javaprogram:" identifies an object as being a
* subclass of netscape.application.Application, and is used
* to start an instance of such application. "javabean:" is
* used to add an embedded object to an application.
*/
buff = lo_FetchParamValue(context, tag, PARAM_CLASSID);
if (buff != NULL)
{
PA_LOCK(str, char *, buff);
if (XP_STRNCASECMP(str, "clsid:", 6) == 0)
{
/*
* It's a COM class ID, so make sure we have an
* appropriate plug-in to handle ActiveX controls.
*/
if ((pluginName = NPL_FindPluginEnabledForType(APPLICATION_OLEOBJECT)) != NULL)
{
XP_FREE(pluginName);
if (type == LO_NONE)
type = LO_EMBED;
else if (type != LO_EMBED)
type = LO_UNKNOWN;
}
}
else if ( (XP_STRNCASECMP(str, "java:", 5) == 0) ||
(XP_STRNCASECMP(str, "javaprogram:", 12) == 0) ||
(XP_STRNCASECMP(str, "javabean:", 9) == 0) )
{
/* It's a Java class */
#ifdef OJI
if (type == LO_NONE)
{
type = LO_EMBED;
sub_type = LO_JAVA;
}
else if (type != LO_EMBED) /* XXX */
#else
if (type == LO_NONE)
type = LO_JAVA;
else if (type != LO_JAVA)
#endif
type = LO_UNKNOWN;
}
else
{
/*
* Must be a URL to the code; we'll need to fetch it to
* determine the type. bing: How should we do this?
*/
}
PA_UNLOCK(buff);
XP_FREE(buff);
}
/*
* Check the "type" attribute, which optionally determines
* the type of the data for the object. The data type
* can be used to infer the object implementation type if
* the implementation hasn't been specified via "classid"
* or "codetype" (see above). The two kinds of objects
* we currently support with typed data are plug-ins and
* images; for plug-ins we can ask libplug if the type is
* currently handled by a plug-in; for images we just check
* against a hard-coded list of image types we natively
* support (yuck).
*/
buff = lo_FetchParamValue(context, tag, PARAM_TYPE);
if (buff != NULL)
{
PA_LOCK(str, char *, buff);
if ((pluginName = NPL_FindPluginEnabledForType(str)) != NULL)
{
XP_FREE(pluginName);
/* It's a plug-in */
if (type == LO_NONE)
{
type = LO_EMBED;
#ifdef OJI
#define JAVA_PLUGIN_MIMETYPE "application/x-java-vm"
if (XP_STRCMP(JAVA_PLUGIN_MIMETYPE, str)==0)
{
sub_type = LO_JAVA;
}
#endif
}
else if (type != LO_EMBED)
type = LO_UNKNOWN;
}
/*
Adding a check for applets that handle mimetypes.
The pref is stored based on the particular mimetype.
We do a lookup and if there is an association, the name
of the applet is placed into "appletName".
NOTE: NPL_FindAppletEnabledForMimetype() allocates memory for appletName
and we must free it.
9.23.97 amusil
*/
#ifdef ANTHRAX
if((appletName = NPL_FindAppletEnabledForMimetype(str)) != NULL)
{
/* Set the type */
type = LO_EMBED;
sub_type = LO_JAVA;
/* set the CLASSID to whatever was put into "appletName" */
/*lo_SetClassID(tag, appletName);*/
lo_AddParam(tag, "CODE", appletName);
lo_SetArgs((char*)tag->data, top);
lo_RemoveParam(tag, "type");
lo_RemoveParam(tag, "src");
lo_RemoveParam(tag, "data");
lo_AddParam(tag, "TYPE", JAVA_PLUGIN_MIMETYPE);
/* do the same for the clone_tag */
if(top->clone_tag)
{
lo_AddParam(top->clone_tag, "CODE", appletName);
lo_RemoveParam(top->clone_tag, "type");
lo_RemoveParam(top->clone_tag, "src");
lo_RemoveParam(top->clone_tag, "data");
lo_AddParam(top->clone_tag, "TYPE", JAVA_PLUGIN_MIMETYPE);
}
/* set this so that we know later to translate the DATA/SRC param to a Java arg */
XP_FREE(appletName);
}
#endif /* ANTHRAX */
#if 0
else if (XP_STRNCASECMP(str, "image/", 6) == 0)
{
if (XP_STRCASECMP(str, IMAGE_GIF) ||
XP_STRCASECMP(str, IMAGE_JPG) ||
XP_STRCASECMP(str, IMAGE_PJPG) ||
XP_STRCASECMP(str, IMAGE_XBM) ||
XP_STRCASECMP(str, IMAGE_XBM2) ||
XP_STRCASECMP(str, IMAGE_XBM3))
{
/* It's an image */
if (type == LO_NONE)
type = LO_IMAGE;
else if (type != LO_IMAGE)
type = LO_UNKNOWN;
}
}
#endif /* if 0 */
if (XP_STRNCASECMP(str, "builtin/", 8) == 0)
{
if (type == LO_NONE)
type = LO_BUILTIN;
else if (type != LO_BUILTIN)
type = LO_UNKNOWN;
}
PA_UNLOCK(buff);
XP_FREE(buff);
}
#ifdef ANTHRAX
else /* we didn't find a TYPE param, so check the filename to get the type - amusil */
{
buff = lo_FetchParamValue(context, tag, PARAM_SRC);
/* if no src, check if there's a DATA param */
if(buff == NULL)
buff = lo_FetchParamValue(context, tag, PARAM_DATA);
/* extract the mimetype info */
if (buff)
{
PA_LOCK(str, char *, buff);
fileInfo = NET_cinfo_find_type(str);
str = fileInfo->type;
if((appletName = NPL_FindAppletEnabledForMimetype(str)) != NULL)
{
/* Set the type */
type = LO_EMBED;
sub_type = LO_JAVA;
/* set the CLASSID to whatever was put into "appletName" */
/*lo_SetClassID(tag, appletName);*/
lo_SetArgs((char*)tag->data, top);
lo_RemoveParam(tag, "type");
lo_RemoveParam(tag, "src");
lo_RemoveParam(tag, "data");
lo_AddParam(tag, "TYPE", JAVA_PLUGIN_MIMETYPE);
lo_AddParam(tag, "CODE", appletName);
/* do the same for the clone_tag */
if(top->clone_tag)
{
lo_AddParam(top->clone_tag, "CODE", appletName);
lo_RemoveParam(top->clone_tag, "type");
lo_RemoveParam(top->clone_tag, "src");
lo_RemoveParam(top->clone_tag, "data");
lo_AddParam(top->clone_tag, "TYPE", JAVA_PLUGIN_MIMETYPE);
}
XP_FREE(appletName); /* do we need to free this regardless? */
}
if(buff)
XP_FREE(buff);
}
}
#endif /* ANTRHAX */
if (type == LO_EMBED)
{
object->lo_element.lo_plugin.type = LO_EMBED;
if(sub_type == LO_JAVA)
{
object->lo_element.lo_plugin.sub_type = LO_JAVA;
}
}
else if (type == LO_BUILTIN)
{
object->lo_element.type = LO_BUILTIN;
}
#ifdef JAVA
else if (type == LO_JAVA)
{
if (LJ_GetJavaEnabled() != FALSE)
{
/*
* Close out the current applet if necessary
* (people tend to forget "</APPLET>").
*/
if (state->current_java != NULL)
lo_CloseJavaApp(context, state, state->current_java);
object->lo_element.lo_plugin.type = LO_JAVA;
lo_FormatJavaObject(context, state, tag, (LO_JavaAppStruct*) object);
}
}
#endif /* JAVA */
#if 0
else if (type == LO_IMAGE)
{
object->lo_element.lo_plugin.type = LO_IMAGE;
lo_FormatImageObject(context, state, tag, (LO_ImageStruct*) object);
}
#endif /* if 0 */
else
{
/*
* Check for a "data" attribute; if it exists, we can get
* the URL later to see what the type of the object should be.
*/
buff = lo_FetchParamValue(context, tag, PARAM_DATA);
if (buff != NULL)
{
PA_LOCK(str, char *, buff);
if (XP_STRNCASECMP(str, "data:", 5) == 0)
{
/* bing: deal with magic data URLs here */
PA_UNLOCK(buff);
XP_FREE(buff);
}
else
{
/*
* Block layout until we can read the PARAM tags
* and closing </OBJECT> tag, go get the data URL,
* and determine its type. At that point (in
* either LO_NewObjectStream, or lo_ObjectURLExit),
* we know the object type and can unblock.
*/
top->data_url = str;
state->top_state->layout_blocking_element = (LO_Element*) object;
PA_UNLOCK(buff);
/* Don't free buff; we stored it in the object stack */
}
}
else
{
/*
* Otherwise we just don't know what to do with this!
*/
object->lo_element.lo_plugin.type = LO_UNKNOWN;
}
}
}
/*
* Takes a "PARAM" tag and pointers to the object's attribute
* count, attribute name array, and attribute value array.
* Parses the name and value of the PARAM and adjusts the
* attribute count, names, and values accordingly.
*/
void
lo_ObjectParam(MWContext* context, lo_DocState* state, PA_Tag* tag,
uint32* count, char*** names, char*** values)
{
PA_Block buff;
char *str;
char *param_name = NULL;
char *param_value = NULL;
char **name_list;
char **value_list;
/*
* Get the name of this parameter.
*/
buff = lo_FetchParamValue(context, tag, PARAM_NAME);
if (buff != NULL)
{
PA_LOCK(str, char *, buff);
if (str != NULL)
{
int32 len;
char *new_str;
len = lo_StripTextWhitespace(str, XP_STRLEN(str));
new_str = (char *)XP_ALLOC(len + 1);
if (new_str != NULL)
{
XP_STRCPY(new_str, str);
}
param_name = new_str;
}
PA_UNLOCK(buff);
PA_FREE(buff);
}
else
{
/* If we don't have a parameter name, it's useless */
return;
}
/*
* Get the value of this parameter.
*/
buff = lo_FetchParamValue(context, tag, PARAM_VALUE);
if (buff != NULL)
{
PA_LOCK(str, char *, buff);
if (str != NULL)
{
int32 len;
char *new_str;
len = lo_StripTextWhitespace(str, XP_STRLEN(str));
new_str = (char *)XP_ALLOC(len + 1);
if (new_str != NULL)
{
XP_STRCPY(new_str, str);
}
param_value = new_str;
}
PA_UNLOCK(buff);
PA_FREE(buff);
}
/*
* Add the parameter to the name/value list.
*/
if (*names == NULL)
name_list = (char **)XP_ALLOC(sizeof(char *));
else
name_list = (char **)XP_REALLOC(*names,
((*count + 1) * sizeof(char *)));
/*
* If we run out of memory here, free up what
* we can and return.
*/
if (name_list == NULL)
{
state->top_state->out_of_memory = TRUE;
XP_FREE(param_name);
if (param_value != NULL)
XP_FREE(param_value);
return;
}
if (*values == NULL)
value_list = (char **)XP_ALLOC(sizeof(char *));
else
value_list = (char **)XP_REALLOC(*values,
((*count + 1) * sizeof(char *)));
/*
* If we run out of memory here, free up what
* we can and return.
*/
if (value_list == NULL)
{
state->top_state->out_of_memory = TRUE;
XP_FREE(param_name);
if (param_value != NULL)
XP_FREE(param_value);
return;
}
*names = name_list;
*values = value_list;
(*names)[*count] = param_name;
(*values)[*count] = param_value;
(*count)++;
}
/*
* Appends the name/value list in count2, names2, and values2 on
* to the name/value list in count1, names1, and values1.
*/
void
lo_AppendParamList(uint32* count1, char*** names1, char*** values1,
uint32 count2, char** names2, char** values2)
{
char** names = NULL;
char** values = NULL;
if (*names1 != NULL)
{
if (names2 != NULL)
{
names = (char**) XP_REALLOC(*names1, ((*count1 + count2) * sizeof(char*)));
if (names != NULL)
XP_MEMCPY(&(names[*count1]), names2, count2 * sizeof(char*));
}
else
names = *names1;
}
else
names = names2;
if (*values1 != NULL)
{
if (values2 != NULL)
{
values = (char**) XP_REALLOC(*values1, ((*count1 + count2) * sizeof(char*)));
if (values != NULL)
XP_MEMCPY(&(values[*count1]), values2, count2 * sizeof(char*));
}
else
values = *values1;
}
else
values = values2;
if (names != NULL && values != NULL)
{
*count1 = *count1 + count2;
*names1 = names;
*values1 = values;
}
}
lo_ObjectStack*
lo_PushObject(MWContext* context, lo_DocState* state, PA_Tag* tag)
{
/*
* If possible, reuse an object stack entry created in
* a previous pass over this tag (i.e. while blocked, by
* lo_BlockObjectTag). If there's no previously-created
* object, make a new one.
*/
lo_TopState* top_state = state->top_state;
lo_ObjectStack* new_top = top_state->object_cache;
if (new_top != NULL)
{
/* Find and remove the matching item, if any */
if (new_top->real_tag == tag)
top_state->object_cache = new_top->next;
else
{
while (new_top->next != NULL)
{
if (new_top->next->real_tag == tag)
{
lo_ObjectStack* temp = new_top->next;
new_top->next = new_top->next->next;
new_top = temp;
break;
}
new_top = new_top->next;
}
}
}
if (new_top == NULL || new_top->real_tag != tag)
{
new_top = XP_NEW_ZAP(lo_ObjectStack);
if (new_top == NULL)
{
state->top_state->out_of_memory = TRUE;
return NULL;
}
}
new_top->next = top_state->object_stack;
top_state->object_stack = new_top;
new_top->context = context;
new_top->state = state;
/*
* Clone the tag since the tag passed in may be freed
* by the parser before we're ready for it.
*/
if (new_top->real_tag != tag)
{
new_top->real_tag = tag;
if (new_top->clone_tag != NULL)
PA_FreeTag(new_top->clone_tag);
new_top->clone_tag = XP_NEW(PA_Tag);
if (new_top->clone_tag != NULL)
{
XP_MEMCPY(new_top->clone_tag, tag, sizeof(PA_Tag));
new_top->clone_tag->data = PA_ALLOC((tag->data_len + 1) * sizeof (char));
if (new_top->clone_tag->data != NULL)
{
char* source;
char* dest;
PA_LOCK(source, char*, tag->data);
PA_LOCK(dest, char*, new_top->clone_tag->data);
XP_MEMCPY(dest, source, tag->data_len + 1);
PA_UNLOCK(dest);
PA_UNLOCK(source);
}
}
}
return new_top;
}
void
lo_PopObject(lo_DocState* state)
{
lo_TopState* top_state = state->top_state;
lo_ObjectStack* top = top_state->object_stack;
if (top == NULL)
return;
/* Unlink from stack */
top_state->object_stack = top->next;
#if 0
/* Add to cache */
top->next = top_state->object_cache;
top_state->object_cache = top;
#else
/*
* beard: This cache never gets invalidated when the real_tag field gets freed by
* PA_FreeTag. Therefore, we're leaving stale cache entries around. Until this is
* fixed, don't bother caching these stack items.
*/
lo_DeleteObjectStack(top);
#endif
}
void
lo_DeleteObjectStack(lo_ObjectStack* top)
{
/* Delete parameters */
if (top->parameters.n > 0)
{
uint32 index;
if (top->parameters.values != NULL)
{
for (index = 0; index < top->parameters.n; index++)
{
if (top->parameters.names[index] != NULL)
XP_FREE(top->parameters.names[index]);
}
XP_FREE(top->parameters.names);
}
if (top->parameters.values != NULL)
{
for (index = 0; index < top->parameters.n; index++)
{
if (top->parameters.values[index] != NULL)
XP_FREE(top->parameters.values[index]);
}
XP_FREE(top->parameters.values);
}
}
/* Delete tag copy */
if (top->clone_tag != NULL)
PA_FreeTag(top->clone_tag);
/* Delete object */
XP_FREE(top);
}
Bool
lo_CheckObjectBlockage(MWContext* context, lo_DocState* state, lo_ObjectStack* top)
{
LO_ObjectStruct* object = top->object;
if (object != NULL &&
state->top_state->layout_blocking_element == (LO_Element*) object)
{
/*
* We're blocked on this object, and we need to start
* a data stream to figure out the object type. Now
* that we've read the PARAMs, it's OK to start the
* stream.
*/
if (top->data_url != NULL)
{
XP_ASSERT(object->lo_element.lo_plugin.type == LO_NONE);
lo_FetchObjectData(context, state, top);
}
else
{
XP_ASSERT(FALSE);
object->lo_element.lo_plugin.type = LO_UNKNOWN;
}
return TRUE; /* Yes, we're the cause of the blockage */
}
return FALSE; /* No, some enclosing object is the block point */
}
void
lo_ProcessObjectTag(MWContext* context, lo_DocState* state, PA_Tag* tag, XP_Bool blocked)
{
lo_TopState* top_state = state->top_state;
lo_ObjectStack* top = top_state->object_stack;
LO_ObjectStruct* object = top ? top->object : NULL;
if (tag->is_end == FALSE)
{
lo_ObjectStack* new_top;
/*
* If we have started loading an OBJECT we are
* out of the HEAD section of the HTML
* and into the BODY
*/
if (blocked == FALSE)
{
state->top_state->in_head = FALSE;
state->top_state->in_body = TRUE;
}
/*
* Push a new entry onto the stack. If blocked,
* also stash it in the tag's lo_data so we can
* reuse it later when not blocked.
*/
new_top = lo_PushObject(context, state, tag);
if (blocked)
{
XP_ASSERT(tag->lo_data == NULL);
tag->lo_data = (void*) new_top;
}
/*
* If we're not blocked, and not in the middle of a handled
* object, go process this object tag. Otherwise ignore the
* the tag (we don't just filter it out in lo_FilterTag
* because we need to keep track of the object nesting to
* match up with the right </OBJECT>).
*/
if (blocked == FALSE)
{
if (object == NULL || object->lo_element.lo_plugin.type == LO_UNKNOWN)
{
lo_FormatObject(context, state, tag);
/*
* If we've already read the PARAMs, we can try deal
* with the blockage now (in fact, we must). If we
* haven't read the params yet, we have to wait until
* our matching </OBJECT> tag (this will be handled
* by the code below).
*/
if (new_top->read_params)
lo_CheckObjectBlockage(context, state, new_top);
}
}
}
else
{
if (top != NULL)
{
if (blocked)
{
/*
* Set a flag indicating that we've already read
* this object's params while blocked so we won't
* have to do it again later when unblocked.
*/
top->read_params = TRUE;
if (lo_CheckObjectBlockage(context, state, top))
{
/*
* If we're blocked on this object, don't pop the
* stack. When the blockage is cleared we want to
* still be at the top of the stack, because layout
* will proceed immediately after the block point,
* which was our opening <OBJECT> tag.
*/
}
else
{
/*
* If blocked on some other (enclosing) object,
* pop the stack.
*/
lo_PopObject(state);
}
}
else
{
/*
* If not blocked, just close out the object
* as appropriate.
*/
if (object != NULL && top->formatted_object == FALSE)
{
if (object->lo_element.lo_plugin.type == LO_EMBED)
{
lo_FormatEmbedObject(context,
state,
top->clone_tag,
(LO_EmbedStruct*) object,
FALSE, /* Stream not started */
top->parameters.n,
top->parameters.names,
top->parameters.values);
top->formatted_object = TRUE;
LO_NVList_Init( &top->parameters );
}
else if (object->lo_element.type == LO_BUILTIN)
{
lo_FormatBuiltinObject(context,
state,
top->clone_tag,
(LO_BuiltinStruct*) object,
FALSE, /* Stream not started */
top->parameters.n,
top->parameters.names,
top->parameters.values);
top->formatted_object = TRUE;
LO_NVList_Init( &top->parameters );
}
#ifdef JAVA
else if (object->lo_element.lo_plugin.type == LO_JAVA)
{
lo_CloseJavaApp(context, state, (LO_JavaAppStruct*) object);
}
#endif
}
/* Pop stack entry */
lo_PopObject(state);
}
}
}
}
void
lo_ProcessParamTag(MWContext* context, lo_DocState* state, PA_Tag* tag, XP_Bool blocked)
{
if (tag->is_end == FALSE)
{
lo_TopState* top_state = state->top_state;
lo_ObjectStack* top = top_state->object_stack;
/*
* PARAMs can be used inside both APPLETs and OBJECTs.
* Since applets can be inside objects but objects can't
* be inside applets, give the current applet priority
* for ownership of the parameter.
*/
#ifdef JAVA
if (state->current_java != NULL && blocked == FALSE)
{
LO_JavaAppStruct* java_app = state->current_java;
lo_ObjectParam(context, state, tag,
(uint32*) &(java_app->parameters.n),
&(java_app->parameters.names),
&(java_app->parameters.values));
}
else
#endif /* JAVA */
if (top != NULL && top->read_params == FALSE)
{
lo_ObjectParam(context, state, tag,
&(top->parameters.n),
&(top->parameters.names),
&(top->parameters.values));
}
}
}
/*
* This function gets the URL for the "data" attribute
* for an object, so we can determine the MIME type of
* the data and thus the type of object. If libnet can
* get the data, LO_NewObjectStream will be called (see
* below). If it can't, lo_ObjectURLExit will be called
* (also see below).
*/
void
lo_FetchObjectData(MWContext* context, lo_DocState* state,
lo_ObjectStack* top)
{
char* address = NULL;
URL_Struct* urls = NULL;
address = NET_MakeAbsoluteURL(
state->top_state->base_url, top->data_url);
if (address != NULL)
{
urls = NET_CreateURLStruct(address, NET_DONT_RELOAD);
if (urls != NULL)
{
urls->fe_data = (void*) top;
(void) NET_GetURL(urls, FO_CACHE_AND_OBJECT,
context, lo_ObjectURLExit);
}
}
if (address != NULL)
XP_FREE(address);
if (urls == NULL)
{
state->top_state->out_of_memory = TRUE;
return;
}
}
/*
* Create a new stream handler for dealing with a stream of
* object data. We don't really want to do anything with
* the data, we just need to check the type to see if this
* is some kind of object we can handle. If it is, we can
* format the right kind of object, clear the layout blockage,
* and connect this stream up to its rightful owner.
* NOTE: Plug-ins are the only object type supported here now.
*/
NET_StreamClass*
LO_NewObjectStream(FO_Present_Types format_out, void* type,
URL_Struct* urls, MWContext* context)
{
NET_StreamClass* stream = NULL;
lo_ObjectStack* top = (lo_ObjectStack*) urls->fe_data;
char* pluginName;
if (top != NULL && top->object != NULL)
{
if ((pluginName = NPL_FindPluginEnabledForType(urls->content_type)) != NULL)
{
/* bing: Internal reference to libplug! */
extern void NPL_EmbedURLExit(URL_Struct*, int, MWContext*);
XP_FREE(pluginName);
/* Now we know the object type */
top->object->lo_element.lo_plugin.type = LO_EMBED;
lo_FormatEmbedObject(top->context,
top->state,
top->clone_tag,
(LO_EmbedStruct*) top->object,
TRUE,
top->parameters.n,
top->parameters.names,
top->parameters.values);
LO_NVList_Init(&top->parameters);
top->formatted_object = TRUE;
/* Set the FE data that libplug expects */
urls->fe_data = top->object->lo_element.lo_plugin.FE_Data;
/* Set the exit routine that libplug expects */
NET_SetNewContext(urls, context, NPL_EmbedURLExit);
/* Get the stream handler that libplug registered */
stream = NET_StreamBuilder(FO_CACHE_AND_EMBED, urls, context);
lo_ClearObjectBlock(top->context, top->object);
}
}
return stream;
}
/*
* This routine is called when a data stream we requested
* failed (either because libnet couldn't get the data, or
* because we returned a NULL stream in LO_NewObjectStream
* because the MIME type of the stream didn't translate into
* a handlable object type). In this case we need to get
* the object out of the URL, set its type to "unknown", and
* unblock layout. This routine is also called when we
* successfully handed off the stream to its new owner and
* reset the exit routine (in LO_NewObjectStream; the status
* will be MK_CHANGING_CONTEXT in the latter case). In this
* case, we don't need to do anything here.
*/
void
lo_ObjectURLExit(URL_Struct* urls, int status, MWContext* context)
{
if (urls != NULL && status != MK_CHANGING_CONTEXT)
{
if (urls->fe_data != NULL)
{
lo_ObjectStack* stack = (lo_ObjectStack*) urls->fe_data;
LO_ObjectStruct* object = stack->object;
if (object != NULL)
{
object->lo_element.lo_plugin.type = LO_UNKNOWN;
lo_ClearObjectBlock(context, object);
}
}
XP_FREE(urls);
}
}
void
lo_ClearObjectBlock(MWContext* context, LO_ObjectStruct* object)
{
int32 doc_id = XP_DOCID(context);
lo_TopState* top_state = lo_FetchTopState(doc_id);
if (top_state != NULL &&
top_state->doc_state != NULL &&
top_state->layout_blocking_element == (LO_Element*) object)
{
lo_DocState* main_doc_state = top_state->doc_state;
lo_DocState* state = lo_CurrentSubState(main_doc_state);
lo_FlushBlockage(context, state, main_doc_state);
}
}
/*
lo_SetClassID
-------------
This inserts a CLASSID attribute into the tag->data string with its value set
to "appletName".
9.8.97 created amusil
*/
#ifdef ANTHRAX
static void lo_SetClassID(PA_Tag* tag, char* appletName)
{
uint32 appletNameLen, oldTagLen, newTagLen;
char* tagData;
appletNameLen = XP_STRLEN(appletName);
oldTagLen = XP_STRLEN((char*)tag->data);
newTagLen = oldTagLen + 15 + appletNameLen;
tag->data = XP_REALLOC(tag->data, newTagLen+1);
/* remove the '>' character */
tagData = (char*) (tag->data);
tagData[oldTagLen-1] = 0;
/* add " CLASSID = appletName" */
XP_STRCAT((char*)tag->data, " CLASSID=java:");
XP_STRCAT((char*)tag->data, appletName);
XP_STRCAT((char*)tag->data, " >");
tag->data_len = newTagLen;
}
/*
lo_GetNextName()
----------------
This function parses a tag and returns a newly allocated string containing the first encountered
NAME. An example of what would get passed to this function is (basically a tag without the preceding
<OBJECT) :
"foo = VALUE bar = VALUE2 >"
This would return foo. The tag pointer also gets incremented past the just-read NAME. The example above
would exit with *tag equal to:
" = VALUE bar = VALUE2 >"
NULL is returned if a '>' character is encountered.
10.7.97 amusil
*/
static char* lo_GetNextName(char** tag)
{
uint32 nameLength = 0;
char* newName;
char* start;
XP_ASSERT(tag);
XP_ASSERT(*tag);
XP_ASSERT(**tag);
while(**tag == ' ')
++(*tag);
if(**tag == '>')
return NULL;
start = *tag;
while((**tag != ' ') && (**tag != '='))
{
++nameLength;
++(*tag);
}
newName = XP_ALLOC((nameLength+1)*sizeof(char));
newName = strncpy(newName, start, nameLength);
XP_ASSERT(newName);
newName[nameLength] = 0;
return newName;
}
/*
lo_GetNextValue()
----------------
This function parses a tag and returns a newly allocated string containing the first encountered
VALUE. An example of what would get passed to this function is (basically a tag without the preceding
<OBJECT) :
"= foo NAME = bar >"
This would return foo. The tag pointer also gets incremented past the just-read VALUE. The example above
would exit with *tag equal to:
" NAME = bar >"
In the case that the value is enclosed in quotes, the entire string within the quotes, including spaces,
is returned.
NOTE: This function expects that lo_GetNextName() was called before it.
10.7.97 amusil
*/
static char* lo_GetNextValue(char** tag)
{
uint32 valueLength = 0;
char* newValue;
char* start;
XP_ASSERT(tag);
XP_ASSERT(*tag);
XP_ASSERT(**tag);
while(**tag == ' ' || **tag == '=')
++(*tag);
if(**tag == '>')
return NULL;
/* if the value is enclosed in quotes, we capture the entire string up to the closing quote */
if(**tag == '\"')
{
++(*tag);
start = *tag;
while(**tag != '\"')
{
++valueLength;
++(*tag);
}
++(*tag); /* skip over the enclosing " */
}
else /* otherwise, we just get up to the first space */
{
start = *tag;
while((**tag != ' '))
{
++valueLength;
++(*tag);
}
}
newValue = XP_ALLOC((valueLength+1)*sizeof(char));
newValue = strncpy(newValue, start, valueLength);
XP_ASSERT(newValue);
newValue[valueLength] = 0;
return newValue;
}
/*
lo_SetArgs
--------------
Extracts every param and passes them as arguments to the Java applet.
Here is the mapping: <... X=Y ...> becomes equivalent to <PARAM NAME=x VALUE=y>
NOTE: lo_GetNextName() lo_GetNextValue() and allocates new memory for the return values.
10.7.97 amusil
*/
static void lo_SetArgs(char* tag, lo_ObjectStack* top)
{
char* paramName;
char* paramValue;
char* index;
index = tag;
while(TRUE)
{
paramName = lo_GetNextName(&index);
if(paramName == NULL)
break;
/* always map data to src */
if(!XP_STRCASECMP(paramName, "data"))
{
XP_FREE(paramName);
paramName = XP_STRDUP("src");
}
paramValue = lo_GetNextValue(&index);
/* increment and resize array */
++(top->parameters.n);
top->parameters.names = XP_REALLOC(top->parameters.names, top->parameters.n*sizeof(char*));
XP_ASSERT(top->parameters.names);
top->parameters.values = XP_REALLOC(top->parameters.values, top->parameters.n*sizeof(char*));
XP_ASSERT(top->parameters.values);
/* point the new array elements to the newly allocated paramName and paramValue */
top->parameters.names[top->parameters.n-1] = paramName;
top->parameters.values[top->parameters.n-1] = paramValue;
}
}
static void lo_itoa(uint32 n, char* s)
{
int i, sign;
if((sign = n) < 0)
n = -n;
i = 0;
do
{
s[i++] = n%10 + '0';
} while ((n/=10) > 0);
if(sign < 0)
s[i++] = '-';
s[i] = '\0';
lo_ReverseString(s);
}
static void lo_ReverseString(char* s)
{
int c, i, j;
for(i=0, j=strlen(s)-1; i<j; i++, j--)
{
c = s[i];
s[i] = s[j];
s[j] = c;
}
}
static void lo_RemoveParam(PA_Tag* tag, char* name)
{
char* start, *end;
char* tagData = (char*)tag->data;
start = XP_STRCASESTR(tagData, name);
if(start != NULL)
{
end = start;
/* advance to the = */
while(*end != '=')
++end;
/* skip the = */
++end;
/* advance through whitespace */
while(*end == ' ')
++end;
/* advance until we hit whitespace again */
while(*end != ' ')
++end;
/* clear it out */
while(start != end)
{
*start = ' ';
++start;
}
}
}
static void lo_AddParam(PA_Tag* tag, char* aName, char* aValue)
{
uint32 nameLen, valueLen, oldTagLen, newTagLen;
char* tagData;
nameLen = XP_STRLEN(aName);
valueLen = XP_STRLEN(aValue);
oldTagLen = XP_STRLEN((char*)(tag->data));
newTagLen = oldTagLen + nameLen + valueLen + 3;
tag->data = XP_REALLOC(tag->data, newTagLen+1);
/* Remove the '>' character */
tagData = (char*)(tag->data);
tagData[oldTagLen-1] = 0;
/* Add "aName=aValue" */
XP_STRCAT(tagData, " ");
XP_STRCAT(tagData, aName);
XP_STRCAT(tagData, "=");
XP_STRCAT(tagData, aValue);
XP_STRCAT(tagData, " >");
tag->data_len = newTagLen;
}
#endif /* ANTHRAX */