← Back to branch summary

~ubuntu-branches/ubuntu/oneiric/haxe/oneiric

« back to all changes in this revision

Viewing changes to haxe/genjs.ml

  • Committer: Bazaar Package Importer
  • Author(s): Jens Peter Secher
  • Date: 2009-08-03 21:29:45 UTC
  • mfrom: (5.1.1 squeeze)
  • Revision ID: james.westby@ubuntu.com-20090803212945-hy4s0okm36gtqzz5
Tags: 1:2.4-1
http://bugs.debian.org/533159
http://bugs.debian.org/521222
* New upstream version (CVS 2009-08-01).
* Removed obsolete parts of the copyright file now that ExtLib is 
  not included anymore.
* Included patch for Ubuntu location of zlib, thanks to Alessio Treglia.
  (Closes: #533159)
* Removed haxe-mode to get it into its own package.
  (Closes: #521222)
* Included new commands in bash_completion.
* Removed obsolete Lintian overrides.
* Bumped Standards-Version to 3.8.2, no change.

Show diffs side-by-side

added added

removed removed

Lines of Context:
haxe/genjs.ml
157
157
                        concat ctx "," (gen_value ctx) params;
158
158
                        spr ctx "])";
159
159
                );
160
 
        | TField (e,s) , el ->
161
 
                gen_value ctx e;
162
 
                spr ctx (field s);
163
 
                spr ctx "(";
164
 
                concat ctx "," (gen_value ctx) el;
165
 
                spr ctx ")"
166
160
        | TCall (x,_) , el when x.eexpr <> TLocal "__js__" ->
167
161
                spr ctx "(";
168
162
                gen_value ctx e;
229
223
                print ctx " %s " (Ast.s_binop op);
230
224
                gen_value_op ctx e2;
231
225
        | TField (x,s) ->
232
 
                (match follow e.etype with
233
 
                | TFun _ ->
234
 
                        spr ctx "$closure(";
235
 
                        gen_value ctx x;
236
 
                        spr ctx ",";
237
 
                        gen_constant ctx e.epos (TString s);
238
 
                        spr ctx ")";
239
 
                | _ ->
240
 
                        gen_value ctx x;
241
 
                        spr ctx (field s))
 
226
                gen_value ctx x;
 
227
                spr ctx (field s)
 
228
        | TClosure (x,s) ->
 
229
                spr ctx "$closure(";
 
230
                gen_value ctx x;
 
231
                spr ctx ",";
 
232
                gen_constant ctx e.epos (TString s);
 
233
                spr ctx ")";
242
234
        | TTypeExpr t ->
243
235
                spr ctx (s_path (t_path t))
244
236
        | TParenthesis e ->
512
504
        | TArray _
513
505
        | TBinop _
514
506
        | TField _
 
507
        | TClosure _
515
508
        | TTypeExpr _
516
509
        | TParenthesis _
517
510
        | TObjectDecl _