Re: parse word from a string

[maa@liacc.up.pt (Mário Amado Alves)]

"If you are using GNAT be sure to look at GNAT.AWK. (Pascal)"

"Uhg, no! Look at GNAT.Spitbol ;-)" (MAA)
 
"I disagree :) GNAT.AWK handles files directly. In GNAT.Spitbol you
still have to open and read each lines. And since the problem at hand
seems to justslice a string with a set of separators, GNAT.AWK seems
just fine ;)" (Pascal)

Actually the original problem is "read words from a file", and for
that a simple character automaton in 'pure' Ada suffices, e.g.

  C : Character
  Word : Unbounded_String;
begin
  loop
    Get_Immediate (C);
    if Is_Graphic (C) and C /= ' ' then
      Append (Word, C);
    else
      Process (Word);
      Word := Null_Unbounded_String;
    end if;
  end loop;
exception
  when End_Error =>
    if Word /= Null_Unbounded_String then Process (Word); end if;

I was just advocating Spitbol over AWK in the case of general pattern
matching. You seem to agree that Spitbol might be better for complex
problems. And Spitbol is also good enough for simple problems. Ergo,
Spitbol is better ;-)

More seriously, it is better strictly in a Reduced Technology Mix
framework.

Again, for the simple problem at hand, I follow Robert Dewar's famous
adage: "don't use pattern matching".

Cheers,
--MAA