diff options
Diffstat (limited to 'vo/src/registry.cl')
| -rw-r--r-- | vo/src/registry.cl | 269 |
1 files changed, 269 insertions, 0 deletions
diff --git a/vo/src/registry.cl b/vo/src/registry.cl new file mode 100644 index 00000000..793b782a --- /dev/null +++ b/vo/src/registry.cl @@ -0,0 +1,269 @@ +#{ REGISTRY -- Do a Registry query. + +procedure registry (query) + +string query { prompt = "Query terms" } + +string type = "" { prompt = "Sevice type constraint" } +string bandpass = "" { prompt = "Bandpass constraint" } +string content = "" { prompt = "ContentLevel constraint" } +string sql = "" { prompt = "SQL Query terms" } + +string fields="Title,Subject,CoverageSpectral" \ + { prompt = "Verbose output fields" } +bool header = yes { prompt = "Header output?" } +bool verbose = no { prompt = "Verbose output?" } +bool interactive = no { prompt = "Interactive processing?" } + +int record = -1 { prompt = "Record number to list?" } +bool metadata = no { prompt = "List resource metadata?" } +int nlines = 5 { prompt = "Number lines in Vizier preview" } + +int qres = 0 { prompt = "Saved resource record pointer" } +int qcount = 0 { prompt = "Saved record count" } +string qstring = "" { prompt = "Saved query string" } +string qbandpass = "" { prompt = "Saved bandpass constraint" } +string qcontent = "" { prompt = "Saved ContentLevel constraint" } +string qsvc = "" { prompt = "Saved service type constraint" } +string qsql = "" { prompt = "Saved SQL constraint" } + +int status = 0 { prompt = "Service status code" } + +begin + string qterm, fstr, ffile, qstr, id, typ, str + string bpass, clevel, sqlstr, stype, ch + bool verb, meta, interact, summary + int res, count, istart, iend, n, vnlines, rec + + + verb = verbose + fstr = fields + meta = metadata + stype = type + bpass = bandpass + clevel = content + sqlstr = sql + interact = interactive + vnlines = nlines + + + + # Set the environment. + reset clobber = yes + summary = no + + # Print the resource alias list + if (query == "aliases") { + if (access ("home$registry.dat") == yes) + type ("home$registry.dat") + return + } else if (query == "alias") { + return + } + + # See if all we want is a list of the available metadata. + if (meta) { + regmetalist(all-) + return + } + +submit: + # Build a sql predicate string from the contraints (if any). + qstr = "" + if (stype != "") { + str = strlwr (stype) + if (str == "sia" || substr (str,1,2) == "im") + qstr = "(Tag like '%images%')" + else + qstr = "(xml like '%" // stype // "%')" + } + if (bpass != "") { + str = "([coverage/waveband] like '%" // bpass // "%')" + if (qstr != "") + qstr = qstr // " AND " // str + else + qstr = str + } + if (clevel != "") { + str = "([content/contentLevel] like '%" // clevel // "%')" + if (qstr != "") + qstr = qstr // " AND " // str + else + qstr = str + } + if (sqlstr != "") { + str = "(" // sqlstr // ")" + if (qstr != "") + qstr = qstr // " AND " // str + else + qstr = str + } + + # Get a temp file so we can loop over the fields. Dump the fields + # string to the file for easy reading. + ffile = mktemp ("tmp$reg") +again: + if (record > 0 || fstr == "all") { + regmetalist (all+, > ffile) + } else { + print (fstr) | translit ("STDIN",",","\n",del-, > ffile) + } + + + # Do the query + if (record >= 0) { + res = qres + count = qcount + if (record == 0) { + istart = 0 + iend = qcount + } else { + istart = record - 1 + iend = record + verb = yes # reset verbose flag for single full record + } + qterm = qstring + stype = qsvc + bpass = qbandpass + clevel = qcontent + sqlstr = qsql + if (header) + printf ("#\n# Record: %d\n#\n", record) + + } else { + qterm = query + if (qstr != "") + res = regSearch (qstr, qterm, 0) + else + res = regSearch (qterm, 0) + count = regResCount (res) + istart = 0 + iend = count + if (header) + printf ("#\n# Found %d records\n#\n", count) + } + + # Dump the query constraints we used in the search. + if (header) { + printf ("# Registry Query Constraints:\n") + if (qterm != "") printf ("#\t Query Term: '%s'\n", qterm) + if (stype != "") printf ("#\t ServiceType: %s\n", stype) + if (bpass != "") printf ("#\t Bandpass: %s\n", bpass) + if (clevel != "") printf ("#\tContentLevel: %s\n", clevel) + if (sqlstr != "") printf ("#\tSQL: %s\n", sqlstr) + printf ("#\n") + } + + if (record <= 0 && header) { + printf ("#No ShortName ServiceType Identifier\n") + printf ("#-- --------- ----------- ----------\n#\n") + } + + for (i=istart; i < iend; i=i+1) { + if (record <= 0 && fstr != "all") { + printf ("%3d %-18.18s %-10.10s %s\n", + (i+1), + trim (regValue (res, "ShortName", i)), + trim (regValue (res, "ServiceType", i)), + trim (regValue (res, "Identifier", i))) + } else if (fstr == "all") + printf ("Record: %d\n", i) + + if (!summary && verb) { + list = ffile + while (fscan (list, str) != EOF) { + printf (" %12.12s: ", str) + line = regValue (res, str, i) + prettystr (trim(line)) + } + list = "" + printf ("\n") + } + } + + # Save the resource pointer and record count in case we come back. + if (record < 0) { + qres = res + qcount = count + qstring = qterm + qbandpass = bpass + qcontent = clevel + qsvc = stype + qsql = sqlstr + } + + + if (interact) { +nextcmd: + printf ("\nCommand? ") + summary = no + + ch = cl.ukey + if (substr(ch,1,4) == "\\015") { + goto nextcmd + } + + switch (ch) { + case "?": # print help + { print ("\n\n REGISTRY Command Summary:") + print (" t constrain by service Type") + print (" b constrain by Bandpass") + print (" r view details of individual Record") + print (" s print Summary table of results") + print (" p Preview a vizier table") + print (" v set Verbose flag") + print (" q Quit") + goto nextcmd + } + case "t": # Record + { printf ("\nService Type? ") + n = scan (stype) + record = -1 + summary = yes + goto submit + } + case "b": # Record + { printf ("\nBandpass? ") + n = scan (bpass) + record = -1 + summary = yes + goto submit + } + case "r": # Record + { printf ("\nRecord number? ") + n = scan (record) + goto again + } + case "s": # Summary list + { record = 0 + summary = yes + goto again + } + case "p": # Preview a VizieR table + { printf ("\nRecord number? ") + n = scan (rec) + id = trim (regValue (res, "Identifier", rec-1)) + typ = strlwr (trim (regValue (res, "ServiceType", rec-1))) + if (substr(typ,1,7) != "tabular") { + printf ("\nError: Record %d is not a VizieR table\n", n) + goto nextcmd + } else { + vizier (id, output="STDOUT", otype="ascii", all-) | \ + head ("STDIN", nlines=vnlines) + } + goto nextcmd + } + case "v": # Set verbose + { verb = yes + goto again + } + case "q": # Quit + { record = -1 + print ("") + } + } + } + + # Clean up. + delete (ffile, verify-, >& "dev$null") +end |