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


         

Программа для тестирования функции copyfile


  else                    

    copyfile := 0;              (* все порядке *)

end;

(* Программа для тестирования функции copyfile *)

var

  retcode:integer;

begin

  if paramcount<2 then

  begin

    writeln('Используйте: ',paramstr(0),' файл-источник файл-приемник');

    exit;

  end;

  retcode := copyfile(paramstr(1), paramstr(2));

  case retcode of

     0:  writeln('Файл ',paramstr(1),' успешно скопирован в файл ',paramstr(2));

    -1:  writeln('Ошибка открытия файла ',paramstr(1),' для чтения');

    -2:  writeln('Ошибка открытия файла ',paramstr(2),' для записи');

    -3:  writeln('Ошибка записи в файл ',paramstr(2));

    -4:  writeln('Ошибка чтения из файла ',paramstr(1));

  end;

end.

Теперь функцию copyfile можно вызывать так:

retcode := copyfile('squarepeg', 'roundhole');

Упражнение 2.6. Измените функцию copyfile так, чтобы в качестве ее параметров могли выступать дескрипторы, а не имена файлов. Проверьте работу новой версии программы.

Упражнение 2.7. Если вы умеете работать с аргументами командной строки, используйте одну из процедур copyfile для создания программы mycp, копирующей первый заданный в командной строке файл во второй.


Содержание  Назад  Вперед





Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий