Subversion Repositories scarts

; Enums.

; Copyright (C) 2000, 2009 Red Hat, Inc.

; This file is part of CGEN.

; See file COPYING.CGEN for details.

; the enum class' name.

; Member PREFIX is always prepended to the symbol names.

;

; Enum values are looked up with `enum-lookup-val'.  The value to search for

; has PREFIX prepended.

;

; Enums always have mode INT.

; FIXME: this make! method is required by <insn-enum> for some reason.

; PREFIX is prepended to each name.

; Elements are any of: symbol, (symbol), (symbol value)

; (symbol - attrs), (symbol value attrs), (symbol - attrs comment),

; (symbol value attrs comment).

; The - or #f means "use the next value".

; SYMBOL may be - which means "skip this value".

; and each symbol is prepended with `prefix'.

; Each element's value is 1+ the previous, unless there's an explicit value.

; Compute the numeric value the next entry will have.

""; Accessors for the various elements of an enum val.

; Convert the names in the result of parse-enum-vals to uppercase.

; Parse an enum definition.

; Utility of -enum-parse to parse the prefix.

"prefix is not a string"; Prefix must not contain lowercase chars (enforced style rule, sue me).

"prefix must be uppercase"; This is the main routine for building an enum object from a

; description in the .cpu file.

; All arguments are in raw (non-evaluated) form.

"enum"; Read an enum description

; CONTEXT is a <context> object for error messages.

; -enum-parse is invoked to create the `enum' object.

""""; Loop over each element in ARG-LIST, recording what's found.

"invalid enum arg"; Now that we've identified the elements, build the object.

; Define an enum object, name/value pair list version.

"define-enum"; Define an enum object, all arguments specified.

"define-full-enum"; Lookup SYM in all recorded enums.

; The result is (value . enum-obj) or #f if not found.

;(display e) (newline)

; sanity check, ensure the enum has a value

; Return #t if VALS is a sequential list of enum values.

; VALS is a list of enums.  e.g. ((sym1) (sym2 3) (sym3 - attr1 (attr2 4)))

; FIXME: Doesn't handle gaps in specified values.

; e.g. (sym1 val1) sym2 (sym3 val3)

; Return C code to declare enum SYM with values VALS.

; COMMENT is inserted in "/* Enum declaration for <...>.  */".

; PREFIX is added to each element of VALS.

; All enum symbols are uppercase.

; If the list of vals is sequential beginning at 0, don't output them.

; This simplifies the output and is necessary for sanitized values where

; some values may be cut out.

; VALS may have '- for the value, signifying use the next value as in C.

"Generating enum decl for "" ...\n"; Build result up as a list and then flatten it into a string.

; We could just return a string-list but that seems like too much to ask

; of callers.

"/* Enum declaration for "".  */\n""typedef enum "" {"; `n' is used to track the number of entries per line only

""; reset to beginning of line (but != 0)

"\n"; split string to avoid removal

"/* start-""sanitize-"" */\n"""" """"\n """" "", """" = "; split string to avoid removal

"\n/* end-""sanitize-"" */""""\n} "";\n\n"; Return a list of enum value definitions for gen-enum-decl.

; OBJ-LIST is a list of objects that support obj:name, obj-atlist.

; Return C code that declares[/defines] an enum.

"_"""; Return the C symbol of an enum value named VAL.

; Instruction code enums.

; These associate an enum with an instruction field so that the enum values

; can be used in instruction field lists.

; Same as enum-lookup-val except returned enum must be an insn-enum.

; Define an insn enum, all arguments specified.

"define-full-insn-enum""insn-enum""unknown insn field"; Create enum object and add it to the list of enums.

"\

Define an enum, name/value pair list version.

""\

Define an enum, all arguments specified.

""\

Define an instruction opcode enum, all arguments specified.