home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / applications / wp / ttx2_sasc.lha / Rexx / SetDfn.ttx < prev   
Encoding:
Text File  |  1994-10-25  |  2.6 KB  |  77 lines
  1.  
  2. /** $VER: SetDfn.ttx 2.1 (23.10.94)
  3.  **
  4.  ** This macro can be used to replace the Open menu command of TurboText.
  5.  ** It checks the extension of the filename, and loads the appropriate .dfn
  6.  ** file, if it recognizes the file type.
  7.  **
  8.  ** Current extensions:  c, h, cpp, cxx, ttx, rexx, def, mod, asm, s.
  9.  ** Add new ones at your leisure...
  10.  **
  11.  ** Written by Kenneth Yarnall.  This code may be freely distributed.
  12.  **/
  13.  
  14. Options RESULTS
  15.  
  16. GetFileInfo
  17. parse var RESULT . . '"'name'"'
  18.  
  19. if name ~= "" then do
  20.     dotpos = LastPos('.', name)
  21.     if dotpos = 0 then
  22.         new.ext = ""
  23.     else
  24.         new.ext = SubStr(name, dotpos+1)
  25. end
  26. else
  27.     exit 0
  28.  
  29. select
  30.     when new.ext = 'c' then do
  31.         SetClip('SetDfn_extension',new.ext)
  32.         OpenDefinitions "TURBOTEXT:Support/TTX_Startup.dfn"
  33.         OpenDefinitions "TURBOTEXT:Support/TTX_Interface_SASC.dfn"
  34.         OpenDefinitions "TURBOTEXT:Support/TTX_Lang_C.dfn"
  35.     end
  36.     when new.ext = 'h' then do
  37.         SetClip('SetDfn_extension',new.ext)
  38.         OpenDefinitions "TURBOTEXT:Support/TTX_Startup.dfn"
  39.         OpenDefinitions "TURBOTEXT:Support/TTX_Interface_SASC.dfn"
  40.         OpenDefinitions "TURBOTEXT:Support/TTX_Lang_C.dfn"
  41.     end
  42.     when new.ext = 'cpp' then do
  43.         SetClip('SetDfn_extension',new.ext)
  44.         OpenDefinitions "TURBOTEXT:Support/TTX_Startup.dfn"
  45.         OpenDefinitions "TURBOTEXT:Support/TTX_Interface_SASC.dfn"
  46.         OpenDefinitions "TURBOTEXT:Support/TTX_Lang_C.dfn"
  47.     end
  48.     when new.ext = 'cxx' then do
  49.         SetClip('SetDfn_extension',new.ext)
  50.         OpenDefinitions "TURBOTEXT:Support/TTX_Startup.dfn"
  51.         OpenDefinitions "TURBOTEXT:Support/TTX_Interface_SASC.dfn"
  52.         OpenDefinitions "TURBOTEXT:Support/TTX_Lang_C.dfn"
  53.     end
  54.     when new.ext = 'tex' then do
  55.         SetClip('extension',new.ext)
  56.         OpenDefinitions "TURBOTEXT:Support/TTX_Startup.dfn"
  57.         OpenDefinitions "TURBOTEXT:Support/TTX_TeX.dfn"
  58.     end
  59.     when (new.ext = 'def') | (new.ext = 'mod') then do
  60.         SetClip('SetDfn_extension',new.ext)
  61.         OpenDefinitions "TURBOTEXT:Support/TTX_Startup.dfn"
  62.         OpenDefinitions "TURBOTEXT:Support/TTX_Lang_M2.dfn"
  63.     end
  64.     when (new.ext = 'rexx') | (new.ext = 'ttx') then do
  65.         SetClip('SetDfn_extension',new.ext)
  66.         OpenDefinitions "TURBOTEXT:Support/TTX_Startup.dfn"
  67.         OpenDefinitions "TURBOTEXT:Support/TTX_Lang_ARexx.dfn"
  68.     end
  69.     when (new.ext = 'asm') | (new.ext = 's') then do
  70.         SetClip('SetDfn_extension',new.ext)
  71.         OpenDefinitions "TURBOTEXT:Support/TTX_Startup.dfn"
  72.         OpenDefinitions "TURBOTEXT:Support/TTX_Lang_ASM.dfn"
  73.     end
  74.     otherwise
  75.         SetClip('SetDfn_extension','')  /* Clear extension */
  76. end
  77.