summaryrefslogtreecommitdiff
path: root/vms/analyze_map.com
diff options
context:
space:
mode:
Diffstat (limited to 'vms/analyze_map.com')
-rw-r--r--vms/analyze_map.com148
1 files changed, 0 insertions, 148 deletions
diff --git a/vms/analyze_map.com b/vms/analyze_map.com
deleted file mode 100644
index d024ffcf90..0000000000
--- a/vms/analyze_map.com
+++ /dev/null
@@ -1,148 +0,0 @@
-$! 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_