Функции Variadic в Visual FoxPro

Question

Как написать функцию Variadic в Microsoft Visual Foxpro?

Вариадическая функция - это переменная, которая принимает переменное количество аргументов - см. http://en.m.wikipedia.org/wiki/Variadic_function. Примеры даются практически для любого другого языка программирования в мире по адресу http://rosettacode.org/wiki/Variadic_function, но не для хорошего лиса.

Поэтому, учитывая следующую функцию:

Function PrintVars(var1,var2,var3) 
    ? var1 
    ? var2 
    ? var3 
End Func 

Как мы позволяем любое количество аргументов?

Answer 1

У вас есть ограниченная возможность сделать это в VFP.

FUNCTION printvars 
PARAMETERS p1, p2, p3, p4 
    ? "Parameter count", PARAMETERS() 
    ? p1 
    ? p2 
    ? p3 
    ? p4 
RETURN 

вызовов это так: printvars (1, 2)

и ваши результаты будут:

Parameter count 2 
     1 
     2 
.F. 
.F. 

VFP будет инициализировать любой параметр вы явно не передавать с логическим .F. стоимость. Функция PARAMETERS(), очевидно, говорит вам, сколько из них действительно было передано.

Передача слишком большого количества параметров приведет к ошибке, которую ваш оператор PARAMETER должен указать больше параметров.

Answer 2

Я бы не согласился с тем, что это ограниченная возможность. Вам не нужно ничего особенного делать. По умолчанию VFP позволяет пропускать меньше заданного количества параметров.

Кроме того, не используйте функцию PARAMETERS(), чтобы узнать, сколько параметров вы получили. У этого есть недостаток; если вы вызываете другую процедуру перед ее использованием, она сообщает вам, сколько параметров было передано этой программе. Вместо этого используйте PCOUNT(); он всегда сообщает вам, сколько параметров было передано текущей программе.

Вот код, который показывает, что случилось с ПАРАМЕТРАМИ():

DEBUG 

Subproc("abc", 123) 

RETURN 

PROCEDURE Subproc(cParm1, nParm2) 

DEBUGOUT "Immediately on entry to Subproc" 
DEBUGOUT " PARAMETERS() returns ", PARAMETERS() 
DEBUGOUT " PCOUNT() returns ", PCOUNT() 

Subsubproc() 

DEBUGOUT "After call to Subsubproc" 
DEBUGOUT " PARAMETERS() returns ", PARAMETERS() 
DEBUGOUT " PCOUNT() returns ", PCOUNT() 

RETURN 

PROCEDURE Subsubproc 

RETURN 

После выполнения этого кода, посмотрите в окно Debug Output.