home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 2 / 2069 / kal2remind < prev    next >
Encoding:
Text File  |  1990-12-28  |  1.1 KB  |  54 lines
  1. #!/bin/sh
  2. #
  3. #    kal2remind : Convert kal appointment files to xremind format.
  4. #             Output to stdout.
  5. #
  6. #    George Ferguson, ferguson@cs.rochester.edu, 8 Jun 1990.
  7. #    New kal (one file) format, 7 Nov 1990.
  8. #
  9.  
  10. case $# in
  11.     0) apps=$HOME/.appoints ;;
  12.     1) apps=$1 ;;
  13.     *) echo 'usage: kal2remind [appoints]' >&2
  14.        exit ;;
  15. esac
  16.  
  17. awk '
  18. BEGIN    { mnum["Jan"] = 1
  19.       mnum["Feb"] = 2
  20.       mnum["Mar"] = 3
  21.       mnum["Apr"] = 4
  22.       mnum["May"] = 5
  23.       mnum["Jun"] = 6
  24.       mnum["Jul"] = 7
  25.       mnum["Aug"] = 8
  26.       mnum["Sep"] = 9
  27.       mnum["Oct"] = 10
  28.       mnum["Nov"] = 11
  29.       mnum["Dec"] = 12
  30.     }
  31. /^[A-Z]/ { split($2,time,":")
  32.        if (time[2] < 5) {
  33.            time[1] -= 1
  34.            time[2] = 55 + time[2]
  35.        } else
  36.            time[2] -= 5
  37.        printf "%s %2d:%02d ",$1,time[1],time[2]
  38.        for (i=3; i <= NF; i++)
  39.            printf "%s ", $i
  40.        printf "[%s]\n",$2
  41.      }
  42. /^ ?[0-9]/ { split($4,time,":")
  43.          if (time[2] < 5) {
  44.              time[1] -= 1
  45.              time[2] = 55 + time[2]
  46.          } else
  47.              time[2] -= 5
  48.          printf "%02d/%02d/%s %2d:%02d ",mnum[$2],$1,$3,time[1],time[2]
  49.          for (i=5; i <= NF; i++)
  50.              printf "%s ", $i
  51.          printf "[%s]\n",$4
  52.        }
  53. ' $apps
  54.