File: ex-include.ulp

package info (click to toggle)
eagle 5.10.0-2
  • links: PTS
  • area: non-free
  • in suites: squeeze
  • size: 88,616 kB
  • ctags: 720
  • sloc: makefile: 33; sh: 24
file content (22 lines) | stat: -rw-r--r-- 601 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
#usage "<b>Example: Usage of include file</b>\n"
       "<p>"
       "Demonstrates how to use the include file 'useful-routines.ulp'."
       "<p>"
       "<author>Author: support@cadsoft.de</author>"

// THIS PROGRAM IS PROVIDED AS IS AND WITHOUT WARRANTY OF ANY KIND, EXPRESSED OR IMPLIED

#include "useful-routines.ulp"

int Result;
string s1, s2, h;

s1 = "DISPLAY ALL;\n";
s2 = get_ulp_name();
Result = edit_save_execute(s1, s2);
sprintf(h, "Result: %d", Result);
dlgMessageBox(h, "OK");

dlgMessageBox("ULP path: "+get_ulp_path(),"OK");

dlgMessageBox("Project path: "+get_project_path(),"OK");