ふとこんなののことを思い出しました。
　コメントもオリジナルです。「$」の使い方が教育的ですね。
　FGALAPだと思います。

======== cplate.def (v1.00) ========
;127/376   NBH01153  BANT-iT           c.mos氏のＣ言語テンプレート・マクロ
;(12)   91/04/18 01:23
  
* M マクロ
  
50 [CR] "{..}"
        ?.
;       (fe<4||fe>5)?.                  ; 拡張子の判定
        #s (cd!='{') #d ?{ #m . }
        #m '}' #n #21
  
51 \[TAB] "Ｃテンプレート"
        ?.
;       (fe<4||fe>5)?.
        #s c=cd, #d
        &f(c,"iewfscrd") (r<0)? .
        p=$, p.8=c, >i                  ; こういう手もあるわけやね
:i      "f ()" #s .
:e      "lse" .
:w      "hile ()" #s .
:f      "or ()" #s .
:s      "witch ()" #s .
:c      "ase:" .
:r      "eturn" .
:d      "o {" #m "} while();" #n #21 .
  
*
======== End of cplate.def ========