Module:   dfmc-modeling
Synopsis: C Function and code model objects.
Author:   Jonathan Bachrach
Copyright:    Original Code is Copyright (c) 1995-2004 Functional Objects, Inc.
              All rights reserved.
License:      Functional Objects Library Public License Version 1.0
Dual-license: GNU Lesser General Public License
Warranty:     Distributed WITHOUT WARRANTY OF ANY KIND

define class <&c-function> (<&primitive>)
  // !@#$ should be c-name
  constant slot binding-name, 
    required-init-keyword: binding-name:;
  constant slot c-modifiers :: <string> = "",
    init-keyword: c-modifiers:;
  slot c-signature :: <&signature>, 
    init-keyword: c-signature:;
end class;

define method initialize
    (x :: <&c-function>, #rest all-keys, #key, #all-keys)
  next-method();
  // Unlike with the built-in primitives, we err on the side of caution...
  primitive-side-effecting?(x) := #t;
  primitive-stateless?(x)      := #f;
  primitive-dynamic-extent?(x) := #f;
end method;

define &class <c-callable-function> (<lambda>)
  // !@#$ should be c-name
  // !@#$ should be somewhat virtual
  constant slot binding-name, 
    required-init-keyword: binding-name:;
  constant slot c-modifiers :: <string> = "",
    init-keyword: c-modifiers:;
  slot c-signature :: <&signature>;
  constant slot alternate-name, 
    required-init-keyword: alternate-name:;
  constant slot dll-export? = #f, 
    init-keyword: export:;
end &class;

define class <&c-variable> (<named-object>, <emitted-object>)
  constant slot dll-import? = #f, init-keyword: import:;
end class <&c-variable>;

// eof