[Oberon] FPGA - ORP.Compile * `marked viewer'

[Andreas Pirklbauer]

  PROCEDURE MarkedViewerText* (): Texts.Text;

    VAR V: Viewers.Viewer; T: Texts.Text;

  BEGIN V := Oberon.MarkedViewer();

    IF (V.dsc # NIL) & (V.dsc.next IS TextFrames.Frame) THEN T := V.dsc.next(TextFrames.Frame).text ELSE T := NIL END ;

    RETURN T

  END MarkedViewerText;



Use in ORP.Compile:



   ELSIF S.c = "*" THEN T := MarkedViewerText();

     IF (T # NIL) & (T.len > 0) THEN ORS.Init(T, 0); Module END
      
   END

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.inf.ethz.ch/pipermail/oberon/attachments/20170430/1d6ca565/attachment.html>