dawids/lang-bootstrap
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

pre-defined macros

Browse source
This commit is contained in:
pommicket 2022-01-10 12:00:05 -05:00
parent a0c535620e
commit a8a30458bd
3 changed files with 79 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

15
05/constants.b
View file

@ -142,3 +142,18 @@
:str_else :str_else
string else string else
byte 0 byte 0
:str___FILE__
string __FILE__
byte 0
:str___LINE__
string __LINE__
byte 0
:str___DATE__
string __DATE__
byte 0
:str___TIME__
string __TIME__
byte 0
:str___STDC__
string __STDC__
byte 0

8
05/main.c
View file

@ -0,0 +1,8 @@
__TIME__
__DATE__
__STDC__
__LINE__
__FILE__
#line 7 "aah.c"
__LINE__
__FILE__

56
05/preprocess.b
View file

@ -832,6 +832,17 @@ function macro_replacement
:check_banned_objmacros_loop_end :check_banned_objmacros_loop_end
:objmacro_replacement :objmacro_replacement
b = str_equals(in, .str___FILE__)
if b != 0 goto handle___FILE__
b = str_equals(in, .str___LINE__)
if b != 0 goto handle___LINE__
b = str_equals(in, .str___DATE__)
if b != 0 goto handle___DATE__
b = str_equals(in, .str___TIME__)
if b != 0 goto handle___TIME__
b = str_equals(in, .str___STDC__)
if b != 0 goto handle___STDC__
replacement = look_up_object_macro(in) replacement = look_up_object_macro(in)
if replacement == 0 goto no_replacement if replacement == 0 goto no_replacement
@ -1013,6 +1024,51 @@ function macro_replacement
string No arguments provided to function-like macro. string No arguments provided to function-like macro.
byte 0 byte 0
:handle___FILE__
pptoken_skip(&in)
*1out = '"
out += 1
out = strcpy(out, filename)
*1out = '"
out += 1
*1out = 0
out += 1
goto done_replacement
:handle___LINE__
pptoken_skip(&in)
p = itos(line_number)
out = strcpy(out, p)
out += 1
goto done_replacement
:handle___DATE__
pptoken_skip(&in)
out = strcpy(out, .str_compilation_date)
out += 1
goto done_replacement
:handle___TIME__
pptoken_skip(&in)
out = strcpy(out, .str_compilation_time)
out += 1
goto done_replacement
:handle___STDC__
pptoken_skip(&in)
out = strcpy(out, .str_stdc)
out += 1
goto done_replacement
:str_compilation_date
; "If the date of translation is not available, an implementation-defined valid date shall be supplied." C89 § 3.8.8
string "Jan 01 1970"
byte 0
:str_compilation_time
; "If the time of translation is not available, an implementation-defined valid time shall be supplied." C89 § 3.8.8
string "00:00:00"
byte 0
:str_stdc
; (see @NONSTANDARD) a bit of a lie, but oh well
string 1
byte 0
function fmacro_get_arg function fmacro_get_arg
argument filename argument filename
argument line_number argument line_number