/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / lucid / lemacs-19.6 / lisp / modes / fortran-misc.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 77 7a 40 74 68 61 |piled by| jwz@tha|
|00000020| 6c 69 64 6f 6d 69 64 65 | 20 6f 6e 20 4d 6f 6e 20 |lidomide| on Mon |
|00000030| 46 65 62 20 20 31 20 31 | 38 3a 35 38 3a 33 36 20 |Feb  1 1|8:58:36 |
|00000040| 31 39 39 33 0a 3b 3b 3b | 20 66 72 6f 6d 20 66 69 |1993.;;;| from fi|
|00000050| 6c 65 20 2f 63 61 64 69 | 6c 6c 61 63 31 2f 63 6f |le /cadi|llac1/co|
|00000060| 64 65 2f 62 75 69 6c 64 | 2f 6c 65 6d 61 63 73 2f |de/build|/lemacs/|
|00000070| 6c 69 73 70 2f 6d 6f 64 | 65 73 2f 66 6f 72 74 72 |lisp/mod|es/fortr|
|00000080| 61 6e 2d 6d 69 73 63 2e | 65 6c 0a 3b 3b 3b 20 65 |an-misc.|el.;;; e|
|00000090| 6d 61 63 73 20 76 65 72 | 73 69 6f 6e 20 31 39 2e |macs ver|sion 19.|
|000000a0| 34 2e 31 33 20 4c 75 63 | 69 64 2e 0a 3b 3b 3b 20 |4.13 Luc|id..;;; |
|000000b0| 62 79 74 65 63 6f 6d 70 | 20 76 65 72 73 69 6f 6e |bytecomp| version|
|000000c0| 20 32 2e 31 30 3b 20 20 | 31 2d 66 65 62 2d 39 33 | 2.10;  |1-feb-93|
|000000d0| 2e 0a 3b 3b 3b 20 6f 70 | 74 69 6d 69 7a 61 74 69 |..;;; op|timizati|
|000000e0| 6f 6e 20 69 73 20 6f 6e | 2e 0a 3b 3b 3b 20 74 68 |on is on|..;;; th|
|000000f0| 69 73 20 66 69 6c 65 20 | 75 73 65 73 20 6f 70 63 |is file |uses opc|
|00000100| 6f 64 65 73 20 77 68 69 | 63 68 20 64 6f 20 6e 6f |odes whi|ch do no|
|00000110| 74 20 65 78 69 73 74 20 | 69 6e 20 45 6d 61 63 73 |t exist |in Emacs|
|00000120| 31 38 2e 0a 0a 28 69 66 | 20 28 61 6e 64 20 28 62 |18...(if| (and (b|
|00000130| 6f 75 6e 64 70 20 27 65 | 6d 61 63 73 2d 76 65 72 |oundp 'e|macs-ver|
|00000140| 73 69 6f 6e 29 0a 09 20 | 28 6f 72 20 28 61 6e 64 |sion).. |(or (and|
|00000150| 20 28 62 6f 75 6e 64 70 | 20 27 65 70 6f 63 68 3a | (boundp| 'epoch:|
|00000160| 3a 76 65 72 73 69 6f 6e | 29 20 65 70 6f 63 68 3a |:version|) epoch:|
|00000170| 3a 76 65 72 73 69 6f 6e | 29 0a 09 20 20 20 20 20 |:version|)..     |
|00000180| 28 73 74 72 69 6e 67 2d | 6c 65 73 73 70 20 65 6d |(string-|lessp em|
|00000190| 61 63 73 2d 76 65 72 73 | 69 6f 6e 20 22 31 39 22 |acs-vers|ion "19"|
|000001a0| 29 29 29 0a 20 20 20 20 | 28 65 72 72 6f 72 20 22 |))).    |(error "|
|000001b0| 54 68 69 73 20 66 69 6c | 65 20 77 61 73 20 63 6f |This fil|e was co|
|000001c0| 6d 70 69 6c 65 64 20 66 | 6f 72 20 45 6d 61 63 73 |mpiled f|or Emacs|
|000001d0| 31 39 2e 22 29 29 0a 0a | 28 66 73 65 74 20 27 66 |19."))..|(fset 'f|
|000001e0| 6f 72 74 72 61 6e 2d 66 | 69 6c 6c 2d 73 74 61 74 |ortran-f|ill-stat|
|000001f0| 65 6d 65 6e 74 20 23 5b | 6e 69 6c 20 22 8a c0 79 |ement #[|nil "..y|
|00000200| 88 c1 c2 21 ae 8d c1 0b | 21 ae 88 0c ad 85 c1 c5 |...!....|!.......|
|00000210| 0c 50 21 29 ab 83 c6 20 | 87 60 c7 89 1e 08 1e 09 |.P!)... |.`......|
|00000220| 1e 5c 6e 8a cb 20 88 cc | 20 88 cd 20 16 08 60 16 |.\n.. ..| .. ..`.|
|00000230| 09 29 8a 0e 09 62 88 8a | 0e 08 ce 20 55 ab 8d cf |.)...b..|... U...|
|00000240| d0 60 d1 5c 5c d2 23 ab | 89 d3 20 ac 85 d4 0e 08 |.`.\\.#.|.. .....|
|00000250| 21 88 29 d5 79 88 c1 d6 | 21 ac 85 c1 d7 21 ab 8c |!.).y...|!....!..|
|00000260| d8 20 88 d9 da 21 88 db | 20 88 aa 67 cc 20 88 8a |. ...!..| ..g. ..|
|00000270| c7 7f 88 69 29 0e 1c 56 | ab 83 dd 20 88 29 60 0e |...i)..V|... .)`.|
|00000280| 5c 6e 57 ab 84 0e 5c 6e | 62 88 cd 20 1e 08 69 0e |\nW...\n|b.. ..i.|
|00000290| 08 57 ad 84 de 0e 08 21 | 2c 87 22 20 5b 30 20 6c |.W.....!|,." [0 l|
|000002a0| 6f 6f 6b 69 6e 67 2d 61 | 74 20 22 5b 20 09 5d 2a |ooking-a|t "[ .]*|
|000002b0| 24 22 20 63 6f 6d 6d 65 | 6e 74 2d 6c 69 6e 65 2d |$" comme|nt-line-|
|000002c0| 73 74 61 72 74 2d 73 6b | 69 70 20 63 6f 6d 6d 65 |start-sk|ip comme|
|000002d0| 6e 74 2d 73 74 61 72 74 | 2d 73 6b 69 70 20 22 5b |nt-start|-skip "[|
|000002e0| 20 09 5d 2a 22 20 66 6f | 72 74 72 61 6e 2d 69 6e | .]*" fo|rtran-in|
|000002f0| 64 65 6e 74 2d 6c 69 6e | 65 20 6e 69 6c 20 63 66 |dent-lin|e nil cf|
|00000300| 69 20 62 65 67 20 6f 70 | 6f 73 20 66 6f 72 74 72 |i beg op|os fortr|
|00000310| 61 6e 2d 6e 65 78 74 2d | 73 74 61 74 65 6d 65 6e |an-next-|statemen|
|00000320| 74 20 66 6f 72 74 72 61 | 6e 2d 70 72 65 76 69 6f |t fortra|n-previo|
|00000330| 75 73 2d 73 74 61 74 65 | 6d 65 6e 74 20 63 61 6c |us-state|ment cal|
|00000340| 63 75 6c 61 74 65 2d 66 | 6f 72 74 72 61 6e 2d 69 |culate-f|ortran-i|
|00000350| 6e 64 65 6e 74 20 66 6f | 72 74 72 61 6e 2d 63 75 |ndent fo|rtran-cu|
|00000360| 72 72 65 6e 74 2d 6c 69 | 6e 65 2d 69 6e 64 65 6e |rrent-li|ne-inden|
|00000370| 74 61 74 69 6f 6e 20 72 | 65 2d 73 65 61 72 63 68 |tation r|e-search|
|00000380| 2d 66 6f 72 77 61 72 64 | 20 22 5e 5b 20 09 5d 2a |-forward| "^[ .]*|
|00000390| 5b 30 2d 39 5d 2b 22 20 | 34 20 74 20 66 6f 72 74 |[0-9]+" |4 t fort|
|000003a0| 72 61 6e 2d 6c 69 6e 65 | 2d 6e 75 6d 62 65 72 2d |ran-line|-number-|
|000003b0| 69 6e 64 65 6e 74 65 64 | 2d 63 6f 72 72 65 63 74 |indented|-correct|
|000003c0| 6c 79 2d 70 20 66 6f 72 | 74 72 61 6e 2d 69 6e 64 |ly-p for|tran-ind|
|000003d0| 65 6e 74 2d 74 6f 2d 63 | 6f 6c 75 6d 6e 20 31 20 |ent-to-c|olumn 1 |
|000003e0| 22 20 20 20 20 20 5b 5e | 20 30 5c 6e 5d 22 20 22 |"     [^| 0\n]" "|
|000003f0| 09 5b 31 2d 39 5d 22 20 | 64 65 6c 65 74 65 2d 69 |.[1-9]" |delete-i|
|00000400| 6e 64 65 6e 74 61 74 69 | 6f 6e 20 64 65 6c 65 74 |ndentati|on delet|
|00000410| 65 2d 63 68 61 72 20 32 | 20 64 65 6c 65 74 65 2d |e-char 2| delete-|
|00000420| 68 6f 72 69 7a 6f 6e 74 | 61 6c 2d 73 70 61 63 65 |horizont|al-space|
|00000430| 20 66 69 6c 6c 2d 63 6f | 6c 75 6d 6e 20 66 6f 72 | fill-co|lumn for|
|00000440| 74 72 61 6e 2d 64 6f 2d | 61 75 74 6f 2d 66 69 6c |tran-do-|auto-fil|
|00000450| 6c 20 6d 6f 76 65 2d 74 | 6f 2d 63 6f 6c 75 6d 6e |l move-t|o-column|
|00000460| 5d 20 34 20 22 5c 0a 46 | 69 6c 6c 20 61 20 66 6f |] 4 "\.F|ill a fo|
|00000470| 72 74 72 61 6e 20 73 74 | 61 74 65 6d 65 6e 74 20 |rtran st|atement |
|00000480| 75 70 20 74 6f 20 60 66 | 69 6c 6c 2d 63 6f 6c 75 |up to `f|ill-colu|
|00000490| 6d 6e 27 2e 22 20 6e 69 | 6c 5d 29 0a 28 66 73 65 |mn'." ni|l]).(fse|
|000004a0| 74 20 27 66 6f 72 74 72 | 61 6e 2d 64 6f 77 6e 63 |t 'fortr|an-downc|
|000004b0| 61 73 65 2d 73 75 62 70 | 72 6f 67 72 61 6d 20 23 |ase-subp|rogram #|
|000004c0| 5b 6e 69 6c 20 22 8a c0 | 20 88 c1 c2 21 88 c3 60 |[nil "..| ...!..`|
|000004d0| c4 20 5c 22 88 29 c1 c5 | 21 87 22 20 5b 6d 61 72 |. \".)..|!." [mar|
|000004e0| 6b 2d 66 6f 72 74 72 61 | 6e 2d 73 75 62 70 72 6f |k-fortra|n-subpro|
|000004f0| 67 72 61 6d 20 6d 65 73 | 73 61 67 65 20 22 44 6f |gram mes|sage "Do|
|00000500| 77 6e 63 61 73 69 6e 67 | 20 73 75 62 70 72 6f 67 |wncasing| subprog|
|00000510| 72 61 6d 2e 2e 2e 22 20 | 66 6f 72 74 72 61 6e 2d |ram..." |fortran-|
|00000520| 64 6f 77 6e 63 61 73 65 | 2d 72 65 67 69 6f 6e 20 |downcase|-region |
|00000530| 6d 61 72 6b 20 22 44 6f | 77 6e 63 61 73 69 6e 67 |mark "Do|wncasing|
|00000540| 20 73 75 62 70 72 6f 67 | 72 61 6d 2e 2e 2e 64 6f | subprog|ram...do|
|00000550| 6e 65 2e 22 5d 20 33 20 | 22 5c 0a 50 72 6f 70 65 |ne."] 3 |"\.Prope|
|00000560| 72 6c 79 20 64 6f 77 6e | 63 61 73 65 73 20 74 68 |rly down|cases th|
|00000570| 65 20 46 6f 72 74 72 61 | 6e 20 73 75 62 70 72 6f |e Fortra|n subpro|
|00000580| 67 72 61 6d 20 77 68 69 | 63 68 20 63 6f 6e 74 61 |gram whi|ch conta|
|00000590| 69 6e 73 20 70 6f 69 6e | 74 2e 22 20 6e 69 6c 5d |ins poin|t." nil]|
|000005a0| 29 0a 28 66 73 65 74 20 | 27 66 6f 72 74 72 61 6e |).(fset |'fortran|
|000005b0| 2d 64 6f 77 6e 63 61 73 | 65 2d 72 65 67 69 6f 6e |-downcas|e-region|
|000005c0| 20 23 5b 28 73 74 61 72 | 74 20 65 6e 64 29 20 22 | #[(star|t end) "|
|000005d0| c0 09 5c 6e c3 23 87 22 | 20 5b 66 6f 72 74 72 61 |..\n.#."| [fortra|
|000005e0| 6e 2d 63 61 73 65 2d 72 | 65 67 69 6f 6e 20 73 74 |n-case-r|egion st|
|000005f0| 61 72 74 20 65 6e 64 20 | 6e 69 6c 5d 20 34 20 22 |art end |nil] 4 "|
|00000600| 5c 0a 44 6f 77 6e 63 61 | 73 65 20 72 65 67 69 6f |\.Downca|se regio|
|00000610| 6e 2c 20 65 78 63 6c 75 | 64 69 6e 67 20 63 6f 6d |n, exclu|ding com|
|00000620| 6d 65 6e 74 20 6c 69 6e | 65 73 20 61 6e 64 20 61 |ment lin|es and a|
|00000630| 6e 79 74 68 69 6e 67 0a | 62 65 74 77 65 65 6e 20 |nything.|between |
|00000640| 71 75 6f 74 65 20 6d 61 | 72 6b 73 2e 22 20 22 72 |quote ma|rks." "r|
|00000650| 22 5d 29 0a 28 66 73 65 | 74 20 27 66 6f 72 74 72 |"]).(fse|t 'fortr|
|00000660| 61 6e 2d 75 70 63 61 73 | 65 2d 72 65 67 69 6f 6e |an-upcas|e-region|
|00000670| 20 23 5b 28 73 74 61 72 | 74 20 65 6e 64 29 20 22 | #[(star|t end) "|
|00000680| c0 09 5c 6e c3 23 87 22 | 20 5b 66 6f 72 74 72 61 |..\n.#."| [fortra|
|00000690| 6e 2d 63 61 73 65 2d 72 | 65 67 69 6f 6e 20 73 74 |n-case-r|egion st|
|000006a0| 61 72 74 20 65 6e 64 20 | 74 5d 20 34 20 22 5c 0a |art end |t] 4 "\.|
|000006b0| 55 70 63 61 73 65 20 72 | 65 67 69 6f 6e 2c 20 65 |Upcase r|egion, e|
|000006c0| 78 63 6c 75 64 69 6e 67 | 20 63 6f 6d 6d 65 6e 74 |xcluding| comment|
|000006d0| 20 6c 69 6e 65 73 20 61 | 6e 64 20 61 6e 79 74 68 | lines a|nd anyth|
|000006e0| 69 6e 67 0a 62 65 74 77 | 65 65 6e 20 71 75 6f 74 |ing.betw|een quot|
|000006f0| 65 20 6d 61 72 6b 73 2e | 22 20 22 72 22 5d 29 0a |e marks.|" "r"]).|
|00000700| 28 66 73 65 74 20 27 66 | 6f 72 74 72 61 6e 2d 75 |(fset 'f|ortran-u|
|00000710| 70 63 61 73 65 2d 73 75 | 62 70 72 6f 67 72 61 6d |pcase-su|bprogram|
|00000720| 20 23 5b 6e 69 6c 20 22 | 8a c0 20 88 c1 c2 21 88 | #[nil "|.. ...!.|
|00000730| c3 60 c4 20 5c 22 88 29 | c1 c5 21 87 22 20 5b 6d |.`. \".)|..!." [m|
|00000740| 61 72 6b 2d 66 6f 72 74 | 72 61 6e 2d 73 75 62 70 |ark-fort|ran-subp|
|00000750| 72 6f 67 72 61 6d 20 6d | 65 73 73 61 67 65 20 22 |rogram m|essage "|
|00000760| 55 70 63 61 73 69 6e 67 | 20 73 75 62 70 72 6f 67 |Upcasing| subprog|
|00000770| 72 61 6d 2e 2e 2e 22 20 | 66 6f 72 74 72 61 6e 2d |ram..." |fortran-|
|00000780| 75 70 63 61 73 65 2d 72 | 65 67 69 6f 6e 20 6d 61 |upcase-r|egion ma|
|00000790| 72 6b 20 22 55 70 63 61 | 73 69 6e 67 20 73 75 62 |rk "Upca|sing sub|
|000007a0| 70 72 6f 67 72 61 6d 2e | 2e 2e 64 6f 6e 65 2e 22 |program.|..done."|
|000007b0| 5d 20 33 20 22 5c 0a 50 | 72 6f 70 65 72 6c 79 20 |] 3 "\.P|roperly |
|000007c0| 75 70 63 61 73 65 73 20 | 74 68 65 20 46 6f 72 74 |upcases |the Fort|
|000007d0| 72 61 6e 20 73 75 62 70 | 72 6f 67 72 61 6d 20 77 |ran subp|rogram w|
|000007e0| 68 69 63 68 20 63 6f 6e | 74 61 69 6e 73 20 70 6f |hich con|tains po|
|000007f0| 69 6e 74 2e 22 20 6e 69 | 6c 5d 29 0a 28 66 73 65 |int." ni|l]).(fse|
|00000800| 74 20 27 66 6f 72 74 72 | 61 6e 2d 63 61 73 65 2d |t 'fortr|an-case-|
|00000810| 72 65 67 69 6f 6e 20 23 | 5b 28 73 74 61 72 74 20 |region #|[(start |
|00000820| 65 6e 64 20 75 70 29 20 | 22 c0 19 c2 1b c4 1d c6 |end up) |".......|
|00000830| 1e 07 c8 c9 21 1e 5c 6e | cb 0e 5c 6e cc 51 1e 0d |....!.\n|..\n.Q..|
|00000840| ce 1e 0f ce 1e 10 8a 8c | 0e 11 0e 12 7d 88 65 62 |........|....}.eb|
|00000850| 88 d3 09 0b 5c 22 ab 87 | d4 0b 0e 12 d5 23 88 d3 |....\"..|.....#..|
|00000860| 0d 0e 07 5c 22 ab 88 d4 | 0e 07 0e 12 d5 23 88 d3 |...\"...|.....#..|
|00000870| 0e 5c 6e 0e 0d 5c 22 ab | 88 d4 0e 0d 0e 12 d5 23 |.\n..\".|.......#|
|00000880| 88 60 16 0f 60 64 57 ad | d8 d4 cb 09 d6 0d d6 0e |.`..`dW.|........|
|00000890| 5c 6e d7 b0 07 0e 12 d5 | 23 88 60 16 10 0e 18 ab |\n......|#.`.....|
|000008a0| 89 d9 0e 0f 0e 10 5c 22 | 88 aa 87 da 0e 0f 0e 10 |......\"|........|
|000008b0| 5c 22 88 d3 09 0b 5c 22 | ab 87 d4 0b 0e 12 d5 23 |\"....\"|.......#|
|000008c0| 88 d3 0d 0e 07 5c 22 ab | 88 d4 0e 07 0e 12 d5 23 |.....\".|.......#|
|000008d0| 88 d3 0e 5c 6e 0e 0d 5c | 22 ab 88 d4 0e 0d 0e 12 |...\n..\|".......|
|000008e0| d5 23 88 60 16 0f aa 23 | 2e 5c 6e 87 22 20 5b 22 |.#.`...#|.\n." ["|
|000008f0| 5e 5b 63 43 2a 23 5d 22 | 20 73 74 61 72 74 2d 72 |^[cC*#]"| start-r|
|00000900| 65 2d 63 6f 6d 6d 65 6e | 74 20 22 24 22 20 65 6e |e-commen|t "$" en|
|00000910| 64 2d 72 65 2d 63 6f 6d | 6d 65 6e 74 20 22 27 22 |d-re-com|ment "'"|
|00000920| 20 73 74 61 72 74 2d 72 | 65 2d 71 75 6f 74 65 20 | start-r|e-quote |
|00000930| 22 5c 5c 28 27 5c 5c 7c | 24 5c 5c 29 22 20 65 6e |"\\('\\||$\\)" en|
|00000940| 64 2d 72 65 2d 71 75 6f | 74 65 20 63 68 61 72 2d |d-re-quo|te char-|
|00000950| 74 6f 2d 73 74 72 69 6e | 67 20 33 34 20 73 74 61 |to-strin|g 34 sta|
|00000960| 72 74 2d 72 65 2d 64 71 | 75 6f 74 65 20 22 5c 5c |rt-re-dq|uote "\\|
|00000970| 28 22 20 22 5c 5c 7c 24 | 5c 5c 29 22 20 65 6e 64 |(" "\\|$|\\)" end|
|00000980| 2d 72 65 2d 64 71 75 6f | 74 65 20 6e 69 6c 20 73 |-re-dquo|te nil s|
|00000990| 74 72 74 20 66 69 6e 20 | 73 74 61 72 74 20 65 6e |trt fin |start en|
|000009a0| 64 20 69 6e 73 69 64 65 | 2d 72 65 20 72 65 2d 73 |d inside|-re re-s|
|000009b0| 65 61 72 63 68 2d 66 6f | 72 77 61 72 64 20 30 20 |earch-fo|rward 0 |
|000009c0| 22 5c 5c 7c 22 20 22 5c | 5c 29 22 20 75 70 20 75 |"\\|" "\|\)" up u|
|000009d0| 70 63 61 73 65 2d 72 65 | 67 69 6f 6e 20 64 6f 77 |pcase-re|gion dow|
|000009e0| 6e 63 61 73 65 2d 72 65 | 67 69 6f 6e 5d 20 38 20 |ncase-re|gion] 8 |
|000009f0| 22 5c 0a 55 70 63 61 73 | 65 20 72 65 67 69 6f 6e |"\.Upcas|e region|
|00000a00| 20 69 66 20 55 50 20 69 | 73 20 74 2c 20 64 6f 77 | if UP i|s t, dow|
|00000a10| 6e 63 61 73 65 2c 20 69 | 66 20 55 50 20 64 6f 77 |ncase, i|f UP dow|
|00000a20| 6e 63 61 73 65 20 72 65 | 67 69 6f 6e 2c 0a 20 65 |ncase re|gion,. e|
|00000a30| 78 63 6c 75 64 69 6e 67 | 20 63 6f 6d 6d 65 6e 74 |xcluding| comment|
|00000a40| 20 6c 69 6e 65 73 20 61 | 6e 64 20 61 6e 79 74 68 | lines a|nd anyth|
|00000a50| 69 6e 67 20 62 65 74 77 | 65 65 6e 20 71 75 6f 74 |ing betw|een quot|
|00000a60| 65 20 6d 61 72 6b 73 2e | 22 5d 29 0a 28 66 73 65 |e marks.|"]).(fse|
|00000a70| 74 20 27 69 6e 73 69 64 | 65 2d 72 65 20 23 5b 28 |t 'insid|e-re #[(|
|00000a80| 73 74 61 72 74 2d 72 65 | 20 65 6e 64 2d 72 65 29 |start-re| end-re)|
|00000a90| 20 22 c0 89 19 1a 8a c3 | 79 88 60 12 c0 7f 88 60 | "......|y.`....`|
|00000aa0| 11 29 8a c4 0d 5c 6e c6 | 23 29 ad 8b 8a c7 0e 08 |.)...\n.|#)......|
|00000ab0| 09 c6 23 29 ad 81 c6 2a | 87 22 20 5b 6e 69 6c 20 |..#)...*|." [nil |
|00000ac0| 65 6e 64 2d 6c 69 6e 65 | 20 73 74 61 72 74 2d 6c |end-line| start-l|
|00000ad0| 69 6e 65 20 30 20 72 65 | 2d 73 65 61 72 63 68 2d |ine 0 re|-search-|
|00000ae0| 62 61 63 6b 77 61 72 64 | 20 73 74 61 72 74 2d 72 |backward| start-r|
|00000af0| 65 20 74 20 72 65 2d 73 | 65 61 72 63 68 2d 66 6f |e t re-s|earch-fo|
|00000b00| 72 77 61 72 64 20 65 6e | 64 2d 72 65 5d 20 34 20 |rward en|d-re] 4 |
|00000b10| 22 5c 0a 52 65 74 75 72 | 6e 73 20 74 20 69 66 20 |"\.Retur|ns t if |
|00000b20| 69 6e 73 69 64 65 20 61 | 20 73 74 61 72 74 69 6e |inside a| startin|
|00000b30| 67 20 72 65 67 65 78 70 | 20 61 6e 64 20 61 6e 20 |g regexp| and an |
|00000b40| 65 6e 64 69 6e 67 20 72 | 65 67 65 78 70 0a 6f 6e |ending r|egexp.on|
|00000b50| 20 74 68 65 20 73 61 6d | 65 20 6c 69 6e 65 2e 22 | the sam|e line."|
|00000b60| 20 22 73 22 5d 29 0a 28 | 66 73 65 74 20 27 66 6f | "s"]).(|fset 'fo|
|00000b70| 72 74 72 61 6e 2d 62 65 | 61 75 74 69 66 79 2d 73 |rtran-be|autify-s|
|00000b80| 75 62 70 72 6f 67 72 61 | 6d 20 23 5b 28 26 6f 70 |ubprogra|m #[(&op|
|00000b90| 74 69 6f 6e 61 6c 20 64 | 6f 77 6e 69 74 29 20 22 |tional d|ownit) "|
|00000ba0| 8a c0 20 88 c1 c2 21 88 | c3 60 c4 20 0d 23 88 29 |.. ...!.|.`. .#.)|
|00000bb0| c1 c6 21 87 22 20 5b 6d | 61 72 6b 2d 66 6f 72 74 |..!." [m|ark-fort|
|00000bc0| 72 61 6e 2d 73 75 62 70 | 72 6f 67 72 61 6d 20 6d |ran-subp|rogram m|
|00000bd0| 65 73 73 61 67 65 20 22 | 42 65 61 75 74 69 66 79 |essage "|Beautify|
|00000be0| 69 6e 67 20 73 75 62 70 | 72 6f 67 72 61 6d 2e 2e |ing subp|rogram..|
|00000bf0| 2e 22 20 66 6f 72 74 72 | 61 6e 2d 62 65 61 75 74 |." fortr|an-beaut|
|00000c00| 69 66 79 2d 72 65 67 69 | 6f 6e 20 6d 61 72 6b 20 |ify-regi|on mark |
|00000c10| 64 6f 77 6e 69 74 20 22 | 42 65 61 75 74 69 66 79 |downit "|Beautify|
|00000c20| 20 73 75 62 70 72 6f 67 | 72 61 6d 2e 2e 2e 64 6f | subprog|ram...do|
|00000c30| 6e 65 2e 22 5d 20 34 20 | 22 5c 0a 42 65 61 75 74 |ne."] 4 |"\.Beaut|
|00000c40| 69 66 79 20 46 6f 72 74 | 72 61 6e 20 73 75 62 70 |ify Fort|ran subp|
|00000c50| 72 6f 67 72 61 6d 3a 0a | 31 29 20 52 65 6d 6f 76 |rogram:.|1) Remov|
|00000c60| 65 20 74 72 61 69 6c 69 | 6e 67 20 62 6c 61 6e 6b |e traili|ng blank|
|00000c70| 73 2e 0a 32 29 20 52 65 | 70 6c 61 63 65 20 61 6c |s..2) Re|place al|
|00000c80| 6c 20 63 6f 6e 74 69 6e | 75 61 74 69 6f 6e 20 63 |l contin|uation c|
|00000c90| 68 61 72 61 63 74 65 72 | 73 20 77 69 74 68 20 66 |haracter|s with f|
|00000ca0| 6f 72 74 72 61 6e 2d 63 | 6f 6e 74 69 6e 75 61 74 |ortran-c|ontinuat|
|00000cb0| 69 6f 6e 2d 63 68 61 72 | 2e 0a 33 29 20 52 65 70 |ion-char|..3) Rep|
|00000cc0| 6c 61 63 65 20 61 6c 6c | 20 65 6d 70 74 79 20 63 |lace all| empty c|
|00000cd0| 6f 6d 6d 65 6e 74 20 6c | 69 6e 65 73 20 77 69 74 |omment l|ines wit|
|00000ce0| 68 20 62 6c 61 6e 6b 20 | 6c 69 6e 65 73 2e 0a 34 |h blank |lines..4|
|00000cf0| 29 20 52 65 70 6c 61 63 | 65 20 61 6c 6c 20 6d 75 |) Replac|e all mu|
|00000d00| 6c 74 69 70 6c 65 20 62 | 6c 61 6e 6b 20 6c 69 6e |ltiple b|lank lin|
|00000d10| 65 73 20 77 69 74 68 20 | 6f 6e 65 20 62 6c 61 6e |es with |one blan|
|00000d20| 6b 20 6c 69 6e 65 2e 0a | 35 29 20 49 6e 64 65 6e |k line..|5) Inden|
|00000d30| 74 2e 0a 36 29 20 57 69 | 74 68 20 70 72 65 66 69 |t..6) Wi|th prefi|
|00000d40| 78 20 61 72 67 2c 20 64 | 6f 77 6e 63 61 73 65 20 |x arg, d|owncase |
|00000d50| 74 68 65 20 73 75 62 70 | 72 6f 67 72 61 6d 2c 20 |the subp|rogram, |
|00000d60| 61 76 6f 69 64 69 6e 67 | 20 63 6f 6d 6d 65 6e 74 |avoiding| comment|
|00000d70| 73 20 61 6e 64 0a 71 75 | 6f 74 65 64 20 73 74 72 |s and.qu|oted str|
|00000d80| 69 6e 67 73 2e 22 20 22 | 50 22 5d 29 0a 28 66 73 |ings." "|P"]).(fs|
|00000d90| 65 74 20 27 66 6f 72 74 | 72 61 6e 2d 62 65 61 75 |et 'fort|ran-beau|
|00000da0| 74 69 66 79 2d 72 65 67 | 69 6f 6e 20 23 5b 28 73 |tify-reg|ion #[(s|
|00000db0| 74 61 72 74 20 65 6e 64 | 20 26 6f 70 74 69 6f 6e |tart end| &option|
|00000dc0| 61 6c 20 64 6f 77 6e 69 | 74 29 20 22 8a 8c c0 20 |al downi|t) "... |
|00000dd0| c0 20 19 89 1a 0b c4 93 | 88 09 0d c4 93 88 c6 0b |. ......|........|
|00000de0| 0d c4 23 88 5c 6e 09 7d | 88 65 62 88 c7 c8 c9 c4 |..#.\n.}|.eb.....|
|00000df0| ca c4 25 88 65 62 88 c7 | cb 0e 0c cd 51 ce 0e 0c |..%.eb..|....Q...|
|00000e00| 50 c4 ca c4 25 88 65 62 | 88 c7 cf c9 c4 ca c4 25 |P...%.eb|.......%|
|00000e10| 88 65 62 88 c7 d0 d1 c4 | ca c4 25 88 0e 12 ad 84 |.eb.....|..%.....|
|00000e20| d3 65 64 5c 22 2c 87 22 | 20 5b 6d 61 6b 65 2d 6d |.ed\",."| [make-m|
|00000e30| 61 72 6b 65 72 20 6d 32 | 20 6d 31 20 73 74 61 72 |arker m2| m1 star|
|00000e40| 74 20 6e 69 6c 20 65 6e | 64 20 69 6e 64 65 6e 74 |t nil en|d indent|
|00000e50| 2d 72 65 67 69 6f 6e 20 | 70 65 72 66 6f 72 6d 2d |-region |perform-|
|00000e60| 72 65 70 6c 61 63 65 20 | 22 5b 20 09 5d 2b 24 22 |replace |"[ .]+$"|
|00000e70| 20 22 22 20 74 20 22 5e | 20 20 20 20 20 5b 5e 20 | "" t "^|     [^ |
|00000e80| 22 20 66 6f 72 74 72 61 | 6e 2d 63 6f 6e 74 69 6e |" fortra|n-contin|
|00000e90| 75 61 74 69 6f 6e 2d 73 | 74 72 69 6e 67 20 22 5d |uation-s|tring "]|
|00000ea0| 22 20 22 20 20 20 20 20 | 22 20 22 5e 5b 63 43 5d |" "     |" "^[cC]|
|00000eb0| 5b 20 09 5d 2a 24 22 20 | 22 5c 6e 5c 6e 5c 6e 2b |[ .]*$" |"\n\n\n+|
|00000ec0| 22 20 22 5c 6e 5c 6e 22 | 20 64 6f 77 6e 69 74 20 |" "\n\n"| downit |
|00000ed0| 66 6f 72 74 72 61 6e 2d | 64 6f 77 6e 63 61 73 65 |fortran-|downcase|
|00000ee0| 2d 72 65 67 69 6f 6e 5d | 20 37 20 22 5c 0a 42 65 |-region]| 7 "\.Be|
|00000ef0| 61 75 74 69 66 79 20 72 | 65 67 69 6f 6e 20 69 6e |autify r|egion in|
|00000f00| 20 61 20 46 6f 72 74 72 | 61 6e 20 70 72 6f 67 72 | a Fortr|an progr|
|00000f10| 61 6d 3a 0a 31 29 20 52 | 65 6d 6f 76 65 20 74 72 |am:.1) R|emove tr|
|00000f20| 61 69 6c 69 6e 67 20 62 | 6c 61 6e 6b 73 2e 0a 32 |ailing b|lanks..2|
|00000f30| 29 20 52 65 70 6c 61 63 | 65 20 61 6c 6c 20 63 6f |) Replac|e all co|
|00000f40| 6e 74 69 6e 75 61 74 69 | 6f 6e 20 63 68 61 72 61 |ntinuati|on chara|
|00000f50| 63 74 65 72 73 20 77 69 | 74 68 20 66 6f 72 74 72 |cters wi|th fortr|
|00000f60| 61 6e 2d 63 6f 6e 74 69 | 6e 75 61 74 69 6f 6e 2d |an-conti|nuation-|
|00000f70| 63 68 61 72 2e 0a 33 29 | 20 52 65 70 6c 61 63 65 |char..3)| Replace|
|00000f80| 20 61 6c 6c 20 65 6d 70 | 74 79 20 63 6f 6d 6d 65 | all emp|ty comme|
|00000f90| 6e 74 20 6c 69 6e 65 73 | 20 77 69 74 68 20 62 6c |nt lines| with bl|
|00000fa0| 61 6e 6b 20 6c 69 6e 65 | 73 2e 0a 34 29 20 52 65 |ank line|s..4) Re|
|00000fb0| 70 6c 61 63 65 20 61 6c | 6c 20 6d 75 6c 74 69 70 |place al|l multip|
|00000fc0| 6c 65 20 62 6c 61 6e 6b | 20 6c 69 6e 65 73 20 77 |le blank| lines w|
|00000fd0| 69 74 68 20 6f 6e 65 20 | 62 6c 61 6e 6b 20 6c 69 |ith one |blank li|
|00000fe0| 6e 65 2e 0a 35 29 20 49 | 6e 64 65 6e 74 2e 0a 36 |ne..5) I|ndent..6|
|00000ff0| 29 20 57 69 74 68 20 70 | 72 65 66 69 78 20 61 72 |) With p|refix ar|
|00001000| 67 2c 20 64 6f 77 6e 63 | 61 73 65 20 74 68 65 20 |g, downc|ase the |
|00001010| 72 65 67 69 6f 6e 2c 20 | 61 76 6f 69 64 69 6e 67 |region, |avoiding|
|00001020| 20 63 6f 6d 6d 65 6e 74 | 73 20 61 6e 64 0a 20 71 | comment|s and. q|
|00001030| 75 6f 74 65 64 20 73 74 | 72 69 6e 67 73 2e 22 20 |uoted st|rings." |
|00001040| 22 72 5c 6e 50 22 5d 29 | 0a                      |"r\nP"])|.       |
+--------+-------------------------+-------------------------+--------+--------+