tcl 1004 B

1234567891011121314151617181920212223242526272829
  1. #------------------------------------------------------------------------------
  2. # file: file(1) magic for Tcl scripting language
  3. # URL: http://www.tcl.tk/
  4. # From: gustaf neumann
  5. # Tcl scripts
  6. 0 search/1/w #!\ /usr/bin/tcl Tcl script text executable
  7. !:mime text/x-tcl
  8. 0 search/1/w #!\ /usr/local/bin/tcl Tcl script text executable
  9. !:mime text/x-tcl
  10. 0 search/1 #!/usr/bin/env\ tcl Tcl script text executable
  11. !:mime text/x-tcl
  12. 0 search/1 #!\ /usr/bin/env\ tcl Tcl script text executable
  13. !:mime text/x-tcl
  14. 0 search/1/w #!\ /usr/bin/wish Tcl/Tk script text executable
  15. !:mime text/x-tcl
  16. 0 search/1/w #!\ /usr/local/bin/wish Tcl/Tk script text executable
  17. !:mime text/x-tcl
  18. 0 search/1 #!/usr/bin/env\ wish Tcl/Tk script text executable
  19. !:mime text/x-tcl
  20. 0 search/1 #!\ /usr/bin/env\ wish Tcl/Tk script text executable
  21. !:mime text/x-tcl
  22. # check the first line
  23. 0 search/1 package\ req
  24. >0 regex \^package[\ \t]+req Tcl script
  25. # not 'p', check other lines
  26. 0 search/1 !p
  27. >0 regex \^package[\ \t]+req Tcl script