//
// SET_VPW_DIR.VDM                               Christian Ziemski  11.09.2005
//
// HOME            "\vedit"
// MACRO           "\vedit\macros"
// BACKUP          "\vedit\backup"
// VEDIT_TEMP      "\vedit\temp"
// FILE_CFG        "\vedit\file-cfg"
// USER_CFG        "\vedit"
// USER_MACRO      "\vedit\user-mac"
// VEDIT_INI       "\vedit\vedit.ini"
// PROJECTS        "\vedit\projects"
// 
// VEDIT_EXE:
//   D:\vedit\vpw.exe
//

#103=Buf_Num
Buf_Switch(Buf_Free(EXTRA))
Out_Ins
VEDIT_EXE
Out_Ins(CLEAR)
BoF
Search(":", ADVANCE)
Del_Line(1)
Reg_Copy_Block(103, 0, EoL_Pos)

Buf_Empty(OK) Out_Ins  HOME       Out_Ins(CLEAR) BoF  if (Match("\")==0) { Reg_Set(104, @103) Reg_Set(104, HOME,       APPEND)  Config_String(HOME,       @104) }
Buf_Empty(OK) Out_Ins  MACRO      Out_Ins(CLEAR) BoF  if (Match("\")==0) { Reg_Set(104, @103) Reg_Set(104, MACRO,      APPEND)  Config_String(MACRO,      @104) }
Buf_Empty(OK) Out_Ins  BACKUP     Out_Ins(CLEAR) BoF  if (Match("\")==0) { Reg_Set(104, @103) Reg_Set(104, BACKUP,     APPEND)  Config_String(BACKUP,     @104) }
Buf_Empty(OK) Out_Ins  VEDIT_TEMP Out_Ins(CLEAR) BoF  if (Match("\")==0) { Reg_Set(104, @103) Reg_Set(104, VEDIT_TEMP, APPEND)  Config_String(VEDIT_TEMP, @104) }
Buf_Empty(OK) Out_Ins  FILE_CFG   Out_Ins(CLEAR) BoF  if (Match("\")==0) { Reg_Set(104, @103) Reg_Set(104, FILE_CFG,   APPEND)  Config_String(FILE_CFG,   @104) }
Buf_Empty(OK) Out_Ins  USER_CFG   Out_Ins(CLEAR) BoF  if (Match("\")==0) { Reg_Set(104, @103) Reg_Set(104, USER_CFG,   APPEND)  Config_String(USER_CFG,   @104) }
Buf_Empty(OK) Out_Ins  USER_MACRO Out_Ins(CLEAR) BoF  if (Match("\")==0) { Reg_Set(104, @103) Reg_Set(104, USER_MACRO, APPEND)  Config_String(USER_MACRO, @104) }
Buf_Empty(OK) Out_Ins  VEDIT_INI  Out_Ins(CLEAR) BoF  if (Match("\")==0) { Reg_Set(104, @103) Reg_Set(104, VEDIT_INI,  APPEND)  Config_String(VEDIT_INI,  @104) }
Buf_Empty(OK) Out_Ins  PROJECTS   Out_Ins(CLEAR) BoF  if (Match("\")==0) { Reg_Set(104, @103) Reg_Set(104, PROJECTS,   APPEND)  Config_String(PROJECTS,   @104) }

Buf_Quit(OK)
Buf_Switch(#103)