← Back to branch summary

~ubuntu-branches/ubuntu/lucid/fpc/lucid-proposed

« back to all changes in this revision

Viewing changes to fpcsrc/packages/fcl-base/tests/dparser.pp

  • Committer: Bazaar Package Importer
  • Author(s): Mazen Neifer, Torsten Werner, Mazen Neifer
  • Date: 2008-10-09 23:29:00 UTC
  • mfrom: (4.1.1 sid)
  • Revision ID: james.westby@ubuntu.com-20081009232900-553f61m37jkp6upv
Tags: 2.2.2-4
http://bugs.debian.org/498882
[ Torsten Werner ]
* Update ABI version in fpc-depends automatically.
* Remove empty directories from binary package fpc-source.

[ Mazen Neifer ]
* Removed leading path when calling update-alternatives to remove a Linitian
  error.
* Fixed clean target.
* Improved description of packages. (Closes: #498882)

Show diffs side-by-side

added added

removed removed

Lines of Context:
fpcsrc/packages/fcl-base/tests/dparser.pp
1
 
Program DParser;
2
 
 
3
 
{$mode objfpc}{$h+}
4
 
 
5
 
uses Classes;
6
 
 
7
 
var
8
 
  InFile           : TFileStream;
9
 
  Parser           : TParser;
10
 
begin
11
 
  InFile := TFileStream.Create('parser.dat', fmOpenRead);
12
 
  if Assigned(InFile) then begin
13
 
    try
14
 
      Parser := TParser.Create(InFile);
15
 
      if Assigned(Parser) then begin
16
 
        try
17
 
          while Parser.Token <> toEOF do begin
18
 
            case Parser.Token of
19
 
              toInteger : WriteLn('Found integer: "', Parser.TokenInt, '"');
20
 
              toFloat   : WriteLn('Found float:   "', Parser.TokenFloat, '"');
21
 
              toString  : WriteLn('Found string:  "', Parser.TokenString, '"');
22
 
              toSymbol  : WriteLn('Found symbol:  "', Parser.TokenString, '"');
23
 
            else
24
 
              // Skip all other characters
25
 
              ;
26
 
            end;
27
 
            Parser.NextToken;
28
 
          end;
29
 
        finally
30
 
          WriteLn('Freeing parser object');
31
 
          Parser.Free;
32
 
        end;
33
 
      end;
34
 
    finally
35
 
      WriteLn('Freeing infile object');
36
 
      InFile.Free;
37
 
    end;
38
 
  end;
39
 
end.