Subversion Repositories usb_fpga_1_11

{*!

{*!

   bmp -- babel macro processor

   bmp -- babel macro processor

   http://www.ztex.de

   http://www.ztex.de

   This program is free software; you can redistribute it and/or modify

   This program is free software; you can redistribute it and/or modify

   it under the terms of the GNU General Public License version 3 as

   it under the terms of the GNU General Public License version 3 as

   published by the Free Software Foundation.

   published by the Free Software Foundation.

   This program is distributed in the hope that it will be useful, but

   This program is distributed in the hope that it will be useful, but

   WITHOUT ANY WARRANTY; without even the implied warranty of

   WITHOUT ANY WARRANTY; without even the implied warranty of

   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU

   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU

   General Public License for more details.

   General Public License for more details.

   You should have received a copy of the GNU General Public License

   You should have received a copy of the GNU General Public License

   along with this program; if not, see http://www.gnu.org/licenses/.

   along with this program; if not, see http://www.gnu.org/licenses/.

!*}

!*}

{$mode objfpc}

{$mode objfpc}

unit bmpsys;

unit bmpsys;

interface

interface

const bmp_exit_error      = 1;

const bmp_exit_error      = 1;

      bmp_exit_faterror   = 2;

      bmp_exit_faterror   = 2;

      bmp_exit_paramerror = 3;

      bmp_exit_paramerror = 3;

      bmp_exit_usererror  = 100;  { //error[...] }

      bmp_exit_usererror  = 100;  { //error[...] }

const bmp_exit    : longint = 0;

const bmp_exit    : longint = 0;

procedure bmp_warning(const s:ansistring);

procedure bmp_warning(const s:ansistring);

procedure bmp_error(const s:ansistring);

procedure bmp_error(const s:ansistring);

procedure bmp_faterror(const s:ansistring);

procedure bmp_faterror(const s:ansistring);

function min(i,j:longint):longint;

function min(i,j:longint):longint;

function max(i,j:longint):longint;

function max(i,j:longint):longint;

function int2str(i:longint):shortstring;

function int2str(i:longint):shortstring;

implementation

implementation

procedure bmp_warning(const s:ansistring);

procedure bmp_warning(const s:ansistring);

begin

begin

writeln(stderr,'Warning: ',s);

writeln(stderr,'Warning: ',s);

end;

end;

procedure bmp_error(const s:ansistring);

procedure bmp_error(const s:ansistring);

begin

begin

writeln(stderr,'Error: ',s);

writeln(stderr,'Error: ',s);

bmp_exit:=1;

bmp_exit:=1;

end;

end;

procedure bmp_faterror(const s:ansistring);

procedure bmp_faterror(const s:ansistring);

begin

begin

writeln(stderr,'Fatal error: ',s);

writeln(stderr,'Fatal error: ',s);

halt(2);

halt(2);

end;

end;

function min(i,j:longint):longint;

function min(i,j:longint):longint;

begin

begin

if i<j then min:=i

if i<j then min:=i

       else min:=j;

       else min:=j;

end;

end;

function max(i,j:longint):longint;

function max(i,j:longint):longint;

begin

begin

if i>j then max:=i

if i>j then max:=i

       else max:=j;

       else max:=j;

end;

end;

function int2str(i:longint):shortstring;

function int2str(i:longint):shortstring;

begin

begin

str(i,int2str);

str(i,int2str);

end;

end;

end.

end.