| 97 | |
| 98 | |
| 99 | RULE * bind_builtin( char const * name_, LIST * (* f)( FRAME *, int flags ), |
| 100 | int flags, char const * * args ) |
| 101 | { |
| 102 | FUNCTION * func; |
| 103 | RULE * result; |
| 104 | OBJECT * name = object_new( name_ ); |
| 105 | |
| 106 | func = function_builtin( f, flags, args ); |
| 107 | |
| 108 | result = new_rule_body( root_module(), name, func, 1 ); |
| 109 | |
| 110 | function_free( func ); |
| 111 | |
| 112 | object_free( name ); |
| 113 | |
| 114 | return result; |
| 115 | } |
| 116 | |
| 117 | |
| 118 | RULE * duplicate_rule( char const * name_, RULE * other ) |
no test coverage detected