mirror of
https://github.com/FirebirdSQL/firebird.git
synced 2025-01-26 08:43:03 +01:00
31 lines
967 B
Mathematica
31 lines
967 B
Mathematica
|
/*
|
||
|
|
* The contents of this file are subject to the Interbase Public
|
||
|
|
* License Version 1.0 (the "License"); you may not use this file
|
||
|
|
* except in compliance with the License. You may obtain a copy
|
||
|
|
* of the License at http://www.Inprise.com/IPL.html
|
||
|
|
*
|
||
|
|
* Software distributed under the License is distributed on an
|
||
|
|
* "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
|
||
|
|
* or implied. See the License for the specific language governing
|
||
|
|
* rights and limitations under the License.
|
||
|
|
*
|
||
|
|
* The Original Code was created by Inprise Corporation
|
||
|
|
* and its predecessors. Portions created by Inprise Corporation are
|
||
|
|
* Copyright (C) Inprise Corporation.
|
||
|
|
*
|
||
|
|
* All Rights Reserved.
|
||
|
|
* Contributor(s): ______________________________________.
|
||
|
|
*/
|
||
|
|
|
||
|
|
changequote([,])
|
||
|
|
define(NEXT, [N define([N], incr(N))])
|
||
|
|
|
||
|
|
define(RELATION, [define([N], 0)])
|
||
|
|
define(FIELD, [divert(1)[#define] $1 NEXT
|
||
|
|
divert(0)dnl])
|
||
|
|
define(END_RELATION, )
|
||
|
|
|
||
|
|
define(FIELD_ODS8, )
|
||
|
|
|
||
|
|
include(relations.h)
|