compile "returnX².asm" ;version that launches a fasm command.

 compile on "return0.bin" { ; versions that uses code inside brackets to compile. maybe it should use the sam emethod as in first version after extraction of the source in brackets...
 mov eax,0
 ret
}

compile  { ; this version needs to declare the file to generate, if you don't it will generate a "currentfilexxxxx.bin" file.current file is the name of the osurcefile,  xxxxx is the current compile iteration. each compile would then increment a counter by one.
db "x = 1234",0
db "y = x²",0
}


compile_begin ;maybe the job would be easier if using compile_begin and compile_end tokens...

mov eax,0xedfed
ret

compile_end ;of course, the symbol is still to define.

    

Code:

include_variable db 'INCLUDE',0

symbol_characters db .a-$-1
 db 9,0Ah,0Dh,1Ah,20h,'+-/*=<>()[]{}:,|&~#`;\'
 .a:

macro DIRECTIVE name,where{
local .a
    db .a-$-1
    db name
.a:
    dw where-directive_handler

}

preprocessor_directives:
 DIRECTIVE 'flatassembler',assemble_a_file

 DIRECTIVE 'define',define_symbolic_constant
 DIRECTIVE 'include',include_file
 DIRECTIVE 'irp',irp_directive
 DIRECTIVE 'irps',irps_directive
 DIRECTIVE 'irpv',irpv_directive
 DIRECTIVE 'macro',define_macro
 DIRECTIVE 'match',match_directive
 DIRECTIVE 'postpone',postpone_directive
 DIRECTIVE 'purge',purge_macro
 DIRECTIVE 'rept',rept_directive
 DIRECTIVE 'restore',restore_equ_constant
 DIRECTIVE 'restruc',purge_struc
 DIRECTIVE 'struc',define_struc
 db 0

macro_directives:
 DIRECTIVE 'common',common_block
 DIRECTIVE 'forward',forward_block
 DIRECTIVE 'local',local_symbols
 DIRECTIVE 'reverse',reverse_block
 db 0

macro OPERATOR name,value {
local .a
      db .a-$-1
      db name
.a:
      db value
}

operators:
 OPERATOR '+',80h
 OPERATOR '-',81h
 OPERATOR '*',90h
 OPERATOR '/',91h
 OPERATOR 'and',0B0h
 OPERATOR 'mod',0A0h

...

    

Code:

include_file:
        lods    byte [esi]
        cmp     al,22h
        jne     invalid_argument
        lods    dword [esi]
        cmp     byte [esi+eax],0
        jne     extra_characters_on_line
        push    esi
        push    edi
        mov     ebx,[current_line]
      find_current_file_path:
        mov     esi,[ebx]
        test    byte [ebx+7],80h
        jz      copy_current_file_path
        mov     ebx,[ebx+8]
        jmp     find_current_file_path
      copy_current_file_path:
        lods    byte [esi]
        stos    byte [edi]
        or      al,al
        jnz     copy_current_file_path
      cut_current_file_name:
        cmp     edi,[esp]
        je      current_file_path_ok
        cmp     byte [edi-1],'\'
        je      current_file_path_ok
        cmp     byte [edi-1],'/'
        je      current_file_path_ok
        dec     edi
        jmp     cut_current_file_name
      current_file_path_ok:

...