about summary refs log tree commit diff stats
path: root/test_apps
blob: e6276cb723e5e23711e135db6f19aad4c2f3ab73 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
pre { line-height: 125%; }
td.linenos .normal { color: inherit; background-color: transparent; padding-left: 5px; padding-right: 5px; }
span.linenos { color: inherit; background-color: transparent; padding-left: 5px; padding-right: 5px; }
td.linenos .special { color: #000000; background-color: #ffffc0; padding-left: 5px; padding-right: 5px; }
span.linenos.special { color: #000000; background-color: #ffffc0; padding-left: 5px; padding-right: 5px; }
.highlight .hll { background-color: #ffffcc }
.highlight .c { color: #888888 } /* Comment */
.highlight .err { color: #a61717; background-color: #e3d2d2 } /* Error */
.highlight .k { color: #008800; font-weight: bold } /* Keyword */
.highlight .ch { color: #888888 } /* Comment.Hashbang */
.highlight .cm { color: #888888 } /* Comment.Multiline */
.highlight .cp { color: #cc0000; font-weight: bold } /* Comment.Preproc */
.highlight .cpf { color: #888888 } /* Comment.PreprocFile */
.highlight .c1 { color: #888888 } /* Comment.Single */
.highlight .cs { color: #cc0000; font-weight: bold; background-color: #fff0f0 } /* Comment.Special */
.highlight .gd { color: #000000; background-color: #ffdddd } /* Generic.Deleted */
.highlight .ge { font-style: italic } /* Generic.Emph */
.highlight .ges { font-weight: bold; font-style: italic } /* Generic.EmphStrong */
.highlight .gr { color: #aa0000 } /* Generic.Error */
.highlight .gh { color: #333333 } /* Generic.Heading */
.highlight .gi { color: #000000; background-color: #ddffdd } /* Generic.Inserted */
.highlight .go { color: #888888 } /* Generic.Output */
.highlight .gp { color: #555555 } /* Generic.Prompt */
.highlight .gs { font-weight: bold } /* Generic.Strong */
.highlight .gu { color: #666666 } /* Generic.Subheading */
.highlight .gt { color: #aa0000 } /* Generic.Traceback */
.highlight .kc { color: #008800; font-weight: bold } /* Keyword.Constant */
.highlight .kd { color: #008800; font-weight: bold } /* Keyword.Declaration */
.highlight .kn { color: #008800; font-weight: bold } /* Keyword.Namespace */
.highlight .kp { color: #008800 } /* Keyword.Pseudo */
.highlight .kr { color: #008800; font-weight: bold } /* Keyword.Reserved */
.highlight .kt { color: #888888; font-weight: bold } /* Keyword.Type */
.highlight .m { color: #0000DD; font-weight: bold } /* Literal.Number */
.highlight .s { color: #dd2200; background-color: #fff0f0 } /* Literal.String */
.highlight .na { color: #336699 } /* Name.Attribute */
.highlight .nb { color: #003388 } /* Name.Builtin */
.highlight .nc { color: #bb0066; font-weight: bold } /* Name.Class */
.highlight .no { color: #003366; font-weight: bold } /* Name.Constant */
.highlight .nd { color: #555555 } /* Name.Decorator */
.highlight .ne { color: #bb0066; font-weight: bold } /* Name.Exception */
.highlight .nf { color: #0066bb; font-weight: bold } /* Name.Function */
.highlight .nl { color: #336699; font-style: italic } /* Name.Label */
.highlight .nn { color: #bb0066; font-weight: bold } /* Name.Namespace */
.highlight .py { color: #336699; font-weight: bold } /* Name.Property */
.highlight .nt { color: #bb0066; font-weight: bold } /* Name.Tag */
.highlight .nv { color: #336699 } /* Name.Variable */
.highlight .ow { color: #008800 } /* Operator.Word */
.highlight .w { color: #bbbbbb } /* Text.Whitespace */
.highlight .mb { color: #0000DD; font-weight: bold } /* Literal.Number.Bin */
.highlight .mf { color: #0000DD; font-weight: bold } /* Literal.Number.Float */
.highlight .mh { color: #0000DD; font-weight: bold } /* Literal.Number.Hex */
.highlight .mi { color: #0000DD; font-weight: bold } /* Literal.Number.Integer */
.highlight .mo { color: #0000DD; font-weight: bold } /* Literal.Number.Oct */
.highlight .sa { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Affix */
.highlight .sb { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Backtick */
.highlight .sc { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Char */
.highlight .dl { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Delimiter */
.highlight .sd { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Doc */
.highlight .s2 { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Double */
.highlight .se { color: #0044dd; background-color: #fff0f0 } /* Literal.String.Escape */
.highlight .sh { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Heredoc */
.highlight .si { color: #3333bb; background-color: #fff0f0 } /* Literal.String.Interpol */
.highlight .sx { color: #22bb22; background-color: #f0fff0 } /* Literal.String.Other */
.highlight .sr { color: #008800; background-color: #fff0ff } /* Literal.String.Regex */
.highlight .s1 { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Single */
.highlight .ss { color: #aa6600; background-color: #fff0f0 } /* Literal.String.Symbol */
.highlight .bp { color: #003388 } /* Name.Builtin.Pseudo */
.highlight .fm { color: #0066bb; font-weight: bold } /* Name.Function.Magic */
.highlight .vc { color: #336699 } /* Name.Variable.Class */
.highlight .vg { color: #dd7700 } /* Name.Variable.Global */
.highlight .vi { color: #3333bb } /* Name.Variable.Instance */
.highlight .vm { color: #336699 } /* Name.Variable.Magic */
.highlight .il { color: #0000DD; font-weight: bold } /* Literal.Number.Integer.Long */
/*
 * contact.h
 *
 * Copyright (C) 2012 - 2014 James Booth <boothj5@gmail.com>
 *
 * This file is part of Profanity.
 *
 * Profanity is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * Profanity is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with Profanity.  If not, see <http://www.gnu.org/licenses/>.
 *
 */

#ifndef CONTACT_H
#define CONTACT_H

#include "resource.h"

typedef struct p_contact_t *PContact;

PContact p_contact_new(const char * const barejid, const char * const name,
    GSList *groups, const char * const subscription,
    const char * const offline_message, gboolean pending_out);
void p_contact_add_resource(PContact contact, Resource *resource);
gboolean p_contact_remove_resource(PContact contact, const char * const 
#!/bin/sh
# Build and test all included SubX programs:
#   translate them into ELF binaries
#   compare the generated binaries with what's already in git
#   run/test the ELF binaries in emulated mode (unless $NO_EMULATION)
#   run/test the ELF binaries in native mode (if on Linux)
#
# Example usage:
#   test_apps  # compare generated binaries, run them in emulated and native mode
#   test_apps record  # run binaries in emulated and native mode
#   NO_EMULATION=1 test_apps  # compare generated binaries, run them in native mode
#   NO_EMULATION=1 test_apps record  # run binaries just in native mode

set -e
cd `dirname $0`

test $NO_EMULATION  ||  EMULATED=1
test $EMULATED  &&  echo 'testing emulated runs'
test `uname` = 'Linux'  &&  NATIVE=1
test $NATIVE  &&  echo 'testing native runs'

./build

export OS=${OS:-linux}

echo "== translating and running using C++"

# example programs

echo ex1
./bootstrap translate init.$OS apps/ex1.subx  -o apps/ex1
test "$1" = 'record'  ||  git diff --exit-code apps/ex1
test $EMULATED  &&  {
  ./bootstrap run apps/ex1  ||  ret=$?
  test $ret -eq 42  # life, the universe and everything
}
test $NATIVE  &&  {
  apps/ex1  ||  ret=$?
  test $ret -eq 42  # life, the universe and everything
}

echo ex2
./bootstrap translate init.$OS apps/ex2.subx  -o apps/ex2
test "$1" = 'record'  ||  git diff --exit-code apps/ex2
test $EMULATED  &&  {
  ./bootstrap run apps/ex2  ||  ret=$?
  test $ret -eq 2  # 1 + 1
}
test $NATIVE  &&  {
  apps/ex2  ||  ret=$?
  test $ret -eq 2  # 1 + 1
}

echo ex3
./bootstrap translate init.$OS apps/ex3.subx  -o apps/ex3
test "$1" = 'record'  ||  git diff --exit-code apps/ex3
test $EMULATED  &&  {
  ./bootstrap run apps/ex3  ||  ret=$?
  test $ret -eq 55  # 1 + 2 + ... + 10
}
test $NATIVE  &&  {
  apps/ex3  ||  ret=$?
  test $ret -eq 55  # 1 + 2 + ... + 10
}

echo ex4
./bootstrap translate init.$OS apps/ex4.subx  -o apps/ex4
test "$1" = 'record'  ||  git diff --exit-code apps/ex4
test $EMULATED  &&  {
  echo a | ./bootstrap run apps/ex4 >ex4.out  ||  true
  test `cat ex4.out` = 'a'
}
test $NATIVE  &&  {
  echo a | apps/ex4 >ex4.out  ||  true
  test `cat ex4.out` = 'a'
}

echo ex5
./bootstrap translate init.$OS apps/ex5.subx  -o apps/ex5
test "$1" = 'record'  ||  git diff --exit-code apps/ex5
test $EMULATED  &&  {
  echo a | ./bootstrap run apps/ex5 >ex5.out  ||  true
  test `cat ex5.out` = 'a'
}
test $NATIVE  &&  {
  echo a | apps/ex5 >ex5.out  ||  true
  test `cat ex5.out` = 'a'
}

echo ex6
./bootstrap translate init.$OS apps/ex6.subx  -o apps/ex6
test "$1" = 'record'  ||  git diff --exit-code apps/ex6
test $EMULATED  &&  {
  ./bootstrap run apps/ex6 >ex6.out  ||  true
  test "`cat ex6.out`" = 'Hello, world!'
}
test $NATIVE  &&  {
  apps/ex6 >ex6.out  ||  true
  test "`cat ex6.out`" = 'Hello, world!'
}

echo ex7
./bootstrap translate init.$OS apps/ex7.subx  -o apps/ex7
test "$1" = 'record'  ||  git diff --exit-code apps/ex7
test $EMULATED  &&  {
  ./bootstrap run apps/ex7  ||  ret=$?
  test $ret -eq 97  # 'a'
}
test $NATIVE  &&  {
  apps/ex7  ||  ret=$?
  test $ret -eq 97  # 'a'
}

echo ex8
./bootstrap translate init.$OS apps/ex8.subx  -o apps/ex8
test "$1" = 'record'  || git diff --exit-code apps/ex8
test $EMULATED  &&  {
  ./bootstrap run apps/ex8 abcd  ||  ret=$?
  test $ret -eq 4  # length('abcd')
}
test $NATIVE  &&  {
  apps/ex8 abcd  ||  ret=$?
  test $ret -eq 4  # length('abcd')
}

echo ex9
./bootstrap translate init.$OS apps/ex9.subx  -o apps/ex9
test "$1" = 'record'  || git diff --exit-code apps/ex9
test $EMULATED  &&  {
  ./bootstrap run apps/ex9 z x  ||  ret=$?
  test $ret -eq 2  # 'z' - 'x'
}
test $NATIVE  &&  {
  apps/ex9 z x  ||  ret=$?
  test $ret -eq 2  # 'z' - 'x'
}

echo ex10
./bootstrap translate init.$OS apps/ex10.subx  -o apps/ex10
test "$1" = 'record'  || git diff --exit-code apps/ex10
test $EMULATED  &&  {
  ./bootstrap run apps/ex10 abc abc  ||  ret=$?
  test $ret -eq 1  # equal
  ./bootstrap run apps/ex10 abc abcd  # 0; not equal
}
test $NATIVE  &&  {
  apps/ex10 abc abc  ||  ret=$?
  test $ret -eq 1  # equal
  apps/ex10 abc abcd  # 0; not equal
}

echo ex11
./bootstrap translate init.$OS apps/ex11.subx  -o apps/ex11
test "$1" = 'record'  || git diff --exit-code apps/ex11
test $EMULATED  &&  {
  ./bootstrap run apps/ex11
  echo
}
test $NATIVE  &&  {
  apps/ex11
  echo
}

echo ex12
./bootstrap translate init.$OS apps/ex12.subx  -o apps/ex12
test "$1" = 'record'  || git diff --exit-code apps/ex12
test $EMULATED  &&  ./bootstrap run apps/ex12  # final byte of mmap'd address is well-nigh guaranteed to be 0
test $NATIVE  &&  apps/ex12

echo ex13
./bootstrap translate init.$OS apps/ex13.subx  -o apps/ex13
test "$1" = 'record'  ||  git diff --exit-code apps/ex13
test $EMULATED  &&  {
  ./bootstrap run apps/ex13  ||  ret=$?
  test $ret -eq 1  # 3 == 3
}
test $NATIVE  &&  {
  apps/ex13  ||  ret=$?
  test $ret -eq 1  # 3 == 3
}

# Larger apps that use the standard library.

echo factorial
./bootstrap translate init.$OS 0[0-8]*.subx apps/factorial.subx  -o apps/factorial
test "$1" = 'record'  ||  git diff --exit-code apps/factorial
test $EMULATED  &&  {
  ./bootstrap run apps/factorial  ||  ret=$?
  test $ret -eq 120  # factorial(5)
  ./bootstrap run apps/factorial test
  echo
}
test $NATIVE  &&  {
  apps/factorial  ||  ret=$?
  test $ret -eq 120  # factorial(5)
  apps/factorial test
  echo
}

echo crenshaw2-1
./bootstrap translate init.$OS 0[0-8]*.subx apps/crenshaw2-1.subx  -o apps/crenshaw2-1
test "$1" = 'record'  ||  git diff --exit-code apps/crenshaw2-1
test $EMULATED  &&  {
  ./bootstrap run apps/crenshaw2-1 test
  echo
}
test $NATIVE  &&  {
  apps/crenshaw2-1 test
  echo
}

echo crenshaw2-1b
./bootstrap translate init.$OS 0[0-8]*.subx apps/crenshaw2-1b.subx  -o apps/crenshaw2-1b
test "$1" = 'record'  ||  git diff --exit-code apps/crenshaw2-1b
test $EMULATED  &&  {
  ./bootstrap run apps/crenshaw2-1b test
  echo
}
test $NATIVE  &&  {
  apps/crenshaw2-1b test
  echo
}

# Phases of the self-hosted SubX translator.

for phase in hex survey pack assort dquotes tests
do
  echo $phase
  ./bootstrap translate init.$OS 0[0-8]*.subx apps/subx-params.subx apps/$phase.subx -o apps/$phase
  test "$1" = 'record'  ||  git diff --exit-code apps/$phase
  test $EMULATED  &&  {
    ./bootstrap run apps/$phase test
    echo
  }
  test $NATIVE  &&  {
    apps/$phase test
    echo
  }
done

#? # Higher-level syntax.
#? 
#? # Certain phases of translation run native beyond this point. We're starting
#? # to go beyond functionality of the C++ bootstrap.
#? 
#? echo sigils
#? ./bootstrap translate init.$OS 0*.subx apps/subx-params.subx apps/sigils.subx  -o apps/sigils
#? [ "$1" != record ]  &&  git diff --exit-code apps/sigils
#? test $EMULATED  &&  {
#?   ./bootstrap run apps/sigils test
#?   echo
#? }
#? test `uname` = 'Linux'  &&  {
#?   apps/sigils test
#?   echo
#? }
#? 
#? test $NATIVE  ||  { echo 'there are more tests, but you need Linux to run them'; exit 0; }
#? 
#? echo calls
#? cat init.$OS 0*.subx apps/subx-params.subx apps/calls.subx  |  apps/sigils  > a.sigils
#? ./bootstrap translate a.sigils -o apps/calls
#? [ "$1" != record ]  &&  git diff --exit-code apps/calls
#? test $EMULATED  &&  {
#?   ./bootstrap run apps/calls test
#?   echo
#? }
#? test `uname` = 'Linux'  &&  {
#?   apps/calls test
#?   echo
#? }
#? 
#? echo braces
#? cat init.$OS 0*.subx apps/subx-params.subx apps/braces.subx  |  apps/calls  |  apps/sigils  > a.sigils
#? ./bootstrap translate a.sigils -o apps/braces
#? [ "$1" != record ]  &&  git diff --exit-code apps/braces
#? test $EMULATED  &&  {
#?   ./bootstrap run apps/braces test
#?   echo
#? }
#? test `uname` = 'Linux'  &&  {
#?   apps/braces test
#?   echo
#? }

#? echo mu
#? cat init.$OS [0-9]*.subx apps/mu.subx  |  apps/braces  |  apps/calls  |  apps/sigils  > a.sigils
#? ./bootstrap translate a.sigils -o apps/mu
#? [ "$1" != record ]  &&  git diff --exit-code apps/mu
#? test $EMULATED  &&  {
#?   ./bootstrap run apps/mu test
#?   echo
#? }
#? test `uname` = 'Linux'  &&  {
#?   apps/mu test
#?   echo
#? }

test $NATIVE  ||  exit 0
echo "== translating using SubX (native only)"

# example programs

for n in `seq 1 12`
do
  echo ex$n
  ./translate_subx init.$OS apps/ex$n.subx
  diff apps/ex$n a.elf
done

# Larger apps that use the standard library.

for app in factorial crenshaw2-1 crenshaw2-1b
do
  echo $app
  ./translate_subx init.$OS 0[0-8]*.subx apps/$app.subx
  diff apps/$app a.elf
done

#? # Phases of the self-hosted SubX translator.
#? 
#? for app in hex survey pack assort dquotes tests
#? do
#?   echo $app
#?   ./translate_subx init.$OS 0[0-8]*.subx apps/subx-params.subx apps/$app.subx
#?   diff apps/$app a.elf
#? done
#? 
#? for app in sigils calls braces
#? do
#?   echo $app
#?   ./translate_subx init.$OS 0*.subx apps/subx-params.subx apps/$app.subx
#?   diff apps/$app a.elf
#? done
#? 
#? # Mu translator
#? echo mu
#? ./translate_subx init.$OS [0-9]*.subx apps/mu.subx
#? diff apps/mu a.elf

exit 0