Category

Development Platform
Home > SourceCode/Document > Communication-Mobile > Voice Compress > View Code
diskrdf.c
Package: celp_3.2a.tar.gz　[view]
Upload User: szhypcb168
Upload Date: 2007-01-06
Package Size: 2187k
Code Size: 3k
Category:

Voice Compress

Development Platform:

Unix_Linux

diskrdf.c：Code Content
  1. /*  ----------------------  DATA FILE READ ROUTINES  -----------------------  */
  2. /*  -----------------------  Sun FORTRAN Interface  ------------------------  */
  3. /*  -----------------  Interface Version 1.0   June 1988  ------------------  */
  4. /*  ------------------------------------------------------------------------  */
  6. #include "diskio.h"
  8. /*  -------------------  OPEN VARIABLE CHANNEL ROUTINE  --------------------  */
  10. open_var_channel_ ( filename, var_name, fn_leng, vn_leng )
  12. char filename[], var_name[];
  13. int fn_leng, vn_leng;
  15. {
  16.    char *add_null(), ts[MAX_VARNAME_LENG+1];
  17.    strcpy(ts, add_null(var_name, vn_leng) );
  18.    return( open_var_channel(add_null(filename, fn_leng), ts) );
  19. }
  21. /*  ---------------------  OPEN BLOCK CHANNEL ROUTINE  ---------------------  */
  23. open_block_channel_ ( filename, fn_leng )
  25. char filename[];
  26. int fn_leng;
  28. {
  29.    char *add_null();
  30.    return( open_block_channel( add_null(filename, fn_leng) ) );
  31. }
  33. /*  ------------------------  READ FORMAT ROUTINE  -------------------------  */
  35. read_format_ ( filename, format, vname, fn_leng, vn_leng )
  37. char filename[], *vname;
  38. int format[], fn_leng, vn_leng;
  40. {
  41.    char *add_null(), *vnames[MAX_VARS_PER_BLK];
  42.    int i;
  43.    for(i=0; i<MAX_VARS_PER_BLK; i++) vnames[i] = vname + i*vn_leng;
  44.    return( read_format(add_null(filename, fn_leng), format, vnames) );
  45. }
  47. /*  ------------------------  FILE LENGTH ROUTINE  -------------------------  */
  49. file_length_ ( channel_p, bytes, samples, blocks )
  51. int *channel_p, *bytes, *samples, *blocks;
  53. {
  54.    return( file_length(*channel_p, bytes, samples, blocks) );
  55. }
  57. /*  ------------------------  GOTO SAMPLE ROUTINE  -------------------------  */
  59. goto_sample_ ( channel_p, sample_num_p, how_p )
  61. int *channel_p, *sample_num_p, *how_p;
  63. {
  64.    return( goto_sample(*channel_p, *sample_num_p, *how_p) );
  65. }
  67. /*  -----------------------  READ VARIABLE ROUTINE  ------------------------  */
  69. read_variable_ ( channel_p, values, n_p, n_read )
  71. int *channel_p, *n_p, *n_read;
  72. char values[];
  74. {
  75.    return( read_variable(*channel_p, values, *n_p, n_read) );
  76. }
  78. /*  ------------------------  GOTO BLOCK ROUTINE  --------------------------  */
  80. goto_block_ ( channel_p, block_num_p, how_p )
  82. int *channel_p, *block_num_p, *how_p;
  84. {
  85.    return( goto_block(*channel_p, *block_num_p, *how_p) );
  86. }
  88. /*  ------------------------  READ BLOCK ROUTINE  --------------------------  */
  90. read_block_ ( channel_p, val_pntr )
  92. char *val_pntr[];
  93. int *channel_p;
  95. {
  96.    return( read_block(*channel_p, val_pntr) );
  97. }
  99. /*  -----------------------  CLOSE CHANNEL ROUTINE  ------------------------  */
  101. close_channel_ ( channel_p )
  103. int *channel_p;
  105. {
  106.    return( close_channel(*channel_p) );
  107. }
  109. /*  ----------------------  DISK READ ERROR ROUTINES  ----------------------  */
  111. print_disk_read_error_ ( err_num_p )
  113. int *err_num_p;
  115. {
  116.    print_disk_read_error(*err_num_p);
  117.    return;
  118. }
  120. /* NO FORTRAN INTERFACE TO DISK_READ_ERROR YET */
  122. /*  ------------------------------  add_null  ------------------------------  */
  124. #define MAX_STRING_LENGTH   100
  126. static char *add_null(string, length)
  128. char string[];
  129. int length;
  131. {
  132.    static char ts[MAX_STRING_LENGTH + 1];
  133.    int i;
  135.    if (length > MAX_STRING_LENGTH) length = MAX_STRING_LENGTH;
  136.    for (i=0; i<length; i++) ts[i] = string[i]; /* copy input string */
  137.    ts[length] = '';               /* and terminate it with a null */
  138.    i = length - 1;      /* start at end of string */
  139.    while (ts[i] == ' ') ts[i--] = '';  /* change trailing blanks to nulls */
  140.    return(ts);
  141. }