LOGIN.COM



$ hp == "telnet hpex.ujf.cas.cz"
$ fhp == "ftp hpex.ujf.cas.cz"
$ cd == "@disk$user:[mrazek]cd"
$ up == "@disk$user:[mrazek]up"
$ down == "@disk$user:[mrazek]down"
$ ll == "@disk$user:[mrazek]ll"
$ ls == "@disk$user:[mrazek]ls"
$ usf == "@disk$user:[mrazek]usf"
$ hom == "set def disk$user:[mrazek]"
$ scr == "set def disk$scratch_5:[mrazek]"
$ dif == "diff/mer/page=save"

CD.COM


$ if P1.EQS.".." THEN GOTO UP
$! set def [.'P1']
$ down 'P1'
$ GOTO END
$ UP:
$ up
$ END:




LS.COM


$ dir/size/time 'P1'
$ sh def
$ sh quota
[End of file]




LL.COM


dir 'P1'




UP.COM


$ VERIFLAG = F$VERIFY()
$ SET NOVERIFY
$ !++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
$ !
$ ! NOM:
$ ! UP.COM
$ !
$ ! SUJET:
$ ! SERT A FAIRE UN SET DEF [-] MEME EN PRESENCE DE DEFINITIONS
$ ! LOGIQUES
$ !
$ ! MODE D'EMPLOI:
$ ! appel de UP
$ ! CETTE PROCEDURE A BESOIN DU SYMBOLE GLOBAL I_TRUE_DEV
$ !
$ ! VERSION AUTEUR DATE COMMENTAIRES&MODIFICATIONS:
$ ! 1.0 a.ll. 840822 version initiale
$ !------------------------------------------------------------
$ ON ERROR THEN GOTO SUITEA
$ MYDIR = F$DIRECTORY()
$ LEN=F$LENGTH(MYDIR)
$ LOC=F$LOCATE(".",MYDIR)
$ IF LOC .GE. LEN THEN GOTO SUITE
$OUT:
$ SET DEF [-]
$ SH DEF
$ IF VERIFLAG THEN SET VERIFY
$ EXIT
$SUITE:
$ NOMDIR=F$EXTRACT(1,LEN-2,MYDIR)+".DIR"
$ MYDEV=F$PARSE(NOMDIR,,,"DEVICE")-":"
$ TRUE_DEV = F$LOGICAL(MYDEV)
$ LEN=F$LENGTH(TRUE_DEV)
$ LOC=F$LOCATE(":",TRUE_DEV)
$ IF LOC .GE. LEN-1 THEN GOTO OUT
$ TRUE_DEV = ( TRUE_DEV - ".]" ) + "]"
$ SET DEF 'TRUE_DEV'
$ SH DEF
$ I_TRUE_DEV == I_TRUE_DEV+1
$ K=F$STRING(I_TRUE_DEV)
$ TRUE_DEV_'K' == TRUE_DEV
$ PSEUDO_DEV_'K' == MYDEV
$ IF I_TRUE_DEV .LE. 1 THEN GOTO SUITEA
$ J_COUNT=0
$BOUCLE:
$ J_COUNT=J_COUNT+1
$ L=F$STRING(J_COUNT)
$ DEV=TRUE_DEV_'L'
$ IF DEV .EQS. TRUE_DEV THEN GOTO SUITEB
$ IF J_COUNT .LT. I_TRUE_DEV THEN GOTO BOUCLE
$SUITEA:
$ IF VERIFLAG THEN SET VERIFY
$ EXIT
$SUITEB:
$ I_TRUE_DEV == I_TRUE_DEV-1
$ IF VERIFLAG THEN SET VERIFY
$ EXIT
[End of file]



DOWN.COM



$ VERIFLAG = F$VERIFY()
$ SET NOVERIFY
$ !++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
$ !
$ ! NOM:
$ ! down.com
$ !
$ ! SUJET:
$ ! SET VERIF [.P1] (p1 est le parametre d'entree)
$ !
$ ! MODE D'EMPLOI:
$ ! DOWN nom de sous-directoire (sans crochets)
$ !
$ ! VERSION AUTEUR DATE COMMENTAIRES&MODIFICATIONS:
$ ! 1.0 a.ll. 840822 version initiale
$ ! 1.1 j.pons 860813 version pour sous directoire en arbre
$ !------------------------------------------------------------
$ MYDIR = F$DIRECTORY()
$ dir_down = P1
$ dir_tmp = mydir - "]"
$ len_down = F$LENGTH( P1 )
$ dot:
$ p_dot = F$LOCATE( ".", dir_down )
$ IF p_dot .EQ. len_down THEN GOTO suit0
$ dir_plus = F$EXTRACT( 0 ,p_dot , dir_down )
$ dir_down = F$EXTRACT( p_dot + 1, len_down , dir_down )
$ dir_tmp = dir_tmp + "." + dir_plus
$ len_down = len_down - p_dot - 1
$ GOTO dot
$ suit0:
$ DIRNAM = dir_tmp + "]" + dir_down + ".DIR"
$ ALL=F$SEARCH(DIRNAM,1)
$ LEN=F$LENGTH(ALL)
$ IF LEN .LT. 1 THEN GOTO RATE
$ !
$ IF MYDIR .NES. "[000000]" THEN GOTO SUITE
$ SET DEF ['P1']
$ SH DEF
$ IF VERIFLAG THEN SET VERIFY
$ EXIT
$ !
$SUITE: !verification de nom en "pseudo-device "
$ !IF I_TRUE_DEV .LE. 0 THEN GOTO SUITEA!nombre de noms de pseudo-device actifs
$ LOC=F$LOCATE(":",ALL)
$ PSEUDO_DEV=F$EXTRACT(0,LOC,ALL)
$ ALLDIR="''PSEUDO_DEV'"+":"+"''MYDIR'"
$ !
$ J_COUNT=0
$BOUCLE:
$ J_COUNT=J_COUNT+1
$ L=F$STRING(J_COUNT)
$ !DEV=TRUE_DEV_'L'
$ !M=F$LOCATE(ALLDIR,DEV) !prevoir les cas comme __DUA0:,_DUA0:
$ !IF M .LE. 2 THEN GOTO SUITEB
$ !IF J_COUNT .LT. I_TRUE_DEV THEN GOTO BOUCLE
$ !
$SUITEA:
$ SET DEF [.'P1']
$ SH DEF
$ IF VERIFLAG THEN SET VERIFY
$ EXIT
$ !
$SUITEB:
$ NEWDIR = PSEUDO_DEV_'L'
$ NEWDIR = NEWDIR + ":[''P1']"
$ SET DEF 'NEWDIR'
$ SH DEF
$ IF VERIFLAG THEN SET VERIFY
$ EXIT
$ !
$RATE:
$ WRITE SYS$OUTPUT " a ce niveau [.''P1'] n'est pas un sous-repertoire !"
$ SH DEF
$ IF VERIFLAG THEN SET VERIFY
$ EXIT
[End of file]



USF.COM


$ if P1.EQS."" THEN GOTO ALL
$ copy 'P1' disk$user:[mrazek.useful]
$ GOTO END
$ ALL:
$ copy *.*;* disk$user:[mrazek.useful]
$ END:
$ dir disk$user:[mrazek.useful]
[End of file]