novas.vhd

debussy中文使用手册

package pkg is
	attribute foreign : string;

	procedure fsdbDumpfile(
			file_name	: IN string);
	attribute foreign of fsdbDumpfile : procedure is "fliparseTraceInit ./novas_fli.so";

	procedure fsdbDumpvars(
			depth		: IN integer;
			region_name 	: IN string);
	attribute foreign of fsdbDumpvars : procedure is "fliparsePartial ./novas_fli.so";

	procedure fsdbDumpSingle(
			signal_name 	: IN string);
	attribute foreign of fsdbDumpSingle : procedure is "fliparseSingle ./novas_fli.so";

	procedure fsdbDumpVariable(
			variable_name 	: IN string);
	attribute foreign of fsdbDumpVariable : procedure is "fliparseVariable ./novas_fli.so";

        procedure fsdbVersion;
        attribute foreign of fsdbVersion : procedure is "fliparseVersion ./novas_fli.so";

	procedure fsdbSwitchDumpfile(
			file_name	: IN string);
	attribute foreign of fsdbSwitchDumpfile : procedure is "fliparseSwitchDumpfile ./novas_fli.so";

	--procedure fsdbDumpon;
	--attribute foreign of fsdbDumpon : procedure is "fliparseDumpon ./novas_fli.so";

        --procedure fsdbDumpoff;
        --attribute foreign of fsdbDumpoff : procedure is "fliparseDumpoff ./novas_fli.so";

        procedure fsdbDumpflush;
        attribute foreign of fsdbDumpflush : procedure is "fliparseDumpflush ./novas_fli.so";

	procedure fsdbDumplimit(
			file_size	: IN integer);
	attribute foreign of fsdbDumplimit : procedure is "fliparseDumplimit ./novas_fli.so";

        procedure fsdbInteractive;
        attribute foreign of fsdbInteractive : procedure is "fliparseInteractive ./novas_fli.so";

	procedure fsdbDumpMem(
			signal_name	: IN string;
                        begin_cell      : IN integer := -1;
                        size            : IN integer := -1);
	attribute foreign of fsdbDumpMem : procedure is "fliparseMem ./novas_fli.so";

	procedure fsdbAutoSwitchDumpfile(
                        file_size       : IN integer;
			file_name	: IN string;
                        file_amount     : IN integer);
	attribute foreign of fsdbAutoSwitchDumpfile : procedure is "fliparseAutoSwitchDumpfile ./novas_fli.so";

end;

package body pkg is 

	procedure fsdbDumpfile(
			file_name	: IN string) is
	begin
		assert false report "ERROR : foreign subprogram not called" severity note;
	end;

	procedure fsdbDumpvars(
			depth		: IN integer; 
			region_name	: IN string) is
	begin
		assert false report "ERROR : foreign subprogram not called" severity note;
	end;

	procedure fsdbDumpSingle(
			signal_name	: IN string) is
	begin
		assert false report "ERROR : foreign subprogram not called" severity note;
	end;
	
	procedure fsdbDumpVariable(
			variable_name	: IN string) is
	begin
		assert false report "ERROR : foreign subprogram not called" severity note;
	end;
	
        procedure fsdbVersion is
        begin
                assert false report "ERROR : foreign subprogram not called" severity note;
	end;

	procedure fsdbSwitchDumpfile(
			file_name	: IN string) is
	begin
                assert false report "ERROR : foreign subprogram not called" severity note;
	end;

        --procedure fsdbDumpon is
	--begin
        --        assert false report "ERROR : foreign subprogram not called" severity note;
        --end;

        --procedure fsdbDumpoff is
        --begin
        --        assert false report "ERROR : foreign subprogram not called" severity note;
	--end;

        procedure fsdbDumpflush is
        begin
                assert false report "ERROR : foreign subprogram not called" severity note;
	end;

        procedure fsdbDumplimit(
			file_size	: IN integer) is
begin
                assert false report "ERROR : foreign subprogram not called" severity note;
	end;

        procedure fsdbInteractive is
        begin
                assert false report "ERROR : foreign subprogram not called" severity note;
	end;

        procedure fsdbDumpMem(
			signal_name	: IN string;
                        begin_cell      : IN integer := -1;
                        size            : IN integer := -1) is
begin
                assert false report "ERROR : foreign subprogram not called" severity note;
	end;

	procedure fsdbAutoSwitchDumpfile(
                        file_size       : IN integer;
			file_name	: IN string;
                        file_amount     : IN integer) is
	begin
                assert false report "ERROR : foreign subprogram not called" severity note;
	end;

end; 


entity novas is end; 

architecture novas_arch of novas is
  attribute foreign : string;
  attribute foreign of novas_arch : architecture is "fliparseCommand novas_fli.so";
begin
end;