| T.R | Title | User | Personal
Name | Date | Lines |
|---|
| 459.1 | Just loop endlessly... | KALLON::EIRIKUR | | Fri May 01 1987 19:26 | 41 |
| I thought about this a while back when I was thinking of customizing
my command environment.
I suggest that you read the input line yourself, validate your "xyz"
prefix, (giving the error if needbe) and then pass the string to DCL
with your prefix stripped off. You should probably point the user mode
logical for sys$input to sys$command, ($ DEF/USER sys$input
sys$command) because programs with otherwise assume that the command
file is going to provide the input. In practice this doesn't seem
necessary.
You should be able to do everything in a loop, with $ SET NOCONTROL=Y
in effect so that the DCL loop won't abort if the user aborts a
program.
$ set nocontrol=y
$ loop:
$ inquire/nopunctuation my_cmd_line "$ "
$ ! do your parsing here, and report error
$ ! goto loop if error
$ 'parsed_cmd_line'
$ goto loop
Here's a tiny working example:
$ set nocontrol=y
$ loop:
$ inquire/nopun a "> "
$ if a .eqs. "EXIT" then goto the_exit
$ def/user sys$input sys$command
$ 'a'
$ goto loop
$ the_exit:
$ set control=y
$ exit
What are you really trying to do with this prefix validation?
Eirikur
|
| 459.2 | DCL != secure environment | ANGORA::ZARLENGA | Watch for 'Beverly Hills Buntz'! | Fri May 01 1987 20:34 | 6 |
| I hope this isn't supposed to be secure!!
If so, you'd better look through notes from about 6 - 12
months ago. Especially look for the string f$pid("goto").
-mike
|
| 459.3 | this just answers .0's need | SARAH::EIRIKUR | | Fri May 01 1987 21:27 | 8 |
| Yes, this solution is not at all secure. It only provides a means
of accomplishing exactly what was asked for in the base note, which
was requiring the use of a prefix on DCL commands. It could be
made more secure by plugging all the loopholes pointed to by .2
Eirikur
|
| 459.4 | forget security... | CHFV03::DITTMERG | | Sun May 03 1987 00:27 | 10 |
| the reason that i asked will probably seem funny, but security
doesn't have anything to do with it. i am teaching a young
nephew to do things with the system, and i want him to type
please before each line. example: " please show users " i want
to work fine, and " show users " not to work...
thanks
grant...
|
| 459.5 | | 2B::ZAHAREE | Michael W. Zaharee | Mon Jun 01 1987 03:01 | 3 |
| Why?
- M
|