← Back to branch summary

~ubuntu-branches/ubuntu/dapper/fpc/dapper

« back to all changes in this revision

Viewing changes to utils/fpmc/readmsg.pp

  • Committer: Bazaar Package Importer
  • Author(s): Carlos Laviola
  • Date: 2005-05-30 11:59:10 UTC
  • mfrom: (1.2.2 upstream)
  • Revision ID: james.westby@ubuntu.com-20050530115910-x5pbzm4qqta4i94h
Tags: 2.0.0-2
http://bugs.debian.org/310907
debian/fp-compiler.postinst.in: forgot to reapply the patch that
correctly creates the slave link to pc(1).  (Closes: #310907)

Show diffs side-by-side

added added

removed removed

Lines of Context:
utils/fpmc/readmsg.pp
1
1
{
2
 
    $Id: readmsg.pp,v 1.1 2003/02/14 21:59:21 michael Exp $
 
2
    $Id: readmsg.pp,v 1.2 2005/02/14 17:13:39 peter Exp $
3
3
    This file is part of the Free Pascal run time library.
4
4
    Copyright (c) 1999-2000 by the Free Pascal development team
5
5
 
6
6
    reads and dumps a message file to screen.
7
 
    
 
7
 
8
8
    See the file COPYING.FPC, included in this distribution,
9
9
    for details about the copyright.
10
10
 
25
25
  PO,PI : PCardinal;
26
26
  I,J,Count,C,S : Cardinal;
27
27
  Buf : String;
28
 
  
 
28
 
29
29
begin
30
30
  Assign(F,Paramstr(1));
31
31
  Reset(F);
65
65
    SetLength(Buf,J);
66
66
    Writeln('String (',J,') : ',Buf);
67
67
    end;
68
 
  Writeln('Seqential read : ');  
 
68
  Writeln('Seqential read : ');
69
69
  Seek(F,PO[1] div 4);
70
70
  For I:=1 to Count do
71
71
    begin
81
81
      dec(J);
82
82
    SetLength(Buf,J);
83
83
    Writeln('String (',J,') : ',Buf);
84
 
    end; 
 
84
    end;
85
85
  Close(F);
86
86
end.
87
87
 
88
88
{
89
89
  $Log: readmsg.pp,v $
 
90
  Revision 1.2  2005/02/14 17:13:39  peter
 
91
    * truncate log
 
92
 
90
93
  Revision 1.1  2003/02/14 21:59:21  michael
91
94
  + Initial implementation
92
95