core/generic/parser/parser.factor

   1 ! Copyright (C) 2008 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: parser kernel words generic namespaces ;
   4 IN: generic.parser
   5
   6 ERROR: not-in-a-method-error ;
   7
   8 : CREATE-GENERIC ( -- word ) CREATE dup reset-word ;
   9
  10 : create-method-in ( class generic -- method )
  11     create-method f set-word dup save-location ;
  12
  13 : CREATE-METHOD ( -- method )
  14     scan-word bootstrap-word scan-word create-method-in ;
  15
  16 SYMBOL: current-class
  17 SYMBOL: current-generic
  18
  19 : with-method-definition ( quot -- parsed )
  20     [
  21         >r
  22         [ "method-class" word-prop current-class set ]
  23         [ "method-generic" word-prop current-generic set ]
  24         [ ] tri
  25         r> call
  26     ] with-scope ; inline
  27
  28 : (M:) ( method def -- )
  29     CREATE-METHOD [ parse-definition ] with-method-definition ;
  30