//=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
// Confidential Trade Secret.
// Copyright 1987-2001 Data Access Corporation, Miami FL, USA
// All Rights reserved
// DataFlex is a registered trademark of Data Access Corporation.
//
// Module:
//      GetCalendarInfo.Pkg
//
// Purpose:
//      Defines interface to WinAPI function GetCalendarInfo
//
// Author:
//      Vincent Oorsprong
//
// Date:
//      2001, July, 7th
//
//=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Use LanguageText.Pkg

#IFSAME Language$Current Language$English
    Use SysInfo_Language_English.Inc
#ENDIF

#IFSAME Language$Current Language$Nederlands
    Use SysInfo_Language_Nederlands.inc
#ENDIF

#IFSAME Language$Current Language$Svenska
    Use SysInfo_Language_Svenska.inc
#ENDIF

#IFSAME Language$Current Language$Deutsch
    Use SysInfo_Language_Deutsch.inc
#ENDIF

#IFSAME Language$Current Language$Dansk
    Use SysInfo_Language_Dansk.inc
#ENDIF

#IFSAME Language$Current Language$Portugues
    Use SysInfo_Language_Portugues.inc
#ENDIF

#IFSAME Language$Current Language$Francais
    Use SysInfo_Language_Francais.inc
#ENDIF

#IFSAME Language$Current Language$Italiano
    Use SysInfo_Language_Italiano.inc
#ENDIF

External_Function WinAPI_RdsGetCalendarInfo "GetCalendarInfoA" Kernel32.Dll Integer iLocale Integer iCalendar Integer iCaltype Pointer lpCalData Integer cchData Pointer lpValue Returns Integer

Define CAL_ITWODIGITYEARMAX For |CI$00000030  // two digit year max

#If PKG_Version<|CI9
  Function RdsGetCalendarInfo For Desktop Integer iLocale Integer iCalendar Integer iCaltype Returns String
#ELSE
  Function RdsGetCalendarInfo Desktop Integer iLocale Integer iCalendar Integer iCaltype Returns String
#ENDIF
    Integer iRetval
    String sCalData

    ZeroString 255 To sCalData

    Move (WinAPI_RdsGetCalendarInfo (iLocale, iCalendar, iCaltype, AddressOf (sCalData), 255, 0)) To iRetval

    Function_Return (CString (sCalData))
End_Function // RdsGetCalendarInfo

#If PKG_Version<|CI9
  Function RdsCalendarType2Descr For Desktop Integer iCalendarType Returns String
#ELSE
  Function RdsCalendarType2Descr Desktop Integer iCalendarType Returns String
#ENDIF
    String sCalendarType

    Case Begin
        Case (iCalendarType = 0)
            Move C_$CalendarTypeNoAdditionalTypesValid To sCalendarType
            Case Break
        Case (iCalendarType = 1)
            Move C_$CalendarTypeGregorianLocalized To sCalendarType
            Case Break
        Case (iCalendarType = 2)
            Move C_$CalendarTypeGregorianEnglish To sCalendarType
            Case Break
        Case (iCalendarType = 3)
            Move C_$CalendarTypeEraYearOfTheEmperorJapan To sCalendarType
            Case Break
        Case (iCalendarType = 4)
            Move C_$CalendarTypeTaiwanCalendar To sCalendarType
            Case Break
        Case (iCalendarType = 5)
            Move C_$CalendarTypeTangunEraKorea To sCalendarType
            Case Break
        Case (iCalendarType = 6)
            Move C_$CalendarTypeHijriArabicLunar To sCalendarType
            Case Break
        Case (iCalendarType = 7)
            Move C_$CalendarTypeThai To sCalendarType
            Case Break
        Case (iCalendarType = 8)
            Move C_$CalendarTypeHebrewLunar To sCalendarType
            Case Break
        Case (iCalendarType = 9)
            Move C_$CalendarTypeGregorianMiddleEastFrenchCalendar To sCalendarType
            Case Break
        Case (iCalendarType = 10)
            Move C_$CalendarTypeGregorianArabicCalendar To sCalendarType
            Case Break
        Case (iCalendarType = 11)
            Move C_$CalendarTypeGregorianTransliteratedEnglishCalendar To sCalendarType
            Case Break
        Case (iCalendarType = 12)
            Move C_$CalendarTypeGregorianTransliteratedFrenchCalendar To sCalendarType
            Case Break
    Case End

    Function_Return sCalendarType
End_Function // RdsCalendarType2Descr