/**
 * Cal.java: An Abstract Java Based Calendar
 *
 * Copyright (c) 1999
 *    Ali Onur Cinar &060;cinar&064;zdo.com&062;
 *
 * License:
 *
 *   Permission  to  use,  copy, modify, and  distribute  this software and its
 *   documentation   for  educational   purposes  and  without  fee  is  hereby
 *   granted,  provided  that the  above  copyright notice appear in all copies
 *   and  that both  the  copyright  notice  and  this  permission  notice  and
 *   warranty  disclaimer appear in supporting documentation, and that the name
 *   of Ali Onur Cinar not be  used  in  advertising or publicity pertaining to
 *   distribution of the software without specific, written prior permission.
 *
 * To Compile:
 *
 *   $ javac Cal.java
 *
 * To Run:
 *
 *   $ java Cal
 *
 * @author     A. Onur Cinar &060;cinar&064;zdo.com&062;
 * @version    %W% %G% 
 * @version    $Id: Cal.java,v 1.2 2004/12/07 15:12:38 cinar Exp $
 * @since      1.0
 */

import java.awt.*;
import java.awt.event.*;
import java.io.*;
import java.util.Calendar;
import java.util.Vector;
import java.util.StringTokenizer;

public class Cal extends Frame implements ActionListener, 
 ItemListener, MouseListener {
 /* variables */
 protected Choice    smonth;       /* selection month */
 protected Choice    syear;        /* selection year  */
 protected Label     sday;         /* selection day   */
 protected TextField edesc;        /* desc text field */
 protected TextField filename;     /* filename        */
 protected List      elist;        /* event list      */
 protected int       tyear,tmonth,tday;  /* today     */
 protected Label[]   days;         /* calendar cells  */
 protected Calendar  cal;          /* calendar holder */
 protected Vector    events;       /* event container */

 /* constants */
 protected static String[] months = {"January","February","March","April",
   "May","June","July","August","September","October","November","December"};
 protected static int[] years = new int[20];
 protected static final int ROWS  = 7;   /* calendar rows */
 protected static final int COLS  = 7;   /* calendar cols */
 protected static final int CELLS = (ROWS-1)*COLS;  /* cell count */
 protected static Color dbackground;     /* OS default background */

 /* Print Confirmation Class */
 class PrintConfirm extends Frame implements ActionListener {
   public PrintConfirm () {
     setLayout(new BorderLayout());
     add(new Label("Calendar printed as "+filename.getText()
       +".html",Label.CENTER),
       BorderLayout.CENTER);
     Button b = new Button("Close");
     b.addActionListener(this);
     add(b,BorderLayout.SOUTH);
     setSize(300,100);
     show();
   }

   public void actionPerformed (ActionEvent e) {
     dispose();  /* close this window */
   }
 }

 /* Search Result List Class */
 class SearchResults extends Frame implements ItemListener, ActionListener {
   public SearchResults (Vector r) {
     super("Search Results");
     setLayout(new BorderLayout());

     List slist = new List(10);         /* create list */
     slist.addItemListener(this);
     add(slist,BorderLayout.CENTER);

     Button b = new Button("Close");    /* close button */
     b.addActionListener(this);
     add(b,BorderLayout.SOUTH);

     for (int i=0; i<r.size(); i++) {   /* place results into list */
       CalEvent c = (CalEvent) r.elementAt(i);
       slist.add(String.valueOf(c.getMonth())+"/"+
         String.valueOf(c.getDay())+"/"+String.valueOf(c.getYear()));
     }

     setSize(100,250);
     show();
   }

   public void actionPerformed (ActionEvent e) {
     dispose();  /* close this window */
   }

   public void itemStateChanged(ItemEvent e) {
     StringTokenizer split = 
       new StringTokenizer(((List) e.getSource()).getSelectedItem(),"/");

     if (split != null && split.countTokens() == 3) {
       cal.set(Calendar.MONTH, Integer.parseInt(split.nextToken()));
       String s = split.nextToken();
       cal.set(Calendar.YEAR, Integer.parseInt(split.nextToken()));

       updatecal();  /* update calendar */

       cal.set(Calendar.DAY_OF_MONTH, Integer.parseInt(s));
       sday.setText(s);

       updateevents(); /* update event list */
     }
   }
 }
 
 public Cal () {
   super("Calendar");
   //setResizable(false);
   
   /* events */
   events = new Vector();
   
   /* get current date */
   cal = Calendar.getInstance();

   /* extract today,month and year */
   tday   = cal.get(Calendar.DAY_OF_MONTH);
   tmonth = cal.get(Calendar.MONTH);
   tyear  = cal.get(Calendar.YEAR);
   
   /* init screen */
   initscr();   
   
   /* load default file */
   actionPerformed(new ActionEvent(this,ActionEvent.ACTION_PERFORMED,"Load"));
 }
 
 protected void initscr () {
   /* setlayout */
   GridBagLayout gb = new GridBagLayout();
   GridBagConstraints gc = new GridBagConstraints();
   setLayout(gb);
   gc.fill = GridBagConstraints.BOTH;
   gc.weightx=1.0;
   
   /* default file */
   filename = new TextField("calendar.txt",22);

   /* tool bar */
   Panel bar = new Panel(new FlowLayout(FlowLayout.LEFT));
   bar.add(filename);
   Button b = new Button("Load"); b.addActionListener(this); bar.add(b);
   b = new Button("Save");   b.addActionListener(this); bar.add(b);
   b = new Button("Print");  b.addActionListener(this); bar.add(b);
   b = new Button("Exit");   b.addActionListener(this); bar.add(b);
   
   /* elist and calendar */
   Panel view = new Panel(new GridLayout(1,2));
   elist = new List(11,false);
   view.add(elist);
   view.add(initcal());

   /* form1 */
   Panel frm = new Panel(new FlowLayout(FlowLayout.LEFT));
   b = new Button("Delete"); b.addActionListener(this); frm.add(b);
   b = new Button("Search"); b.addActionListener(this); frm.add(b);   
   b = new Button("Add");    b.addActionListener(this); frm.add(b);
   edesc = new TextField("event goes here",24); frm.add(edesc);
   
   /* show */
   gc.gridx=0; gc.gridy=0; gb.setConstraints(bar,gc); add(bar);
   gc.gridx=0; gc.gridy=1; gb.setConstraints(view,gc); add(view);
   gc.gridx=0; gc.gridy=3; gb.setConstraints(frm,gc); add(frm);
   
   setSize(460,350);
   show();
 }

 protected Panel initcal () {
   /* setlayout */
   Panel p = new Panel();
   GridBagLayout gb = new GridBagLayout();
   GridBagConstraints gc = new GridBagConstraints();
   p.setLayout(gb);
   gc.fill = GridBagConstraints.BOTH;
   gc.weightx=1.0;
 
   /* calendar navigation */
   Panel nav = new Panel(new FlowLayout(FlowLayout.LEFT));
   
   /* selected day */
   sday = new Label();
   sday.setAlignment(Label.RIGHT);
   nav.add(sday);
   
   /* months */
   smonth = new Choice();
   for (int i=0; i<months.length; i++)
     smonth.add(months[i]);
   smonth.select(tmonth);     
   smonth.addItemListener(this);
   nav.add(smonth);
   
   /* years */
   for (int i=0; i<years.length; i++)
     years[i] = tyear+i;
   
   syear = new Choice();
   syear.addItemListener(this);
   for (int i=0; i<years.length; i++)
     syear.add(String.valueOf(years[i]));
   nav.add(syear);
   
   /* calendar view */
   Panel view = new Panel(new GridLayout(ROWS,COLS));

   /* titles */
   final String[] titles = {"Sun","Mon","Tue","Wed","Thu","Fri","Sat"};
   for (int i=0; i<titles.length; i++) {
     Label l = new Label(titles[i],Label.CENTER);
     l.setForeground(Color.red);
     view.add(l);
   }
 
   /* days */
   days = new Label[CELLS];
   for (int i=0; i<CELLS; i++) {
     days[i] = new Label(" ",Label.CENTER);
     days[i].addMouseListener(this);
     view.add(days[i]); 
   }  
   
   /* get default background */
   dbackground = days[0].getBackground();
   
   /* show */
   gc.gridx=0; gc.gridy=0; gb.setConstraints(nav,gc); p.add(nav);
   gc.gridx=0; gc.gridy=1; gb.setConstraints(view,gc); p.add(view);
      
   updatecal();
   
   return (p); 
 }
 
 protected void updatecal () {
   int month = cal.get(Calendar.MONTH);
   int year  = cal.get(Calendar.YEAR);
   sday.setText("1");
   
   /* find the first day of month */
   cal.set(Calendar.DAY_OF_MONTH,Integer.parseInt(sday.getText()));
   int d = cal.get(Calendar.DAY_OF_WEEK);

   /* find the last day of month */
   int l = cal.getActualMaximum(Calendar.DAY_OF_MONTH);  
   
   /* update */
   for (int i=0,j=1; i<CELLS; i++) {
     if (i < d-1 || j > l)
      days[i].setText(" ");
     else { 
       days[i].setText(String.valueOf(j));
       days[i].setForeground((j==tday && month==tmonth && year==tyear) 
         ? Color.blue : Color.black);
       ++j; /* next day */
     }
   }
   
   /* updateevents */
   updateevents();
 }
 
 public void itemStateChanged(ItemEvent e) {
   cal.set(Calendar.MONTH,smonth.getSelectedIndex());
   cal.set(Calendar.YEAR,Integer.parseInt(syear.getSelectedItem()));
   updatecal();
 }
 
 public void actionPerformed (ActionEvent e) { 
   String cmd = e.getActionCommand();
   
   try {
    
    /* operations */
    if ("Add".equals(cmd)) {
      if (!("".equals(edesc.getText()))) {
        events.add(new CalEvent(
            cal.get(Calendar.YEAR),
            cal.get(Calendar.MONTH),
            cal.get(Calendar.DAY_OF_MONTH),
            edesc.getText()
        ));
        updateevents();
      }
    }
    else if ("Delete".equals(cmd)) {
      if (elist.getSelectedIndex() != -1) {
        String s = elist.getSelectedItem();
        
        /* remove from list */
        for (int i=0; i<events.size(); i++) {
          CalEvent c = (CalEvent) events.elementAt(i);
          if ( c.getYear()  == cal.get(Calendar.YEAR)
            && c.getMonth() == cal.get(Calendar.MONTH)
            && c.getDay()   == cal.get(Calendar.DAY_OF_MONTH)
            && c.getDesc().equals(s) ) 
          {
            events.removeElementAt(i);
            break;
         }
       }
        
       updateevents();
      }
    }
    else if ("Save".equals(cmd)) {
      if (!("".equals(filename.getText()))) {
        CalEvent.toFile(filename.getText(),events);
      }
    }
    else if ("Load".equals(cmd)) {
      if (!("".equals(filename.getText()))) {
        events = CalEvent.fromFile(filename.getText());
      }
      
      updateevents();
    }   
    else if ("Search".equals(cmd)) {
      if (!("".equals(edesc.getText()))) {
        Vector r = CalEvent.search(events,edesc.getText());
        new SearchResults(r);
      }
    }
    else if ("Print".equals(cmd)) {
      if (!("".equals(filename.getText()))) {
        /* get current calendar */
        int year = cal.get(Calendar.YEAR);
        int month = cal.get(Calendar.MONTH);

        PrintWriter pw = new PrintWriter(
          new FileWriter(filename.getText()+".html"));
 
        pw.println("<html><head><style>TD {width:60px;height:60px;}"
         +"</style></head></body>"
         +"<h1>"+months[month]+", "+String.valueOf(year)+"</h1>"
         +"<table border=1><tr>"
         +"<th>Sun</th><th>Mon</th><th>Tue</th><th>Wed</th>"
         +"<th>Thu</th><th>Fri</th><th>Sat</th></tr><tr>");

        /* print calendar including events */
        int t = cal.get(Calendar.DAY_OF_MONTH);
        cal.set(Calendar.DAY_OF_MONTH,1);
        int d = cal.get(Calendar.DAY_OF_WEEK);

        /* find the last day of month */
        int l = cal.getActualMaximum(Calendar.DAY_OF_MONTH);  
 
        /* update */
        for (int i=0,j=1; i<CELLS; i++) {
          if (i < d-1 || j > l)
            pw.print("<td>&nbsp;</td>");
          else { 
            pw.print("<td valign=top>");
            pw.print((j==tday && month==tmonth && year==tyear) 
              ? "<b>"+String.valueOf(j)+"</b>" : String.valueOf(j));
            /* show events */
            for (int k=0; k<events.size(); k++) {
              CalEvent c = (CalEvent) events.elementAt(k);
              if (c.isAt(year,month,j))
                pw.print("<small><br>"+c.getDesc()+"</small>");
            }
  
            pw.print("</td>");

            ++j; /* next day */
          }

          if (i != 0 && (i+1) % COLS == 0)         /* make rows */
            pw.print("</tr><tr>");
        }
   
        pw.println("</table></body></html>");
        pw.flush();
        pw.close();

        cal.set(Calendar.DAY_OF_MONTH,t);  /* restore selection */
  
        new PrintConfirm();  /* inform user */
      }
    }
    else if ("Exit".equals(cmd)) {
      /* save default file */
      actionPerformed(new ActionEvent(this,ActionEvent.ACTION_PERFORMED,"Save"));
    
      System.exit(0);
    }
    
   } catch (Exception ee) {
     System.out.println(ee.toString());
   } 
 }

 public void mouseClicked (MouseEvent e) {
   String s = ((Label) e.getSource()).getText();
   
   if (!(" ".equals(s))) {
     /* update day */
     sday.setText(s);
     cal.set(Calendar.DAY_OF_MONTH,Integer.parseInt(sday.getText()));
     
     /* update events */
     updateevents();
   }
 }

 public void updateevents () {
   elist.removeAll();
   
   int year  = cal.get(Calendar.YEAR);
   int month = cal.get(Calendar.MONTH);
   int day   = cal.get(Calendar.DAY_OF_MONTH);
         
   /* show events on that day */
   for (int i=0; i<events.size(); i++) 
     if (((CalEvent) events.elementAt(i)).isAt(year,month,day))
       elist.add(((CalEvent) events.elementAt(i)).toString());
 }
 
 public void mouseEntered (MouseEvent e) {
   Label l = (Label) e.getSource();
   l.setBackground(Color.red);
 }

 public void mouseExited (MouseEvent e) {
   Label l = (Label) e.getSource();
   l.setBackground(dbackground);
 }

 public void mousePressed (MouseEvent e) { }
 public void mouseReleased (MouseEvent e) { }

 public static void main (String[] args) {
   new Cal();
 }

}

class CalEvent 
{
  /* variables */
  protected int    year;
  protected int    month;
  protected int    day;
  protected String desc;

 /**
  * Constructor
  *
  * @param int year,month,day
  * @param String description
  */
 public CalEvent (final int year, final int month, 
  final int day, final String desc) {
   this.year  = year;
   this.month = month;
   this.day   = day;
   this.desc  = desc;
 } 
 
 /**
  * Constructor from string (year;month;day;desc)
  *
  * @param String to parse
  * @exception in case of unknown formated string
  */
 public CalEvent (final String s) throws Exception {
   /* partitition the string */
   Vector v = split(s,';');
 
   /* check */
   if (v.size() < 4)
     throw (new Exception("unknown format"));
  
   /* parse it */
   this.year  = Integer.parseInt((String) v.elementAt(0));
   this.month = Integer.parseInt((String) v.elementAt(1));
   this.day   = Integer.parseInt((String) v.elementAt(2));
   this.desc  = (String) v.elementAt(3);
 }
 
 /**
  * Get methods
  */
 public final int getYear()    { return(this.year); }
 public final int getMonth()   { return(this.month); }
 public final int getDay()     { return(this.day); }
 public final String getDesc() { return(this.desc); }
 
 /**
  * check if it is at a given date
  *
  * @param int year,month,day
  */
 public boolean isAt (final int year, final int month, final int day) {
   /* check */
   return (( this.year  == year
          && this.month == month
          && this.day   == day ) ? true : false);
 }
 
 /**
  * toString converter
  *
  */
 public String toString() {
   return(desc);
 }
 
 /**
  * print converter
  *
  */
 public String print() {
   /* string representation */
   return(String.valueOf(year)+";"+String.valueOf(month)+
     ";"+String.valueOf(day)+";"+desc);
 }
 
 /**
  * Search for an event in event list
  *
  * @param Vector event list
  * @param String search creteria
  */
 public static final Vector search (final Vector events, final String d) {
   Vector v = new Vector();
 
   /* find matches */
   for (int i=0; i<events.size(); i++)
    if (((CalEvent) events.elementAt(i)).getDesc().indexOf(d) != -1)
      v.addElement(events.elementAt(i));
 
   /* return matches */
   return(v);
 }
 
 /**
  * Write output file of event list
  *
  * @param String file output filename
  * @param Vector event list
  * @exception Exception in case of an error
  */
 public static void toFile (final String file, final Vector events) 
  throws Exception {
   /* open the output file */
   PrintWriter pw = new PrintWriter(new FileWriter(file));
 
   /* print each event */
   for (int i=0; i<events.size(); i++) {
     pw.println(((CalEvent) events.elementAt(i)).print());
   }
 
   /* close output */
   pw.flush();
   pw.close();
 }
 
 /**
  * Read input file and create event list
  *
  * @param String file input filename
  * @exception Exception in case of an error
  */
 public static Vector fromFile (final String file) throws Exception {
   String line;
   Vector events = new Vector();
 
   /* open the input file */
   BufferedReader br = new BufferedReader(new FileReader(file)); 
 
   /* read each line and convert to CalEvent */ 
   while ((line = br.readLine()) != null) {
     events.addElement(new CalEvent(line));
   }
 
   /* close input stream and return events */
   br.close();
   return (events);
 }
 
 /**
  * Split the given string into a string array
  * separating using the given delimited
  *
  * @param String str given string
  * @param char del delimiter
  */
 protected static Vector split (final String str, final char del)
 {
   // init
   Vector v = new Vector();
   int p=0;
 
   // go through the list
   for (int i=0; i<str.length(); i++)
   {
     // check for delimiter
     if (str.charAt(i) == del) {
       // if a string exists
       if (i > 0)
         v.addElement(str.substring(p,i));
       // reset
       p=i+1;
     }
   }
 
   // if last part not counted
   if (str.length()-1 > p) {
     v.addElement(str.substring(p,str.length()));
   }
 
   // return
   return v;
 }
}