mirror of
https://github.com/gnustep/libs-gsweb.git
synced 2025-02-22 11:11:21 +00:00
95931983d3
git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/gsweb/trunk@20507 72102866-910b-0410-8b05-ffd578937521
496 lines
17 KiB
Objective-C
496 lines
17 KiB
Objective-C
/** GSWRadioButtonList.m - <title>GSWeb: Class GSWRadioButtonList</title>
|
|
|
|
Copyright (C) 1999-2003 Free Software Foundation, Inc.
|
|
|
|
Written by: Manuel Guesdon <mguesdon@orange-concept.com>
|
|
Date: Jan 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
|
|
version 2 of the License, or (at your option) any later version.
|
|
|
|
This library is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
Library General Public License for more details.
|
|
|
|
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>
|
|
**/
|
|
|
|
#include "config.h"
|
|
|
|
RCS_ID("$Id$")
|
|
|
|
#include "GSWeb.h"
|
|
|
|
/**
|
|
Bindings
|
|
|
|
list Array of objects that the dynamic element iterate through.
|
|
|
|
index On each iteration the element put the current index in this binding
|
|
|
|
item On each iteration the element take the item at the current index and put it in this binding
|
|
|
|
displayString String to display for each radio button.
|
|
|
|
value Value for the INPUT tag for each radio button
|
|
|
|
prefix An html string to insert before each value.
|
|
|
|
suffix An html string to insert after each value.
|
|
|
|
selection Selected object (used to pre-check radio button and modified to reflect user choice)
|
|
It contains object from list, not value binding evaluated one !
|
|
|
|
selectionValue Selected value (used to pre-check radio button and modified to reflect user choice)
|
|
It contains evaluated value binding !
|
|
|
|
name Name of the element in the form (should be unique). If not specified, GSWeb assign one.
|
|
|
|
disabled If evaluated to yes, the radio button appear inactivated.
|
|
|
|
escapeHTML If evaluated to yes, escape displayString
|
|
|
|
isDisplayStringBefore If evaluated to yes, displayString is displayed before radio button
|
|
**/
|
|
|
|
static GSWIMP_BOOL standardEvaluateConditionInContextIMP = NULL;
|
|
|
|
static Class standardClass = Nil;
|
|
|
|
//====================================================================
|
|
@implementation GSWRadioButtonList
|
|
|
|
//--------------------------------------------------------------------
|
|
+ (void) initialize
|
|
{
|
|
if (self == [GSWRadioButtonList class])
|
|
{
|
|
standardClass=[GSWRadioButtonList class];
|
|
|
|
standardEvaluateConditionInContextIMP =
|
|
(GSWIMP_BOOL)[self instanceMethodForSelector:evaluateConditionInContextSEL];
|
|
};
|
|
};
|
|
|
|
//--------------------------------------------------------------------
|
|
-(id)initWithName:(NSString*)aName
|
|
associations:(NSDictionary*)associations
|
|
contentElements:(NSArray*)elements
|
|
{
|
|
//OK
|
|
NSMutableDictionary* tmpAssociations=[NSMutableDictionary dictionaryWithDictionary:associations];
|
|
LOGObjectFnStartC("GSWRadioButtonList");
|
|
NSDebugMLLog(@"gswdync",@"aName=%@ associations:%@ elements=%@",
|
|
aName,associations,elements);
|
|
_defaultEscapeHTML=1;
|
|
[tmpAssociations removeObjectForKey:list__Key];
|
|
[tmpAssociations removeObjectForKey:item__Key];
|
|
[tmpAssociations removeObjectForKey:index__Key];
|
|
[tmpAssociations removeObjectForKey:selection__Key];
|
|
if (!WOStrictFlag)
|
|
[tmpAssociations removeObjectForKey:selectionValue__Key];
|
|
[tmpAssociations removeObjectForKey:prefix__Key];
|
|
[tmpAssociations removeObjectForKey:suffix__Key];
|
|
[tmpAssociations removeObjectForKey:displayString__Key];
|
|
[tmpAssociations removeObjectForKey:escapeHTML__Key];
|
|
if ((self=[super initWithName:aName
|
|
associations:tmpAssociations
|
|
contentElements:nil]))
|
|
{
|
|
_list=[[associations objectForKey:list__Key
|
|
withDefaultObject:[_list autorelease]] retain];
|
|
_item=[[associations objectForKey:item__Key
|
|
withDefaultObject:[_item autorelease]] retain];
|
|
if (_item && ![_item isValueSettable])
|
|
{
|
|
ExceptionRaise0(@"GSWRadioButtonList",@"'item' parameter must be settable");
|
|
};
|
|
_index=[[associations objectForKey:index__Key
|
|
withDefaultObject:[_index autorelease]] retain];
|
|
if (_index && ![_index isValueSettable])
|
|
{
|
|
ExceptionRaise0(@"GSWRadioButtonList",@"'index' parameter must be settable");
|
|
};
|
|
|
|
_selection=[[associations objectForKey:selection__Key
|
|
withDefaultObject:[_selection autorelease]] retain];
|
|
if (_selection && ![_selection isValueSettable])
|
|
{
|
|
ExceptionRaise0(@"GSWRadioButtonList",@"'selection' parameter must be settable");
|
|
};
|
|
if (!WOStrictFlag)
|
|
{
|
|
_selectionValue=[[associations objectForKey:selectionValue__Key
|
|
withDefaultObject:[_selectionValue autorelease]] retain];
|
|
if (_selectionValue && ![_selectionValue isValueSettable])
|
|
{
|
|
ExceptionRaise0(@"GSWRadioButtonList",@"'selectionValue' parameter must be settable");
|
|
};
|
|
};
|
|
_prefix=[[associations objectForKey:prefix__Key
|
|
withDefaultObject:[_prefix autorelease]] retain];
|
|
_suffix=[[associations objectForKey:suffix__Key
|
|
withDefaultObject:[_suffix autorelease]] retain];
|
|
_displayString=[[associations objectForKey:displayString__Key
|
|
withDefaultObject:[_displayString autorelease]] retain];
|
|
|
|
if (!WOStrictFlag)
|
|
{
|
|
_isDisplayStringBefore=[[associations objectForKey:isDisplayStringBefore__Key
|
|
withDefaultObject:[_isDisplayStringBefore autorelease]] retain];
|
|
};
|
|
_escapeHTML=[[associations objectForKey:escapeHTML__Key
|
|
withDefaultObject:[_escapeHTML autorelease]] retain];
|
|
};
|
|
return self;
|
|
};
|
|
|
|
//-----------------------------------------------------------------------------------
|
|
-(void)dealloc
|
|
{
|
|
DESTROY(_list);
|
|
DESTROY(_item);
|
|
DESTROY(_index);
|
|
DESTROY(_selection);
|
|
DESTROY(_selectionValue);//GSWeb Only
|
|
DESTROY(_prefix);
|
|
DESTROY(_suffix);
|
|
DESTROY(_displayString);
|
|
DESTROY(_isDisplayStringBefore);//GSWeb Only
|
|
DESTROY(_escapeHTML);
|
|
[super dealloc];
|
|
}
|
|
|
|
//--------------------------------------------------------------------
|
|
-(NSString*)description
|
|
{
|
|
return [NSString stringWithFormat:@"<%s %p>",
|
|
object_get_class_name(self),
|
|
(void*)self];
|
|
};
|
|
|
|
//--------------------------------------------------------------------
|
|
-(NSString*)elementName
|
|
{
|
|
return @"INPUT";
|
|
};
|
|
|
|
@end
|
|
|
|
//====================================================================
|
|
@implementation GSWRadioButtonList (GSWRadioButtonListA)
|
|
|
|
//-----------------------------------------------------------------------------------
|
|
-(void)takeValuesFromRequest:(GSWRequest*)request
|
|
inContext:(GSWContext*)context
|
|
{
|
|
//OK
|
|
LOGObjectFnStartC("GSWRadioButtonList");
|
|
[self _slowTakeValuesFromRequest:request
|
|
inContext:context];
|
|
LOGObjectFnStopC("GSWRadioButtonList");
|
|
};
|
|
|
|
//-----------------------------------------------------------------------------------
|
|
-(void)_slowTakeValuesFromRequest:(GSWRequest*)request
|
|
inContext:(GSWContext*)context
|
|
{
|
|
//OK
|
|
BOOL disabledInContext=NO;
|
|
LOGObjectFnStartC("GSWRadioButtonList");
|
|
|
|
disabledInContext=[self disabledInContext:context];
|
|
if (!disabledInContext)
|
|
{
|
|
if ([context _wasFormSubmitted])
|
|
{
|
|
GSWComponent* component=GSWContext_component(context);
|
|
NSArray* listValue=nil; // _list value
|
|
NSString* name=nil;
|
|
BOOL found=NO;
|
|
id formValue=nil;
|
|
id valueValue=nil; // _value value (or autoValue)
|
|
id itemValue=nil; // _item value
|
|
NSString* valueValueString=nil; // _value value as string
|
|
id itemValueToSet=nil; // item value to set to _selection
|
|
id valueValueToSet=nil; // valueValue to set to _selectionValue
|
|
int i=0;
|
|
int listValueCount=0;
|
|
|
|
name=[self nameInContext:context];
|
|
NSDebugMLLog(@"gswdync",@"name=%@",name);
|
|
|
|
formValue=[request formValueForKey:name];
|
|
NSDebugMLLog(@"gswdync",@"formValue=%@",formValue);
|
|
|
|
listValue=[_list valueInComponent:component];
|
|
NSAssert3(!listValue || [listValue respondsToSelector:@selector(count)],
|
|
@"The list (%@) (%@ of class:%@) doesn't respond to 'count'",
|
|
_list,
|
|
listValue,
|
|
[listValue class]);
|
|
NSDebugMLLog(@"gswdync",@"listValue=%@",listValue);
|
|
|
|
listValueCount=[listValue count];
|
|
for(i=0;i<listValueCount && !found;i++)
|
|
{
|
|
NSDebugMLLog(@"gswdync",@"item=%@",_item);
|
|
NSDebugMLLog(@"gswdync",@"index=%@",_index);
|
|
|
|
itemValue=[listValue objectAtIndex:i];
|
|
if (_item)
|
|
[_item setValue:itemValue
|
|
inComponent:component];
|
|
|
|
if (_index)
|
|
[_index setValue:GSWIntNumber(i)
|
|
inComponent:component];
|
|
|
|
NSDebugMLLog(@"gswdync",@"value=%@",_value);
|
|
if (_value) // Binded Value
|
|
{
|
|
valueValue = [_value valueInComponent:component];
|
|
valueValueString=NSStringWithObject(valueValue);
|
|
}
|
|
else // Auto Value
|
|
{
|
|
valueValue = GSWIntNumber(i);
|
|
valueValueString=GSWIntToNSString(i);
|
|
};
|
|
|
|
NSDebugMLLog(@"gswdync",@"valueValue=%@",valueValue);
|
|
|
|
if (valueValue)
|
|
{
|
|
// we compare (with object equality not pointer equality)
|
|
BOOL isEqual=SBIsValueEqual(valueValueString,formValue);
|
|
NSDebugMLLog(@"gswdync",@"isEqual=%s",(isEqual ? "YES" : "NO"));
|
|
|
|
if (isEqual)
|
|
{
|
|
itemValueToSet=itemValue;
|
|
valueValueToSet=valueValue;
|
|
found=YES;
|
|
};
|
|
};
|
|
};
|
|
NSDebugMLLog(@"gswdync",@"component=%@",component);
|
|
NSDebugMLLog(@"gswdync",@"found=%s",(found ? "YES" : "NO"));
|
|
NSDebugMLLog(@"gswdync",@"selection=%@",_selection);
|
|
GSWLogAssertGood(component);
|
|
NS_DURING
|
|
{
|
|
[_selection setValue:itemValueToSet
|
|
inComponent:component];
|
|
};
|
|
NS_HANDLER
|
|
{
|
|
LOGException(@"GSWRadioButtonList _selection=%@ itemValueToSet=%@ exception=%@",
|
|
_selection,itemValueToSet,localException);
|
|
if (WOStrictFlag)
|
|
{
|
|
[localException raise];
|
|
}
|
|
else
|
|
{
|
|
[self handleValidationException:localException
|
|
inContext:context];
|
|
};
|
|
}
|
|
NS_ENDHANDLER;
|
|
if (!WOStrictFlag && _selectionValue)
|
|
{
|
|
NS_DURING
|
|
{
|
|
[_selectionValue setValue:valueValueToSet
|
|
inComponent:component];
|
|
};
|
|
NS_HANDLER
|
|
{
|
|
LOGException(@"GSWRadioButtonList _selectionValue=%@ valueValueToSet=%@ exception=%@",
|
|
_selectionValue,valueValueToSet,localException);
|
|
if (WOStrictFlag)
|
|
{
|
|
[localException raise];
|
|
}
|
|
else
|
|
{
|
|
[self handleValidationException:localException
|
|
inContext:context];
|
|
};
|
|
}
|
|
NS_ENDHANDLER;
|
|
};
|
|
};
|
|
};
|
|
LOGObjectFnStopC("GSWRadioButtonList");
|
|
};
|
|
|
|
//-----------------------------------------------------------------------------------
|
|
-(void)_fastTakeValuesFromRequest:(GSWRequest*)request
|
|
inContext:(GSWContext*)context
|
|
{
|
|
LOGObjectFnStartC("GSWRadioButtonList");
|
|
LOGObjectFnNotImplemented(); //TODOFN
|
|
LOGObjectFnStopC("GSWRadioButtonList");
|
|
};
|
|
|
|
//-----------------------------------------------------------------------------------
|
|
-(void)appendToResponse:(GSWResponse*)aResponse
|
|
inContext:(GSWContext*)aContext
|
|
{
|
|
//OK
|
|
GSWRequest* request=nil;
|
|
BOOL isFromClientComponent=NO;
|
|
BOOL disabledInContext=NO;
|
|
NSString* name=nil;
|
|
GSWComponent* component=nil;
|
|
NSArray* listValue=nil;
|
|
id selectionValue=nil;
|
|
id selectionValueValue=nil;
|
|
int i=0;
|
|
id displayStringValue=nil;
|
|
BOOL isDisplayStringBefore=NO;
|
|
id prefixValue=nil;
|
|
id suffixValue=nil;
|
|
id valueValue=nil; // _value value (or auto value)
|
|
id itemValue=nil; // _item value
|
|
int listValueCount=0;
|
|
|
|
LOGObjectFnStartC("GSWRadioButtonList");
|
|
|
|
request=[aContext request];
|
|
isFromClientComponent=[request isFromClientComponent];
|
|
name=[self nameInContext:aContext];
|
|
component=GSWContext_component(aContext);
|
|
|
|
selectionValue=[_selection valueInComponent:component];
|
|
selectionValueValue=[_selectionValue valueInComponent:component];
|
|
|
|
listValue=[_list valueInComponent:component];
|
|
NSAssert3(!listValue || [listValue respondsToSelector:@selector(count)],
|
|
@"The list (%@) (%@ of class:%@) doesn't respond to 'count'",
|
|
_list,
|
|
listValue,
|
|
[listValue class]);
|
|
|
|
listValueCount=[listValue count];
|
|
for(i=0;i<listValueCount;i++)
|
|
{
|
|
BOOL isEqual=NO;
|
|
|
|
disabledInContext=[self disabledInContext:aContext];
|
|
|
|
itemValue=[listValue objectAtIndex:i];
|
|
[_item setValue:itemValue
|
|
inComponent:component];
|
|
|
|
prefixValue=[_prefix valueInComponent:component];
|
|
suffixValue=[_suffix valueInComponent:component];
|
|
|
|
[_index setValue:GSWIntNumber(i)
|
|
inComponent:component];
|
|
|
|
if (_isDisplayStringBefore)
|
|
{
|
|
isDisplayStringBefore=GSWDynamicElement_evaluateValueInContext(self,standardClass,
|
|
standardEvaluateConditionInContextIMP,
|
|
_isDisplayStringBefore,aContext);
|
|
};
|
|
displayStringValue=[_displayString valueInComponent:component];
|
|
|
|
if (isDisplayStringBefore)
|
|
GSWResponse_appendContentHTMLString(aResponse,displayStringValue);
|
|
|
|
GSWResponse_appendContentString(aResponse,@"<INPUT NAME=\"");
|
|
GSWResponse_appendContentString(aResponse,name);
|
|
|
|
GSWResponse_appendContentString(aResponse,@"\" TYPE=radio VALUE=\"");
|
|
|
|
NSDebugMLLog(@"gswdync",@"_value (class: %@): %@",[_value class],_value);
|
|
// Value property of the INPUT tag
|
|
if (_value) // Binded Value
|
|
{
|
|
valueValue = [_value valueInComponent:component];
|
|
NSDebugMLLog(@"gswdync",@"valueValue=%@",valueValue);
|
|
GSWResponse_appendContentHTMLAttributeValue(aResponse,valueValue);
|
|
}
|
|
else // Auto Value
|
|
{
|
|
valueValue = GSWIntNumber(i);
|
|
NSDebugMLLog(@"gswdync",@"valueValue=%@",valueValue);
|
|
GSWResponse_appendContentAsciiString(aResponse,GSWIntToNSString(i));
|
|
};
|
|
GSWResponse_appendContentCharacter(aResponse,'"');
|
|
|
|
NSDebugMLLog(@"gswdync",@"selectionValue=%@",selectionValue);
|
|
NSDebugMLLog(@"gswdync",@"selectionValue class=%@",[selectionValue class]);
|
|
NSDebugMLLog(@"gswdync",@"itemValue=%@",itemValue);
|
|
NSDebugMLLog(@"gswdync",@"itemValue class=%@",[itemValue class]);
|
|
if (selectionValue)
|
|
{
|
|
isEqual=SBIsValueEqual(itemValue,selectionValue);
|
|
NSDebugMLLog(@"gswdync",@"isEqual=%s",(isEqual ? "YES" : "NO"));
|
|
}
|
|
|
|
NSDebugMLLog(@"gswdync",@"selectionValueValue=%@",selectionValueValue);
|
|
NSDebugMLLog(@"gswdync",@"selectionValueValue class=%@",[selectionValueValue class]);
|
|
NSDebugMLLog(@"gswdync",@"valueValue=%@",valueValue);
|
|
NSDebugMLLog(@"gswdync",@"valueValue class=%@",[valueValue class]);
|
|
if (isEqual==NO && selectionValueValue)
|
|
{
|
|
isEqual=SBIsValueEqual(valueValue,selectionValueValue);
|
|
NSDebugMLLog(@"gswdync",@"isEqual=%s",(isEqual ? "YES" : "NO"));
|
|
}
|
|
|
|
if (isEqual)
|
|
GSWResponse_appendContentString(aResponse,@" CHECKED");
|
|
|
|
if (disabledInContext)
|
|
GSWResponse_appendContentAsciiString(aResponse,@" DISABLED");
|
|
|
|
GSWResponse_appendContentCharacter(aResponse,'>');
|
|
GSWResponse_appendContentString(aResponse,prefixValue);
|
|
if (!isDisplayStringBefore)
|
|
GSWResponse_appendContentHTMLString(aResponse,displayStringValue);
|
|
GSWResponse_appendContentString(aResponse,suffixValue);
|
|
};
|
|
LOGObjectFnStopC("GSWRadioButtonList");
|
|
};
|
|
|
|
@end
|
|
|
|
//====================================================================
|
|
@implementation GSWRadioButtonList (GSWRadioButtonListB)
|
|
-(BOOL)appendStringAtRight:(id)unkwnon
|
|
withMapping:(char*)mapping
|
|
{
|
|
LOGObjectFnNotImplemented(); //TODOFN
|
|
return NO;
|
|
};
|
|
|
|
-(BOOL)appendStringAtLeft:(id)unkwnon
|
|
withMapping:(char*)mapping
|
|
{
|
|
LOGObjectFnNotImplemented(); //TODOFN
|
|
return NO;
|
|
};
|
|
|
|
-(BOOL)compactHTMLTags
|
|
{
|
|
return NO;
|
|
};
|
|
|
|
@end
|