#include "facts.dl"

.decl add_fact(part_uri:symbol, key:symbol, value:symbol)
.output add_fact

#define RESISTANCE "http://purl.org/ee/digikey-fact-key#2085"
#define CAPACITANCE "http://purl.org/ee/digikey-fact-key#2049"
#define SURFACE_MOUNT_LAND_SIZE "http://purl.org/ee/digikey-fact-key#884"
#define PACKAGE "http://purl.org/ee/digikey-fact-key#16"
#define SUPPLIER_DEVICE_PACKAGE "http://purl.org/ee/digikey-fact-key#1291"
#define MOUNTING_TYPE "http://purl.org/ee/digikey-fact-key#69"
#define BASE_PART_TYPE "http://purl.org/ee/digikey-fact-key#2078"

/*
I though this rule would be good enough, but I keep on getting errors like this:

warning: wrong index position provided by substr("DO-21",6,5) functor.

fact(part, "http://purl.org/ee/fact-type/footprint", res) :-
    fact(part, PACKAGE, package),
    match(".*\([0-9][0-9][0-9][0-9] Metric\)", package),
    res_ = substr(package, 0, strlen(package)-8),
    res = substr(res_, 6, strlen(res_))
    .
*/

.decl dk_to_ipc(dk:symbol, ipc:symbol)

dk_to_ipc("0402 (1005 Metric)", "1005").
dk_to_ipc("0402 (1006 Metric)", "1005"). // compatible enough
dk_to_ipc("0805 (2012 Metric)", "2012").
dk_to_ipc("1206 (3216 Metric)", "3216").
dk_to_ipc("1812 (4532 Metric)", "4532").

add_fact(part, "http://purl.org/ee/fact-type/footprint", ipc) :-
    fact(part, "http://purl.org/ee/digikey-fact-key#16", dk),
    dk_to_ipc(dk, ipc).

.decl supplier_device_package_to_footprint(dk:symbol, footprint:symbol)

supplier_device_package_to_footprint("Mini-Dip (TO-269AA)", "TO-269AA").
supplier_device_package_to_footprint("SMA (DO-214AC)", "SMA").
supplier_device_package_to_footprint("SOD-323", "SOD-323").

add_fact(part, "http://purl.org/ee/fact-type/footprint", footprint) :-
    fact(part, SUPPLIER_DEVICE_PACKAGE, dk),
    supplier_device_package_to_footprint(dk, footprint).