A RevTechie Replies - Mike Pope - Revelation Technologies (UK) Ltd

Published ByDateVersionKnowledge LevelKeywords
Sprezzatura Ltd01 JAN 19922.11+EXPERTRTP5, RTP51, REVERROR, MOUSEVARS, BREAK-ON

The explanation in Volume 3 Issue 7 of how to access RTP51 files suffers slightly in that it allows access to the REVERROR file only from within your own program, and not for example from the editor. On the assumption that REVMEDIA readers might find it useful to do something besides simply display the error messages, I've taken the liberty of attaching the code you could use to go through the "cumbersome" process of creating permanent access to the file (under the nom d'AREV of ERRORS) and not incidentally, allow you to use some proper tools to hack about with the error messages. Remember though BACKUP THE WHOLE DOS FILE BEFORE PLAYING WITH IT!

 /*
  program  MAKE_ERROR_VOL
  author   Mike Pope, RT(UK) Ltd
  date     22nd December 1991
  desc     creates a volume by which the REVERROR file can be accessed w/in
           AREV as the ERRORSfile
 */
 $INSERT INCLUDE, FILE.SYSTEM.EQUATES
 DECLARE SUBROUTINE RTP51
 PATH = DRIVE()
 FILE = "ERRORS*GLOBAL"
 REC = "REVERROR.0"
 BFS = "RTP51"

 RTP51(INSTALL,BFS,"","","","",STATUS)
 RTP51(CREATE.MEDIA,BFS,"",PATH,"","",0)
 RTP51(OPEN.MEDIA,BFS,"",PATH,"",HANDLE,STATUS)
 RTP51(WRITE.MEDIA,BFS,HANDLE,"","",TIMEDATE(),STATUS)
 RTP51(WRITE.RECORD,BFS,HANDLE,FILE,"",REC,STATUS)

 OPEN "VOC" TO VOC_FILE THEN
  VOL_REC = "VOLUME" ; @FM : "RTP51" : @FM : PATH
  WRITE VOL_REC ON VOL_REC, "ERRVOL"
 END

 /* and now to make it all worthwhile... */
 EXECUTE "ATTACH ERRVOL ERRORS (S)"

The fourth LC argument, the array, has these differences in real life than documented

<8>Mouse active
<13>Mouse type

Am I the only person who knows that you can put anything - anything - into G type items that might otherwise follow the file name?

(Volume 3, Issue 8, Page 4)

  • tips/revmedia/v3i8a1.txt
  • Last modified: 2024/06/19 20:20
  • by 127.0.0.1