'From VisualWorks® NonCommercial, Release 7 of June 14, 2002 on July 29, 2005 at 12:51:39 am'!


!CormasNS.Models.Pieplue.ScenarioClimat methodsFor: 'init'!

importeDataPluie: aYear 
	"Cette méthode charge la série des précipitations moyennes sur le bassin pour une année choisie. Elle fait 
	l'hypothèse que la base contient toutes les années à partir de 1971"

	| pluieStream sep1 sep2 line readingBlock listeP inBlock |
	pluieStream :=	 ((Cormas dataPath: #Pieplue) construct:'pluie.csv' ) readStream.
	sep1 := Character cr.
	sep2 := $,.
	readingBlock := [[pluieStream atEnd]
				whileFalse: 
					[line := (pluieStream upTo: sep1) readStream.
					listeP := List new.
					inBlock := [[line atEnd]
								whileFalse: [listeP add: (line upTo: sep2)]].
					inBlock valueNowOrOnUnwindDo: [line close].
					self pluie add: ((listeP at: aYear - 1970) asNumber)]].
	readingBlock valueNowOrOnUnwindDo: [pluieStream close]! !