freebsd-ports/devel/kaptain/files/patch-examples-dia2code.kaptn

42 lines
1.7 KiB
Text
Raw Normal View History

--- examples/dia2code.kaptn.orig Sat Nov 17 00:11:04 2001
+++ examples/dia2code.kaptn Fri Dec 20 13:17:45 2002
@@ -1,17 +1,20 @@
-#!/usr/bin/kaptain
+#!%%PREFIX%%/bin/kaptain
start "Dia2Code" -> dia2code buttons;
dia2code :tabbed -> main about;
-main "Dia2Code" -> "dia2code" language outdir classlist mask noclobber " " diagramfile;
+main "Dia2Code" -> "dia2code" language outdir classlist mask noclobber licensefile " " diagramfile;
-language "Output Language" -> " -t " outlanguage;
-outlanguage :double :horizontal -> ada | c | ! cpp | java | python | sql ;
+language "Output Language" -> " -t " outlanguage ;
+outlanguage :double :horizontal -> ada | c | ! cpp | idl | java | php | python | shp | sql ;
c "C" -> "c";
cpp "C++" -> "cpp";
java "Java" -> "java";
ada "Ada" -> "ada";
python "Python" -> "python";
sql "SQL" -> "sql";
+shp "SHP" -> "shp";
+php "PHP" -> "php";
+idl "IDL" -> "idl";
outdir "Output Dir" -> " -d " @directory=`pwd`;
@@ -22,10 +25,12 @@
noclobber "Don't overwrite existing files" -> @ | " -nc";
yesclobber -> "";
+licensefile "License File" -> @ | " -l " @infile("*");
+
diagramfile "Diagram File" -> @infile("*.dia");
buttons :horizontal -> @action(dia2code)="Go" @preview(dia2code)="Preview Command" @close="Quit" ;
-about "About" -> @text("Kaptain grammar for Dia2Code\n\nVersion 1.0\n(c) 2001 Javier O'Hara\n<joh314@users.sourceforge.net>\n\nDia2Code homepage:\nhttp://dia2code.sourceforge.net");
+about "About" -> @text("Kaptain grammar for Dia2Code\n\nVersion 1.2\n(c) 2001 Javier O'Hara\n<joh314@users.sourceforge.net>\n\nDia2Code homepage:\nhttp://dia2code.sourceforge.net");
classlist="" "Generates code only for the classes specified\nin this comma-separated list";