/* simplewebkit
   WebDataSource.m

   Copyright (C) 2007 Free Software Foundation, Inc.

   Author: Dr. H. Nikolaus Schaller

   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; see the file COPYING.LIB.
   If not, write to the Free Software Foundation,
   51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
*/

#import "Private.h"
#import <WebKit/WebDataSource.h>
#import <WebKit/WebResource.h>
#import <WebKit/WebResourceLoadDelegate.h>
#import "WebDocumentRepresentation.h"

@implementation WebDataSource

#if NOT_USED

- (id) _initWithWebResource:(WebResource *) resource;
{ // could be an alternative to using _NSURLRequestNSData
	// make a resource with NSData://uuid, data, encoding etc.
	if((self = [super init]))
		{ // If an error occurs here, send a [self release] message and return nil.
		NSURL *url=[resource URL];
		_loadedData=[[resource data] retain];
		_initial=[NSURLRequest requestWithURL:url];
		_request=[_initial mutableCopy];
		_response=[[NSURLResponse alloc] initWithURL:url MIMEType:[resource MIMEType] expectedContentLength:[_loadedData length] textEncodingName:[resource textEncodingName]];
		}
	return self;
}
#endif

- (id) initWithRequest:(NSURLRequest *) request;
{
#if 0
	NSLog(@"WebDataSource initWithRequest %@", request);
#endif
	NSAssert(request != nil, @"trying to init for nil request");
    if((self = [super init]))
		{ // If an error occurs here, send a [self release] message and return nil.
		_initial=[request copy];
		_request=[_initial mutableCopy];
#if 0
		NSLog(@"WebDataSource load URL %@", [[_initial URL] absoluteString]);
#endif
		}
    return self;
}

- (void) dealloc;
{
#if 0
	NSLog(@"dealloc %@", self);
#endif
	[_connection cancel];	// cancel any pending actions 
	[_connection release];
	[_ident release];
	[_initial release];
	[_request release];
	[_response release];
	[_loadedData release];
	[_subresources release];
	[_subdatasources release];
	[_unreachableURL release];
	[(NSObject *) _representation release];
	[super dealloc];
}

- (NSString *) description; { return [NSString stringWithFormat:@"%@: %@ -> %@", [super description], _request, _response]; }

- (void) _cancel;
{
	[[_subdatasources allValues] makeObjectsPerformSelector:_cmd];	// cancel all still loading subresources
	[_subdatasources removeAllObjects];	// no longer loading
	[_connection cancel];
	[_connection release];
	_connection=nil;
}

- (BOOL) isLoading; { return _connection != nil; }

- (void) addSubresource:(WebResource *) res;
{
	NSAssert(res != nil, @"trying to add nil web resource");
	NSAssert([res URL]!= nil, @"trying to add web resource with nil URL");
	if(!_subresources)
		_subresources=[[NSMutableDictionary alloc] initWithCapacity:20];
	// FIXME: may have nil URL!!!
	[_subresources setObject:res forKey:[res URL]];
}

- (NSData *) data; { return _loadedData; }

- (NSURLRequest *) initialRequest; { return _initial; }

- (void) _setParentDataSource:(WebDataSource *) parent;
{
	_parent=parent;
}

- (BOOL) _isSubresource; { return _parent != nil; }

- (WebDataSource *) _subresourceWithURL:(NSURL *) url delegate:(id <WebDocumentRepresentation>) rep;	// triggers loading if not (yet) available and optionally stalls main data source
{ // creates a subresource loader
	WebDataSource *subsource;
#if 0
	NSLog(@"_subresourceWithURL:%@", url);
	NSLog(@"_subresources[url]=%@", [_subresources objectForKey:url]);
#endif
	NSAssert(url != nil, @"trying to load nil subresource");
	NSAssert([_subresources objectForKey:url] == nil, @"already loaded!");
	subsource=[_subdatasources objectForKey:[url absoluteURL]];
#if 0
		NSLog(@"load subresource from %@", url);
		NSLog(@"_subdatasources=%@", _subdatasources);
		NSLog(@"subsource=%@", subsource);
#endif
	if(!subsource)
		{ // not yet known
#if 0
		NSLog(@"start new load");
#endif
		subsource=[[[isa alloc] initWithRequest:[NSURLRequest requestWithURL:url]] autorelease];	// make new request
		[subsource _setParentDataSource:self];
		if(!rep)
			rep=[[_WebDocumentRepresentation new] autorelease]; // someone must handle...
		[subsource _setRepresentation:rep];
		if(!_subdatasources)
			_subdatasources=[[NSMutableDictionary alloc] initWithCapacity:10];
		[_subdatasources setObject:subsource forKey:[url absoluteURL]];	// add to list of resources currently loading
		[subsource _setWebFrame:_webFrame];	// hm... finally this will set the frameName
		}
#if 0
		NSLog(@"started new load");
#endif
	return subsource;
}

- (void) _commitSubresource:(WebDataSource *) source;
{ // we are the parent and our subresource is done
#if 0
	NSLog(@"subresources %d loaded, %d still loading", [_subresources count], [_subdatasources count]);
	NSLog(@"  still loading: %@", _subdatasources);
	NSLog(@"  keys: %@", [_subdatasources allKeysForObject:source]);
#endif
// OLD!!!	[[source representation] finishedLoadingWithDataSource:source];		// last chance for postprocessing
	if([source response])
		[self addSubresource:[source mainResource]];	// save response as WebResource
	[source retain];	// keep the source while we notify delegates
	[_subdatasources removeObjectForKey:[[[source request] URL] absoluteURL]];	// is no longer loading
#if 0
	NSLog(@"subresource committed (%d loaded, %d still loading): %@", [_subresources count], [_subdatasources count], source);
	NSLog(@"subresources still loading: %@", _subdatasources);
#endif
	if(_finishedLoading && [_subdatasources count] == 0)
		{ // notification was postponed until subresources have been loaded
#if 0
			NSLog(@"send postponed finishedLoadingWithDataSource:%@", self);
#endif
		_finishedLoading=NO;	// has been processed
		[_representation finishedLoadingWithDataSource:self];	// finally send postponed notification after all subresources are loaded (note: this delegate is allowed to trigger load of additional subresources!)
		}
	[source release];	// may be the final release&dealloc
}

- (WebResource *) mainResource;
{
	return [[[WebResource alloc] initWithData:_loadedData
										  URL:[_response URL]
									 MIMEType:[_response MIMEType]
							 textEncodingName:[self textEncodingName]
									frameName:[_webFrame name]] autorelease];
}

- (NSString *) pageTitle; { return [_representation title]; }
	
- (id <WebDocumentRepresentation>) representation; { return _representation; }

- (void) _setRepresentation:(id <WebDocumentRepresentation>) rep;
{
	[(NSObject *) _representation autorelease];
	_representation=[(NSObject *) rep retain];
	[_representation setDataSource:self];		// we are the data source of the rep
}

- (NSMutableURLRequest *) request; { return _request; }

- (NSURLResponse *) response; { return _response; }

- (NSArray *) subresources; { return _subresources?[_subresources allValues]:(NSArray *) [NSArray array]; }

- (WebResource *) subresourceForURL:(NSURL *) url;
{
	// should this trigger loading?
	return [_subresources objectForKey:url];
}

- (NSStringEncoding) _textEncoding;
{
	NSStringEncoding enc=NSASCIIStringEncoding;	// default
	NSString *textEncoding=[self textEncodingName];
	if([textEncoding caseInsensitiveCompare:@"utf-8"] == NSOrderedSame)
		enc=NSUTF8StringEncoding;
	else if([textEncoding caseInsensitiveCompare:@"iso-8859-1"] == NSOrderedSame)
		enc=NSISOLatin1StringEncoding;
	else
		NSLog(@"unknown _textEncoding: %@", textEncoding);
	// FIXME: add others
	return enc;
}

- (NSString *) textEncodingName;
{
	NSString *encoding=[[_webFrame webView] customTextEncodingName]; // get from WebView (if set)
	if(!encoding)
		encoding=[_response textEncodingName];
	if(!encoding)
		encoding=@"utf-8";	// default
	return encoding;
}

- (NSURL *) unreachableURL; { return _unreachableURL; }
- (void) _setUnreachableURL:(NSURL *) url; { ASSIGN(_unreachableURL, url); }

- (WebArchive *) webArchive;
{
	// parse data or _webFrame into webArchive
	return NIMP;
}

- (WebFrame *) webFrame;
{
	return _webFrame;
}

- (void) _load;
{
	WebView *webView=[_webFrame webView];
	NSURL *url=[_request URL];
	if(!url)
		{
		NSLog(@"attempt to _load for nil URL!");
		return;
		}
	[self retain];	// the frameLoadDelegate may send us a release when loading a different web address
#if 1
	NSLog(@"request=%@", _request);
#endif
	if([[url scheme] isEqualToString:@"javascript"])
		{ // evaluate script and "return" result
		NSString *res=[[[webView windowScriptObject] evaluateWebScript:[url path]] description];
		_connection=[NSObject new];	// dummy connection object
		_ident=[[[webView resourceLoadDelegate] webView:webView identifierForInitialRequest:_request fromDataSource:_parent?_parent:self] retain];
// FIXME:		[self connection:_connection didReceiveResponse:[(_NSURLRequestNSData *) _request response]];	// simulate callbacks from NSURLConnection
		[self connection:_connection didReceiveData:[res dataUsingEncoding:NSUTF8StringEncoding]];
		[self connectionDidFinishLoading:_connection];	// notify
		[_connection release];
		_connection=nil;
		}
	else if([_request isKindOfClass:[_NSURLRequestNSData class]])
		{ // handle special mySTEP case when loading from NSData
		_connection=[NSObject new];	// dummy connection object
		_ident=[[[webView resourceLoadDelegate] webView:webView identifierForInitialRequest:_request fromDataSource:_parent?_parent:self] retain];
		[self connection:_connection didReceiveResponse:[(_NSURLRequestNSData *) _request response]];	// simulate callbacks from NSURLConnection
		[self connection:_connection didReceiveData:[(_NSURLRequestNSData *) _request data]];
		[self connectionDidFinishLoading:_connection];	// notify
		[_connection release];
		_connection=nil;
		}
	else
		{ // external request
			NSString *str;
			if((str=[[webView preferences] defaultTextEncodingName]))
				[_request setValue:str forHTTPHeaderField:@"Accept-Charset"];
			// Make this depend on [[webView preferences] pirvateSurfingEnabled] !!
			if((str=[webView userAgentForURL:url]))
				[_request setValue:str forHTTPHeaderField:@"User-Agent"];
			//	[_request setValue:tbd forHTTPHeaderField:@"Accept-Language"];
			//	[_request setValue:tbd forHTTPHeaderField:@"Referer"];	// but only if we are not surfing anonymously and NEVER include the fragment!
			_connection=[[NSURLConnection connectionWithRequest:_request delegate:self] retain];
			_ident=[[[webView resourceLoadDelegate] webView:webView identifierForInitialRequest:_request fromDataSource:_parent?_parent:self] retain];
#if 1
		NSLog(@"connection = %@", _connection);
		NSLog(@"currentMode = %@", [[NSRunLoop currentRunLoop] currentMode]);
#endif
		}
	[self release];	// now it is safe to (finally) release if we are deallocated during one of the delegate methods
}

- (void) _setWebFrame:(WebFrame *) wf;
{ // this triggers loading but from the RunLoop
	_webFrame=wf;
	if(!_parent)
		[_webFrame _didStartLoad];
	[self _load];
}

// delegate callbacks during data reception - pass to representation or webview delegates

- (void) connection:(NSURLConnection *) connection didFailWithError:(NSError *) error;
{
	WebView *webView=[_webFrame webView];
	[self retain];	// postpone dealloc - one of the delegate might indirectly try to release us!
#if 1
	NSLog(@"WebDataSource: connection %@ error: %@", connection, error);
#endif
	[_representation receivedError:error withDataSource:self];
	[[webView resourceLoadDelegate] webView:webView resource:_ident didFailLoadingWithError:error fromDataSource:_parent?_parent:self];
	[_webFrame _failedWithError:error];	// notify
	[_parent _commitSubresource:self];
	[_connection release];
	_connection=nil;
	[self release];
}

- (NSURLRequest *) connection:(NSURLConnection *) connection willSendRequest:(NSURLRequest *) request redirectResponse:(NSURLResponse *) redirectResponse;
{ // we received a HTTP redirect (NOTE: not a HTML <meta http-equiv="Refresh" content="4;url=http://www.domain.com/link.html">)	
	WebView *webView=[_webFrame webView];
	id delegate=[webView resourceLoadDelegate];
#if 1
	NSLog(@"willSendRequest: %@ redirectResponse: %@", request, redirectResponse);
#endif
	if(delegate)
		request=[delegate webView:webView
										 resource:_ident
							willSendRequest:request
						 redirectResponse:redirectResponse
							 fromDataSource:_parent?_parent:self];
	else if(redirectResponse)
			{
				// FIXME:
				NSLog(@"should handle redirectResponse: %@", redirectResponse);
			}
	[_request autorelease];	// may be redirected several times...
	_request=[request mutableCopy];	// update to new current request
#if 1
	NSLog(@"updated request: %@", _request);
#endif
	return _request;
}

- (void) connection:(NSURLConnection *) connection didReceiveResponse:(NSURLResponse *) response;
{ // we have received the header - set up the WebRepresentation object determined by the MIME type
	WebView *webView=[_webFrame webView];
	long long len=[response expectedContentLength];
	Class repclass;
	_response=[response retain];
#if 1
	NSLog(@"response received: %@", response);
	if([response respondsToSelector:@selector(allHeaderFields)])
		NSLog(@"status code: %d all headers: %@", [(NSHTTPURLResponse *) response statusCode], [(NSHTTPURLResponse *) response allHeaderFields]);
	NSLog(@"mimeType: %@", [response MIMEType]);
	NSLog(@"expectedContentLength: %lld", [response expectedContentLength]);
	NSLog(@"suggestedFilename: %@", [response suggestedFilename]);
	NSLog(@"textEncodingName: %@", [response textEncodingName]);
#endif
	[[webView resourceLoadDelegate] webView:webView resource:_ident didReceiveResponse:response fromDataSource:_parent?_parent:self];
	if(!_loadedData && len >= 0 && len < 2000000)
		_loadedData=[[NSMutableData alloc] initWithCapacity:len];	// preallocate up to 2 MByte
	if(_representation)
		return;	// we already have one - don't allocate a representation
	repclass=[WebView _representationClassForMIMEType:[response MIMEType]];
	if(repclass == Nil)
		{ // don't know what to do now...		
#if 0
		NSLog(@"*** no repclass ***");
		NSLog(@"repclass=%@", NSStringFromClass(repclass));
		NSLog(@"response: %@", response);
		NSLog(@"URL: %@", [response URL]);
		NSLog(@"textEncodingName: %@", [response textEncodingName]);
#endif
		[_connection cancel];	// cancel any pending actions 
		return;
		}
	_representation=[[repclass alloc] init];	// should conform to <WebDocumentRepresentation>
	[_representation setDataSource:self];		// we are the data source
#if 0
	NSLog(@"representation: %@", _representation);
#endif
}

- (void) connection:(NSURLConnection *) connection didReceiveData:(NSData *) data;
{ // new data received, append and notify representation and view
	WebView *webView=[_webFrame webView];
#if 0
	NSLog(@"data received: %@", data);
#endif
	if(!_loadedData)
		_loadedData=[data mutableCopy];	// first segment
	else
		[_loadedData appendData:data];	// followup segment
	[_webFrame _didReceiveData];	// notify to switch us to committed state
	[_representation receivedData:data withDataSource:self];
	[[webView resourceLoadDelegate] webView:webView resource:_ident didReceiveContentLength:[data length] fromDataSource:_parent?_parent:self];
}

- (void) connectionDidFinishLoading:(NSURLConnection *) connection;
{
	WebView *webView=[_webFrame webView];
	[self retain];	// we might indirectly dealloc ourselves in _commitSubresource
#if 1
	NSLog(@"connectionDidFinishLoading: %p", connection);
	NSLog(@"URL: %@", [[self request] URL]);
#endif
	if([_subdatasources count] == 0)	// we can notify immediately and don't postpone
		[_representation finishedLoadingWithDataSource:self];
	else
		_finishedLoading=YES;	// postpone notification until all immediately loading subresources are available - note: there may be subresouces that load afterwards
#if 0
	NSLog(@"connection retainCount: %d", [_connection retainCount]);
#endif
	_connection=nil;
	[_parent _commitSubresource:self];	// this may release us finally + the connection!
#if 0
	NSLog(@"subresources: %d loaded, %d loading: %@", [_subresources count], [_subdatasources count], self);
#endif
	[[webView resourceLoadDelegate] webView:webView resource:_ident didFinishLoadingFromDataSource:_parent?_parent:self];
	[self release];
}

@end

@implementation _NSURLRequestNSData

- (id) initWithData:(NSData *) data mime:(NSString *) mime textEncodingName:(NSString *) encoding baseURL:(NSURL *) url;
{
	NSAssert(data != nil, @"trying to load nil data");
	if((self=[super initWithURL:[NSURL URLWithString:@"about:"]]))	// we must supply a dummy URL...
		{
		_data=[data retain];
		_response=[[NSURLResponse alloc] initWithURL:url MIMEType:mime expectedContentLength:[data length] textEncodingName:encoding];
		}
	return self;
}

- (id) copyWithZone:(NSZone *) zone;
{
	_NSURLRequestNSData *c=[super copyWithZone:zone];
	if(c)
		{
		c->_data=[_data retain];
		c->_response=[_response retain];
		}
	return c;
}

- (id) mutableCopyWithZone:(NSZone *) zone;
{
	return [self copyWithZone:zone];	// we are not really mutable!
}

- (void) dealloc;
{
	[_data release];
	[_response release];
	[super dealloc];
}

- (NSURLResponse *) response; { return _response; }
- (NSData *) data { return _data; }
- (BOOL) HTTPShouldHandleCookies; { return NO; }

- (NSURL *) URL
{ // provide a unique name useful for caching
	return [NSURL URLWithString:[NSString stringWithFormat:@"webdata://%p-%u", _data, [_data length]]];
}

@end