static gint32 get_stata_t0 (const DATASET *dset,
char *timevar,
int *add_time)
{
gint32 t0 = 0;
char obs[OBSLEN];
*timevar = '\0';
ntodate(obs, dset->t1, dset);
if (dset->pd == 1 && dset->sd0 > 999) {
/* we just want the year */
t0 = atoi(obs);
strcpy(timevar, "year");
*add_time = TIME_AUTO;
} else if ((dset->pd == 4 || dset->pd == 12) && dset->sd0 > 999) {
/* quarters or months since the start of 1960 */
int y, p;
char c;
sscanf(obs, "%d%c%d", &y, &c, &p);
t0 = dset->pd * (y - 1960) + p - 1;
strcpy(timevar, dset->pd == 4 ? "quarter" : "month");
*add_time = TIME_AUTO;
} else if (calendar_data(dset)) {
strcpy(timevar, "date");
*add_time = TIME_CAL;
} else {
t0 = atoi(obs);
strcpy(timevar, "generic_t");
*add_time = TIME_AUTO;
}
if (*timevar != '\0') {
/* don't collide with regular series */
if (current_series_index(dset, timevar) > 0) {
strncat(timevar, "_t", 2);
}
}
return t0;
}
void set_sample_label (DATASET *dset)
{
GtkWidget *dlabel;
char tmp[256];
int tsubset;
if (mdata == NULL) {
return;
}
/* set the sensitivity of various menu items */
time_series_menu_state(dataset_is_time_series(dset));
panel_menu_state(dataset_is_panel(dset));
ts_or_panel_menu_state(dataset_is_time_series(dset) ||
dataset_is_panel(dset));
flip(mdata->ui, "/menubar/Data/DataTranspose", !dataset_is_panel(dset));
tsubset = dset->t1 > 0 || dset->t2 < dset->n - 1;
/* construct label showing summary of dataset/sample info
(this goes at the foot of the window)
*/
if (complex_subsampled() && !tsubset && dataset_is_cross_section(dset)) {
sprintf(tmp, _("Undated: Full range n = %d; current sample"
" n = %d"), get_full_length_n(), dataset->n);
gtk_label_set_text(GTK_LABEL(mdata->status), tmp);
} else if (complex_subsampled() && dataset_is_panel(dset)) {
char t1str[OBSLEN], t2str[OBSLEN];
const char *pdstr = get_pd_string(dset);
ntodate(t1str, dset->t1, dset);
ntodate(t2str, dset->t2, dset);
sprintf(tmp, _("%s; sample %s - %s"), _(pdstr), t1str, t2str);
gtk_label_set_text(GTK_LABEL(mdata->status), tmp);
} else {
char t1str[OBSLEN], t2str[OBSLEN];
const char *pdstr = get_pd_string(dset);
if (tsubset && calendar_data(dset)) {
/* it's too verbose to print both full range and sample */
ntodate(t1str, dset->t1, dset);
ntodate(t2str, dset->t2, dset);
sprintf(tmp, _("%s; sample %s - %s"), _(pdstr), t1str, t2str);
gtk_label_set_text(GTK_LABEL(mdata->status), tmp);
} else {
ntodate(t1str, 0, dset);
ntodate(t2str, dset->n - 1, dset);
sprintf(tmp, _("%s: Full range %s - %s"), _(pdstr),
t1str, t2str);
if (tsubset) {
gchar *fulltext;
ntodate(t1str, dset->t1, dset);
ntodate(t2str, dset->t2, dset);
fulltext = g_strdup_printf(_("%s; sample %s - %s"), tmp, t1str, t2str);
gtk_label_set_text(GTK_LABEL(mdata->status), fulltext);
g_free(fulltext);
} else {
gtk_label_set_text(GTK_LABEL(mdata->status), tmp);
}
}
}
/* construct label with datafile name (this goes above the
data series window) */
dlabel = g_object_get_data(G_OBJECT(mdata->main), "dlabel");
if (dlabel != NULL) {
if (strlen(datafile) > 2) {
/* data file open already */
const char *p = strrchr(datafile, SLASH);
gchar *trfname;
if (p != NULL) {
trfname = my_filename_to_utf8(p + 1);
} else {
trfname = my_filename_to_utf8(datafile);
}
strcpy(tmp, " ");
if (data_status & SESSION_DATA) {
sprintf(tmp + 1, "Imported %s", trfname);
} else if (data_status & MODIFIED_DATA) {
sprintf(tmp + 1, "%s *", trfname);
} else {
sprintf(tmp + 1, "%s", trfname);
}
gtk_label_set_text(GTK_LABEL(dlabel), tmp);
g_free(trfname);
} else if (data_status & MODIFIED_DATA) {
strcpy(tmp, _(" Unsaved data "));
gtk_label_set_text(GTK_LABEL(dlabel), tmp);
}
}
if (complex_subsampled() || dset->t1 > 0 ||
dset->t2 < dset->n - 1) {
restore_sample_state(TRUE);
}
console_record_sample(dataset);
}