Stats

  • Locked Locked
  • Replies 8
  • Subscribers 143
  • Views 21234
  • Members are here 0
This discussion has been locked.
You can no longer post new replies to this discussion. If you have a question you can start a new discussion

Returning value from a function

netbug

Dear all,

I have written the function below, which only checks if a given file exists or not, and I would like it to return the value stored into retValue.

As far as I know, SKILL returns the value of the last line of code (is this correct ?).

If I write the code as below, I will get the error:

*** Error in routine eval:
Message: *Error* eval: unbound variable - retValue

However, if I replace retValue by retValue=isFileName(myFilePath) it will work,but, from my point of view, this is an example of ugly code, since I am evaluating the function twice. Is there another way to do this ?

If the variable retValue retains always the correct value, why does it get unbound after the if instruction end ?

Thanks in advance,

José

procedure(fileExists(myFilePath)
                   let((retValue)
                   retValue=isFileName(myFilePath) ; Test if the file exists

                   ; Check if config file exists
                   if((retValue==t) then
                          printf("fileExists: File Exists !")
                   else
                         printf("fileExists: File does not Exist !")
                   ); end if
                   ); End letmypath
                   retValue                              ; Return Value
); End procedure

Parents

  • If you have code in the file containing the script which runs as the file is loaded, you can use:

    get_filename(piport)

    to find the path name for the script. You could use this code below to get the full path for that resolving the SKILL path:

    ABfindFileOnPath(get_filename(piport))

    From that you could remove the trailing part of the filename to find the directory. For example:

    pattern=pcreCompile("/[/]*$")
    dirName=pcreReplace(pattern ABfindFileOnPath(get_filename(piport)) "" 1)

    * ABfindFileOnPath.il

Author     A.D.Beckett
Group      Custom IC (UK), Cadence Design Systems Ltd.
Language   SKILL
Date       Mar 10, 2005 
Modified   
By         

SKILL Lint score: 100

***************************************************

SCCS Info: @(#) ABfindFileOnPath.il 03/11/05.11:37:35 1.2

*/

/******************************************************************
*                                                                 *
*                   ABfindFileOnPath(fileName)                    *
*                                                                 *
* Given a filename, return the full path to it. It uses the SKILL *
*    path if it is a file that doesn't begin with a number of     *
*    prefixes. If it is searched using the SKILL path, it will    *
*    return nil if the file can't be found - it doesn't bother    *
*      checking that for other cases (although it could...)       *
*                                                                 *
******************************************************************/

procedure(ABfindFileOnPath(fileName)
    let((foundPath)
        ;----------------------------------------------------------------
        ; Unless it begins with ./ ../ ~ or /, try to find the
        ; file along the SKILL path
        ;----------------------------------------------------------------
        unless(rexMatchp("^./" fileName) ||
            rexMatchp("^../" fileName) ||
            rexMatchp("^[/~]" fileName)
            foundPath=exists(path getSkillPath()
                isFile(strcat(path "/" fileName)))
            if(foundPath then
                fileName=strcat(car(foundPath) "/" fileName)
            else
                fileName=nil
            ) ; if
        ) ; unless
        ;----------------------------------------------------------------
        ; Simplify to give the full path name
        ;----------------------------------------------------------------
        when(fileName simplifyFilename(fileName))
    ) ; let
) ; procedure

    Something like that.

    Regards,

    Andrew 

Reply

  • If you have code in the file containing the script which runs as the file is loaded, you can use:

    get_filename(piport)

    to find the path name for the script. You could use this code below to get the full path for that resolving the SKILL path:

    ABfindFileOnPath(get_filename(piport))

    From that you could remove the trailing part of the filename to find the directory. For example:

    pattern=pcreCompile("/[/]*$")
    dirName=pcreReplace(pattern ABfindFileOnPath(get_filename(piport)) "" 1)

    * ABfindFileOnPath.il

Author     A.D.Beckett
Group      Custom IC (UK), Cadence Design Systems Ltd.
Language   SKILL
Date       Mar 10, 2005 
Modified   
By         

SKILL Lint score: 100

***************************************************

SCCS Info: @(#) ABfindFileOnPath.il 03/11/05.11:37:35 1.2

*/

/******************************************************************
*                                                                 *
*                   ABfindFileOnPath(fileName)                    *
*                                                                 *
* Given a filename, return the full path to it. It uses the SKILL *
*    path if it is a file that doesn't begin with a number of     *
*    prefixes. If it is searched using the SKILL path, it will    *
*    return nil if the file can't be found - it doesn't bother    *
*      checking that for other cases (although it could...)       *
*                                                                 *
******************************************************************/

procedure(ABfindFileOnPath(fileName)
    let((foundPath)
        ;----------------------------------------------------------------
        ; Unless it begins with ./ ../ ~ or /, try to find the
        ; file along the SKILL path
        ;----------------------------------------------------------------
        unless(rexMatchp("^./" fileName) ||
            rexMatchp("^../" fileName) ||
            rexMatchp("^[/~]" fileName)
            foundPath=exists(path getSkillPath()
                isFile(strcat(path "/" fileName)))
            if(foundPath then
                fileName=strcat(car(foundPath) "/" fileName)
            else
                fileName=nil
            ) ; if
        ) ; unless
        ;----------------------------------------------------------------
        ; Simplify to give the full path name
        ;----------------------------------------------------------------
        when(fileName simplifyFilename(fileName))
    ) ; let
) ; procedure

    Something like that.

    Regards,

    Andrew 

Children
No Data

Community Guidelines

The Cadence Design Communities support Cadence users and technologists interacting to exchange ideas, news, technical information, and best practices to solve problems and get the most from Cadence technology. The community is open to everyone, and to provide the most value, we require participants to follow our Community Guidelines that facilitate a quality exchange of ideas and information. By accessing, contributing, using or downloading any materials from the site, you agree to be bound by the full Community Guidelines.