Return to genminiupnpcstrings.vbs CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / miniupnpc / msvc

Annotation of embedaddon/miniupnpc/msvc/genminiupnpcstrings.vbs, revision 1.1.1.1

1.1       misho       1: ' VBScript to generate miniupnpcstrings.h
                      2: ' Copyright 2018 Thomas Bernard
                      3: 'Set WshShell = CreateObject("WScript.Shell")
                      4: Set FSO = CreateObject("Scripting.FileSystemObject")
                      5: versionfile = "..\version"
                      6: infile = "..\miniupnpcstrings.h.in"
                      7: outfile = "..\miniupnpcstrings.h"
                      8: outfilerc = "..\rc_version.h"
                      9: 
                     10: On Error Resume Next
                     11: 
                     12: 'Wscript.Echo revision
                     13: 
                     14: Err.Clear
                     15: Set f = FSO.OpenTextFile(versionfile, 1, False) ' 1 = Read
                     16: If Err.Number = 0 Then
                     17:        version = f.ReadLine
                     18:        f.Close
                     19: Else
                     20:        ' Exit error
                     21:        WScript.Quit 1
                     22: End If
                     23: 
                     24: os_version = "0.0.0"
                     25: strComputer = "."
                     26: Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
                     27: Set colOperatingSystems = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem")
                     28: For Each objOperatingSystem in colOperatingSystems
                     29:     'Wscript.Echo objOperatingSystem.Caption & " -- " 
                     30:        os_version = objOperatingSystem.Version
                     31: Next
                     32: 
                     33: 'Wscript.Echo os_version
                     34: 
                     35: Dim array
                     36: needWrite = True
                     37: 
                     38: ' First Check if the file already contains the right versions
                     39: Err.Clear
                     40: Set f_in = FSO.OpenTextFile(outfile, 1, False)
                     41: If Err.Number = 0 Then
                     42:        old_version = ""
                     43:        old_os_version = ""
                     44:        Do Until f_in.AtEndOfStream
                     45:                line = f_in.ReadLine
                     46:                If Len(line) > 0 Then
                     47:                        array = Split(line, " ")
                     48:                        If UBound(array) >= 2 And array(0) = "#define" Then
                     49:                                If array(1) = "OS_STRING" Then
                     50:                                        old_os_version = Replace(array(2), Chr(34), "")
                     51:                                ElseIf array(1) = "MINIUPNPC_VERSION_STRING" Then
                     52:                                        old_version = Replace(array(2), Chr(34), "")
                     53:                                End if
                     54:                        End if
                     55:                End If
                     56:        Loop
                     57:        f_in.Close
                     58:        If old_version = version And old_os_version = "MSWindows/" & os_version Then
                     59:                needWrite = False
                     60:        Else
                     61:                needWrite = True
                     62:        End If
                     63: End If
                     64: 
                     65: If Not needWrite Then
                     66:        ' check files dates
                     67:        Set fIn1 = FSO.GetFile(versionfile)
                     68:        Set fIn2 = FSO.GetFile(infile)
                     69:        Set fOut = FSO.GetFile(outfile)
                     70:        If DateDiff("s", fIn1.DateLastModified, fOut.DateLastModified) < 0 Then
                     71:                needWrite = True
                     72:        End If
                     73:        If DateDiff("s", fIn2.DateLastModified, fOut.DateLastModified) < 0 Then
                     74:                needWrite = True
                     75:        End If
                     76: End If
                     77: 
                     78: If Not needWrite Then
                     79:     ' nothing to do
                     80:        WScript.Quit 0
                     81: End if
                     82: 
                     83: ' generate the file
                     84: Err.Clear
                     85: Set f_in = FSO.OpenTextFile(infile, 1, False)
                     86: If Err.Number = 0 Then
                     87:        Set f_out = FSO.OpenTextFile(outfile, 2, True) ' 2 = Write
                     88:        Do Until f_in.AtEndOfStream
                     89:                line = f_in.ReadLine
                     90:                If Len(line) > 0 Then
                     91:                        array = Split(line, " ")
                     92:                        If UBound(array) >= 2 And array(0) = "#define" Then
                     93:                                If array(1) = "OS_STRING" Then
                     94:                                        line = "#define OS_STRING " & Chr(34) & "MSWindows/" & os_version & Chr(34)
                     95:                                ElseIf array(1) = "MINIUPNPC_VERSION_STRING" Then
                     96:                                        line = "#define MINIUPNPC_VERSION_STRING " & Chr(34) & version & Chr(34)
                     97:                                End if
                     98:                        End if
                     99:                End If
                    100:                f_out.WriteLine line
                    101:        Loop
                    102:        f_in.Close
                    103:        f_out.Close
                    104: End If
                    105: 
                    106: Set f_out = FSO.OpenTextFile(outfilerc, 2, True) ' 2 = Write
                    107: f_out.WriteLine "#define LIBMINIUPNPC_DOTTED_VERSION " & Chr(34) & version & Chr(34)
                    108: ver = Split(version, ".")
                    109: f_out.WriteLine "#define LIBMINIUPNPC_MAJOR_VERSION " & ver(0)
                    110: f_out.WriteLine "#define LIBMINIUPNPC_MINOR_VERSION " & ver(1)
                    111: f_out.WriteLine "#define LIBMINIUPNPC_MICRO_VERSION " & ver(2)
                    112: f_out.Close