* obsolete

base/template

@@ -1,125 +0,0 @@
-#
-#   $Id$
-#   Copyright (c) 1999 by the Free Pascal Development Team
-#
-#   Makefile for <template> for Free Pascal
-#
-#   See the file COPYING.FPC, included in this distribution,
-#   for details about the copyright.
-#
-#   This program is distributed in the hope that it will be useful,
-#   but WITHOUT ANY WARRANTY; without even the implied warranty of
-#   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-#
-
-
-#####################################################################
-# Defaults
-#####################################################################
-
-# Where are the include files located
-INC=
-PROCINC=
-OSINC=
-
-# Needed options, without it won't compile
-NEEDOPT=
-
-# Needed unit dir, which is searched as the first path
-NEEDUNITDIR=
-
-# Where need we to place the executables/ppu/objects
-TARGETDIR=
-UNITTARGETDIR=
-
-# As default make only the units
-#DEFAULTUNITS=1
-
-
-#####################################################################
-# Real targets
-#####################################################################
-
-UNITOBJECTS=
-EXEOBJECTS=
-
-
-#####################################################################
-# Common targets
-#####################################################################
-
-.PHONY: all clean install info \
-        staticlib sharedlib libsclean \
-        staticinstall sharedinstall libinstall \
-        
-all: testfpcmake fpc_all
-
-clean: testfpcmake fpc_clean
-
-install: testfpcmake fpc_install
-
-info: testfpcmake fpc_info
-
-staticlib: testfpcmake fpc_staticlib
-
-sharedlib: testfpcmake fpc_sharedlib
-
-libsclean: testfpcmake fpc_libsclean
-
-staticinstall: testfpcmake fpc_staticinstall
-
-sharedinstall: testfpcmake fpc_sharedinstall
-
-libinstall: testfpcmake fpc_libinstall
-
-
-#####################################################################
-# Include default makefile
-#####################################################################
-
-# test if FPCMAKE is still valid
-ifdef FPCMAKE
-ifeq ($(strip $(wildcard $(FPCMAKE))),)
-FPCDIR=
-FPCMAKE=
-endif
-endif
-
-ifndef FPCDIR
-ifdef DEFAULTFPCDIR
-FPCDIR=$(DEFAULTFPCDIR)
-endif
-endif
-
-ifndef FPCMAKE
-ifdef FPCDIR
-FPCMAKE=$(FPCDIR)/makefile.fpc
-else
-FPCMAKE=makefile.fpc
-endif
-endif
-
-override FPCMAKE:=$(strip $(wildcard $(FPCMAKE)))
-ifeq ($(FPCMAKE),)
-testfpcmake:
-	@echo makefile.fpc not found!
-	@echo Check the FPCMAKE and FPCDIR environment variables.
-	@exit
-else
-include $(FPCMAKE)
-testfpcmake:
-endif
-
-
-
-#####################################################################
-# Dependencies
-#####################################################################
-
-
-#
-# $Log$
-# Revision 1.1  1999-03-16 00:50:29  peter
-#   + init
-#
-#

packages/forms/demo/inputall.s

@@ -1,469 +0,0 @@
-	.file "inputall.pp"
-
-.text
-	.align 4
-.globl	_DONE_CB$PFL_OBJECT$LONGINT
-	.type	_DONE_CB$PFL_OBJECT$LONGINT,@function
-_DONE_CB$PFL_OBJECT$LONGINT:
-.globl	done_cb
-	.type	done_cb,@function
-done_cb:
-	pushl	%ebp
-	movl	%esp,%ebp
-	pushl	$0
-	call	_SYSLINUX$$_HALT$BYTE
-	leave
-	ret	$8
-	.align 4
-.globl	_INPUT_CB$PFL_OBJECT$LONGINT
-	.type	_INPUT_CB$PFL_OBJECT$LONGINT,@function
-_INPUT_CB$PFL_OBJECT$LONGINT:
-.globl	input_cb
-	.type	input_cb,@function
-input_cb:
-	pushl	%ebp
-	movl	%esp,%ebp
-	subl	$532,%esp
-	leal	-8(%ebp),%eax
-	pushl	%eax
-	leal	-4(%ebp),%eax
-	pushl	%eax
-	pushl	8(%ebp)
-	call	fl_get_input_cursorpos
-	addl	$12,%esp
-	movl	%eax,-12(%ebp)
-	pushl	$128
-	leal	-273(%ebp),%edi
-	pushl	%edi
-	pushl	$-1
-	pushl	-12(%ebp)
-	call	FPC_SHORTSTR_LONGINT
-	leal	-530(%ebp),%edi
-	pushl	%edi
-	pushl	$.L23
-	pushl	$255
-	call	FPC_SHORTSTR_COPY
-	leal	-530(%ebp),%edi
-	pushl	%edi
-	leal	-273(%ebp),%edi
-	pushl	%edi
-	call	FPC_SHORTSTR_CONCAT
-	leal	-530(%ebp),%edi
-	pushl	%edi
-	pushl	$.L24
-	call	FPC_SHORTSTR_CONCAT
-	leal	-141(%ebp),%edi
-	pushl	%edi
-	leal	-530(%ebp),%edi
-	pushl	%edi
-	pushl	$128
-	call	FPC_SHORTSTR_COPY
-	pushl	$128
-	leal	-273(%ebp),%edi
-	pushl	%edi
-	pushl	$-1
-	pushl	-4(%ebp)
-	call	FPC_SHORTSTR_LONGINT
-	leal	-530(%ebp),%edi
-	pushl	%edi
-	leal	-141(%ebp),%edi
-	pushl	%edi
-	pushl	$255
-	call	FPC_SHORTSTR_COPY
-	leal	-530(%ebp),%edi
-	pushl	%edi
-	pushl	$.L31
-	call	FPC_SHORTSTR_CONCAT
-	leal	-530(%ebp),%edi
-	pushl	%edi
-	leal	-273(%ebp),%edi
-	pushl	%edi
-	call	FPC_SHORTSTR_CONCAT
-	leal	-530(%ebp),%edi
-	pushl	%edi
-	pushl	$.L24
-	call	FPC_SHORTSTR_CONCAT
-	leal	-141(%ebp),%edi
-	pushl	%edi
-	leal	-530(%ebp),%edi
-	pushl	%edi
-	pushl	$128
-	call	FPC_SHORTSTR_COPY
-	pushl	$128
-	leal	-273(%ebp),%edi
-	pushl	%edi
-	pushl	$-1
-	pushl	-8(%ebp)
-	call	FPC_SHORTSTR_LONGINT
-	leal	-530(%ebp),%edi
-	pushl	%edi
-	leal	-141(%ebp),%edi
-	pushl	%edi
-	pushl	$255
-	call	FPC_SHORTSTR_COPY
-	leal	-530(%ebp),%edi
-	pushl	%edi
-	pushl	$.L38
-	call	FPC_SHORTSTR_CONCAT
-	leal	-530(%ebp),%edi
-	pushl	%edi
-	leal	-273(%ebp),%edi
-	pushl	%edi
-	call	FPC_SHORTSTR_CONCAT
-	leal	-530(%ebp),%edi
-	pushl	%edi
-	pushl	$.L39
-	call	FPC_SHORTSTR_CONCAT
-	leal	-141(%ebp),%edi
-	pushl	%edi
-	leal	-530(%ebp),%edi
-	pushl	%edi
-	pushl	$128
-	call	FPC_SHORTSTR_COPY
-	leal	-140(%ebp),%eax
-	pushl	%eax
-	movl	8(%ebp),%eax
-	movl	(%eax),%eax
-	movl	(%eax),%eax
-	pushl	16(%eax)
-	call	fl_set_object_label
-	addl	$8,%esp
-	leave
-	ret	$8
-	.align 4
-.globl	_HIDE_SHOW_CB$PFL_OBJECT$LONGINT
-	.type	_HIDE_SHOW_CB$PFL_OBJECT$LONGINT,@function
-_HIDE_SHOW_CB$PFL_OBJECT$LONGINT:
-.globl	hide_show_cb
-	.type	hide_show_cb,@function
-hide_show_cb:
-	pushl	%ebp
-	movl	%esp,%ebp
-	subl	$4,%esp
-	movl	8(%ebp),%eax
-	movl	(%eax),%eax
-	movl	(%eax),%edi
-	movl	%edi,-4(%ebp)
-	movl	-4(%ebp),%eax
-	movl	12(%eax),%eax
-	movl	188(%eax),%eax
-	testl	%eax,%eax
-	jne	.L48
-	jmp	.L49
-.L48:
-	movl	-4(%ebp),%eax
-	pushl	12(%eax)
-	call	fl_hide_object
-	popl	%edi
-	jmp	.L52
-.L49:
-	movl	-4(%ebp),%eax
-	pushl	12(%eax)
-	call	fl_show_object
-	popl	%edi
-.L52:
-	leave
-	ret	$8
-	.align 4
-.globl	_CREATE_FORM_INPUT
-	.type	_CREATE_FORM_INPUT,@function
-_CREATE_FORM_INPUT:
-	pushl	%ebp
-	movl	%esp,%ebp
-	subl	$12,%esp
-	pushl	$20
-	leal	-12(%ebp),%edi
-	pushl	%edi
-	call	FPC_GETMEM
-	movl	-12(%ebp),%eax
-	pushl	%eax
-	pushl	$441
-	pushl	$441
-	pushl	$0
-	call	fl_bgn_form
-	addl	$12,%esp
-	movl	%eax,%edx
-	popl	%eax
-	movl	%edx,(%eax)
-	leal	.L69+1,%eax
-	pushl	%eax
-	pushl	$441
-	pushl	$441
-	pushl	$0
-	pushl	$0
-	pushl	$1
-	call	fl_add_box
-	addl	$24,%esp
-	movl	%eax,-8(%ebp)
-	leal	.L84+1,%eax
-	pushl	%eax
-	pushl	$30
-	pushl	$340
-	pushl	$40
-	pushl	$40
-	pushl	$0
-	call	fl_add_input
-	addl	$24,%esp
-	movl	%eax,-8(%ebp)
-	movl	-12(%ebp),%eax
-	movl	-8(%ebp),%edi
-	movl	%edi,8(%eax)
-	pushl	$5
-	pushl	-8(%ebp)
-	call	fl_set_object_lalign
-	addl	$8,%esp
-	pushl	$0
-	leal	_INPUT_CB$PFL_OBJECT$LONGINT,%eax
-	pushl	%eax
-	pushl	-8(%ebp)
-	call	fl_set_object_callback
-	addl	$12,%esp
-	leal	.L111+1,%eax
-	pushl	%eax
-	pushl	$30
-	pushl	$160
-	pushl	$100
-	pushl	$40
-	pushl	$2
-	call	fl_add_input
-	addl	$24,%esp
-	movl	%eax,-8(%ebp)
-	pushl	$5
-	pushl	-8(%ebp)
-	call	fl_set_object_lalign
-	addl	$8,%esp
-	leal	.L130+1,%eax
-	pushl	%eax
-	pushl	$30
-	pushl	$160
-	pushl	$100
-	pushl	$230
-	pushl	$1
-	call	fl_add_input
-	addl	$24,%esp
-	movl	%eax,-8(%ebp)
-	pushl	$5
-	pushl	-8(%ebp)
-	call	fl_set_object_lalign
-	addl	$8,%esp
-	leal	.L149+1,%eax
-	pushl	%eax
-	pushl	$30
-	pushl	$160
-	pushl	$150
-	pushl	$40
-	pushl	$3
-	call	fl_add_input
-	addl	$24,%esp
-	movl	%eax,-8(%ebp)
-	pushl	$5
-	pushl	-8(%ebp)
-	call	fl_set_object_lalign
-	addl	$8,%esp
-	leal	.L168+1,%eax
-	pushl	%eax
-	pushl	$30
-	pushl	$160
-	pushl	$150
-	pushl	$230
-	pushl	$6
-	call	fl_add_input
-	addl	$24,%esp
-	movl	%eax,-8(%ebp)
-	pushl	$5
-	pushl	-8(%ebp)
-	call	fl_set_object_lalign
-	addl	$8,%esp
-	leal	.L187+1,%eax
-	pushl	%eax
-	pushl	$180
-	pushl	$360
-	pushl	$210
-	pushl	$40
-	pushl	$4
-	call	fl_add_input
-	addl	$24,%esp
-	movl	%eax,-8(%ebp)
-	movl	-12(%ebp),%eax
-	movl	-8(%ebp),%edi
-	movl	%edi,12(%eax)
-	pushl	$0
-	leal	_INPUT_CB$PFL_OBJECT$LONGINT,%eax
-	pushl	%eax
-	pushl	-8(%ebp)
-	call	fl_set_object_callback
-	addl	$12,%esp
-	leal	.L69+1,%eax
-	pushl	%eax
-	pushl	$30
-	pushl	$210
-	pushl	$400
-	pushl	$30
-	pushl	$0
-	call	fl_add_text
-	addl	$24,%esp
-	movl	%eax,-8(%ebp)
-	movl	-12(%ebp),%eax
-	movl	-8(%ebp),%edi
-	movl	%edi,16(%eax)
-	pushl	$8196
-	pushl	-8(%ebp)
-	call	fl_set_object_lalign
-	addl	$8,%esp
-	leal	.L230+1,%eax
-	pushl	%eax
-	pushl	$30
-	pushl	$70
-	pushl	$400
-	pushl	$330
-	pushl	$0
-	call	fl_add_button
-	addl	$24,%esp
-	movl	%eax,-8(%ebp)
-	pushl	$0
-	leal	_DONE_CB$PFL_OBJECT$LONGINT,%eax
-	pushl	%eax
-	pushl	-8(%ebp)
-	call	fl_set_object_callback
-	addl	$12,%esp
-	leal	.L251+1,%eax
-	pushl	%eax
-	pushl	$30
-	pushl	$70
-	pushl	$400
-	pushl	$250
-	pushl	$0
-	call	fl_add_button
-	addl	$24,%esp
-	movl	%eax,-8(%ebp)
-	pushl	$0
-	leal	_HIDE_SHOW_CB$PFL_OBJECT$LONGINT,%eax
-	pushl	%eax
-	pushl	-8(%ebp)
-	call	fl_set_object_callback
-	addl	$12,%esp
-	call	fl_end_form
-	movl	-12(%ebp),%eax
-	movl	(%eax),%eax
-	movl	-12(%ebp),%edi
-	movl	%edi,(%eax)
-	movl	-12(%ebp),%edi
-	movl	%edi,-4(%ebp)
-	movl	-4(%ebp),%eax
-	leave
-	ret
-	.align 4
-.globl	main
-	.type	main,@function
-main:
-.globl	PASCALMAIN
-	.type	PASCALMAIN,@function
-PASCALMAIN:
-.globl	program_init
-	.type	program_init,@function
-program_init:
-	pushl	%ebp
-	movl	%esp,%ebp
-	call	FPC_INITIALIZEUNITS
-	pushl	$0
-	pushl	$0
-	leal	.L69+1,%eax
-	pushl	%eax
-	pushl	U_SYSLINUX_ARGV
-	leal	U_SYSLINUX_ARGC,%eax
-	pushl	%eax
-	call	fl_initialize
-	addl	$20,%esp
-	call	_CREATE_FORM_INPUT
-	movl	%eax,_FD_INPUT
-	pushl	$1
-	movl	_FD_INPUT,%eax
-	pushl	16(%eax)
-	call	fl_set_object_dblbuffer
-	addl	$8,%esp
-	pushl	$3
-	movl	_FD_INPUT,%eax
-	pushl	12(%eax)
-	call	fl_set_object_return
-	addl	$8,%esp
-	pushl	$3
-	movl	_FD_INPUT,%eax
-	pushl	8(%eax)
-	call	fl_set_object_return
-	addl	$8,%esp
-	leal	.L298+1,%eax
-	pushl	%eax
-	pushl	$1
-	pushl	$16386
-	movl	_FD_INPUT,%eax
-	pushl	(%eax)
-	call	fl_show_form
-	addl	$16,%esp
-	jmp	.L306
-.L305:
-.L306:
-	call	fl_do_forms
-	cmpl	$0,%eax
-	jne	.L305
-	jmp	.L307
-.L307:
-	call	FPC_DO_EXIT
-	leave
-	ret
-
-.data
-	.ascii	"FPC 0.99.11 for i386 - LINUX"
-	.align 4
-.globl	INITFINAL
-	.type	INITFINAL,@object
-INITFINAL:
-	.long	3,0
-	.long	INIT$$SYSLINUX
-	.long	0
-	.long	INIT$$OBJPAS
-	.long	0
-	.long	INIT$$XLIB
-	.long	0
-.globl	HEAPSIZE
-	.type	HEAPSIZE,@object
-HEAPSIZE:
-	.long	2097152
-
-.data
-.L23:
-	.ascii	"\004P = \000"
-.L24:
-	.ascii	"\001 \000"
-.L31:
-	.ascii	"\003x= \000"
-.L38:
-	.ascii	"\003y= \000"
-.L39:
-	.ascii	"\001\000\000"
-.L69:
-	.ascii	"\000\000"
-.L84:
-	.ascii	"\013NormalInput\000"
-.L111:
-	.ascii	"\010IntInput\000"
-.L130:
-	.ascii	"\012FloatInput\000"
-.L149:
-	.ascii	"\011DateInput\000"
-.L168:
-	.ascii	"\013Secretinput\000"
-.L187:
-	.ascii	"\003MMM\000"
-.L230:
-	.ascii	"\004Done\000"
-.L251:
-	.ascii	"\011Hide/Show\000"
-.L298:
-	.ascii	"\005input\000"
-
-.data
-
-.bss
-	.lcomm	_FD_INPUT,4
-	.comm	HEAP,2097152
-