<?xml version="1.0" encoding="UTF-8"?>
<perl:package xmlns:perl="http://ums.isas.jaxa.jp/0.3/0/perl/o" xmlns="http://ums.isas.jaxa.jp/0.3/0" name="txt2perl">
	<perl:decoderSub name="parse">
		<group xmlns:txt="http://ums.isas.jaxa.jp/0.3/0/dat/i">
				<perl:readerSub name="userProgram">
					<group>
						<perl:var name="type">
								<data type="string"/>
							</perl:var>
						
						<perl:var name="name">
							<data type="string">
								<param name="pattern">[a-zA-Z_][a-zA-Z0-9_]*</param>
							</data>
						</perl:var>
						
						
						<perl:var name="order">
							<data type="string">
								<param name="pattern">[0-9]+</param>
							</data>
						</perl:var>
						
						
					</group>
					<zeroOrMore>
						<loopGroup>
							<perl:array>
								
								<perl:var name="value">
									<data type="string">
										<param name="pattern">[0-9]+</param>
									</data>
								</perl:var>
							</perl:array>
						</loopGroup>
					</zeroOrMore>
					<choice>
						<choiceGroup>
							<perl:var name="hasComment">
								<perl:value>1</perl:value>
							</perl:var>
							
							
							<perl:var name="comment">
								<data type="string">
									<param name="pattern">.+</param>
								</data>
							</perl:var>
						</choiceGroup>
						<choiceGroup>
							<perl:var name="hasComment">
								<perl:value>0</perl:value>
							</perl:var>
						</choiceGroup>
					</choice>
				</perl:readerSub>
			</group>
	</perl:decoderSub>
</perl:package>