<?php
$running = true;
$exitSig = 0;
function signal($sig) {
	global $running, $exitSig;

	$exitSig = $sig;
	$running = false;
	
	share_var_set(THREAD_TASK_NAME, debug_backtrace());
}

pcntl_async_signals(true);
pcntl_signal(SIGTERM, 'signal', false);
pcntl_signal(SIGINT, 'signal', false);
pcntl_signal(SIGUSR1, 'signal', false);
pcntl_signal(SIGUSR2, 'signal', false);

if(!is_main_task()) {
	// echo THREAD_TASK_NAME . PHP_EOL;

	$aptres = ts_var_declare('aptres', null, true);

	if(strncmp(THREAD_TASK_NAME, 'accept', 6) == 0) {
		$sock = socket_import_fd((int) $_SERVER['argv'][1]);
		$flag = (bool) $_SERVER['argv'][2];
		$wfd = ts_var_fd($aptres, true);

		while($running && ($fd = @socket_accept($sock)) !== false) {
			@socket_set_option($fd, SOL_SOCKET, SO_LINGER, ['l_onoff'=>1, 'l_linger'=>0]) or strerror('socket_set_option', false);
			$i = share_var_inc('conns', 1);
			$fd = socket_export_fd($fd, true);
			ts_var_set($aptres, $i, $fd);
			if($flag) create_task('read' . $i, __FILE__, [$fd,$i]);
			else socket_write($wfd, 'a');
		}

		socket_export_fd($sock, true); // skip close socket
		socket_export_fd($wfd, true); // skip close socket

		//echo THREAD_TASK_NAME . " Closed\n";
	} elseif(empty($_SERVER['argv'][1])) {
		$rfd = ts_var_fd($aptres);
		while($running) {
			if(!@socket_read($rfd, 1)) continue;

			$fd = ts_var_shift($aptres);

			$str = THREAD_TASK_NAME . " $fd\n";
			$fd = socket_import_fd($fd);
			@socket_write($fd, $str) > 0 or strerror('socket_write', false);
			@socket_read($fd, 1) !== false or strerror('socket_read', false);
			//@socket_shutdown($fd) or strerror('socket_shutdown', false);
			@socket_close($fd);
		}

		socket_export_fd($rfd, true); // skip close socket

		//echo THREAD_TASK_NAME . " Closed\n";
	} else {
		$fd = (int) $_SERVER['argv'][1];
		$i = (int) $_SERVER['argv'][2];
		ts_var_del($aptres, $i);

		$str = THREAD_TASK_NAME . " $fd\n";
		$fd = socket_import_fd($fd);
		@socket_write($fd, $str) > 0 or strerror('socket_write', false);
		@socket_read($fd, 1) !== false or strerror('socket_read', false);
		//@socket_shutdown($fd) or strerror('socket_shutdown', false);
		@socket_close($fd);
	}
} else {
	$host = ($_SERVER['argv'][1]??'127.0.0.1');
	$port = ($_SERVER['argv'][2]??5000);
	$flag = ($_SERVER['argv'][3]??0);

	($sock = @socket_create(AF_INET, SOCK_STREAM, SOL_TCP)) or strerror('socket_create');
	@socket_set_option($sock, SOL_SOCKET, SO_REUSEADDR, 1) or strerror('socket_set_option', false);
	@socket_bind($sock, $host, (int)$port) or strerror('socket_bind');
	@socket_listen($sock, 128) or strerror('socket_listen');

	$fd = socket_export_fd($sock);

	echo "Server listening on $host:$port\n";

	share_var_init(3);

	$aptres = ts_var_declare('aptres', null, true);
	if(!$flag) for($i=0; $i<56; $i++) create_task('read' . $i, __FILE__, []);
	for($i=0; $i<8; $i++) create_task('accept' . $i, __FILE__, [$fd,$flag]);

	$n = 0;
	while($running) {
		sleep(1);
		$n2 = share_var_get('conns');
		$n3 = ts_var_count($aptres);
		$n = $n2 - $n;
		echo "$n connects, $n3 accepts\n";
		$n = $n2;

		//var_dump(share_var_get());
	}

	task_wait($exitSig?:SIGINT);

	$accepts = ts_var_get($aptres);

	foreach($accepts as $i=>$fd) {
		echo $str = "unread: $i=>$fd\n";
		$fd = socket_import_fd($fd);
		@socket_set_option($fd, SOL_SOCKET, SO_LINGER, ['l_onoff'=>1, 'l_linger'=>0]) or strerror('socket_set_option', false);
		@socket_write($fd, $str) > 0 or strerror('socket_write', false);
		@socket_read($fd, 1) !== false or strerror('socket_read', false);
		//@socket_shutdown($fd) or strerror('socket_shutdown', false);
		@socket_close($fd);
	}

	@socket_shutdown($sock) or strerror('socket_shutdown');
	@socket_close($sock);

	// echo json_encode(share_var_get(), JSON_PRETTY_PRINT);

	share_var_destory();

	echo "Stoped\n";
}

function strerror($msg, $isExit = true) {
	$err = socket_last_error();
	if($err === SOCKET_EINTR) return;

	ob_start();
	ob_implicit_flush(false);
	debug_print_backtrace();
	$trace = ob_get_clean();
	printf("[%s] %s(%d): %s\n%s", THREAD_TASK_NAME, $msg, $err, socket_strerror($err), $trace);

	if($isExit) exit; else return true;
}