[dennou-ruby:000349] Re: [REQ] header for Ruby/DCL

[gotoken@xxxxxx (GOTO Kentaro)]

���Ȥ���Ǥ�

In message "[dennou-ruby:000347] Re: [REQ] header for Ruby/DCL"
    on 00/05/09, Takeshi Horinouchi <horinout@xxxxxx> writes:
>��Ƿ��Ǥ���

>���ͤ��Ǽ�ʬ������ȳڤˤʤ�ޤ��͡������Ͽɤ��Ǥ�������������
>���ޤ���

���꤬�Ȥ��������ޤ������󤪴ꤤ���ޤ�����ꤿ���Ȥ��������
���Ƥ��顢���ä����Ϥ���Ʋ����äƹ����ޤ����ͤΤۤ��Ǥ�
CVS��commit���¤ν����򤷤ޤ���

>�������ؤ� const �Τ褦�ʵ������ޤ����ѿ����ͤ��ѹ�������ǽ����
>̵����� const ��Ĥ���ɬ�פ�����ޤ�����  

ɬ�פǤ���

>dcl �Υ������Ǥϰ����ؤ�
>���������뤫�ɤ����ϡ���������٥�Ǥ���򸫤ʤ���ʬ����ޤ���͡�
>�ɥ�����Ȥ�����ɤ�Ǵ�ĥ�äƲ�ᤷ�ʤ��Ȥ����ʤ��ä��������ޤ�..��

������ʬ�ˤ��������֤򤯤����Ȥ������ʤ���ʬ����ޤ�����

�ܤ��������С����餫���ͤ���Ф����֥롼�����Ȥ�����ɬ
�פǤ���const �����ɤ��Ȥ����ϼ�������������ޤ���

>>  subroutine glrget (
>> 	const char *
>> 	float
>>  )

���ξ�硢Ruby�Υ᥽�åɤȤ��Ƥ� glrget_ ����2�������ͤȤ���
�֤������Τǡ����Τ褦�ʥ�åѤ�񤭤ޤ���

static VALUE
glrget(self, str)
    VALUE self, str;
{
    float x;
    char *p;

    p = STR2CSTR(str);
    glrget_(p, &x, strlen(p));
    return rb_float_new(x);
}

���Τʤ��ǡ��֤��ѿ��� x �˳�Ǽ����Ƥ���Ȥ����μ��������
�ˡ�const ���Ĥ��Ƥʤ��פ��Ȥ�Ȥ��ΤǤ�����������Τϥץ�
�ȥ����פ�ɤ��Ϥ����ޤ���Ǥ������ä��ɤߤ䤹����Τˤ���
�⹽���ޤ��󡣾��ʤ��Ȥ��ͤ�ʬ����褦�� C �η�̾�����Ȥä�
��館�ơ�����ɽ�����٤Ǥʤ�Ȥ��ʤ�褦�ʻ��ͤʤ�ʤ�Ǥ���
���Ǥ���

�ޤ�GC�ȤΤ���ߤǡ�static �� extern �ѿ����ΰ�γ������ѹ�
�����ȥޥ�����������������٤��ΤäƤ��������Ǥ���

�դ˸������ΰ�γ������ѹ�����ʤ����Ȥ��ݾڤ���Ƥ������
��const ���Ĥ��Ƥʤ��פȤ�����������פǤ���

>f90��åѡ����� intent(in)/intent(inout)/intent(out) ������Ƚ�
>�Ƥ����Ǥ��礦�����ʤ顢����򻲹ͤ˽���ޤ��͡�

�Ǥ��͡����줫��ӥ塼���Ʋ�����Ƚ�����ޤ���

>����ʤ�Ǥ����ɡ�ruby ���μ����פ�ʤ��Τǡ�dennou-davis �Τۤ���ή��
>�ƿͤ����ޤ��󤫡�

����Ϥ褤�ͤ���ή���Ƥߤޤ���

-- gotoken