diff options
Diffstat (limited to 'vo/votools/mkregdb.cl')
| -rw-r--r-- | vo/votools/mkregdb.cl | 141 |
1 files changed, 141 insertions, 0 deletions
diff --git a/vo/votools/mkregdb.cl b/vo/votools/mkregdb.cl new file mode 100644 index 00000000..0f968e0e --- /dev/null +++ b/vo/votools/mkregdb.cl @@ -0,0 +1,141 @@ +#{ MKREGDB -- Make a Registry Database using constraints. + +procedure mkregdb (query) + +string query { prompt = "Query Term" } + +string output = "" { prompt = "Output filename" } +string type = "" { prompt = "Resource type" } +string bandpass = "" { prompt = "Bandpass" } +string content = "" { prompt = "Content Level" } +string sql = "" { prompt = "SQL predicate" } + +bool header = yes { prompt = "Print header?" } +int nresults = 0 { prompt = "Number of results?" } +int status = 0 { prompt = "status code" } + +begin + string qterm, fstr, qstr, id, typ, lout + string bpass, clevel, sqlstr, stype, ch + string t, a, b, i, u, d + int res, count, istart, iend, n, vnlines, rec + bool hdr + + + reset clobber = yes # set the environment + + lout = output + hdr = header + stype = type + bpass = bandpass + clevel = content + sqlstr = sql + + if (lout == "") + lout = "STDOUT" + + # Build a sql predicate string from the contraints (if any). + qstr = "" + if (stype != "") { + s1 = strlwr (stype) + if (s1 == "sia" || substr (s1,1,2) == "im") + qstr = "(Tag like '%images%')" + else + qstr = "(xml like '%" // stype // "%')" + } + if (bpass != "") { + s1 = "([coverage/waveband] like '%" // bpass // "%')" + if (qstr != "") + qstr = qstr // " AND " // s1 + else + qstr = s1 + } + if (clevel != "") { + s1 = "([content/contentLevel] like '%" // clevel // "%')" + if (qstr != "") + qstr = qstr // " AND " // s1 + else + qstr = s1 + } + if ($nargs > 0) + qterm = query + else { + qterm = "" + sqlstr = "(Title like '%')" + } + if (sqlstr != "") { + s1 = "(" // sqlstr // ")" + if (qstr != "") + qstr = qstr // " AND " // s1 + else + qstr = s1 + } + + + # Do the Registry query. + nresults = 0 + if (qstr != "") + res = regSearch (qstr, qterm, 0) + else + res = regSearch (qterm, 0) + count = regResCount (res) + istart = 0 + iend = count + + if (count == 0) { + status = 1 + return + } + + # Dump the query constraints we used in the search. + printf ("", > lout) + if (hdr) { + printf ("# VO Resource utility database\n", >> lout) + printf ("# \n", >> lout) + printf ("# \t Query Term: '%s'\n", qterm, >> lout) + printf ("# \t ServiceType: %s\n", stype, >> lout) + printf ("# \t Bandpass: %s\n", bpass, >> lout) + printf ("# \tContentLevel: %s\n", clevel, >> lout) + printf ("# \t SQL: %s\n", sqlstr, >> lout) + printf ("# \n", >> lout) + printf ("# type,alias,bandpass,ivorn,url,title\n", >> lout) + printf ("# \n", >> lout) + } + + for (n=istart; n < iend; n=n+1) { + + t = trim (regValue (res, "ServiceType", n)) + a = trim (regValue (res, "ShortName", n)) + b = trim (regValue (res, "CoverageSpectral", n)) + i = trim (regValue (res, "Identifier", n)) + u = trim (regValue (res, "ServiceURL", n)) + d = trim (regValue (res, "Title", n)) + + if (t == "" || u == "") # probably not a data service, skip it + next + if (b == "") # unknown bandpass matches any + b = "*" + if (a == "") # construct ShortName from IVORN + a = substr (i, strldx("/",i)+1, strlen (i)) + + # Fix up the values for proper entry in the database. + if (stridx (" ", a) > 0) a = strlwr (strsub (a, " ", "_")) + if (stridx (",", b) > 0) b = strlwr (strsub (b, ",", ":")) + if (stridx (" ", d) > 0) d = strsub (d, " ", ":") + if (stridx (",", d) > 0) d = strsub (d, ",", ";") + + b = strlwr (b) + t = strlwr (t) + if (strstr ("image", t) > 0) + t = "I" + else if (strstr ("cone", t) > 0) + t = "C" + else if (strstr ("spectra", t) > 0) + t = "S" + else + t = "O" + + printf ("%s,%s,%s,%s,%s,%s,%s\n", t, a, b, i, a, u, d, >> lout) + nresults = nresults + 1 + } +end |