aboutsummaryrefslogtreecommitdiffstats
path: root/fpga_interchange/xdc.cc
diff options
context:
space:
mode:
authorKeith Rothman <537074+litghost@users.noreply.github.com>2021-02-12 08:14:27 -0800
committerKeith Rothman <537074+litghost@users.noreply.github.com>2021-02-12 10:31:05 -0800
commit82ab3c1aad0b046c0a97228ef9baceb38ab76e26 (patch)
tree1c1b80712c89447d75dc4046ce730280de357e36 /fpga_interchange/xdc.cc
parent8a860857ea8a1a0fffd68762bcf4cd8432e59408 (diff)
downloadnextpnr-82ab3c1aad0b046c0a97228ef9baceb38ab76e26.tar.gz
nextpnr-82ab3c1aad0b046c0a97228ef9baceb38ab76e26.tar.bz2
nextpnr-82ab3c1aad0b046c0a97228ef9baceb38ab76e26.zip
Run "make clangformat".
Signed-off-by: Keith Rothman <537074+litghost@users.noreply.github.com>
Diffstat (limited to 'fpga_interchange/xdc.cc')
-rw-r--r--fpga_interchange/xdc.cc102
1 files changed, 44 insertions, 58 deletions
diff --git a/fpga_interchange/xdc.cc b/fpga_interchange/xdc.cc
index ece662f8..584a1777 100644
--- a/fpga_interchange/xdc.cc
+++ b/fpga_interchange/xdc.cc
@@ -19,20 +19,19 @@
*/
#include "xdc.h"
+#include <string>
#include "log.h"
#include "nextpnr.h"
-#include <string>
NEXTPNR_NAMESPACE_BEGIN
-static int port_set_from_any(Tcl_Interp *interp, Tcl_Obj *objPtr) {
- return TCL_ERROR;
-}
+static int port_set_from_any(Tcl_Interp *interp, Tcl_Obj *objPtr) { return TCL_ERROR; }
-static void set_tcl_obj_string(Tcl_Obj *objPtr, const std::string &s) {
+static void set_tcl_obj_string(Tcl_Obj *objPtr, const std::string &s)
+{
NPNR_ASSERT(objPtr->bytes == nullptr);
// Need to have space for the end null byte.
- objPtr->bytes = Tcl_Alloc(s.size()+1);
+ objPtr->bytes = Tcl_Alloc(s.size() + 1);
// Length is length of string, not including the end null byte.
objPtr->length = s.size();
@@ -41,63 +40,55 @@ static void set_tcl_obj_string(Tcl_Obj *objPtr, const std::string &s) {
objPtr->bytes[objPtr->length] = '\0';
}
-static void port_update_string(Tcl_Obj *objPtr) {
- const Context *ctx = static_cast<const Context*>(objPtr->internalRep.twoPtrValue.ptr1);
- PortInfo * port_info = static_cast<PortInfo*>(objPtr->internalRep.twoPtrValue.ptr2);
+static void port_update_string(Tcl_Obj *objPtr)
+{
+ const Context *ctx = static_cast<const Context *>(objPtr->internalRep.twoPtrValue.ptr1);
+ PortInfo *port_info = static_cast<PortInfo *>(objPtr->internalRep.twoPtrValue.ptr2);
std::string port_name = port_info->name.str(ctx);
set_tcl_obj_string(objPtr, port_name);
-
}
-static void port_dup(Tcl_Obj *srcPtr, Tcl_Obj *dupPtr) {
+static void port_dup(Tcl_Obj *srcPtr, Tcl_Obj *dupPtr)
+{
dupPtr->internalRep.twoPtrValue = srcPtr->internalRep.twoPtrValue;
}
-static void port_free(Tcl_Obj *objPtr) {
-}
-
+static void port_free(Tcl_Obj *objPtr) {}
-static void Tcl_SetStringResult(Tcl_Interp *interp, const std::string &s) {
- char * copy = Tcl_Alloc(s.size()+1);
+static void Tcl_SetStringResult(Tcl_Interp *interp, const std::string &s)
+{
+ char *copy = Tcl_Alloc(s.size() + 1);
std::copy(s.begin(), s.end(), copy);
copy[s.size()] = '\0';
Tcl_SetResult(interp, copy, TCL_DYNAMIC);
}
-
static Tcl_ObjType port_object = {
- "port",
- port_free,
- port_dup,
- port_update_string,
- port_set_from_any,
+ "port", port_free, port_dup, port_update_string, port_set_from_any,
};
-static int get_ports(
- ClientData data,
- Tcl_Interp *interp,
- int objc,
- Tcl_Obj *CONST objv[]) {
- const Context *ctx = static_cast<const Context*>(data);
- if(objc == 1) {
+static int get_ports(ClientData data, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
+{
+ const Context *ctx = static_cast<const Context *>(data);
+ if (objc == 1) {
// Return list of all ports.
Tcl_SetStringResult(interp, "Unimplemented");
return TCL_ERROR;
- } else if(objc == 2) {
- const char * arg0 = Tcl_GetString(objv[1]);
+ } else if (objc == 2) {
+ const char *arg0 = Tcl_GetString(objv[1]);
IdString port_name = ctx->id(arg0);
auto iter = ctx->ports.find(port_name);
- if(iter == ctx->ports.end()) {
+ if (iter == ctx->ports.end()) {
Tcl_SetStringResult(interp, "Could not find port " + port_name.str(ctx));
return TCL_ERROR;
}
- Tcl_Obj * result = Tcl_NewObj();
+ Tcl_Obj *result = Tcl_NewObj();
result->typePtr = &port_object;
- result->internalRep.twoPtrValue.ptr1 = (void*)(ctx);
- result->internalRep.twoPtrValue.ptr2 = (void*)(&iter->second);
+ result->internalRep.twoPtrValue.ptr1 = (void *)(ctx);
+ result->internalRep.twoPtrValue.ptr2 = (void *)(&iter->second);
result->bytes = nullptr;
port_update_string(result);
@@ -109,13 +100,10 @@ static int get_ports(
}
}
-static int set_property(
- ClientData data,
- Tcl_Interp *interp,
- int objc,
- Tcl_Obj *CONST objv[]) {
+static int set_property(ClientData data, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
+{
// set_property <property> <value> <object>
- if(objc != 4) {
+ if (objc != 4) {
Tcl_SetStringResult(interp, "Only simple 'set_property <property> <value> <object>' is supported");
return TCL_ERROR;
}
@@ -124,43 +112,41 @@ static int set_property(
const char *value = Tcl_GetString(objv[2]);
const Tcl_Obj *object = objv[3];
- if(object->typePtr != &port_object) {
+ if (object->typePtr != &port_object) {
Tcl_SetStringResult(interp, "Only port objects are handled right now!");
return TCL_ERROR;
}
- const Context *ctx = static_cast<const Context*>(object->internalRep.twoPtrValue.ptr1);
- PortInfo * port_info = static_cast<PortInfo*>(object->internalRep.twoPtrValue.ptr2);
+ const Context *ctx = static_cast<const Context *>(object->internalRep.twoPtrValue.ptr1);
+ PortInfo *port_info = static_cast<PortInfo *>(object->internalRep.twoPtrValue.ptr2);
NPNR_ASSERT(port_info->net != nullptr);
- CellInfo * cell = ctx->port_cells.at(port_info->name);
+ CellInfo *cell = ctx->port_cells.at(port_info->name);
cell->attrs[ctx->id(property)] = Property(value);
return TCL_OK;
}
-TclInterp::TclInterp(Context *ctx) {
+TclInterp::TclInterp(Context *ctx)
+{
interp = Tcl_CreateInterp();
NPNR_ASSERT(Tcl_Init(interp) == TCL_OK);
Tcl_RegisterObjType(&port_object);
NPNR_ASSERT(Tcl_Eval(interp, "rename unknown _original_unknown") == TCL_OK);
- NPNR_ASSERT(Tcl_Eval(interp,
- "proc unknown args {\n"
- " set result [scan [lindex $args 0] \"%d\" value]\n"
- " if { $result == 1 && [llength $args] == 1 } {\n"
- " return \\[$value\\]\n"
- " } else {\n"
- " uplevel 1 [list _original_unknown {*}$args]\n"
- " }\n"
- "}") == TCL_OK);
+ NPNR_ASSERT(Tcl_Eval(interp, "proc unknown args {\n"
+ " set result [scan [lindex $args 0] \"%d\" value]\n"
+ " if { $result == 1 && [llength $args] == 1 } {\n"
+ " return \\[$value\\]\n"
+ " } else {\n"
+ " uplevel 1 [list _original_unknown {*}$args]\n"
+ " }\n"
+ "}") == TCL_OK);
Tcl_CreateObjCommand(interp, "get_ports", get_ports, ctx, nullptr);
Tcl_CreateObjCommand(interp, "set_property", set_property, ctx, nullptr);
}
-TclInterp::~TclInterp() {
- Tcl_DeleteInterp(interp);
-}
+TclInterp::~TclInterp() { Tcl_DeleteInterp(interp); }
NEXTPNR_NAMESPACE_END