Subversion Repositories fully-pipelined-edge-detection-algorithms

PACKAGE EdgeDetection_pkg IS

    FUNCTION DetermineKernel(EdgeDetectionType : STRING) RETURN INTEGER;

END PACKAGE;

PACKAGE BODY EdgeDetection_pkg IS

    FUNCTION DetermineKernel(EdgeDetectionType : STRING) RETURN INTEGER IS

        VARIABLE edgeSize                          : NATURAL := 0;

    BEGIN

        IF EdgeDetectionType = "3" THEN

            edgeSize := 1;

        ELSE

            edgeSize := 2;

        END IF;

        RETURN edgeSize;

    END FUNCTION;

END PACKAGE BODY;