[dennou-ruby:000461] Re: proto2c

["TOYODA Eizi" <toyoda@xxxxxx>]

˭�ĤǤ���

> �ⶶ����>
>  > ��� C �Ȥ����ߤǹͤ���ȡ�Fortran �Ǥν�üʸ���ϲ�����
>  > �Ȥ�������ˤʤ�褦�˻פ���Ǥ�����
>
> Fortran�Ǥ�ʸ���ν�����Ƚ�̤� null �Ȥ����ä������ʸ���ǹԤ�
> �Ƥ���ΤǤϤʤ��褦�Ǥ���

���ä����Ȥ��ꡢ��üʸ���ʤɤȤ�����ΤϤ���ޤ��󡣤��⤽�⽪ü�ʤ�Ƴ�
ǰ�����ꤨ�ʤ��ΤǤ����ޤ�����Ƿ�⤵��Ϥ��狼����ȻפäƤ����ΤǤ�������
�¤ˤʤäƤ����Τ�ǰ�Τ��ᡣ

> f2c�����������Ǥ�ʸ�������������ȡ�
> ����ʸ�����Ĺ����Ϳ������������ߤ���ޤ�����ä� fortran �μ�
> ���Ǥϡ�ʸ�����Ĺ����Ϳ���뱣������������������Ȼפ��ޤ���

�֡ʥ��֥롼��������ǤϤʤ��ˤ��٤Ƥ�ʸ�����ѿ��ˤĤ��ơ�ʸ�����Ĺ����ʸ
����Ǽ�����Ф��ݻ�����Ƥ���פȤ�������Ǥ��������Ǥ�������������Τ�
�ۤ����ä��� Pascal ��Ȥ��Ȥ����ۺ� ISO_VARYING_STRING ���äƤ����Ȥ�
���Ƥ���������

FORTRAN ��ʸ�����ϸ���Ĺ�Ǥ����Ĥޤꡢ�����ΰ�����ߤ��Ĺ��1��ʸ��������
���Ʊ���Ǥ������֥롼��������Ĺ�����Ѥ��뤳�ȤϤǤ��ޤ���

ʸ��������ʸ��ξ�դ�Ĺ�����㤦���Ȥ�����ޤ��������դ�û������ڤ�ΤƤ��
��Τ���Ƿ����Ǥ��äƤ���褦�Ǥ��������դ�Ĺ������­��ʤ���ʬ�ˤ���
�ƶ�������ޤ��������ޤǺ��դ�Ĺ�����ͤ���������ƽ񤭹��ޤ�ޤ��Τǡ�
ʸ�����ѿ���Ĺ�����Ѳ����뤳�ȤϤ���ޤ���

Ĺ�����Ѳ��������Ȥ�������ɬ�פ��ʤ��Τǡ������ʸ����θ�˲������̤ʥХ�
�Ȥ�񤭹��ळ�ȤϤ��ޤ���ɬ�פ��ʤ���������ʤ��ơ����Τ褦�ʼ����ϵ���
����ε�§����ػߤ���ޤ����ʤΤ� f2c �ʤ� C �ץ�����ޤ˥ե��ɥ꡼��
���Ȥ򤷤Ƥ����Ȥ����ä�ø�����Ԥ򤷤ƤϤ����ޤ���

�Ĥ��˥��֥롼��������η�絬§�����򤵤��ɬ�פ�����ޤ���

���֤� CHARACTER*(*) ����������Ȥ������򤷤䤹���ơ����֥롼����ˤȤä�
��ƤӽФ�����Ϳ����Ĺ����ʸ����Ȥ������Ȥˤʤ�ޤ���

���֥롼������������Ĺ���������ȡ����֥롼�������Ǥ�Ĺ���Ϥ���Ĺ����
����ˤʤ�ޤ������֥롼����� CHARACTER*14 �ΰ������Ȥ��äƤ��ޤ��иƤ�
�Ф����Dz���Ϳ���褦�����֥롼����ˤȤäƤ�Ĺ����14�Ǥ������Ȥ��иƤӽФ�
���Ǥ� CHARACTER*16 ��ʸ���ѿ������ä��Ȥ���ȡ����֥롼��������ͤ�����
���Ƥ�Ǹ�� 2 ʸ���Ͻ񤭴������ޤ��󡣤��ξ��ϸƤӽФ����Ǥ�Ĺ������
��̵�뤵��ޤ����ʤΤǡ����֥롼���󤬴��Ԥ��Ƥ���Ĺ�����û����Τ�Ϳ����
�ȴ��ʤ���

> nullʸ���ϲ����Ȥ�������Ϥ���ޤ���ʸ������֤� Fortran ���֥롼
> ���������ǡ�
>
>   cresult(1:5)='hello'
>
> Ū�������򤷤Ƥ�С�6ʸ���ܰʹߤ� C �� null �ΤޤޤǤ��礦����
>
>   cresult = 'hello'
>
> �ʤ� Fortran �ʤ�� null ������Ƥ����ΤǤ��礦��

����������̣�Ǥ� cresult �� 6 ʸ���ʾ�ʤ� 6 ʸ���ܰʹߤϥ��֥롼����
ʸ��Ĺ���ȻפäƤ���Ĺ���ޤǤ��äȶ��������ޤ�������Ȥ϶���Ū�ˤϻ��
�Τ뤹�٤Ƥν����Ϥ� ASCII SPACE ������ޤ���6 ʸ���ʾ���Ԥ��Ƥ���Τ�
5 �Х��Ȥ���Ϳ���ʤ��ä��顢�����Ƥ����������ʤ��Ȥ�������Ϥ��Ǥ���

    �����������ꥹ�Ȥ�Ĵ�٤ư���¦���ݤ��Ȥ����߷פ⤢�ꤨ��Ȥϻפ���
    �Ǥ��������֤� f2c �� g77 �Ϥ����ʤäƤ��ʤ��ä��Ϥ���

�����ơ�NUL ����ʤ�����դ줿ʸ���������Ȥ������ͤ���Ƿ�⤵���Ĺ��Ƚ��
���르�ꥺ������˿������˷礱���Τˤ��ޤ������������ GETENV �Ȥ�
GETARG �� ISO_VARYING_STRING �б��ˤ��褦�Ȼפä��Ȥ��ˤ֤�������ޤ�����
--
arte, non vi.
˭�ıѻ�: TOYODA Eizi
mailto:toyoda@xxxxxx