Системное программирование в UNIX средствами Free Pascal


. Файловая система proc - часть 4


read(f,ch);

textcolor(2);

write(ch);

while ch<>' ' do

begin

read(f,ch);

write(ch);

end;

 

writeln;

while ch=' ' do

begin

read(f,ch);

end;

while ch<>' 'do

begin

read(f,ch);

end;

while ch=' ' do

begin

read(f,ch);

end;

 

textcolor(7);

write('Версия операционной системы - ');

textcolor(2);

write(ch);

 

while ch<>' 'do

begin

read(f,ch);

write(ch);

end;

 

while ch<>'#' do

begin

read(f,ch);

end;

read(f,ch);

 

writeln;

textcolor(7);

write('Дата выпуска -');

textcolor(2);

while not eof(f)do

begin

read(f,ch);

write(ch);

end;

textcolor(7);

Close(f);

 

end.

 

Упражнение 13.39. Используя файловую систему /proc, получите информацию о процессоре (vendor_id, cpu family, model, model name, stepping, cpu MHz, cache size, fdiv_bug, hlt_bug, sep_bug, f00f_bug, coma_bug, fpu, fpu_exception, cpuid level, wp, flags, bogomips).

uses sysutils,linux;

var

    f,count:integer;

    ch:array [0..511] of byte;

 

begin

  f:=fdopen('/proc/cpuinfo',Open_RDONLY);

  if f=-1 then

  begin

    writeln('Невозможно открыть файл ');

    halt;

  end;

  writeln('Information about CPU');

 

  count:=fdread(f,ch,512);

  while count>0 do

  begin

    fdwrite(1,ch,count);

    count:=fdread(f,ch,512);

  end;

  fdClose(f);

end.

 

Упражнение 13.40. Используя файловую систему /proc, получите информацию об используемой памяти.

uses sysutils,linux;

var

    f,count:integer;

    ch:array [0..511] of char;

 

begin

  f:=fdopen('/proc/meminfo',Open_RDONLY);

  if f=-1 then

  begin

    writeln('Невозможно открыть файл для просмотра информации об используемой памяти');

    halt;

  end;

  writeln('Information about MEMORY');

 

  count:=fdread(f,ch,512);

  while count>0 do

  begin

    fdwrite(1,ch,count);

    count:=fdread(f,ch,512);

  end;

  fdClose(f);

 

end.

 




- Начало -  - Назад -  - Вперед -



Книжный магазин