From 0727bfcaf2bd48bf501a7fa95515c400a1996902 Mon Sep 17 00:00:00 2001 From: Bryan Jurish Date: Thu, 2 Feb 2006 12:49:19 +0000 Subject: initial cvs import svn path=/trunk/externals/moocow/; revision=4536 --- gfsm/src/gfsm_alphabet-help.pd | 64 ++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 64 insertions(+) create mode 100644 gfsm/src/gfsm_alphabet-help.pd (limited to 'gfsm/src/gfsm_alphabet-help.pd') diff --git a/gfsm/src/gfsm_alphabet-help.pd b/gfsm/src/gfsm_alphabet-help.pd new file mode 100644 index 0000000..b3d6653 --- /dev/null +++ b/gfsm/src/gfsm_alphabet-help.pd @@ -0,0 +1,64 @@ +#N canvas 16 0 646 547 10; +#X text 289 523 Bryan Jurish ; +#X text 9 524 SEE ALSO:; +#X text 9 69 INLETS:; +#X text 27 83 1 - control messages; +#X text 244 68 OUTLETS:; +#X obj 80 525 gfsm; +#X text 48 48 NAME - symbolic name of the alphabet; +#X text 260 81 1 - value outlet; +#X text 260 96 2 - bang on missing value; +#X text 14 31 SYNTAX: gfsm_alphabet [NAME]; +#X obj 13 493 print CHAR; +#X obj 197 492 print ATOM; +#X msg 29 182 insert x 1; +#X text 163 185 "insert ATOM CHAR" : map ATOM<->CHAR; +#X msg 33 203 insert y; +#X text 198 203 "insert ATOM" : map ATOM to a new character label; +#X msg 48 232 atom2char x; +#X text 177 233 "atom2char ATOM" : lookup character label for ATOM +; +#X text 170 253 "atom2char! ATOM" : lookup or insert label for ATOM +; +#X text 184 284 "char2atom INT" : lookup atom for label INT; +#X text 177 301 "char2atom! INT" : lookup or insert atom for INT; +#X msg 63 281 char2atom 1; +#X msg 65 301 char2atom! 42; +#X msg 52 252 atom2char! foo; +#X text 184 129 "alphabet NAME" : sets current alphabet; +#X msg 19 151 alphabet; +#X text 219 145 "alphabet" : use private alphabet; +#X text 309 159 NOTE: alphabets of the same name share data; +#X msg 75 332 clear; +#X msg 91 405 print; +#X text 240 404 "print" : dump alphabet contents to the console; +#X msg 91 445 save tmp.lab; +#X text 212 425 "load FILE" : load alphabet contents from a file; +#X text 212 445 "save FILE" : save alphabet contents to a file; +#X text 67 4 gfsm_alphabet : integer<->atom map for finite state machines +; +#X text 240 333 "clear" : clears entire alphabet; +#X msg 76 353 rmatom x; +#X msg 77 374 rmchar 1; +#X text 205 372 "rmchar INT" : remove mapping for label INT; +#X text 198 353 "rmatom ATOM" : remove mapping for atom ATOM; +#X obj 117 525 gfsm_automaton; +#X obj 13 471 gfsm_alphabet help-alphabet; +#X msg 13 127 alphabet help-alphabet; +#X msg 92 425 load tmp.lab; +#X connect 12 0 41 0; +#X connect 14 0 41 0; +#X connect 16 0 41 0; +#X connect 21 0 41 0; +#X connect 22 0 41 0; +#X connect 23 0 41 0; +#X connect 25 0 41 0; +#X connect 28 0 41 0; +#X connect 29 0 41 0; +#X connect 31 0 41 0; +#X connect 36 0 41 0; +#X connect 37 0 41 0; +#X connect 41 0 10 0; +#X connect 41 1 11 0; +#X connect 42 0 41 0; +#X connect 43 0 41 0; -- cgit v1.2.1