home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #3 / NN_1993_3.iso / spool / comp / os / vms / 22047 < prev    next >
Encoding:
Internet Message Format  |  1993-01-27  |  3.1 KB
  1. Path: sparky!uunet!ukma!darwin.sura.net!sgiblab!troi!steve
  2. From: steve@dbaccess.com (Steve Suttles)
  3. Newsgroups: comp.os.vms
  4. Subject: Re: DCL quirk (fwd)
  5. Message-ID: <162@mccoy.dbaccess.com>
  6. Date: 28 Jan 93 01:16:43 GMT
  7. References: <1k6h39INNq3f@lynx.unm.edu>
  8. Organization: Cross Access Corp., Santa Clara, CA
  9. Lines: 101
  10. X-Newsreader: Tin 1.1 PL4
  11.  
  12. dgalb@carina.unm.edu (David Galbraith CIRT) writes:
  13. : 
  14. : I got this from a friend... Can somebody give a good explanation as to
  15. : why it doesn't give an error? 
  16. : 
  17. : Thanks,
  18. : David Galbraith
  19. : dgalb@unm.edu
  20. : 
  21. : -------------------------------------------------------------------------------
  22. : From:   JCSTASKO@bootes.unm.edu "JOHN STASKO"
  23. : To:     dgalb@uranus.unm.edu
  24. : Subj:   DCL quirk
  25. : 
  26. : 
  27. : Dear Dave:
  28. : 
  29. : Why does the following command not give an error?
  30. : 
  31. : $ '''''''''''''''
  32. : 
  33. : (any number of apostrophes will work.)
  34. : 
  35. : =John
  36. : -------------------------------------------------------------------------------
  37.  
  38. Because an apostrophe says "Any name that follows me should be looked
  39. up as a DCL symbol; if one is found, that value goes in that place.
  40. Otherwise, a null value goes there".  An apostrophe can be used to
  41. terminate the name and get tossed (so 'foo'bar might look like FOObar)
  42. or any non-naming character terminates the name (like a space).  For
  43. that reason, there is no requirement for a terminating apostrophe, and
  44. therefore an even or odd number of apostrophes will have the same
  45. effect.
  46.  
  47. That effect is to look up the null name (which cannot have a value) and
  48. discover that it has no value, and throw away matching apostrophes as
  49. having been satisfied until there are no more pairs.  If there is an
  50. odd number, the last one will be thrown away singly.  Eventually, DCL
  51. will glue all those nothings together, only to discover that your
  52. freind typed...nothing.  And to DCL, a blank line is not an error.
  53.  
  54. If you treat DCL like a black box, there are all KINDS of wierd things
  55. you can get it to do.  It's kinda fun to figure out what they do
  56. beforehand; it's rewarding to try it and be right.  It's surprising
  57. when it's figured wrong.  IF YOU CHOOSE TO PLAY THIS GAME, BE CERTAIN
  58. YOU CAN'T HARM ANYTHING (i.e., log in as a peon and assume you'll lose
  59. files).
  60.  
  61. Neat things off the top of my head:
  62.  
  63. HELP ME
  64.  
  65. MAKE LOVE  (results depend on whether TECO is installed)
  66.  
  67. LOGORYTHM
  68.  
  69. DEFINE MAIL UPS
  70.  
  71. HELP YOU
  72.  
  73. DIR :== DELETE
  74.  
  75. EDIT == "WRITE SYS$OUTPUT ""neener neener neener""!"
  76.  
  77. SET MESSAGE /NOF/NOI/NOS/NOT
  78.  
  79. ASSIGN _NL: SYS$SYSTEM
  80.  
  81. SET TERMINAL/SPEED=0
  82.  
  83. ASSIGN SYS$PRINT SYS$BATCH
  84.  
  85. ASSIGN :== DEFINE
  86.  
  87. DEFINE := ASSIGN
  88.  
  89. DEFINE :== DEFINE
  90.  
  91. SET NOCONTROL=(Y,T)
  92. WAIT 1:0:0
  93.  
  94. FORMAT SYS$SYSDEVICE    * I WARNED YOU!! *
  95.  
  96. UNFORMAT SYS$SYSDEVICE
  97.  
  98. RENAME SYS$SYSDEVICE:[000000]000000.dir; 111111
  99.  
  100. RENAME SYS$SYSTEM:*.exe *.com
  101.  
  102. PRINT NASTY.TXT /NONO
  103.  
  104. SUB MERGE /NONO
  105.  
  106. ... and others...
  107.  
  108. -- 
  109. Steve Suttles                Internet:  steve@dbaccess.com      Dr. DCL is IN!
  110. CROSS ACCESS Corporation     UUCP: {uunet,sgiblab}!troi!steve  Yo speako TECO!
  111. 2900 Gordon Ave, Suite 100   fax: (408) 735-0328              Talk data to me!
  112. Santa Clara, CA 95051-0718   vox: (408) 735-7545   HA! It's under 4 lines NOW!
  113.