#!/bin/bash

# Copyright (C) 2005 - 2025 René Rebe, ExactCODE GmbH; Germany.
#
# Parse the *.desc file. Use the description from PKG-DESC-FORMAT and
# save the tag data in $desc_*.
#
parse_desc() {
	local tag="`sed -n '/^\[/ { s/][^]]*$//; s/. ./|/g; s/^\[//; p }' \
	            $base/misc/share/PKG-DESC-FORMAT`"

        for tag in $tag ; do
                tagdata="`egrep "^\[($tag)\]" $confdir/$1.desc | \
                          cut -f2- -d']' | sed 's,^ ,,'`"
                tag="`echo $tag | cut -f1 -d'|' | tr - _`"
                eval "desc_$tag=\"\$tagdata\""
        done

        ver="`echo "$desc_V" | tail -n 1 | cut -f1 -d' '`"
        extraver="`echo "$desc_V" | tail -n 1 | cut -s -f2- -d' '`"
        [ -z "$extraver" ] && extraver="${rockver//DEV-*/DEV}"
}

# The usual web e-mail address mangling, ...
#
mangle_addr() {
	echo -e "${*/>/>\n}" |
	sed '/<[^>]*>/{h; s/.*<\([^>]*\)>/\1/; s/\./ [dot] /g;
             s/@/ [at] /; G; s/\(.*\)\n\(.*<\)[^>]*\(>.*\)/\2\1\3/ }' |
        tr -d '\n' |
	sed 's/</\&lt;/g; s/>/\&gt;/g' 
}

# Print a single package in HTML.
#
print_package() {
	base="$1" pkg="$2"

	confdir=`echo $base/package/*/$pkg` 
	repo="${confdir%/*}"; repo="${repo##*/}"

	# does the package exist? if not -> 404
	[ -e $confdir/$pkg.desc ] || exit 1
	
	local t2src="//svn.exactcode.de/t2/trunk"

	parse_desc $pkg
	# guard against multi-tags
	desc_I="${desc_I//
*/}"

	(
		cat <<-EOT
<HELPER-TINY T2 package - $repo/$pkg - $desc_I>

<HELPER-MENU-DEFAULT>
</HELPER-MENU>

<div class="sidemenu">
<INCLUDE packages/menu.inc>
</div>

<div class="page">

EOT

		echo -e "\n<H2>$pkg: $desc_I<sup>1</sup></H2>\n"
		
		echo "<p>$desc_T</p>" | sed 's,^$,</p><p>,'
		echo '<p style="text-align: right">... part of <a href="WCBASE/">T2</a>,
<a href="WCBASE/download/">get it here</a></p>'

		cat <<-EOT
<div style="float:right;padding-top:10px;">
<script type="text/javascript"><!--
google_ad_client = "pub-2860176634161485";
/* T2 SDE Packages */
google_ad_slot = "6394854232";
google_ad_width = 120;
google_ad_height = 240;
//-->
</script>
<script type="text/javascript"
src="https://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>
</div>
EOT

		IFS="
"
		echo "<p>"
		for x in $desc_U ; do
		  url="${x/ */}"
		  comment="${x#$url}"
		  echo "<b>URL:</b> <a href=\"$url\">$url</a>$comment<br>"
		done
		echo "</p>"

		IFS="
"
		echo "<p>"
		for x in $desc_A ; do
		  echo "<b>Author:</b> `mangle_addr $x`<br>"
		done

		for x in $desc_M ; do
		  echo "<b>Maintainer:</b> `mangle_addr $x`<br>"
		done
		echo "</p>"

		echo "<p><b>License:</b> $desc_L<br>"
		echo "<b>Status:</b> $desc_S<br>"
		echo "<b>Version:</b> $desc_V<br></p>"

		IFS=" 
"                
		echo "<p>"
		for x in $desc_F ; do
		  case $x in
			CROSS) x="Does cross compile (as setup and patched in T2)." ;;
			NOPARALLEL) x="Does not allow parallel builds." ;;
			DIETLIBC) x="Dietlibc compatible." ;;
			JAIL) x="Includes jailing support." ;;
			BINARY) x="Is binary only (not build from source)!." ;;
			*) x="" ;;
		  esac
		  [ "$x" ] && echo "<b>Remark:</b> $x<br>"
		done
		echo "</p>"

               	if [ "$desc_R" ]; then
		  (
			set -- $desc_R
			case $1 in
			  -) echo "<p><b>CPU architectures:</b> Does <u>not</u> support:" ;;
			  +) echo "<p><b>CPU architectures:</b> Does <u>only</u> support:" ;;
			esac
			shift;
			for x; do
			  echo " <a href="WCBASE/architectures/$x/">$x</a>"
			done
			echo "</p>"
		  )
		fi

		IFS="
"
		echo "<p>"
		for x in $desc_D; do
		  local file="${x/* /}"
		  if [[ "$file" = \!* ]] ; then
			file="${file/\!/}"
		  elif [[ "$file" = -manual://* ]]; then
			file="`echo $x | sed 's,[^ ]* *\([^ ]*\) *\(.*\),\2 \1,'`"
		  else
			file="`echo $x | sed 's,[^ ]* *\([^ ]*\) *\(.*\),\2\1,'`"
		  fi
		
		  local dir="$(echo $file | sed -f $base/misc/share/CVTranslations)"
		  file="`echo $file | sed -f $base/misc/share/DownloadTranslations`"
		  dir="${dir#git+}"
		  file="${file#git+}"

		  if [[ "$file" == -manual://* ]]; then
			file="http://${file#-manual://}"
			echo "<b>Manual download:</b> `echo $file | sed 's,\([^ ]*\) \(.*\),<a href="\1">\1</a> <a href="\1">\2</a>,'`<br>"
		  else
			dir="${dir%/*}/"
		  	echo "<b>Download:</b> <a href=\"$dir\">$dir</a> <a href=\"$file\">${file##*/}</a><br>"
		  fi
		done
		echo "</p>"

		echo "<p>"
		for x in `find $confdir ! -path '*/.*' -type f | sort` ; do
		  echo "<b>T2 source:</b> <a href=\"$t2src${x#$base}\">${x#$confdir/}</a><br>"
		done
		echo "</p>"

		bt="`grep BUILDTIME $confdir/$pkg.cache 2> /dev/null | cut -d ' ' -f 2`"
		size="`grep "\[SIZE\]" $confdir/$pkg.cache 2> /dev/null | sed -e 's/\[SIZE\] //'`"
		deps="`grep "\[DEP\]" $confdir/$pkg.cache 2> /dev/null | sed -e 's/\[DEP\] //' | tr '\n' ' '`"
		[ "$bt" ] && bt="${bt}% (relative to binutils)<sup>2</sup>"

		echo "<p><B>Build time (on reference hardware):</B> ${bt:-n.a.}</p>"
		echo "<p><B>Installed size (on reference hardware):</B> ${size:-n.a.}</p>"
		echo "<p><B>Dependencies (build time detected):</B> "

		IFS=" 
"
		if [ "$deps" ]; then
		  for x in $deps; do
			echo "<a href=\"./$x\">$x</a>"
		  done
		else
			echo "n.a."
		fi
		echo "</p>"

		echo "<p><B>Installed files (on reference hardware):</B> "
		if [ ! -f $base/flists/$pkg ]; then
			echo "n.a.</p>"
		else
			cat <<-EOT
<script type="text/javascript">
<!--
function toggleview(t, elem) {
   elem = document.getElementById(elem);
   if (elem.style.display == 'block' || elem.style.display == '') {
      elem.style.display = 'none';
      t.innerHTML = "show";
   } else {
      elem.style.display = 'block';
      t.innerHTML = "hide";
   }
   return;
}
//-->
</script>

[<span style="cursor:pointer;" onclick="toggleview(this, 'div1')">show</span>] <br>

<div id="div1" style="display:none;">
<p>
EOT
		sed -e 's/^[^:]*: *//' -e 's/$/<br>/' $base/flists/$pkg

		echo "</p></div>"
	fi

		echo -e "
<p><sup>1</sup>) This page was automatically generated from the T2
<a href=\"$t2src${confdir#$base}\">                  
package source</a>. Corrections, such as dead links, URL changes or typos
need to be performed directly on that source.</p>
<p><sup>2</sup>) Compatible with Linux From Scratch's <a href=\"http://www.linuxfromscratch.org/~bdubbs/about.html\">
\"Standard Build Unit\" (SBU)</a>.</p>"

		cat <<-EOT

</div>

</HELPER>
EOT
	)
}

# AWK program taken from T2 for quick indexing.
#
main_awk_index() {
    echo '
END {
	if (repo) print_package();
}

(FNR == 1 && repo) {
	print_package();
}

FNR == 1 {
	split(FILENAME, a, /\//);
	repo=a[1]; package=a[2];
	defset="X"; pri="999.999";
	stages="-----------";
	ver="0000"; categories=""
	ver_dup=0; flags=""
	license=""
	title=""
}

/^\[(P|PRI|PRIORITY)\]/ {
	split($0, a, /[ \t]+/);
	defset=a[2]; stages=a[3]; pri=a[4];
}

/^\[(V|VER|VERSION)\]/ {
	split($0, a, /[ \t]+/);
	if ( ver_dup == 0 ) ver=a[2];
	ver_dup = 1;
}

/^\[(C|CATEGORY)\]/ {
	split($0, a, /[ \t]+/);
	for (c=2; a[c]; c++) categories = categories " " a[c];
}

/^\[(F|FLAGS)\]/ {
	split($0, a, /[ \t]+/);
	for (c=2; a[c]; c++) flags = flags " " a[c];
}

/^\[(R|ARCH|ARCHITECTURE)\]/ {
	n=split($0, a, /[ \t]+/);
}

/^\[(L|LICENSE)\]/ {
        split($0, a, /[ \t]+/);
	for (c=2; a[c]; c++) license = license " " a[c];
}

/^\[(I|TITLE)\]/ {
	split($0, a, /[ \t]+/);
	for (c=2; a[c]; c++) title = title " " a[c];
}

'
}

# Pretty print the whole index (in HTML).
#
print_index() {
	cat <<-EOT
<HELPER-TINY T2 package - matrix>

<HELPER-MENU-DEFAULT>
</HELPER-MENU>

<div class="sidemenu">
<INCLUDE packages/menu.inc>
</div>

<div class="page">

<h2>T2 SDE - packages</h2>

<p>T2 comes with an extensive list of package meta data descriptions,
defining how to build packages from the source. You can think of them
like recipes.</p>

<p>This is an automatically generated list of all packages currently
available in T2.</p>

<div style="float:right;padding-top:10px;">
<script type="text/javascript"><!--
google_ad_client = "pub-2860176634161485";
/* T2 SDE Package Index */
google_ad_slot = "1608857684";
google_ad_width = 120;
google_ad_height = 600;
//-->
</script>
<script type="text/javascript"
src="https://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>
</div>

<table width="82%" style="table-layout:fixed; word-wrap: break-word;">
<tr><td width="60%"><b>Package name - Title</b></td><td width="12%"><b>Version</b></td><td width="13%"><b>Repository</b></td><td width="15%"><b>License</b></td></tr>

EOT

        (cd $1; gawk -f - */*/*.desc | sort) <<-EOT

function print_package() {
	print "<tr style=\"vertical-align: top;\"><td><a href=\"./" package "\">" package \
              "</a> - " title "</td><td>" ver "</td><td>" repo "</td><td>" license "</td></tr>";
}
$(main_awk_index)
EOT

	cat <<-EOT

</table>

</div>

</HELPER>
EOT
}


# Just a plain/text list of the whole index (for Distrowatch).
#
text_print_index() {
    (cd $1; gawk -f - */*/*.desc) <<-EOT
function print_package() {
	print package " " ver " " repo;
}
$(main_awk_index)
EOT
}

# The main handler.
#
repo=${1#packages}
repo=${repo%/*}
repo=${repo#/}

if [[ "$1" = *index.html ]]; then
	print_index $PWD/${1%/*}/package
elif [[ "$1" = *index.txt ]]; then
	text_print_index $PWD/${1%/*}/package
else
	# .html is "optional"
	pkg=${1##*/}; pkg=${pkg%.html}
	print_package $PWD/${1%/*} $pkg
fi