hodzanassredin

package kafka.server

import (
	"context"
	"fmt"
	"io/ioutil"
	"log"
	"os"
	"path/filepath"

hodzanassredin

MODULE TestModules;

IMPORT SYSTEM, Log := StdLog, Kernel;

	CONST adr = 43711E10H;

PROCEDURE Do*;
	VAR m : Kernel.Module;addr : INTEGER;
BEGIN
	m := Kernel.modList; 

hodzanassredin

MODULE TestJson;

IMPORT Log, W3cObjects, HttpClient, W3cStreams, W3cJSON, Strings, Meta, HttpParser, AosStreams;

TYPE 
	    Issue* = POINTER TO RECORD
			url*, title*: ARRAY 64 OF CHAR;
			id*: INTEGER;
		END;
		Issues = POINTER TO ARRAY OF Issue;

hodzanassredin

MODULE Interfaces;

	IMPORT StdLog;

	TYPE 
				MultiRec* = POINTER TO ABSTRACT RECORD END;
				InterfacePrototype* = POINTER TO ABSTRACT RECORD END;
					

				Iterator* = POINTER TO ABSTRACT RECORD(MultiRec) END;

hodzanassredin

using System;
using System.Diagnostics;
using System.Numerics;
using System.Text;

namespace Org.BouncyCastle.Crypto.Modes
{
    internal static class Check
    {
        internal static void DataLength(bool condition, string message)

hodzanassredin

MODULE CryptoUnsigned;

	IMPORT SYSTEM, StdLog;

	TYPE
		UNSIGNED8 = BYTE;
		UNSIGNED16 = SHORTINT;
		UNSIGNED32 = INTEGER;
		UNSIGNED64 = LONGINT;

hodzanassredin

MODULE PaketView;
	IMPORT Dialog,  Strings, StdLinks, HyperHttp, TextRulers, Ports, Views, Files, TextViews, StdTextConv, TextControllers, TextModels, TextMappers, Stores, StdLog, StdCoder, Converters;

	TYPE Package* = RECORD 
				data: ARRAY 4 OF TextMappers.String;
				isInstalled : BOOLEAN;
				depends : PackageList;
			END;
			PackageList =  POINTER TO RECORD 
				package: Package;

hodzanassredin

TYPE Vector* = POINTER TO ARRAY OF REAL;
		  Mapper2 = PROCEDURE (x,y:Vector) : Vector;
		  Mapper = POINTER TO ABSTRACT RECORD END;
		  Closure = POINTER TO RECORD (Mapper) 
			f : Mapper2;
			x : Vector;
		  END;

PROCEDURE (m:Mapper) Apply(v : Vector) : Vector , NEW, ABSTRACT;

hodzanassredin

MODULE HttpCmds;

(* This module provides the commands required to start and configure a singleton http or https server 
and shows how to provide a REST API for Component Pascal modules.
It also includes an http test client.
For the REST API it implements a servlet (MyServlet) that can be registered with an http or https server e.g. under 
the URI prefix /. With 'http://localhost/calc?x=1&y=2' a procedure Calc is called and its result returned in XML format.
The special request 'testPOST' opens a form that allows to call Calc by means of a POST method. 

2016-07-26, Josef Templ, first version

hodzanassredin

MODULE LinalgGraph;

IMPORT v :=LinalgVector, p:= LinalgPolygon, Views, Ports, StdLog, Strings, Fonts, TextControllers, TextMappers,Properties;

CONST pointSize = Ports.point * 20;
TYPE 
		View = POINTER TO RECORD (Views.View) END;
		Polygons* = POINTER TO RECORD 
        	polygon* : p.Polygon; 
        	next* : Polygons;