[interchange-cvs] interchange - racke modified code/Filter/vars_and_comments.filter

[interchange-cvs at icdevgroup.org]

User:      racke
Date:      2004-10-29 11:28:01 GMT
Added:     code/Filter vars_and_comments.filter
Log:
added new vars_and_comments filter to replace variables in arbritrary chunks
of text

Revision  Changes    Path
1.1                  interchange/code/Filter/vars_and_comments.filter


rev 1.1, prev_rev 1.0
Index: vars_and_comments.filter
===================================================================
# Copyright 2004 Interchange Development Group (http://www.icdevgroup.org/)
# Licensed under the GNU GPL v2. See file LICENSE for details.
# $Id: vars_and_comments.filter,v 1.1 2004/10/29 11:28:01 racke Exp $

CodeDef vars_and_comments Filter
CodeDef vars_and_comments Routine <<EOR
sub {
	my $body = shift;
	my $bodyref = ref($body) ? $body : \$body;
	
	Vend::Interpolate::vars_and_comments($bodyref);
	
	return ref($body) ? $body: $$bodyref;
}
EOR