home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Utilities / Programming / EnterAct 3.5 / Drag_on Modules / hAWK example progs / $Unscramble < prev    next >
Encoding:
Text File  |  1994-01-26  |  158 b   |  10 lines  |  [TEXT/KEEN]
  1. # Unscramble
  2. #    name[] = "string"
  3. #into
  4. #    name["string"] = 1
  5.  
  6.     {
  7.     if (match($1, /(\w|_)+/))
  8.         print substr($1, RSTART, RSTART+RLENGTH) "[" $3 "]", "=", "1"
  9.     }
  10.