← Back to branch summary

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

« back to all changes in this revision

Viewing changes to docs/linuxex/ex43.pp

  • Committer: Bazaar Package Importer
  • Author(s): Carlos Laviola
  • Date: 2004-08-12 16:29:37 UTC
  • mfrom: (1.2.1 upstream) (2.1.1 warty)
  • Revision ID: james.westby@ubuntu.com-20040812162937-moo8ulvysp1ln771
Tags: 1.9.4-5
http://bugs.debian.org/265265
fp-compiler: needs ld, adding dependency on binutils.  (Closes: #265265)

Show diffs side-by-side

added added

removed removed

Lines of Context:
docs/linuxex/ex43.pp
2
2
 
3
3
{ Program to demonstrate the Uname function. }
4
4
 
5
 
Uses linux;
 
5
Uses BaseUnix;
6
6
 
7
7
Var UN : utsname;
8
8
 
9
9
begin
10
 
  if Uname (UN) then
 
10
  if fpUname (UN)=0 then
11
11
    With UN do
12
12
      begin
13
13
      Writeln ('Name       : ',pchar(@sysname[0]));
15
15
      Writeln ('release    : ',pchar(@Release[0]));
16
16
      Writeln ('Version    : ',pchar(@Version[0]));
17
17
      Writeln ('Machine    : ',pchar(@Machine[0]));
 
18
{$ifdef Linux} // linuxism
18
19
      Writeln ('Domainname : ',pchar(@domainname[0]));
 
20
{$endif}
19
21
      end;
20
22
end.