← Back to branch summary

~ubuntu-branches/ubuntu/raring/scilab/raring-proposed

« back to all changes in this revision

Viewing changes to modules/history_manager/sci_gateway/c/sci_gethistoryfile.c

  • Committer: Package Import Robot
  • Author(s): Sylvestre Ledru
  • Date: 2012-08-30 14:42:38 UTC
  • mfrom: (1.4.7)
  • Revision ID: package-import@ubuntu.com-20120830144238-c1y2og7dbm7m9nig
Tags: 5.4.0-beta-3-1~exp1
* New upstream release
* Update the scirenderer dep
* Get ride of libjhdf5-java dependency

Show diffs side-by-side

added added

removed removed

Lines of Context:
modules/history_manager/sci_gateway/c/sci_gethistoryfile.c
18
18
#include "Scierror.h"
19
19
#include "localization.h"
20
20
/*--------------------------------------------------------------------------*/
21
 
int sci_gethistoryfile(char *fname,unsigned long fname_len)
 
21
int sci_gethistoryfile(char *fname, unsigned long fname_len)
22
22
{
23
 
        char *filename = NULL;
24
 
        int m1 = 0, n1 = 0;
25
 
 
26
 
        CheckRhs(0,0) ;
27
 
        CheckLhs(0,1) ;
28
 
 
29
 
        filename = getFilenameScilabHistory();
30
 
 
31
 
        if (filename)
32
 
        {
33
 
                n1=1;
34
 
                CreateVarFromPtr(Rhs+ 1,STRING_DATATYPE,(m1=(int)strlen(filename), &m1),&n1,&filename);
35
 
                if (filename) {FREE(filename);filename=NULL;}
36
 
                LhsVar(1) = Rhs+1;
37
 
                PutLhsVar();
38
 
        }
39
 
        else
40
 
        {
41
 
                Scierror(999,_("%s: An error occurred: %s\n"),fname,_("filename not defined."));
42
 
        }
43
 
        return 0;
 
23
    char *filename = NULL;
 
24
    int m1 = 0, n1 = 0;
 
25
 
 
26
    CheckRhs(0, 0) ;
 
27
    CheckLhs(0, 1) ;
 
28
 
 
29
    filename = getFilenameScilabHistory();
 
30
 
 
31
    if (filename)
 
32
    {
 
33
        n1 = 1;
 
34
        m1 = (int)strlen(filename);
 
35
        CreateVarFromPtr(Rhs + 1, STRING_DATATYPE, &m1, &n1, &filename);
 
36
        if (filename)
 
37
        {
 
38
            FREE(filename);
 
39
            filename = NULL;
 
40
        }
 
41
        LhsVar(1) = Rhs + 1;
 
42
        PutLhsVar();
 
43
    }
 
44
    else
 
45
    {
 
46
        Scierror(999, _("%s: An error occurred: %s\n"), fname, _("filename not defined."));
 
47
    }
 
48
    return 0;
44
49
}
45
50
/*--------------------------------------------------------------------------*/