home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c150 / 4.ddi / FINDPUBS.C < prev    next >
Encoding:
C/C++ Source or Header  |  1990-10-13  |  4.3 KB  |  163 lines
  1. #include <stdio.h>
  2. #include "vista.h"
  3. #include "tims.h"
  4.  
  5. static char cmd[10];
  6.  
  7. static int  pr_keywords(P0);
  8. static int  pr_abstract(P0);
  9.  
  10. int strcmp( P1(char *) Pi(char *) );
  11.  
  12. /* Find publications by key word
  13. */
  14. by_key()
  15. {
  16.    struct info irec;   /* info record variable */
  17.    char name[32];      /* author's name */
  18.    char key[32];       /* key word */
  19.  
  20.    /* find key word record */
  21.    printf("key word: ");
  22.    gets(key);
  23.    if ( d_keyfind(WORD, key, CURR_DB) == S_NOTFOUND )
  24.       printf("no records found\n");
  25.    else {
  26.       /* scan thru key_to_info set */
  27.       d_setor(KEY_TO_INFO, CURR_DB);
  28.       for (d_findfm(KEY_TO_INFO, CURR_DB); db_status == S_OKAY; d_findnm(KEY_TO_INFO, CURR_DB)) {
  29.      /* find current owner (info) of current record (intersect) */
  30.      d_findco(INFO_TO_KEY, CURR_DB);      
  31.  
  32.      /* read contents of info record */
  33.      d_recread(&irec, CURR_DB); 
  34.  
  35.      /* find author of info record */
  36.      d_findco(HAS_PUBLISHED, CURR_DB);
  37.      d_crread(NAME, name, CURR_DB);
  38.      
  39.      /* print results */
  40.      printf("id_code: %s\n", irec.id_code);
  41.      printf("author : %s\n", name);
  42.      printf("title  : %s\n", irec.info_title);
  43.      printf("publ.  : %s, %s\n", irec.publisher, irec.pub_date);
  44.      pr_keywords();
  45.      pr_abstract();
  46.      printf("--- press <enter> to continue");
  47.      gets(cmd);
  48.       }
  49.    }
  50.    return (0);
  51. }
  52.  
  53.  
  54. /* Find publication by author
  55. */
  56. by_author()
  57. {
  58.    struct info irec;   /* info record variable */
  59.    char search[32];    /* author to search for */
  60.    char name[32];
  61.  
  62.    /* find author record */
  63.    printf("author: ");
  64.    gets(search);
  65.    for (d_findfm(AUTHOR_LIST, CURR_DB); db_status == S_OKAY; d_findnm(AUTHOR_LIST, CURR_DB)) {
  66.       d_crread(NAME, name, CURR_DB);
  67.       if ( strcmp(search, name) == 0 )
  68.      break;
  69.       else if ( strcmp(search, name) < 0 ) {
  70.      printf("author record not found\n");
  71.      return (0);
  72.       }
  73.    }
  74.    if ( db_status == S_OKAY ) {
  75.       d_setor(HAS_PUBLISHED, CURR_DB);
  76.       for (d_findfm(HAS_PUBLISHED, CURR_DB); db_status == S_OKAY; 
  77.      d_findnm(HAS_PUBLISHED, CURR_DB)) {
  78.      d_recread(&irec, CURR_DB);
  79.  
  80.      /* read and print info record */
  81.      printf("id_code: %s\n", irec.id_code);
  82.      printf("author : %s\n", name);
  83.      printf("title  : %s\n", irec.info_title);
  84.      printf("publ.  : %s, %s\n", irec.publisher, irec.pub_date);
  85.      pr_keywords();
  86.      pr_abstract();
  87.      printf("--- press <enter> to continue");
  88.      gets(cmd);
  89.       }
  90.    }
  91.    return (0);
  92. }
  93.  
  94.  
  95. /* Print key words
  96. */
  97. static pr_keywords()
  98. {
  99.    long count;    /* number of info_to_key members */
  100.    char key[32];  /* key word or phrase */
  101.    DB_ADDR dba;   /* db addr of key_to_info member */
  102.  
  103.    /* the current member of the has_published set is the
  104.       info record whose key words are to be listed */
  105.    d_setom(INFO_TO_KEY, HAS_PUBLISHED, CURR_DB);
  106.  
  107.    /* fetch number of members of info_to_key */
  108.    d_members(INFO_TO_KEY, &count, CURR_DB);
  109.  
  110.    /* list the key words, if any */
  111.    if ( count > 0L ) {
  112.       /* save current member of key_to_info because it's
  113.      going to change and we may be currently scanning
  114.      through that set */
  115.       d_csmget(KEY_TO_INFO, &dba, CURR_DB);
  116.  
  117.       printf("key words:\n----------\n");
  118.       /* find each intersect member record */
  119.       while ( d_findnm(INFO_TO_KEY, CURR_DB) == S_OKAY ) {
  120.      /* find, read and print corresponding key_word */
  121.      d_findco(KEY_TO_INFO, CURR_DB);
  122.      d_crread(WORD, key, CURR_DB);
  123.      printf("   %s\n", key);
  124.       }
  125.       printf("\n");
  126.  
  127.       /* reset key_to_info current member and owner */
  128.       if ( dba )
  129.      d_csmset(KEY_TO_INFO, &dba, CURR_DB);
  130.    }
  131.    return (0);
  132. }
  133.  
  134.  
  135.  
  136. /* Print abstract
  137. */
  138. static pr_abstract()
  139. {
  140.    long count;   /* number of abstract members */
  141.    char txt[80]; /* line of abstract text */
  142.  
  143.    /* the current member of has_published is the info
  144.       record whose abstract is to be printed */
  145.    d_setom(ABSTRACT, HAS_PUBLISHED, CURR_DB);
  146.  
  147.    /* fetch number of lines in abstract */
  148.    d_members(ABSTRACT, &count, CURR_DB);
  149.  
  150.    /* print abstract, if one exists */
  151.    if ( count > 0 ) {
  152.       printf("abstract:\n---------\n");
  153.  
  154.       /* find, read and print each abstract text line */
  155.       while ( d_findnm(ABSTRACT, CURR_DB) != S_EOS ) {
  156.      d_csmread(ABSTRACT, LINE, txt, CURR_DB);
  157.      printf("  %s\n", txt);
  158.       }
  159.    }
  160.    printf("\n");
  161.    return (0);
  162. }
  163.