mercurylang/mercury
1
0
Fork 0
mirror of https://github.com/Mercury-Language/mercury.git synced 2026-04-15 17:33:38 +00:00
Code Issues Projects Releases Wiki Activity

Use spaces, not tabs, in the Java and C# runtimes.

Browse Source 
Add modelines to keep it that way.

Fix formatting, and english in comments.
This commit is contained in:
Zoltan Somogyi
2018-07-10 13:52:11 +02:00
parent d8fb7d15a8
commit 8e45a89895
64 changed files with 947 additions and 960 deletions
Download Patch File Download Diff File Expand all files Collapse all files

95
java/runtime/DuFunctorDesc.java
View File

@@ -1,3 +1,4 @@
// vim: ts=4 sw=4 expandtab ft=java
//
// Copyright (C) 2001-2004, 2011 The University of Melbourne.
// Copyright (C) 2015, 2018 The Mercury team.
@@ -7,52 +8,56 @@
package jmercury.runtime;
public class DuFunctorDesc implements java.io.Serializable {
public java.lang.String du_functor_name;
public int du_functor_orig_arity;
public int du_functor_arg_type_contains_var;
public Sectag_Locn du_functor_sectag_locn;
public int du_functor_primary;
public int du_functor_secondary;
public int du_functor_ordinal;
// XXX PseudoTypeInfo's have not been implemented properly
// yet, so this may not be correct.
public /*final*/ PseudoTypeInfo[] du_functor_arg_types;
public /*final*/ java.lang.String[] du_functor_arg_names;
public /*final*/ DuArgLocn[] du_functor_arg_locns;
public /*final*/ DuExistInfo du_functor_exist_info;
public FunctorSubtypeInfo du_functor_subtype_info;
public byte du_functor_num_sectag_bits;
public DuFunctorDesc()
{
}
public java.lang.String du_functor_name;
public int du_functor_orig_arity;
public int du_functor_arg_type_contains_var;
public Sectag_Locn du_functor_sectag_locn;
public int du_functor_primary;
public int du_functor_secondary;
public int du_functor_ordinal;
// XXX PseudoTypeInfo's have not been implemented properly
// yet, so this may not be correct.
public /*final*/ PseudoTypeInfo[] du_functor_arg_types;
public /*final*/ java.lang.String[] du_functor_arg_names;
public /*final*/ DuArgLocn[] du_functor_arg_locns;
public /*final*/ DuExistInfo du_functor_exist_info;
public FunctorSubtypeInfo du_functor_subtype_info;
public byte du_functor_num_sectag_bits; // not used in Java grades
public void init(java.lang.String functor_name, int orig_arity,
int arg_type_contains_var, int sectag_locn, int primary,
int secondary, int ordinal,
// XXX why do we need to use Object here?
java.lang.Object arg_types,
java.lang.Object arg_names,
java.lang.Object arg_locns,
java.lang.Object exist_info,
int functor_subtype_info,
public DuFunctorDesc()
{
}
public void init(java.lang.String functor_name,
int orig_arity,
int arg_type_contains_var,
int sectag_locn,
int primary,
int secondary,
int ordinal,
// XXX why do we need to use Object here?
java.lang.Object arg_types,
java.lang.Object arg_names,
java.lang.Object arg_locns,
java.lang.Object exist_info,
int functor_subtype_info,
byte num_sectag_bits)
{
du_functor_name = functor_name;
du_functor_orig_arity = orig_arity;
du_functor_ordinal = ordinal;
du_functor_arg_type_contains_var = arg_type_contains_var;
du_functor_sectag_locn = new Sectag_Locn(sectag_locn);
du_functor_primary = primary;
du_functor_secondary = secondary;
du_functor_ordinal = ordinal;
du_functor_arg_types = (PseudoTypeInfo []) arg_types;
du_functor_arg_names = (java.lang.String []) arg_names;
du_functor_arg_locns = (DuArgLocn []) arg_locns;
du_functor_exist_info = (DuExistInfo) exist_info;
du_functor_subtype_info =
new FunctorSubtypeInfo(functor_subtype_info);
du_functor_num_sectag_bits = num_sectag_bits;
}
{
du_functor_name = functor_name;
du_functor_orig_arity = orig_arity;
du_functor_ordinal = ordinal;
du_functor_arg_type_contains_var = arg_type_contains_var;
du_functor_sectag_locn = new Sectag_Locn(sectag_locn);
du_functor_primary = primary;
du_functor_secondary = secondary;
du_functor_ordinal = ordinal;
du_functor_arg_types = (PseudoTypeInfo []) arg_types;
du_functor_arg_names = (java.lang.String []) arg_names;
du_functor_arg_locns = (DuArgLocn []) arg_locns;
du_functor_exist_info = (DuExistInfo) exist_info;
du_functor_subtype_info =
new FunctorSubtypeInfo(functor_subtype_info);
du_functor_num_sectag_bits = num_sectag_bits;
}
}