[dennou-ruby:000459] Re: proto2c

[Takeshi Horinouchi <horinout@xxxxxx>]

��Ƿ��Ǥ���

ʸ��Ĺ����ˤĤ��ơ�

 > �Ĥޤꡢ���֥롼����¦�Dz�ʸ������Ԥ��Ƥ���Τ����ᥤ�󤫤�Ϥ狼��ʤ�
 > �Τǡ��ᥤ��Ǥ� 10 ʸ����Ϳ���Ƥ����Τ��ɤ������狼��ʤ���
 > ���ۤ��Ƥ���ä����ΤǤ���

�Ȥ������ȤǤ��͡�

Fortran �Ǥ��Ϥ��줿ʸ���ѿ��˽�ʬ��Ĺ�������ݤ���Ƥ���Ф褷��
���ݤ���Ƥ��ʤ���Ф���Ĺ�����ڤä��֤�������֤��ޤ���f2c����
��Τ�ʸ��Ĺ������Ȥ����Ϥ��ޤ�����Ʊ�����Ȥ�����ޤ�����������
��褦�ˤʤäƤ�ΤǤ��礦���Ǥ����顢ʸ�����֤����֥롼���󤫤�
�ν��Ϥ��ڤ���ɤ���С�Ŭ����Ĺ���� allocate �����ݥ��󥿡�����
���Ƥ��Ф����櫓�Ǥ������������ڤ줿�餢�ޤ�򤷤��ʤ��Ǥ���͡�
�����������Ȥ��򤱤뤿��ˤϡ���ʸ���֤��Ĥ�꤫��Ƥ������Τä�
�ʤ��Ȥʤ�ޤ��󤬡������̵���Ȥ�����ΤǤ���

�Ǥ����顢�º�����Ȥ��Ƥϡ��Ȥꤢ�������ꤽ���ʺ���Ĺ�򤨤����
�Ȳ��ꤹ�뤳�Ȥˤʤ�Ǥ��礦������ǤϷ��Ǥޤ�����б�����ʤ��
�����ͤ����ޤ���

  (1) Ŭ����Ĺ��(128 ʸ���Ȥ�)���ꤷ�ơ��֤��ͤ�����Ϥ��� char
      �ѿ��� allocate �����Ϥ���

  (2) �֤äƤ���ʸ����򸡺����ơ������꤬ null �Ǥʤ���С��ܤ�
      �������䤷�ƸƤ�ľ��(���Τ� free ���ƿ�����Ĺ���Τ� 
      allocate ����)������򤪤��꤬ null �ˤʤ�ޤ�³���롣

  (3) �ǽ�Ū������줿ʸ����򸡺����ơ�Ƭ����ǽ�� null �ޤǤ�
      ��̤�ʸ����Ȥ����ڤ�Ф��ʿ�����ɬ�׽�ʬ��Ĺ�����ΰ���
      �ݤ��ơ������ǽ���̤��֤���Ȥ��롣���ޤǤΤ� free ����ˡ�

(3)�Ϥʤ��Ƥ⤤���Ǥ������ºݤ˻��Ѥ���Ȥ���;�פ� null ������
�Ĥ��Ƥ�Τϴ򤷤��ʤ��Ǥ���͡�


�ⶶ����>
 > ��� C �Ȥ����ߤǹͤ���ȡ�Fortran �Ǥν�üʸ���ϲ�����
 > �Ȥ�������ˤʤ�褦�˻פ���Ǥ�����

Fortran�Ǥ�ʸ���ν�����Ƚ�̤� null �Ȥ����ä������ʸ���ǹԤ�
�Ƥ���ΤǤϤʤ��褦�Ǥ���f2c�����������Ǥ�ʸ�������������ȡ�
����ʸ�����Ĺ����Ϳ������������ߤ���ޤ�����ä� fortran �μ�
���Ǥϡ�ʸ�����Ĺ����Ϳ���뱣������������������Ȼפ��ޤ���Ĺ
ǯ�ε��䤬�򤱤��������ޤ����ʱ����⤷��ޤ��󤬡ˡ�

nullʸ���ϲ����Ȥ�������Ϥ���ޤ���ʸ������֤� Fortran ���֥롼
���������ǡ�

  cresult(1:5)='hello'

Ū�������򤷤Ƥ�С�6ʸ���ܰʹߤ� C �� null �ΤޤޤǤ��礦����

  cresult = 'hello'

�ʤ� Fortran �ʤ�� null ������Ƥ����ΤǤ��礦��������f2c ��
�� C �δؿ��Ǥ϶��餯 C �� null ��Ȥ��ΤǤϤʤ��Ǥ��礦��������
�ʤ顢����ʤ��Ǥ��͡�

��Ƿ�� ��                     horinout@xxxxxx
�������������Ȳʳظ��楻�󥿡� (��Ķ�������ȸ��楻�󥿡�)
611-0011 �����Ըޥ���  phone:0774-38-3812  fax:0774-31-8463