15. ４ＧＬ與Ｃ的關係

15-1 STACK 的處理

INFORMIX-4GL 和Ｃ之間資料的傳送，是利用資料結構中 stack 的技巧來達成兩

者之間的運作。

＜語法格式＞

CALL function_name(arg1，arg2，．．．argn)

15-2 呼叫的協定

ヾ．當 informix-4gl 呼叫Ｃ時，會將函數中的參數由左至右壓入(PUSH) STACK中

，並把參數的個數也傳給Ｃ。而Ｃ必須在 STACK 中依相反的次序 POP 所

有的參數。

ゝ．當Ｃ欲傳回變數給 informix-4gl 時，參數的壓入順序必須與 4gl 中 returning

參數的順序相同。也就是說，無論是在個數或資料型態都必須和 returning

參數的順序一致。

15-3 4GL與Ｃ的界面函數

┌──────┬─────┬────────┬────────┐

│ 資料型態 │ 定義 │ POPPING 函數 │ PUSHING 函數　 │

├──────┼─────┼────────┼────────┤

│ int │ i │ popint(&i) │ retint(i) │

│ short │ s │ popshort(&s) │ retshort(s) │

│ long │ l │ poplong(&l) │ retlong(l) │

│ float │ f │ popflo(&f) │ retflo(&f) │

│ double │ d │ popdub(&d) │ retdub(&d) │

│ char │ str[m] │ popquote(str,m)│ retquote(str) │

└──────┴─────┴────────┴────────┘

記得在Ｃ中的最後一行敘述要加一個 return，而在 return 中唯一的參數是用來傳

遞欲被傳回的個數，即使沒有傳回參數也要 return(0)。

§例：

CALL bankopen(account_no,3,salary,"bankdisk.txt")

#include <stdio.h>

FILE *fopen(), *fp;

static int Is_Open = 1;

static int serial_no = 0;

bankopen(n)

int n;

{

int net_income,summary_ty,i,j,len;

char account_no[8],a[8],bank_file[12],open_file[12];

serial_no++;

if (n != 4)

exit(1);

popquote(bank_file,12);

popint(&net_income);

popint(&summary_ty);

popquote(account_no,8);

len = strlen(bank_file);

if (Is_Open) {

fp = fopen(bank_file,"w");

Is_Open = 0;

}

fprintf(fp," %06d 03",serial_no);

len = strlen(account_no);

for (i = 0; i < len; i++)

if (isdigit(account_no[i])) {

a[i] = account_no[i];

}

else {

a[i] = '\0';

break;

}

len = 7 - strlen(a);

for (i = 0; i < len; i++)

fprintf(fp,"0");

fprintf(fp,"%s ",a);

switch (summary_ty) {

case 1 : fprintf(fp,"PM");

break;

case 2 : fprintf(fp,"PR");

break;

case 3 : fprintf(fp,"TH");

break;

}

if (net_income > 0)

fprintf(fp," C %08d\n",net_income);

else

fprintf(fp," D %08d\n",net_income);

return 0;

}