Commit 885bffea authored by Bas Lijnse's avatar Bas Lijnse

Limited generation of .prp to windows platform

parent 89274638
......@@ -3,6 +3,7 @@ definition module Platform
PlatformDependant win mac :== win
IF_MACOSX macosx not_macosx :== macosx
IF_WINDOWS windows not_windows :== not_windows
DirSeparator:=='/'
DirSeparatorString:=="/"
......
......@@ -382,7 +382,7 @@ step intr (DComp force dircache (AsyncWin [] {win_compiler_process_ids,win_max_n
# ps = app_world_instead_of_ps (QuitCleanCompiler True win_compiler_process_ids) ps;
# ps = showInfo (Level1 "Generating...") ps
# (paths,ds) = ds!modpaths
= step intr (DGene paths (IF_MACOSX SyncCodeGeneration (ASyncCodeGenerationWin [] win_max_n_processes)) ds) ps
= step intr (DGene paths (IF_WINDOWS (ASyncCodeGenerationWin [] win_max_n_processes) SyncCodeGeneration) ds) ps
step intr state=:(DComp force _ (Async _ _) _ _) ps
# (state, ps) = check_completed state ps
......
......@@ -784,21 +784,36 @@ SL_SetDeps lp sl = {sl & sDeps = lp}
SaveProjectFile :: !String !Project !String !*Files -> (!Bool, !*Files);
SaveProjectFile projectPath project applicationDir files
# (opened, prj_file, files) = fopen projectPath FWriteText files
| not opened
= (False, files)
# prp_path = RemoveSuffix` projectPath +++ ".prp"
# (opened, prp_file, files) = fopen prp_path FWriteText files
| not opened
# (_,files) = fclose prj_file files
= (False, files)
#! projectGO = GetProject applicationDir project
# projectGO = sort_modules projectGO
# prj_file = WriteOptionsFile ProjectFileVersion (PutOptions project_table projectGO) prj_file
# prp_file = WriteOptionsFile ProjectFileVersion (PutOptions edit_options_table projectGO) prp_file
#! (prj_ok, files) = fclose prj_file files
#! (prp_ok, files) = fclose prp_file files
= (prj_ok && prp_ok, files)
= IF_WINDOWS
(SaveProjectAndPropsFile projectPath project applicationDir files)
(SaveProjectFileOnly projectPath project applicationDir files)
where
SaveProjectAndPropsFile projectPath project applicationDir files
# (opened, prj_file, files) = fopen projectPath FWriteText files
| not opened
= (False, files)
# prp_path = RemoveSuffix` projectPath +++ ".prp"
# (opened, prp_file, files) = fopen prp_path FWriteText files
| not opened
# (_,files) = fclose prj_file files
= (False, files)
#! projectGO = GetProject applicationDir project
# projectGO = sort_modules projectGO
# prj_file = WriteOptionsFile ProjectFileVersion (PutOptions project_table projectGO) prj_file
# prp_file = WriteOptionsFile ProjectFileVersion (PutOptions edit_options_table projectGO) prp_file
#! (prj_ok, files) = fclose prj_file files
#! (prp_ok, files) = fclose prp_file files
= (prj_ok && prp_ok, files)
SaveProjectFileOnly projectPath project applicationDir files
# (opened, prj_file, files) = fopen projectPath FWriteText files
| not opened
= (False, files)
#! projectGO = GetProject applicationDir project
# projectGO = sort_modules projectGO
# prj_file = WriteOptionsFile ProjectFileVersion (PutOptions project_table projectGO) prj_file
#! (prj_ok, files) = fclose prj_file files
= (prj_ok, files)
save_project_template_file :: !String !Project !String !*Files -> (!Bool, !*Files);
save_project_template_file projectPath project applicationDir files
......
......@@ -3,6 +3,7 @@ definition module Platform
PlatformDependant win mac :== win
IF_MACOSX macosx not_macosx :== not_macosx
IF_WINDOWS windows not_windows :== not_windows
DirSeparator:=='/'
DirSeparatorString:=="/"
......
......@@ -5,6 +5,7 @@ import StdString
PlatformDependant win mac :== win
IF_MACOSX macosx not_macosx :== not_macosx
IF_WINDOWS windows not_windows :== windows
DirSeparator:=='\\'
DirSeparatorString:=="\\"
......
Markdown is supported
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