| T.R | Title | User | Personal
Name | Date | Lines |
|---|
| 611.1 | This has some dangerous holes. | VAXWRK::NEEDLE | Jeff Needle | Sat Nov 28 1987 03:50 | 4 |
| And god help the person who gives "*" as an argument or hits a ^Y
during this. Could do some amusing things to your directory structure.
j.
|
| 611.2 | | CURIE::DECARTERET | When there's a will, there's no way | Sat Nov 28 1987 23:38 | 7 |
|
Well there you go. I already did it! All it does is rename all
the directories to such names as XXXXXX89.dir or XXXXXX92.dir.
I had a fun time trying to rename all the directories to the proper
names. Still don't know what 3 are!!
Why did it do that??
-=*>Jason<*=-
|
| 611.3 | OK, and without renaming !!!!!! | LEROUF::BLASSIN | | Mon Nov 30 1987 04:35 | 107 |
|
Hello all,
OK OK ,I have wrote another procedure more quickly and less
rename the directory , try and you'll see .you can also break
with CTRL/Y , it'sn't dangerous for your directory.
Well , bye and Enjoy.
Marc..
$!-----------------------cut here -----------------------------------------
$!
$!
$!GO .COM VERS 1.2 MORE QUICK
$!
$! ********************************************************
$! * Created by Marc Blassin November, 30 1987 *
$! * DIGITAL VALBONNE *
$! * QA *
$! ********************************************************
$!
$! PUT THAT LINE IN YOUR LOGIN.COM :
$! -------> GO=="@[DIRECTORY_WHERE_IS_THIS_PROGRAM]GO"
$! THEN , TO RUN IT YOU ONLY HAVE TO PUT :
$! -------> GO DIRECTORY , WHERE DIRECTORY IS THE DIRECTORY YOU
$! WHANT TO GO
$! IF THERE IS MORE THAN ONE SUBDIRECTORY GO WILL AVISE YOU AND YOU
$! WILL HAVE THE CHOICE TO DECIDE IN WHITCH YOU WANT TO GO
$!
$!
$! THIS IS THE NEW VERSION MORE QUICKLY THAN THE OTHER
$! ENJOY,
$! Marc..
$!
$ RS =="READ SYS$COMMAND"
$ WS =="WRITE SYS$OUTPUT"
$ DIRECTORY = 0
$ GO_OUT = "NO"
$ WS "[0;0H[2J"
$!
$!
$!
$ IF P1 .EQS. "" THEN -
READ SYS$COMMAND P1/PROMPT="DIRECTORY TO GO > "
$ WS "Working..."
$ IF P1 .EQS. "^" THEN GOTO UP
$ SET DEF SYS$LOGIN
$ DEFAULT_DIR=F$DIRECTORY()
$ LENGHT=F$LEN(DEFAULT_DIR)
$ DEFAULT_DIR=F$EXTRACT(1,LENGHT-2,DEFAULT_DIR)
$ REN_DIR = "''P1'"
$ IF P1 .EQS. "''DEFAULT_DIR'" THEN EXIT
$ RETRY:
$ LOOK_AFTER = F$SEARCH("[...''P1']*.*")
$!
$! TEST
$!
$ IF DIRECTORY .EQ. 0 .AND. LOOK_AFTER .EQS. "" THEN GOTO ERROR_1
$ IF DIRECTORY .GE. 1 THEN GOTO TEST
$ LITTLE_FAR:
$ IF LOOK_AFTER .EQS. "" THEN GOTO FINISH
$ DIRECTORY = DIRECTORY + 1
$ SUBDIR'DIRECTORY = LOOK_AFTER - F$ELEMENT(1,"]",LOOK_AFTER)
$ GOTO RETRY
$!
$!
$!
$ TEST:
$ SUBTEST = LOOK_AFTER - F$ELEMENT(1,"]",LOOK_AFTER)
$ IF SUBTEST .EQS. SUBDIR'DIRECTORY THEN GOTO RETRY
$ GOTO LITTLE_FAR
$!
$!
$!
$ FINISH:
$ IF DIRECTORY .EQ. 1 THEN GOTO END
$ COUNT = 0
$ WS " [1;7mTHERE IS MORE THAN ONE SUBDIRECTORY[0m"
$ LOOP_2:
$ COUNT = COUNT + 1
$ IF COUNT .GT. DIRECTORY THEN GOTO JUMPING
$ WS "''COUNT' . " + SUBDIR'COUNT
$ GOTO LOOP_2
$ JUMPING:
$ WS " [1;7mWHITCH SUBDIRECTORY[0m"
$ WS ""
$ RS WH_DIR/PROMPT =" > "
$ TO_GO = SUBDIR'WH_DIR
$ SET DEFAULT 'TO_GO'
$ EXIT
$!
$!
$!
$ UP:
$ SET DEF [-]
$ EXIT
$!
$ END:
$ SET DEF 'SUBDIR1'
$ EXIT
$!
$!ERRORS
$!
$ ERROR_1:
$ WS " [1;7mDIRECTORY NOT FOUND!!![0m"
$ EXIT
|
| 611.4 | Take a look on Note 583.0 !!! | 50565::SCHABACKER | Tim Schabacker SWAS FRS ext.226 | Tue Dec 01 1987 10:50 | 1 |
|
|
| 611.5 | I like the title (***New way of...****) | LEROUF::GENTILI | Frank Gentili ��� AEG Valbonne ��� | Tue Dec 01 1987 15:35 | 6 |
|
You should not place DCL in all the hands !
|
| 611.6 | Take it easy | VISA::BIJAOUI | Tomorrow Never Knows | Tue Dec 01 1987 15:52 | 8 |
| Aow, c'mon Franco. Who hasn't ever tried to do such a program when
starting on VMS ?!?!
Anyway Marc, take a look in the toolshed (METOO), before re-inventing
the wheel.
Nice try though ;-)
Pierre.
|
| 611.7 | | LEROUF::GENTILI | Frank Gentili ��� AEG Valbonne ��� | Wed Dec 02 1987 15:42 | 7 |
|
You're right Pierre I was just teasing Marc.
Hope the next reply will not be the version 3 :-) :-)
|
| 611.8 | YOU'RE RIGHT GUY | LEROUF::BLASSIN | | Thu Dec 03 1987 04:16 | 141 |
| HEY,
You 're right here 's the version 3 with help . If you don't know
where you can go .Type 'GO ?' and you'll see.
Bye.
PS: Perhaps one day the version 4 will exist but let me the time
to create it.
$!
$!GO .COM VERS 1.3 WITH HELP
$!
$! ********************************************************
$! * Created by Marc Blassin December , 3 1987 *
$! * DIGITAL VALBONNE *
$! * QA *
$! ********************************************************
$!
$! PUT THAT LINE IN YOUR LOGIN.COM :
$! -------> GO=="@[DIRECTORY_WHERE_IS_THIS_PROGRAM]GO"
$! THEN , TO RUN IT YOU ONLY HAVE TO PUT :
$! -------> GO DIRECTORY , WHERE DIRECTORY IS THE DIRECTORY YOU
$! WHANT TO GO
$! IF THERE IS MORE THAN ONE SUBDIRECTORY GO WILL AVISE YOU AND YOU
$! WILL HAVE THE CHOICE TO DECIDE IN WHITCH YOU WANT TO GO
$!
$! GO ^ IS EQUAL TO SET DEFAULT [-]
$! GO ? TELL YOU THE NAME OF YOUR DIRECTORIES
$!
$! ENJOY,
$! Marc..
$!
$ RS =="READ SYS$COMMAND"
$ WS =="WRITE SYS$OUTPUT"
$ DIRECTORY = 0
$ GO_OUT = "NO"
$ WS "[0;0H[2J"
$!
$!
$!
$ IF P1 .EQS. "" THEN -
READ SYS$COMMAND P1/PROMPT="DIRECTORY TO GO > "
$ WS "Working..."
$ IF P1 .EQS. "^" THEN GOTO UP
$ IF P1 .EQS. "?" THEN GOTO SEARCH_DIR
$ SET DEF SYS$LOGIN
$ DEFAULT_DIR=F$DIRECTORY()
$ LENGHT=F$LEN(DEFAULT_DIR)
$ DEFAULT_DIR=F$EXTRACT(1,LENGHT-2,DEFAULT_DIR)
$ REN_DIR = "''P1'"
$ IF P1 .EQS. "''DEFAULT_DIR'" THEN EXIT
$ RETRY:
$ LOOK_AFTER = F$SEARCH("[...''P1']*.*")
$!
$! TEST
$!
$ IF DIRECTORY .EQ. 0 .AND. LOOK_AFTER .EQS. "" THEN GOTO ERROR_1
$ IF DIRECTORY .GE. 1 THEN GOTO TEST
$ LITTLE_FAR:
$ IF LOOK_AFTER .EQS. "" THEN GOTO FINISH
$ DIRECTORY = DIRECTORY + 1
$ SUBDIR'DIRECTORY = LOOK_AFTER - F$ELEMENT(1,"]",LOOK_AFTER)
$ GOTO RETRY
$!
$!
$!
$ TEST:
$ SUBTEST = LOOK_AFTER - F$ELEMENT(1,"]",LOOK_AFTER)
$ IF SUBTEST .EQS. SUBDIR'DIRECTORY THEN GOTO RETRY
$ GOTO LITTLE_FAR
$!
$!
$!
$ FINISH:
$ IF DIRECTORY .EQ. 1 THEN GOTO END
$ COUNT = 0
$ WS " [1;7mTHERE IS MORE THAN ONE SUBDIRECTORY[0m"
$ LOOP_2:
$ COUNT = COUNT + 1
$ IF COUNT .GT. DIRECTORY THEN GOTO JUMPING
$ WS "''COUNT' . " + SUBDIR'COUNT
$ GOTO LOOP_2
$ JUMPING:
$ WS " [1;7mWHITCH SUBDIRECTORY[0m"
$ WS ""
$ RS WH_DIR/PROMPT =" > "
$ TO_GO = SUBDIR'WH_DIR
$ SET DEFAULT 'TO_GO'
$ EXIT
$!
$!
$!
$ UP:
$ SET DEF [-]
$ EXIT
$!
$!
$!
$ SEARCH_DIR:
$ WS "[0;0H[2J"
$ COUNT = -1
$ SET DEFAULT SYS$LOGIN
$ X=2
$ Y=1
$ RETURN:
$ Y=Y+1
$ DIR = F$SEARCH("[...]*.DIR")
$ DIR1 = F$ELEMENT(0,"]",DIR) + "]"
$ DIR = DIR - DIR1
$ DIR = F$ELEMENT(0,".",DIR)
$ IF DIR .EQS. "" THEN GOTO EXIT_1
$ IF Y .GE. 12 THEN GOSUB SCREEN
$ WS "[''Y';''X'H''DIR'"
$ GOTO RETURN
$ EXIT
$!
$!
$!
$ EXIT_1:
$ WS "[20;1H"
$ EXIT
$!
$!
$ SCREEN:
$ X=X+15
$ Y=2
$ RETURN
$ EXIT
$!
$!
$!
$ END:
$ SET DEF 'SUBDIR1'
$ EXIT
$!
$!ERRORS
$!
$ ERROR_1:
$ WS " [1;7mDIRECTORY NOT FOUND!!![0m"
$ EXIT
|