<?php

header("content-type:text/plain");

function cext($f){
	$exts=array("c","h","bat","sh","cpp","hpp","txt","ifs","xml","php","inc","sql","service","js","css");
	$fn=explode(".",basename($f));
	$ex=$fn[count($fn)-1];
	return in_array($ex,$exts);
}
function ximg($f){
	$exts=array("png","jpg","img");
	$fn=explode(".",basename($f));
	$ex=$fn[count($fn)-1];
	return in_array($ex,$exts);
}
function sizeval($dir,$r=0,$z=null){
	if ($z==null){
		$z=array(0, 0, 0);
	}

	$o=glob("{$dir}/*");
	$n=1;
	foreach($o as $v){
		if (filetype($v)=='dir'){
			if ($r>0){
				$z=sizeval($v,$r-1,$z);
			}
		}
		else if (cext($v)){
			$fs=filesize($v);
			$ln=count(file($v));
			$z[0]++;
			echo "{$z[0]};{$v};;{$ln};{$fs}\n";
			$z[1]=bcadd($z[1],$ln);
			$z[2]=bcadd($z[2],$fs);
		}
		else if (ximg($v)){
			$fs=filesize($v);
			$z[0]++;
			echo "{$z[0]};{$v};;-;{$fs}\n";
			$z[2]=bcadd($z[2],$fs);
		}
	}
	return $z;
}
function arsum($a,$b){
	return array(
		bcadd($a[0],$b[0]),
		bcadd($a[1],$b[1]),
		bcadd($a[2],$b[2])
	);
}
function atitle($t){
	echo ";{$t}\n";
}
function atotal($s,$a,$v="JUMLAH"){
	echo ";{$v};{$s[0]} File;{$s[1]};{$s[2]}\n ; ;\n";
	return arsum($s,$a);
}
function sbuild($dir,$sb){
	$sb=sizeval("{$dir}",20,$sb);
	return $sb;
}

chdir("/_tol");

$sall=array(0,0,0);

atitle("TCT ACTIVITY SOURCE");
$s1=sizeval("artos/src");
$s1=sizeval("artos/src/act",20,$s1);
$sall=atotal($s1,$sall);

atitle("TCT CORE LIBRARY SOURCE");
$s1=sizeval("artos/src/libs");
$s1=sizeval("artos/src/sqlite",20,$s1);
$s1=sizeval("artos/src/ui",20,$s1);
$sall=atotal($s1,$sall);

atitle("TCT PERIPHERAL/HARDWARE SUPPORT LIBRARY SOURCE");
$s1=sizeval("artos/src/libs/hw",20);
$sall=atotal($s1,$sall);

atitle("TCT DEVICE PERIPHERALS & FIRMWARE SOURCE");
$s1=sizeval("artos/devices",20);
$sall=atotal($s1,$sall);

atitle("PCS, PCCS & PCDS SERVER SOURVE");
$s1=sizeval("www/pcs",50);
$sall=atotal($s1,$sall);

atitle("TCT LIBAROMA CORE UI AND POSIX LIBRARY");
$s1=sizeval("artos/libaroma",50);
$sall=atotal($s1,$sall);

atitle("TCT FILES FOR OS & DEPLOYMENT NEED");
$s1=sizeval("artos/ini",20);
$s1=sizeval("image_os",20,$s1);
$s1=sizeval("os",20,$s1);
$s1=sizeval("qnx-workspaces",20,$s1);
$sall=atotal($s1,$sall);

atotal($sall,$sall,"GRAND TOTAL");


?>