mirror of
https://github.com/gnustep/libs-gsweb.git
synced 2025-05-30 16:50:52 +00:00
2002-07-28 Manuel Guesdon <mguesdon@orange-concept.com>
* GSWeb.framework/GSWJavaScript.h/.m: o implementation * GSWeb.framework/GSWClientSideScript.h/.m: o implementation * GSWeb.framework/GSWVBScript.h/.m: o implementation * TODO: o updated * GSWeb.framework/GSWConstants.h/.m: o added language__Key * GSWeb.framework/GSWRadioButton.m: o logs o bug fix for checked case * GSWeb.framework/GSWDirectAction.m: o added -existingSessionWithSessionID: * GSWeb.framework/PageDef.g o Handle function references (@ in values) * GSWeb.framework/GSWPageDefLexer.h/.m: o re-generated after PageDef.g change * GSWeb.framework/GSWPageDefParserTokenTypes.h o re-generated after PageDef.g change * GSWeb.framework/GSWPageDefParser.h/.m: o re-generated after PageDef.g change * GSWeb.framework/GSWPageDefParserTokenTypes.txt o re-generated after PageDef.g change * GSWeb.framework/GSWContext.m/.h: o ivar names changes to conform to coding standards * GSWeb.framework/GSWDirectAction.m/.h: o ivar names changes to conform to coding standards * GSWeb.framework/GSWResponse.m/.h: o ivar names changes to conform to coding standards * GSWeb.framework/GSWCookie.m/.h: o ivar names changes to conform to coding standards * GSWeb.framework/GSWNestedList.m/.h: o ivar names changes to conform to coding standards * GSWeb.framework/GSWSessionTimeOut.m/.h: o ivar names changes to conform to coding standards * GSWeb.framework/GSWSessionStore.m/.h: o ivar names changes to conform to coding standards * GSWeb.framework/GSWServerSessionStore.m/.h: o ivar names changes to conform to coding standards * GSWeb.framework/GSWTransactionRecord.m/.h: o ivar names changes to conform to coding standards * GSWeb.framework/GSWSession.m/.h: o ivar names changes to conform to coding standards * GSWeb.framework/GSWRequest.m/.h: o ivar names changes to conform to coding standards * GSWeb.framework/GSWToggle.m/.h: o ivar names changes to conform to coding standards * GSWeb.framework/GSWHTMLComment.m/.h: o ivar names changes to conform to coding standards * GSWeb.framework/GSWHTMLBareString.m/.h: o ivar names changes to conform to coding standards * GSWeb.framework/GSWMailDelivery.m/.h: o ivar names changes to conform to coding standards git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/gsweb/trunk@14202 72102866-910b-0410-8b05-ffd578937521
This commit is contained in:
Manuel Guesdon
parent
689335f599
commit
363901665f
54 changed files with 4548 additions and 3799 deletions
|
|
@ -1,11 +1,16 @@
|
|||
/* GSWClientSideScript.m - GSWeb: Class GSWClientSideScript
|
||||
Copyright (C) 1999 Free Software Foundation, Inc.
|
||||
/** GSWClientSideScript.m - <title>GSWeb: Class GSWClientSideScript</title>
|
||||
|
||||
Copyright (C) 1999-2002 Free Software Foundation, Inc.
|
||||
|
||||
Written by: Manuel Guesdon <mguesdon@sbuilders.com>
|
||||
Written by: Manuel Guesdon <mguesdon@orange-concept.com>
|
||||
Date: May 1999
|
||||
|
||||
|
||||
$Revision$
|
||||
$Date$
|
||||
|
||||
This file is part of the GNUstep Web Library.
|
||||
|
||||
<license>
|
||||
This library is free software; you can redistribute it and/or
|
||||
modify it under the terms of the GNU Library General Public
|
||||
License as published by the Free Software Foundation; either
|
||||
|
|
@ -19,7 +24,8 @@
|
|||
You should have received a copy of the GNU Library General Public
|
||||
License along with this library; if not, write to the Free
|
||||
Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
|
||||
*/
|
||||
</license>
|
||||
**/
|
||||
|
||||
static char rcsId[] = "$Id$";
|
||||
|
||||
|
|
@ -28,18 +34,53 @@ static char rcsId[] = "$Id$";
|
|||
//====================================================================
|
||||
@implementation GSWClientSideScript
|
||||
|
||||
-(id)initWithName:(NSString*)name_
|
||||
associations:(NSDictionary*)associations_
|
||||
template:(GSWElement*)templateElement_
|
||||
-(id)initWithName:(NSString*)aName
|
||||
associations:(NSDictionary*)associations
|
||||
template:(GSWElement*)templateElement
|
||||
{
|
||||
LOGObjectFnNotImplemented(); //TODOFN
|
||||
return nil;
|
||||
NSMutableDictionary* tmpAssociations=[NSMutableDictionary dictionaryWithDictionary:associations];
|
||||
LOGObjectFnStartC("GSWClientSideScript");
|
||||
NSDebugMLLog(@"gswdync",@"aName=%@ associations:%@ templateElement=%@",aName,associations,templateElement);
|
||||
[tmpAssociations removeObjectForKey:scriptFile__Key];
|
||||
[tmpAssociations removeObjectForKey:scriptString__Key];
|
||||
[tmpAssociations removeObjectForKey:scriptSource__Key];
|
||||
[tmpAssociations removeObjectForKey:hideInComment__Key];
|
||||
[tmpAssociations removeObjectForKey:language__Key];
|
||||
_otherAttributes=[NSDictionary dictionaryWithDictionary:tmpAssociations];
|
||||
RETAIN(_otherAttributes);
|
||||
if ((self=[super initWithName:aName
|
||||
associations:nil
|
||||
template:templateElement]))
|
||||
{
|
||||
_scriptFile = [[associations objectForKey:scriptFile__Key
|
||||
withDefaultObject:[_scriptFile autorelease]] retain];
|
||||
NSDebugMLLog(@"gswdync",@"GSWClientSideScript: scriptFile=%@",_scriptFile);
|
||||
_scriptString = [[associations objectForKey:scriptString__Key
|
||||
withDefaultObject:[_scriptString autorelease]] retain];
|
||||
NSDebugMLLog(@"gswdync",@"GSWClientSideScript: scriptString=%@",_scriptString);
|
||||
_scriptSource = [[associations objectForKey:scriptSource__Key
|
||||
withDefaultObject:[_scriptSource autorelease]] retain];
|
||||
NSDebugMLLog(@"gswdync",@"GSWClientSideScript: scriptSource=%@",_scriptSource);
|
||||
_hideInComment = [[associations objectForKey:hideInComment__Key
|
||||
withDefaultObject:[_hideInComment autorelease]] retain];
|
||||
NSDebugMLLog(@"gswdync",@"GSWClientSideScript: hideInComment=%@",_hideInComment);
|
||||
_language = [[associations objectForKey:language__Key
|
||||
withDefaultObject:[_language autorelease]] retain];
|
||||
NSDebugMLLog(@"gswdync",@"GSWClientSideScript: language=%@",_language);
|
||||
};
|
||||
return self;
|
||||
};
|
||||
|
||||
//--------------------------------------------------------------------
|
||||
-(void)dealloc
|
||||
{
|
||||
LOGObjectFnNotImplemented(); //TODOFN
|
||||
DESTROY(_scriptFile);
|
||||
DESTROY(_scriptString);
|
||||
DESTROY(_scriptSource);
|
||||
DESTROY(_hideInComment);
|
||||
DESTROY(_language);
|
||||
DESTROY(_otherAttributes);
|
||||
[super dealloc];
|
||||
};
|
||||
|
||||
//--------------------------------------------------------------------
|
||||
|
|
@ -48,10 +89,119 @@ static char rcsId[] = "$Id$";
|
|||
|
||||
//====================================================================
|
||||
@implementation GSWClientSideScript (GSWClientSideScriptA)
|
||||
-(void)appendToResponse:(GSWResponse*)response_
|
||||
inContext:(GSWContext*)context_
|
||||
-(void)appendToResponse:(GSWResponse*)aResponse
|
||||
inContext:(GSWContext*)aContext
|
||||
{
|
||||
LOGObjectFnNotImplemented(); //TODOFN
|
||||
GSWComponent* component=nil;
|
||||
BOOL hideInCommentValue=NO;
|
||||
id languageValue=nil;
|
||||
id scriptValue=nil;
|
||||
LOGObjectFnStartC("GSWClientSideScript");
|
||||
GSWStartElement(aContext);
|
||||
GSWSaveAppendToResponseElementID(aContext);
|
||||
component=[aContext component];
|
||||
[super appendToResponse:aResponse
|
||||
inContext:aContext];
|
||||
//hideInCommentValue=[_hideInComment valueInComponent:component];
|
||||
hideInCommentValue=[self evaluateCondition:_hideInComment
|
||||
inContext:aContext];
|
||||
[aResponse _appendContentAsciiString:@"<SCRIPT language="];
|
||||
languageValue=[_language valueInComponent:component];
|
||||
|
||||
[aResponse appendContentHTMLAttributeValue:languageValue];
|
||||
if ([_otherAttributes count]>0)
|
||||
{
|
||||
NSEnumerator* enumerator = [_otherAttributes keyEnumerator];
|
||||
id key;
|
||||
id value;
|
||||
while ((key = [enumerator nextObject]))
|
||||
{
|
||||
value=[_otherAttributes objectForKey:key];
|
||||
[aResponse appendContentCharacter:' '];
|
||||
[aResponse appendContentString:key];
|
||||
if (value)
|
||||
{
|
||||
[aResponse appendContentCharacter:'='];
|
||||
[aResponse appendContentHTMLAttributeValue:value];
|
||||
};
|
||||
};
|
||||
};
|
||||
if (_scriptSource)
|
||||
{
|
||||
scriptValue=[_scriptSource valueInComponent:component];
|
||||
if (scriptValue)
|
||||
{
|
||||
[aResponse appendContentString:@" src=\""];
|
||||
[aResponse appendContentString:scriptValue];
|
||||
[aResponse appendContentCharacter:'"'];
|
||||
};
|
||||
}
|
||||
[aResponse appendContentCharacter:'>'];
|
||||
if (_scriptString || _scriptFile)
|
||||
{
|
||||
[aResponse appendContentCharacter:'\n'];
|
||||
if (hideInCommentValue)
|
||||
[aResponse _appendContentAsciiString:@"<!-- GNUstepWeb ClientScript\n"];
|
||||
|
||||
if (_scriptString)
|
||||
{
|
||||
scriptValue=[_scriptString valueInComponent:component];
|
||||
if (scriptValue)
|
||||
[aResponse appendContentString:scriptValue];
|
||||
else
|
||||
{
|
||||
//TODO
|
||||
};
|
||||
}
|
||||
else if (_scriptFile)
|
||||
{
|
||||
NSString* scriptFileName=[_scriptFile valueInComponent:component];
|
||||
if (scriptFileName)
|
||||
{
|
||||
GSWResourceManager* resourceManager=nil;
|
||||
NSString* path=nil;
|
||||
resourceManager=[GSWApp resourceManager];
|
||||
path=[resourceManager pathForResourceNamed:scriptFileName
|
||||
ofType:nil
|
||||
languages:[aContext languages]];
|
||||
if (path)
|
||||
{
|
||||
NSString* scriptValue=nil;
|
||||
scriptValue=[NSString stringWithContentsOfFile:path];
|
||||
if (scriptValue)
|
||||
{
|
||||
[aResponse appendContentString:scriptValue];
|
||||
}
|
||||
else
|
||||
{
|
||||
//TODO
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
NSException* exception=nil;
|
||||
exception=[NSException exceptionWithName:NSInvalidArgumentException
|
||||
reason:[NSString stringWithFormat:
|
||||
@"Can't find script file '%@'",
|
||||
scriptFileName]
|
||||
userInfo:nil];
|
||||
LOGException(@"GSWClientSideScript exception=%@",exception);
|
||||
[exception raise];
|
||||
};
|
||||
}
|
||||
else
|
||||
{
|
||||
//TODO
|
||||
};
|
||||
};
|
||||
|
||||
[aResponse appendContentCharacter:'\n'];
|
||||
if (hideInCommentValue)
|
||||
[aResponse _appendContentAsciiString:@"//-->\n"];
|
||||
};
|
||||
[aResponse _appendContentAsciiString:@"</SCRIPT>"];
|
||||
GSWStopElement(aContext);
|
||||
LOGObjectFnStopC("GSWClientSideScript");
|
||||
};
|
||||
|
||||
//--------------------------------------------------------------------
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue