definition module Sections;

//1.3
from StdString import String;
//3.1
import pdSections;

// MAC; import macState;
import PlatformLinkOptions;

/*	
should be moved to pdSections
:: SectionHeadKind = 
	  StartPrefix
	| TextSectionHeader
	| DataSectionHeader 
	| BssSectionHeader
	| IDataSectionHeader
	| EDataSectionHeader
	| RelocSectionHeader
	| NoSectionHeader
	;
	
instance == SectionHeadKind;
*/

/*
OLD:
:: ComputeSectionType
	:== !Int -> !Int -> !Int -> !SectionHeader -> *(!*State -> *(!*PlatformLinkOptions -> *(!Int,!SectionHeader,!*State,!*PlatformLinkOptions)));
*/
:: ComputeSectionType
	:== !Int -> !Int -> !Int -> !SectionHeader -> *(!*State -> *(!*PlatformLinkOptions -> *(!*Files -> *(!Int,!SectionHeader,!*State,!*PlatformLinkOptions,!*Files))));

:: GenerateSectionType
	:== !SectionHeader -> (!*File -> *(!*PlatformLinkOptions -> *(!*State -> *(!*Files -> *(!*File,!*PlatformLinkOptions,!*State,!*Files)))));
	
:: SectionHeader;
DefaultSectionHeader :: !SectionHeader;

(DSH) infixl;
(DSH) dsh f :== f dsh;
 
// Accessors; set
sh_set_kind :: !SectionHeadKind !SectionHeader -> !SectionHeader;
sh_set_index :: !Int !SectionHeader -> !SectionHeader;
sh_set_alignment :: !Int !SectionHeader -> !SectionHeader;
sh_set_compute_section :: ComputeSectionType !SectionHeader -> !SectionHeader;
sh_set_generate_section :: GenerateSectionType !SectionHeader -> !SectionHeader;
sh_set_virtual_data :: !Int !SectionHeader -> !SectionHeader;
sh_set_is_virtual_section :: !Bool !SectionHeader -> !SectionHeader;
sh_set_s_raw_data :: !Int !SectionHeader -> !SectionHeader;

sh_set_fp_section :: !Int !SectionHeader -> !SectionHeader;
sh_set_pd_section_header :: !PDSectionHeader !SectionHeader -> !SectionHeader;

// get
sh_get_kind :: !SectionHeader -> !SectionHeadKind;
sh_get_alignment :: !SectionHeader -> !Int;
sh_get_is_virtual_section :: !SectionHeader -> !Bool;
sh_get_s_virtual_data :: !SectionHeader -> !Int;
sh_get_s_raw_data :: !SectionHeader -> !Int;
sh_get_fp_section :: !SectionHeader -> !Int;
sh_get_compute_section :: !SectionHeader -> ComputeSectionType;
sh_get_generate_section :: !SectionHeader -> GenerateSectionType;
sh_get_pd_section_header :: !SectionHeader -> !PDSectionHeader;

/* PROBLEM: should be solved by providing dummy instances on the other platfrom
// instances
instance pd_get_section_name !SectionHeader;
instance pd_get_section_rva !SectionHeader;
instance pd_get_section_flags !SectionHeader;
*/

// {SectionHeader}
get_section_index :: !Int SectionHeadKind !*{!SectionHeader} -> (!Bool,!Int,!SectionHeader,!*{!SectionHeader});
get_section_index2 :: (SectionHeadKind SectionHeadKind -> !Bool) !Int SectionHeadKind !*{!SectionHeader} -> (!Bool,!Int,!SectionHeader,!*{!SectionHeader});