// VED-VER.VDM Date: 04-29-2004  Initial Macro Finished
//	       Date: 05/04/04    DOS version 6.12.1 now includes (DOS)
//				 New routine to determine executable
//				 Version 6.12 reliant as it is now
//
// The Starving Hedonist - http://cu2.home.comcast.net
//
// Macro to output version & serial number information of vpw[64].exe
// and vedit.exe to a text file with windows INI file structure.
//
// syntax: vedit|vpw[64] [-g] -q -x ved-ver
//
// The "-g" parm is used simply to bypass the errors / block to run
// this macro with a DOS-WINDOWS shared installation of VPW 6.12 &
// VEDIT 6.11 -- not used/needed in this revision
//
// Output file is 8.3 named to maintain functionality with VEDIT-DOS

if (File_Exist("VED-VER.INI")) {
  File_Open("VED-VER.INI")
  #10=Buf_Num
} else {
  #10=Buf_Switch(Buf_Free(EXTRA))
  Ins_Text("[VEDIT]")
  Ins_Newline(1)
  Ins_Text("VESN=")
  Ins_Newline(1)
  Ins_Text("VE16=")
  Ins_Newline(1)
  Ins_Text("VE32=")
  Ins_Newline(1)
  Ins_Text("VE64=")
  Ins_Newline(1)
}


Buf_Switch(Buf_Free(EXTRA))
Out_Reg(10)
Version()
Out_Reg(CLEAR)
Ins_Text(@10)
Reg_Empty(10)

BOF
// Done to strip trailing <CR> and/or <LF>
Reg_Copy_Block(10, Cur_Pos, EOL_Pos)
Buf_Quit(OK)


// Version 6.12 or higher specific
Reg_Set(11,"VE")

if (Is_Win32_Version) {
  if (Is_Vedit_Pro64) {
    Reg_Set(11,"64", APPEND)
  } else {
    Reg_Set(11,"32", APPEND)
  }
} else {
  Reg_Set(11,"16", APPEND)
}

Reg_Set(11,"=", APPEND)

// Below can be used for older versions but
// relies on original vedit executable names

//Buf_Switch(Buf_Free(EXTRA))
//Ins_Text(VEDIT_EXE)

//Search("|{VEDIT,VPW|[64]}.EXE",BEGIN)
//if (Match("VEDIT.EXE")==0) {
//  Reg_Set(11,"VE16=")

//  If (Version_Num < 612) {
//    BOF
//    Ins_Text(@10)
//    Ins_Newline(1)
//    Reg_Empty(10)
//    Search("|<VEDIT|B",BEGIN+ADVANCE)
//    if (Match("V")==0) {
//      Ins_Text("(DOS) ")
//      BOL
//      Reg_Copy_Block(10, Cur_Pos, EOL_Pos)
//    }
//  }
//} else {
//  if (Match("VPW.EXE")==0) {
//    Reg_Set(11,"VE32=")
//  } else {
//    if (Match("VPW64.EXE")==0) {
//      Reg_Set(11,"VE64=")
//    }
//  }
//}

//Buf_Quit(OK)


// check for VEDIT.INI in user area assume home if not found

if (File_Exist("|(USER_CFG)\VEDIT.INI")) {
  Reg_Set(12, USER_CFG)
} else {
  Reg_Set(12, HOME)
}

Reg_Set(12, "\VEDIT.INI", APPEND)

File_Open("|@(12)", BROWSE)
Search("|<SerialNumber=", ADVANCE)
if (Match("|D|D|D|D|D")==0) {
  Reg_Copy_Block(13, Cur_Pos, EOL_Pos)
} else {
  Reg_Set(13, "NONE")
}

Buf_Quit(OK)


Buf_Switch(#10)
BOF
Search("|<VESN=", ADVANCE)
if (Match("|D|D|D|D|D")==0) {
  Ins_Text(@13,OVERWRITE)
} else {
  Ins_Text(@13)
}

Search("|<|@(11)", ADVANCE)
if (Match("VEDIT")==0) {
  Ins_Text(@10,OVERWRITE)
} else {
  Ins_Text(@10)
}

#11=Config(F_BACKUP_MODE, 0)	// save existing value then turn off
File_Save_As("VED-VER.INI", NOMSG+OK)
Config(F_BACKUP_MODE, #10)	// restore original value