Alexander_KS/SAPFOR
4
2
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

dvm updated, version of sapfor updated

Browse Source
This commit is contained in:
ALEXks
2024-03-16 17:35:51 +03:00
parent ed34da415a
commit 11888f2ff9
10 changed files with 108 additions and 51 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
dvm/fdvm/trunk/Sage/lib/newsrc/low_level.c
View File

@@ -54,6 +54,7 @@ int getLastLabelId();
int isItInSection();
int Init_Tool_Box();
void Message();
PTR_BFND rec_num_near_search();
PTR_BFND Redo_Bif_Next_Chain_Internal();
PTR_SYMB duplicateSymbol();
@@ -82,6 +83,12 @@ int out_upper_case;
int out_line_unlimit;
int out_line_length; // out_line_length = 132 for -ffo mode; out_line_length = 72 for -uniForm mode
PTR_SYMB last_file_symbol;
struct file_symbol {
char *fname;
PTR_SYMB last_symb;
struct file_symbol *next;
} ;
struct file_symbol *file_last_symbol = NULL;
static int CountNullBifNext = 0; /* for internal debugging */
@@ -94,7 +101,6 @@ enum typenode node_code_kind[LAST_CODE];
char info_type[LAST_CODE][MAXFIELDTYPE];
char info_symb[LAST_CODE][MAXFIELDSYMB];
char general_info[LAST_CODE][MAXFIELDSYMB];
/*static struct bif_stack_level *stack_level = NULL;*/
/*static struct bif_stack_level *current_level = NULL;*/
@@ -247,6 +253,24 @@ char* mymalloc(int size)
return pt1;
}
PTR_SYMB FileLastSymbol(char *file_name)
{
struct file_symbol *fsl;
for(fsl=file_last_symbol; fsl; fsl=fsl->next)
if(!strcmp(file_name, fsl->fname))
return fsl->last_symb;
return NULL;
}
void addFileSymbolList(char *file_name, PTR_SYMB symb)
{
struct file_symbol *fsl;
fsl = (struct file_symbol *) xmalloc(sizeof (struct file_symbol));
fsl->last_symb = symb;
fsl->fname = file_name;
fsl->next = file_last_symbol;
file_last_symbol = fsl;
}
/***************** Provides infos on nodes ********************************
* *
* based on the table info in include dir *.def *
@@ -549,6 +573,7 @@ void Message(char *s, int l)
#endif
}
/***************************************************************************/
/* A set of functions for dealing with a free list for low_level node */
/***************************************************************************/
@@ -1203,14 +1228,13 @@ int Init_Tool_Box()
number_of_ll_node = CUR_FILE_NUM_LLNDS() + 1;
number_of_bif_node = CUR_FILE_NUM_BIFS() + 1;
number_of_symb_node = CUR_FILE_NUM_SYMBS() + 1;
last_file_symbol = CUR_FILE_CUR_SYMB(); /* podd 23.06.15 */
addFileSymbolList(CUR_FILE_NAME(), CUR_FILE_CUR_SYMB()); /* podd 01.03.24 */
if (CUR_FILE_NAME()) strcpy(Current_File_name, CUR_FILE_NAME());
if (ToolBOX_INIT)
return 0;
ToolBOX_INIT = 1;
make_a_malloc_stack();
/* initialisation des noeuds */

24
dvm/fdvm/trunk/Sage/lib/newsrc/unparse.c
View File

@@ -736,10 +736,11 @@ void Init_Unparser()
/* set the first tabulation */
TabNumber = 1;
}
} else
{
if (Parser_Initiated != C_Initialized)
{
}
else
{
if (Parser_Initiated != C_Initialized)
{
#define DEFNODECODE(SYM, NAME, TYPE, LENGTH, NT) Unparse_Def[SYM].str = create_unp_str( NAME);
#include"unparseC++.def"
#undef DEFNODECODE
@@ -747,12 +748,15 @@ void Init_Unparser()
#define DEFNODECODE(SYM, NAME, TYPE, LENGTH, NT) Unparse_Def[SYM].fct = NULL;
#include"unparseC++.def"
#undef DEFNODECODE
Parser_Initiated = C_Initialized;
/* init precedence table of operators for C++ */
for(i=BIT_COMPLEMENT_OP - EQ_OP; i<=RSHIFT_ASSGN_OP-EQ_OP;i++)
precedence_C[i] = precedence2_C[i-BIT_COMPLEMENT_OP+EQ_OP];
}
}
Parser_Initiated = C_Initialized;
/* set the first tabulation */
TabNumber = 0;
/* init precedence table of operators for C++ */
for(i=BIT_COMPLEMENT_OP - EQ_OP; i<=RSHIFT_ASSGN_OP-EQ_OP;i++)
precedence_C[i] = precedence2_C[i-BIT_COMPLEMENT_OP+EQ_OP];
}
}
/* initialize the number of flag */