Conference iosg::all-in-1_v30

3058.0. "Relink Procedure for ALL-IN-1 3.0" by LEMAN::BLANCHARD (Blanchard David @ZSW DTN 753 2320) Fri Jul 23 1993 13:25

    
    Hello !!!
    
    	I wrote a little DCL command procedure for linking ALL-IN-1 and
    move the EXE file in there correct directory with the rigth protection.
    This procedur is for the French primary language  and allow you to
    link ALL-IN-1 in a multi-Language supported lang are
    ENGLISH,GERMAN,ITALIEN.
    
    For every body interested in :
    
    	Best regards
    
    						D.Blanchard
    
    
$!
$!  Link command Procedur for ALL-IN-1 3.0
$!
$ old_dir=f$environment("default")
$ set noon
$ write sys$output "-----------------------------------------------------"
$ write sys$output " Relink d'ALL-IN-1 pour la version Francaise         "
$ write sys$output "-----------------------------------------------------"
$!
$ set def oa$build_french:
$!
$ ASK_AGAIN:
$!
$ INQUIRE MULTI "Est-ce que vous avez plusieurs languages installes ? [O/N] "
$ IF (MULTI .NES. "O") .AND. (MULTI .NES. "N") then goto ASK_AGAIN
$ IF MULTI .EQS. "O" then MULLNK = "O"
$!
$ @a1lnkdrv
$!
$ copy oa$main.exe oa$lib_share:*.*/log
$ Set file/prot=(s:rwed,o:rwed,g:rwed,w:re) oa$lib_share:oa$main.exe 
$ copy oa$submit.exe oa$lib_share:*.*/log
$ Set file/prot=(s:rwed,o:rwed,g:rwed,w:re) oa$lib_share:oa$submit.exe
$ copy tmsv.exe oa$lib_share:*.*/log
$ Set file/prot=(s:rwed,o:rwed,g:rwed,w:re) oa$lib_share:tmsv.exe
$ copy oa$formatter.exe sys$common:[sysexe]*.*/log
$ Set file/prot=(s:rwed,o:rwed,g:rwed,w:re) sys$common:[sysexe]oa$formatter.exe
$!
$ IF MULTI .EQS. "O" then goto MOVELLV
$!
$ ASKAGAIN:
$ INQUIRE MULLNK "Avez-vous linker le produit en Multi-langue ? [O/N] "
$ IF (MULLNK .NES. "O") .AND. (MULLNK .NES. "N") then goto ASKAGAIN
$!
$ IF MULLNK .EQS. "O" then goto MOVELLV
$!
$ GOTO SKEEPLLV
$!
$ MOVELLV:
$!
$ copy oa$llvfrench.exe sys$common:[syslib]*.*/log
$ Set file/prot=(s:rwed,o:rwed,g:rwed,w:re) oa$llvfrench.exe
$!
$ IF (MULTI .EQS. "N") .AND. (MULLNK .EQS. "O") then goto SKEEPLLV
$!
$ write sys$output "----------------------------------------"
$ write sys$output " Demande du deuxieme language ou plus ? "
$ write sys$output "----------------------------------------"
$!
$ AGAIN:
$ Write sys$output ""
$!
$ Inquire NBRLNG " Combien de language supplementaires avez-vous ? [1,2,3] "
$!
$ If (NBRLNG .NES. "1") .and. (NBRLNG .NES. "2") .and. (NBRLNG .NES. "3") then goto AGAIN
$ COUNT=0 
$!
$ TRY_LANG:
$ Inquire SECLANG "Nom du language ? [(E)NGLISH/(G)ERMAN/(I)TALIEN] "
$!
$ IF (SECLANG .NES. "E") .and. (SECLANG .NES. "G") .and. (SECLANG .NES. "I") then goto TRY_LANG 
$ COUNT = COUNT + 1
$!
$ IF SECLANG .EQS. "E" then goto set_english
$ IF SECLANG .EQS. "G" then goto set_german
$ IF SECLANG .EQS. "I" then goto set_italien
$!
$ set_english:
$ set def oa$build_english:
$ @a1lnkdrv
$ copy oa$llvenglish.exe sys$common:[syslib]*.*/log
$ Set file/prot=(s:rwed,o:rwed,g:rwed,w:re) sys$common:[syslib]oa$llvenglish.exe
$ goto SKEEPLLV_CONT
$!
$ set_german:
$ set def oa$build_german:
$ copy oa$llgerman.exe sys$common:[syslib]*.*/log
$ Set file/prot=(s:rwed,o:rwed,g:rwed,w:re) sys$common:[syslib]oa$llvgerman.exe
$ goto SKEEPLLV_CONT
$!
$ set_italien:
$ set def oa$build_italien:
$ copy oa$llvitalien.exe sys$common:[syslib]*.*/log
$ Set file/prot=(s:rwed,o:rwed,g:rwed,w:re) sys$common:[syslib]oa$llvitalien.exe
$!
$ SKEEPLLV_CONT:
$ IF COUNT .NES. NBRLNG then goto TRY_LANG
$ 
$ SKEEPLLV:
$!
$ write sys$output "-----------------------------------------------------"
$ Write sys$output "Allez dans ALL-IN-1 et compiler les TXL (Option CTX) "
$ Write sys$output "puis les fich. Message (Option CMF ) pour OA.A1$MSG, "
$ write sys$output "SA.A1$MSG, TM.A1$MSG                                 "
$ write sys$output "-----------------------------------------------------"
$!
$ set def 'old_dir'
$ exit