41 lines
1.7 KiB
Text
41 lines
1.7 KiB
Text
--- 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";
|