diff options
Diffstat (limited to 'c/datalistview.c')
-rw-r--r-- | c/datalistview.c | 77 |
1 files changed, 30 insertions, 47 deletions
diff --git a/c/datalistview.c b/c/datalistview.c index fe16913..829f6d6 100644 --- a/c/datalistview.c +++ b/c/datalistview.c @@ -36,6 +36,7 @@ DlvShowEpisode(int iEpisode) { LVITEM lviKey, lviValue; term_t t; + qid_t q; ListView_DeleteAllItems(HDlv); @@ -44,54 +45,36 @@ DlvShowEpisode(int iEpisode) t = T(3); PI(t,iEpisode) return; - P("episode_data","lookup_episode_local",3,t) return; - - /* The episode data is a list of unary compounds, whose - * functor is the key and whose argument is the value. - * (Perhaps this should really be implemented in Prolog.) */ - - { - term_t tHead, tList; - - tHead = PL_new_term_ref(); - tList = PL_copy_term_ref(t+2); - - for (int i = 0; PL_get_list(tList, tHead, tList); i++) { - atom_t aKey; - const char *szKey; - char *szValue; - TCHAR *tszKey, *tszValue; - term_t tValue; - size_t iArity; - - if (!PL_get_name_arity(tHead,&aKey,&iArity)) continue; - szKey = PL_atom_chars(aKey); - if (!szKey) continue; - - tValue = PL_new_term_ref(); - if (!PL_get_arg(1, tHead, tValue)) continue; - GAC(tValue,&szValue) continue; - - tszKey = TszFromSz(szKey, CP_UTF8); - if (!tszKey) continue; - tszValue = TszFromSz(szValue, CP_UTF8); - if (!tszValue) goto c; - - lviKey.mask = LVIF_TEXT; - lviKey.iItem = i; - lviKey.iSubItem = 0; - lviKey.pszText = tszKey; - ListView_InsertItem(HDlv, &lviKey); - - lviValue.iItem = i; - lviValue.iSubItem = 1; - lviValue.pszText = tszValue; - ListView_SetItem(HDlv, &lviValue); - - free(tszValue); - c: free(tszKey); - } + q = Q("episode_data","episode_datum",3,t); + + for (int i = 0; Qn(q); i++) { + char *szKey; + char *szValue; + TCHAR *tszKey, *tszValue; + + GAC(t+1,&szKey) continue; + GAC(t+2,&szValue) continue; + + tszKey = TszFromSz(szKey, CP_UTF8); + if (!tszKey) continue; + tszValue = TszFromSz(szValue, CP_UTF8); + if (!tszValue) goto c; + + lviKey.mask = LVIF_TEXT; + lviKey.iItem = i; + lviKey.iSubItem = 0; + lviKey.pszText = tszKey; + ListView_InsertItem(HDlv, &lviKey); + + lviValue.iItem = i; + lviValue.iSubItem = 1; + lviValue.pszText = tszValue; + ListView_SetItem(HDlv, &lviValue); + + free(tszValue); + c: free(tszKey); } + Qc(q); UpdateLayout(); } |