How to Load and Save Media Mogul Variables to a File

/***************************************************************************
* Filename:       cdi_vars.c
* Purpose:        MeMo plug-in to load/save MeMo vars in random filename
* Arguments:      1) string containing the name of the file
*                    you want var's to be loaded from
*		  	   2) The command in capitals 'SAVE' or 'LOAD'
*    
* Returns:        On Error it will exit with error code 1 AND
*                 will set the Media Mogul variable Z to 999.
*                 e.g. The case when the file doesn't exists.
*
*  This plug-in loades or saves MeMo vars from a file with the
*  name given in the first argument. The second argument should be
*  'SAVE' or 'LOAD'. 
*  Only variables A-Y are saved/loaded (Z is used by this plug-in).
*  
*  Author:        Richard van de Laarschot
*		  	   based on 2 programmes of M. Verhoeven
*  Date:          10-07-95
*   
***************************************************************************/
#include 
#include 
#include  
#include  
#include 
#include 

#define SYSERR                  (-1)

/* globals */
int var_buf[25];
char cat_string[50];
char hlp_string[6] = "/nvr/";

/*******************
* Function to set the Media Mogul Variable 'Z' to '999'.
* This is done to let Media Mogul know the plugin failed.
* It will return a 1 on Error.
*******************/
Set_MeMo_varZ()
{
int zd, value_z, result;

zd = _ev_link("Z");
if (zd == SYSERR)
	{
	return(1);
	}
value_z = 999;
result = _ev_set(zd, value_z, 0);
if (result == SYSERR)
	{
	return(1);
	}
result = _ev_unlink(zd);
if (result == SYSERR)
	{
	return(1);
	}
return(0);
}

Empty_Buf()
{
int i;
int id, result, ev_value;
char link_var[2];      

link_var[0] = 'A';
link_var[1] = '\0';

for (i=0; i<25; i++)
{
	id = _ev_link(link_var);
	if (id == SYSERR)
		{
		Set_MeMo_varZ(); 
		exit(1);
		}
	ev_value = *(var_buf + i);
	result = _ev_set(id, ev_value, 0x0000);
	if (result == SYSERR)
		{
		Set_MeMo_varZ(); 
		exit(1);
		}
	result = _ev_unlink(id);
	if (result == SYSERR)
		{
		Set_MeMo_varZ(); 
		exit(1);
		}
	link_var[0]++;  
}
return(0);
}



Fill_Buf()
{
int i;
int id, result;
char link_var[2];      

link_var[0] = 'A';
link_var[1] = '\0';

for (i=0; i<25; i++)
{
	id = _ev_link(link_var);
	if (id == SYSERR)
		{
		Set_MeMo_varZ(); 
		exit(1);
		}
	link_var[0]++; 
	*(var_buf + i) = _ev_read(id);
	result = _ev_unlink(id);
	if (result == SYSERR)
		{
		Set_MeMo_varZ(); 
		exit(1);
		}
}
return(0);
}






/***************************************************************************
* main()
***************************************************************************/
main( argc, argv )
int argc;
char **argv;
{
      int i;
      FILE *fp;
 
      /* check parameters */
      if (argc != 3) 
	{
	i = Set_MeMo_varZ();
	exit(1); 
	}
      if ((strcmp(argv[2], "SAVE") != 0) && (strcmp(argv[2], "LOAD") != 0))
	{
	i = Set_MeMo_varZ();
	exit(1); 
	}

      /* set file name */
      for (i =0; i < 6; i++)
	{
	cat_string[i] = hlp_string[i];
	}
      strcat(cat_string, argv[1]);

      /* load variables from file */
      if (strcmp(argv[2], "LOAD") == 0)
	{
         fp = fopen( cat_string, "r"); 
         if ( fread(var_buf, sizeof(int), 25, fp) == 0) 
           {
           fclose(fp);
           Set_MeMo_varZ(); 
           exit(1);
           }
         Empty_Buf();
	}
 
      /* save variables to file */
      if (strcmp(argv[2], "SAVE") == 0)
	{   /* if file already exists it is truncated to zero lenght */  
         fp = fopen( cat_string, "w"); 
         Fill_Buf(var_buf); /* fille buffer with values MeMO variables */
         if ( fwrite(var_buf, sizeof(int), 25, fp) == 0) 
           {
           unlink(argv[1]);
           fclose(fp);
           Set_MeMo_varZ(); 
           exit(1);
           }
	}

      fclose(fp);
      /* succes */
      exit(0);
}

Quick RL7 Buttons

PIMC Mailserver

CD-i information by email