[Search for users] [Overall Top Noters] [List of all Conferences] [Download this site]

Conference noted::hackers_v1

Title:-={ H A C K E R S }=-
Notice:Write locked - see NOTED::HACKERS
Moderator:DIEHRD::MORRIS
Created:Thu Feb 20 1986
Last Modified:Mon Aug 03 1992
Last Successful Update:Fri Jun 06 1997
Number of topics:680
Total number of notes:5456

480.0. "Setting up your own LEXICAL!!" by PLDVAX::GUNDAVARAM (Timothy Dalton is James Bond....) Fri May 22 1987 16:10

	Hello HACKERS!


		Is there a way to set up your own LEXICAL function in DCL?
		
		Something like this:

			$ Message = F$COOKIE()
			$ Write Sys$Output Message

		I know that there are implementing a F$COOKIE() function
		in VAX/VMS V4.601 (According to the DEC Professional (APRIL)
		But, I want to make my own before that is implemented.

			F$COOKIE should run a file.

		The file it runs will produce messages and equate them
		to a symbol that the user chooses, in this case MESSAGE.
		But if, you don't want to store it in a symbol, but 
		write it to a screen, use WRITE SYS$OUTPUT. 

		JUST GIVE ME IDEAS ON HOW TO DO IT.
	
		I tried doing this, but no luck.
		
		$ Assign DISK$01:[MALCOLM] F$COOKIE()
		$ Hello = F$COOKIE()


		I also tried it without the () parenthesis.

		Didn't work.

		I tried this ALSO:

		$ F$COOKIE() :== $DISK$01:[MALCOLM]
		$ Hello = 'F$COOKIE()'
		
		I also tried this without the () parenthesis.


		NO LUCK!!!!!!! NO LUCK!!!!!!!!!!!



		Any help is appreciated!!


						Thanks,


						-- The Mad Scientist --
T.RTitleUserPersonal
Name		DateLines
480.1given a source kit and several weeks...YALI::LASTOVICAStuck in a Lather-Rinse-Repeat loopFri May 22 1987 21:4116
    have cookie.exe call lib$create_symbol (or whatever it is called)
    and create a symbol of your choice.  If you want to be real spiffy,
    pass the symbol name to the program:

	$ cookie = "$DISK:[DIR]COOKIE"
    	$ cookie "mysymbolname"
    	$ write sys$output mysymbolname

    	Short of this, you'll have to modify, recompile and relink DCL, 
    not something that you'll want to do!

>    		I know that there are implementing a F$COOKIE() function
>		in VAX/VMS V4.601 (According to the DEC Professional (APRIL)
>		But, I want to make my own before that is implemented.

    	Isn't in my copy of the release notes (nor on my system) ;-)
480.2The APRIL (fools) issue?WKRP::LENNIGDave, SWS, @CYO CincinnatiSun May 24 1987 10:195
>    		I know that there are implementing a F$COOKIE() function
>		in VAX/VMS V4.601 (According to the DEC Professional (APRIL)
>		But, I want to make my own before that is implemented.

    Dave
480.3'Deep Cache'PLDVAX::GUNDAVARAMTimothy Dalton is James Bond....Sun May 24 1987 19:2011
	Dave:


	Read the DCL Dialogue, "DEEP CACHE TELLS ALL".... April 1987.

	Page 132...

						
						Regards,

						-- T.M.S --
480.4write sys$output f$logical ("sys$cookie")VIDEO::OSMANtype video::user$7:[osman]eric.sixTue May 26 1987 14:5418
Another possibility would be for you to say this:

	$ write sys$output f$logical ("sys$cookie")

This could cleverly give you a cookie, if you convince your system
manager to modify the SYSTARTUP.COM file to fire up a batch job
running something like this:

	$ start_over:
	$ close/nolog a
	$ open a sys$games:cookie.txt
	$ lup:
	$ read/end=start_over a cookie
	$ define/nolog/system sys$cookie "''cookie'"
	$ wait 0:0:10
	$ goto lup

/Eric