diff options
Diffstat (limited to 'vms')
| -rw-r--r-- | vms/analyze_map.com | 148 | ||||
| -rw-r--r-- | vms/xlib.opt | 2 | ||||
| -rw-r--r-- | vms/xlib_share.opt | 7 |
3 files changed, 157 insertions, 0 deletions
diff --git a/vms/analyze_map.com b/vms/analyze_map.com new file mode 100644 index 00000000000..d024ffcf90c --- /dev/null +++ b/vms/analyze_map.com @@ -0,0 +1,148 @@ +$! Analyze Map for OpenVMS AXP +$! +$! Originally found in the distribution of gv +$! http://wwwthep.physik.uni-mainz.de/~plass/gv/ +$! +$! 1-Jul-1999 : modified to be used with $BSS$ & $READONLY sections in the +$! map-file by J. Jansen (joukj@hrem.stm.tudelft.nl) +$! +$ SET SYMBOL/GENERAL/SCOPE=(NOLOCAL,NOGLOBAL) +$ SAY := "WRITE_ SYS$OUTPUT" +$ +$ IF F$SEARCH("''P1'") .EQS. "" +$ THEN +$ SAY " ANALYZE_MAP.COM: Error, no mapfile provided" +$ EXIT_ +$ ENDIF +$ IF "''P2'" .EQS. "" +$ THEN +$ SAY " ANALYZE_MAP.COM: Error, no output file provided" +$ EXIT_ +$ ENDIF +$ +$ LINK_TMP = F$PARSE(P2,,,"DEVICE")+F$PARSE(P2,,,"DIRECTORY")+F$PARSE(P2,,,"NAME")+".TMP" +$ +$ SAY " checking PSECT list in ''P2'" +$ OPEN_/READ IN 'P1' +$ LOOP_PSECT_SEARCH: +$ READ_/END=EOF_PSECT IN REC +$ LOOP_PSECT_SEARCH0: +$ if F$EXTRACT(0,5,REC) .eqs. "$DATA" .or. F$EXTRACT(0,5,REC) .eqs. - + "$BSS$" .or. f$extract(0,10,rec) .eqs. "$READONLY$" then goto do_data +$ if F$EXTRACT(0,14,REC) .eqs. "$READONLY_ADDR" then goto do_readonly +$ goto LOOP_PSECT_SEARCH +$ do_data: +$ LAST = "" +$ LOOP_PSECT: +$ READ_/END=EOF_PSECT IN REC +$ if F$EXTRACT(0,1,REC) .eqs. "$" .and. F$EXTRACT(0,5,REC) .nes. "$DATA" - + .and. F$EXTRACT(0,5,REC) .nes. "$BSS$" .and. f$extract(0,10,rec) - + .nes. "$READONLY$" then goto LOOP_PSECT_SEARCH0 +$ if REC - "NOPIC,OVR,REL,GBL,NOSHR,NOEXE, WRT,NOVEC" .nes. REC +$ then +$ J = F$LOCATE(" ",REC) +$ S = F$EXTRACT(0,J,REC) +$ IF S .EQS. LAST THEN GOTO LOOP_PSECT +$ P$_'S= 1 +$ LAST = S +$ endif +$ if REC - "NOPIC,OVR,REL,GBL,NOSHR,NOEXE,NOWRT,NOVEC" .nes. REC +$ then +$ J = F$LOCATE(" ",REC) +$ S = F$EXTRACT(0,J,REC) +$ IF S .EQS. LAST THEN GOTO LOOP_PSECT +$ P$_'S= 1 +$ LAST = S +$ endif +$ GOTO LOOP_PSECT +$ +$ do_readonly: +$ LAST = "" +$ LOOP_PSECT3: +$ READ_/END=EOF_PSECT IN REC +$ if F$EXTRACT(0,1,REC) .eqs. "-" .or. F$EXTRACT(0,3,REC) .eqs. "NL:" then - + goto loop_psect3 +$ if F$EXTRACT(0,1,REC) .eqs. "$" .and. F$EXTRACT(0,14,REC) .nes. - + "$READONLY_ADDR" then goto LOOP_PSECT_SEARCH0 +$ if REC - "OCTA" .nes. REC +$ then +$ J = F$LOCATE(" ",REC) +$ S = F$EXTRACT(0,J,REC) +$ IF S .EQS. LAST THEN GOTO LOOP_PSECT3 +$ P$_'S= 1 +$ LAST = S +$ endif +$ GOTO LOOP_PSECT3 +$ +$ EOF_PSECT: +$ CLOSE_ IN +$ +$ SAY " appending list of UNIVERSAL procedures to ''P2'" +$ SEARCH_/NOHIGH/WINDOW=(0,0) 'P1' " R-"/OUT='LINK_TMP +$ OPEN_/READ IN 'LINK_TMP +$ OPEN_/write OUT 'P2' +$ WRITE_ OUT "!" +$ WRITE_ OUT "! ### UNIVERSAL procedures and global definitions extracted from ''P1'" +$ WRITE_ OUT "!" +$ write_ OUT "case_sensitive=YES" +$ LOOP_UNIVERSAL: +$ READ_/END=EOF_UNIVERSAL IN REC +$ J = F$LOCATE(" R-",REC) +$ S = F$EXTRACT(J+3,F$length(rec),REC) +$ J = F$LOCATE(" ",S) +$ S = F$EXTRACT(0,J,S) +$ PP$_'S= 1 +$ IF F$TYPE(P$_'S').EQS."" +$ THEN +$ WRITE_ OUT "symbol_vector = ("+S+" = PROCEDURE)" +$ ELSE +$ WRITE_ OUT "symbol_vector = ("+S+" = DATA)" +$ ENDIF +$ GOTO LOOP_UNIVERSAL +$ EOF_UNIVERSAL: +$ CLOSE_ IN +$ CLOSE_ OUT +$! +$ SAY " creating PSECT list in ''P2'" +$ OPEN_/READ IN 'P1' +$ OPEN_/append OUT 'P2' +$ WRITE_ OUT "!" +$ WRITE_ OUT "! ### PSECT list extracted from ''P1'" +$ WRITE_ OUT "!" +$ LOOP_PSECT_SEARCH1: +$ READ_/END=EOF_PSECT1 IN REC +$ if F$EXTRACT(0,5,REC) .nes. "$DATA" .and. F$EXTRACT(0,5,REC) .nes. - + "$BSS$" .and. f$extract(0,10,rec) .nes. "$READONLY$" then goto - + LOOP_PSECT_SEARCH1 +$ LAST = "" +$ LOOP_PSECT1: +$ READ_/END=EOF_PSECT1 IN REC +$ if F$EXTRACT(0,1,REC) .eqs. "$" .and. F$EXTRACT(0,5,REC) .nes. "$DATA" - + .and. F$EXTRACT(0,5,REC) .nes. "$BSS$" .and. f$extract(0,10,rec) - + .nes. "$READONLY$" then goto LOOP_PSECT_SEARCH1 +$ if REC - "NOPIC,OVR,REL,GBL,NOSHR,NOEXE, WRT,NOVEC" .nes. REC +$ then +$ J = F$LOCATE(" ",REC) +$ S = F$EXTRACT(0,J,REC) +$ IF S .EQS. LAST THEN GOTO LOOP_PSECT1 +$ IF F$TYPE(PP$_'S').nes."" then WRITE_ OUT "symbol_vector = (" + S + " = PSECT)" +$ P$_'S= 1 +$ LAST = S +$ endif +$ if REC - "NOPIC,OVR,REL,GBL,NOSHR,NOEXE,NOWRT,NOVEC" .nes. REC +$ then +$ J = F$LOCATE(" ",REC) +$ S = F$EXTRACT(0,J,REC) +$ IF S .EQS. LAST THEN GOTO LOOP_PSECT1 +$ IF F$TYPE(PP$_'S').nes."" then WRITE_ OUT "symbol_vector = (" + S + " = PSECT)" +$ P$_'S= 1 +$ LAST = S +$ endif +$ GOTO LOOP_PSECT1 +$ +$ EOF_PSECT1: +$ CLOSE_ IN +$ CLOSE_ OUT +$ if f$search("''LINK_TMP'") .nes. "" then DELETE_/NOLOG/NOCONFIRM 'LINK_TMP';* +$ +$ EXIT_ diff --git a/vms/xlib.opt b/vms/xlib.opt new file mode 100644 index 00000000000..acae358b570 --- /dev/null +++ b/vms/xlib.opt @@ -0,0 +1,2 @@ +sys$library:decw$xlibshr.exe/share +sys$library:decw$xmulibshr.exe/share diff --git a/vms/xlib_share.opt b/vms/xlib_share.opt new file mode 100644 index 00000000000..ebe039f0129 --- /dev/null +++ b/vms/xlib_share.opt @@ -0,0 +1,7 @@ +[--.lib]libmesagl.exe/share +[--.lib]libmesaglu.exe/share +[--.lib]libglut.exe/share +sys$library:decw$xlibshr.exe/share +sys$library:decw$xmulibshr.exe/share +sys$library:decw$xmlibshr12/share +sys$library:decw$xtlibshrr5/share |