// Array of page owners
pageowners = [];

load('graphic.js');

// String repeat.
if (!String.prototype.repeat) {
	String.prototype.repeat = function(count) {
		'use strict';
		if (this === null) {
			throw new TypeError('can\'t convert ' + this + ' to object');
		}
		var str = '' + this;
		count = +count;
		if (count !== count) {
			count = 0;
		}
		if (count < 0) {
			throw new RangeError('repeat count must be non-negative: '+count);
		}
		if (count === Infinity) {
			throw new RangeError('repeat count must be less than infinity');
		}
		count = Math.floor(count);
		if (str.length === 0 || count === 0) {
			return '';
		}
		// Ensuring count is a 31-bit integer allows us to heavily optimize the
		// main part. But anyway, most current (August 2014) browsers can't handle
		// strings 1 << 28 chars or longer, so:
		if (str.length * count >= 1 << 28) {
			throw new RangeError('repeat count must not overflow maximum string size');
		}
		var rpt = '';
		for (;;) {
			if ((count & 1) === 1) {
				rpt += str;
			}
			count >>>= 1;
			if (count === 0) {
				break;
			}
			str += str;
		}
		return rpt;
	};
}

// Group By
if (!Array.prototype.groupby) {
	Array.prototype.groupby = function(prop) {
		return this.reduce(function(groups, item) {
			const val = item[prop]
			groups[val] = groups[val] || []
			groups[val].push(item)
			return groups
		}, {})
	};
}

/**
 * Convert ANSI into BIN for loading into a Frame
 *
 * @param ansi
 */
function ans2bin(ansi,frame) {
	var x = new Graphic;
	x.ANSI = ansi;

	var o = 0; // offset into 'bin'
	for (var yy = 0; yy < 22; yy++) {
		for (var xx = 0; xx < 80; xx++) {
			frame.setData(
				xx,
				yy,
				x.BIN.substr(o,1),
				x.BIN.substr(o+1,1).charCodeAt(0) || BG_BLACK
			);

			o = o+2;
		}
	}
}

/**
 * Find a message base by code
 *
 * @param code
 * @returns {number | string|boolean}
 */
function findMsgBase(code) {
	if (! code)
		code = "tex_data";

	// Find the actual sub-code
	var sub_code;

	for (var s in msg_area.sub) {
		var sub = msg_area.sub[s];

		if (sub.code.substr(-code.length).toLowerCase() === code)
			return sub.code;
	}

	return false;
}

/**
 * Return an argument from argv, or an error if it doesnt exit
 *
 * @param key
 * @param error
 * @param abort
 */
function getArg(key,error,abort) {
	index = argv.indexOf(key);

	if ((index !== -1) && (! (argv[index+1] === undefined || argv[index+1].match(/^-/)))) {
		return argv[index+1];
	}

	if (abort) {
		log(LOG_ERROR,error);
		exit(1);
	}
}

/**
 * Returns the current node number
 *
 * @returns {string}
 */
function getNodeID() {
	var regex = new RegExp('^'+SYSTEM_ZONE+':');

	for each (var addr in system.fido_addr_list)
	{
		if (regex.test(addr)) {
			addr = addr.replace(regex,'');
			matches = addr.split('/',2);
			break;
		}
	}

	return pad(matches[0],3)+pad(matches[1],3)+pad(bbs.node_num,2);
}

function getPageOwners() {
	// Load the owner configuration into memory
	if (! pageowners.length) {
		var f = new File(file_cfgname(system.mods_dir,'ansitex/ctrl/videotex.ini'));

		if (f.open('r')) {
			var logoans = f.iniGetValue('prefix','logoans');
			var logovtx = f.iniGetValue('prefix','logovtx');
			var users = f.iniGetValue('prefix','user');
			//log(LOG_DEBUG,'+ pageOwner: users='+JSON.stringify(users));
			pageowners.push({prefix: 0,logoans: logoans,logovtx: logovtx,user:users});

			f.iniGetSections('prefix:').forEach(function (prefix) {
				var p = parseInt(prefix.substr(7));
				var logoans = f.iniGetValue(prefix,'logoans','');
				var logovtx = f.iniGetValue(prefix,'logovtx','');
				var users = f.iniGetValue(prefix,'user','');
				//log(LOG_DEBUG,'+ pageOwner: users='+JSON.stringify(users));
				pageowners.push({prefix: p,logoans: logoans,logovtx: logovtx,user:users});
			});
		}

		f.close();

		// Sort the pageowners ascending
		pageowners.sort(function(a,b) { return (a.prefix < b.prefix) ? 1 : ((b.prefix < a.prefix) ? -1 : 0); });

		//log(LOG_DEBUG,'+ pageOwner: pageowners='+JSON.stringify(pageowners));
	}

	return pageowners;
}

function loadOptions(option) {
	var f = new File(file_cfgname(system.mods_dir,'ansitex/ctrl/videotex.ini'));

	if (! f.open('r')) {
		return undefined;
	}

	val = f.iniGetObject(option);

	f.close();

	return val;
}

function msgBaseImport(msgbase,page,text) {
	var msgbase = new MsgBase(findMsgBase(msgbase));

	log(LOG_DEBUG,'Sending ['+page+'] to message base ['+msgbase.cfg.code+']');

	var hdr = { to:'All', from:'Videotex', subject:'Frame: '+page };

	var body = '';
	body += text+"\r\n";
	body += "--- " + js.exec_file + " " + '1.0' + "\r\n";

	return msgbase.save_msg(hdr, body);
}

// Pad a number with zeros
function pad(n, width, z) {
	z = z || '0';
	n = n + '';
	return n.length >= width ? n : new Array(width - n.length + 1).join(z) + n;
}

/**
 * Return the frame as a string
 */
function pageStr(page) {
	if (page.frame==null)
		return null;

	if (! page.index)
		page.index = 'a';

	return page.frame.toString()+page.index;
}

/**
 * Read our videotex.ini configuration and determine who owns a page.
 * If there is no prefix for the page, it is owned by the system '0'
 *
 * @param page
 * @returns {undefined}
 */
function pageOwner(page) {
	var BreakException = {};
	var o = null;

	try {
		getPageOwners().forEach(function(owner) {
			var p = owner.prefix.toString();
			o = owner;

			var re = new RegExp('^' + p, 'g');
			if (page.toString().match(re)) {
				//log(LOG_DEBUG,'= pageOwner: p='+p+',o: '+o);
				throw BreakException;
			}
		});

	} catch (e) {
		if (e !== BreakException) throw e;
	}

	//log(LOG_DEBUG,'+ pageOwner: page='+page+', owner: '+JSON.stringify(o));
	return o;
}

/**
 * Can the user edit the frame
 *
 * @param page
 * @param user
 */
function pageEditor(page) {
	//log(LOG_DEBUG,'+ pageEditor: page='+page+', user #'+user.number);

	var BreakException = {};
	var pageditor = false;

	try {
		getPageOwners().forEach(function(owner) {
			var p = owner.prefix.toString();
			//log(LOG_DEBUG,'  - pageEditor: '+JSON.stringify(owner));
			frameusers = owner.user ? owner.user.toString().split(',') : [1];

			log(LOG_DEBUG,'  - pageEditor: p='+p+'('+p.length+') user ['+JSON.stringify(frameusers)+'] - :'+frameusers.indexOf(user.number.toString()));

			var re = new RegExp('^' + p, 'g');
			if (page.toString().match(re) && (frameusers.indexOf(user.number.toString()) !== -1)) {
				pageditor = true;
				throw BreakException;
			}
		});

	} catch (e) {
		if (e !== BreakException) throw e;
	}

	log(LOG_DEBUG,'+ pageEditor: page='+page+', editor: '+JSON.stringify(pageditor));
	return pageditor;
}

function renderfield(field,length) {
	switch (field) {
		case 'nodeid':
			result = getNodeID();
	}

	if (result.length < length)
		result += ' '.repeat(length-result.length);
	else if (result.length > length)
		result = result.substr(0,length);

	return result;
}

/**
 * This function returns a list of zones used by this system.
 */
function zones() {
	var z = [];
	var ftn = /([0-9]+):([0-9]+)\/([0-9]+)(\.([0-9]+))?/;

	for(var g=0;g<system.fido_addr_list.length;g++) {
		z.push(parseInt(system.fido_addr_list[g].match(ftn)[1]));
	}

	return z.sort(function(a,b) {
		return (a>b);
	});
}

this;