CALENDAR

note
    description: "Summary description for {CALENDAR}."
    author: ""
    date: "$Date$"
    revision: "$Revision$"

class
    CALENDAR

create
    initialize

feature

    entries: ARRAY[ENTRY]
    i: INTEGER
    i1: INTEGER
    i2: INTEGER
    initialize(a:INTEGER)
        do
            create entries.make_empty
        end

    create_entry( new_date: TIME; new_owner: PERSON; new_subject: STRING; new_place: STRING ): ENTRY
        do

            create Result.initialize(new_date, new_owner, new_subject, new_place )

            entries.force (Result, entries.count + 1)

        end

    edit_subject ( e: ENTRY; new_subject : STRING )
        do

            from i:= 1 until i > entries.count loop

                if entries[i] = e then

                    entries[i].initialize (entries[i].date, entries[i].owner, new_subject, entries[i].place)

                end

                i := i + 1

            end

        end

    edit_date( e: ENTRY; new_date : TIME )
        do

            from i:= 1 until i > entries.count loop

                if entries[i] = e then

                    entries[i].initialize (new_date, entries[i].owner, entries[i].subject, entries[i].place)

                end

                i := i + 1

            end

        end



    get_owner_name( e: ENTRY ) : STRING
        do
            Result := e.owner.name
        end



    in_conflict ( e1: ENTRY; e2 : ENTRY ) : BOOLEAN
        do

            from i:= 1 until i > entries.count loop

                if entries[i] = e1 then
                    i1 := i
                end

                if entries[i] = e2 then
                    i2 := i
                end

                i := i + 1

            end

            if entries[i1].date = entries[i2].date or entries[i1].place = entries[i2].place then
                Result := True
            else
                Result := False
            end

        end

end