<commit_before>%%%
%%% Author:
%%%   <NAME> <<EMAIL>>
%%%
%%% Copyright:
%%%   <NAME>, 1998
%%%
%%% Last change:
%%%   $Date$ by $Author$
%%%   $Revision$
%%%
%%% This file is part of Mozart, an implementation of Oz 3:
%%%   http://www.mozart-oz.org
%%%
%%% See the file "LICENSE" or
%%%   http://www.mozart-oz.org/LICENSE.html
%%% for information on usage and redistribution
%%% of this file, and for a DISCLAIMER OF ALL
%%% WARRANTIES.
%%%

local
   FunctorID = {Boot_Name.newUnique functorID}

   fun {IsFunctor X}
      {IsChunk X} andthen {HasFeature X FunctorID}
   end

   fun {NewFunctor Import Export Apply}
      %--** assert that the arguments have the expected types
      {NewChunk f(FunctorID: unit
                  'import': Import
                  'export': Export
                  'apply': Apply)}
   end

   fun {GetFeatures Info}
      case Info.type of Fs=_|_ then Fs
      else nil
      end
   end
in
   Functor = 'functor'(is:          IsFunctor
                       new:         NewFunctor
                       getFeatures: GetFeatures)
end<commit_msg>Removed Functor.getFeatures (was an outdated experimental feature).<commit_after>%%%
%%% Author:
%%%   <NAME> <<EMAIL>>
%%%
%%% Copyright:
%%%   <NAME>, 1998-1999
%%%
%%% Last change:
%%%   $Date$ by $Author$
%%%   $Revision$
%%%
%%% This file is part of Mozart, an implementation of Oz 3:
%%%   http://www.mozart-oz.org
%%%
%%% See the file "LICENSE" or
%%%   http://www.mozart-oz.org/LICENSE.html
%%% for information on usage and redistribution
%%% of this file, and for a DISCLAIMER OF ALL
%%% WARRANTIES.
%%%

local
   FunctorID = {Boot_Name.newUnique functorID}

   fun {IsFunctor X}
      {IsChunk X} andthen {HasFeature X FunctorID}
   end

   fun {NewFunctor Import Export Apply}
      %--** assert that the arguments have the expected types
      {NewChunk f(FunctorID: unit
                  'import': Import
                  'export': Export
                  'apply': Apply)}
   end
in
   Functor = 'functor'(is:  IsFunctor
                       new: NewFunctor)
end
{'fraction_non_alphanumeric': 0.14008725157537566, 'fraction_numerical': 0.0067862336403296175, 'mean_word_length': 2.4172185430463577, 'pattern_counts': {'":': 0, '<': 11, '<?xml version=': 0, '>': 11, 'https://': 0, 'lorem ipsum': 0, 'www.': 4, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '1171685', 'n_tokens_mistral': 697, 'n_tokens_neox': 650, 'n_words': 202}