home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Utilities / Disk / CMInstall / CLIMasterII / modules / functions.g < prev    next >
Encoding:
Gui4CLI script  |  1998-06-24  |  7.1 KB  |  328 lines
  1. G4C
  2.  
  3. winbig -1 -1 250 25 ""
  4. varpath "climaster/*/routine.g"
  5.  
  6. xonopen
  7. lvmulti first
  8. gosub functions.g getfile
  9. if $cm_mode == "lha-add"
  10. or $cm_mode == "lzx-add"
  11.     update functions.g 1 ""
  12. else
  13.     update functions.g 1 $cm_fname
  14. endif
  15. setgad functions.g 1 on
  16. setwintitle functions.g '$cm_mode                 '
  17.  
  18. xonclose
  19. ifexists file ram:$cm_arc
  20.     delete ram:$cm_arc
  21. endif
  22. cm_fname = ""
  23. delvar oldfile
  24. delvar newfile
  25. lvdir none
  26.  
  27. xonfail
  28. ezreq "Error During Processing." Okay ""
  29. lvdir none
  30. guiclose functions.g
  31.  
  32. box 0 0 0 0 out button
  33.  
  34. xtextin 10 6 230 13 "" cm_nwname "" 30
  35. gadid 1
  36. if $cm_nwname = ""
  37.     ezreq "You MUST supply a name." "Sorry" ""
  38.     stop
  39. endif
  40. if $cm_mode == "assign"
  41.     gosub functions.g assign
  42. elseif $cm_mode == "lha-add"
  43. or $cm_mode == "lzx-add"
  44.     cutvar cm_mode copy char 3 cm_arc
  45.     copy c:$cm_arc ram:
  46.     gosub functions.g arc_a
  47. else
  48.     joinfile $cm_pname $cm_nwname newfile
  49.     gosub functions.g $cm_mode
  50. endif
  51.  
  52. xroutine show
  53. if $cm_select H= "FORM????ILBM"
  54. or $cm_select H= "FORM????ANIM"
  55. or $cm_select H= "GIF"
  56. or $cm_select H= "?PNG?"
  57.     parsevar PICVIEWER
  58.     ifexists file $$parse.0
  59.         launch 2 '$PICVIEWER >nil: $cm_select'
  60.     endif
  61. elseif $cm_select H= "??????JFIF"
  62.     parsevar JPGVIEWER
  63.     ifexists file $$parse.0
  64.         launch 2 '$JPGVIEWER >nil: $cm_select'
  65.     endif
  66. else
  67.     update climaster 8 "Unknown Filetype - No Viewer Configured."
  68.     lvdir none
  69. endif
  70.  
  71. xonreturn 2
  72. lvmulti off
  73. lvmulti next
  74. if $cm_select > ""
  75.     gosub functions.g show
  76. endif
  77.  
  78. xroutine edit
  79. parsevar TXTEDITOR
  80. ifexists file $$parse.0
  81.     ; Nop
  82. else
  83.     TXTEDITOR = "c:Ed"
  84. endif
  85. lvmulti first
  86. if $cm_select = ""
  87.     cm_mode = "EDIT-NEW"
  88.     guiopen functions.g
  89. else
  90.     launch 1 '$TXTEDITOR $cm_select'
  91. endif
  92.  
  93. xroutine edit-new
  94. joinfile $cm_srcedir $cm_nwname newfile
  95. launch 1 '$TXTEDITOR $newfile'
  96. guiclose functions.g
  97.  
  98. xonreturn 1
  99. lvdir refresh
  100.  
  101. xroutine rename
  102. rename $cm_select $newfile
  103. lvmulti off
  104. extract newfile file cm_temp
  105. extract cm_temp clean cm_temp
  106. lvput $cm_temp
  107. lvmulti next
  108. if $cm_select = ""
  109.     guiclose functions.g
  110. endif
  111. gosub functions.g getfile
  112. update functions.g 1 $cm_fname
  113. setgad functions.g 1 on
  114.  
  115. xroutine move-as
  116. joinfile $cm_destdir $cm_nwname newfile
  117. cli 'copy $oldfile $newfile quiet'
  118. action delete $oldfile noreq
  119. lvdel -1
  120. lvmulti next
  121. if $cm_select = ""
  122.     lvuse climaster $cm_dest
  123.     lvdir refresh
  124.     lvuse climaster $cm_srce
  125.     guiclose functions.g
  126. endif
  127. gosub functions.g getfile
  128. update functions.g 1 $cm_fname
  129. setgad functions.g 1 on
  130.  
  131. xroutine copy-as
  132. joinfile $cm_destdir $cm_nwname newfile
  133. cli 'copy $oldfile $newfile quiet'
  134. lvmulti off
  135. lvmulti next
  136. if $cm_select = ""
  137.     lvuse climaster $cm_dest
  138.     lvdir refresh
  139.     lvuse climaster $cm_srce
  140.     guiclose functions.g
  141. endif
  142. gosub functions.g getfile
  143. update functions.g 1 $cm_fname
  144. setgad functions.g 1 on
  145.  
  146. xroutine clone
  147. cli 'copy $oldfile $newfile quiet'
  148. lvmulti off
  149. extract newfile file cm_temp
  150. extract cm_temp clean cm_temp
  151. lvmulti next
  152. if $cm_select = ""
  153.     lvdir refresh
  154.     guiclose functions.g
  155. endif
  156. gosub functions.g getfile
  157. update functions.g 1 $cm_fname
  158. setgad functions.g 1 on
  159.  
  160. xroutine makedir
  161. joinfile $cm_srcedir $cm_nwname newfile
  162. makedir $newfile
  163. lvdir refresh
  164. guiclose functions.g
  165.  
  166. xroutine assign
  167. cutvar cm_nwname copy char -1 end
  168. if $end != ":"
  169.     appvar cm_nwname ':'
  170. endif
  171. delvar end
  172. assign $cm_nwname $cm_srcedir
  173. guiclose functions.g
  174.  
  175. xroutine arc_a
  176. cd $cm_srcedir
  177. joinfile $cm_destdir $cm_nwname cm_arcfile
  178. while $cm_select > ""
  179.     gosub functions.g getfile
  180.     cli 'ram:$cm_arc -r -e -x a $cm_arcfile $cm_fname'
  181.     lvmulti off
  182.     lvmulti next
  183. endwhile
  184. guiclose functions.g
  185. lvuse climaster $cm_dest
  186. lvdir refresh
  187. lvuse climaster $cm_srce
  188.  
  189. xroutine arc_x
  190. extract cm_destdir unquote cm_arcdir
  191. cutvar cm_arcdir copy char -1 end
  192. if $end != ":"
  193.     appvar cm_arcdir '/'
  194. endif
  195. cli 'c:$cm_arc -x x $cm_select "$cm_arcdir"'
  196. lvuse climaster $cm_dest
  197. lvdir refresh
  198. lvuse climaster $cm_srce
  199. lvdir none
  200.  
  201. xroutine unpacker
  202. gosub functions.g getfile
  203. cd $cm_srcedir
  204. if $cm_mode = "UNPACK"
  205.     while $cm_select != ""
  206.         cli 'c:unpunpack $cm_fname path = $cm_destdir'
  207.         lvmulti off
  208.         lvmulti next
  209.         gosub functions.g getfile
  210.     endwhile        
  211.     lvuse climaster $cm_dest
  212.     lvdir refresh
  213. elseif $cm_mode = "UNPACK-LIST"
  214.     ..tempfile = ""
  215.     while $cm_select != ""
  216.         cli 'c:unplist $cm_fname >>env:tempfile'
  217.         lvmulti off
  218.         lvmulti next
  219.         gosub functions.g getfile
  220.     endwhile        
  221.     guiload cmst:modules/reader.g
  222. endif
  223.  
  224. xroutine functs
  225. if $cm_mode == "addicon"
  226.     gosub climaster nofile
  227.     cm_icon = ""
  228.     while $cm_select > ""
  229.         gosub routine.g filetype
  230.         if $cm_icon > ""
  231.             extract cm_select unquote cm_select
  232.             appvar cm_select ".info"
  233.             copy $cm_icon "$cm_select"
  234.         endif
  235.         lvmulti off
  236.         lvmulti next
  237.     endwhile
  238.     cm_mode = ""
  239.     lvuse climaster $cm_srce
  240.     lvdir refresh
  241. elseif $cm_mode == "assign"
  242. or $cm_mode == "makedir"
  243.     guiopen functions.g
  244. elseif $cm_mode == "comment"
  245.     gosub climaster nofile
  246.     guiload cmst:modules/comment.g
  247. elseif $cm_mode == "rename"
  248. or $cm_mode == "clone"
  249.     gosub climaster nofile
  250.     guiopen functions.g
  251. elseif $cm_mode == "move-as"
  252. or $cm_mode == "copy-as"
  253. or $cm_mode == "lha-add"
  254. or $cm_mode == "lzx-add"
  255.     gosub climaster nodest
  256.     gosub climaster nofile
  257.     guiopen functions.g
  258. elseif $cm_mode == "edit"
  259.     gosub functions.g edit
  260. elseif $cm_mode == "move"
  261. or $cm_mode == "copy"
  262.     gosub climaster nodest
  263.     gosub climaster nofile
  264.     if $cm_mode == "move"
  265.         lvaction move $cm_destdir
  266.     else
  267.         lvaction copy $cm_destdir
  268.     endif
  269.     lvuse climaster $cm_dest
  270.     lvdir refresh
  271.     lvuse climaster $cm_srce
  272. elseif $cm_mode == "join"
  273.     gosub climaster nodest
  274.     gosub climaster nofile
  275.     guiload cmst:modules/join.g
  276. elseif $cm_mode == "delete"
  277.     gosub climaster nofile
  278.     lvaction delete req
  279. elseif $cm_mode == "lha-ext"
  280. or $cm_mode == "lzx-ext"
  281.     gosub climaster nodest
  282.     gosub climaster nofile
  283.     cutvar cm_mode copy char 3 cm_arc
  284.     gosub functions.g arc_x
  285. elseif $cm_mode == "lha-test"
  286. or $cm_mode == "lzx-test"
  287.     gosub climaster nofile
  288.     cutvar cm_mode copy char 3 cm_arc
  289.     cli '$cm_arc t $cm_select'
  290.     lvdir none
  291. elseif $cm_mode == "dms-read"
  292.     guiopen dms.g
  293. elseif $cm_mode == "dms-write"
  294.     gosub climaster nofile
  295.     guiopen dms.g
  296. elseif $cm_mode == "dms-view"
  297. or $cm_mode == "dms-test"
  298.     gosub climaster nofile
  299.     gosub dms.g vandt
  300. elseif $cm_mode == "read"
  301.     gosub climaster nofile
  302.     guiload cmst:modules/reader.g
  303. elseif $cm_mode == "hunt"
  304.     guiload cmst:modules/hunt.g
  305. elseif $cm_mode == "protect"
  306.     gosub climaster nofile
  307.     guiload cmst:modules/protect.g
  308. elseif $cm_mode == "show"
  309.     gosub climaster nofile
  310.     gosub functions.g show
  311. elseif $cm_mode == "unpack"
  312.     gosub climaster nodest
  313.     gosub climaster nofile
  314.     gosub functions.g unpacker
  315. elseif $cm_mode == "unpack-list"
  316.     gosub climaster nofile
  317.     gosub functions.g unpacker
  318. endif
  319.  
  320. xroutine getfile
  321. extract cm_select path cm_pname
  322. extract cm_pname unquote cm_pname
  323. extract cm_select file cm_fname
  324. extract cm_fname unquote cm_fname
  325. joinfile $cm_pname $cm_fname oldfile
  326.  
  327. ;--------------------------------------------
  328.