[frontierkernel-commits] odbs/frontierRoot/system/verbs/builtins/tcp/im/builtinDrivers/aim/code/p0rY36zUYXrOXdRdhXOJQ 5F5Finit5F5F,NONE,1.1 5Fcallsub,NONE,1.1 c5FERROR,NONE,1.1 c5FSIGN5FON,NONE,1.1 connect,NONE,1.1 derror,NONE,1.1 disconnect,NONE,1.1 err5Fdisconnect,NONE,1.1 ferror,NONE,1.1 flap5Fto5Ftoc,NONE,1.1 go,NONE,1.1 process5Floop,NONE,1.1 recv5Fevent,NONE,1.1 start5Flog5Fin,NONE,1.1

[creedon <icr...@us...>]

Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/tcp/im/builtinDrivers/aim/code/p0rY36zUYXrOXdRdhXOJQ
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3236/p0rY36zUYXrOXdRdhXOJQ

Added Files:
	5F5Finit5F5F 5Fcallsub c5FERROR c5FSIGN5FON connect derror 
	disconnect err5Fdisconnect ferror flap5Fto5Ftoc go 
	process5Floop recv5Fevent start5Flog5Fin 
Log Message:
Added because of change in cvsSync (v1.0b2) normalizeName script.

--- NEW FILE: 5F5Finit5F5F ---
FrontierVcsFile:1:scpt:system.verbs.builtins.tcp.im.builtinDrivers.aim.code.core.__init__

on __init__(adrSelf,nick,passwd, adrCallbacks) {
	adrSelf^ = tcp.im.builtinDrivers.aim.code.prefs;
	if not defined (adrSelf^._passwd) {
		adrSelf^._passwd = passwd};
	if not defined (adrSelf^._nick) {
		adrSelf^._nick = nick};
	if not defined (adrSelf^._seq) {
		adrSelf^._seq = random(0,65535)}
	else {
		if not defined (adrSelf^._socket) {
			adrSelf^._seq = random(0,65535)}};
	if not defined (adrSelf^._adrCallbacks) {
		adrSelf^._adrCallbacks = @tcp.im.builtinDrivers.aim.code.incoming};
	if not defined (adrSelf^._adrSubCallbacks) {
		adrSelf^._adrSubCallbacks = adrCallbacks};
	return(true)}
--- NEW FILE: disconnect ---
FrontierVcsFile:1:scpt:system.verbs.builtins.tcp.im.builtinDrivers.aim.code.core.disconnect

on disconnect(adrSelf) {
	if defined(adrSelf^._threadId) {
		try {
			thread.kill(adrSelf^._threadId);
			delete(@adrSelf^._threadId)}};
	try {
		tcp.closeStream(adrSelf^._socket);
		delete(@adrSelf^._socket)};
	}
--- NEW FILE: derror ---
FrontierVcsFile:1:scpt:system.verbs.builtins.tcp.im.builtinDrivers.aim.code.core.derror

on derror(adrSelf,errorstr) {
	on clean(str) {
		return(string.multipleReplaceAll(str, @tcp.im.builtinDrivers.aim.code.util.repl, true))};
	if adrSelf^._debug > 1 {
		msg("debug error " + errorstr);
		log.add("'"+clean(errorstr)+"'\n", "ftocDebug",flTextFile:true, flGuestDB:true)}}
--- NEW FILE: 5Fcallsub ---
FrontierVcsFile:1:scpt:system.verbs.builtins.tcp.im.builtinDrivers.aim.code.core._callsub

on _callsub(adrSelf, callback, params, adrCallbacks=nil, flThreaded=true) {
	
	if not defined(adrCallbacks^) {
		adrCallbacks = adrSelf^._adrCallbacks};
	if defined(adrCallbacks^.[callback]) {
		try {
			if flThreaded {
				return(thread.callscript(@adrCallbacks^.[callback], params, @tcp.im.builtinDrivers.aim.code.util.emptyTable))}
			else {
				return(callscript(@adrCallbacks^.[callback], params, @tcp.im.builtinDrivers.aim.code.util.emptyTable))}}
		else {
			tcp.im.builtinDrivers.aim.code.core.derror(adrSelf, "callsub: "+tryError + " "+string(params))}}
	else {
		tcp.im.builtinDrivers.aim.code.core.derror(adrSelf, "unimplemented callback: " +callback + " " + string(params))}}
--- NEW FILE: ferror ---
FrontierVcsFile:1:scpt:system.verbs.builtins.tcp.im.builtinDrivers.aim.code.core.ferror

on ferror(adrSelf,errorstr) {
	tcp.im.builtinDrivers.aim.code.core.derror(adrSelf,errorstr);
	scriptError(errorStr)}
--- NEW FILE: recv5Fevent ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: c5FERROR ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: process5Floop ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: flap5Fto5Ftoc ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: go ---
FrontierVcsFile:1:scpt:system.verbs.builtins.tcp.im.builtinDrivers.aim.code.core.go

on go(adrSelf) {
	tcp.im.builtinDrivers.aim.code.core.connect(adrSelf);
	thread.callscript(@tcp.im.builtinDrivers.aim.code.core.process_loop, {adrSelf}, @tcp.im.builtinDrivers.aim.code.util.emptyTable)}
--- NEW FILE: err5Fdisconnect ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: start5Flog5Fin ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: c5FSIGN5FON ---
FrontierVcsFile:1:scpt:system.verbs.builtins.tcp.im.builtinDrivers.aim.code.core.c_SIGN_ON

on c_SIGN_ON(adrSelf,type,data) {
	tcp.im.builtinDrivers.aim.code.core.flap_to_toc(adrSelf, 2,"toc_add_buddy "+ adrSelf^._normnick); //# needs to start up correctly
	tcp.im.builtinDrivers.aim.code.core.flap_to_toc(adrSelf, 2,"toc_set_info "+ tcp.im.builtinDrivers.aim.code.util.encode(adrSelf^._info) );
	tcp.im.builtinDrivers.aim.code.core._callsub(adrSelf, "start", {adrSelf});
	tcp.im.builtinDrivers.aim.code.core.flap_to_toc(adrSelf, 2,"toc_init_done");
	return(true)}
--- NEW FILE: connect ---
(This appears to be a binary file; contents omitted.)