github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-02-02 15:01:04 +00:00
Code Issues Releases Wiki Activity

C mode for EMACS.

Browse Source
This commit is contained in:
Lars Brinkhoff
2017-01-27 11:05:13 +01:00
parent 77ca595bd8
commit d352dc2e17
2 changed files with 161 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

159
src/emacs1/c.1 Executable file
View File

@@ -0,0 +1,159 @@
!* -*-TECO-*- !
!~Filename~:! !Functions for editing C code.!
C
!& Setup C Library:! !S Set up the C ..D table.!
m.vC_..D !* Define ..D for C Mode.!
[..O FSBCREATE G..D
[0 0U0<Q0*5+1JFA%0-200.;> ]0 !* Make all Alphabetic!
(*5+1JF(
[*5+1JF(
<*5+1JF_ !* angle brackets are like space!
{*5+1JF(
)*5+1JF)
]*5+1JF)
>*5+1JF_
}*5+1JF)
$*5+1JF/ !* dollar sign quotes!
"*5+1JF|
11.*5+1JF_ !* Tab!
12.*5+1JF_ !* LF!
14.*5+1JF_ !* FF!
15.*5+1JF_ !* CR!
40.*5+1JF_ !* Space!
=*5+1JF_ !* = breaks!
'*5+1JF| !* ' is a string delimiter!
.*5+1JF_
,*5+1JF_
41.*5+1JF'
%*5+1JF'
;*5+1JF'
:*5+1JF_
HXC_..D

!^R C Syntax Checker:! !^R Check the syntax of a buffer of C code.
Normally checks the entire buffer. Given an argument, checks
from . to Z. Checks for balanced braces, brackets, quotes, etc.
Does not check things like arg list syntax.!
1:<
:I*Cfs echo disp
@FTSyntax_checking
FF"E J' !* Beginning of buffer if no arg!
[0[1[2[3[4[5[6[7
:I7[null] !* default bracket name !
1:< -1F[NOQUITW !* make sure ctrl-G enabled!
!TOP! .U3 0U2 [3 [2
!AGAIN! :S{(["/*'])}U1 .U0
Q1"E ]2 ]3 Q2"E OWIN' OUNM' !*No more braces, so win if stack empty!
0,-1A-$"E OAGAIN' !* $ quotes chars; if no quote, then decide if open!
0,-1A-^"E 0,-2A-$"E OAGAIN' ' !* handle $^[ and such!
Q1+5U1
Q1"E :S*/"E OUNM' !* flush comments!
"#OAGAIN' '
Q1-1"G [0 [1 OAGAIN' !* Open bracket!
Q1+1"L ]2 ]3 Q2"E OXTRA' !* close bracket, match??!
Q1+Q2"N OMISM'
0,0AU4
Q4-]"N Q4-}"N OAGAIN' ' !* Special hacking for braces!
.U4 Q3J q7U5 q7U6
:S"E ORCHK' Q3-.+1"E ORCHK' !* go to rchk if unnamed brace!
Q3,.-1X5 !* name of this bracket!
!RCHK! Q4J
:S"E ZJ'
"# R'
Q4-."E Q5-q7"E Q4J OAGAIN'
OAGAIN'
Q4,.X6 !name of close!
F=56"N OAGAIN' Q4J OAGAIN '
.U3 Q1-1"E m(m.m&_find_dq)"E OUNM' OAGAIN '
Q1+1"E m(m.m&_find_sq)"E OUNM' OAGAIN '
!MISM! 7FSIMAGE 0,Q3-.A:I2 0,Q0-.A:I1 :I*Cfs echo disp
@ft2_Mismatched_by_1 
q0j
m(m.m^r_set/pop_mark)
Q3-1J 0;
!UNM! 7FSIMAGE 0,Q3-.A:I2
:I*Cfs echo disp
@ft2_Unmatched_
q0j
m(m.m^r_set/pop_mark)
Q3-1J 0;
!NUNM! 7FSIMAGE
Q5"E Q7U5' Q6"E Q7U6' 0,Q3-.A:I2
:I*Cfsecho disp
@ftNamed_braces_5_and_6_unmatched_
q4j
m(m.m^r_set/pop_mark)
Q3-1J 0;
!XTRA! 7FSIMAGE 0,0A:I2
:I*Cfsecho disp
@ft2_Extraneous 
R .u0
Q3-1j
m(m.m^r_set/pop_mark)
q0j 0;
!WIN! :I*Cfsecho disp
@ftSyntax_Correct_>U0
Q0F"L-^FEQIT"E <FIF;>''
>
0fsecho act
1
!& find dq:! !S Search for double quote to end C string!
[0 :i0"
M(m.m&_FIND_END)
!& find sq:! !S Search for single quote to end C string!
[0 :i0'
M(m.m&_FIND_END)
!& find end:! !S Find end of C string.!
[1 :s0
U1 !* look for lf, eot, or terminator!
Q1"E 0' !* aint nothing here!
Q1+2"E 0' !* linefeed!
-1 !* guess i found it!
!C Mode:! !C Setup things for editting C code.
Like Text mode, but uses C syntax. Also makes the following
command character assignments:
C-M-D ^R Down List
C-M-K ^R Kill Sexp
C-M-S ^R C Syntax Checker!
M(M.M Text_Mode)
M.M Make_Local_Q-register[.Q
M.Q ...D
M.Q ...K
M.Q ...S
M.M ^R_Down_ListU...D !* Please leave for CCA and friends!
M.M ^R_Kill_SexpU...K !* Ditto!
M.M ^R_C_Syntax_CheckerU...S
M.M^R_Indent_Nested M.Q I !* make tab indent nested.!
:@I*/ -1M(M.M^R_Indent_Nested) / M.Q ...I !* indent more.!
:@I*/ I} 2M(M.M^R_Indent_Nested) / M.Q } !* undent.!
4 M.L Indent_Increment 
M.Q ..D
qC_..DU..D !* Set up ..D properly!
(@:I*\/*\)M.L Comment_Start
-1M.VDisplay_Matching_Paren
0M.VPermit_Unmatched_Paren
(@:I*\/*_\)M.L Comment_Begin
(@:I*\_*/\)M.L Comment_End
40 M.L Comment_Column
(@:I*\sys:cc.exe.0\)M.L Compiler_Filename
1M(M.M &_Set_Mode_Line)C