#!/bin/env perl
#
# 1996-12-02 (c) Jonas S Karlsson (jsk@lysator.liu.se), 
#                Magnus Axelsson  (jaq@lysator.liu.se)
#
# usage: cjhtml <fil.jhtml >fil.html

$rest = join("", <>);

while (($done, $rest) = split("<macro", $rest, 2)) {
    print $done;
    if ($rest =~ s:^\s*([^>\s]+)\s*([^>]*)>::) {
	local($name, $fargs, $body) = ($1, $2);
	($body, $rest) = split("</macro>", $rest, 2);
	$rest =~ s/<$name\s*([^>]*)>/&insert($name, $fargs, $body, $1)/eg;
    }
}

sub insert {
    local($name, $fargs, $body, $args) = @_;
    @fargs = split(/\s+/, $fargs);
    @args = split(/\s+/, $args);

    foreach $f (@fargs) {
	local($a) = shift @args;
	$body =~ s/$f/$a/g;
    }
    return $body;
}