9 lines
434 B
Plaintext
9 lines
434 B
Plaintext
$HL,1$$WW,0$#define __DATE__ #exe{StreamPrint("\"%D\"",Now);}
|
|
#define __TIME__ #exe{StreamPrint("\"%T\"",Now);}
|
|
#define __LINE__ #exe{StreamPrint("%d",Fs->last_lex->cur_lfn->line_num);}
|
|
#define __DEPTH__ #exe{StreamPrint("%d",Fs->last_lex->cur_lfn-&Fs->last_lex->lfns-1);}
|
|
#define __FILE__ #exe{StreamPrint("\"%s\"",Fs->last_lex->cur_lfn->full_name);}
|
|
#define __DIR__ #exe{StreamDir;}
|
|
|
|
See $LK,"::/Demo/Directives.CPP"$.$HL,0$$WW,1$
|