AMADEUS html plain
This sketchy text is generated by AMADEUS
import java.awt.*;
import java.awt.event.*;
class BaseLanguage
abstract class BaseLanguage
ylemklass teistele baaskeeltele,
mis peaksid realiseerima Sketchify, Reduce jms.
* abstract
boolean sketchify(SketchyText skt0, SketchyText skt1,AmFrame fr);
void reduce(Sketch s);
boolean textualize(SketchyText skt0, SketchyText skt1,AmFrame fr);
boolean normalize(SketchyText skt0, SketchyText skt1,AmFrame fr);
void prepareTex(Sketch s);
* static final byte
JAVA = 0;
LATEX = 1;
HTML = 2;
NONE = 3;
XML = 4;
MATLAB = 5;
EKFG = 6;
static String[] items =kasutatavate keelte loetelu (samas jrk.)
static String[] items =
"Java", "LaTex", "HTML",
AmLocale.None(), "XML", "Matlab", "EKFG"
;
static AmList list;
byte type;
static boolean userSetAll(Scheme s, AmFrame frame)
kysib baaskeele kasutajalt
paneb baaskeele skeemile s ja ko~igile alamskeemidele
list = new AmList(items);
AmDialog d = new AmDialog
(frame, AmLocale.Base_language(),AmDialog.B_SELECT_CANCEL,
AmLocale.Select_base_language()+".",
(AmList)list);
int bli = -999;
kompilaatorile
??d.getTulemus()
? AmDialog.CANCEL:
<==========false
? AmDialog.SELECT:
bli = list.getSelectedIndex();
<======
seada baaskeel
??bli
? NONE:
<======
? JAVA:
<======
? LATEX:
<======
? HTML:
<======
? XML:
<======
? MATLAB:
<======
? EKFG:
<======true
static void setAll(Scheme s, byte type)
s.baseLanguage = newBaseLanguage(type);
* int i = 0; i < s.body.size(); i++
Object o = s.member(i);
? (o instanceof Scheme)
setAll((Scheme)o, type);
static BaseLanguage newBaseLanguage(byte type)
<==========new BaseLanguageJava()
<==========new BaseLanguageLaTex()
<==========new BaseLanguageHtml()
<==========new BaseLanguageXML()
<==========new BaseLanguageMatlab()
<==========new BaseLanguageEKFG()
<==========new BaseLanguage0()
<======new BaseLanguage0()
byte nextPrimitiveMemberType(byte prev)
vajadusel alamklassis yledefineerida!
??prev
? Primitive.SIMPLE:
<==========Primitive.CONDITION
<==========Primitive.STRONG_ARROW
ARROW
? Primitive.STRONG_ARROW:
? Primitive.WEAK_ARROW:
<==========Primitive.SIMPLE
<======0
byte nextSchemeType(Scheme s)
vajadusel alamklassis yledefineerida!
??s.type
? Scheme.SIMPLE:
<==========Scheme.LOOP
<==========Scheme.MODULE
? Scheme.MODULE:
? (s.comment.elements.size() > 1)
<==========Scheme.SIMPLE
ei saa avada
? (s.parent == null)
<==========Scheme.SIMPLE
<==========Scheme.SIMPLE
? (((Sketch)s).isMono() && s.isHeadless())
<==========-1
<==========Scheme.SIMPLE
<======-1
byte typeForBranchHead(Sketch s)
vajadusel alamklassis yledefineerida!
<======PrimitiveHead.SIMPLE
??s.primitiveHead(0).type
? PrimitiveHead.SIMPLE:
<==========PrimitiveHead.SIMPLE
<==========PrimitiveHead.CASE
<==========PrimitiveHead.CATCH
<======PrimitiveHead.SIMPLE
byte nextPrimitiveHeadType(Scheme s, byte prev)
vajadusel alamklassis yledefineerida!
s - skeem, mille pa"is, prev - pa"ise tyyp
? (s instanceof Sketch)
??prev
? PrimitiveHead.SIMPLE:
<==============PrimitiveHead.LOOP
<==============PrimitiveHead.SWITCH
<==============PrimitiveHead.TRY
<==============PrimitiveHead.SIMPLE
<======
Branch
byte parentHeadType;
? (s.parent.head.size() == 0)
parentHeadType = -1;
<======
parentHeadType = s.parent.primitiveHead(0).type;
? (parentHeadType < 0)
??prev
? PrimitiveHead.SIMPLE:
<==============PrimitiveHead.LOOP
<==============PrimitiveHead.CASE
<==============PrimitiveHead.DEFAULT
<==============PrimitiveHead.CATCH
<==============PrimitiveHead.FINALLY
<==============PrimitiveHead.SIMPLE
<======
??parentHeadType
SIMPLE/LOOP
? PrimitiveHead.SIMPLE:
? PrimitiveHead.LOOP:
??prev
? PrimitiveHead.SIMPLE:
<==================PrimitiveHead.LOOP
..case
? PrimitiveHead.LOOP:
<==================PrimitiveHead.CASE
<==================PrimitiveHead.DEFAULT
<==================PrimitiveHead.CATCH
<==================PrimitiveHead.SIMPLE
? PrimitiveHead.SWITCH:
??prev
? PrimitiveHead.CASE:
<==================PrimitiveHead.DEFAULT
<==================PrimitiveHead.CASE
<==================PrimitiveHead.CASE
? PrimitiveHead.TRY:
??prev
? PrimitiveHead.CATCH:
<==================PrimitiveHead.FINALLY
<==================PrimitiveHead.CATCH
<==================PrimitiveHead.CATCH
<======prev