//
// This file is part of an OMNeT++/OMNEST simulation example.
//
// Copyright (C) 1998-2015 Andras Varga
// Copyright (C) 1996-97 Gabor Lencse, T.U.Budapest, Dept. of Telecommunications
//
// This file is distributed WITHOUT ANY WARRANTY. See the file
// `license' for details on this and other legal matters.
//


import
    "fddi_mac",
    "ssm_ifs",
    "othermod";


//
// Represents cable in the ring of identical nodes
//
channel FDDICable
    error 0;
    delay 1 us; // delay of a 200m long fiber
endchannel


//
// Represents the latency of a SAC
//
channel FDDI_SAC_inside_wire
    error 0;
    delay 100 ns; // equals to the station_latency of an FDDI station
endchannel



//
// Single Attachment Concentrator
//
module FDDI_SAC
    parameters:
        StationID: numeric,
        address: string;
    gates:
        in: S_in;
        in: M_in[];
        out: S_out;
        out: M_out[];

    connections:
        S_in --> FDDI_SAC_inside_wire --> M_out[0];
        for i=0..sizeof(M_in)-2 do
            M_in[i] --> FDDI_SAC_inside_wire --> M_out[i+1];
        endfor;
        M_in[sizeof(M_in)-1] --> FDDI_SAC_inside_wire --> S_out;
endmodule


//
// A node in a ring of identical nodes
//
module FDDIStation
    gates:
        in: in;
        out: out;
        out: to_stat;
    submodules:
        MAC: FDDI_MAC4Ring;
            parameters:
                no_comps = ancestor no_comps,
                no_msg = ancestor no_msg;
            display: "p=150,147;i=block/ifcard";
        gen: FDDI_Generator4Ring;
            parameters:
                no_msg = ancestor no_msg,
                no_comps = ancestor no_comps,
                wait_time = ancestor wait_time;
            display: "p=84,64;i=block/source";
    connections:
        in --> MAC.in;
        MAC.out --> out;
        MAC.to_LLC --> to_stat;
        gen.out --> MAC.from_LLC;

endmodule


//
// A Single Attachment Station in the network
//
module FDDI_SAS
    parameters:
        FDDI_Generator_type: string,
        StationID: numeric,
        address: string;
    gates:
        in: in;
        out: out;
    submodules:
        MAC: FDDI_MAC;
            parameters:
                StationID = StationID,
                address = address;
            display: "p=123,152;i=block/ifcard";
        gen: FDDI_Generator_type like FDDI_Generator;
            parameters:
                StationID = StationID,
                address = address;
            display: "p=75,64;i=block/source";
        sink: FDDI_Sink;
            display: "p=187,64;i=block/sink";
    connections:
        in --> MAC.in;
        MAC.out --> out;
        MAC.to_LLC --> sink.in;
        gen.out --> MAC.from_LLC;
endmodule


//
// An FDDI Sniffer (a special SAS)
//
module FDDI_Sniffer
    parameters:
        StationID: numeric,
        address: string;
    gates:
        in: in;
        out: out;
    submodules:
        MAC: FDDI_MAC4Sniffer;
            parameters:
                StationID = StationID,
                address = address;
            display: "p=122,152;i=block/ifcard";
        gen: FDDI_Generator4Sniffer;
            parameters:
                StationID = StationID,
                address = address;
            display: "p=75,63;i=block/source";
        monitor: FDDI_Monitor;
            display: "p=186,63;i=block/sink";
    connections:
        in --> MAC.in;
        MAC.out --> out;
        MAC.to_LLC --> monitor.in;
        gen.out --> MAC.from_LLC;

endmodule


//
// Makes routing decision on the basis of the length distribution
// of the packets from this station to other stations in the ring.
// (a special SAS: has no Generator and Sink, interconnects rings)
//
module FDDI_Router_port
    parameters:
        StationID: numeric,
        address: string;
    gates:
        in: in;
        in: ring_in;
        out: out;
        out: ring_out;
    submodules:
        MAC: FDDI_MAC;
            parameters:
                StationID = StationID,
                address = address;
            display: "p=171,129;i=block/ifcard";
        addr_gen: FDDI_Address_Generator;
            parameters:
                StationID = StationID,
                address = address;
            display: "p=89,68;i=block/cogwheel";
    connections:
        in --> MAC.in;
        MAC.out --> out;
        MAC.to_LLC --> ring_out;
        ring_in --> addr_gen.in;
        addr_gen.out --> MAC.from_LLC;
endmodule