http://snippets.dzone.com/posts Thu, 07 Aug 2008 23:36:47 GMT DZone Snippets: routine code http://snippets.dzone.com/posts/show/1146 <code> <br />REBOL [ <br /> Title: "Library Interface Dialect" <br /> File: %lib-dialect.r <br /> Author: "Gregg Irwin" <br /> Purpose: { <br /> Allow for a more concise way to define library routine <br /> interfaces. <br /> } <br />] <br /> <br />lib-dialect-ctx: context [ <br />; lib-ctx: make object! [file: lib: none free: does [free lib]] <br />; lib-spec: none <br /> <br /> lib: none <br /> def-rtn-type: none <br /> <br /> name-mods: copy [] <br /> mod-name: func [name] [do join name-mods name] <br /> <br /> ; dump/trace option to show generated code? <br /> <br /> ;has-rtn-type?: does [all [rtn-type 'none <> rtn-type]] <br /> ; lib is a global word reference in this func. <br /> make-dll-func: func [reb-name spec rtn-type name] [ <br /> spec: copy any [spec []] <br /> if all [rtn-type 'none <> rtn-type] [ <br /> append spec compose/deep [return: [(rtn-type)]] <br /> ] <br /> ;print ['make-dll-func reb-name mold spec rtn-type mold mod-name any [name form reb-name]] <br /> set reb-name make routine! spec lib mod-name any [name form reb-name] <br /> ] <br /> <br /> data-type: [ <br /> 'none | 'char | 'short | 'long | 'integer! | 'string! | 'decimal! <br /> ; TBD add struct support ? <br /> ] <br /> <br /> func-decl: [ <br /> (spec: name: none rtn-type: def-rtn-type) <br /> set reb-name word! ;(print reb-name) <br /> any [ <br /> [set spec block!] ;(print mold spec) <br /> | [opt ['returns | 'as] set rtn-type data-type] ;(print rtn-type) <br /> | [opt 'calls set name string!] ;(print name) <br /> ] <br /> (make-dll-func reb-name spec rtn-type name) <br /> ] <br /> <br /> ; You can use this multiple times, e.g. grouping functions by return <br /> ; type and using it before each group. <br /> set-def-rtn-type: [ <br /> opt 'set ['def-rtn-type | 'default-return-type] <br /> set def-rtn-type data-type <br /> ] <br /> <br /> rules: [ <br /> ['lib | 'library] set file file! (lib: load/library file) ;append lib-spec compose [file: (file)] <br /> opt [ <br /> ['modify-import-names | 'mod-imports] set name-mods block! <br /> ] <br /> any [set-def-rtn-type | func-decl] <br /> ] <br /> <br /> set 'make-routines func [spec [any-block!]] [ <br /> clear name-mods <br /> parse spec rules <br /> ] <br /> <br />; set 'make-library-interface func [spec] [ <br />; lib-spec: copy [] <br />; clear name-mods <br />; parse spec rules <br />; ] <br /> <br />] <br /> <br /></code> Fri, 13 Jan 2006 04:11:40 GMT http://snippets.dzone.com/posts/show/1146 gregg.irwin (Gregg Irwin)