flowkge.sff

使用flex和bison

string menukey;
string songkey;
string menufile;
string songfile;
string dialnum;
string sql;
int menutime = 50;
int songtime = 50;
string linkfile ;
int sysconnid = 1;
int connid = 6;
string newfile;
string userid ;
string flag ;
string companyid = "1";
string srecfile;
string songid;
state m_kge
{
	init
	{
		#Kg_welcome.pcm：手机K歌，想唱就唱，新年歌曲请按1，流行歌曲请按2，
		#我的k歌库请按8，收听功能说明请按9，返回上层请按*号键
		playfile("d:\trasin\myvoc\kg_welcome.pcm",2);
		readdigits(1);
		setchantimer(menutime);
	}
	proc
	{
		switch($sys_dtmf)
		{
			case "1":
				menukey = "1";
				goto m_newyear;
			break;
			case "2":
				menukey = "1";
				goto m_newpop;
			break;
			case "8":
				goto m_checkmylib;
			break;
			case "9":
				goto m_kgehelp;
			break;
			case "*":
				gotoflow("10156718");
			break;
			default:
				goto m_kge;
			break;
		}
	}
}


state m_kgehelp
{
	init
	{
		playfile("d:\trasin\myvoc\kg_help.pcm",2);

	}
	proc
	{
		goto m_kge;
	}

}

state m_newyear
{
	init
	{
		playfile("d:\trasin\myvoc\kg_menu1.pcm",2);
		readdigits(1);
		setchantimer(menutime);
	}
	proc
	{
		switch($sys_dtmf)
		{
			case "*":
				goto m_kge;
			break;
			case " ":
				goto m_kge;
			break;
			default:
				songkey = $sys_dtmf;
				goto m_kgelisten;
			break;
		}
	}

}


state m_newpop
{
	init
	{
		playfile("d:\trasin\myvoc\kg_menu2.pcm",2);
		readdigits(1);
		setchantimer(menutime);
	}
	proc
	{
		switch($sys_dtmf)
		{
			case "*":
				goto m_kge;
			break;
			case " ":
				goto m_kge;
			break;
			default:
				songkey = $sys_dtmf;
				goto m_kgelisten;
			break;
		}
	}

}


state m_kgelisten
{
	init
	{
		#//Kg_listen.pcm按1听歌曲原唱，按2  开始k歌，录制程中按#号键结束
		playfile("d:\trasin\myvoc\Kg_listen.pcm",2);
		readdigits(1);
		setchantimer(menutime);
	}
	proc
	{
		switch($sys_dtmf)
		{
			case "1":
				songfile = "d:\trasin\musicfile\_kgesong"+menukey+songkey+".pcm";
				goto m_kgesonglisten;
			break;
			case "2":
				songfile = "d:\trasin\musicfile\kgesong"+menukey+songkey+".pcm";
				goto m_kgesongrecord;
			break;
			case "3":
				songfile = "d:\trasin\musicfile\_kgesong"+menukey+songkey+".pcm";
				goto m_kgesongrecord;
			break;
			case "*":
				sf(menukey == "1")
				{
					goto m_newyear;
				}
				else
				{
					goto m_newpop;
				} 
			break;
			default:
				goto m_kgelisten;
			break;
		}
	}
}


state m_kgesonglisten
{
	init
	{
		playfile(songfile,2);
		setchantimer(songtime);
	}
	proc
	{
		goto m_kgelisten;
	}

}



state m_kgesongrecord
{
	init
	{
		int confno = getfreeconfno();
		joinconf($sys_channo,confno,1);
		confplayfile(songfile,1,4);	
		string nowtime = getnowtime(2);
		srecfile = "d:\trasin\kgerecfile\"+menukey+songkey+nowtime + ".pcm";
		confrecfile(srecfile);
	}
	proc
	{
		goto m_kgerecordselect;
	}
}

state m_kgerecordselect
{
	init
	{
		#//Kg_record.pcm按1试听歌曲，按2重录，按3确认
		playfile("d:\trasin\myvoc\Kg_record.pcm",2);
		readdigits(1);
		setchantimer(menutime);
	}
	proc
	{
		switch($sys_dtmf)
		{
			case "1":
				goto m_kgerecordlisten;
			break;
			case "2":
				goto m_kgesongrecord;
			break;
			default:
				goto m_kgesave;
			break;
		}
	}
}

state m_kgerecordlisten
{
	init
	{
		playfile(srecfile,2);
	}
	proc
	{
		goto m_kgerecordlisten;
	}
}


state m_kgesave
{
	init
	{
		sql = "insert into taga_talkin_kgelib(mobile,kgesong) values('"+$sys_caller+"','"+srecfile+"')";
		sqlcommand(connid,sql);
		#Kg_recordok.pcm恭喜您，你已成功录制了一首歌曲，现在发送给朋友请按1，返回主菜单请按*号键
		playfile("d:\trasin\myvoc\Kg_recordok.pcm",2);
		readdigits(1);
		setchantimer(menutime);
		
	}
	proc
	{
		switch($sys_dtmf)
		{
			case "1":
				$sysdb_ordertype = 4;
				$sysdb_songid = srecfile;
				gotosubflow("1","flowinputsend");
			break;
			default:
				goto m_kge;
			break;
		}
	}
}

state m_checkmylib
{
	init
	{
		sql = "select count(*) from  taga_talkin_kgelib where mobile = '"+$sys_caller+"'";
		sqlselect(connid,sql);
		string c = getfieldvalue(0);
		sf(c=="0")
		{
			goto m_kgelibnosong;
		}
		else
		{
			goto m_kgelib;
		}
		
	}
	
}


state m_kgelibnosong
{
	init
	{
		#//Kg_nosong.pcm对不起，您还没有录制歌曲
		playfile("d:\trasin\myvoc\Kg_nosong.pcm",2);
	}
	proc
	{
		goto m_kge;
	}
}

state m_kgelib
{
	init
	{
		#Kg_lib.pcm:您录制的歌曲都在这里，收听过程中，按1点送给朋友，
		#按2听下一首，按3重听，按4删除歌曲，下面播放第一首。
		playfile("d:\trasin\myvoc\Kg_lib.pcm",2);
	}
	proc
	{
		songid = "0";
		goto m_kgelibfile;
		
	}
	
}


state m_kgelibfile
{
	init
	{
		
		sql = "select count(*) from  taga_talkin_kgelib where mobile = '"+$sys_caller+"'";
		sqlselect(connid,sql);
		string r = getfieldvalue(0);
		sf(r=="0")
		{
			goto m_kgelibnosong;
		}
		else
		{
			goto m_kgegetfile;
		}	
	}
}


state m_kgegetfile
{
	init
	{
		
		sql = "select top 1 id,kgesong from  taga_talkin_kgelib where mobile = '"+$sys_caller+"' and id > " + songid;
		sqlselect(connid,sql);
		int r = getaffectedrow();
		if(r>0)
		{
			songid = getfieldvalue(0);
			songfile = getfieldvalue(1);
			goto  m_kgeliblistening;
		}
		else
		{
			songid = "0";
			goto m_kgelibfile;
		}	
	}
}


state m_kgeliblistening
{
	init
	{
		playfile(songfile,2);
		readdigits(1);
		
	}
	proc
	{
		
		switch($sys_dtmf)
		{
			case "1":
				$sysdb_ordertype = 4;
				$sysdb_songid = srecfile;
				gotosubflow("1","flowinputsend");
			break;
			case "2":
				goto m_kgelibfile;
			break;
			case "3":
				goto m_kgeliblistening;
			break;
			case "4":
				goto m_kgelibdel;
			break;
			default:
				goto m_kge;
			break;
		}
		
	}
	
}


state m_kgelibdel
{
	init
	{
		
		sql = "delete from  taga_talkin_kgelib where id = " + songid;
		sqlcommand(connid,sql);
		playfile("d:\trasin\myvoc\Kg_deleteok.pcm",2);
		
	}
	proc
	{
		goto m_kgelibfile;
	}
}