āĻāĻāĻŋ Fortc āĻāĻŽāĻžāĻ¨ā§āĻĄ āĻ¯āĻž āĻāĻŽāĻžāĻĻā§āĻ° āĻāĻāĻžāĻ§āĻŋāĻ āĻŦāĻŋāĻ¨āĻžāĻŽā§āĻ˛ā§āĻ¯ā§āĻ° āĻ āĻ¨āĻ˛āĻžāĻāĻ¨ āĻāĻ¯āĻŧāĻžāĻ°ā§āĻāĻ¸ā§āĻā§āĻļāĻ¨ āĻ¯ā§āĻŽāĻ¨ āĻāĻŦā§āĻ¨ā§āĻā§ āĻ āĻ¨āĻ˛āĻžāĻāĻ¨, āĻĢā§āĻĄā§āĻ°āĻž āĻ āĻ¨āĻ˛āĻžāĻāĻ¨, āĻāĻāĻ¨ā§āĻĄā§āĻ āĻ āĻ¨āĻ˛āĻžāĻāĻ¨ āĻāĻŽā§āĻ˛ā§āĻāĻ° āĻŦāĻž MAC OS āĻ āĻ¨āĻ˛āĻžāĻāĻ¨ āĻāĻŽā§āĻ˛ā§āĻāĻ° āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻāĻ°ā§ OnWorks āĻĢā§āĻ°āĻŋ āĻšā§āĻ¸ā§āĻāĻŋāĻ āĻĒā§āĻ°āĻĻāĻžāĻ¨āĻāĻžāĻ°ā§āĻ¤ā§ āĻāĻžāĻ˛āĻžāĻ¨ā§ āĻ¯ā§āĻ¤ā§ āĻĒāĻžāĻ°ā§āĨ¤
āĻāĻžāĻ°ā§āĻ¯āĻā§āĻ°āĻŽ:
NAME āĻāĻ°
fortc - fortran-āĻ¸āĻžāĻŽāĻā§āĻāĻ¸ā§āĻ¯āĻĒā§āĻ°ā§āĻŖ C āĻā§āĻĄ āĻ¤ā§āĻ°āĻŋ āĻāĻ°āĻ¤ā§ Unidata āĻāĻāĻāĻŋāĻ˛āĻŋāĻāĻŋ
āĻ¸āĻžāĻāĻ¨ā§āĻĒāĻŋāĻ¸āĻŋāĻ¸
fortc [-āĻāĻ˛ āĻ˛āĻŋāĻŦāĻĄāĻŋāĻ°] [-āĻ āĻ āĻĒāĻ¸āĻŋāĻ¸] āĻĢāĻžāĻāĻ˛
āĻŦāĻ°ā§āĻŖāĻ¨āĻžāĻ
fortc ` āĻĨā§āĻā§ āĻ¸āĻŋ āĻā§āĻĄ āĻĒāĻĄāĻŧā§āĻĢāĻžāĻāĻ˛', āĻāĻāĻŋāĻā§ FORTRAN āĻ¸āĻžāĻŽāĻā§āĻāĻ¸ā§āĻ¯āĻĒā§āĻ°ā§āĻŖ āĻā§āĻĄā§ āĻ°ā§āĻĒāĻžāĻ¨ā§āĻ¤āĻ°āĻŋāĻ¤ āĻāĻ°ā§ āĻāĻŦāĻ āĻ¤āĻžāĻ°āĻĒāĻ°ā§
āĻ¸ā§āĻā§āĻ¯āĻžāĻ¨ā§āĻĄāĻžāĻ°ā§āĻĄ āĻāĻāĻāĻĒā§āĻā§ āĻĢāĻ˛āĻžāĻĢāĻ˛ āĻ˛ā§āĻā§āĨ¤ āĻ°ā§āĻĒāĻžāĻ¨ā§āĻ¤āĻ°āĻāĻŋ āĻ āĻĒāĻžāĻ°ā§āĻāĻŋāĻ-āĻ¸āĻŋāĻ¸ā§āĻā§āĻŽ āĻ¨āĻŋāĻ°ā§āĻāĻ°
āĻāĻžāĻ°āĻŖ āĻāĻ āĻŦāĻŋāĻˇāĻ¯āĻŧā§ āĻā§āĻ¨ āĻŽāĻžāĻ¨ āĻ¨ā§āĻāĨ¤
āĻ˛āĻā§āĻˇā§āĻ¯ āĻ āĻĒāĻžāĻ°ā§āĻāĻŋāĻ-āĻ¸āĻŋāĻ¸ā§āĻā§āĻŽ āĻŦāĻŋāĻāĻŋāĻ¨ā§āĻ¨ āĻāĻĒāĻžāĻ¯āĻŧā§ āĻ¨āĻŋāĻ°ā§āĻĻāĻŋāĻˇā§āĻ āĻāĻ°āĻž āĻ¯ā§āĻ¤ā§ āĻĒāĻžāĻ°ā§āĨ¤ āĻ¯āĻĻāĻŋ `-O' āĻŦāĻŋāĻāĻ˛ā§āĻĒ āĻšāĻ˛
āĻĻā§āĻāĻ¯āĻŧāĻž āĻšāĻ¯āĻŧ, āĻ¤āĻžāĻ°āĻĒāĻ° āĻ¤āĻžāĻ° āĻāĻ°ā§āĻā§āĻŽā§āĻ¨ā§āĻ āĻĻā§āĻŦāĻžāĻ°āĻž āĻ¨āĻŋāĻ°ā§āĻĻāĻŋāĻˇā§āĻ āĻ āĻĒāĻžāĻ°ā§āĻāĻŋāĻ-āĻ¸āĻŋāĻ¸ā§āĻā§āĻŽ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻāĻ°āĻž āĻšāĻ¯āĻŧ; āĻ āĻ¨ā§āĻ¯āĻĨāĻžāĻ¯āĻŧ, āĻ¯āĻĻāĻŋ
āĻĒāĻ°āĻŋāĻŦā§āĻļāĻāĻ¤ āĻĒāĻ°āĻŋāĻŦāĻ°ā§āĻ¤āĻ¨āĻļā§āĻ˛ `OS' āĻŦāĻŋāĻĻā§āĻ¯āĻŽāĻžāĻ¨, āĻ¤āĻžāĻ°āĻĒāĻ° āĻāĻāĻŋāĻ° āĻŽāĻžāĻ¨ āĻĻā§āĻŦāĻžāĻ°āĻž āĻ¨āĻŋāĻ°ā§āĻĻāĻŋāĻˇā§āĻ āĻ āĻĒāĻžāĻ°ā§āĻāĻŋāĻ-āĻ¸āĻŋāĻ¸ā§āĻā§āĻŽ
āĻŦā§āĻ¯āĻŦāĻšā§āĻ¤; āĻ āĻ¨ā§āĻ¯āĻĨāĻžāĻ¯āĻŧ, āĻĄāĻŋāĻĢāĻ˛ā§āĻ āĻ āĻĒāĻžāĻ°ā§āĻāĻŋāĻ-āĻ¸āĻŋāĻ¸ā§āĻā§āĻŽ -- āĻāĻ¨āĻ¸ā§āĻāĻ˛ā§āĻļāĻ¨ā§āĻ° āĻ¸āĻŽāĻ¯āĻŧ āĻ¨āĻŋāĻ°ā§āĻ§āĻžāĻ°āĻŋāĻ¤ -- āĻšāĻ¯āĻŧ
āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻāĻ°āĻž āĻšāĻ¯āĻŧā§āĻā§āĨ¤
āĻā§āĻ˛ā§āĻŦāĻžāĻ˛ āĻ¨āĻžāĻŽāĻā§āĻ˛āĻŋ āĻ¯ā§āĻā§āĻ˛āĻŋ āĻĢāĻžāĻāĻļāĻ¨ā§āĻ° āĻ¸āĻāĻā§āĻāĻž āĻ¨āĻ¯āĻŧ āĻāĻŋāĻ¨ā§āĻ¤ā§ āĻ¯ā§āĻā§āĻ˛āĻŋ āĻāĻāĻ¯āĻŧ āĻ¸āĻŋ āĻĨā§āĻā§ āĻ ā§āĻ¯āĻžāĻā§āĻ¸ā§āĻ¸āĻ¯ā§āĻā§āĻ¯
āĻāĻŦāĻ FORTRAN āĻāĻ° āĻĻā§āĻŦāĻžāĻ°āĻž āĻāĻŦāĻĻā§āĻ§ āĻšāĻāĻ¯āĻŧāĻž āĻāĻāĻŋāĻ¤FC_NAME()' āĻŽā§āĻ¯āĻžāĻā§āĻ°ā§:
extern int FC_NAME(foo)(void); /* FORTRAN āĻĢāĻžāĻāĻļāĻ¨ */
āĻŦāĻžāĻšā§āĻ¯āĻŋāĻ āĻāĻ āĻ¨ {
float f;
int i;
} FC_NAME(comblk); /* FORTRAN āĻ¸āĻžāĻ§āĻžāĻ°āĻŖ āĻŦā§āĻ˛āĻ */
cfoo()
{
FC_NAME(foo)(); /* FORTRAN āĻĢāĻžāĻāĻļāĻ¨ āĻāĻ˛ āĻāĻ°ā§āĻ¨ */
}
āĻ¸āĻŋ āĻĢāĻžāĻāĻļāĻ¨āĻā§āĻ˛āĻŋ āĻ¯āĻž FORTRAN āĻĨā§āĻā§ āĻāĻ˛ āĻāĻ°āĻž āĻšāĻ¯āĻŧ āĻ¤āĻž āĻ¨āĻŋāĻŽā§āĻ¨āĻ°ā§āĻĒ āĻ˛ā§āĻāĻž āĻšāĻ¯āĻŧ:
āĻā§āĻ¨ int
/*āĻĢā§āĻ°āĻā§āĻ°āĻžāĻ¨*/
foo(
āĻ āĻā§āĻˇāĻ° āĻĒāĻĨā§āĻ° āĻ¨āĻžāĻŽ, /* āĻ¨āĻ¤ā§āĻ¨ āĻĢāĻžāĻāĻ˛ā§āĻ° āĻĢāĻžāĻāĻ˛ā§āĻ° āĻ¨āĻžāĻŽ */
āĻĒā§āĻ°āĻā§āĻ¤ āĻĒāĻ°āĻŋāĻŽāĻžāĻŖ, /* āĻĒāĻ°āĻŋāĻŽāĻžāĻŖ */
āĻĻā§āĻŦāĻŋāĻā§āĻŖ āĻ¨āĻŋāĻ°ā§āĻā§āĻ˛āĻ¤āĻž dbl, /* āĻĒāĻ°āĻŋāĻŽāĻžāĻŖ */
void āĻĢāĻžāĻāĻļāĻ¨ errf, /* āĻ¤ā§āĻ°ā§āĻāĻŋ āĻ°ā§āĻāĻŋāĻ¨ */
āĻĒā§āĻ°ā§āĻŖāĻ¸āĻāĻā§āĻ¯āĻž rcode /* āĻĢā§āĻ°āĻ¤ āĻ¤ā§āĻ°ā§āĻāĻŋ āĻā§āĻĄ */)
{
...
āĻŦāĻž, āĻ¸āĻŽāĻžāĻ¨āĻāĻžāĻŦā§,
āĻā§āĻ¨ int
/*āĻĢā§āĻ°āĻā§āĻ°āĻžāĻ¨*/
foo (char* āĻĒāĻĨā§āĻ° āĻ¨āĻžāĻŽ, float* āĻĒāĻ°āĻŋāĻŽāĻžāĻŖ, āĻĻā§āĻŦāĻŋāĻā§āĻŖ * dbl,
void (*errf)(), int* rcode)
{
...
FORTRAN-āĻ¸āĻžāĻŽāĻā§āĻāĻ¸ā§āĻ¯āĻĒā§āĻ°ā§āĻŖ āĻĢāĻžāĻāĻļāĻ¨ āĻ˛ā§āĻāĻžāĻ° āĻā§āĻˇā§āĻ¤ā§āĻ°ā§ āĻ¯ā§ āĻŦāĻŋāĻˇāĻ¯āĻŧāĻā§āĻ˛āĻŋ āĻ˛āĻā§āĻˇā§āĻ¯ āĻāĻ°āĻž āĻ¯āĻžāĻ¯āĻŧ āĻ¤āĻž āĻšāĻ˛:
1. āĻ°ā§āĻĒāĻžāĻ¨ā§āĻ¤āĻ°āĻŋāĻ¤ āĻāĻ°āĻžāĻ° āĻĢāĻžāĻāĻļāĻ¨āĻā§āĻ˛āĻŋ āĻāĻāĻāĻŋ āĻĒā§āĻ°āĻā§āĻ°āĻŋāĻ¯āĻŧāĻž āĻĻā§āĻŦāĻžāĻ°āĻž āĻāĻŋāĻšā§āĻ¨āĻŋāĻ¤ āĻāĻ°āĻž āĻšāĻ¯āĻŧ `/*āĻĢā§āĻ°āĻā§āĻ°āĻžāĻ¨*/' āĻŽāĻ¨ā§āĻ¤āĻŦā§āĻ¯, āĻ¯āĻž
āĻĢāĻžāĻāĻļāĻ¨ āĻ¨āĻžāĻŽā§āĻ° āĻāĻā§ āĻ˛āĻžāĻāĻ¨ā§ āĻāĻĒāĻ¸ā§āĻĨāĻŋāĻ¤ āĻšāĻ¤ā§ āĻšāĻŦā§āĨ¤ āĻā§āĻ¨ā§ āĻ°āĻŋāĻāĻžāĻ°ā§āĻ¨-āĻāĻžāĻāĻĒ āĻā§āĻˇāĻŖāĻž āĻāĻŦāĻļā§āĻ¯āĻ
āĻŽāĻ¨ā§āĻ¤āĻŦā§āĻ¯ āĻāĻāĻŋāĻ¯āĻŧā§ āĻ¯āĻžāĻ¨āĨ¤
2. āĻāĻ¨ā§āĻˇā§āĻ āĻžāĻ¨āĻŋāĻ āĻĒāĻ°āĻžāĻŽāĻŋāĻ¤āĻŋāĻā§āĻ˛āĻŋ āĻ āĻŦāĻļā§āĻ¯āĻ āĻĢāĻžāĻāĻļāĻ¨ āĻŦāĻ¨ā§āĻ§āĻ¨ā§āĻ° āĻŽāĻ§ā§āĻ¯ā§ āĻā§āĻˇāĻŖāĻž āĻāĻ°āĻ¤ā§ āĻšāĻŦā§ āĻāĻŦāĻ āĻāĻ° āĻĻā§āĻŦāĻžāĻ°āĻž āĻāĻ˛āĻžāĻĻāĻž āĻāĻ°āĻ¤ā§ āĻšāĻŦā§
āĻāĻŽāĻž
3. āĻāĻ¨ā§āĻˇā§āĻ āĻžāĻ¨āĻŋāĻ āĻĒāĻ°āĻžāĻŽāĻŋāĻ¤āĻŋ āĻ¨āĻŋāĻŽā§āĻ¨āĻ˛āĻŋāĻāĻŋāĻ¤ āĻ§āĻ°āĻ¨ā§āĻ° āĻ¸ā§āĻŽāĻžāĻŦāĻĻā§āĻ§:
āĻāĻ°āĻŋāĻ¤ā§āĻ° or āĻāĻ°*
Fortran āĻ āĻā§āĻˇāĻ°-āĻā§āĻ°āĻŋāĻ¯āĻŧā§āĻŦāĻ˛ā§āĻ° āĻāĻ¨ā§āĻ¯āĨ¤
āĻĻā§āĻŦāĻŋāĻā§āĻŖ āĻ¨āĻŋāĻ°ā§āĻā§āĻ˛āĻ¤āĻž or āĻĻā§āĻŦāĻŋāĻā§āĻŖ*"
āĻĻā§āĻŦāĻŋāĻā§āĻŖ-āĻ¨āĻŋāĻ°ā§āĻā§āĻ˛āĻ¤āĻž āĻĢā§āĻ˛ā§āĻāĻŋāĻ-āĻĒāĻ¯āĻŧā§āĻ¨ā§āĻ āĻŽāĻžāĻ¨āĻā§āĻ˛āĻŋāĻ° āĻāĻ¨ā§āĻ¯āĨ¤
āĻŦāĻžāĻ¸ā§āĻ¤āĻŦ or āĻāĻžāĻ¸āĻž*
āĻāĻāĻ-āĻ¨āĻŋāĻ°ā§āĻā§āĻ˛āĻ¤āĻž āĻĢā§āĻ˛ā§āĻāĻŋāĻ-āĻĒāĻ¯āĻŧā§āĻ¨ā§āĻ āĻŽāĻžāĻ¨āĻā§āĻ˛āĻŋāĻ° āĻāĻ¨ā§āĻ¯āĨ¤
āĻĒā§āĻ°ā§āĻŖāĻ¸āĻāĻā§āĻ¯āĻž or āĻāĻ¨āĻāĻŋ *
āĻĒā§āĻ°ā§āĻŖāĻ¸āĻāĻā§āĻ¯āĻž āĻŽāĻžāĻ¨ āĻāĻ¨ā§āĻ¯.
āĻāĻĻāĻ°ā§āĻļ āĻā§āĻ°āĻŋāĻ¯āĻŧāĻž āĻ¨āĻžāĻŽ or āĻāĻĻāĻ°ā§āĻļ (*āĻ¨āĻžāĻŽ)()
āĻĢāĻžāĻāĻļāĻ¨ āĻ°āĻŋāĻāĻžāĻ°ā§āĻ¨āĻŋāĻ āĻāĻžāĻāĻĒ āĻāĻ¨ā§āĻ¯ `āĻāĻĻāĻ°ā§āĻļ'.
4. āĻāĻĒā§āĻ¨āĻŋāĻ āĻŦā§āĻ°ā§āĻ¸, `{', āĻāĻŦāĻ āĻāĻāĻ āĻ˛āĻžāĻāĻ¨ā§āĻ° āĻĒāĻ°ā§ āĻā§āĻ°ā§āĻ¤ā§āĻŦāĻĒā§āĻ°ā§āĻŖ āĻāĻŋāĻā§ āĻĨāĻžāĻāĻŦā§ āĻ¨āĻžāĨ¤
āĻĢāĻžāĻāĻļāĻ¨āĻā§āĻ˛āĻŋ āĻĢāĻ°ā§āĻŽāĻžāĻ˛ā§āĻ° āĻŽāĻ¤ā§ āĻāĻāĻ āĻ¨āĻžāĻŽā§āĻ° āĻā§āĻ°āĻŋāĻ¯āĻŧā§āĻŦāĻ˛ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻāĻ°ā§ āĻ˛ā§āĻāĻž āĻāĻāĻŋāĻ¤
āĻĒāĻ°āĻžāĻŽāĻŋāĻ¤āĻŋ, āĻāĻŦāĻ āĻāĻāĻ āĻļāĻŦā§āĻĻāĻžāĻ°ā§āĻĨāĻŦāĻŋāĻĻā§āĻ¯āĻž āĻ¸āĻšāĨ¤ āĻāĻžāĻāĻĒā§āĻ° āĻĢāĻ°ā§āĻŽāĻžāĻ˛ āĻĒā§āĻ¯āĻžāĻ°āĻžāĻŽāĻŋāĻāĻžāĻ°ā§āĻ° āĻā§āĻˇā§āĻ¤ā§āĻ°ā§
`āĻāĻ°āĻŋāĻ¤ā§āĻ°' (āĻ āĻ°ā§āĻĨāĻžā§ āĻĢā§āĻ°āĻā§āĻ°āĻžāĻ¨ āĻā§āĻ¯āĻžāĻ°ā§āĻā§āĻāĻžāĻ°-āĻā§āĻ°āĻŋāĻ¯āĻŧā§āĻŦāĻ˛), āĻāĻāĻ āĻ¨āĻžāĻŽā§āĻ° āĻāĻāĻāĻŋ āĻā§āĻ°āĻŋāĻ¯āĻŧā§āĻŦāĻ˛ āĻĨāĻžāĻāĻŦā§
āĻāĻŦāĻ ` āĻāĻžāĻāĻĒā§āĻ° āĻšāĻŦā§āĻāĻ°*' āĻāĻĒāĻ°āĻ¨ā§āĻ¤ā§, āĻĒā§āĻ°āĻ¤āĻŋāĻāĻŋ āĻ āĻā§āĻˇāĻ°-āĻā§āĻ°āĻŋāĻ¯āĻŧā§āĻŦāĻ˛ āĻāĻ°ā§āĻā§āĻŽā§āĻ¨ā§āĻā§āĻ° āĻāĻ¨ā§āĻ¯, āĻāĻāĻāĻŋ āĻ¸ā§āĻĨāĻžāĻ¨ā§āĻ¯āĻŧ
integral āĻāĻžāĻāĻĒā§āĻ° āĻā§āĻ°āĻŋāĻ¯āĻŧā§āĻŦāĻ˛ āĻ¤ā§āĻ°āĻŋ āĻāĻ°āĻž āĻšāĻŦā§ āĻāĻŦāĻ āĻāĻ° āĻŽāĻžāĻ¨ āĻšāĻŦā§ āĻ¸āĻāĻļā§āĻ˛āĻŋāĻˇā§āĻā§āĻ° āĻāĻāĻžāĻ°
āĻāĻ°āĻŋāĻ¤ā§āĻ° āĻĒāĻ°āĻŋāĻŦāĻ°ā§āĻ¤āĻ¨āĻļā§āĻ˛ āĻāĻ āĻā§āĻ°āĻŋāĻ¯āĻŧā§āĻŦāĻ˛ā§āĻ° āĻ¨āĻžāĻŽ āĻšāĻŦā§ āĻ¸āĻāĻļā§āĻ˛āĻŋāĻˇā§āĻāĻĻā§āĻ° āĻ¨āĻžāĻŽ
"āĻāĻ° āĻ¸āĻžāĻĨā§ āĻ āĻā§āĻˇāĻ° āĻĒāĻ°āĻŋāĻŦāĻ°ā§āĻ¤āĻ¨āĻļā§āĻ˛_āĻ˛ā§āĻ¨"āĻ¸āĻāĻ¯ā§āĻā§āĻ¤ (āĻ¯ā§āĻŽāĻ¨"āĻĒāĻĨāĻ¨āĻžāĻŽ_āĻ˛ā§āĻ¨") āĻāĻ āĻĻā§āĻ°ā§āĻā§āĻ¯ āĻā§āĻ°āĻŋāĻ¯āĻŧā§āĻŦāĻ˛ āĻšāĻ¤ā§ āĻĒāĻžāĻ°ā§
āĻ āĻ¨ā§āĻ¯āĻžāĻ¨ā§āĻ¯ āĻā§āĻ°āĻŋāĻ¯āĻŧā§āĻŦāĻ˛ā§āĻ° āĻŽāĻ¤āĻ āĻĢāĻžāĻāĻļāĻ¨ā§ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻāĻ°āĻž āĻšāĻŦā§āĨ¤
āĻāĻĻāĻžāĻšāĻ°āĻŖāĻ¸ā§āĻŦāĻ°ā§āĻĒ, SunOS āĻāĻ° āĻ āĻ§ā§āĻ¨ā§ āĻĒā§āĻ°ā§āĻŦāĻŦāĻ°ā§āĻ¤ā§ āĻĢāĻžāĻāĻļāĻ¨āĻāĻŋ āĻšāĻ¯āĻŧā§ āĻ¯āĻžāĻŦā§ (āĻ¯āĻĻāĻŋ āĻāĻāĻŋ āĻ¤ā§ āĻĨāĻžāĻā§
āĻĢāĻžāĻāĻ˛ `foo.src'):
# āĻ˛āĻžāĻāĻ¨ 1 "foo.src"
āĻ¸ā§āĻŦāĻžāĻā§āĻˇāĻ°āĻŦāĻŋāĻšā§āĻ¨
# āĻ˛āĻžāĻāĻ¨ 2 "foo.src"
foo_(āĻĒāĻĨā§āĻ° āĻ¨āĻžāĻŽ, āĻĒāĻ°āĻŋāĻŽāĻžāĻŖ, errf, rcode, pathname_len)
char *āĻĒāĻĨā§āĻ° āĻ¨āĻžāĻŽ;
int pathname_len;
āĻāĻžāĻ¸āĻž * āĻĒāĻ°āĻŋāĻŽāĻžāĻŖ;
āĻ āĻāĻžāĻ°ā§āĻ¯āĻāĻ° (*errf)();
int *rcode;
{
# āĻ˛āĻžāĻāĻ¨ 9 "foo.src"
āĻāĻ˛ā§āĻ˛ā§āĻā§āĻ¯ āĻ¯ā§ 1) āĻĒā§āĻ°āĻŋāĻĒā§āĻ°āĻ¸ā§āĻ¸āĻ° āĻ˛āĻžāĻāĻ¨ āĻ¨āĻŋāĻ°ā§āĻĻā§āĻļāĻŋāĻāĻž āĻ¯ā§āĻ āĻāĻ°āĻž āĻšāĻ¯āĻŧā§āĻā§; 2) āĻĢāĻžāĻāĻļāĻ¨ā§āĻ° āĻ¨āĻžāĻŽ āĻšāĻ¯āĻŧā§āĻā§
āĻāĻāĻāĻŋ āĻāĻ¨ā§āĻĄāĻžāĻ°āĻ¸ā§āĻā§āĻ° āĻ¸āĻš āĻĒā§āĻ°āĻ¤ā§āĻ¯āĻ¯āĻŧ; āĻāĻŦāĻ 3) āĻāĻāĻāĻŋ āĻāĻ¨ā§āĻˇā§āĻ āĻžāĻ¨āĻŋāĻ āĻĒā§āĻ¯āĻžāĻ°āĻžāĻŽāĻŋāĻāĻžāĻ°, `āĻĒāĻĨāĻ¨āĻžāĻŽ_āĻ˛ā§āĻ¨', āĻ¤ā§āĻ°āĻŋ āĻāĻ°āĻž āĻšāĻ¯āĻŧā§āĻā§.
UNICOS āĻāĻ° āĻ āĻ§ā§āĻ¨ā§, āĻāĻāĻ āĻĢāĻžāĻāĻ˛ āĻšāĻ¯āĻŧā§ āĻ¯āĻžāĻŦā§
#āĻ āĻ¨ā§āĻ¤āĻ°ā§āĻā§āĻā§āĻ¤
# āĻ˛āĻžāĻāĻ¨ 1 "foo.src"
āĻ¸ā§āĻŦāĻžāĻā§āĻˇāĻ°āĻŦāĻŋāĻšā§āĻ¨
# āĻ˛āĻžāĻāĻ¨ 2 "foo.src"
FOO(āĻĒāĻžāĻĨāĻ¨āĻžāĻŽ, āĻĒāĻ°āĻŋāĻŽāĻžāĻŖ, errf, rcode)
_fcd āĻĒāĻĨāĻ¨āĻžāĻŽ;
āĻāĻžāĻ¸āĻž * āĻĒāĻ°āĻŋāĻŽāĻžāĻŖ;
āĻ āĻāĻžāĻ°ā§āĻ¯āĻāĻ° (*errf)();
int *rcode;
{
char *pathname = _fcdtocp (āĻĒāĻžāĻĨāĻ¨āĻžāĻŽ);
āĻ¸ā§āĻŦāĻžāĻā§āĻˇāĻ°āĻŦāĻŋāĻšā§āĻ¨ pathname_len = _fcdlen (āĻĒāĻžāĻĨāĻ¨āĻžāĻŽāĻ¯ā§āĻā§āĻ¤);
# āĻ˛āĻžāĻāĻ¨ 9 "foo.src"
āĻāĻ˛ā§āĻ˛ā§āĻā§āĻ¯, āĻŦāĻŋāĻļā§āĻˇ āĻāĻ°ā§, āĻ āĻ¤āĻŋāĻ°āĻŋāĻā§āĻ¤ `#āĻ āĻ¨ā§āĻ¤āĻ°ā§āĻā§āĻā§āĻ¤ ' āĻāĻŦāĻ āĻ¸ā§āĻˇā§āĻāĻŋ āĻāĻŦāĻ
āĻ¸ā§āĻĨāĻžāĻ¨ā§āĻ¯āĻŧ āĻā§āĻ°āĻŋāĻ¯āĻŧā§āĻŦāĻ˛ā§āĻ° āĻĒā§āĻ°āĻžāĻĨāĻŽāĻŋāĻāĻāĻ°āĻŖ `āĻĒāĻĨā§āĻ° āĻ¨āĻžāĻŽ' āĻāĻŦāĻ 'āĻĒāĻĨāĻ¨āĻžāĻŽ_āĻ˛ā§āĻ¨'.
āĻāĻ āĻāĻāĻāĻŋāĻ˛āĻŋāĻāĻŋ āĻāĻāĻāĻŋ āĻ¸ā§āĻā§āĻ°āĻŋāĻĒā§āĻ āĻšāĻŋāĻ¸āĻžāĻŦā§ āĻĒā§āĻ°āĻ¯āĻŧā§āĻ āĻāĻ°āĻž āĻšāĻ¯āĻŧ āĻāĻŦāĻ āĻ¸āĻŋāĻ¸ā§āĻā§āĻŽ āĻ¸āĻ°āĻŦāĻ°āĻžāĻšāĻā§āĻ¤ āĻāĻāĻāĻŋāĻ˛āĻŋāĻāĻŋ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻāĻ°ā§ āĻāĻŋāĻ¨ā§āĻ¤ā§(1) āĻāĻŦāĻ
m4(1).
āĻŦāĻŋāĻāĻ˛ā§āĻĒ
-L LibDir"
'fortc' āĻ˛āĻžāĻāĻŦā§āĻ°ā§āĻ°āĻŋ āĻĢāĻžāĻāĻ˛ āĻ§āĻžāĻ°āĻŖāĻāĻžāĻ°ā§ āĻĄāĻŋāĻ°ā§āĻā§āĻāĻ°āĻŋ āĻ¸āĻāĻā§āĻāĻžāĻ¯āĻŧāĻŋāĻ¤ āĻāĻ°ā§āĨ¤ āĻĄāĻŋāĻĢāĻ˛ā§āĻ āĻšāĻ¯āĻŧ
āĻāĻ¨āĻ¸ā§āĻāĻ˛ā§āĻļāĻ¨ā§āĻ° āĻ¸āĻŽāĻ¯āĻŧ āĻ¨āĻŋāĻ°ā§āĻ§āĻžāĻ°āĻŋāĻ¤ āĻšāĻ¯āĻŧāĨ¤
-O āĻ āĻĒāĻ¸āĻŋāĻ¸
āĻ āĻĒāĻžāĻ°ā§āĻāĻŋāĻ-āĻ¸āĻŋāĻ¸ā§āĻā§āĻŽ āĻšāĻŋāĻ¸āĻžāĻŦā§ āĻ¸āĻāĻā§āĻāĻžāĻ¯āĻŧāĻŋāĻ¤ āĻāĻ°ā§ āĻ āĻĒāĻ¸āĻŋāĻ¸. āĻĒāĻ°āĻŋāĻāĻŋāĻ¤ āĻŽāĻžāĻ¨āĻā§āĻ˛āĻŋāĻ° āĻŽāĻ§ā§āĻ¯ā§ āĻ°āĻ¯āĻŧā§āĻā§ `aix', `āĻāĻ¤ā§āĻ¤āĻ˛',
`āĻĄā§āĻŽā§āĻ¨ā§āĻ¸', `āĻāĻāĻāĻĒāĻžāĻā§āĻ¸', `āĻāĻ°āĻŋāĻā§āĻ¸', `āĻāĻŽāĻāĻ¸āĻĢā§āĻ', `āĻ¨ā§āĻā§āĻ¸āĻ-āĻ ā§āĻ¯āĻžāĻŦāĻ¸āĻĢā§āĻ', `āĻ¨āĻŋāĻāĻā§āĻ¸', `āĻ¸ā§āĻ¨ā§āĻ¸', `āĻāĻ˛ā§āĻā§āĻ°āĻŋāĻā§āĻ¸',
`unicos', āĻāĻŦāĻ `vms'āĨ¤ āĻŦā§āĻšāĻ¤ā§āĻ¤āĻ° āĻ¨āĻŽāĻ¨ā§āĻ¯āĻŧāĻ¤āĻžāĻ° āĻāĻ¨ā§āĻ¯, āĻĒāĻ°āĻŋāĻāĻŋāĻ¤ āĻŽāĻžāĻ¨ āĻĨāĻžāĻāĻ¤ā§ āĻĒāĻžāĻ°ā§
āĻ¯ā§āĻā§āĻ¨ā§ āĻĒā§āĻ°āĻ¤ā§āĻ¯āĻ¯āĻŧ (āĻ¯ā§āĻŽāĻ¨ `sunos_4.1')āĨ¤
āĻĒāĻ°āĻŋāĻŦā§āĻļ
OS āĻ āĻĒāĻžāĻ°ā§āĻāĻŋāĻ āĻ¸āĻŋāĻ¸ā§āĻā§āĻŽ āĻ¸āĻāĻā§āĻāĻžāĻ¯āĻŧāĻŋāĻ¤ āĻāĻ°ā§ āĻ¯āĻĻāĻŋ `-O' āĻŦāĻŋāĻāĻ˛ā§āĻĒāĻāĻŋ āĻ¨āĻŋāĻ°ā§āĻĻāĻŋāĻˇā§āĻ āĻāĻ°āĻž āĻ¨āĻž āĻĨāĻžāĻā§āĨ¤ āĻĒāĻ°āĻŋāĻāĻŋāĻ¤ āĻŽāĻžāĻ¨
āĻšāĻŋāĻ¸āĻžāĻŦā§ āĻāĻāĻ -O āĻŦāĻŋāĻāĻ˛ā§āĻĒāĨ¤
onworks.net āĻĒāĻ°āĻŋāĻˇā§āĻŦāĻž āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻāĻ°ā§ fortc āĻ āĻ¨āĻ˛āĻžāĻāĻ¨ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻāĻ°ā§āĻ¨