home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Utilities / Disk / CMInstall / CLIMasterII / modules / routine.g < prev    next >
Encoding:
Gui4CLI script  |  1998-06-24  |  5.3 KB  |  229 lines
  1. G4C
  2.  
  3. winbig -1 -1 200 13 "WildCard Select"
  4. wintype 01010000
  5. varpath "climaster/*/functions.g"
  6.  
  7. xonopen
  8. update routine.g 1 ""
  9. setgad routine.g 1 on
  10.  
  11. xonrmb
  12. guiclose routine.g
  13.  
  14. xtextin 0 0 0 0 "" cm_sel "" 30
  15. gadid 1
  16. lvuse climaster $cm_srce
  17. lvdir none
  18. lvsearch $cm_sel ci first
  19. lvmove #$$lv.line
  20. while $$lv.line > ''
  21.     lvmulti on
  22.     lvsearch $cm_sel ci next
  23. endwhile
  24. guiclose routine.g
  25.  
  26. xroutine filetype
  27. extract cm_select file cm_temp
  28. extract cm_temp unquote cm_temp
  29. cutvar cm_temp copy char 4 cm_pfix
  30. extract cm_temp ext cm_sfix
  31. ifexists dir $cm_select
  32.     cm_icon = "cmst:icons/def_drawer.info"
  33.     return
  34. endif
  35. if $cm_sfix == ".info"
  36.     cm_temp = "icon"
  37.     cm_icon = ""
  38. elseif $cm_select H= "FORM????MODLVER"
  39. or $cm_select H= "MMD?"
  40. or $cm_pfix == "mod."
  41. or $cm_sfix == ".smon"
  42.     cm_temp = "modplay"
  43.     cm_icon = "cmst:icons/def_mod.info"
  44.     parsevar MODPLAYER
  45. elseif $cm_select H= "@"
  46. or $cm_sfix == ".guide"
  47.     cm_temp = "guideprg"
  48.     cm_icon = "cmst:icons/def_guide.info"
  49.     parsevar GUIDEPROG
  50. elseif $cm_select H= "PP"
  51.     cm_temp = "ppdat"
  52.     cm_icon = "cmst:icons/def_project.info"
  53.     parsevar PPTXTPROG
  54. elseif $cm_sfix == ".txt"
  55. or $cm_sfix == ".doc"
  56. or $cm_sfix == ".readme"
  57. or $cm_sfix == ".bat"
  58. or $cm_sfix == ".asc"
  59. or $cm_sfix == ".ascii"
  60. or $cm_sfix == ".html"
  61. or $cm_sfix == ".htm"
  62.     cm_temp = "read"
  63.     cm_icon = "cmst:icons/def_readme.info"
  64. elseif $cm_sfix == ".lha"
  65. or $cm_sfix == ".lzx"
  66.     cm_temp = "archive"
  67.     cm_icon = ""
  68. elseif $cm_sfix == ".dms"
  69.     cm_temp = "dms"
  70.     cm_icon = ""
  71. elseif $cm_select H= "/*"
  72. or $cm_sfix == ".rexx"
  73. or $cm_sfix == ".arexx"
  74.     cm_temp = "arexx"
  75.     cm_icon = "cmst:icons/def_rexx.info"
  76. elseif $cm_select H= "G4C"
  77. or $cm_sfix == ".gc"
  78. or $cm_sfix == ".g"
  79.     cm_temp = "g4c"
  80.     cm_icon = "cmst:icons/def_gui.info"
  81. elseif $cm_select H= "FORM????ILBM"
  82. or $cm_select H= "GIF"
  83. or $cm_select H= "?PNG?"
  84.     cm_temp = "picviewr"
  85.     cm_icon = "cmst:icons/def_ilbm.info"
  86.     parsevar PICVIEWER
  87. elseif $cm_select H= "FORM????ANIM"
  88.     cm_temp = "picviewr"
  89.     cm_icon = "cmst:icons/def_anim.info"
  90.     parsevar PICVIEWER
  91. elseif $cm_select H= "??????JFIF"
  92.     cm_temp = "jpgviewr"
  93.     cm_icon = "cmst:icons/def_ilbm.info"
  94.     parsevar JPGVIEWER
  95. elseif $cm_select H= "FORM????8SVX"
  96. or $cm_select H= "RIFF????WAVEfmt"
  97.     cm_temp = "sampl"
  98.     cm_icon = "cmst:icons/def_sample.info"
  99.     parsevar SVXPLAYER
  100. elseif $cm_select H= "%%%รณ%"
  101.     cm_temp = "runit"
  102.     cm_icn = "cmst:icons/def_tool.info"
  103. ;elseif $cm_sfix = ""
  104. elseif $cm_select H= "####"
  105.     cm_temp = "read"
  106.     cm_icon = "cmst:icons/def_project.info"
  107. endif
  108. if $cm_mode == "addicon"
  109.     return
  110. else
  111.     gosub routine.g dblclk
  112. endif
  113.  
  114. xroutine dblclk
  115. if $cm_temp = "modplay"
  116. andifexists file $$parse.0
  117.     ifexists window sfxinfo
  118.         cli '$STOPMUSIC'
  119.     endif
  120.     run '$MODPLAYER $cm_select'
  121.     extract cm_select file cm_soundfile
  122.     guiopen sfxinfo
  123.     update sfxinfo 1 $cm_soundfile
  124.     return
  125. elseif $cm_temp = icon
  126.     copy $cm_select t:cmicon.info
  127.     guiload cmst:modules/info.g
  128.     return
  129. elseif $cm_temp = "guideprg"
  130. andifexists file $$parse.0
  131.     run '$GUIDEPROG $cm_select'
  132.     return
  133. elseif $cm_temp = "ppdat"
  134. andifexists file $$parse.0
  135.     run '$PPTXTPROG $cm_select'
  136.     return
  137. elseif $cm_temp = "read"
  138.     guiload cmst:modules/reader.g
  139.     return
  140. elseif $cm_temp = "archive"
  141.     cutvar cm_sfix copy char -3 cm_arc
  142.     cli 'c:$cm_arc v $cm_select >env:tempfile'
  143.     guiload cmst:modules/reader.g
  144.     delete env:tempfile
  145.     return
  146. elseif $cm_temp = "dms"
  147.     cm_mode = "DMS-VIEW"
  148.     gosub dms.g vandt
  149.     return
  150. elseif $cm_temp = "arexx"
  151.     gosub routine.g ramcheck
  152.     cd $cm_srcedir
  153.     extract cm_select file cm_rexxfile
  154.     run 'sys:rexxc/rx $cm_rexxfile'
  155.     return
  156. elseif $cm_temp = "g4c"
  157.     guiload $cm_select
  158.     return
  159. elseif $cm_temp = "picviewr"
  160. andifexists file $$parse.0
  161.     run '$PICVIEWER $cm_select'
  162.     return
  163. elseif $cm_temp = "jpgviewr"
  164. andifexists file $$parse.0
  165.     run '$JPGVIEWER $cm_select'
  166.     return
  167. elseif $cm_temp = "runit"
  168.     gosub routine.g runfile
  169.     return
  170. elseif $cm_temp = "sampl"
  171. andifexists file $$parse.0
  172.     run '$SVXPLAYER $cm_select'
  173.     return
  174. else
  175.     update climaster 8 "Unknown Filetype."
  176.     return
  177. endif
  178.  
  179. xroutine drives
  180. num = 0
  181. while $num < 4
  182.     drv = DF
  183.     appvar drv $num
  184.     ifexists dos $drv
  185.         appvar drv :
  186.         lvadd $drv
  187.     endif
  188.     counter num inc 1
  189. endwhile
  190.  
  191. xroutine ramcheck
  192. extract cm_select unquote cm_select
  193. cutvar cm_select copy char 5 cm_gpvar
  194. if $cm_gpvar == "Ram D"
  195.     cm_gpvar = "RAM"
  196.     cutvar cm_select cut char 8 ""
  197.     appvar cm_gpvar $cm_select
  198.     cm_select = $cm_gpvar
  199.     delvar cm_gpvar
  200. endif
  201.  
  202. xroutine runfile
  203. if $cm_mode == "run"
  204.     run '$cm_select'
  205.     cm_mode = ""
  206.     update climaster 8 "Running File..."
  207. else
  208.     guiopen runreq.g
  209. endif
  210.  
  211. xroutine funclist
  212. ..flist = "READ\nNEWCLI\nRUN\nEXECUTE\nCOPY\nRENAME\nMOVE\nCOMMENT\nDELETE"
  213. append env:flist '\nMAKEDIR\nCOPY-AS\nCLONE\nADDICON\nSHOW\nMOVE-AS\nEDIT'
  214. append env:flist '\nJOIN\nASSIGN\nPROTECT\nHUNT\nGETSIZE'
  215. ifexists file c:lha
  216.     append env:flist '\nLHA-ADD\nLHA-EXT\nLHA-TEST'
  217. endif
  218. ifexists file c:lzx
  219.     append env:flist '\nLZX-ADD\nLZX-EXT\nLZX-TEST'
  220. endif
  221. ifexists file c:dms
  222.     append env:flist '\nDMS-READ\nDMS-WRITE\nDMS-TEST'
  223. endif
  224. ifexists file libs:unpack.library
  225. andifexists file c:unpunpack
  226. andifexists file c:unplist
  227.     append env:flist '\nUNPACK\nUNPACK-LIST'
  228. endif
  229.