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

using dp2rms;
using DigitalPlatform.Xml;
using DigitalPlatform.Marc;

using DigitalPlatform.IO;
using DigitalPlatform.GcatClient;
using DigitalPlatform;
using DigitalPlatform.Library;
using DigitalPlatform.rms.Client;
using DigitalPlatform.Text;

public class MyHost : Host
{

 DupDlg dupdlg = null;


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

 };

 /*
 // 为产生著者号码的用户名和密码
 string UserName = "";
 string Password = "";
 */

 public override void Main(object sender, HostEventArgs e)
 {
  ScriptActionCollection actions = new ScriptActionCollection();
  actions.NewItem("加拼音", "给.....加拼音", "AddPinyin", false);
  actions.NewItem("7*1$a <-- 200$f", "将200$f内容加入701/711字段$a", "Copy200fTo7x1a", false);
  actions.NewItem("7*2$a <-- 200$g", "将200$g内容加入702/712字段$a", "Copy200gTo7x2a", false);
  actions.NewItem("加入著者号", "根据701/711/702/712$a内容, 创建905$a", "AddAuthorNumber", false);
  actions.NewItem("加入种次号", "根据905$d内容, 创建905$e", "AddZhongcihao", false);
  actions.NewItem("维护种次号", "根据905$d内容中的类号, 出现维护种次号的界面", "ManageZhongcihao", false);
  actions.NewItem("210$a$c <-- 010$a", "根据010$a中ISBN出版社代码, 自动创建出版社子字段210$a$c", "AddPublisher", false);
  actions.NewItem("102$a$b <-- 010$a", "根据010$a中ISBN出版社代码, 自动创建102字段$a国家代码$b地区代码", "Add102", false);
  actions.NewItem("加入主题词", "根据690$a中的中图法类号, 自动查获对应的主题词，加入606$a", "Class2Subject", false);
  actions.NewItem("测试查重", "成批测试查重", "TestDup", false);

  ScriptActionMenuDlg dlg = new ScriptActionMenuDlg();
  dlg.Actions = actions;
  dlg.StartPosition = FormStartPosition.CenterScreen;
  dlg.ShowDialog();
  if (dlg.DialogResult == DialogResult.OK)
  {
   this.Invoke(dlg.SelectedAction.ScriptEntry);
  }
 }

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

 }


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

 }

 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 AddPinyin()
 {
  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 = "";
   nRet = this.DetailForm.HanziTextToPinyin(strHanzi,
    style,
    out strPinyin,
    out strError);
   if (nRet == -1)
   {
    MessageBox.Show(strError);
    break;
   }

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

   field.Text = strField;

  }

 

 }

 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 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";

  DigitalPlatform.GcatClient.Channel channel = new DigitalPlatform.GcatClient.Channel();

 


  string strNumber = "";
  string strError = "";
  string strDebugInfo = "";
  int nRet = channel.GetNumber(
   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;
  }


  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 AddZhongcihao()
 {
  string strError = "";
  ZhongcihaoDlg dlg = new ZhongcihaoDlg();

  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");


   ResPath respath = new ResPath(this.DetailForm.RecPath);

   string strServerUrl = respath.Url;

   SearchPanel searchpanel = new SearchPanel();
   searchpanel.Initial(this.DetailForm.MainForm.Servers,
    this.DetailForm.MainForm.cfgCache);

   dlg.TopMost = true;
   dlg.Initial(searchpanel,
    strServerUrl,
    "中文书目",
    strClass,
    false);

   dlg.Show();

   // dlg.WaitSearchFinish();
 

   // MessageBox.Show(this.DetailForm, "maxnumber="+dlg.MaxNumber);
   // MessageBox.Show(this.DetailForm, "tailnumber="+dlg.TailNumber);

   if (dlg.TailNumber == "" || dlg.TailNumber == null) // 本类尚未创建种次号条目
   {
    string strMaxNumber = dlg.MaxNumber;
    if (strMaxNumber == "")
    {
     // 此类从来没有过记录，当前是第一条
     strNumber = InputDlg.GetInput(
      this.DetailForm,
      null,
      "请输入类 '" +strClass+ "' 的当前种次号最大号:",
      strExistNumber == "" ? "1" : strExistNumber);
     if (strNumber == null)
      return; // 放弃整个操作

    }
    else 
    {
     strNumber = StringUtil.IncreaseNumber(strMaxNumber, 1);
    }

    dlg.TailNumber = strNumber;

    // MessageBox.Show(this.DetailForm, "首次尾号写库" + strNumber);

   }
   else 
   {
    nRet = dlg.IncreaseTailNumber("1",
     out strNumber,
     out strError);
    if (nRet == -1)
     goto ERROR1;

    // MessageBox.Show(this.DetailForm, "得到尾号" + strNumber);
   }
  

   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 = "";
  ZhongcihaoDlg dlg = new ZhongcihaoDlg();

  string strClass = "";
  int nRet = 0;

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

  ResPath respath = new ResPath(this.DetailForm.RecPath);

  string strServerUrl = respath.Url;

  SearchPanel searchpanel = new SearchPanel();
  searchpanel.Initial(this.DetailForm.MainForm.Servers,
   this.DetailForm.MainForm.cfgCache);

  dlg.TopMost = true;
  dlg.Initial(searchpanel,
    strServerUrl,
    "中文书目",
    strClass,
    true);
  dlg.Show();

  // dlg.WaitSearchFinish();
 }


 void AddPublisher()
 {
  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 = strISBN.IndexOf("-");
  if (nRet == -1)
  {
   MessageBox.Show( this.DetailForm, "010$a子字段中ISBN '"+strISBN+"' 格式不正确, 因此无法加出版社子字段");
   return;
  }
  nRet = strISBN.IndexOf("-", nRet+1);
  if (nRet != -1)
  {
   strISBN = strISBN.Substring(0, nRet).Trim();
  }
  else
  {
   strISBN = strISBN.Trim();
  }


  ResPath respath = new ResPath(this.DetailForm.RecPath);

  string strServerUrl = respath.Url;

  string strValue = "";

   // 检索实用库
  nRet = Util.SearchUtilDb(
   this.DetailForm.Channels,
            strServerUrl,
   "ISBN",
   "ISBN",
   strISBN,
   "v210",
   out strValue,
   out strError);
  if (nRet == -1)
   goto ERROR1;
  if (nRet == 0 || strValue == "")
  {
   // 创建新条目
   strValue = InputDlg.GetInput(
    this.DetailForm,
    null,
    "请输入ISBN '" +strISBN+ "' 对应的出版社名称(格式 出版地:出版社名):",
    "出版地:出版社名");
   if (strValue == null)
    return; // 放弃整个操作

   nRet = Util.WriteUtilDb(
    this.DetailForm.Channels,
    strServerUrl,
    "ISBN",
    "ISBN",
    "r",
    "i",
    "v210",
    strISBN,
    strValue,
    out strError);
   if (nRet == -1)
    goto ERROR1;

  }

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

  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 Add102()
 {
  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子字段,因此无法加102$a$b");
   return;
  }

  // 切割出 出版社 代码部分
  nRet = strISBN.IndexOf("-");
  if (nRet == -1)
  {
   MessageBox.Show( this.DetailForm, "010$a子字段中ISBN '"+strISBN+"' 格式不正确, 因此无法加102$a$b");
   return;
  }
  nRet = strISBN.IndexOf("-", nRet+1);
  if (nRet != -1)
  {
   strISBN = strISBN.Substring(0, nRet).Trim();
  }
  else
  {
   strISBN = strISBN.Trim();
  }


  ResPath respath = new ResPath(this.DetailForm.RecPath);

  string strServerUrl = respath.Url;

  string strValue = "";

  // 检索实用库
  nRet = Util.SearchUtilDb(
   this.DetailForm.Channels,
   strServerUrl,
   "ISBN",
   "ISBN",
   strISBN,
   "v102",
   out strValue,
   out strError);
  if (nRet == -1)
   goto ERROR1;
  if (nRet == 0 || strValue == "")
  {
   // 创建新条目
   strValue = InputDlg.GetInput(
    this.DetailForm,
    null,
    "请输入ISBN '" +strISBN+ "' 对应的102$a$b参数(格式 国家代码[2位]:城市代码[6位]):",
    "国家代码[2位]:城市代码[6位]");
   if (strValue == null)
    return; // 放弃整个操作

   nRet = Util.WriteUtilDb(
    this.DetailForm.Channels,
    strServerUrl,
    "ISBN",
    "ISBN",
    "r",
    "i",
    "v102",
    strISBN,
    strValue,
    out strError);
   if (nRet == -1)
    goto ERROR1;

  }

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

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

  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 Class2Subject()
 {

  string strError = "";
  Class2SubjectDlg dlg = new Class2SubjectDlg();

  string strClass = "";
  int nRet = 0;

  strClass = this.DetailForm.MarcEditor.Record.Fields.GetFirstSubfield("690", "a");

  ResPath respath = new ResPath(this.DetailForm.RecPath);

  string strServerUrl = respath.Url;

  dlg.CopySubject += new CopySubjectEventHandler(this.CopySubjectCallBack);

  SearchPanel searchpanel = new SearchPanel();
  searchpanel.Initial(this.DetailForm.MainForm.Servers,
   this.DetailForm.MainForm.cfgCache);
  searchpanel.ap = this.DetailForm.MainForm.applicationInfo;
  searchpanel.ApCfgTitle = "mainform_class2subjectdlg";


  dlg.Initial(searchpanel,
   "http://test111/rmsservice/rmsservice.asmx",
   "分类主题对照");
  dlg.CssUrl = Environment.CurrentDirectory + "\\class2subject.css";

  dlg.TopMost = true;
 
  dlg.Show();
  dlg.DoNavi(strClass);

 }

 void CopySubjectCallBack(object sender, CopySubjectEventArgs e)
 {
  // Clipboard.SetDataObject(e.Subject);

 

  
  Class2SubjectDlg dlg = (Class2SubjectDlg)sender;
  dlg.DialogResult = DialogResult.OK;
  dlg.Close();
  
  if (e.Single == false)
  {
   string[] subjects = e.Subject.Split(new char [] {','});
   for(int i=0;i<subjects.Length;i++)
   {
    if (subjects[i].Length == 0)
     continue;
    this.DetailForm.MarcEditor.Record.Fields.Add("606", "  ", new string((char)31,1) + "a" + subjects[i], true);
   }
  }
  else
  {
   this.DetailForm.MarcEditor.Record.Fields.Add("606", "  ", new string((char)31,1) + "a" + e.Subject, true);
  }

 }


 void TestDup()
 {

  // 似要增加循环中可以中断的功能?

  ResPath respath = new ResPath(this.DetailForm.RecPath);

  if (dupdlg == null)
  {
   dupdlg = new DupDlg();

   dupdlg.OpenDetail -= new OpenDetailEventHandler(this.DetailForm.MainForm.OpenDetailCallBack);
   dupdlg.OpenDetail += new OpenDetailEventHandler(this.DetailForm.MainForm.OpenDetailCallBack);

   SearchPanel searchpanel = new SearchPanel();
   searchpanel.Initial(this.DetailForm.MainForm.Servers,
    this.DetailForm.MainForm.cfgCache);

   dupdlg.Initial(searchpanel,
    respath.Url,
    true);
   dupdlg.ProjectName = this.DetailForm.GetUsedDefaultDupProject(respath.Url + "?" + ResPath.GetDbName(respath.Path));
   dupdlg.MdiParent = this.DetailForm.MainForm; // MDI化
  }

  dupdlg.RecordFullPath = this.DetailForm.RecPath;
  dupdlg.Record = this.DetailForm.XmlEditor.Xml;
  dupdlg.Show();
  dupdlg.WaitSearchFinish();

  string strError = "";

  for(;;)
  {
   int nRet = this.DetailForm.LoadRecord(null, "next", out strError);
   if (nRet != 0)
    break;

   dupdlg.RecordFullPath = this.DetailForm.RecPath;
   dupdlg.Record = this.DetailForm.XmlEditor.Xml;
   nRet = dupdlg.DoSearch(out strError);
   if (nRet == -1)
    break;

  }

  if (strError != "")
   MessageBox.Show(this.DetailForm, strError);
 }

}