Download PDF-Version - bei Bartels

Bartels User Language
Programmierhandbuch
placecommand
: identifier (p_pname) ":" identifier (p_plname)
"{" placepos placerot placemirror "}" (p_storepart)
;
placepos
: "POSITION" "="
"(" floatnum (p_px) "," floatnum (p_py) ")" ";"
;
placerot
: "ROTATION" "=" floatnum (p_pa) ";"
|
;
placemirror
: "MIRROR" "=" NUMBER (p_pm) ";"
|
;
identifier
: SQSTR (p_ident)
;
floatnum
: NUMBER (p_fltnum(0))
| "-" NUMBER (p_fltnum(1))
;
}
//______________________________________________________________
// Globals
double plannx=bae_planwsnx(); // Element origin X coordinate
double planny=bae_planwsny(); // Element origin Y coordinate
double lenconv;
// Length conversion factor
double angconv;
// Angle conversion factor
string curpn;
// Current part name
string curpln;
// Current physical library name
double curx,cury;
// Current coordinates
double cura = 0.0;
// Current angle (default: 0.0)
int curm = 0;
// Current mirror flag (default: 0)
string curid;
// Current identifier
double curflt;
// Current float value
struct partdes {
// Part descriptor
string pn;
// Part name
string pln;
// Physical library name
double x,y;
// Coordinates
double a;
// Angle
int m;
// Mirror flag
} pl[];
// Part list
int pn=0;
// Part count
//______________________________________________________________
// Main program
main()
{
string fname;
// Input file name
// Test if layout loaded
if (bae_planddbclass()!=100)
errormsg("Command not allowed for this element!","");
// Get and test the placement file name
if ((fname=askstr("Placement File : ",40))=="")
errormsg("Operation aborted.","");
// Parse the placement file
perror("Reading placement data...");
parseerr(synparsefile(fname),fname);
// Perform the placement
placement();
// Done
perror("Operation completed without errors.");
}
Sprachbeschreibung
Seite 2-47