<?php
if (!$error) {
	# process PKGBUILD - remove line concatenation
	#
	$pkgbuild = array();
	$line_no = 0;
	$lines = array();
	$continuation_line = 0;
	$current_line = "";
	$paren_depth = 0;
	foreach (explode("\n", $pkgbuild_raw) as $line) {
		$line = trim($line);
		# Remove comments
		$line = preg_replace('/\s*#.*/', '', $line);

		$char_counts = count_chars($line, 0);
		$paren_depth += $char_counts[ord('(')] - $char_counts[ord(')')];
		if (substr($line, strlen($line)-1) == "\\") {
			# continue appending onto existing line_no
			#
			$current_line .= substr($line, 0, strlen($line)-1);
			$continuation_line = 1;
		} elseif ($paren_depth > 0) {
			# assumed continuation
			# continue appending onto existing line_no
			#
			$current_line .= $line . " ";
			$continuation_line = 1;
		} else {
			# maybe the last line in a continuation, or a standalone line?
			#
			if ($continuation_line) {
				# append onto existing line_no
				#
				$current_line .= $line;
				$lines[$line_no] = $current_line;
				$current_line = "";
			} else {
				# it's own line_no
				#
				$lines[$line_no] = $line;
			}
			$continuation_line = 0;
			$line_no++;
		}
	}

	# Now process the lines and put any var=val lines into the
	# 'pkgbuild' array.
	while (list($k, $line) = each($lines)) {
		# Neutralize parameter substitution
		$line = preg_replace('/\${(\w+)#(\w*)}?/', '$1$2', $line);

		$lparts = Array();
		# Match variable assignment only.
		if (preg_match('/^\s*[_\w]+=[^=].*/', $line, $matches)) {
			$lparts = explode("=", $matches[0], 2);
		}

		if (!empty($lparts)) {
			# this is a variable/value pair, strip
			# out array parens and any quoting,
			# except in pkgdesc for pkgname or
			# pkgdesc, only remove start/end pairs
			# of " or '
			if ($lparts[0] == "pkgname" || $lparts[0] == "pkgdesc") {
				if ($lparts[1]{0} == '"' &&
						$lparts[1]{strlen($lparts[1])-1} == '"') {
					$pkgbuild[$lparts[0]] = substr($lparts[1], 1, -1);
				}
				elseif
					($lparts[1]{0} == "'" &&
					 $lparts[1]{strlen($lparts[1])-1} == "'") {
					$pkgbuild[$lparts[0]] = substr($lparts[1], 1, -1);
				} else {
					$pkgbuild[$lparts[0]] = $lparts[1];
				}
			} else {
				$pkgbuild[$lparts[0]] = str_replace(array("(",")","\"","'"), "",
						$lparts[1]);
			}
		}
	}

	# some error checking on PKGBUILD contents - just make sure each
	# variable has a value. This does not do any validity checking
	# on the values, or attempts to fix line continuation/wrapping.
	$req_vars = array("url", "pkgdesc", "license", "pkgrel", "pkgver", "arch", "pkgname");
	foreach ($req_vars as $var) {
		if (!array_key_exists($var, $pkgbuild)) {
			$error = __('Missing %s variable in PKGBUILD.', $var);
			break;
		}
	}
}

# Now, run through the pkgbuild array, and do "eval" and simple substituions.
$new_pkgbuild = array();
if (!$error) {
	while (list($k, $v) = each($pkgbuild)) {
		if (strpos($k,'eval ') !== false) {
			$k = preg_replace('/^eval[\s]*/', "", $k);
			##"eval" replacements
			$pattern_eval = '/{\$({?)([\w]+)(}?)}/';
			while (preg_match($pattern_eval,$v,$regs)) {
				$pieces = explode(",",$pkgbuild["$regs[2]"]);
				## nongreedy matching! - preserving the order of "eval"
				$pattern = '/([\S]*?){\$'.$regs[1].$regs[2].$regs[3].'}([\S]*)/';
				while (preg_match($pattern,$v,$regs_replace)) {
					$replacement = "";
					for ($i = 0; $i < sizeof($pieces); $i++) {
						$replacement .= $regs_replace[1].$pieces[$i].$regs_replace[2]." ";
					}
					$v=preg_replace($pattern, $replacement, $v, 1);
				}
			}
		}

		# Simple variable replacement
		$pattern_var = '/\$({?)([_\w]+)(}?)/';
		$offset = 0;
		while (preg_match($pattern_var, $v, $regs, PREG_OFFSET_CAPTURE, $offset)) {
			$var = $regs[2][0];
			$pos = $regs[0][1];
			$len = strlen($regs[0][0]);

			if (isset($new_pkgbuild[$var])) {
				$replacement = substr($new_pkgbuild[$var], strpos($new_pkgbuild[$var], " "));
			}
			else {
				$replacement = '';
			}

			$v = substr_replace($v, $replacement, $pos, $len);
			$offset = $pos + strlen($replacement);
		}
		$new_pkgbuild[$k] = $v;
	}
}