Изменить приглашение в OpenVMS

Question

Мне нужна помощь с openVMS.

подсказка по умолчанию под VMS является $

Я хочу обновить это, чтобы отразить текущий рабочий каталог, который я нахожусь в, как я могу в Unix/Linux, когда я изменить каталоги.

Я создал файл с именем login.com и поместить это в мой домашний каталог в системе OpenVMS и добавил следующий код:

$ SET PROMPT='f$environment("default")' 

который должен работать, отображая текущую директорию, однако она отражает только мое домашний каталог во время входа в систему. Он не динамически обновляется по мере изменения каталогов. Если я запустил указанную выше команду в терминале, она покажет текущий каталог.

Есть ли способ обновить login.com для динамического обновления запроса каждый раз, когда я меняю каталог?

Answer 1

Лучшее, что вы можете сделать, насколько я знаю, это создать командный файл, чтобы изменить каталог и установить приглашение.

Создайте файл с именем CD.COM со следующим:

$ set default 'p1' 
$ current = f$dir() 
$ d_start = f$locate ("[", current) + 1 
$ d_stop = f$length (current) - 2 
$ current_dir = f$extract(d_start, d_stop, current) 
$ new_prompt = "SERVER::" + current_dir + ">" 
$ 
$loop: 
$ if f$length(new_prompt) .ge. 30 
$  then 
$  d_start = f$locate (".", new_prompt) + 1 
$  new_prompt = "SERVER::" + f$extract (d_start, d_stop, new_prompt) 
$  goto loop 
$ endif 
$ set prompt='new_prompt 

Вы можете изменить условие в цикле в зависимости от того, как долго вы хотите приглашение быть

Тогда в файле LOGIN.COM создать логический чтобы указать на каталог с файлом CD.COM

$ DEFINE /GROUP CD "Disk:[Folder.Containing.COM.File]" 

Затем использовать его как это:

CD Disk:[Full.Path.To.Dir] 

или

CD [.subdir] 

Единственный раз, когда это не будет обновлять подсказки правильно, если вы используете команду CD внутри другого COM-файла. Однако он все равно правильно изменит каталог.