1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
|
CPlatform <- tail(commandArgs(),1)
writeLines(paste0("CPlatform is ", CPlatform))
# Required get the environment variable - postgresrcroot
#
# e.g. set postgresrcroot=C:\projects\postgresql
#
postgresrcroot <- Sys.getenv("postgresrcroot")
postgresrcroot <- normalizePath(postgresrcroot, winslash="/", mustWork = T)
SolutionPathFile <- paste0(postgresrcroot, "/src/tools/msvc/Solution.pm")
Solution.pm.Lines <- readLines(SolutionPathFile)
modifySubDeterminePlatform <- function(lines, CPlatform) {
# lines
LineOnlyBeginPos <- which(grepl("sub\\s+DeterminePlatform", x = lines, perl = TRUE))
if(CPlatform == "Win32") {
LineAllHaveCPlatformPos <- which(grepl("x64", x = lines, perl = TRUE))
}
if(CPlatform == "x64") {
LineAllHaveCPlatformPos <- which(grepl("Win32", x = lines, perl = TRUE))
}
# after BeginPos, first-found line
if(CPlatform == "Win32") {
LineAllHaveCPlatformPos <- which(grepl("x64", x = lines, perl = TRUE))
LineOfCPlatformPos <- LineAllHaveCPlatformPos[head(which(LineOnlyBeginPos < LineAllHaveCPlatformPos),1L)]
}
# after BeginPos, second-found line
if(CPlatform == "x64") {
LineAllHaveCPlatformPos <- which(grepl("Win32", x = lines, perl = TRUE))
LineOfCPlatformPos <- LineAllHaveCPlatformPos[tail(head(which(LineOnlyBeginPos < LineAllHaveCPlatformPos),2L),1L)]
}
ModifyLineWorking <- lines[LineOfCPlatformPos]
# within that line
if(CPlatform == "Win32") {
LastCPlatformPos <- tail(gregexpr("x64", text = ModifyLineWorking, perl = TRUE)[[1L]],1L)
}
if(CPlatform == "x64") {
LastCPlatformPos <- tail(gregexpr("Win32", text = ModifyLineWorking, perl = TRUE)[[1L]],1L)
}
ModifyLineWorking <- strsplit(ModifyLineWorking, split = "")[[1L]]
# remove that CPlatform
ModifyLineWorking <- as.list(ModifyLineWorking)
if(CPlatform == "Win32") {
# remove "x64"
for(i in 1:3) {
ModifyLineWorking[LastCPlatformPos] <- NULL
}
}
if(CPlatform == "x64") {
# remove "Win32"
for(i in 1:5) {
ModifyLineWorking[LastCPlatformPos] <- NULL
}
}
ModifyLineWorking <- unlist(ModifyLineWorking)
ModifyLineWorking <- paste0(ModifyLineWorking, collapse = "")
# insert into the line at the old-CPlatform position
ModifyLineWorking <- paste0(append(strsplit(ModifyLineWorking, split = "")[[1L]], CPlatform, after = LastCPlatformPos - 1L), collapse = "")
lines[LineOfCPlatformPos] <- ModifyLineWorking
writeLines("")
writeLines("BEGIN modifySubDeterminePlatform ")
writeLines("")
writeLines(lines[LineOnlyBeginPos:LineOfCPlatformPos])
writeLines("")
writeLines("END modifySubDeterminePlatform ")
writeLines("")
return(lines)
}
# part of sub DeterminePlatform - reduce concern to only "CPlatform"
Solution.pm.Lines <- modifySubDeterminePlatform(Solution.pm.Lines, CPlatform = CPlatform )
cat(file = SolutionPathFile, Solution.pm.Lines, sep = "\n")
|
