gen « subx - mu - Soul of a tiny new machine. More thorough tests → More comprehensible and rewrite-friendly software → More resilient society.

about summary refs log tree commit diff stats

path: root/subx/gen

blob: a73d763bf7f4b868dd2fdbc65bef94e120baaf6d (plain) (blame)

#!/usr/bin/env zsh
# Build a specific example.

if [[ $1 == 'ex'* ]]
then
  CFLAGS=-g subx translate examples/$1.subx -o examples/`echo $1 |sed 's/\..*//'`
  exit $?
fi

CFLAGS=-g subx translate apps/$1.subx -o apps/`echo $1 |sed 's/\..*//'`
exit $?

pe" content="text/html; charset=UTF-8"> <title>Mu - real_files.mu</title> <meta name="Generator" content="Vim/7.4"> <meta name="plugin-version" content="vim7.4_v2"> <meta name="syntax" content="none"> <meta name="settings" content="use_css,pre_wrap,no_foldcolumn,expand_tabs,prevent_copy="> <meta name="colorscheme" content="minimal"> <style type="text/css">  </style> <script type='text/javascript'>  </script> </head> <body> <pre id='vimCodeElement'> <span class="Comment"># example program: read a character from one file and write it to another</span> <span class="Comment"># BEWARE: this will modify your file system</span> <span class="Comment"># before running it, put a character into /tmp/mu-x</span> <span class="Comment"># after running it, check /tmp/mu-y</span> <span class="muRecipe">def</span> main [ <span class="Constant">local-scope</span> f:number/file<span class="Special"> <- </span>$open-file-for-reading <span class="Constant">[/tmp/mu-x]</span> $print <span class="Constant">[file to read from: ]</span>, f, <span class="Constant">10/newline</span> c:character, eof?:boolean<span class="Special"> <- </span>$read-from-file f $print <span class="Constant">[copying ]</span>, c, <span class="Constant">10/newline</span> f<span class="Special"> <- </span>$close-file f $print <span class="Constant">[file after closing: ]</span>, f, <span class="Constant">10/newline</span> f<span class="Special"> <- </span>$open-file-for-writing <span class="Constant">[/tmp/mu-y]</span> $print <span class="Constant">[file to write to: ]</span>, f, <span class="Constant">10/newline</span> $write-to-file f, c f<span class="Special"> <- </span>$close-file f ] </pre> </body> </html>