Stats

  • Locked Locked
  • Replies 5
  • Subscribers 144
  • Views 16383
  • 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

Save variables to a file and load them later

zmleitao

Is there an easy way in SKILL to save variables to a file so as to be able to later loading them from that same file.

I am interested in saving tables and lists, for instance.

Parents
  • tweeks

    Homoiconicity FTW!

    ;; Make some variables
myNum = 3
myTable = makeTable("my table" nil)
myTable["apple"] = 1
myTable["banana"] = 2
myTable["cherry"] = 3
myList = list(1 2 3)
myVars = '(myNum myTable myList)

;; Save them in a file
myFile = strcat(getTempDir() "/" makeTempFileName("myFileXXXX"))
myPort = outfile(myFile)
foreach(var myVars
    fprintf(myPort "%s = quote(%L)\n"
        var
        if(tablep(symeval(var)) then
            tableToList(symeval(var))
        else
            symeval(var)
        )
    )
)
close(myPort)

;; Unbind them.
foreach(var myVars
    set(var 'unbound)
)

;; Now reload them.
myPort = infile(myFile)
while(expr = lineread(myPort)
    eval(car(expr))
)
close(myPort)
;; Recreate the table
myTable = append(makeTable("my table" nil) myTable)

    
Note the code would be way simpler if SKILL had a read syntax for tables.
Reply
  • tweeks

    Homoiconicity FTW!

    ;; Make some variables
myNum = 3
myTable = makeTable("my table" nil)
myTable["apple"] = 1
myTable["banana"] = 2
myTable["cherry"] = 3
myList = list(1 2 3)
myVars = '(myNum myTable myList)

;; Save them in a file
myFile = strcat(getTempDir() "/" makeTempFileName("myFileXXXX"))
myPort = outfile(myFile)
foreach(var myVars
    fprintf(myPort "%s = quote(%L)\n"
        var
        if(tablep(symeval(var)) then
            tableToList(symeval(var))
        else
            symeval(var)
        )
    )
)
close(myPort)

;; Unbind them.
foreach(var myVars
    set(var 'unbound)
)

;; Now reload them.
myPort = infile(myFile)
while(expr = lineread(myPort)
    eval(car(expr))
)
close(myPort)
;; Recreate the table
myTable = append(makeTable("my table" nil) myTable)

    
Note the code would be way simpler if SKILL had a read syntax for tables.
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.