![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to cc_list CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv9 / cmd / emacs / macros|
Return to cc_list CVS log | Up to [Research Unix] / researchv9 / cmd / emacs / macros |
1.1 ! root 1: L Compiler and list interface (arg>1 file list), (arg<1 manual pages) ! 2: ! 3: C. Douglas Blewett (MH3-C-319) Version 4 ! 4: ! 5: Interface routines ! 6: ! 7: ^XL - the main mono-lith - controls editing ! 8: lists of files ! 9: ^X^@ - Creates a stored "default" command ! 10: - like make or cc -o ... ! 11: ^X^_ - "default" command - returns the command ! 12: on the kill stack ! 13: ! 14: Compiler and list interface routine. This routine, ^XL, ! 15: prompts for a compiler command (i.e. cc or make), runs it, ! 16: and catches the output. If line numbers are present in ! 17: the output, the routine will position to the correct line. ! 18: Three formats can be handled by this routine. ! 19: ! 20: "filename.c", line 23: etc. ! 21: or ! 22: filename.c: 23: etc. ! 23: or ! 24: filename.c ! 25: ! 26: The last format is typical ls stuff. ! 27: ! 28: ^XL with an argument < 1 the routine prompts for a manual ! 29: page specification and searches the known directories for ! 30: manual pages. ! 31: ! 32: ^XL with an argument > 1 the routine prompts for a file ! 33: specification and searches using an "ls -d file_spec" ! 34: ! 35: SPECIAL STUFF FOR DEFAULT COMMANDS: WARNING creates a ! 36: new routine. ! 37: ! 38: This routine, ^XL, when used as a compiler interface ! 39: calls ^X^_ to detemine what command to issue. ^X^_ ! 40: can be setup to return a default command (rather than ! 41: prompting the user) by running the ^X^@ command. ^X^@ ! 42: actually creates a new macro for ^X^_. It isn't LISP, ! 43: but it works. ! 44: ! 45: The compiler interface (arg == 1) reads files in using ! 46: ^X^F. No attempt is made to garbage collect buffers. ! 47: This does not pose a real problem, because emacs places ! 48: the user in the buffer .list when this happens. At that ! 49: point the user can use ^X^K to remove un-needed buffers. ! 50: ^X^F is used instead of ^X^R because it is very likely ! 51: with compiles that the user already has the file in a ! 52: buffer and may want to keep it there (and current). ! 53: ! 54: The list (arg > 1) and manual page (arg < 1) facility ! 55: use the buffer .list to read files using ^X^R. These ! 56: routines more or less automatically garbage collect ! 57: buffer space. ! 58: ! 59: 1 ! 60: 2�1 TRUE = 1 ! 61: ^�4~2 0 Loop forever through execute requests ! 62: 2�0 ! 63: B Get the stored or interactive string ! 64: |� Check for man ! 65: �2~ 1 Arg < 1 manual pages list ! 66: <List of manual pages ? ! 67: � ! 68: �3~ 1 Arg > 1 ls -d of files list ! 69: <List of files ? ! 70: � ! 71: � Arg == 1 compiler list ! 72: ! 73: � ! 74: � ! 75: 0>< ! 76: |� Input Conditional ! 77: �& Check for Null string ! 78: -< ! 79: �0 Zero == FALSE ! 80: � Null Check End ! 81: � Default ! 82: <.exec ! 83: Move to .exec ! 84: 6�0=7�1= Current pos. ! 85: 8�0=9�1= Save the mark ! 86: � Meta Moon ! 87: 5�0= Save the eoB ! 88: |� Check for man ! 89: �3~ 1 Arg > 1 ls list ! 90: exec /bin/ls -d ! 91: <usilent ! 92: � ! 93: � ! 94: �2~ 1 Arg < 1 manual list ! 95: exec ls -d /usr/man/man?/.* /usr/man/local/man?/.* ! 96: <usilent ! 97: � ! 98: � ! 99: � ! 100: ! 101: � ! 102: � ! 103: -& � Execute the command ! 104: |� ! 105: �4~ 1 Arg != 1 ls list ! 106: <usilent ! 107: ! 108: �1 TRUE = 1 ! 109: � ! 110: � ! 111: !�-<List: Enter "e" to edit the list, "x" to re-eXecute, or Press Return to Quit ! 112: �s Shell escape ! 113: s ! 114: 2�0 ! 115: �0 Zero == FALSE ! 116: � ! 117: �x Execute ! 118: 2�1 ! 119: �0 Zero == FALSE ! 120: � ! 121: �e Edit ! 122: �1 TRUE = 1 ! 123: � ! 124: �� Quit ! 125: �0 Zero == FALSE ! 126: 2�0 ! 127: � ! 128: � Edit End ! 129: � ! 130: � ! 131: |� Check for Edit ! 132: �4~ 1 ! 133: 5 �-��-6 �7 � ! 134: 8 �9 Reset point ! 135: ! 136: � ! 137: � ! 138: 5 �& ! 139: <: ! 140: |� Fix up plain lists ! 141: �� ! 142: � ! 143: � ! 144: � ! 145: 3�11~5 3 ! 146: ^�5~0=3 ! 147: : 1: ! 148: ! 149: � ! 150: � ! 151: � ! 152: <.list ! 153: 2 Begin processing ! 154: 5 �& ! 155: �_LIST_EDIT ! 156: ^�4~ 0 ! 157: &<: ! 158: ^�� Loop through filenames ! 159: & ! 160: 0<Wait ! 161: 0 ! 162: & Type of error message ! 163: <" ! 164: |� ! 165: �& Standard ! 166: �<" ! 167: � ! 168: � ! 169: � Pre-processor? ! 170: �<: ! 171: � ! 172: � ! 173: � ! 174: ! 175: <: ! 176: ��� Get the Number ! 177: - 3�0 ! 178: ^� Warren's TO_DECIMAL ! 179: 3�11~13~103 12~�0 Next digit ! 180: - ! 181: � ! 182: - ! 183: & ! 184: 1 ! 185: <.exec ! 186: ! 187: <.list ! 188: 2 ! 189: |� ! 190: �3~3 3600 ! 191: 3�0 ! 192: � ! 193: � ! 194: |� ! 195: �5~3 1 ! 196: |� ! 197: �4~ 1 ! 198: Lists ! 199: � ! 200: � ! 201: Compiles ! 202: � ! 203: � ! 204: �3 � Go to the line ! 205: 0<Editing a List: Enter ^Z to move to the next entry ! 206: 0 Print "List" ! 207: Edit the file ! 208: � ! 209: � ! 210: - ! 211: 0<Line number less than 1 or greater than 3600 ! 212: 2 ! 213: <.exec ! 214: ! 215: ! 216: � ! 217: � ! 218: 1 ! 219: <.exec ! 220: ! 221: <.list ! 222: 2 ! 223: Move back ! 224: & ! 225: �_LIST_EDIT ! 226: &<: ! 227: � ! 228: 5 �&�0 ! 229: !�-<End of List: Enter "r" to Rewind, "x" to re-eXecute, or Press Return to Quit ! 230: �r Rewind ! 231: 0<Rewinding ! 232: 0 ! 233: �_LIST_EDIT ! 234: � ! 235: �s Shell escape ! 236: s ! 237: �_LIST_EDIT ! 238: � ! 239: �x Execute ! 240: 2�1 ! 241: �0 Zero == FALSE ! 242: � ! 243: �� Quit ! 244: �0 Zero == FALSE ! 245: � ! 246: � Rewind End ! 247: � Forever End ! 248: 5 �-��-6 �7 � ! 249: 8 �9 Reset point and mark ! 250: Cleanup and Move back ! 251: <.list ! 252: ! 253: � ! 254: � ! 255: � Default End ! 256: � Input Conditional End ! 257: � ! 258: 0< ! 259: 0 Cleanup of messages ! 260: ! 261: _LIST_EDIT ! 262: � ! 263: 0 ! 264: 0<Move the cursor to the line of interest and enter ^Z ! 265: ! 266: ! 267: Setup a stored command for the ^XL command ! 268: ! 269: This routine contructs a new ^X^_ routine. This allows the ^XL routine ! 270: to use a standard default - this is very helpful for repeated compiles. ! 271: If this routine, ^X^@, is given a null line no string is stored. Instead ! 272: the new routine will prompt for the input string. ! 273: ! 274: B<Command to be Stored (e.g. cc file.c, make, or ls) ? ! 275: 0> ! 276: < ! 277: |� ! 278: �& ! 279: - ! 280: <... ! 281: Insert the program ^X^_ ! 282: 034�Compile_command_string012� ! 283: <Command (e.g. cc file.c, make, or ls) ?012� ! 284: 032� ! 285: 012� ! 286: � ! 287: � ! 288: <... ! 289: Insert the program ^X^_ ! 290: 034�Compile_command_string012� ! 291: B<.exec012�012� ! 292: & --%032� ! 293: 012� ! 294: -� ! 295: <[ ] ! 296: ^�� ! 297: 021� ! 298: <[ ] ! 299: � ! 300: � ! 301: � Null Check End ! 302: dB% ! 303: ! 304: Default string routine for ^XC ! 305: ! 306: This routine is re-constructed when ^X^@ is run ! 307: ! 308: <Command (e.g. cc file.c, make, or ls) ? ! 309:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.