Interface for qBeta module object

Origin: Compiler

compiler_IF: obj  

   ArrayOfString:  -- using this, gives ENC: DOg.origin is none

      %globals 

      %basic 

      %public 

      in range: var integer

      elm:< Object

      length: 

         out res: var integer

      @put::at: 

         %basic 

         in put: ref String

         in at: var integer

      @get:: 

         %basic 

         in get: var integer

         out V: ref String

   Text: 

      S: ref IndexedRef(,#String)

      Sx: ref ArrayOfString(,#String)

      top: var integer

      length: 

         out V: var integer

      put: 

         in ch: var char

      newline: 

      append: 

         in T: ref String

            --"\nText:append: ".print

            --T.print

            --"\n".print	 

            

      print: 

   Tree:  -- DirectoryModules

      TopNode: 

         --label

         --doPP

         --PP

         --doP

         SuperPP: 

            in pos: var integer

            in break: var Boolean

            mkBreak:< 

               in pos: var integer

               in break: var Boolean

            block: 

               in pos: var integer

               in width: var integer

               break: var boolean

         PT:< SuperPP

         son: ref TopNode

         next: ref TopNode

         last: ref TopNode

         father: ref TopNode

         append: 

            in N: ref TopNode

      lineWidth: var integer

      mark: var boolean

      ind: var integer

      lx: ref Text