<macro name="author">
    <choose>
      <if variable="author">
        <names variable="author">
          <name>
            <name-part name="family" text-case="uppercase"/>
          </name>
          <name name-as-sort-order="all" and="text" sort-separator=", " initialize-with=". " delimiter=", " delimiter-precedes-last="never"/>
          <et-al font-style="italic"/>
          <label form="short" prefix=" (" suffix=")"/>
          <substitute>
            <names variable="editor"/>
            <names variable="translator"/>
            <choose>
              <if type="report">
                <text variable="publisher"/>
                <text macro="title"/>
              </if>
              <else>
                <text macro="title"/>
              </else>
            </choose>
          </substitute>
        </names>
      </if>
      <else>
        <choose>
          <if type="entry-encyclopedia entry-dictionary" match="any">
            <text macro="title"/>
          </if>
          <else>
            <names variable="author">
              <name name-as-sort-order="all" and="text" sort-separator=", " initialize-with=". " delimiter=", " delimiter-precedes-last="never"/>
              <et-al font-style="italic"/>
              <label form="short" prefix=" (" suffix=")"/>
              <substitute>
                <names variable="editor"/>
                <names variable="translator"/>
                <choose>
                  <if type="report">
                    <text variable="publisher"/>
                    <text macro="title"/>
                  </if>
                  <else>
                    <text macro="title"/>
                  </else>
                </choose>
              </substitute>
            </names>
          </else>
        </choose>
      </else>
    </choose>
  </macro>