135 #ifdef HAVE_BSD_STRING_H 136 #include <bsd/string.h> 143 #include "star/util.h" 148 strlcpy( dest, src, size );
150 strncpy( dest, src, size );
155 #define star_strellcpy(dest, src, size) star__strellcpy(dest, src, size) 162 #define WEST(ID,IAM,AS) PAL__DAS2R*((60.0*(60.0*(double)ID+(double)IAM))+(double)AS) 163 #define NORTH(ID,IAM,AS) WEST(ID,IAM,AS) 164 #define EAST(ID,IAM,AS) -1.0*WEST(ID,IAM,AS) 165 #define SOUTH(ID,IAM,AS) -1.0*WEST(ID,IAM,AS) 177 char * ident,
size_t identlen,
178 char * name,
size_t namelen,
179 double *
w,
double *
p,
double *
h ) {
180 const struct telData telData[] = {
187 "Anglo-Australian 3.9m Telescope" 195 "William Herschel 4.2m Telescope" 203 "Isaac Newton 2.5m Telescope" 211 "Jacobus Kapteyn 1m Telescope" 227 "MMT 6.5m, Mt Hopkins" 235 "DAO Victoria BC 1.85 metre" 243 "Du Pont 2.5m Telescope, Las Campanas" 251 "Mt Hopkins 1.5 metre" 259 "Mount Stromlo 74 inch" 267 "Siding Spring 2.3 metre" 283 "Cerro Tololo 4 metre" 291 "Cerro Tololo 1.5 metre" 299 "Tidbinbilla 64 metre" 307 "Bloemfontein 1.52 metre" 315 "Bosque Alegre 1.54 metre" 323 "USNO 61 inch astrograph, Flagstaff" 331 "Perkins 72 inch, Lowell" 339 "Harvard College Observatory 1.55m" 412 "UK Infra Red Telescope" 476 "David Dunlap 74 inch" 484 "Haute Provence 1.93 metre" 492 "Haute Provence 1.52 metre" 500 "San Pedro Martir 83 inch" 572 "Effelsberg 100 metre" 588 "Jodrell Bank 250 foot" 593 EAST(148,15,44.3591),
594 SOUTH(32,59,59.8657),
613 "Sugar Grove 150 foot" 671 "Keck 10m Telescope #1" 679 "Tautenberg 1.34 metre Schmidt" 687 "Palomar 48-inch Schmidt" 695 "UK 1.2 metre Schmidt, Siding Spring" 703 "Kiso 1.05 metre Schmidt, Japan" 711 "ESO 1 metre Schmidt, La Silla" 720 "Australia Telescope Compact Array" 729 "ATNF Mopra Observatory" 738 "Subaru 8m telescope" 747 "Canada-France-Hawaii 3.6m Telescope" 756 "Keck 10m Telescope #2" 765 "Gemini North 8-m telescope" 774 "Five College Radio Astronomy Obs" 783 "NASA IR Telescope Facility, Mauna Kea" 792 "Caltech Sub-mm Observatory, Mauna Kea" 801 "ESO VLT, Paranal, Chile: UT1" 810 "ESO VLT, Paranal, Chile: UT2" 819 "ESO VLT, Paranal, Chile: UT3" 828 "ESO VLT, Paranal, Chile: UT4" 837 "Gemini South 8-m telescope" 846 "KOSMA 3m telescope, Gornergrat" 855 "Magellan 1, 6.5m, Las Campanas" 864 "Magellan 2, 6.5m, Las Campanas" 873 "APEX 12m telescope, Llano de Chajnantor" 882 "NANTEN2 4m telescope, Pampa la Bola" 889 const size_t NTEL =
sizeof(telData) /
sizeof(
struct telData);
897 struct telData thistel;
898 thistel = telData[n-1];
910 for (i=0; i<NTEL; i++) {
911 struct telData thistel = telData[
i];
912 if (strcasecmp( c, thistel.
shortname) == 0) {
#define star_strellcpy(dest, src, size)
#define SOUTH(ID, IAM, AS)
#define WEST(ID, IAM, AS)
#define NORTH(ID, IAM, AS)
static void star__strellcpy(char *dest, const char *src, size_t size)
int palObs(size_t n, const char *c, char *ident, size_t identlen, char *name, size_t namelen, double *w, double *p, double *h)
#define EAST(ID, IAM, AS)