Stats

  • Replies 1
  • Subscribers 17
  • Views 8053
  • Members are here 0
More Content

How to store association table in attachment

mir0mik

Hi,

I have some data in my code in form of an association table and I would like to store this table in the attachment section of the *.brd file...

;my table...
qqq_formFieldsDefaults = makeTable( "formFields" nil)
qqq_formFieldsDefaults[ 'qqq_formField_itemNumber] = '( nil value "fill IN" isEnabled t)
qqq_formFieldsDefaults[ 'qqq_formField_itemRevision] = '( nil value "1" isEnabled nil)
...

;my attachment data
qqq_attachmentData = ( nil 'formFields nil 'otherData nil ...)

;my attachment storing
qqq_attachmentData -> formFields = tableToList( qqq_formFieldsDefaults) ;need to convert the table to associated list for storing
axlCreateAttachment( "qqq_databaseAttachment" nil 0 'string sprintf( nil " '%L" qqq_attachmentData))

;my restoring attachment
qqq_databaseAttachmentID = axlGetAttachment( "qqq_databaseAttachment" 'string)
qqq_attachmentData = car( errsetstring( qqq_databaseAttachmentID -> data))

The issue is that storing the associated table without converting it to an associated list doesn't work... Now my question is there a reverse function to the tableToList() function? Or does anybody have some good code on how to convert the list back?

Thanks!
Miro

  • mir0mik

    I did it this way but if someone can think of something nicer I will be glad...

    ;my table...
    qqq_formFieldsDefaults = makeTable( "formFields" nil)
    qqq_formFieldsDefaults[ 'qqq_formField_itemNumber] = '( nil value "fill IN" isEnabled t)
    qqq_formFieldsDefaults[ 'qqq_formField_itemRevision] = '( nil value "1" isEnabled nil)
    ...

    ;my attachment data
    qqq_attachmentData = ( nil 'formFields nil 'otherData nil ...)

    ;my attachment storing
    qqq_attachmentData -> formFields = tableToList( qqq_formFieldsDefaults) ;need to convert the table to associated list for storing
    axlCreateAttachment( "qqq_databaseAttachment" nil 0 'string sprintf( nil " '%L" qqq_attachmentData))

    ;my restoring attachment
    qqq_databaseAttachmentID = axlGetAttachment( "qqq_databaseAttachment" 'string)
    qqq_attachmentData = car( errsetstring( qqq_databaseAttachmentID -> data))
    qqq_attachmentData -> formFields = qqq_associatedListToAssociatedTable( qqq_attachmentData -> formFields "formFields" nil)

    ;function to convert assoc. list to assoc. table
    defun( qqq_associatedListToAssociatedTable ( qqq_associatedListToConvert qqq_associatedTablePrintName qqq_associatedTableDefaultValue)
    let( ( qqq_tmpTable)
    qqq_tmpTable = makeTable( qqq_associatedTablePrintName qqq_associatedTableDefaultValue)
    foreach( qqq_element qqq_associatedListToConvert
    qqq_tmpTable[ car( qqq_element)] = last( qqq_element)
    )))

Cadence Guidelines

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.