void free_some_mem( void )
{
if( token_buf != NULL ) {
mem_free( token_buf );
}
if( alt_ext != NULL ) {
mem_free( alt_ext );
}
if( def_ext != NULL ) {
mem_free( def_ext );
}
if( master_fname != NULL ) {
mem_free( master_fname );
}
if( master_fname_attr != NULL ) {
mem_free( master_fname_attr );
}
if( dev_name != NULL ) {
mem_free( dev_name );
}
if( lay_files != NULL ) {
laystack * lwk;
while( lay_files != NULL ) {
lwk = lay_files->next;
mem_free( lay_files );
lay_files = lwk;
}
}
if( out_file != NULL ) {
mem_free( out_file );
}
if( out_file_attr != NULL ) {
mem_free( out_file_attr );
}
if( global_dict != NULL ) {
free_dict( &global_dict );
}
if( macro_dict != NULL ) {
free_macro_dict( ¯o_dict );
}
if( ref_dict != NULL ) {
free_ref_dict( &ref_dict );
}
if( fig_dict != NULL ) {
free_ref_dict( &fig_dict );
}
if( fn_dict != NULL ) {
free_ref_dict( &fn_dict );
}
if( tag_dict != NULL ) {
free_tag_dict( &tag_dict );
}
if( index_dict != NULL ) {
free_index_dict( &index_dict );
}
if( buff2 != NULL ) {
mem_free( buff2 );
}
if( workbuf != NULL ) {
mem_free( workbuf );
}
if( t_line != NULL ) {
add_text_chars_to_pool( t_line );
add_text_line_to_pool( t_line );
}
if( t_element != NULL ) {
clear_doc_element( t_element );
}
if( t_page.top_ban != NULL ) {
if( t_page.top_ban->first != NULL ) {
clear_doc_element( t_page.top_ban->first );
add_doc_el_to_pool( t_page.top_ban->first );
}
add_ban_col_to_pool( t_page.top_ban );
}
if( t_page.page_width != NULL ) {
clear_doc_element( t_page.page_width );
add_doc_el_to_pool( t_page.page_width );
}
if( t_page.main != NULL ) {
if( t_page.main->main != NULL ) {
clear_doc_element( t_page.main->main );
add_doc_el_to_pool( t_page.main->main );
}
if( t_page.main->bot_fig != NULL ) {
clear_doc_element( t_page.main->bot_fig );
add_doc_el_to_pool( t_page.main->bot_fig );
}
if( t_page.main->footnote != NULL ) {
clear_doc_element( t_page.main->footnote );
add_doc_el_to_pool( t_page.main->footnote );
}
add_doc_col_to_pool( t_page.main );
}
if( t_page.bot_ban != NULL ) {
if( t_page.bot_ban->first != NULL ) {
clear_doc_element( t_page.bot_ban->first );
add_doc_el_to_pool( t_page.bot_ban->first );
}
add_ban_col_to_pool( t_page.bot_ban );
}
if( n_page.col_top != NULL ) {
clear_doc_element( n_page.col_top );
add_doc_el_to_pool( n_page.col_top );
}
if( n_page.col_main != NULL ) {
clear_doc_element( n_page.col_main );
add_doc_el_to_pool( n_page.col_main );
}
if( n_page.col_bot != NULL ) {
clear_doc_element( n_page.col_bot );
add_doc_el_to_pool( n_page.col_bot );
}
if( n_page.col_fn != NULL ) {
clear_doc_element( n_page.col_fn );
add_doc_el_to_pool( n_page.col_fn );
}
free_layout_banner();
free_pool_storage();
}
void scr_gt( void )
{
char * p;
char * pn;
char savetag;
int k;
int len;
char macname[MAC_NAME_LENGTH + 1];
condcode cc;
gtentry * wk;
gtflags tag_flags;
enum {
f_add = 1,
f_change,
f_delete,
f_off,
f_on,
f_print
} function;
garginit(); // find end of CW
/***********************************************************************/
/* isolate tagname or use previous if tagname * */
/***********************************************************************/
cc = getarg(); // Tagname
if( cc == omit ) {
// no operands
tag_name_missing_err();
return;
}
p = tok_start;
if( *p == '*' ) { // single * as tagname
if( arg_flen > 1 ) {
xx_err( err_tag_name_inv );
return;
}
savetag = '*'; // remember for possible global delete / print
if( GlobalFlags.firstpass && input_cbs->fmflags & II_research ) {
if( tag_entry != NULL ) {
out_msg(" using tagname %s %s\n", tagname, tag_entry->name );
}
}
} else {
savetag = ' '; // no global function for delete / print
init_tag_att(); // forget previous values for quick access
attname[0] = '*';
pn = tagname;
len = 0;
while( *p && is_macro_char( *p ) ) {
if( len < TAG_NAME_LENGTH ) {
*pn++ = tolower( *p++ );// copy lowercase tagname
*pn = '\0';
} else {
break;
}
len++;
}
for( k = len; k < TAG_NAME_LENGTH; k++ ) {
tagname[k] = '\0';
}
tagname[TAG_NAME_LENGTH] = '\0';
if( len < arg_flen ) {
xx_err( err_tag_name_inv );
return;
}
}
/***********************************************************************/
/* get function operand add, change, ... */
/***********************************************************************/
cc = getarg();
if( cc == omit ) {
xx_err( err_tag_func_inv );
return;
}
p = tok_start;
function = 0;
switch( tolower( *p ) ) {
case 'a':
if( !strnicmp( "ADD ", p, 4 ) ) {
function = f_add;
}
break;
case 'c' :
if( (arg_flen > 2) && (arg_flen < 7)
&& !strnicmp( "CHANGE", p, arg_flen ) ) {
function = f_change;
}
break;
case 'o' :
if( !strnicmp( "OFF", p, 3 ) ) {
function = f_off;
} else {
if( !strnicmp( "ON", p, 2 ) ) {
function = f_on;
}
}
break;
case 'd' :
if( (arg_flen > 2) && (arg_flen < 7)
&& !strnicmp( "DELETE", p, arg_flen ) ) {
function = f_delete;
}
break;
case 'p' :
if( (arg_flen > 1) && (arg_flen < 6)
&& !strnicmp( "PRINT", p, arg_flen ) ) {
function = f_print;
}
break;
default:
// nothing
break;
}
if( function == 0 ) { // no valid function specified
xx_err( err_tag_func_inv );
return;
}
cc = getarg(); // get possible next parm
/***********************************************************************/
/* for add and change get macroname */
/***********************************************************************/
if( function == f_add || function == f_change ) { // need macroname
if( cc == omit ) {
xx_err( err_tag_mac_name );
return;
}
p = tok_start;
pn = macname;
len = 0;
while( *p && is_macro_char( *p ) ) {
if( len < MAC_NAME_LENGTH ) {
*pn++ = tolower( *p++ ); // copy lowercase macroname
*pn = '\0';
} else {
break;
}
len++;
}
for( k = len; k < MAC_NAME_LENGTH; k++ ) {
macname[k] = '\0';
}
macname[MAC_NAME_LENGTH] = '\0';
tag_flags = 0;
if( function == f_add ) { // collect tag options
cc = scan_tag_options( &tag_flags );
if( cc != omit ) { // not all processed error
xx_err( err_tag_opt_inv );
}
tag_entry = add_tag( &tag_dict, tagname, macname, tag_flags ); // add to dictionary
// if tag_entry is now NULL, error (+ msg) was output in add_tag
} else { // is function change
tag_entry = change_tag( &tag_dict, tagname, macname );
}
} else {
/***********************************************************************/
/* after delete, off, on, print nothing allowed */
/***********************************************************************/
if( cc != omit ) {
xx_err( err_tag_toomany ); // nothing more allowed
}
switch( function ) {
case f_print :
if( savetag == '*' ) {
print_tag_dict( tag_dict );
} else {
print_tag_entry( find_tag( &tag_dict, tagname ) );
}
break;
case f_delete :
if( savetag == '*' ) {
free_tag_dict( &tag_dict );
} else {
free_tag( &tag_dict, find_tag( &tag_dict, tagname ) );
}
break;
case f_off :
if( savetag == '*' && tag_entry != NULL ) {// off for last defined
tag_entry->tagflags |= tag_off;
} else {
wk = find_tag( &tag_dict, tagname );
if( wk != NULL ) {
wk->tagflags |= tag_off;
}
}
break;
case f_on :
if( savetag == '*' && tag_entry != NULL ) {// on for last defined
tag_entry->tagflags |= tag_off;
} else {
wk = find_tag( &tag_dict, tagname );
if( wk != NULL ) {
wk->tagflags &= ~tag_off;
}
}
break;
default:
break;
}
}
scan_restart = scan_stop +1;
return;
}
