home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / WordProcessors / PAGESTREAM3,0-1.DMS / in.adf / Macros.LHA / TechReport.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1994-09-02  |  8.6 KB  |  304 lines
  1. /* TechReport.rexx */
  2. /* Copyright 1994 Soft-Logik Publishing Corporation */
  3. /* May not be distributed without Soft-Logik Publishing Corporation's express written permission */
  4. /* $VER: 1.0 */
  5.  
  6. /* SAME OLD STUFF */
  7. OPTIONS RESULTS
  8. TRACE OFF
  9. ADDRESS COMMAND
  10. /* Make sure rexx support is opened */
  11. IF ~SHOW('L','rexxsupport.library') THEN
  12.    CALL ADDLIB('rexxsupport.library',0,-30)
  13.  
  14. /* DEFINITIONS AND REPORT SETUP */
  15. ofilename='ram:Report.TEXT'
  16. tfilename='t:Report.TEMP'
  17.  
  18. if ~open(.ofile, ofilename, 'W') then return 9
  19. call writeln(.ofile, 'PAGESTREAM 3.0 TECHNICAL SUPPORT REPORT')
  20. call writeln(.ofile, '---------------------------------------')
  21.  
  22.  
  23. /* MAIN LOOP */
  24. call REGINFO()
  25. call SYSTEMINFO()
  26. call HELPSYSTEM()
  27. call ASSIGNS()
  28. call PROGRAMS()
  29. call LIBS()
  30. call FILTERS()
  31. call EFFECTS()
  32. call ENGINES()
  33. call COLORS()
  34. call CLEANUP()
  35.  
  36.  
  37. REGINFO:
  38. call writeln(.ofile, '')
  39. call writeln(.ofile, 'USER INFORMATION:')
  40. if ~open(.tfile, 'PageStream3:PageStream3.prefs', 'R') then rcode=9
  41.     else rcode=0
  42. user.name='Unknown'
  43. user.comp='Unknown'
  44. user.regn='Unknown'
  45. if rcode=0 then do
  46.     do until eof(.tfile)
  47.         temp=(readln(.tfile))
  48.         if left(temp,8)='USERNAME' then user.name=left(right(temp,length(temp)-10),length(temp)-11)
  49.         if left(temp,8)='USERCOMP' then user.comp=left(right(temp,length(temp)-13),length(temp)-14)
  50.         if left(temp,8)='USERREGN' then parse var temp dum user.regn .
  51.     end
  52.     call close(.tfile)
  53. end
  54. call writeln(.ofile, '  User Name................. '||user.name)
  55. call writeln(.ofile, '  Company................... '||user.comp)
  56. call writeln(.ofile, '  Registration Number....... '||user.regn)
  57. return rcode
  58.  
  59. SYSTEMINFO:
  60. call writeln(.ofile, '')
  61. call writeln(.ofile, 'SYSTEM INFORMATION:')
  62. 'version >'||tfilename
  63. temp=GETTEMP()
  64. call writeln(.ofile, '  '||temp)
  65. 'cpu >'||tfilename
  66. temp=GETTEMP()
  67. call writeln(.ofile, '  '||temp)
  68. call writeln(.ofile, '')
  69. 'avail >'||tfilename
  70. if ~open(.tfile, tfilename, 'R') then return 9
  71. do 4
  72.     temp=readln(.tfile)
  73.     call writeln(.ofile, '  '||temp)
  74. end
  75. call close(.tfile)
  76. return
  77.  
  78. HELPSYSTEM:
  79. call writeln(.ofile, '')
  80. call writeln(.ofile, 'HELP SYSTEM:')
  81. if exists('libs:amigaguide.library') then do
  82.     'version libs:amigaguide.library >'||tfilename
  83.     temp=GETTEMP()
  84.     parse var temp dum ver .
  85.     call writeln(.ofile, '  AmigaGuide.library........ v'||ver)
  86. end
  87. else call writeln(.ofile, '  AmigaGuide.library........ MISSING!')
  88. if exists('system:Utilities/AmigaGuide') then do
  89.     'version system:utilities/amigaguide >'||tfilename
  90.     temp=GETTEMP()
  91.     parse var temp dum ver .
  92.     call writeln(.ofile, '  AmigaGuide program........ v'||ver)
  93.     agflag=1
  94. end
  95. else agflag=0
  96. if exists('system:Utilities/Multiview') then do
  97.     'version system:utilities/multiview >'||tfilename
  98.     temp=GETTEMP()
  99.     parse var temp dum ver .
  100.     call writeln(.ofile, '  MultiView program......... v'||ver)
  101.     mvflag=1
  102. end
  103. else mvflag=0
  104. if agflag=0 & mvflag=0 then call writeln(.ofile, '  AmigaGuide/Multiview...... MISSING!')
  105. return
  106.  
  107. ASSIGNS:
  108. call writeln(.ofile, '')
  109. call writeln(.ofile, 'ASSIGNS: (AmigaDOS assigns)')
  110.  
  111. /* find out if the softlogik: assign was made */
  112. slassign=showlist('a','SOFTLOGIK')
  113. if slassign=1 then do
  114.     'assign SoftLogik: exists >'||tfilename
  115.     if ~open(.tfile, tfilename, 'R') then return 9
  116.     temp=(readln(.tfile))
  117.     if pos('SOFTLOGIK',upper(temp))~=0 then do
  118.         parse var temp dum line
  119.         line=strip(line,'b')
  120.         call writeln(.ofile, '  SoftLogik................. '||line)
  121.     end
  122.     call close(.tfile)
  123. end
  124. else call writeln(.ofile, '  SoftLogik................. SoftLogik: ASSIGN NOT MADE!')
  125.  
  126. /* find out if the pagestream3: assign was made */
  127. pgsassign=showlist('a','PAGESTREAM3')
  128. if pgsassign=1 then do
  129.     'assign PageStream3: exists >'||tfilename
  130.     if ~open(.tfile, tfilename, 'R') then return 9
  131.     temp=(readln(.tfile))
  132.     if pos('PAGESTREAM3',upper(temp))~=0 then do
  133.         parse var temp dum line
  134.         line=strip(line,'b')
  135.         call writeln(.ofile, '  PageStream3............... '||line)
  136.     end
  137.     call close(.tfile)
  138. end
  139. else call writeln(.ofile, '  PageStream3............... PageStream3: ASSIGN NOT MADE!')
  140.  
  141. /* find out if the fonts assign addition was made */
  142. 'assign fonts: exists >'||tfilename
  143. if ~open(.tfile, tfilename, 'R') then return 9
  144. line=nul
  145. do until eof(.tfile)
  146.     temp=(readln(.tfile))
  147.     if pos('SOFTLOGIK',upper(temp))~=0 & pos('FONTS',upper(temp))~=0 then line=right(temp,length(temp)-pos('+',temp)-1)
  148. end
  149. if line=nul then call writeln(.ofile, '  Fonts..................... SoftLogik:Fonts add ASSIGN NOT MADE!')
  150. call close(.tfile)
  151. call writeln(.ofile, '  Fonts..................... '||line||' add')
  152. return
  153.  
  154. PROGRAMS:
  155. call writeln(.ofile, '')
  156. call writeln(.ofile, 'PROGRAM FILES:')
  157. if exists('PageStream3:PageStream3') then do
  158.     'version PageStream3:PageStream3 >'||tfilename
  159.     temp=GETTEMP()
  160.     parse var temp dum ver .
  161.     call writeln(.ofile, '  PageStream3 program....... v'||ver)
  162. end
  163. else call writeln(.ofile, '  PageStream3 program....... MISSING!')
  164. if exists('PageStream3:BME') then do
  165.     'version PageStream3:BME >'||tfilename
  166.     temp=GETTEMP()
  167.     parse var temp dum ver .
  168.     call writeln(.ofile, '  BME program............... v'||ver)
  169. end
  170. else call writeln(.ofile, '  BME program............... MISSING!')
  171. if exists('PageStream3:PageLiner') then do
  172.     'version PageStream3:PageLiner >'||tfilename
  173.     temp=GETTEMP()
  174.     parse var temp dum ver .
  175.     call writeln(.ofile, '  PageLiner program......... v'||ver)
  176. end
  177. else call writeln(.ofile, '  PageLiner program......... MISSING!')
  178. return
  179.  
  180. LIBS:
  181. call writeln(.ofile, '')
  182. call writeln(.ofile, 'SOFTLOGIK:LIBS (program libraries)')
  183. if exists('SoftLogik:Libs/softlogik_app.library') then 'version SoftLogik:Libs/softlogik_app.library >'||tfilename
  184. temp=GETTEMP()
  185. parse var temp dum ver .
  186. call writeln(.ofile, '  softlogik_app.library..... v'||ver)
  187. if exists('SoftLogik:Libs/softlogik_obj.library') then 'version SoftLogik:Libs/softlogik_obj.library >'||tfilename
  188. temp=GETTEMP()
  189. parse var temp dum ver .
  190. call writeln(.ofile, '  softlogik_obj.library..... v'||ver)
  191. return
  192.  
  193. FILTERS:
  194. call writeln(.ofile, '')
  195. call writeln(.ofile, 'SOFTLOGIK:FILTERS (filter modules)')
  196. if exists('SoftLogik:filters') then do
  197.     call GETFILES('softlogik:filters')
  198.     call SAYVERS('softlogik:filters')
  199.     end
  200. else do
  201.     call writeln(.ofile, '- Filters directory MISSING!')
  202. end
  203. return
  204.  
  205. EFFECTS:
  206. call writeln(.ofile, '')
  207. call writeln(.ofile, 'SOFTLOGIK:EFFECTS (effect modules)')
  208. if exists('SoftLogik:effects') then do
  209.     call GETFILES('softlogik:effects')
  210.     call SAYVERS('softlogik:effects')
  211.     end
  212. else do
  213.     call writeln(.ofile, '- Effects directory MISSING!')
  214. end
  215.  
  216. /* PRINTERS */
  217. call writeln(.ofile, '')
  218. call writeln(.ofile, 'SOFTLOGIK:PRINTERS (printer drivers)')
  219. if exists('SoftLogik:printers') then do
  220.     call GETFILES('softlogik:printers')
  221.     call SAYVERS('softlogik:printers')
  222.     end
  223. else do
  224.     call writeln(.ofile, '- Printers directory MISSING!')
  225. end
  226. return
  227.  
  228. ENGINES:
  229. call writeln(.ofile, '')
  230. call writeln(.ofile, 'SOFTLOGIK:ENGINES (font and text code modules)')
  231. if exists('SoftLogik:engines') then do
  232.     call GETFILES('softlogik:engines')
  233.     call SAYVERS('softlogik:engines')
  234.     end
  235. else do
  236.     call writeln(.ofile, '- Engines directory MISSING!')
  237. end
  238. return
  239.  
  240. COLORS:
  241. call writeln(.ofile, '')
  242. call writeln(.ofile, 'SOFTLOGIK:COLORS (color libraries)')
  243. if exists('SoftLogik:colors') then do
  244.     call GETFILES('softlogik:colors')
  245.     call LISTFILES()
  246.     end
  247. else do
  248.     call writeln(.ofile, '- Colors directory MISSING!')
  249. end
  250. return
  251.  
  252.  
  253. GETTEMP:
  254.     if ~open(.tfile, tfilename, 'R') then return 9
  255.     temp=readln(.tfile)
  256.     call close(.tfile)
  257. return temp
  258.  
  259. GETFILES:
  260.     parse arg path
  261.     Files=showdir(path,file,'|')
  262.     fLength=length(Files)
  263.     nList=0
  264.     DO WHILE fLength>0
  265.         cLength=pos('|',Files)
  266.         IF cLength=0 then DO
  267.             cLength=FLength+1
  268.             fLength=0
  269.         END
  270.         cFile=left(Files,cLength-1)
  271.         eFile=right(cFile,cLength-lastpos('.',cFile))
  272.         IF eFile~='.info' THEN DO
  273.             nList=nList+1
  274.             List.nList=cFile
  275.         END
  276.         IF FLength~=0 THEN Files=right(Files,fLength-cLength)
  277.         fLength=fLength-cLength
  278.     END
  279. return
  280.  
  281. SAYVERS:
  282.     parse arg path
  283.     do count=1 to nlist
  284.         if list.count~='pgs2fontlist' & right(list.count,5)~='.info' & list.count~='postscript.ehandler' then do
  285.             'version '||path||'/'||list.count||' >'||tfilename
  286.             temp=GETTEMP()
  287.             parse var temp dum ver .
  288.             call writeln(.ofile,substr('  '||list.count,1,28,'.')||' v'||ver)
  289.         end
  290.     end
  291. return
  292.  
  293. LISTFILES:
  294.     do count=1 to nlist
  295.         call writeln(.ofile,'  '||list.count)
  296.     end
  297. return
  298.  
  299. CLEANUP:
  300. call close(.ofile)
  301. 'multiview '||ofilename
  302. 'delete '||tfilename||' >NIL:'
  303. exit
  304.