2008-01-25 08:15:11 -05:00 
										
									 
								 
							 
							
								
							 
							
								 
							
							
								! Copyright (C) 2007 Alex Chapman  
						 
					
						
							
								
							 
							
								
							 
							
								 
							
							
								! See http://factorcode.org/license.txt for BSD license.  
						 
					
						
							
								
									
										
										
										
											2008-01-25 09:13:25 -05:00 
										
									 
								 
							 
							
								
									
										 
								
							 
							
								 
							
							
								USING:  help.markup  help.syntax  ;
  
						 
					
						
							
								
							 
							
								
							 
							
								 
							
							
								IN:  morse  
						 
					
						
							
								
									
										
										
										
											2008-01-25 08:15:11 -05:00 
										
									 
								 
							 
							
								
							 
							
								 
							
							
								
							 
						 
					
						
							
								
							 
							
								
							 
							
								 
							
							
								HELP:  ch>morse  
						 
					
						
							
								
							 
							
								
							 
							
								 
							
							
								{ $values
							 
						 
					
						
							
								
									
										
										
										
											2009-04-20 05:25:11 -04:00 
										
									 
								 
							 
							
								
									
										 
								
							 
							
								 
							
							
								    { "ch"  "A character that has a morse code translation"  } { "morse"  "A string consisting of zero or more dots and dashes"  } }
							 
						 
					
						
							
								
									
										
										
										
											2009-04-19 21:00:38 -04:00 
										
									 
								 
							 
							
								
									
										 
								
							 
							
								 
							
							
								{ $description "If the given character has a morse code translation, then return that translation, otherwise return a ? character."  } ;
 
							 
						 
					
						
							
								
									
										
										
										
											2008-01-25 08:15:11 -05:00 
										
									 
								 
							 
							
								
							 
							
								 
							
							
								
							 
						 
					
						
							
								
							 
							
								
							 
							
								 
							
							
								HELP:  morse>ch  
						 
					
						
							
								
							 
							
								
							 
							
								 
							
							
								{ $values
							 
						 
					
						
							
								
							 
							
								
							 
							
								 
							
							
								    { "str"  "A string of dots and dashes that represents a single character in morse code"  } { "ch"  "The translated character"  } }
							 
						 
					
						
							
								
									
										
										
										
											2009-04-19 21:00:38 -04:00 
										
									 
								 
							 
							
								
									
										 
								
							 
							
								 
							
							
								{ $description "If the given string represents a morse code character, then return that character, otherwise return a space character."  } ;
 
							 
						 
					
						
							
								
									
										
										
										
											2008-01-25 09:13:25 -05:00 
										
									 
								 
							 
							
								
									
										 
								
							 
							
								 
							
							
								
							 
						 
					
						
							
								
							 
							
								
							 
							
								 
							
							
								HELP:  >morse  
						 
					
						
							
								
							 
							
								
							 
							
								 
							
							
								{ $values
							 
						 
					
						
							
								
									
										
										
										
											2009-04-20 05:25:11 -04:00 
										
									 
								 
							 
							
								
									
										 
								
							 
							
								 
							
							
								    { "str"  "A string of ASCII characters which can be translated into morse code"  } { "newstr"  "A string in morse code"  } }
							 
						 
					
						
							
								
									
										
										
										
											2008-01-25 09:13:25 -05:00 
										
									 
								 
							 
							
								
									
										 
								
							 
							
								 
							
							
								{ $description "Translates ASCII text into morse code, represented by a series of dots, dashes, and slashes."  }
							 
						 
					
						
							
								
							 
							
								
							 
							
								 
							
							
								{ $see-also morse> ch>morse } ;
 
							 
						 
					
						
							
								
							 
							
								
							 
							
								 
							
							
								
							 
						 
					
						
							
								
							 
							
								
							 
							
								 
							
							
								HELP:  morse>  
						 
					
						
							
								
									
										
										
										
											2009-04-20 05:25:11 -04:00 
										
									 
								 
							 
							
								
									
										 
								
							 
							
								 
							
							
								{ $values { "morse"  "A string of morse code, in which the character '.' represents dots, '-' dashes, ' ' spaces between letters, and ' / ' spaces between words."  } { "plain"  "The ASCII translation of the given string"  } }
							 
						 
					
						
							
								
									
										
										
										
											2008-01-25 09:13:25 -05:00 
										
									 
								 
							 
							
								
									
										 
								
							 
							
								 
							
							
								{ $description "Translates morse code into ASCII text"  }
							 
						 
					
						
							
								
							 
							
								
							 
							
								 
							
							
								{ $see-also >morse morse>ch } ;
 
							 
						 
					
						
							
								
									
										
										
										
											2008-04-27 08:36:42 -04:00 
										
									 
								 
							 
							
								
									
										 
								
							 
							
								 
							
							
								
							 
						 
					
						
							
								
									
										
										
										
											2008-05-05 20:41:44 -04:00 
										
									 
								 
							 
							
								
									
										 
								
							 
							
								 
							
							
								HELP:  play-as-morse*  
						 
					
						
							
								
									
										
										
										
											2008-04-27 08:36:42 -04:00 
										
									 
								 
							 
							
								
									
										 
								
							 
							
								 
							
							
								{ $values { "str"  "A string of ascii characters which can be translated into morse code"  } { "unit-length"  "The length of a dot"  } }
							 
						 
					
						
							
								
									
										
										
										
											2008-04-27 22:17:08 -04:00 
										
									 
								 
							 
							
								
									
										 
								
							 
							
								 
							
							
								{ $description "Plays a string as morse code"  } ;
 
							 
						 
					
						
							
								
									
										
										
										
											2008-05-05 20:41:44 -04:00 
										
									 
								 
							 
							
								
									
										 
								
							 
							
								 
							
							
								
							 
						 
					
						
							
								
							 
							
								
							 
							
								 
							
							
								HELP:  play-as-morse  
						 
					
						
							
								
							 
							
								
							 
							
								 
							
							
								{ $values { "str"  "A string of ascii characters which can be translated into morse code"  } }
							 
						 
					
						
							
								
							 
							
								
							 
							
								 
							
							
								{ $description "Plays a string as morse code"  } ;