Macrolinstruction to C-style comment IN FASMG

Macrolinstruction to C-style comment

Code:

 ;Специальная константа - для многострочных комментариев:
 STR_C_POWER_MULTILINE_STRING_ULTIMAE_CONST equ 
;
; Многострочные комментарии из языка СИ!!!
;

macro ? line&

 match  ,line

    line
 ;
 ;Однострочный комментарий из языка Си:
 ;
 else match //,line

 else match //value,line

 else match str//value,line
       str
 else match str//,line
      str
 ;
 ;Многострочный комментарий из языка Си:
 ;
 else
     ;
     ;Сверяем начало строки СИ!!!
     ;
     match /*,line
         STR_C_POWER_MULTILINE_STRING_ULTIMAE_CONST equ 1

     else match /*value,line
         STR_C_POWER_MULTILINE_STRING_ULTIMAE_CONST equ 1

     else match str/*value,line
         STR_C_POWER_MULTILINE_STRING_ULTIMAE_CONST equ 1
         str

     else match str/*,line
         str
         STR_C_POWER_MULTILINE_STRING_ULTIMAE_CONST equ 1

     end match
     ;Выводим строку, если сигнальная константа не равна 1:
     match ,STR_C_POWER_MULTILINE_STRING_ULTIMAE_CONST

         line

     end match
     ;
     ; проверяем ранее созданную константу:
     ;
     match */,line
         STR_C_POWER_MULTILINE_STRING_ULTIMAE_CONST equ

     else match value*/,line
         STR_C_POWER_MULTILINE_STRING_ULTIMAE_CONST equ

     else match str*/value,line
         STR_C_POWER_MULTILINE_STRING_ULTIMAE_CONST equ
         value

     else match */str,line
         str
         STR_C_POWER_MULTILINE_STRING_ULTIMAE_CONST equ

     end match

 end match

end macro

примеры использования:

Code:

 //
 // test hkbnf kjnkj hkibnhi jini hinhi jbni nki iubni nui juinui juini kjuini uihnui uinui juinui uinui injui uin
 // kjmom oko okm,o oim,o
 // momol ojmoij oimjo oim oimo
 // oi oikoi pokpok pokpo
 // callmaxcro jb kjhn
 //

 /*
   ykjrt macro yui
   675 fbgdsf
   dfs
   fdsg
   dgs
   gsd
   hjbj
   jnm
   kio
   pokmjpo
   pok
   pok
   pok
   pok
*/

Успешно тестировал на fasmg. В идеале думаю, ещё остальные директивы языка C перенести.

calminstruction calminstruction?.initsym? variable*,value& publish variable, value end calminstruction calminstruction ? line& local multi,part,rest initsym multi,0 arrange part, arrange rest, check multi jno start match any? */ part?,line jno done all: compute multi,multi xor 1 clip: arrange line, part rest assemble line done: exit start: match // any?, line jyes done match part? /* any? */ rest?, line jyes clip match part? /* any?, line jyes all match part? // any?, line jyes clip assemble line end calminstruction

// Just test a variety of uses ... display 'I think this will work',10 // just keep trying ... display 'another' /* Some block stuff, we just keep typing */ display ' test',10 // /* what happens here? // what happens here? */ /* // // lets try to make it more difficult // */ display 'more', /* inline */ ' testing is needed',10 /**/