DEFINITION MODULE Join;

FROM KerTypes   IMPORT CELL,PORT,INST,NET,TRANSFM,DIRN,IOTYPE,NETTYPE,LAYER;

EXPORT QUALIFIED Join, Joinf1;

PROCEDURE Join (Cell1 :CELL; T1 :TRANSFM; Cell1Pos :DIRN;
                Cell2 :CELL; T2 :TRANSFM; Cell2Pos :DIRN;
                ResultantCell :ARRAY OF CHAR) :CELL;

PROCEDURE Joinf1 (Cell1 :CELL; T1 :TRANSFM; Cell1Pos :DIRN;
                  Cell2 :CELL; T2 :TRANSFM; Cell2Pos :DIRN;
                  ResultantCell :ARRAY OF CHAR; Index :INTEGER) :CELL;

PROCEDURE FullJoin (Cell1 :CELL; T1 :TRANSFM; Cell1Pos :DIRN;
                    Cell2 :CELL; T2 :TRANSFM; Cell2Pos :DIRN;
                    Exactly :BOOLEAN; Sep :INTEGER;
                    ResultantCell :ARRAY OF CHAR) :CELL;

PROCEDURE FullJoinf1 (Cell1 :CELL; T1 :TRANSFM; Cell1Pos :DIRN;
                      Cell2 :CELL; T2 :TRANSFM; Cell2Pos :DIRN;
                      Exactly :BOOLEAN; Sep :INTEGER;
                      ResultantCell :ARRAY OF CHAR; Index :INTEGER) :CELL;

END Join.
