コード例 #1
0
ファイル: ws.c プロジェクト: PlanetAPL/j-language 
A jtspella(J jt,A w){C c,s[3];V*v;
 RZ(w);
 v=VAV(w); c=v->id;
 if(c==CFCONS)R over(thorn1(v->h),chr[':']); 
 spellit(c,s); 
 R str(s[2]?3L:s[1]?2L:1L,s);
}
コード例 #2
0
ファイル: d.c プロジェクト: zeotrope/j7-src 
static void dspell(C id){C c,s[3];
 s[2]=0;
 spellit(id,s);
 c=s[0]; if(c==CESC1||c==CESC2||nflag&&CA==ctype[c])jputc(' ');
 jputs(s);
}
コード例 #3
0
ファイル: ws.c プロジェクト: PlanetAPL/j-language 
A jtspellout(J jt,C c){C s[3]; spellit(c,s); R str(s[2]?3L:s[1]?2L:1L,s);}