languages/tcl/runtime/builtin/encoding.pir

   1 ###
   2 # [encoding]
   3
   4 .HLL 'Tcl', 'tcl_group'
   5 .namespace []
   6
   7 .sub '&encoding'
   8   .param pmc argv :slurpy
   9
  10   .local pmc retval
  11
  12   $I3 = argv
  13   unless $I3 goto no_args
  14
  15   .local string subcommand_name
  16   subcommand_name = shift argv
  17
  18   .local pmc options
  19   options = new 'ResizablePMCArray'
  20   push options, 'convertfrom'
  21   push options, 'convertto'
  22   push options, 'dirs'
  23   push options, 'names'
  24   push options, 'system'
  25
  26   .local pmc select_option
  27   select_option  = get_root_global ['_tcl'], 'select_option'
  28   .local string canonical_subcommand
  29   canonical_subcommand = select_option(options, subcommand_name)
  30
  31   .local pmc subcommand_proc
  32   null subcommand_proc
  33
  34   subcommand_proc = get_root_global ['_tcl'; 'helpers'; 'encoding'], canonical_subcommand
  35   if_null subcommand_proc, bad_args
  36   .return subcommand_proc(argv)
  37
  38 bad_args:
  39   .return ('') # once all commands are implemented, remove this...
  40
  41 no_args:
  42   tcl_error 'wrong # args: should be "encoding option ?arg ...?"'
  43
  44 .end
  45
  46 .HLL '_Tcl', ''
  47
  48 .namespace [ 'helpers'; 'encoding' ]
  49
  50 .sub 'convertfrom'
  51   .param pmc argv
  52
  53   .local int argc
  54   argc = elements argv
  55
  56   if argc == 0 goto bad_args
  57   if argc > 2  goto bad_args
  58
  59   .return('')
  60
  61 bad_args:
  62   tcl_error 'wrong # args: should be "encoding convertfrom ?encoding? data"'
  63 .end
  64
  65 .sub 'convertto'
  66   .param pmc argv
  67
  68   .local int argc
  69   argc = elements argv
  70
  71   if argc == 0 goto bad_args
  72   if argc > 2  goto bad_args
  73
  74   .return('')
  75
  76 bad_args:
  77   tcl_error 'wrong # args: should be "encoding convertto ?encoding? data"'
  78 .end
  79
  80 .sub 'dirs'
  81   .param pmc argv
  82
  83   .local int argc
  84   argc = elements argv
  85
  86   if argc > 1  goto bad_args
  87
  88   .return('')
  89
  90 bad_args:
  91   tcl_error 'wrong # args: should be "encoding dirs ?directoryList?"'
  92 .end
  93
  94 .sub 'names'
  95   .param pmc argv
  96
  97   .local int argc
  98   argc = elements argv
  99
 100   if argc != 0 goto bad_args
 101
 102   .return('')
 103
 104 bad_args:
 105   tcl_error 'wrong # args: should be "encoding names"'
 106 .end
 107
 108 .sub 'system'
 109   .param pmc argv
 110
 111   .local int argc
 112   argc = elements argv
 113
 114   if argc > 1  goto bad_args
 115
 116   .return('')
 117
 118 bad_args:
 119   tcl_error 'wrong # args: should be "encoding system ?encoding?"'
 120 .end
 121
 122 # Local Variables:
 123 #   mode: pir
 124 #   fill-column: 100
 125 # End:
 126 # vim: expandtab shiftwidth=4 ft=pir: