mirror of
https://github.com/ganelson/inform.git
synced 2024-07-08 18:14:21 +03:00
594 lines
166 KiB
HTML
594 lines
166 KiB
HTML
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
|
|
<html>
|
|
<head>
|
|
<title>1/bs</title>
|
|
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
|
|
<meta http-equiv="Content-Language" content="en-gb">
|
|
<link href="inweb.css" rel="stylesheet" rev="stylesheet" type="text/css">
|
|
</head>
|
|
<body>
|
|
|
|
<!--Weave of '1/ip' generated by 7-->
|
|
<ul class="crumbs"><li><a href="../webs.html">★</a></li><li><a href="index.html">building</a></li><li><a href="index.html#1">Chapter 1: Architecture</a></li><li><b>Inter Primitives</b></li></ul><p class="inwebparagraph"><a id="SP1"></a><b>§1. </b></p>
|
|
|
|
|
|
<pre class="display">
|
|
<span class="reserved">void</span><span class="plain"> </span><span class="functiontext">Primitives::emit</span><span class="plain">(</span><span class="identifier">inter_tree</span><span class="plain"> *</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">inter_bookmark</span><span class="plain"> *</span><span class="identifier">IBM</span><span class="plain">) {</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!font"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val -> void"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!stylebold"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"void -> void"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!styleunderline"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"void -> void"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!stylereverse"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"void -> void"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!styleroman"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"void -> void"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!print"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val -> void"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!printret"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val -> void"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!printchar"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val -> void"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!printname"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val -> void"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!printobj"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val -> void"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!printproperty"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val -> void"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!printnumber"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val -> void"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!printaddress"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val -> void"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!printstring"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val -> void"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!printnlnumber"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val -> void"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!printdef"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val -> void"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!printcdef"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val -> void"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!printindef"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val -> void"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!printcindef"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val -> void"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!box"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val -> void"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!push"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val -> void"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!pull"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"ref -> void"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!postincrement"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"ref -> val"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!preincrement"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"ref -> val"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!postdecrement"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"ref -> val"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!predecrement"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"ref -> val"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!return"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val -> void"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!quit"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"void -> void"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!restore"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"lab -> void"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!spaces"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val -> void"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!break"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"void -> void"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!continue"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"void -> void"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!jump"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"lab -> void"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!move"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val val -> void"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!remove"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val -> void"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!give"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val val -> void"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!take"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val val -> void"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!store"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"ref val -> val"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!setbit"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"ref val -> void"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!clearbit"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"ref val -> void"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!modulo"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val val -> val"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!random"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val -> val"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!lookup"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val val -> val"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!lookupbyte"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val val -> val"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!lookupref"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val val -> ref"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!not"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val -> val"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!and"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val val -> val"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!or"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val val -> val"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!alternative"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val val -> val"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!alternativecase"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val val -> val"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!bitwiseand"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val val -> val"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!bitwiseor"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val val -> val"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!bitwisenot"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val -> val"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!eq"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val val -> val"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!ne"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val val -> val"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!gt"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val val -> val"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!ge"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val val -> val"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!lt"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val val -> val"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!le"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val val -> val"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!has"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val val -> val"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!hasnt"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val val -> val"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!in"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val val -> val"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!ofclass"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val val -> val"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!sequential"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val val -> val"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!ternarysequential"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val val val -> val"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!plus"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val val -> val"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!minus"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val val -> val"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!unaryminus"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val -> val"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!times"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val val -> val"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!divide"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val val -> val"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!if"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val code -> void"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!ifdebug"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"code -> void"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!ifstrict"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"code -> void"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!ifelse"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val code code -> void"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!while"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val code -> void"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!do"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val code -> void"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!for"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val val val code -> void"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!objectloop"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"ref val val code -> void"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!objectloopx"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"ref val code -> void"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!switch"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val code -> void"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!case"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val code -> void"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!default"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"code -> void"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!indirect0v"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val -> void"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!indirect1v"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val val -> void"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!indirect2v"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val val val -> void"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!indirect3v"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val val val val -> void"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!indirect4v"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val val val val val -> void"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!indirect5v"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val val val val val val -> void"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!indirect0"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val -> val"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!indirect1"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val val -> val"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!indirect2"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val val val -> val"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!indirect3"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val val val val -> val"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!indirect4"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val val val val val -> val"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!indirect5"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val val val val val val -> val"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!message0"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val val -> val"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!message1"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val val val -> val"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!message2"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val val val val -> val"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!message3"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val val val val val -> val"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!callmessage0"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val -> val"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!callmessage1"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val val -> val"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!callmessage2"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val val val -> val"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!callmessage3"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val val val val -> val"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!propertyaddress"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val val -> val"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!propertylength"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val val -> val"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!provides"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val val -> val"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!propertyvalue"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val val -> val"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!notin"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val val -> val"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!read"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"val val -> void"</span><span class="plain">);</span>
|
|
<span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!inversion"</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"void -> void"</span><span class="plain">);</span>
|
|
<span class="plain">}</span>
|
|
|
|
<span class="identifier">inter_symbol</span><span class="plain"> *</span><span class="functiontext">Primitives::get</span><span class="plain">(</span><span class="identifier">inter_tree</span><span class="plain"> *</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">inter_t</span><span class="plain"> </span><span class="identifier">bip</span><span class="plain">) {</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">I</span><span class="plain"> == </span><span class="identifier">NULL</span><span class="plain">) </span><span class="identifier">internal_error</span><span class="plain">(</span><span class="string">"no tree"</span><span class="plain">);</span>
|
|
<span class="reserved">if</span><span class="plain"> ((</span><span class="identifier">bip</span><span class="plain"> < 1) || (</span><span class="identifier">bip</span><span class="plain"> >= </span><span class="constant">MAX_BIPS</span><span class="plain">)) </span><span class="identifier">internal_error</span><span class="plain">(</span><span class="string">"bip out of range"</span><span class="plain">);</span>
|
|
<span class="reserved">return</span><span class="plain"> </span><span class="functiontext">Site::get_opcode</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">bip</span><span class="plain">);</span>
|
|
<span class="plain">}</span>
|
|
|
|
<span class="reserved">void</span><span class="plain"> </span><span class="functiontext">Primitives::emit_one</span><span class="plain">(</span><span class="identifier">inter_tree</span><span class="plain"> *</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">inter_bookmark</span><span class="plain"> *</span><span class="identifier">IBM</span><span class="plain">, </span><span class="identifier">text_stream</span><span class="plain"> *</span><span class="identifier">prim</span><span class="plain">, </span><span class="identifier">text_stream</span><span class="plain"> *</span><span class="identifier">category</span><span class="plain">) {</span>
|
|
<span class="identifier">TEMPORARY_TEXT</span><span class="plain">(</span><span class="identifier">prim_command</span><span class="plain">);</span>
|
|
<span class="identifier">WRITE_TO</span><span class="plain">(</span><span class="identifier">prim_command</span><span class="plain">, </span><span class="string">"primitive %S %S"</span><span class="plain">, </span><span class="identifier">prim</span><span class="plain">, </span><span class="identifier">category</span><span class="plain">);</span>
|
|
<span class="functiontext">Produce::guard</span><span class="plain">(</span><span class="identifier">Inter::Defn::read_construct_text</span><span class="plain">(</span><span class="identifier">prim_command</span><span class="plain">, </span><span class="identifier">NULL</span><span class="plain">, </span><span class="identifier">IBM</span><span class="plain">));</span>
|
|
<span class="identifier">inter_error_message</span><span class="plain"> *</span><span class="identifier">E</span><span class="plain"> = </span><span class="identifier">NULL</span><span class="plain">;</span>
|
|
<span class="identifier">inter_symbol</span><span class="plain"> *</span><span class="identifier">S</span><span class="plain"> = </span><span class="identifier">Inter::Textual::find_symbol</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">NULL</span><span class="plain">, </span><span class="identifier">Inter::Tree::global_scope</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">), </span><span class="identifier">prim</span><span class="plain">, </span><span class="identifier">PRIMITIVE_IST</span><span class="plain">, &</span><span class="identifier">E</span><span class="plain">);</span>
|
|
<span class="identifier">inter_t</span><span class="plain"> </span><span class="identifier">bip</span><span class="plain"> = </span><span class="functiontext">Primitives::to_bip</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">S</span><span class="plain">);</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">bip</span><span class="plain"> == 0) </span><span class="identifier">internal_error</span><span class="plain">(</span><span class="string">"missing bip"</span><span class="plain">);</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">bip</span><span class="plain"> >= </span><span class="constant">MAX_BIPS</span><span class="plain">) </span><span class="identifier">internal_error</span><span class="plain">(</span><span class="string">"unsafely high bip"</span><span class="plain">);</span>
|
|
<span class="functiontext">Site::set_opcode</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">bip</span><span class="plain">, </span><span class="identifier">S</span><span class="plain">);</span>
|
|
<span class="functiontext">Produce::guard</span><span class="plain">(</span><span class="identifier">E</span><span class="plain">);</span>
|
|
<span class="identifier">DISCARD_TEXT</span><span class="plain">(</span><span class="identifier">prim_command</span><span class="plain">);</span>
|
|
<span class="plain">}</span>
|
|
|
|
<span class="reserved">int</span><span class="plain"> </span><span class="functiontext">Primitives::is_indirect_interp</span><span class="plain">(</span><span class="identifier">inter_t</span><span class="plain"> </span><span class="identifier">s</span><span class="plain">) {</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">s</span><span class="plain"> == </span><span class="constant">INDIRECT0_BIP</span><span class="plain">) </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">TRUE</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">s</span><span class="plain"> == </span><span class="constant">INDIRECT1_BIP</span><span class="plain">) </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">TRUE</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">s</span><span class="plain"> == </span><span class="constant">INDIRECT2_BIP</span><span class="plain">) </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">TRUE</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">s</span><span class="plain"> == </span><span class="constant">INDIRECT3_BIP</span><span class="plain">) </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">TRUE</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">s</span><span class="plain"> == </span><span class="constant">INDIRECT4_BIP</span><span class="plain">) </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">TRUE</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">s</span><span class="plain"> == </span><span class="constant">INDIRECT5_BIP</span><span class="plain">) </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">TRUE</span><span class="plain">;</span>
|
|
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">FALSE</span><span class="plain">;</span>
|
|
<span class="plain">}</span>
|
|
|
|
<span class="identifier">inter_t</span><span class="plain"> </span><span class="functiontext">Primitives::indirect_interp</span><span class="plain">(</span><span class="reserved">int</span><span class="plain"> </span><span class="identifier">arity</span><span class="plain">) {</span>
|
|
<span class="reserved">switch</span><span class="plain"> (</span><span class="identifier">arity</span><span class="plain">) {</span>
|
|
<span class="reserved">case</span><span class="plain"> 0: </span><span class="reserved">return</span><span class="plain"> </span><span class="constant">INDIRECT0_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> 1: </span><span class="reserved">return</span><span class="plain"> </span><span class="constant">INDIRECT1_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> 2: </span><span class="reserved">return</span><span class="plain"> </span><span class="constant">INDIRECT2_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> 3: </span><span class="reserved">return</span><span class="plain"> </span><span class="constant">INDIRECT3_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> 4: </span><span class="reserved">return</span><span class="plain"> </span><span class="constant">INDIRECT4_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> 5: </span><span class="reserved">return</span><span class="plain"> </span><span class="constant">INDIRECT5_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">default</span><span class="plain">: </span><span class="identifier">internal_error</span><span class="plain">(</span><span class="string">"indirect function call with too many arguments"</span><span class="plain">);</span>
|
|
<span class="plain">}</span>
|
|
<span class="reserved">return</span><span class="plain"> 0;</span>
|
|
<span class="plain">}</span>
|
|
|
|
<span class="reserved">int</span><span class="plain"> </span><span class="functiontext">Primitives::is_indirectv_interp</span><span class="plain">(</span><span class="identifier">inter_t</span><span class="plain"> </span><span class="identifier">s</span><span class="plain">) {</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">s</span><span class="plain"> == </span><span class="constant">INDIRECT0V_BIP</span><span class="plain">) </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">TRUE</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">s</span><span class="plain"> == </span><span class="constant">INDIRECT1V_BIP</span><span class="plain">) </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">TRUE</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">s</span><span class="plain"> == </span><span class="constant">INDIRECT2V_BIP</span><span class="plain">) </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">TRUE</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">s</span><span class="plain"> == </span><span class="constant">INDIRECT3V_BIP</span><span class="plain">) </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">TRUE</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">s</span><span class="plain"> == </span><span class="constant">INDIRECT4V_BIP</span><span class="plain">) </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">TRUE</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">s</span><span class="plain"> == </span><span class="constant">INDIRECT5V_BIP</span><span class="plain">) </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">TRUE</span><span class="plain">;</span>
|
|
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">FALSE</span><span class="plain">;</span>
|
|
<span class="plain">}</span>
|
|
|
|
<span class="identifier">inter_t</span><span class="plain"> </span><span class="functiontext">Primitives::indirectv_interp</span><span class="plain">(</span><span class="reserved">int</span><span class="plain"> </span><span class="identifier">arity</span><span class="plain">) {</span>
|
|
<span class="reserved">switch</span><span class="plain"> (</span><span class="identifier">arity</span><span class="plain">) {</span>
|
|
<span class="reserved">case</span><span class="plain"> 0: </span><span class="reserved">return</span><span class="plain"> </span><span class="constant">INDIRECT0V_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> 1: </span><span class="reserved">return</span><span class="plain"> </span><span class="constant">INDIRECT1V_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> 2: </span><span class="reserved">return</span><span class="plain"> </span><span class="constant">INDIRECT2V_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> 3: </span><span class="reserved">return</span><span class="plain"> </span><span class="constant">INDIRECT3V_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> 4: </span><span class="reserved">return</span><span class="plain"> </span><span class="constant">INDIRECT4V_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> 5: </span><span class="reserved">return</span><span class="plain"> </span><span class="constant">INDIRECT5V_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">default</span><span class="plain">: </span><span class="identifier">internal_error</span><span class="plain">(</span><span class="string">"indirectv function call with too many arguments"</span><span class="plain">);</span>
|
|
<span class="plain">}</span>
|
|
<span class="reserved">return</span><span class="plain"> 0;</span>
|
|
<span class="plain">}</span>
|
|
</pre>
|
|
|
|
<p class="inwebparagraph"></p>
|
|
|
|
<p class="endnote">The function Primitives::emit is used in 1/pck (<a href="1-pck.html#SP11">§11</a>).</p>
|
|
|
|
<p class="endnote">The function Primitives::get is used in 3/pi (<a href="3-pi.html#SP2">§2</a>, <a href="3-pi.html#SP3">§3</a>).</p>
|
|
|
|
<p class="endnote">The function Primitives::emit_one appears nowhere else.</p>
|
|
|
|
<p class="endnote">The function Primitives::is_indirect_interp appears nowhere else.</p>
|
|
|
|
<p class="endnote">The function Primitives::indirect_interp appears nowhere else.</p>
|
|
|
|
<p class="endnote">The function Primitives::is_indirectv_interp appears nowhere else.</p>
|
|
|
|
<p class="endnote">The function Primitives::indirectv_interp appears nowhere else.</p>
|
|
|
|
<p class="inwebparagraph"><a id="SP2"></a><b>§2. </b></p>
|
|
|
|
|
|
<pre class="definitions">
|
|
<span class="definitionkeyword">define</span> <span class="constant">MAX_BIPS</span><span class="plain"> 200</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">NOT_BIP</span><span class="definitionkeyword"> from </span><span class="constant">1</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">AND_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">OR_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">ALTERNATIVE_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">ALTERNATIVECASE_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">BITWISEAND_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">BITWISEOR_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">BITWISENOT_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">EQ_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">NE_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">GT_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">GE_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">LT_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">LE_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">OFCLASS_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">HAS_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">HASNT_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">IN_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">NOTIN_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">SEQUENTIAL_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">TERNARYSEQUENTIAL_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">PLUS_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">MINUS_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">UNARYMINUS_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">TIMES_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">DIVIDE_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">MODULO_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">RANDOM_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">RETURN_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">MOVE_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">REMOVE_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">GIVE_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">TAKE_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">JUMP_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">QUIT_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">RESTORE_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">SPACES_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">BREAK_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">CONTINUE_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">STYLEROMAN_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">FONT_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">STYLEBOLD_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">STYLEUNDERLINE_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">STYLEREVERSE_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">PRINT_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">PRINTRET_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">PRINTCHAR_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">PRINTNAME_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">PRINTOBJ_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">PRINTPROPERTY_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">PRINTNUMBER_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">PRINTADDRESS_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">PRINTSTRING_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">PRINTNLNUMBER_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">PRINTDEF_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">PRINTCDEF_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">PRINTINDEF_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">PRINTCINDEF_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">BOX_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">PUSH_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">PULL_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">PREINCREMENT_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">POSTINCREMENT_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">PREDECREMENT_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">POSTDECREMENT_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">STORE_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">SETBIT_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">CLEARBIT_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">IF_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">IFDEBUG_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">IFSTRICT_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">IFELSE_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">WHILE_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">DO_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">FOR_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">OBJECTLOOP_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">OBJECTLOOPX_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">LOOKUP_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">LOOKUPBYTE_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">LOOKUPREF_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">LOOP_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">SWITCH_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">CASE_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">DEFAULT_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">INDIRECT0V_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">INDIRECT1V_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">INDIRECT2V_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">INDIRECT3V_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">INDIRECT4V_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">INDIRECT5V_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">INDIRECT0_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">INDIRECT1_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">INDIRECT2_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">INDIRECT3_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">INDIRECT4_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">INDIRECT5_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">MESSAGE0_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">MESSAGE1_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">MESSAGE2_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">MESSAGE3_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">CALLMESSAGE0_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">CALLMESSAGE1_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">CALLMESSAGE2_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">CALLMESSAGE3_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">PROPERTYADDRESS_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">PROPERTYLENGTH_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">PROVIDES_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">PROPERTYVALUE_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">READ_BIP</span>
|
|
<span class="definitionkeyword">enum</span> <span class="constant">INVERSION_BIP</span>
|
|
</pre>
|
|
|
|
<pre class="display">
|
|
<span class="identifier">text_stream</span><span class="plain"> *</span><span class="functiontext">Primitives::name</span><span class="plain">(</span><span class="identifier">inter_t</span><span class="plain"> </span><span class="identifier">bip</span><span class="plain">) {</span>
|
|
<span class="reserved">switch</span><span class="plain"> (</span><span class="identifier">bip</span><span class="plain">) {</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">NOT_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!not"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">AND_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!and"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">OR_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!or"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">ALTERNATIVE_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!alternative"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">ALTERNATIVECASE_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!alternativecase"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">BITWISEAND_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!bitwiseand"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">BITWISEOR_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!bitwiseor"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">BITWISENOT_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!bitwisenot"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">EQ_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!eq"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">NE_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!ne"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">GT_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!gt"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">GE_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!ge"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">LT_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!lt"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">LE_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!le"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">OFCLASS_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!ofclass"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">HAS_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!has"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">HASNT_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!hasnt"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">IN_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!in"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">NOTIN_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!notin"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">SEQUENTIAL_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!sequential"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">TERNARYSEQUENTIAL_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!ternarysequential"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">PLUS_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!plus"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">MINUS_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!minus"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">UNARYMINUS_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!unaryminus"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">TIMES_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!times"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">DIVIDE_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!divide"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">MODULO_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!modulo"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">RANDOM_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!random"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">RETURN_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!return"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">JUMP_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!jump"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">GIVE_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!give"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">TAKE_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!take"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">MOVE_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!move"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">REMOVE_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!remove"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">QUIT_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!quit"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">RESTORE_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!restore"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">SPACES_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!spaces"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">BREAK_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!break"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">CONTINUE_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!continue"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">FONT_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!font"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">STYLEROMAN_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!styleroman"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">STYLEBOLD_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!stylebold"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">STYLEUNDERLINE_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!styleunderline"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">STYLEREVERSE_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!stylereverse"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">PRINT_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!print"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">PRINTRET_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!printret"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">PRINTCHAR_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!printchar"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">PRINTNAME_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!printname"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">PRINTOBJ_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!printobj"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">PRINTPROPERTY_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!printproperty"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">PRINTNUMBER_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!printnumber"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">PRINTADDRESS_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!printaddress"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">PRINTSTRING_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!printstring"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">PRINTNLNUMBER_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!printnlnumber"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">PRINTDEF_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!printdef"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">PRINTCDEF_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!printcdef"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">PRINTINDEF_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!printindef"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">PRINTCINDEF_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!printcindef"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">BOX_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!box"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">PUSH_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!push"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">PULL_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!pull"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">PREINCREMENT_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!preincrement"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">POSTINCREMENT_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!postincrement"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">PREDECREMENT_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!predecrement"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">POSTDECREMENT_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!postdecrement"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">STORE_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!store"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">SETBIT_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!setbit"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">CLEARBIT_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!clearbit"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">IF_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!if"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">IFDEBUG_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!ifdebug"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">IFSTRICT_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!ifstrict"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">IFELSE_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!ifelse"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">WHILE_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!while"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">DO_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!do"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">FOR_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!for"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">OBJECTLOOP_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!objectloop"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">OBJECTLOOPX_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!objectloopx"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">LOOKUP_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!lookup"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">LOOKUPBYTE_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!lookupbyte"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">LOOKUPREF_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!lookupref"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">LOOP_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!loop"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">SWITCH_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!switch"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">CASE_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!case"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">DEFAULT_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!default"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">INDIRECT0V_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!indirect0v"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">INDIRECT1V_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!indirect1v"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">INDIRECT2V_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!indirect2v"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">INDIRECT3V_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!indirect3v"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">INDIRECT4V_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!indirect4v"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">INDIRECT5V_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!indirect5v"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">INDIRECT0_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!indirect0"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">INDIRECT1_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!indirect1"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">INDIRECT2_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!indirect2"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">INDIRECT3_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!indirect3"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">INDIRECT4_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!indirect4"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">INDIRECT5_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!indirect5"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">MESSAGE0_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!message0"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">MESSAGE1_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!message1"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">MESSAGE2_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!message2"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">MESSAGE3_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!message3"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">CALLMESSAGE0_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!callmessage0"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">CALLMESSAGE1_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!callmessage1"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">CALLMESSAGE2_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!callmessage2"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">CALLMESSAGE3_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!callmessage3"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">PROPERTYADDRESS_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!propertyaddress"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">PROPERTYLENGTH_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!propertylength"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">PROVIDES_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!provides"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">PROPERTYVALUE_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!propertyvalue"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">READ_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!read"</span><span class="plain">;</span>
|
|
<span class="reserved">case</span><span class="plain"> </span><span class="constant">INVERSION_BIP</span><span class="plain">: </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"!inversion"</span><span class="plain">;</span>
|
|
<span class="plain">}</span>
|
|
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">I</span><span class="string">"<none>"</span><span class="plain">;</span>
|
|
<span class="plain">}</span>
|
|
|
|
<span class="reserved">void</span><span class="plain"> </span><span class="functiontext">Primitives::scan_tree</span><span class="plain">(</span><span class="identifier">inter_tree</span><span class="plain"> *</span><span class="identifier">I</span><span class="plain">) {</span>
|
|
<span class="identifier">Inter::Tree::traverse_root_only</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="functiontext">Primitives::scan_visitor</span><span class="plain">, </span><span class="identifier">NULL</span><span class="plain">, </span><span class="identifier">PRIMITIVE_IST</span><span class="plain">);</span>
|
|
<span class="plain">}</span>
|
|
|
|
<span class="reserved">void</span><span class="plain"> </span><span class="functiontext">Primitives::scan_visitor</span><span class="plain">(</span><span class="identifier">inter_tree</span><span class="plain"> *</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">inter_tree_node</span><span class="plain"> *</span><span class="identifier">P</span><span class="plain">, </span><span class="reserved">void</span><span class="plain"> *</span><span class="identifier">v_state</span><span class="plain">) {</span>
|
|
<span class="identifier">inter_symbol</span><span class="plain"> *</span><span class="identifier">prim_name</span><span class="plain"> = </span><span class="identifier">Inter::SymbolsTables::symbol_from_frame_data</span><span class="plain">(</span><span class="identifier">P</span><span class="plain">, </span><span class="identifier">DEFN_PRIM_IFLD</span><span class="plain">);</span>
|
|
<span class="identifier">inter_t</span><span class="plain"> </span><span class="identifier">bip</span><span class="plain"> = </span><span class="functiontext">Primitives::to_bip</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">prim_name</span><span class="plain">);</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">bip</span><span class="plain">) </span><span class="functiontext">Site::set_opcode</span><span class="plain">(</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">bip</span><span class="plain">, </span><span class="identifier">prim_name</span><span class="plain">);</span>
|
|
<span class="plain">}</span>
|
|
|
|
<span class="identifier">inter_t</span><span class="plain"> </span><span class="functiontext">Primitives::to_bip</span><span class="plain">(</span><span class="identifier">inter_tree</span><span class="plain"> *</span><span class="identifier">I</span><span class="plain">, </span><span class="identifier">inter_symbol</span><span class="plain"> *</span><span class="identifier">symb</span><span class="plain">) {</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">symb</span><span class="plain"> == </span><span class="identifier">NULL</span><span class="plain">) </span><span class="reserved">return</span><span class="plain"> 0;</span>
|
|
<span class="reserved">int</span><span class="plain"> </span><span class="identifier">B</span><span class="plain"> = </span><span class="identifier">Inter::Symbols::read_annotation</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">, </span><span class="identifier">BIP_CODE_IANN</span><span class="plain">);</span>
|
|
<span class="identifier">inter_t</span><span class="plain"> </span><span class="identifier">bip</span><span class="plain"> = (</span><span class="identifier">B</span><span class="plain"> > 0)?((</span><span class="identifier">inter_t</span><span class="plain">) </span><span class="identifier">B</span><span class="plain">):0;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">bip</span><span class="plain"> != 0) </span><span class="reserved">return</span><span class="plain"> </span><span class="identifier">bip</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!not"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">NOT_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!and"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">AND_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!or"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">OR_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!alternative"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">ALTERNATIVE_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!alternativecase"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">ALTERNATIVECASE_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!bitwiseand"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">BITWISEAND_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!bitwiseor"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">BITWISEOR_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!bitwisenot"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">BITWISENOT_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!eq"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">EQ_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!ne"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">NE_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!gt"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">GT_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!ge"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">GE_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!lt"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">LT_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!le"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">LE_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!ofclass"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">OFCLASS_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!has"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">HAS_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!hasnt"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">HASNT_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!in"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">IN_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!notin"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">NOTIN_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!sequential"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">SEQUENTIAL_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!ternarysequential"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">TERNARYSEQUENTIAL_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!plus"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">PLUS_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!minus"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">MINUS_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!unaryminus"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">UNARYMINUS_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!times"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">TIMES_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!divide"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">DIVIDE_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!modulo"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">MODULO_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!random"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">RANDOM_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!return"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">RETURN_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!jump"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">JUMP_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!give"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">GIVE_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!take"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">TAKE_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!move"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">MOVE_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!remove"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">REMOVE_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!quit"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">QUIT_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!restore"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">RESTORE_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!spaces"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">SPACES_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!break"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">BREAK_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!continue"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">CONTINUE_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!font"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">FONT_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!styleroman"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">STYLEROMAN_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!stylebold"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">STYLEBOLD_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!styleunderline"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">STYLEUNDERLINE_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!stylereverse"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">STYLEREVERSE_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!print"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">PRINT_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!printret"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">PRINTRET_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!printchar"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">PRINTCHAR_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!printname"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">PRINTNAME_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!printobj"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">PRINTOBJ_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!printproperty"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">PRINTPROPERTY_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!printnumber"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">PRINTNUMBER_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!printaddress"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">PRINTADDRESS_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!printstring"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">PRINTSTRING_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!printnlnumber"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">PRINTNLNUMBER_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!printdef"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">PRINTDEF_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!printcdef"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">PRINTCDEF_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!printindef"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">PRINTINDEF_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!printcindef"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">PRINTCINDEF_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!box"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">BOX_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!push"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">PUSH_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!pull"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">PULL_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!preincrement"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">PREINCREMENT_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!postincrement"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">POSTINCREMENT_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!predecrement"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">PREDECREMENT_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!postdecrement"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">POSTDECREMENT_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!store"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">STORE_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!setbit"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">SETBIT_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!clearbit"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">CLEARBIT_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!if"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">IF_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!ifdebug"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">IFDEBUG_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!ifstrict"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">IFSTRICT_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!ifelse"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">IFELSE_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!while"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">WHILE_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!do"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">DO_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!for"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">FOR_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!objectloop"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">OBJECTLOOP_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!objectloopx"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">OBJECTLOOPX_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!lookup"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">LOOKUP_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!lookupbyte"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">LOOKUPBYTE_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!lookupref"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">LOOKUPREF_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!loop"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">LOOP_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!switch"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">SWITCH_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!case"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">CASE_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!default"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">DEFAULT_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!indirect0v"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">INDIRECT0V_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!indirect1v"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">INDIRECT1V_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!indirect2v"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">INDIRECT2V_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!indirect3v"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">INDIRECT3V_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!indirect4v"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">INDIRECT4V_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!indirect5v"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">INDIRECT5V_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!indirect0"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">INDIRECT0_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!indirect1"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">INDIRECT1_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!indirect2"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">INDIRECT2_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!indirect3"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">INDIRECT3_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!indirect4"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">INDIRECT4_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!indirect5"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">INDIRECT5_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!message0"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">MESSAGE0_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!message1"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">MESSAGE1_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!message2"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">MESSAGE2_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!message3"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">MESSAGE3_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!callmessage0"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">CALLMESSAGE0_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!callmessage1"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">CALLMESSAGE1_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!callmessage2"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">CALLMESSAGE2_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!callmessage3"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">CALLMESSAGE3_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!propertyaddress"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">PROPERTYADDRESS_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!propertylength"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">PROPERTYLENGTH_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!provides"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">PROVIDES_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!propertyvalue"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">PROPERTYVALUE_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!read"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">READ_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">Str::eq</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">-></span><span class="identifier">symbol_name</span><span class="plain">, </span><span class="identifier">I</span><span class="string">"!inversion"</span><span class="plain">)) </span><span class="identifier">bip</span><span class="plain"> = </span><span class="constant">INVERSION_BIP</span><span class="plain">;</span>
|
|
<span class="reserved">if</span><span class="plain"> (</span><span class="identifier">bip</span><span class="plain"> != 0) {</span>
|
|
<span class="identifier">Inter::Symbols::annotate_i</span><span class="plain">(</span><span class="identifier">symb</span><span class="plain">, </span><span class="identifier">BIP_CODE_IANN</span><span class="plain">, </span><span class="identifier">bip</span><span class="plain">);</span>
|
|
<span class="reserved">return</span><span class="plain"> </span><span class="identifier">bip</span><span class="plain">;</span>
|
|
<span class="plain">}</span>
|
|
<span class="reserved">return</span><span class="plain"> 0;</span>
|
|
<span class="plain">}</span>
|
|
</pre>
|
|
|
|
<p class="inwebparagraph"></p>
|
|
|
|
<p class="endnote">The function Primitives::name is used in 2/is (<a href="2-is.html#SP16">§16</a>, <a href="2-is.html#SP28">§28</a>).</p>
|
|
|
|
<p class="endnote">The function Primitives::scan_tree appears nowhere else.</p>
|
|
|
|
<p class="endnote">The function Primitives::scan_visitor appears nowhere else.</p>
|
|
|
|
<p class="endnote">The function Primitives::to_bip is used in <a href="#SP1">§1</a>.</p>
|
|
|
|
<hr class="tocbar">
|
|
<ul class="toc"><li><a href="1-bs.html">Back to 'Building Site'</a></li><li><a href="1-tv.html">Continue with 'The Veneer'</a></li></ul><hr class="tocbar">
|
|
<!--End of weave-->
|
|
</body>
|
|
</html>
|
|
|