rtsi.com/2014.01.www.rtsi.com.tar/www.rtsi.com/OS9/OSK/APPS/DVI_MGR/dvimgr_s.lzh/dvi_fbi_hh/DVIDECW/dvidecw.com

Text File | 1993-07-27 | 2KB | 77 lines

$ !-----------------------------------------------------------------------!
$ ! Filename: DVIDECW.COM                                                 !
$ ! Function: Compiles and links the DVIDECW DEC-Windows application      !
$ ! (c) 28-06-90 by Ch. Markus                                            !
$ !-----------------------------------------------------------------------!
$ !
$ !
$ if f$trnlnm("decw$include") .nes. "" then goto startupok
$ write sys$output "Please invoke @DECW$STARTUP befor using this procedure"
$ !
$startupok:
$ !
$ ! Defines which have to be adapted to system installation before
$ ! attempting to compile (will need modifications)
$ !
$ define/nolog dvi$decw $disk2:[1050101.dvi_fbi_hh.includes] ! path for modified .H files
$ define/nolog dvi$beebe $disk2:[1050101.dvi_fbi_hh.beebe]   ! path for standard .H files
$                                                          ! from BEEBE package
$ !
$ ! Defines which rely on system symbols set previously (partly
$ ! defined in DECW$STARTUP)
$ !
$ define/nolog c$include dvi$decw,dvi$beebe,decw$include,sys$library
$ define/nolog vaxc$include c$include
$ define/nolog X11 decw$include
$ define/nolog sys sys$library
$ define/nolog uil$include decw$include
$ !
$ ! General checkup of old errors
$ !
$ on warning then goto error
$ !
$ !
$ ! Compile the 'C'-Source to 'OBJ'
$ !
$ if f$search("DVIDECW.C") .eqs. "" then goto compile_uil
$ !
$ vue$set_task_label "CC DVIDECW"
$ vue$popup_progress_box
$ cc /define=("OS_VAXVMS"=1) /define=("ANSI_LIBRARY"=1) dvidecw
$ !
$ !
$compile_uil:
$ !
$ if f$search("DVIDECW.UIL") .eqs. "" then goto do_link
$ !
$ ! Compile the 'UIL'-Source to 'UID'
$ !
$ vue$set_task_label "UIL DVIDECW"
$ vue$popup_progress_box
$ uil dvidecw.uil
$ !
$do_link:
$ !
$ ! Link the DEC-Windows program
$ !
$ vue$set_task_label "LINK DVIDECW"
$ vue$popup_progress_box
$ !
$ link /exe=dvidecw.exe -
 sys$input:/options
 dvidecw.obj
 unixclib/lib
 sys$library:vaxcrtl/lib
 sys$share:decw$dwtlibshr/share
$ !
$ !
$ ! Change APPLY button to UPDATE button on FileView
$ !
$ vue$highlight_update
$end:
$ exit
$ !
$error:
$ vue$set_error_status
$ exit