|
Yes sorry, I do mean the wpsplus update, and, by the way, they also
have the ALL-IN-1 v2.4 UPDATE Version 2.0
Steve
|
| Ok,
I think I have an answer:
This answer applies only to the british version of ALL-IN-1.
In the script:
DISK$APPLICATIONS:[ALLIN1.LIB_SHARE]LNGSPLINI.SCP;1
All the dictionary initialisation is done. This is where it creates a
personal dictionary if you haven't got one.
The following lines are the problem:
!Check to see if the file exists. If it exists, skip down to SYMBOL_CHECK.
!-
.IF OA$DIR:.%WHOLE[#pers_file] NES "" THEN .GOTO symbol_check
!+
! File didn't exist. In the event that the user has a personal.lgp in his
! sys$login from standalone DECSPELL, use that as his personal.
!-
.IF #language eqs #save_lang then -
GET #old_personal = OA$DIR:.%WHOLE["SYS$LOGIN:PERSONAL.LGP"]\ -
.IF #old_personal NES "" THEN COPY #old_personal #pers_file
This does a check on the exsistance of a personal dictionary, if it
exists, it does nothing, if it doesn't. it copies the personal.lgp
from sys$login. If that doesn't exist, it just creates a blank file.
The #pers_file is got from the line:
GET #pers_file = DATASPELL.PERS_FILE_SPEC[#language]
For american lanaguage, this comes back with [.DOC0]PERSONAL.LGP
- and therefore will find this file, and not do any copying.
For the British (or any other language varient), the #pers_file
is different - british is [.doc0]personalbri.lgp
Therefore, when it comes to discovering whether the user has a personal
dictionary or not - they don't - because they don't have a personalbri.lgp
This being the case, the copy is done, and the user gets a blank
personalbri.lgp file.
A note in the wpsplus conference explains that a user NEEDS both a
personal.lgp and a personalbri.lgp. I don't understand why.
Anyway, assuming that they don't - because they are never going to
use the american dictionary. - Here is a fix:
!+
! Check to see if the file exists. If it exists, skip down to SYMBOL_CHECK.
!-
.IF OA$DIR:.%WHOLE[#pers_file] NES "" THEN .GOTO symbol_check
!+
! Check for the existance of a [.doc0]personal.lgp - if it exists, copy it
! to the new british lgp file
!-
.IF OA$DIR:.%WHOLE["[.DOC0]PERSONAL.LGP"] NES "" THEN .GOTO after_copy
.IF #language eqs #save_lang then -
GET #old_personal = OA$DIR:.%WHOLE["[.DOC0]PERSONAL.LGP"]\ -
.IF #old_personal NES "" THEN COPY #old_personal #pers_file
!+
! File didn't exist. In the event that the user has a personal.lgp in his
! sys$login from standalone DECSPELL, use that as his personal.
!-
.IF #language eqs #save_lang then -
GET #old_personal = OA$DIR:.%WHOLE["SYS$LOGIN:PERSONAL.LGP"]\ -
.IF #old_personal NES "" THEN COPY #old_personal #pers_file
.LABEL after_copy
Steve
|
| sorry, the fix should read:
!+
! Check to see if the file exists. If it exists, skip down to SYMBOL_CHECK.
!-
.IF OA$DIR:.%WHOLE[#pers_file] NES "" THEN .GOTO symbol_check
!+
! Check for the existance of a [.doc0]personal.lgp - if it exists, copy it
! to the new british lgp file
!-
.IF #language eqs #save_lang then -
GET #old_personal = OA$DIR:.%WHOLE["[.DOC0]PERSONAL.LGP"]\ -
.IF #old_personal NES "" THEN COPY #old_personal #pers_file\ -
GOTO after_copy
!+
! File didn't exist. In the event that the user has a personal.lgp in his
! sys$login from standalone DECSPELL, use that as his personal.
!-
.IF #language eqs #save_lang then -
GET #old_personal = OA$DIR:.%WHOLE["SYS$LOGIN:PERSONAL.LGP"]\ -
.IF #old_personal NES "" THEN COPY #old_personal #pers_file
.LABEL after_copy
|