[svn:parrot] r38404 - branches/pmc_pct/compilers/pmc/src

[bacek at svn.parrot.org]

Author: bacek
Date: Wed Apr 29 11:33:47 2009
New Revision: 38404
URL: https://trac.parrot.org/parrot/changeset/38404

Log:
Add 'uc' function

Modified:
   branches/pmc_pct/compilers/pmc/src/builtins.pir

Modified: branches/pmc_pct/compilers/pmc/src/builtins.pir
==============================================================================
--- branches/pmc_pct/compilers/pmc/src/builtins.pir	Wed Apr 29 11:33:28 2009	(r38403)
+++ branches/pmc_pct/compilers/pmc/src/builtins.pir	Wed Apr 29 11:33:47 2009	(r38404)
@@ -0,0 +1,22 @@
+# $Id$
+# Copyright (C) 2009, Parrot Foundation.
+
+=head1 Builtins
+
+Variour helper builtins.
+
+=cut
+.namespace []
+
+.sub 'uc'
+    .param pmc arg
+    $S0 = arg
+    $S0 = upcase $S0
+    .return ($S0)
+.end
+
+# Local Variables:
+#   mode: pir
+#   fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4 ft=pir: