Subversion Repositories Kolibri OS

Rev

Rev 4850 | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

  1.  
  2. ; Macroinstructions for defining data structures
  3.  
  4. macro struct name
  5.  { virtual at 0
  6.    fields@struct equ name
  7.    match child parent, name \{ fields@struct equ child,fields@\#parent \}
  8.    sub@struct equ
  9.    struc db [val] \{ \common define field@struct .,db,<val>
  10.                              fields@struct equ fields@struct,field@struct \}
  11.    struc dw [val] \{ \common define field@struct .,dw,<val>
  12.                              fields@struct equ fields@struct,field@struct \}
  13.    struc du [val] \{ \common define field@struct .,du,<val>
  14.                              fields@struct equ fields@struct,field@struct \}
  15.    struc dd [val] \{ \common define field@struct .,dd,<val>
  16.                              fields@struct equ fields@struct,field@struct \}
  17.    struc dp [val] \{ \common define field@struct .,dp,<val>
  18.                              fields@struct equ fields@struct,field@struct \}
  19.    struc dq [val] \{ \common define field@struct .,dq,<val>
  20.                              fields@struct equ fields@struct,field@struct \}
  21.    struc dt [val] \{ \common define field@struct .,dt,<val>
  22.                              fields@struct equ fields@struct,field@struct \}
  23.    struc rb count \{ define field@struct .,db,count dup (?)
  24.                      fields@struct equ fields@struct,field@struct \}
  25.    struc rw count \{ define field@struct .,dw,count dup (?)
  26.                      fields@struct equ fields@struct,field@struct \}
  27.    struc rd count \{ define field@struct .,dd,count dup (?)
  28.                      fields@struct equ fields@struct,field@struct \}
  29.    struc rp count \{ define field@struct .,dp,count dup (?)
  30.                      fields@struct equ fields@struct,field@struct \}
  31.    struc rq count \{ define field@struct .,dq,count dup (?)
  32.                      fields@struct equ fields@struct,field@struct \}
  33.    struc rt count \{ define field@struct .,dt,count dup (?)
  34.                      fields@struct equ fields@struct,field@struct \}
  35.    macro db [val] \{ \common \local anonymous
  36.                      define field@struct anonymous,db,<val>
  37.                      fields@struct equ fields@struct,field@struct \}
  38.    macro dw [val] \{ \common \local anonymous
  39.                      define field@struct anonymous,dw,<val>
  40.                      fields@struct equ fields@struct,field@struct \}
  41.    macro du [val] \{ \common \local anonymous
  42.                      define field@struct anonymous,du,<val>
  43.                      fields@struct equ fields@struct,field@struct \}
  44.    macro dd [val] \{ \common \local anonymous
  45.                      define field@struct anonymous,dd,<val>
  46.                      fields@struct equ fields@struct,field@struct \}
  47.    macro dp [val] \{ \common \local anonymous
  48.                      define field@struct anonymous,dp,<val>
  49.                      fields@struct equ fields@struct,field@struct \}
  50.    macro dq [val] \{ \common \local anonymous
  51.                      define field@struct anonymous,dq,<val>
  52.                      fields@struct equ fields@struct,field@struct \}
  53.    macro dt [val] \{ \common \local anonymous
  54.                      define field@struct anonymous,dt,<val>
  55.                      fields@struct equ fields@struct,field@struct \}
  56.    macro rb count \{ \local anonymous
  57.                      define field@struct anonymous,db,count dup (?)
  58.                      fields@struct equ fields@struct,field@struct \}
  59.    macro rw count \{ \local anonymous
  60.                      define field@struct anonymous,dw,count dup (?)
  61.                      fields@struct equ fields@struct,field@struct \}
  62.    macro rd count \{ \local anonymous
  63.                      define field@struct anonymous,dd,count dup (?)
  64.                      fields@struct equ fields@struct,field@struct \}
  65.    macro rp count \{ \local anonymous
  66.                      define field@struct anonymous,dp,count dup (?)
  67.                      fields@struct equ fields@struct,field@struct \}
  68.    macro rq count \{ \local anonymous
  69.                      define field@struct anonymous,dq,count dup (?)
  70.                      fields@struct equ fields@struct,field@struct \}
  71.    macro rt count \{ \local anonymous
  72.                      define field@struct anonymous,dt,count dup (?)
  73.                      fields@struct equ fields@struct,field@struct \}
  74.    macro union \{ fields@struct equ fields@struct,,union,<
  75.                   sub@struct equ union \}
  76.    macro struct \{ fields@struct equ fields@struct,,substruct,<
  77.                   sub@struct equ substruct \} }
  78.  
  79. macro ends
  80.  { match , sub@struct \{ restruc db,dw,du,dd,dp,dq,dt
  81.                          restruc rb,rw,rd,rp,rq,rt
  82.                          purge db,dw,du,dd,dp,dq,dt
  83.                          purge rb,rw,rd,rp,rq,rt
  84.                          purge union,struct
  85.                          match name tail,fields@struct, \\{ if $
  86.                                                             display 'Error: definition of ',\\`name,' contains illegal instructions.',0Dh,0Ah
  87.                                                             err
  88.                                                             end if \\}
  89.                          match name=,fields,fields@struct \\{ fields@struct equ
  90.                                                               make@struct name,fields
  91.                                                               define fields@\\#name fields \\}
  92.                          end virtual \}
  93.    match any, sub@struct \{ fields@struct equ fields@struct> \}
  94.    restore sub@struct }
  95.  
  96. macro make@struct name,[field,type,def]
  97.  { common
  98.     local define
  99.     define equ name
  100.    forward
  101.     local sub
  102.     match , field \{ make@substruct type,name,sub def
  103.                      define equ define,.,sub, \}
  104.     match any, field \{ define equ define,.#field,type,<def> \}
  105.    common
  106.     match fields, define \{ define@struct fields \} }
  107.  
  108. macro define@struct name,[field,type,def]
  109.  { common
  110.     virtual
  111.     db `name
  112.     load initial@struct byte from 0
  113.     if initial@struct = '.'
  114.     display 'Error: name of structure should not begin with a dot.',0Dh,0Ah
  115.     err
  116.     end if
  117.     end virtual
  118.     local list
  119.     list equ
  120.    forward
  121.     if ~ field eq .
  122.      name#field type def
  123.      sizeof.#name#field = $ - name#field
  124.     else
  125.      label name#.#type
  126.      rb sizeof.#type
  127.     end if
  128.     local value
  129.     match any, list \{ list equ list, \}
  130.     list equ list <value>
  131.    common
  132.     sizeof.#name = $
  133.     restruc name
  134.     match values, list \{
  135.     struc name value \\{ \\local \\..base
  136.     match any, fields@struct \\\{ fields@struct equ fields@struct,.,name,<values> \\\}
  137.     match , fields@struct \\\{ label \\..base
  138.    forward
  139.      match , value \\\\{ field type def \\\\}
  140.      match any, value \\\\{ field type value
  141.                             if ~ field eq .
  142.                              rb sizeof.#name#field - ($-field)
  143.                             end if \\\\}
  144.    common label . at \\..base \\\}
  145.    \\}
  146.     macro name value \\{
  147.     match any, fields@struct \\\{ \\\local anonymous
  148.                                   fields@struct equ fields@struct,anonymous,name,<values> \\\}
  149.     match , fields@struct \\\{
  150.    forward
  151.      match , value \\\\{ type def \\\\}
  152.      match any, value \\\\{ \\\\local ..field
  153.                            ..field = $
  154.                            type value
  155.                            if ~ field eq .
  156.                             rb sizeof.#name#field - ($-..field)
  157.                            end if \\\\}
  158.    common \\\} \\} \} }
  159.  
  160. macro enable@substruct
  161.  { macro make@substruct substruct,parent,name,[field,type,def]
  162.     \{ \common
  163.         \local define
  164.         define equ parent,name
  165.        \forward
  166.         \local sub
  167.         match , field \\{ match any, type \\\{ enable@substruct
  168.                                                make@substruct type,parent,sub def
  169.                                                purge make@substruct
  170.                                                define equ define,.,sub, \\\} \\}
  171.         match any, field \\{ define equ define,.\#field,type,<def> \\}
  172.        \common
  173.         match fields, define \\{ define@\#substruct fields \\} \} }
  174.  
  175. enable@substruct
  176.  
  177. macro define@union parent,name,[field,type,def]
  178.  { common
  179.     virtual at parent#.#name
  180.    forward
  181.     if ~ field eq .
  182.      virtual at parent#.#name
  183.       parent#field type def
  184.       sizeof.#parent#field = $ - parent#field
  185.      end virtual
  186.      if sizeof.#parent#field > $ - parent#.#name
  187.       rb sizeof.#parent#field - ($ - parent#.#name)
  188.      end if
  189.     else
  190.      virtual at parent#.#name
  191.       label parent#.#type
  192.       type def
  193.      end virtual
  194.      label name#.#type at parent#.#name
  195.      if sizeof.#type > $ - parent#.#name
  196.       rb sizeof.#type - ($ - parent#.#name)
  197.      end if
  198.     end if
  199.    common
  200.     sizeof.#name = $ - parent#.#name
  201.     end virtual
  202.     struc name [value] \{ \common
  203.     label .\#name
  204.     last@union equ
  205.    forward
  206.     match any, last@union \\{ virtual at .\#name
  207.                                field type def
  208.                               end virtual \\}
  209.     match , last@union \\{ match , value \\\{ field type def \\\}
  210.                            match any, value \\\{ field type value \\\} \\}
  211.     last@union equ field
  212.    common rb sizeof.#name - ($ - .\#name) \}
  213.     macro name [value] \{ \common \local ..anonymous
  214.                           ..anonymous name value \} }
  215.  
  216. macro define@substruct parent,name,[field,type,def]
  217.  { common
  218.     virtual at parent#.#name
  219.    forward
  220.     if ~ field eq .
  221.      parent#field type def
  222.      sizeof.#parent#field = $ - parent#field
  223.     else
  224.      label parent#.#type
  225.      rb sizeof.#type
  226.     end if
  227.    common
  228.     sizeof.#name = $ - parent#.#name
  229.     end virtual
  230.     struc name value \{
  231.     label .\#name
  232.    forward
  233.      match , value \\{ field type def \\}
  234.      match any, value \\{ field type value
  235.                           if ~ field eq .
  236.                            rb sizeof.#parent#field - ($-field)
  237.                           end if \\}
  238.    common \}
  239.     macro name value \{ \local ..anonymous
  240.                         ..anonymous name \} }
  241.