53 lines
		
	
	
		
			657 B
		
	
	
	
		
			Modula-2
		
	
	
	
	
	
		
		
			
		
	
	
			53 lines
		
	
	
		
			657 B
		
	
	
	
		
			Modula-2
		
	
	
	
	
	
| 
								 | 
							
								autogen definitions utils.tpl;
							 | 
						||
| 
								 | 
							
								
							 | 
						||
| 
								 | 
							
								float_type = {
							 | 
						||
| 
								 | 
							
									name = float ;
							 | 
						||
| 
								 | 
							
									};
							 | 
						||
| 
								 | 
							
								
							 | 
						||
| 
								 | 
							
								float_type = {
							 | 
						||
| 
								 | 
							
									name = double ;
							 | 
						||
| 
								 | 
							
									};
							 | 
						||
| 
								 | 
							
								
							 | 
						||
| 
								 | 
							
								/*----------------------------------*/
							 | 
						||
| 
								 | 
							
								
							 | 
						||
| 
								 | 
							
								io_type = {
							 | 
						||
| 
								 | 
							
									io_element	= short ;
							 | 
						||
| 
								 | 
							
									format_str		= "\"% d\"" ;
							 | 
						||
| 
								 | 
							
									};
							 | 
						||
| 
								 | 
							
								
							 | 
						||
| 
								 | 
							
								io_type = {
							 | 
						||
| 
								 | 
							
									io_element	= int ;
							 | 
						||
| 
								 | 
							
									format_str		= "\"% d\"" ;
							 | 
						||
| 
								 | 
							
									};
							 | 
						||
| 
								 | 
							
								
							 | 
						||
| 
								 | 
							
								io_type = {
							 | 
						||
| 
								 | 
							
									io_element	= float ;
							 | 
						||
| 
								 | 
							
									format_str		= "\"% g\"" ;
							 | 
						||
| 
								 | 
							
									};
							 | 
						||
| 
								 | 
							
								
							 | 
						||
| 
								 | 
							
								io_type = {
							 | 
						||
| 
								 | 
							
									io_element 	= double ;
							 | 
						||
| 
								 | 
							
									format_str		= "\"% g\"" ;
							 | 
						||
| 
								 | 
							
									};
							 | 
						||
| 
								 | 
							
								
							 | 
						||
| 
								 | 
							
								read_op = {
							 | 
						||
| 
								 | 
							
									op_element	= read ;
							 | 
						||
| 
								 | 
							
									count_name	= items ;
							 | 
						||
| 
								 | 
							
									};
							 | 
						||
| 
								 | 
							
								
							 | 
						||
| 
								 | 
							
								read_op = {
							 | 
						||
| 
								 | 
							
									op_element	= readf ;
							 | 
						||
| 
								 | 
							
									count_name	= frames ;
							 | 
						||
| 
								 | 
							
									};
							 | 
						||
| 
								 | 
							
								
							 | 
						||
| 
								 | 
							
								write_op = {
							 | 
						||
| 
								 | 
							
									op_element	= write ;
							 | 
						||
| 
								 | 
							
									count_name	= items ;
							 | 
						||
| 
								 | 
							
									};
							 | 
						||
| 
								 | 
							
								
							 | 
						||
| 
								 | 
							
								write_op = {
							 | 
						||
| 
								 | 
							
									op_element	= writef ;
							 | 
						||
| 
								 | 
							
									count_name	= frames ;
							 | 
						||
| 
								 | 
							
									};
							 | 
						||
| 
								 | 
							
								
							 |