fpc/packages/libxml/examples/exutils.pas

unit exutils;

interface

{$mode objfpc}

uses
  SysUtils;

procedure printf(const msg: string; const args: array of const);
procedure printfn(const msg: string; const args: array of const);

implementation

procedure printf(const msg: string; const args: array of const);
begin
  write(Format(msg, args));
end;

procedure printfn(const msg: string; const args: array of const);
begin
  writeln(Format(msg, args));
end;

end.