25 #include "pips_config.h"
77 if (strstr(s,
"C <") == s) {
121 if (
same_string_p(ver_name, ver_child_name))
return l_of_vers;
136 bool first_node_parent =
true;
140 bool first_node_child =
true;
142 bool first_sentence =
true;
144 if (first_node_parent)
145 first_node_parent =
false;
151 if (first_sentence) {
153 fprintf(f_out,
"l(\"%s\",n(\"\",[a(\"OBJECT\",\"", tmp);
154 first_sentence =
false;
174 if (first_node_child)
175 first_node_child =
false;
178 fprintf(f_out,
" l(\"\",e(\"\",[],r(\"%s\")))", node_name_child);
179 free(node_name_child);
210 }
else if (strlen(s)) {
212 fprintf(fd,
"%*s%s\n", margin,
"", tmp);
221 (
const char* mod_name,
string res_name,
string file_ext,
vertex start_ver,
list l_of_vers,
bool res_text_type)
223 string filename, localfilename, dir;
void free_vertex(vertex p)
successor make_successor(arc_label a1, vertex a2)
void write_an_attachment_file(string file_name)
Add the attachment in Emacs mode by creating a twin file that is decorated with Emacs properties:
FILE * safe_fopen(const char *filename, const char *what)
int safe_fclose(FILE *stream, const char *filename)
#define successor_vertex(x)
#define vertex_vertex_label(x)
#define vertex_successors(x)
#define vertex_undefined_p(x)
#define SUCCESSOR(x)
SUCCESSOR.
#define NIL
The empty list (nil in Lisp)
#define CAR(pcons)
Get the value of the first element of a list.
void gen_free_list(list l)
free the spine of the list
bool gen_in_list_p(const void *vo, const list lx)
tell whether vo belongs to lx
#define FOREACH(_fe_CASTER, _fe_item, _fe_list)
Apply/map an instruction block on all the elements of a list.
#define MAP(_map_CASTER, _map_item, _map_code, _map_list)
Apply/map an instruction block on all the elements of a list (old fashioned)
#define DB_PUT_FILE_RESOURCE
Put a file resource into the current workspace database.
#define ADD_ELEMENT_TO_LIST(_list, _type, _element)
list safe_make_successor(vertex ver_parent, vertex ver_child, list l_of_vers)
void print_graph_of_text_to_daVinci(FILE *f_out, list l_of_vers)
vertex get_vertex_by_string(const char *str_name, list l_of_vers)
list list_of_connected_nodes(vertex ver, list l_of_vers)
list safe_add_vertex_to_list(vertex ver, list l_of_vers)
void print_graph_daVinci_from_starting_node(FILE *f_out, vertex start_ver)
bool make_resource_from_starting_node(const char *mod_name, string res_name, string file_ext, vertex start_ver, list l_of_vers, bool res_text_type)
static string convert_string_for_daVinci_graph(string s)
void safe_free_vertex(vertex ver, list l_of_vers)
util.c
void print_marged_text_from_starting_node(FILE *fd, int margin, vertex start_ver, list l_of_vers)
string db_build_file_resource_name(const char *rname, const char *oname, const char *suffix)
returns an allocated file name for a file resource.
void * memset(void *str, int c, size_t len)
memset.c – set an area of memory to a given value Copyright (C) 1991, 2003, 2009-2011 Free Software F...
string remove_newline_of_string(string)
string concatenate(const char *,...)
Return the concatenation of the given strings.
#define same_string_p(s1, s2)
string db_get_current_workspace_directory(void)
int sens
facteur multiplicatif suivant qu'on analyse un terme
int fprintf()
test sc_min : ce test s'appelle par : programme fichier1.data fichier2.data ...
The structure used to build lists in NewGen.
string sentence_to_string(sentence sen)
SG: moved here from icfdg.
string first_word_of_sentence(sentence s)
Return the first word of a sentence:
struct _newgen_struct_text_ * text
#define SENTENCE(x)
newgen_unformatted_domain_defined
#define text_sentences(x)