spacepaste

Paste details

reply | raw

  1.  
  2. static SCM
  3. gnc_get_export_type_choice (SCM export_types)
  4. {
  5. GList * choices = NULL;
  6. gboolean bad = FALSE;
  7. GList * node;
  8. int choice;
  9. SCM tail;
  11. if (!scm_is_list (export_types))
  12. return SCM_BOOL_F;
  14. for (tail = export_types; !scm_is_null (tail); tail = SCM_CDR (tail))
  15. {
  16. SCM pair = SCM_CAR (tail);
  17. const gchar * name;
  18. SCM scm;
  20. if (!scm_is_pair (pair))
  21. {
  22. g_warning ("unexpected list element");
  23. bad = TRUE;
  24. break;
  25. }
  27. scm = SCM_CAR (pair);
  28. if (!scm_is_string (scm))
  29. {
  30. g_warning ("unexpected pair element");
  31. bad = TRUE;
  32. break;
  33. }
  35. name = scm_to_locale_string (scm);
  36. choices = g_list_prepend (choices, g_strdup (name));
  37. }
  39. if (!bad)
  40. {
  41. choices = g_list_reverse (choices);
  43. choices = g_list_prepend (choices, g_strdup (_("HTML")));
  44. //I believe by extending the below logic I can add option for exporting the files to Google docs
  45. choice = gnc_choose_radio_option_dialog
  46. (NULL, _("Choose export format"),
  47. _("Choose the export format for this report:"),
  48. NULL, 0, choices);
  49. }
  50. else
  51. choice = -1;
  53. for (node = choices; node; node = node->next)
  54. g_free (node->data);
  55. g_list_free (choices);
  57. if (choice < 0)
  58. return SCM_BOOL_F;
  60. if (choice == 0)
  61. return SCM_BOOL_T;
  63. choice--;
  64. if (choice >= scm_ilength (export_types))
  65. return SCM_BOOL_F;
  67. return scm_list_ref (export_types, scm_int2num (choice));
  69. //this part dealing with the filepath
  71. static char *
  72. gnc_get_export_filename (SCM choice)
  73. {
  74. char * filepath;
  75. struct stat statbuf;
  76. char * title;
  77. const gchar * type;
  78. int rc;
  79. char * default_dir;
  81. if (choice == SCM_BOOL_T)
  82. type = _("HTML");
  83. else
  84. {
  85. type = scm_to_locale_string(SCM_CAR (choice));
  86. }
  88. /* %s is the type of what is about to be saved, e.g. "HTML". */
  89. title = g_strdup_printf (_("Save %s To File"), type);
  90. default_dir = gnc_get_default_directory(GCONF_DIR_REPORT);
  92. filepath = gnc_file_dialog (title, NULL, default_dir, GNC_FILE_DIALOG_EXPORT);
  94. /* Try to test for extension on file name, add if missing */
  95. if (g_strrstr(filepath, ".") == NULL)
  96. filepath = g_strconcat(filepath, ".", g_ascii_strdown(type, strlen(type)), NULL);
  98. g_free (title);
  99. g_free (default_dir);
  101. if (!filepath)
  102. return NULL;
  104. default_dir = g_path_get_dirname(filepath);
  105. gnc_set_default_directory (GCONF_DIR_REPORT, default_dir);
  106. g_free(default_dir);
  108. rc = g_stat (filepath, &statbuf);
  110. /* Check for an error that isn't a non-existent file. */
  111. if (rc != 0 && errno != ENOENT)
  112. {
  113. /* %s is the strerror(3) string of the error that occurred. */
  114. const char *format = _("You cannot save to that filename.\n\n%s");
  116. gnc_error_dialog (NULL, format, strerror(errno));
  117. g_free(filepath);
  118. return NULL;
  119. }
  121. /* Check for a file that isn't a regular file. */
  122. if (rc == 0 && !S_ISREG (statbuf.st_mode))
  123. {
  124. const char *message = _("You cannot save to that file.");
  126. gnc_error_dialog (NULL, "%s", message);
  127. g_free(filepath);
  128. return NULL;
  129. }
  131. if (rc == 0)
  132. {
  133. const char *format = _("The file %s already exists. "
  134. "Are you sure you want to overwrite it?");
  136. if (!gnc_verify_dialog (NULL, FALSE, format, filepath))
  137. {
  138. g_free(filepath);
  139. return NULL;
  140. }
  141. }
  143. return filepath;
  144. }
  147. }
  148.  
Powered by spacepaste. Paste removal.