// dp2circulation编目自动创建数据C#脚本程序
// 最后修改时间2007/12/3

using System;
using System.Windows.Forms;
using System.IO;
using System.Text;

using dp2Circulation;
using DigitalPlatform.Xml;
using DigitalPlatform.Marc;

using DigitalPlatform.IO;
using DigitalPlatform.GcatClient;
using DigitalPlatform;
using DigitalPlatform.Text;

public class MyHost : Host
{

	DigitalPlatform.GcatClient.Channel GcatChannel = null;

	string [] cfgFields = new string [] {
		"200(a-9)",
		"701(a-9)",
		"711(a-9)",
		"702(a-9)",
		"712(a-9)"

	};


	public override void Main(object sender, HostEventArgs e)
	{
		Field curfield = this.DetailForm.MarcEditor.FocusedField;

		ScriptActionCollection actions = new ScriptActionCollection();

		bool bActive = false;


		// 加拼音
		actions.NewItem("加拼音", "给.....加拼音", "AddPinyin", false);

		// 7*1$a <-- 200$f
		if (curfield != null &&
			(curfield.Name == "701"
			|| curfield.Name == "711") )
			bActive = true;
		else
			bActive = false;
			
		actions.NewItem("7*1$a <-- 200$f", "将200$f内容加入701/711字段$a", "Copy200fTo7x1a", bActive);

		// 7*2$a <-- 200$g
		if (curfield != null &&
			(curfield.Name == "702"
			|| curfield.Name == "712") )
			bActive = true;
		else
			bActive = false;
		actions.NewItem("7*2$a <-- 200$g", "将200$g内容加入702/712字段$a", "Copy200gTo7x2a", bActive);

		// 410 <-- 225
		if (curfield != null &&
			(curfield.Name == "225"
			|| curfield.Name == "410") )
			bActive = true;
		else
			bActive = false;
		actions.NewItem("410 <-- 225", "将225$a内容加入410  $1200  $a", "Copy225To410", bActive);



		// 加入著者号
		if (curfield != null && curfield.Name == "905")
			bActive = true;
		else
			bActive = false;

		actions.NewItem("加入著者号", "根据701/711/702/712$a内容, 创建905$e", "AddAuthorNumber", bActive);

		// 加入种次号
		if (curfield != null && curfield.Name == "905" && this.DetailForm.MarcEditor.FocusedSubfieldName == 'd')
			bActive = true;
		else
			bActive = false;
		actions.NewItem("加入种次号", "根据905$d内容, 创建905$e", "AddZhongcihao", bActive);

		//  维护种次号
		actions.NewItem("维护种次号", "根据905$d内容中的类号, 出现维护种次号的界面", "ManageZhongcihao", false);

		// 出版地
		if (curfield != null && curfield.Name == "210")
			bActive = true;
		else
			bActive = false;
		actions.NewItem("210$a$c <-- 010$a", "根据010$a中ISBN出版社代码, 自动创建出版社子字段210$a$c", "AddPublisher", bActive);


		// 规整ISBN为13
		if (curfield != null && curfield.Name == "010")
			bActive = true;
		else
			bActive = false;
		actions.NewItem("规整ISBN-13", "对010$a中ISBN进行规整", "HyphenISBN_13", bActive);

		// 规整ISBN为10
		if (curfield != null && curfield.Name == "010")
			bActive = true;
		else
			bActive = false;
		actions.NewItem("规整ISBN-10", "对010$a中ISBN进行规整", "HyphenISBN_10", bActive);

		// 102国家代码 地区代码
		if (curfield != null && curfield.Name == "102")
			bActive = true;
		else
			bActive = false;
		actions.NewItem("102$a$b <-- 010$a", "根据010$a中ISBN出版社代码, 自动创建102字段$a国家代码$b地区代码", "Add102", bActive);


		ScriptActionMenuDlg dlg = new ScriptActionMenuDlg();

		dlg.Actions = actions;
		if ((Control.ModifierKeys & Keys.Alt)== Keys.Alt)
			dlg.AutoRun = false;
		else
			dlg.AutoRun = this.DetailForm.MainForm.AppInfo.GetBoolean("detailform", "gen_auto_run", false);
		// dlg.StartPosition = FormStartPosition.CenterScreen;

		this.DetailForm.MainForm.AppInfo.LinkFormState(dlg, "gen_data_dlg_state");
		dlg.ShowDialog();
		this.DetailForm.MainForm.AppInfo.UnlinkFormState(dlg);


		this.DetailForm.MainForm.AppInfo.SetBoolean("detailform", "gen_auto_run", dlg.AutoRun);

		if (dlg.DialogResult == DialogResult.OK)
		{
			this.Invoke(dlg.SelectedAction.ScriptEntry);
		}
	}


	void AddPinyin()
	{
		this.DetailForm.MarcEditor.Enabled = false;

		try {

		PinyinStyle style = PinyinStyle.None;	// 在这里修改拼音大小写风格

		for(int i=0;i<DetailForm.MarcEditor.Record.Fields.Count;i++)
		{
			Field field = DetailForm.MarcEditor.Record.Fields[i];

			string strFrom = "";
			string strTo = "";
			int nRet = GetPinyinCfgLine(field.Name,
				out strFrom,
				out strTo);
			if (nRet != 1)
				continue;

			string strHanzi = "";
			string strNextSubfieldName = "";

			string strField = field.Text;

			nRet = MarcUtil.GetSubfield(strField,
				ItemType.Field,
				strFrom,
				0,
				out strHanzi,
				out strNextSubfieldName);
			if (nRet != 1)
				continue;
			if (strHanzi.Length <=1)
				continue;

			strHanzi = strHanzi.Substring(1);

			string strPinyin;
			string strError = "";

		// 把字符串中的汉字和拼音分离
        	// return:
	        //      -1  出错
	        //      0   用户希望中断
        	//      1   正常

			nRet = this.DetailForm.HanziTextToPinyin(
				true,	// 本地，快速
				strHanzi,
				style,
				out strPinyin,
				out strError);
			if (nRet == -1)
			{
				MessageBox.Show(this.DetailForm, strError);
				break;
			}
			if (nRet == 0)
			{
				MessageBox.Show(this.DetailForm, "用户中断。拼音子字段内容可能不完整。");
				return;
			}

			nRet = MarcUtil.ReplaceSubfield(
				ref strField,
				strTo,
				0,
				strTo + strPinyin);

			field.Text = strField;

		}

		}
		finally {
			this.DetailForm.MarcEditor.Enabled = true;
			this.DetailForm.MarcEditor.Focus();

		}


	}

	int GetPinyinCfgLine(string strFieldName,
		out string strFrom,
		out string strTo)
	{
		strFrom = "";
		strTo = "";
		for(int i=0;i<cfgFields.Length;i++)
		{
			string strLine = cfgFields[i];
			string strName = strLine.Substring(0,3);
			if (strName == strFieldName)
			{
				string strRight = strLine.Substring(3).Trim();

				if (strRight.Length == 0)
					return -1;
				if (strRight[0] == '(')
					strRight = strRight.Substring(1).Trim();
				if (strRight.Length == 0)
					return -1;
				if (strRight[strRight.Length-1] == ')')
					strRight = strRight.Substring(0, strRight.Length-1).Trim();
				if (strRight.Length == 0)
					return -1;

				int nRet = strRight.IndexOf("-");
				if (nRet == -1)
					return -1;
				strFrom = strRight.Substring(0, nRet).Trim();											strTo = strRight.Substring(nRet+1).Trim();
				return 1;

			}

		}


		return 0;		
	}

	void Copy200fTo7x1a()
	{
		Copy200gfTo7xxa("f", "701");

	}

	void Copy200gTo7x2a()
	{
		Copy200gfTo7xxa("g", "702");

	}

	void Copy200gfTo7xxa(string strFromSubfield, string strToField)
	{
		Field field_200 = this.DetailForm.MarcEditor.Record.Fields.GetOneField("200",0);
		SubfieldCollection subfields_200 = field_200.Subfields;

		Subfield subfield_f = subfields_200[strFromSubfield];

		if (subfield_f == null)
		{
			MessageBox.Show(this.DetailForm, "200$"+strFromSubfield+"不存在");
			return;
		}

		string strContent = subfield_f.Value;
		
		// 看看当前活动字段是不是701
		Field field_701 = null;

		field_701 = this.DetailForm.MarcEditor.FocusedField;
		if (field_701 != null)
		{
			if (field_701.Name != strToField)
				field_701 = null;
		}
		

		if (field_701 == null)
		{
			field_701 = this.DetailForm.MarcEditor.Record.Fields.GetOneField(strToField, 0);

			if (field_701 == null)
			{
				field_701 = this.DetailForm.MarcEditor.Record.Fields.Add(strToField, "  ", "", true);
			}

		}
		

		if (field_701 == null)
			throw(new Exception("error ..."));


		Subfield subfield_701a = field_701.Subfields["a"];
		if (subfield_701a == null)
		{
			subfield_701a = new Subfield();
			subfield_701a.Name = "a";
		}

		subfield_701a.Value = strContent;
		field_701.Subfields["a"] = subfield_701a;

	}

	void AddAuthorNumber()
	{
		string strAuthor = "";

		strAuthor = this.DetailForm.MarcEditor.Record.Fields.GetFirstSubfield("701", "a");

		if (strAuthor != "")
			goto BEGIN;

		strAuthor = this.DetailForm.MarcEditor.Record.Fields.GetFirstSubfield("711", "a");

		if (strAuthor != "")
			goto BEGIN;

		strAuthor = this.DetailForm.MarcEditor.Record.Fields.GetFirstSubfield("702", "a");

		if (strAuthor != "")
			goto BEGIN;

		strAuthor = this.DetailForm.MarcEditor.Record.Fields.GetFirstSubfield("712", "a");

		if (strAuthor == "")
		{
			MessageBox.Show( this.DetailForm, "701/711/702/712中均未发现&a,无法处理");
			return;
		}

		BEGIN:


		string GcatServerUrl = "http://dp2003.com/dp2libraryws/gcat.asmx";

		if (this.GcatChannel == null)
			this.GcatChannel = new DigitalPlatform.GcatClient.Channel();


		string strNumber = "";
		string strError = "";
		string strDebugInfo = "";

		BeginGcatLoop("正在获取著者号...");
		try {

			int nRet = GcatChannel.GetNumber(
				this.DetailForm.stop,
				this.DetailForm,
				GcatServerUrl,
				strAuthor,
				true,	// bSelectPinyin
				true,	// bSelectEntry
				true,	// bOutputDebugInfo
				new BeforeLoginEventHandle(channel_BeforeLogin),
				out strNumber,
				out strDebugInfo,
				out strError);
			if (nRet == -1)
			{
				strError = "取 著者 '" + strAuthor + "' 之号码时出错 : " + strError;
				MessageBox.Show(strError);
				return;
			}

		}
		finally
		{
			EndGcatLoop();
		}

		this.DetailForm.MarcEditor.Record.Fields.SetFirstSubfield("905", "e", strNumber);

	}

	void channel_BeforeLogin(object sender,
		BeforeLoginEventArgs e)
	{

		string strUserName = (string)this.DetailForm.MainForm.ParamTable["author_number_account_username"];
		string strPassword = (string)this.DetailForm.MainForm.ParamTable["author_number_account_password"];

		if (strUserName == null)
		{
			strUserName = "";
			strPassword = "";
		}

		// 直接试探
		if (!(e.UserName == strUserName && e.Failed == true)
			&& strUserName != "")
		{
			e.UserName = strUserName;
			e.Password = strPassword;
			return;
		}

		LoginDlg dlg = new LoginDlg();

		dlg.textBox_comment.Text = "加著者号码功能需要登录";
		dlg.textBox_serverAddr.Text = e.GcatServerUrl;
		dlg.textBox_userName.Text = strUserName;
		dlg.textBox_password.Text = strPassword;
		dlg.checkBox_savePassword.Checked = true;

		dlg.textBox_serverAddr.Enabled = false;
		dlg.ShowDialog(null);
		if (dlg.DialogResult != DialogResult.OK)
			return;

		strUserName = dlg.textBox_userName.Text;
		strPassword = dlg.textBox_password.Text;

		e.UserName = strUserName;
		e.Password = strPassword;

		this.DetailForm.MainForm.ParamTable["author_number_account_username"] = strUserName;
		this.DetailForm.MainForm.ParamTable["author_number_account_password"] = strPassword;


	}

        void DoStop(object sender, StopEventArgs e)
        {
            if (this.GcatChannel != null)
                this.GcatChannel.Abort();
        }

        public void BeginGcatLoop(string strMessage)
        {
            this.DetailForm.EnableControls(false);

		Stop stop = this.DetailForm.stop;

            stop.OnStop += new StopEventHandler(this.DoStop);
            stop.Initial(strMessage);
            stop.BeginLoop();

            this.DetailForm.Update();
            this.DetailForm.MainForm.Update();
        }

        public void EndGcatLoop()
        {
		Stop stop = this.DetailForm.stop;
            stop.EndLoop();
            stop.OnStop -= new StopEventHandler(this.DoStop);
            stop.Initial("");

            this.DetailForm.EnableControls(true);
        }

	void AddZhongcihao()
	{
		string strError = "";
		ZhongcihaoForm dlg = new ZhongcihaoForm();

		try 
		{
			string strClass = "";
			string strNumber = "";
			int nRet = 0;

			strClass = this.DetailForm.MarcEditor.Record.Fields.GetFirstSubfield("905", "d");

			if (strClass == "")
			{
				MessageBox.Show( this.DetailForm, "记录中不存在905$d子字段,因此无法加种次号");
				return;
			}
		
			string strExistNumber = this.DetailForm.MarcEditor.Record.Fields.GetFirstSubfield("905", "e");

			// dlg.MdiParent = this.DetailForm.MainForm;
			dlg.MainForm = this.DetailForm.MainForm;
			dlg.TopMost = true;
			dlg.MyselfBiblioRecPath = this.DetailForm.BiblioRecPath;

			// dlg.ClassNumber = strClass;
			// dlg.BiblioDbName = this.DetailForm.BiblioDbName;


			dlg.Show();


		        // return:
		        //      -1  error
		        //      0   canceled
		        //      1   succeed
			nRet = dlg.GetNumber(
				ZhongcihaoStyle.Seed,
            			strClass,
            			this.DetailForm.BiblioDbName,
            			out strNumber,
				out strError);
			if (nRet == -1)
				goto ERROR1;

			this.DetailForm.MarcEditor.Record.Fields.SetFirstSubfield("905", "e", strNumber);
			return;

		}
		catch (Exception ex)
		{
			strError = ex.Message;
			goto ERROR1;
		}
		finally
		{
			dlg.Close();
		}

		ERROR1:
			MessageBox.Show(this.DetailForm, strError);



	}

	// 维护种次号
	void ManageZhongcihao()
	{
		string strError = "";
		ZhongcihaoForm dlg = new ZhongcihaoForm();

		string strClass = "";
		int nRet = 0;

		strClass = this.DetailForm.MarcEditor.Record.Fields.GetFirstSubfield("905", "d");

		dlg.MdiParent = this.DetailForm.MainForm;
		dlg.MainForm = this.DetailForm.MainForm;
		dlg.TopMost = true;
		dlg.AutoBeginSearch = true;

		dlg.ClassNumber = strClass;
		dlg.BiblioDbName = this.DetailForm.BiblioDbName;

		dlg.Show();

	}

	// 加入出版地、出版者
	void AddPublisher()
	{
		string strError = "";
		string strISBN = "";

		int nRet = 0;

		strISBN = this.DetailForm.MarcEditor.Record.Fields.GetFirstSubfield("010", "a");

		if (strISBN.Trim() == "")
		{
			strError = "记录中不存在010$a子字段,因此无法加出版社子字段";
			goto ERROR1;
		}



		// 切割出 出版社 代码部分
		string strPublisherNumber = "";
		nRet = this.DetailForm.MainForm.GetPublisherNumber(strISBN,
			out strPublisherNumber,
			out strError);
		if (nRet == -1)
		{
			goto ERROR1;
		}

		string strValue = "";

		nRet = this.DetailForm.GetPublisherInfo(strPublisherNumber,
			out strValue,
			out strError);
		if (nRet == -1)
			goto ERROR1;

		if (nRet == 0 || strValue == "")
		{
			// 创建新条目
			strValue = InputDlg.GetInput(
				this.DetailForm,
				null,
				"请输入ISBN出版社号 '" +strPublisherNumber+ "' 对应的出版社名称(格式 出版地:出版社名):",
				"出版地:出版社名");
			if (strValue == null)
				return;	// 放弃整个操作

			nRet = this.DetailForm.SetPublisherInfo(strPublisherNumber,
				strValue,
				out strError);
			if (nRet == -1)
				goto ERROR1;

		}

		// MessageBox.Show(this.DetailForm, strValue);

		// 把全角冒号替换为半角的形态
		strValue = strValue.Replace("：",":");

		string strName = "";
		string strCity = "";
		nRet = strValue.IndexOf(":");
		if (nRet == -1)
		{
			strName = strValue;
		}
		else 
		{
			strCity = strValue.Substring(0, nRet);
			strName = strValue.Substring(nRet + 1);
		}

		this.DetailForm.MarcEditor.Record.Fields.SetFirstSubfield("210", "a", strCity);
		this.DetailForm.MarcEditor.Record.Fields.SetFirstSubfield("210", "c", strName);


		return;

	ERROR1:
		MessageBox.Show(this.DetailForm, strError);


	}

	void HyphenISBN_13()
	{
		HyphenISBN(true);
	}


	void HyphenISBN_10()
	{
		HyphenISBN(false);
	}


	void HyphenISBN(bool bForce13)
	{
		string strError = "";
		string strISBN = "";
		int nRet = 0;

		strISBN = this.DetailForm.MarcEditor.Record.Fields.GetFirstSubfield("010", "a");

		if (strISBN.Trim() == "")
		{
			MessageBox.Show( this.DetailForm, "记录中不存在010$a子字段,因此无法进行规整");
			return;
		}

       		nRet = this.DetailForm.MainForm.LoadIsbnSplitter(true, out strError);
	        if (nRet == -1)
        	    goto ERROR1;

		string strResult = "";

		nRet = this.DetailForm.MainForm.IsbnSplitter.IsbnInsertHyphen(strISBN,
			bForce13 == true ? "force13,strict" : "force10,strict",
                	out strResult,
	                out strError);
        	if (nRet == -1)
                	goto ERROR1;

		if (nRet == 1) 
		{
			DialogResult result = MessageBox.Show(this.DetailForm,
			    "原ISBN '"+strISBN+"'加工成 '"+strResult+"' 后发现校验位有变化。\r\n\r\n是否接受修改?",
			    "规整ISBN",
			    MessageBoxButtons.YesNo,
			    MessageBoxIcon.Question,
			    MessageBoxDefaultButton.Button2);
			if (result != DialogResult.Yes)
				return;

		}

		this.DetailForm.MarcEditor.Record.Fields.SetFirstSubfield("010", "a", strResult);

		return;

	ERROR1:
		MessageBox.Show(this.DetailForm, strError);

	}

	void Add102()
	{
		string strError = "";
		string strISBN = "";
		int nRet = 0;

		strISBN = this.DetailForm.MarcEditor.Record.Fields.GetFirstSubfield("010", "a");

		if (strISBN.Trim() == "")
		{
			strError = "记录中不存在010$a子字段,因此无法加102$a$b";
			goto ERROR1;
		}

		// 切割出 出版社 代码部分
		string strPublisherNumber = "";
		nRet = this.DetailForm.MainForm.GetPublisherNumber(strISBN,
			out strPublisherNumber,
			out strError);
		if (nRet == -1)
		{
			goto ERROR1;
		}

		string strValue = "";

		nRet = this.DetailForm.Get102Info(strPublisherNumber,
			out strValue,
			out strError);
		if (nRet == -1)
			goto ERROR1;

		if (nRet == 0 || strValue == "")
		{
			// 创建新条目
			strValue = InputDlg.GetInput(
				this.DetailForm,
				null,
				"请输入ISBN出版社号码 '" +strISBN+ "' 对应的UNIMARC 102$a$b参数(格式 国家代码[2位]:城市代码[6位]):",
				"国家代码[2位]:城市代码[6位]");
			if (strValue == null)
				return;	// 放弃整个操作

			nRet = this.DetailForm.Set102Info(strPublisherNumber,
				strValue,
				out strError);
			if (nRet == -1)
				goto ERROR1;

		}

		// MessageBox.Show(this.DetailForm, strValue);

		// 把全角冒号替换为半角的形态
		strValue = strValue.Replace("：",":");

		string strCountryCode = "";
		string strCityCode = "";
		nRet = strValue.IndexOf(":");
		if (nRet == -1)
		{
			strCountryCode = strValue;

			if (strCountryCode.Length != 2)
			{
				strError = "国家代码 '"+strCountryCode+"' 应当为2字符";
				goto ERROR1;
			}
		}
		else 
		{
			strCountryCode = strValue.Substring(0, nRet);
			strCityCode = strValue.Substring(nRet + 1);
			if (strCountryCode.Length != 2)
			{
				strError = "冒号前面的国家代码部分 '"+strCountryCode+"' 应当为2字符";
				goto ERROR1;
			}
			if (strCityCode.Length != 6)
			{
				strError = "冒号后面的城市代码部分 '"+strCityCode+"' 应当为6字符";
				goto ERROR1;
			}
		}

		this.DetailForm.MarcEditor.Record.Fields.SetFirstSubfield("102", "a", strCountryCode);
		this.DetailForm.MarcEditor.Record.Fields.SetFirstSubfield("102", "b", strCityCode);


		return;

	ERROR1:
		MessageBox.Show(this.DetailForm, strError);


	}

	void Copy225To410()
	{
		Field field_225 = this.DetailForm.MarcEditor.Record.Fields.GetOneField("225",0);
		SubfieldCollection subfields_225 = field_225.Subfields;

		Subfield subfield_a = subfields_225["a"];

		if (subfield_a == null)
		{
			MessageBox.Show(this.DetailForm, "225$"+"a"+"不存在");
			return;
		}

		string strContent = subfield_a.Value;
		
		// 看看当前活动字段是不是410
		Field field_410 = null;

		field_410 = this.DetailForm.MarcEditor.FocusedField;
		if (field_410 != null)
		{
			if (field_410.Name != "410")
				field_410 = null;
		}
		

		if (field_410 == null)
		{
			field_410 = this.DetailForm.MarcEditor.Record.Fields.GetOneField("410", 0);

			if (field_410 == null)
			{
				field_410 = this.DetailForm.MarcEditor.Record.Fields.Add("410", "  ", new string((char)31, 1) + "1200  "+new string((char)31,1)+"a", true);
			}

		}
		else
		{
			field_410.Value = new string((char)31, 1) + "1200  "+new string((char)31,1)+"a" + field_410.Value;
		}
		

		if (field_410 == null)
			throw(new Exception("error ..."));


		Subfield subfield_410a = field_410.Subfields["a"];
		if (subfield_410a == null)
		{
			subfield_410a = new Subfield();
			subfield_410a.Name = "a";
		}

		subfield_410a.Value = strContent;
		field_410.Subfields["a"] = subfield_410a;
	}


}