Method ExportScriptToFile

editor/DallasMainDlg.cpp:15824–16022

Adds selected script to specified library file

// Adds selected script to specified library file
bool CDallasMainDlg::ExportScriptToFile(char *filename, char *script_name) {
  CFILE *infile;
  char linebuf[2048];
  char *line;
  int linenum;
  int valid_lines_read;
  HTREEITEM selected_node, script_header_node;
  bool ReplacingScript;
  bool ScriptReplaced;

  CurrentParsingFilename = filename;

  // Make sure the selected item is valid for exporting
  selected_node = m_ScriptTree.GetSelectedItem();
  if (selected_node == NULL)
    return FALSE;
  script_header_node = GetParentNodeOfType(selected_node, SCRIPT_HEADER_NODE);
  if (script_header_node == NULL)
    return FALSE;

  // Make sure library file can be written to
  if (_access(filename, 0) != -1) {
    if ((_access(filename, 2)) == -1) {
      CString msg;
      msg.Format("The library file \"%s\" is read-only!", filename);
      MessageBox(msg, "Script Library File Not Writeable!", MB_OK | MB_ICONEXCLAMATION);
      return FALSE;
    }
  }

  // Try to open the file for reading
  infile = cfopen(filename, "rt");

  // Try to open the temp file for writing
  CurrentOutputFile = cfopen(TEMP_EXPORT_FNAME, "wt");
  if (CurrentOutputFile == NULL) {
    CString msg, title;
    msg.Format("ERROR: Unable to open %s for output.", TEMP_EXPORT_FNAME);
    title.Format("Temp File Save Error!");
    MessageBox(msg, title, MB_OK | MB_ICONEXCLAMATION);
    if (infile != NULL)
      cfclose(infile);
    return FALSE;
  }

  // If file doesn't exist, Write out the header info
  if (infile == NULL) {
    O(("/////////////////////////////////////////////////////////////////////"));
    O(("// D.A.L.L.A.S. Generated Script Library File "));
    O(("/////////////////////////////////////////////////////////////////////"));
    O((" "));
  }

  linenum = 0;
  ReplacingScript = FALSE;
  ScriptReplaced = FALSE;

  // Read in and parse each line of the file