Subversion Repositories an-fpga-implementation-of-low-latency-noc-based-mpsoc

#include <curses.h>

#include <unistd.h>

#include <stdlib.h>

#include <string.h>

#include <ctype.h>

#include <sys/types.h>

#include <sys/stat.h>

#include "../jtag_xilinx_xsct/jtag.h"

#define WIN_PER_COL 2

#define BUFF_WIDTH 100

#define ESCAPE 27

int win_col_size;

int win_line_size;

int uart_num=0;

int * index_nums;

WINDOW **win;

WINDOW * info;

int * win_x;

int * win_y;

char ** buffer;

char * outfile;

char write_log_file=0;

int  * buff_ptr;

void update_out_file(int n);

int get_jtag_indexs( char * index_str);

void usage(){

        printf ("usage:./uart  [-o output log file name] [-c jtag_chain_num] -n uart_index_number_string -a jtag_target_number -b jtag_shift_reg_size\n");

        printf ("\t-a   the order number of target device in jtag chain. Run jtag targets after \"connect\" command in xsct terminal to list all availble targets\n");

        printf ("\t-b   Jtag shiftreg data width. It should be the target device Data width + 4\n");

        printf ("\t-t   Jtag_chain number: the BSCANE2 tab number :1,2,3 or 4. The default is 3\n");

        printf ("\t-o   optinal output log file name. If file name is given the output from serial ports are wriiten to a file\n");

        printf ("\t-n   UART index numbers seprated by \",\": e.g: -n 126,125\n");

        exit(1);

}

void processArgs (int argc, char **argv )

{

        char c;

        int p;

   /* don't want getopt to moan - I can do that just fine thanks! */

   opterr = 0;

   if (argc < 2)  {

        usage();

   }

   while ((c = getopt (argc, argv, "n:o:a:b:t:")) != -1)

      {

         switch (c)

            {

            case 'n':   /* indexs */

               get_jtag_indexs(optarg);

               break;

            case 'o':   /* output file name */

                outfile=optarg;

                write_log_file=1;

                break;

             case 'a':  /* hardware_name */

               jtag_target_number = atoi(optarg);

               break;

            case 'b':   /* device number in chain */

               jtag_shift_reg_size = atoi(optarg);

               break;

             case 't':  /* Jtag_chain_num */

               chain_num = atoi(optarg);

               if (chain_num<1 || chain_num>4 ) {

                        fprintf (stderr, "Wrong jtag_chain_num the given %u value is out of valid range 1,2,3 or 4.\n\n", chain_num);

                        usage();

               }

               break;

            case '?':

               if (isprint (optopt))

                  fprintf (stderr, "Unknown option `-%c'.\n", optopt);

               else

                  fprintf (stderr,

                           "Unknown option character `\\x%x'.\n",

                           optopt);

            default:

               usage();

            }

      }

}

int get_jtag_indexs( char * index_str){

        printf ("%s\n",index_str);

        char delim[] = ",";

        char *ptr;

        int i;

        //count number of indexes

        ptr=index_str;

        uart_num=1;

        for (i=0;i<strlen(index_str);i++ ){

                if(ptr[0]==',') uart_num++;

                ptr++;

        }

        index_nums = (int*)malloc((uart_num+1)* sizeof(int));

        if (index_nums == NULL) {

                printf("Error index_nums[%u] could not be allocated.\n",uart_num);

                exit(1);

        }

        ptr = strtok(index_str, delim);

        i=0;

        while(ptr != NULL)

        {

                index_nums[i] = atoi(ptr);

                printf("index_nums[%u]=%u\n",i,index_nums[i]);

                ptr = strtok(NULL,delim);

                i++;

        }

        printf ("Uart_num =%u\n",uart_num);

        return 1;

}

void initial_windows (){

        FILE * fout;

        char tmp_str [30];

        win = (WINDOW**)malloc((uart_num+1)* sizeof(WINDOW *));

        win_x = (int *)malloc((uart_num+1)* sizeof(int));

        win_y = (int *)malloc((uart_num+1)* sizeof(int));

        if (win == NULL) {

                printf("Error *win[%u] could not be allocated.\n",uart_num);

                exit(1);

        }

        if(write_log_file){

                buffer = malloc((uart_num+1) * sizeof(char *));

                buff_ptr = (int *) malloc((uart_num+1) * sizeof(int ));

                for(int i = 0; i < uart_num+1; i++){

                        buffer[i] = malloc(BUFF_WIDTH * sizeof(char));

                        if(buffer[i]==NULL){

                                printf("Warning buffer could not be allocated. Write on output file is diabled\n");

                                write_log_file=0;

                        }

                }

                mkdir("TEMP_OUT", 0777);

                for(int i = 0; i < uart_num; i++){

                        sprintf(tmp_str,"TEMP_OUT/temp%u",i);

                        fout= fopen(tmp_str,"w");

                        if(fout ==NULL){

                                printf("Warning: could not creat %s file. Write on output file is diabled\n",tmp_str);

                                write_log_file=0;

                                return;

                        }

                        fprintf(fout,"UART%u: ",i);

                        fclose(fout);

                }

        }

        initscr();

        noecho();

        cbreak();

        nodelay(stdscr, TRUE);

        keypad(stdscr,TRUE);

        getch();

        int i;

        int tmp;

        int dev = (WIN_PER_COL<uart_num)? WIN_PER_COL :uart_num;

        win_col_size=(( COLS-1)/dev)-1;

        tmp = (uart_num%dev)?  (uart_num/dev)+1 : (uart_num/dev);

        win_line_size=((LINES-2)/tmp);

        int sline=0;

        int scol=0;

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

                win[i] = newwin(win_line_size, win_col_size, sline, scol);

                //scrollok(win[i], TRUE);

                scol=scol + win_col_size + 1;

                if(scol+ win_col_size >COLS){

                        scol=0;

                        sline=sline+win_line_size;

                }

                werase(win[i]);

                box( win[i], ACS_VLINE, ACS_HLINE );

                wmove(win[i],0, 0);

                wprintw(win[i],"UART%u(%u):",i,index_nums[i]);

                wmove(win[i],1, 1);

                win_x[i]=1;

                win_y[i]=1;

                wrefresh(win[i]);

        }

        info = newwin(1, (COLS-1), LINES-2, 0);

        werase(info);

        wprintw(info,"Press ESC to quit.");

        wrefresh(info);

}

void win_add_char(int n, char c){

        int j;

        wprintw(win[n],"%c",c);

        if(write_log_file){

                buffer[n][buff_ptr[n]]=c;

                buff_ptr[n]++;

                if(buff_ptr[n]==BUFF_WIDTH-1){

                        update_out_file(n);

                        buff_ptr[n]=0;

                }

        }

        if(c ==10){

                win_x[n]=win_col_size-1;

                box( win[n], ACS_VLINE, ACS_HLINE );

                wmove(win[n],0, 0);

                wprintw(win[n],"UART%u(%u):",n,index_nums[n]);

        }else{

                win_x[n]++;

        }

        if(win_x[n] == win_col_size-1){

                win_x[n]=1;

                win_y[n]++;

                if(win_y[n]==win_line_size-1){

                // we reached at the end of the win. strat from the begining

                        win_x[n]=1;

                        win_y[n]=1;

                        wmove(win[n],1,1);

                }

                // clear the next two lines

                if(win_y[n]<win_line_size-2){

                        wmove(win[n],win_y[n],1);

                        for (j=1;j<win_col_size-1;j++) wprintw(win[n]," ");

                        wmove(win[n],win_y[n]+1,1);

                        for (j=1;j<win_col_size-1;j++) wprintw(win[n]," ");

                }

                wmove(win[n],win_y[n],win_x[n]);

        }

        wrefresh(win[n]);

}

void update_out_file(int n){

        char tmp_str [30];

        FILE * fout;

        sprintf(tmp_str,"TEMP_OUT/temp%u",n);

        fout= fopen(tmp_str,"a");

        if (fout==NULL)

        {

                printf("Warning: could not creat %s file. Write on output file is diabled\n",tmp_str);

                write_log_file=0;

                return;

        }

        buffer[n][buff_ptr[n]]=0;

        fprintf(fout,"%s",buffer[n]);

        fclose(fout);

}

void merge_output_files (){

        int i;

        FILE * fout;

        FILE * fin;

        char tmp_str[30];

        char ch;

        fout= fopen(outfile,"w");

        if(fout ==NULL){

                printf("Warning: could not creat %s file. Write on output file is diabled\n",outfile);

                write_log_file=0;

                return;

        }

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

                sprintf(tmp_str,"TEMP_OUT/temp%u",i);

                fin= fopen(tmp_str,"r");

                while ((ch = fgetc(fin)) != EOF)  fputc(ch,fout);

                fclose(fin);

                fprintf(fout,"\n-------------------------------------------------------------------------------------------------\n");

        }

        fclose(fout);

}

void run_jtag_scaner(){

        int i;

        int index;

        char send_char=0; // not added yet. needed to be taken from the user     

        unsigned out;

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

                index= index_nums[i];

                send_char=0;

                //select index          

                jtag_vindex(index);

                //select instruction

                jtag_vir (UPDATE_WB_RD_DATA);

                //read uart reg 0 

                jtag_vdr(32, 0, &out);

                out&=0xFF;

                if(out != 0){

                        win_add_char(i,out);

                }

        }

}

int main(int argc, char** argv) {

        int i,key;

        int j;

        chain_num = 3;//default chain tap num for UART. Howver the user can change it by giving argc

        processArgs (argc, argv );

        WORDS_NUM= (BYTE_NUM % sizeof(unsigned )) ? (BYTE_NUM / sizeof(unsigned ) )+1 : (BYTE_NUM / sizeof(unsigned ));

        printf("Initial Vjtag for index num=%u target num=%u and shift-reg size %u.\n",index_num,jtag_target_number,jtag_shift_reg_size);

        if (jtag_init()){

                fprintf (stderr, "Error opening jtag IP with %d index num\n",index_num);

                return -1;

        }

        //devide the screen equaly between all UARTs

        initial_windows();

        do {

                run_jtag_scaner();

                key=getch();

        } while (key != ESCAPE);

        if(write_log_file){

                for (i=0;i<uart_num;i++) update_out_file(i);

                merge_output_files();

        }

        endwin();

        return 0;

}