%option '-nons'

const

   pwell = 'PW';
   nwell = 'NW';
   diff = 'AA';
   poly = 'PY';
   ndiff = 'ND';
   pdiff = 'PD';
   nplus = 'NP';
   pplus = 'PP';
   contact = 'CC';
   metal1 = 'M1';
   via = 'VI';
   metal2 = 'M2';

var

zzzz : boolean;

procedure first cell number %alias 'ILAP_FIRST_CELL_NUMBER'
  (num : integer); external;
procedure setlambda %alias 'ILAP_SET_LAMBDA' (lambda : integer); extern;
procedure getlambda %alias 'ILAP_GET_LAMBDA' (var lambda : integer); extern;
procedure seterrorstream %alias 'ILAP_SET_ERROR_STREAM' (st : integer); extern;
procedure setcifstream %alias 'ILAP_SET_ERROR_STREAM' (st : integer); extern;
procedure warning %alias 'ILAP_WARNING' (message : string[255]); extern;
procedure disaster %alias 'ILAP_DISASTER' (message : string[255]); extern;
procedure updatembb %alias 'ILAP_UPDATE_MBB' (xl, yb, xr, yt : integer); extern;
procedure fixmbb %alias 'ILAP_FIX_MBB' (xl, yb, xr, yt : integer); extern;
function  ilapwarnings %alias 'ILAP_WARNINGS' : integer; extern;

procedure pluson %alias 'ILAP_PLUS_ON'; extern;
procedure plusoff %alias 'ILAP_PLUS_OFF'; extern;
procedure mergeon %alias 'ILAP_MERGE_ON'; extern;
procedure mergeoff %alias 'ILAP_MERGE_OFF'; extern;

procedure initialise %alias 'ILAP_INIT_CMOS' (s : string[255]) ; extern;
procedure finish %alias 'ILAP_FINISH' ; extern;
procedure givestatistics %alias 'ILAP_GIVE_STATISTICS' ; extern;

procedure endsymbol %alias 'ILAP_END_SYMBOL' ; extern;
procedure symbol %alias 'ILAP_SYMBOL' (name : string[31]) ; extern;
procedure symbolspec %alias 'ILAP_SYMBOL_SPEC' 
  (name : string[31]; xl, yb, xr, yt : integer) ; extern;
procedure externalsymbol %alias 'ILAP_EXTERNAL_SYMBOL' 
  (name : string[31]; number : integer) ; extern;
procedure externalsymbolspec %alias 'ILAP_EXTERNAL_SYMBOL_SPEC' 
  (name : string[31]; number, xl, yb, xr, yt : integer) ; extern;

procedure box %alias 'ILAP_BOX' (xl, yb, xr, yt : integer) ; extern;
procedure polygon %alias 'ILAP_POLYGON' (x, y : integer) ; extern;
procedure line %alias 'ILAP_LINE' (x, y : integer) ; extern;
procedure wirex %alias 'ILAP_WIREX' (x, y, l : integer) ; extern;
procedure wirey %alias 'ILAP_WIREY' (x, y, l : integer) ; extern;
procedure vsswirex %alias 'ILAP_VSSWIREX' (x, y, l : integer) ; extern;
procedure vsswirey %alias 'ILAP_VSSWIREY' (x, y, l : integer) ; extern;
procedure vddwirex %alias 'ILAP_VDDWIREX' (x, y, l : integer) ; extern;
procedure vddwirey %alias 'ILAP_VDDWIREY' (x, y, l : integer) ; extern;

procedure NTPX %alias 'ILAP_NTPX'(name : string[31]; x, y, l : integer); extern;
procedure NTPY %alias 'ILAP_NTPY'(name : string[31]; x, y, l : integer); extern;
procedure PTPX %alias 'ILAP_PTPX'(name : string[31]; x, y, l : integer); extern;
procedure PTPY %alias 'ILAP_PTPY'(name : string[31]; x, y, l : integer); extern;
procedure NTDX %alias 'ILAP_NTDX'(name : string[31]; x, y, l : integer); extern;
procedure NTDY %alias 'ILAP_NTDY'(name : string[31]; x, y, l : integer); extern;
procedure PTDX %alias 'ILAP_PTDY'(name : string[31]; x, y, l : integer); extern;
procedure PTDY %alias 'ILAP_PTDY'(name : string[31]; x, y, l : integer); extern;

procedure ax %alias 'ILAP_AX' (x : integer) ; extern;
procedure ay %alias 'ILAP_AY' (y : integer) ; extern;
procedure axy %alias 'ILAP_AXY' (x, y : integer) ; extern;
procedure dx %alias 'ILAP_DX' (x : integer) ; extern;
procedure dy %alias 'ILAP_DY' (y : integer) ; extern;
procedure dxy %alias 'ILAP_DXY' (x, y : integer) ; extern;

procedure layer %alias 'ILAP_LAYER' (colour:string[4]) ; extern;
function clayer %alias 'ILAP_CLAYER' : string ; extern;
procedure width %alias 'ILAP_WIDTH' (size : integer) ; extern;
function cwidth %alias 'ILAP_CWIDTH' : integer ; extern;

procedure cifcomment %alias 'ILAP_CIF_COMMENT' (s : string[255]) ; extern;
procedure cifstatement  %alias 'ILAP_CIF_STATEMENT' (s : string[255]) ; extern;
procedure userextension %alias 'ILAP_USER_EXTENSION'
  (no : integer; s : string[255]) ; extern;
procedure nodelabel %alias 'ILAP_NODE_LABEL'
  (lab : string[31]; x, y : integer; layer : string[4]) ; extern;

procedure draw %alias 'ILAP_DRAW'
  (name : string[31]; x, y : integer) ; extern;
procedure drawmx %alias 'ILAP_DRAW_MX'
  (name : string[31]; x, y : integer) ; extern;
procedure drawmy %alias 'ILAP_DRAW_MY'     
  (name : string[31]; x, y : integer) ; extern;
procedure drawrot %alias 'ILAP_DRAW_ROT'    
  (name : string[31]; x, y, rot : integer) ; extern;
procedure drawmxrot %alias 'ILAP_DRAW_MX_ROT' 
  (name : string[31]; x, y, rot : integer) ; extern;
procedure drawmyrot %alias 'ILAP_DRAW_MY_ROT' 
  (name : string[31]; x, y, rot : integer) ; extern;

function SX %alias 'ILAP_SX' (name : string[31]) : integer ; extern;
function SY %alias 'ILAP_SY' (name : string[31]) : integer ; extern;
function LX %alias 'ILAP_LX' (name : string[31]) : integer ; extern;
function LY %alias 'ILAP_LY' (name : string[31]) : integer ; extern;
function Symbolexists %alias 'ILAP_SYMBOL_EXISTS'
  (name : string[31]) : boolean; extern;

procedure nsub %alias 'ILAP_NSUB'  ( x, y : integer) ; extern;
procedure psub %alias 'ILAP_ PSUB' ( x, y : integer) ; extern;
procedure nsubn %alias 'ILAP_NSUBN' ( x, y : integer) ; extern;
procedure nsubs %alias 'ILAP_NSUBS' ( x, y : integer) ; extern;
procedure nsube %alias 'ILAP_NSUBE' ( x, y : integer) ; extern;
procedure nsubw %alias 'ILAP_NSUBW' ( x, y : integer) ; extern;
procedure psubn %alias 'ILAP_PSUBN' ( x, y : integer) ; extern;
procedure psubs %alias 'ILAP_PSUBS' ( x, y : integer) ; extern;
procedure psube %alias 'ILAP_PSUBE' ( x, y : integer) ; extern;
procedure psubw %alias 'ILAP_PSUBW' ( x, y : integer) ; extern;
procedure ndm %alias 'ILAP_NDM' ( x, y : integer) ; extern;
procedure pdm %alias 'ILAP_PDM' ( x, y : integer) ; extern;
procedure pm %alias 'ILAP_PM' ( x, y : integer) ; extern;
procedure mm %alias 'ILAP_MM' ( x, y : integer) ; extern;

{procedure pladatasize %alias 'ILAP_PLA_DATA_SIZE'}
{  (var ins,outs:integer);extern;}

procedure tpla %alias 'ILAP_TPLA'
  (name : string[31]; filename : string[255]); extern;
procedure epla %alias 'ILAP_EPLA'
  (name : string[31]; filename : string[255]); extern;
procedure rom %alias 'ILAP_ROM'
  (name : string[31]; filename : string[255]); extern;

procedure equate %alias 'ILAP_EQUATE' (parm : string[255]); extern;
procedure table %alias 'ILAP_TABLE' (parm : string[255]); extern;

procedure crest %alias 'ILAP_CREST'
  (name : string[31]; xsize, ysize : integer);  extern;
procedure text %alias 'ILAP_TEXT'
  (name : string[31]; text : string[255]; xsize, ysize : integer) ; extern;
procedure copyright %alias 'ILAP_COPYRIGHT'  
  (name : string[31]; xsize, ysize : integer) ; extern;
procedure textlayer %alias 'ILAP_TEXT_LAYER' (layer : string[4]) ; extern;