borrow.c

db.* (pronounced dee-be star) is an advanced, high performance, small footprint embedded database fo

/***************************************************************************
 *                                                                         *
 * db.*                                                                    *
 * open source database, TIMS example application                          *
 *                                                                         *
 * Copyright (c) 2000 Centura Software Corporation. All rights reserved.   *
 *                                                                         *
 * Use of this software, whether in source code format, or in executable,  *
 * binary object code form, is governed by the CENTURA OPEN SOURCE LICENSE *
 * which is fully described in the LICENSE.TXT file, included within this  *
 * distribution of source code files.                                      * 
 *                                                                         *
 **************************************************************************/

#include <stdio.h>
#include "db.star.h"
#include "tims.h"

char *getstring(char *, int);
extern DB_TASK *Currtask;

/* Loan book
*/
int loan_book()
{
    char id[SIZEOF_ID_CODE];
    char date[20];
    struct borrower brec;

    printf("id_code of book to be loaned: ");
    if (getstring(id,SIZEOF_ID_CODE) && id[0] != '\0')
    {
        if (d_keyfind(ID_CODE, id, Currtask, CURR_DB) == S_NOTFOUND)
            printf("id_code %s not on file\n", id);
        else
        {
            d_setor(LOANED_BOOKS, Currtask, CURR_DB);
            printf("name of borrower: ");
            getstring(brec.friend,SIZEOF_FRIEND);
            printf("date borrowed   : ");
            getstring(date,sizeof(date));
            sscanf(date, "%ld", &brec.date_borrowed);
            brec.date_returned = 0L;
            d_fillnew(BORROWER, &brec, Currtask, CURR_DB);
            d_connect(LOANED_BOOKS, Currtask, CURR_DB);
            d_connect(LOAN_HISTORY, Currtask, CURR_DB);
        }
    }
    return (0);
}


/* Returned borrowed book
*/
int return_book()
{
    char id[SIZEOF_ID_CODE];
    char friend[SIZEOF_FRIEND];
    char date[20];
    long bdate;
    struct borrower brec;

    printf("id_code of returned book: ");
    if (getstring(id,SIZEOF_ID_CODE) && id[0] != '\0')
    {
        if (d_keyfind(ID_CODE, id, Currtask, CURR_DB) == S_NOTFOUND)
            printf("id_code %s not on file\n", id);
        else
        {
            d_setor(LOANED_BOOKS, Currtask, CURR_DB);
            printf("name of borrower: ");
            getstring(friend,SIZEOF_FRIEND);
            while (d_findnm(LOANED_BOOKS, Currtask, CURR_DB) == S_OKAY)
            {
                d_recread(&brec, Currtask, CURR_DB);
                if (strcmp(brec.friend, friend) == 0)
                {
                    if (brec.date_returned == 0L)
                    {
                        printf("book borrowed on: %ld\n", brec.date_borrowed);
                        printf("date returned   : ");
                        getstring(date,sizeof(date));
                        sscanf(date, "%ld", &bdate);
                        d_crwrite(DATE_RETURNED, &bdate, Currtask, CURR_DB);
                        return (0);
                    }
                }
            }
            printf("borrower not on file\n");
        }
    }
    return (0);
}


/* List loaned out books
*/
int list_loaners()
{
    int status;
    struct borrower brec;
    char title[80];

    for (status = d_findfm(LOAN_HISTORY, Currtask, CURR_DB); status == S_OKAY;
          status = d_findnm(LOAN_HISTORY, Currtask, CURR_DB))
    {
        d_recread(&brec, Currtask, CURR_DB);
        if (brec.date_returned == 0L)
        {
            d_findco(LOANED_BOOKS, Currtask, CURR_DB);
            d_crread(INFO_TITLE, title, Currtask, CURR_DB);
            printf("title: %s\n", title);
            printf("borrowed by %s on %ld\n\n", brec.friend, brec.date_borrowed);
        }
    }
    return (0);
}