define_type(
		'sitemap',
		-namespace='google_',
		-prototype,
		-description='Custom type for creating Google Sitemaps.'
	);
		local('urls' = array);		


		define_tag(
			'addurl',
			-req='loc', -type='string', -copy,
			-opt='lastmod', -type='date',
			-opt='changefreq', -type='string',
			-opt='priority', -type='decimal'
		);
			fail_if(
				(!valid_url(#loc) || #loc->size >= 2048),
				-1,
				'Location must be a valid URL and less than 2048 characters.'
			);
	
			#loc = encode_xml(decode_xml(#loc));	// avoid double encoding
						
			local_defined('lastmod') ? #lastmod->setformat('%Y-%m-%d');
			
			if(local_defined('changefreq'));
				local('freqs') = array(
					'always',
					'hourly',
					'daily',
					'weekly',
					'monthly',
					'yearly',
					'never'
				);
			
				#freqs !>> #changefreq ? #changefreq = null;
			else;
				local('changefreq' = null);
			/if;
			
			if(local_defined('priority'));
				select(true);
					case(#priority < 0.0);
						#priority = 0.0;
					case(#priority > 1.0);
						#priority = 1.0;
					case;
						#priority->setformat( -precision=1);
				/select;
			else;
				local('priority' = 0.5);
			/if;
			
			local('out' = map);
			#out->insert('loc' = #loc);
			#out->insert('lastmod' = #lastmod);
			#out->insert('changefreq' = #changefreq);
			#out->insert('priority' = #priority);
			
			self->urls->insert(#out);
		/define_tag;


		define_tag('createnode', -req='in');
			local('out') = xml('');
			
			#out->newchild('loc')->addcontent(#in->find('loc'));
			#in->find('lastmod') != null ? #out->newchild('lastmod')->addcontent(#in->find('lastmod'));
			#in->find('changefreq') != '' ? #out->newchild('changefreq')->addcontent(#in->find('changefreq'));
			#out->newchild('priority')->addcontent(#in->find('priority'));
			
			return(@#out);
		/define_tag;

		
		define_tag('output');
			local('out') = xml('\

\			');
			
			iterate(self->urls, local('i'));
				#out->addchild(self->createnode(#i));
			/iterate;
			
			return('\n' + #out);
		/define_tag;
	
	
		define_tag('onConvert');
			return(@self->output);
		/define_tag;
	
	
		define_tag('save', -req='path');
			local('filepath' = #path);
			#filepath->removetrailing('/')&append('/sitemap.gz');
		
			file_write(
				#filepath,
				compress_gzip(self->output),
				-fileoverwrite
			);
		/define_tag;
	/define_type;