Subversion Repositories Kolibri OS

 { fields@struct equ name

   match child parent, name \{ fields@struct equ child,fields@\#parent \}

   sub@struct equ

   struc db [val] \{ \common fields@struct equ fields@struct,.,db, \}

   struc dw [val] \{ \common fields@struct equ fields@struct,.,dw, \}

   struc du [val] \{ \common fields@struct equ fields@struct,.,du, \}

   struc dd [val] \{ \common fields@struct equ fields@struct,.,dd, \}

   struc dp [val] \{ \common fields@struct equ fields@struct,.,dp, \}

   struc dq [val] \{ \common fields@struct equ fields@struct,.,dq, \}

   struc dt [val] \{ \common fields@struct equ fields@struct,.,dt, \}

   struc rb count \{ fields@struct equ fields@struct,.,db,count dup (?) \}

   struc rw count \{ fields@struct equ fields@struct,.,dw,count dup (?) \}

   struc rd count \{ fields@struct equ fields@struct,.,dd,count dup (?) \}

   struc rp count \{ fields@struct equ fields@struct,.,dp,count dup (?) \}

   struc rq count \{ fields@struct equ fields@struct,.,dq,count dup (?) \}

   struc rt count \{ fields@struct equ fields@struct,.,dt,count dup (?) \}

   macro db [val] \{ \common \local anonymous

		     fields@struct equ fields@struct,anonymous,db, \}

   macro dw [val] \{ \common \local anonymous

		     fields@struct equ fields@struct,anonymous,dw, \}

   macro du [val] \{ \common \local anonymous

		     fields@struct equ fields@struct,anonymous,du, \}

   macro dd [val] \{ \common \local anonymous

		     fields@struct equ fields@struct,anonymous,dd, \}

   macro dp [val] \{ \common \local anonymous

		     fields@struct equ fields@struct,anonymous,dp, \}

   macro dq [val] \{ \common \local anonymous

		     fields@struct equ fields@struct,anonymous,dq, \}

   macro dt [val] \{ \common \local anonymous

		     fields@struct equ fields@struct,anonymous,dt, \}

   macro rb count \{ \local anonymous

		     fields@struct equ fields@struct,anonymous,db,count dup (?) \}

   macro rw count \{ \local anonymous

		     fields@struct equ fields@struct,anonymous,dw,count dup (?) \}

   macro rd count \{ \local anonymous

		     fields@struct equ fields@struct,anonymous,dd,count dup (?) \}

   macro rp count \{ \local anonymous

		     fields@struct equ fields@struct,anonymous,dp,count dup (?) \}

   macro rq count \{ \local anonymous

		     fields@struct equ fields@struct,anonymous,dq,count dup (?) \}

   macro rt count \{ \local anonymous

		     fields@struct equ fields@struct,anonymous,dt,count dup (?) \}

   macro union \{ fields@struct equ fields@struct,,union,<

		  sub@struct equ union \}

   macro struct \{ fields@struct equ fields@struct,,substruct,<

		  sub@struct equ substruct \}

   virtual at 0 }

 { match , sub@struct \{ restruc db,dw,du,dd,dp,dq,dt

			 restruc rb,rw,rd,rp,rq,rt

			 purge db,dw,du,dd,dp,dq,dt

			 purge rb,rw,rd,rp,rq,rt

			 purge union,struct

			 match name=,fields,fields@struct \\{ fields@struct equ

							      make@struct name,fields

							      fields@\\#name equ fields \\}

			 end virtual \}

   match any, sub@struct \{ fields@struct equ fields@struct> \}

   restore sub@struct }

 { common

    if $

     display 'Error: definition of ',`name,' contains illegal instructions.',0Dh,0Ah

     err

    end if

    local define

    define equ name

   forward

    local sub

    match , field \{ make@substruct type,name,sub def

		     define equ define,.,sub, \}

    match any, field \{ define equ define,.#field,type, \}

   common

    match fields, define \{ define@struct fields \} }

 { common

    local list

    list equ

   forward

    if ~ field eq .

     name#field type def

     sizeof.#name#field = $ - name#field

    else

     rb sizeof.#type

    end if

    local value

    match any, list \{ list equ list, \}

    list equ list 

   common

    sizeof.#name = $

    restruc name

    match values, list \{

    struc name value \\{

    match any, fields@struct \\\{ fields@struct equ fields@struct,.,name, \\\}

    match , fields@struct \\\{ label .

   forward

     match , value \\\\{ field type def \\\\}

     match any, value \\\\{ field type value

			   if ~ field eq .

			    rb sizeof.#name#field - ($-field)

			   end if \\\\}

   common \\\} \\} \} }

 { macro make@substruct substruct,parent,name,[field,type,def]

    \{ \common

	\local define

	define equ parent,name

       \forward

	\local sub

	match , field \\{ match any, type \\\{ enable@substruct

					       make@substruct type,name,sub def

					       purge make@substruct

					       define equ define,.,sub, \\\} \\}

	match any, field \\{ define equ define,.\#field,type, \\}

       \common

	match fields, define \\{ define@\#substruct fields \\} \} }

 { common

    virtual at 0

   forward

    if ~ field eq .

     virtual at 0

      parent#field type def

      sizeof.#parent#field = $ - parent#field

     end virtual

     if sizeof.#parent#field > $

      rb sizeof.#parent#field - $

     end if

    else if sizeof.#type > $

     rb sizeof.#type - $

    end if

   common

    sizeof.#name = $

    end virtual

    struc name [value] \{ \common

    label .\#name

    last@union equ

   forward

    match any, last@union \\{ virtual at .\#name

			       field type def

			      end virtual \\}

    match , last@union \\{ match , value \\\{ field type def \\\}

			   match any, value \\\{ field type value \\\} \\}

    last@union equ field

   common rb sizeof.#name - ($ - .\#name) \} }

 { common

    virtual at 0

   forward

    if ~ field eq .

     parent#field type def

     sizeof.#parent#field = $ - parent#field

    else

     rb sizeof.#type

    end if

    local value

   common

    sizeof.#name = $

    end virtual

    struc name value \{

    label .\#name

   forward

     match , value \\{ field type def \\}

     match any, value \\{ field type value

			  if ~ field eq .

			   rb sizeof.#parent#field - ($-field)

			  end if \\}

   common \} }

>