We planned to upgrade GitLab and Mattermost to the latest version this Friday morning (early). You may experience some downtime!

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