jolle-c/jc_include.lasso

## jc_include.lasso
<?LassoScript
/**!
jc_include
Includes a file for processing but allows the call to hand over params to the included file.
Now also supports including files stored in compiled LassoApps

Examples
jc_include(file('includetest.inc'), -name = 'brad', -country = 'UK')

includetest.inc:
#name
br
#country

jc_include(
	lassoapp_include('/myapp/mytest', 'lasso'),
	'/myapp/mytest.lasso',
	-title		= 'Hello World',
	-content	= 'Here be content'
)

mytest.lasso:
[no_square_brackets]<!DOCTYPE html>
<html lang="en">
<head>
	<title>[#title]</title>
</head>
<body>
[#content]
</body>
</html>

jc_include(
	lassoapp_include('/myapp/mytest', 'html'),
	'/myapp/mytest.html',
	-title		= 'Hello World',
	-content	= 'Here be content'
)

mytest.html:
<!DOCTYPE html>
<html lang="en">
<head>
	<title>[#title]</title>
</head>
<body>
[#content]
</body>
</html>

Changes
2015-10-16	JC	Added new method to support files stored in compiled LassoApps
2012-11-27	JC	First implementation.
**/
define jc_include(file::file,...) => {

	local(
		i	=	0,
		pre	=	string,
		src
	)

	with p in #rest || staticarray do {
		#p -> isa(::keyword) && #rest -> size > #i++
		? #pre -> append('local(' + #p -> name + ' = #' + #i + '->value) ')
	}
	#src = '[' + #pre + ']' + #file -> readstring
	return sourcefile(#src, #file->path, true, true) -> invoke(:#rest ||
	staticarray)
}

define jc_include(file::string, path::string, ...) => {

	local(
		i	=	0,
		pre	=	string,
		src
	)

	with p in #rest || staticarray do {
		#p -> isa(::keyword) && #rest -> size > #i++
		? #pre -> append('local(' + #p -> name + ' = #' + #i + '->value) ')
	}
	#src = '[' + #pre + ']' + #file
	return sourcefile(#src, #path, true, true) -> invoke(:#rest ||
	staticarray)
}

define jc_include(file::lassoapp_long_expiring_bytes, path::string, ...) => {

	local(
		i	=	0,
		pre	=	string,
		src
	)

	with p in #rest || staticarray do {
		#p -> isa(::keyword) && #rest -> size > #i++
		? #pre -> append('local(' + #p -> name + ' = #' + #i + '->value) ')
	}
	#src = '[' + #pre + ']' + #file -> asstring
	return sourcefile(#src, #path, true, true) -> invoke(:#rest ||
	staticarray)
}


?>
	<?LassoScript
	/**!
	jc_include
	Includes a file for processing but allows the call to hand over params to the included file.
	Now also supports including files stored in compiled LassoApps

	Examples
	jc_include(file('includetest.inc'), -name = 'brad', -country = 'UK')

	includetest.inc:
	#name
	br
	#country

	jc_include(
	lassoapp_include('/myapp/mytest', 'lasso'),
	'/myapp/mytest.lasso',
	-title = 'Hello World',
	-content = 'Here be content'
	)

	mytest.lasso:
	[no_square_brackets]<!DOCTYPE html>
	<html lang="en">
	<head>
	<title>[#title]</title>
	</head>
	<body>
	[#content]
	</body>
	</html>

	jc_include(
	lassoapp_include('/myapp/mytest', 'html'),
	'/myapp/mytest.html',
	-title = 'Hello World',
	-content = 'Here be content'
	)

	mytest.html:
	<!DOCTYPE html>
	<html lang="en">
	<head>
	<title>[#title]</title>
	</head>
	<body>
	[#content]
	</body>
	</html>

	Changes
	2015-10-16 JC Added new method to support files stored in compiled LassoApps
	2012-11-27 JC First implementation.
	**/
	define jc_include(file::file,...) => {

	local(
	i = 0,
	pre = string,
	src
	)

	with p in #rest \|\| staticarray do {
	#p -> isa(::keyword) && #rest -> size > #i++
	? #pre -> append('local(' + #p -> name + ' = #' + #i + '->value) ')
	}
	#src = '[' + #pre + ']' + #file -> readstring
	return sourcefile(#src, #file->path, true, true) -> invoke(:#rest \|\|
	staticarray)
	}

	define jc_include(file::string, path::string, ...) => {

	local(
	i = 0,
	pre = string,
	src
	)

	with p in #rest \|\| staticarray do {
	#p -> isa(::keyword) && #rest -> size > #i++
	? #pre -> append('local(' + #p -> name + ' = #' + #i + '->value) ')
	}
	#src = '[' + #pre + ']' + #file
	return sourcefile(#src, #path, true, true) -> invoke(:#rest \|\|
	staticarray)
	}

	define jc_include(file::lassoapp_long_expiring_bytes, path::string, ...) => {

	local(
	i = 0,
	pre = string,
	src
	)

	with p in #rest \|\| staticarray do {
	#p -> isa(::keyword) && #rest -> size > #i++
	? #pre -> append('local(' + #p -> name + ' = #' + #i + '->value) ')
	}
	#src = '[' + #pre + ']' + #file -> asstring
	return sourcefile(#src, #path, true, true) -> invoke(:#rest \|\|
	staticarray)
	}


	?>