Family Historian User Group

Code: Select all

--[[
@function:      TblDataRef
@description:   Get Full Data Reference for Pointer
@parameters:      Item Pointer
@returns:         Table of RecId, RecTag, DataRef
@requires:      None
]]

function TblDataRef(ptrRef)

   local tblRef = { RecId=0, RecTag='', DataRef='' }

   -- getDataRef() is called recursively per level of the Data Ref
   -- ptrRef points to the upper Date Ref levels yet to be analysed
   -- strRef compiles the lower Data Ref levels including instances

   local function getDataRef(ptrRef,strRef)
      local ptrTag = ptrRef:Clone()
      local strTag = fhGetTag(ptrTag)            -- Current level Tag
      ptrTag:MoveToParentItem(ptrTag)
      if ptrTag:IsNotNull() then               -- Parent level exists
         local intSib = 1
         local ptrSib = ptrRef:Clone()         -- Pointer to siblings with same Tag
         ptrSib:MovePrev('SAME_TAG')
         while ptrSib:IsNotNull() do            -- Count previous siblings with same Tag
            intSib = intSib + 1
            ptrSib:MovePrev('SAME_TAG')
         end
         if intSib > 1 then    strTag = strTag..'['..intSib..']' end
         getDataRef(ptrTag,'.'..strTag..strRef)   -- Now analyse the parent level
      else
         tblRef.RecId = fhGetRecordId(ptrRef)   -- Record level reached, so set table data fields
         tblRef.RecTag = strTag
         tblRef.DataRef = strTag..strRef
         if not fhIsValidDataRef(tblRef.DataRef) then print(tblRef.DataRef..' is Invalid') end
      end
   end -- local function getDataRef

   if type(ptrRef) == 'userdata' then getDataRef(ptrRef,'') end

   return tblRef

end -- function TblDataRef

--[[
@function:      PtrDataRef
@description:   Get Pointer for Full Data Reference
@parameters:      Table of RecId, RecTag, DataRef
@returns:         Item Pointer
@requires:      None
]]

function PtrDataRef(tblRef)
   local tblRef = tblRef or {}               -- Ensure table and its fields exist
   local intId  = tblRef.RecId or 0
   local strTag = tblRef.RecTag or ''
   local strRef = tblRef.DataRef or ''
   local ptrRef = fhNewItemPtr()
   ptrRef:MoveToRecordById(strTag,intId)      -- Lookup the Record by Id
   ptrRef:MoveTo(ptrRef,strRef)               -- Move to the Data Ref
   return ptrRef
end -- function PtrDataRef

-- Example of Use
local ptrRec = fhNewItemPtr()
local ptrRef = fhNewItemPtr()
local tblRef = {}
for intRec, strRec in ipairs({'INDI','FAM','NOTE','SOUR','REPO','SUBR','SUBM','OBJE'}) do
   ptrRec:MoveToFirstRecord(strRec)
   ptrRef = ptrRec:Clone()
   while ptrRef:IsNotNull() do
      tblRef = TblDataRef(ptrRef)
      ptrRef = PtrDataRef(tblRef)
      if ptrRef:IsNull() then
         print(tblRef.DataRef..'          Is Null')
      else
         print(tblRef.DataRef..'          '..fhGetDisplayText(ptrRef))
      end
      ptrRef:MoveNextSpecial()
      fhSleep(2,1)
   end
end

Code: Select all

function BuildDR(ptrRef)
   local tblRef = TblDataRef(ptrRef) 
   return tblRef.DataRef, tblRef.RecTag, tblRef.RecId
end

Code: Select all

local days = {39, 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, 39}