107 error_texts[i] =
USE(
CAR(t));
132 DEUSE(error_texts[i]);
172 printf(
"<ATOM> [%08x] error=[code=%d]\n",(
int)a,code);
182 #ifdef DEBUG_RUNTIME_ATOMS
186 dump_atom_address( a );
191 #ifdef DEBUG_COMPILETIME_ATOMS
195 dump_atom_address( a );
202 all_errors =
new_list( a, all_errors );
359 #define RIGHT_DIST 40
362 if( !source || position<0 )
return;
370 if( position-left == 0 ) {ellipses=0;
break;}
373 char_t ch = *(source+(position-left-1));
374 if( ch==
TEXT(
'\n') || ch==
TEXT(
'\r') ) {ellipses=0;
break;}
376 while( left && ((*(source+position-left))<=
TEXT(
' ')) ) left--;
381 char_t ch = *(source+(position+right+1));
382 if( ch==
'\n' || ch==
'\r' || ch==
'\0')
break;
388 for( i=0,s=source+position-left; i<left+right+1; i++,s++ )
outter( s, 1 );
389 if( *(source+position+right+1)>=
TEXT(
' ') )
392 for( i=0; i<left+3*ellipses; i++ )
outter(
TEXT(
" "), 1 );
413 #define DUMP_BUF_SIZE 128
506 if( err==
NULL )
return;