DEFINITION MODULE MCCDate;

(*
**
** Copyright © 1996-1997 Kai Hofmann. All rights reserved.
** Registered MUI custom class!
**
** $VER: MCCDate.def 12.2 (22.12.97)
**
*)

  FROM SYSTEM	  IMPORT ADDRESS,BYTE;
  FROM UtilityD	  IMPORT TagItemPtr;
  FROM IntuitionD IMPORT ObjectPtr;


  CONST
    (*mcDate			= "Date.mcc";*)

    maDateDay			= 81EE0001H;
    maDateMonth			= 81EE0002H;
    maDateYear			= 81EE0003H;
    maDateFirstWeekday		= 81EE0004H;
    maDateLanguage		= 81EE0007H;
    maDateCountry		= 81EE0008H;
    maDateCalendar		= 81EE0035H;
    maDateMinDay		= 81EE0041H;
    maDateMinMonth		= 81EE0042H;
    maDateMinYear		= 81EE0043H;
    maDateMaxDay		= 81EE0044H;
    maDateMaxMonth		= 81EE0045H;
    maDateMaxYear		= 81EE0046H;
    maDateJD			= 81EE0053H;
    maDateMJD			= 81EE0054H;
    maDateYDay			= 81EE0056H;
    maDateWeek			= 81EE0057H;
    maDateWeekday		= 81EE0058H;


    mmDateSetCurrent		= 81EE0048H;
    mmDateIncreaseDays		= 81EE0049H;
    mmDateDecreaseDays		= 81EE004AH;
    mmDateIncreaseMonths	= 81EE004BH;
    mmDateDecreaseMonths	= 81EE004CH;
    mmDateIncreaseYears		= 81EE004DH;
    mmDateDecreaseYears		= 81EE004EH;
    mmDateIncreaseToWeekday	= 81EE004FH;
    mmDateDecreaseToWeekday	= 81EE0052H;
    mmDateCompare		= 81EE0055H;


    mvDateCountryUnknown	= 0;
    mvDateCountryItalia		= 1;
    mvDateCountryDeutschland	= 2;
    mvDateCountrySchweiz	= 3;
    mvDateCountryDanmark	= 4;
    mvDateCountryNederland	= 5;
    mvDateCountryGreatBritain	= 6;

    mvDateCalendarJulian	= 0;
    mvDateCalendarGregorian	= 1;
    mvDateCalendarHeis		= 2;

    mvDateWeekdayMonday		= 1;
    mvDateWeekdayTuesday	= 2;
    mvDateWeekdayWednesday	= 3;
    mvDateWeekdayThursday	= 4;
    mvDateWeekdayFriday		= 5;
    mvDateWeekdaySaturday	= 6;
    mvDateWeekdaySunday		= 7;

    mvDateLangLocale		= 0;
    mvDateLangEnglish		= 1;
    mvDateLangDeutsch		= 2;
    mvDateLangFrancais		= 3;
    mvDateLangEspanol		= 4;
    mvDateLangPortugues		= 5;
    mvDateLangDansk		= 6;
    mvDateLangItaliano		= 7;
    mvDateLangNederlands	= 8;
    mvDateLangNorsk		= 9;
    mvDateLangSvenska		= 10;
    mvDateLangPolski		= 11;
    mvDateLangSuomi		= 12;
    mvDateLangMagyar		= 13;
    mvDateLangGreek		= 14;
    mvDateLangEsperanto		= 15;
    mvDateLangLatina		= 16;
    mvDateLangRussian		= 17;
    mvDateLangCzech		= 18;
    mvDateLangCatalonian	= 19;

    mvDateCompareLess		= -1;
    mvDateCompareEqual		=  0;
    mvDateCompareGreater	=  1;


  TYPE
    mpDateSetCurrent =
      RECORD
        MethodID	: LONGCARD;
      END;

    mpDateIncreaseDays =
      RECORD
        MethodID	: LONGCARD;
        days		: LONGCARD;
      END;

    mpDateDecreaseDays =
      RECORD
        MethodID	: LONGCARD;
        days		: LONGCARD;
      END;

    mpDateIncreaseMonths =
      RECORD
        MethodID	: LONGCARD;
        months		: LONGCARD;
      END;

    mpDateDecreaseMonths =
      RECORD
        MethodID	: LONGCARD;
        months		: LONGCARD;
      END;

    mpDateIncreaseYears =
      RECORD
        MethodID	: LONGCARD;
        years		: LONGCARD;
      END;

    mpDateDecreaseYears =
      RECORD
        MethodID	: LONGCARD;
        years		: LONGCARD;
      END;

    mpDateIncreaseToWeekday =
      RECORD
        MethodID	: LONGCARD;
        weekday		: LONGCARD;
      END;

    mpDateDecreaseToWeekday =
      RECORD
        MethodID	: LONGCARD;
        weekday		: LONGCARD;
      END;

    mpDateCompare =
      RECORD
        MethodID	: LONGCARD;
        obj		: ObjectPtr;
      END;


  (*PROCEDURE DateObject(tags : TagItemPtr) : ADDRESS;*)

END MCCDate.