Commit 1d81babe authored by John van Groningen's avatar John van Groningen
Browse files

refactor, remove unused argument import_file_position of function wantModule

parent d41fc254
......@@ -35,7 +35,7 @@ frontEndInterface opt_file_dir_time options mod_ident search_paths cached_dcl_mo
= (No,{},{},0,predef_symbols, hash_table, files, error, io, out, tcl_file, heaps)
# (Yes (mod_file,mod_dir,mod_time)) = opt_file_dir_time
# (ok,dynamic_type_used,mod,hash_table,error,files)
= wantModule mod_file mod_time cWantIclFile mod_ident NoPos support_dynamics hash_table error files
= wantModule mod_file mod_time cWantIclFile mod_ident support_dynamics hash_table error files
| not ok
= (No,{},{},0,predef_symbols, hash_table, files, error, io, out, tcl_file, heaps)
# cached_module_idents = [dcl_mod.dcl_name \\ dcl_mod<-:cached_dcl_modules]
......
......@@ -10,7 +10,7 @@ import syntax, hashtable, scanner, predef
cWantIclFile :== True
cWantDclFile :== False
wantModule :: !*File !{#Char} !Bool !Ident !Position !Bool !*HashTable !*File !*Files
-> (!Bool,!Bool,!ParsedModule,!*HashTable,!*File,!*Files)
wantModule :: !*File !{#Char} !Bool !Ident !Bool !*HashTable !*File !*Files
-> (!Bool,!Bool,!ParsedModule,!*HashTable,!*File,!*Files)
moduleCouldNotBeImportedError :: !Bool !Ident !Position !*File -> *File
......@@ -308,9 +308,9 @@ isMemberOrWhereOfMemberDefsContext parseContext :== parseContext bitand MemberOr
cWantIclFile :== True
cWantDclFile :== False
wantModule :: !*File !{#Char} !Bool !Ident !Position !Bool !*HashTable !*File !*Files
-> (!Bool,!Bool,!ParsedModule,!*HashTable,!*File,!*Files)
wantModule file modification_time iclmodule file_id=:{id_name} import_file_position support_dynamics hash_table error files
wantModule :: !*File !{#Char} !Bool !Ident !Bool !*HashTable !*File !*Files
-> (!Bool,!Bool,!ParsedModule,!*HashTable,!*File,!*Files)
wantModule file modification_time iclmodule file_id=:{id_name} support_dynamics hash_table error files
# scanState = openScanner file id_name file_name_extension
# hash_table=set_hte_mark (if iclmodule 1 0) hash_table
# (ok,dynamic_type_used,mod,hash_table,file,files) = initModule file_name modification_time scanState hash_table error files
......
......@@ -1134,7 +1134,7 @@ parseAndScanDclModule dcl_module import_file_position parsed_modules cached_modu
= (False, [MakeEmptyModule dcl_module MK_None: parsed_modules],files, ca)
# (Yes (mod_file,mod_dir,mod_time)) = opt_file_dir_time
# (parse_ok,dynamic_type_used,mod, ca_hash_table, err_file, files)
= wantModule mod_file mod_time cWantDclFile dcl_module import_file_position support_dynamics ca_hash_table ca_error.pea_file files
= wantModule mod_file mod_time cWantDclFile dcl_module support_dynamics ca_hash_table ca_error.pea_file files
# ca = {ca & ca_hash_table=ca_hash_table, ca_error={pea_file=err_file,pea_ok=True} }
| parse_ok
= scan_dcl_module dcl_module mod parsed_modules searchPaths modtimefunction files ca
......@@ -1231,7 +1231,7 @@ where
= (False, No,NoIndex, [],cached_modules, files, ca)
# (Yes (mod_file,mod_dir,mod_time)) = opt_file_dir_time
# (parse_ok,dynamic_type_used,mod, hash_table, err_file, files)
= wantModule mod_file mod_time cWantDclFile mod_ident NoPos support_dynamics ca_hash_table ca_error.pea_file files
= wantModule mod_file mod_time cWantDclFile mod_ident support_dynamics ca_hash_table ca_error.pea_file files
# ca = {ca & ca_hash_table=hash_table, ca_error={pea_file=err_file,pea_ok=True}}
| not parse_ok
= (False, No,NoIndex, [],cached_modules, files, ca)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment