home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume33 / flow / patch01 next >
Encoding:
Text File  |  1992-11-02  |  4.4 KB  |  141 lines
  1. Newsgroups: comp.sources.misc
  2. From: julian@vscn08.cern.ch (Julian James Bunn)
  3. Subject:  v33i028:  flow - Fortran Structure Analysers, Patch01
  4. Message-ID: <1992Nov1.225118.26171@sparky.imd.sterling.com>
  5. X-Md4-Signature: d75dd2fc7e74943563a44a54aec4f9c3
  6. Date: Sun, 1 Nov 1992 22:51:18 GMT
  7. Approved: kent@sparky.imd.sterling.com
  8.  
  9. Submitted-by: julian@vscn08.cern.ch (Julian James Bunn)
  10. Posting-number: Volume 33, Issue 28
  11. Archive-name: flow/patch01
  12. Environment: fortran, ffccc
  13. Patch-To: flow: Volume 31, Issue 64-68
  14.  
  15. The following Patches should be applied to Flow, posted earlier this year to
  16. comp.sources.misc, in Volume 31. It corrects minor bugs in the file-handling
  17. sections of the Unix and VMS versions.
  18.  
  19. diff -c oldflow/floppy.f flow/floppy.f
  20. *** oldflow/floppy.f    Tue Oct 20 10:02:53 1992
  21. --- flow/floppy.f    Tue Oct 20 10:32:55 1992
  22. ***************
  23. *** 148,154 ****
  24.              write(7,'(A)') 'OPTIONS,INDENT='//char//';'
  25.              if(log) write(6,'(A)') ' Floppy --> Indent clauses by '//char
  26.              tidy = .true.
  27. !          else if(key.eq.'f') then
  28.              write(7,'(A)') 'STATEMENTS,SEPARATE;'
  29.              if(log) write(6,'(A)') ' Floppy --> Group FORMATs at end'
  30.              tidy = .true.
  31. --- 148,154 ----
  32.              write(7,'(A)') 'OPTIONS,INDENT='//char//';'
  33.              if(log) write(6,'(A)') ' Floppy --> Indent clauses by '//char
  34.              tidy = .true.
  35. !          else if(key.eq.'F') then
  36.              write(7,'(A)') 'STATEMENTS,SEPARATE;'
  37.              if(log) write(6,'(A)') ' Floppy --> Group FORMATs at end'
  38.              tidy = .true.
  39. diff -c oldflow/unixflow.for flow/unixflow.for
  40. *** oldflow/unixflow.for    Tue Oct 20 10:02:57 1992
  41. --- flow/unixflow.for    Wed Oct 21 11:40:35 1992
  42. ***************
  43. *** 148,155 ****
  44.              if(log) write(6,'(A)') ' Flow --> Graphical Chart: '//
  45.        &             cgraph(:lgraph) 
  46.              lchrt = .true.
  47. !            loutre = 96
  48. !            open(loutre,file=chart(:lchart),status='new',err=900)
  49.            else if(key.eq.'n') then
  50.              ctree = argval(3:)
  51.              ltre = lenocc(ctree)
  52. --- 148,155 ----
  53.              if(log) write(6,'(A)') ' Flow --> Graphical Chart: '//
  54.        &             cgraph(:lgraph) 
  55.              lchrt = .true.
  56. !            loutch = 96
  57. !            open(loutch,file=cgraph(:lgraph),status='new',err=900)
  58.            else if(key.eq.'n') then
  59.              ctree = argval(3:)
  60.              ltre = lenocc(ctree)
  61. diff -c oldflow/vmsflow.for flow/vmsflow.for
  62. *** oldflow/vmsflow.for    Tue Oct 20 10:03:07 1992
  63. --- flow/vmsflow.for    Tue Oct 20 10:32:17 1992
  64. ***************
  65. *** 11,26 ****
  66.         INCLUDE '($RMSDEF)'
  67.         INCLUDE '($LBRDEF)'
  68.         EXTERNAL CLI$_PRESENT,CLI$_DEFAULTED,CLI$_ABSENT,CLI$_NEGATED
  69. !       CHARACTER*(MXLIN) CIN
  70. !       CHARACTER*(MXLIN) CFLOP
  71. !       CHARACTER*(MXLIN) CTEMPL
  72.         CHARACTER*1024 CLONG
  73.         LOGICAL LOG
  74. -       CHARACTER*(MLEN) CMMND
  75.   C
  76.         LOG = .FALSE.
  77. -       LPRINT = .FALSE.
  78. -       LDEBUG = .FALSE.
  79.         NIGNO = 0
  80.   C
  81.   C LOG
  82. --- 11,21 ----
  83.         INCLUDE '($RMSDEF)'
  84.         INCLUDE '($LBRDEF)'
  85.         EXTERNAL CLI$_PRESENT,CLI$_DEFAULTED,CLI$_ABSENT,CLI$_NEGATED
  86. !       CHARACTER*(MXLIN) CIN,CFLOP,CTEMPL
  87.         CHARACTER*1024 CLONG
  88.         LOGICAL LOG
  89.   C
  90.         LOG = .FALSE.
  91.         NIGNO = 0
  92.   C
  93.   C LOG
  94. ***************
  95. *** 122,133 ****
  96.        &       CARRIAGECONTROL='LIST',ERR=999)
  97.         ENDIF
  98.   C
  99. ! C NOEXTERNALS
  100.   C
  101. !       LEXT =.FALSE.
  102.   C
  103. -       IF(.NOT.LTREE.AND..NOT.LCHRT) GOTO 5
  104. - C
  105.         STATUS = CLI$PRESENT('EXTERNALS')
  106.         IF(STATUS.EQ.%LOC(CLI$_NEGATED)) THEN
  107.           IF(LOG)WRITE(6,'(A)')
  108. --- 117,126 ----
  109.        &       CARRIAGECONTROL='LIST',ERR=999)
  110.         ENDIF
  111.   C
  112. ! C EXTERNALS
  113.   C
  114. !       LEXT =.TRUE.
  115.   C
  116.         STATUS = CLI$PRESENT('EXTERNALS')
  117.         IF(STATUS.EQ.%LOC(CLI$_NEGATED)) THEN
  118.           IF(LOG)WRITE(6,'(A)')
  119. ***************
  120. *** 134,145 ****
  121.        &  ' Flow --> Suppress external routines from the chart'
  122.           LEXT = .FALSE.
  123.         ELSE
  124. - C
  125. - C EXTERNALS
  126. - C
  127.           IF(LOG)WRITE(6,'(A)')
  128.        &  ' Flow --> Include external routines in the chart'
  129. -         LEXT = .TRUE.
  130.         ENDIF
  131.   C
  132.   C NODE
  133. --- 127,134 ----
  134.  
  135. -------------------------------------------------------------------------------
  136. Julian James Bunn / CERN Computing and Networks Division. Tel.: Geneva 767 5029
  137. Email: julian@vxcrna.cern.ch
  138. -------------------------------------------------------------------------------
  139.  
  140. exit 0 # Just in case...
  141.