PackageManifest subclass: #ManifestCalendarioFeriados
	instanceVariableNames: ''
	classVariableNames: ''
	package: 'CalendarioFeriados-Manifest'!
!ManifestCalendarioFeriados commentStamp: '<historical>' prior: 0!
I store metadata for this package. These meta data are used by other tools such as the SmalllintManifestChecker and the critics Browser!

"-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "!

ManifestCalendarioFeriados class
	instanceVariableNames: ''!

!ManifestCalendarioFeriados class methodsFor: 'code-critics' stamp: 'eugenio 10/15/2020 18:19'!
ruleRBAllAnyNoneSatisfyRuleV1FalsePositive
	^ #(#(#(#RGMethodDefinition #(#Calendario #esFeriado: #false)) #'2020-10-15T18:19:12.977626-03:00') )! !

!ManifestCalendarioFeriados class methodsFor: 'code-critics' stamp: 'eugenio 10/15/2020 18:19'!
ruleRBDetectContainsRuleV1FalsePositive
	^ #(#(#(#RGMethodDefinition #(#Calendario #esFeriado: #false)) #'2020-10-15T18:19:17.669305-03:00') )! !
Object subclass: #Calendario
	instanceVariableNames: 'feriados'
	classVariableNames: ''
	package: 'CalendarioFeriados'!

!Calendario methodsFor: 'as yet unclassified' stamp: 'eugenio 10/15/2020 18:37'!
agregarFeriado: unFeriado 
  feriados add: unFeriado.

! !

!Calendario methodsFor: 'as yet unclassified' stamp: 'eugenio 10/15/2020 18:07'!
initialize
	feriados := OrderedCollection new.


	! !

!Calendario methodsFor: 'as yet unclassified' stamp: 'eugenio 10/15/2020 18:09'!
agregarFeriadoAnualEnDia: unDia deMes: unMes
  | unFeriadoAnual |
  unFeriadoAnual := FeriadoAnual new.
  unFeriadoAnual setDia: unDia yUnMes: unMes.
	feriados add: (unFeriadoAnual).
	
! !

!Calendario methodsFor: 'as yet unclassified' stamp: 'eugenio 10/15/2020 18:16'!
esFeriado: unaFecha
  feriados do: [ :unFeriado |
	   (unFeriado esFeriado: unaFecha) ifTrue: [ ^ true ].
	 ].
	^ false.
! !

!Calendario methodsFor: 'as yet unclassified' stamp: 'eugenio 10/15/2020 18:08'!
agregarFeriadoSemanalEnDia: unDiaSemana
	| unFeriadoSemanal |
	unFeriadoSemanal := FeriadoSemanal new.
	unFeriadoSemanal setDiaSemana: unDiaSemana.
	feriados add: (unFeriadoSemanal).
! !


Object subclass: #Feriado
	instanceVariableNames: ''
	classVariableNames: ''
	package: 'CalendarioFeriados'!

Feriado subclass: #FeriadoAnual
	instanceVariableNames: 'dia mes'
	classVariableNames: ''
	package: 'CalendarioFeriados'!

!FeriadoAnual methodsFor: 'as yet unclassified' stamp: 'eugenio 10/15/2020 18:11'!
setDia: unDia yUnMes: unMes 
  dia := unDia.
  mes := unMes.
! !

!FeriadoAnual methodsFor: 'as yet unclassified' stamp: 'eugenio 10/15/2020 18:18'!
esFeriado: unaFecha
  ^ (unaFecha monthIndex = mes) & (unaFecha dayOfMonth = dia).

! !


Feriado subclass: #FeriadoSemanal
	instanceVariableNames: 'diaDeLaSemana'
	classVariableNames: ''
	package: 'CalendarioFeriados'!

!FeriadoSemanal methodsFor: 'as yet unclassified' stamp: 'eugenio 10/15/2020 18:17'!
esFeriado: unaFecha
  ^ (unaFecha weekday = diaDeLaSemana).
! !

!FeriadoSemanal methodsFor: 'as yet unclassified' stamp: 'eugenio 10/15/2020 18:10'!
setDiaSemana: unDiaSemana.
  diaDeLaSemana := unDiaSemana.
! !