home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume36 / getwxmap / patch01 next >
Encoding:
Text File  |  1993-03-24  |  12.7 KB  |  426 lines
  1. Newsgroups: comp.sources.misc
  2. From: rodmur@ecst.csuchico.edu (Dale Harris)
  3. Subject: v36i069:  getwxmap - Retrieve and display Weather satellite maps, Patch01
  4. Message-ID: <1993Mar25.052147.7648@sparky.imd.sterling.com>
  5. X-Md4-Signature: 1a06e56216f2d9dd9463d444a30c8ea4
  6. Date: Thu, 25 Mar 1993 05:21:47 GMT
  7. Approved: kent@sparky.imd.sterling.com
  8.  
  9. Submitted-by: rodmur@ecst.csuchico.edu (Dale Harris)
  10. Posting-number: Volume 36, Issue 69
  11. Archive-name: getwxmap/patch01
  12. Environment: X11, UNIX, xv
  13. Patch-To: getwxmap: Volume 35, Issue 115
  14.  
  15. [ This patch is late getting out because the moderator wasn't ]
  16. [ paying attention.  Sorry for the delay.          -Kent+     ]
  17.  
  18. This is patch to upgrade getwxmap ver. 2.3.1 to ver. 2.3.2
  19.  
  20. Getwxmap is a small program that retrieves the most recent satellite
  21. images from vmd.cso.uiuc.edu and then displays them (someday I'll build in
  22. support for a European site I heard about, but I haven't got to that yet.)
  23.  
  24. *** Makefile.orig    Tue Mar 16 18:40:44 1993
  25. --- Makefile    Tue Mar 16 18:13:32 1993
  26. ***************
  27. *** 1,6 ****
  28.   #
  29. ! # Makefile for getwxmap.c ver 2.3.1
  30. ! # Copyright (C) February 10, 1993 by Dale A. Harris
  31.   #                                {rodmur@ecst.csuchico.edu}
  32.   #
  33.   #CC=gcc
  34. --- 1,6 ----
  35.   #
  36. ! # Makefile for getwxmap.c ver 2.3.2
  37. ! # Copyright (C) March 11, 1993 by Dale A. Harris
  38.   #                                {rodmur@ecst.csuchico.edu}
  39.   #
  40.   #CC=gcc
  41. ***************
  42. *** 14,32 ****
  43.   #     good old fashioned C.
  44.   #
  45.   
  46. ! #CFLAGS= -g  # for debugging 
  47.   #CFLAGS=-O #most machines in this world
  48.   #CFLAGS=-O2  #for gcc
  49. ! CFLAGS= +O3 # with cc on HP9000/7xx-series running HPUX 8.*
  50.   
  51.   #Setting a domain is no longer neccessary
  52.   DEFINES= -DSYSV 
  53.   
  54.   #If you need any libs
  55.   #LIBS= -lmalloc #for HPUX if you like
  56. ! LIBS= -lmalloc
  57.   
  58. ! getwxmap: getwxmap.c
  59.       $(CC) $(CFLAGS) -o getwxmap $(DEFINES) getwxmap.c $(LIBS)
  60.   
  61.   clean:
  62. --- 14,33 ----
  63.   #     good old fashioned C.
  64.   #
  65.   
  66. ! CFLAGS= -g  # for debugging 
  67.   #CFLAGS=-O #most machines in this world
  68.   #CFLAGS=-O2  #for gcc
  69. ! #CFLAGS= +O3 # with cc on HP9000/7xx-series running HPUX 8.*
  70.   
  71.   #Setting a domain is no longer neccessary
  72. + #DEFINES= -DSYSV -DNO_STRDUP 
  73.   DEFINES= -DSYSV 
  74.   
  75.   #If you need any libs
  76.   #LIBS= -lmalloc #for HPUX if you like
  77. ! LIBS= 
  78.   
  79. ! getwxmap: getwxmap.c getwxmap.h
  80.       $(CC) $(CFLAGS) -o getwxmap $(DEFINES) getwxmap.c $(LIBS)
  81.   
  82.   clean:
  83. *** README.orig    Tue Mar 16 18:40:44 1993
  84. --- README    Thu Mar 11 15:51:43 1993
  85. ***************
  86. *** 1,6 ****
  87. --- 1,9 ----
  88.   Check out the Makefile, if your on a SYSV machine you might want to
  89.   -DSYSV, check out the #define fields also in getwxmap.h
  90.   
  91. + If you don't have strdup() on your system, define -DNO_STRDUP in the
  92. + Makefile.
  93. + 
  94.   If you find any bugs or have any suggestions e-mail:
  95.   rodmur@ecst.csuchico.edu
  96.   
  97. *** getwxmap.1.orig    Tue Mar 16 18:40:44 1993
  98. --- getwxmap.1    Tue Mar 16 18:41:36 1993
  99. ***************
  100. *** 11,20 ****
  101.   .SH OPTIONS
  102.   .TP
  103.   .B \-D
  104. ! don't display file (implies -R).
  105.   .TP
  106.   .B \-R
  107. ! don't remove file when program finishes.
  108.   .TP
  109.   .B \-d
  110.   debugging (implies -f).
  111. --- 11,20 ----
  112.   .SH OPTIONS
  113.   .TP
  114.   .B \-D
  115. ! don't display file, file won't be removed unless -R is used.
  116.   .TP
  117.   .B \-R
  118. ! don't remove file when program finishes.  Except with -x and -D.
  119.   .TP
  120.   .B \-d
  121.   debugging (implies -f).
  122. ***************
  123. *** 42,49 ****
  124.   .TP
  125.   .B \-x [xv options]
  126.   Must be last argument.  All arguments following -x are passed
  127. ! as command line arguments to xv.  Use this to get a background. (Implies
  128. ! -R)
  129.   .SH SEE ALSO
  130.   .BR xv (1V),
  131.   .SH AUTHOR
  132. --- 42,49 ----
  133.   .TP
  134.   .B \-x [xv options]
  135.   Must be last argument.  All arguments following -x are passed
  136. ! as command line arguments to xv.  Use this to get a background. If -R is
  137. ! used with this option the files retrieved will be deleted.
  138.   .SH SEE ALSO
  139.   .BR xv (1V),
  140.   .SH AUTHOR
  141. *** getwxmap.c.orig    Tue Mar 16 18:40:44 1993
  142. --- getwxmap.c    Tue Mar 16 18:26:25 1993
  143. ***************
  144. *** 21,31 ****
  145. --- 21,35 ----
  146.   2/12/93 - added -m option for mos*.gif maps (d.a.h)
  147.   2/19/93 - added files variable - dah
  148.   
  149. + 3/11/93 - fixed stupid little bug where SA.GIF was retrieve everytime,
  150. +          put in strdup() for those that don't have it. - dah
  151. + 3/16/93 - changed -R will trigger removal of files with -x and -D - dah
  152.   */
  153.   
  154.   #include "getwxmap.h"
  155.   
  156.   
  157. + int
  158.   main (argc, argv)
  159.        int argc;
  160.        char **argv;
  161. ***************
  162. *** 37,43 ****
  163.     char *mnthday, *gmt, *wgifs, *dispstr, *command, *filename, *uhour;
  164.     char *tmp_char1, *tmp_char2;
  165.     char *my_host, *xvargs;    /* hostname and xv arguments */
  166. !   register short surface = 0, visible = 0, infrared = 0, nodis = 0, norm = 0,
  167.       debug = 0, upair = 0, keymap = 0, echoname = 0, mos = 0, i, j;
  168.     short hpa[UMAPNO];
  169.     struct hostent *my_site;    /* to get the site name */
  170. --- 41,47 ----
  171.     char *mnthday, *gmt, *wgifs, *dispstr, *command, *filename, *uhour;
  172.     char *tmp_char1, *tmp_char2;
  173.     char *my_host, *xvargs;    /* hostname and xv arguments */
  174. !   short surface = 0, visible = 0, infrared = 0, nodis = 0, norm = 0, xvflg = 0,
  175.       debug = 0, upair = 0, keymap = 0, echoname = 0, mos = 0, i, j;
  176.     short hpa[UMAPNO];
  177.     struct hostent *my_site;    /* to get the site name */
  178. ***************
  179. *** 120,125 ****
  180. --- 124,130 ----
  181.         ++echoname;
  182.         break;
  183.       case 'x':        /* grab the rest into xvargs and run... */
  184. +       ++xvflg;
  185.         while (i < argc - 1)
  186.           {
  187.             strcat (xvargs, argv[++i]);
  188. ***************
  189. *** 126,132 ****
  190.             strcat (xvargs, " ");
  191.           }
  192.         j = strlen (argv[i]);    /* to break from j loop */
  193. -       ++norm;
  194.         break;
  195.       default:
  196.         fprintf (stderr, "%s: Bad Option: %c\n", argv[0], argv[i][j]);
  197. --- 131,136 ----
  198. ***************
  199. *** 134,162 ****
  200.         exit (1);
  201.       }
  202.     if (strlen (xvargs) == 0)
  203. !     strcat (xvargs, " ");    /* empty string */
  204.   
  205.     /* getting the time */
  206.     otp = tp = thetime ((time_t) 0, tp, argv[0]);
  207.     strftime (gmt, SMAX, "%m%d%H", tp);
  208.   
  209.     if (surface)
  210. -     strcat (wgifs, " SA.GIF ");
  211. -   tmp_char1 = (char *) strdup (wgifs);
  212. -   if (tp->tm_min >= SMAPMINMADE)
  213. -     sprintf (wgifs, "%s SA%s.GIF ", tmp_char1, gmt);
  214. -   else
  215.       {
  216. !       fprintf (stderr, "%s: SA%s.GIF not made until %d past the hour, getting last hours map.\n", argv[0], gmt, SMAPMINMADE);
  217. !       /* Take off an hour's worth of seconds if before the quarter hour */
  218. !       tp = thetime ((time_t) 3600, tp, argv[0]);
  219. !       strftime (gmt, SMAX, "%m%d%H", tp);
  220. !       sprintf (wgifs, "%s SA%s.GIF ", tmp_char1, gmt);
  221. !       tptmp = tp;
  222. !       tp = otp;
  223. !       free (tptmp);
  224.       }
  225. -   free (tmp_char1);
  226.     if (infrared)
  227.       strcat (wgifs, " CIR.GIF ");
  228.     if (visible)
  229. --- 138,174 ----
  230.         exit (1);
  231.       }
  232.     if (strlen (xvargs) == 0)
  233. !     {
  234. !       strcat (xvargs, " ");    /* empty string */
  235. !       xvflg = 0;
  236. !     }
  237.   
  238. +   if (nodis || xvflg)
  239. +     norm = (!norm);        /* if -R set, then remove, else don't */
  240. + 
  241.     /* getting the time */
  242.     otp = tp = thetime ((time_t) 0, tp, argv[0]);
  243.     strftime (gmt, SMAX, "%m%d%H", tp);
  244.   
  245.     if (surface)
  246.       {
  247. !       strcat (wgifs, " SA.GIF ");
  248. !       tmp_char1 = (char *) strdup (wgifs);
  249. !       if (tp->tm_min >= SMAPMINMADE)
  250. !     sprintf (wgifs, "%s SA%s.GIF ", tmp_char1, gmt);
  251. !       else
  252. !     {
  253. !       fprintf (stderr, "%s: SA%s.GIF not made until %d past the hour, getting last hours map.\n", argv[0], gmt, SMAPMINMADE);
  254. !       /* Take off an hour's worth of seconds if before the quarter hour */
  255. !       tp = thetime ((time_t) 3600, tp, argv[0]);
  256. !       strftime (gmt, SMAX, "%m%d%H", tp);
  257. !       sprintf (wgifs, "%s SA%s.GIF ", tmp_char1, gmt);
  258. !       tptmp = tp;
  259. !       tp = otp;
  260. !       free (tptmp);
  261. !     }
  262. !       free (tmp_char1);
  263.       }
  264.     if (infrared)
  265.       strcat (wgifs, " CIR.GIF ");
  266.     if (visible)
  267. ***************
  268. *** 283,289 ****
  269.         system (dispstr);
  270.       }
  271.   
  272. !       if (!norm && !nodis)
  273.       {
  274.         filename = strtok (wgifs, " ");
  275.         while (filename != (char *) NULL)
  276. --- 295,301 ----
  277.         system (dispstr);
  278.       }
  279.   
  280. !       if (!norm)
  281.       {
  282.         filename = strtok (wgifs, " ");
  283.         while (filename != (char *) NULL)
  284. ***************
  285. *** 294,300 ****
  286.           }
  287.       }
  288.       }
  289. !   exit (0);
  290.   }
  291.   
  292.   struct tm *
  293. --- 306,312 ----
  294.           }
  295.       }
  296.       }
  297. !   return 0;
  298.   }
  299.   
  300.   struct tm *
  301. ***************
  302. *** 323,331 ****
  303.   void
  304.   usage ()
  305.   {
  306. !   fputs ("Usage: getwxmap [ -RDdfsrmvku#x [xv options] ]\n", stderr);
  307. !   fputs ("-D if you don't want the files displayed (implies -R)\n", stderr);
  308. !   fputs ("-R if you don't want the files removed after displaying\n", stderr);
  309.     fputs ("-d for debugging (implies -f)\n", stderr);
  310.     fputs ("-f echos names of successfully retrieved files to standard out\n", stderr);
  311.     fputs ("-s For the Surface Anaylsis map\n", stderr);
  312. --- 335,343 ----
  313.   void
  314.   usage ()
  315.   {
  316. !   fputs ("Usage: getwxmap [ -RDdfsrmvku#x <xv options> ]\n", stderr);
  317. !   fputs ("-D if you don't want the files displayed, using with -R will remove files\n", stderr);
  318. !   fputs ("-R don't remove after displaying, except with -x and -D\n", stderr);
  319.     fputs ("-d for debugging (implies -f)\n", stderr);
  320.     fputs ("-f echos names of successfully retrieved files to standard out\n", stderr);
  321.     fputs ("-s For the Surface Anaylsis map\n", stderr);
  322. ***************
  323. *** 335,341 ****
  324.     fputs ("-k for the WX key map (note: this picture doesn't change)\n", stderr);
  325.     fputs ("-u# for the Upper Air maps at a # * 100 hPa itervals\n", stderr);
  326.     fputs ("(# = 2,3,5,7,8 for 200hPa, 300hPa, 500hPa, 700hPa, 800hPa respectively)\n", stderr);
  327. !   fputs ("-x [xv options]  Pass ALL arguments that follow to XV as command line\n", stderr);
  328. !   fputs ("options.  This option MUST come last.  Use this to get a background. (implies -R)\n", stderr);
  329.     return;
  330.   }
  331. --- 347,367 ----
  332.     fputs ("-k for the WX key map (note: this picture doesn't change)\n", stderr);
  333.     fputs ("-u# for the Upper Air maps at a # * 100 hPa itervals\n", stderr);
  334.     fputs ("(# = 2,3,5,7,8 for 200hPa, 300hPa, 500hPa, 700hPa, 800hPa respectively)\n", stderr);
  335. !   fputs ("-x [xv <options>]  Pass ALL arguments that follow to XV as command line\n", stderr);
  336. !   fputs ("    <options>. This option MUST come last. Use this to get a background.\n", stderr);
  337. !   fputs ("      Files will not be removed unless -R is used.\n", stderr);
  338.     return;
  339.   }
  340. + 
  341. + #ifdef NO_STRDUP
  342. + char *
  343. + strdup (s)
  344. + {
  345. +   char *t;
  346. + 
  347. +   t = malloc (strlen (s) + 1);
  348. +   strcpy (t, s);
  349. +   return (t);
  350. + }
  351. + 
  352. + #endif
  353. *** getwxmap.h.orig    Tue Mar 16 18:40:44 1993
  354. --- getwxmap.h    Tue Mar 16 18:38:08 1993
  355. ***************
  356. *** 1,5 ****
  357.   /*
  358. !  @(#) getwxmap 2.3.1, February 19, 1993
  359.   
  360.    Copyright (C) 1993, Dale A. Harris (rodmur@ecst.csuchico.edu)
  361.   
  362. --- 1,5 ----
  363.   /*
  364. !  @(#) getwxmap 2.3.2, March 11, 1993
  365.   
  366.    Copyright (C) 1993, Dale A. Harris (rodmur@ecst.csuchico.edu)
  367.   
  368. ***************
  369. *** 23,30 ****
  370.    Special Thanks to Emma Pease <emma@Russell.Stanford.EDU> for the man page!
  371.   
  372.    USAGE: getwxmap [ -DRdbsrmvkfu#x [xv options]  ]
  373. !    -D if you don't want the files displayed (implies -R)
  374. !    -R  if you don't want the files removed after displaying
  375.      -d for debugging (implies -f)
  376.      -s    Retrieves the current Surface Anaylsis Map (this usually gets
  377.              made a little before 15 minutes after the hour, so WXMAP
  378. --- 23,31 ----
  379.    Special Thanks to Emma Pease <emma@Russell.Stanford.EDU> for the man page!
  380.   
  381.    USAGE: getwxmap [ -DRdbsrmvkfu#x [xv options]  ]
  382. !    -D if you don't want the files displayed, files not removed unless -R is 
  383. !     used
  384. !    -R  files not removed after displaying, except with -x and -D
  385.      -d for debugging (implies -f)
  386.      -s    Retrieves the current Surface Anaylsis Map (this usually gets
  387.              made a little before 15 minutes after the hour, so WXMAP
  388. ***************
  389. *** 38,44 ****
  390.      -f    echo names of files successfully recieved to standard output
  391.      -x [xv options]  Pass ALL arguments that follow to XV as command line
  392.               options.  This option MUST come last.  Use this to get a
  393. !         background. (implies -R)
  394.   
  395.   */
  396.   
  397. --- 39,45 ----
  398.      -f    echo names of files successfully recieved to standard output
  399.      -x [xv options]  Pass ALL arguments that follow to XV as command line
  400.               options.  This option MUST come last.  Use this to get a
  401. !         background.  Files not removed unless -R is used.
  402.   
  403.   */
  404.   
  405. ***************
  406. *** 61,63 ****
  407. --- 62,65 ----
  408.   #define UMAPHOURMADE 3
  409.   #define UMAPMINMADE  5        /* minutes past the hour that the U*.GIF's made */
  410.   #define SMAPMINMADE 15        /* Minutes past the hour that SA*.GIF made */
  411. + 
  412. *** patchlevel.h.orig    Tue Mar 16 19:03:34 1993
  413. --- patchlevel.h    Tue Mar 16 19:04:08 1993
  414. ***************
  415. *** 0 ****
  416. --- 1 ----
  417. + #define PATCHLEVEL 2.3.2
  418.  
  419. -- 
  420.    __        _                     Dale A. Harris  {rodmur@ecst.csuchico.edu} 
  421.   /  )      //                           /"Get smart, rather than complicated."
  422.  /  / __.  // _      , , , __.  _       /_  _  __  _            J.L.
  423. /__/_(_/|_</_</_    (_(_/_(_/|_/_)_    / /_</_/ (_</_ 
  424.  
  425. exit 0 # Just in case...
  426.