static gboolean
ori_save (gchar * fn, gboolean replace)
{
gchar *text;
FILE *fp;
char *nullstr = "NULLSTRING";
int ret;
if (!fn)
fn = nullstr;
if (replace)
{
fp = fopen (fn, "r");
if (fp != NULL)
{
GtkWidget *dialog;
GtkResponseType response;
dialog = gtk_message_dialog_new (GTK_WINDOW(app->window_main),
GTK_DIALOG_DESTROY_WITH_PARENT,
GTK_MESSAGE_QUESTION,
GTK_BUTTONS_YES_NO,
_("File already exists; overwrite it?"));
response = gtk_dialog_run (GTK_DIALOG (dialog));
gtk_widget_destroy (dialog);
if (response == GTK_RESPONSE_NO)
return FALSE;
fclose (fp);
}
}
text = gui_editor_get_text (app->editor);
fp = fopen (fn, "w");
if (fp == NULL)
{
gchar errmsg[MAX_ERR_MSG_SIZE + 1];
g_snprintf (errmsg, MAX_ERR_MSG_SIZE, _("Failed to save <%s>"),
fn);
gui_app_show_msg (GTK_MESSAGE_ERROR, errmsg);
return TRUE;
}
// return value stored just to avoid compiler warnings.
ret = fwrite (text, 1, strlen (text), fp);
gtk_text_buffer_set_modified ((GtkTextBuffer *)app->editor->buffer, FALSE);
/* debug */
fclose (fp);
g_free (text);
if (replace)
_set_file_name (fn);
return TRUE;
}
static gboolean
ori_save (gchar * fn, gboolean replace)
{
gchar *text;
GFile *fp;
GFileOutputStream *file_out;
GError *error = NULL;
char *nullstr = "NULLSTRING";
gssize bytes;
if (!fn)
fn = nullstr;
fp = g_file_new_for_uri (fn);
file_out = g_file_create (fp, G_FILE_CREATE_NONE, NULL, &error);
if ((file_out == NULL) && (error->code == G_IO_ERROR_EXISTS))
{
if (replace)
{
g_error_free (error);
/* replace file */
file_out = g_file_replace (fp, NULL, TRUE, G_FILE_CREATE_NONE, NULL, &error);
}
}
text = gui_editor_get_text (app->editor);
if (file_out == NULL)
{
gchar errmsg[MAX_ERR_MSG_SIZE + 1];
g_snprintf (errmsg, MAX_ERR_MSG_SIZE, _("Failed to save <%s>"),
fn);
gui_app_show_msg (GTK_MESSAGE_ERROR, errmsg);
return TRUE;
}
bytes = g_output_stream_write (G_OUTPUT_STREAM (file_out), text, strlen (text), NULL, NULL);
gtk_text_buffer_set_modified ((GtkTextBuffer *)app->editor->buffer, FALSE);
/* debug */
g_output_stream_close (G_OUTPUT_STREAM (file_out), NULL, NULL);
g_free (text);
if (replace)
_set_file_name (fn);
/*g_error_free (error);*/
return TRUE;
}
void
ori_open (gchar * fn, gboolean replace)
{
GString *gstr;
GFile *fp;
GFileInputStream *file_in;
char *nullstr = "NULLSTRING";
gssize bytes = 1;
if (!fn)
fn = nullstr;
fp = g_file_new_for_uri (fn);
if (fp == NULL)
{
gchar errmsg[MAX_ERR_MSG_SIZE + 1];
g_snprintf (errmsg, MAX_ERR_MSG_SIZE, _("Failed to open <%s>"),
fn);
gui_app_show_msg (GTK_MESSAGE_ERROR, errmsg);
return;
}
gstr = g_string_new ("");
file_in = g_file_read (fp, NULL, NULL);
while (bytes != 0)
{
gchar buf[100] = { 0 };
bytes = g_input_stream_read (G_INPUT_STREAM (file_in), buf, 100, NULL, NULL);
g_string_append_len (gstr, buf, bytes);
}
g_input_stream_close (G_INPUT_STREAM (file_in), NULL, NULL);
gui_editor_set_text (app->editor, gstr->str);
gtk_text_buffer_set_modified ((GtkTextBuffer *)app->editor->buffer, FALSE);
/* Set breakpoints as instructed in the source */
{
gchar *str = gstr->str;
gint ln = 0;
gchar **lines = NULL;
g_assert (str);
lines = g_strsplit (str, "\n", -1);
g_assert (lines);
/* for each line */
while (lines[ln])
{
/* check for ;@ */
if (strlen (lines[ln]) > 1)
{
if (lines[ln][0] == ';'
&& lines[ln][1] == '@')
{
/* add breakpoint */
gui_editor_set_mark (app->editor,
ln + 1, TRUE);
//exit(99);
}
}
ln++;
}
g_strfreev (lines);
}
g_string_free (gstr, TRUE);
if (replace)
_set_file_name (fn);
}
void
ori_open (gchar * fn, gboolean replace)
{
GString *gstr;
FILE *fp;
char *nullstr = "NULLSTRING";
char *ret;
if (!fn)
fn = nullstr;
fp = fopen (fn, "r");
if (fp == NULL)
{
gchar errmsg[MAX_ERR_MSG_SIZE + 1];
g_snprintf (errmsg, MAX_ERR_MSG_SIZE, _("Failed to open <%s>"),
fn);
gui_app_show_msg (GTK_MESSAGE_ERROR, errmsg);
return;
}
gstr = g_string_new ("");
while (!feof (fp))
{
gchar buf[300] = { 0 };
// return value stored just to avoid compiler warnings.
ret = fgets (buf, 100, fp);
g_string_append (gstr, buf);
}
gui_editor_set_text (app->editor, gstr->str);
gtk_text_buffer_set_modified ((GtkTextBuffer *)app->editor->buffer, FALSE);
/* Set breakpoints as instructed in the source */
{
gchar *str = gstr->str;
gint ln = 0;
gchar **lines = NULL;
g_assert (str);
lines = g_strsplit (str, "\n", -1);
g_assert (lines);
/* for each line */
while (lines[ln])
{
/* check for ;@ */
if (strlen (lines[ln]) > 1)
{
if (lines[ln][0] == ';'
&& lines[ln][1] == '@')
{
/* add breakpoint */
gui_editor_set_mark (app->editor,
ln + 1, TRUE);
//exit(99);
}
}
ln++;
}
g_strfreev (lines);
}
g_string_free (gstr, TRUE);
if (replace)
_set_file_name (fn);
}
