static gboolean amp_target_node_update (AmpNode *node, AmpNode *new_node) { amp_target_node_update_node (AMP_TARGET_NODE (node), AMP_TARGET_NODE (new_node)); return TRUE; }
static gboolean amp_target_node_erase (AmpNode *target, AmpNode *parent, AmpProject *project, GError **error) { gboolean ok; GList * token_list; token_list = amp_target_node_get_all_token (AMP_TARGET_NODE (target)); ok = amp_target_node_delete_token (project, AMP_TARGET_NODE (target), token_list, error); g_list_free (token_list); /* Remove installation directory variable if the removed target was the * only one using it */ if (ok) { AnjutaProjectNode *node; const gchar *installdir; AnjutaProjectProperty *prop; gboolean used = FALSE; prop = amp_node_get_property_from_token (ANJUTA_PROJECT_NODE (target), AM_TOKEN__PROGRAMS, 6); installdir = prop->value; for (node = anjuta_project_node_first_child (ANJUTA_PROJECT_NODE (parent)); node != NULL; node = anjuta_project_node_next_sibling (node)) { if (node != ANJUTA_PROJECT_NODE (target)) { prop = amp_node_get_property_from_token (node, AM_TOKEN__PROGRAMS, 6); if ((prop != NULL) && (g_strcmp0 (installdir, prop->value) == 0)) { used = TRUE; break; } } } if (!used) { GList *item; for (item = anjuta_project_node_get_properties (ANJUTA_PROJECT_NODE (parent)); item != NULL; item = g_list_next (item)) { AmpProperty *prop = (AmpProperty *)item->data; if ((((AmpPropertyInfo *)prop->base.info)->token_type == AM_TOKEN_DIR) && (g_strcmp0 (prop->base.name, installdir) == 0)) { /* Remove directory variable */ anjuta_token_remove_list (anjuta_token_list (prop->token)); amp_group_node_update_makefile (AMP_GROUP_NODE (parent), prop->token); break; } } } }; return ok; }
static AnjutaToken * amp_target_add_in_list (AmpProject *project, AnjutaToken *list, AnjutaProjectNode *target, gboolean after, AnjutaToken* sibling) { AnjutaTokenStyle *style; AnjutaToken *token; AmpGroupNode *parent; g_return_val_if_fail (list != NULL, NULL); /* Get parent target */ parent = AMP_GROUP_NODE (anjuta_project_node_parent_type (target, ANJUTA_PROJECT_GROUP)); style = anjuta_token_style_new_from_base (project->am_space_list); anjuta_token_style_update (style, list); token = anjuta_token_new_string (ANJUTA_TOKEN_ARGUMENT | ANJUTA_TOKEN_ADDED, anjuta_project_node_get_name (target)); if (after) { anjuta_token_insert_word_after (list, sibling, token); } else { anjuta_token_insert_word_before (list, sibling, token); } /* Try to use the same style than the current target list */ anjuta_token_style_format (style, list); anjuta_token_style_free (style); amp_group_node_update_makefile (parent, token); amp_target_node_add_token (AMP_TARGET_NODE (target), ANJUTA_TOKEN_ARGUMENT, token); return token; }
static void amp_target_node_finalize (GObject *object) { AmpTargetNode *node = AMP_TARGET_NODE (object); tagged_token_list_free (node->tokens); node->tokens = NULL; G_OBJECT_CLASS (amp_target_node_parent_class)->finalize (object); }
static AmpNode * amp_target_node_copy (AmpNode *old_node) { AmpNode *new_node; new_node = AMP_NODE_CLASS (amp_target_node_parent_class)->copy (old_node); amp_target_node_set_type (AMP_TARGET_NODE (new_node), anjuta_project_node_get_full_type (ANJUTA_PROJECT_NODE (old_node))); return new_node; }
static AnjutaToken * amp_project_write_property_list (AmpGroupNode *group, AnjutaProjectNode *node, AmpPropertyInfo *info) { AnjutaToken *pos; gchar *name; if (anjuta_project_node_get_node_type (node) == ANJUTA_PROJECT_GROUP) { /* Group property */ name = g_strdup (info->suffix); pos = anjuta_token_find_group_property_position (AMP_GROUP_NODE (node), info->token_type); } else { /* Target property */ gchar *canon_name; canon_name = canonicalize_automake_variable (anjuta_project_node_get_name (ANJUTA_PROJECT_NODE (node))); name = g_strconcat (canon_name, info->suffix, NULL); g_free (canon_name); pos = anjuta_token_find_target_property_position (AMP_TARGET_NODE (node), info->token_type); } pos = anjuta_token_insert_token_list (FALSE, pos, info->token_type, NULL, ANJUTA_TOKEN_NAME, name, ANJUTA_TOKEN_SPACE, " ", ANJUTA_TOKEN_OPERATOR, "=", ANJUTA_TOKEN_SPACE, " ", ANJUTA_TOKEN_LIST, NULL, ANJUTA_TOKEN_SPACE, " ", NULL); g_free (name); return anjuta_token_last_item (pos); }
static gboolean amp_target_node_write (AmpNode *node, AmpNode *parent, AmpProject *project, GError **error) { return amp_target_node_create_token (project, AMP_TARGET_NODE (node), error); }
gboolean amp_target_node_create_token (AmpProject *project, AmpTargetNode *target, GError **error) { AnjutaToken *args; AnjutaToken *var; AnjutaToken *prev; AmpNodeInfo *info; gchar *targetname; const gchar *name; GList *last; AnjutaProjectNode *sibling; AmpGroupNode *parent; gboolean after; /* Get parent target */ parent = AMP_GROUP_NODE (anjuta_project_node_parent_type (ANJUTA_PROJECT_NODE (target), ANJUTA_PROJECT_GROUP)); info = (AmpNodeInfo *)amp_project_get_type_info (project, anjuta_project_node_get_full_type (ANJUTA_PROJECT_NODE (target))); name = anjuta_project_node_get_name (ANJUTA_PROJECT_NODE (target)); /* Find a sibling if possible */ after = TRUE; for (sibling = anjuta_project_node_prev_sibling (ANJUTA_PROJECT_NODE (target)); sibling != NULL; sibling = anjuta_project_node_prev_sibling (sibling)) { if (anjuta_project_node_get_node_type (sibling) == ANJUTA_PROJECT_TARGET) break; } if (sibling == NULL) { after = FALSE; for (sibling = anjuta_project_node_next_sibling (ANJUTA_PROJECT_NODE (target)); sibling != NULL; sibling = anjuta_project_node_next_sibling (sibling)) { if (anjuta_project_node_get_node_type (sibling) == ANJUTA_PROJECT_TARGET) break; } } if (sibling == NULL) after = TRUE; /* Add in Makefile.am */ targetname = g_strconcat (amp_target_node_get_install_directory (target) != NULL ? amp_target_node_get_install_directory (target) : info->install, "_", info->prefix, NULL); // Get token corresponding to sibling and check if the target are compatible args = NULL; var = NULL; prev = NULL; if (sibling != NULL) { last = amp_target_node_get_token (AMP_TARGET_NODE (sibling), ANJUTA_TOKEN_ARGUMENT); if (last != NULL) { AnjutaToken *token = (AnjutaToken *)last->data; /* Check that the sibling is of the same kind */ token = anjuta_token_list (token); if (token != NULL) { token = anjuta_token_list (token); var = token; if (token != NULL) { token = anjuta_token_first_item (token); if (token != NULL) { gchar *value; value = anjuta_token_evaluate (token); if ((value != NULL) && (strcmp (targetname, value) == 0)) { g_free (value); prev = (AnjutaToken *)last->data; args = anjuta_token_list (prev); } } } } } } /* Check if a valid target variable is already defined */ if (args == NULL) { for (last = amp_group_node_get_token (parent, AM_GROUP_TARGET); last != NULL; last = g_list_next (last)) { gchar *value = anjuta_token_evaluate (anjuta_token_first_word ((AnjutaToken *)last->data)); if ((value != NULL) && (strcmp (targetname, value) == 0)) { g_free (value); args = anjuta_token_last_item ((AnjutaToken *)last->data); break; } g_free (value); } } if (args == NULL) { args = amp_project_write_target (parent, info->token, targetname, FALSE, NULL); } g_free (targetname); switch (anjuta_project_node_get_full_type (ANJUTA_PROJECT_NODE (target)) & ANJUTA_PROJECT_ID_MASK) { case ANJUTA_PROJECT_SHAREDLIB: case ANJUTA_PROJECT_STATICLIB: case ANJUTA_PROJECT_LT_MODULE: case ANJUTA_PROJECT_PROGRAM: amp_target_add_in_list (project, args, ANJUTA_PROJECT_NODE (target), after, prev); break; default: if (args != NULL) { amp_target_node_add_token (target, AM_TOKEN__SOURCES, args); } break; } return TRUE; }
static AnjutaToken * anjuta_token_find_target_property_position (AmpTargetNode *target, AnjutaTokenType type) { AnjutaToken *pos = NULL; gboolean after = FALSE; GList *list; AmpGroupNode *group; AnjutaToken *makefile; group = AMP_GROUP_NODE (anjuta_project_node_parent_type (ANJUTA_PROJECT_NODE (target), ANJUTA_PROJECT_GROUP)); /* Try to find a better position */ /* 1. With the other properties of the target */ list = amp_target_node_get_all_token (target); if (list != NULL) { GList *link; AnjutaTokenType best = 0; for (link = list; link != NULL; link = g_list_next (link)) { AnjutaToken *token = (AnjutaToken *)link->data; AnjutaTokenType existing = anjuta_token_get_type (token); if ((existing < AM_TOKEN_FIRST_ORDERED_TARGET_MACRO) || (existing > AM_TOKEN_LAST_ORDERED_TARGET_MACRO)) { token = anjuta_token_list (token); if (token != NULL) existing = anjuta_token_get_type (token); } if ((existing >= AM_TOKEN_FIRST_ORDERED_TARGET_MACRO) && (existing <= AM_TOKEN_LAST_ORDERED_TARGET_MACRO)) { if (existing > type) { if ((best == 0) || ((existing - type) < best)) { best = existing - type; pos = token; after = FALSE; } } else { if ((best == 0) || ((type -existing) < best)) { best = type - existing; pos = token; after = TRUE; } } } } g_list_free (list); } /* 2. With properties of sibling targets */ if (pos == NULL) { AnjutaProjectNode *prev = ANJUTA_PROJECT_NODE (target); AnjutaProjectNode *next = ANJUTA_PROJECT_NODE (target); AmpTargetNode *sibling; AnjutaTokenFile *makefile; AnjutaToken *target_list = NULL; GList *link; link = amp_target_node_get_token (target, ANJUTA_TOKEN_ARGUMENT); if ((link != NULL) && (link->data != NULL)) { target_list = anjuta_token_list ((AnjutaToken *)link->data); } makefile = amp_group_node_get_make_token_file (group); if (makefile != NULL) { after = TRUE; while ((prev != NULL) || (next != NULL)) { /* Find sibling */ if (after) { while (prev != NULL) { prev = anjuta_project_node_prev_sibling (prev); if (anjuta_project_node_get_node_type (prev) == ANJUTA_PROJECT_TARGET) break; } sibling = AMP_TARGET_NODE (prev); } else { while (next != NULL) { next = anjuta_project_node_next_sibling (next); if (anjuta_project_node_get_node_type (next) == ANJUTA_PROJECT_TARGET) break; } sibling = AMP_TARGET_NODE (next); } list = sibling == NULL ? NULL : amp_target_node_get_all_token (sibling); /* Check that the target is in the same list */ if ((list != NULL) && (target_list != NULL)) { AnjutaToken *token; link = amp_target_node_get_token (sibling, ANJUTA_TOKEN_ARGUMENT); if ((link != NULL) && (link->data != NULL)) { token = anjuta_token_list ((AnjutaToken *)link->data); } if ((token != NULL) && (target_list != token)) { /* Target is in another list, do not use it, nor following ones */ list = NULL; if (after) { prev = NULL; } else { next = NULL; } } } if (list != NULL) { gsize best = 0; for (link = list; link != NULL; link = g_list_next (link)) { AnjutaToken *token = (AnjutaToken *)link->data; AnjutaTokenType existing = anjuta_token_get_type (token); if ((existing < AM_TOKEN_FIRST_ORDERED_TARGET_MACRO) || (existing > AM_TOKEN_LAST_ORDERED_TARGET_MACRO)) { token = anjuta_token_list (token); if (token != NULL) existing = anjuta_token_get_type (token); } if ((existing >= AM_TOKEN_FIRST_ORDERED_TARGET_MACRO) && (existing <= AM_TOKEN_LAST_ORDERED_TARGET_MACRO)) { gsize tpos; tpos = anjuta_token_file_get_token_position (makefile, token); if ((best == 0) || (after && (tpos > best)) || (!after && (tpos < best))) { pos = token; best = tpos; } } } g_list_free (list); list = NULL; if (best != 0) break; } after = after ? FALSE : TRUE; } } } /* 3. After target declaration */ if (pos == NULL) { list = amp_target_node_get_token (AMP_TARGET_NODE (target), ANJUTA_TOKEN_ARGUMENT); if (list != NULL) { pos = (AnjutaToken *)list->data; if (pos != NULL) { pos = anjuta_token_list (pos); if (pos != NULL) { pos = anjuta_token_list (pos); } } } after = TRUE; } /* 4. At the end of the file */ if (pos == NULL) { makefile = amp_group_node_get_makefile_token (group); for (pos = anjuta_token_first_item (makefile); (pos != NULL) && (anjuta_token_next_item (pos) != NULL); pos = anjuta_token_next_item (pos)); after = TRUE; } /* 5. Create new file */ if (pos == NULL) { /* Empty file */ pos = anjuta_token_new_string (ANJUTA_TOKEN_COMMENT | ANJUTA_TOKEN_ADDED, "## Process this file with automake to produce Makefile.in\n"); anjuta_token_append_child (makefile, pos); amp_group_node_update_makefile (group, pos); } /* Find end of line */ if (after) { while (pos != NULL) { if (anjuta_token_get_type (pos) == ANJUTA_TOKEN_EOL) break; if (anjuta_token_next (pos) == NULL) { pos = anjuta_token_insert_token_list (after, pos, ANJUTA_TOKEN_EOL, "\n", NULL); break; } pos = anjuta_token_next (pos); } } pos = anjuta_token_insert_token_list (after, pos, ANJUTA_TOKEN_EOL, "\n", NULL); pos = anjuta_token_insert_token_list (after, pos, ANJUTA_TOKEN_EOL, "\n", NULL); amp_group_node_update_makefile (group, pos); return pos; }
static AnjutaToken * amp_property_rename_target (AmpProject *project, AnjutaProjectNode *node) { AnjutaProjectNode *group; GList *infos; GList *item; GString *new_name; AmpNodeInfo *info; GList *list; AnjutaToken *update = NULL; AnjutaToken *existing_target_list; gboolean after; gchar *target_dir; g_return_val_if_fail (anjuta_project_node_get_node_type (node) == ANJUTA_PROJECT_TARGET, NULL); group = anjuta_project_node_parent_type (node, ANJUTA_PROJECT_GROUP); /* Find all program properties */ infos = NULL; for (item = anjuta_project_node_get_properties_info (node); item != NULL; item = g_list_next (item)) { AmpPropertyInfo *info = (AmpPropertyInfo *)item->data; if (info->token_type == AM_TOKEN__PROGRAMS) { infos = g_list_insert_sorted (infos, info, compare_property_position); } } /* Create new name */ new_name = g_string_new (NULL); for (item = infos; item != NULL; item = g_list_next (item)) { AmpPropertyInfo *info = (AmpPropertyInfo *)item->data; AmpProperty *prop; /* Check if property is enabled by another property */ if (info->link != NULL) { AnjutaProjectProperty *en_prop; en_prop = anjuta_project_node_get_property (node, info->link->id); if ((en_prop->value != NULL) && (*en_prop->value == '1')) continue; } prop = (AmpProperty *)anjuta_project_node_get_property (node, info->base.id); if ((prop == (AmpProperty *)info->base.default_value) || (g_strcmp0 (prop->base.value, info->base.default_value->value) == 0)) { /* Default value, add only string properties */ if (info->base.type == ANJUTA_PROJECT_PROPERTY_STRING) { g_string_append (new_name, info->suffix); g_string_append_c (new_name, '_'); } } else { switch (info->base.type) { case ANJUTA_PROJECT_PROPERTY_STRING: if ((info->flags & AM_PROPERTY_DIRECTORY) && (strlen (prop->base.value) > 4) && (strcmp (prop->base.value + strlen (prop->base.value) - 3, "dir") == 0)) { /* Remove "dir" suffix */ g_string_append_len (new_name, prop->base.value, strlen (prop->base.value) - 3); } else { g_string_append (new_name, prop->base.value); } g_string_append_c (new_name, '_'); break; case ANJUTA_PROJECT_PROPERTY_BOOLEAN: if ((prop->base.value != NULL) && (g_strcmp0 (prop->base.value, info->base.default_value->value) != 0)) { g_string_append (new_name, info->suffix); } break; default: break; } } } info = (AmpNodeInfo *)amp_project_get_type_info (project, anjuta_project_node_get_full_type (node)); g_string_append (new_name, info->prefix); if ((anjuta_project_node_get_full_type (node) & ANJUTA_PROJECT_ID_MASK) == ANJUTA_PROJECT_DATA) { list = amp_target_node_get_token (AMP_TARGET_NODE (node), AM_TOKEN__DATA); if ((list != NULL) && (list->data != NULL)) { AnjutaToken *old_token; AnjutaToken *parent; parent = (AnjutaToken *)list->data; old_token = anjuta_token_first_word (parent); if (old_token != NULL) { AnjutaToken *token; token = anjuta_token_new_string (ANJUTA_TOKEN_ADDED, new_name->str); update = anjuta_token_insert_word_after (parent, old_token, token); anjuta_token_remove_word (old_token); update = parent; } } } else { // Check if the target already exist. after = TRUE; for (item = amp_group_node_get_token (AMP_GROUP_NODE (group), AM_GROUP_TARGET); item != NULL; item = g_list_next (item)) { existing_target_list = (AnjutaToken *)item->data; gchar *target_name = anjuta_token_evaluate (anjuta_token_first_word (existing_target_list)); gboolean same; same = strcmp (target_name, new_name->str) == 0; g_free (target_name); if (after) { GList *list; GList *item; list = amp_target_node_get_token (AMP_TARGET_NODE (node), ANJUTA_TOKEN_ARGUMENT); for (item = g_list_first (list); item != NULL; item = g_list_next (item)) { AnjutaToken *arg = (AnjutaToken *)item->data; AnjutaToken *target_list; if (arg != NULL) { target_list = anjuta_token_list (arg); if (anjuta_token_list (target_list) == existing_target_list) { /* token in group_node are stored in reverse order */ after = FALSE; break; } } } } if (same) { existing_target_list = anjuta_token_last_item (existing_target_list); break; } existing_target_list = NULL; } if (existing_target_list != NULL) { GList *token_list; /* Get old tokens */ token_list = g_list_copy (amp_target_node_get_token (AMP_TARGET_NODE (node), ANJUTA_TOKEN_ARGUMENT)); /* Add target in already existing list */ amp_target_add_in_list (project, existing_target_list, node, after, NULL); /* Remove old token */ amp_target_node_delete_token (project, AMP_TARGET_NODE (node), token_list, NULL); g_list_free (token_list); } else { list = amp_target_node_get_token (AMP_TARGET_NODE (node), ANJUTA_TOKEN_ARGUMENT); for (item = g_list_first (list); item != NULL; item = g_list_next (item)) { AnjutaToken *arg = (AnjutaToken *)item->data; AnjutaToken *target_list; if (arg == NULL) continue; target_list = anjuta_token_list (arg); if (anjuta_token_nth_word (target_list, 1) == NULL) { /* Only one target in list, just replace list name */ AnjutaToken *target_variable = anjuta_token_list (target_list); if (target_variable != NULL) { AnjutaToken *old_token; old_token = anjuta_token_first_word (target_variable); if (old_token != NULL) { AnjutaToken *token; token = anjuta_token_new_string (ANJUTA_TOKEN_ADDED, new_name->str); update = anjuta_token_insert_word_after (target_variable, old_token, token); anjuta_token_remove_word (old_token); update = target_variable; } } } else { gchar *old_target; AmpNodeInfo *info; gboolean after = TRUE; AnjutaToken *sibling = NULL; AnjutaTokenStyle *style; AnjutaToken *token; old_target = anjuta_token_evaluate (arg); /* Find sibling target */ if (anjuta_token_first_word (target_list) == arg) { sibling = anjuta_token_next_word (arg); after = FALSE; } else { for (sibling = anjuta_token_first_word (target_list); sibling != NULL; sibling = anjuta_token_next_word (sibling)) { if (anjuta_token_next_word (sibling) == arg) break; } after = TRUE; } /* More than one target, remove target in list */ arg = anjuta_token_remove_word (arg); if (arg != NULL) amp_group_node_update_makefile (AMP_GROUP_NODE (group), arg); /* Add target in new list */ style = anjuta_token_style_new_from_base (project->am_space_list); anjuta_token_style_update (style, target_list); info = (AmpNodeInfo *)amp_project_get_type_info (project, anjuta_project_node_get_full_type (node)); target_list = amp_project_write_target (AMP_GROUP_NODE (group), info->token, new_name->str, after, sibling); token = anjuta_token_new_string (ANJUTA_TOKEN_ARGUMENT | ANJUTA_TOKEN_ADDED, old_target); anjuta_token_insert_word_after (target_list, NULL, token); /* Try to use the same style than the current target list */ anjuta_token_style_format (style, target_list); anjuta_token_style_free (style); amp_group_node_update_makefile (AMP_GROUP_NODE (group), token); amp_target_node_add_token (AMP_TARGET_NODE (node), ANJUTA_TOKEN_ARGUMENT, token); g_free (old_target); update = anjuta_token_list (target_list); } } } } /* Add directory variable if needed */ target_dir = NULL; for (item = anjuta_project_node_get_properties (node); item != NULL; item = g_list_next (item)) { AmpProperty *prop = (AmpProperty *)item->data; if ((((AmpPropertyInfo *)prop->base.info)->token_type == AM_TOKEN__PROGRAMS) && (((AmpPropertyInfo *)prop->base.info)->flags & AM_PROPERTY_DIRECTORY)) { target_dir = prop->base.value; if ((strlen (target_dir) <= 3) || (strcmp (target_dir + strlen(target_dir) - 3, "dir") != 0)) { target_dir = g_strconcat (target_dir, "dir", NULL); g_free (prop->base.value); prop->base.value = target_dir; } break; } } /* If it is a standard directory do not add a variable*/ if (target_dir != NULL) { const gchar **std_dir; for (std_dir = AmpStandardDirectory; *std_dir != NULL; std_dir++) { if (strcmp(*std_dir, target_dir) == 0) { target_dir = NULL; break; } } } if (target_dir != NULL) { for (item = anjuta_project_node_get_properties (group); item != NULL; item = g_list_next (item)) { AmpProperty *prop = (AmpProperty *)item->data; if ((((AmpPropertyInfo *)prop->base.info)->token_type == AM_TOKEN_DIR) && (g_strcmp0 (prop->base.name, target_dir) == 0)) { /* Find already existing directory variable */ target_dir = NULL; break; } } } if ((update != NULL) && (target_dir != NULL)) { update = anjuta_token_insert_token_list (FALSE, update, AM_TOKEN_DIR, NULL, ANJUTA_TOKEN_NAME, target_dir, ANJUTA_TOKEN_SPACE, " ", ANJUTA_TOKEN_OPERATOR, "=", ANJUTA_TOKEN_SPACE, " ", ANJUTA_TOKEN_LIST, NULL, ANJUTA_TOKEN_SPACE, " ", ANJUTA_TOKEN_EOL, "\n", NULL); } g_string_free (new_name, TRUE); return update; }
gboolean amp_source_node_create_token (AmpProject *project, AmpSourceNode *source, GError **error) { AmpGroupNode *group; AmpTargetNode *target; AnjutaProjectNode *sibling; gboolean after; AnjutaToken *token; AnjutaToken *prev; AnjutaToken *args; gchar *relative_name; /* Get parent target */ target = AMP_TARGET_NODE (anjuta_project_node_parent_type (ANJUTA_PROJECT_NODE (source), ANJUTA_PROJECT_TARGET)); if (target == NULL) return FALSE; group = AMP_GROUP_NODE (anjuta_project_node_parent_type (ANJUTA_PROJECT_NODE (target), ANJUTA_PROJECT_GROUP)); relative_name = get_relative_path (anjuta_project_node_get_file (ANJUTA_PROJECT_NODE (group)), anjuta_project_node_get_file (ANJUTA_PROJECT_NODE (source))); /* Add in Makefile.am */ /* Find a sibling if possible */ after = TRUE; for (sibling = anjuta_project_node_prev_sibling (ANJUTA_PROJECT_NODE (source)); sibling != NULL; sibling = anjuta_project_node_prev_sibling (sibling)) { if (anjuta_project_node_get_node_type (sibling) == ANJUTA_PROJECT_SOURCE) { break; } else if (anjuta_project_node_get_node_type (sibling) == ANJUTA_PROJECT_OBJECT) { sibling = anjuta_project_node_first_child (sibling); break; } } if (sibling == NULL) { after = FALSE; for (sibling = anjuta_project_node_next_sibling (ANJUTA_PROJECT_NODE (source)); sibling != NULL; sibling = anjuta_project_node_next_sibling (sibling)) { if (anjuta_project_node_get_node_type (sibling) == ANJUTA_PROJECT_SOURCE) { break; } else if (anjuta_project_node_get_node_type (sibling) == ANJUTA_PROJECT_OBJECT) { sibling = anjuta_project_node_first_child (sibling); break; } } } if (sibling == NULL) { after = TRUE; prev = NULL; args = NULL; } else { prev = amp_source_node_get_token (AMP_SOURCE_NODE (sibling)); args = anjuta_token_list (prev); } /* Check if a valid source variable is already defined */ if (args == NULL) { GList *last; for (last = amp_target_node_get_token (target, AM_TOKEN__SOURCES); last != NULL; last = g_list_next (last)) { args = anjuta_token_last_item ((AnjutaToken *)last->data); break; } if (last == NULL) { for (last = amp_target_node_get_token (target, AM_TOKEN__DATA); last != NULL; last = g_list_next (last)) { args = anjuta_token_last_item ((AnjutaToken *)last->data); break; } } } if (args == NULL) { gchar *target_var; gchar *canon_name; AnjutaToken *var; canon_name = canonicalize_automake_variable (anjuta_project_node_get_name (ANJUTA_PROJECT_NODE (target))); target_var = g_strconcat (canon_name, "_SOURCES", NULL); var = anjuta_token_find_target_property_position (target, AM_TOKEN__SOURCES); if (var == NULL) var = anjuta_token_find_target_property_position (target, AM_TOKEN__DATA); args = anjuta_token_insert_token_list (FALSE, var, ANJUTA_TOKEN_LIST, NULL, ANJUTA_TOKEN_NAME, target_var, ANJUTA_TOKEN_SPACE, " ", ANJUTA_TOKEN_OPERATOR, "=", ANJUTA_TOKEN_LIST, NULL, ANJUTA_TOKEN_SPACE, " ", NULL); args = anjuta_token_last_item (args); g_free (target_var); } if (args != NULL) { AnjutaTokenStyle *style; style = anjuta_token_style_new_from_base (project->am_space_list); anjuta_token_style_update (style, args); token = anjuta_token_new_string (ANJUTA_TOKEN_NAME | ANJUTA_TOKEN_ADDED, relative_name); if (after) { anjuta_token_insert_word_after (args, prev, token); } else { anjuta_token_insert_word_before (args, prev, token); } /* Try to use the same style than the current target list */ anjuta_token_style_format (style, args); anjuta_token_style_free (style); amp_group_node_update_makefile (group, token); amp_source_node_add_token (source, token); } return TRUE; }