实例

#include "veriuser.h"



//打印的字符串、整型数据、软件开始打印标志

char            *str_mes ;   

unsigned int    int_mes ;

int             flags = 0;



//===== define print_my() used in C ======

void print_my(char * str_send, unsigned int int_send){

    str_mes  = str_send ;

    int_mes  = int_send ;

    flags    = 1 ;

}





//打印的字符串对应的ASCII码的字符型数据，原始字符型长度限制为100

//例如字符"1"对应的ASCII码0x31的字符型数据为0x33、0x31

char            str_mes_format[200] ;

//TF 子程序传递字符串类型的数据时，只能传递相关进制格式的数据

//例如能传递"0xc0de1234",却不能传递 "www.runoob.com"

//所以需要将原始的字符串数据转换为对应的ASCII码的字符型数据

void byte2hexstr(char* str, char* dest, int len)

{

    char tmp;

    int  i ;

    char stb[16] = { '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', 'A', 'B', 'C', 'D', 'E', 'F' };

    for (i = 0; i < len; i++){

        tmp = str[i];

        dest[i * 2] = stb[tmp >> 4];

        dest[i * 2 + 1] = stb[tmp & 15];

    }

    return;

}



//===== define PLI: send_my() =======

void send_my(){

    int i = 0 ;

    //检测到软件打印开始标志flags

    //且系统任务 $send_my 被 Verilog 调用时传入了 3 个参数

    if (flags && tf_nump()==3) {

        //将打印的字符串数据转为ASCII对应的字符串类型

        byte2hexstr(str_mes, str_mes_format, 100);

        //将16进制的字符型数据传递给系统任务 send_my 中的第2个参数

        //长度为1600bits，对应100个char、200个ASCII字符型数据

        tf_strdelputp(2, 1600, 'H', str_mes_format, 0, 0);

        //将整型数据传递给第3个参数

        tf_putp(3, int_mes);

        //将硬件打印开始标志传递给第一个参数

        tf_putp(1, 1) ; 

        flags = 0 ;

    }

}

实例

`timescale 1ns/1ps

module test ;

   reg [1599:0]         str_my ;

   reg [31:0]           int_my ;

   reg                  flag_my ;



   //时刻检测硬件打印标志 flagh 确定是否打印

   integer              i = 1599;

   integer              j = 1599;

   reg [7:0]            str_tmp ; //字符串数据存储寄存器

   initial begin

      flagh = 0 ;

      forever begin

         #20 ;

         //调用系统任务，并将数据从软件传递到硬件（Verilog）中

         $send_my(flagh, str_my, int_my);

         if (flagh) begin  //开始打印信息

            #1 ;

            //寄存器位宽有冗余，全部打印会出现大量空格

            //这里对未使用到的寄存器进行检测并屏蔽打印显示

            for(i=1599; i>=0; i= i-8) begin

               if (str_my[i -: 8] != 0)

                 break ;

            end

            //一般会用寄存器一半位宽对字符串数据进行存储

            //所以字符串传输正确时，从 str_my[799] 开始有数据

            $display("--DEBUG--- Valid data number: %d", i);



            //如果没有字符串数据，str_my也不会全为空

            //但是str_my[799 -: 8]不会有数据

            if (i<=791) begin

               $display("--ERR--- PLEASE INPUT VALID STRING INFO!!!");

               $display("--ERR--- Default data number: %d", i);

               $display("--ERR--- String data structure: %h", str_my);

            end

            else begin

               $write("---YYY---");

               for(j=i; j>=0; j= j-8) begin

                  str_tmp = str_my[j -: 8] ;

                  //再次检测到空字符时停止打印显示    

                  if (str_tmp == "") begin  

                     break ;

                  end

                  //逐个字符打印

                  else begin

                     $write("%s", str_tmp);

                  end

               end

               //打印整型数据

               $write("%h \n", int_my);

            end



            /* $display 不支持寄存器向量域中带变量访问

            //所以下列描述是不正确的，只能逐次使用 $write 打印

            else begin

               $display("--YYY--- %s%h", str_my[i : j], int_my);

            end

             */



            flagh = 0 ;

         end

      end

   end



   //停止仿真

   initial begin

      forever begin

         #10000;

         if ($time >= 300)  $finish ;

      end

   end

endmodule 

void call_c_print(){

    if (tf_getp(1) == 1)   //如果系统函数第一个参数值为 1

        print_my("It's the first successfull print: ", 0x20170714);

    else if (tf_getp(1) == 2) //如果系统函数第二个参数值为 2

        print_my("2nd: ", 0x09070602);

    else

        print_my("", 0x1); //不传输字符串数据，则报错

}

   //c print

   initial begin

      #100 ;

      $call_c_print(1);

      #100 ;

      $call_c_print(2);

      #100 ;

      $call_c_print(3);

   end