Category

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

Voice Compress

Development Platform:

Unix_Linux

diskwrtf.c：Code Content
  1. /*  ----------------------  DATA FILE WRITE ROUTINES  ----------------------  */
  2. /*  -----------------------  Sun FORTRAN Interface  ------------------------  */
  3. /*  ------------------  Interface Version 1.0   May 1988  ------------------  *
  4. /*  ------------------------------------------------------------------------  */
  5. #include "diskio.h"
  6. /*  -------------------------  OPEN FILE ROUTINE  -------------------------  */
  8. open_file_ ( filename, open_type_p, fn_leng )
  10. char filename[];
  11. int *open_type_p, fn_leng;
  13. {
  14.    char *add_null();
  15.    return( open_file(add_null(filename, fn_leng), *open_type_p) );
  16. }
  18. /*  ----------------------  DEFINE VARIABLE ROUTINE  ----------------------  */
  20. def_variable_ ( file_id_p, name, type_p, number_p, def_val, name_leng )
  22. char name[], def_val[];
  23. int *file_id_p, *type_p, *number_p, name_leng;
  25. {
  26.    char *add_null();
  27.    return( def_variable(*file_id_p, add_null(name, name_leng), *type_p, *number_p, def_val) );
  28. }
  30. /*  -----------------------  SAVE VARIABLE ROUTINE  -----------------------  */
  32. save_variable_ ( var_id_p, values, num_p )
  34. char values[];
  35. int *var_id_p, *num_p;
  37. {
  38.    return( save_variable(*var_id_p, values, *num_p) );
  39. }
  41. /*  -------------------------  END BLOCK ROUTINE  -------------------------  */
  43. end_block_ ( file_id_p )
  45. int *file_id_p;
  47. {
  48.    return( end_block(*file_id_p) );
  49. }
  51. /*  -------------------------  CLOSE FILE ROUTINE  -------------------------  */
  53. close_file_ ( file_id_p )
  55. int *file_id_p;
  57. {
  58.    return( close_file(*file_id_p) );
  59. }
  61. /*  ---------------------  DISK WRITE ERROR ROUTINES  ---------------------  */
  63. print_disk_write_error_ ( err_num_p )
  65. int *err_num_p;
  67. {
  68.    print_disk_write_error(*err_num_p);
  69.    return;
  70. }
  72. /*  ------------------------------  add_null  ------------------------------  */
  74. #define MAX_STRING_LENGTH   100
  76. static char *add_null(string, length)
  78. char string[];
  79. int length;
  81. {
  82.    static char ts[MAX_STRING_LENGTH + 1];
  83.    int i;
  85.    if (length > MAX_STRING_LENGTH) length = MAX_STRING_LENGTH;
  86.    for (i=0; i<length; i++) ts[i] = string[i]; /* copy input string */
  87.    ts[length] = '';               /* and terminate it with a null */
  88.    i = length - 1;      /* start at end of string */
  89.    while (ts[i] == ' ') ts[i--] = '';  /* change trailing blanks to nulls */
  90.    return(ts);
  91. }