 /*
 * Copyright(C) 2000 Проект ИОК
 *
 * Этот файл содержит информацию, являющуюся
 * собственностью компании Крипто Про.
 *
 * Любая часть этого файла не может быть скопирована,
 * исправлена, переведена на другие языки,
 * локализована или модифицирована любым способом,
 * откомпилирована, передана по сети с или на
 * любую компьютерную систему без предварительного
 * заключения соглашения с компанией Крипто Про.
 */

#include "ric_prj.h"

DWORD ric_file_close( 
    TSupSysContext *context, 
    TSupSysInfo *info )
{
    TRICContext *ctx = (TRICContext*)context;

    SUPSYS_PRE_CONTEXT( context, TRICContext );
    UNUSED(info);

    ctx->status &= ~RIC_STATUS_FILE_SELECTED;
    ctx->file = 0;
    ctx->file_length = 0;
    return ERROR_SUCCESS;
}
/* end of file: $Id: ric_clos.c 118717 2015-04-14 16:16:50Z sagafyin $ */
