@@ -110,7 +110,7 @@ namespace CodeGen.Engine
110110 ;;Is CODEGEN_TPLDIR set in the environment?
111111 data templateFolder = Environment.GetEnvironmentVariable("CODEGEN_TPLDIR")
112112
113- .ifdef OS_WINDOWNSET
113+ .ifndef D_NETCORE
114114
115115 if (String.IsNullOrWhiteSpace(templateFolder))
116116 begin
@@ -141,7 +141,7 @@ namespace CodeGen.Engine
141141 context.Author = authorName
142142 end
143143
144- .ifdef OS_WINDOWNSET
144+ .ifndef D_NETCORE
145145 if (String.IsNullOrWhiteSpace(context.Author))
146146 begin
147147 ;;Look in the registry for the value set by InstallShield
@@ -168,7 +168,7 @@ namespace CodeGen.Engine
168168 context.Company = companyName
169169 end
170170
171- .ifdef OS_WINDOWNSET
171+ .ifndef D_NETCORE
172172 if (String.IsNullOrWhiteSpace(context.Company))
173173 begin
174174 ;;No, look in the registry for the value set by InstallShield
@@ -1072,12 +1072,17 @@ namespace CodeGen.Engine
10721072 ;;-------------------------------------------------------------------------
10731073 ;;Report template file folder (verbose mode only)
10741074
1075- if (( !errStatus) && context.VerboseLoggingEnabled)
1075+ if (!errStatus && context.VerboseLoggingEnabled)
10761076 begin
10771077 if (String.IsNullOrWhiteSpace(context.TemplateFolder)) then
1078+ begin
10781079 context.CurrentTask.Log("Template folder : Current directory", true, false)
1080+ context.TemplateFolder = String.Format(".{0}",Path.DirectorySeparatorChar)
1081+ end
10791082 else
1083+ begin
10801084 context.CurrentTask.Log("Template folder : " + context.TemplateFolder, true, false)
1085+ end
10811086 end
10821087
10831088 ;;-------------------------------------------------------------------------
@@ -1191,14 +1196,16 @@ namespace CodeGen.Engine
11911196 ;;-------------------------------------------------------------------------
11921197 ;;Report output location (verbose mode only)
11931198
1194- if (!errStatus)
1199+ if (!errStatus && context.VerboseLoggingEnabled )
11951200 begin
1196- if (context.VerboseLoggingEnabled)
1201+ if (String.IsNullOrWhiteSpace( context.OutputFolder)) then
11971202 begin
1198- if (String.IsNullOrWhiteSpace(context.OutputFolder)) then
1199- context.CurrentTask.Log("Output folder : Current directory")
1200- else
1201- context.CurrentTask.Log("Output folder : " + context.OutputFolder)
1203+ context.CurrentTask.Log("Output folder : Current directory")
1204+ context.OutputFolder = String.Format(".{0}",Path.DirectorySeparatorChar)
1205+ end
1206+ else
1207+ begin
1208+ context.CurrentTask.Log("Output folder : " + context.OutputFolder)
12021209 end
12031210 end
12041211
@@ -1211,7 +1218,7 @@ namespace CodeGen.Engine
12111218 ;;-------------------------------------------------------------------------
12121219 ;;Report if we're replacing existing files
12131220
1214- if (!errStatus)
1221+ if (!errStatus && context.VerboseLoggingEnabled )
12151222 begin
12161223 if (context.CurrentTask.ReplaceFiles) then
12171224 context.CurrentTask.VerboseLog("Replace files : YES")
0 commit comments