Views.Update(axes, Views.keepFrames);

axes.xmax := pos;
axes.ymax := -1;
axes.ymax := 1;

MODULE DemoMappers;
   IMPORT  Log, TextModels, TextMappers;
   
   VAR
      a: POINTER TO ARRAY OF REAL;
      input*: ARRAY 256 OF CHAR;
      
   PROCEDURE Do*;
      VAR s: TextMappers.Scanner; m: TextModels.Model; i: INTEGER;
   BEGIN
      m := TextModels.dir.NewFromString(input);
      s.ConnectTo(m);
      i := 0;
      REPEAT
         s.Scan();
         IF (s.type = TextMappers.real) OR (s.type = TextMappers.int) THEN
            INC(i)
         END;
      UNTIL s.type = TextMappers.eot;

      NEW(a, i);
      i := 0;
      s.SetPos(0);
      REPEAT
         s.Scan();
         IF s.type = TextMappers.real THEN
            a[i] := s.real;
            INC(i)
         ELSIF s.type = TextMappers.int THEN
            a[i] := s.int;
            INC(i)
         END;
      UNTIL s.type = TextMappers.eot;
      
      
      FOR i := 0 TO LEN(a) - 1 DO
         Log.Real(a[i]); Log.Ln
      END
   END Do;

BEGIN
   input := "6 7 8 9 9.356 5.6 4.4534"
   
   
END DemoMappers.

DemoMappers.Do