Tokenize a string: Difference between revisions

Content deleted Content added

Inline

@@ Line 51: / Line 51: @@
      FLEX[1:0]STRING out;
      FILE beetlesf;
+     associate(beetlesf, beetles); # associate a FILE handle with a STRING   #
-     STRING solo;
-     associate(beetlesf, beetles);
+     make term(beetlesf, chars);   # make term: assign CSV string terminator #
-     make term(beetlesf, chars);
      PROC raise logical file end = (REF FILE f)BOOL: except logical file end;
      on logical file end(beetlesf, raise logical file end);
      DO
+       STRING solo;
        getf(beetlesf, ($g$, solo));
        out+:=solo;