home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c150 / 4.ddi / ENTINFO.C < prev    next >
Encoding:
C/C++ Source or Header  |  1990-10-13  |  3.1 KB  |  129 lines
  1. #include <stdio.h>
  2. #include "vista.h"
  3. #include "tims.h"
  4.  
  5. static struct info irec;   
  6. static struct author arec;
  7.  
  8. static int  enter_key_words(P0);
  9. static int  enter_abstract(P0);
  10. static int  get_info(P0);
  11.  
  12. int strcmp( P1(char *) Pi(char *) );
  13.  
  14. /* Enter technical information records into TIMS database
  15. */
  16. ent_info()
  17. {
  18.    char s[32];  /* generic string variable */
  19.  
  20.    /* enter tech info into TIMS database */
  21.    while ( get_info() != EOF ) {
  22.       /* see if author exists */
  23.       for (d_findfm(AUTHOR_LIST, CURR_DB); db_status == S_OKAY; d_findnm(AUTHOR_LIST, CURR_DB)) {
  24.      d_crread(NAME, s, CURR_DB);
  25.      if ( strcmp(arec.name, s) == 0 ) 
  26.         break;  /* author record on file */
  27.       }
  28.       if ( db_status == S_EOS ) {
  29.      /* author not on file -- 
  30.         create record and connect to author list */
  31.      d_fillnew(AUTHOR, &arec, CURR_DB);
  32.      d_connect(AUTHOR_LIST, CURR_DB);
  33.       }
  34.       /* make author current owner of has_published set */
  35.       d_setor(HAS_PUBLISHED, CURR_DB);
  36.  
  37.       /* create new tech. info record */
  38.       if ( d_fillnew(INFO, &irec, CURR_DB) == S_DUPLICATE )
  39.      printf("duplicate id_code: %s\n", irec.id_code);
  40.       else {
  41.      /* connect to author record */
  42.      d_connect(HAS_PUBLISHED, CURR_DB);
  43.  
  44.      /* set current owner for key words and abstract */
  45.      d_setor(INFO_TO_KEY, CURR_DB);
  46.      d_setor(ABSTRACT, CURR_DB);
  47.  
  48.      enter_key_words();
  49.  
  50.      enter_abstract();
  51.       }
  52.    }
  53.    return (0);
  54. }
  55.  
  56.  
  57.  
  58. /* Enter any key words 
  59. */
  60. static enter_key_words()
  61. {
  62.    char s[32];
  63.  
  64.    for ( ;; ) {
  65.       printf("key word: ");
  66.       if ( gets(s) == NULL || s[0] == '\0' )
  67.      break;
  68.       /* see if key word record exists */
  69.       if ( d_keyfind(WORD, s, CURR_DB) == S_NOTFOUND ) {
  70.      /* create new key word record */
  71.      d_fillnew(KEY_WORD, s, CURR_DB);
  72.       }
  73.       d_setor(KEY_TO_INFO, CURR_DB);
  74.  
  75.       /* create intersection record */
  76.       d_fillnew(INTERSECT, &irec.info_type, CURR_DB);
  77.       d_connect(KEY_TO_INFO, CURR_DB);
  78.       d_connect(INFO_TO_KEY, CURR_DB);
  79.    }
  80.    return (0);
  81. }
  82.  
  83.  
  84. /* Enter abstract description
  85. */
  86. static enter_abstract()
  87. {
  88.    char text_line[80];
  89.  
  90.    for ( ;; ) {
  91.       printf("abstract: ");
  92.       if ( gets(text_line) == NULL || text_line[0] == '\0' )
  93.      return (0);
  94.       d_fillnew(TEXT, text_line, CURR_DB);
  95.       d_connect(ABSTRACT, CURR_DB);
  96.    }
  97.    return (0);
  98. }
  99.  
  100.  
  101.  
  102. /* Fill irec, arec with info data from user
  103. */
  104. static int get_info()
  105. {
  106.    char txt[40];
  107.  
  108.    printf("author   : "); 
  109.    if ( gets(arec.name) == NULL || arec.name[0] == '\0' )
  110.       return( EOF );
  111.    else {
  112.       for ( ;; ) {
  113.      printf("id_code  : "); gets(irec.id_code);
  114.      printf("title    : "); gets(irec.info_title);
  115.      printf("publisher: "); gets(irec.publisher);
  116.      printf("pub. date: "); gets(irec.pub_date);
  117.      for ( ;; ) {
  118.         printf("info type: "); gets(txt);
  119.         sscanf(txt, "%d", &irec.info_type);
  120.         if ( irec.info_type >= 0 && irec.info_type <= 2 ) break;
  121.         printf("invalid info type - correct types are:\n");
  122.         printf("0 - book, 1 = magazine, 2 = article\n");
  123.      }
  124.      printf("enter data (y/n)? "); gets(txt);
  125.      if ( txt[0] == 'y' || txt[0] == 'Y' ) return( 0 );
  126.       }
  127.    }
  128. }
  129.